sendmail-8.18.1/0000755000372400037240000000000014556365435012773 5ustar xbuildxbuildsendmail-8.18.1/libmilter/0000755000372400037240000000000014556365434014755 5ustar xbuildxbuildsendmail-8.18.1/libmilter/smfi.c0000644000372400037240000004230314556365350016056 0ustar xbuildxbuild/* * Copyright (c) 1999-2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: smfi.c,v 8.84 2013-11-22 20:51:36 ca Exp $") #include #include "libmilter.h" static int smfi_header __P((SMFICTX *, int, int, char *, char *)); static int myisenhsc __P((const char *, int)); /* for smfi_set{ml}reply, let's be generous. 256/16 should be sufficient */ #define MAXREPLYLEN 980 /* max. length of a reply string */ #define MAXREPLIES 32 /* max. number of reply strings */ /* ** SMFI_HEADER -- send a header to the MTA ** ** Parameters: ** ctx -- Opaque context structure ** cmd -- Header modification command ** hdridx -- Header index ** headerf -- Header field name ** headerv -- Header field value ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ static int smfi_header(ctx, cmd, hdridx, headerf, headerv) SMFICTX *ctx; int cmd; int hdridx; char *headerf; char *headerv; { size_t len, l1, l2, offset; int r; mi_int32 v; char *buf; struct timeval timeout; if (headerf == NULL || *headerf == '\0' || headerv == NULL) return MI_FAILURE; timeout.tv_sec = ctx->ctx_timeout; timeout.tv_usec = 0; l1 = strlen(headerf) + 1; l2 = strlen(headerv) + 1; len = l1 + l2; if (hdridx >= 0) len += MILTER_LEN_BYTES; buf = malloc(len); if (buf == NULL) return MI_FAILURE; offset = 0; if (hdridx >= 0) { v = htonl(hdridx); (void) memcpy(&(buf[0]), (void *) &v, MILTER_LEN_BYTES); offset += MILTER_LEN_BYTES; } (void) memcpy(buf + offset, headerf, l1); (void) memcpy(buf + offset + l1, headerv, l2); r = mi_wr_cmd(ctx->ctx_sd, &timeout, cmd, buf, len); free(buf); return r; } /* ** SMFI_ADDHEADER -- send a new header to the MTA ** ** Parameters: ** ctx -- Opaque context structure ** headerf -- Header field name ** headerv -- Header field value ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_addheader(ctx, headerf, headerv) SMFICTX *ctx; char *headerf; char *headerv; { if (!mi_sendok(ctx, SMFIF_ADDHDRS)) return MI_FAILURE; return smfi_header(ctx, SMFIR_ADDHEADER, -1, headerf, headerv); } /* ** SMFI_INSHEADER -- send a new header to the MTA (to be inserted) ** ** Parameters: ** ctx -- Opaque context structure ** hdridx -- index into header list where insertion should occur ** headerf -- Header field name ** headerv -- Header field value ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_insheader(ctx, hdridx, headerf, headerv) SMFICTX *ctx; int hdridx; char *headerf; char *headerv; { if (!mi_sendok(ctx, SMFIF_ADDHDRS) || hdridx < 0) return MI_FAILURE; return smfi_header(ctx, SMFIR_INSHEADER, hdridx, headerf, headerv); } /* ** SMFI_CHGHEADER -- send a changed header to the MTA ** ** Parameters: ** ctx -- Opaque context structure ** headerf -- Header field name ** hdridx -- Header index value ** headerv -- Header field value ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_chgheader(ctx, headerf, hdridx, headerv) SMFICTX *ctx; char *headerf; mi_int32 hdridx; char *headerv; { if (!mi_sendok(ctx, SMFIF_CHGHDRS) || hdridx < 0) return MI_FAILURE; if (headerv == NULL) headerv = ""; return smfi_header(ctx, SMFIR_CHGHEADER, hdridx, headerf, headerv); } #if 0 /* ** BUF_CRT_SEND -- construct buffer to send from arguments ** ** Parameters: ** ctx -- Opaque context structure ** cmd -- command ** arg0 -- first argument ** argv -- list of arguments (NULL terminated) ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ static int buf_crt_send __P((SMFICTX *, int cmd, char *, char **)); static int buf_crt_send(ctx, cmd, arg0, argv) SMFICTX *ctx; int cmd; char *arg0; char **argv; { size_t len, l0, l1, offset; int r; char *buf, *arg, **argvl; struct timeval timeout; if (arg0 == NULL || *arg0 == '\0') return MI_FAILURE; timeout.tv_sec = ctx->ctx_timeout; timeout.tv_usec = 0; l0 = strlen(arg0) + 1; len = l0; argvl = argv; while (argvl != NULL && (arg = *argv) != NULL && *arg != '\0') { l1 = strlen(arg) + 1; len += l1; SM_ASSERT(len > l1); } buf = malloc(len); if (buf == NULL) return MI_FAILURE; (void) memcpy(buf, arg0, l0); offset = l0; argvl = argv; while (argvl != NULL && (arg = *argv) != NULL && *arg != '\0') { l1 = strlen(arg) + 1; SM_ASSERT(offset < len); SM_ASSERT(offset + l1 <= len); (void) memcpy(buf + offset, arg, l1); offset += l1; SM_ASSERT(offset > l1); } r = mi_wr_cmd(ctx->ctx_sd, &timeout, cmd, buf, len); free(buf); return r; } #endif /* 0 */ /* ** SEND2 -- construct buffer to send from arguments ** ** Parameters: ** ctx -- Opaque context structure ** cmd -- command ** arg0 -- first argument ** argv -- list of arguments (NULL terminated) ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ static int send2 __P((SMFICTX *, int cmd, char *, char *)); static int send2(ctx, cmd, arg0, arg1) SMFICTX *ctx; int cmd; char *arg0; char *arg1; { size_t len, l0, l1, offset; int r; char *buf; struct timeval timeout; if (arg0 == NULL || *arg0 == '\0') return MI_FAILURE; timeout.tv_sec = ctx->ctx_timeout; timeout.tv_usec = 0; l0 = strlen(arg0) + 1; len = l0; if (arg1 != NULL) { l1 = strlen(arg1) + 1; len += l1; SM_ASSERT(len > l1); } buf = malloc(len); if (buf == NULL) return MI_FAILURE; (void) memcpy(buf, arg0, l0); offset = l0; if (arg1 != NULL) { SM_ASSERT(offset < len); SM_ASSERT(offset + l1 <= len); (void) memcpy(buf + offset, arg1, l1); offset += l1; SM_ASSERT(offset > l1); } r = mi_wr_cmd(ctx->ctx_sd, &timeout, cmd, buf, len); free(buf); return r; } /* ** SMFI_CHGFROM -- change enveloper sender ("from") address ** ** Parameters: ** ctx -- Opaque context structure ** from -- new envelope sender address ("MAIL From") ** args -- ESMTP arguments ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_chgfrom(ctx, from, args) SMFICTX *ctx; char *from; char *args; { if (from == NULL || *from == '\0') return MI_FAILURE; if (!mi_sendok(ctx, SMFIF_CHGFROM)) return MI_FAILURE; return send2(ctx, SMFIR_CHGFROM, from, args); } /* ** SMFI_SETSYMLIST -- set list of macros that the MTA should send. ** ** Parameters: ** ctx -- Opaque context structure ** where -- SMTP stage ** macros -- list of macros ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_setsymlist(ctx, where, macros) SMFICTX *ctx; int where; char *macros; { SM_ASSERT(ctx != NULL); if (macros == NULL) return MI_FAILURE; if (where < SMFIM_FIRST || where > SMFIM_LAST) return MI_FAILURE; if (where < 0 || where >= MAX_MACROS_ENTRIES) return MI_FAILURE; if (ctx->ctx_mac_list[where] != NULL) return MI_FAILURE; ctx->ctx_mac_list[where] = strdup(macros); if (ctx->ctx_mac_list[where] == NULL) return MI_FAILURE; return MI_SUCCESS; } /* ** SMFI_ADDRCPT_PAR -- send an additional recipient to the MTA ** ** Parameters: ** ctx -- Opaque context structure ** rcpt -- recipient address ** args -- ESMTP arguments ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_addrcpt_par(ctx, rcpt, args) SMFICTX *ctx; char *rcpt; char *args; { if (rcpt == NULL || *rcpt == '\0') return MI_FAILURE; if (!mi_sendok(ctx, SMFIF_ADDRCPT_PAR)) return MI_FAILURE; return send2(ctx, SMFIR_ADDRCPT_PAR, rcpt, args); } /* ** SMFI_ADDRCPT -- send an additional recipient to the MTA ** ** Parameters: ** ctx -- Opaque context structure ** rcpt -- recipient address ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_addrcpt(ctx, rcpt) SMFICTX *ctx; char *rcpt; { size_t len; struct timeval timeout; if (rcpt == NULL || *rcpt == '\0') return MI_FAILURE; if (!mi_sendok(ctx, SMFIF_ADDRCPT)) return MI_FAILURE; timeout.tv_sec = ctx->ctx_timeout; timeout.tv_usec = 0; len = strlen(rcpt) + 1; return mi_wr_cmd(ctx->ctx_sd, &timeout, SMFIR_ADDRCPT, rcpt, len); } /* ** SMFI_DELRCPT -- send a recipient to be removed to the MTA ** ** Parameters: ** ctx -- Opaque context structure ** rcpt -- recipient address ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_delrcpt(ctx, rcpt) SMFICTX *ctx; char *rcpt; { size_t len; struct timeval timeout; if (rcpt == NULL || *rcpt == '\0') return MI_FAILURE; if (!mi_sendok(ctx, SMFIF_DELRCPT)) return MI_FAILURE; timeout.tv_sec = ctx->ctx_timeout; timeout.tv_usec = 0; len = strlen(rcpt) + 1; return mi_wr_cmd(ctx->ctx_sd, &timeout, SMFIR_DELRCPT, rcpt, len); } /* ** SMFI_REPLACEBODY -- send a body chunk to the MTA ** ** Parameters: ** ctx -- Opaque context structure ** bodyp -- body chunk ** bodylen -- length of body chunk ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_replacebody(ctx, bodyp, bodylen) SMFICTX *ctx; unsigned char *bodyp; int bodylen; { int len, off, r; struct timeval timeout; if (bodylen < 0 || (bodyp == NULL && bodylen > 0)) return MI_FAILURE; if (!mi_sendok(ctx, SMFIF_CHGBODY)) return MI_FAILURE; timeout.tv_sec = ctx->ctx_timeout; timeout.tv_usec = 0; /* split body chunk if necessary */ off = 0; do { len = (bodylen >= MILTER_CHUNK_SIZE) ? MILTER_CHUNK_SIZE : bodylen; if ((r = mi_wr_cmd(ctx->ctx_sd, &timeout, SMFIR_REPLBODY, (char *) (bodyp + off), len)) != MI_SUCCESS) return r; off += len; bodylen -= len; } while (bodylen > 0); return MI_SUCCESS; } /* ** SMFI_QUARANTINE -- quarantine an envelope ** ** Parameters: ** ctx -- Opaque context structure ** reason -- why? ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_quarantine(ctx, reason) SMFICTX *ctx; char *reason; { size_t len; int r; char *buf; struct timeval timeout; if (reason == NULL || *reason == '\0') return MI_FAILURE; if (!mi_sendok(ctx, SMFIF_QUARANTINE)) return MI_FAILURE; timeout.tv_sec = ctx->ctx_timeout; timeout.tv_usec = 0; len = strlen(reason) + 1; buf = malloc(len); if (buf == NULL) return MI_FAILURE; (void) memcpy(buf, reason, len); r = mi_wr_cmd(ctx->ctx_sd, &timeout, SMFIR_QUARANTINE, buf, len); free(buf); return r; } /* ** MYISENHSC -- check whether a string contains an enhanced status code ** ** Parameters: ** s -- string with possible enhanced status code. ** delim -- delim for enhanced status code. ** ** Returns: ** 0 -- no enhanced status code. ** >4 -- length of enhanced status code. ** ** Side Effects: ** none. */ static int myisenhsc(s, delim) const char *s; int delim; { int l, h; if (s == NULL) return 0; if (!((*s == '2' || *s == '4' || *s == '5') && s[1] == '.')) return 0; h = 0; l = 2; while (h < 3 && isascii(s[l + h]) && isdigit(s[l + h])) ++h; if (h == 0 || s[l + h] != '.') return 0; l += h + 1; h = 0; while (h < 3 && isascii(s[l + h]) && isdigit(s[l + h])) ++h; if (h == 0 || s[l + h] != delim) return 0; return l + h; } /* ** SMFI_SETREPLY -- set the reply code for the next reply to the MTA ** ** Parameters: ** ctx -- Opaque context structure ** rcode -- The three-digit (RFC 821) SMTP reply code. ** xcode -- The extended (RFC 2034) reply code. ** message -- The text part of the SMTP reply. ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_setreply(ctx, rcode, xcode, message) SMFICTX *ctx; char *rcode; char *xcode; char *message; { size_t len; char *buf; if (rcode == NULL || ctx == NULL) return MI_FAILURE; /* ### \0 */ len = strlen(rcode) + 2; if (len != 5) return MI_FAILURE; if ((rcode[0] != '4' && rcode[0] != '5') || !isascii(rcode[1]) || !isdigit(rcode[1]) || !isascii(rcode[2]) || !isdigit(rcode[2])) return MI_FAILURE; if (xcode != NULL) { if (!myisenhsc(xcode, '\0')) return MI_FAILURE; len += strlen(xcode) + 1; } if (message != NULL) { size_t ml; /* XXX check also for unprintable chars? */ if (strpbrk(message, "\r\n") != NULL) return MI_FAILURE; ml = strlen(message); if (ml > MAXREPLYLEN) return MI_FAILURE; len += ml + 1; } buf = malloc(len); if (buf == NULL) return MI_FAILURE; /* oops */ (void) sm_strlcpy(buf, rcode, len); (void) sm_strlcat(buf, " ", len); if (xcode != NULL) (void) sm_strlcat(buf, xcode, len); if (message != NULL) { if (xcode != NULL) (void) sm_strlcat(buf, " ", len); (void) sm_strlcat(buf, message, len); } if (ctx->ctx_reply != NULL) free(ctx->ctx_reply); ctx->ctx_reply = buf; return MI_SUCCESS; } /* ** SMFI_SETMLREPLY -- set multiline reply code for the next reply to the MTA ** ** Parameters: ** ctx -- Opaque context structure ** rcode -- The three-digit (RFC 821) SMTP reply code. ** xcode -- The extended (RFC 2034) reply code. ** txt, ... -- The text part of the SMTP reply, ** MUST be terminated with NULL. ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int #if SM_VA_STD smfi_setmlreply(SMFICTX *ctx, const char *rcode, const char *xcode, ...) #else /* SM_VA_STD */ smfi_setmlreply(ctx, rcode, xcode, va_alist) SMFICTX *ctx; const char *rcode; const char *xcode; va_dcl #endif /* SM_VA_STD */ { size_t len; size_t rlen; int args; char *buf, *txt; const char *xc; char repl[16]; SM_VA_LOCAL_DECL if (rcode == NULL || ctx == NULL) return MI_FAILURE; /* ### */ len = strlen(rcode) + 1; if (len != 4) return MI_FAILURE; if ((rcode[0] != '4' && rcode[0] != '5') || !isascii(rcode[1]) || !isdigit(rcode[1]) || !isascii(rcode[2]) || !isdigit(rcode[2])) return MI_FAILURE; if (xcode != NULL) { if (!myisenhsc(xcode, '\0')) return MI_FAILURE; xc = xcode; } else { if (rcode[0] == '4') xc = "4.0.0"; else xc = "5.0.0"; } /* add trailing space */ len += strlen(xc) + 1; rlen = len; args = 0; SM_VA_START(ap, xcode); while ((txt = SM_VA_ARG(ap, char *)) != NULL) { size_t tl; tl = strlen(txt); if (tl > MAXREPLYLEN) break; /* this text, reply codes, \r\n */ len += tl + 2 + rlen; if (++args > MAXREPLIES) break; /* XXX check also for unprintable chars? */ if (strpbrk(txt, "\r\n") != NULL) break; } SM_VA_END(ap); if (txt != NULL) return MI_FAILURE; /* trailing '\0' */ ++len; buf = malloc(len); if (buf == NULL) return MI_FAILURE; /* oops */ (void) sm_strlcpyn(buf, len, 3, rcode, args == 1 ? " " : "-", xc); (void) sm_strlcpyn(repl, sizeof repl, 4, rcode, args == 1 ? " " : "-", xc, " "); SM_VA_START(ap, xcode); txt = SM_VA_ARG(ap, char *); if (txt != NULL) { (void) sm_strlcat2(buf, " ", txt, len); while ((txt = SM_VA_ARG(ap, char *)) != NULL) { if (--args <= 1) repl[3] = ' '; (void) sm_strlcat2(buf, "\r\n", repl, len); (void) sm_strlcat(buf, txt, len); } } if (ctx->ctx_reply != NULL) free(ctx->ctx_reply); ctx->ctx_reply = buf; SM_VA_END(ap); return MI_SUCCESS; } /* ** SMFI_SETPRIV -- set private data ** ** Parameters: ** ctx -- Opaque context structure ** privatedata -- pointer to private data ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_setpriv(ctx, privatedata) SMFICTX *ctx; void *privatedata; { if (ctx == NULL) return MI_FAILURE; ctx->ctx_privdata = privatedata; return MI_SUCCESS; } /* ** SMFI_GETPRIV -- get private data ** ** Parameters: ** ctx -- Opaque context structure ** ** Returns: ** pointer to private data */ void * smfi_getpriv(ctx) SMFICTX *ctx; { if (ctx == NULL) return NULL; return ctx->ctx_privdata; } /* ** SMFI_GETSYMVAL -- get the value of a macro ** ** See explanation in mfapi.h about layout of the structures. ** ** Parameters: ** ctx -- Opaque context structure ** symname -- name of macro ** ** Returns: ** value of macro (NULL in case of failure) */ char * smfi_getsymval(ctx, symname) SMFICTX *ctx; char *symname; { int i; char **s; char one[2]; char braces[4]; if (ctx == NULL || symname == NULL || *symname == '\0') return NULL; if (strlen(symname) == 3 && symname[0] == '{' && symname[2] == '}') { one[0] = symname[1]; one[1] = '\0'; } else one[0] = '\0'; if (strlen(symname) == 1) { braces[0] = '{'; braces[1] = *symname; braces[2] = '}'; braces[3] = '\0'; } else braces[0] = '\0'; /* search backwards through the macro array */ for (i = MAX_MACROS_ENTRIES - 1 ; i >= 0; --i) { if ((s = ctx->ctx_mac_ptr[i]) == NULL || ctx->ctx_mac_buf[i] == NULL) continue; while (s != NULL && *s != NULL) { if (strcmp(*s, symname) == 0) return *++s; if (one[0] != '\0' && strcmp(*s, one) == 0) return *++s; if (braces[0] != '\0' && strcmp(*s, braces) == 0) return *++s; ++s; /* skip over macro value */ ++s; /* points to next macro name */ } } return NULL; } /* ** SMFI_PROGRESS -- send "progress" message to the MTA to prevent premature ** timeouts during long milter-side operations ** ** Parameters: ** ctx -- Opaque context structure ** ** Return value: ** MI_SUCCESS/MI_FAILURE */ int smfi_progress(ctx) SMFICTX *ctx; { struct timeval timeout; if (ctx == NULL) return MI_FAILURE; timeout.tv_sec = ctx->ctx_timeout; timeout.tv_usec = 0; return mi_wr_cmd(ctx->ctx_sd, &timeout, SMFIR_PROGRESS, NULL, 0); } /* ** SMFI_VERSION -- return (runtime) version of libmilter ** ** Parameters: ** major -- (pointer to) major version ** minor -- (pointer to) minor version ** patchlevel -- (pointer to) patchlevel version ** ** Return value: ** MI_SUCCESS */ int smfi_version(major, minor, patchlevel) unsigned int *major; unsigned int *minor; unsigned int *patchlevel; { if (major != NULL) *major = SM_LM_VRS_MAJOR(SMFI_VERSION); if (minor != NULL) *minor = SM_LM_VRS_MINOR(SMFI_VERSION); if (patchlevel != NULL) *patchlevel = SM_LM_VRS_PLVL(SMFI_VERSION); return MI_SUCCESS; } sendmail-8.18.1/libmilter/example.c0000644000372400037240000001316114556365350016553 0ustar xbuildxbuild/* * Copyright (c) 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: example.c,v 8.5 2013-11-22 20:51:36 ca Exp $ */ /* ** A trivial example filter that logs all email to a file. ** This milter also has some callbacks which it does not really use, ** but they are defined to serve as an example. */ #include #include #include #include #include #include #include "libmilter/mfapi.h" #include "libmilter/mfdef.h" #ifndef true # define false 0 # define true 1 #endif struct mlfiPriv { char *mlfi_fname; FILE *mlfi_fp; }; #define MLFIPRIV ((struct mlfiPriv *) smfi_getpriv(ctx)) static unsigned long mta_caps = 0; sfsistat mlfi_cleanup(ctx, ok) SMFICTX *ctx; bool ok; { sfsistat rstat = SMFIS_CONTINUE; struct mlfiPriv *priv = MLFIPRIV; char *p; char host[512]; char hbuf[1024]; if (priv == NULL) return rstat; /* close the archive file */ if (priv->mlfi_fp != NULL && fclose(priv->mlfi_fp) == EOF) { /* failed; we have to wait until later */ rstat = SMFIS_TEMPFAIL; (void) unlink(priv->mlfi_fname); } else if (ok) { /* add a header to the message announcing our presence */ if (gethostname(host, sizeof host) < 0) snprintf(host, sizeof host, "localhost"); p = strrchr(priv->mlfi_fname, '/'); if (p == NULL) p = priv->mlfi_fname; else p++; snprintf(hbuf, sizeof hbuf, "%s@%s", p, host); smfi_addheader(ctx, "X-Archived", hbuf); } else { /* message was aborted -- delete the archive file */ (void) unlink(priv->mlfi_fname); } /* release private memory */ free(priv->mlfi_fname); free(priv); smfi_setpriv(ctx, NULL); /* return status */ return rstat; } sfsistat mlfi_envfrom(ctx, envfrom) SMFICTX *ctx; char **envfrom; { struct mlfiPriv *priv; int fd = -1; /* allocate some private memory */ priv = malloc(sizeof *priv); if (priv == NULL) { /* can't accept this message right now */ return SMFIS_TEMPFAIL; } memset(priv, '\0', sizeof *priv); /* open a file to store this message */ priv->mlfi_fname = strdup("/tmp/msg.XXXXXXXX"); if (priv->mlfi_fname == NULL) { free(priv); return SMFIS_TEMPFAIL; } if ((fd = mkstemp(priv->mlfi_fname)) < 0 || (priv->mlfi_fp = fdopen(fd, "w+")) == NULL) { if (fd >= 0) (void) close(fd); free(priv->mlfi_fname); free(priv); return SMFIS_TEMPFAIL; } /* save the private data */ smfi_setpriv(ctx, priv); /* continue processing */ return SMFIS_CONTINUE; } sfsistat mlfi_header(ctx, headerf, headerv) SMFICTX *ctx; char *headerf; char *headerv; { /* write the header to the log file */ fprintf(MLFIPRIV->mlfi_fp, "%s: %s\r\n", headerf, headerv); /* continue processing */ return ((mta_caps & SMFIP_NR_HDR) != 0) ? SMFIS_NOREPLY : SMFIS_CONTINUE; } sfsistat mlfi_eoh(ctx) SMFICTX *ctx; { /* output the blank line between the header and the body */ fprintf(MLFIPRIV->mlfi_fp, "\r\n"); /* continue processing */ return SMFIS_CONTINUE; } sfsistat mlfi_body(ctx, bodyp, bodylen) SMFICTX *ctx; u_char *bodyp; size_t bodylen; { /* output body block to log file */ if (fwrite(bodyp, bodylen, 1, MLFIPRIV->mlfi_fp) <= 0) { /* write failed */ (void) mlfi_cleanup(ctx, false); return SMFIS_TEMPFAIL; } /* continue processing */ return SMFIS_CONTINUE; } sfsistat mlfi_eom(ctx) SMFICTX *ctx; { return mlfi_cleanup(ctx, true); } sfsistat mlfi_close(ctx) SMFICTX *ctx; { return SMFIS_ACCEPT; } sfsistat mlfi_abort(ctx) SMFICTX *ctx; { return mlfi_cleanup(ctx, false); } sfsistat mlfi_unknown(ctx, cmd) SMFICTX *ctx; char *cmd; { return SMFIS_CONTINUE; } sfsistat mlfi_data(ctx) SMFICTX *ctx; { return SMFIS_CONTINUE; } sfsistat mlfi_negotiate(ctx, f0, f1, f2, f3, pf0, pf1, pf2, pf3) SMFICTX *ctx; unsigned long f0; unsigned long f1; unsigned long f2; unsigned long f3; unsigned long *pf0; unsigned long *pf1; unsigned long *pf2; unsigned long *pf3; { /* milter actions: add headers */ *pf0 = SMFIF_ADDHDRS; /* milter protocol steps: all but connect, HELO, RCPT */ *pf1 = SMFIP_NOCONNECT|SMFIP_NOHELO|SMFIP_NORCPT; mta_caps = f1; if ((mta_caps & SMFIP_NR_HDR) != 0) *pf1 |= SMFIP_NR_HDR; *pf2 = 0; *pf3 = 0; return SMFIS_CONTINUE; } struct smfiDesc smfilter = { "SampleFilter", /* filter name */ SMFI_VERSION, /* version code -- do not change */ SMFIF_ADDHDRS, /* flags */ NULL, /* connection info filter */ NULL, /* SMTP HELO command filter */ mlfi_envfrom, /* envelope sender filter */ NULL, /* envelope recipient filter */ mlfi_header, /* header filter */ mlfi_eoh, /* end of header */ mlfi_body, /* body block filter */ mlfi_eom, /* end of message */ mlfi_abort, /* message aborted */ mlfi_close, /* connection cleanup */ mlfi_unknown, /* unknown/unimplemented SMTP commands */ mlfi_data, /* DATA command filter */ mlfi_negotiate /* option negotiation at connection startup */ }; int main(argc, argv) int argc; char *argv[]; { bool setconn; int c; setconn = false; /* Process command line options */ while ((c = getopt(argc, argv, "p:")) != -1) { switch (c) { case 'p': if (optarg == NULL || *optarg == '\0') { (void) fprintf(stderr, "Illegal conn: %s\n", optarg); exit(EX_USAGE); } (void) smfi_setconn(optarg); setconn = true; break; } } if (!setconn) { fprintf(stderr, "%s: Missing required -p argument\n", argv[0]); exit(EX_USAGE); } if (smfi_register(smfilter) == MI_FAILURE) { fprintf(stderr, "smfi_register failed\n"); exit(EX_UNAVAILABLE); } return smfi_main(); } sendmail-8.18.1/libmilter/Makefile.m40000644000372400037240000000257614556365350016743 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.96 2013-10-14 16:16:44 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') dnl only required for compilation of EXTRAS define(`confREQUIRE_SM_OS_H', `true') define(`confMT', `true') # sendmail dir SMSRCDIR=ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`library', `libmilter') define(`bldINSTALLABLE', `true') define(`LIBMILTER_EXTRAS', `errstring.c strl.c') APPENDDEF(`confENVDEF', `-DNOT_SENDMAIL -Dsm_snprintf=snprintf') define(`bldSOURCES', `main.c engine.c listener.c worker.c handler.c comm.c smfi.c signal.c sm_gethost.c monitor.c LIBMILTER_EXTRAS ') define(`confBEFORE', `LIBMILTER_EXTRAS') bldPUSH_INSTALL_TARGET(`install-mfapi') bldPRODUCT_END PUSHDIVERT(3) errstring.c: ${LN} ${LNOPTS} ${SRCDIR}/libsm/errstring.c . strl.c: ${LN} ${LNOPTS} ${SRCDIR}/libsm/strl.c . POPDIVERT divert(bldTARGETS_SECTION) # Install the API header files MFAPI= ${SRCDIR}/inc`'lude/libmilter/mfapi.h MFDEF= ${SRCDIR}/inc`'lude/libmilter/mfdef.h install-mfapi: ${MFAPI} if [ ! -d ${DESTDIR}${INCLUDEDIR}/libmilter ]; then mkdir -p ${DESTDIR}${INCLUDEDIR}/libmilter; else :; fi ${INSTALL} -c -o ${INCOWN} -g ${INCGRP} -m ${INCMODE} ${MFAPI} ${DESTDIR}${INCLUDEDIR}/libmilter/mfapi.h ${INSTALL} -c -o ${INCOWN} -g ${INCGRP} -m ${INCMODE} ${MFDEF} ${DESTDIR}${INCLUDEDIR}/libmilter/mfdef.h divert(0) bldFINISH sendmail-8.18.1/libmilter/docs/0000755000372400037240000000000014556365434015705 5ustar xbuildxbuildsendmail-8.18.1/libmilter/docs/figure2.ps0000644000372400037240000001452314556365434017621 0ustar xbuildxbuild%!PS-Adobe-2.0 %%Title: figure2.fig %%Creator: fig2dev Version 3.2.3 Patchlevel %%CreationDate: Tue Jun 6 13:57:47 2000 %%For: sean@host232.Sendmail.COM (Sean O'rourke,5400) %%Orientation: Landscape %%Pages: 1 %%BoundingBox: 0 0 612 792 %%BeginSetup %%IncludeFeature: *PageSize Letter %%EndSetup %%Magnification: 1.5000 %%EndComments /$F2psDict 200 dict def $F2psDict begin $F2psDict /mtrx matrix put /col-1 {0 setgray} bind def /col0 {0.000 0.000 0.000 srgb} bind def /col1 {0.000 0.000 1.000 srgb} bind def /col2 {0.000 1.000 0.000 srgb} bind def /col3 {0.000 1.000 1.000 srgb} bind def /col4 {1.000 0.000 0.000 srgb} bind def /col5 {1.000 0.000 1.000 srgb} bind def /col6 {1.000 1.000 0.000 srgb} bind def /col7 {1.000 1.000 1.000 srgb} bind def /col8 {0.000 0.000 0.560 srgb} bind def /col9 {0.000 0.000 0.690 srgb} bind def /col10 {0.000 0.000 0.820 srgb} bind def /col11 {0.530 0.810 1.000 srgb} bind def /col12 {0.000 0.560 0.000 srgb} bind def /col13 {0.000 0.690 0.000 srgb} bind def /col14 {0.000 0.820 0.000 srgb} bind def /col15 {0.000 0.560 0.560 srgb} bind def /col16 {0.000 0.690 0.690 srgb} bind def /col17 {0.000 0.820 0.820 srgb} bind def /col18 {0.560 0.000 0.000 srgb} bind def /col19 {0.690 0.000 0.000 srgb} bind def /col20 {0.820 0.000 0.000 srgb} bind def /col21 {0.560 0.000 0.560 srgb} bind def /col22 {0.690 0.000 0.690 srgb} bind def /col23 {0.820 0.000 0.820 srgb} bind def /col24 {0.500 0.190 0.000 srgb} bind def /col25 {0.630 0.250 0.000 srgb} bind def /col26 {0.750 0.380 0.000 srgb} bind def /col27 {1.000 0.500 0.500 srgb} bind def /col28 {1.000 0.630 0.630 srgb} bind def /col29 {1.000 0.750 0.750 srgb} bind def /col30 {1.000 0.880 0.880 srgb} bind def /col31 {1.000 0.840 0.000 srgb} bind def end save newpath 0 792 moveto 0 0 lineto 612 0 lineto 612 792 lineto closepath clip newpath 144.0 65.5 translate 90 rotate 1 -1 scale /cp {closepath} bind def /ef {eofill} bind def /gr {grestore} bind def /gs {gsave} bind def /sa {save} bind def /rs {restore} bind def /l {lineto} bind def /m {moveto} bind def /rm {rmoveto} bind def /n {newpath} bind def /s {stroke} bind def /sh {show} bind def /slc {setlinecap} bind def /slj {setlinejoin} bind def /slw {setlinewidth} bind def /srgb {setrgbcolor} bind def /rot {rotate} bind def /sc {scale} bind def /sd {setdash} bind def /ff {findfont} bind def /sf {setfont} bind def /scf {scalefont} bind def /sw {stringwidth} bind def /tr {translate} bind def /tnt {dup dup currentrgbcolor 4 -2 roll dup 1 exch sub 3 -1 roll mul add 4 -2 roll dup 1 exch sub 3 -1 roll mul add 4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb} bind def /shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul 4 -2 roll mul srgb} bind def /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def /$F2psEnd {$F2psEnteredState restore end} def $F2psBegin %%Page: 1 1 10 setmiterlimit 0.09000 0.09000 sc %%Page: 1 1 /Times-Roman ff 180.00 scf sf 1500 3000 m gs 1 -1 sc (header) col4 sh gr /Times-Roman ff 240.00 scf sf 4350 1200 m gs 1 -1 sc (xxfi_header callback) col1 sh gr % Polyline 7.500 slw n 4200 2250 m 6450 2250 l 6450 2700 l 4200 2700 l cp gs col4 s gr /Times-Roman ff 240.00 scf sf 4350 2550 m gs 1 -1 sc (xxfi_header callback) col4 sh gr % Polyline 15.000 slw n 750 2250 m 1650 2250 l 1650 2700 l 750 2700 l cp gs col4 s gr /Times-Roman ff 300.00 scf sf 900 2550 m gs 1 -1 sc (MTA) col4 sh gr % Polyline n 750 900 m 1650 900 l 1650 1350 l 750 1350 l cp gs col1 s gr /Times-Roman ff 300.00 scf sf 900 1200 m gs 1 -1 sc (MTA) col1 sh gr % Arc 7.500 slw gs clippath 2713 1319 m 2667 1357 l 2761 1475 l 2710 1363 l 2808 1437 l cp eoclip n 2981.2 1200.0 318.8 -151.9 151.9 arc gs col0 s gr gr % arrowhead n 2808 1437 m 2710 1363 l 2761 1475 l 2808 1437 l cp gs 0.00 setgray ef gr col0 s % Polyline 15.000 slw gs clippath 3585 1140 m 3585 1260 l 3872 1260 l 3632 1200 l 3872 1140 l cp eoclip n 4200 1200 m 3600 1200 l gs col1 s gr gr % arrowhead n 3872 1140 m 3632 1200 l 3872 1260 l 3872 1140 l cp gs col1 1.00 shd ef gr col1 s % Polyline gs clippath 4065 960 m 4065 840 l 3778 840 l 4018 900 l 3778 960 l cp eoclip n 3450 900 m 4050 900 l gs col1 s gr gr % arrowhead n 3778 960 m 4018 900 l 3778 840 l 3778 960 l cp gs col1 1.00 shd ef gr col1 s % Polyline n 2400 300 m 6600 300 l 6600 3300 l 2400 3300 l cp gs col0 s gr % Polyline 7.500 slw n 2550 750 m 3450 750 l 3450 2700 l 2550 2700 l cp gs col0 s gr % Polyline 15.000 slw gs clippath 4065 2760 m 4065 2640 l 3778 2640 l 4018 2700 l 3778 2760 l cp eoclip n 3450 2700 m 4050 2700 l gs col4 s gr gr % arrowhead n 3778 2760 m 4018 2700 l 3778 2640 l 3778 2760 l cp gs col4 1.00 shd ef gr col4 s % Polyline gs clippath 3585 2340 m 3585 2460 l 3872 2460 l 3632 2400 l 3872 2340 l cp eoclip n 4200 2400 m 3600 2400 l gs col4 s gr gr % arrowhead n 3872 2340 m 3632 2400 l 3872 2460 l 3872 2340 l cp gs col4 1.00 shd ef gr col4 s % Polyline gs clippath 2265 2760 m 2265 2640 l 1978 2640 l 2218 2700 l 1978 2760 l cp eoclip n 1650 2700 m 2250 2700 l gs col4 s gr gr % arrowhead n 1978 2760 m 2218 2700 l 1978 2640 l 1978 2760 l cp gs col4 1.00 shd ef gr col4 s % Polyline gs clippath 1785 2340 m 1785 2460 l 2072 2460 l 1832 2400 l 2072 2340 l cp eoclip n 2400 2400 m 1800 2400 l gs col4 s gr gr % arrowhead n 2072 2340 m 1832 2400 l 2072 2460 l 2072 2340 l cp gs col4 1.00 shd ef gr col4 s % Polyline gs clippath 2265 960 m 2265 840 l 1978 840 l 2218 900 l 1978 960 l cp eoclip n 1650 900 m 2250 900 l gs col1 s gr gr % arrowhead n 1978 960 m 2218 900 l 1978 840 l 1978 960 l cp gs col1 1.00 shd ef gr col1 s % Polyline gs clippath 1785 1140 m 1785 1260 l 2072 1260 l 1832 1200 l 2072 1140 l cp eoclip n 2400 1200 m 1800 1200 l gs col1 s gr gr % arrowhead n 2072 1140 m 1832 1200 l 2072 1260 l 2072 1140 l cp gs col1 1.00 shd ef gr col1 s /Times-Roman ff 300.00 scf sf 3900 600 m gs 1 -1 sc (Filter) col0 sh gr /Times-Roman ff 180.00 scf sf 3450 3000 m gs 1 -1 sc (callback \(arguments\)) col4 sh gr /Times-Roman ff 180.00 scf sf 3900 1950 m gs 1 -1 sc (optional library calls,) col4 sh gr /Times-Roman ff 180.00 scf sf 3900 2175 m gs 1 -1 sc (return code) col4 sh gr /Times-Roman ff 180.00 scf sf 1500 2100 m gs 1 -1 sc (responses) col4 sh gr /Times-Roman ff 240.00 scf sf 2700 2085 m gs 1 -1 sc (Milter) col0 sh gr /Times-Roman ff 240.00 scf sf 2700 2400 m gs 1 -1 sc (library) col0 sh gr % Polyline 7.500 slw n 4200 900 m 6450 900 l 6450 1350 l 4200 1350 l cp gs col1 s gr $F2psEnd rs showpage sendmail-8.18.1/libmilter/docs/figure1.jpg0000644000372400037240000005163614556365434017764 0ustar xbuildxbuildJFIFImage generated by Aladdin Ghostscript (device=ppmraw) CREATOR: XV Version 3.10a Rev: 12/29/94 (jp-extension 5.3.3 + PNG patch 1.2d) Quality = 95, Smoothing = 30 C     C  -" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?(((fTRԓK\K&OڗCNW>.p+Znr?RUZ웵Gm?Q?Wa.~͏c ?bRO#ޟWi_^m¥𭧊|&JV6*Mb e*3 %/JfhL;ȶ:70v)|s x'oc+EԼ裉|6NA=J̣գ'd+=tya<˕8N{.WyZw+|\O\h O- 1jnWzcj[ns=fqa毫41V͒ Es࿁OīA5A][.5뿳##[yIU)>bZ*уJRe8(I;+#JJR潜Zg )7Y56ro4ߍz"FcG2&B[;sWoJm#CAiiIH㶄"7.t+y}Y.F6<2.>V9+F\7K Rpu+{7{q􂼝M|C:0StW54Zu/H+=.|e6m<0/5DlS ZZؼ0S3rg$S~WhZ_;&vp?2tVcvyc[Pb\Sۅs?|xTMů]9 N*#+|]UYC 4 MW5O"qaHq\7MPq8J3ϑu[]]sϸ6̱yF*J\M|8{Wy^8.xKO==Ǎ$Dtү)h$خ̌:'oKt9o-[l.7Kk]FXiGa7sc+,22I$rC+Um8>Z?+Y?gjym>6l6A";3 =%įZOfRRvT\q䆫nݖٵJu9測bRmN1黮Vq|M6gRy}n3۷|._'?gOĖ_e͍ݲV\M Xc;+𯊴?hPx÷}&6GGV*0 dee` h׭ $b%ZKriѥcۧSQjXY뼣)4J"> EI<\KW/;on۹wcr׍ WĚMZ}R;eP"\ "]6Rf'iC|sZSiS>UYWi%#c8qcW62Co.ШCßk{¿|3n,%MY' 8=hg]ʮ=U]t18|LyIy4#c!BfZz܏w,lC-Hv~i>|_[N|:ѵ]r|\_iYdPg_ekI?^-pC7A[ VgO oߴ?h7goE 6\;$#`~O 5{v_~~ߺ|} )Ovt _OWЦtK(H2K9T4>njuڇ[K/j]Rְum2LkbeAö?g4Cxu^|nco_\ӿtteD 1a")?On?SHE3wlWz|WWVV@L۩&k-- >>~)D ?k#aHe|$5_'t >g}Ka[HCo? |=wDž<75ʺR&6$ άPpe+<;ߊ? j/4wEƳs4mcU %A(t`AI,i4m*W4ς~=@X,yhXE ik˹?N/]V__\6_eI( Q^Q@0EPg<hx{Ş+ hIbk] 1|{? MyIcFr0 XPN@o/|O񝞗i1{F핚;KX4W2o.同"1xcH񮷫&d#xGMkcK+Fi᳆P(C2_B6aMb)l8g)[\7LY~[z#9y7oVG{_jگٓ^24c5:MR $%ڇ4WgBwK3)ǯtTw|.~ x'Ioc|vU]eRkٓSs'[X_xGOЗV?8>-m;o/~76'hZV)Kϕ bdi`9JI[3vYmS _?_W G?»)-|5'Rm7fKkiH{e0K$lc-8 T T&z>}qZM ȁ C$9b )R qij  wF[`w^/_oH5WiT:mėn#{朴$cpVl#JIHo_$G_? |Y'< k-^u7P{rG٧GK۫gX'fVBpî;M-SvXS4߂|?ghG~x_|QUmm7\s2*-eyc$-۫?bN~ /7-O?~uxBg:w?>;~I<3wy?t{^&//7-OچǟS :L#a8~!t5~|>| Ƴ:.>#=֑#DΪ̅,H@vA6./5Zƛ V7f9%8iW7- n@h0x,^>[+վuoE%(]8c2UFI=)+P񦕨jz:5Ͳ#\E-8e N׊o пW_5/ 9}o.i"I[h"5e]<¥([??_ᖭ/.B5ojv?u|}q$θT_.$tc)1%I-E%~ia"+c~ ;c5O{݈%}ˉZ2n!B$~xFo[NckYDڭ|6A8xicVWh,%o5R7OK(+~ ~|?Q?~xzMI d܌2U^^,i}.Keav Em W`E,M|b()ZQm3VۡIM8f8 D֛ *H҃jvZIIs?i>wut{w_.?Wgvv_G?o|>ؿ⧈c/-,d&uyp_VP"e_+__< ß_H 6Ѽa6kow=Gp3+qP2d7[VK.F&jw[{+9Rmv$]X_e~?z ?(~ IkٷvWBO,jZw[dH^H!+Ws"d[OKMtk]"k&_jZ\ Fj8PMaQ5ݚ.YA2U_Ҵly/,]mm (`$GνΓGk*O[l׉Ce;Ŗqa{m G& :\ inK* H#:*9v2,uIS'%NѽYr5Ғo529;t_+n[5xFӣWXix/ ^<&?Σiw1-W/72MIzoO hӮҮPu]RPqwu$8#ZGbjBF h|t#U ZVuU`to-Mz(8:/׏,,%*~vەN[͵zF-T< wYIUҤ&%vEU1k 4nhu;3EU1k 4nh=N.2HF*X¼3}@pH^kz1I6` bh$N/jt0)KN2ey=;Q=p!Ç c&uWߵ/Z爼9j6^n%XcxCFDeT#?W~C'? :Eƛ\̑®pd y=;Q=p!Ç/ែ>x_l_U7_ښ-E+vxf*\#s zû^x.GX໿15ŵ*C+>dI  ly7< GǨ8~ӿ{O@[O_B-/P?~?z?o,߷䟈ww_}kr~8O|'}ƿ|%]iz!/\-vs% xټk[HLJ.n-60^ Y𯊼3 4_,mVK4ەEHC+) 85~/ 7*A`+(lɾkZ~!_W׀6?5-?/ը LBn(nө['O[EYc34K_ =?* 4j nmũ{ V64@EnjIy$Y>>6Ol :8ǃxi&6~Wv3W_Ŀ9 =i|/M~ƾ(5af.-|8\m+A m_K0ih?b>+cυwcu7:dZ :2F*YTx; W$q~: U~e_ V_.i ou/1o|BV]r\ow2 &eeY*YX8 ?&O_*4@֏ VGAO _O G ;(4q?ӿ?Z?/ ZJxq.kiD?lW'w WԿF_dτ"uo[nOh=qarrOd+=FzW~k6ZOMP]A'Ē)WFV*T8=k7DxS?Tg|%ׇZS7HmZD:$r~|X%sχ߅voxvo4o`uVEReeCpM|7m]xV_L>GCq²$Z{ݭl4ʰD;gr7)k J{3iTZ kCsy" GV ? c2n˸?_֩ ~ i>K@MnrS1Ijgص>|Vj/ {w%~92kn%\=Bqxd1POf6G :Nba!ࢺ?? >hI}bmlj+kZ-v{2!gr\jn[bv/?lg]e=߈|$ :X`ScIIp4`g18~Ͽj Gš'19h7tb)|I5TmU rkUi7 5gxlv+Jªʢ)b2B(039]:¬]қHԽIp/qF<ќn~륇N;wVoM?f?~ʿ i#!x3W~hW[[jS>14>n,&|^l:ҿc%g[Z%'4˫i;F%6VpNH m9oર? 4,^֏O-q믎u}ugHb,H<,G*G3xKkT[k. 1xjڴƭH^J )OTj^MrT)”dRx~vQ_X OUprH #p^gcw=f./-;D[0h;y|#^"u?UҮ4 «WQ=EYKG,r()"3hx:o4kkYƗZ0Yn@!f 63ߋ7 ѧRi{qqxxZQm^/_Iy9'__gjw/FUK5]j^"i 6)ҡ5T~c/m)W1I²6#GCZN~=:p *]>=4c/->~𷈵|CĚeŵcs5,GCi9 )tߴzM7^П[ͪ]mZB ܛh3핌Z7_C↑G^`XյΣy2.$C$[%fvX`A3oO qj3Lu3MW??8j- %/­#m3_M}Gf ]˪Y!u.eVi.XTc~~՟gINjOu|E}m;NB-O1u%%C4,Q+ t#ÚCqC+8t-ڡPo$qb@ꮥd(S[ojiz{}*7ï6u߶#:|ȌmKɁ+s%iKjGmừhW @^M''%?boZ^{jzg4NE`YH AWkI?@-pC7A^^pC7A^@xcM_RZ &i~@__qH?hGƚW#üho?}w~6o(gn?4~'Ծ|->xWwwׂ{R8-v1*.g$[Q?gG~$7{D]ZUaga{<%̓bK+1XB@~7<3=C}_k:fl]G,nF+A;Q,|M_!>j bčnXtk}r-ƒ V5#][8,2b?&~#/mS׵/!"UQI4#UD͵T(o5R7OK(+õ]/w_΍hsZ};+k!":yW0C 2E{e3+k\Rff{^3Z /w5?"OoSW^͚-/' /w5?"OoSWG͚-/'Cxw2OH[d=QodB?-#s4_fa!9_ 4|-O—ח:g|?g:O,ЬH2r  '+qbεYsNM͚87^!OkM;uv^!VguEfhnU^KY$wE9nmo|X~xGV,~/>m#drXKW,Ox:#3,volmn"ܟiˌMnYwyqȏ <>QM[e$*}윣nQq|י{=CS١:-Y弦6\Q\-ƍMI#c*KwIitgA2vK$)>kku>IgM2R^h-`HcyYUUA$uQ@xcM_RZ &i~@_< S3\P/躦qteOј@S63g_/hi"ߴne_hi/+k+m,h:aM:46O9Wde2pDe@9m <ϣO eZMusy5İ-įbr }1¹m +oAw "j0mu/e~l('3l)p0m~+u߆^;u;i:a?yJ0I6D%x؜ LNJTjq+&)oYaޔ_#t:Z)TQEYQ@Q@Q@Q@Q@xcM_RZ &i~@__ >~/_~\'4 Tzγ]~ŤK|Cj5$# h_X_G*߳1|az5+:BMOk8.\-$X?L|QƒA#U?5ox_N+ /F죴Ҵ.!BG Q j*$'ſRoO <+>n > x'©iqɨ[),ȫ3;nHK¾σ<3?zVQYznn[[ġ#(DEP\jzocmkIImRiI))ј@݇(ОiB/oz/ԏٚW[5(Eⰴt]9m~SYs_ $xve{Mi mx׆੟ό?ch5m'SL4߀~, 4sE"idVRApkO={0_w ?+cML $罒XH).Pr_'Q8}6 橆xk%?i6\ڌIOSiQ' {i%5{$z?>/e?>/eR~'||JD#m>ZɎ =RvCTL֗_i¾x&7xKj̐ nI&%|BcO>ЁO>Ё]cY+'ԗ~.m7@-eO.>{HSg`J \y?|Io%nYK!_#~T?>/e$R(Y<*Xpʩb^|m<{K7V LTer -I/|.77H ,=FPo44Q[jMK,RlUr2 x&? J+?oM7O?Kja8qd?Q]W|M~t i-^dhun|D%dgWg~W?P#wsQ|Sj?Eo-ŜNn!?#GsIQsO<%5? 'OHOZzd7VOG,N˂ȲH kH?4R'n:V*z׿cثÚ5CAcl̖^ P")f8@'_MB*v]W߹򜞞 SZd QVX6ۍ_m+vƏm+vƾr%5u jgOu4끟k{XVPJn $o|zFCMj.$kTD]<Ā%$k>|,g|\- ek\v֑G M$xPƨѾYRzsSK1ujr'ҥVz]}晇G)ch)E9TSYrw>ҿ'ojH.nk]?*~g?|5|<ѵ:.|j}$A*#?(:_nMRqMvV6v<{W|=ֿQ-$m5 vĪKg#L  8<: j{^&[ (dÿnB+_w٦a8bcc}beRGY?IdO&M׈3PCJ_jL%boH6}ۓowß?xR{kBu&}mww R[i[ۉ63F]+~[ B/w?|p\]Ajp~r_)?:c<$_3E.0&,lYZD(IW?,^dM Eu +]ϭjfڥHoկZdX%ο_e<߳Gnq66Mk8Gf1_?N#CyZ~кU>5M3Eѷ^ZdR)M* 3FiVq,i ;E9Abor]Fm[ķQ^#զuߪa/.%ٌP,>ֶ*,(}|OJyV4L.|RU O!|]Ѯ'xac}yN^[׃T1G+J,4޺7ZI?5-ZHf7=Z8QkI?@-pC7A^^pC7A^@xcM_RZ &i~@EPEPI4-??/k-WÏ|a? {gĿ^,CiGyF"f.Ce~:~!6_-ź nZMڂI!Ym#]cb+MoFMks_$9o5r4)4m=Ψ ߱zšF\iך-F ߷$cuۏ5oY2?hojqCL$7Wf|+?>͛|cd~7XKںVZWv;Uj*QRVTg:s Tb (ۈc^u~曠x[C)Ե~%jw\|)c ;~+4 ̶+66yP#w:;^'QxQMNX;BSv,̬Yu~~/?55#=LOӦ]- ʍl$BY &(se}qJjz.y{5~z_U"eby/aRҥ5RIS\2.K|%c 1^2_Gm5ٵӵE͚kY۾bi@]#)tWT@ށ gR3;S++xyV~}6ǙGd]t0SХiEMm'ՒimGNk|53ΕjZr҄&JrRnrKXAE6ۻ (qw0=˔ `Y> |\t2;]3K~>x {8#Pi5PU@(l~ϟ?iĆ,l~ϟ?iĆ,l~ϟ?iĆ,l~ϟ?iĆ,l~ϟ?iĆ,l~ϟ?iĆ,l~ϟ?iĆ,$j~2Iߍ%X/Pφ^ ->hmhvw֖,QGFg}71,qI淨 v|)oa5/ |E~ST^'[%LIQPº|EG+)o14UPº|EG+)o14UPe۷uOW 9Akw?z<T.b|+ ⾟(((Ϗo:|s:τǹCs >yRI&vݯ_Cm/ ޏCm/ ޽j_Rf&;}Qz_Cm/ ޏCm/ ޽j>KdϪ?OCKwE[տ>)W⟉>.|\ږT0M9o% DWٚr^E8q^R}ٻlɫy\-L?-8ƢQ-Pm)FVj(<(((((((sendmail-8.18.1/libmilter/docs/smfi_replacebody.html0000644000372400037240000000556614556365350022113 0ustar xbuildxbuild smfi_replacebody

smfi_replacebody

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_replacebody(
	SMFICTX *ctx,
	unsigned char *bodyp,
	int bodylen
);
Replace message-body data.
DESCRIPTION
Called When Called only from xxfi_eom. smfi_replacebody may be called more than once.
Effects smfi_replacebody replaces the body of the current message. If called more than once, subsequent calls result in data being appended to the new body.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
bodyp A pointer to the start of the new body data, which does not have to be null-terminated. If bodyp is NULL, it is treated as having length == 0. Body data should be in CRLF form.
bodylen The number of data bytes pointed to by bodyp.
RETURN VALUES smfi_replacebody fails and returns MI_FAILURE if:
  • bodyp == NULL and bodylen > 0.
  • Changing the body in the current connection state is invalid.
  • A network error occurs.
  • SMFIF_CHGBODY is not set.
Otherwise, it will return MI_SUCCESS.
NOTES
  • Since the message body may be very large, calling smfi_replacebody may significantly affect filter performance.
  • If a filter sets SMFIF_CHGBODY but does not call smfi_replacebody, the original body remains unchanged.
  • For smfi_replacebody, filter order is important. Later filters will see the new body contents created by earlier ones.
  • A filter which calls smfi_replacebody must have set the SMFIF_CHGBODY flag.
Copyright (c) 2000-2001, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/figure2.fig0000644000372400037240000000420214556365350017732 0ustar xbuildxbuild#FIG 3.2 Landscape Center Inches Letter 100.00 Single -2 1200 2 5 1 0 1 0 7 50 0 -1 0.000 0 0 1 0 2981.250 1200.000 2700 1050 3300 1200 2700 1350 1 1 1.00 60.00 120.00 6 4200 900 6450 1350 2 2 0 1 1 7 50 0 -1 0.000 0 0 7 0 0 5 4200 900 6450 900 6450 1350 4200 1350 4200 900 4 0 1 50 0 0 16 0.0000 4 195 2040 4350 1200 xxfi_header callback\001 -6 6 4200 2250 6450 2700 2 2 0 1 4 7 50 0 -1 0.000 0 0 7 0 0 5 4200 2250 6450 2250 6450 2700 4200 2700 4200 2250 4 0 4 50 0 0 16 0.0000 4 195 2040 4350 2550 xxfi_header callback\001 -6 6 600 2100 1800 2850 2 2 0 2 4 7 50 0 -1 0.000 0 0 7 0 0 5 750 2250 1650 2250 1650 2700 750 2700 750 2250 4 0 4 50 0 0 20 0.0000 4 195 645 900 2550 MTA\001 -6 6 600 750 1800 1500 2 2 0 2 1 7 50 0 -1 0.000 0 0 7 0 0 5 750 900 1650 900 1650 1350 750 1350 750 900 4 0 1 50 0 0 20 0.0000 4 195 645 900 1200 MTA\001 -6 2 1 0 2 1 7 50 0 -1 0.000 0 0 -1 1 0 2 1 1 2.00 120.00 240.00 4200 1200 3600 1200 2 1 0 2 1 7 50 0 -1 0.000 0 0 -1 1 0 2 1 1 2.00 120.00 240.00 3450 900 4050 900 2 2 0 2 0 7 50 0 -1 0.000 0 0 -1 0 0 5 2400 300 6600 300 6600 3300 2400 3300 2400 300 2 2 0 1 0 7 50 0 -1 0.000 0 0 -1 0 0 5 2550 750 3450 750 3450 2700 2550 2700 2550 750 2 1 0 2 4 7 50 0 -1 0.000 0 0 -1 1 0 2 1 1 2.00 120.00 240.00 3450 2700 4050 2700 2 1 0 2 4 7 50 0 -1 0.000 0 0 -1 1 0 2 1 1 2.00 120.00 240.00 4200 2400 3600 2400 2 1 0 2 4 7 50 0 -1 0.000 0 0 -1 1 0 2 1 1 2.00 120.00 240.00 1650 2700 2250 2700 2 1 0 2 4 7 50 0 -1 0.000 0 0 -1 1 0 2 1 1 2.00 120.00 240.00 2400 2400 1800 2400 2 1 0 2 1 7 50 0 -1 0.000 0 0 -1 1 0 2 1 1 2.00 120.00 240.00 1650 900 2250 900 2 1 0 2 1 7 50 0 -1 0.000 0 0 -1 1 0 2 1 1 2.00 120.00 240.00 2400 1200 1800 1200 4 0 0 50 0 0 20 0.0000 4 195 630 3900 600 Filter\001 4 0 4 50 0 0 12 0.0000 4 180 1620 3450 3000 callback (arguments)\001 4 0 4 50 0 0 12 0.0000 4 180 1575 3900 1950 optional library calls,\001 4 0 4 50 0 0 12 0.0000 4 135 855 3900 2175 return code\001 4 0 4 50 0 0 12 0.0000 4 135 780 1500 2100 responses\001 4 0 0 50 0 0 16 0.0000 4 165 645 2700 2085 Milter\001 4 0 0 50 0 0 16 0.0000 4 225 675 2700 2400 library\001 4 0 4 50 0 0 12 0.0000 4 135 510 1500 3000 header\001 sendmail-8.18.1/libmilter/docs/smfi_main.html0000644000372400037240000000265314556365350020540 0ustar xbuildxbuild smfi_main

smfi_main

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_main(
);
Hand control to libmilter event loop.
DESCRIPTION
Called When smfi_main is called after a filter's initialization is complete.
Effects smfi_main hands control to the Milter event loop.
RETURN VALUES smfi_main will return MI_FAILURE if it fails to establish a connection. This may occur for any of a variety of reasons (e.g. invalid address passed to smfi_setconn). The reason for the failure will be logged. Otherwise, smfi_main will return MI_SUCCESS.
Copyright (c) 2000, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_chgheader.html0000644000372400037240000000777214556365350021535 0ustar xbuildxbuild smfi_chgheader

smfi_chgheader

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_chgheader(
	SMFICTX *ctx,
	char *headerf,
	mi_int32 hdridx,
	char *headerv
);
Change or delete a message header.
DESCRIPTION
Called When Called only from xxfi_eom.
Effects Changes a header's value for the current message.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
headerf The header name, a non-NULL, null-terminated string.
hdridx Header index value (1-based). A hdridx value of 1 will modify the first occurrence of a header named headerf. If hdridx is greater than the number of times headerf appears, a new copy of headerf will be added.
headerv The new value of the given header. headerv == NULL implies that the header should be deleted.
RETURN VALUES smfi_chgheader will return MI_FAILURE if
  • headerf is NULL
  • Modifying headers in the current connection state is invalid.
  • Memory allocation fails.
  • A network error occurs.
  • SMFIF_CHGHDRS is not set.
Otherwise, it returns MI_SUCCESS.
NOTES
  • While smfi_chgheader may be used to add new headers, it is more efficient and far safer to use smfi_addheader.
  • A filter which calls smfi_chgheader must have set the SMFIF_CHGHDRS flag.
  • For smfi_chgheader, filter order is important. Later filters will see the header changes made by earlier ones.
  • Neither the name nor the value of the header is checked for standards compliance. However, each line of the header must be under 2048 characters and should be under 998 characters. If longer headers are needed, make them multi-line. To make a multi-line header, insert a line feed (ASCII 0x0a, or \n in C) followed by at least one whitespace character such as a space (ASCII 0x20) or tab (ASCII 0x09, or \t in C). The line feed should NOT be preceded by a carriage return (ASCII 0x0d); the MTA will add this automatically. It is the filter writer's responsibility to ensure that no standards are violated.
  • The MTA adds a leading space to a header value unless the flag SMFIP_HDR_LEADSPC is set, in which case the milter must include any desired leading spaces itself.
EXAMPLE 
  int ret;
  SMFICTX *ctx;

  ...

  ret = smfi_chgheader(ctx, "Content-Type", 1,
                       "multipart/mixed;\n\tboundary=\"foobar\"");
Copyright (c) 2000-2003, 2009 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/xxfi_eoh.html0000644000372400037240000000251214556365350020401 0ustar xbuildxbuild xxfi_eoh

xxfi_eoh

SYNOPSIS 
#include <libmilter/mfapi.h>
sfsistat (*xxfi_eoh)(
	SMFICTX *ctx
);
Handle the end of message headers.
DESCRIPTION
Called When xxfi_eoh is called once after all headers have been sent and processed.
Default Behavior Do nothing; return SMFIS_CONTINUE.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
Copyright (c) 2000, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/overview.html0000644000372400037240000002021114556365350020432 0ustar xbuildxbuild Technical Overview

Technical Overview

Contents

Initialization

In addition to its own initialization, libmilter expects a filter to initialize several parameters before calling smfi_main:
  • The callbacks the filter wishes to be called, and the types of message modification it intends to perform (required, see smfi_register).
  • The socket address to be used when communicating with the MTA (required, see smfi_setconn).
  • The number of seconds to wait for MTA connections before timing out (optional, see smfi_settimeout).

If the filter fails to initialize libmilter, or if one or more of the parameters it has passed are invalid, a subsequent call to smfi_main will fail.

Control Flow

The following pseudocode describes the filtering process from the perspective of a set of N MTA's, each corresponding to a connection. Callbacks are shown beside the processing stages in which they are invoked; if no callbacks are defined for a particular stage, that stage may be bypassed. Though it is not shown, processing may be aborted at any time during a message, in which case the xxfi_abort callback is invoked and control returns to MESSAGE. 

For each of N connections
{
	For each filter
		negotiate MTA/milter capabilities/requirements (xxfi_negotiate)
	For each filter
		process connection (xxfi_connect)
	For each filter
		process helo/ehlo (xxfi_helo)
MESSAGE:For each message in this connection (sequentially)
	{
		For each filter
			process sender (xxfi_envfrom)
		For each recipient
		{
			For each filter
				process recipient (xxfi_envrcpt)
		}
		For each filter
			process DATA (xxfi_data)
		For each filter
		{
			For each header
				process header (xxfi_header)
			process end of headers (xxfi_eoh)
			For each body block
				process this body block (xxfi_body)
			process end of message (xxfi_eom)
		}
	}
	For each filter
		process end of connection (xxfi_close)
}

Note: Filters are contacted in order defined in config file.

To write a filter, a vendor supplies callbacks to process relevant parts of a message transaction. The library then controls all sequencing, threading, and protocol exchange with the MTA. Figure 3 outlines control flow for a filter process, showing where different callbacks are invoked.

SMTP CommandsMilter Callbacks
(open SMTP connection)xxfi_connect
HELO ...xxfi_helo
MAIL From: ...xxfi_envfrom
RCPT To: ...xxfi_envrcpt
[more RCPTs][xxfi_envrcpt]
DATAxxfi_data
Header: ...xxfi_header
[more headers][xxfi_header]
 xxfi_eoh
body... xxfi_body
[more body...][xxfi_body]
.xxfi_eom
QUITxxfi_close
(close SMTP connection) 
Figure 3: Milter callbacks related to an SMTP transaction.

Note that although only a single message is shown above, multiple messages may be sent in a single connection. Note also that a message or connection may be aborted by either the remote host or the MTA at any point during the SMTP transaction. If this occurs during a message (between the MAIL command and the final "."), the filter's xxfi_abort routine will be called. xxfi_close is called any time the connection closes.

Multithreading

A single filter process may handle any number of connections simultaneously. All filtering callbacks must therefore be reentrant, and use some appropriate external synchronization methods to access global data. Furthermore, since there is not a one-to-one correspondence between threads and connections (N connections mapped onto M threads, M <= N), connection-specific data must be accessed through the handles provided by the Milter library. The programmer cannot rely on library-supplied thread-specific data blocks (e.g., pthread_getspecific(3)) to store connection-specific data. See the API documentation for smfi_setpriv and smfi_getpriv for details.

Resource Management

Since filters are likely to be long-lived, and to handle many connections, proper deallocation of per-connection resources is important. The lifetime of a connection is bracketed by calls to the callbacks xxfi_connect and xxfi_close. Therefore connection-specific resources (accessed via smfi_getpriv and smfi_setpriv) may be allocated in xxfi_connect, and should be freed in xxfi_close. For further information see the discussion of message- versus connection-oriented routines. In particular, note that there is only one connection-specific data pointer per connection.

Each message is bracketed by calls to xxfi_envfrom and xxfi_eom (or xxfi_abort), implying that message-specific resources can be allocated and reclaimed in these routines. Since the messages in a connection are processed sequentially by each filter, there will be only one active message associated with a given connection and filter (and connection-private data block). These resources must still be accessed through smfi_getpriv and smfi_setpriv, and must be reclaimed in xxfi_abort.

Signal Handling

libmilter takes care of signal handling, the filters are not influenced directly by signals. There are basically two types of signal handlers:
  1. Stop: no new connections from the MTA will be accepted, but existing connections are allowed to continue.
  2. Abort: all filters will be stopped as soon as the next communication with the MTA happens.
Filters are not terminated asynchronously (except by signals that can't be caught). In the case of Abort the xxfi_abort callback is usually invoked if there is an active transaction. However, if an invoked callback takes too long to execute (the maximum time Abort waits is currently 5s) then the filter is simply terminated, i.e., neither the xxfi_abort callback nor the xxfi_close callback is invoked.
Copyright (c) 2000, 2001, 2003, 2006, 2018 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_stop.html0000644000372400037240000000376214556365350020603 0ustar xbuildxbuild smfi_stop

smfi_stop

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_stop(void);
Shutdown the milter. No connections will be accepted after this call.
DESCRIPTION
Called When Called from any of the Callback routines or any error-handling routines at any time.
Effects The smfi_stop routine prevents that new connections will be accepted, however, it does not wait for existing connections (threads) to terminate. It will cause smfi_main to return to the calling program, which may then exit or warm-restart.
ARGUMENTS
ArgumentDescription
void Takes no argument.
RETURN VALUES smfi_stop always returns SMFI_CONTINUE. But note:
  • Another internal routine may already have asked the milter to abort.
  • Another routine may already have asked the milter to stop.
  • There is no way to cancel the stop process once it has begun.
Copyright (c) 2003, 2005 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_addrcpt.html0000644000372400037240000000403114556365350021225 0ustar xbuildxbuild smfi_addrcpt

smfi_addrcpt

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_addrcpt(
	SMFICTX *ctx,
	char *rcpt
);
Add a recipient for the current message.
DESCRIPTION
Called When Called only from xxfi_eom.
Effects Add a recipient to the message envelope.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
rcpt The new recipient's address.
RETURN VALUES smfi_addrcpt will fail and return MI_FAILURE if:
  • rcpt is NULL.
  • Adding recipients in the current connection state is invalid.
  • A network error occurs.
  • SMFIF_ADDRCPT is not set.
Otherwise, it will return MI_SUCCESS.
NOTES A filter which calls smfi_addrcpt must have set the SMFIF_ADDRCPT flag.
Copyright (c) 2000, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/xxfi_connect.html0000644000372400037240000000723414556365350021265 0ustar xbuildxbuild xxfi_connect

xxfi_connect

SYNOPSIS 
#include <libmilter/mfapi.h>
sfsistat (*xxfi_connect)(
        SMFICTX    *ctx,
        char       *hostname,
        _SOCK_ADDR *hostaddr);
DESCRIPTION
Called When Once, at the start of each SMTP connection.
Default Behavior Do nothing; return SMFIS_CONTINUE.
ARGUMENTS
ArgumentDescription
ctx the opaque context structure.
hostname the host name of the message sender, as determined by a reverse lookup on the host address. If the reverse lookup fails or if none of the IP addresses of the resolved host name matches the original IP address, hostname will contain the message sender's IP address enclosed in square brackets (e.g. `[a.b.c.d]'). If the SMTP connection is made via stdin the value is localhost.
hostaddr the host address, as determined by a getpeername(2) call on the SMTP socket. NULL if the type is not supported in the current version or if the SMTP connection is made via stdin.
NOTES If an earlier filter rejects the connection in its xxfi_connect() routine, this filter's xxfi_connect() will not be called.
Copyright (c) 2000-2001, 2003, 2007 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_setconn.html0000644000372400037240000000536514556365350021270 0ustar xbuildxbuild smfi_setconn

smfi_setconn

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_setconn(
	char *oconn;
);
Set the socket through which this filter should communicate with sendmail.
DESCRIPTION
Called When smfi_setconn must be called once before smfi_main.
Effects Sets the socket through which the filter communicates with sendmail.
ARGUMENTS
ArgumentDescription
oconn The address of the desired communication socket. The address should be a NULL-terminated string in "proto:address" format:
  • {unix|local}:/path/to/file -- A named pipe.
  • inet:port@{hostname|ip-address} -- An IPV4 socket.
  • inet6:port@{hostname|ip-address} -- An IPV6 socket.
RETURN VALUES smfi_setconn will not fail on an invalid address. The failure will only be detected in smfi_main. Nevertheless, smfi_setconn may fail for other reasons, e.g., due to a lack of memory.
NOTES
  • If possible, filters should not run as root when communicating over unix/local domain sockets.
  • Unix/local sockets should have their permissions set to 0600 (read/write permission only for the socket's owner) or 0660 (read/write permission for the socket's owner and group) which is useful if the sendmail RunAsUser option is used. The permissions for a unix/local domain socket are determined as usual by umask, which should be set to 007 or 077. Note some operating systems (e.g, Solaris) don't use the permissions of the socket. On those systems, place the socket in a protected directory.
Copyright (c) 2000, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_register.html0000644000372400037240000001405614556365350021440 0ustar xbuildxbuild smfi_register

smfi_register

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_register(
	smfiDesc descr
);
Register a set of filter callbacks.
DESCRIPTION
Called When smfi_register must be called before smfi_main
Effects smfi_register creates a filter using the information given in the smfiDesc argument. Multiple (successful) calls to smfi_register within a single process are not allowed, i.e., only one filter can be successfully registered. Note, however, that the library may not check whether this restriction is obeyed.
ARGUMENTS
ArgumentDescription
descr A filter descriptor of type smfiDesc describing the filter's functions. The structure has the following members: 
struct smfiDesc
{
	char		*xxfi_name;	/* filter name */
	int		xxfi_version;	/* version code -- do not change */
	unsigned long	xxfi_flags;	/* flags */

	/* connection info filter */
	sfsistat	(*xxfi_connect)(SMFICTX *, char *, _SOCK_ADDR *);
	/* SMTP HELO command filter */
	sfsistat	(*xxfi_helo)(SMFICTX *, char *);
	/* envelope sender filter */
	sfsistat	(*xxfi_envfrom)(SMFICTX *, char **);
	/* envelope recipient filter */
	sfsistat	(*xxfi_envrcpt)(SMFICTX *, char **);
	/* header filter */
	sfsistat	(*xxfi_header)(SMFICTX *, char *, char *);
	/* end of header */
	sfsistat	(*xxfi_eoh)(SMFICTX *);
	/* body block */
	sfsistat	(*xxfi_body)(SMFICTX *, unsigned char *, size_t);
	/* end of message */
	sfsistat	(*xxfi_eom)(SMFICTX *);
	/* message aborted */
	sfsistat	(*xxfi_abort)(SMFICTX *);
	/* connection cleanup */
	sfsistat	(*xxfi_close)(SMFICTX *);

	/* any unrecognized or unimplemented command filter */
	sfsistat	(*xxfi_unknown)(SMFICTX *, const char *);

	/* SMTP DATA command filter */
	sfsistat	(*xxfi_data)(SMFICTX *);

	/* negotiation callback */
	sfsistat (*xxfi_negotiate)(SMFICTX *,
		unsigned long, unsigned long, unsigned long, unsigned long,
		unsigned long *, unsigned long *, unsigned long *, unsigned long *);
};
A NULL value for any callback function indicates that the filter does not wish to process the given type of information, simply returning SMFIS_CONTINUE.
RETURN VALUES smfi_register may return MI_FAILURE for any of the following reasons:
  • memory allocation failed.
  • incompatible version or illegal flags value.
NOTES The xxfi_flags field should contain the bitwise OR of zero or more of the following values, describing the actions the filter may take:
FlagDescription
SMFIF_ADDHDRS This filter may add headers.
SMFIF_CHGHDRS This filter may change and/or delete headers.
SMFIF_CHGBODY This filter may replace the body during filtering. This may have significant performance impact if other filters do body filtering after this filter.
SMFIF_ADDRCPT This filter may add recipients to the message.
SMFIF_ADDRCPT_PAR This filter may add recipients including ESMTP args.
SMFIF_DELRCPT This filter may remove recipients from the message.
SMFIF_QUARANTINE This filter may quarantine a message.
SMFIF_CHGFROM This filter may change the envelope sender (MAIL).
SMFIF_SETSYMLIST This filter can send a set of symbols (macros) that it wants.
Copyright (c) 2000-2001, 2003, 2006 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/xxfi_envfrom.html0000644000372400037240000000542014556365350021303 0ustar xbuildxbuild xxfi_envfrom

xxfi_envfrom

SYNOPSIS 
#include <libmilter/mfapi.h>
sfsistat (*xxfi_envfrom)(
	SMFICTX *ctx,
	char **argv
);
Handle the MAIL (envelope sender) command.
DESCRIPTION
Called When xxfi_envfrom is called once at the beginning of each message (MAIL command), before xxfi_envrcpt.
Default Behavior Do nothing; return SMFIS_CONTINUE.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
argv Null-terminated SMTP command arguments; argv[0] is guaranteed to be the sender address. Later arguments are the ESMTP arguments.
SPECIAL RETURN VALUES
Return valueDescription
SMFIS_TEMPFAIL Reject this sender and message with a temporary error; a new sender (and hence a new message) may subsequently be specified. xxfi_abort is not called.
SMFIS_REJECT Reject this sender and message; a new sender/message may be specified. xxfi_abort is not called.
SMFIS_DISCARD Accept and silently discard this message. xxfi_abort is not called.
SMFIS_ACCEPT Accept this message. xxfi_abort is not called.
NOTES For more details on ESMTP responses, please see RFC 1869.
Copyright (c) 2000, 2003, 2006 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_settimeout.html0000644000372400037240000000412614556365350022013 0ustar xbuildxbuild smfi_settimeout

smfi_settimeout

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_settimeout(
	int otimeout
);
Set the filter's I/O timeout value.
DESCRIPTION
Called When smfi_settimeout should only be called before smfi_main.
Effects Sets the number of seconds libmilter will wait for an MTA communication (read or write) before timing out. If smfi_settimeout is not called, a default timeout of 7210 seconds is used.
ARGUMENTS
ArgumentDescription
otimeout The number of seconds to wait before timing out (> 0). Zero means no wait, not "wait forever".
RETURN VALUES smfi_settimeout always returns MI_SUCCESS.
NOTES Decreasing the timeout is strongly discouraged and may break the communication with the MTA. Do not decrease this value without making sure that the MTA also uses lower timeouts for communication (with the milter and with the SMTP client).
Copyright (c) 2000, 2002-2003, 2006, 2011 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/xxfi_close.html0000644000372400037240000000450314556365350020735 0ustar xbuildxbuild xxfi_close

xxfi_close

SYNOPSIS 
#include <libmilter/mfapi.h>
sfsistat (*xxfi_close)(
	SMFICTX *ctx
);
The current connection is being closed.
DESCRIPTION
Called When xxfi_close is always called once at the end of each connection.
Default Behavior Do nothing; return SMFIS_CONTINUE.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
NOTES
  • xxfi_close may be called "out-of-order", i.e. before even the xxfi_connect is called. After a connection is established by the MTA to the filter, if the MTA decides this connection's traffic will be discarded (e.g. via an access_db result), no data will be passed to the filter from the MTA until the client closes down. At that time, xxfi_close is called. It can therefore be the only callback ever used for a given connection, and developers should anticipate this possibility when crafting their xxfi_close code. In particular, it is incorrect to assume the private context pointer will be something other than NULL in this callback.
  • xxfi_close is called on close even if the previous mail transaction was aborted.
  • xxfi_close is responsible for freeing any resources allocated on a per-connection basis.
  • Since the connection is already closing, the return value is currently ignored.
Copyright (c) 2000, 2003, 2004 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/installation.html0000644000372400037240000001355714556365350021304 0ustar xbuildxbuild Installation and Configuration

Installation

Contents

Compiling and Installing Your Filter

To compile a filter, modify the Makefile provided with the sample program, or:
  • Put the include and Sendmail directories in your include path (e.g. -I/path/to/include -I/path/to/sendmail).
  • Make sure libmilter.a is in your library path, and link your application with it (e.g. "-lmilter").
  • Compile with pthreads, either by using -pthread for gcc, or linking with a pthreads support library (-lpthread).
Your compile command line will look like 
cc -I/path/to/include -I/path/to/sendmail -c myfile.c
and your linking command line will look something like 
cc -o myfilter [object-files] -L[library-location] -lmilter -pthread

Configuring Sendmail

If you use a sendmail version older than 8.13 please see the instructions for your version. The default compilation options for sendmail enable support for milters since 8.13.

Next, you must add the desired filters to your sendmail configuration (.mc) file. Mail filters have three equates: The required S= equate specifies the socket where sendmail should look for the filter; the optional F= and T= equates specify flags and timeouts, respectively. All equates names, equate field names, and flag values are case sensitive.

The current flags (F=) are:

Flag Meaning
R Reject connection if filter unavailable
T Temporary fail connection if filter unavailable
If a filter is unavailable or unresponsive and no flags have been specified, the MTA will continue normal handling of the current connection. The MTA will try to contact the filter again on each new connection.

There are four fields inside of the T= equate: C, S, R, and E. Note the separator between each is a ";" (semicolon), as "," (comma) already separates equates. The value of each field is a decimal number followed by a single letter designating the units ("s" for seconds, "m" for minutes). The fields have the following meanings:

Flag Meaning
C Timeout for connecting to a filter. If set to 0, the system's connect(2) timeout will be used. Default: 5m
S Timeout for sending information from the MTA to a filter. Default: 10s
R Timeout for reading reply from the filter. Default: 10s
E Overall timeout between sending end-of-message to filter and waiting for the final acknowledgment. Default: 5m

The following sendmail.mc example specifies three filters. The first two rendezvous on Unix-domain sockets in the /var/run directory; the third uses an IP socket on port 999. 

	INPUT_MAIL_FILTER(`filter1', `S=unix:/var/run/f1.sock, F=R')
	INPUT_MAIL_FILTER(`filter2', `S=unix:/var/run/f2.sock, F=T, T=S:1s;R:1s;E:5m')
	INPUT_MAIL_FILTER(`filter3', `S=inet:999@localhost, T=C:2m')

	define(`confINPUT_MAIL_FILTERS', `filter2,filter1,filter3')


	m4 ../m4/cf.m4 myconfig.mc > myconfig.cf
By default, the filters would be run in the order declared, i.e. "filter1, filter2, filter3"; however, since confINPUT_MAIL_FILTERS is defined, the filters will be run "filter2, filter1, filter3". Also note that a filter can be defined without adding it to the input filter list by using MAIL_FILTER() instead of INPUT_MAIL_FILTER().

The above macros will result in the following lines being added to your .cf file: 

        Xfilter1, S=unix:/var/run/f1.sock, F=R
        Xfilter2, S=unix:/var/run/f2.sock, F=T, T=S:1s;R:1s;E:5m
        Xfilter3, S=inet:999@localhost, T=C:2m

        O InputMailFilters=filter2,filter1,filter3

Finally, the sendmail macros accessible via smfi_getsymval can be configured by defining the following m4 variables (or cf options):
In .mc file In .cf file Default Value
confMILTER_MACROS_CONNECTMilter.macros.connect j, _, {daemon_name}, {if_name}, {if_addr}
confMILTER_MACROS_HELOMilter.macros.helo {tls_version}, {cipher}, {cipher_bits}, {cert_subject}, {cert_issuer}
confMILTER_MACROS_ENVFROMMilter.macros.envfrom i, {auth_type}, {auth_authen}, {auth_ssf}, {auth_author}, {mail_mailer}, {mail_host}, {mail_addr}
confMILTER_MACROS_ENVRCPTMilter.macros.envrcpt {rcpt_mailer}, {rcpt_host}, {rcpt_addr}
For information about available macros and their meanings, please consult the sendmail documentation.

Copyright (c) 2000-2003, 2006 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_quarantine.html0000644000372400037240000000355514556365350021765 0ustar xbuildxbuild smfi_quarantine

smfi_quarantine

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_quarantine(
	SMFICTX *ctx;
	char *reason;
);
Quarantine the message using the given reason.
DESCRIPTION
Called When Called only from xxfi_eom.
Effects smfi_quarantine quarantines the message using the given reason.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
reason The quarantine reason, a non-NULL and non-empty null-terminated string.
RETURN VALUES smfi_quarantine will fail and return MI_FAILURE if: Otherwise, it will return MI_SUCCESS
Copyright (c) 2002-2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/xxfi_envrcpt.html0000644000372400037240000000537414556365350021320 0ustar xbuildxbuild xxfi_envrcpt

xxfi_envrcpt

SYNOPSIS 
#include <libmilter/mfapi.h>
sfsistat (*xxfi_envrcpt)(
	SMFICTX *ctx,
	char **argv
);
Handle the envelope RCPT command.
DESCRIPTION
Called When xxfi_envrcpt is called once per recipient, hence one or more times per message, immediately after xxfi_envfrom.
Default Behavior Do nothing; return SMFIS_CONTINUE.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
argv Null-terminated SMTP command arguments; argv[0] is guaranteed to be the recipient address. Later arguments are the ESMTP arguments.
SPECIAL RETURN VALUES
Return valueDescription
SMFIS_TEMPFAIL Temporarily fail for this particular recipient; further recipients may still be sent. xxfi_abort is not called.
SMFIS_REJECT Reject this particular recipient; further recipients may still be sent. xxfi_abort is not called.
SMFIS_DISCARD Accept and discard the message. xxfi_abort will be called.
SMFIS_ACCEPT Accept this message. xxfi_abort will not be called.
NOTES For more details on ESMTP responses, please see RFC 1869.
Copyright (c) 2000, 2003, 2010 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/xxfi_header.html0000644000372400037240000000533314556365350021062 0ustar xbuildxbuild xxfi_header

xxfi_header

SYNOPSIS 
#include <libmilter/mfapi.h>
sfsistat (*xxfi_header)(
	SMFICTX *ctx,
	char *headerf,
	char *headerv
);
Handle a message header.
DESCRIPTION
Called When xxfi_header is called once for each message header.
Default Behavior Do nothing; return SMFIS_CONTINUE.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
headerf Header field name.
headerv Header field value. The content of the header may include folded white space, i.e., multiple lines with following white space where lines are separated by LF (not CRLF). The trailing line terminator (CRLF) is removed.
NOTES
  • Starting with sendmail 8.14, spaces after the colon in a header field are preserved if requested using the flag SMFIP_HDR_LEADSPC. That is, the header 
    From: sender <f@example.com>
To:  user <t@example.com>
Subject:no
    will be sent to a milter as 
    "From", " sender <f@example.com>"
"To", "  user <t@example.com>"
"Subject", "no"
    while previously (or without the flag SMFIP_HDR_LEADSPC) it was: 
    "From", "sender <f@example.com>"
"To", "user <t@example.com>"
"Subject", "no"
  • Later filters will see header changes/additions made by earlier ones.
  • For much more detail about header format, please see RFC 822 and RFC 2822
Copyright (c) 2000, 2003, 2006 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/xxfi_body.html0000644000372400037240000000570714556365350020574 0ustar xbuildxbuild xxfi_body

xxfi_body

SYNOPSIS 
#include <libmilter/mfapi.h>
sfsistat (*xxfi_body)(
	SMFICTX *ctx,
	unsigned char *bodyp,
	size_t len
);
Handle a piece of a message's body.
DESCRIPTION
Called When xxfi_body is called zero or more times between xxfi_eoh and xxfi_eom.
Default Behavior Do nothing; return SMFIS_CONTINUE.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
bodyp Pointer to the start of this block of body data. bodyp is not valid outside this call to xxfi_body.
len The amount of data pointed to by bodyp.
NOTES
  • bodyp points to a sequence of bytes. It is not a C string (a sequence of characters that is terminated by '\0'). Therefore, do not use the usual C string functions like strlen(3) on this byte block. Moreover, the byte sequence may contain '\0' characters inside the block. Hence even if a trailing '\0' is added, C string functions may still fail to work as expected.
  • Since message bodies can be very large, defining xxfi_body can significantly impact filter performance.
  • End-of-lines are represented as received from SMTP (normally CRLF).
  • Later filters will see body changes made by earlier ones.
  • Message bodies may be sent in multiple chunks, with one call to xxfi_body per chunk.
  • Return SMFIS_SKIP if a milter has received sufficiently many body chunks to make a decision, but still wants to invoke message modification functions that are only allowed to be called from xxfi_eom(). Note: the milter must negotiate this behavior with the MTA, i.e., it must check whether the protocol action SMFIP_SKIP is available and if so, the milter must request it.
Copyright (c) 2000-2003, 2007 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/xxfi_helo.html0000644000372400037240000000324614556365350020562 0ustar xbuildxbuild xxfi_helo

xxfi_helo

SYNOPSIS 
#include <libmilter/mfapi.h>
sfsistat (*xxfi_helo)(
	SMFICTX *ctx,
	char *helohost
);
Handle the HELO/EHLO command.
DESCRIPTION
Called When xxfi_helo is called whenever the client sends a HELO/EHLO command. It may therefore be called several times or even not at all; some restrictions can be imposed by the MTA configuration.
Default Behavior Do nothing; return SMFIS_CONTINUE.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
helohost Value passed to HELO/EHLO command, which should be the domain name of the sending host (but is, in practice, anything the sending host wants to send).
Copyright (c) 2000, 2003, 2005 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/xxfi_negotiate.html0000644000372400037240000002064314556365350021612 0ustar xbuildxbuild xxfi_negotiate

xxfi_negotiate

SYNOPSIS 
#include <libmilter/mfapi.h>
#include <libmilter/mfdef.h>
sfsistat (*xxfi_negotiate)(
        SMFICTX    *ctx,
	unsigned long f0,
	unsigned long f1,
	unsigned long f2,
	unsigned long f3,
	unsigned long *pf0,
	unsigned long *pf1,
	unsigned long *pf2,
	unsigned long *pf3);
DESCRIPTION
Called When Once, at the start of each SMTP connection.
Default Behavior Return SMFIS_ALL_OPTS to change nothing.
ARGUMENTS
ArgumentDescription
ctx the opaque context structure.
f0 the actions offered by the MTA.
f1 the protocol steps offered by the MTA.
f2 for future extensions.
f3 for future extensions.
pf0 the actions requested by the milter.
pf1 the protocol steps requested by the milter.
pf2 for future extensions.
pf3 for future extensions.
SPECIAL RETURN VALUES
Return valueDescription
SMFIS_ALL_OPTS If a milter just wants to inspect the available protocol steps and actions, then it can return SMFIS_ALL_OPTS and the MTA will make all protocol steps and actions available to the milter. In this case, no values should be assigned to the output parameters pf0 - pf3 as they will be ignored.
SMFIS_REJECT Milter startup fails and it will not be contacted again (for the current connection).
SMFIS_CONTINUE Continue processing. In this case the milter must set all output parameters pf0 - pf3. See below for an explanation how to set those output parameters.
NOTES This function allows a milter to dynamically determine and request operations and actions during startup. In previous versions, the actions (f0) were fixed in the flags field of the smfiDesc structure and the protocol steps (f1) were implicitly derived by checking whether a callback was defined. Due to the extensions in the new milter version, such a static selection will not work if a milter requires new actions that are not available when talking to an older MTA. Hence in the negotiation callback a milter can determine which operations are available and dynamically select those which it needs and which are offered. If some operations are not available, the milter may either fall back to an older mode or abort the session and ask the user to upgrade.

Protocol steps (f1, *pf1):

The available actions (f0, *pf0) are described elsewhere (xxfi_flags).

If a milter returns SMFIS_CONTINUE, then it must set the desired actions and protocol steps via the (output) parameters pf0 and pf1 (which correspond to f0 and f1, respectively). The (output) parameters pf2 and pf3 should be set to 0 for compatibility with future versions.

Copyright (c) 2006 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_addheader.html0000644000372400037240000000736414556365350021521 0ustar xbuildxbuild smfi_addheader

smfi_addheader

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_addheader(
	SMFICTX *ctx,
	char *headerf,
	char *headerv
);
Add a header to the current message.
DESCRIPTION
Called When Called only from xxfi_eom.
Effects Adds a header to the current message.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
headerf The header name, a non-NULL, null-terminated string.
headerv The header value to be added, a non-NULL, null-terminated string. This may be the empty string.
RETURN VALUES smfi_addheader returns MI_FAILURE if:
  • headerf or headerv is NULL.
  • Adding headers in the current connection state is invalid.
  • Memory allocation fails.
  • A network error occurs.
  • SMFIF_ADDHDRS is not set.
Otherwise, it returns MI_SUCCESS.
NOTES
  • smfi_addheader does not change a message's existing headers. To change a header's current value, use smfi_chgheader.
  • A filter which calls smfi_addheader must have set the SMFIF_ADDHDRS flag.
  • For smfi_addheader, filter order is important. Later filters will see the header changes made by earlier ones.
  • Neither the name nor the value of the header is checked for standards compliance. However, each line of the header must be under 2048 characters and should be under 998 characters. If longer headers are needed, make them multi-line. To make a multi-line header, insert a line feed (ASCII 0x0a, or \n in C) followed by at least one whitespace character such as a space (ASCII 0x20) or tab (ASCII 0x09, or \t in C). The line feed should NOT be preceded by a carriage return (ASCII 0x0d); the MTA will add this automatically. It is the filter writer's responsibility to ensure that no standards are violated.
  • The MTA adds a leading space to an added header value unless the flag SMFIP_HDR_LEADSPC is set, in which case the milter must include any desired leading spaces itself.
EXAMPLE 
  int ret;
  SMFICTX *ctx;

  ...

  ret = smfi_addheader(ctx, "Content-Type",
                       "multipart/mixed;\n\tboundary=\"foobar\"");
Copyright (c) 2000-2003, 2006, 2009 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/xxfi_unknown.html0000644000372400037240000000417314556365350021332 0ustar xbuildxbuild xxfi_unknown

xxfi_unknown

SYNOPSIS 
#include <libmilter/mfapi.h>
sfsistat (*xxfi_unknown)(
	SMFICTX *ctx,
	const char *arg
);
Handle unknown and unimplemented SMTP commands.
DESCRIPTION
Called When xxfi_unknown is called when the client uses an SMTP command that is either unknown or not implemented by the MTA.
Default Behavior Do nothing; return SMFIS_CONTINUE.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
arg SMTP command including all arguments.
SPECIAL RETURN VALUES
Return valueDescription
SMFIS_TEMPFAIL Reject this command with a temporary error.
SMFIS_REJECT Reject this command.
NOTES The SMTP command will always be rejected by the server, it is only possible to return a different error code.
Copyright (c) 2006 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/design.html0000644000372400037240000001306514556365350020046 0ustar xbuildxbuild Architecture

Architecture

Contents

  • Design Goals
  • Implementing Filtering Policies
  • MTA - Filter Communication

Goals

The Sendmail Content Management API (Milter) provides an interface for third-party software to validate and modify messages as they pass through the mail transport system. Filters can process messages' connection (IP) information, envelope protocol elements, message headers, and/or message body contents, and modify a message's recipients, headers, and body. The MTA configuration file specifies which filters are to be applied, and in what order, allowing an administrator to combine multiple independently-developed filters.

We expect to see both vendor-supplied, configurable mail filtering applications and a multiplicity of script-like filters designed by and for MTA administrators. A certain degree of coding sophistication and domain knowledge on the part of the filter provider is assumed. This allows filters to exercise fine-grained control at the SMTP level. However, as will be seen in the example, many filtering applications can be written with relatively little protocol knowledge, but a basic understanding (e.g., as documented in RFC 5321: The dialog is purposely lock-step, one-at-a-time) is necessary.

Given these expectations, the API is designed to achieve the following goals:

  1. Safety/security. Filter processes should not need to run as root (of course, they can if required, but that is a local issue); this will simplify coding and limit the impact of security flaws in the filter program.

  2. Reliability. Coding failures in a Milter process that cause that process to hang or core-dump should not stop mail delivery. Faced with such a failure, sendmail should use a default mechanism, either behaving as if the filter were not present or as if a required resource were unavailable. The latter failure mode will generally have sendmail return a 4xx SMTP code (although in later phases of the SMTP protocol it may cause the mail to be queued for later processing).

  3. Simplicity. The API should make implementation of a new filter no more difficult than absolutely necessary. Subgoals include:
    • Encourage good thread practice by defining thread-clean interfaces including local data hooks.
    • Provide all interfaces required while avoiding unnecessary pedanticism.

  4. Performance. Simple filters should not seriously impact overall MTA performance.

Implementing Filtering Policies

Milter is designed to allow a server administrator to combine third-party filters to implement a desired mail filtering policy. For example, if a site wished to scan incoming mail for viruses on several platforms, eliminate unsolicited commercial email, and append a mandated footer to selected incoming messages, the administrator could configure the MTA to filter messages first through a server based anti-virus engine, then via a large-scale spam-catching service, and finally append the desired footer if the message still met requisite criteria. Any of these filters could be added or changed independently.

Thus the site administrator, not the filter writer, controls the overall mail filtering environment. In particular, he/she must decide which filters are run, in what order they are run, and how they communicate with the MTA. These parameters, as well as the actions to be taken if a filter becomes unavailable, are selectable during MTA configuration. Further details are available later in this document.

MTA - Filter communication

Filters run as separate processes, outside of the sendmail address space. The benefits of this are threefold:
  1. The filter need not run with "root" permissions, thereby avoiding a large family of potential security problems.
  2. Failures in a particular filter will not affect the MTA or other filters.
  3. The filter can potentially have higher performance because of the parallelism inherent in multiple processes.

Each filter may communicate with multiple MTAs at the same time over local or remote connections, using multiple threads of execution. Figure 1 illustrates a possible network of communication channels between a site's filters, its MTAs, and other MTAs on the network:


Figure 1: A set of MTA's interacting with a set of filters.

The Milter library (libmilter) implements the communication protocol. It accepts connections from various MTAs, passes the relevant data to the filter through callbacks, then makes appropriate responses based on return codes. A filter may also send data to the MTA as a result of library calls. Figure 2 shows a single filter process processing messages from two MTAs:


Figure 2: A filter handling simultaneous requests from two MTA's.
Copyright (c) 2000, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/sample.html0000644000372400037240000003026614556365350020060 0ustar xbuildxbuild A Sample Filter

A Sample Filter

The following sample logs each message to a separate temporary file, adds a recipient given with the -a flag, and rejects a disallowed recipient address given with the -r flag. It recognizes the following options:

-p portThe port through which the MTA will connect to the filter.
-t secThe timeout value.
-r addrA recipient to reject.
-a addrA recipient to add.
#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sysexits.h>
#include <unistd.h>

#include "libmilter/mfapi.h"

#ifndef bool
# define bool	int
# define TRUE	1
# define FALSE	0
#endif /* ! bool */


struct mlfiPriv
{
	char	*mlfi_fname;
	char	*mlfi_connectfrom;
	char	*mlfi_helofrom;
	FILE	*mlfi_fp;
};

#define MLFIPRIV	((struct mlfiPriv *) smfi_getpriv(ctx))

extern sfsistat		mlfi_cleanup(SMFICTX *, bool);

/* recipients to add and reject (set with -a and -r options) */
char *add = NULL;
char *reject = NULL;

sfsistat
mlfi_connect(ctx, hostname, hostaddr)
	 SMFICTX *ctx;
	 char *hostname;
	 _SOCK_ADDR *hostaddr;
{
	struct mlfiPriv *priv;
	char *ident;

	/* allocate some private memory */
	priv = malloc(sizeof *priv);
	if (priv == NULL)
	{
		/* can't accept this message right now */
		return SMFIS_TEMPFAIL;
	}
	memset(priv, '\0', sizeof *priv);

	/* save the private data */
	smfi_setpriv(ctx, priv);

	ident = smfi_getsymval(ctx, "_");
	if (ident == NULL)
		ident = "???";
	if ((priv->mlfi_connectfrom = strdup(ident)) == NULL)
	{
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}

	/* continue processing */
	return SMFIS_CONTINUE;
}

sfsistat
mlfi_helo(ctx, helohost)
	 SMFICTX *ctx;
	 char *helohost;
{
	size_t len;
	char *tls;
	char *buf;
	struct mlfiPriv *priv = MLFIPRIV;

	tls = smfi_getsymval(ctx, "{tls_version}");
	if (tls == NULL)
		tls = "No TLS";
	if (helohost == NULL)
		helohost = "???";
	len = strlen(tls) + strlen(helohost) + 3;
	if ((buf = (char*) malloc(len)) == NULL)
	{
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}
	snprintf(buf, len, "%s, %s", helohost, tls);
	if (priv->mlfi_helofrom != NULL)
		free(priv->mlfi_helofrom);
	priv->mlfi_helofrom = buf;

	/* continue processing */
	return SMFIS_CONTINUE;
}

sfsistat
mlfi_envfrom(ctx, argv)
	 SMFICTX *ctx;
	 char **argv;
{
	int fd = -1;
	int argc = 0;
	struct mlfiPriv *priv = MLFIPRIV;
	char *mailaddr = smfi_getsymval(ctx, "{mail_addr}");

	/* open a file to store this message */
	if ((priv->mlfi_fname = strdup("/tmp/msg.XXXXXX")) == NULL)
	{
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}

	if ((fd = mkstemp(priv->mlfi_fname)) == -1)
	{
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}

	if ((priv->mlfi_fp = fdopen(fd, "w+")) == NULL)
	{
		(void) close(fd);
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}

	/* count the arguments */
	while (*argv++ != NULL)
		++argc;

	/* log the connection information we stored earlier: */
	if (fprintf(priv->mlfi_fp, "Connect from %s (%s)\n\n",
		    priv->mlfi_helofrom, priv->mlfi_connectfrom) == EOF)
	{
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}
	/* log the sender */
	if (fprintf(priv->mlfi_fp, "FROM %s (%d argument%s)\n",
		    mailaddr ? mailaddr : "???", argc,
		    (argc == 1) ? "" : "s") == EOF)
	{
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}

	/* continue processing */
	return SMFIS_CONTINUE;
}

sfsistat
mlfi_envrcpt(ctx, argv)
	 SMFICTX *ctx;
	 char **argv;
{
	struct mlfiPriv *priv = MLFIPRIV;
	char *rcptaddr = smfi_getsymval(ctx, "{rcpt_addr}");
	int argc = 0;

	/* count the arguments */
	while (*argv++ != NULL)
		++argc;

	/* log this recipient */
	if (reject != NULL && rcptaddr != NULL &&
	    (strcasecmp(rcptaddr, reject) == 0))
	{
		if (fprintf(priv->mlfi_fp, "RCPT %s -- REJECTED\n",
			    rcptaddr) == EOF)
		{
			(void) mlfi_cleanup(ctx, FALSE);
			return SMFIS_TEMPFAIL;
		}
		return SMFIS_REJECT;
	}
	if (fprintf(priv->mlfi_fp, "RCPT %s (%d argument%s)\n",
		    rcptaddr ? rcptaddr : "???", argc,
		    (argc == 1) ? "" : "s") == EOF)
	{
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}

	/* continue processing */
	return SMFIS_CONTINUE;
}

sfsistat
mlfi_header(ctx, headerf, headerv)
	 SMFICTX *ctx;
	 char *headerf;
	 unsigned char *headerv;
{
	/* write the header to the log file */
	if (fprintf(MLFIPRIV->mlfi_fp, "%s: %s\n", headerf, headerv) == EOF)
	{
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}

	/* continue processing */
	return SMFIS_CONTINUE;
}

sfsistat
mlfi_eoh(ctx)
	 SMFICTX *ctx;
{
	/* output the blank line between the header and the body */
	if (fprintf(MLFIPRIV->mlfi_fp, "\n") == EOF)
	{
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}

	/* continue processing */
	return SMFIS_CONTINUE;
}

sfsistat
mlfi_body(ctx, bodyp, bodylen)
	 SMFICTX *ctx;
	 unsigned char *bodyp;
	 size_t bodylen;
{
        struct mlfiPriv *priv = MLFIPRIV;

	/* output body block to log file */
	if (fwrite(bodyp, bodylen, 1, priv->mlfi_fp) != 1)
	{
		/* write failed */
		fprintf(stderr, "Couldn't write file %s: %s\n",
			priv->mlfi_fname, strerror(errno));
		(void) mlfi_cleanup(ctx, FALSE);
		return SMFIS_TEMPFAIL;
	}

	/* continue processing */
	return SMFIS_CONTINUE;
}

sfsistat
mlfi_eom(ctx)
	 SMFICTX *ctx;
{
	bool ok = TRUE;

	/* change recipients, if requested */
	if (add != NULL)
		ok = (smfi_addrcpt(ctx, add) == MI_SUCCESS);
	return mlfi_cleanup(ctx, ok);
}

sfsistat
mlfi_abort(ctx)
	 SMFICTX *ctx;
{
	return mlfi_cleanup(ctx, FALSE);
}

sfsistat
mlfi_cleanup(ctx, ok)
	 SMFICTX *ctx;
	 bool ok;
{
	sfsistat rstat = SMFIS_CONTINUE;
	struct mlfiPriv *priv = MLFIPRIV;
	char *p;
	char host[512];
	char hbuf[1024];

	if (priv == NULL)
		return rstat;

	/* close the archive file */
	if (priv->mlfi_fp != NULL && fclose(priv->mlfi_fp) == EOF)
	{
		/* failed; we have to wait until later */
		fprintf(stderr, "Couldn't close archive file %s: %s\n",
			priv->mlfi_fname, strerror(errno));
		rstat = SMFIS_TEMPFAIL;
		(void) unlink(priv->mlfi_fname);
	}
	else if (ok)
	{
		/* add a header to the message announcing our presence */
		if (gethostname(host, sizeof host) < 0)
			snprintf(host, sizeof host, "localhost");
		p = strrchr(priv->mlfi_fname, '/');
		if (p == NULL)
			p = priv->mlfi_fname;
		else
			p++;
		snprintf(hbuf, sizeof hbuf, "%s@%s", p, host);
		if (smfi_addheader(ctx, "X-Archived", hbuf) != MI_SUCCESS)
		{
			/* failed; we have to wait until later */
			fprintf(stderr,
				"Couldn't add header: X-Archived: %s\n",
				hbuf);
			ok = FALSE;
			rstat = SMFIS_TEMPFAIL;
			(void) unlink(priv->mlfi_fname);
		}
	}
	else
	{
		/* message was aborted -- delete the archive file */
		fprintf(stderr, "Message aborted.  Removing %s\n",
			priv->mlfi_fname);
		rstat = SMFIS_TEMPFAIL;
		(void) unlink(priv->mlfi_fname);
	}

	/* release private memory */
	if (priv->mlfi_fname != NULL)
		free(priv->mlfi_fname);

	/* return status */
	return rstat;
}

sfsistat
mlfi_close(ctx)
	 SMFICTX *ctx;
{
	struct mlfiPriv *priv = MLFIPRIV;

	if (priv == NULL)
		return SMFIS_CONTINUE;
	if (priv->mlfi_connectfrom != NULL)
		free(priv->mlfi_connectfrom);
	if (priv->mlfi_helofrom != NULL)
		free(priv->mlfi_helofrom);
	free(priv);
	smfi_setpriv(ctx, NULL);
	return SMFIS_CONTINUE;
}

sfsistat
mlfi_unknown(ctx, cmd)
	SMFICTX *ctx;
	char *cmd;
{
	return SMFIS_CONTINUE;
}

sfsistat
mlfi_data(ctx)
	SMFICTX *ctx;
{
	return SMFIS_CONTINUE;
}

sfsistat
mlfi_negotiate(ctx, f0, f1, f2, f3, pf0, pf1, pf2, pf3)
	SMFICTX *ctx;
	unsigned long f0;
	unsigned long f1;
	unsigned long f2;
	unsigned long f3;
	unsigned long *pf0;
	unsigned long *pf1;
	unsigned long *pf2;
	unsigned long *pf3;
{
	return SMFIS_ALL_OPTS;
}

struct smfiDesc smfilter =
{
	"SampleFilter",	/* filter name */
	SMFI_VERSION,	/* version code -- do not change */
	SMFIF_ADDHDRS|SMFIF_ADDRCPT,
			/* flags */
	mlfi_connect,	/* connection info filter */
	mlfi_helo,	/* SMTP HELO command filter */
	mlfi_envfrom,	/* envelope sender filter */
	mlfi_envrcpt,	/* envelope recipient filter */
	mlfi_header,	/* header filter */
	mlfi_eoh,	/* end of header */
	mlfi_body,	/* body block filter */
	mlfi_eom,	/* end of message */
	mlfi_abort,	/* message aborted */
	mlfi_close,	/* connection cleanup */
	mlfi_unknown,	/* unknown SMTP commands */
	mlfi_data,	/* DATA command */
	mlfi_negotiate	/* Once, at the start of each SMTP connection */
};

static void
usage(prog)
	char *prog;
{
	fprintf(stderr,
		"Usage: %s -p socket-addr [-t timeout] [-r reject-addr] [-a add-addr]\n",
		prog);
}

int
main(argc, argv)
	 int argc;
	 char **argv;
{
	bool setconn = FALSE;
	int c;
	const char *args = "p:t:r:a:h";
	extern char *optarg;

	/* Process command line options */
	while ((c = getopt(argc, argv, args)) != -1)
	{
		switch (c)
		{
		  case 'p':
			if (optarg == NULL || *optarg == '\0')
			{
				(void) fprintf(stderr, "Illegal conn: %s\n",
					       optarg);
				exit(EX_USAGE);
			}
			if (smfi_setconn(optarg) == MI_FAILURE)
			{
				(void) fprintf(stderr,
					       "smfi_setconn failed\n");
				exit(EX_SOFTWARE);
			}

			/*
			**  If we're using a local socket, make sure it
			**  doesn't already exist.  Don't ever run this
			**  code as root!!
			*/

			if (strncasecmp(optarg, "unix:", 5) == 0)
				unlink(optarg + 5);
			else if (strncasecmp(optarg, "local:", 6) == 0)
				unlink(optarg + 6);
			setconn = TRUE;
			break;

		  case 't':
			if (optarg == NULL || *optarg == '\0')
			{
				(void) fprintf(stderr, "Illegal timeout: %s\n",
					       optarg);
				exit(EX_USAGE);
			}
			if (smfi_settimeout(atoi(optarg)) == MI_FAILURE)
			{
				(void) fprintf(stderr,
					       "smfi_settimeout failed\n");
				exit(EX_SOFTWARE);
			}
			break;

		  case 'r':
			if (optarg == NULL)
			{
				(void) fprintf(stderr,
					       "Illegal reject rcpt: %s\n",
					       optarg);
				exit(EX_USAGE);
			}
			reject = optarg;
			break;

		  case 'a':
			if (optarg == NULL)
			{
				(void) fprintf(stderr,
					       "Illegal add rcpt: %s\n",
					       optarg);
				exit(EX_USAGE);
			}
			add = optarg;
			smfilter.xxfi_flags |= SMFIF_ADDRCPT;
			break;

		  case 'h':
		  default:
			usage(argv[0]);
			exit(EX_USAGE);
		}
	}
	if (!setconn)
	{
		fprintf(stderr, "%s: Missing required -p argument\n", argv[0]);
		usage(argv[0]);
		exit(EX_USAGE);
	}
	if (smfi_register(smfilter) == MI_FAILURE)
	{
		fprintf(stderr, "smfi_register failed\n");
		exit(EX_UNAVAILABLE);
	}
	return smfi_main();
}

/* eof */
Copyright (c) 2000-2004, 2006 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/figure2.jpg0000644000372400037240000013551314556365434017762 0ustar xbuildxbuildJFIFImage generated by Aladdin Ghostscript (device=ppmraw) CREATOR: XV Version 3.10a Rev: 12/29/94 (jp-extension 5.3.3 + PNG patch 1.2d) Quality = 95, Smoothing = 30 C     C  12" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?((((((((((O?7mc_[|+u6oMsz?~?z=Ҋy=;Q=p!ÇJ+N??p=G< GǨ( 8~ӿ'8zwt/{CN?~?z=Ҋy=;Q=p!ÇJ+N??p=G< GǨ( 8~ӿ'8zwt/{CN?~?z=Ҋy=;Q=p!ÇJ+N??p=G< GǨ( 8~ӿ'8zwt/{CN?~?z=Ҋy=;Q=p!ÇJ+N??p=G< GǨ( 8~ӿ'8zwt/{CN?~?z=Ҋy=;Q=p!ÇJ+N??p=G< GǨ( 8~ӿ'8zwt/{CN?~?z=Ҋy=;Q=p!ÇJ+N??p=G< GǨ( 8~ӿ]kKWڵVz^a gG QوUU@@EPEPEPEPEPEPEPEPEPEPEPEPϟ/? cUs cֽB-/WE&-9b*`h_e ?4/2[*`h_e ?4/2[*`h_e ?4/2[*`h_e ?4/2[*`h_e ?4/2[*`h_e ?4/2[*`h_e ?4/2[*`h_e –Xelq:Яo:w>$M|^x6b;LF<aPP UWziQk+-6{{(//( f2I4Ċ9wTX/8&$~?nԼYO,iv14,PIdUC;yڿxD53/ OԾ'm&ikI0@#Leٷ͓~ؿX_{ 1_5]sCmR& :YIQJmHVHmi ڟm? ^7# 0|+mk7>$7ψ h?uOYK }K"gގɟ,g"Oې~Z9k.,Mj;3e}O_V m? V m? V m? V m? V m? V m? V m? V m? V m? V m? V m?¼ Ai6|?5o?0?{_C׀I4-??/h袊(((((((((((򓿄Es? W׀|E&-9b ( ( ( ( ( ( (  |g,ko?޵xr=~c OM L6W%dž7O4?Yi@~ŸᏃu/dR/a.<1yRSif$?.c_<7Uk $qo`vŒF? {/%uKVo!G{ ئXoCs]F剙ljzOO3?7+/| >\D2jqN4$Q_⇎_tq-tm+xεctxmX 1UY#B2?ceih|A.[s]igk0I9ST"$I>࠾)|uXv%?_A|5pk_hͫf즊k2$hy;<3i>ݭkڌvcMB&eQ0+J4j*ƕ(JM$mKVD&Wf|8mmP[Ab&*]YN AjeJ\eM4Z44@j(g|E&-9b/7o%~>  [IT/yawI!62:*A*< Gǫ3 i7?|A5Ηo#?ջ^(ſN??p=G< Gǫ4/2m?€<[{CN?~?zB-/Q(ſN??p=G< Gǫ4/2m?€<[{CN?~?zB-/Q(;ˏ|i6gu_ZnUeW I"3; 6XTPC݅}@RH46A,Oa@ Ep jO٫亄??3 k/|Kk|m 'vۜgcc85Sz]8/YӔ&RN-]]];=FJ(QEQEQEQEQEQEQEQEQEQEQEQEQEWI4-??/k?o4QEQEm|;⟍+<#cQZy`uYKBPI s]ExkL_{H&S#QXl5_HERI p).~8\@:~.) f _w{> [?A_??ه 5}4yK8exaTLF,|f ӝI;F1x&$keJKG _w?qo\o_'0xAKmb$w!x.$66b$>7|nU8|*־6m񥟇/3sjvB,U5QC3zT`_FKby}sJܱuywumɍuR뿻oǜWtt|]DžsG5OGGx[5Wa~͚큧|LᮁxuɵOmTq忒loۑX6~ ~i?!G) f~qxFD' ZT{k4bH&0H 9~ ,zq>]bpN4N*{FM+keSIRsz/<;#<-˚ B|W|KFOږ%Vц |3z[Dsv~^",:xng;.bM,r ĠON0pGY|e8 8S^IJ.c qNMM7dbhUkoCqoZx7}s:֟:iso7$L7#2U<_q~?\-/U߆_ m|[0>׼4ΩWwN|wI3xg&}O|+i_4? ~:idq(Tp9f$MX)OK?F1$*ִKX,&G_Ϗ?'KJhm$}s$q|s WTQ_Kei,VOuwnNni{VuQ:P唜wo#>"N1^^RwȷS?oM7O?KjBpRh$(,u&K߶5__0<SŚ}:x~UEsZۼ2Hq%[9Vzd5hl>xv[O^NԵf+-jyM=$K%@wV~Sg<9ci:]Vn$Z(@TU(Ŀ~9%_㟴}O>|sy\g#S o+ o#fwǤy槿@υr-5~^N~ps I7['dFX6T 0GZ[3~Ē~>-(e8Oj5+k:%qlkԀ=3 i5^gW^\v(xD%dFRYIA օ|s_wğ7/?P׎a3b'>o&1! a Nྫ _wQi-6_xz>gѣONmo'*ɿ7U/#7 u&<;#<-˚~տHFu|]8$?zKYX6=tC9ԓΥW9;?"ou-BYX9"9qO M=Ljr&5͞^?Nw6wgjq{xž.j%WX,[[l7yn_3~kzgx;HD5# Z؛+wy(}71_' C}/|ffyڿcϘQySk2qҜPF9j􎏋8.hH Ɗ]Kˇ#ÿ::>.#<-˚(]K˃GWtt|]DžsG5OGGx[54Qк_H j􎏋8.khc+u/ .g? _w?qo\׸GWB_\<;#<-˚?::>.q팯Կ*=xw5OGGx[4Wtt|]Džs^E_ Up{9;?j􎏋8.hH Ɗ?2Rsw?qo\ _w{le.W#ÿ::>.#<-˚(]K˃GWtt|]DžsG5OGGx[54Qк_H ?k t,hYDžg5uW\-zf\u/ .N0~ |W>; X[i.[j귚>i6MoX#Vc RGmH$s?s|ω0_Y8fQIŪGk N+^ea2}-_goM~~A_?>=xKwºjMfk8ï!tq$h+ $/Ʒ tEmwkJ__iz!-Q?Ux>;MnPHȯ xo ~(OvKkaMB/|ϓ.s|A,_Ja$j(;ǞRv\/+{QդaupKOxox0??mn{F @|u:ml3ʤ|6yosŸLMJY_l6zh|GgQo0_?QA)6i*>gƟ>!/ƯNooIu7,he pyM±$f9)F8 ςQYWU5Yz {F'fi{e-l7qR~Eq]|N}u! (9uJJT]9sIivwf(~ނVoW]-1;-CQk')?.{D9$ JATx}dM~4s7xӦ~vC}Yo-|+8&|~ cej?Q{(ۺGץ9fx E?j(_xय़7ǎ|7? Z&s^_L%ߟ:;&RE* cnh+^)Nx9NN\;5&ǃFN컖ۚ/-!Ə_:txW_Io"9ӟ+Y^N)q[9 cҾiٌ&e{Х/u*" &i~^H / <gƃᾍ ^a缿g5(Fb$kv((46EXP?~;u6Z$ 4 :}|3}PwhtV4qPEQ_G3Kk~bM:IWTN.44V$YB̏~_p/D<=^^ӿZl{W_' /}ׄ-lv #H:oֶbYceft $3(?Пwg鿳_WkjäX]Z.dqV9!-a# 7l򼪴$S[0a:~/G}~Пut߃^od5v__i/ )iٚ0F,]>Uk֍뗭Dn.粊Yd؁U7;1ڠ(|C?0نy׷&8Gޒz3,66JEU1k 4nh?B?+ԧKqj]+}JF?| INk+Edž0_@?ǗO,?lwbCΑI7Y𦣨|>-5O48]gx$x_ <^GuQxVi6sls$N .n#?>|>A|@ x//#ė}+wO+)I,//7c/~+ tJ"Z`:8L/ dV̕ӓjB 9FS.Z.ZUbaRHbT._[-T{.u~!Ei<,|8ULH %6K!1 d7Do WA:O{]zq[&֖[\Ama6uK%[fo" ?4~_w&?{Kt64)˧b5iş,q~^?~ Zbx/5}.a3O }lOuƹe*>?g+pRx\\HGK Rr+FI_|8˖xԤx%}^~%mJi\_QO|EѾ\7kyNwZuBuEsյFvMQ~ѯǞO9i,_s( M>˷9+Wuw jX=:Ҽi׳N-7qon?rQV^?~|g}>o. YMt/ucF\q**" BL __IJjT~#iyg= `HE7af"ʔF[<;uu [y5OEtU]cAB'laIzG_e~ݞ*>&E~VK-3 u)hEgXG1$ 1RZxL<ۃ-WSZZ$e))& 0󖩧'e=/0|7ikxzm΋wD}g`̋3;ϊW xuYT~Yt˻RQ@$4M1C?g`|פ{߉Co$:KuC"l?3x/߶ų|vWZՓxkIH|?ˉ+x-[k<ɤhnn.<օ@1F 7ac:tJ*jSլ8Tvsy9+)k,mZn*\mm}_S+??ُ?O x7~ 36+˴qu{ is"JPlcu?3YCkwsQgk JZ)}W(/J}|@ |[|K}??wӋH^ ]mDHҎ'|uv]LO}Ɖ'׼Z^VNq8$'a3+Ml4h՚N5NU׹gRsM<6ku+kﯢ??৿ٳ_;Z'ÿ_eMI]%q GoeuuS\mn~^|e;|C6}QԬ`l)FgM,ep0_(Os"d'x_4<qqL\rKj.QTKڣ- [H7+3R ӥI HՒX20`H  ~UŜ1? C09UץVTҌ)FN(I*JS#Bz$։=/ӷ_|}g٦k>*xVV[TƁ]CWʱү>c6"m6_dTY5kFXi:Ɨ(>^tsLl؍gwun-n~ܿ_(5 7w C51h. >}r  Ǻ "t*>/> wg Y-o5`펝nf;Ayp|E +b!J *CV7NМiY(vci굶v><mGmZ5_jf58-y6` RrlOW⿅/#ϋůBEIk cXCNƱN/!%xO:0nmf/GW1毮lo u+')|I綟KM72IE RU1É\BbŸ ULi Qx~ɷ˫W[6mm߼̟؃ w%-KsmcĖv3隞:8kx)8O-U1G~ן<1lucoADvOYgEDp ,>S> AZ| AiiĒj:{ X4rQhWˆ.a?N/Z&CπmgKXʎ+ɣ"ϙoJZ{|!\?kTJ:ѴS%jkRKwJS9*䋚QUI&_J^m^ f_uO&tMbmWm6MR9NHoV414F2Ǻ~j >$W|;nl[m3Zfͷ6Ze܌$ᐣp]G:xjo*-_n{j oekkWkeKׅ.cxC[?[g۷ |a<5嗅%8j]wErXDT0FG<^jڪ(N*4kE79EFT9ZH6?M'[7_xs -_;~]OD*xu_j.D)o*q8Az5M~+1|7s3i?7/ xSK]xUKS.tnaK7@cY_Bu9Bבg>;TRZy{Ke&J⢹=)I.t A=2ڲJOTvG)dAk O&iy~[N_0K4 o5M?EEWjQEQ0K5 ? w?};F$iX{F!FrH׵uiPJQjmdmK3$34?׬Af+RE=U:;ik'hTlk::>.iRPh[>hఅ@[)MghH j􎏋8.iyK (G[XYqE\asR\i}V1Ex5OGGx[4Wtt|]DžsG^a?`{j~s#R8~kT6Vy%Qg\U?qo\ _w/o5j_QC?=m+Kqǫ<*IGƑhWqƁTZɅQ>S^3 _wCct|] ,,cH#5pם^t",mOh9~ ,cÞ5aNg%j4pHdHte%YH A5G(~|1gí$56G,{Е}7)*qH:&. :%E}_zhtU>>9?J+7챤xoRHk MKI};ΖmY'W ?o7ieWxKǾ~xSylRoT4f(ȱ:PXQʾ aƫ<aYRދ>kiM+$X\ MA^r?e_ ?Tù`2BXz+: $u{ ʾ|?g)h|𿃗V/C/t(,ESߔeU|͞dwgo㟬k>"N1^^^/=&.1xcM_RZ &i~^4o !QK6=bQ\iZ7~;'_iZ⬬G":.#<-˚[ͿPlynʿuL*@q^+ _w?qo\иo6_nPlxYu0@*D"AhGEQ+::>.#<-˚_jչEXs#.d#GhOēX $ Oj􎏋8.hH /K (G/Lh-@P03R;OgY2N8H j􎏋8.hVo?h{j~s#N2XBC-{+;) $`H j􎏋8.hVo?`{j~s#ڿta4l Hc¼O#<-˚?::>.[͟ۥ?`{j~s#ڎ2,m@U>W fjZɀ?5?qo\:OO?'Gȹ<-Ԃ?3UyKSN_0K4 o5_=]{k6dPEBUܤA#o5ĕiWeJrRitӛiO*jS+4 ( ( ( ( ( ( ( ( ( ( (</7o' xN~lɾkZ~!_Waz^|CԿV Qo,|sx?~<^EwʽJ5 Jn6E "7pC?ky{W.%{o Xꗚ^Ce- +CE,Uf 7?~4'4=S>O#桥E5ޓwfԼj0Wx)kPSIJh܎dMKJ{AwP8Ky^;7J-+#<}gռcwlW$?#$? xOğc ;>ٿ)=Yc6W 2OJ[~r>:+|(Diz5-[F&olkR/ǟ$[sg){?ئy\|Z&{˨-5լYKCʎzAk ƋQpR<3O i ^ghEVz^[$6H4cEPU@VP~_p/D<=^^ӿZl{QEQEQEQEQEQEQEQEQEQEQEQEQEQEQEQER7OK)?eM{Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Rwȷ򓿄Es? W6?5-?/ի?oQEQEQEQE;eQW׀~_p/D<=^@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@Q@xM@R& O&iy~@EPEPEPEPEPEPEPEPEPEPEPEP|E&-9b/7oM7O?Kj&e{QEQEQEQExu'NiC;eQWEPEWmsJv\g5k= @kTOp^hb q߼UeWd!JzX<'0*IY&mI6i$]k1 4.}E^[6vP.WswpF񊗻Z7¹vW`_+xH?fkn_CKm  , f_}-_Xº~7xsAl[\6q FƉw`0d̰уqwvnkkuO#l'gU1XrRu9y&_<=u}9Eyg߲}[I5-2MuMgqoq-4NE 2 Ǿ=7i9iY4Af&/XlF1}Zn%NJW[O6ZKD#>#X[O{/x~  D{;=我XY,,6-VdD1Pg=:ju9!^_$i$qm'i{Mt Njhu h#b:|P:L 7[veJ]aYpĀq/(C^ceɫx{ m''k#%v{1f4GUY!?pVOFzQ W:XzTxSnڵn=.|\Ӿc7-sT5/Aq\ey#6$%_~nGhnukKm?!E,sGn2D+"V|HҮ/E'7۲UwpoSSMM7#{);ROݒ\g~*~џ 'GT-tO|uC^jJ&Kg{a#B̦ErUq<4ƕ-w^6ίxDԡIn& hDY"l) \4 ^zGm-ם85RQîj߻iE{˕r}^MKXΊ|xRFAx4fɼcO*k.NׯF2RٟZJeJ~FQE30((((ɾhZ~_׿׀I4-??/h袊(((((((yw~SF7Q𞹪VMu5Ι*M([I%Alj]OGR'K,n/cلH'ͨ&(Imwy]aZ"<T:POwIG-9[IE~Z?k.v~z͖4h:ZYMgf1Du|nE}'ߌ?/SCC)ki>&Ӭޓy")mq纕tݺѶH2e򄹛oK5SЯfmMQTTg*rwiIs:J I'x_'/Y߃;Qx}ߋm~>m%H-8[&F%.’>;ψ-!-7IK1ߺ6q̛f2?( keRn6wv:k_m~>ӍWR#di'M8&{YΊGkF=KV5ḭ/$[I. w]8% ڣXⳢsOdNueu-i;-ϧx3`iFLvm˞vMFRMKT_r^Qx?foxƟ/j=_Yׂ;c{4%`CnI, zUX}:ѵ6\QWԒNPm)$[iN1N)F2򓿄Es? W׀|E&-9b?|>jDߵWr\xLnmS lo$I/5d񝎣Y5._xD5mQB5lb1:mp΁~mO« ~şŷh6k- V&8[;Z);Gces}Io/4_O//nA'_ŭj_<:U뙵+Rty eqJ>u:,J}3$X`Oۧ0|6>x[x[i]GyРA1\C!YJH1.>-_šŎc=6[)Xacs vJ0'<:!Ne(%go|L? ~--? B^NԬbD #} V;Jz'vNUWcr|bZSc$8I88&^~_~Ϧ^˯GYE^su+y`^mPED ?vŻ {/MKD+.YuvViDY=\4/W:k[+wYb'RYIO YT89Xu'vZY%}>-Wxx{.UQt>~z&^*VJ> 0~'|/mwƛA}4{ö k.5V)d2!wuh˖}-G8oxkӯ amomŧڌ5Hq~Ykyu\n WeȮz?by.P%qUI_ SMpńF܅5%ǘ$Dzii3K$;gkfbK/4 [xDs;$*gTsi^i_Cl7QC N9 mr*j:7.i_{9]O>xSkxEL}RNk)˕K$eg wU` /K:%GoZl_>N)< (2w{+{b*!g }¹+ϋvOwM.O ]k6:!6r%C4IT(N|V[iÓgy j +94乬${Eg+?dϊt?lšZž|'-:,7~3G%h Z| P$~ПMᏉW,<3Ac5&RV8PN? %̓mn}9#_IєF*M$ޑKgh_tj~#XSK[vC5\@̆H3u, cK#jmBu6Rs N.`B %id^4/)*+J~&}m{JKkY4C+'NQrJm))Gp$+[ɻ]_: K|:uY-K+[HoB,'?/S?O. |qW6jwZ)fyu+r&mqMxw 1!8Sqv֊+n)b U/̚KI'VIsFZMYݯ/xhBޱJV7WZ%\$Kiy-&cHAU`Y*EFhEMW{y/#<ήkV*BbboVW삊(4((((+?o5R7OK( ( (_ ||C=#Cf.ɷ Pl*`iJQ\쑥*UkՍ*qrI%v$Fi!uAyK ?_h|CUޏsSGQ^K ?_h|CTh#OW_?>(*._z?S?G6?%!QރSGQ^K ?_h|CTh#OW_?>(*._w~.So=uG?ho=2)Ӧܭ@ۑTSU/|#XH/ j!sQ ː+tI'5h#OW#QK>%ICVRr4urT1N*ѨҶɽZZ7C|&c+tx]ι5XWv1A+|%vw'ÿ'&soæx;Rd`ZD w*ˆTb:x_Cf#\aη\\kVU^ jVŌח+ԝ6)](ǖIGY5x%t޷_~Ԃ @,i `)Wvit__|645oX }gCWsmQy;c~NWElPIEYm[i?SΩfNrr\uwݓegoٳz>s% >cx~uΈJAvsP~߲; 0ͯ~׳Goߍx8Ak[[nU9My]wե{*h:m~:-llX*FUPP0U(IYd:rzg|E&-9b/7o< &i~^@`UA xcM_RZG7EPP}aoc {ȀZ.4>*(_$6>o߷|w>>i b?K4`vcB%\,C+Ƅb_Yd;/z |kg?F\Oqn%+ ʬKp R]7NQ&p4@qNqt0GICwSQ@-oe?b1}}im4v|>uHsS@YYikJO+IE;eQW׀~_p/D<=^@Q@|Lx+U>>CUo\[jZi)mkYi,"3_AS$1_YA"T>GS]hӵ=5Y6a6jEr˖Ig.m_|u_/Mcς<c׏}TX-/=N+<9cKuty",1 ueWG2|kj7^Dqh'72J)A#ql&6qљ#m-Wvh7ּxdrI]-Zm+]ib0X|*8BN!%OⅣEMwI.>)|[o!o\\?Ե|k +qy;,m@`QjyO:f|+KXSUIe Ik%ިZN# -s3'J;_|D8 .{fZTr4$Ɛ@$ȈT _cH:zǍ)0kZX_{5mo{+9ceG'§ {ѧܣI'Q*nGYu?|U?L}/uOR1 va7Z`xk3`c9/n_e>;񭽮:^M%=H]Ig($9H~_7>xELOA?|FPx/ iXzX[Zvk{ILEZ2zN2*I%SiÑNMUo v> xz7}OJ_𒽽CkuvXƚL3<<# {Lym>$|H?5I-[~)n[%C h/ h#?kEd|C z|CLOoG_毆Zo>~e{yVy%W,qjQ'7ӟ*t|nj8k- |Tӵ Zf59dm٥KI%CZ͹&_){?I ?_h|CU`*XeK}OkŘ.&lX֍A7E6ѣ얼{ݞEy/6?%!Q ?_h|CUޏTTWh#OW?S?G??zO? Ey/6?%!Q ?_h|CT}?cTTWh#OW?S?G??zO? Ey/6?%!Q ?_h|CT}?cTTWh#OW?S?G??zO? Ey/6?%!Q ?_h|CT}?cTTWh#OW?S?G??zO? Ey/6?%!R?SPdT>!_?>(*._zxM@R&6įi?H4o)@*#8 _)?eMuFQTեVYREVikOt{QL(+n3_Ou#J5dX9kW2KKZO?Rqol'Hǫ[׺"yu}/*Xdqk 'O6&he D*`kiƓpIiweG:0ƛ)%}\r^[ Ž﷝$Ҝ݀'W/eKS>1ݭ *,qpֲZG̲JPy2 /Z-s]OSaj~ռMY?8*'E]ϑhVr! 94n/27G{h3y7Tx^:5T*Ch2W^U)?qǗyVa.`dKJa(ki_5~ƞo'PsHYnE,yh}w?/g/?)z柧>"^On,c͛%1fPI梮y}.Og}eWYu`<-w_ړXiM(ҲUdd90Jk#-GO/v=%Ԭʣs0Ԛ/?z~(|=ƁcIhl5{ EG vW+2#Zo|)Fn-;KHn;ftPZ mTkթԫZIߚY-OpWgL_n5u'R )%9B[Nn6 A 5_VU{k$_5~A GľitLc! Fݿif15%OY.UzO!%%/)F_m߰}=ƟGhz]$4ѫ`k$e :|l$[ ߈!txė Bn!5ky$6A6C1z??b|pҮh U[ƶ7{;}X25ͨdBHdf.|9߰¯|`y5ض,u{ xg 3&B|9k_h>14>V];vj >MC.C /o駍mTy@fiQTC>2~>u?wƓїߵ~"Kh^x}}Ne{xkYhVyEwM/jR5Fm =سg?VO?SmLJ5_7Zu ]B̤yo i'2$nxu'NiC;eQWLwNW`_~?fV_??{}O{۷_/<; $WOw^%|~qſW_U+uk?q!S^+{5>$Rk ;Lл]ے[{Q$(Ŕl)  >#7u/h]Mo2 #}.UFp@5ݿ?6~>+c߅#NOB]^Fiqlwt\)$ldp3]XU*Z$}?G\2lVRQ:TeE&￿-:u>_:_://?ռw?`~?H)^ԇOZi O|+_kyu{qOJM6|s"y#ivՍ\eFckvgө(W~5%}6Ts71Ǟ t͉ w d Wuj%]KNao#8Ȕuɿh&;HmFYK9"~P9 6Czz엫m$zfS iI.snЄe)Y7d+gOx+)غww:5Xj6>-;9cyFTl5+MN)&s +e8MNqԢIͥpbi %]ޱ,yZ %f'qb鍛d[wIЧ ~tQR[11ThLma?rWzlݯm>d7+tz?JHel㪫G[]o,Q^q[[oٷiM ]vVZ1Ym@MKT9xP?tR+\)4+aؐ '=k4>չ{nzx5Y{Sos;voN=մh$5V\ic0ʮR(-?Ku?=Us,LpMs,`ّ@]F0?~~g3z&O,|Yy#A"Lbd/~ ٖgNW?$k.5jIRjou '5>3-]CCǶMW_@Gγ򼷗{N8Q^$,lκ0؊X*=1g96;!̧ŤB׳)+?FQL[wIЧ ~uCzo}GRaouxaY$԰G*2B0vrI\ҝIދiU}[AW? z.do |ygι%ZH[{< dwnV%',y'{>AnH9&)ѭOMz5tzyOYIURTgu 8Ϫzkɚ*{UI4-??/k~=*o58*_䍸Jlw~((+n3_Ou#J5dX9kW2KKZO?F Ѥ*AC~ Ѿ"V ԡ &H,.V 6Ol*r;XdeNA .jһJ+G7xXu> AxtA-Ye$Ws/T"$Yz'E՟(5oj:UhܾF S>KgyxU8g? 5π Ʃ%)(NT5 (pdE|'JxoM/z+bkkY#kZ17x!%,!\,_H |3|8o7oi5wv/$nL.»W?{[ܾ+n!4˿^۝Ɏi #yaw# _VZi[KY+kmɳ#AbjZܩBPNW)rIF6Qs\H*>w%j#OktYt̐O3 ,gIʟXc1¿ڷ^EhozO~5=sH[eoOig~2+;;m? J1'MtQ@ӿZl{xu'NiCS&]$i>>,'i7Z_:e}nZqvf 3a$=o^/i|Ft4*iNIU%l6pzգ$BSiq<[UǚNg )Oُ¿PoK~xWO-?IݝĎʖ*ƀGwz;NJh¯jH_QoEnSyx7fW{>5/\_x>.' M) I*Ix\xWSΫ<~cɓ%wf񅉳*=duFT ԧ RGTS,fTqbc:XlNhi0K&GE) 3'/>KGMw5G ED췉R48¦w6^c~ m5~ĄŗZMCWx re @~оEzH=_'^մ Xe]lq`(hتRTc|N71߶_Vo{ykys@zv$fT$W_OGI(xIeIKqxlL:r%’g _ɍi瀼CV[u)ד[m_jO&zM;I +ȧk^+uh)JWwM[4^Sp)PIF*:jwT:n֨;CW~EOǍjz׃~.]"B[-`,Jrm9#%TnWJʾ ˨h " Q/ڣZ *X I\k&@ctcƛo_ jRO*YZRىDM.j丞j~F1&׿5v'.o;$t12ZkRKQ<-Z 2/^0SV~E3e|H#XuoKH:& G;\ǵ'2*ڇǞ57go^~!xZ]5x7:T+S+ d>[*:9+?ߏek MGŚ#i):nwgh`p*GpΉ$΃n]?߄?> ?2.F7: $]:6A* xĭKW59lCiZ%ʖgU[@P~~W­wUY.oK;s$?7$Ԓs$~>-|~߄.n'ͦŭsiL*r+4ҳ%>kAczd/makyy%B.YI$ke1c]nXے1}^I+[lxSxbzUk֪a sUcAESj JU*rZ.!Y+awxmP*&[@/l$s+?4C7>%^s{m:խ߇~"ZCx6bHm&Y=3$#Ik}C3[GΥi]50Am* .{UW;U@G10xƚwu? 31r/U}嵂D{bI ee%f.3Po澩Ť^epd1I/aOQ*o5c9Brru%~ռAx Qs}q[$w +,0b0Iؑ"0K)%j4;d?-jc_ڿj^W~ho瓻?y["~x>)J֫o=FO; 1af@Y^P2QY>>8A=^/=<5xXZkF5+fp84hZU(v އgu_7|bM?[XtI*aq5le_IDx/韴>okY>WKQ`Ռ!. +dzyΗ~)|U;C=Iiw5 m/UuTl"mU9 )Щ$RN3rU#٪J6SnG >2Z.YX^Xi>:y~s.~5idR[;@-bbPT.r8kƮ߲t</VI5/ XxR67+Lnp򫻔vb`C}TPEMvyu|j}廴RiZ?ݶ)qW|U_go>+ou|1RD+eqʰ# {< Gǫڤ4i\.jO,I)?4/2x< GǨ8~ӿ{O@[O_B-/P?~?zy=;W`h_e ?4/2x< GǨ8~ӿ{O@[O_B-/P?~?zy=;W`h_e ?4/2|y~hQcΓ~<[ha|+Df$Q,RYIu|_g+WFa4`=_ҿo~W+q9>YE/8#ъBWo:2kgp~ƿu_p#OU|= !m>?ҽC'Je_t=6X#ӭi/jpYXX|AԢ8M~GvUU< 5 |=¾WKShV\'Je_'G9%tokp,YM<2I8NrRHZjR=/{M|5{}5{}Jҿo~W(ҿo~W)c? +@t?AW+W+zWN@GN@G&;L= =oPy7kGU ?9G7kGU ?9^2Q2QɎx/o¿[Ck |=¾Q |=¾Wd_ +d_ +rc? p~ƿu_p~ƿu__:W-:W-0+@t?AW+W+zWN@GN@G&;L= =oPy7kGU ?9G7kGU ?9^2Q2QɎx/o¿[Ck |=¾Q |=¾Wd_ +d_ +rc? p~ƿu_p~ƿu__:W-:W-0+@t?AW+W+zWN@GN@G&;L= =oPy7kGU ?9G7kGU ?9^2Q2QɎx/o¿[Ck |=¾TɦFGZ_gzN@GN@C9? O I^(<1¬3GVE)H-]W/g(Iia5b՞+V]nG`x pa'R-2+$&ҏ<<&jֵO욫/KxVӴgcR#UA%_(xo)/ G#PSÃÒ#RMmPK{X9o%YE]CߴE_xk?~*ԵP!0.`O3H(^VoB~c.gjN6iiS Zz> 5()Q9AwVvcA״O薞%֯miڅ\XY̲Cq dIu|ោ__r_XE2*@$:G% ¨KO?>-|ZL慡[Ͷq᛽ՋˤY^6ȯZY&*BE"`Uɷe{{n;ʴ֥J\iP=88XՄݢwZi{EQ^QE' xN~);Md[?s{QEQEQEQEQEW|hJ>)XдO[е=bMkLVR`Eqnw;^yfBWcy?hsKkc@׼ s/MMZxKPIܺ]մلh%ˤW "cb38ng$ڏkokks~ sF4jB2JiErM7ZxO?R0}ʲ] ف j h_ŏ4Mn{+kktN+y#,:1\k.s^Dx2(8Rn^0_b~of%4 oe ۮCm0!~\74ЫIiݿpf]b:Ts~F r$JˬnM诎(n>Kcb|>5 j>>ajqO66_.tF&&܎0Ʒdǿ>7->x+ZsZALWIK!䬒*EqdXi_uM2_[4OzފfhVvVI!%!c RQTrWtܓ^{+1ln9R5ܭ5)6̒OUoӴmwDjm{\nZL"":2VFSuG%?!~|0c. ]ZZ@" $̰WkSK|4W<3x{A𦋬^\G$QLQ$K190Aif4GJ4ק+Ta]<qcFQ772vJS4[oU+{w^=ټD"Oŝ͚7x.V23OwO^j^]'╅:0MPi Uu vcF3$gk=:WN9[)BZ|RrrII*SqiOQoZ+_--oux⧈.;h2j/R@OVE-$'?o_𷁾 &x)GEHKˈ7(P7ư 9{>yIYtN+7捽NkKzJNҚQg9JT*=]tVYa#w}OE CG:guaVRRI oJ_k/?|ӥt^$|oGbf/nB`-"R65ڔhK[nߗFM[^ *ی4gxd'ԝ}'_/ῆx/t?:߇-o-}Fha4pm+h՗ SSggUS766K6v\Ѽ$;XVa6ﾋ[ܻṼ=i-(.$%`ͧyYnmA,2Ο PIa5{Ӷ>6#V \{+H`pT qM[d+/hqxq%G8K5*iIJWMI)>& ((򓿄Es? W׀|E&-9b ( ( ( ( (8_o:6B}C͡Ns_X\km&u})kv3hvgxQPl!EB`{W۩J2o{勵-=|OS<:(P8$ս{Oim ZtAk~4w DZr]뉃+,ܽa мMcZ)qFXuv'97J>[V߫>.1c%J5ȜT_.Kd#׿a]N%Eg:kymso& uM__๺-9仸7W1G8/:0YY7XfZ*\EwO(Ԟ*))BTRqѥnKd_ K㽕F[dkg#}{!k$IJk!﬿g?G>&i x~ Eͬ+0ni^2a$tn0`.eMswjV|/xOMs Ϋ/gϙܟ7~7$~]~/ x:m>x,wb{ Y3՜_2ɼ5I0:X*z._#4ꪲrNI;];)J{ygI|'wcnI5ܺ$w摢 c+bѿd/懥v.n&gKq'%GI̊pF2+hX8*qWܻ"jq7՛[wu$ۿ=?dW[[ :Ie8(wj~sڴ&{&T#g/6} TZƫs[ܲ<]]݃M4b|i߄?yG6/H=l_~ؿ#O!+?h?F'ƟCbO?;/(w^Q A1>4b|i߄?yG6/H=l_~ؿ#O!+?h?F'ƟCbO?;/(w^Q A1>4b|i߄?yG6/H=l_~ؿ#O!+?h?F'ƟCbO?;/(w^Q A1>4b|i߄?yG6/H=l_~ؿ#O!+?h?F'ƟCbO?;/(w^Q A1>4b|i߄?yG6/H=l_~ؿ#O!+?h?F'ƟCbO?;/(?o4bO?;/+h߈7_ *?9?-ocAas,Wf6acٛr>((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((sendmail-8.18.1/libmilter/docs/smfi_setpriv.html0000644000372400037240000000407414556365350021307 0ustar xbuildxbuild smfi_setpriv

smfi_setpriv

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_setpriv(
	SMFICTX *ctx,
	void *privatedata
);
Set the private data pointer for this connection.
DESCRIPTION
Called When smfi_setpriv may be called in any of the xxfi_* callbacks.
Effects Sets the private data pointer for the context ctx.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
privatedata Pointer to private data. This value will be returned by subsequent calls to smfi_getpriv using ctx.
RETURN VALUES smfi_setpriv returns MI_FAILURE if ctx is an invalid context. Otherwise, it returns MI_SUCCESS.
NOTES There is only one private data pointer per connection; multiple calls to smfi_setpriv with different values will cause previous values to be lost.

Before a filter terminates it should release the private data and set the pointer to NULL.

Copyright (c) 2000-2001, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_opensocket.html0000644000372400037240000000462314556365350021765 0ustar xbuildxbuild smfi_opensocket

smfi_opensocket

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_opensocket(
	bool rmsocket
);
Attempt to create the interface socket MTAs will use to connect to the filter.
DESCRIPTION
Called When Called only from program mainline, after calling smfi_setconn() and smfi_register(), but before calling smfi_main().
Effects smfi_opensocket attempts to create the socket specified previously by a call to smfi_setconn() which will be the interface between MTAs and the filter. This allows the calling application to ensure that the socket can be created. If this is not called, smfi_main() will create the socket implicitly (without removing a potentially existing UNIX domain socket).
ARGUMENTS
ArgumentDescription
rmsocket A flag indicating whether or not the library should try to remove any existing UNIX domain socket before trying to create a new one.
RETURN VALUES smfi_opensocket will fail and return MI_FAILURE if:
  • The interface socket could not be created for any reason.
  • rmsocket was true, and either the socket could not be examined, or exists and could not be removed.
  • smfi_setconn() or smfi_register() have not been called.
Otherwise, it will return MI_SUCCESS
Copyright (c) 2003, 2008 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/figure1.ps0000644000372400037240000001061414556365434017615 0ustar xbuildxbuild%!PS-Adobe-2.0 %%Title: figure1.fig %%Creator: fig2dev Version 3.2.3 Patchlevel %%CreationDate: Tue Jun 6 14:00:04 2000 %%For: sean@host232.Sendmail.COM (Sean O'rourke,5400) %%Orientation: Landscape %%Pages: 1 %%BoundingBox: 0 0 612 792 %%BeginSetup %%IncludeFeature: *PageSize Letter %%EndSetup %%Magnification: 1.0000 %%EndComments /$F2psDict 200 dict def $F2psDict begin $F2psDict /mtrx matrix put /col-1 {0 setgray} bind def /col0 {0.000 0.000 0.000 srgb} bind def /col1 {0.000 0.000 1.000 srgb} bind def /col2 {0.000 1.000 0.000 srgb} bind def /col3 {0.000 1.000 1.000 srgb} bind def /col4 {1.000 0.000 0.000 srgb} bind def /col5 {1.000 0.000 1.000 srgb} bind def /col6 {1.000 1.000 0.000 srgb} bind def /col7 {1.000 1.000 1.000 srgb} bind def /col8 {0.000 0.000 0.560 srgb} bind def /col9 {0.000 0.000 0.690 srgb} bind def /col10 {0.000 0.000 0.820 srgb} bind def /col11 {0.530 0.810 1.000 srgb} bind def /col12 {0.000 0.560 0.000 srgb} bind def /col13 {0.000 0.690 0.000 srgb} bind def /col14 {0.000 0.820 0.000 srgb} bind def /col15 {0.000 0.560 0.560 srgb} bind def /col16 {0.000 0.690 0.690 srgb} bind def /col17 {0.000 0.820 0.820 srgb} bind def /col18 {0.560 0.000 0.000 srgb} bind def /col19 {0.690 0.000 0.000 srgb} bind def /col20 {0.820 0.000 0.000 srgb} bind def /col21 {0.560 0.000 0.560 srgb} bind def /col22 {0.690 0.000 0.690 srgb} bind def /col23 {0.820 0.000 0.820 srgb} bind def /col24 {0.500 0.190 0.000 srgb} bind def /col25 {0.630 0.250 0.000 srgb} bind def /col26 {0.750 0.380 0.000 srgb} bind def /col27 {1.000 0.500 0.500 srgb} bind def /col28 {1.000 0.630 0.630 srgb} bind def /col29 {1.000 0.750 0.750 srgb} bind def /col30 {1.000 0.880 0.880 srgb} bind def /col31 {1.000 0.840 0.000 srgb} bind def end save newpath 0 792 moveto 0 0 lineto 612 0 lineto 612 792 lineto closepath clip newpath 198.0 238.0 translate 90 rotate 1 -1 scale /cp {closepath} bind def /ef {eofill} bind def /gr {grestore} bind def /gs {gsave} bind def /sa {save} bind def /rs {restore} bind def /l {lineto} bind def /m {moveto} bind def /rm {rmoveto} bind def /n {newpath} bind def /s {stroke} bind def /sh {show} bind def /slc {setlinecap} bind def /slj {setlinejoin} bind def /slw {setlinewidth} bind def /srgb {setrgbcolor} bind def /rot {rotate} bind def /sc {scale} bind def /sd {setdash} bind def /ff {findfont} bind def /sf {setfont} bind def /scf {scalefont} bind def /sw {stringwidth} bind def /tr {translate} bind def /tnt {dup dup currentrgbcolor 4 -2 roll dup 1 exch sub 3 -1 roll mul add 4 -2 roll dup 1 exch sub 3 -1 roll mul add 4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb} bind def /shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul 4 -2 roll mul srgb} bind def /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def /$F2psEnd {$F2psEnteredState restore end} def $F2psBegin %%Page: 1 1 10 setmiterlimit 0.06000 0.06000 sc %%Page: 1 1 /Times-Bold ff 360.00 scf sf 825 2850 m gs 1 -1 sc 90.0 rot (INTERNET) col0 sh gr /Times-Roman ff 300.00 scf sf 1800 1725 m gs 1 -1 sc (MTA) col1 sh gr % Polyline 15.000 slw n 2100 2775 m 3000 2775 l 3000 3225 l 2100 3225 l cp gs col4 s gr /Times-Roman ff 300.00 scf sf 2250 3075 m gs 1 -1 sc (MTA) col4 sh gr % Polyline n 1200 375 m 2100 375 l 2100 825 l 1200 825 l cp gs col14 s gr /Times-Roman ff 300.00 scf sf 1350 675 m gs 1 -1 sc (MTA) col14 sh gr % Polyline n 2550 1575 m 3750 2625 l gs col1 s gr % Polyline n 2550 1575 m 3750 1575 l gs col1 s gr % Polyline n 2550 1575 m 3750 825 l gs col1 s gr % Polyline n 3000 2925 m 3750 2625 l gs col4 s gr % Polyline n 2100 525 m 3750 825 l gs col14 s gr % Polyline n 2100 525 m 3750 2625 l gs col14 s gr % Polyline 45.000 slw n 1050 3075 m 2100 3075 l gs col0 s gr % Polyline n 1050 1725 m 1650 1725 l gs col0 s gr % Polyline n 1050 675 m 1200 675 l gs col0 s gr % Polyline 15.000 slw n 3750 2475 m 4950 2475 l 4950 2925 l 3750 2925 l cp gs col0 s gr % Polyline n 3750 1425 m 4950 1425 l 4950 1875 l 3750 1875 l cp gs col0 s gr % Polyline n 3750 525 m 4950 525 l 4950 975 l 3750 975 l cp gs col0 s gr /Times-Italic ff 300.00 scf sf 3900 2775 m gs 1 -1 sc (Filter 3) col0 sh gr /Times-Italic ff 300.00 scf sf 3900 1725 m gs 1 -1 sc (Filter 2) col0 sh gr /Times-Italic ff 300.00 scf sf 3900 825 m gs 1 -1 sc (Filter 1) col0 sh gr % Polyline 7.500 slw n 300 525 m 1050 525 l 1050 3225 l 300 3225 l cp gs col0 s gr % Polyline 15.000 slw n 1650 1425 m 2550 1425 l 2550 1875 l 1650 1875 l cp gs col1 s gr $F2psEnd rs showpage sendmail-8.18.1/libmilter/docs/smfi_addrcpt_par.html0000644000372400037240000000427714556365350022103 0ustar xbuildxbuild smfi_addrcpt_par

smfi_addrcpt_par

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_addrcpt_par(
	SMFICTX *ctx,
	char *rcpt,
	char *args
);
Add a recipient for the current message including ESMTP arguments.
DESCRIPTION
Called When Called only from xxfi_eom.
Effects Add a recipient to the message envelope.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
rcpt The new recipient's address.
args The new recipient's ESMTP parameters.
RETURN VALUES smfi_addrcpt_par will fail and return MI_FAILURE if:
  • rcpt is NULL.
  • Adding recipients in the current connection state is invalid.
  • A network error occurs.
  • SMFIF_ADDRCPT_PAR is not set._PAR
Otherwise, it will return MI_SUCCESS.
NOTES A filter which calls smfi_addrcpt_par must have set the SMFIF_ADDRCPT_PAR flag.
Copyright (c) 2006 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_getpriv.html0000644000372400037240000000310714556365350021267 0ustar xbuildxbuild smfi_getpriv

smfi_getpriv

SYNOPSIS 
#include <libmilter/mfapi.h>
void* smfi_getpriv(
	SMFICTX *ctx
);
Get the connection-specific data pointer for this connection.
DESCRIPTION
Called When smfi_getpriv may be called in any of the xxfi_* callbacks.
Effects None.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
RETURN VALUES smfi_getpriv returns the private data pointer stored by a prior call to smfi_setpriv, or NULL if none has been set.
Copyright (c) 2000, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/other.html0000644000372400037240000000060314556365350017710 0ustar xbuildxbuild Other Resources FAQ? Mailing list? More sample filters?
Copyright (c) 2000, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/smfi_setreply.html0000644000372400037240000000750414556365350021463 0ustar xbuildxbuild smfi_setreply

smfi_setreply

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_setreply(
	SMFICTX *ctx,
	char *rcode,
	char *xcode,
	char *message
);
Set the default SMTP error reply code. Only 4XX and 5XX replies are accepted.
DESCRIPTION
Called When smfi_setreply may be called from any of the xxfi_ callbacks other than xxfi_connect.
Effects Directly set the SMTP error reply code for this connection. This code will be used on subsequent error replies resulting from actions taken by this filter.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
rcode The three-digit (RFC 821/2821) SMTP reply code, as a null-terminated string. rcode cannot be NULL, and must be a valid 4XX or 5XX reply code.
xcode The extended (RFC 1893/2034) reply code. If xcode is NULL, no extended code is used. Otherwise, xcode must conform to RFC 1893/2034.
message The text part of the SMTP reply. If message is NULL, an empty message is used.
RETURN VALUES smfi_setreply will fail and return MI_FAILURE if:
  • The rcode or xcode argument is invalid.
  • A memory-allocation failure occurs.
  • The length of any text line is more than MAXREPLYLEN (980).
  • The message argument contains a carriage return or line feed.
Otherwise, it return MI_SUCCESS.
NOTES
  • Values passed to smfi_setreply are not checked for standards compliance.
  • The message parameter should contain only printable characters, other characters may lead to undefined behavior. For example, CR or LF will cause the call to fail, single '%' characters will cause the text to be ignored (if there really should be a '%' in the string, use '%%' just like for printf(3)).
  • For details about reply codes and their meanings, please see RFC's 821/ 2821 and 1893/ 2034.
  • If the reply code (rcode) given is a '4XX' code but SMFI_REJECT is used for the message, the custom reply is not used.
  • Similarly, if the reply code (rcode) given is a '5XX' code but SMFI_TEMPFAIL is used for the message, the custom reply is not used.
    Note: in neither of the last two cases an error is returned to the milter, libmilter silently ignores the reply code.
  • If the milter returns SMFI_TEMPFAIL and sets the reply code to '421', then the SMTP server will terminate the SMTP session with a 421 error code.
Copyright (c) 2000, 2002-2003 Proofpoint, Inc. and its suppliers. All rights reserved.
By using this file, you agree to the terms and conditions set forth in the LICENSE. sendmail-8.18.1/libmilter/docs/figure1.fig0000644000372400037240000000323514556365350017736 0ustar xbuildxbuild#FIG 3.2 Landscape Center Inches Letter 100.00 Single -2 1200 2 6 975 225 5025 3375 6 1500 1275 2700 2025 2 2 0 2 1 7 50 0 -1 0.000 0 0 7 0 0 5 1650 1425 2550 1425 2550 1875 1650 1875 1650 1425 4 0 1 50 0 0 20 0.0000 4 195 645 1800 1725 MTA\001 -6 6 1950 2625 3150 3375 2 2 0 2 4 7 50 0 -1 0.000 0 0 7 0 0 5 2100 2775 3000 2775 3000 3225 2100 3225 2100 2775 4 0 4 50 0 0 20 0.0000 4 195 645 2250 3075 MTA\001 -6 6 1050 225 2250 975 2 2 0 2 14 7 50 0 -1 0.000 0 0 7 0 0 5 1200 375 2100 375 2100 825 1200 825 1200 375 4 0 14 50 0 0 20 0.0000 4 195 645 1350 675 MTA\001 -6 2 1 0 2 1 7 50 0 -1 0.000 0 0 7 0 0 2 2550 1575 3750 2625 2 1 0 2 1 7 50 0 -1 0.000 0 0 7 0 0 2 2550 1575 3750 1575 2 1 0 2 1 7 50 0 -1 0.000 0 0 7 0 0 2 2550 1575 3750 825 2 1 0 2 4 7 50 0 -1 0.000 0 0 7 0 0 2 3000 2925 3750 2625 2 1 0 2 14 7 50 0 -1 0.000 0 0 7 0 0 2 2100 525 3750 825 2 1 0 2 14 7 50 0 -1 0.000 0 0 7 0 0 2 2100 525 3750 2625 2 1 0 4 0 7 50 0 -1 0.000 0 0 7 0 0 2 1050 3075 2100 3075 2 1 0 4 0 7 50 0 -1 0.000 0 0 7 0 0 2 1050 1725 1650 1725 2 1 0 4 0 7 50 0 -1 0.000 0 0 7 0 0 2 1050 675 1200 675 2 2 0 2 0 7 50 0 -1 0.000 0 0 -1 0 0 5 3750 2475 4950 2475 4950 2925 3750 2925 3750 2475 2 2 0 2 0 7 50 0 -1 0.000 0 0 -1 0 0 5 3750 1425 4950 1425 4950 1875 3750 1875 3750 1425 2 2 0 2 0 7 50 0 -1 0.000 0 0 -1 0 0 5 3750 525 4950 525 4950 975 3750 975 3750 525 4 0 0 50 0 1 20 0.0000 4 210 795 3900 2775 Filter 3\001 4 0 0 50 0 1 20 0.0000 4 210 795 3900 1725 Filter 2\001 4 0 0 50 0 1 20 0.0000 4 210 795 3900 825 Filter 1\001 -6 2 2 0 1 0 7 50 0 -1 0.000 0 0 -1 0 0 5 300 525 1050 525 1050 3225 300 3225 300 525 4 0 0 50 0 2 24 1.5708 4 255 1950 825 2850 INTERNET\001 sendmail-8.18.1/libmilter/docs/smfi_delrcpt.html0000644000372400037240000000436714556365350021255 0ustar xbuildxbuild smfi_delrcpt

smfi_delrcpt

SYNOPSIS 
#include <libmilter/mfapi.h>
int smfi_delrcpt(
	SMFICTX *ctx;
	char *rcpt;
);
Remove a recipient from the current message's envelope.
DESCRIPTION
Called When Called only from xxfi_eom.
Effects smfi_delrcpt removes the named recipient from the current message's envelope.
ARGUMENTS
ArgumentDescription
ctx Opaque context structure.
rcpt The recipient address to be removed, a non-NULL, null-terminated string.
RETURN VALUES smfi_delrcpt will fail and return MI_FAILURE if:
  • rcpt is NULL.
  • Deleting recipients in the current connection state is invalid.
  • A network error occurs.
  • SMFIF_DELRCPT is not set.
Otherwise, it will return MI_SUCCESS
NOTES
  • The addresses to be removed must match exactly. For example, an address and its expanded form do not match.
  • A filter which calls smfi_delrcpt must have set the SMFIF_DELRCPT flag.
    • Copyright (c) 2000, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/xxfi_eom.html0000644000372400037240000000311614556365350020407 0ustar xbuildxbuild xxfi_eom

    xxfi_eom

    SYNOPSIS 
    #include <libmilter/mfapi.h>
sfsistat (*xxfi_eom)(
	SMFICTX *ctx
);
    End of a message.
    DESCRIPTION
    Called When xxfi_eom is called once after all calls to xxfi_body for a given message.
    Default Behavior Do nothing; return SMFIS_CONTINUE.
    ARGUMENTS
    ArgumentDescription
    ctx Opaque context structure.
    NOTES A filter is required to make all its modifications to the message headers, body, and envelope in xxfi_eom. Modifications are made via the smfi_* routines.
    Copyright (c) 2000, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/xxfi_abort.html0000644000372400037240000000460414556365350020741 0ustar xbuildxbuild xxfi_abort

    xxfi_abort

    SYNOPSIS 
    #include <libmilter/mfapi.h>
sfsistat (*xxfi_abort)(
	SMFICTX *ctx
);
    Handle the current message's being aborted.
    DESCRIPTION
    Called When xxfi_abort may be called at any time during message processing (i.e. between some message-oriented routine and xxfi_eom).
    Default Behavior Do nothing; return SMFIS_CONTINUE.
    ARGUMENTS
    ArgumentDescription
    ctx Opaque context structure.
    NOTES
    • xxfi_abort must reclaim any resources allocated on a per-message basis, and must be tolerant of being called between any two message-oriented callbacks.
    • Calls to xxfi_abort and xxfi_eom are mutually exclusive.
    • xxfi_abort is not responsible for reclaiming connection-specific data, since xxfi_close is always called when a connection is closed.
    • Since the current message is already being aborted, the return value is currently ignored.
    • xxfi_abort is only called if the message is aborted outside the filter's control and the filter has not completed its message-oriented processing. For example, if a filter has already returned SMFIS_ACCEPT, SMFIS_REJECT, or SMFIS_DISCARD from a message-oriented routine, xxfi_abort will not be called even if the message is later aborted outside its control.
    Copyright (c) 2000, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/api.html0000644000372400037240000003211614556365350017344 0ustar xbuildxbuild Milter API

    Milter API

    Contents

    Library Control Functions

    Before handing control to libmilter (by calling smfi_main), a filter may call the following functions to set libmilter parameters. In particular, the filter must call smfi_register to register its callbacks. Each function will return either MI_SUCCESS or MI_FAILURE to indicate the status of the operation.

    None of these functions communicate with the MTA. All alter the library's state, some of which is communicated to the MTA inside smfi_main.

    FunctionDescription
    smfi_opensocketTry to create the interface socket.
    smfi_registerRegister a filter.
    smfi_setconnSpecify socket to use.
    smfi_settimeoutSet timeout.
    smfi_setbacklogDefine the incoming listen(2) queue size.
    smfi_setdbgSet the milter library debugging (tracing) level.
    smfi_stopCause an orderly shutdown.
    smfi_mainHand control to libmilter.

    Data Access Functions

    The following functions may be called from within the filter-defined callbacks to access information about the current connection or message.

    FunctionDescription
    smfi_getsymvalReturn the value of a symbol.
    smfi_getprivGet the private data pointer.
    smfi_setprivSet the private data pointer.
    smfi_setreplySet the specific reply code to be used.
    smfi_setmlreplySet the specific multi-line reply to be used.

    Message Modification Functions

    The following functions change a message's contents and attributes. They may only be called in xxfi_eom. All of these functions may invoke additional communication with the MTA. They will return either MI_SUCCESS or MI_FAILURE to indicate the status of the operation. Message data (senders, recipients, headers, body chunks) passed to these functions via parameters is copied and does not need to be preserved (i.e., allocated memory can be freed).

    A filter which might call a message modification function must set the appropriate flag (listed below), either in the description passed to smfi_register or via xxfi_negotiate. Failure to do so will cause the MTA to treat a call to the function as a failure of the filter, terminating its connection.

    Note that the status returned indicates only whether or not the filter's message was successfully sent to the MTA, not whether or not the MTA performed the requested operation. For example, smfi_addheader, when called with an illegal header name, will return MI_SUCCESS even though the MTA may later refuse to add the illegal header.

    FunctionDescriptionSMFIF_* flag
    smfi_addheaderAdd a header to the message.SMFIF_ADDHDRS
    smfi_chgheaderChange or delete a header.SMFIF_CHGHDRS
    smfi_insheaderInsert a header into the message.SMFIF_ADDHDRS
    smfi_chgfromChange the envelope sender address.SMFIF_CHGFROM
    smfi_addrcptAdd a recipient to the envelope.SMFIF_ADDRCPT
    smfi_addrcpt_parAdd a recipient including ESMTP parameter to the envelope. SMFIF_ADDRCPT_PAR
    smfi_delrcptDelete a recipient from the envelope.SMFIF_DELRCPT
    smfi_replacebodyReplace the body of the message.SMFIF_CHGBODY

    Other Message Handling Functions

    The following functions provide special case handling instructions for milter or the MTA, without altering the content or status of the message. They too may only be called in xxfi_eom. All of these functions may invoke additional communication with the MTA. They will return either MI_SUCCESS or MI_FAILURE to indicate the status of the operation.

    Note that the status returned indicates only whether or not the filter's message was successfully sent to the MTA, not whether or not the MTA performed the requested operation.

    FunctionDescription
    smfi_progressReport operation in progress.
    smfi_quarantineQuarantine a message.

    Callbacks

    The filter should implement one or more of the following callbacks, which are registered via smfi_register:

    FunctionDescription
    xxfi_connectconnection info
    xxfi_heloSMTP HELO/EHLO command
    xxfi_envfromenvelope sender
    xxfi_envrcptenvelope recipient
    xxfi_dataDATA command
    xxfi_unknownUnknown SMTP command
    xxfi_headerheader
    xxfi_eohend of header
    xxfi_bodybody block
    xxfi_eomend of message
    xxfi_abortmessage aborted
    xxfi_closeconnection cleanup
    xxfi_negotiateoption negotiation

    The above callbacks should all return one of the following return values, having the indicated meanings. Any return other than one of the below values constitutes an error, and will cause sendmail to terminate its connection to the offending filter.

    Milter distinguishes between recipient-, message-, and connection-oriented routines. Recipient-oriented callbacks may affect the processing of a single message recipient; message-oriented callbacks, a single message; connection-oriented callbacks, an entire connection (during which multiple messages may be delivered to multiple sets of recipients). xxfi_envrcpt is recipient-oriented. xxfi_negotiate, xxfi_connect, xxfi_helo and xxfi_close are connection-oriented. All other callbacks are message-oriented.

    Return valueDescription
    SMFIS_CONTINUE Continue processing the current connection, message, or recipient.
    SMFIS_REJECT For a connection-oriented routine, reject this connection; call xxfi_close.
    For a message-oriented routine (except xxfi_abort), reject this message.
    For a recipient-oriented routine, reject the current recipient (but continue processing the current message).
    SMFIS_DISCARD For a message- or recipient-oriented routine, accept this message, but silently discard it.
    SMFIS_DISCARD should not be returned by a connection-oriented routine.
    SMFIS_ACCEPT For a connection-oriented routine, accept this connection without further filter processing; call xxfi_close.
    For a message- or recipient-oriented routine, accept this message without further filtering.
    SMFIS_TEMPFAIL Return a temporary failure, i.e., the corresponding SMTP command will return an appropriate 4xx status code. For a message-oriented routine (except xxfi_envfrom), fail for this message.
    For a connection-oriented routine, fail for this connection; call xxfi_close.
    For a recipient-oriented routine, only fail for the current recipient; continue message processing.
    SMFIS_SKIP Skip further callbacks of the same type in this transaction. Currently this return value is only allowed in xxfi_body(). It can be used if a milter has received sufficiently many body chunks to make a decision, but still wants to invoke message modification functions that are only allowed to be called from xxfi_eom(). Note: the milter must negotiate this behavior with the MTA, i.e., it must check whether the protocol action SMFIP_SKIP is available and if so, the milter must request it.
    SMFIS_NOREPLY Do not send a reply back to the MTA. The milter must negotiate this behavior with the MTA, i.e., it must check whether the appropriate protocol action SMFIP_NR_* is available and if so, the milter must request it. If you set the SMFIP_NR_* protocol action for a callback, that callback must always reply with SMFIS_NOREPLY. Using any other reply code is a violation of the API. If in some cases your callback may return another value (e.g., due to some resource shortages), then you must not set SMFIP_NR_* and you must use SMFIS_CONTINUE as the default return code. (Alternatively you can try to delay reporting the problem to a later callback for which SMFIP_NR_* is not set.)

    Miscellaneous

    FunctionDescription
    smfi_versionlibmilter (runtime) version info
    smfi_setsymlist Set the list of macros that the milter wants to receive from the MTA for a protocol stage.

    ConstantDescription
    SMFI_VERSIONlibmilter (compile time) version info

    Copyright (c) 2000, 2003, 2006, 2009 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/smfi_chgfrom.html0000644000372400037240000000466314556365350021244 0ustar xbuildxbuild smfi_chgfrom

    smfi_chgfrom

    SYNOPSIS 
    #include <libmilter/mfapi.h>
int smfi_chgfrom(
	SMFICTX *ctx,
	const char *mail,
	char *args
);
    Change the envelope sender (MAIL From) of the current message.
    DESCRIPTION
    Called When Called only from xxfi_eom.
    Effects Change the envelope sender (MAIL From) of the current message.
    ARGUMENTS
    ArgumentDescription
    ctx Opaque context structure.
    mail The new sender address.
    args ESMTP arguments.
    RETURN VALUES smfi_chgfrom will fail and return MI_FAILURE if:
    • mail is NULL.
    • Changing the sender in the current connection state is invalid.
    • A network error occurs.
    • SMFIF_CHGFROM is not set.
    Otherwise, it will return MI_SUCCESS.
    NOTES A filter which calls smfi_chgfrom must have set the SMFIF_CHGFROM flag.
    Even though all ESMTP arguments could be set via this call, it does not make sense to do so for many of them, e.g., SIZE and BODY. Setting those may cause problems, proper care must be taken. Moreover, there is no feedback from the MTA to the milter whether the call was successful.
    Copyright (c) 2006 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/smfi_setmlreply.html0000644000372400037240000001111614556365350022006 0ustar xbuildxbuild smfi_setmlreply

    smfi_setmlreply

    SYNOPSIS 
    #include <libmilter/mfapi.h>
int smfi_setmlreply(
	SMFICTX *ctx,
	char *rcode,
	char *xcode,
	...
);
    Set the default SMTP error reply code to a multi-line response. Only 4XX and 5XX replies are accepted.
    DESCRIPTION
    Called When smfi_setmlreply may be called from any of the xxfi_ callbacks other than xxfi_connect.
    Effects Directly set the SMTP error reply code for this connection to the given lines after the xcode. The list of arguments must be NULL terminated. This code will be used on subsequent error replies resulting from actions taken by this filter.
    ARGUMENTS
    ArgumentDescription
    ctx Opaque context structure.
    rcode The three-digit (RFC 821/2821) SMTP reply code, as a null-terminated string. rcode cannot be NULL, and must be a valid 4XX or 5XX reply code.
    xcode The extended (RFC 1893/2034) reply code. If xcode is NULL, a generic X.0.0 code is used, where X is the first digit of rcode. Otherwise, xcode must conform to RFC 1893/2034.
    ... The remainder of the arguments are single lines of text, up to 32 arguments, which will be used as the text part of the SMTP reply. The list must be NULL terminated.
    EXAMPLE For example, the code:
    	ret = smfi_setmlreply(ctx, "550", "5.7.0",
			      "Spammer access rejected",
			      "Please see our policy at:",
			      "http://www.example.com/spampolicy.html",
			      NULL);

    would give the SMTP response:
    550-5.7.0 Spammer access rejected
550-5.7.0 Please see our policy at:
550 5.7.0 http://www.example.com/spampolicy.html
    RETURN VALUES smfi_setmlreply will fail and return MI_FAILURE if:
    • The rcode or xcode argument is invalid.
    • A memory-allocation failure occurs.
    • If any text line contains a carriage return or line feed.
    • The length of any text line is more than MAXREPLYLEN (980).
    • More than 32 lines of text replies are given.
    Otherwise, it return MI_SUCCESS.
    NOTES
    • Values passed to smfi_setmlreply are not checked for standards compliance.
    • The message parameter should contain only printable characters, other characters may lead to undefined behavior. For example, CR or LF will cause the call to fail, single '%' characters will cause the text to be ignored (if there really should be a '%' in the string, use '%%' just like for printf(3)).
    • For details about reply codes and their meanings, please see RFC's 821/ 2821 and 1893/ 2034.
    • If the reply code (rcode) given is a '4XX' code but SMFI_REJECT is used for the message, the custom reply is not used.
    • Similarly, if the reply code (rcode) given is a '5XX' code but SMFI_TEMPFAIL is used for the message, the custom reply is not used.
      Note: in neither of the last two cases an error is returned to the milter, libmilter silently ignores the reply code.
    • If the milter returns SMFI_TEMPFAIL and sets the reply code to '421', then the SMTP server will terminate the SMTP session with a 421 error code.
    Copyright (c) 2000, 2002-2003 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/smfi_getsymval.html0000644000372400037240000000647214556365350021632 0ustar xbuildxbuild smfi_getsymval

    smfi_getsymval

    SYNOPSIS 
    #include <libmilter/mfapi.h>
char* smfi_getsymval(
	SMFICTX *ctx,
	char *symname
);
    Get the value of a sendmail macro.
    DESCRIPTION
    Called When smfi_getsymval may be called from within any of the xxfi_* callbacks. Which macros are defined will depend on when it is called.
    Effects None.
    ARGUMENTS
    ArgumentDescription
    ctx The opaque context structure.
    symname The name of a sendmail macro. Single letter macros can optionally be enclosed in braces ("{" and "}"), longer macro names must be enclosed in braces, just as in a sendmail.cf file. See below for default macros.
    RETURN VALUES smfi_getsymval returns the value of the given macro as a null-terminated string, or NULL if the macro is not defined.
    NOTES By default, the following macros are valid in the given contexts:
    Sent WithMacros
    xxfi_connect daemon_name, if_name, if_addr, j, _
    xxfi_helo tls_version, cipher, cipher_bits, cert_subject, cert_issuer
    xxfi_envfrom i, auth_type, auth_authen, auth_ssf, auth_author, mail_mailer, mail_host, mail_addr
    xxfi_envrcpt rcpt_mailer, rcpt_host, rcpt_addr
    xxfi_data (none)
    xxfi_eoh (none)
    xxfi_eom msg_id

    All macros stay in effect from the point they are received until

    • the end of the connection for the first two sets,
    • just for each recipient for xxfi_envrcpt.
    • and the end of the message for the rest.

    The macro list can be changed using the confMILTER_MACROS_* options in sendmail.mc or via the smfi_setsymlist function. The scopes of such macros will be determined by when they are set by sendmail. For descriptions of macros' values, please see the "Sendmail Installation and Operation Guide" provided with your sendmail distribution.

    Copyright (c) 2000, 2002-2003, 2007 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/smfi_progress.html0000644000372400037240000000323114556365350021451 0ustar xbuildxbuild smfi_progress

    smfi_progress

    SYNOPSIS 
    #include <libmilter/mfapi.h>
int smfi_progress(
	SMFICTX *ctx;
);
    Notify the MTA that an operation is still in progress.
    DESCRIPTION
    Called When Called only from xxfi_eom.
    Effects smfi_progress notifies the MTA that the filter is still working on a message, causing the MTA to re-start its timeouts.
    ARGUMENTS
    ArgumentDescription
    ctx Opaque context structure.
    RETURN VALUES smfi_progress will fail and return MI_FAILURE if:
    • A network error occurs.
    Otherwise, it will return MI_SUCCESS
    Copyright (c) 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/smfi_insheader.html0000644000372400037240000001135514556365350021555 0ustar xbuildxbuild smfi_insheader

    smfi_insheader

    SYNOPSIS 
    #include <libmilter/mfapi.h>
int smfi_insheader(
	SMFICTX *ctx,
	int hdridx,
	char *headerf,
	char *headerv
);
    Prepend a header to the current message.
    DESCRIPTION
    Called When Called only from xxfi_eom.
    Effects Prepends a header to the current message.
    ARGUMENTS
    ArgumentDescription
    ctx Opaque context structure.
    hdridx The location in the internal header list where this header should be inserted; 0 makes it the topmost header, etc.
    headerf The header name, a non-NULL, null-terminated string.
    headerv The header value to be added, a non-NULL, null-terminated string. This may be the empty string.
    RETURN VALUES smfi_insheader returns MI_FAILURE if:
    • headerf or headerv is NULL.
    • Adding headers in the current connection state is invalid.
    • Memory allocation fails.
    • A network error occurs.
    • SMFIF_ADDHDRS is not set.
    Otherwise, it returns MI_SUCCESS.
    NOTES
    • smfi_insheader does not change a message's existing headers. To change a header's current value, use smfi_chgheader.
    • A filter which calls smfi_insheader must have set the SMFIF_ADDHDRS flag.
    • For smfi_insheader, filter order is important. Later filters will see the header changes made by earlier ones.
    • A filter will receive only headers that have been sent by the SMTP client and those header modifications by earlier filters. It will not receive the headers that are inserted by sendmail itself. This makes the header insertion position highly dependent on the headers that exist in the incoming message and those that are configured to be added by sendmail. For example, sendmail will always add a Received: header to the beginning of the headers. Setting hdridx to 0 will actually insert the header before this Received: header. However, later filters can be easily confused as they receive the added header, but not the Received: header, thus making it hard to insert a header at a fixed position.
    • If hdridx is a number larger than the number of headers in the message, the header will simply be appended.
    • Neither the name nor the value of the header is checked for standards compliance. However, each line of the header must be under 2048 characters and should be under 998 characters. If longer headers are needed, make them multi-line. To make a multi-line header, insert a line feed (ASCII 0x0a, or \n in C) followed by at least one whitespace character such as a space (ASCII 0x20) or tab (ASCII 0x09, or \t in C). The line feed should NOT be preceded by a carriage return (ASCII 0x0d); the MTA will add this automatically. It is the filter writer's responsibility to ensure that no standards are violated.
    • The MTA adds a leading space to an inserted header value unless the flag SMFIP_HDR_LEADSPC is set, in which case the milter must include any desired leading spaces itself.
    EXAMPLE 
      int ret;
  SMFICTX *ctx;

  ...

  ret = smfi_insheader(ctx, 0, "First", "See me?");
    Copyright (c) 2004, 2006, 2009 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/smfi_setsymlist.html0000644000372400037240000000555114556365350022034 0ustar xbuildxbuild smfi_setsymlist

    smfi_setsymlist

    SYNOPSIS 
    #include <libmilter/mfapi.h>
int smfi_setsymlist(
        SMFICTX    *ctx,
	int        stage,
	char       *macros
);
    Set the list of macros that the milter wants to receive from the MTA for a protocol stage.
    DESCRIPTION
    Called When This function must only be called during xxfi_negotiate().
    Effects This function can be used to override the list of macros that the milter wants to receive from the MTA.
    ARGUMENTS
    ArgumentDescription
    ctx the opaque context structure.
    stage the protocol stage during which the macro list should be used. See the file include/libmilter/mfapi.h for legal values, look for the C macros with the prefix SMFIM_. Available protocol stages are at least the initial connection, HELO/EHLO, MAIL, RCPT, DATA, end of header, and the end of a message.
    macros list of macros (separated by space). Example: "{rcpt_mailer} {rcpt_host}"
    An empty string ("", not NULL) can be used to specify that no macros should be sent.
    RETURN VALUES MI_FAILURE is returned if
    • there is not enough free memory to make a copy of the macro list,
    • macros is NULL,
    • stage is not a valid protocol stage,
    • the macro list for stage has been set before.
    Otherwise MI_SUCCESS is returned.
    NOTES There is an internal limit on the number of macros that can be set (currently 50), however, this limit is not enforced by libmilter, only by the MTA, but a possible violation of this restriction is not communicated back to the milter.
    Copyright (c) 2006, 2012 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/xxfi_data.html0000644000372400037240000000422014556365350020535 0ustar xbuildxbuild xxfi_data

    xxfi_data

    SYNOPSIS 
    #include <libmilter/mfapi.h>
sfsistat (*xxfi_data)(
	SMFICTX *ctx
);
    Handle the DATA command.
    DESCRIPTION
    Called When xxfi_data is called when the client uses the DATA command.
    Default Behavior Do nothing; return SMFIS_CONTINUE.
    ARGUMENTS
    ArgumentDescription
    ctx Opaque context structure.
    SPECIAL RETURN VALUES
    Return valueDescription
    SMFIS_TEMPFAIL Reject this message with a temporary error.
    SMFIS_REJECT Reject this message.
    SMFIS_DISCARD Accept and silently discard this message.
    SMFIS_ACCEPT Accept this message.
    NOTES For more details on ESMTP responses, please see RFC 1869.
    Copyright (c) 2006 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/smfi_setbacklog.html0000644000372400037240000000331314556365350021724 0ustar xbuildxbuild smfi_setbacklog

    smfi_setbacklog

    SYNOPSIS 
    #include <libmilter/mfapi.h>
int smfi_setbacklog(
	int obacklog
);
    Set the filter's listen(2) backlog value.
    DESCRIPTION
    Called When smfi_setbacklog should only be called before smfi_main.
    Effects Sets the incoming socket backlog used by listen(2). If smfi_setbacklog is not called, the operating system default is used.
    ARGUMENTS
    ArgumentDescription
    obacklog The number of incoming connections to allow in the listen queue.
    RETURN VALUES smfi_setbacklog returns MI_FAILURE if obacklog is less than or equal to zero.
    Copyright (c) 2002-2003 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/index.html0000644000372400037240000000510614556365350017701 0ustar xbuildxbuild Filtering Mail with Sendmail

    Filtering Mail with Sendmail

    Introduction

    Sendmail's Content Management API (milter) provides third-party programs to access mail messages as they are being processed by the Mail Transfer Agent (MTA), allowing them to examine and modify message content and meta-information. Filtering policies implemented by Milter-conformant filters may then be centrally configured and composed in an end-user's MTA configuration file.

    Possible uses for filters include spam rejection, virus filtering, and content control. In general, Milter seeks to address site-wide filtering concerns in a scalable way. Individual users' mail filtering needs (e.g. sorting messages by subject) are left to client-level programs such as Procmail.

    This document is a technical introduction intended for those interested in developing Milter filters. It includes:

    • A description of Milter's design goals.
    • An explanation of Milter application architecture, including interactions between the support library and user code, and between filters and the MTA.
    • A specification of the C application programming interface.
    • An example of a simple Milter filter.

    Contents

    Copyright (c) 2000, 2001, 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/smfi_setdbg.html0000644000372400037240000000327514556365350021065 0ustar xbuildxbuild smfi_setdbg

    smfi_setdbg

    SYNOPSIS 
    #include <libmilter/mfapi.h>
int smfi_setdbg(
	int level;
);
    Set the debugging (tracing) level for the milter library.
    DESCRIPTION
    Called When Called from any any routine at any time.
    Effects smfi_setdbg sets the milter library's internal debugging level to a new level so that code details may be traced. A level of zero turns off debugging. The greater (more positive) the level the more detailed the debugging. Six is the current, highest, useful value.
    ARGUMENTS
    ArgumentDescription
    level The new debugging level
    RETURN VALUES smfi_setdbg returns MI_SUCCESS by default.
    Copyright (c) 2003 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/docs/smfi_version.html0000644000372400037240000000504214556365350021274 0ustar xbuildxbuild smfi_version()

    smfi_version()

    SYNOPSIS 
    #include <libmilter/mfapi.h>
int smfi_version(
	unsigned int *pmajor,
	unsigned int *pminor,
	unsigned int *ppl
);
    Get the (runtime) version of libmilter.
    DESCRIPTION
    Called When smfi_version may be called at any time.
    Effects None.
    ARGUMENTS
    ArgumentDescription
    pmajor Pointer to an unsigned int variable to store major version number.
    pminor Pointer to an unsigned int variable to store minor version number.
    ppl Pointer to an unsigned int variable to store patch level number.
    RETURN VALUES smfi_version returns MI_SUCCESS.
    Note: the compile time version of libmilter is available in the macro SMFI_VERSION. To extract the major and minor version as well as the current patch level from this macro, the macros SM_LM_VRS_MAJOR(v), SM_LM_VRS_MINOR(v), and SM_LM_VRS_PLVL(v) can be used, respectively. A milter can check the SMFI_VERSION macro to determine which functions to use (at compile time via C preprocessor statements). Using this macro and the smfi_version() function, a milter can determine at runtime whether it has been (dynamically) linked against the expected libmilter version. Such a function should only compare the major and minor version, not the patch level, i.e., the libmilter library will be compatible despite different patch levels.
    Copyright (c) 2006-2008 Proofpoint, Inc. and its suppliers. All rights reserved.
    By using this file, you agree to the terms and conditions set forth in the LICENSE.     sendmail-8.18.1/libmilter/handler.c0000644000372400037240000000176614556365350016545 0ustar xbuildxbuild/* * Copyright (c) 1999-2003, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: handler.c,v 8.40 2013-11-22 20:51:36 ca Exp $") #include "libmilter.h" #if !_FFR_WORKERS_POOL /* ** MI_HANDLE_SESSION -- Handle a connected session in its own context ** ** Parameters: ** ctx -- context structure ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int mi_handle_session(ctx) SMFICTX_PTR ctx; { int ret; if (ctx == NULL) return MI_FAILURE; ctx->ctx_id = (sthread_t) sthread_get_id(); /* ** Detach so resources are freed when the thread returns. ** If we ever "wait" for threads, this call must be removed. */ if (pthread_detach(ctx->ctx_id) != 0) ret = MI_FAILURE; else ret = mi_engine(ctx); mi_clr_ctx(ctx); ctx = NULL; return ret; } #endif /* !_FFR_WORKERS_POOL */ sendmail-8.18.1/libmilter/comm.c0000644000372400037240000001500314556365350016050 0ustar xbuildxbuild/* * Copyright (c) 1999-2004, 2009 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: comm.c,v 8.71 2013-11-22 20:51:36 ca Exp $") #include "libmilter.h" #include #include static ssize_t retry_writev __P((socket_t, struct iovec *, int, struct timeval *)); static size_t Maxdatasize = MILTER_MAX_DATA_SIZE; /* ** SMFI_SETMAXDATASIZE -- set limit for milter data read/write. ** ** Parameters: ** sz -- new limit. ** ** Returns: ** old limit */ size_t smfi_setmaxdatasize(sz) size_t sz; { size_t old; old = Maxdatasize; Maxdatasize = sz; return old; } /* ** MI_RD_CMD -- read a command ** ** Parameters: ** sd -- socket descriptor ** timeout -- maximum time to wait ** cmd -- single character command read from sd ** rlen -- pointer to length of result ** name -- name of milter ** ** Returns: ** buffer with rest of command ** (malloc()ed here, should be free()d) ** hack: encode error in cmd */ char * mi_rd_cmd(sd, timeout, cmd, rlen, name) socket_t sd; struct timeval *timeout; char *cmd; size_t *rlen; char *name; { ssize_t len; mi_int32 expl; ssize_t i; FD_RD_VAR(rds, excs); int ret; int save_errno; char *buf; char data[MILTER_LEN_BYTES + 1]; *cmd = '\0'; *rlen = 0; i = 0; for (;;) { FD_RD_INIT(sd, rds, excs); ret = FD_RD_READY(sd, rds, excs, timeout); if (ret == 0) break; else if (ret < 0) { if (errno == EINTR) continue; break; } if (FD_IS_RD_EXC(sd, rds, excs)) { *cmd = SMFIC_SELECT; return NULL; } len = MI_SOCK_READ(sd, data + i, sizeof data - i); if (MI_SOCK_READ_FAIL(len)) { smi_log(SMI_LOG_ERR, "%s, mi_rd_cmd: read returned %d: %s", name, (int) len, sm_errstring(errno)); *cmd = SMFIC_RECVERR; return NULL; } if (len == 0) { *cmd = SMFIC_EOF; return NULL; } if (len >= (ssize_t) sizeof data - i) break; i += len; } if (ret == 0) { *cmd = SMFIC_TIMEOUT; return NULL; } else if (ret < 0) { smi_log(SMI_LOG_ERR, "%s: mi_rd_cmd: %s() returned %d: %s", name, MI_POLLSELECT, ret, sm_errstring(errno)); *cmd = SMFIC_RECVERR; return NULL; } *cmd = data[MILTER_LEN_BYTES]; data[MILTER_LEN_BYTES] = '\0'; (void) memcpy((void *) &expl, (void *) &(data[0]), MILTER_LEN_BYTES); expl = ntohl(expl) - 1; if (expl <= 0) return NULL; if (expl > Maxdatasize) { *cmd = SMFIC_TOOBIG; return NULL; } #if _FFR_ADD_NULL buf = malloc(expl + 1); #else buf = malloc(expl); #endif if (buf == NULL) { *cmd = SMFIC_MALLOC; return NULL; } i = 0; for (;;) { FD_RD_INIT(sd, rds, excs); ret = FD_RD_READY(sd, rds, excs, timeout); if (ret == 0) break; else if (ret < 0) { if (errno == EINTR) continue; break; } if (FD_IS_RD_EXC(sd, rds, excs)) { *cmd = SMFIC_SELECT; free(buf); return NULL; } len = MI_SOCK_READ(sd, buf + i, expl - i); if (MI_SOCK_READ_FAIL(len)) { smi_log(SMI_LOG_ERR, "%s: mi_rd_cmd: read returned %d: %s", name, (int) len, sm_errstring(errno)); ret = -1; break; } if (len == 0) { *cmd = SMFIC_EOF; free(buf); return NULL; } if (len > expl - i) { *cmd = SMFIC_RECVERR; free(buf); return NULL; } if (len >= expl - i) { *rlen = expl; #if _FFR_ADD_NULL /* makes life simpler for common string routines */ buf[expl] = '\0'; #endif return buf; } i += len; } save_errno = errno; free(buf); /* select returned 0 (timeout) or < 0 (error) */ if (ret == 0) { *cmd = SMFIC_TIMEOUT; return NULL; } if (ret < 0) { smi_log(SMI_LOG_ERR, "%s: mi_rd_cmd: %s() returned %d: %s", name, MI_POLLSELECT, ret, sm_errstring(save_errno)); *cmd = SMFIC_RECVERR; return NULL; } *cmd = SMFIC_UNKNERR; return NULL; } /* ** RETRY_WRITEV -- Keep calling the writev() system call ** until all the data is written out or an error occurs. ** ** Parameters: ** fd -- socket descriptor ** iov -- io vector ** iovcnt -- number of elements in io vector ** must NOT exceed UIO_MAXIOV. ** timeout -- maximum time to wait ** ** Returns: ** success: number of bytes written ** otherwise: MI_FAILURE */ static ssize_t retry_writev(fd, iov, iovcnt, timeout) socket_t fd; struct iovec *iov; int iovcnt; struct timeval *timeout; { int i; ssize_t n, written; FD_WR_VAR(wrs); written = 0; for (;;) { while (iovcnt > 0 && iov[0].iov_len == 0) { iov++; iovcnt--; } if (iovcnt <= 0) return written; /* ** We don't care much about the timeout here, ** it's very long anyway; correct solution would be ** to take the time before the loop and reduce the ** timeout after each invocation. ** FD_SETSIZE is checked when socket is created. */ FD_WR_INIT(fd, wrs); i = FD_WR_READY(fd, wrs, timeout); if (i == 0) return MI_FAILURE; if (i < 0) { if (errno == EINTR || errno == EAGAIN) continue; return MI_FAILURE; } n = writev(fd, iov, iovcnt); if (n == -1) { if (errno == EINTR || errno == EAGAIN) continue; return MI_FAILURE; } written += n; for (i = 0; i < iovcnt; i++) { if (iov[i].iov_len > (unsigned int) n) { iov[i].iov_base = (char *)iov[i].iov_base + n; iov[i].iov_len -= (unsigned int) n; break; } n -= (int) iov[i].iov_len; iov[i].iov_len = 0; } if (i == iovcnt) return written; } } /* ** MI_WR_CMD -- write a cmd to sd ** ** Parameters: ** sd -- socket descriptor ** timeout -- maximum time to wait ** cmd -- single character command to write ** buf -- buffer with further data ** len -- length of buffer (without cmd!) ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int mi_wr_cmd(sd, timeout, cmd, buf, len) socket_t sd; struct timeval *timeout; int cmd; char *buf; size_t len; { size_t sl; ssize_t l; mi_int32 nl; int iovcnt; struct iovec iov[2]; char data[MILTER_LEN_BYTES + 1]; if (len > Maxdatasize || (len > 0 && buf == NULL)) return MI_FAILURE; nl = htonl(len + 1); /* add 1 for the cmd char */ (void) memcpy(data, (void *) &nl, MILTER_LEN_BYTES); data[MILTER_LEN_BYTES] = (char) cmd; sl = MILTER_LEN_BYTES + 1; /* set up the vector for the size / command */ iov[0].iov_base = (void *) data; iov[0].iov_len = sl; iovcnt = 1; if (len >= 0 && buf != NULL) { iov[1].iov_base = (void *) buf; iov[1].iov_len = len; iovcnt = 2; } l = retry_writev(sd, iov, iovcnt, timeout); if (l == MI_FAILURE) return MI_FAILURE; return MI_SUCCESS; } sendmail-8.18.1/libmilter/main.c0000644000372400037240000001050214556365350016040 0ustar xbuildxbuild/* * Copyright (c) 1999-2003, 2006, 2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: main.c,v 8.85 2013-11-22 20:51:36 ca Exp $") #define _DEFINE 1 #include "libmilter.h" #include #include static smfiDesc_ptr smfi = NULL; /* ** SMFI_REGISTER -- register a filter description ** ** Parameters: ** smfilter -- description of filter to register ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_register(smfilter) smfiDesc_str smfilter; { size_t len; if (smfi == NULL) { smfi = (smfiDesc_ptr) malloc(sizeof *smfi); if (smfi == NULL) return MI_FAILURE; } (void) memcpy(smfi, &smfilter, sizeof *smfi); if (smfilter.xxfi_name == NULL) smfilter.xxfi_name = "Unknown"; len = strlen(smfilter.xxfi_name) + 1; smfi->xxfi_name = (char *) malloc(len); if (smfi->xxfi_name == NULL) return MI_FAILURE; (void) sm_strlcpy(smfi->xxfi_name, smfilter.xxfi_name, len); /* compare milter version with hard coded version */ if ((SM_LM_VRS_MAJOR(smfi->xxfi_version) != SM_LM_VRS_MAJOR(SMFI_VERSION) || SM_LM_VRS_MINOR(smfi->xxfi_version) != SM_LM_VRS_MINOR(SMFI_VERSION)) && smfi->xxfi_version != 2 && smfi->xxfi_version != 3 && smfi->xxfi_version != 4) { /* hard failure for now! */ smi_log(SMI_LOG_ERR, "%s: smfi_register: version mismatch application: %d != milter: %d", smfi->xxfi_name, smfi->xxfi_version, (int) SMFI_VERSION); /* XXX how about smfi? */ free(smfi->xxfi_name); return MI_FAILURE; } return MI_SUCCESS; } /* ** SMFI_STOP -- stop milter ** ** Parameters: ** none. ** ** Returns: ** success. */ int smfi_stop() { mi_stop_milters(MILTER_STOP); return MI_SUCCESS; } /* ** Default values for some variables. ** Most of these can be changed with the functions below. */ static int dbg = 0; static char *conn = NULL; static int timeout = MI_TIMEOUT; static int backlog = MI_SOMAXCONN; /* ** SMFI_OPENSOCKET -- try the socket setup to make sure we'll be ** able to start up ** ** Parameters: ** rmsocket -- if true, instructs libmilter to attempt ** to remove the socket before creating it; ** only applies for "local:" or "unix:" sockets ** ** Return: ** MI_SUCCESS/MI_FAILURE */ int smfi_opensocket(rmsocket) bool rmsocket; { if (smfi == NULL || conn == NULL) return MI_FAILURE; return mi_opensocket(conn, backlog, dbg, rmsocket, smfi); } /* ** SMFI_SETDBG -- set debug level. ** ** Parameters: ** odbg -- new debug level. ** ** Returns: ** MI_SUCCESS */ int smfi_setdbg(odbg) int odbg; { dbg = odbg; return MI_SUCCESS; } /* ** SMFI_SETTIMEOUT -- set timeout (for read/write). ** ** Parameters: ** otimeout -- new timeout. ** ** Returns: ** MI_SUCCESS */ int smfi_settimeout(otimeout) int otimeout; { timeout = otimeout; return MI_SUCCESS; } /* ** SMFI_SETCONN -- set connection information (socket description) ** ** Parameters: ** oconn -- new connection information. ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_setconn(oconn) char *oconn; { size_t l; if (oconn == NULL || *oconn == '\0') return MI_FAILURE; l = strlen(oconn) + 1; if ((conn = (char *) malloc(l)) == NULL) return MI_FAILURE; if (sm_strlcpy(conn, oconn, l) >= l) return MI_FAILURE; return MI_SUCCESS; } /* ** SMFI_SETBACKLOG -- set backlog ** ** Parameters: ** obacklog -- new backlog. ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_setbacklog(obacklog) int obacklog; { if (obacklog <= 0) return MI_FAILURE; backlog = obacklog; return MI_SUCCESS; } /* ** SMFI_MAIN -- setup milter connection and start listener. ** ** Parameters: ** none. ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int smfi_main() { int r; (void) signal(SIGPIPE, SIG_IGN); if (conn == NULL) { smi_log(SMI_LOG_FATAL, "%s: missing connection information", smfi->xxfi_name); return MI_FAILURE; } (void) atexit(mi_clean_signals); if (mi_control_startup(smfi->xxfi_name) != MI_SUCCESS) { smi_log(SMI_LOG_FATAL, "%s: Couldn't start signal thread", smfi->xxfi_name); return MI_FAILURE; } r = MI_MONITOR_INIT(); /* Startup the listener */ if (mi_listener(conn, dbg, smfi, timeout, backlog) != MI_SUCCESS) r = MI_FAILURE; return r; } sendmail-8.18.1/libmilter/Makefile0000644000372400037240000000053214556365350016412 0ustar xbuildxbuild# $Id: Makefile,v 8.2 2006-05-23 21:55:55 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/libmilter/Build0000755000372400037240000000052714556365350015743 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.6 2013-11-22 20:51:36 ca Exp $ exec ../devtools/bin/Build "$@" sendmail-8.18.1/libmilter/engine.c0000644000372400037240000012404014556365350016364 0ustar xbuildxbuild/* * Copyright (c) 1999-2004, 2006-2008 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: engine.c,v 8.168 2013-11-22 20:51:36 ca Exp $") #include "libmilter.h" #if NETINET || NETINET6 # include #endif /* generic argument for functions in the command table */ struct arg_struct { size_t a_len; /* length of buffer */ char *a_buf; /* argument string */ int a_idx; /* index for macro array */ SMFICTX_PTR a_ctx; /* context */ }; typedef struct arg_struct genarg; /* structure for commands received from MTA */ struct cmdfct_t { char cm_cmd; /* command */ int cm_argt; /* type of arguments expected */ int cm_next; /* next state */ int cm_todo; /* what to do next */ int cm_macros; /* index for macros */ int (*cm_fct) __P((genarg *)); /* function to execute */ }; typedef struct cmdfct_t cmdfct; /* possible values for cm_argt */ #define CM_BUF 0 #define CM_NULLOK 1 /* possible values for cm_todo */ #define CT_CONT 0x0000 /* continue reading commands */ #define CT_IGNO 0x0001 /* continue even when error */ /* not needed right now, done via return code instead */ #define CT_KEEP 0x0004 /* keep buffer (contains symbols) */ #define CT_END 0x0008 /* last command of session, stop replying */ /* index in macro array: macros only for these commands */ #define CI_NONE (-1) #define CI_CONN 0 #define CI_HELO 1 #define CI_MAIL 2 #define CI_RCPT 3 #define CI_DATA 4 #define CI_EOH 5 #define CI_EOM 6 #define CI_LAST CI_EOM #if CI_LAST < CI_DATA # error "do not compile with CI_LAST < CI_DATA" #endif #if CI_LAST < CI_EOM # error "do not compile with CI_LAST < CI_EOM" #endif #if CI_LAST < CI_EOH # error "do not compile with CI_LAST < CI_EOH" #endif #if CI_LAST < CI_RCPT # error "do not compile with CI_LAST < CI_RCPT" #endif #if CI_LAST < CI_MAIL # error "do not compile with CI_LAST < CI_MAIL" #endif #if CI_LAST < CI_HELO # error "do not compile with CI_LAST < CI_HELO" #endif #if CI_LAST < CI_CONN # error "do not compile with CI_LAST < CI_CONN" #endif #if CI_LAST >= MAX_MACROS_ENTRIES # error "do not compile with CI_LAST >= MAX_MACROS_ENTRIES" #endif /* function prototypes */ static int st_abortfct __P((genarg *)); static int st_macros __P((genarg *)); static int st_optionneg __P((genarg *)); static int st_bodychunk __P((genarg *)); static int st_connectinfo __P((genarg *)); static int st_bodyend __P((genarg *)); static int st_helo __P((genarg *)); static int st_header __P((genarg *)); static int st_sender __P((genarg *)); static int st_rcpt __P((genarg *)); static int st_unknown __P((genarg *)); static int st_data __P((genarg *)); static int st_eoh __P((genarg *)); static int st_quit __P((genarg *)); static int sendreply __P((sfsistat, socket_t, struct timeval *, SMFICTX_PTR)); static void fix_stm __P((SMFICTX_PTR)); static bool trans_ok __P((int, int)); static char **dec_argv __P((char *, size_t)); static int dec_arg2 __P((char *, size_t, char **, char **)); static void mi_clr_symlist __P((SMFICTX_PTR)); #if _FFR_WORKERS_POOL static bool mi_rd_socket_ready __P((int)); #endif /* states */ #define ST_NONE (-1) #define ST_INIT 0 /* initial state */ #define ST_OPTS 1 /* option negotiation */ #define ST_CONN 2 /* connection info */ #define ST_HELO 3 /* helo */ #define ST_MAIL 4 /* mail from */ #define ST_RCPT 5 /* rcpt to */ #define ST_DATA 6 /* data */ #define ST_HDRS 7 /* headers */ #define ST_EOHS 8 /* end of headers */ #define ST_BODY 9 /* body */ #define ST_ENDM 10 /* end of message */ #define ST_QUIT 11 /* quit */ #define ST_ABRT 12 /* abort */ #define ST_UNKN 13 /* unknown SMTP command */ #define ST_Q_NC 14 /* quit, new connection follows */ #define ST_LAST ST_Q_NC /* last valid state */ #define ST_SKIP 16 /* not a state but required for the state table */ /* in a mail transaction? must be before eom according to spec. */ #define ST_IN_MAIL(st) ((st) >= ST_MAIL && (st) < ST_ENDM) /* ** set of next states ** each state (ST_*) corresponds to bit in an int value (1 << state) ** each state has a set of allowed transitions ('or' of bits of states) ** so a state transition is valid if the mask of the next state ** is set in the NX_* value ** this function is coded in trans_ok(), see below. */ #define MI_MASK(x) (0x0001 << (x)) /* generate a bit "mask" for a state */ #define NX_INIT (MI_MASK(ST_OPTS)) #define NX_OPTS (MI_MASK(ST_CONN) | MI_MASK(ST_UNKN)) #define NX_CONN (MI_MASK(ST_HELO) | MI_MASK(ST_MAIL) | MI_MASK(ST_UNKN)) #define NX_HELO (MI_MASK(ST_HELO) | MI_MASK(ST_MAIL) | MI_MASK(ST_UNKN)) #define NX_MAIL (MI_MASK(ST_RCPT) | MI_MASK(ST_ABRT) | MI_MASK(ST_UNKN)) #define NX_RCPT (MI_MASK(ST_HDRS) | MI_MASK(ST_EOHS) | MI_MASK(ST_DATA) | \ MI_MASK(ST_BODY) | MI_MASK(ST_ENDM) | \ MI_MASK(ST_RCPT) | MI_MASK(ST_ABRT) | MI_MASK(ST_UNKN)) #define NX_DATA (MI_MASK(ST_EOHS) | MI_MASK(ST_HDRS) | MI_MASK(ST_ABRT)) #define NX_HDRS (MI_MASK(ST_EOHS) | MI_MASK(ST_HDRS) | MI_MASK(ST_ABRT)) #define NX_EOHS (MI_MASK(ST_BODY) | MI_MASK(ST_ENDM) | MI_MASK(ST_ABRT)) #define NX_BODY (MI_MASK(ST_ENDM) | MI_MASK(ST_BODY) | MI_MASK(ST_ABRT)) #define NX_ENDM (MI_MASK(ST_QUIT) | MI_MASK(ST_MAIL) | MI_MASK(ST_UNKN) | \ MI_MASK(ST_Q_NC)) #define NX_QUIT 0 #define NX_ABRT 0 #define NX_UNKN (MI_MASK(ST_HELO) | MI_MASK(ST_MAIL) | \ MI_MASK(ST_RCPT) | MI_MASK(ST_ABRT) | \ MI_MASK(ST_DATA) | \ MI_MASK(ST_BODY) | MI_MASK(ST_UNKN) | \ MI_MASK(ST_ABRT) | MI_MASK(ST_QUIT) | MI_MASK(ST_Q_NC)) #define NX_Q_NC (MI_MASK(ST_CONN) | MI_MASK(ST_UNKN)) #define NX_SKIP MI_MASK(ST_SKIP) static int next_states[] = { NX_INIT , NX_OPTS , NX_CONN , NX_HELO , NX_MAIL , NX_RCPT , NX_DATA , NX_HDRS , NX_EOHS , NX_BODY , NX_ENDM , NX_QUIT , NX_ABRT , NX_UNKN , NX_Q_NC }; #define SIZE_NEXT_STATES (sizeof(next_states) / sizeof(next_states[0])) /* commands received by milter */ static cmdfct cmds[] = { {SMFIC_ABORT, CM_NULLOK, ST_ABRT, CT_CONT, CI_NONE, st_abortfct} , {SMFIC_MACRO, CM_BUF, ST_NONE, CT_KEEP, CI_NONE, st_macros } , {SMFIC_BODY, CM_BUF, ST_BODY, CT_CONT, CI_NONE, st_bodychunk} , {SMFIC_CONNECT, CM_BUF, ST_CONN, CT_CONT, CI_CONN, st_connectinfo} , {SMFIC_BODYEOB, CM_NULLOK, ST_ENDM, CT_CONT, CI_EOM, st_bodyend } , {SMFIC_HELO, CM_BUF, ST_HELO, CT_CONT, CI_HELO, st_helo } , {SMFIC_HEADER, CM_BUF, ST_HDRS, CT_CONT, CI_NONE, st_header } , {SMFIC_MAIL, CM_BUF, ST_MAIL, CT_CONT, CI_MAIL, st_sender } , {SMFIC_OPTNEG, CM_BUF, ST_OPTS, CT_CONT, CI_NONE, st_optionneg} , {SMFIC_EOH, CM_NULLOK, ST_EOHS, CT_CONT, CI_EOH, st_eoh } , {SMFIC_QUIT, CM_NULLOK, ST_QUIT, CT_END, CI_NONE, st_quit } , {SMFIC_DATA, CM_NULLOK, ST_DATA, CT_CONT, CI_DATA, st_data } , {SMFIC_RCPT, CM_BUF, ST_RCPT, CT_IGNO, CI_RCPT, st_rcpt } , {SMFIC_UNKNOWN, CM_BUF, ST_UNKN, CT_IGNO, CI_NONE, st_unknown } , {SMFIC_QUIT_NC, CM_NULLOK, ST_Q_NC, CT_CONT, CI_NONE, st_quit } }; /* ** Additional (internal) reply codes; ** must be coordinated wit libmilter/mfapi.h */ #define _SMFIS_KEEP 20 #define _SMFIS_ABORT 21 #define _SMFIS_OPTIONS 22 #define _SMFIS_NOREPLY SMFIS_NOREPLY #define _SMFIS_FAIL (-1) #define _SMFIS_NONE (-2) /* ** MI_ENGINE -- receive commands and process them ** ** Parameters: ** ctx -- context structure ** ** Returns: ** MI_FAILURE/MI_SUCCESS */ int mi_engine(ctx) SMFICTX_PTR ctx; { size_t len; int i; socket_t sd; int ret = MI_SUCCESS; int ncmds = sizeof(cmds) / sizeof(cmdfct); int curstate = ST_INIT; int newstate; bool call_abort; sfsistat r; char cmd; char *buf = NULL; genarg arg; struct timeval timeout; int (*f) __P((genarg *)); sfsistat (*fi_abort) __P((SMFICTX *)); sfsistat (*fi_close) __P((SMFICTX *)); arg.a_ctx = ctx; sd = ctx->ctx_sd; fi_abort = ctx->ctx_smfi->xxfi_abort; #if _FFR_WORKERS_POOL curstate = ctx->ctx_state; if (curstate == ST_INIT) { mi_clr_macros(ctx, 0); fix_stm(ctx); } #else /* _FFR_WORKERS_POOL */ mi_clr_macros(ctx, 0); fix_stm(ctx); #endif /* _FFR_WORKERS_POOL */ r = _SMFIS_NONE; do { /* call abort only if in a mail transaction */ call_abort = ST_IN_MAIL(curstate); timeout.tv_sec = ctx->ctx_timeout; timeout.tv_usec = 0; if (mi_stop() == MILTER_ABRT) { if (ctx->ctx_dbg > 3) sm_dprintf("[%lu] milter_abort\n", (long) ctx->ctx_id); ret = MI_FAILURE; break; } /* ** Notice: buf is allocated by mi_rd_cmd() and it will ** usually be free()d after it has been used in f(). ** However, if the function returns _SMFIS_KEEP then buf ** contains macros and will not be free()d. ** Hence r must be set to _SMFIS_NONE if a new buf is ** allocated to avoid problem with housekeeping, esp. ** if the code "break"s out of the loop. */ #if _FFR_WORKERS_POOL /* Is the socket ready to be read ??? */ if (!mi_rd_socket_ready(sd)) { ret = MI_CONTINUE; break; } #endif /* _FFR_WORKERS_POOL */ r = _SMFIS_NONE; if ((buf = mi_rd_cmd(sd, &timeout, &cmd, &len, ctx->ctx_smfi->xxfi_name)) == NULL && cmd < SMFIC_VALIDCMD) { if (ctx->ctx_dbg > 5) sm_dprintf("[%lu] mi_engine: mi_rd_cmd error (%x)\n", (long) ctx->ctx_id, (int) cmd); /* ** eof is currently treated as failure -> ** abort() instead of close(), otherwise use: ** if (cmd != SMFIC_EOF) */ ret = MI_FAILURE; break; } if (ctx->ctx_dbg > 4) sm_dprintf("[%lu] got cmd '%c' len %d\n", (long) ctx->ctx_id, cmd, (int) len); for (i = 0; i < ncmds; i++) { if (cmd == cmds[i].cm_cmd) break; } if (i >= ncmds) { /* unknown command */ if (ctx->ctx_dbg > 1) sm_dprintf("[%lu] cmd '%c' unknown\n", (long) ctx->ctx_id, cmd); ret = MI_FAILURE; break; } if ((f = cmds[i].cm_fct) == NULL) { /* stop for now */ if (ctx->ctx_dbg > 1) sm_dprintf("[%lu] cmd '%c' not impl\n", (long) ctx->ctx_id, cmd); ret = MI_FAILURE; break; } /* is new state ok? */ newstate = cmds[i].cm_next; if (ctx->ctx_dbg > 5) sm_dprintf("[%lu] cur %x new %x nextmask %x\n", (long) ctx->ctx_id, curstate, newstate, next_states[curstate]); if (newstate != ST_NONE && !trans_ok(curstate, newstate)) { if (ctx->ctx_dbg > 1) sm_dprintf("[%lu] abort: cur %d (%x) new %d (%x) next %x\n", (long) ctx->ctx_id, curstate, MI_MASK(curstate), newstate, MI_MASK(newstate), next_states[curstate]); /* call abort only if in a mail transaction */ if (fi_abort != NULL && call_abort) (void) (*fi_abort)(ctx); /* ** try to reach the new state from HELO ** if it can't be reached, ignore the command. */ curstate = ST_HELO; if (!trans_ok(curstate, newstate)) { if (buf != NULL) { free(buf); buf = NULL; } continue; } } if (cmds[i].cm_argt != CM_NULLOK && buf == NULL) { /* stop for now */ if (ctx->ctx_dbg > 1) sm_dprintf("[%lu] cmd='%c', buf=NULL\n", (long) ctx->ctx_id, cmd); ret = MI_FAILURE; break; } arg.a_len = len; arg.a_buf = buf; if (newstate != ST_NONE) { curstate = newstate; ctx->ctx_state = curstate; } arg.a_idx = cmds[i].cm_macros; call_abort = ST_IN_MAIL(curstate); /* call function to deal with command */ MI_MONITOR_BEGIN(ctx, cmd); r = (*f)(&arg); MI_MONITOR_END(ctx, cmd); if (r != _SMFIS_KEEP && buf != NULL) { free(buf); buf = NULL; } if (sendreply(r, sd, &timeout, ctx) != MI_SUCCESS) { ret = MI_FAILURE; break; } if (r == SMFIS_ACCEPT) { /* accept mail, no further actions taken */ curstate = ST_HELO; } else if (r == SMFIS_REJECT || r == SMFIS_DISCARD || r == SMFIS_TEMPFAIL) { /* ** further actions depend on current state ** if the IGNO bit is set: "ignore" the error, ** i.e., stay in the current state */ if (!bitset(CT_IGNO, cmds[i].cm_todo)) curstate = ST_HELO; } else if (r == _SMFIS_ABORT) { if (ctx->ctx_dbg > 5) sm_dprintf("[%lu] function returned abort\n", (long) ctx->ctx_id); ret = MI_FAILURE; break; } } while (!bitset(CT_END, cmds[i].cm_todo)); ctx->ctx_state = curstate; if (ret == MI_FAILURE) { /* call abort only if in a mail transaction */ if (fi_abort != NULL && call_abort) (void) (*fi_abort)(ctx); } /* has close been called? */ if (ctx->ctx_state != ST_QUIT #if _FFR_WORKERS_POOL && ret != MI_CONTINUE #endif ) { if ((fi_close = ctx->ctx_smfi->xxfi_close) != NULL) (void) (*fi_close)(ctx); } if (r != _SMFIS_KEEP && buf != NULL) free(buf); #if !_FFR_WORKERS_POOL mi_clr_macros(ctx, 0); #endif return ret; } static size_t milter_addsymlist __P((SMFICTX_PTR, char *, char **)); static size_t milter_addsymlist(ctx, buf, newbuf) SMFICTX_PTR ctx; char *buf; char **newbuf; { size_t len; int i; mi_int32 v; char *buffer; SM_ASSERT(ctx != NULL); SM_ASSERT(buf != NULL); SM_ASSERT(newbuf != NULL); len = 0; for (i = 0; i < MAX_MACROS_ENTRIES; i++) { if (ctx->ctx_mac_list[i] != NULL) { len += strlen(ctx->ctx_mac_list[i]) + 1 + MILTER_LEN_BYTES; } } if (len > 0) { size_t offset; SM_ASSERT(len + MILTER_OPTLEN > len); len += MILTER_OPTLEN; buffer = malloc(len); if (buffer != NULL) { (void) memcpy(buffer, buf, MILTER_OPTLEN); offset = MILTER_OPTLEN; for (i = 0; i < MAX_MACROS_ENTRIES; i++) { size_t l; if (ctx->ctx_mac_list[i] == NULL) continue; SM_ASSERT(offset + MILTER_LEN_BYTES < len); v = htonl(i); (void) memcpy(buffer + offset, (void *) &v, MILTER_LEN_BYTES); offset += MILTER_LEN_BYTES; l = strlen(ctx->ctx_mac_list[i]) + 1; SM_ASSERT(offset + l <= len); (void) memcpy(buffer + offset, ctx->ctx_mac_list[i], l); offset += l; } } else { /* oops ... */ } } else { len = MILTER_OPTLEN; buffer = buf; } *newbuf = buffer; return len; } /* ** GET_NR_BIT -- get "no reply" bit matching state ** ** Parameters: ** state -- current protocol stage ** ** Returns: ** 0: no matching bit ** >0: the matching "no reply" bit */ static unsigned long get_nr_bit __P((int)); static unsigned long get_nr_bit(state) int state; { unsigned long bit; switch (state) { case ST_CONN: bit = SMFIP_NR_CONN; break; case ST_HELO: bit = SMFIP_NR_HELO; break; case ST_MAIL: bit = SMFIP_NR_MAIL; break; case ST_RCPT: bit = SMFIP_NR_RCPT; break; case ST_DATA: bit = SMFIP_NR_DATA; break; case ST_UNKN: bit = SMFIP_NR_UNKN; break; case ST_HDRS: bit = SMFIP_NR_HDR; break; case ST_EOHS: bit = SMFIP_NR_EOH; break; case ST_BODY: bit = SMFIP_NR_BODY; break; default: bit = 0; break; } return bit; } /* ** SENDREPLY -- send a reply to the MTA ** ** Parameters: ** r -- reply code ** sd -- socket descriptor ** timeout_ptr -- (ptr to) timeout to use for sending ** ctx -- context structure ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ static int sendreply(r, sd, timeout_ptr, ctx) sfsistat r; socket_t sd; struct timeval *timeout_ptr; SMFICTX_PTR ctx; { int ret; unsigned long bit; ret = MI_SUCCESS; bit = get_nr_bit(ctx->ctx_state); if (bit != 0 && (ctx->ctx_pflags & bit) != 0 && r != SMFIS_NOREPLY) { if (r >= SMFIS_CONTINUE && r < _SMFIS_KEEP) { /* milter said it wouldn't reply, but it lied... */ smi_log(SMI_LOG_ERR, "%s: milter claimed not to reply in state %d but did anyway %d", ctx->ctx_smfi->xxfi_name, ctx->ctx_state, r); } /* ** Force specified behavior, otherwise libmilter ** and MTA will fail to communicate properly. */ switch (r) { case SMFIS_CONTINUE: case SMFIS_TEMPFAIL: case SMFIS_REJECT: case SMFIS_DISCARD: case SMFIS_ACCEPT: case SMFIS_SKIP: case _SMFIS_OPTIONS: r = SMFIS_NOREPLY; break; } } switch (r) { case SMFIS_CONTINUE: ret = mi_wr_cmd(sd, timeout_ptr, SMFIR_CONTINUE, NULL, 0); break; case SMFIS_TEMPFAIL: case SMFIS_REJECT: if (ctx->ctx_reply != NULL && ((r == SMFIS_TEMPFAIL && *ctx->ctx_reply == '4') || (r == SMFIS_REJECT && *ctx->ctx_reply == '5'))) { ret = mi_wr_cmd(sd, timeout_ptr, SMFIR_REPLYCODE, ctx->ctx_reply, strlen(ctx->ctx_reply) + 1); free(ctx->ctx_reply); ctx->ctx_reply = NULL; } else { ret = mi_wr_cmd(sd, timeout_ptr, r == SMFIS_REJECT ? SMFIR_REJECT : SMFIR_TEMPFAIL, NULL, 0); } break; case SMFIS_DISCARD: ret = mi_wr_cmd(sd, timeout_ptr, SMFIR_DISCARD, NULL, 0); break; case SMFIS_ACCEPT: ret = mi_wr_cmd(sd, timeout_ptr, SMFIR_ACCEPT, NULL, 0); break; case SMFIS_SKIP: ret = mi_wr_cmd(sd, timeout_ptr, SMFIR_SKIP, NULL, 0); break; case _SMFIS_OPTIONS: { mi_int32 v; size_t len; char *buffer; char buf[MILTER_OPTLEN]; v = htonl(ctx->ctx_prot_vers2mta); (void) memcpy(&(buf[0]), (void *) &v, MILTER_LEN_BYTES); v = htonl(ctx->ctx_aflags); (void) memcpy(&(buf[MILTER_LEN_BYTES]), (void *) &v, MILTER_LEN_BYTES); v = htonl(ctx->ctx_pflags2mta); (void) memcpy(&(buf[MILTER_LEN_BYTES * 2]), (void *) &v, MILTER_LEN_BYTES); len = milter_addsymlist(ctx, buf, &buffer); if (buffer != NULL) { ret = mi_wr_cmd(sd, timeout_ptr, SMFIC_OPTNEG, buffer, len); if (buffer != buf) free(buffer); } else ret = MI_FAILURE; } break; case SMFIS_NOREPLY: if (bit != 0 && (ctx->ctx_pflags & bit) != 0 && (ctx->ctx_mta_pflags & bit) == 0) { /* ** milter doesn't want to send a reply, ** but the MTA doesn't have that feature: fake it. */ ret = mi_wr_cmd(sd, timeout_ptr, SMFIR_CONTINUE, NULL, 0); } break; default: /* don't send a reply */ break; } return ret; } /* ** MI_CLR_MACROS -- clear set of macros starting from a given index ** ** Parameters: ** ctx -- context structure ** m -- index from which to clear all macros ** ** Returns: ** None. */ void mi_clr_macros(ctx, m) SMFICTX_PTR ctx; int m; { int i; for (i = m; i < MAX_MACROS_ENTRIES; i++) { if (ctx->ctx_mac_ptr[i] != NULL) { free(ctx->ctx_mac_ptr[i]); ctx->ctx_mac_ptr[i] = NULL; } if (ctx->ctx_mac_buf[i] != NULL) { free(ctx->ctx_mac_buf[i]); ctx->ctx_mac_buf[i] = NULL; } } } /* ** MI_CLR_SYMLIST -- clear list of macros ** ** Parameters: ** ctx -- context structure ** ** Returns: ** None. */ static void mi_clr_symlist(ctx) SMFICTX *ctx; { int i; SM_ASSERT(ctx != NULL); for (i = SMFIM_FIRST; i <= SMFIM_LAST; i++) { if (ctx->ctx_mac_list[i] != NULL) { free(ctx->ctx_mac_list[i]); ctx->ctx_mac_list[i] = NULL; } } } /* ** MI_CLR_CTX -- clear context ** ** Parameters: ** ctx -- context structure ** ** Returns: ** None. */ void mi_clr_ctx(ctx) SMFICTX *ctx; { SM_ASSERT(ctx != NULL); if (ValidSocket(ctx->ctx_sd)) { (void) closesocket(ctx->ctx_sd); ctx->ctx_sd = INVALID_SOCKET; } if (ctx->ctx_reply != NULL) { free(ctx->ctx_reply); ctx->ctx_reply = NULL; } if (ctx->ctx_privdata != NULL) { smi_log(SMI_LOG_WARN, "%s: private data not NULL", ctx->ctx_smfi->xxfi_name); } mi_clr_macros(ctx, 0); mi_clr_symlist(ctx); free(ctx); } /* ** ST_OPTIONNEG -- negotiate options ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** abort/send options/continue */ static int st_optionneg(g) genarg *g; { mi_int32 i, v, fake_pflags, internal_pflags; SMFICTX_PTR ctx; #if _FFR_MILTER_CHECK bool testmode = false; #endif int (*fi_negotiate) __P((SMFICTX *, unsigned long, unsigned long, unsigned long, unsigned long, unsigned long *, unsigned long *, unsigned long *, unsigned long *)); if (g == NULL || g->a_ctx->ctx_smfi == NULL) return SMFIS_CONTINUE; ctx = g->a_ctx; mi_clr_macros(ctx, g->a_idx + 1); ctx->ctx_prot_vers = SMFI_PROT_VERSION; /* check for minimum length */ if (g->a_len < MILTER_OPTLEN) { smi_log(SMI_LOG_ERR, "%s: st_optionneg[%ld]: len too short %d < %d", ctx->ctx_smfi->xxfi_name, (long) ctx->ctx_id, (int) g->a_len, MILTER_OPTLEN); return _SMFIS_ABORT; } /* protocol version */ (void) memcpy((void *) &i, (void *) &(g->a_buf[0]), MILTER_LEN_BYTES); v = ntohl(i); #define SMFI_PROT_VERSION_MIN 2 /* check for minimum version */ if (v < SMFI_PROT_VERSION_MIN) { smi_log(SMI_LOG_ERR, "%s: st_optionneg[%ld]: protocol version too old %d < %d", ctx->ctx_smfi->xxfi_name, (long) ctx->ctx_id, v, SMFI_PROT_VERSION_MIN); return _SMFIS_ABORT; } ctx->ctx_mta_prot_vers = v; if (ctx->ctx_prot_vers < ctx->ctx_mta_prot_vers) ctx->ctx_prot_vers2mta = ctx->ctx_prot_vers; else ctx->ctx_prot_vers2mta = ctx->ctx_mta_prot_vers; (void) memcpy((void *) &i, (void *) &(g->a_buf[MILTER_LEN_BYTES]), MILTER_LEN_BYTES); v = ntohl(i); /* no flags? set to default value for V1 actions */ if (v == 0) v = SMFI_V1_ACTS; ctx->ctx_mta_aflags = v; /* MTA action flags */ internal_pflags = 0; (void) memcpy((void *) &i, (void *) &(g->a_buf[MILTER_LEN_BYTES * 2]), MILTER_LEN_BYTES); v = ntohl(i); /* no flags? set to default value for V1 protocol */ if (v == 0) v = SMFI_V1_PROT; #if _FFR_MDS_NEGOTIATE else if (ctx->ctx_smfi->xxfi_version >= SMFI_VERSION_MDS) { /* ** Allow changing the size only if milter is compiled ** against a version that supports this. ** If a milter is dynamically linked against a newer ** libmilter version, we don't want to "surprise" ** it with a larger buffer as it may rely on it ** even though it is not documented as a limit. */ if (bitset(SMFIP_MDS_1M, v)) { internal_pflags |= SMFIP_MDS_1M; (void) smfi_setmaxdatasize(MILTER_MDS_1M); } else if (bitset(SMFIP_MDS_256K, v)) { internal_pflags |= SMFIP_MDS_256K; (void) smfi_setmaxdatasize(MILTER_MDS_256K); } } # if 0 /* don't log this for now... */ else if (ctx->ctx_smfi->xxfi_version < SMFI_VERSION_MDS && bitset(SMFIP_MDS_1M|SMFIP_MDS_256K, v)) { smi_log(SMI_LOG_WARN, "%s: st_optionneg[%ld]: milter version=%X, trying flags=%X", ctx->ctx_smfi->xxfi_name, (long) ctx->ctx_id, ctx->ctx_smfi->xxfi_version, v); } # endif /* 0 */ #endif /* _FFR_MDS_NEGOTIATE */ /* ** MTA protocol flags. ** We pass the internal flags to the milter as "read only", ** i.e., a milter can read them so it knows which size ** will be used, but any changes by a milter will be ignored ** (see below, search for SMFI_INTERNAL). */ ctx->ctx_mta_pflags = (v & ~SMFI_INTERNAL) | internal_pflags; /* ** Copy flags from milter struct into libmilter context; ** this variable will be used later on to check whether ** the MTA "actions" can fulfill the milter requirements, ** but it may be overwritten by the negotiate callback. */ ctx->ctx_aflags = ctx->ctx_smfi->xxfi_flags; fake_pflags = SMFIP_NR_CONN |SMFIP_NR_HELO |SMFIP_NR_MAIL |SMFIP_NR_RCPT |SMFIP_NR_DATA |SMFIP_NR_UNKN |SMFIP_NR_HDR |SMFIP_NR_EOH |SMFIP_NR_BODY ; if (g->a_ctx->ctx_smfi != NULL && g->a_ctx->ctx_smfi->xxfi_version > 4 && (fi_negotiate = g->a_ctx->ctx_smfi->xxfi_negotiate) != NULL) { int r; unsigned long m_aflags, m_pflags, m_f2, m_f3; /* ** let milter decide whether the features offered by the ** MTA are "good enough". ** Notes: ** - libmilter can "fake" some features (e.g., SMFIP_NR_HDR) ** - m_f2, m_f3 are for future extensions */ m_f2 = m_f3 = 0; m_aflags = ctx->ctx_mta_aflags; m_pflags = ctx->ctx_pflags; if ((SMFIP_SKIP & ctx->ctx_mta_pflags) != 0) m_pflags |= SMFIP_SKIP; r = fi_negotiate(g->a_ctx, ctx->ctx_mta_aflags, ctx->ctx_mta_pflags|fake_pflags, 0, 0, &m_aflags, &m_pflags, &m_f2, &m_f3); #if _FFR_MILTER_CHECK testmode = bitset(SMFIP_TEST, m_pflags); if (testmode) m_pflags &= ~SMFIP_TEST; #endif /* ** Types of protocol flags (pflags): ** 1. do NOT send protocol step X ** 2. MTA can do/understand something extra (SKIP, ** send unknown RCPTs) ** 3. MTA can deal with "no reply" for various protocol steps ** Note: this mean that it isn't possible to simply set all ** flags to get "everything": ** setting a flag of type 1 turns off a step ** (it should be the other way around: ** a flag means a protocol step can be sent) ** setting a flag of type 3 requires that milter ** never sends a reply for the corresponding step. ** Summary: the "negation" of protocol flags is causing ** problems, but at least for type 3 there is no simple ** solution. ** ** What should "all options" mean? ** send all protocol steps _except_ those for which there is ** no callback (currently registered in ctx_pflags) ** expect SKIP as return code? Yes ** send unknown RCPTs? No, ** must be explicitly requested? ** "no reply" for some protocol steps? No, ** must be explicitly requested. */ if (SMFIS_ALL_OPTS == r) { ctx->ctx_aflags = ctx->ctx_mta_aflags; ctx->ctx_pflags2mta = ctx->ctx_pflags; if ((SMFIP_SKIP & ctx->ctx_mta_pflags) != 0) ctx->ctx_pflags2mta |= SMFIP_SKIP; } else if (r != SMFIS_CONTINUE) { smi_log(SMI_LOG_ERR, "%s: st_optionneg[%ld]: xxfi_negotiate returned %d (protocol options=0x%lx, actions=0x%lx)", ctx->ctx_smfi->xxfi_name, (long) ctx->ctx_id, r, ctx->ctx_mta_pflags, ctx->ctx_mta_aflags); return _SMFIS_ABORT; } else { ctx->ctx_aflags = m_aflags; ctx->ctx_pflags = m_pflags; ctx->ctx_pflags2mta = m_pflags; } /* check whether some flags need to be "faked" */ i = ctx->ctx_pflags2mta; if ((ctx->ctx_mta_pflags & i) != i) { unsigned int idx; unsigned long b; /* ** If some behavior can be faked (set in fake_pflags), ** but the MTA doesn't support it, then unset ** that flag in the value that is sent to the MTA. */ for (idx = 0; idx < 32; idx++) { b = 1 << idx; if ((ctx->ctx_mta_pflags & b) != b && (fake_pflags & b) == b) ctx->ctx_pflags2mta &= ~b; } } } else { /* ** Set the protocol flags based on the values determined ** in mi_listener() which checked the defined callbacks. */ ctx->ctx_pflags2mta = ctx->ctx_pflags; } /* check whether actions and protocol requirements can be satisfied */ i = ctx->ctx_aflags; if ((i & ctx->ctx_mta_aflags) != i) { smi_log(SMI_LOG_ERR, "%s: st_optionneg[%ld]: 0x%lx does not fulfill action requirements 0x%x", ctx->ctx_smfi->xxfi_name, (long) ctx->ctx_id, ctx->ctx_mta_aflags, i); return _SMFIS_ABORT; } i = ctx->ctx_pflags2mta; if ((ctx->ctx_mta_pflags & i) != i) { /* ** Older MTAs do not support some protocol steps. ** As this protocol is a bit "weird" (it asks for steps ** NOT to be taken/sent) we have to check whether we ** should turn off those "negative" requests. ** Currently these are only SMFIP_NODATA and SMFIP_NOUNKNOWN. */ if (bitset(SMFIP_NODATA, ctx->ctx_pflags2mta) && !bitset(SMFIP_NODATA, ctx->ctx_mta_pflags)) ctx->ctx_pflags2mta &= ~SMFIP_NODATA; if (bitset(SMFIP_NOUNKNOWN, ctx->ctx_pflags2mta) && !bitset(SMFIP_NOUNKNOWN, ctx->ctx_mta_pflags)) ctx->ctx_pflags2mta &= ~SMFIP_NOUNKNOWN; i = ctx->ctx_pflags2mta; } if ((ctx->ctx_mta_pflags & i) != i) { smi_log(SMI_LOG_ERR, "%s: st_optionneg[%ld]: 0x%lx does not fulfill protocol requirements 0x%x", ctx->ctx_smfi->xxfi_name, (long) ctx->ctx_id, ctx->ctx_mta_pflags, i); return _SMFIS_ABORT; } fix_stm(ctx); if (ctx->ctx_dbg > 3) sm_dprintf("[%lu] milter_negotiate:" " mta_actions=0x%lx, mta_flags=0x%lx" " actions=0x%lx, flags=0x%lx\n" , (long) ctx->ctx_id , ctx->ctx_mta_aflags, ctx->ctx_mta_pflags , ctx->ctx_aflags, ctx->ctx_pflags); #if _FFR_MILTER_CHECK if (ctx->ctx_dbg > 3) sm_dprintf("[%lu] milter_negotiate:" " testmode=%d, pflags2mta=%X, internal_pflags=%X\n" , (long) ctx->ctx_id, testmode , ctx->ctx_pflags2mta, internal_pflags); /* in test mode: take flags without further modifications */ if (!testmode) /* Warning: check statement below! */ #endif /* _FFR_MILTER_CHECK */ /* ** Remove the internal flags that might have been set by a milter ** and set only those determined above. */ ctx->ctx_pflags2mta = (ctx->ctx_pflags2mta & ~SMFI_INTERNAL) | internal_pflags; return _SMFIS_OPTIONS; } /* ** ST_CONNECTINFO -- receive connection information ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue or filter-specified value */ static int st_connectinfo(g) genarg *g; { size_t l; size_t i; char *s, family; unsigned short port = 0; _SOCK_ADDR sockaddr; sfsistat (*fi_connect) __P((SMFICTX *, char *, _SOCK_ADDR *)); if (g == NULL) return _SMFIS_ABORT; mi_clr_macros(g->a_ctx, g->a_idx + 1); if (g->a_ctx->ctx_smfi == NULL || (fi_connect = g->a_ctx->ctx_smfi->xxfi_connect) == NULL) return SMFIS_CONTINUE; s = g->a_buf; i = 0; l = g->a_len; while (i <= l && s[i] != '\0') ++i; if (i + 1 >= l) return _SMFIS_ABORT; /* Move past trailing \0 in host string */ i++; family = s[i++]; (void) memset(&sockaddr, '\0', sizeof sockaddr); if (family != SMFIA_UNKNOWN) { if (i + sizeof port >= l) { smi_log(SMI_LOG_ERR, "%s: connect[%ld]: wrong len %d >= %d", g->a_ctx->ctx_smfi->xxfi_name, (long) g->a_ctx->ctx_id, (int) i, (int) l); return _SMFIS_ABORT; } (void) memcpy((void *) &port, (void *) (s + i), sizeof port); i += sizeof port; /* make sure string is terminated */ if (s[l - 1] != '\0') return _SMFIS_ABORT; #if NETINET if (family == SMFIA_INET) { if (inet_aton(s + i, (struct in_addr *) &sockaddr.sin.sin_addr) != 1) { smi_log(SMI_LOG_ERR, "%s: connect[%ld]: inet_aton failed", g->a_ctx->ctx_smfi->xxfi_name, (long) g->a_ctx->ctx_id); return _SMFIS_ABORT; } sockaddr.sa.sa_family = AF_INET; if (port > 0) sockaddr.sin.sin_port = port; } else #endif /* NETINET */ #if NETINET6 if (family == SMFIA_INET6) { if (mi_inet_pton(AF_INET6, s + i, &sockaddr.sin6.sin6_addr) != 1) { smi_log(SMI_LOG_ERR, "%s: connect[%ld]: mi_inet_pton failed", g->a_ctx->ctx_smfi->xxfi_name, (long) g->a_ctx->ctx_id); return _SMFIS_ABORT; } sockaddr.sa.sa_family = AF_INET6; if (port > 0) sockaddr.sin6.sin6_port = port; } else #endif /* NETINET6 */ #if NETUNIX if (family == SMFIA_UNIX) { if (sm_strlcpy(sockaddr.sunix.sun_path, s + i, sizeof sockaddr.sunix.sun_path) >= sizeof sockaddr.sunix.sun_path) { smi_log(SMI_LOG_ERR, "%s: connect[%ld]: path too long", g->a_ctx->ctx_smfi->xxfi_name, (long) g->a_ctx->ctx_id); return _SMFIS_ABORT; } sockaddr.sunix.sun_family = AF_UNIX; } else #endif /* NETUNIX */ { smi_log(SMI_LOG_ERR, "%s: connect[%ld]: unknown family %d", g->a_ctx->ctx_smfi->xxfi_name, (long) g->a_ctx->ctx_id, family); return _SMFIS_ABORT; } } return (*fi_connect)(g->a_ctx, g->a_buf, family != SMFIA_UNKNOWN ? &sockaddr : NULL); } /* ** ST_EOH -- end of headers ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue or filter-specified value */ static int st_eoh(g) genarg *g; { sfsistat (*fi_eoh) __P((SMFICTX *)); if (g == NULL) return _SMFIS_ABORT; if (g->a_ctx->ctx_smfi != NULL && (fi_eoh = g->a_ctx->ctx_smfi->xxfi_eoh) != NULL) return (*fi_eoh)(g->a_ctx); return SMFIS_CONTINUE; } /* ** ST_DATA -- DATA command ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue or filter-specified value */ static int st_data(g) genarg *g; { sfsistat (*fi_data) __P((SMFICTX *)); if (g == NULL) return _SMFIS_ABORT; if (g->a_ctx->ctx_smfi != NULL && g->a_ctx->ctx_smfi->xxfi_version > 3 && (fi_data = g->a_ctx->ctx_smfi->xxfi_data) != NULL) return (*fi_data)(g->a_ctx); return SMFIS_CONTINUE; } /* ** ST_HELO -- helo/ehlo command ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue or filter-specified value */ static int st_helo(g) genarg *g; { sfsistat (*fi_helo) __P((SMFICTX *, char *)); if (g == NULL) return _SMFIS_ABORT; mi_clr_macros(g->a_ctx, g->a_idx + 1); if (g->a_ctx->ctx_smfi != NULL && (fi_helo = g->a_ctx->ctx_smfi->xxfi_helo) != NULL) { /* paranoia: check for terminating '\0' */ if (g->a_len == 0 || g->a_buf[g->a_len - 1] != '\0') return MI_FAILURE; return (*fi_helo)(g->a_ctx, g->a_buf); } return SMFIS_CONTINUE; } /* ** ST_HEADER -- header line ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue or filter-specified value */ static int st_header(g) genarg *g; { char *hf, *hv; sfsistat (*fi_header) __P((SMFICTX *, char *, char *)); if (g == NULL) return _SMFIS_ABORT; if (g->a_ctx->ctx_smfi == NULL || (fi_header = g->a_ctx->ctx_smfi->xxfi_header) == NULL) return SMFIS_CONTINUE; if (dec_arg2(g->a_buf, g->a_len, &hf, &hv) == MI_SUCCESS) return (*fi_header)(g->a_ctx, hf, hv); else return _SMFIS_ABORT; } #define ARGV_FCT(lf, rf, idx) \ char **argv; \ sfsistat (*lf) __P((SMFICTX *, char **)); \ int r; \ \ if (g == NULL) \ return _SMFIS_ABORT; \ mi_clr_macros(g->a_ctx, g->a_idx + 1); \ if (g->a_ctx->ctx_smfi == NULL || \ (lf = g->a_ctx->ctx_smfi->rf) == NULL) \ return SMFIS_CONTINUE; \ if ((argv = dec_argv(g->a_buf, g->a_len)) == NULL) \ return _SMFIS_ABORT; \ r = (*lf)(g->a_ctx, argv); \ free(argv); \ return r; /* ** ST_SENDER -- MAIL FROM command ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue or filter-specified value */ static int st_sender(g) genarg *g; { ARGV_FCT(fi_envfrom, xxfi_envfrom, CI_MAIL) } /* ** ST_RCPT -- RCPT TO command ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue or filter-specified value */ static int st_rcpt(g) genarg *g; { ARGV_FCT(fi_envrcpt, xxfi_envrcpt, CI_RCPT) } /* ** ST_UNKNOWN -- unrecognized or unimplemented command ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue or filter-specified value */ static int st_unknown(g) genarg *g; { sfsistat (*fi_unknown) __P((SMFICTX *, const char *)); if (g == NULL) return _SMFIS_ABORT; if (g->a_ctx->ctx_smfi != NULL && g->a_ctx->ctx_smfi->xxfi_version > 2 && (fi_unknown = g->a_ctx->ctx_smfi->xxfi_unknown) != NULL) return (*fi_unknown)(g->a_ctx, (const char *) g->a_buf); return SMFIS_CONTINUE; } /* ** ST_MACROS -- deal with macros received from the MTA ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue/keep ** ** Side effects: ** set pointer in macro array to current values. */ static int st_macros(g) genarg *g; { int i; char **argv; if (g == NULL || g->a_len < 1) return _SMFIS_FAIL; if ((argv = dec_argv(g->a_buf + 1, g->a_len - 1)) == NULL) return _SMFIS_FAIL; switch (g->a_buf[0]) { case SMFIC_CONNECT: i = CI_CONN; break; case SMFIC_HELO: i = CI_HELO; break; case SMFIC_MAIL: i = CI_MAIL; break; case SMFIC_RCPT: i = CI_RCPT; break; case SMFIC_DATA: i = CI_DATA; break; case SMFIC_BODYEOB: i = CI_EOM; break; case SMFIC_EOH: i = CI_EOH; break; default: free(argv); return _SMFIS_FAIL; } if (g->a_ctx->ctx_mac_ptr[i] != NULL) free(g->a_ctx->ctx_mac_ptr[i]); if (g->a_ctx->ctx_mac_buf[i] != NULL) free(g->a_ctx->ctx_mac_buf[i]); g->a_ctx->ctx_mac_ptr[i] = argv; g->a_ctx->ctx_mac_buf[i] = g->a_buf; return _SMFIS_KEEP; } /* ** ST_QUIT -- quit command ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** noreply */ /* ARGSUSED */ static int st_quit(g) genarg *g; { sfsistat (*fi_close) __P((SMFICTX *)); if (g == NULL) return _SMFIS_ABORT; if (g->a_ctx->ctx_smfi != NULL && (fi_close = g->a_ctx->ctx_smfi->xxfi_close) != NULL) (void) (*fi_close)(g->a_ctx); mi_clr_macros(g->a_ctx, 0); return _SMFIS_NOREPLY; } /* ** ST_BODYCHUNK -- deal with a piece of the mail body ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue or filter-specified value */ static int st_bodychunk(g) genarg *g; { sfsistat (*fi_body) __P((SMFICTX *, unsigned char *, size_t)); if (g == NULL) return _SMFIS_ABORT; if (g->a_ctx->ctx_smfi != NULL && (fi_body = g->a_ctx->ctx_smfi->xxfi_body) != NULL) return (*fi_body)(g->a_ctx, (unsigned char *)g->a_buf, g->a_len); return SMFIS_CONTINUE; } /* ** ST_BODYEND -- deal with the last piece of the mail body ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** continue or filter-specified value ** ** Side effects: ** sends a reply for the body part (if non-empty). */ static int st_bodyend(g) genarg *g; { sfsistat r; sfsistat (*fi_body) __P((SMFICTX *, unsigned char *, size_t)); sfsistat (*fi_eom) __P((SMFICTX *)); if (g == NULL) return _SMFIS_ABORT; r = SMFIS_CONTINUE; if (g->a_ctx->ctx_smfi != NULL) { if ((fi_body = g->a_ctx->ctx_smfi->xxfi_body) != NULL && g->a_len > 0) { socket_t sd; struct timeval timeout; timeout.tv_sec = g->a_ctx->ctx_timeout; timeout.tv_usec = 0; sd = g->a_ctx->ctx_sd; r = (*fi_body)(g->a_ctx, (unsigned char *)g->a_buf, g->a_len); if (r != SMFIS_CONTINUE && sendreply(r, sd, &timeout, g->a_ctx) != MI_SUCCESS) return _SMFIS_ABORT; } } if (r == SMFIS_CONTINUE && (fi_eom = g->a_ctx->ctx_smfi->xxfi_eom) != NULL) return (*fi_eom)(g->a_ctx); return r; } /* ** ST_ABORTFCT -- deal with aborts ** ** Parameters: ** g -- generic argument structure ** ** Returns: ** abort or filter-specified value */ static int st_abortfct(g) genarg *g; { sfsistat (*fi_abort) __P((SMFICTX *)); if (g == NULL) return _SMFIS_ABORT; if (g != NULL && g->a_ctx->ctx_smfi != NULL && (fi_abort = g->a_ctx->ctx_smfi->xxfi_abort) != NULL) (void) (*fi_abort)(g->a_ctx); return _SMFIS_NOREPLY; } /* ** TRANS_OK -- is the state transition ok? ** ** Parameters: ** old -- old state ** new -- new state ** ** Returns: ** state transition ok */ static bool trans_ok(old, new) int old, new; { int s, n; s = old; if (s >= SIZE_NEXT_STATES) return false; do { /* is this state transition allowed? */ if ((MI_MASK(new) & next_states[s]) != 0) return true; /* ** no: try next state; ** this works since the relevant states are ordered ** strict sequentially */ n = s + 1; if (n >= SIZE_NEXT_STATES) return false; /* ** can we actually "skip" this state? ** see fix_stm() which sets this bit for those ** states which the filter program is not interested in */ if (bitset(NX_SKIP, next_states[n])) s = n; else return false; } while (s < SIZE_NEXT_STATES); return false; } /* ** FIX_STM -- add "skip" bits to the state transition table ** ** Parameters: ** ctx -- context structure ** ** Returns: ** None. ** ** Side effects: ** may change state transition table. */ static void fix_stm(ctx) SMFICTX_PTR ctx; { unsigned long fl; if (ctx == NULL || ctx->ctx_smfi == NULL) return; fl = ctx->ctx_pflags; if (bitset(SMFIP_NOCONNECT, fl)) next_states[ST_CONN] |= NX_SKIP; if (bitset(SMFIP_NOHELO, fl)) next_states[ST_HELO] |= NX_SKIP; if (bitset(SMFIP_NOMAIL, fl)) next_states[ST_MAIL] |= NX_SKIP; if (bitset(SMFIP_NORCPT, fl)) next_states[ST_RCPT] |= NX_SKIP; if (bitset(SMFIP_NOHDRS, fl)) next_states[ST_HDRS] |= NX_SKIP; if (bitset(SMFIP_NOEOH, fl)) next_states[ST_EOHS] |= NX_SKIP; if (bitset(SMFIP_NOBODY, fl)) next_states[ST_BODY] |= NX_SKIP; if (bitset(SMFIP_NODATA, fl)) next_states[ST_DATA] |= NX_SKIP; if (bitset(SMFIP_NOUNKNOWN, fl)) next_states[ST_UNKN] |= NX_SKIP; } /* ** DEC_ARGV -- split a buffer into a list of strings, NULL terminated ** ** Parameters: ** buf -- buffer with several strings ** len -- length of buffer ** ** Returns: ** array of pointers to the individual strings */ static char ** dec_argv(buf, len) char *buf; size_t len; { char **s; size_t i; int elem, nelem; nelem = 0; for (i = 0; i < len; i++) { if (buf[i] == '\0') ++nelem; } if (nelem == 0) return NULL; /* last entry is only for the name */ s = (char **)malloc((nelem + 1) * (sizeof *s)); if (s == NULL) return NULL; s[0] = buf; for (i = 0, elem = 0; i < len && elem < nelem; i++) { if (buf[i] == '\0') { ++elem; if (i + 1 >= len) s[elem] = NULL; else s[elem] = &(buf[i + 1]); } } /* overwrite last entry (already done above, just paranoia) */ s[elem] = NULL; return s; } /* ** DEC_ARG2 -- split a buffer into two strings ** ** Parameters: ** buf -- buffer with two strings ** len -- length of buffer ** s1,s2 -- pointer to result strings ** ** Returns: ** MI_FAILURE/MI_SUCCESS */ static int dec_arg2(buf, len, s1, s2) char *buf; size_t len; char **s1; char **s2; { size_t i; /* paranoia: check for terminating '\0' */ if (len == 0 || buf[len - 1] != '\0') return MI_FAILURE; *s1 = buf; for (i = 1; i < len && buf[i] != '\0'; i++) continue; if (i >= len - 1) return MI_FAILURE; *s2 = buf + i + 1; return MI_SUCCESS; } /* ** MI_SENDOK -- is it ok for the filter to send stuff to the MTA? ** ** Parameters: ** ctx -- context structure ** flag -- flag to check ** ** Returns: ** sending allowed (in current state) */ bool mi_sendok(ctx, flag) SMFICTX_PTR ctx; int flag; { if (ctx == NULL || ctx->ctx_smfi == NULL) return false; /* did the milter request this operation? */ if (flag != 0 && !bitset(flag, ctx->ctx_aflags)) return false; /* are we in the correct state? It must be "End of Message". */ return ctx->ctx_state == ST_ENDM; } #if _FFR_WORKERS_POOL /* ** MI_RD_SOCKET_READY - checks if the socket is ready for read(2) ** ** Parameters: ** sd -- socket_t ** ** Returns: ** true iff socket is ready for read(2) */ #define MI_RD_CMD_TO 1 #define MI_RD_MAX_ERR 16 static bool mi_rd_socket_ready (sd) socket_t sd; { int n; int nerr = 0; # if SM_CONF_POLL struct pollfd pfd; # else fd_set rd_set, exc_set; # endif do { # if SM_CONF_POLL pfd.fd = sd; pfd.events = POLLIN; pfd.revents = 0; n = poll(&pfd, 1, MI_RD_CMD_TO); # else /* SM_CONF_POLL */ struct timeval timeout; FD_ZERO(&rd_set); FD_ZERO(&exc_set); FD_SET(sd, &rd_set); FD_SET(sd, &exc_set); timeout.tv_sec = MI_RD_CMD_TO / 1000; timeout.tv_usec = 0; n = select(sd + 1, &rd_set, NULL, &exc_set, &timeout); # endif /* SM_CONF_POLL */ if (n < 0) { if (errno == EINTR) { nerr++; continue; } return true; } if (n == 0) return false; break; } while (nerr < MI_RD_MAX_ERR); if (nerr >= MI_RD_MAX_ERR) return false; # if SM_CONF_POLL return (pfd.revents != 0); # else return FD_ISSET(sd, &rd_set) || FD_ISSET(sd, &exc_set); # endif } #endif /* _FFR_WORKERS_POOL */ sendmail-8.18.1/libmilter/signal.c0000644000372400037240000000755614556365350016410 0ustar xbuildxbuild/* * Copyright (c) 1999-2004, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: signal.c,v 8.45 2013-11-22 20:51:36 ca Exp $") #include "libmilter.h" /* ** thread to handle signals */ static smutex_t M_Mutex; static int MilterStop = MILTER_CONT; static void *mi_signal_thread __P((void *)); static int mi_spawn_signal_thread __P((char *)); /* ** MI_STOP -- return value of MilterStop ** ** Parameters: ** none. ** ** Returns: ** value of MilterStop */ int mi_stop() { return MilterStop; } /* ** MI_STOP_MILTERS -- set value of MilterStop ** ** Parameters: ** v -- new value for MilterStop. ** ** Returns: ** none. */ void mi_stop_milters(v) int v; { (void) smutex_lock(&M_Mutex); if (MilterStop < v) MilterStop = v; /* close listen socket */ mi_closener(); (void) smutex_unlock(&M_Mutex); } /* ** MI_CLEAN_SIGNALS -- clean up signal handler thread ** ** Parameters: ** none. ** ** Returns: ** none. */ void mi_clean_signals() { (void) smutex_destroy(&M_Mutex); } /* ** MI_SIGNAL_THREAD -- thread to deal with signals ** ** Parameters: ** name -- name of milter ** ** Returns: ** NULL */ static void * mi_signal_thread(name) void *name; { int sig, errs, sigerr; sigset_t set; (void) sigemptyset(&set); (void) sigaddset(&set, SIGHUP); (void) sigaddset(&set, SIGTERM); /* Handle Ctrl-C gracefully for debugging */ (void) sigaddset(&set, SIGINT); errs = 0; for (;;) { sigerr = sig = 0; #if SIGWAIT_TAKES_1_ARG if ((sig = sigwait(&set)) < 0) #else if ((sigerr = sigwait(&set, &sig)) != 0) #endif { /* some OS return -1 and set errno: copy it */ if (sigerr <= 0) sigerr = errno; /* this can happen on OSF/1 (at least) */ if (sigerr == EINTR) continue; smi_log(SMI_LOG_ERR, "%s: sigwait returned error: %d", (char *)name, sigerr); if (++errs > MAX_FAILS_T) { mi_stop_milters(MILTER_ABRT); return NULL; } continue; } errs = 0; switch (sig) { case SIGHUP: case SIGTERM: mi_stop_milters(MILTER_STOP); return NULL; case SIGINT: mi_stop_milters(MILTER_ABRT); return NULL; default: smi_log(SMI_LOG_ERR, "%s: sigwait returned unmasked signal: %d", (char *)name, sig); break; } } /* NOTREACHED */ } /* ** MI_SPAWN_SIGNAL_THREAD -- spawn thread to handle signals ** ** Parameters: ** name -- name of milter ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ static int mi_spawn_signal_thread(name) char *name; { sthread_t tid; int r; sigset_t set; /* Mask HUP and KILL signals */ (void) sigemptyset(&set); (void) sigaddset(&set, SIGHUP); (void) sigaddset(&set, SIGTERM); (void) sigaddset(&set, SIGINT); if (pthread_sigmask(SIG_BLOCK, &set, NULL) != 0) { smi_log(SMI_LOG_ERR, "%s: Couldn't mask HUP and KILL signals", name); return MI_FAILURE; } r = thread_create(&tid, mi_signal_thread, (void *)name); if (r != 0) { smi_log(SMI_LOG_ERR, "%s: Couldn't start signal thread: %d", name, r); return MI_FAILURE; } return MI_SUCCESS; } /* ** MI_CONTROL_STARTUP -- startup for thread to handle signals ** ** Parameters: ** name -- name of milter ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int mi_control_startup(name) char *name; { if (!smutex_init(&M_Mutex)) { smi_log(SMI_LOG_ERR, "%s: Couldn't initialize control pipe mutex", name); return MI_FAILURE; } /* ** spawn_signal_thread must happen before other threads are spawned ** off so that it can mask the right signals and other threads ** will inherit that mask. */ if (mi_spawn_signal_thread(name) == MI_FAILURE) { smi_log(SMI_LOG_ERR, "%s: Couldn't spawn signal thread", name); (void) smutex_destroy(&M_Mutex); return MI_FAILURE; } return MI_SUCCESS; } sendmail-8.18.1/libmilter/sm_gethost.c0000644000372400037240000001050414556365350017272 0ustar xbuildxbuild/* * Copyright (c) 1999-2001, 2004, 2010, 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: sm_gethost.c,v 8.32 2013-11-22 20:51:36 ca Exp $") #include #if NETINET || NETINET6 # include #endif #include "libmilter.h" /* ** MI_GETHOSTBY{NAME,ADDR} -- compatibility routines for gethostbyXXX ** ** Some operating systems have weird problems with the gethostbyXXX ** routines. For example, Solaris versions at least through 2.3 ** don't properly deliver a canonical h_name field. This tries to ** work around these problems. ** ** Support IPv6 as well as IPv4. */ #if NETINET6 && NEEDSGETIPNODE static struct hostent *sm_getipnodebyname __P((const char *, int, int, int *)); # ifndef AI_ADDRCONFIG # define AI_ADDRCONFIG 0 /* dummy */ # endif # ifndef AI_ALL # define AI_ALL 0 /* dummy */ # endif # ifndef AI_DEFAULT # define AI_DEFAULT 0 /* dummy */ # endif static struct hostent * sm_getipnodebyname(name, family, flags, err) const char *name; int family; int flags; int *err; { struct hostent *h; # if HAS_GETHOSTBYNAME2 h = gethostbyname2(name, family); if (h == NULL) *err = h_errno; return h; # else /* HAS_GETHOSTBYNAME2 */ # ifdef RES_USE_INET6 bool resv6 = true; if (family == AF_INET6) { /* From RFC2133, section 6.1 */ resv6 = bitset(RES_USE_INET6, _res.options); _res.options |= RES_USE_INET6; } # endif /* RES_USE_INET6 */ SM_SET_H_ERRNO(0); h = gethostbyname(name); # ifdef RES_USE_INET6 if (!resv6) _res.options &= ~RES_USE_INET6; # endif /* the function is supposed to return only the requested family */ if (h != NULL && h->h_addrtype != family) { # if NETINET6 freehostent(h); # endif h = NULL; *err = NO_DATA; } else *err = h_errno; return h; # endif /* HAS_GETHOSTBYNAME2 */ } void freehostent(h) struct hostent *h; { /* ** Stub routine -- if they don't have getipnodeby*(), ** they probably don't have the free routine either. */ return; } #else /* NEEDSGETIPNODE && NETINET6 */ #define sm_getipnodebyname getipnodebyname #endif /* NEEDSGETIPNODE && NETINET6 */ struct hostent * mi_gethostbyname(name, family) char *name; int family; { struct hostent *h = NULL; #if (SOLARIS > 10000 && SOLARIS < 20400) || (defined(SOLARIS) && SOLARIS < 204) || (defined(sony_news) && defined(__svr4)) # if SOLARIS == 20300 || SOLARIS == 203 static struct hostent hp; static char buf[1000]; extern struct hostent *_switch_gethostbyname_r(); h = _switch_gethostbyname_r(name, &hp, buf, sizeof(buf), &h_errno); # else /* SOLARIS == 20300 || SOLARIS == 203 */ extern struct hostent *__switch_gethostbyname(); h = __switch_gethostbyname(name); # endif /* SOLARIS == 20300 || SOLARIS == 203 */ #else /* (SOLARIS > 10000 && SOLARIS < 20400) || (defined(SOLARIS) && SOLARIS < 204) || (defined(sony_news) && defined(__svr4)) */ # if NETINET6 # ifndef SM_IPNODEBYNAME_FLAGS /* For IPv4-mapped addresses, use: AI_DEFAULT|AI_ALL */ # define SM_IPNODEBYNAME_FLAGS AI_ADDRCONFIG # endif int flags = SM_IPNODEBYNAME_FLAGS; int err; # endif /* NETINET6 */ # if NETINET6 # if ADDRCONFIG_IS_BROKEN flags &= ~AI_ADDRCONFIG; # endif h = sm_getipnodebyname(name, family, flags, &err); SM_SET_H_ERRNO(err); # else /* NETINET6 */ h = gethostbyname(name); # endif /* NETINET6 */ #endif /* (SOLARIS > 10000 && SOLARIS < 20400) || (defined(SOLARIS) && SOLARIS < 204) || (defined(sony_news) && defined(__svr4)) */ /* the function is supposed to return only the requested family */ if (h != NULL && h->h_addrtype != family) { #if NETINET6 freehostent(h); #endif h = NULL; SM_SET_H_ERRNO(NO_DATA); } return h; } #if NETINET6 /* ** MI_INET_PTON -- convert printed form to network address. ** ** Wrapper for inet_pton() which handles IPv6: labels. ** ** Parameters: ** family -- address family ** src -- string ** dst -- destination address structure ** ** Returns: ** 1 if the address was valid ** 0 if the address wasn't parsable ** -1 if error */ int mi_inet_pton(family, src, dst) int family; const char *src; void *dst; { if (family == AF_INET6 && strncasecmp(src, "IPv6:", 5) == 0) src += 5; return inet_pton(family, src, dst); } #endif /* NETINET6 */ sendmail-8.18.1/libmilter/libmilter.h0000644000372400037240000002300514556365350017106 0ustar xbuildxbuild/* * Copyright (c) 1999-2003, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ /* ** LIBMILTER.H -- include file for mail filter library functions */ #ifndef _LIBMILTER_H # define _LIBMILTER_H 1 #include #ifdef _DEFINE # define EXTERN # define INIT(x) = x SM_IDSTR(MilterlId, "@(#)$Id: libmilter.h,v 8.78 2013-11-22 20:51:36 ca Exp $") #else # define EXTERN extern # define INIT(x) #endif #include "sm/tailq.h" #define NOT_SENDMAIL 1 #define _SOCK_ADDR union bigsockaddr #include "sendmail.h" #ifdef SM_ASSERT #undef SM_ASSERT #endif #ifndef SM_ASSERT #include #define SM_ASSERT(x) assert(x) #endif #include "libmilter/milter.h" #define MAX_MACROS_ENTRIES 7 /* max size of macro pointer array */ typedef SM_TAILQ_HEAD(, smfi_str) smfi_hd_T; typedef struct smfi_str smfi_str_S; /* ** Context for one milter session. ** ** Notes: ** There is a 1-1 correlation between a sendmail SMTP server process, ** an SMTP session, and an milter context. Due to the nature of SMTP ** session handling in sendmail 8, this libmilter implementation deals ** only with a single SMTP session per MTA - libmilter connection. ** ** There is no "global" context for libmilter, global variables are ** just that (they are not "collected" in a context). ** ** Implementation hint: ** macros are stored in mac_buf[] as sequence of: ** macro_name \0 macro_value ** (just as read from the MTA) ** mac_ptr is a list of pointers into mac_buf to the beginning of each ** entry, i.e., macro_name, macro_value, ... */ struct smfi_str { sthread_t ctx_id; /* thread id */ socket_t ctx_sd; /* socket descriptor */ int ctx_dbg; /* debug level */ time_t ctx_timeout; /* timeout */ int ctx_state; /* state */ smfiDesc_ptr ctx_smfi; /* filter description */ int ctx_prot_vers; /* libmilter protocol version */ unsigned long ctx_aflags; /* milter action flags */ unsigned long ctx_pflags; /* milter protocol flags */ /* ** milter protocol flags that are sent to the MTA; ** this is the same as ctx_pflags except for those flags that ** are not offered by the MTA but emulated in libmilter. */ unsigned long ctx_pflags2mta; /* ** milter protocol version that is sent to the MTA; ** this is the same as ctx_prot_vers unless the ** MTA protocol version (ctx_mta_prot_vers) is smaller ** but still "acceptable". */ int ctx_prot_vers2mta; char **ctx_mac_ptr[MAX_MACROS_ENTRIES]; char *ctx_mac_buf[MAX_MACROS_ENTRIES]; char *ctx_mac_list[MAX_MACROS_ENTRIES]; char *ctx_reply; /* reply code */ void *ctx_privdata; /* private data */ int ctx_mta_prot_vers; /* MTA protocol version */ unsigned long ctx_mta_pflags; /* MTA protocol flags */ unsigned long ctx_mta_aflags; /* MTA action flags */ #if _FFR_THREAD_MONITOR time_t ctx_start; /* start time of thread */ SM_TAILQ_ENTRY(smfi_str) ctx_mon_link; #endif #if _FFR_WORKERS_POOL long ctx_sid; /* session identifier */ int ctx_wstate; /* state of the session (worker pool) */ int ctx_wait; /* elapsed time waiting for sm cmd */ SM_TAILQ_ENTRY(smfi_str) ctx_link; #endif /* _FFR_WORKERS_POOL */ }; # define ValidSocket(sd) ((sd) >= 0) # define INVALID_SOCKET (-1) # define closesocket close # define MI_SOCK_READ(s, b, l) read(s, b, l) # define MI_SOCK_READ_FAIL(x) ((x) < 0) # define MI_SOCK_WRITE(s, b, l) write(s, b, l) # define thread_create(ptid,wr,arg) pthread_create(ptid, NULL, wr, arg) # define sthread_get_id() pthread_self() typedef pthread_mutex_t smutex_t; # define smutex_init(mp) (pthread_mutex_init(mp, NULL) == 0) # define smutex_destroy(mp) (pthread_mutex_destroy(mp) == 0) # define smutex_lock(mp) (pthread_mutex_lock(mp) == 0) # define smutex_unlock(mp) (pthread_mutex_unlock(mp) == 0) # define smutex_trylock(mp) (pthread_mutex_trylock(mp) == 0) #if _FFR_WORKERS_POOL /* SM_CONF_POLL shall be defined with _FFR_WORKERS_POOL */ # if !SM_CONF_POLL # define SM_CONF_POLL 1 # endif #endif /* _FFR_WORKERS_POOL */ typedef pthread_cond_t scond_t; #define scond_init(cp) pthread_cond_init(cp, NULL) #define scond_destroy(cp) pthread_cond_destroy(cp) #define scond_wait(cp, mp) pthread_cond_wait(cp, mp) #define scond_signal(cp) pthread_cond_signal(cp) #define scond_broadcast(cp) pthread_cond_broadcast(cp) #define scond_timedwait(cp, mp, to) \ do \ { \ struct timespec timeout; \ struct timeval now; \ gettimeofday(&now, NULL); \ timeout.tv_sec = now.tv_sec + to; \ timeout.tv_nsec = now.tv_usec / 1000; \ r = pthread_cond_timedwait(cp,mp,&timeout); \ if (r != 0 && r != ETIMEDOUT) \ smi_log(SMI_LOG_ERR, \ "pthread_cond_timedwait error %d", r); \ } while (0) #if SM_CONF_POLL # include # define MI_POLLSELECT "poll" # define MI_POLL_RD_FLAGS (POLLIN | POLLPRI) # define MI_POLL_WR_FLAGS (POLLOUT) # define MI_MS(timeout) (((timeout)->tv_sec * 1000) + (((timeout)->tv_usec) / 1000)) # define FD_RD_VAR(rds, excs) struct pollfd rds # define FD_WR_VAR(wrs) struct pollfd wrs # define FD_RD_INIT(sd, rds, excs) \ (rds).fd = (sd); \ (rds).events = MI_POLL_RD_FLAGS; \ (rds).revents = 0 # define FD_WR_INIT(sd, wrs) \ (wrs).fd = (sd); \ (wrs).events = MI_POLL_WR_FLAGS; \ (wrs).revents = 0 # define FD_IS_RD_EXC(sd, rds, excs) \ (((rds).revents & (POLLERR | POLLHUP | POLLNVAL)) != 0) # define FD_IS_WR_RDY(sd, wrs) \ (((wrs).revents & MI_POLL_WR_FLAGS) != 0) # define FD_IS_RD_RDY(sd, rds, excs) \ (((rds).revents & MI_POLL_RD_FLAGS) != 0) # define FD_WR_READY(sd, wrs, timeout) \ poll(&(wrs), 1, MI_MS(timeout)) # define FD_RD_READY(sd, rds, excs, timeout) \ poll(&(rds), 1, MI_MS(timeout)) #else /* SM_CONF_POLL */ # include # define MI_POLLSELECT "select" # define FD_RD_VAR(rds, excs) fd_set rds, excs # define FD_WR_VAR(wrs) fd_set wrs # define FD_RD_INIT(sd, rds, excs) \ FD_ZERO(&(rds)); \ FD_SET((unsigned int) (sd), &(rds)); \ FD_ZERO(&(excs)); \ FD_SET((unsigned int) (sd), &(excs)) # define FD_WR_INIT(sd, wrs) \ FD_ZERO(&(wrs)); \ FD_SET((unsigned int) (sd), &(wrs)) # define FD_IS_RD_EXC(sd, rds, excs) FD_ISSET(sd, &(excs)) # define FD_IS_WR_RDY(sd, wrs) FD_ISSET((sd), &(wrs)) # define FD_IS_RD_RDY(sd, rds, excs) FD_ISSET((sd), &(rds)) # define FD_WR_READY(sd, wrs, timeout) \ select((sd) + 1, NULL, &(wrs), NULL, (timeout)) # define FD_RD_READY(sd, rds, excs, timeout) \ select((sd) + 1, &(rds), NULL, &(excs), (timeout)) #endif /* SM_CONF_POLL */ #include /* some defaults */ #define MI_TIMEOUT 7210 /* default timeout for read/write */ #define MI_CHK_TIME 5 /* checking whether to terminate */ #ifndef MI_SOMAXCONN # if SOMAXCONN > 20 # define MI_SOMAXCONN SOMAXCONN # else # define MI_SOMAXCONN 20 # endif #endif /* ! MI_SOMAXCONN */ /* maximum number of repeated failures in mi_listener() */ #define MAX_FAILS_M 16 /* malloc() */ #define MAX_FAILS_T 16 /* thread creation */ #define MAX_FAILS_A 16 /* accept() */ #define MAX_FAILS_S 16 /* select() */ /* internal "commands", i.e., error codes */ #define SMFIC_TIMEOUT ((char) 1) /* timeout */ #define SMFIC_SELECT ((char) 2) /* select error */ #define SMFIC_MALLOC ((char) 3) /* malloc error */ #define SMFIC_RECVERR ((char) 4) /* recv() error */ #define SMFIC_EOF ((char) 5) /* eof */ #define SMFIC_UNKNERR ((char) 6) /* unknown error */ #define SMFIC_TOOBIG ((char) 7) /* body chunk too big */ #define SMFIC_VALIDCMD ' ' /* first valid command */ /* hack */ #define smi_log syslog #define sm_dprintf (void) printf #define milter_ret int #define SMI_LOG_ERR LOG_ERR #define SMI_LOG_FATAL LOG_ERR #define SMI_LOG_WARN LOG_WARNING #define SMI_LOG_INFO LOG_INFO #define SMI_LOG_DEBUG LOG_DEBUG /* stop? */ #define MILTER_CONT 0 #define MILTER_STOP 1 #define MILTER_ABRT 2 /* functions */ extern int mi_handle_session __P((SMFICTX_PTR)); extern int mi_engine __P((SMFICTX_PTR)); extern int mi_listener __P((char *, int, smfiDesc_ptr, time_t, int)); extern void mi_clr_macros __P((SMFICTX_PTR, int)); extern void mi_clr_ctx __P((SMFICTX_PTR)); extern int mi_stop __P((void)); extern int mi_control_startup __P((char *)); extern void mi_stop_milters __P((int)); extern void mi_clean_signals __P((void)); extern struct hostent *mi_gethostbyname __P((char *, int)); extern int mi_inet_pton __P((int, const char *, void *)); extern void mi_closener __P((void)); extern int mi_opensocket __P((char *, int, int, bool, smfiDesc_ptr)); /* communication functions */ extern char *mi_rd_cmd __P((socket_t, struct timeval *, char *, size_t *, char *)); extern int mi_wr_cmd __P((socket_t, struct timeval *, int, char *, size_t)); extern bool mi_sendok __P((SMFICTX_PTR, int)); #if _FFR_THREAD_MONITOR extern bool Monitor; #define MI_MONITOR_INIT() mi_monitor_init() #define MI_MONITOR_BEGIN(ctx, cmd) \ do \ { \ if (Monitor) \ mi_monitor_work_begin(ctx, cmd);\ } while (0) #define MI_MONITOR_END(ctx, cmd) \ do \ { \ if (Monitor) \ mi_monitor_work_end(ctx, cmd); \ } while (0) int mi_monitor_init __P((void)); int mi_monitor_work_begin __P((SMFICTX_PTR, int)); int mi_monitor_work_end __P((SMFICTX_PTR, int)); #else /* _FFR_THREAD_MONITOR */ #define MI_MONITOR_INIT() MI_SUCCESS #define MI_MONITOR_BEGIN(ctx, cmd) #define MI_MONITOR_END(ctx, cmd) #endif /* _FFR_THREAD_MONITOR */ #if _FFR_WORKERS_POOL extern int mi_pool_manager_init __P((void)); extern int mi_pool_controller_init __P((void)); extern int mi_start_session __P((SMFICTX_PTR)); #endif /* _FFR_WORKERS_POOL */ #endif /* ! _LIBMILTER_H */ sendmail-8.18.1/libmilter/worker.c0000644000372400037240000004061514556365350016435 0ustar xbuildxbuild/* * Copyright (c) 2003-2004, 2007, 2009-2012 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * Contributed by Jose Marcio Martins da Cruz - Ecole des Mines de Paris * Jose-Marcio.Martins@ensmp.fr */ #include SM_RCSID("@(#)$Id: worker.c,v 8.25 2013-11-22 20:51:37 ca Exp $") #include "libmilter.h" #if _FFR_WORKERS_POOL typedef struct taskmgr_S taskmgr_T; #define TM_SIGNATURE 0x23021957 struct taskmgr_S { long tm_signature; /* has the controller been initialized */ sthread_t tm_tid; /* thread id of controller */ smfi_hd_T tm_ctx_head; /* head of the linked list of contexts */ int tm_nb_workers; /* number of workers in the pool */ int tm_nb_idle; /* number of workers waiting */ int tm_p[2]; /* poll control pipe */ smutex_t tm_w_mutex; /* linked list access mutex */ scond_t tm_w_cond; /* */ }; static taskmgr_T Tskmgr = {0}; #define WRK_CTX_HEAD Tskmgr.tm_ctx_head #define RD_PIPE (Tskmgr.tm_p[0]) #define WR_PIPE (Tskmgr.tm_p[1]) #define PIPE_SEND_SIGNAL() \ do \ { \ char evt = 0x5a; \ int fd = WR_PIPE; \ if (write(fd, &evt, sizeof(evt)) != sizeof(evt)) \ smi_log(SMI_LOG_ERR, \ "Error writing to event pipe: %s", \ sm_errstring(errno)); \ } while (0) #ifndef USE_PIPE_WAKE_POLL # define USE_PIPE_WAKE_POLL 1 #endif /* poll check periodicity (default 10000 - 10 s) */ #define POLL_TIMEOUT 10000 /* worker conditional wait timeout (default 10 s) */ #define COND_TIMEOUT 10 /* functions */ static int mi_close_session __P((SMFICTX_PTR)); static void *mi_worker __P((void *)); static void *mi_pool_controller __P((void *)); static int mi_list_add_ctx __P((SMFICTX_PTR)); static int mi_list_del_ctx __P((SMFICTX_PTR)); /* ** periodicity of cleaning up old sessions (timedout) ** sessions list will be checked to find old inactive ** sessions each DT_CHECK_OLD_SESSIONS sec */ #define DT_CHECK_OLD_SESSIONS 600 #ifndef OLD_SESSION_TIMEOUT # define OLD_SESSION_TIMEOUT ctx->ctx_timeout #endif /* session states - with respect to the pool of workers */ #define WKST_INIT 0 /* initial state */ #define WKST_READY_TO_RUN 1 /* command ready do be read */ #define WKST_RUNNING 2 /* session running on a worker */ #define WKST_READY_TO_WAIT 3 /* session just finished by a worker */ #define WKST_WAITING 4 /* waiting for new command */ #define WKST_CLOSING 5 /* session finished */ #ifndef MIN_WORKERS # define MIN_WORKERS 2 /* minimum number of threads to keep around */ #endif #define MIN_IDLE 1 /* minimum number of idle threads */ /* ** Macros for threads and mutex management */ #define TASKMGR_LOCK() \ do \ { \ if (!smutex_lock(&Tskmgr.tm_w_mutex)) \ smi_log(SMI_LOG_ERR, "TASKMGR_LOCK error"); \ } while (0) #define TASKMGR_UNLOCK() \ do \ { \ if (!smutex_unlock(&Tskmgr.tm_w_mutex)) \ smi_log(SMI_LOG_ERR, "TASKMGR_UNLOCK error"); \ } while (0) #define TASKMGR_COND_WAIT() \ scond_timedwait(&Tskmgr.tm_w_cond, &Tskmgr.tm_w_mutex, COND_TIMEOUT) #define TASKMGR_COND_SIGNAL() \ do \ { \ if (scond_signal(&Tskmgr.tm_w_cond) != 0) \ smi_log(SMI_LOG_ERR, "TASKMGR_COND_SIGNAL error"); \ } while (0) #define LAUNCH_WORKER(ctx) \ do \ { \ int r; \ sthread_t tid; \ \ if ((r = thread_create(&tid, mi_worker, ctx)) != 0) \ smi_log(SMI_LOG_ERR, "LAUNCH_WORKER error: %s",\ sm_errstring(r)); \ } while (0) #if POOL_DEBUG # define POOL_LEV_DPRINTF(lev, x) \ do \ { \ if (ctx != NULL && (lev) < ctx->ctx_dbg) \ sm_dprintf x; \ } while (0) #else /* POOL_DEBUG */ # define POOL_LEV_DPRINTF(lev, x) #endif /* POOL_DEBUG */ /* ** MI_START_SESSION -- Start a session in the pool of workers ** ** Parameters: ** ctx -- context structure ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int mi_start_session(ctx) SMFICTX_PTR ctx; { static long id = 0; /* this can happen if the milter is shutting down */ if (Tskmgr.tm_signature != TM_SIGNATURE) return MI_FAILURE; SM_ASSERT(ctx != NULL); POOL_LEV_DPRINTF(4, ("PIPE r=[%d] w=[%d]", RD_PIPE, WR_PIPE)); TASKMGR_LOCK(); if (mi_list_add_ctx(ctx) != MI_SUCCESS) { TASKMGR_UNLOCK(); return MI_FAILURE; } ctx->ctx_sid = id++; /* if there is an idle worker, signal it, otherwise start new worker */ if (Tskmgr.tm_nb_idle > 0) { ctx->ctx_wstate = WKST_READY_TO_RUN; TASKMGR_COND_SIGNAL(); } else { ctx->ctx_wstate = WKST_RUNNING; LAUNCH_WORKER(ctx); } TASKMGR_UNLOCK(); return MI_SUCCESS; } /* ** MI_CLOSE_SESSION -- Close a session and clean up data structures ** ** Parameters: ** ctx -- context structure ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ static int mi_close_session(ctx) SMFICTX_PTR ctx; { SM_ASSERT(ctx != NULL); (void) mi_list_del_ctx(ctx); mi_clr_ctx(ctx); return MI_SUCCESS; } /* ** NONBLOCKING -- set nonblocking mode for a file descriptor. ** ** Parameters: ** fd -- file descriptor ** name -- name for (error) logging ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ static int nonblocking(int fd, const char *name) { int r; errno = 0; r = fcntl(fd, F_GETFL, 0); if (r == -1) { smi_log(SMI_LOG_ERR, "fcntl(%s, F_GETFL)=%s", name, sm_errstring(errno)); return MI_FAILURE; } errno = 0; r = fcntl(fd, F_SETFL, r | O_NONBLOCK); if (r == -1) { smi_log(SMI_LOG_ERR, "fcntl(%s, F_SETFL, O_NONBLOCK)=%s", name, sm_errstring(errno)); return MI_FAILURE; } return MI_SUCCESS; } /* ** MI_POOL_CONTROLLER_INIT -- Launch the worker pool controller ** Must be called before starting sessions. ** ** Parameters: ** none ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int mi_pool_controller_init() { sthread_t tid; int r, i; if (Tskmgr.tm_signature == TM_SIGNATURE) return MI_SUCCESS; SM_TAILQ_INIT(&WRK_CTX_HEAD); Tskmgr.tm_tid = (sthread_t) -1; Tskmgr.tm_nb_workers = 0; Tskmgr.tm_nb_idle = 0; if (pipe(Tskmgr.tm_p) != 0) { smi_log(SMI_LOG_ERR, "can't create event pipe: %s", sm_errstring(errno)); return MI_FAILURE; } r = nonblocking(WR_PIPE, "WR_PIPE"); if (r != MI_SUCCESS) return r; r = nonblocking(RD_PIPE, "RD_PIPE"); if (r != MI_SUCCESS) return r; (void) smutex_init(&Tskmgr.tm_w_mutex); (void) scond_init(&Tskmgr.tm_w_cond); /* Launch the pool controller */ if ((r = thread_create(&tid, mi_pool_controller, (void *) NULL)) != 0) { smi_log(SMI_LOG_ERR, "can't create controller thread: %s", sm_errstring(r)); return MI_FAILURE; } Tskmgr.tm_tid = tid; Tskmgr.tm_signature = TM_SIGNATURE; /* Create the pool of workers */ for (i = 0; i < MIN_WORKERS; i++) { if ((r = thread_create(&tid, mi_worker, (void *) NULL)) != 0) { smi_log(SMI_LOG_ERR, "can't create workers crew: %s", sm_errstring(r)); return MI_FAILURE; } } return MI_SUCCESS; } /* ** MI_POOL_CONTROLLER -- manage the pool of workers ** This thread must be running when listener begins ** starting sessions ** ** Parameters: ** arg -- unused ** ** Returns: ** NULL ** ** Control flow: ** for (;;) ** Look for timed out sessions ** Select sessions to wait for sendmail command ** Poll set of file descriptors ** if timeout ** continue ** For each file descriptor ready ** launch new thread if no worker available ** else ** signal waiting worker */ /* Poll structure array (pollfd) size step */ #define PFD_STEP 256 #define WAIT_FD(i) (pfd[i].fd) #define WAITFN "POLL" static void * mi_pool_controller(arg) void *arg; { struct pollfd *pfd = NULL; int dim_pfd = 0; bool rebuild_set = true; int pcnt = 0; /* error count for poll() failures */ time_t lastcheck; Tskmgr.tm_tid = sthread_get_id(); if (pthread_detach(Tskmgr.tm_tid) != 0) { smi_log(SMI_LOG_ERR, "Failed to detach pool controller thread"); return NULL; } pfd = (struct pollfd *) malloc(PFD_STEP * sizeof(struct pollfd)); if (pfd == NULL) { smi_log(SMI_LOG_ERR, "Failed to malloc pollfd array: %s", sm_errstring(errno)); return NULL; } dim_pfd = PFD_STEP; lastcheck = time(NULL); for (;;) { SMFICTX_PTR ctx; int nfd, r, i; time_t now; if (mi_stop() != MILTER_CONT) break; TASKMGR_LOCK(); now = time(NULL); /* check for timed out sessions? */ if (lastcheck + DT_CHECK_OLD_SESSIONS < now) { ctx = SM_TAILQ_FIRST(&WRK_CTX_HEAD); while (ctx != SM_TAILQ_END(&WRK_CTX_HEAD)) { SMFICTX_PTR ctx_nxt; ctx_nxt = SM_TAILQ_NEXT(ctx, ctx_link); if (ctx->ctx_wstate == WKST_WAITING) { if (ctx->ctx_wait == 0) ctx->ctx_wait = now; else if (ctx->ctx_wait + OLD_SESSION_TIMEOUT < now) { /* if session timed out, close it */ sfsistat (*fi_close) __P((SMFICTX *)); POOL_LEV_DPRINTF(4, ("Closing old connection: sd=%d id=%d", ctx->ctx_sd, ctx->ctx_sid)); if ((fi_close = ctx->ctx_smfi->xxfi_close) != NULL) (void) (*fi_close)(ctx); mi_close_session(ctx); } } ctx = ctx_nxt; } lastcheck = now; } if (rebuild_set) { /* ** Initialize poll set. ** Insert into the poll set the file descriptors of ** all sessions waiting for a command from sendmail. */ nfd = 0; /* begin with worker pipe */ pfd[nfd].fd = RD_PIPE; pfd[nfd].events = MI_POLL_RD_FLAGS; pfd[nfd].revents = 0; nfd++; SM_TAILQ_FOREACH(ctx, &WRK_CTX_HEAD, ctx_link) { /* ** update ctx_wait - start of wait moment - ** for timeout */ if (ctx->ctx_wstate == WKST_READY_TO_WAIT) ctx->ctx_wait = now; /* add the session to the pollfd array? */ if ((ctx->ctx_wstate == WKST_READY_TO_WAIT) || (ctx->ctx_wstate == WKST_WAITING)) { /* ** Resize the pollfd array if it ** isn't large enough. */ if (nfd >= dim_pfd) { struct pollfd *tpfd; size_t new; new = (dim_pfd + PFD_STEP) * sizeof(*tpfd); tpfd = (struct pollfd *) realloc(pfd, new); if (tpfd != NULL) { pfd = tpfd; dim_pfd += PFD_STEP; } else { smi_log(SMI_LOG_ERR, "Failed to realloc pollfd array:%s", sm_errstring(errno)); } } /* add the session to pollfd array */ if (nfd < dim_pfd) { ctx->ctx_wstate = WKST_WAITING; pfd[nfd].fd = ctx->ctx_sd; pfd[nfd].events = MI_POLL_RD_FLAGS; pfd[nfd].revents = 0; nfd++; } } } rebuild_set = false; } TASKMGR_UNLOCK(); /* Everything is ready, let's wait for an event */ r = poll(pfd, nfd, POLL_TIMEOUT); POOL_LEV_DPRINTF(4, ("%s returned: at epoch %d value %d", WAITFN, now, nfd)); /* timeout */ if (r == 0) continue; rebuild_set = true; /* error */ if (r < 0) { if (errno == EINTR) continue; pcnt++; smi_log(SMI_LOG_ERR, "%s() failed (%s), %s", WAITFN, sm_errstring(errno), pcnt >= MAX_FAILS_S ? "abort" : "try again"); if (pcnt >= MAX_FAILS_S) goto err; continue; } pcnt = 0; /* something happened */ for (i = 0; i < nfd; i++) { if (pfd[i].revents == 0) continue; POOL_LEV_DPRINTF(4, ("%s event on pfd[%d/%d]=%d ", WAITFN, i, nfd, WAIT_FD(i))); /* has a worker signaled an end of task? */ if (WAIT_FD(i) == RD_PIPE) { char evts[256]; ssize_t r; POOL_LEV_DPRINTF(4, ("PIPE WILL READ evt = %08X %08X", pfd[i].events, pfd[i].revents)); r = 1; while ((pfd[i].revents & MI_POLL_RD_FLAGS) != 0 && r != -1) { r = read(RD_PIPE, evts, sizeof(evts)); } POOL_LEV_DPRINTF(4, ("PIPE DONE READ i=[%d] fd=[%d] r=[%d] evt=[%d]", i, RD_PIPE, (int) r, evts[0])); if ((pfd[i].revents & ~MI_POLL_RD_FLAGS) != 0) { /* Exception handling */ } continue; } /* ** Not the pipe for workers waking us, ** so must be something on an MTA connection. */ TASKMGR_LOCK(); SM_TAILQ_FOREACH(ctx, &WRK_CTX_HEAD, ctx_link) { if (ctx->ctx_wstate != WKST_WAITING) continue; POOL_LEV_DPRINTF(4, ("Checking context sd=%d - fd=%d ", ctx->ctx_sd , WAIT_FD(i))); if (ctx->ctx_sd == pfd[i].fd) { POOL_LEV_DPRINTF(4, ("TASK: found %d for fd[%d]=%d", ctx->ctx_sid, i, WAIT_FD(i))); if (Tskmgr.tm_nb_idle > 0) { ctx->ctx_wstate = WKST_READY_TO_RUN; TASKMGR_COND_SIGNAL(); } else { ctx->ctx_wstate = WKST_RUNNING; LAUNCH_WORKER(ctx); } break; } } TASKMGR_UNLOCK(); POOL_LEV_DPRINTF(4, ("TASK %s FOUND - Checking PIPE for fd[%d]", ctx != NULL ? "" : "NOT", WAIT_FD(i))); } } err: if (pfd != NULL) free(pfd); Tskmgr.tm_signature = 0; #if 0 /* ** Do not clean up ctx -- it can cause double-free()s. ** The program is shutting down anyway, so it's not worth the trouble. ** There is a more complex solution that prevents race conditions ** while accessing ctx, but that's maybe for a later version. */ for (;;) { SMFICTX_PTR ctx; ctx = SM_TAILQ_FIRST(&WRK_CTX_HEAD); if (ctx == NULL) break; mi_close_session(ctx); } #endif (void) smutex_destroy(&Tskmgr.tm_w_mutex); (void) scond_destroy(&Tskmgr.tm_w_cond); return NULL; } /* ** Look for a task ready to run. ** Value of ctx is NULL or a pointer to a task ready to run. */ #define GET_TASK_READY_TO_RUN() \ SM_TAILQ_FOREACH(ctx, &WRK_CTX_HEAD, ctx_link) \ { \ if (ctx->ctx_wstate == WKST_READY_TO_RUN) \ { \ ctx->ctx_wstate = WKST_RUNNING; \ break; \ } \ } /* ** MI_WORKER -- worker thread ** executes tasks distributed by the mi_pool_controller ** or by mi_start_session ** ** Parameters: ** arg -- pointer to context structure ** ** Returns: ** NULL pointer */ static void * mi_worker(arg) void *arg; { SMFICTX_PTR ctx; bool done; sthread_t t_id; int r; ctx = (SMFICTX_PTR) arg; done = false; if (ctx != NULL) ctx->ctx_wstate = WKST_RUNNING; t_id = sthread_get_id(); if (pthread_detach(t_id) != 0) { smi_log(SMI_LOG_ERR, "Failed to detach worker thread"); if (ctx != NULL) ctx->ctx_wstate = WKST_READY_TO_RUN; return NULL; } TASKMGR_LOCK(); Tskmgr.tm_nb_workers++; TASKMGR_UNLOCK(); while (!done) { if (mi_stop() != MILTER_CONT) break; /* let's handle next task... */ if (ctx != NULL) { int res; POOL_LEV_DPRINTF(4, ("worker %d: new task -> let's handle it", t_id)); res = mi_engine(ctx); POOL_LEV_DPRINTF(4, ("worker %d: mi_engine returned %d", t_id, res)); TASKMGR_LOCK(); if (res != MI_CONTINUE) { ctx->ctx_wstate = WKST_CLOSING; /* ** Delete context from linked list of ** sessions and close session. */ mi_close_session(ctx); } else { ctx->ctx_wstate = WKST_READY_TO_WAIT; POOL_LEV_DPRINTF(4, ("writing to event pipe...")); /* ** Signal task controller to add new session ** to poll set. */ PIPE_SEND_SIGNAL(); } TASKMGR_UNLOCK(); ctx = NULL; } /* check if there is any task waiting to be served */ TASKMGR_LOCK(); GET_TASK_READY_TO_RUN(); /* Got a task? */ if (ctx != NULL) { TASKMGR_UNLOCK(); continue; } /* ** if not, let's check if there is enough idle workers ** if yes: quit */ if (Tskmgr.tm_nb_workers > MIN_WORKERS && Tskmgr.tm_nb_idle > MIN_IDLE) done = true; POOL_LEV_DPRINTF(4, ("worker %d: checking ... %d %d", t_id, Tskmgr.tm_nb_workers, Tskmgr.tm_nb_idle + 1)); if (done) { POOL_LEV_DPRINTF(4, ("worker %d: quitting... ", t_id)); Tskmgr.tm_nb_workers--; TASKMGR_UNLOCK(); continue; } /* ** if no task ready to run, wait for another one */ Tskmgr.tm_nb_idle++; TASKMGR_COND_WAIT(); Tskmgr.tm_nb_idle--; /* look for a task */ GET_TASK_READY_TO_RUN(); TASKMGR_UNLOCK(); } return NULL; } /* ** MI_LIST_ADD_CTX -- add new session to linked list ** ** Parameters: ** ctx -- context structure ** ** Returns: ** MI_FAILURE/MI_SUCCESS */ static int mi_list_add_ctx(ctx) SMFICTX_PTR ctx; { SM_ASSERT(ctx != NULL); SM_TAILQ_INSERT_TAIL(&WRK_CTX_HEAD, ctx, ctx_link); return MI_SUCCESS; } /* ** MI_LIST_DEL_CTX -- remove session from linked list when finished ** ** Parameters: ** ctx -- context structure ** ** Returns: ** MI_FAILURE/MI_SUCCESS */ static int mi_list_del_ctx(ctx) SMFICTX_PTR ctx; { SM_ASSERT(ctx != NULL); if (SM_TAILQ_EMPTY(&WRK_CTX_HEAD)) return MI_FAILURE; SM_TAILQ_REMOVE(&WRK_CTX_HEAD, ctx, ctx_link); return MI_SUCCESS; } #endif /* _FFR_WORKERS_POOL */ sendmail-8.18.1/libmilter/listener.c0000644000372400037240000005163114556365350016751 0ustar xbuildxbuild/* * Copyright (c) 1999-2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: listener.c,v 8.127 2013-11-22 20:51:36 ca Exp $") /* ** listener.c -- threaded network listener */ #include "libmilter.h" #include #include #include #if NETINET || NETINET6 # include #endif #if SM_CONF_POLL # undef SM_FD_OK_SELECT # define SM_FD_OK_SELECT(fd) true #endif static smutex_t L_Mutex; static int L_family; static SOCKADDR_LEN_T L_socksize; static socket_t listenfd = INVALID_SOCKET; static socket_t mi_milteropen __P((char *, int, bool, char *)); #if !_FFR_WORKERS_POOL static void *mi_thread_handle_wrapper __P((void *)); #endif /* ** MI_OPENSOCKET -- create the socket where this filter and the MTA will meet ** ** Parameters: ** conn -- connection description ** backlog -- listen backlog ** dbg -- debug level ** rmsocket -- if true, try to unlink() the socket first ** (UNIX domain sockets only) ** smfi -- filter structure to use ** ** Return value: ** MI_SUCCESS/MI_FAILURE */ int mi_opensocket(conn, backlog, dbg, rmsocket, smfi) char *conn; int backlog; int dbg; bool rmsocket; smfiDesc_ptr smfi; { if (smfi == NULL || conn == NULL) return MI_FAILURE; if (ValidSocket(listenfd)) return MI_SUCCESS; if (dbg > 0) { smi_log(SMI_LOG_DEBUG, "%s: Opening listen socket on conn %s", smfi->xxfi_name, conn); } (void) smutex_init(&L_Mutex); (void) smutex_lock(&L_Mutex); listenfd = mi_milteropen(conn, backlog, rmsocket, smfi->xxfi_name); if (!ValidSocket(listenfd)) { smi_log(SMI_LOG_FATAL, "%s: Unable to create listening socket on conn %s", smfi->xxfi_name, conn); (void) smutex_unlock(&L_Mutex); return MI_FAILURE; } if (!SM_FD_OK_SELECT(listenfd)) { smi_log(SMI_LOG_ERR, "%s: fd %d is larger than FD_SETSIZE %d", smfi->xxfi_name, listenfd, FD_SETSIZE); (void) smutex_unlock(&L_Mutex); return MI_FAILURE; } (void) smutex_unlock(&L_Mutex); return MI_SUCCESS; } /* ** MI_MILTEROPEN -- setup socket to listen on ** ** Parameters: ** conn -- connection description ** backlog -- listen backlog ** rmsocket -- if true, try to unlink() the socket first ** (UNIX domain sockets only) ** name -- name for logging ** ** Returns: ** socket upon success, error code otherwise. ** ** Side effect: ** sets sockpath if UNIX socket. */ #if NETUNIX static char *sockpath = NULL; #endif static socket_t mi_milteropen(conn, backlog, rmsocket, name) char *conn; int backlog; bool rmsocket; char *name; { socket_t sock; int sockopt = 1; int fdflags; size_t len = 0; char *p; char *colon; char *at; SOCKADDR addr; if (conn == NULL || conn[0] == '\0') { smi_log(SMI_LOG_ERR, "%s: empty or missing socket information", name); return INVALID_SOCKET; } (void) memset(&addr, '\0', sizeof addr); /* protocol:filename or protocol:port@host */ p = conn; colon = strchr(p, ':'); if (colon != NULL) { *colon = '\0'; if (*p == '\0') { #if NETUNIX /* default to AF_UNIX */ addr.sa.sa_family = AF_UNIX; L_socksize = sizeof (struct sockaddr_un); #else /* NETUNIX */ # if NETINET /* default to AF_INET */ addr.sa.sa_family = AF_INET; L_socksize = sizeof addr.sin; # else /* NETINET */ # if NETINET6 /* default to AF_INET6 */ addr.sa.sa_family = AF_INET6; L_socksize = sizeof addr.sin6; # else /* NETINET6 */ /* no protocols available */ smi_log(SMI_LOG_ERR, "%s: no valid socket protocols available", name); return INVALID_SOCKET; # endif /* NETINET6 */ # endif /* NETINET */ #endif /* NETUNIX */ } #if NETUNIX else if (strcasecmp(p, "unix") == 0 || strcasecmp(p, "local") == 0) { addr.sa.sa_family = AF_UNIX; L_socksize = sizeof (struct sockaddr_un); } #endif /* NETUNIX */ #if NETINET else if (strcasecmp(p, "inet") == 0) { addr.sa.sa_family = AF_INET; L_socksize = sizeof addr.sin; } #endif /* NETINET */ #if NETINET6 else if (strcasecmp(p, "inet6") == 0) { addr.sa.sa_family = AF_INET6; L_socksize = sizeof addr.sin6; } #endif /* NETINET6 */ else { smi_log(SMI_LOG_ERR, "%s: unknown socket type %s", name, p); return INVALID_SOCKET; } *colon++ = ':'; } else { colon = p; #if NETUNIX /* default to AF_UNIX */ addr.sa.sa_family = AF_UNIX; L_socksize = sizeof (struct sockaddr_un); #else /* NETUNIX */ # if NETINET /* default to AF_INET */ addr.sa.sa_family = AF_INET; L_socksize = sizeof addr.sin; # else /* NETINET */ # if NETINET6 /* default to AF_INET6 */ addr.sa.sa_family = AF_INET6; L_socksize = sizeof addr.sin6; # else /* NETINET6 */ smi_log(SMI_LOG_ERR, "%s: unknown socket type %s", name, p); return INVALID_SOCKET; # endif /* NETINET6 */ # endif /* NETINET */ #endif /* NETUNIX */ } #if NETUNIX if (addr.sa.sa_family == AF_UNIX) { # if 0 long sff = SFF_SAFEDIRPATH|SFF_OPENASROOT|SFF_NOLINK|SFF_CREAT|SFF_MUSTOWN; # endif /* 0 */ at = colon; len = strlen(colon) + 1; if (len >= sizeof addr.sunix.sun_path) { errno = EINVAL; smi_log(SMI_LOG_ERR, "%s: UNIX socket name %s too long", name, colon); return INVALID_SOCKET; } (void) sm_strlcpy(addr.sunix.sun_path, colon, sizeof addr.sunix.sun_path); # if 0 errno = safefile(colon, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR|S_IWUSR, NULL); /* if not safe, don't create */ if (errno != 0) { smi_log(SMI_LOG_ERR, "%s: UNIX socket name %s unsafe", name, colon); return INVALID_SOCKET; } # endif /* 0 */ } #endif /* NETUNIX */ #if NETINET || NETINET6 if ( # if NETINET addr.sa.sa_family == AF_INET # endif # if NETINET && NETINET6 || # endif # if NETINET6 addr.sa.sa_family == AF_INET6 # endif ) { unsigned short port; /* Parse port@host */ at = strchr(colon, '@'); if (at == NULL) { switch (addr.sa.sa_family) { # if NETINET case AF_INET: addr.sin.sin_addr.s_addr = INADDR_ANY; break; # endif # if NETINET6 case AF_INET6: addr.sin6.sin6_addr = in6addr_any; break; # endif } } else *at = '\0'; if (isascii(*colon) && isdigit(*colon)) port = htons((unsigned short) atoi(colon)); else { # ifdef NO_GETSERVBYNAME smi_log(SMI_LOG_ERR, "%s: invalid port number %s", name, colon); return INVALID_SOCKET; # else /* NO_GETSERVBYNAME */ register struct servent *sp; sp = getservbyname(colon, "tcp"); if (sp == NULL) { smi_log(SMI_LOG_ERR, "%s: unknown port name %s", name, colon); return INVALID_SOCKET; } port = sp->s_port; # endif /* NO_GETSERVBYNAME */ } if (at != NULL) { *at++ = '@'; if (*at == '[') { char *end; end = strchr(at, ']'); if (end != NULL) { bool found = false; # if NETINET unsigned long hid = INADDR_NONE; # endif # if NETINET6 struct sockaddr_in6 hid6; # endif *end = '\0'; # if NETINET if (addr.sa.sa_family == AF_INET && (hid = inet_addr(&at[1])) != INADDR_NONE) { addr.sin.sin_addr.s_addr = hid; addr.sin.sin_port = port; found = true; } # endif /* NETINET */ # if NETINET6 (void) memset(&hid6, '\0', sizeof hid6); if (addr.sa.sa_family == AF_INET6 && mi_inet_pton(AF_INET6, &at[1], &hid6.sin6_addr) == 1) { addr.sin6.sin6_addr = hid6.sin6_addr; addr.sin6.sin6_port = port; found = true; } # endif /* NETINET6 */ *end = ']'; if (!found) { smi_log(SMI_LOG_ERR, "%s: Invalid numeric domain spec \"%s\"", name, at); return INVALID_SOCKET; } } else { smi_log(SMI_LOG_ERR, "%s: Invalid numeric domain spec \"%s\"", name, at); return INVALID_SOCKET; } } else { struct hostent *hp = NULL; hp = mi_gethostbyname(at, addr.sa.sa_family); if (hp == NULL) { smi_log(SMI_LOG_ERR, "%s: Unknown host name %s", name, at); return INVALID_SOCKET; } addr.sa.sa_family = hp->h_addrtype; switch (hp->h_addrtype) { # if NETINET case AF_INET: (void) memmove(&addr.sin.sin_addr, hp->h_addr, INADDRSZ); addr.sin.sin_port = port; break; # endif /* NETINET */ # if NETINET6 case AF_INET6: (void) memmove(&addr.sin6.sin6_addr, hp->h_addr, IN6ADDRSZ); addr.sin6.sin6_port = port; break; # endif /* NETINET6 */ default: smi_log(SMI_LOG_ERR, "%s: Unknown protocol for %s (%d)", name, at, hp->h_addrtype); return INVALID_SOCKET; } # if NETINET6 freehostent(hp); # endif } } else { switch (addr.sa.sa_family) { # if NETINET case AF_INET: addr.sin.sin_port = port; break; # endif # if NETINET6 case AF_INET6: addr.sin6.sin6_port = port; break; # endif } } } #endif /* NETINET || NETINET6 */ sock = socket(addr.sa.sa_family, SOCK_STREAM, 0); if (!ValidSocket(sock)) { smi_log(SMI_LOG_ERR, "%s: Unable to create new socket: %s", name, sm_errstring(errno)); return INVALID_SOCKET; } if ((fdflags = fcntl(sock, F_GETFD, 0)) == -1 || fcntl(sock, F_SETFD, fdflags | FD_CLOEXEC) == -1) { smi_log(SMI_LOG_ERR, "%s: Unable to set close-on-exec: %s", name, sm_errstring(errno)); (void) closesocket(sock); return INVALID_SOCKET; } if ( #if NETUNIX addr.sa.sa_family != AF_UNIX && #endif setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (void *) &sockopt, sizeof(sockopt)) == -1) { smi_log(SMI_LOG_ERR, "%s: set reuseaddr failed (%s)", name, sm_errstring(errno)); (void) closesocket(sock); return INVALID_SOCKET; } #if NETUNIX if (addr.sa.sa_family == AF_UNIX && rmsocket) { struct stat s; if (stat(colon, &s) != 0) { if (errno != ENOENT) { smi_log(SMI_LOG_ERR, "%s: Unable to stat() %s: %s", name, colon, sm_errstring(errno)); (void) closesocket(sock); return INVALID_SOCKET; } } else if (!S_ISSOCK(s.st_mode)) { smi_log(SMI_LOG_ERR, "%s: %s is not a UNIX domain socket", name, colon); (void) closesocket(sock); return INVALID_SOCKET; } else if (unlink(colon) != 0) { smi_log(SMI_LOG_ERR, "%s: Unable to remove %s: %s", name, colon, sm_errstring(errno)); (void) closesocket(sock); return INVALID_SOCKET; } } #endif /* NETUNIX */ if (bind(sock, &addr.sa, L_socksize) < 0) { smi_log(SMI_LOG_ERR, "%s: Unable to bind to port %s: %s", name, conn, sm_errstring(errno)); (void) closesocket(sock); return INVALID_SOCKET; } if (listen(sock, backlog) < 0) { smi_log(SMI_LOG_ERR, "%s: listen call failed: %s", name, sm_errstring(errno)); (void) closesocket(sock); return INVALID_SOCKET; } #if NETUNIX if (addr.sa.sa_family == AF_UNIX && len > 0) { /* ** Set global variable sockpath so the UNIX socket can be ** unlink()ed at exit. */ sockpath = (char *) malloc(len); if (sockpath != NULL) (void) sm_strlcpy(sockpath, colon, len); else { smi_log(SMI_LOG_ERR, "%s: can't malloc(%d) for sockpath: %s", name, (int) len, sm_errstring(errno)); (void) closesocket(sock); return INVALID_SOCKET; } } #endif /* NETUNIX */ L_family = addr.sa.sa_family; return sock; } #if !_FFR_WORKERS_POOL /* ** MI_THREAD_HANDLE_WRAPPER -- small wrapper to handle session ** ** Parameters: ** arg -- argument to pass to mi_handle_session() ** ** Returns: ** results from mi_handle_session() */ static void * mi_thread_handle_wrapper(arg) void *arg; { /* ** Note: on some systems this generates a compiler warning: ** cast to pointer from integer of different size ** You can safely ignore this warning as the result of this function ** is not used anywhere. */ return (void *) mi_handle_session(arg); } #endif /* _FFR_WORKERS_POOL */ /* ** MI_CLOSENER -- close listen socket ** ** Parameters: ** none. ** ** Returns: ** none. */ void mi_closener() { (void) smutex_lock(&L_Mutex); if (ValidSocket(listenfd)) { #if NETUNIX bool removable; struct stat sockinfo; struct stat fileinfo; removable = sockpath != NULL && geteuid() != 0 && fstat(listenfd, &sockinfo) == 0 && (S_ISFIFO(sockinfo.st_mode) # ifdef S_ISSOCK || S_ISSOCK(sockinfo.st_mode) # endif ); #endif /* NETUNIX */ (void) closesocket(listenfd); listenfd = INVALID_SOCKET; #if NETUNIX /* XXX sleep() some time before doing this? */ if (sockpath != NULL) { if (removable && stat(sockpath, &fileinfo) == 0 && ((fileinfo.st_dev == sockinfo.st_dev && fileinfo.st_ino == sockinfo.st_ino) # ifdef S_ISSOCK || S_ISSOCK(fileinfo.st_mode) # endif ) && (S_ISFIFO(fileinfo.st_mode) # ifdef S_ISSOCK || S_ISSOCK(fileinfo.st_mode) # endif )) (void) unlink(sockpath); free(sockpath); sockpath = NULL; } #endif /* NETUNIX */ } (void) smutex_unlock(&L_Mutex); } /* ** MI_LISTENER -- Generic listener harness ** ** Open up listen port ** Wait for connections ** ** Parameters: ** conn -- connection description ** dbg -- debug level ** smfi -- filter structure to use ** timeout -- timeout for reads/writes ** backlog -- listen queue backlog size ** ** Returns: ** MI_SUCCESS -- Exited normally ** (session finished or we were told to exit) ** MI_FAILURE -- Network initialization failed. */ #if BROKEN_PTHREAD_SLEEP /* ** Solaris 2.6, perhaps others, gets an internal threads library panic ** when sleep() is used: ** ** thread_create() failed, returned 11 (EINVAL) ** co_enable, thr_create() returned error = 24 ** libthread panic: co_enable failed (PID: 17793 LWP 1) ** stacktrace: ** ef526b10 ** ef52646c ** ef534cbc ** 156a4 ** 14644 ** 1413c ** 135e0 ** 0 */ # define MI_SLEEP(s) \ { \ int rs = 0; \ struct timeval st; \ \ st.tv_sec = (s); \ st.tv_usec = 0; \ if (st.tv_sec > 0) \ { \ for (;;) \ { \ rs = select(0, NULL, NULL, NULL, &st); \ if (rs < 0 && errno == EINTR) \ continue; \ if (rs != 0) \ { \ smi_log(SMI_LOG_ERR, \ "MI_SLEEP(): select() returned non-zero result %d, errno = %d", \ rs, errno); \ } \ break; \ } \ } \ } #else /* BROKEN_PTHREAD_SLEEP */ # define MI_SLEEP(s) sleep((s)) #endif /* BROKEN_PTHREAD_SLEEP */ int mi_listener(conn, dbg, smfi, timeout, backlog) char *conn; int dbg; smfiDesc_ptr smfi; time_t timeout; int backlog; { socket_t connfd = INVALID_SOCKET; #if _FFR_DUP_FD socket_t dupfd = INVALID_SOCKET; #endif int sockopt = 1; int r, mistop; int ret = MI_SUCCESS; int mcnt = 0; /* error count for malloc() failures */ int tcnt = 0; /* error count for thread_create() failures */ int acnt = 0; /* error count for accept() failures */ int scnt = 0; /* error count for select() failures */ int save_errno = 0; int fdflags; #if !_FFR_WORKERS_POOL sthread_t thread_id; #endif _SOCK_ADDR cliaddr; SOCKADDR_LEN_T clilen; SMFICTX_PTR ctx; FD_RD_VAR(rds, excs); struct timeval chktime; if (mi_opensocket(conn, backlog, dbg, false, smfi) == MI_FAILURE) return MI_FAILURE; #if _FFR_WORKERS_POOL if (mi_pool_controller_init() == MI_FAILURE) return MI_FAILURE; #endif clilen = L_socksize; while ((mistop = mi_stop()) == MILTER_CONT) { (void) smutex_lock(&L_Mutex); if (!ValidSocket(listenfd)) { ret = MI_FAILURE; smi_log(SMI_LOG_ERR, "%s: listenfd=%d corrupted, terminating, errno=%d", smfi->xxfi_name, listenfd, errno); (void) smutex_unlock(&L_Mutex); break; } /* select on interface ports */ FD_RD_INIT(listenfd, rds, excs); chktime.tv_sec = MI_CHK_TIME; chktime.tv_usec = 0; r = FD_RD_READY(listenfd, rds, excs, &chktime); if (r == 0) /* timeout */ { (void) smutex_unlock(&L_Mutex); continue; /* just check mi_stop() */ } if (r < 0) { save_errno = errno; (void) smutex_unlock(&L_Mutex); if (save_errno == EINTR) continue; scnt++; smi_log(SMI_LOG_ERR, "%s: %s() failed (%s), %s", smfi->xxfi_name, MI_POLLSELECT, sm_errstring(save_errno), scnt >= MAX_FAILS_S ? "abort" : "try again"); MI_SLEEP(scnt); if (scnt >= MAX_FAILS_S) { ret = MI_FAILURE; break; } continue; } if (!FD_IS_RD_RDY(listenfd, rds, excs)) { /* some error: just stop for now... */ ret = MI_FAILURE; (void) smutex_unlock(&L_Mutex); smi_log(SMI_LOG_ERR, "%s: %s() returned exception for socket, abort", smfi->xxfi_name, MI_POLLSELECT); break; } scnt = 0; /* reset error counter for select() */ (void) memset(&cliaddr, '\0', sizeof cliaddr); connfd = accept(listenfd, (struct sockaddr *) &cliaddr, &clilen); save_errno = errno; (void) smutex_unlock(&L_Mutex); /* ** If remote side closes before accept() finishes, ** sockaddr might not be fully filled in. */ if (ValidSocket(connfd) && (clilen == 0 || #ifdef BSD4_4_SOCKADDR cliaddr.sa.sa_len == 0 || #endif cliaddr.sa.sa_family != L_family)) { (void) closesocket(connfd); connfd = INVALID_SOCKET; save_errno = EINVAL; } /* check if acceptable for select() */ if (ValidSocket(connfd) && !SM_FD_OK_SELECT(connfd)) { (void) closesocket(connfd); connfd = INVALID_SOCKET; save_errno = ERANGE; } if (!ValidSocket(connfd)) { if (save_errno == EINTR #ifdef EAGAIN || save_errno == EAGAIN #endif #ifdef ECONNABORTED || save_errno == ECONNABORTED #endif #ifdef EMFILE || save_errno == EMFILE #endif #ifdef ENFILE || save_errno == ENFILE #endif #ifdef ENOBUFS || save_errno == ENOBUFS #endif #ifdef ENOMEM || save_errno == ENOMEM #endif #ifdef ENOSR || save_errno == ENOSR #endif #ifdef EWOULDBLOCK || save_errno == EWOULDBLOCK #endif ) continue; acnt++; smi_log(SMI_LOG_ERR, "%s: accept() returned invalid socket (%s), %s", smfi->xxfi_name, sm_errstring(save_errno), acnt >= MAX_FAILS_A ? "abort" : "try again"); MI_SLEEP(acnt); if (acnt >= MAX_FAILS_A) { ret = MI_FAILURE; break; } continue; } acnt = 0; /* reset error counter for accept() */ #if _FFR_DUP_FD dupfd = fcntl(connfd, F_DUPFD, 256); if (ValidSocket(dupfd) && SM_FD_OK_SELECT(dupfd)) { close(connfd); connfd = dupfd; dupfd = INVALID_SOCKET; } #endif /* _FFR_DUP_FD */ /* ** Need to set close-on-exec for connfd in case a user's ** filter starts other applications. ** Note: errors will not stop processing (for now). */ if ((fdflags = fcntl(connfd, F_GETFD, 0)) == -1 || fcntl(connfd, F_SETFD, fdflags | FD_CLOEXEC) == -1) { smi_log(SMI_LOG_ERR, "%s: Unable to set close-on-exec: %s", smfi->xxfi_name, sm_errstring(errno)); } if (setsockopt(connfd, SOL_SOCKET, SO_KEEPALIVE, (void *) &sockopt, sizeof sockopt) < 0) { smi_log(SMI_LOG_WARN, "%s: set keepalive failed (%s)", smfi->xxfi_name, sm_errstring(errno)); /* XXX: continue? */ } if ((ctx = (SMFICTX_PTR) malloc(sizeof *ctx)) == NULL) { (void) closesocket(connfd); mcnt++; smi_log(SMI_LOG_ERR, "%s: malloc(ctx) failed (%s), %s", smfi->xxfi_name, sm_errstring(save_errno), mcnt >= MAX_FAILS_M ? "abort" : "try again"); MI_SLEEP(mcnt); if (mcnt >= MAX_FAILS_M) { ret = MI_FAILURE; break; } continue; } mcnt = 0; /* reset error counter for malloc() */ (void) memset(ctx, '\0', sizeof *ctx); ctx->ctx_sd = connfd; ctx->ctx_dbg = dbg; ctx->ctx_timeout = timeout; ctx->ctx_smfi = smfi; if (smfi->xxfi_connect == NULL) ctx->ctx_pflags |= SMFIP_NOCONNECT; if (smfi->xxfi_helo == NULL) ctx->ctx_pflags |= SMFIP_NOHELO; if (smfi->xxfi_envfrom == NULL) ctx->ctx_pflags |= SMFIP_NOMAIL; if (smfi->xxfi_envrcpt == NULL) ctx->ctx_pflags |= SMFIP_NORCPT; if (smfi->xxfi_header == NULL) ctx->ctx_pflags |= SMFIP_NOHDRS; if (smfi->xxfi_eoh == NULL) ctx->ctx_pflags |= SMFIP_NOEOH; if (smfi->xxfi_body == NULL) ctx->ctx_pflags |= SMFIP_NOBODY; if (smfi->xxfi_version <= 3 || smfi->xxfi_data == NULL) ctx->ctx_pflags |= SMFIP_NODATA; if (smfi->xxfi_version <= 2 || smfi->xxfi_unknown == NULL) ctx->ctx_pflags |= SMFIP_NOUNKNOWN; #if _FFR_WORKERS_POOL # define LOG_CRT_FAIL "%s: mi_start_session() failed: %d, %s" if ((r = mi_start_session(ctx)) != MI_SUCCESS) #else # define LOG_CRT_FAIL "%s: thread_create() failed: %d, %s" if ((r = thread_create(&thread_id, mi_thread_handle_wrapper, (void *) ctx)) != 0) #endif { tcnt++; smi_log(SMI_LOG_ERR, LOG_CRT_FAIL, smfi->xxfi_name, r, tcnt >= MAX_FAILS_T ? "abort" : "try again"); MI_SLEEP(tcnt); (void) closesocket(connfd); free(ctx); if (tcnt >= MAX_FAILS_T) { ret = MI_FAILURE; break; } continue; } tcnt = 0; } if (ret != MI_SUCCESS) mi_stop_milters(MILTER_ABRT); else { if (mistop != MILTER_CONT) smi_log(SMI_LOG_INFO, "%s=%s", smfi->xxfi_name, MILTER_STOP == mistop ? "terminating" : "aborting"); mi_closener(); } (void) smutex_destroy(&L_Mutex); return ret; } sendmail-8.18.1/libmilter/monitor.c0000644000372400037240000001116314556365350016607 0ustar xbuildxbuild/* * Copyright (c) 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: monitor.c,v 8.8 2013-11-22 20:51:36 ca Exp $") #include "libmilter.h" #if _FFR_THREAD_MONITOR /* ** Thread Monitoring ** Todo: more error checking (return code from function calls) ** add comments. */ bool Monitor = false; /* use monitoring? */ static unsigned int Mon_exec_time = 0; /* mutex protects Mon_cur_ctx, Mon_ctx_head, and ctx_start */ static smutex_t Mon_mutex; static scond_t Mon_cv; /* ** Current ctx to monitor. ** Invariant: ** Mon_cur_ctx == NULL || Mon_cur_ctx is thread which was started the longest ** time ago. ** ** Basically the entries in the list are ordered by time because new ** entries are appended at the end. However, due to the concurrent ** execution (multi-threaded) and no guaranteed order of wakeups ** after a mutex_lock() attempt, the order might not be strict, ** i.e., if the list contains e1 and e2 (in that order) then ** the the start time of e2 can be (slightly) smaller than that of e1. ** However, this slight inaccuracy should not matter for the proper ** working of this algorithm. */ static SMFICTX_PTR Mon_cur_ctx = NULL; static smfi_hd_T Mon_ctx_head; /* head of the linked list of active contexts */ /* ** SMFI_SET_MAX_EXEC_TIME -- set maximum execution time for a thread ** ** Parameters: ** tm -- maximum execution time for a thread ** ** Returns: ** MI_SUCCESS */ int smfi_set_max_exec_time(tm) unsigned int tm; { Mon_exec_time = tm; return MI_SUCCESS; } /* ** MI_MONITOR_THREAD -- monitoring thread ** ** Parameters: ** arg -- ignored (required by pthread_create()) ** ** Returns: ** NULL on termination. */ static void * mi_monitor_thread(arg) void *arg; { sthread_t tid; int r; time_t now, end; SM_ASSERT(Monitor); SM_ASSERT(Mon_exec_time > 0); tid = (sthread_t) sthread_get_id(); if (pthread_detach(tid) != 0) { /* log an error */ return (void *)1; } /* ** NOTE: this is "flow through" code, ** do NOT use do { } while ("break" is used here!) */ #define MON_CHK_STOP \ now = time(NULL); \ end = Mon_cur_ctx->ctx_start + Mon_exec_time; \ if (now > end) \ { \ smi_log(SMI_LOG_ERR, \ "WARNING: monitor timeout triggered, now=%ld, end=%ld, tid=%ld, state=0x%x",\ (long) now, (long) end, \ (long) Mon_cur_ctx->ctx_id, Mon_cur_ctx->ctx_state);\ mi_stop_milters(MILTER_STOP); \ break; \ } (void) smutex_lock(&Mon_mutex); while (mi_stop() == MILTER_CONT) { if (Mon_cur_ctx != NULL && Mon_cur_ctx->ctx_start > 0) { struct timespec abstime; MON_CHK_STOP; abstime.tv_sec = end; abstime.tv_nsec = 0; r = pthread_cond_timedwait(&Mon_cv, &Mon_mutex, &abstime); } else r = pthread_cond_wait(&Mon_cv, &Mon_mutex); if (mi_stop() != MILTER_CONT) break; if (Mon_cur_ctx != NULL && Mon_cur_ctx->ctx_start > 0) { MON_CHK_STOP; } } (void) smutex_unlock(&Mon_mutex); return NULL; } /* ** MI_MONITOR_INIT -- initialize monitoring thread ** ** Parameters: none ** ** Returns: ** MI_SUCCESS/MI_FAILURE */ int mi_monitor_init() { int r; sthread_t tid; SM_ASSERT(!Monitor); if (Mon_exec_time <= 0) return MI_SUCCESS; Monitor = true; if (!smutex_init(&Mon_mutex)) return MI_FAILURE; if (scond_init(&Mon_cv) != 0) return MI_FAILURE; SM_TAILQ_INIT(&Mon_ctx_head); r = thread_create(&tid, mi_monitor_thread, (void *)NULL); if (r != 0) return r; return MI_SUCCESS; } /* ** MI_MONITOR_WORK_BEGIN -- record start of thread execution ** ** Parameters: ** ctx -- session context ** cmd -- milter command char ** ** Returns: ** 0 */ int mi_monitor_work_begin(ctx, cmd) SMFICTX_PTR ctx; int cmd; { (void) smutex_lock(&Mon_mutex); if (NULL == Mon_cur_ctx) { Mon_cur_ctx = ctx; (void) scond_signal(&Mon_cv); } ctx->ctx_start = time(NULL); SM_TAILQ_INSERT_TAIL(&Mon_ctx_head, ctx, ctx_mon_link); (void) smutex_unlock(&Mon_mutex); return 0; } /* ** MI_MONITOR_WORK_END -- record end of thread execution ** ** Parameters: ** ctx -- session context ** cmd -- milter command char ** ** Returns: ** 0 */ int mi_monitor_work_end(ctx, cmd) SMFICTX_PTR ctx; int cmd; { (void) smutex_lock(&Mon_mutex); ctx->ctx_start = 0; SM_TAILQ_REMOVE(&Mon_ctx_head, ctx, ctx_mon_link); if (Mon_cur_ctx == ctx) { if (SM_TAILQ_EMPTY(&Mon_ctx_head)) Mon_cur_ctx = NULL; else Mon_cur_ctx = SM_TAILQ_FIRST(&Mon_ctx_head); } (void) smutex_unlock(&Mon_mutex); return 0; } #endif /* _FFR_THREAD_MONITOR */ sendmail-8.18.1/libmilter/README0000644000372400037240000002111614556365350015633 0ustar xbuildxbuildThis directory contains the source files for libmilter. The sendmail Mail Filter API (Milter) is designed to allow third-party programs access to mail messages as they are being processed in order to filter meta-information and content. This README file describes the steps needed to compile and run a filter, through reference to a sample filter which is attached at the end of this file. It is necessary to first build libmilter.a, which can be done by issuing the './Build' command in SRCDIR/libmilter . Starting with 8.13 sendmail is compiled by default with support for the milter API. Note: if you want to write a milter in Java, then see http://sendmail-jilter.sourceforge.net/ +----------------+ | SECURITY HINTS | +----------------+ Note: we strongly recommend not to run any milter as root. Libmilter does not need root access to communicate with sendmail. It is a good security practice to run a program only with root privileges if really necessary. A milter should probably check first whether it runs as root and refuse to start in that case. libmilter will not unlink a socket when running as root. +----------------------+ | CONFIGURATION MACROS | +----------------------+ Libmilter uses a set of C preprocessor macros to specify platform specific features of the C compiler and standard C libraries. SM_CONF_POLL Set to 1 if poll(2) should be used instead of select(2). +-------------------+ | BUILDING A FILTER | +-------------------+ The following command presumes that the sample code from the end of this README is saved to a file named 'sample.c' and built in the local platform- specific build subdirectory (SRCDIR/obj.*/libmilter). cc -I../../include -o sample sample.c libmilter.a ../libsm/libsm.a -pthread It is recommended that you build your filters in a location outside of the sendmail source tree. Modify the compiler include references (-I) and the library locations accordingly. Also, some operating systems may require additional libraries. For example, SunOS 5.X requires '-lresolv -lsocket -lnsl'. Depending on your operating system you may need a library instead of the option -pthread, e.g., -lpthread. Filters must be thread-safe! Many operating systems now provide support for POSIX threads in the standard C libraries. The compiler flag to link with threading support differs according to the compiler and linker used. Check the Makefile in your appropriate obj.*/libmilter build subdirectory if you are unsure of the local flag used. Note that since filters use threads, it may be necessary to alter per process limits in your filter. For example, you might look at using setrlimit() to increase the number of open file descriptors if your filter is going to be busy. +----------------------------------------+ | SPECIFYING FILTERS IN SENDMAIL CONFIGS | +----------------------------------------+ Filters are specified with a key letter ``X'' (for ``eXternal''). For example: Xfilter1, S=local:/var/run/f1.sock, F=R Xfilter2, S=inet6:999@localhost, F=T, T=C:10m;S:1s;R:1s;E:5m Xfilter3, S=inet:3333@localhost specifies three filters. Filters can be specified in your .mc file using the following: INPUT_MAIL_FILTER(`filter1', `S=local:/var/run/f1.sock, F=R') INPUT_MAIL_FILTER(`filter2', `S=inet6:999@localhost, F=T, T=C:10m;S:1s;R:1s;E:5m') INPUT_MAIL_FILTER(`filter3', `S=inet:3333@localhost') The first attaches to a Unix-domain socket in the /var/run directory; the second uses an IPv6 socket on port 999 of localhost, and the third uses an IPv4 socket on port 3333 of localhost. The current flags (F=) are: R Reject connection if filter unavailable T Temporary fail connection if filter unavailable 4 Shut down connection if filter unavailable (with a 421 temporary error). If none of these is specified, the message is passed through sendmail in case of filter errors as if the failing filters were not present. Finally, you can override the default timeouts used by sendmail when talking to the filters using the T= equate. There are four fields inside of the T= equate: Letter Meaning C Timeout for connecting to a filter (if 0, use system timeout) S Timeout for sending information from the MTA to a filter R Timeout for reading reply from the filter E Overall timeout between sending end-of-message to filter and waiting for the final acknowledgment Note the separator between each is a ';' as a ',' already separates equates and therefore can't separate timeouts. The default values (if not set in the config) are: T=C:5m;S:10s;R:10s;E:5m where 's' is seconds and 'm' is minutes. Which filters are invoked and their sequencing is handled by the InputMailFilters option. Note: if InputMailFilters is not defined no filters will be used. O InputMailFilters=filter1, filter2, filter3 This is is set automatically according to the order of the INPUT_MAIL_FILTER commands in your .mc file. Alternatively, you can reset its value by setting confINPUT_MAIL_FILTERS in your .mc file. This options causes the three filters to be called in the same order they were specified. It allows for possible future filtering on output (although this is not intended for this release). Also note that a filter can be defined without adding it to the input filter list by using MAIL_FILTER() instead of INPUT_MAIL_FILTER() in your .mc file. To test sendmail with the sample filter, the following might be added (in the appropriate locations) to your .mc file: INPUT_MAIL_FILTER(`sample', `S=local:/var/run/f1.sock') +------------------+ | TESTING A FILTER | +------------------+ Once you have compiled a filter, modified your .mc file and restarted the sendmail process, you will want to test that the filter performs as intended. The sample filter takes one argument -p, which indicates the local port on which to create a listening socket for the filter. Maintaining consistency with the suggested options for sendmail.cf, this would be the UNIX domain socket located in /var/run/f1.sock. % ./sample -p local:/var/run/f1.sock If the sample filter returns immediately to a command line, there was either an error with your command or a problem creating the specified socket. Further logging can be captured through the syslogd daemon. Using the 'netstat -a' command can ensure that your filter process is listening on the appropriate local socket. Email messages must be injected via SMTP to be filtered. There are two simple means of doing this; either using the 'sendmail -bs' command, or by telnetting to port 25 of the machine configured for milter. Once connected via one of these options, the session can be continued through the use of standard SMTP commands. % sendmail -bs 220 test.sendmail.com ESMTP Sendmail 8.14.0/8.14.0; Thu, 22 Jun 2006 13:05:23 -0500 (EST) HELO localhost 250 test.sendmail.com Hello testy@localhost, pleased to meet you MAIL From: 250 2.1.0 ... Sender ok RCPT To: 250 2.1.5 ... Recipient ok DATA 354 Enter mail, end with "." on a line by itself From: testy@test.sendmail.com To: root@test.sendmail.com Subject: testing sample filter Sample body . 250 2.0.0 dB73Zxi25236 Message accepted for delivery QUIT 221 2.0.0 test.sendmail.com closing connection In the above example, the lines beginning with numbers are output by the mail server, and those without are your input. If everything is working properly, you will find a file in /tmp by the name of msg.XXXXXXXX (where the Xs represent any combination of letters and numbers). This file should contain the message body and headers from the test email entered above. If the sample filter did not log your test email, there are a number of methods to narrow down the source of the problem. Check your system logs written by syslogd and see if there are any pertinent lines. You may need to reconfigure syslogd to capture all relevant data. Additionally, the logging level of sendmail can be raised with the LogLevel option. See the sendmail(8) manual page for more information. +--------------+ | REQUIREMENTS | +--------------+ libmilter requires pthread support in the operating system. Moreover, it requires that the library functions it uses are thread safe; which is true for the operating systems libmilter has been developed and tested on. On some operating systems this requires special compile time options (e.g., not just -pthread). So far, libmilter is not supported on: IRIX 6.x Ultrix Feedback about problems (and possible fixes) is welcome. +--------------------------+ | SOURCE FOR SAMPLE FILTER | +--------------------------+ Note that the filter example.c may not be thread safe on some operating systems. You should check your system man pages for the functions used to verify they are thread safe. sendmail-8.18.1/libsmdb/0000755000372400037240000000000014556365434014406 5ustar xbuildxbuildsendmail-8.18.1/libsmdb/smdb1.c0000644000372400037240000003131014556365350015553 0ustar xbuildxbuild/* ** Copyright (c) 1999-2002, 2004, 2009 Proofpoint, Inc. and its suppliers. ** All rights reserved. ** ** By using this file, you agree to the terms and conditions set ** forth in the LICENSE file which can be found at the top level of ** the sendmail distribution. */ #include SM_RCSID("@(#)$Id: smdb1.c,v 8.63 2013-11-22 20:51:49 ca Exp $") #include #include #include #include #include #if (DB_VERSION_MAJOR == 1) struct smdb_db1_struct { DB *smdb1_db; int smdb1_lock_fd; bool smdb1_cursor_in_use; }; typedef struct smdb_db1_struct SMDB_DB1_DATABASE; struct smdb_db1_cursor { SMDB_DB1_DATABASE *db; }; typedef struct smdb_db1_cursor SMDB_DB1_CURSOR; static DBTYPE smdb_type_to_db1_type __P((SMDB_DBTYPE)); static unsigned int smdb_put_flags_to_db1_flags __P((SMDB_FLAG)); static int smdb_cursor_get_flags_to_smdb1 __P((SMDB_FLAG)); static SMDB_DB1_DATABASE *smdb1_malloc_database __P((void)); static int smdb1_close __P((SMDB_DATABASE *)); static int smdb1_del __P((SMDB_DATABASE *, SMDB_DBENT *, unsigned int)); static int smdb1_fd __P((SMDB_DATABASE *, int *)); static int smdb1_lockfd __P((SMDB_DATABASE *)); static int smdb1_get __P((SMDB_DATABASE *, SMDB_DBENT *, SMDB_DBENT *, unsigned int)); static int smdb1_put __P((SMDB_DATABASE *, SMDB_DBENT *, SMDB_DBENT *, unsigned int)); static int smdb1_set_owner __P((SMDB_DATABASE *, uid_t, gid_t)); static int smdb1_sync __P((SMDB_DATABASE *, unsigned int)); static int smdb1_cursor_close __P((SMDB_CURSOR *)); static int smdb1_cursor_del __P((SMDB_CURSOR *, unsigned int)); static int smdb1_cursor_get __P((SMDB_CURSOR *, SMDB_DBENT *, SMDB_DBENT *, SMDB_FLAG)); static int smdb1_cursor_put __P((SMDB_CURSOR *, SMDB_DBENT *, SMDB_DBENT *, SMDB_FLAG)); static int smdb1_cursor __P((SMDB_DATABASE *, SMDB_CURSOR **, unsigned int)); /* ** SMDB_TYPE_TO_DB1_TYPE -- Translates smdb database type to db1 type. ** ** Parameters: ** type -- The type to translate. ** ** Returns: ** The DB1 type that corresponsds to the passed in SMDB type. ** Returns -1 if there is no equivalent type. ** */ static DBTYPE smdb_type_to_db1_type(type) SMDB_DBTYPE type; { if (type == SMDB_TYPE_DEFAULT) return DB_HASH; if (SMDB_IS_TYPE_HASH(type)) return DB_HASH; if (SMDB_IS_TYPE_BTREE(type)) return DB_BTREE; /* Should never get here thanks to test in smdb_db_open() */ return DB_HASH; } /* ** SMDB_PUT_FLAGS_TO_DB1_FLAGS -- Translates smdb put flags to db1 put flags. ** ** Parameters: ** flags -- The flags to translate. ** ** Returns: ** The db1 flags that are equivalent to the smdb flags. ** ** Notes: ** Any invalid flags are ignored. ** */ static unsigned int smdb_put_flags_to_db1_flags(flags) SMDB_FLAG flags; { int return_flags; return_flags = 0; if (bitset(SMDBF_NO_OVERWRITE, flags)) return_flags |= R_NOOVERWRITE; return return_flags; } /* ** SMDB_CURSOR_GET_FLAGS_TO_SMDB1 ** ** Parameters: ** flags -- The flags to translate. ** ** Returns: ** The db1 flags that are equivalent to the smdb flags. ** ** Notes: ** Returns -1 if we don't support the flag. ** */ static int smdb_cursor_get_flags_to_smdb1(flags) SMDB_FLAG flags; { switch(flags) { case SMDB_CURSOR_GET_FIRST: return R_FIRST; case SMDB_CURSOR_GET_LAST: return R_LAST; case SMDB_CURSOR_GET_NEXT: return R_NEXT; case SMDB_CURSOR_GET_RANGE: return R_CURSOR; default: return -1; } } /* ** The rest of these functions correspond to the interface laid out in smdb.h. */ static SMDB_DB1_DATABASE * smdb1_malloc_database() { SMDB_DB1_DATABASE *db1; db1 = (SMDB_DB1_DATABASE *) malloc(sizeof(SMDB_DB1_DATABASE)); if (db1 != NULL) { db1->smdb1_lock_fd = -1; db1->smdb1_cursor_in_use = false; } return db1; } static int smdb1_close(database) SMDB_DATABASE *database; { int result; SMDB_DB1_DATABASE *db1 = (SMDB_DB1_DATABASE *) database->smdb_impl; DB *db = ((SMDB_DB1_DATABASE *) database->smdb_impl)->smdb1_db; result = db->close(db); if (db1->smdb1_lock_fd != -1) (void) close(db1->smdb1_lock_fd); free(db1); database->smdb_impl = NULL; return result; } static int smdb1_del(database, key, flags) SMDB_DATABASE *database; SMDB_DBENT *key; unsigned int flags; { DB *db = ((SMDB_DB1_DATABASE *) database->smdb_impl)->smdb1_db; DBT dbkey; (void) memset(&dbkey, '\0', sizeof dbkey); dbkey.data = key->data; dbkey.size = key->size; return db->del(db, &dbkey, flags); } static int smdb1_fd(database, fd) SMDB_DATABASE *database; int *fd; { DB *db = ((SMDB_DB1_DATABASE *) database->smdb_impl)->smdb1_db; *fd = db->fd(db); if (*fd == -1) return errno; return SMDBE_OK; } static int smdb1_lockfd(database) SMDB_DATABASE *database; { SMDB_DB1_DATABASE *db1 = (SMDB_DB1_DATABASE *) database->smdb_impl; return db1->smdb1_lock_fd; } static int smdb1_get(database, key, data, flags) SMDB_DATABASE *database; SMDB_DBENT *key; SMDB_DBENT *data; unsigned int flags; { int result; DB *db = ((SMDB_DB1_DATABASE *) database->smdb_impl)->smdb1_db; DBT dbkey, dbdata; (void) memset(&dbdata, '\0', sizeof dbdata); (void) memset(&dbkey, '\0', sizeof dbkey); dbkey.data = key->data; dbkey.size = key->size; result = db->get(db, &dbkey, &dbdata, flags); if (result != 0) { if (result == 1) return SMDBE_NOT_FOUND; return errno; } data->data = dbdata.data; data->size = dbdata.size; return SMDBE_OK; } static int smdb1_put(database, key, data, flags) SMDB_DATABASE *database; SMDB_DBENT *key; SMDB_DBENT *data; unsigned int flags; { DB *db = ((SMDB_DB1_DATABASE *) database->smdb_impl)->smdb1_db; DBT dbkey, dbdata; (void) memset(&dbdata, '\0', sizeof dbdata); (void) memset(&dbkey, '\0', sizeof dbkey); dbkey.data = key->data; dbkey.size = key->size; dbdata.data = data->data; dbdata.size = data->size; return db->put(db, &dbkey, &dbdata, smdb_put_flags_to_db1_flags(flags)); } static int smdb1_set_owner(database, uid, gid) SMDB_DATABASE *database; uid_t uid; gid_t gid; { # if HASFCHOWN int fd; int result; DB *db = ((SMDB_DB1_DATABASE *) database->smdb_impl)->smdb1_db; fd = db->fd(db); if (fd == -1) return errno; result = fchown(fd, uid, gid); if (result < 0) return errno; # endif /* HASFCHOWN */ return SMDBE_OK; } static int smdb1_sync(database, flags) SMDB_DATABASE *database; unsigned int flags; { DB *db = ((SMDB_DB1_DATABASE *) database->smdb_impl)->smdb1_db; return db->sync(db, flags); } static int smdb1_cursor_close(cursor) SMDB_CURSOR *cursor; { SMDB_DB1_CURSOR *db1_cursor = (SMDB_DB1_CURSOR *) cursor->smdbc_impl; SMDB_DB1_DATABASE *db1 = db1_cursor->db; if (!db1->smdb1_cursor_in_use) return SMDBE_NOT_A_VALID_CURSOR; db1->smdb1_cursor_in_use = false; free(cursor); return SMDBE_OK; } static int smdb1_cursor_del(cursor, flags) SMDB_CURSOR *cursor; unsigned int flags; { SMDB_DB1_CURSOR *db1_cursor = (SMDB_DB1_CURSOR *) cursor->smdbc_impl; SMDB_DB1_DATABASE *db1 = db1_cursor->db; DB *db = db1->smdb1_db; return db->del(db, NULL, R_CURSOR); } static int smdb1_cursor_get(cursor, key, value, flags) SMDB_CURSOR *cursor; SMDB_DBENT *key; SMDB_DBENT *value; SMDB_FLAG flags; { int db1_flags; int result; SMDB_DB1_CURSOR *db1_cursor = (SMDB_DB1_CURSOR *) cursor->smdbc_impl; SMDB_DB1_DATABASE *db1 = db1_cursor->db; DB *db = db1->smdb1_db; DBT dbkey, dbdata; (void) memset(&dbdata, '\0', sizeof dbdata); (void) memset(&dbkey, '\0', sizeof dbkey); db1_flags = smdb_cursor_get_flags_to_smdb1(flags); result = db->seq(db, &dbkey, &dbdata, db1_flags); if (result == -1) return errno; if (result == 1) return SMDBE_LAST_ENTRY; value->data = dbdata.data; value->size = dbdata.size; key->data = dbkey.data; key->size = dbkey.size; return SMDBE_OK; } static int smdb1_cursor_put(cursor, key, value, flags) SMDB_CURSOR *cursor; SMDB_DBENT *key; SMDB_DBENT *value; SMDB_FLAG flags; { SMDB_DB1_CURSOR *db1_cursor = (SMDB_DB1_CURSOR *) cursor->smdbc_impl; SMDB_DB1_DATABASE *db1 = db1_cursor->db; DB *db = db1->smdb1_db; DBT dbkey, dbdata; (void) memset(&dbdata, '\0', sizeof dbdata); (void) memset(&dbkey, '\0', sizeof dbkey); dbkey.data = key->data; dbkey.size = key->size; dbdata.data = value->data; dbdata.size = value->size; return db->put(db, &dbkey, &dbdata, R_CURSOR); } static int smdb1_cursor(database, cursor, flags) SMDB_DATABASE *database; SMDB_CURSOR **cursor; unsigned int flags; { SMDB_DB1_DATABASE *db1 = (SMDB_DB1_DATABASE *) database->smdb_impl; SMDB_CURSOR *cur; SMDB_DB1_CURSOR *db1_cursor; if (db1->smdb1_cursor_in_use) return SMDBE_ONLY_SUPPORTS_ONE_CURSOR; db1_cursor = (SMDB_DB1_CURSOR *) malloc(sizeof(SMDB_DB1_CURSOR)); if (db1_cursor == NULL) return SMDBE_MALLOC; cur = (SMDB_CURSOR *) malloc(sizeof(SMDB_CURSOR)); if (cur == NULL) { free(db1_cursor); return SMDBE_MALLOC; } db1->smdb1_cursor_in_use = true; db1_cursor->db = db1; cur->smdbc_impl = db1_cursor; cur->smdbc_close = smdb1_cursor_close; cur->smdbc_del = smdb1_cursor_del; cur->smdbc_get = smdb1_cursor_get; cur->smdbc_put = smdb1_cursor_put; *cursor = cur; return SMDBE_OK; } /* ** SMDB_DB_OPEN -- Opens a db1 database. ** ** Parameters: ** database -- An unallocated database pointer to a pointer. ** db_name -- The name of the database without extension. ** mode -- File permissions on the database if created. ** mode_mask -- Mode bits that must match on an existing database. ** sff -- Flags for safefile. ** type -- The type of database to open ** See smdb_type_to_db1_type for valid types. ** user_info -- Information on the user to use for file ** permissions. ** db_params -- ** An SMDB_DBPARAMS struct including params. These ** are processed according to the type of the ** database. Currently supported params (only for ** HASH type) are: ** num_elements ** cache_size ** ** Returns: ** SMDBE_OK -- Success, otherwise errno. */ int smdb_db_open(database, db_name, mode, mode_mask, sff, type, user_info, db_params) SMDB_DATABASE **database; char *db_name; int mode; int mode_mask; long sff; SMDB_DBTYPE type; SMDB_USER_INFO *user_info; SMDB_DBPARAMS *db_params; { bool lockcreated = false; int db_fd; int lock_fd; int result; void *params; SMDB_DATABASE *smdb_db; SMDB_DB1_DATABASE *db1; DB *db; HASHINFO hash_info; BTREEINFO btree_info; DBTYPE db_type; struct stat stat_info; char db_file_name[MAXPATHLEN]; if (type == NULL || (!SMDB_IS_TYPE_HASH(type) && !SMDB_IS_TYPE_BTREE(type) )) return SMDBE_UNKNOWN_DB_TYPE; result = smdb_add_extension(db_file_name, sizeof db_file_name, db_name, SMDB1_FILE_EXTENSION); if (result != SMDBE_OK) return result; result = smdb_setup_file(db_name, SMDB1_FILE_EXTENSION, mode_mask, sff, user_info, &stat_info); if (result != SMDBE_OK) return result; if (stat_info.st_mode == ST_MODE_NOFILE && bitset(mode, O_CREAT)) lockcreated = true; lock_fd = -1; result = smdb_lock_file(&lock_fd, db_name, mode, sff, SMDB1_FILE_EXTENSION); if (result != SMDBE_OK) return result; if (lockcreated) { mode |= O_TRUNC; mode &= ~(O_CREAT|O_EXCL); } *database = NULL; smdb_db = smdb_malloc_database(); db1 = smdb1_malloc_database(); if (smdb_db == NULL || db1 == NULL) { (void) smdb_unlock_file(lock_fd); smdb_free_database(smdb_db); free(db1); return SMDBE_MALLOC; } db1->smdb1_lock_fd = lock_fd; params = NULL; if (db_params != NULL && SMDB_IS_TYPE_HASH(type)) { (void) memset(&hash_info, '\0', sizeof hash_info); hash_info.nelem = db_params->smdbp_num_elements; hash_info.cachesize = db_params->smdbp_cache_size; params = &hash_info; } if (db_params != NULL && SMDB_IS_TYPE_BTREE(type)) { (void) memset(&btree_info, '\0', sizeof btree_info); btree_info.cachesize = db_params->smdbp_cache_size; if (db_params->smdbp_allow_dup) btree_info.flags |= R_DUP; params = &btree_info; } db_type = smdb_type_to_db1_type(type); db = dbopen(db_file_name, mode, DBMMODE, db_type, params); if (db != NULL) { db_fd = db->fd(db); result = smdb_filechanged(db_name, SMDB1_FILE_EXTENSION, db_fd, &stat_info); } else { if (errno == 0) result = SMDBE_BAD_OPEN; else result = errno; } if (result == SMDBE_OK) { /* Everything is ok. Setup driver */ db1->smdb1_db = db; smdb_db->smdb_close = smdb1_close; smdb_db->smdb_del = smdb1_del; smdb_db->smdb_fd = smdb1_fd; smdb_db->smdb_lockfd = smdb1_lockfd; smdb_db->smdb_get = smdb1_get; smdb_db->smdb_put = smdb1_put; smdb_db->smdb_set_owner = smdb1_set_owner; smdb_db->smdb_sync = smdb1_sync; smdb_db->smdb_cursor = smdb1_cursor; smdb_db->smdb_impl = db1; *database = smdb_db; return SMDBE_OK; } if (db != NULL) (void) db->close(db); /* Error opening database */ (void) smdb_unlock_file(db1->smdb1_lock_fd); free(db1); smdb_free_database(smdb_db); return result; } #endif /* (DB_VERSION_MAJOR == 1) */ sendmail-8.18.1/libsmdb/smndbm.c0000644000372400037240000003105214556365350016030 0ustar xbuildxbuild/* ** Copyright (c) 1999-2002 Proofpoint, Inc. and its suppliers. ** All rights reserved. ** ** By using this file, you agree to the terms and conditions set ** forth in the LICENSE file which can be found at the top level of ** the sendmail distribution. */ #include SM_RCSID("@(#)$Id: smndbm.c,v 8.55 2013-11-22 20:51:49 ca Exp $") #include #include #include #include #include #if NDBM # define SMNDB_PAG_FILE_EXTENSION "pag" struct smdb_dbm_database_struct { DBM *smndbm_dbm; int smndbm_lock_fd; bool smndbm_cursor_in_use; }; typedef struct smdb_dbm_database_struct SMDB_DBM_DATABASE; struct smdb_dbm_cursor_struct { SMDB_DBM_DATABASE *smndbmc_db; datum smndbmc_current_key; }; typedef struct smdb_dbm_cursor_struct SMDB_DBM_CURSOR; /* ** SMDB_PUT_FLAGS_TO_NDBM_FLAGS -- Translates smdb put flags to ndbm put flags. ** ** Parameters: ** flags -- The flags to translate. ** ** Returns: ** The ndbm flags that are equivalent to the smdb flags. ** ** Notes: ** Any invalid flags are ignored. ** */ int smdb_put_flags_to_ndbm_flags(flags) SMDB_FLAG flags; { int return_flags; return_flags = 0; if (bitset(SMDBF_NO_OVERWRITE, flags)) return_flags = DBM_INSERT; else return_flags = DBM_REPLACE; return return_flags; } /* ** Except for smdb_ndbm_open, the rest of these function correspond to the ** interface laid out in smdb.h. */ SMDB_DBM_DATABASE * smdbm_malloc_database() { SMDB_DBM_DATABASE *db; db = (SMDB_DBM_DATABASE *) malloc(sizeof(SMDB_DBM_DATABASE)); if (db != NULL) { db->smndbm_dbm = NULL; db->smndbm_lock_fd = -1; db->smndbm_cursor_in_use = false; } return db; } int smdbm_close(database) SMDB_DATABASE *database; { SMDB_DBM_DATABASE *db = (SMDB_DBM_DATABASE *) database->smdb_impl; DBM *dbm = ((SMDB_DBM_DATABASE *) database->smdb_impl)->smndbm_dbm; dbm_close(dbm); if (db->smndbm_lock_fd != -1) close(db->smndbm_lock_fd); free(db); database->smdb_impl = NULL; return SMDBE_OK; } int smdbm_del(database, key, flags) SMDB_DATABASE *database; SMDB_DBENT *key; unsigned int flags; { int result; DBM *dbm = ((SMDB_DBM_DATABASE *) database->smdb_impl)->smndbm_dbm; datum dbkey; (void) memset(&dbkey, '\0', sizeof dbkey); dbkey.dptr = key->data; dbkey.dsize = key->size; errno = 0; result = dbm_delete(dbm, dbkey); if (result != 0) { int save_errno = errno; if (dbm_error(dbm)) return SMDBE_IO_ERROR; if (save_errno != 0) return save_errno; return SMDBE_NOT_FOUND; } return SMDBE_OK; } int smdbm_fd(database, fd) SMDB_DATABASE *database; int *fd; { DBM *dbm = ((SMDB_DBM_DATABASE *) database->smdb_impl)->smndbm_dbm; *fd = dbm_dirfno(dbm); if (*fd <= 0) return EINVAL; return SMDBE_OK; } int smdbm_lockfd(database) SMDB_DATABASE *database; { SMDB_DBM_DATABASE *db = (SMDB_DBM_DATABASE *) database->smdb_impl; return db->smndbm_lock_fd; } int smdbm_get(database, key, data, flags) SMDB_DATABASE *database; SMDB_DBENT *key; SMDB_DBENT *data; unsigned int flags; { DBM *dbm = ((SMDB_DBM_DATABASE *) database->smdb_impl)->smndbm_dbm; datum dbkey, dbdata; (void) memset(&dbkey, '\0', sizeof dbkey); (void) memset(&dbdata, '\0', sizeof dbdata); dbkey.dptr = key->data; dbkey.dsize = key->size; errno = 0; dbdata = dbm_fetch(dbm, dbkey); if (dbdata.dptr == NULL) { int save_errno = errno; if (dbm_error(dbm)) return SMDBE_IO_ERROR; if (save_errno != 0) return save_errno; return SMDBE_NOT_FOUND; } data->data = dbdata.dptr; data->size = dbdata.dsize; return SMDBE_OK; } int smdbm_put(database, key, data, flags) SMDB_DATABASE *database; SMDB_DBENT *key; SMDB_DBENT *data; unsigned int flags; { int result; int save_errno; DBM *dbm = ((SMDB_DBM_DATABASE *) database->smdb_impl)->smndbm_dbm; datum dbkey, dbdata; (void) memset(&dbkey, '\0', sizeof dbkey); (void) memset(&dbdata, '\0', sizeof dbdata); dbkey.dptr = key->data; dbkey.dsize = key->size; dbdata.dptr = data->data; dbdata.dsize = data->size; errno = 0; result = dbm_store(dbm, dbkey, dbdata, smdb_put_flags_to_ndbm_flags(flags)); switch (result) { case 1: return SMDBE_DUPLICATE; case 0: return SMDBE_OK; default: save_errno = errno; if (dbm_error(dbm)) return SMDBE_IO_ERROR; if (save_errno != 0) return save_errno; return SMDBE_IO_ERROR; } /* NOTREACHED */ } int smndbm_set_owner(database, uid, gid) SMDB_DATABASE *database; uid_t uid; gid_t gid; { # if HASFCHOWN int fd; int result; DBM *dbm = ((SMDB_DBM_DATABASE *) database->smdb_impl)->smndbm_dbm; fd = dbm_dirfno(dbm); if (fd <= 0) return EINVAL; result = fchown(fd, uid, gid); if (result < 0) return errno; fd = dbm_pagfno(dbm); if (fd <= 0) return EINVAL; result = fchown(fd, uid, gid); if (result < 0) return errno; # endif /* HASFCHOWN */ return SMDBE_OK; } int smdbm_sync(database, flags) SMDB_DATABASE *database; unsigned int flags; { return SMDBE_UNSUPPORTED; } int smdbm_cursor_close(cursor) SMDB_CURSOR *cursor; { SMDB_DBM_CURSOR *dbm_cursor = (SMDB_DBM_CURSOR *) cursor->smdbc_impl; SMDB_DBM_DATABASE *db = dbm_cursor->smndbmc_db; if (!db->smndbm_cursor_in_use) return SMDBE_NOT_A_VALID_CURSOR; db->smndbm_cursor_in_use = false; free(dbm_cursor); free(cursor); return SMDBE_OK; } int smdbm_cursor_del(cursor, flags) SMDB_CURSOR *cursor; unsigned int flags; { int result; SMDB_DBM_CURSOR *dbm_cursor = (SMDB_DBM_CURSOR *) cursor->smdbc_impl; SMDB_DBM_DATABASE *db = dbm_cursor->smndbmc_db; DBM *dbm = db->smndbm_dbm; errno = 0; result = dbm_delete(dbm, dbm_cursor->smndbmc_current_key); if (result != 0) { int save_errno = errno; if (dbm_error(dbm)) return SMDBE_IO_ERROR; if (save_errno != 0) return save_errno; return SMDBE_NOT_FOUND; } return SMDBE_OK; } int smdbm_cursor_get(cursor, key, value, flags) SMDB_CURSOR *cursor; SMDB_DBENT *key; SMDB_DBENT *value; SMDB_FLAG flags; { SMDB_DBM_CURSOR *dbm_cursor = (SMDB_DBM_CURSOR *) cursor->smdbc_impl; SMDB_DBM_DATABASE *db = dbm_cursor->smndbmc_db; DBM *dbm = db->smndbm_dbm; datum dbkey, dbdata; (void) memset(&dbkey, '\0', sizeof dbkey); (void) memset(&dbdata, '\0', sizeof dbdata); if (flags == SMDB_CURSOR_GET_RANGE) return SMDBE_UNSUPPORTED; if (dbm_cursor->smndbmc_current_key.dptr == NULL) { dbm_cursor->smndbmc_current_key = dbm_firstkey(dbm); if (dbm_cursor->smndbmc_current_key.dptr == NULL) { if (dbm_error(dbm)) return SMDBE_IO_ERROR; return SMDBE_LAST_ENTRY; } } else { dbm_cursor->smndbmc_current_key = dbm_nextkey(dbm); if (dbm_cursor->smndbmc_current_key.dptr == NULL) { if (dbm_error(dbm)) return SMDBE_IO_ERROR; return SMDBE_LAST_ENTRY; } } errno = 0; dbdata = dbm_fetch(dbm, dbm_cursor->smndbmc_current_key); if (dbdata.dptr == NULL) { int save_errno = errno; if (dbm_error(dbm)) return SMDBE_IO_ERROR; if (save_errno != 0) return save_errno; return SMDBE_NOT_FOUND; } value->data = dbdata.dptr; value->size = dbdata.dsize; key->data = dbm_cursor->smndbmc_current_key.dptr; key->size = dbm_cursor->smndbmc_current_key.dsize; return SMDBE_OK; } int smdbm_cursor_put(cursor, key, value, flags) SMDB_CURSOR *cursor; SMDB_DBENT *key; SMDB_DBENT *value; SMDB_FLAG flags; { int result; int save_errno; SMDB_DBM_CURSOR *dbm_cursor = (SMDB_DBM_CURSOR *) cursor->smdbc_impl; SMDB_DBM_DATABASE *db = dbm_cursor->smndbmc_db; DBM *dbm = db->smndbm_dbm; datum dbdata; (void) memset(&dbdata, '\0', sizeof dbdata); dbdata.dptr = value->data; dbdata.dsize = value->size; errno = 0; result = dbm_store(dbm, dbm_cursor->smndbmc_current_key, dbdata, smdb_put_flags_to_ndbm_flags(flags)); switch (result) { case 1: return SMDBE_DUPLICATE; case 0: return SMDBE_OK; default: save_errno = errno; if (dbm_error(dbm)) return SMDBE_IO_ERROR; if (save_errno != 0) return save_errno; return SMDBE_IO_ERROR; } /* NOTREACHED */ } int smdbm_cursor(database, cursor, flags) SMDB_DATABASE *database; SMDB_CURSOR **cursor; SMDB_FLAG flags; { SMDB_DBM_DATABASE *db = (SMDB_DBM_DATABASE *) database->smdb_impl; SMDB_CURSOR *cur; SMDB_DBM_CURSOR *dbm_cursor; if (db->smndbm_cursor_in_use) return SMDBE_ONLY_SUPPORTS_ONE_CURSOR; db->smndbm_cursor_in_use = true; dbm_cursor = (SMDB_DBM_CURSOR *) malloc(sizeof(SMDB_DBM_CURSOR)); if (dbm_cursor == NULL) return SMDBE_MALLOC; dbm_cursor->smndbmc_db = db; dbm_cursor->smndbmc_current_key.dptr = NULL; dbm_cursor->smndbmc_current_key.dsize = 0; cur = (SMDB_CURSOR*) malloc(sizeof(SMDB_CURSOR)); if (cur == NULL) { free(dbm_cursor); return SMDBE_MALLOC; } cur->smdbc_impl = dbm_cursor; cur->smdbc_close = smdbm_cursor_close; cur->smdbc_del = smdbm_cursor_del; cur->smdbc_get = smdbm_cursor_get; cur->smdbc_put = smdbm_cursor_put; *cursor = cur; return SMDBE_OK; } /* ** SMDB_NDBM_OPEN -- Opens a ndbm database. ** ** Parameters: ** database -- An unallocated database pointer to a pointer. ** db_name -- The name of the database without extension. ** mode -- File permissions on a created database. ** mode_mask -- Mode bits that much match on an opened database. ** sff -- Flags to safefile. ** type -- The type of database to open. ** Only SMDB_NDBM is supported. ** user_info -- Information on the user to use for file ** permissions. ** db_params -- No params are supported. ** ** Returns: ** SMDBE_OK -- Success, otherwise errno: ** SMDBE_MALLOC -- Cannot allocate memory. ** SMDBE_UNSUPPORTED -- The type is not supported. ** SMDBE_GDBM_IS_BAD -- We have detected GDBM and we don't ** like it. ** SMDBE_BAD_OPEN -- dbm_open failed and errno was not set. ** Anything else: errno */ int smdb_ndbm_open(database, db_name, mode, mode_mask, sff, type, user_info, db_params) SMDB_DATABASE **database; char *db_name; int mode; int mode_mask; long sff; SMDB_DBTYPE type; SMDB_USER_INFO *user_info; SMDB_DBPARAMS *db_params; { bool lockcreated = false; int result; int lock_fd; SMDB_DATABASE *smdb_db; SMDB_DBM_DATABASE *db; DBM *dbm = NULL; struct stat dir_stat_info; struct stat pag_stat_info; result = SMDBE_OK; *database = NULL; if (type == NULL) return SMDBE_UNKNOWN_DB_TYPE; result = smdb_setup_file(db_name, SMNDB_DIR_FILE_EXTENSION, mode_mask, sff, user_info, &dir_stat_info); if (result != SMDBE_OK) return result; result = smdb_setup_file(db_name, SMNDB_PAG_FILE_EXTENSION, mode_mask, sff, user_info, &pag_stat_info); if (result != SMDBE_OK) return result; if ((dir_stat_info.st_mode == ST_MODE_NOFILE || pag_stat_info.st_mode == ST_MODE_NOFILE) && bitset(mode, O_CREAT)) lockcreated = true; lock_fd = -1; result = smdb_lock_file(&lock_fd, db_name, mode, sff, SMNDB_DIR_FILE_EXTENSION); if (result != SMDBE_OK) return result; if (lockcreated) { int pag_fd; /* Need to pre-open the .pag file as well with O_EXCL */ result = smdb_lock_file(&pag_fd, db_name, mode, sff, SMNDB_PAG_FILE_EXTENSION); if (result != SMDBE_OK) { (void) close(lock_fd); return result; } (void) close(pag_fd); mode |= O_TRUNC; mode &= ~(O_CREAT|O_EXCL); } smdb_db = smdb_malloc_database(); if (smdb_db == NULL) result = SMDBE_MALLOC; db = smdbm_malloc_database(); if (db == NULL) result = SMDBE_MALLOC; /* Try to open database */ if (result == SMDBE_OK) { db->smndbm_lock_fd = lock_fd; errno = 0; dbm = dbm_open(db_name, mode, DBMMODE); if (dbm == NULL) { if (errno == 0) result = SMDBE_BAD_OPEN; else result = errno; } db->smndbm_dbm = dbm; } /* Check for GDBM */ if (result == SMDBE_OK) { if (dbm_dirfno(dbm) == dbm_pagfno(dbm)) result = SMDBE_GDBM_IS_BAD; } /* Check for filechanged */ if (result == SMDBE_OK) { result = smdb_filechanged(db_name, SMNDB_DIR_FILE_EXTENSION, dbm_dirfno(dbm), &dir_stat_info); if (result == SMDBE_OK) { result = smdb_filechanged(db_name, SMNDB_PAG_FILE_EXTENSION, dbm_pagfno(dbm), &pag_stat_info); } } /* XXX Got to get fchown stuff in here */ /* Setup driver if everything is ok */ if (result == SMDBE_OK) { *database = smdb_db; smdb_db->smdb_close = smdbm_close; smdb_db->smdb_del = smdbm_del; smdb_db->smdb_fd = smdbm_fd; smdb_db->smdb_lockfd = smdbm_lockfd; smdb_db->smdb_get = smdbm_get; smdb_db->smdb_put = smdbm_put; smdb_db->smdb_set_owner = smndbm_set_owner; smdb_db->smdb_sync = smdbm_sync; smdb_db->smdb_cursor = smdbm_cursor; smdb_db->smdb_impl = db; return SMDBE_OK; } /* If we're here, something bad happened, clean up */ if (dbm != NULL) dbm_close(dbm); smdb_unlock_file(db->smndbm_lock_fd); free(db); smdb_free_database(smdb_db); return result; } #endif /* NDBM */ sendmail-8.18.1/libsmdb/Makefile.m40000644000372400037240000000073714556365350016371 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.15 2006-06-28 21:08:01 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_SM_OS_H', `true') # sendmail dir SMSRCDIR= ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confENVDEF', `confMAPDEF') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`library', `libsmdb') define(`bldSOURCES', `smdb.c smdb1.c smdb2.c smndbm.c smcdb.c ') APPENDDEF(`confENVDEF', `-DNOT_SENDMAIL') bldPRODUCT_END bldFINISH sendmail-8.18.1/libsmdb/smdb2.c0000644000372400037240000003434014556365350015562 0ustar xbuildxbuild/* ** Copyright (c) 1999-2003, 2009 Proofpoint, Inc. and its suppliers. ** All rights reserved. ** ** By using this file, you agree to the terms and conditions set ** forth in the LICENSE file which can be found at the top level of ** the sendmail distribution. */ #include SM_RCSID("@(#)$Id: smdb2.c,v 8.83 2013-11-22 20:51:49 ca Exp $") #include #include #include #include #include #if (DB_VERSION_MAJOR >= 2) struct smdb_db2_database { DB *smdb2_db; int smdb2_lock_fd; }; typedef struct smdb_db2_database SMDB_DB2_DATABASE; /* ** SMDB_TYPE_TO_DB2_TYPE -- Translates smdb database type to db2 type. ** ** Parameters: ** type -- The type to translate. ** ** Returns: ** The DB2 type that corresponsds to the passed in SMDB type. ** Returns -1 if there is no equivalent type. ** */ static DBTYPE smdb_type_to_db2_type(type) SMDB_DBTYPE type; { if (type == SMDB_TYPE_DEFAULT) return DB_HASH; if (SMDB_IS_TYPE_HASH(type)) return DB_HASH; if (SMDB_IS_TYPE_BTREE(type)) return DB_BTREE; return DB_UNKNOWN; } /* ** DB2_ERROR_TO_SMDB -- Translates db2 errors to smdbe errors ** ** Parameters: ** error -- The error to translate. ** ** Returns: ** The SMDBE error corresponding to the db2 error. ** If we don't have a corresponding error, it returns errno. ** */ static int db2_error_to_smdb(error) int error; { int result; switch (error) { # ifdef DB_INCOMPLETE case DB_INCOMPLETE: result = SMDBE_INCOMPLETE; break; # endif # ifdef DB_NOTFOUND case DB_NOTFOUND: result = SMDBE_NOT_FOUND; break; # endif # ifdef DB_KEYEMPTY case DB_KEYEMPTY: result = SMDBE_KEY_EMPTY; break; # endif # ifdef DB_KEYEXIST case DB_KEYEXIST: result = SMDBE_KEY_EXIST; break; # endif # ifdef DB_LOCK_DEADLOCK case DB_LOCK_DEADLOCK: result = SMDBE_LOCK_DEADLOCK; break; # endif # ifdef DB_LOCK_NOTGRANTED case DB_LOCK_NOTGRANTED: result = SMDBE_LOCK_NOT_GRANTED; break; # endif # ifdef DB_LOCK_NOTHELD case DB_LOCK_NOTHELD: result = SMDBE_LOCK_NOT_HELD; break; # endif # ifdef DB_RUNRECOVERY case DB_RUNRECOVERY: result = SMDBE_RUN_RECOVERY; break; # endif # ifdef DB_OLD_VERSION case DB_OLD_VERSION: result = SMDBE_OLD_VERSION; break; # endif case 0: result = SMDBE_OK; break; default: result = error; } return result; } /* ** SMDB_PUT_FLAGS_TO_DB2_FLAGS -- Translates smdb put flags to db2 put flags. ** ** Parameters: ** flags -- The flags to translate. ** ** Returns: ** The db2 flags that are equivalent to the smdb flags. ** ** Notes: ** Any invalid flags are ignored. ** */ static unsigned int smdb_put_flags_to_db2_flags(flags) SMDB_FLAG flags; { int return_flags; return_flags = 0; if (bitset(SMDBF_NO_OVERWRITE, flags)) return_flags |= DB_NOOVERWRITE; return return_flags; } /* ** SMDB_CURSOR_GET_FLAGS_TO_DB2 -- Translates smdb cursor get flags to db2 ** getflags. ** ** Parameters: ** flags -- The flags to translate. ** ** Returns: ** The db2 flags that are equivalent to the smdb flags. ** ** Notes: ** -1 is returned if flag is unknown. ** */ static int smdb_cursor_get_flags_to_db2(flags) SMDB_FLAG flags; { switch (flags) { case SMDB_CURSOR_GET_FIRST: return DB_FIRST; case SMDB_CURSOR_GET_LAST: return DB_LAST; case SMDB_CURSOR_GET_NEXT: return DB_NEXT; case SMDB_CURSOR_GET_RANGE: return DB_SET_RANGE; default: return -1; } } /* ** Except for smdb_db_open, the rest of these functions correspond to the ** interface laid out in smdb.h. */ static SMDB_DB2_DATABASE * smdb2_malloc_database() { SMDB_DB2_DATABASE *db2; db2 = (SMDB_DB2_DATABASE *) malloc(sizeof(SMDB_DB2_DATABASE)); if (db2 != NULL) db2->smdb2_lock_fd = -1; return db2; } static int smdb2_close(database) SMDB_DATABASE *database; { int result; SMDB_DB2_DATABASE *db2 = (SMDB_DB2_DATABASE *) database->smdb_impl; DB *db = ((SMDB_DB2_DATABASE *) database->smdb_impl)->smdb2_db; result = db2_error_to_smdb(db->close(db, 0)); if (db2->smdb2_lock_fd != -1) close(db2->smdb2_lock_fd); free(db2); database->smdb_impl = NULL; return result; } static int smdb2_del(database, key, flags) SMDB_DATABASE *database; SMDB_DBENT *key; unsigned int flags; { DB *db = ((SMDB_DB2_DATABASE *) database->smdb_impl)->smdb2_db; DBT dbkey; (void) memset(&dbkey, '\0', sizeof dbkey); dbkey.data = key->data; dbkey.size = key->size; return db2_error_to_smdb(db->del(db, NULL, &dbkey, flags)); } static int smdb2_fd(database, fd) SMDB_DATABASE *database; int *fd; { DB *db = ((SMDB_DB2_DATABASE *) database->smdb_impl)->smdb2_db; return db2_error_to_smdb(db->fd(db, fd)); } static int smdb2_lockfd(database) SMDB_DATABASE *database; { SMDB_DB2_DATABASE *db2 = (SMDB_DB2_DATABASE *) database->smdb_impl; return db2->smdb2_lock_fd; } static int smdb2_get(database, key, data, flags) SMDB_DATABASE *database; SMDB_DBENT *key; SMDB_DBENT *data; unsigned int flags; { int result; DB *db = ((SMDB_DB2_DATABASE *) database->smdb_impl)->smdb2_db; DBT dbkey, dbdata; (void) memset(&dbdata, '\0', sizeof dbdata); (void) memset(&dbkey, '\0', sizeof dbkey); dbkey.data = key->data; dbkey.size = key->size; result = db->get(db, NULL, &dbkey, &dbdata, flags); data->data = dbdata.data; data->size = dbdata.size; return db2_error_to_smdb(result); } static int smdb2_put(database, key, data, flags) SMDB_DATABASE *database; SMDB_DBENT *key; SMDB_DBENT *data; unsigned int flags; { DB *db = ((SMDB_DB2_DATABASE *) database->smdb_impl)->smdb2_db; DBT dbkey, dbdata; (void) memset(&dbdata, '\0', sizeof dbdata); (void) memset(&dbkey, '\0', sizeof dbkey); dbkey.data = key->data; dbkey.size = key->size; dbdata.data = data->data; dbdata.size = data->size; return db2_error_to_smdb(db->put(db, NULL, &dbkey, &dbdata, smdb_put_flags_to_db2_flags(flags))); } static int smdb2_set_owner(database, uid, gid) SMDB_DATABASE *database; uid_t uid; gid_t gid; { # if HASFCHOWN int fd; int result; DB *db = ((SMDB_DB2_DATABASE *) database->smdb_impl)->smdb2_db; result = db->fd(db, &fd); if (result != 0) return result; result = fchown(fd, uid, gid); if (result < 0) return errno; # endif /* HASFCHOWN */ return SMDBE_OK; } static int smdb2_sync(database, flags) SMDB_DATABASE *database; unsigned int flags; { DB *db = ((SMDB_DB2_DATABASE *) database->smdb_impl)->smdb2_db; return db2_error_to_smdb(db->sync(db, flags)); } static int smdb2_cursor_close(cursor) SMDB_CURSOR *cursor; { int ret; DBC *dbc = (DBC *) cursor->smdbc_impl; ret = db2_error_to_smdb(dbc->c_close(dbc)); free(cursor); return ret; } static int smdb2_cursor_del(cursor, flags) SMDB_CURSOR *cursor; SMDB_FLAG flags; { DBC *dbc = (DBC *) cursor->smdbc_impl; return db2_error_to_smdb(dbc->c_del(dbc, 0)); } static int smdb2_cursor_get(cursor, key, value, flags) SMDB_CURSOR *cursor; SMDB_DBENT *key; SMDB_DBENT *value; SMDB_FLAG flags; { int db2_flags; int result; DBC *dbc = (DBC *) cursor->smdbc_impl; DBT dbkey, dbdata; (void) memset(&dbdata, '\0', sizeof dbdata); (void) memset(&dbkey, '\0', sizeof dbkey); db2_flags = smdb_cursor_get_flags_to_db2(flags); result = dbc->c_get(dbc, &dbkey, &dbdata, db2_flags); if (result == DB_NOTFOUND) return SMDBE_LAST_ENTRY; key->data = dbkey.data; key->size = dbkey.size; value->data = dbdata.data; value->size = dbdata.size; return db2_error_to_smdb(result); } static int smdb2_cursor_put(cursor, key, value, flags) SMDB_CURSOR *cursor; SMDB_DBENT *key; SMDB_DBENT *value; SMDB_FLAG flags; { DBC *dbc = (DBC *) cursor->smdbc_impl; DBT dbkey, dbdata; (void) memset(&dbdata, '\0', sizeof dbdata); (void) memset(&dbkey, '\0', sizeof dbkey); dbkey.data = key->data; dbkey.size = key->size; dbdata.data = value->data; dbdata.size = value->size; return db2_error_to_smdb(dbc->c_put(dbc, &dbkey, &dbdata, 0)); } static int smdb2_cursor(database, cursor, flags) SMDB_DATABASE *database; SMDB_CURSOR **cursor; SMDB_FLAG flags; { int result; DB *db = ((SMDB_DB2_DATABASE *) database->smdb_impl)->smdb2_db; DBC *db2_cursor; # if DB_VERSION_MAJOR > 2 || DB_VERSION_MINOR >= 6 result = db->cursor(db, NULL, &db2_cursor, 0); # else result = db->cursor(db, NULL, &db2_cursor); # endif if (result != 0) return db2_error_to_smdb(result); *cursor = (SMDB_CURSOR *) malloc(sizeof(SMDB_CURSOR)); if (*cursor == NULL) return SMDBE_MALLOC; (*cursor)->smdbc_close = smdb2_cursor_close; (*cursor)->smdbc_del = smdb2_cursor_del; (*cursor)->smdbc_get = smdb2_cursor_get; (*cursor)->smdbc_put = smdb2_cursor_put; (*cursor)->smdbc_impl = db2_cursor; return SMDBE_OK; } # if DB_VERSION_MAJOR == 2 static int smdb_db_open_internal(db_name, db_type, db_flags, db_params, db) char *db_name; DBTYPE db_type; int db_flags; SMDB_DBPARAMS *db_params; DB **db; { void *params; DB_INFO db_info; params = NULL; (void) memset(&db_info, '\0', sizeof db_info); if (db_params != NULL) { db_info.db_cachesize = db_params->smdbp_cache_size; if (db_type == DB_HASH) db_info.h_nelem = db_params->smdbp_num_elements; if (db_params->smdbp_allow_dup) db_info.flags |= DB_DUP; params = &db_info; } return db_open(db_name, db_type, db_flags, DBMMODE, NULL, params, db); } # endif /* DB_VERSION_MAJOR == 2 */ # if DB_VERSION_MAJOR > 2 static void db_err_cb( # if DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR >= 3 dbenv, # endif errpfx, msg) # if DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR >= 3 const DB_ENV *dbenv; const char *errpfx; const char *msg; # else const char *errpfx; char *msg; # endif { /* do not print/log any errors... */ return; } static int smdb_db_open_internal(db_name, db_type, db_flags, db_params, db) char *db_name; DBTYPE db_type; int db_flags; SMDB_DBPARAMS *db_params; DB **db; { int result; result = db_create(db, NULL, 0); if (result != 0 || *db == NULL) return result; (*db)->set_errcall(*db, db_err_cb); if (db_params != NULL) { result = (*db)->set_cachesize(*db, 0, db_params->smdbp_cache_size, 0); if (result != 0) goto error; if (db_type == DB_HASH) { result = (*db)->set_h_nelem(*db, db_params->smdbp_num_elements); if (result != 0) goto error; } if (db_params->smdbp_allow_dup) { result = (*db)->set_flags(*db, DB_DUP); if (result != 0) goto error; } } result = (*db)->open(*db, DBTXN /* transaction for DB 4.1 */ db_name, NULL, db_type, db_flags, DBMMODE); error: if (result != 0) { (void) (*db)->close(*db, 0); *db = NULL; } return db2_error_to_smdb(result); } # endif /* DB_VERSION_MAJOR > 2 */ /* ** SMDB_DB_OPEN -- Opens a db database. ** ** Parameters: ** database -- An unallocated database pointer to a pointer. ** db_name -- The name of the database without extension. ** mode -- File permissions for a created database. ** mode_mask -- Mode bits that must match on an opened database. ** sff -- Flags for safefile. ** type -- The type of database to open ** See smdb_type_to_db2_type for valid types. ** user_info -- User information for file permissions. ** db_params -- ** An SMDB_DBPARAMS struct including params. These ** are processed according to the type of the ** database. Currently supported params (only for ** HASH type) are: ** num_elements ** cache_size ** ** Returns: ** SMDBE_OK -- Success, other errno: ** SMDBE_MALLOC -- Cannot allocate memory. ** SMDBE_BAD_OPEN -- db_open didn't return an error, but ** somehow the DB pointer is NULL. ** Anything else: translated error from db2 */ int smdb_db_open(database, db_name, mode, mode_mask, sff, type, user_info, db_params) SMDB_DATABASE **database; char *db_name; int mode; int mode_mask; long sff; SMDB_DBTYPE type; SMDB_USER_INFO *user_info; SMDB_DBPARAMS *db_params; { bool lockcreated = false; int result; int db_flags; int lock_fd; int db_fd; int major_v, minor_v, patch_v; SMDB_DATABASE *smdb_db; SMDB_DB2_DATABASE *db2; DB *db; DBTYPE db_type; struct stat stat_info; char db_file_name[MAXPATHLEN]; (void) db_version(&major_v, &minor_v, &patch_v); if (major_v != DB_VERSION_MAJOR || minor_v != DB_VERSION_MINOR) return SMDBE_VERSION_MISMATCH; *database = NULL; result = smdb_add_extension(db_file_name, sizeof db_file_name, db_name, SMDB2_FILE_EXTENSION); if (result != SMDBE_OK) return result; result = smdb_setup_file(db_name, SMDB2_FILE_EXTENSION, mode_mask, sff, user_info, &stat_info); if (result != SMDBE_OK) return result; lock_fd = -1; if (stat_info.st_mode == ST_MODE_NOFILE && bitset(mode, O_CREAT)) lockcreated = true; result = smdb_lock_file(&lock_fd, db_name, mode, sff, SMDB2_FILE_EXTENSION); if (result != SMDBE_OK) return result; if (lockcreated) { mode |= O_TRUNC; mode &= ~(O_CREAT|O_EXCL); } smdb_db = smdb_malloc_database(); db2 = smdb2_malloc_database(); if (db2 == NULL || smdb_db == NULL) { smdb_unlock_file(lock_fd); smdb_free_database(smdb_db); /* ok to be NULL */ if (db2 != NULL) free(db2); return SMDBE_MALLOC; } db2->smdb2_lock_fd = lock_fd; db_type = smdb_type_to_db2_type(type); db = NULL; db_flags = 0; if (bitset(O_CREAT, mode)) db_flags |= DB_CREATE; if (bitset(O_TRUNC, mode)) db_flags |= DB_TRUNCATE; if (mode == O_RDONLY) db_flags |= DB_RDONLY; SM_DB_FLAG_ADD(db_flags); result = smdb_db_open_internal(db_file_name, db_type, db_flags, db_params, &db); if (result == 0 && db != NULL) { result = db->fd(db, &db_fd); if (result == 0) result = SMDBE_OK; } else { /* Try and narrow down on the problem */ if (result != 0) result = db2_error_to_smdb(result); else result = SMDBE_BAD_OPEN; } if (result == SMDBE_OK) result = smdb_filechanged(db_name, SMDB2_FILE_EXTENSION, db_fd, &stat_info); if (result == SMDBE_OK) { /* Everything is ok. Setup driver */ db2->smdb2_db = db; smdb_db->smdb_close = smdb2_close; smdb_db->smdb_del = smdb2_del; smdb_db->smdb_fd = smdb2_fd; smdb_db->smdb_lockfd = smdb2_lockfd; smdb_db->smdb_get = smdb2_get; smdb_db->smdb_put = smdb2_put; smdb_db->smdb_set_owner = smdb2_set_owner; smdb_db->smdb_sync = smdb2_sync; smdb_db->smdb_cursor = smdb2_cursor; smdb_db->smdb_impl = db2; *database = smdb_db; return SMDBE_OK; } if (db != NULL) db->close(db, 0); smdb_unlock_file(db2->smdb2_lock_fd); free(db2); smdb_free_database(smdb_db); return result; } #endif /* (DB_VERSION_MAJOR >= 2) */ sendmail-8.18.1/libsmdb/Makefile0000644000372400037240000000053214556365350016043 0ustar xbuildxbuild# $Id: Makefile,v 8.2 1999-09-23 22:36:29 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/libsmdb/Build0000755000372400037240000000053214556365350015370 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.5 2013-11-22 20:51:49 ca Exp $ exec sh ../devtools/bin/Build "$@" sendmail-8.18.1/libsmdb/smdb.c0000644000372400037240000003157414556365350015506 0ustar xbuildxbuild/* ** Copyright (c) 1999-2002 Proofpoint, Inc. and its suppliers. ** All rights reserved. ** ** By using this file, you agree to the terms and conditions set ** forth in the LICENSE file which can be found at the top level of ** the sendmail distribution. */ #include SM_RCSID("@(#)$Id: smdb.c,v 8.59 2013-11-22 20:51:49 ca Exp $") #include #include #include #include #include static bool smdb_lockfile __P((int, int)); /* ** SMDB_MALLOC_DATABASE -- Allocates a database structure. ** ** Parameters: ** None ** ** Returns: ** A pointer to an allocated SMDB_DATABASE structure or ** NULL if it couldn't allocate the memory. */ SMDB_DATABASE * smdb_malloc_database() { SMDB_DATABASE *db; db = (SMDB_DATABASE *) malloc(sizeof(SMDB_DATABASE)); if (db != NULL) (void) memset(db, '\0', sizeof(SMDB_DATABASE)); return db; } /* ** SMDB_FREE_DATABASE -- Unallocates a database structure. ** ** Parameters: ** database -- a SMDB_DATABASE pointer to deallocate. ** ** Returns: ** None */ void smdb_free_database(database) SMDB_DATABASE *database; { if (database != NULL) free(database); } /* ** SMDB_LOCKFILE -- lock a file using flock or (shudder) fcntl locking ** ** Parameters: ** fd -- the file descriptor of the file. ** type -- type of the lock. Bits can be: ** LOCK_EX -- exclusive lock. ** LOCK_NB -- non-blocking. ** ** Returns: ** true if the lock was acquired. ** false otherwise. */ static bool smdb_lockfile(fd, type) int fd; int type; { int i; int save_errno; #if !HASFLOCK int action; struct flock lfd; (void) memset(&lfd, '\0', sizeof lfd); if (bitset(LOCK_UN, type)) lfd.l_type = F_UNLCK; else if (bitset(LOCK_EX, type)) lfd.l_type = F_WRLCK; else lfd.l_type = F_RDLCK; if (bitset(LOCK_NB, type)) action = F_SETLK; else action = F_SETLKW; while ((i = fcntl(fd, action, &lfd)) < 0 && errno == EINTR) continue; if (i >= 0) return true; save_errno = errno; /* ** On SunOS, if you are testing using -oQ/tmp/mqueue or ** -oA/tmp/aliases or anything like that, and /tmp is mounted ** as type "tmp" (that is, served from swap space), the ** previous fcntl will fail with "Invalid argument" errors. ** Since this is fairly common during testing, we will assume ** that this indicates that the lock is successfully grabbed. */ if (save_errno == EINVAL) return true; if (!bitset(LOCK_NB, type) || (save_errno != EACCES && save_errno != EAGAIN)) { # if 0 int omode = fcntl(fd, F_GETFL, NULL); int euid = (int) geteuid(); syslog(LOG_ERR, "cannot lockf(%s%s, fd=%d, type=%o, omode=%o, euid=%d)", filename, ext, fd, type, omode, euid); # endif /* 0 */ errno = save_errno; return false; } #else /* !HASFLOCK */ while ((i = flock(fd, type)) < 0 && errno == EINTR) continue; if (i >= 0) return true; save_errno = errno; if (!bitset(LOCK_NB, type) || save_errno != EWOULDBLOCK) { # if 0 int omode = fcntl(fd, F_GETFL, NULL); int euid = (int) geteuid(); syslog(LOG_ERR, "cannot flock(%s%s, fd=%d, type=%o, omode=%o, euid=%d)", filename, ext, fd, type, omode, euid); # endif /* 0 */ errno = save_errno; return false; } #endif /* !HASFLOCK */ errno = save_errno; return false; } /* ** SMDB_OPEN_DATABASE -- Opens a database. ** ** This opens a database. If type is SMDB_DEFAULT it tries to ** use available DB types. If a specific type is given it will ** try to open a database of that type. ** ** Parameters: ** database -- A pointer to a SMDB_DATABASE pointer where the ** opened database will be stored. This should ** be unallocated. ** db_name -- The name of the database to open. Do not include ** the file name extension. ** mode -- The mode to set on the database file or files. ** mode_mask -- Mode bits that must match on an opened database. ** sff -- Flags to safefile. ** type -- The type of database to open. Supported types ** vary depending on what was compiled in. ** user_info -- Information on the user to use for file ** permissions. ** params -- Params specific to the database being opened. ** Only supports some DB hash options right now ** (see smdb_db_open() for details). ** ** Returns: ** SMDBE_OK -- Success. ** Anything else is an error. Look up more info about the ** error in the comments for the specific open() used. */ struct type2func_s { const char *t2f_type; smdb_open_func *t2f_open_fun; }; typedef struct type2func_s type2func_t; static type2func_t type2func[] = { { SMDB_TYPE_HASH, smdb_db_open }, { SMDB_TYPE_BTREE, smdb_db_open }, { SMDB_TYPE_NDBM, smdb_ndbm_open}, { SMDB_TYPE_CDB, smdb_cdb_open }, { NULL, NULL } }; int smdb_open_database(database, db_name, mode, mode_mask, sff, type, user_info, params) SMDB_DATABASE **database; char *db_name; int mode; int mode_mask; long sff; SMDB_DBTYPE type; SMDB_USER_INFO *user_info; SMDB_DBPARAMS *params; { bool type_was_default; int result, i; const char *smdb_type; smdb_open_func *smdb_open_fun; result = SMDBE_UNSUPPORTED_DB_TYPE; type_was_default = SMDB_IS_TYPE_DEFAULT(type); for (i = 0; (smdb_type = type2func[i].t2f_type) != NULL; i++) { if (!type_was_default && strcmp(type, smdb_type) != 0) continue; smdb_open_fun = type2func[i].t2f_open_fun; if (smdb_open_fun == NULL) { if (type_was_default) continue; else return SMDBE_UNSUPPORTED_DB_TYPE; } result = (*smdb_open_fun)(database, db_name, mode, mode_mask, sff, (char *)smdb_type, user_info, params); if (!((result == ENOENT || result == EINVAL #ifdef EFTYPE || result == EFTYPE #endif ) && type_was_default)) goto ret; } return SMDBE_UNKNOWN_DB_TYPE; ret: return result; } /* ** SMDB_ADD_EXTENSION -- Adds an extension to a file name. ** ** Just adds a . followed by a string to a db_name if there ** is room and the db_name does not already have that extension. ** ** Parameters: ** full_name -- The final file name. ** max_full_name_len -- The max length for full_name. ** db_name -- The name of the db. ** extension -- The extension to add. ** ** Returns: ** SMDBE_OK -- Success. ** Anything else is an error. Look up more info about the ** error in the comments for the specific open() used. */ int smdb_add_extension(full_name, max_full_name_len, db_name, extension) char *full_name; int max_full_name_len; char *db_name; char *extension; { int extension_len; int db_name_len; if (full_name == NULL || db_name == NULL || extension == NULL) return SMDBE_INVALID_PARAMETER; extension_len = strlen(extension); db_name_len = strlen(db_name); if (extension_len + db_name_len + 2 > max_full_name_len) return SMDBE_DB_NAME_TOO_LONG; if (db_name_len < extension_len + 1 || db_name[db_name_len - extension_len - 1] != '.' || strcmp(&db_name[db_name_len - extension_len], extension) != 0) (void) sm_snprintf(full_name, max_full_name_len, "%s.%s", db_name, extension); else (void) sm_strlcpy(full_name, db_name, max_full_name_len); return SMDBE_OK; } /* ** SMDB_LOCK_FILE -- Locks the database file. ** ** Locks the actual database file. ** ** Parameters: ** lock_fd -- The resulting descriptor for the locked file. ** db_name -- The name of the database without extension. ** mode -- The open mode. ** sff -- Flags to safefile. ** extension -- The extension for the file. ** ** Returns: ** SMDBE_OK -- Success, otherwise errno. */ int smdb_lock_file(lock_fd, db_name, mode, sff, extension) int *lock_fd; char *db_name; int mode; long sff; char *extension; { int result; char file_name[MAXPATHLEN]; result = smdb_add_extension(file_name, sizeof file_name, db_name, extension); if (result != SMDBE_OK) return result; *lock_fd = safeopen(file_name, mode & ~O_TRUNC, DBMMODE, sff); if (*lock_fd < 0) return errno; return SMDBE_OK; } /* ** SMDB_UNLOCK_FILE -- Unlocks a file - via close() ** ** Parameters: ** lock_fd -- The descriptor for the locked file. ** ** Returns: ** SMDBE_OK -- Success, otherwise errno. */ int smdb_unlock_file(lock_fd) int lock_fd; { int result; result = close(lock_fd); if (result != 0) return errno; return SMDBE_OK; } /* ** SMDB_LOCK_MAP -- Locks a database. ** ** Parameters: ** database -- database description. ** type -- type of the lock. Bits can be: ** LOCK_EX -- exclusive lock. ** LOCK_NB -- non-blocking. ** ** Returns: ** SMDBE_OK -- Success, otherwise errno. */ int smdb_lock_map(database, type) SMDB_DATABASE *database; int type; { int fd; fd = database->smdb_lockfd(database); if (fd < 0) return SMDBE_NOT_FOUND; if (!smdb_lockfile(fd, type)) return SMDBE_LOCK_NOT_GRANTED; return SMDBE_OK; } /* ** SMDB_UNLOCK_MAP -- Unlocks a database ** ** Parameters: ** database -- database description. ** ** Returns: ** SMDBE_OK -- Success, otherwise errno. */ int smdb_unlock_map(database) SMDB_DATABASE *database; { int fd; fd = database->smdb_lockfd(database); if (fd < 0) return SMDBE_NOT_FOUND; if (!smdb_lockfile(fd, LOCK_UN)) return SMDBE_LOCK_NOT_HELD; return SMDBE_OK; } /* ** SMDB_SETUP_FILE -- Gets db file ready for use. ** ** Makes sure permissions on file are safe and creates it if it ** doesn't exist. ** ** Parameters: ** db_name -- The name of the database without extension. ** extension -- The extension. ** sff -- Flags to safefile. ** mode_mask -- Mode bits that must match. ** user_info -- Information on the user to use for file ** permissions. ** stat_info -- A place to put the stat info for the file. ** Returns: ** SMDBE_OK -- Success, otherwise errno. */ int smdb_setup_file(db_name, extension, mode_mask, sff, user_info, stat_info) char *db_name; char *extension; int mode_mask; long sff; SMDB_USER_INFO *user_info; struct stat *stat_info; { int st; int result; char db_file_name[MAXPATHLEN]; result = smdb_add_extension(db_file_name, sizeof db_file_name, db_name, extension); if (result != SMDBE_OK) return result; st = safefile(db_file_name, user_info->smdbu_id, user_info->smdbu_group_id, user_info->smdbu_name, sff, mode_mask, stat_info); if (st != 0) return st; return SMDBE_OK; } /* ** SMDB_FILECHANGED -- Checks to see if a file changed. ** ** Compares the passed in stat_info with a current stat on ** the passed in file descriptor. Check filechanged for ** return values. ** ** Parameters: ** db_name -- The name of the database without extension. ** extension -- The extension. ** db_fd -- A file descriptor for the database file. ** stat_info -- An old stat_info. ** Returns: ** SMDBE_OK -- Success, otherwise errno. */ int smdb_filechanged(db_name, extension, db_fd, stat_info) char *db_name; char *extension; int db_fd; struct stat *stat_info; { int result; char db_file_name[MAXPATHLEN]; result = smdb_add_extension(db_file_name, sizeof db_file_name, db_name, extension); if (result != SMDBE_OK) return result; return filechanged(db_file_name, db_fd, stat_info); } /* ** SMDB_PRINT_AVAILABLE_TYPES -- Prints the names of the available types. ** ** Parameters: ** ext - also show extension? ** ** Returns: ** None */ void smdb_print_available_types(ext) bool ext; { # define PEXT1 ((ext) ? ":" : "") # define PEXT2(x) ((ext) ? x : "") #if NDBM printf("%s%s%s\n", SMDB_TYPE_NDBM, PEXT1, PEXT2(SMNDB_DIR_FILE_EXTENSION)); #endif #if NEWDB /* # if SMDB1_FILE_EXTENSION == SMDB2_FILE_EXTENSION */ printf("%s%s%s\n", SMDB_TYPE_HASH, PEXT1, PEXT2(SMDB1_FILE_EXTENSION)); printf("%s%s%s\n", SMDB_TYPE_BTREE, PEXT1, PEXT2(SMDB1_FILE_EXTENSION)); #endif #if CDB printf("%s%s%s\n", SMDB_TYPE_CDB, PEXT1, PEXT2(SMCDB_FILE_EXTENSION)); #endif #ifdef SMDB_TYPE_IMPL printf("%s%s%s\n", SMDB_TYPE_IMPL, PEXT1, ""); #endif } /* ** SMDB_IS_DB_TYPE -- Does a name match an available DB type? ** ** Parameters: ** type -- The name of the database type. ** ** Returns: ** true iff match */ bool smdb_is_db_type(db_type) const char *db_type; { #if NDBM if (strcmp(db_type, SMDB_TYPE_NDBM) == 0) return true; #endif #if NEWDB if (strcmp(db_type, SMDB_TYPE_HASH) == 0) return true; if (strcmp(db_type, SMDB_TYPE_BTREE) == 0) return true; #endif #if CDB if (strcmp(db_type, SMDB_TYPE_CDB) == 0) return true; #endif return false; } /* ** SMDB_DB_DEFINITION -- Given a database type, return database definition ** ** Reads though a structure making an association with the database ** type and the required cpp define from sendmail/README. ** List size is dynamic and must be NULL terminated. ** ** Parameters: ** type -- The name of the database type. ** ** Returns: ** definition for type, otherwise NULL. */ typedef struct { SMDB_DBTYPE type; char *dbdef; } dbtype; static dbtype DatabaseDefs[] = { { SMDB_TYPE_HASH, "NEWDB" }, { SMDB_TYPE_BTREE, "NEWDB" }, { SMDB_TYPE_NDBM, "NDBM" }, { SMDB_TYPE_CDB, "CDB" }, { NULL, "OOPS" } }; char * smdb_db_definition(type) SMDB_DBTYPE type; { dbtype *ptr = DatabaseDefs; while (ptr != NULL && ptr->type != NULL) { if (strcmp(type, ptr->type) == 0) return ptr->dbdef; ptr++; } return NULL; } sendmail-8.18.1/libsmdb/smcdb.c0000644000372400037240000003004114556365350015635 0ustar xbuildxbuild/* ** Copyright (c) 2018 Proofpoint, Inc. and its suppliers. ** All rights reserved. ** ** By using this file, you agree to the terms and conditions set ** forth in the LICENSE file which can be found at the top level of ** the sendmail distribution. */ #include SM_RCSID("@(#)$Id: smcdb.c,v 8.55 2013-11-22 20:51:49 ca Exp $") #include #include #include #include #include #if CDB #include #include typedef struct cdb cdb_map_T, *cdb_map_P; typedef struct cdb_make cdb_make_T, *cdb_make_P; typedef union sm_cdbs_U sm_cdbs_T, *sm_cdbs_P; union sm_cdbs_U { cdb_map_T cdbs_cdb_rd; cdb_make_T cdbs_cdb_wr; }; struct smdb_cdb_database { sm_cdbs_T cdbmap_map; int cdbmap_fd; int smcdb_lock_fd; bool cdbmap_create; unsigned smcdb_pos; int smcdb_n; }; typedef struct smdb_cdb_database SMDB_CDB_DATABASE; /* static int smdb_type_to_cdb_type __P((SMDB_DBTYPE type)); */ static int cdb_error_to_smdb __P((int error)); static SMDB_CDB_DATABASE * smcdb_malloc_database __P((void)); static int smcdb_close __P((SMDB_DATABASE *database)); static int smcdb_del __P((SMDB_DATABASE *database, SMDB_DBENT *key, unsigned int flags)); static int smcdb_fd __P((SMDB_DATABASE *database, int *fd)); static int smcdb_lockfd __P((SMDB_DATABASE *database)); static int smcdb_get __P((SMDB_DATABASE *database, SMDB_DBENT *key, SMDB_DBENT *data, unsigned int flags)); static int smcdb_put __P((SMDB_DATABASE *database, SMDB_DBENT *key, SMDB_DBENT *data, unsigned int flags)); static int smcdb_set_owner __P((SMDB_DATABASE *database, uid_t uid, gid_t gid)); static int smcdb_sync __P((SMDB_DATABASE *database, unsigned int flags)); static int smcdb_cursor_close __P((SMDB_CURSOR *cursor)); static int smcdb_cursor_del __P((SMDB_CURSOR *cursor, SMDB_FLAG flags)); static int smcdb_cursor_get __P((SMDB_CURSOR *cursor, SMDB_DBENT *key, SMDB_DBENT *value, SMDB_FLAG flags)); static int smcdb_cursor_put __P((SMDB_CURSOR *cursor, SMDB_DBENT *key, SMDB_DBENT *value, SMDB_FLAG flags)); static int smcdb_cursor __P((SMDB_DATABASE *database, SMDB_CURSOR **cursor, SMDB_FLAG flags)); /* ** SMDB_TYPE_TO_CDB_TYPE -- Translates smdb database type to cdb type. ** ** Parameters: ** type -- The type to translate. ** ** Returns: ** The CDB type that corresponsds to the passed in SMDB type. ** Returns -1 if there is no equivalent type. ** */ # if 0 static int smdb_type_to_cdb_type(type) SMDB_DBTYPE type; { return 0; /* XXX */ } # endif /* ** CDB_ERROR_TO_SMDB -- Translates cdb errors to smdbe errors ** ** Parameters: ** error -- The error to translate. ** ** Returns: ** The SMDBE error corresponding to the cdb error. ** If we don't have a corresponding error, it returns error. ** */ static int cdb_error_to_smdb(error) int error; { int result; switch (error) { case 0: result = SMDBE_OK; break; default: result = error; } return result; } SMDB_CDB_DATABASE * smcdb_malloc_database() { SMDB_CDB_DATABASE *cdb; cdb = (SMDB_CDB_DATABASE *) malloc(sizeof(SMDB_CDB_DATABASE)); if (cdb != NULL) cdb->smcdb_lock_fd = -1; return cdb; } static int smcdb_close(database) SMDB_DATABASE *database; { int result, fd; SMDB_CDB_DATABASE *sm_cdbmap = (SMDB_CDB_DATABASE *) database->smdb_impl; if (NULL == sm_cdbmap) return -1; result = 0; if (sm_cdbmap->cdbmap_create) result = cdb_make_finish(&sm_cdbmap->cdbmap_map.cdbs_cdb_wr); fd = sm_cdbmap->cdbmap_fd; if (fd >= 0) { close(fd); sm_cdbmap->cdbmap_fd = -1; } free(sm_cdbmap); database->smdb_impl = NULL; return result; } static int smcdb_del(database, key, flags) SMDB_DATABASE *database; SMDB_DBENT *key; unsigned int flags; { SMDB_CDB_DATABASE *sm_cdbmap = (SMDB_CDB_DATABASE *) database->smdb_impl; assert(sm_cdbmap != NULL); return -1; } static int smcdb_fd(database, fd) SMDB_DATABASE *database; int *fd; { SMDB_CDB_DATABASE *sm_cdbmap = (SMDB_CDB_DATABASE *) database->smdb_impl; return sm_cdbmap->cdbmap_fd; } static int smcdb_lockfd(database) SMDB_DATABASE *database; { SMDB_CDB_DATABASE *sm_cdbmap = (SMDB_CDB_DATABASE *) database->smdb_impl; return sm_cdbmap->smcdb_lock_fd; } /* ** allocate/free: who does it: caller or callee? ** If this code does it: the "last" entry will leak. */ #define DBEALLOC(dbe, l) \ do \ { \ if ((dbe)->size > 0 && l > (dbe)->size) \ { \ free((dbe)->data); \ (dbe)->size = 0; \ } \ if ((dbe)->size == 0) \ { \ (dbe)->data = malloc(l); \ if ((dbe)->data == NULL) \ return SMDBE_MALLOC; \ (dbe)->size = l; \ } \ if (l > (dbe)->size) \ return SMDBE_MALLOC; /* XXX bogus */ \ } while (0) static int smcdb_get(database, key, data, flags) SMDB_DATABASE *database; SMDB_DBENT *key; SMDB_DBENT *data; unsigned int flags; { SMDB_CDB_DATABASE *sm_cdbmap = (SMDB_CDB_DATABASE *) database->smdb_impl; size_t l; int ret; ret = SM_SUCCESS; if (NULL == sm_cdbmap ) return -1; /* SM_ASSERT(!sm_cdbmap->cdbmap_create); */ /* need to lock access? single threaded access! */ ret = cdb_find(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd, key->data, key->size); if (ret > 0) { l = cdb_datalen(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd); DBEALLOC(data, l); ret = cdb_read(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd, data->data, l, cdb_datapos(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd)); if (ret < 0) ret = -1; else { data->size = l; ret = SM_SUCCESS; } } else ret = -1; return ret; } static int smcdb_put(database, key, data, flags) SMDB_DATABASE *database; SMDB_DBENT *key; SMDB_DBENT *data; unsigned int flags; { int r, cdb_flags; SMDB_CDB_DATABASE *sm_cdbmap = (SMDB_CDB_DATABASE *) database->smdb_impl; assert(sm_cdbmap != NULL); if (bitset(SMDBF_NO_OVERWRITE, flags)) cdb_flags = CDB_PUT_INSERT; else cdb_flags = CDB_PUT_REPLACE; r = cdb_make_put(&sm_cdbmap->cdbmap_map.cdbs_cdb_wr, key->data, key->size, data->data, data->size, cdb_flags); if (r > 0) { if (bitset(SMDBF_NO_OVERWRITE, flags)) return SMDBE_DUPLICATE; else return SMDBE_OK; } return r; } static int smcdb_set_owner(database, uid, gid) SMDB_DATABASE *database; uid_t uid; gid_t gid; { # if HASFCHOWN int fd; int result; SMDB_CDB_DATABASE *sm_cdbmap = (SMDB_CDB_DATABASE *) database->smdb_impl; assert(sm_cdbmap != NULL); fd = sm_cdbmap->cdbmap_fd; if (fd >= 0) { result = fchown(fd, uid, gid); if (result < 0) return errno; } # endif /* HASFCHOWN */ return SMDBE_OK; } static int smcdb_sync(database, flags) SMDB_DATABASE *database; unsigned int flags; { return 0; } static int smcdb_cursor_close(cursor) SMDB_CURSOR *cursor; { int ret; ret = SMDBE_OK; if (cursor != NULL) free(cursor); return ret; } static int smcdb_cursor_del(cursor, flags) SMDB_CURSOR *cursor; SMDB_FLAG flags; { return -1; } static int smcdb_cursor_get(cursor, key, value, flags) SMDB_CURSOR *cursor; SMDB_DBENT *key; SMDB_DBENT *value; SMDB_FLAG flags; { SMDB_CDB_DATABASE *sm_cdbmap; size_t l; int ret; ret = SMDBE_OK; sm_cdbmap = cursor->smdbc_impl; ret = cdb_seqnext(&sm_cdbmap->smcdb_pos, &sm_cdbmap->cdbmap_map.cdbs_cdb_rd); if (ret == 0) return SMDBE_LAST_ENTRY; if (ret < 0) return SMDBE_IO_ERROR; l = cdb_keylen(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd); DBEALLOC(key, l); ret = cdb_read(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd, key->data, l, cdb_keypos(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd)); if (ret < 0) return SMDBE_IO_ERROR; key->size = l; l = cdb_datalen(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd); DBEALLOC(value, l); ret = cdb_read(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd, value->data, l, cdb_datapos(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd)); if (ret < 0) return SMDBE_IO_ERROR; value->size = l; return SMDBE_OK; } static int smcdb_cursor_put(cursor, key, value, flags) SMDB_CURSOR *cursor; SMDB_DBENT *key; SMDB_DBENT *value; SMDB_FLAG flags; { return -1; } static int smcdb_cursor(database, cursor, flags) SMDB_DATABASE *database; SMDB_CURSOR **cursor; SMDB_FLAG flags; { int result; SMDB_CDB_DATABASE *sm_cdbmap; result = SMDBE_OK; *cursor = (SMDB_CURSOR *) malloc(sizeof(SMDB_CURSOR)); if (*cursor == NULL) return SMDBE_MALLOC; sm_cdbmap = (SMDB_CDB_DATABASE *) database->smdb_impl; (*cursor)->smdbc_close = smcdb_cursor_close; (*cursor)->smdbc_del = smcdb_cursor_del; (*cursor)->smdbc_get = smcdb_cursor_get; (*cursor)->smdbc_put = smcdb_cursor_put; (*cursor)->smdbc_impl = sm_cdbmap; cdb_seqinit(&sm_cdbmap->smcdb_pos, &sm_cdbmap->cdbmap_map.cdbs_cdb_rd); return result; } /* ** SMDB_CDB_OPEN -- Opens a cdb database. ** ** Parameters: ** database -- An unallocated database pointer to a pointer. ** db_name -- The name of the database without extension. ** mode -- File permissions for a created database. ** mode_mask -- Mode bits that must match on an opened database. ** sff -- Flags for safefile. ** type -- The type of database to open ** See smdb_type_to_cdb_type for valid types. ** user_info -- User information for file permissions. ** db_params -- unused ** ** Returns: ** SMDBE_OK -- Success, other errno: ** SMDBE_MALLOC -- Cannot allocate memory. ** SMDBE_BAD_OPEN -- various (OS) errors. ** Anything else: translated error from cdb */ int smdb_cdb_open(database, db_name, mode, mode_mask, sff, type, user_info, db_params) SMDB_DATABASE **database; char *db_name; int mode; int mode_mask; long sff; SMDB_DBTYPE type; SMDB_USER_INFO *user_info; SMDB_DBPARAMS *db_params; { bool lockcreated = false; int result; int lock_fd; int db_fd; SMDB_DATABASE *smdb_db; SMDB_CDB_DATABASE *sm_cdbmap; struct stat stat_info; char db_file_name[MAXPATHLEN]; *database = NULL; result = smdb_add_extension(db_file_name, sizeof db_file_name, db_name, SMCDB_FILE_EXTENSION); if (result != SMDBE_OK) return result; result = smdb_setup_file(db_name, SMCDB_FILE_EXTENSION, mode_mask, sff, user_info, &stat_info); if (result != SMDBE_OK) return result; lock_fd = -1; if (stat_info.st_mode == ST_MODE_NOFILE && bitset(mode, O_CREAT)) lockcreated = true; result = smdb_lock_file(&lock_fd, db_name, mode, sff, SMCDB_FILE_EXTENSION); if (result != SMDBE_OK) return result; if (lockcreated) { mode |= O_TRUNC; mode &= ~(O_CREAT|O_EXCL); } smdb_db = smdb_malloc_database(); sm_cdbmap = smcdb_malloc_database(); if (sm_cdbmap == NULL || smdb_db == NULL) { smdb_unlock_file(lock_fd); smdb_free_database(smdb_db); /* ok to be NULL */ if (sm_cdbmap != NULL) free(sm_cdbmap); return SMDBE_MALLOC; } sm_cdbmap->smcdb_lock_fd = lock_fd; # if 0 db = NULL; db_flags = 0; if (bitset(O_CREAT, mode)) db_flags |= DB_CREATE; if (bitset(O_TRUNC, mode)) db_flags |= DB_TRUNCATE; if (mode == O_RDONLY) db_flags |= DB_RDONLY; SM_DB_FLAG_ADD(db_flags); # endif result = -1; /* smdb_db_open_internal(db_file_name, db_type, db_flags, db_params, &db); */ db_fd = open(db_file_name, mode, DBMMODE); if (db_fd == -1) { result = SMDBE_BAD_OPEN; goto error; } sm_cdbmap->cdbmap_create = (mode != O_RDONLY); if (mode == O_RDONLY) result = cdb_init(&sm_cdbmap->cdbmap_map.cdbs_cdb_rd, db_fd); else result = cdb_make_start(&sm_cdbmap->cdbmap_map.cdbs_cdb_wr, db_fd); if (result != 0) { result = SMDBE_BAD_OPEN; goto error; } if (result == 0) result = SMDBE_OK; else { /* Try and narrow down on the problem */ if (result != 0) result = cdb_error_to_smdb(result); else result = SMDBE_BAD_OPEN; } if (result == SMDBE_OK) result = smdb_filechanged(db_name, SMCDB_FILE_EXTENSION, db_fd, &stat_info); if (result == SMDBE_OK) { /* Everything is ok. Setup driver */ /* smdb_db->smcdb_db = sm_cdbmap; */ smdb_db->smdb_close = smcdb_close; smdb_db->smdb_del = smcdb_del; smdb_db->smdb_fd = smcdb_fd; smdb_db->smdb_lockfd = smcdb_lockfd; smdb_db->smdb_get = smcdb_get; smdb_db->smdb_put = smcdb_put; smdb_db->smdb_set_owner = smcdb_set_owner; smdb_db->smdb_sync = smcdb_sync; smdb_db->smdb_cursor = smcdb_cursor; smdb_db->smdb_impl = sm_cdbmap; *database = smdb_db; return SMDBE_OK; } error: if (sm_cdbmap != NULL) { /* close */ } smdb_unlock_file(sm_cdbmap->smcdb_lock_fd); free(sm_cdbmap); smdb_free_database(smdb_db); return result; } #endif /* CDB */ sendmail-8.18.1/mail.local/0000755000372400037240000000000014556365433015004 5ustar xbuildxbuildsendmail-8.18.1/mail.local/mail.local.00000644000372400037240000001027714556365430017104 0ustar xbuildxbuildMAIL.LOCAL(8) MAIL.LOCAL(8) NNAAMMEE mail.local - store mail in a mailbox SSYYNNOOPPSSIISS mmaaiill..llooccaall [--77] [--bb] [--dd] [--DD _m_b_d_b] [--ll] [--ff _f_r_o_m|--rr _f_r_o_m] [--hh _f_i_l_e_n_a_m_e ] _u_s_e_r _._._. DDEESSCCRRIIPPTTIIOONN MMaaiill..llooccaall reads the standard input up to an end-of-file and appends it to each _u_s_e_r_'_s mmaaiill file. The _u_s_e_r must be a valid user name. The options are as follows: --77 Do not advertise 8BITMIME support in LMTP mode. --bb Return a permanent error instead of a temporary error if a mailbox exceeds quota. --dd Specify this is a delivery (for backward compatibility). This option has no effect. --DD _m_b_d_b Specify the name of the mailbox database which is used to look up local recipient names. This option defaults to "pw", which means use getpwnam(). --ff _f_r_o_m Specify the sender's name. --ll Turn on LMTP mode. --rr _f_r_o_m Specify the sender's name (for backward compatibility). Same as -f. --hh _f_i_l_e_n_a_m_e Store incoming mail in _f_i_l_e_n_a_m_e in the user's home directory instead of a system mail spool directory. The next options are only available if mmaaiill..llooccaall has been compiled with -DHASHSPOOL. --HH _h_a_s_h_t_y_p_e_h_a_s_h_d_e_p_t_h Select hashed mail directories. Valid hash types are uu for user name and mm for MD5 (requires compilation with -DHASHSPOOLMD5). Example: --HH _u_2 selects user name hashing with a hash depth of 2. Note: there must be no space between the hash type and the depth. --pp _p_a_t_h Specify an alternate mail spool path. --nn Specify that the domain part of recipient addresses in LMTP mode should not be stripped. Individual mail messages in the mailbox are delimited by an empty line followed by a line beginning with the string ``From ''. A line con- taining the string ``From '', the sender's name and a time stamp is prepended to each delivered mail message. A blank line is appended to each message. A greater-than character (``>'') is prepended to any line in the message which could be mistaken for a ``From '' delimiter line (that is, a line beginning with the five characters ``From '' fol- lowing a blank line). The mail files are exclusively locked with flock(2) while mail is appended, and a uusseerr..lloocckk file also is created while the mailbox is locked for compatibility with older MUAs. If the ``biff'' service is returned by getservbyname(3), the biff server is notified of delivered mail. The mmaaiill..llooccaall utility exits 0 on success, and >0 if an error occurs. EENNVVIIRROONNMMEENNTT TZ Used to set the appropriate time zone on the timestamp. FFIILLEESS /tmp/local.XXXXXX temporary files /var/mail/user user's default mailbox directory /var/mail/user.lock lock file for a user's default mailbox SSEEEE AALLSSOO mail(1), xsend(1), flock(2), getservbyname(3), comsat(8), sendmail(8) WWAARRNNIINNGG mmaaiill..llooccaall escapes only "^From " lines that follow an empty line. If all lines starting with "From " should be escaped, use the 'E' flag for the local mailer in the sendmail.cf file. HHIISSTTOORRYY A superset of mmaaiill..llooccaall (handling mailbox reading as well as mail delivery) appeared in Version 7 AT&T UNIX as the program mmaaiill. $Date: 2013-11-22 20:51:51 $ MAIL.LOCAL(8) sendmail-8.18.1/mail.local/Makefile.m40000644000372400037240000000224714556365350016766 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.52 2006-06-28 21:08:02 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_LIBSM', `true') define(`confREQUIRE_SM_OS_H', `true') # sendmail dir SMSRCDIR= ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confENVDEF', `confMAPDEF') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`executable', `mail.local') define(`bldINSTALL_DIR', `E') define(`bldNO_INSTALL', `true') define(`bldSOURCES', `mail.local.c ') bldPUSH_SMLIB(`sm') APPENDDEF(`confENVDEF', `-DNOT_SENDMAIL') bldPRODUCT_END bldPRODUCT_START(`manpage', `mail.local') define(`bldSOURCES', `mail.local.8') bldPRODUCT_END divert(bldTARGETS_SECTION) install: @echo "NOTE: This version of mail.local is not suited for some operating" @echo " systems such as HP-UX and Solaris. Please consult the" @echo " README file in the mail.local directory. You can force" @echo " the install using 'Build force-install'." force-install: install-mail.local ifdef(`confNO_MAN_BUILD',, `install-docs') install-mail.local: mail.local ${INSTALL} -c -o ${UBINOWN} -g ${UBINGRP} -m ${UBINMODE} mail.local ${DESTDIR}${EBINDIR} divert bldFINISH sendmail-8.18.1/mail.local/mail.local.c0000644000372400037240000011775414556365350017200 0ustar xbuildxbuild/* * Copyright (c) 1998-2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993, 1994 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_IDSTR(copyright, "@(#) Copyright (c) 1998-2004 Proofpoint, Inc. and its suppliers.\n\ All rights reserved.\n\ Copyright (c) 1990, 1993, 1994\n\ The Regents of the University of California. All rights reserved.\n") SM_IDSTR(id, "@(#)$Id: mail.local.c,v 8.257 2013-11-22 20:51:51 ca Exp $") #include #include #include #include #include #include #define LOCKFILE_PMODE 0 #include #include #ifndef HASHSPOOL # define HASHSPOOL 0 #endif #ifndef HASHSPOOLMD5 # define HASHSPOOLMD5 0 #endif /* ** This is not intended to work on System V derived systems ** such as Solaris or HP-UX, since they use a totally different ** approach to mailboxes (essentially, they have a set-group-ID program ** rather than set-user-ID, and they rely on the ability to "give away" ** files to do their work). IT IS NOT A BUG that this doesn't ** work on such architectures. */ #include #include #include #include #include #include #include # include # include # include # include # include # include #include #include #include #include #include #if HASHSPOOL # define HASH_NONE 0 # define HASH_USER 1 # if HASHSPOOLMD5 # define HASH_MD5 2 # include # endif #endif /* HASHSPOOL */ #if _FFR_SPOOL_PATH /* ** Override path to mail store at run time (using -p). ** From: Eugene Grosbein of Svyaz Service JSC ** See: http://www.freebsd.org/cgi/query-pr.cgi?pr=bin/114195 ** NOTE: Update man page before adding this to a release. */ #endif /* _FFR_SPOOL_PATH */ #ifndef LOCKTO_RM # define LOCKTO_RM 300 /* timeout for stale lockfile removal */ #endif #ifndef LOCKTO_GLOB # define LOCKTO_GLOB 400 /* global timeout for lockfile creation */ #endif /* define a realloc() which works for NULL pointers */ #define REALLOC(ptr, size) (((ptr) == NULL) ? malloc(size) : realloc(ptr, size)) /* ** If you don't have flock, you could try using lockf instead. */ #ifdef LDA_USE_LOCKF # define flock(a, b) lockf(a, b, 0) # ifdef LOCK_EX # undef LOCK_EX # endif # define LOCK_EX F_LOCK #endif /* LDA_USE_LOCKF */ #ifndef LOCK_EX # include #endif /* ** If you don't have setreuid, and you have saved uids, and you have ** a seteuid() call that doesn't try to emulate using setuid(), then ** you can try defining LDA_USE_SETEUID. */ #ifdef LDA_USE_SETEUID # define setreuid(r, e) seteuid(e) #endif #ifdef LDA_CONTENTLENGTH # define CONTENTLENGTH 1 #endif #ifndef INADDRSZ # define INADDRSZ 4 /* size of an IPv4 address in bytes */ #endif #ifdef MAILLOCK # include #endif #ifndef MAILER_DAEMON # define MAILER_DAEMON "MAILER-DAEMON" #endif #ifdef CONTENTLENGTH char ContentHdr[40] = "Content-Length: "; off_t HeaderLength; off_t BodyLength; #endif bool EightBitMime = true; /* advertise 8BITMIME in LMTP */ #if USE_EAI bool EAI = true; /* advertise SMTPUTF8 in LMTP */ #endif char ErrBuf[10240]; /* error buffer */ int ExitVal = EX_OK; /* sysexits.h error value. */ bool HoldErrs = false; /* Hold errors in ErrBuf */ bool LMTPMode = false; bool BounceQuota = false; /* permanent error when over quota */ bool CloseMBDB = false; char *HomeMailFile = NULL; /* store mail in homedir */ #if HASHSPOOL int HashType = HASH_NONE; int HashDepth = 0; bool StripRcptDomain = true; #else # define StripRcptDomain true #endif char SpoolPath[MAXPATHLEN]; char *parseaddr __P((char *, bool)); char *process_recipient __P((char *)); void dolmtp __P((void)); void deliver __P((int, char *)); int e_to_sys __P((int)); void notifybiff __P((char *)); int store __P((char *, bool *)); void usage __P((void)); int lockmbox __P((char *)); void unlockmbox __P((void)); void mailerr __P((const char *, const char *, ...)); void flush_error __P((void)); #if HASHSPOOL const char *hashname __P((char *)); #endif static void sm_exit __P((int)); static void sm_exit(status) int status; { if (CloseMBDB) { sm_mbdb_terminate(); CloseMBDB = false; /* not really necessary, but ... */ } exit(status); } int main(argc, argv) int argc; char *argv[]; { struct passwd *pw; int ch, fd; uid_t uid; char *from; char *mbdbname = "pw"; int err; extern char *optarg; extern int optind; /* make sure we have some open file descriptors */ for (fd = 10; fd < 30; fd++) (void) close(fd); /* use a reasonable umask */ (void) umask(0077); #ifdef LOG_MAIL openlog("mail.local", 0, LOG_MAIL); #else openlog("mail.local", 0); #endif from = NULL; /* XXX can this be converted to a compile time check? */ if (sm_strlcpy(SpoolPath, _PATH_MAILDIR, sizeof(SpoolPath)) >= sizeof(SpoolPath)) { mailerr("421", "Configuration error: _PATH_MAILDIR too large"); sm_exit(EX_CONFIG); } /* HACK: add U to all options - this should be only for USE_EAI */ #if HASHSPOOL while ((ch = getopt(argc, argv, "7bdD:f:h:r:lH:p:nUV")) != -1) #else /* HASHSPOOL */ # if _FFR_SPOOL_PATH while ((ch = getopt(argc, argv, "7bdD:f:h:r:lp:UV")) != -1) # else while ((ch = getopt(argc, argv, "7bdD:f:h:r:lUV")) != -1) # endif #endif /* HASHSPOOL */ { switch(ch) { case '7': /* Do not advertise 8BITMIME */ EightBitMime = false; break; case 'b': /* bounce mail when over quota. */ BounceQuota = true; break; case 'd': /* Backward compatible. */ break; case 'D': /* mailbox database type */ mbdbname = optarg; break; case 'f': case 'r': /* Backward compatible. */ if (from != NULL) { mailerr(NULL, "Multiple -f options"); usage(); } from = optarg; break; case 'h': if (optarg != NULL || *optarg != '\0') HomeMailFile = optarg; else { mailerr(NULL, "-h: missing filename"); usage(); } break; case 'l': LMTPMode = true; break; #if HASHSPOOL case 'H': if (optarg == NULL || *optarg == '\0') { mailerr(NULL, "-H: missing hashinfo"); usage(); } switch(optarg[0]) { case 'u': HashType = HASH_USER; break; # if HASHSPOOLMD5 case 'm': HashType = HASH_MD5; break; # endif default: mailerr(NULL, "-H: unknown hash type"); usage(); } if (optarg[1] == '\0') { mailerr(NULL, "-H: invalid hash depth"); usage(); } HashDepth = atoi(&optarg[1]); if ((HashDepth <= 0) || ((HashDepth * 2) >= MAXPATHLEN)) { mailerr(NULL, "-H: invalid hash depth"); usage(); } break; case 'n': StripRcptDomain = false; break; #endif /* HASHSPOOL */ #if HASHSPOOL || _FFR_SPOOL_PATH case 'p': if (optarg == NULL || *optarg == '\0') { mailerr(NULL, "-p: missing spool path"); usage(); } if (sm_strlcpy(SpoolPath, optarg, sizeof(SpoolPath)) >= sizeof(SpoolPath)) { mailerr(NULL, "-p: invalid spool path"); usage(); } break; #endif /* HASHSPOOL || _FFR_SPOOL_PATH */ #if USE_EAI case 'U': EAI = false; break; #endif case 'V': fprintf(stderr, "compiled with\n"); #if MAIL_LOCAL_TEST fprintf(stderr, "MAIL_LOCAL_TEST\n"); #endif #if USE_EAI /* test scripts should look for SMTPUTF8 */ fprintf(stderr, "USE_EAI\n"); #endif break; case '?': default: usage(); } } argc -= optind; argv += optind; /* initialize biff structures */ notifybiff(NULL); err = sm_mbdb_initialize(mbdbname); if (err != EX_OK) { char *errcode = "521"; if (err == EX_TEMPFAIL) errcode = "421"; mailerr(errcode, "Can not open mailbox database %s: %s", mbdbname, sm_strexit(err)); sm_exit(err); } CloseMBDB = true; if (LMTPMode) { if (argc > 0) { mailerr("421", "Users should not be specified in command line if LMTP required"); sm_exit(EX_TEMPFAIL); } dolmtp(); /* NOTREACHED */ sm_exit(EX_OK); } /* Non-LMTP from here on out */ if (*argv == NULL) usage(); /* ** If from not specified, use the name from getlogin() if the ** uid matches, otherwise, use the name from the password file ** corresponding to the uid. */ uid = getuid(); if (from == NULL && ((from = getlogin()) == NULL || (pw = getpwnam(from)) == NULL || pw->pw_uid != uid)) from = (pw = getpwuid(uid)) != NULL ? pw->pw_name : "???"; /* ** There is no way to distinguish the error status of one delivery ** from the rest of the deliveries. So, if we failed hard on one ** or more deliveries, but had no failures on any of the others, we ** return a hard failure. If we failed temporarily on one or more ** deliveries, we return a temporary failure regardless of the other ** failures. This results in the delivery being reattempted later ** at the expense of repeated failures and multiple deliveries. */ HoldErrs = true; fd = store(from, NULL); HoldErrs = false; if (fd < 0) { flush_error(); sm_exit(ExitVal); } for (; *argv != NULL; ++argv) deliver(fd, *argv); sm_exit(ExitVal); /* NOTREACHED */ return ExitVal; } char * parseaddr(s, rcpt) char *s; bool rcpt; { char *p; int l; if (*s++ != '<') return NULL; p = s; /* at-domain-list */ while (*p == '@') { p++; while (*p != ',' && *p != ':' && *p != '\0') p++; if (*p == '\0') return NULL; /* Skip over , or : */ p++; } s = p; /* local-part */ while (*p != '\0' && *p != '@' && *p != '>') { if (*p == '\\') { if (*++p == '\0') return NULL; } else if (*p == '\"') { p++; while (*p != '\0' && *p != '\"') { if (*p == '\\') { if (*++p == '\0') return NULL; } p++; } if (*p == '\0' || *(p + 1) == '\0') return NULL; } /* +detail ? */ if (*p == '+' && rcpt) *p = '\0'; p++; } /* @domain */ if (*p == '@') { if (rcpt) *p++ = '\0'; while (*p != '\0' && *p != '>') p++; } if (*p != '>') return NULL; else *p = '\0'; p++; if (*p != '\0' && *p != ' ') return NULL; if (*s == '\0') s = MAILER_DAEMON; l = strlen(s) + 1; if (l < 0) return NULL; p = malloc(l); if (p == NULL) { mailerr("421 4.3.0", "Memory exhausted"); sm_exit(EX_TEMPFAIL); } (void) sm_strlcpy(p, s, l); return p; } char * process_recipient(addr) char *addr; { SM_MBDB_T user; switch (sm_mbdb_lookup(addr, &user)) { case EX_OK: return NULL; case EX_NOUSER: return "550 5.1.1 User unknown"; case EX_TEMPFAIL: return "451 4.3.0 User database failure; retry later"; default: return "550 5.3.0 User database failure"; } } #define RCPT_GROW 30 void dolmtp() { char *return_path = NULL; char **rcpt_addr = NULL; int rcpt_num = 0; int rcpt_alloc = 0; bool gotlhlo = false; char *err; int msgfd; char *p; int i; char myhostname[1024]; char buf[4096]; memset(myhostname, '\0', sizeof myhostname); (void) gethostname(myhostname, sizeof myhostname - 1); if (myhostname[0] == '\0') sm_strlcpy(myhostname, "localhost", sizeof myhostname); printf("220 %s LMTP ready\r\n", myhostname); for (;;) { (void) fflush(stdout); if (fgets(buf, sizeof(buf) - 1, stdin) == NULL) sm_exit(EX_OK); p = buf + strlen(buf) - 1; if (p >= buf && *p == '\n') *p-- = '\0'; if (p >= buf && *p == '\r') *p-- = '\0'; switch (buf[0]) { case 'd': case 'D': if (SM_STRCASEEQ(buf, "data")) { bool inbody = false; if (rcpt_num == 0) { mailerr("503 5.5.1", "No recipients"); continue; } HoldErrs = true; msgfd = store(return_path, &inbody); HoldErrs = false; if (msgfd < 0 && !inbody) { flush_error(); continue; } for (i = 0; i < rcpt_num; i++) { if (msgfd < 0) { /* print error for rcpt */ flush_error(); continue; } p = strchr(rcpt_addr[i], '+'); if (p != NULL) *p = '\0'; deliver(msgfd, rcpt_addr[i]); } if (msgfd >= 0) (void) close(msgfd); goto rset; } goto syntaxerr; /* NOTREACHED */ break; case 'l': case 'L': if (sm_strncasecmp(buf, "lhlo ", 5) == 0) { /* check for duplicate per RFC 1651 4.2 */ if (gotlhlo) { mailerr("503", "%s Duplicate LHLO", myhostname); continue; } gotlhlo = true; printf("250-%s\r\n", myhostname); if (EightBitMime) printf("250-8BITMIME\r\n"); #if USE_EAI if (EAI) printf("250-SMTPUTF8\r\n"); #endif printf("250-ENHANCEDSTATUSCODES\r\n"); printf("250 PIPELINING\r\n"); continue; } goto syntaxerr; /* NOTREACHED */ break; case 'm': case 'M': if (sm_strncasecmp(buf, "mail ", 5) == 0) { if (return_path != NULL) { mailerr("503 5.5.1", "Nested MAIL command"); continue; } if (sm_strncasecmp(buf + 5, "from:", 5) != 0 || ((return_path = parseaddr(buf + 10, false)) == NULL)) { mailerr("501 5.5.4", "Syntax error in parameters"); continue; } printf("250 2.5.0 Ok\r\n"); continue; } goto syntaxerr; /* NOTREACHED */ break; case 'n': case 'N': if (SM_STRCASEEQ(buf, "noop")) { printf("250 2.0.0 Ok\r\n"); continue; } goto syntaxerr; /* NOTREACHED */ break; case 'q': case 'Q': if (SM_STRCASEEQ(buf, "quit")) { printf("221 2.0.0 Bye\r\n"); sm_exit(EX_OK); } goto syntaxerr; /* NOTREACHED */ break; case 'r': case 'R': if (sm_strncasecmp(buf, "rcpt ", 5) == 0) { if (return_path == NULL) { mailerr("503 5.5.1", "Need MAIL command"); continue; } if (rcpt_num >= rcpt_alloc) { rcpt_alloc += RCPT_GROW; rcpt_addr = (char **) REALLOC((char *) rcpt_addr, rcpt_alloc * sizeof(char **)); if (rcpt_addr == NULL) { mailerr("421 4.3.0", "Memory exhausted"); sm_exit(EX_TEMPFAIL); } } if (sm_strncasecmp(buf + 5, "to:", 3) != 0 || ((rcpt_addr[rcpt_num] = parseaddr(buf + 8, StripRcptDomain)) == NULL)) { mailerr("501 5.5.4", "Syntax error in parameters"); continue; } err = process_recipient(rcpt_addr[rcpt_num]); if (err != NULL) { mailerr(NULL, "%s", err); continue; } rcpt_num++; printf("250 2.1.5 Ok\r\n"); continue; } else if (SM_STRCASEEQ(buf, "rset")) { printf("250 2.0.0 Ok\r\n"); rset: while (rcpt_num > 0) free(rcpt_addr[--rcpt_num]); if (return_path != NULL) free(return_path); return_path = NULL; continue; } goto syntaxerr; /* NOTREACHED */ break; case 'v': case 'V': if (sm_strncasecmp(buf, "vrfy ", 5) == 0) { printf("252 2.3.3 Try RCPT to attempt delivery\r\n"); continue; } goto syntaxerr; /* NOTREACHED */ break; default: syntaxerr: mailerr("500 5.5.2", "Syntax error"); continue; /* NOTREACHED */ break; } } } int store(from, inbody) char *from; bool *inbody; { FILE *fp = NULL; time_t tval; bool eline; /* previous line was empty */ bool fullline = true; /* current line is terminated */ bool prevfl; /* previous line was terminated */ char line[2048]; int fd; char tmpbuf[sizeof _PATH_LOCTMP + 1]; if (inbody != NULL) *inbody = false; (void) umask(0077); (void) sm_strlcpy(tmpbuf, _PATH_LOCTMP, sizeof tmpbuf); if ((fd = mkstemp(tmpbuf)) < 0 || (fp = fdopen(fd, "w+")) == NULL) { if (fd >= 0) (void) close(fd); mailerr("451 4.3.0", "Unable to open temporary file"); return -1; } (void) unlink(tmpbuf); if (LMTPMode) { printf("354 Go ahead\r\n"); (void) fflush(stdout); } if (inbody != NULL) *inbody = true; (void) time(&tval); (void) fprintf(fp, "From %s %s", from, ctime(&tval)); #ifdef CONTENTLENGTH HeaderLength = 0; BodyLength = -1; #endif line[0] = '\0'; eline = true; while (fgets(line, sizeof(line), stdin) != (char *) NULL) { size_t line_len = 0; int peek; prevfl = fullline; /* preserve state of previous line */ while (line[line_len] != '\n' && line_len < sizeof(line) - 2) line_len++; line_len++; /* Check for dot-stuffing */ if (prevfl && LMTPMode && line[0] == '.') { if (line[1] == '\n' || (line[1] == '\r' && line[2] == '\n')) goto lmtpdot; memcpy(line, line + 1, line_len); line_len--; } /* Check to see if we have the full line from fgets() */ fullline = false; if (line_len > 0) { if (line[line_len - 1] == '\n') { if (line_len >= 2 && line[line_len - 2] == '\r') { line[line_len - 2] = '\n'; line[line_len - 1] = '\0'; line_len--; } fullline = true; } else if (line[line_len - 1] == '\r') { /* Did we just miss the CRLF? */ peek = fgetc(stdin); if (peek == '\n') { line[line_len - 1] = '\n'; fullline = true; } else (void) ungetc(peek, stdin); } } else fullline = true; #ifdef CONTENTLENGTH if (prevfl && line[0] == '\n' && HeaderLength == 0) { eline = false; if (fp != NULL) HeaderLength = ftell(fp); if (HeaderLength <= 0) { /* ** shouldn't happen, unless ftell() is ** badly broken */ HeaderLength = -1; } } #else /* CONTENTLENGTH */ if (prevfl && line[0] == '\n') eline = true; #endif /* CONTENTLENGTH */ else { if (eline && line[0] == 'F' && fp != NULL && !memcmp(line, "From ", 5)) (void) putc('>', fp); eline = false; #ifdef CONTENTLENGTH /* discard existing "Content-Length:" headers */ if (prevfl && HeaderLength == 0 && (line[0] == 'C' || line[0] == 'c') && sm_strncasecmp(line, ContentHdr, 15) == 0) { /* ** be paranoid: clear the line ** so no "wrong matches" may occur later */ line[0] = '\0'; continue; } #endif /* CONTENTLENGTH */ } if (fp != NULL) { (void) fwrite(line, sizeof(char), line_len, fp); if (ferror(fp)) { mailerr("451 4.3.0", "Temporary file write error"); (void) fclose(fp); fp = NULL; continue; } } } /* check if an error occurred */ if (fp == NULL) return -1; if (LMTPMode) { /* Got a premature EOF -- toss message and exit */ sm_exit(EX_OK); } /* If message not newline terminated, need an extra. */ if (fp != NULL && strchr(line, '\n') == NULL) (void) putc('\n', fp); lmtpdot: #ifdef CONTENTLENGTH if (fp != NULL) BodyLength = ftell(fp); if (HeaderLength == 0 && BodyLength > 0) /* empty body */ { HeaderLength = BodyLength; BodyLength = 0; } else BodyLength = BodyLength - HeaderLength - 1 ; if (HeaderLength > 0 && BodyLength >= 0) { (void) sm_snprintf(line, sizeof line, "%lld\n", (LONGLONG_T) BodyLength); (void) sm_strlcpy(&ContentHdr[16], line, sizeof(ContentHdr) - 16); } else BodyLength = -1; /* Something is wrong here */ #endif /* CONTENTLENGTH */ /* Output a newline; note, empty messages are allowed. */ if (fp != NULL) (void) putc('\n', fp); if (fp == NULL || fflush(fp) == EOF || ferror(fp) != 0) { mailerr("451 4.3.0", "Temporary file flush error"); if (fp != NULL) (void) fclose(fp); return -1; } return fd; } void deliver(fd, name) int fd; char *name; { struct stat fsb; struct stat sb; char path[MAXPATHLEN]; int mbfd = -1, nr = 0, nw, off; int exitval; char *p; char *errcode; off_t curoff, cursize; #ifdef CONTENTLENGTH off_t headerbytes; int readamount; #endif char biffmsg[100], buf[8 * 1024]; SM_MBDB_T user; /* ** Disallow delivery to unknown names -- special mailboxes can be ** handled in the sendmail aliases file. */ exitval = sm_mbdb_lookup(name, &user); switch (exitval) { case EX_OK: break; case EX_NOUSER: exitval = EX_UNAVAILABLE; mailerr("550 5.1.1", "%s: User unknown", name); break; case EX_TEMPFAIL: mailerr("451 4.3.0", "%s: User database failure; retry later", name); break; default: exitval = EX_UNAVAILABLE; mailerr("550 5.3.0", "%s: User database failure", name); break; } if (exitval != EX_OK) { if (ExitVal != EX_TEMPFAIL) ExitVal = exitval; return; } endpwent(); /* ** Keep name reasonably short to avoid buffer overruns. ** This isn't necessary on BSD because of the proper ** definition of snprintf(), but it can cause problems ** on other systems. ** Also, clear out any bogus characters. */ #if !HASHSPOOL if (strlen(name) > 40) name[40] = '\0'; for (p = name; *p != '\0'; p++) { if (!isascii(*p)) *p &= 0x7f; else if (!isprint(*p)) *p = '.'; } #endif /* !HASHSPOOL */ if (HomeMailFile == NULL) { if (sm_strlcpyn(path, sizeof(path), #if HASHSPOOL 4, #else 3, #endif SpoolPath, "/", #if HASHSPOOL hashname(name), #endif name) >= sizeof(path)) { exitval = EX_UNAVAILABLE; mailerr("550 5.1.1", "%s: Invalid mailbox path", name); return; } } else if (*user.mbdb_homedir == '\0') { exitval = EX_UNAVAILABLE; mailerr("550 5.1.1", "%s: User missing home directory", name); return; } else if (sm_snprintf(path, sizeof(path), "%s/%s", user.mbdb_homedir, HomeMailFile) >= sizeof(path)) { exitval = EX_UNAVAILABLE; mailerr("550 5.1.1", "%s: Invalid mailbox path", name); return; } /* ** If the mailbox is linked or a symlink, fail. There's an obvious ** race here, that the file was replaced with a symbolic link after ** the lstat returned, but before the open. We attempt to detect ** this by comparing the original stat information and information ** returned by an fstat of the file descriptor returned by the open. ** ** NB: this is a symptom of a larger problem, that the mail spooling ** directory is writeable by the wrong users. If that directory is ** writeable, system security is compromised for other reasons, and ** it cannot be fixed here. ** ** If we created the mailbox, set the owner/group. If that fails, ** just return. Another process may have already opened it, so we ** can't unlink it. Historically, binmail set the owner/group at ** each mail delivery. We no longer do this, assuming that if the ** ownership or permissions were changed there was a reason. ** ** XXX ** open(2) should support flock'ing the file. */ tryagain: #ifdef MAILLOCK p = name; #else p = path; #endif if ((off = lockmbox(p)) != 0) { if (off == EX_TEMPFAIL || e_to_sys(off) == EX_TEMPFAIL) { ExitVal = EX_TEMPFAIL; errcode = "451 4.3.0"; } else errcode = "551 5.3.0"; mailerr(errcode, "lockmailbox %s failed; error code %d %s", p, off, errno > 0 ? sm_errstring(errno) : ""); return; } if (lstat(path, &sb) < 0) { int save_errno; int mode = S_IRUSR|S_IWUSR; gid_t gid = user.mbdb_gid; #ifdef MAILGID (void) umask(0007); gid = MAILGID; mode |= S_IRGRP|S_IWGRP; #endif mbfd = open(path, O_APPEND|O_CREAT|O_EXCL|O_WRONLY, mode); save_errno = errno; if (lstat(path, &sb) < 0) { ExitVal = EX_CANTCREAT; mailerr("550 5.2.0", "%s: lstat: file changed after open", path); goto err1; } if (mbfd < 0) { if (save_errno == EEXIST) goto tryagain; /* open failed, don't try again */ mailerr("450 4.2.0", "Create %s: %s", path, sm_errstring(save_errno)); goto err0; } else if (fchown(mbfd, user.mbdb_uid, gid) < 0) { mailerr("451 4.3.0", "chown %u.%u: %s", user.mbdb_uid, gid, name); goto err1; } else { /* ** open() was successful, now close it so can ** be opened as the right owner again. ** Paranoia: reset mbdf since the file descriptor ** is no longer valid; better safe than sorry. */ sb.st_uid = user.mbdb_uid; (void) close(mbfd); mbfd = -1; } } else if (sb.st_nlink != 1) { mailerr("550 5.2.0", "%s: too many links", path); goto err0; } else if (!S_ISREG(sb.st_mode)) { mailerr("550 5.2.0", "%s: irregular file", path); goto err0; } else if (sb.st_uid != user.mbdb_uid) { ExitVal = EX_CANTCREAT; mailerr("550 5.2.0", "%s: wrong ownership (%d)", path, (int) sb.st_uid); goto err0; } /* change UID for quota checks */ if ( #if MAIL_LOCAL_TEST (HomeMailFile == NULL || user.mbdb_uid != getuid()) && #endif setreuid(0, user.mbdb_uid) < 0) { mailerr("450 4.2.0", "setreuid(0, %d): %s (r=%d, e=%d)", (int) user.mbdb_uid, sm_errstring(errno), (int) getuid(), (int) geteuid()); goto err1; } #ifdef DEBUG fprintf(stderr, "new euid = %d\n", (int) geteuid()); #endif mbfd = open(path, O_APPEND|O_WRONLY, 0); if (mbfd < 0) { mailerr("450 4.2.0", "Append %s: %s", path, sm_errstring(errno)); goto err0; } else if (fstat(mbfd, &fsb) < 0 || fsb.st_nlink != 1 || sb.st_nlink != 1 || !S_ISREG(fsb.st_mode) || sb.st_dev != fsb.st_dev || sb.st_ino != fsb.st_ino || #if HAS_ST_GEN && 0 /* AFS returns random values for st_gen */ sb.st_gen != fsb.st_gen || #endif sb.st_uid != fsb.st_uid) { ExitVal = EX_TEMPFAIL; mailerr("550 5.2.0", "%s: fstat: file changed after open", path); goto err1; } #if 0 /* ** This code could be reused if we decide to add a ** per-user quota field to the sm_mbdb interface. */ /* ** Fail if the user has a quota specified, and delivery of this ** message would exceed that quota. We bounce such failures using ** EX_UNAVAILABLE, unless there were internal problems, since ** storing immense messages for later retries can cause queueing ** issues. */ if (ui.quota > 0) { struct stat dsb; if (fstat(fd, &dsb) < 0) { ExitVal = EX_TEMPFAIL; mailerr("451 4.3.0", "%s: fstat: can't stat temporary storage: %s", ui.mailspool, sm_errstring(errno)); goto err1; } if (dsb.st_size + sb.st_size + 1 > ui.quota) { ExitVal = EX_UNAVAILABLE; mailerr("551 5.2.2", "%s: Mailbox full or quota exceeded", ui.mailspool); goto err1; } } #endif /* 0 */ /* Wait until we can get a lock on the file. */ if (flock(mbfd, LOCK_EX) < 0) { mailerr("450 4.2.0", "Lock %s: %s", path, sm_errstring(errno)); goto err1; } /* Get the starting offset of the new message */ curoff = lseek(mbfd, (off_t) 0, SEEK_END); (void) sm_snprintf(biffmsg, sizeof(biffmsg), "%s@%lld\n", name, (LONGLONG_T) curoff); /* Copy the message into the file. */ if (lseek(fd, (off_t) 0, SEEK_SET) == (off_t) -1) { mailerr("450 4.2.0", "Temporary file seek error: %s", sm_errstring(errno)); goto err1; } #ifdef DEBUG fprintf(stderr, "before writing: euid = %d\n", (int) geteuid()); #endif #ifdef CONTENTLENGTH headerbytes = (BodyLength >= 0) ? HeaderLength : -1 ; for (;;) { if (headerbytes == 0) { (void) sm_snprintf(buf, sizeof buf, "%s", ContentHdr); nr = strlen(buf); headerbytes = -1; readamount = 0; } else if (headerbytes > sizeof(buf) || headerbytes < 0) readamount = sizeof(buf); else readamount = headerbytes; if (readamount != 0) nr = read(fd, buf, readamount); if (nr <= 0) break; if (headerbytes > 0) headerbytes -= nr ; #else /* CONTENTLENGTH */ while ((nr = read(fd, buf, sizeof(buf))) > 0) { #endif /* CONTENTLENGTH */ for (off = 0; off < nr; off += nw) { if ((nw = write(mbfd, buf + off, nr - off)) < 0) { errcode = "450 4.2.0"; #ifdef EDQUOT if (errno == EDQUOT && BounceQuota) errcode = "552 5.2.2"; #endif mailerr(errcode, "Write %s: %s", path, sm_errstring(errno)); goto err3; } } } if (nr < 0) { mailerr("450 4.2.0", "Temporary file read error: %s", sm_errstring(errno)); goto err3; } /* Flush to disk, don't wait for update. */ if (fsync(mbfd) < 0) { mailerr("450 4.2.0", "Sync %s: %s", path, sm_errstring(errno)); err3: #ifdef DEBUG fprintf(stderr, "reset euid = %d\n", (int) geteuid()); #endif if (mbfd >= 0) (void) ftruncate(mbfd, curoff); err1: if (mbfd >= 0) (void) close(mbfd); err0: #if MAIL_LOCAL_TEST if (HomeMailFile == NULL || user.mbdb_uid != getuid()) #endif (void) setreuid(0, 0); unlockmbox(); return; } /* ** Save the current size so if the close() fails below ** we can make sure no other process has changed the mailbox ** between the failed close and the re-open()/re-lock(). ** If something else has changed the size, we shouldn't ** try to truncate it as we may do more harm then good ** (e.g., truncate a later message delivery). */ if (fstat(mbfd, &sb) < 0) cursize = 0; else cursize = sb.st_size; /* Close and check -- NFS doesn't write until the close. */ if (close(mbfd)) { errcode = "450 4.2.0"; #ifdef EDQUOT if (errno == EDQUOT && BounceQuota) errcode = "552 5.2.2"; #endif mailerr(errcode, "Close %s: %s", path, sm_errstring(errno)); mbfd = open(path, O_WRONLY, 0); if (mbfd < 0 || cursize == 0 || flock(mbfd, LOCK_EX) < 0 || fstat(mbfd, &sb) < 0 || sb.st_size != cursize || sb.st_nlink != 1 || !S_ISREG(sb.st_mode) || sb.st_dev != fsb.st_dev || sb.st_ino != fsb.st_ino || #if HAS_ST_GEN && 0 /* AFS returns random values for st_gen */ sb.st_gen != fsb.st_gen || #endif sb.st_uid != fsb.st_uid ) { /* Don't use a bogus file */ if (mbfd >= 0) { (void) close(mbfd); mbfd = -1; } } /* Attempt to truncate back to pre-write size */ goto err3; } else notifybiff(biffmsg); if ( #if MAIL_LOCAL_TEST (HomeMailFile == NULL || user.mbdb_uid != getuid()) && #endif setreuid(0, 0) < 0) { mailerr("450 4.2.0", "setreuid(0, 0): %s", sm_errstring(errno)); goto err0; } #ifdef DEBUG fprintf(stderr, "reset euid = %d\n", (int) geteuid()); #endif unlockmbox(); if (LMTPMode) printf("250 2.1.5 %s Ok\r\n", name); } /* ** user.lock files are necessary for compatibility with other ** systems, e.g., when the mail spool file is NFS exported. ** Alas, mailbox locking is more than just a local matter. ** EPA 11/94. */ bool Locked = false; #ifdef MAILLOCK int lockmbox(name) char *name; { int r = 0; if (Locked) return 0; if ((r = maillock(name, 15)) == L_SUCCESS) { Locked = true; return 0; } switch (r) { case L_TMPLOCK: /* Can't create tmp file */ case L_TMPWRITE: /* Can't write pid into lockfile */ case L_MAXTRYS: /* Failed after retrycnt attempts */ errno = 0; r = EX_TEMPFAIL; break; case L_ERROR: /* Check errno for reason */ r = errno; break; default: /* other permanent errors */ errno = 0; r = EX_UNAVAILABLE; break; } return r; } void unlockmbox() { if (Locked) mailunlock(); Locked = false; } #else /* MAILLOCK */ char LockName[MAXPATHLEN]; int lockmbox(path) char *path; { int statfailed = 0; time_t start; if (Locked) return 0; if (strlen(path) + 6 > sizeof LockName) return EX_SOFTWARE; (void) sm_snprintf(LockName, sizeof LockName, "%s.lock", path); (void) time(&start); for (; ; sleep(5)) { int fd; struct stat st; time_t now; /* global timeout */ (void) time(&now); if (now > start + LOCKTO_GLOB) { errno = 0; return EX_TEMPFAIL; } fd = open(LockName, O_WRONLY|O_EXCL|O_CREAT, LOCKFILE_PMODE); if (fd >= 0) { /* defeat lock checking programs which test pid */ (void) write(fd, "0", 2); Locked = true; (void) close(fd); return 0; } if (stat(LockName, &st) < 0) { if (statfailed++ > 5) { errno = 0; return EX_TEMPFAIL; } continue; } statfailed = 0; (void) time(&now); if (now < st.st_ctime + LOCKTO_RM) continue; /* try to remove stale lockfile */ if (unlink(LockName) < 0) return errno; } } void unlockmbox() { if (!Locked) return; (void) unlink(LockName); Locked = false; } #endif /* MAILLOCK */ void notifybiff(msg) char *msg; { static bool initialized = false; static int f = -1; struct hostent *hp; struct servent *sp; int len; static struct sockaddr_in addr; if (!initialized) { initialized = true; /* Be silent if biff service not available. */ if ((sp = getservbyname("biff", "udp")) == NULL || (hp = gethostbyname("localhost")) == NULL || hp->h_length != INADDRSZ) return; addr.sin_family = hp->h_addrtype; memcpy(&addr.sin_addr, hp->h_addr, INADDRSZ); addr.sin_port = sp->s_port; } /* No message, just return */ if (msg == NULL) return; /* Couldn't initialize addr struct */ if (addr.sin_family == AF_UNSPEC) return; if (f < 0 && (f = socket(AF_INET, SOCK_DGRAM, 0)) < 0) return; len = strlen(msg) + 1; (void) sendto(f, msg, len, 0, (struct sockaddr *) &addr, sizeof(addr)); } void usage() { ExitVal = EX_USAGE; /* XXX add U to options for USE_EAI */ #if _FFR_SPOOL_PATH mailerr(NULL, "usage: mail.local [-7] [-b] [-d] [-l] [-f from|-r from] [-h filename] [-p path] user ..."); #else mailerr(NULL, "usage: mail.local [-7] [-b] [-d] [-l] [-f from|-r from] [-h filename] user ..."); #endif sm_exit(ExitVal); } void /*VARARGS2*/ #ifdef __STDC__ mailerr(const char *hdr, const char *fmt, ...) #else /* __STDC__ */ mailerr(hdr, fmt, va_alist) const char *hdr; const char *fmt; va_dcl #endif /* __STDC__ */ { size_t len = 0; SM_VA_LOCAL_DECL (void) e_to_sys(errno); SM_VA_START(ap, fmt); if (LMTPMode && hdr != NULL) { sm_snprintf(ErrBuf, sizeof ErrBuf, "%s ", hdr); len = strlen(ErrBuf); } (void) sm_vsnprintf(&ErrBuf[len], sizeof ErrBuf - len, fmt, ap); SM_VA_END(ap); if (!HoldErrs) flush_error(); /* Log the message to syslog. */ if (!LMTPMode) syslog(LOG_ERR, "%s", ErrBuf); } void flush_error() { if (LMTPMode) printf("%s\r\n", ErrBuf); else { if (ExitVal != EX_USAGE) (void) fprintf(stderr, "mail.local: "); fprintf(stderr, "%s\n", ErrBuf); } } #if HASHSPOOL const char * hashname(name) char *name; { static char p[MAXPATHLEN]; int i; int len; char *str; # if HASHSPOOLMD5 char Base64[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+_"; MD5_CTX ctx; unsigned char md5[18]; # if MAXPATHLEN <= 24 # error "MAXPATHLEN <= 24" # endif char b64[24]; MD5_LONG bits; int j; # endif /* HASHSPOOLMD5 */ if (HashType == HASH_NONE || HashDepth * 2 >= MAXPATHLEN) { p[0] = '\0'; return p; } switch(HashType) { case HASH_USER: str = name; break; # if HASHSPOOLMD5 case HASH_MD5: MD5_Init(&ctx); MD5_Update(&ctx, name, strlen(name)); MD5_Final(md5, &ctx); md5[16] = 0; md5[17] = 0; for (i = 0; i < 6; i++) { bits = (unsigned) md5[(3 * i)] << 16; bits |= (unsigned) md5[(3 * i) + 1] << 8; bits |= (unsigned) md5[(3 * i) + 2]; for (j = 3; j >= 0; j--) { b64[(4 * i) + j] = Base64[(bits & 0x3f)]; bits >>= 6; } } b64[22] = '\0'; str = b64; break; # endif /* HASHSPOOLMD5 */ } len = strlen(str); for (i = 0; i < HashDepth; i++) { if (i < len) p[i * 2] = str[i]; else p[i * 2] = '_'; p[(i * 2) + 1] = '/'; } p[HashDepth * 2] = '\0'; return p; } #endif /* HASHSPOOL */ /* * e_to_sys -- * Guess which errno's are temporary. Gag me. */ int e_to_sys(num) int num; { /* Temporary failures override hard errors. */ if (ExitVal == EX_TEMPFAIL) return ExitVal; switch (num) /* Hopefully temporary errors. */ { #ifdef EDQUOT case EDQUOT: /* Disc quota exceeded */ if (BounceQuota) { ExitVal = EX_UNAVAILABLE; break; } /* FALLTHROUGH */ #endif /* EDQUOT */ #ifdef EAGAIN case EAGAIN: /* Resource temporarily unavailable */ #endif #ifdef EBUSY case EBUSY: /* Device busy */ #endif #ifdef EPROCLIM case EPROCLIM: /* Too many processes */ #endif #ifdef EUSERS case EUSERS: /* Too many users */ #endif #ifdef ECONNABORTED case ECONNABORTED: /* Software caused connection abort */ #endif #ifdef ECONNREFUSED case ECONNREFUSED: /* Connection refused */ #endif #ifdef ECONNRESET case ECONNRESET: /* Connection reset by peer */ #endif #ifdef EDEADLK case EDEADLK: /* Resource deadlock avoided */ #endif #ifdef EFBIG case EFBIG: /* File too large */ #endif #ifdef EHOSTDOWN case EHOSTDOWN: /* Host is down */ #endif #ifdef EHOSTUNREACH case EHOSTUNREACH: /* No route to host */ #endif #ifdef EMFILE case EMFILE: /* Too many open files */ #endif #ifdef ENETDOWN case ENETDOWN: /* Network is down */ #endif #ifdef ENETRESET case ENETRESET: /* Network dropped connection on reset */ #endif #ifdef ENETUNREACH case ENETUNREACH: /* Network is unreachable */ #endif #ifdef ENFILE case ENFILE: /* Too many open files in system */ #endif #ifdef ENOBUFS case ENOBUFS: /* No buffer space available */ #endif #ifdef ENOMEM case ENOMEM: /* Cannot allocate memory */ #endif #ifdef ENOSPC case ENOSPC: /* No space left on device */ #endif #ifdef EROFS case EROFS: /* Read-only file system */ #endif #ifdef ESTALE case ESTALE: /* Stale NFS file handle */ #endif #ifdef ETIMEDOUT case ETIMEDOUT: /* Connection timed out */ #endif #if defined(EWOULDBLOCK) && EWOULDBLOCK != EAGAIN && EWOULDBLOCK != EDEADLK case EWOULDBLOCK: /* Operation would block. */ #endif ExitVal = EX_TEMPFAIL; break; default: ExitVal = EX_UNAVAILABLE; break; } return ExitVal; } #if defined(ultrix) || defined(_CRAY) /* * Copyright (c) 1987, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ # if defined(LIBC_SCCS) && !defined(lint) static char sccsid[] = "@(#)mktemp.c 8.1 (Berkeley) 6/4/93"; # endif # include # include # include # include # include # include static int _gettemp(); mkstemp(path) char *path; { int fd; return (_gettemp(path, &fd) ? fd : -1); } static _gettemp(path, doopen) char *path; register int *doopen; { extern int errno; register char *start, *trv; struct stat sbuf; unsigned int pid; pid = getpid(); for (trv = path; *trv; ++trv); /* extra X's get set to 0's */ while (*--trv == 'X') { *trv = (pid % 10) + '0'; pid /= 10; } /* * check the target directory; if you have six X's and it * doesn't exist this runs for a *very* long time. */ for (start = trv + 1;; --trv) { if (trv <= path) break; if (*trv == '/') { *trv = '\0'; if (stat(path, &sbuf) < 0) return(0); if (!S_ISDIR(sbuf.st_mode)) { errno = ENOTDIR; return(0); } *trv = '/'; break; } } for (;;) { if (doopen) { if ((*doopen = open(path, O_CREAT|O_EXCL|O_RDWR, 0600)) >= 0) return(1); if (errno != EEXIST) return(0); } else if (stat(path, &sbuf) < 0) return(errno == ENOENT ? 1 : 0); /* tricky little algorithm for backward compatibility */ for (trv = start;;) { if (!*trv) return(0); if (*trv == 'z') *trv++ = 'a'; else { if (isascii(*trv) && isdigit(*trv)) *trv = 'a'; else ++*trv; break; } } } /* NOTREACHED */ } #endif /* defined(ultrix) || defined(_CRAY) */ sendmail-8.18.1/mail.local/mail.local.80000644000372400037240000000725614556365350017120 0ustar xbuildxbuild.\" Copyright (c) 1998-2001, 2003 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" Copyright (c) 1990, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: mail.local.8,v 8.26 2013-11-22 20:51:51 ca Exp $ .\" .TH MAIL.LOCAL 8 "$Date: 2013-11-22 20:51:51 $" .SH NAME mail.local \- store mail in a mailbox .SH SYNOPSIS .B mail.local .RB [ \-7 "] [" \-b "] [" \-d "] [" \-D .IR mbdb ] .RB [ \-l "] [" \-f \fIfrom\fR|\fB\-r\fR .IR from ] .RB [ \-h \fIfilename\fR ] .I "user ..." .SH DESCRIPTION .B Mail.local reads the standard input up to an end-of-file and appends it to each .I user's .B mail file. The .I user must be a valid user name. .PP The options are as follows: .TP 1i .B \-7 Do not advertise 8BITMIME support in LMTP mode. .TP .B \-b Return a permanent error instead of a temporary error if a mailbox exceeds quota. .TP .B \-d Specify this is a delivery (for backward compatibility). This option has no effect. .TP .BI \-D " mbdb" Specify the name of the mailbox database which is used to look up local recipient names. This option defaults to "pw", which means use getpwnam(). .TP .BI \-f " from" Specify the sender's name. .TP .B \-l Turn on LMTP mode. .TP .BI \-r " from" Specify the sender's name (for backward compatibility). Same as \-f. .TP .BI \-h " filename" Store incoming mail in \fIfilename\fR in the user's home directory instead of a system mail spool directory. .PP The next options are only available if .B mail.local has been compiled with -DHASHSPOOL. .TP .BI \-H " hashtypehashdepth" Select hashed mail directories. Valid hash types are .B u for user name and .B m for MD5 (requires compilation with -DHASHSPOOLMD5). Example: .BI \-H " u2" selects user name hashing with a hash depth of 2. Note: there must be no space between the hash type and the depth. .TP .BI \-p " path" Specify an alternate mail spool path. .TP .BI \-n Specify that the domain part of recipient addresses in LMTP mode should not be stripped. .PP Individual mail messages in the mailbox are delimited by an empty line followed by a line beginning with the string ``From ''. A line containing the string ``From '', the sender's name and a time stamp is prepended to each delivered mail message. A blank line is appended to each message. A greater-than character (``>'') is prepended to any line in the message which could be mistaken for a ``From '' delimiter line (that is, a line beginning with the five characters ``From '' following a blank line). .PP The mail files are exclusively locked with flock(2) while mail is appended, and a .B user.lock file also is created while the mailbox is locked for compatibility with older MUAs. .PP If the ``biff'' service is returned by getservbyname(3), the biff server is notified of delivered mail. .PP The .B mail.local utility exits 0 on success, and >0 if an error occurs. .SH ENVIRONMENT .IP TZ Used to set the appropriate time zone on the timestamp. .SH FILES .PD 0.2v .TP 2.2i /tmp/local.XXXXXX temporary files .TP /var/mail/user user's default mailbox directory .TP /var/mail/user.lock lock file for a user's default mailbox .PD .SH SEE ALSO mail(1), xsend(1), flock(2), getservbyname(3), comsat(8), sendmail(8) .SH WARNING .B mail.local escapes only "^From " lines that follow an empty line. If all lines starting with "From " should be escaped, use the 'E' flag for the local mailer in the sendmail.cf file. .SH HISTORY A superset of .B mail.local (handling mailbox reading as well as mail delivery) appeared in Version 7 AT&T UNIX as the program .BR mail . sendmail-8.18.1/mail.local/Makefile0000644000372400037240000000061614556365350016445 0ustar xbuildxbuild# $Id: Makefile,v 8.5 1999-10-05 16:39:32 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ force-install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/mail.local/Build0000755000372400037240000000052014556365350015764 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.5 2013-11-22 20:51:51 ca Exp $ exec ../devtools/bin/Build $* sendmail-8.18.1/mail.local/README0000644000372400037240000000543314556365350015667 0ustar xbuildxbuildThis directory contains the source files for mail.local. This is not intended to be used on *stock* System V derived systems such as Solaris or HP-UX, since they use a totally different approach to mailboxes (essentially, they have a set-group-ID program rather than set-user-ID, and they rely on the ability to "give away" files to do their work). If you choose to run *this* mail.local on these systems then you may also need to replace the existing MUAs, as well as IMAP and POP servers, with ones that are compatible with the BSD interface. You have been warned! For systems with maillock() support, compile with -DMAILLOCK and link with -lmail to use the maillock() routines. This can be accomplished in your site.config.m4 file with: APPENDDEF(`conf_mail_local_ENVDEF', `-DMAILLOCK') APPENDDEF(`conf_mail_local_LIBS', `-lmail') Defining CONTENTLENGTH (-DCONTENTLENGTH) will build a mail.local which outputs a Content-Length: header. Solaris 2.3 and later will automatically include Content-Length: support. This can be accomplished in your site.config.m4 file with: APPENDDEF(`conf_mail_local_ENVDEF', `-DCONTENTLENGTH') Defining MAILGID to a 'gid' (-DMAILGID=6) will cause mailboxes to be written group writable and with group 'gid'. This can be accomplished in your site.config.m4 file with: APPENDDEF(`conf_mail_local_ENVDEF', `-DMAILGID=6') mail.local will not be installed set-user-ID root. To use it as local delivery agent without LMTP mode, use: MODIFY_MAILER_FLAGS(`LOCAL', `+S') in the .mc file. Defining HASHSPOOL (-DHASHSPOOL) will build a mail.local which supports delivering to subdirectories of the mail spool, based on a hash of the username (i.e., a hash depth of 2 and a username of "user" will result in /var/spool/mail/u/s/user). If the hash depth is greater than the length of the username, "_" will be used. The necessary subdirectories must exist; mail.local will not create them. Use the "-H" option to set the hash type and depth (like "-H u2" for a username hash two levels deep). The HASHSPOOL option also adds two other options: "-p path" to specify an alternate mail spool path (i.e., "-p /local/mail") and "-n" to specify that mail.local should not strip the @domain part of recipient addresses in LMTP mode. In addition to HASHSPOOL, defining HASHSPOOLMD5 and linking against libcrypto from OpenSSL like: APPENDDEF(`conf_mail_local_ENVDEF', `-DHASHSPOOL -DHASHSPOOLMD5') APPENDDEF(`conf_mail_local_LIBS', `-lcrypto') will offer an alternate hash, using a base64 encoding (changing / to _) of an MD5 hash of the username. This results in a more balanced subdirectory tree. The subdirectories will be named with A-Z, a-z, 0-9, +, and _. The hash type is "m", so use "-H m3" to get a three level MD5 based hash. $Revision: 8.11 $, Last updated $Date: 2003-10-20 20:19:13 $ sendmail-8.18.1/CACerts0000644000372400037240000001270014556365350014176 0ustar xbuildxbuild# This file contains some CA certificates that are used to sign the # certificates of mail servers of members of the sendmail consortium # who may reply to questions etc sent to support.sendmail.org. # It is useful to allow connections from those MTAs which can present # a certificate signed by one of these CA certificates. # Certificate: Data: Version: 3 (0x2) Serial Number: 92:a1:3b:d3:90:0b:ea:a7 Signature Algorithm: sha256WithRSAEncryption Issuer: C=US, ST=California, L=Berkeley, O=Endmail Org, OU=MTA, CN=CA/emailAddress=ca+ca-rsa2021@esmtp.org Validity Not Before: Feb 25 17:44:02 2021 GMT Not After : Feb 25 17:44:02 2024 GMT Subject: C=US, ST=California, L=Berkeley, O=Endmail Org, OU=MTA, CN=CA/emailAddress=ca+ca-rsa2021@esmtp.org Subject Public Key Info: Public Key Algorithm: rsaEncryption Public-Key: (2048 bit) Modulus: 00:cc:8c:39:bd:cf:55:4f:66:2a:78:c7:65:47:81: dd:d1:3f:08:12:4b:87:40:48:95:5c:24:52:65:a1: 82:1c:f4:90:a1:7c:f7:27:8f:02:e5:cb:ac:89:ae: b8:25:4e:26:da:14:20:07:29:a4:59:03:61:b4:44: ae:45:55:b4:72:7d:66:9a:88:de:59:bf:6f:31:23: 06:29:ab:c2:b9:a0:6c:6a:5d:d0:ac:e6:b8:ac:8a: 6f:5e:bb:f3:19:b5:8d:e1:df:2e:d1:7f:1a:bc:2c: 13:10:65:46:7f:68:c7:60:49:c6:30:4e:a0:24:ed: d4:a8:27:cf:b2:d0:c5:7c:96:47:82:b6:f1:17:0a: 5a:35:82:0b:85:0f:17:71:a9:bd:3a:4c:e6:32:95: 3e:68:f7:3d:f5:04:33:16:19:1e:4c:0a:04:c3:1f: 9e:ba:db:e2:0d:29:c8:3f:29:cf:47:cb:11:db:d2: cd:d0:26:2f:35:eb:7d:a2:60:18:e7:7b:a2:43:15: 59:d7:ea:9d:38:60:f1:48:df:57:54:df:8a:50:b9: e3:5c:72:82:51:b7:05:78:c2:14:08:71:71:1c:06: 44:4a:85:73:08:a8:49:50:b2:d2:fb:da:a2:a5:5a: 36:49:a8:4b:38:56:f6:67:0f:12:34:39:cc:fb:9c: bd:d3 Exponent: 65537 (0x10001) X509v3 extensions: X509v3 Subject Key Identifier: 86:F0:F9:7A:CD:66:A9:16:CC:A3:26:08:3D:B3:B2:42:C2:E5:A9:13 X509v3 Authority Key Identifier: keyid:86:F0:F9:7A:CD:66:A9:16:CC:A3:26:08:3D:B3:B2:42:C2:E5:A9:13 DirName:/C=US/ST=California/L=Berkeley/O=Endmail Org/OU=MTA/CN=CA/emailAddress=ca+ca-rsa2021@esmtp.org serial:92:A1:3B:D3:90:0B:EA:A7 X509v3 Basic Constraints: CA:TRUE X509v3 Subject Alternative Name: email:ca+ca-rsa2021@esmtp.org X509v3 Issuer Alternative Name: email:ca+ca-rsa2021@esmtp.org Signature Algorithm: sha256WithRSAEncryption 41:14:09:49:01:5f:51:ff:20:7b:c2:41:79:9d:11:3c:7c:48: d6:43:d4:c6:0d:55:e6:76:bb:2c:c7:fb:dd:10:53:79:30:1a: 35:64:2c:d0:64:b6:5a:fd:a9:d3:e3:09:8c:7d:22:81:b7:71: a6:7d:bf:80:24:79:24:c1:61:6d:54:ab:14:4b:5a:54:cb:75: 47:2e:e5:51:6f:cb:91:b6:a7:e8:aa:8d:78:c5:7e:05:56:3b: 31:02:bd:0c:e4:af:78:27:7d:6d:bf:fd:0f:0d:2a:00:1d:cc: a2:34:4d:a3:9e:70:45:89:56:2d:d2:35:ee:26:ea:0f:9d:fc: c0:2c:64:f6:55:af:de:e0:72:64:e2:20:8f:e2:f2:e9:e2:6c: 3a:0c:45:23:dd:80:57:25:fa:18:bb:25:f8:7e:3c:3b:a7:ef: 40:f0:ba:6f:ce:b1:eb:f9:14:03:04:34:3d:e0:43:a6:8d:95: d0:a4:dc:df:e4:79:ce:8d:e2:1e:30:ff:55:0c:e6:9d:e4:1d: 62:cc:a5:4f:9a:6f:c0:b4:1f:05:7c:a7:c7:b1:72:58:98:ad: 2f:f9:8a:41:0c:48:d5:78:ad:af:eb:ff:59:0b:4a:99:26:5b: e8:8c:e3:e5:6b:01:d9:a0:db:a2:1b:d8:8e:f1:82:38:58:ba: 8c:11:65:36 -----BEGIN CERTIFICATE----- MIIE4jCCA8qgAwIBAgIJAJKhO9OQC+qnMA0GCSqGSIb3DQEBCwUAMIGOMQswCQYD VQQGEwJVUzETMBEGA1UECAwKQ2FsaWZvcm5pYTERMA8GA1UEBwwIQmVya2VsZXkx FDASBgNVBAoMC0VuZG1haWwgT3JnMQwwCgYDVQQLDANNVEExCzAJBgNVBAMMAkNB MSYwJAYJKoZIhvcNAQkBFhdjYStjYS1yc2EyMDIxQGVzbXRwLm9yZzAeFw0yMTAy MjUxNzQ0MDJaFw0yNDAyMjUxNzQ0MDJaMIGOMQswCQYDVQQGEwJVUzETMBEGA1UE CAwKQ2FsaWZvcm5pYTERMA8GA1UEBwwIQmVya2VsZXkxFDASBgNVBAoMC0VuZG1h aWwgT3JnMQwwCgYDVQQLDANNVEExCzAJBgNVBAMMAkNBMSYwJAYJKoZIhvcNAQkB FhdjYStjYS1yc2EyMDIxQGVzbXRwLm9yZzCCASIwDQYJKoZIhvcNAQEBBQADggEP ADCCAQoCggEBAMyMOb3PVU9mKnjHZUeB3dE/CBJLh0BIlVwkUmWhghz0kKF89yeP AuXLrImuuCVOJtoUIAcppFkDYbRErkVVtHJ9ZpqI3lm/bzEjBimrwrmgbGpd0Kzm uKyKb1678xm1jeHfLtF/GrwsExBlRn9ox2BJxjBOoCTt1Kgnz7LQxXyWR4K28RcK WjWCC4UPF3GpvTpM5jKVPmj3PfUEMxYZHkwKBMMfnrrb4g0pyD8pz0fLEdvSzdAm LzXrfaJgGOd7okMVWdfqnThg8UjfV1TfilC541xyglG3BXjCFAhxcRwGREqFcwio SVCy0vvaoqVaNkmoSzhW9mcPEjQ5zPucvdMCAwEAAaOCAT8wggE7MB0GA1UdDgQW BBSG8Pl6zWapFsyjJgg9s7JCwuWpEzCBwwYDVR0jBIG7MIG4gBSG8Pl6zWapFsyj Jgg9s7JCwuWpE6GBlKSBkTCBjjELMAkGA1UEBhMCVVMxEzARBgNVBAgMCkNhbGlm b3JuaWExETAPBgNVBAcMCEJlcmtlbGV5MRQwEgYDVQQKDAtFbmRtYWlsIE9yZzEM MAoGA1UECwwDTVRBMQswCQYDVQQDDAJDQTEmMCQGCSqGSIb3DQEJARYXY2ErY2Et cnNhMjAyMUBlc210cC5vcmeCCQCSoTvTkAvqpzAMBgNVHRMEBTADAQH/MCIGA1Ud EQQbMBmBF2NhK2NhLXJzYTIwMjFAZXNtdHAub3JnMCIGA1UdEgQbMBmBF2NhK2Nh LXJzYTIwMjFAZXNtdHAub3JnMA0GCSqGSIb3DQEBCwUAA4IBAQBBFAlJAV9R/yB7 wkF5nRE8fEjWQ9TGDVXmdrssx/vdEFN5MBo1ZCzQZLZa/anT4wmMfSKBt3Gmfb+A JHkkwWFtVKsUS1pUy3VHLuVRb8uRtqfoqo14xX4FVjsxAr0M5K94J31tv/0PDSoA HcyiNE2jnnBFiVYt0jXuJuoPnfzALGT2Va/e4HJk4iCP4vLp4mw6DEUj3YBXJfoY uyX4fjw7p+9A8LpvzrHr+RQDBDQ94EOmjZXQpNzf5HnOjeIeMP9VDOad5B1izKVP mm/AtB8FfKfHsXJYmK0v+YpBDEjVeK2v6/9ZC0qZJlvojOPlawHZoNuiG9iO8YI4 WLqMEWU2 -----END CERTIFICATE----- sendmail-8.18.1/editmap/0000755000372400037240000000000014556365434014415 5ustar xbuildxbuildsendmail-8.18.1/editmap/editmap.c0000644000372400037240000002056714556365350016213 0ustar xbuildxbuild/* * Copyright (c) 1998-2002, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1992 Eric P. Allman. All rights reserved. * Copyright (c) 1992, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #ifndef lint SM_UNUSED(static char copyright[]) = "@(#) Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers.\n\ All rights reserved.\n\ Copyright (c) 1992 Eric P. Allman. All rights reserved.\n\ Copyright (c) 1992, 1993\n\ The Regents of the University of California. All rights reserved.\n"; #endif /* ! lint */ #ifndef lint SM_UNUSED(static char id[]) = "@(#)$Id: editmap.c,v 1.26 2013-11-22 20:51:26 ca Exp $"; #endif #include #ifndef ISC_UNIX # include #endif #include #include #include #ifdef EX_OK # undef EX_OK /* unistd.h may have another use for this */ #endif #include #include #include #include #include #include uid_t RealUid; gid_t RealGid; char *RealUserName; uid_t RunAsUid; gid_t RunAsGid; char *RunAsUserName; int Verbose = 2; bool DontInitGroups = false; uid_t TrustedUid = 0; BITMAP256 DontBlameSendmail; #define BUFSIZE 1024 #define ISSEP(c) (isascii(c) && isspace(c)) static void usage __P((char *)); static void usage(progname) char *progname; { fprintf(stderr, "Usage: %s [-C cffile] [-N] [-f] [-q|-u|-x] maptype mapname key [ \"value ...\" ]\n", progname); exit(EX_USAGE); } int main(argc, argv) int argc; char **argv; { char *progname; char *cfile; bool query = false; bool update = false; bool remove = false; bool inclnull = false; bool foldcase = true; unsigned int nops = 0; int exitstat; int opt; char *typename = NULL; char *mapname = NULL; char *keyname = NULL; char *value = NULL; int mode; int smode; int putflags = 0; long sff = SFF_ROOTOK|SFF_REGONLY; struct passwd *pw; SMDB_DATABASE *database; SMDB_DBENT db_key, db_val; SMDB_DBPARAMS params; SMDB_USER_INFO user_info; #if HASFCHOWN FILE *cfp; char buf[MAXLINE]; #endif static char rnamebuf[MAXNAME]; /* holds RealUserName */ extern char *optarg; extern int optind; memset(¶ms, '\0', sizeof params); params.smdbp_cache_size = 1024 * 1024; progname = strrchr(argv[0], '/'); if (progname != NULL) progname++; else progname = argv[0]; cfile = _PATH_SENDMAILCF; clrbitmap(DontBlameSendmail); RunAsUid = RealUid = getuid(); RunAsGid = RealGid = getgid(); pw = getpwuid(RealUid); if (pw != NULL) (void) sm_strlcpy(rnamebuf, pw->pw_name, sizeof rnamebuf); else (void) sm_snprintf(rnamebuf, sizeof rnamebuf, "Unknown UID %d", (int) RealUid); RunAsUserName = RealUserName = rnamebuf; user_info.smdbu_id = RunAsUid; user_info.smdbu_group_id = RunAsGid; (void) sm_strlcpy(user_info.smdbu_name, RunAsUserName, SMDB_MAX_USER_NAME_LEN); #define OPTIONS "C:fquxN" while ((opt = getopt(argc, argv, OPTIONS)) != -1) { switch (opt) { case 'C': cfile = optarg; break; case 'f': foldcase = false; break; case 'q': query = true; nops++; break; case 'u': update = true; nops++; break; case 'x': remove = true; nops++; break; case 'N': inclnull = true; break; default: usage(progname); assert(0); /* NOTREACHED */ } } if (!bitnset(DBS_WRITEMAPTOSYMLINK, DontBlameSendmail)) sff |= SFF_NOSLINK; if (!bitnset(DBS_WRITEMAPTOHARDLINK, DontBlameSendmail)) sff |= SFF_NOHLINK; if (!bitnset(DBS_LINKEDMAPINWRITABLEDIR, DontBlameSendmail)) sff |= SFF_NOWLINK; argc -= optind; argv += optind; if ((nops != 1) || (query && argc != 3) || (remove && argc != 3) || (update && argc <= 3)) { usage(progname); assert(0); /* NOTREACHED */ } typename = argv[0]; mapname = argv[1]; keyname = argv[2]; if (update) value = argv[3]; if (foldcase) { char *lower; lower = makelower(keyname); /* if it is different then it is a static variable */ if (keyname != lower) keyname = lower; } #if HASFCHOWN /* Find TrustedUser value in sendmail.cf */ if ((cfp = fopen(cfile, "r")) == NULL) { fprintf(stderr, "%s: %s: %s\n", progname, cfile, sm_errstring(errno)); exit(EX_NOINPUT); } while (fgets(buf, sizeof(buf), cfp) != NULL) { register char *b; if ((b = strchr(buf, '\n')) != NULL) *b = '\0'; b = buf; switch (*b++) { case 'O': /* option */ if (strncasecmp(b, " TrustedUser", 12) == 0 && !(isascii(b[12]) && isalnum(b[12]))) { b = strchr(b, '='); if (b == NULL) continue; while (isascii(*++b) && isspace(*b)) continue; if (isascii(*b) && isdigit(*b)) TrustedUid = atoi(b); else { TrustedUid = 0; pw = getpwnam(b); if (pw == NULL) fprintf(stderr, "TrustedUser: unknown user %s\n", b); else TrustedUid = pw->pw_uid; } # ifdef UID_MAX if (TrustedUid > UID_MAX) { fprintf(stderr, "TrustedUser: uid value (%ld) > UID_MAX (%ld)", (long) TrustedUid, (long) UID_MAX); TrustedUid = 0; } # endif /* UID_MAX */ break; } default: continue; } } (void) fclose(cfp); #endif /* HASFCHOWN */ if (query) { mode = O_RDONLY; smode = S_IRUSR; } else { mode = O_RDWR | O_CREAT; sff |= SFF_CREAT|SFF_NOTEXCL; smode = S_IWUSR; } params.smdbp_num_elements = 4096; errno = smdb_open_database(&database, mapname, mode, smode, sff, typename, &user_info, ¶ms); if (errno != SMDBE_OK) { char *hint; if (errno == SMDBE_UNSUPPORTED_DB_TYPE && (hint = smdb_db_definition(typename)) != NULL) fprintf(stderr, "%s: Need to recompile with -D%s for %s support\n", progname, hint, typename); else fprintf(stderr, "%s: error opening type %s map %s: %s\n", progname, typename, mapname, sm_errstring(errno)); exit(EX_CANTCREAT); } (void) database->smdb_sync(database, 0); if (geteuid() == 0 && TrustedUid != 0) { errno = database->smdb_set_owner(database, TrustedUid, -1); if (errno != SMDBE_OK) { fprintf(stderr, "WARNING: ownership change on %s failed %s", mapname, sm_errstring(errno)); } } exitstat = EX_OK; if (query) { memset(&db_key, '\0', sizeof db_key); memset(&db_val, '\0', sizeof db_val); db_key.data = keyname; db_key.size = strlen(keyname); if (inclnull) db_key.size++; errno = database->smdb_get(database, &db_key, &db_val, 0); if (errno != SMDBE_OK) { /* XXX - Need to distinguish between not found */ fprintf(stderr, "%s: couldn't find key %s in map %s\n", progname, keyname, mapname); exitstat = EX_UNAVAILABLE; } else { printf("%.*s\n", (int) db_val.size, (char *) db_val.data); } } else if (update) { memset(&db_key, '\0', sizeof db_key); memset(&db_val, '\0', sizeof db_val); db_key.data = keyname; db_key.size = strlen(keyname); if (inclnull) db_key.size++; db_val.data = value; db_val.size = strlen(value); if (inclnull) db_val.size++; errno = database->smdb_put(database, &db_key, &db_val, putflags); if (errno != SMDBE_OK) { fprintf(stderr, "%s: error updating (%s, %s) in map %s: %s\n", progname, keyname, value, mapname, sm_errstring(errno)); exitstat = EX_IOERR; } } else if (remove) { memset(&db_key, '\0', sizeof db_key); memset(&db_val, '\0', sizeof db_val); db_key.data = keyname; db_key.size = strlen(keyname); if (inclnull) db_key.size++; errno = database->smdb_del(database, &db_key, 0); switch (errno) { case SMDBE_NOT_FOUND: fprintf(stderr, "%s: key %s doesn't exist in map %s\n", progname, keyname, mapname); /* Don't set exitstat */ break; case SMDBE_OK: /* All's well */ break; default: fprintf(stderr, "%s: couldn't remove key %s in map %s (error)\n", progname, keyname, mapname); exitstat = EX_IOERR; break; } } else { assert(0); /* NOT REACHED */ } /* ** Now close the database. */ errno = database->smdb_close(database); if (errno != SMDBE_OK) { fprintf(stderr, "%s: close(%s): %s\n", progname, mapname, sm_errstring(errno)); exitstat = EX_IOERR; } smdb_free_database(database); exit(exitstat); /* NOTREACHED */ return exitstat; } sendmail-8.18.1/editmap/Makefile.m40000644000372400037240000000124014556365350016366 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 1.6 2006-06-28 21:08:01 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_LIBSM', `true') define(`confREQUIRE_SM_OS_H', `true') # sendmail dir SMSRCDIR= ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confENVDEF', `confMAPDEF') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`executable', `editmap') define(`bldSOURCES', `editmap.c ') define(`bldINSTALL_DIR', `S') bldPUSH_SMLIB(`sm') bldPUSH_SMLIB(`smutil') bldPUSH_SMLIB(`smdb') APPENDDEF(`confENVDEF', `-DNOT_SENDMAIL') bldPRODUCT_END bldPRODUCT_START(`manpage', `editmap') define(`bldSOURCES', `editmap.8') bldPRODUCT_END bldFINISH sendmail-8.18.1/editmap/editmap.80000644000372400037240000000447714556365350016142 0ustar xbuildxbuild.\" Copyright (c) 2000-2001, 2003 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: editmap.8,v 1.10 2013-11-22 20:51:26 ca Exp $ .\" .TH EDITMAP 8 "$Date: 2013-11-22 20:51:26 $" .SH NAME .B editmap \- query and edit single records in database maps for sendmail .SH SYNOPSIS .B editmap .RB [ \-C .IR file ] .RB [ \-N ] .RB [ \-f ] .RB [ \-q|\-u|\-x ] maptype mapname key [ "value ..." ] .SH DESCRIPTION .B Editmap queries or edits one record in database maps used by the keyed map lookups in sendmail(8). Arguments are passed on the command line and output (for queries) is directed to standard output. .PP Depending on how it is compiled, .B editmap handles different database formats, selected using the .I maptype parameter. They may be .TP dbm DBM format maps. This requires the ndbm(3) library. .TP btree B-Tree format maps. This requires the new Berkeley DB library. .TP hash Hash format maps. This also requires the Berkeley DB library. .TP cdb CDB (Constant DataBase) format maps. This requires the tinycdb library. .PP If the .I TrustedUser option is set in the sendmail configuration file and .B editmap is invoked as root, the generated files will be owned by the specified .IR TrustedUser. .SS Flags .TP .B \-C Use the specified .B sendmail configuration file for looking up the TrustedUser option. .TP .B \-N Include the null byte that terminates strings in the map (for alias maps). .TP .B \-f Normally all upper case letters in the key are folded to lower case. This flag disables that behaviour. This is intended to mesh with the \-f flag in the .B K line in sendmail.cf. The value is never case folded. .TP .B \-q Query the map for the specified key. If found, print value to standard output and exit with 0. If not found then print an error message to stdout and exit with EX_UNAVAILABLE. .TP .B \-u Update the record for .I key with .I value or inserts a new record if one doesn't exist. Exits with 0 on success or EX_IOERR on failure. .TP .B \-x Deletes the specific key from the map. Exits with 0 on success or EX_IOERR on failure. .TP .SH SEE ALSO sendmail(8), makemap(8) .SH HISTORY The .B editmap command has no history. sendmail-8.18.1/editmap/Makefile0000644000372400037240000000053214556365350016052 0ustar xbuildxbuild# $Id: Makefile,v 1.1 2000-08-31 16:19:25 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/editmap/Build0000755000372400037240000000052514556365350015401 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 1.3 2013-11-22 20:51:26 ca Exp $ exec ../devtools/bin/Build $* sendmail-8.18.1/editmap/editmap.00000644000372400037240000000522214556365426016123 0ustar xbuildxbuildEDITMAP(8) EDITMAP(8) NNAAMMEE eeddiittmmaapp - query and edit single records in database maps for sendmail SSYYNNOOPPSSIISS eeddiittmmaapp [--CC _f_i_l_e] [--NN] [--ff] [--qq||--uu||--xx] maptype mapname key [ "value ..." ] DDEESSCCRRIIPPTTIIOONN EEddiittmmaapp queries or edits one record in database maps used by the keyed map lookups in sendmail(8). Arguments are passed on the command line and output (for queries) is directed to standard output. Depending on how it is compiled, eeddiittmmaapp handles different database formats, selected using the _m_a_p_t_y_p_e parameter. They may be dbm DBM format maps. This requires the ndbm(3) library. btree B-Tree format maps. This requires the new Berkeley DB library. hash Hash format maps. This also requires the Berkeley DB library. cdb CDB (Constant DataBase) format maps. This requires the tinycdb library. If the _T_r_u_s_t_e_d_U_s_e_r option is set in the sendmail configuration file and eeddiittmmaapp is invoked as root, the generated files will be owned by the specified _T_r_u_s_t_e_d_U_s_e_r_. FFllaaggss --CC Use the specified sseennddmmaaiill configuration file for looking up the TrustedUser option. --NN Include the null byte that terminates strings in the map (for alias maps). --ff Normally all upper case letters in the key are folded to lower case. This flag disables that behaviour. This is intended to mesh with the -f flag in the KK line in sendmail.cf. The value is never case folded. --qq Query the map for the specified key. If found, print value to standard output and exit with 0. If not found then print an error message to stdout and exit with EX_UNAVAILABLE. --uu Update the record for _k_e_y with _v_a_l_u_e or inserts a new record if one doesn't exist. Exits with 0 on success or EX_IOERR on fail- ure. --xx Deletes the specific key from the map. Exits with 0 on success or EX_IOERR on failure. SSEEEE AALLSSOO sendmail(8), makemap(8) HHIISSTTOORRYY The eeddiittmmaapp command has no history. $Date: 2013-11-22 20:51:26 $ EDITMAP(8) sendmail-8.18.1/vacation/0000755000372400037240000000000014556365434014576 5ustar xbuildxbuildsendmail-8.18.1/vacation/Makefile.m40000644000372400037240000000120714556365350016552 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.26 2006-06-28 21:08:05 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_LIBSM', `true') define(`confREQUIRE_SM_OS_H', `true') # sendmail dir SMSRCDIR= ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confENVDEF', `confMAPDEF') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`executable', `vacation') define(`bldSOURCES', `vacation.c ') bldPUSH_SMLIB(`sm') bldPUSH_SMLIB(`smutil') bldPUSH_SMLIB(`smdb') APPENDDEF(`confENVDEF', `-DNOT_SENDMAIL') bldPRODUCT_END bldPRODUCT_START(`manpage', `vacation') define(`bldSOURCES', `vacation.1') bldPRODUCT_END bldFINISH sendmail-8.18.1/vacation/vacation.10000644000372400037240000001502014556365350016457 0ustar xbuildxbuild.\" Copyright (c) 1999-2002 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" Copyright (c) 1985, 1987, 1990, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: vacation.1,v 8.35 2013-11-22 20:52:02 ca Exp $ .\" .TH VACATION 1 "$Date: 2013-11-22 20:52:02 $" .SH NAME vacation \- E-mail auto-responder .SH SYNOPSIS .B vacation .RB [ \-a .IR alias ] .RB [ \-C .IR cffile ] .RB [ \-d ] .RB [ \-f .IR database ] .RB [ \-i ] .RB [ \-I ] .RB [ \-j ] .RB [ \-l ] .RB [ \-m .IR message ] .RB [ \-R .IR returnaddr ] .RB [ \-r .IR interval ] .RB [ \-s .IR address ] .RB [ \-t .IR time ] .RB [ \-U ] .RB [ \-x ] .RB [ \-z ] .I login .SH DESCRIPTION .B Vacation returns a message, .IR ~/.vacation.msg by default, to the sender informing them that you are currently not reading your mail. The message is only sent to each sender once per reply interval (see .B \-r below). The intended use is in a .I .forward file. For example, your .I .forward file might have: .IP \eeric, "|/usr/bin/vacation -a allman eric" .PP which would send messages to you (assuming your login name was eric) and reply to any messages for ``eric'' or ``allman''. .PP Available options: .TP .BI \-a " alias" Handle messages for .I alias in the same manner as those received for the user's login name. .TP .BI \-C " cfpath" Specify pathname of the sendmail configuration file. This option is ignored if .B \-U is specified. This option defaults to the standard sendmail configuration file, located at /etc/mail/sendmail.cf on most systems. .TP .B \-d Send error/debug messages to stderr instead of syslog. Otherwise, fatal errors, such as calling .B vacation with incorrect arguments, or with non-existent .IR login s, are logged in the system log file, using syslog(8). This should only be used on the command line, not in your .I .forward file. .TP .BI \-f " filename" Use .I filename as name of the database instead of .IR ~/.vacation.db or .IR ~/.vacation.{dir,pag} . Unless the .I filename starts with / it is relative to ~. .TP .B \-i Initialize the vacation database files. It should be used before you modify your .I .forward file. This should only be used on the command line, not in your .I .forward file. .TP .B \-I Same as .B \-i (for backwards compatibility). This should only be used on the command line, not in your .I .forward file. .TP .B \-j Respond to the message regardless of whether the login is listed as a recipient for the message. Do not use this flag unless you are sure of the consequences. For example, this will cause .i vacation to reply to mailing list messages which may result in removing you from the list. .TP .B \-l List the content of the vacation database file including the address and the associated time of the last auto-response to that address. This should only be used on the command line, not in your .I .forward file. .TP .BI \-m " filename" Use .I filename as name of the file containing the message to send instead of .IR ~/.vacation.msg . Unless the .I filename starts with / it is relative to ~. .TP .BI \-R " returnaddr" Set the reply envelope sender address .TP .BI \-r " interval" Set the reply interval to .I interval days. The default is one week. An interval of ``0'' or ``infinite'' (actually, any non-numeric character) will never send more than one reply. The .B \-r option should only be used when the vacation database is initialized (see .B \-i above). .TP .BI \-s " address" Use .I address instead of the incoming message sender address on the .I From line as the recipient for the vacation message. .TP .BI \-t " time" Ignored, available only for compatibility with Sun's vacation program. .TP .B \-U Do not attempt to lookup .I login in the password file. The -f and -m options must be used to specify the database and message file since there is no home directory for the default settings for these options. .TP .B \-x Reads an exclusion list from stdin (one address per line). Mails coming from an address in this exclusion list won't get a reply by .BR vacation . It is possible to exclude complete domains by specifying ``@domain'' as element of the exclusion list. This should only be used on the command line, not in your .I .forward file. .TP .B \-z Set the sender of the vacation message to ``<>'' instead of the user. This probably violates the RFCs since vacation messages are not required by a standards-track RFC to have a null reverse-path. .PP .B Vacation reads the first line from the standard input for a UNIX ``From'' line to determine the sender. Sendmail(8) includes this ``From'' line automatically. It also scans the headers for a ``Return-Path:'' header to determine the sender. If both are present, the sender from the ``Return-Path:'' header is used. .PP No message will be sent unless .I login (or an .I alias supplied using the .B \-a option) is part of either the ``To:'' or ``Cc:'' headers of the mail. No messages from ``???-REQUEST'', ``???-RELAY'', ``???-OWNER'', ``OWNER-???'', ``Postmaster'', ``UUCP'', ``MAILER'', or ``MAILER-DAEMON'' will be replied to (where these strings are case insensitive) nor is a notification sent if a ``Precedence: bulk'', ``Precedence: list'', or ``Precedence: junk'' line is included in the mail headers. Likewise, a response will not be sent if the headers contain a ``Auto-Submitted:'' header with any value except ``no'' or a ``List-Id:'' header is found. The people who have sent you messages are maintained as a db(3) or dbm(3) database in the file .I .vacation.db or .I .vacation.{dir,pag} in your home directory. .PP .B Vacation expects a file .IR .vacation.msg , in your home directory, containing a message to be sent back to each sender. It should be an entire message (including headers). For example, it might contain: .IP .nf From: eric@CS.Berkeley.EDU (Eric Allman) Subject: I am on vacation Delivered-By-The-Graces-Of: The Vacation program Precedence: bulk I am on vacation until July 22. If you have something urgent, please contact Keith Bostic . --eric .fi .PP Any occurrence of the string ``$SUBJECT'' in .IR .vacation.msg will be replaced by the first line of the subject of the message that triggered the .B vacation program. .SH FILES .TP 1.8i ~/.vacation.db default database file for db(3) .TP 1.8i ~/.vacation.{dir,pag} default database file for dbm(3) .TP ~/.vacation.msg default message to send .SH SEE ALSO sendmail(8), syslog(8) .SH HISTORY The .B vacation command appeared in 4.3BSD. sendmail-8.18.1/vacation/vacation.c0000644000372400037240000006340614556365350016554 0ustar xbuildxbuild/* * Copyright (c) 1999-2002, 2009 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1987, 1993 * The Regents of the University of California. All rights reserved. * Copyright (c) 1983 Eric P. Allman. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_IDSTR(copyright, "@(#) Copyright (c) 1999-2002, 2009 Proofpoint, Inc. and its suppliers.\n\ All rights reserved.\n\ Copyright (c) 1983, 1987, 1993\n\ The Regents of the University of California. All rights reserved.\n\ Copyright (c) 1983 Eric P. Allman. All rights reserved.\n") SM_IDSTR(id, "@(#)$Id: vacation.c,v 8.148 2013-11-22 20:52:02 ca Exp $") #include #include #include #include #include #include #include #include #include #include #include #include #define ONLY_ONCE ((time_t) 0) /* send at most one reply */ #define INTERVAL_UNDEF ((time_t) (-1)) /* no value given */ uid_t RealUid; gid_t RealGid; char *RealUserName; uid_t RunAsUid; gid_t RunAsGid; char *RunAsUserName; int Verbose = 2; bool DontInitGroups = false; uid_t TrustedUid = 0; BITMAP256 DontBlameSendmail; static int readheaders __P((bool)); static bool junkmail __P((char *)); static bool nsearch __P((char *, char *)); static void usage __P((void)); static void setinterval __P((time_t)); static bool recent __P((void)); static void setreply __P((char *, time_t)); static void sendmessage __P((char *, char *, char *)); static void xclude __P((SM_FILE_T *)); /* ** VACATION -- return a message to the sender when on vacation. ** ** This program is invoked as a message receiver. It returns a ** message specified by the user to whomever sent the mail, taking ** care not to return a message too often to prevent "I am on ** vacation" loops. */ #define VDB ".vacation" /* vacation database */ #define VMSG ".vacation.msg" /* vacation message */ #define SECSPERDAY (60 * 60 * 24) #define DAYSPERWEEK 7 typedef struct alias { char *name; struct alias *next; } ALIAS; ALIAS *Names = NULL; SMDB_DATABASE *Db; char From[MAXLINE]; char Subject[MAXLINE]; bool CloseMBDB = false; #if defined(__hpux) || defined(__osf__) # ifndef SM_CONF_SYSLOG_INT # define SM_CONF_SYSLOG_INT 1 # endif #endif /* defined(__hpux) || defined(__osf__) */ #if SM_CONF_SYSLOG_INT # define SYSLOG_RET_T int # define SYSLOG_RET return 0 #else # define SYSLOG_RET_T void # define SYSLOG_RET #endif typedef SYSLOG_RET_T SYSLOG_T __P((int, const char *, ...)); SYSLOG_T *msglog = syslog; static SYSLOG_RET_T debuglog __P((int, const char *, ...)); static void eatmsg __P((void)); static void listdb __P((void)); /* exit after reading input */ #define EXITIT(excode) \ { \ eatmsg(); \ if (CloseMBDB) \ { \ sm_mbdb_terminate(); \ CloseMBDB = false; \ } \ return excode; \ } #define EXITM(excode) \ { \ if (!initdb && !list) \ eatmsg(); \ if (CloseMBDB) \ { \ sm_mbdb_terminate(); \ CloseMBDB = false; \ } \ exit(excode); \ } int main(argc, argv) int argc; char **argv; { bool alwaysrespond = false; bool initdb, exclude; bool runasuser = false; bool list = false; int mfail = 0, ufail = 0; int ch; int result; long sff; time_t interval; struct passwd *pw; ALIAS *cur; char *dbfilename = NULL; char *msgfilename = NULL; char *cfpath = NULL; char *name = NULL; char *returnaddr = NULL; SMDB_USER_INFO user_info; static char rnamebuf[MAXNAME]; extern int optind, opterr; extern char *optarg; /* Vars needed to link with smutil */ clrbitmap(DontBlameSendmail); RunAsUid = RealUid = getuid(); RunAsGid = RealGid = getgid(); pw = getpwuid(RealUid); if (pw != NULL) { if (strlen(pw->pw_name) > MAXNAME - 1) pw->pw_name[MAXNAME] = '\0'; sm_snprintf(rnamebuf, sizeof rnamebuf, "%s", pw->pw_name); } else sm_snprintf(rnamebuf, sizeof rnamebuf, "Unknown UID %d", (int) RealUid); RunAsUserName = RealUserName = rnamebuf; #ifdef LOG_MAIL openlog("vacation", LOG_PID, LOG_MAIL); #else openlog("vacation", LOG_PID); #endif opterr = 0; initdb = false; exclude = false; interval = INTERVAL_UNDEF; *From = '\0'; *Subject = '\0'; #define OPTIONS "a:C:df:Iijlm:R:r:s:t:Uxz" while (mfail == 0 && ufail == 0 && (ch = getopt(argc, argv, OPTIONS)) != -1) { switch((char)ch) { case 'a': /* alias */ cur = (ALIAS *) malloc((unsigned int) sizeof(ALIAS)); if (cur == NULL) { mfail++; break; } cur->name = optarg; cur->next = Names; Names = cur; break; case 'C': cfpath = optarg; break; case 'd': /* debug mode */ msglog = debuglog; break; case 'f': /* alternate database */ dbfilename = optarg; break; case 'I': /* backward compatible */ case 'i': /* init the database */ initdb = true; break; case 'j': alwaysrespond = true; break; case 'l': list = true; /* list the database */ break; case 'm': /* alternate message file */ msgfilename = optarg; break; case 'R': returnaddr = optarg; break; case 'r': if (isascii(*optarg) && isdigit(*optarg)) { interval = atol(optarg) * SECSPERDAY; if (interval < 0) ufail++; } else interval = ONLY_ONCE; break; case 's': /* alternate sender name */ (void) sm_strlcpy(From, optarg, sizeof From); break; case 't': /* SunOS: -t1d (default expire) */ break; case 'U': /* run as single user mode */ runasuser = true; break; case 'x': exclude = true; break; case 'z': returnaddr = "<>"; break; case '?': default: ufail++; break; } } argc -= optind; argv += optind; if (mfail != 0) { msglog(LOG_NOTICE, "vacation: can't allocate memory for alias"); EXITM(EX_TEMPFAIL); } if (ufail != 0) usage(); if (argc != 1) { if (!initdb && !list && !exclude) usage(); if ((pw = getpwuid(getuid())) == NULL) { msglog(LOG_ERR, "vacation: no such user uid %u", getuid()); EXITM(EX_NOUSER); } name = strdup(pw->pw_name); user_info.smdbu_id = pw->pw_uid; user_info.smdbu_group_id = pw->pw_gid; (void) sm_strlcpy(user_info.smdbu_name, pw->pw_name, SMDB_MAX_USER_NAME_LEN); if (chdir(pw->pw_dir) != 0) { msglog(LOG_NOTICE, "vacation: no such directory %s", pw->pw_dir); EXITM(EX_NOINPUT); } } else if (runasuser) { name = strdup(*argv); if (dbfilename == NULL || msgfilename == NULL) { msglog(LOG_NOTICE, "vacation: -U requires setting both -f and -m"); EXITM(EX_NOINPUT); } user_info.smdbu_id = pw->pw_uid; user_info.smdbu_group_id = pw->pw_gid; (void) sm_strlcpy(user_info.smdbu_name, pw->pw_name, SMDB_MAX_USER_NAME_LEN); } else { int err; SM_CF_OPT_T mbdbname; SM_MBDB_T user; cfpath = getcfname(0, 0, SM_GET_SENDMAIL_CF, cfpath); mbdbname.opt_name = "MailboxDatabase"; mbdbname.opt_val = "pw"; (void) sm_cf_getopt(cfpath, 1, &mbdbname); err = sm_mbdb_initialize(mbdbname.opt_val); if (err != EX_OK) { msglog(LOG_ERR, "vacation: can't open mailbox database: %s", sm_strexit(err)); EXITM(err); } CloseMBDB = true; err = sm_mbdb_lookup(*argv, &user); if (err == EX_NOUSER) { msglog(LOG_ERR, "vacation: no such user %s", *argv); EXITM(EX_NOUSER); } if (err != EX_OK) { msglog(LOG_ERR, "vacation: can't read mailbox database: %s", sm_strexit(err)); EXITM(err); } name = strdup(user.mbdb_name); if (chdir(user.mbdb_homedir) != 0) { msglog(LOG_NOTICE, "vacation: no such directory %s", user.mbdb_homedir); EXITM(EX_NOINPUT); } user_info.smdbu_id = user.mbdb_uid; user_info.smdbu_group_id = user.mbdb_gid; (void) sm_strlcpy(user_info.smdbu_name, user.mbdb_name, SMDB_MAX_USER_NAME_LEN); } if (name == NULL) { msglog(LOG_ERR, "vacation: can't allocate memory for username"); EXITM(EX_OSERR); } if (dbfilename == NULL) dbfilename = VDB; if (msgfilename == NULL) msgfilename = VMSG; sff = SFF_CREAT; if (getegid() != getgid()) { /* Allow a set-group-ID vacation binary */ RunAsGid = user_info.smdbu_group_id = getegid(); sff |= SFF_OPENASROOT; } if (getuid() == 0) { /* Allow root to initialize user's vacation databases */ sff |= SFF_OPENASROOT|SFF_ROOTOK; /* ... safely */ sff |= SFF_NOSLINK|SFF_NOHLINK|SFF_REGONLY; } result = smdb_open_database(&Db, dbfilename, O_CREAT|O_RDWR | (initdb ? O_TRUNC : 0), S_IRUSR|S_IWUSR, sff, SMDB_TYPE_DEFAULT, &user_info, NULL); if (result != SMDBE_OK) { msglog(LOG_NOTICE, "vacation: %s: %s", dbfilename, sm_errstring(result)); EXITM(EX_DATAERR); } if (list) { listdb(); (void) Db->smdb_close(Db); exit(EX_OK); } if (interval != INTERVAL_UNDEF) setinterval(interval); if (initdb && !exclude) { (void) Db->smdb_close(Db); exit(EX_OK); } if (exclude) { xclude(smioin); (void) Db->smdb_close(Db); EXITM(EX_OK); } if ((cur = (ALIAS *) malloc((unsigned int) sizeof(ALIAS))) == NULL) { msglog(LOG_NOTICE, "vacation: can't allocate memory for username"); (void) Db->smdb_close(Db); EXITM(EX_OSERR); } cur->name = name; cur->next = Names; Names = cur; result = readheaders(alwaysrespond); if (result == EX_OK && !recent()) { time_t now; (void) time(&now); setreply(From, now); (void) Db->smdb_close(Db); sendmessage(name, msgfilename, returnaddr); } else (void) Db->smdb_close(Db); if (result == EX_NOUSER) result = EX_OK; exit(result); } /* ** EATMSG -- read stdin till EOF ** ** Parameters: ** none. ** ** Returns: ** nothing. */ static void eatmsg() { /* ** read the rest of the e-mail and ignore it to avoid problems ** with EPIPE in sendmail */ while (getc(stdin) != EOF) continue; } /* ** READHEADERS -- read mail headers ** ** Parameters: ** alwaysrespond -- respond regardless of whether msg is to me ** ** Returns: ** a exit code: NOUSER if no reply, OK if reply, * if error ** ** Side Effects: ** may exit(). */ #define CLEANADDR(addr, type) \ { \ bool quoted = false; \ \ while (*addr != '\0') \ { \ /* escaped character */ \ if (*addr == '\\') \ { \ addr++; \ if (*addr == '\0') \ { \ msglog(LOG_NOTICE, \ "vacation: badly formatted \"%s\" line",\ type); \ EXITIT(EX_DATAERR); \ } \ } \ else if (*addr == '"') \ quoted = !quoted; \ else if (*addr == '\r' || *addr == '\n') \ break; \ else if (*addr == ' ' && !quoted) \ break; \ addr++; \ } \ if (quoted) \ { \ msglog(LOG_NOTICE, \ "vacation: badly formatted \"%s\" line", type); \ EXITIT(EX_DATAERR); \ } \ *addr = '\0'; \ } static int readheaders(alwaysrespond) bool alwaysrespond; { bool tome, cont; register char *p, *s; register ALIAS *cur; char buf[MAXLINE]; cont = false; tome = alwaysrespond; while (sm_io_fgets(smioin, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0 && *buf != '\n') { switch(*buf) { case 'A': /* "Auto-Submitted:" */ case 'a': cont = false; if (strlen(buf) <= 14 || strncasecmp(buf, "Auto-Submitted", 14) != 0 || (buf[14] != ':' && buf[14] != ' ' && buf[14] != '\t')) break; if ((p = strchr(buf, ':')) == NULL) break; while (*++p != '\0' && isascii(*p) && isspace(*p)) continue; if (*p == '\0') break; if ((s = strpbrk(p, " \t\r\n")) != NULL) *s = '\0'; /* Obey RFC3834: no auto-reply for auto-submitted mail */ if (strcasecmp(p, "no") != 0) EXITIT(EX_NOUSER); break; case 'F': /* "From " */ cont = false; if (strncmp(buf, "From ", 5) == 0) { p = buf + 5; CLEANADDR(p, "From "); /* ok since both strings have MAXLINE length */ if (*From == '\0') (void) sm_strlcpy(From, buf + 5, sizeof From); if ((p = strchr(buf + 5, '\n')) != NULL) *p = '\0'; if (junkmail(buf + 5)) EXITIT(EX_NOUSER); } break; case 'L': /* "List-Id:" */ case 'l': cont = false; if (strlen(buf) <= 7 || strncasecmp(buf, "List-Id", 7) != 0 || (buf[7] != ':' && buf[7] != ' ' && buf[7] != '\t')) break; if ((p = strchr(buf, ':')) == NULL) break; /* If we found a List-Id: header, don't send a reply */ EXITIT(EX_NOUSER); /* NOTREACHED */ break; case 'P': /* "Precedence:" */ case 'p': cont = false; if (strlen(buf) <= 10 || strncasecmp(buf, "Precedence", 10) != 0 || (buf[10] != ':' && buf[10] != ' ' && buf[10] != '\t')) break; if ((p = strchr(buf, ':')) == NULL) break; while (*++p != '\0' && isascii(*p) && isspace(*p)) continue; if (*p == '\0') break; if (strncasecmp(p, "junk", 4) == 0 || strncasecmp(p, "bulk", 4) == 0 || strncasecmp(p, "list", 4) == 0) EXITIT(EX_NOUSER); break; case 'R': /* Return-Path */ case 'r': cont = false; if (strlen(buf) <= 11 || strncasecmp(buf, "Return-Path", 11) != 0 || (buf[11] != ':' && buf[11] != ' ' && buf[11] != '\t')) break; if ((p = strchr(buf, ':')) == NULL) break; while (*++p != '\0' && isascii(*p) && isspace(*p)) continue; if (*p == '\0') break; (void) sm_strlcpy(From, p, sizeof From); p = From; CLEANADDR(p, "Return-Path:"); if (junkmail(From)) EXITIT(EX_NOUSER); break; case 'S': /* Subject */ case 's': cont = false; if (strlen(buf) <= 7 || strncasecmp(buf, "Subject", 7) != 0 || (buf[7] != ':' && buf[7] != ' ' && buf[7] != '\t')) break; if ((p = strchr(buf, ':')) == NULL) break; while (*++p != '\0' && isascii(*p) && isspace(*p)) continue; if (*p == '\0') break; (void) sm_strlcpy(Subject, p, sizeof Subject); if ((s = strpbrk(Subject, "\r\n")) != NULL) *s = '\0'; break; case 'C': /* "Cc:" */ case 'c': if (strncasecmp(buf, "Cc:", 3) != 0) break; cont = true; goto findme; case 'T': /* "To:" */ case 't': if (strncasecmp(buf, "To:", 3) != 0) break; cont = true; goto findme; default: if (!isascii(*buf) || !isspace(*buf) || !cont || tome) { cont = false; break; } findme: for (cur = Names; !tome && cur != NULL; cur = cur->next) tome = nsearch(cur->name, buf); } } if (!tome) EXITIT(EX_NOUSER); if (*From == '\0') { msglog(LOG_NOTICE, "vacation: no initial \"From \" line"); EXITIT(EX_DATAERR); } EXITIT(EX_OK); } /* ** NSEARCH -- do a nice, slow, search of a string for a substring. ** ** Parameters: ** name -- name to search. ** str -- string in which to search. ** ** Returns: ** is name a substring of str? */ static bool nsearch(name, str) register char *name, *str; { register size_t len; register char *s; len = strlen(name); for (s = str; *s != '\0'; ++s) { /* ** Check to make sure that the string matches and ** the previous character is not an alphanumeric and ** the next character after the match is not an alphanumeric. ** ** This prevents matching "eric" to "derick" while still ** matching "eric" to "". */ if (SM_STRNCASEEQ(name, s, len) && (s == str || !isascii(*(s - 1)) || !isalnum(*(s - 1))) && (!isascii(*(s + len)) || !isalnum(*(s + len)))) return true; } return false; } /* ** JUNKMAIL -- read the header and return if automagic/junk/bulk/list mail ** ** Parameters: ** from -- sender address. ** ** Returns: ** is this some automated/junk/bulk/list mail? */ struct ignore { char *name; size_t len; }; typedef struct ignore IGNORE_T; #define MAX_USER_LEN 256 /* maximum length of local part (sender) */ /* delimiters for the local part of an address */ #define isdelim(c) ((c) == '%' || (c) == '@' || (c) == '+') static bool junkmail(from) char *from; { bool quot; char *e; size_t len; IGNORE_T *cur; char sender[MAX_USER_LEN]; static IGNORE_T ignore[] = { { "postmaster", 10 }, { "uucp", 4 }, { "mailer-daemon", 13 }, { "mailer", 6 }, { NULL, 0 } }; static IGNORE_T ignorepost[] = { { "-request", 8 }, { "-relay", 6 }, { "-owner", 6 }, { NULL, 0 } }; static IGNORE_T ignorepre[] = { { "owner-", 6 }, { NULL, 0 } }; /* ** This is mildly amusing, and I'm not positive it's right; trying ** to find the "real" name of the sender, assuming that addresses ** will be some variant of: ** ** From site!site!SENDER%site.domain%site.domain@site.domain */ quot = false; e = from; len = 0; while (*e != '\0' && (quot || !isdelim(*e))) { if (*e == '"') { quot = !quot; ++e; continue; } if (*e == '\\') { if (*(++e) == '\0') { /* '\\' at end of string? */ break; } if (len < MAX_USER_LEN) sender[len++] = *e; ++e; continue; } if (*e == '!' && !quot) { len = 0; sender[len] = '\0'; } else if (len < MAX_USER_LEN) sender[len++] = *e; ++e; } if (len < MAX_USER_LEN) sender[len] = '\0'; else sender[MAX_USER_LEN - 1] = '\0'; if (len <= 0) return false; #if 0 if (quot) return false; /* syntax error... */ #endif /* test prefixes */ for (cur = ignorepre; cur->name != NULL; ++cur) { if (len >= cur->len && strncasecmp(cur->name, sender, cur->len) == 0) return true; } /* ** If the name is truncated, don't test the rest. ** We could extract the "tail" of the sender address and ** compare it it ignorepost, however, it seems not worth ** the effort. ** The address surely can't match any entry in ignore[] ** (as long as all of them are shorter than MAX_USER_LEN). */ if (len > MAX_USER_LEN) return false; /* test full local parts */ for (cur = ignore; cur->name != NULL; ++cur) { if (len == cur->len && strncasecmp(cur->name, sender, cur->len) == 0) return true; } /* test postfixes */ for (cur = ignorepost; cur->name != NULL; ++cur) { if (len >= cur->len && strncasecmp(cur->name, e - cur->len - 1, cur->len) == 0) return true; } return false; } #define VIT "__VACATION__INTERVAL__TIMER__" /* ** RECENT -- find out if user has gotten a vacation message recently. ** ** Parameters: ** none. ** ** Returns: ** true iff user has gotten a vacation message recently. */ static bool recent() { SMDB_DBENT key, data; time_t then, next; bool trydomain = false; int st; char *domain; memset(&key, '\0', sizeof key); memset(&data, '\0', sizeof data); /* get interval time */ key.data = VIT; key.size = sizeof(VIT); st = Db->smdb_get(Db, &key, &data, 0); if (st != SMDBE_OK) next = SECSPERDAY * DAYSPERWEEK; else memmove(&next, data.data, sizeof(next)); memset(&data, '\0', sizeof data); /* get record for this address */ key.data = From; key.size = strlen(From); do { st = Db->smdb_get(Db, &key, &data, 0); if (st == SMDBE_OK) { memmove(&then, data.data, sizeof(then)); if (next == ONLY_ONCE || then == ONLY_ONCE || then + next > time(NULL)) return true; } if ((trydomain = !trydomain) && (domain = strchr(From, '@')) != NULL) { key.data = domain; key.size = strlen(domain); } } while (trydomain); return false; } /* ** SETINTERVAL -- store the reply interval ** ** Parameters: ** interval -- time interval for replies. ** ** Returns: ** nothing. ** ** Side Effects: ** stores the reply interval in database. */ static void setinterval(interval) time_t interval; { SMDB_DBENT key, data; memset(&key, '\0', sizeof key); memset(&data, '\0', sizeof data); key.data = VIT; key.size = sizeof(VIT); data.data = (char*) &interval; data.size = sizeof(interval); (void) (Db->smdb_put)(Db, &key, &data, 0); } /* ** SETREPLY -- store that this user knows about the vacation. ** ** Parameters: ** from -- sender address. ** when -- last reply time. ** ** Returns: ** nothing. ** ** Side Effects: ** stores user/time in database. */ static void setreply(from, when) char *from; time_t when; { SMDB_DBENT key, data; memset(&key, '\0', sizeof key); memset(&data, '\0', sizeof data); key.data = from; key.size = strlen(from); data.data = (char*) &when; data.size = sizeof(when); (void) (Db->smdb_put)(Db, &key, &data, 0); } /* ** XCLUDE -- add users to vacation db so they don't get a reply. ** ** Parameters: ** f -- file pointer with list of address to exclude ** ** Returns: ** nothing. ** ** Side Effects: ** stores users in database. */ static void xclude(f) SM_FILE_T *f; { char buf[MAXLINE], *p; if (f == NULL) return; while (sm_io_fgets(f, SM_TIME_DEFAULT, buf, sizeof buf) >= 0) { if ((p = strchr(buf, '\n')) != NULL) *p = '\0'; setreply(buf, ONLY_ONCE); } } /* ** SENDMESSAGE -- exec sendmail to send the vacation file to sender ** ** Parameters: ** myname -- user name. ** msgfn -- name of file with vacation message. ** sender -- use as sender address ** ** Returns: ** nothing. ** ** Side Effects: ** sends vacation reply. */ static void sendmessage(myname, msgfn, sender) char *myname; char *msgfn; char *sender; { SM_FILE_T *mfp, *sfp; int i; int pvect[2]; char *s; char *pv[8]; char buf[MAXLINE]; mfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, msgfn, SM_IO_RDONLY, NULL); if (mfp == NULL) { if (msgfn[0] == '/') msglog(LOG_NOTICE, "vacation: no %s file", msgfn); else msglog(LOG_NOTICE, "vacation: no ~%s/%s file", myname, msgfn); exit(EX_NOINPUT); } if (pipe(pvect) < 0) { msglog(LOG_ERR, "vacation: pipe: %s", sm_errstring(errno)); exit(EX_OSERR); } pv[0] = "sendmail"; pv[1] = "-oi"; pv[2] = "-f"; if (sender != NULL) pv[3] = sender; else pv[3] = myname; pv[4] = "--"; pv[5] = From; pv[6] = NULL; i = fork(); if (i < 0) { msglog(LOG_ERR, "vacation: fork: %s", sm_errstring(errno)); exit(EX_OSERR); } if (i == 0) { (void) dup2(pvect[0], 0); (void) close(pvect[0]); (void) close(pvect[1]); (void) sm_io_close(mfp, SM_TIME_DEFAULT); (void) execv(_PATH_SENDMAIL, pv); msglog(LOG_ERR, "vacation: can't exec %s: %s", _PATH_SENDMAIL, sm_errstring(errno)); exit(EX_UNAVAILABLE); } /* check return status of the following calls? XXX */ (void) close(pvect[0]); if ((sfp = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &(pvect[1]), SM_IO_WRONLY, NULL)) != NULL) { #if _FFR_VAC_WAIT4SM # ifdef WAITUNION union wait st; # else auto int st; # endif #endif /* _FFR_VAC_WAIT4SM */ (void) sm_io_fprintf(sfp, SM_TIME_DEFAULT, "To: %s\n", From); (void) sm_io_fprintf(sfp, SM_TIME_DEFAULT, "Auto-Submitted: auto-replied\n"); while (sm_io_fgets(mfp, SM_TIME_DEFAULT, buf, sizeof buf) >= 0) { if ((s = strstr(buf, "$SUBJECT")) != NULL) { *s = '\0'; (void) sm_io_fputs(sfp, SM_TIME_DEFAULT, buf); (void) sm_io_fputs(sfp, SM_TIME_DEFAULT, Subject); (void) sm_io_fputs(sfp, SM_TIME_DEFAULT, s + 8); } else (void) sm_io_fputs(sfp, SM_TIME_DEFAULT, buf); } (void) sm_io_close(mfp, SM_TIME_DEFAULT); (void) sm_io_close(sfp, SM_TIME_DEFAULT); #if _FFR_VAC_WAIT4SM (void) wait(&st); #endif } else { (void) sm_io_close(mfp, SM_TIME_DEFAULT); msglog(LOG_ERR, "vacation: can't open pipe to sendmail"); exit(EX_UNAVAILABLE); } } static void usage() { msglog(LOG_NOTICE, "uid %u: usage: vacation [-a alias] [-C cfpath] [-d] [-f db] [-i] [-j] [-l] [-m msg] [-R returnaddr] [-r interval] [-s sender] [-t time] [-U] [-x] [-z] login", getuid()); exit(EX_USAGE); } /* ** LISTDB -- list the contents of the vacation database ** ** Parameters: ** none. ** ** Returns: ** nothing. */ static void listdb() { int result; time_t t; SMDB_CURSOR *cursor = NULL; SMDB_DBENT db_key, db_value; memset(&db_key, '\0', sizeof db_key); memset(&db_value, '\0', sizeof db_value); result = Db->smdb_cursor(Db, &cursor, 0); if (result != SMDBE_OK) { sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "vacation: set cursor: %s\n", sm_errstring(result)); return; } while ((result = cursor->smdbc_get(cursor, &db_key, &db_value, SMDB_CURSOR_GET_NEXT)) == SMDBE_OK) { char *timestamp; /* skip magic VIT entry */ if (db_key.size == strlen(VIT) + 1 && strncmp((char *)db_key.data, VIT, (int)db_key.size - 1) == 0) continue; /* skip bogus values */ if (db_value.size != sizeof t) { sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "vacation: %.*s invalid time stamp\n", (int) db_key.size, (char *) db_key.data); continue; } memcpy(&t, db_value.data, sizeof t); if (db_key.size > 40) db_key.size = 40; if (t <= 0) { /* must be an exclude */ timestamp = "(exclusion)\n"; } else { timestamp = ctime(&t); } sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%-40.*s %-10s", (int) db_key.size, (char *) db_key.data, timestamp); memset(&db_key, '\0', sizeof db_key); memset(&db_value, '\0', sizeof db_value); } if (result != SMDBE_OK && result != SMDBE_LAST_ENTRY) { sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "vacation: get value at cursor: %s\n", sm_errstring(result)); if (cursor != NULL) { (void) cursor->smdbc_close(cursor); cursor = NULL; } return; } (void) cursor->smdbc_close(cursor); cursor = NULL; } /* ** DEBUGLOG -- write message to standard error ** ** Append a message to the standard error for the convenience of ** end-users debugging without access to the syslog messages. ** ** Parameters: ** i -- syslog log level ** fmt -- string format ** ** Returns: ** nothing. */ /*VARARGS2*/ static SYSLOG_RET_T #ifdef __STDC__ debuglog(int i, const char *fmt, ...) #else /* __STDC__ */ debuglog(i, fmt, va_alist) int i; const char *fmt; va_dcl #endif /* __STDC__ */ { SM_VA_LOCAL_DECL SM_VA_START(ap, fmt); sm_io_vfprintf(smioerr, SM_TIME_DEFAULT, fmt, ap); SM_VA_END(ap); sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "\n"); SYSLOG_RET; } sendmail-8.18.1/vacation/Makefile0000644000372400037240000000053214556365350016233 0ustar xbuildxbuild# $Id: Makefile,v 8.5 1999-09-23 22:36:45 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/vacation/Build0000755000372400037240000000052014556365350015555 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.3 2013-11-22 20:52:02 ca Exp $ exec ../devtools/bin/Build $* sendmail-8.18.1/vacation/vacation.00000644000372400037240000002030414556365432016460 0ustar xbuildxbuildVACATION(1) VACATION(1) NNAAMMEE vacation - E-mail auto-responder SSYYNNOOPPSSIISS vvaaccaattiioonn [--aa _a_l_i_a_s] [--CC _c_f_f_i_l_e] [--dd] [--ff _d_a_t_a_b_a_s_e] [--ii] [--II] [--jj] [--ll] [--mm _m_e_s_s_a_g_e] [--RR _r_e_t_u_r_n_a_d_d_r] [--rr _i_n_t_e_r_v_a_l] [--ss _a_d_d_r_e_s_s] [--tt _t_i_m_e] [--UU] [--xx] [--zz] _l_o_g_i_n DDEESSCCRRIIPPTTIIOONN VVaaccaattiioonn returns a message, _~_/_._v_a_c_a_t_i_o_n_._m_s_g by default, to the sender informing them that you are currently not reading your mail. The mes- sage is only sent to each sender once per reply interval (see --rr below). The intended use is in a _._f_o_r_w_a_r_d file. For example, your _._f_o_r_w_a_r_d file might have: \eric, "|/usr/bin/vacation -a allman eric" which would send messages to you (assuming your login name was eric) and reply to any messages for ``eric'' or ``allman''. Available options: --aa _a_l_i_a_s Handle messages for _a_l_i_a_s in the same manner as those received for the user's login name. --CC _c_f_p_a_t_h Specify pathname of the sendmail configuration file. This option is ignored if --UU is specified. This option defaults to the standard sendmail configuration file, located at /etc/mail/sendmail.cf on most systems. --dd Send error/debug messages to stderr instead of syslog. Other- wise, fatal errors, such as calling vvaaccaattiioonn with incorrect arguments, or with non-existent _l_o_g_i_ns, are logged in the system log file, using syslog(8). This should only be used on the com- mand line, not in your _._f_o_r_w_a_r_d file. --ff _f_i_l_e_n_a_m_e Use _f_i_l_e_n_a_m_e as name of the database instead of _~_/_._v_a_c_a_t_i_o_n_._d_b or _~_/_._v_a_c_a_t_i_o_n_._{_d_i_r_,_p_a_g_}. Unless the _f_i_l_e_n_a_m_e starts with / it is relative to ~. --ii Initialize the vacation database files. It should be used before you modify your _._f_o_r_w_a_r_d file. This should only be used on the command line, not in your _._f_o_r_w_a_r_d file. --II Same as --ii (for backwards compatibility). This should only be used on the command line, not in your _._f_o_r_w_a_r_d file. --jj Respond to the message regardless of whether the login is listed as a recipient for the message. Do not use this flag unless you are sure of the consequences. For example, this will cause to reply to mailing list messages which may result in removing you from the list. --ll List the content of the vacation database file including the address and the associated time of the last auto-response to that address. This should only be used on the command line, not in your _._f_o_r_w_a_r_d file. --mm _f_i_l_e_n_a_m_e Use _f_i_l_e_n_a_m_e as name of the file containing the message to send instead of _~_/_._v_a_c_a_t_i_o_n_._m_s_g. Unless the _f_i_l_e_n_a_m_e starts with / it is relative to ~. --RR _r_e_t_u_r_n_a_d_d_r Set the reply envelope sender address --rr _i_n_t_e_r_v_a_l Set the reply interval to _i_n_t_e_r_v_a_l days. The default is one week. An interval of ``0'' or ``infinite'' (actually, any non- numeric character) will never send more than one reply. The --rr option should only be used when the vacation database is ini- tialized (see --ii above). --ss _a_d_d_r_e_s_s Use _a_d_d_r_e_s_s instead of the incoming message sender address on the _F_r_o_m line as the recipient for the vacation message. --tt _t_i_m_e Ignored, available only for compatibility with Sun's vacation program. --UU Do not attempt to lookup _l_o_g_i_n in the password file. The -f and -m options must be used to specify the database and message file since there is no home directory for the default settings for these options. --xx Reads an exclusion list from stdin (one address per line). Mails coming from an address in this exclusion list won't get a reply by vvaaccaattiioonn. It is possible to exclude complete domains by specifying ``@domain'' as element of the exclusion list. This should only be used on the command line, not in your _._f_o_r_- _w_a_r_d file. --zz Set the sender of the vacation message to ``<>'' instead of the user. This probably violates the RFCs since vacation messages are not required by a standards-track RFC to have a null reverse-path. VVaaccaattiioonn reads the first line from the standard input for a UNIX ``From'' line to determine the sender. Sendmail(8) includes this ``From'' line automatically. It also scans the headers for a ``Return- Path:'' header to determine the sender. If both are present, the sender from the ``Return-Path:'' header is used. No message will be sent unless _l_o_g_i_n (or an _a_l_i_a_s supplied using the --aa option) is part of either the ``To:'' or ``Cc:'' headers of the mail. No messages from ``???-REQUEST'', ``???-RELAY'', ``???-OWNER'', ``OWNER-???'', ``Postmaster'', ``UUCP'', ``MAILER'', or ``MAILER-DAE- MON'' will be replied to (where these strings are case insensitive) nor is a notification sent if a ``Precedence: bulk'', ``Precedence: list'', or ``Precedence: junk'' line is included in the mail headers. Like- wise, a response will not be sent if the headers contain a ``Auto-Sub- mitted:'' header with any value except ``no'' or a ``List-Id:'' header is found. The people who have sent you messages are maintained as a db(3) or dbm(3) database in the file _._v_a_c_a_t_i_o_n_._d_b or _._v_a_c_a_- _t_i_o_n_._{_d_i_r_,_p_a_g_} in your home directory. VVaaccaattiioonn expects a file _._v_a_c_a_t_i_o_n_._m_s_g, in your home directory, contain- ing a message to be sent back to each sender. It should be an entire message (including headers). For example, it might contain: From: eric@CS.Berkeley.EDU (Eric Allman) Subject: I am on vacation Delivered-By-The-Graces-Of: The Vacation program Precedence: bulk I am on vacation until July 22. If you have something urgent, please contact Keith Bostic . --eric Any occurrence of the string ``$SUBJECT'' in _._v_a_c_a_t_i_o_n_._m_s_g will be replaced by the first line of the subject of the message that triggered the vvaaccaattiioonn program. FFIILLEESS ~/.vacation.db default database file for db(3) ~/.vacation.{dir,pag} default database file for dbm(3) ~/.vacation.msg default message to send SSEEEE AALLSSOO sendmail(8), syslog(8) HHIISSTTOORRYY The vvaaccaattiioonn command appeared in 4.3BSD. $Date: 2013-11-22 20:52:02 $ VACATION(1) sendmail-8.18.1/Makefile0000644000372400037240000000177614556365350014442 0ustar xbuildxbuild# $Id: Makefile.dist,v 8.15 2001-08-23 20:44:39 ca Exp $ SHELL= /bin/sh SUBDIRS= libsm libsmutil libsmdb sendmail editmap mail.local \ mailstats makemap praliases rmail smrsh vacation # libmilter: requires pthread BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC @for x in $(SUBDIRS); \ do \ (cd $$x && echo Making $@ in: && pwd && \ $(SHELL) $(BUILD) $(OPTIONS)) || exit; \ done clean: FRC @for x in $(SUBDIRS); \ do \ (cd $$x; echo Making $@ in:; pwd; \ $(SHELL) $(BUILD) $(OPTIONS) $@); \ done install: FRC @for x in $(SUBDIRS); \ do \ (cd $$x && echo Making $@ in: && pwd && \ $(SHELL) $(BUILD) $(OPTIONS) $@) || exit; \ done install-docs: FRC @for x in $(SUBDIRS); \ do \ (cd $$x && echo Making $@ in: && pwd && \ $(SHELL) $(BUILD) $(OPTIONS) $@) || exit; \ done fresh: FRC @for x in $(SUBDIRS); \ do \ (cd $$x && echo Making $@ in: && pwd && \ $(SHELL) $(BUILD) $(OPTIONS) -c) || exit; \ done $(SUBDIRS): FRC @cd $@; pwd; \ $(SHELL) $(BUILD) $(OPTIONS) FRC: sendmail-8.18.1/devtools/0000755000372400037240000000000014556365433014630 5ustar xbuildxbuildsendmail-8.18.1/devtools/OS/0000755000372400037240000000000014556365433015151 5ustar xbuildxbuildsendmail-8.18.1/devtools/OS/HP-UX0000444000372400037240000000103114556365350015724 0ustar xbuildxbuild# $Id: HP-UX,v 8.14 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -Aa') define(`confENVDEF', `-D_HPUX_SOURCE') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confSM_OS_HEADER', `sm_os_hp') define(`confOPTIMIZE', `+O1') define(`confLIBS', `-lndbm') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `mail') define(`confINSTALL', `${BUILDBIN}/install.sh') sendmail-8.18.1/devtools/OS/IRIX64.6.x0000444000372400037240000000132414556365350016427 0ustar xbuildxbuild# $Id: IRIX64.6.x,v 8.31 2012-01-21 00:07:09 ashish Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -mips3 -n32 -OPT:Olimit=0') define(`confLIBSEARCHPATH', `/lib32 /usr/lib32') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-DIRIX6') define(`confSM_OS_HEADER', `sm_os_irix') define(`confMANOWN', `root') define(`confMANGRP', `sys') define(`confUBINOWN', `root') define(`confUBINGRP', `sys') define(`confMBINDIR', `/usr/lib') define(`confUBINDIR', `/usr/bsd') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confSTDIR', `/var') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/Darwin.8.x0000444000372400037240000000157514556365350016740 0ustar xbuildxbuild# $Id: Darwin.8.x,v 1.4 2008-02-26 21:21:30 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=80000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/UNICOS-mk0000444000372400037240000000075314556365350016502 0ustar xbuildxbuild# $Id: UNICOS-mk,v 8.1 2003-04-21 17:03:52 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confENVDEF', `-DUNICOS -DUNICOSMK') define(`confDEPEND_TYPE', `CC-M') define(`confMAPDEF', `-DNDBM') define(`confOPTIMIZE', `-O') define(`confINSTALL', `cpset') define(`confSM_OS_HEADER', `sm_os_unicosmk') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') sendmail-8.18.1/devtools/OS/IRIX.6.50000444000372400037240000000134414556365350016154 0ustar xbuildxbuild# $Id: IRIX.6.5,v 8.24 2012-01-21 00:07:09 ashish Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -mips3 -n32 -OPT:Olimit=0') define(`confLIBSEARCHPATH', `/lib32 /usr/lib32') define(`confMAPDEF', `-DNEWDB -DNDBM -DNIS -DMAP_REGEX -DMAP_NSD') define(`confENVDEF', `-DIRIX6') define(`confSM_OS_HEADER', `sm_os_irix') define(`confMANOWN', `root') define(`confMANGRP', `sys') define(`confUBINOWN', `root') define(`confUBINGRP', `sys') define(`confMBINDIR', `/usr/lib') define(`confUBINDIR', `/usr/bsd') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confSTDIR', `/var') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/SunOS.5.100000444000372400037240000000143314556365350016462 0ustar xbuildxbuild# $Id: SunOS.5.10,v 1.2 2002-11-09 03:06:39 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confLDOPTS_SO', `-G') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS -DNISPLUS -DMAP_REGEX') define(`confENVDEF', `-DSOLARIS=21000 -DNETINET6') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl') define(`confMTCCOPTS', `-D_REENTRANT') define(`confMTLDOPTS', `-lpthread') define(`confMBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/include/sysexits.h ]; \ then \ ln -s /usr/include/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/MPE-iX0000444000372400037240000000325514556365350016074 0ustar xbuildxbuild# $Id: MPE-iX,v 1.2 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confOPTIMIZE', `-O') define(`confMAPDEF', `-DNEWDB -DMAP_REGEX') define(`confENVDEF', `-DMPE -D_SOCKET_SOURCE -D_POSIX_SOURCE -DIS_SOCKET_CLIB_ITSELF') APPENDDEF(`conf_sendmail_ENVDEF', `-D_FFR_DOTTED_USERNAMES -D_FFR_DROP_TRUSTUSER_WARNING -D_FFR_TRUSTED_QF') define(`confINCDIRS', `-I/BINDFW/CURRENT/include -I/SYSLOG/PUB -I/${HPACCOUNT}/${HPGROUP}/include -I/usr/contrib/include') define(`confLIBDIRS', `-L/BINDFW/CURRENT/lib -L/SYSLOG/PUB -L/${HPACCOUNT}/${HPGROUP}/lib') define(`confLIBS', `-lsyslog -ldb -lsocket -lsvipc') define(`confSM_OS_HEADER', `sm_os_mpeix') define(`conf_sendmail_LIB_POST', `--for-linker="-WL,cap=ia,ba,ph,pm"') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confEBINDIR', `/${HPACCOUNT}/${HPGROUP}/sbin') define(`confGBINGRP', `${HPACCOUNT}') define(`confGBINOWN', `MGR.${HPACCOUNT}') define(`confMSPQOWN', `SERVER.${HPACCOUNT}') define(`confMANROOT', `/${HPACCOUNT}/${HPGROUP}/man/cat') define(`confMANROOTMAN', `/${HPACCOUNT}/${HPGROUP}/man/man') define(`confMANGRP', `${HPACCOUNT}') define(`confMANOWN', `MGR.${HPACCOUNT}') define(`confMBINDIR', `/${HPACCOUNT}/${HPGROUP}/sbin') define(`confMBINGRP', `${HPACCOUNT}') define(`confMBINMODE', `555') define(`confMBINOWN', `MGR.${HPACCOUNT}') define(`confSBINDIR', `/${HPACCOUNT}/${HPGROUP}/sbin') define(`confSBINGRP', `${HPACCOUNT}') define(`confSBINMODE', `6555') define(`confSBINOWN', `MGR.${HPACCOUNT}') define(`confUBINDIR', `/${HPACCOUNT}/${HPGROUP}/bin') define(`confUBINGRP', `${HPACCOUNT}') define(`confUBINOWN', `MGR.${HPACCOUNT}') sendmail-8.18.1/devtools/OS/Darwin.16.x0000444000372400037240000000151014556365350017004 0ustar xbuildxbuilddnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=160000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/AIX.4.20000444000372400037240000000107414556365350016015 0ustar xbuildxbuild# $Id: AIX.4.2,v 8.16 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-D_AIX4=40200') define(`confOPTIMIZE', `-O3 -qstrict') define(`confLIBS', `-ldbm') define(`confLIBSEARCH', `db resolv 44bsd') define(`confINSTALL', `/usr/ucb/install') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `system') define(`confDEPEND_TYPE', `AIX') define(`confSM_OS_HEADER', `sm_os_aix') define(`confLDOPTS', `-blibpath:/usr/lib:/lib') sendmail-8.18.1/devtools/OS/IRIX.5.x0000444000372400037240000000111014556365350016245 0ustar xbuildxbuild# $Id: IRIX.5.x,v 8.16 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -mips2 -OPT:Olimit=1400') define(`confMAPDEF', `-DNDBM -DNIS') define(`confLIBS', `-lmld -lmalloc') define(`confSM_OS_HEADER', `sm_os_irix') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/bsd') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confSTDIR', `/var') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/NeXT.2.x0000444000372400037240000000127514556365350016321 0ustar xbuildxbuild# $Id: NeXT.2.x,v 8.13 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confSM_OS_HEADER', `sm_os_next') define(`confBEFORE', `unistd.h dirent.h') define(`confMAPDEF', `-DNDBM -DNIS -DNETINFO') define(`confENVDEF', `-DNeXT') define(`confLIBS', `-ldbm') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confRANLIBOPTS', `-c') PUSHDIVERT(3) unistd.h: cp /dev/null unistd.h dirent.h: echo "#include " > dirent.h echo "#define dirent direct" >> dirent.h POPDIVERT sendmail-8.18.1/devtools/OS/Darwin.14.x0000444000372400037240000000160514556365350017007 0ustar xbuildxbuild# $Id: Darwin.13.x,v 1.1 2013-12-02 22:11:06 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=140000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/UnixWare.5.i3860000444000372400037240000000142614556365350017470 0ustar xbuildxbuild# $Id: UnixWare.5.i386,v 8.7 2002-10-24 20:42:46 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # # System V Rel 5.x (a.k.a Unixware7 w/o BSD-Compatiblity Libs ie. native) # Contributed by Paul Gampe # define(`confSM_OS_HEADER', `sm_os_unixware') define(`confCC', `/usr/ccs/bin/cc') define(`confMAPDEF', `-DNDBM -DMAP_REGEX') define(`confENVDEF', `-D__svr5__') define(`confLIBS', `-lsocket -lnsl -lelf') define(`confSHELL', `/usr/bin/sh') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/etc/mail') define(`confUBINDIR', `/etc/mail') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') define(`confMTCCOPTS', `-Kpthread') define(`confMTLDOPTS', `-lpthread') sendmail-8.18.1/devtools/OS/SunOS.4.00000444000372400037240000000104714556365350016401 0ustar xbuildxbuild# $Id: SunOS.4.0,v 8.13 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confBEFORE', `stdlib.h stddef.h limits.h') define(`confMAPDEF', `-DNDBM -DNIS') define(`confENVDEF', `-DSUNOS403') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLDOPTS', `-Bstatic') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') PUSHDIVERT(3) stddef.h stdlib.h limits.h: cp /dev/null $@ POPDIVERT sendmail-8.18.1/devtools/OS/Darwin.19.x0000444000372400037240000000151014556365350017007 0ustar xbuildxbuilddnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=190000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/SunOS.5.90000444000372400037240000000144014556365350016410 0ustar xbuildxbuild# $Id: SunOS.5.9,v 8.9 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confLDOPTS_SO', `-G') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS -DNISPLUS -DMAP_REGEX') define(`confENVDEF', `-DSOLARIS=20900 -DNETINET6') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl') define(`confMTCCOPTS', `-D_REENTRANT') define(`confMTLDOPTS', `-lpthread') define(`confMBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/include/sysexits.h ]; \ then \ ln -s /usr/include/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/Darwin.15.x0000444000372400037240000000151014556365350017003 0ustar xbuildxbuilddnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=150000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/SunOS.5.110000444000372400037240000000142114556365350016460 0ustar xbuildxbuild# $Id: SunOS.5.11,v 1.2 2009-10-13 21:46:01 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confLDOPTS_SO', `-G') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-DSOLARIS=21100 -DNETINET6') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl') define(`confMTCCOPTS', `-D_REENTRANT') define(`confMTLDOPTS', `-lpthread') define(`confMBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/include/sysexits.h ]; \ then \ ln -s /usr/include/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/SCO.5.x0000444000372400037240000000072214556365350016126 0ustar xbuildxbuild# $Id: SCO.5.x,v 8.14 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -b elf') define(`confLIBS', `-lsocket -lndbm -lprot -lcurses -lm -lx -lgen') define(`confMAPDEF', `-DMAP_REGEX -DNDBM') define(`confSBINGRP', `bin') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/bin') define(`confINSTALL', `${BUILDBIN}/install.sh') sendmail-8.18.1/devtools/OS/QNX.6.x0000444000372400037240000000160114556365350016146 0ustar xbuildxbuild# $Id: QNX.6.x,v 1.2 2008-02-11 23:04:50 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DMAP_REGEX') define(`confLIBSEARCH', `db socket') define(`confSM_OS_HEADER', `sm_os_qnx') define(`confDEPEND_TYPE', `QNX6') define(`confSBINGRP', `root') define(`confUBINOWN', `root') define(`confUBINGRP', `root') define(`confMANOWN', `root') define(`confMANGRP', `root') define(`confNO_MAN_BUILD', 'yes') define(`confMAN1EXT', `0') define(`confMAN3EXT', `0') define(`confMAN4EXT', `0') define(`confMAN5EXT', `0') define(`confMAN8EXT', `0') ifelse(confBLDVARIANT, `DEBUG', dnl Debug build ` define(`confOPTIMIZE',`-g -O0') ', dnl Optimized build confBLDVARIANT, `OPTIMIZED', ` define(`confOPTIMIZE',`-O2') ', dnl Purify build confBLDVARIANT, `PURIFY', ` define(`confOPTIMIZE',`-g') ', dnl default ` define(`confOPTIMIZE',`-O2') ') sendmail-8.18.1/devtools/OS/IRIX64.6.00000444000372400037240000000115214556365350016316 0ustar xbuildxbuild# $Id: IRIX64.6.0,v 8.22 2012-01-21 00:07:09 ashish Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-DIRIX64') define(`confSM_OS_HEADER', `sm_os_irix') define(`confLIBS', `-lelf -lmalloc') define(`confMANOWN', `root') define(`confMANGRP', `sys') define(`confUBINOWN', `root') define(`confUBINGRP', `sys') define(`confMBINDIR', `/usr/lib') define(`confUBINDIR', `/usr/bsd') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/Darwin.22.x0000444000372400037240000000156414556365350017012 0ustar xbuildxbuilddnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=220000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') APPENDDEF(`conf_sendmail_LIBS', `-lresolv') sendmail-8.18.1/devtools/OS/AIX.4.30000444000372400037240000000135514556365350016020 0ustar xbuildxbuild# $Id: AIX.4.3,v 8.20 2003-07-03 01:30:10 jutta Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-D_AIX4=40300') define(`confOPTIMIZE', `-O3 -qstrict') define(`confCC', `/usr/bin/xlc') define(`confLIBS', `-ldbm') define(`confINSTALL', `/usr/ucb/install') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `system') define(`confDEPEND_TYPE', `AIX') define(`confLDOPTS', `-blibpath:/usr/lib:/lib') define(`confSM_OS_HEADER', `sm_os_aix') define(`confMTCCOPTS', `-D_THREAD_SAFE') define(`confMTLDOPTS', `-lpthread') define(`confLDOPTS_SO', `-Wl,-G -Wl,-bexpall') define(`USE_ICONV',` APPENDDEF(`confLIBS',`-liconv ')dnl ')dnl sendmail-8.18.1/devtools/OS/UXPDS.V200000444000372400037240000000144314556365350016343 0ustar xbuildxbuild# $Id: UXPDS.V20,v 8.13 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `/usr/ccs/bin/cc') define(`confBEFORE', `netinet/ip_var.h') define(`confMAPDEF', `-DNDBM -DNIS') define(`confENVDEF', `-DUXPDS=20') define(`confLIBS', `/usr/ucblib/libdbm.a -lsocket -lnsl -lelf') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `mail') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confMANROOT', `/usr/local/man/man') PUSHDIVERT(3) netinet/ip_var.h: netinet /usr/include/netinet/ip_var.h sed '/ip_var_f.h/d' /usr/include/netinet/ip_var.h > netinet/ip_var.h netinet: mkdir netinet POPDIVERT sendmail-8.18.1/devtools/OS/GNU0000444000372400037240000000122714556365350015523 0ustar xbuildxbuild# $Id: GNU,v 8.3 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confOPTIMIZE', `-g -O2') define(`confDEPEND_TYPE', `CC-M') define(`confEBINDIR', `/libexec') define(`confMANROOT', `/man/man') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confMANMODE', `644') define(`confMBINDIR', `/sbin') define(`confSBINDIR', `/sbin') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confSBINMODE', `4755') define(`confUBINDIR', `/bin') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confUBINMODE', `755') sendmail-8.18.1/devtools/OS/Darwin.17.x0000444000372400037240000000151014556365350017005 0ustar xbuildxbuilddnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=170000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/SunOS.5.70000444000372400037240000000146014556365350016410 0ustar xbuildxbuild# $Id: SunOS.5.7,v 8.22 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confLDOPTS_SO', `-G') define(`confSONAME',`-h') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS -DNISPLUS -DMAP_REGEX') define(`confENVDEF', `-DSOLARIS=20700') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl') define(`confMTCCOPTS', `-D_REENTRANT') define(`confMTLDOPTS', `-lpthread') define(`confMBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/include/sysexits.h ]; \ then \ ln -s /usr/include/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/SunOS.5.40000444000372400037240000000124714556365350016410 0ustar xbuildxbuild# $Id: SunOS.5.4,v 8.17 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS -DNISPLUS') define(`confENVDEF', `-DSOLARIS=20400') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl -lelf') define(`confMBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/include/sysexits.h ]; \ then \ ln -s /usr/include/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/SCO.4.20000444000372400037240000000070414556365350016017 0ustar xbuildxbuild# $Id: SCO.4.2,v 8.9 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confENVDEF', `-D_SCO_unix_4_2') define(`confLIBS', `-lsocket -lndbm -lprot_s -lx -lc_s') define(`confMAPDEF', `-DNDBM') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `bin') define(`confINSTALL', `${BUILDBIN}/install.sh') sendmail-8.18.1/devtools/OS/DomainOS.10.40000444000372400037240000000102414556365350017117 0ustar xbuildxbuild# $Id: DomainOS.10.4,v 8.4 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -A nansi -A,systype,any -A,runtype,bsd4.3') define(`confBEFORE', `dirent.h') define(`confMAPDEF', `-DNDBM') define(`confSBINDIR', `/usr/etc') define(`confMBINDIR', `/usr/lib') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') PUSHDIVERT(3) dirent.h: echo "#include " > dirent.h echo "#define dirent direct" >> dirent.h POPDIVERT sendmail-8.18.1/devtools/OS/OSF1.V5.x0000444000372400037240000000111514556365350016335 0ustar xbuildxbuild# $Id: OSF1.V5.x,v 8.4 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -std1 -Olimit 1000') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `') define(`confLIBS', `-ldbm') define(`confSM_OS_HEADER', `sm_os_osf1') define(`confSTDIR', `/var/adm/sendmail') define(`confINSTALL', `installbsd') define(`confEBINDIR', `/usr/lbin') define(`confUBINDIR', `${BINDIR}') define(`confDEPEND_TYPE', `CC-M') define(`confMTCCOPTS', `-D_REENTRANT') define(`confMTLDOPTS', `-lpthread') sendmail-8.18.1/devtools/OS/Darwin.21.x0000444000372400037240000000156414556365350017011 0ustar xbuildxbuilddnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=210000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') APPENDDEF(`conf_sendmail_LIBS', `-lresolv') sendmail-8.18.1/devtools/OS/RISCos0000444000372400037240000000140514556365350016172 0ustar xbuildxbuild# $Id: RISCos,v 8.9 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -systype bsd43 -Olimit 900') define(`confBEFORE', `stdlib.h dirent.h unistd.h stddef.h') define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-DRISCOS') define(`confLIBS', `-lmld') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `/usr/bsd43/bin/install') PUSHDIVERT(3) stdlib.h stddef.h: cp /dev/null $@ unistd.h: echo "typedef unsigned short mode_t;" > unistd.h dirent.h: echo "#include " > dirent.h echo "#define dirent direct" >> dirent.h POPDIVERT sendmail-8.18.1/devtools/OS/dgux0000444000372400037240000000071514556365350016042 0ustar xbuildxbuild# $Id: dgux,v 8.9 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS') define(`confLIBS', `-ldbm') define(`confMBINDIR', `/usr/bin') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `bin') define(`confINSTALL', `${BUILDBIN}/install.sh') APPENDDEF(`confLIBSEARCH', `socket nsl') sendmail-8.18.1/devtools/OS/IRIX.6.x0000444000372400037240000000132214556365350016253 0ustar xbuildxbuild# $Id: IRIX.6.x,v 8.31 2012-01-21 00:07:09 ashish Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -mips3 -n32 -OPT:Olimit=0') define(`confLIBSEARCHPATH', `/lib32 /usr/lib32') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-DIRIX6') define(`confSM_OS_HEADER', `sm_os_irix') define(`confMANOWN', `root') define(`confMANGRP', `sys') define(`confUBINOWN', `root') define(`confUBINGRP', `sys') define(`confMBINDIR', `/usr/lib') define(`confUBINDIR', `/usr/bsd') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confSTDIR', `/var') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/EWS-UX_V0000444000372400037240000000204514556365350016346 0ustar xbuildxbuild# $Id: EWS-UX_V,v 8.11 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `/usr/abiccs/bin/cc -KOlimit=1000') define(`confBEFORE', `sysexits.h ndbm.h ndbm.o') define(`confMAPDEF', `-DNDBM -DNIS') define(`confENVDEF', `-Dnec_ews_svr4') define(`confLIBS', `ndbm.o -lsocket -lnsl -lelf # # with NDBM') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `sys') define(`confSTDIR', `/var/ucblib') define(`confINSTALL', `/usr/ucb/install') PUSHDIVERT(3) sysexits.h: echo '#ifndef _LOCAL_SYSEXITS_H_' > sysexits.h; echo '#define _LOCAL_SYSEXITS_H_' >> sysexits.h; cat /usr/abiccs/ucbinclude/sysexits.h >> sysexits.h; echo '#endif /* _LOCAL_SYSEXITS_H_ */' >> sysexits.h; # ln -s /usr/abiccs/ucbinclude/sysexits.h . ndbm.h: ln -s /usr/abiccs/ucbinclude/ndbm.h . ndbm.o: ar x /usr/abiccs/ucblib/libucb.a ndbm.o # ar x /usr/ucblib/libucb.a ndbm.o POPDIVERT sendmail-8.18.1/devtools/OS/UMAX0000444000372400037240000000102114556365350015634 0ustar xbuildxbuild# $Id: UMAX,v 8.8 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confBEFORE', `stddef.h') define(`confMAPDEF', `-DNIS') define(`confENVDEF', `-DUMAXV') define(`confLIBS', `-lyp -lrpc') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confHFDIR', `/usr/lib') PUSHDIVERT(3) stddef.h: echo "#define _STDDEF_H" > stddef.h chmod 444 stddef.h POPDIVERT sendmail-8.18.1/devtools/OS/uts.systemV0000444000372400037240000000167414556365350017364 0ustar xbuildxbuild# $Id: uts.systemV,v 8.15 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 PUSHDIVERT(1) # Sendmail 8 on UTS requires BIND 4.9's include files and lib44bsd and # libresolv libraries. The BIND version on UTS is much too old. # BINDPATH=../../../bind POPDIVERT define(`confBEFORE', `stddef.h') define(`confMAPDEF', `-DNIS -DNDBM') define(`confENVDEF', `-D_UTS') define(`confOPTIMIZE', `-g') APPENDDEF(`confINCDIRS', `-I${BINDPATH}/include -I${BINDPATH}/compat/include') define(`confLIBDIRS', `-L${BINDPATH}/res -L${BINDPATH}/compat/lib') define(`confLIBS', `-lyp -lrpc -lbsd -lsocket -la') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `mail') define(`confINSTALL', `${BUILDBIN}/install.sh') PUSHDIVERT(3) stddef.h: echo "#include " > stddef.h POPDIVERT sendmail-8.18.1/devtools/OS/Darwin.18.x0000444000372400037240000000151014556365350017006 0ustar xbuildxbuilddnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=180000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/Darwin.12.x0000444000372400037240000000160514556365350017005 0ustar xbuildxbuild# $Id: Darwin.12.x,v 1.2 2013-12-02 22:11:06 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=120000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/OSR.i3860000444000372400037240000000147514556365350016232 0ustar xbuildxbuild# $Id: OSR.i386,v 1.1 2008-01-11 18:40:15 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # # System V Rel 5.x (a.k.a Unixware7/OpenUnix8/OpenServer 6 # w/o BSD-Compatiblity Libs ie. native) # Contributed by Boyd Gerber # define(`confSM_OS_HEADER', `sm_os_unixware') define(`confCC', `/usr/ccs/bin/cc') define(`confMAPDEF', `-DNDBM -DMAP_REGEX') define(`confENVDEF', `-D__svr5__') define(`confLIBS', `-lsocket -lnsl -lelf') define(`confSHELL', `/usr/bin/sh') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/etc/mail') define(`confUBINDIR', `/etc/mail') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') define(`confMTCCOPTS', `-Kpthread') define(`confMTLDOPTS', `-lpthread') sendmail-8.18.1/devtools/OS/FreeBSD0000444000372400037240000000176214556365350016310 0ustar xbuildxbuild# $Id: FreeBSD,v 8.36 2003-07-03 01:07:45 jutta Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confLIBS', `-lutil') define(`confLD', `cc') define(`confMTLDOPTS', `-pthread') define(`confMTCCOPTS', `-D_THREAD_SAFE') define(`confLDOPTS_SO', `-shared') define(`confCCOPTS_SO', `-fPIC') define(`confSONAME', `-soname') define(`confSM_OS_HEADER', `sm_os_freebsd') define(`confPERL_CONFIGURE_ARGS', `-Dlddlflags=-shared -Dccdlflags="-export-dynamic"') ifelse(confBLDVARIANT, `DEBUG', dnl Debug build ` define(`confOPTIMIZE',`-g') ', dnl Optimized build confBLDVARIANT, `OPTIMIZED', ` define(`confOPTIMIZE',`-O') ', dnl Purify build confBLDVARIANT, `PURIFY', ` define(`confOPTIMIZE',`-g') ', dnl default ` define(`confOPTIMIZE',`-O') ') define(`USE_ICONV',` APPENDDEF(`confLIBS',`-liconv ')dnl APPENDDEF(`confLIBDIRS',`-L/usr/local/lib ')dnl APPENDDEF(`confINCDIRS',`-I/usr/local/include ')dnl ')dnl sendmail-8.18.1/devtools/OS/UXPDS.V100000444000372400037240000000122714556365350016342 0ustar xbuildxbuild# $Id: UXPDS.V10,v 8.14 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `/usr/ccs/bin/cc') define(`confMAPDEF', `-DNDBM -DNIS') define(`confENVDEF', `-DUXPDS=10') APPENDDEF(`confINCDIRS', `-I/usr/include -I/usr/ucbinclude') define(`confLIBS', `/usr/ucblib/libdbm.a /usr/ucblib/libucb.a -lsocket -lnsl -lelf') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') define(`confMANROOT', `/usr/local/man/man') sendmail-8.18.1/devtools/OS/SunOS.5.60000444000372400037240000000146714556365350016416 0ustar xbuildxbuild# $Id: SunOS.5.6,v 8.20 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confLDOPTS_SO',`-G') define(`confSONAME',`-h') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS -DNISPLUS -DMAP_REGEX') define(`confENVDEF', `-DSOLARIS=20600') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl -lkstat') define(`confMTCCOPTS', `-D_REENTRANT') define(`confMTLDOPTS', `-lpthread') define(`confMBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/include/sysexits.h ]; \ then \ ln -s /usr/include/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/AIX0000444000372400037240000000070114556365350015507 0ustar xbuildxbuild# $Id: AIX,v 8.12 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS') define(`confENVDEF', `-D_AIX3') define(`confOPTIMIZE', `-g') define(`confLIBS', `-ldbm') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `system') define(`confINSTALL', `/usr/ucb/install') define(`confDEPEND_TYPE', `AIX') define(`confSM_OS_HEADER', `sm_os_aix') sendmail-8.18.1/devtools/OS/SunOS.5.20000444000372400037240000000134714556365350016407 0ustar xbuildxbuild# $Id: SunOS.5.2,v 8.15 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS') define(`confENVDEF', `-DSOLARIS=20100') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl -lelf') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/ucbinclude/sysexits.h ]; \ then \ ln -s /usr/ucbinclude/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/AIX.5.00000444000372400037240000000126214556365350016013 0ustar xbuildxbuild# $Id: AIX.5.0,v 1.6 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-D_AIX5=50000') define(`confOPTIMIZE', `-O3 -qstrict') define(`confCC', `/usr/vac/bin/xlc') define(`confLIBS', `-ldbm') define(`confINSTALL', `/usr/ucb/install') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `system') define(`confDEPEND_TYPE', `AIX') define(`confLDOPTS', `-blibpath:/usr/lib:/lib') define(`confSM_OS_HEADER', `sm_os_aix') define(`confMTCCOPTS', `-D_THREAD_SAFE') define(`confMTLDOPTS', `-lpthread') define(`confLDOPTS_SO', `-Wl,-G -Wl,-bexpall') sendmail-8.18.1/devtools/OS/NeXT.3.x0000444000372400037240000000221314556365350016313 0ustar xbuildxbuild# $Id: NeXT.3.x,v 8.19 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 PUSHDIVERT(1) # NEXTSTEP 3.1 and 3.2 only support m68k and i386 #ARCH= -arch m68k -arch i386 -arch hppa -arch sparc #ARCH= -arch m68k -arch i386 #ARCH= ${RC_CFLAGS} # For new sendmail Makefile structure, this must go in the ENVDEF and LDOPTS POPDIVERT define(`confSM_OS_HEADER', `sm_os_next') define(`confCCOPTS', `-posix') define(`confMAPDEF', `-DNDBM -DNIS -DNETINFO') define(`confENVDEF', `-DNeXT -Wno-precomp -pipe ${RC_CFLAGS}') define(`confLDOPTS', `${RC_CFLAGS} -posix') define(`confLIBS', `-ldbm') define(`confINSTALL_RAWMAN') define(`confMANROOT', `/usr/man/cat') define(`confMANROOTMAN', `/usr/man/man') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confEBINDIR', `/usr/etc') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confRANLIBOPTS', `-c') sendmail-8.18.1/devtools/OS/NEXTSTEP.4.x0000444000372400037240000000226014556365350016752 0ustar xbuildxbuild# $Id: NEXTSTEP.4.x,v 8.7 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 PUSHDIVERT(1) # NEXTSTEP 3.1 and 3.2 only support m68k and i386 #ARCH= -arch m68k -arch i386 -arch hppa -arch sparc #ARCH= -arch m68k -arch i386 #ARCH= ${RC_CFLAGS} # For new sendmail Makefile structure, this must go in the ENVDEF and LDOPTS POPDIVERT define(`confBEFORE', `unistd.h dirent.h') define(`confMAPDEF', `-DNDBM -DNIS -DNETINFO') define(`confENVDEF', `-DNeXT -Wno-precomp -pipe ${RC_CFLAGS}') define(`confLDOPTS', `${RC_CFLAGS}') define(`confLIBS', `-ldbm') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confEBINDIR', `/usr/etc') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confRANLIBOPTS', `-c') PUSHDIVERT(3) unistd.h: cp /dev/null unistd.h dirent.h: echo "#include " > dirent.h echo "#define dirent direct" >> dirent.h POPDIVERT sendmail-8.18.1/devtools/OS/RISCos.4_00000444000372400037240000000142714556365350016557 0ustar xbuildxbuild# $Id: RISCos.4_0,v 8.10 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -systype bsd43 -Olimit 900') define(`confBEFORE', `stdlib.h dirent.h unistd.h stddef.h') define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-DRISCOS -DRISCOS_4_0') define(`confLIBS', `-lmld') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') PUSHDIVERT(3) stdlib.h stddef.h: cp /dev/null $@ unistd.h: echo "typedef unsigned short mode_t;" > unistd.h dirent.h: echo "#include " > dirent.h echo "#define dirent direct" >> dirent.h POPDIVERT sendmail-8.18.1/devtools/OS/HP-UX.10.x0000444000372400037240000000151214556365350016415 0ustar xbuildxbuild# $Id: HP-UX.10.x,v 8.20 2003-11-21 01:05:09 lijian Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -Aa') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-D_HPUX_SOURCE -DHPUX10 -DV4FS') define(`confSM_OS_HEADER', `sm_os_hp') define(`confLIBS', `-lndbm') define(`confSHELL', `/usr/bin/sh') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confSBINGRP', `mail') dnl Don't indent or put any tab/space in this file. dnl Tab/space here causes make syntax error ifelse(confBLDVARIANT, `DEBUG', dnl Debug build ` define(`confOPTIMIZE',`-g') ', dnl Optimized build confBLDVARIANT, `OPTIMIZED', ` define(`confOPTIMIZE',`+O3') ', dnl Purify build confBLDVARIANT, `PURIFY', ` define(`confOPTIMIZE',`-g') ', dnl default ` define(`confOPTIMIZE',`+O3') ') sendmail-8.18.1/devtools/OS/UNIX_SV.4.x.i3860000444000372400037240000000102414556365350017360 0ustar xbuildxbuild# $Id: UNIX_SV.4.x.i386,v 8.11 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-D__svr4__ -DUNIXWARE') define(`confLIBS', `-lc -ldbm -lsocket -lnsl -lgen -lelf') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') sendmail-8.18.1/devtools/OS/NEWS-OS.4.x0000444000372400037240000000065314556365350016577 0ustar xbuildxbuild# $Id: NEWS-OS.4.x,v 8.9 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confBEFORE', `limits.h') define(`confMAPDEF', `-DNDBM') define(`confLIBS', `-lmld') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') PUSHDIVERT(3) limits.h: touch limits.h POPDIVERT sendmail-8.18.1/devtools/OS/NeXT.4.x0000444000372400037240000000250414556365350016317 0ustar xbuildxbuild# $Id: NeXT.4.x,v 8.20 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 PUSHDIVERT(1) # NEXTSTEP 3.1 and 3.2 only support m68k and i386 #ARCH= -arch m68k -arch i386 -arch hppa -arch sparc #ARCH= -arch m68k -arch i386 #ARCH= ${RC_CFLAGS} # For new sendmail Makefile structure, this must go in the ENVDEF and LDOPTS POPDIVERT define(`confSM_OS_HEADER', `sm_os_next') define(`confBEFORE', `unistd.h dirent.h') define(`confMAPDEF', `-DNDBM -DNIS -DNETINFO') define(`confENVDEF', `-DNeXT -Wno-precomp -pipe ${RC_CFLAGS}') define(`confLDOPTS', `${RC_CFLAGS}') define(`confLIBS', `-ldbm') define(`confRANLIBOPTS', `-c') define(`confINSTALL_RAWMAN') define(`confMANROOT', `/usr/man/cat') define(`confMANROOTMAN', `/usr/man/man') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confEBINDIR', `/usr/etc') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confRANLIBOPTS', `-c') PUSHDIVERT(3) unistd.h: cp /dev/null unistd.h dirent.h: echo "#include " > dirent.h echo "#define dirent direct" >> dirent.h POPDIVERT sendmail-8.18.1/devtools/OS/SINIX.5.430000444000372400037240000000100214556365350016343 0ustar xbuildxbuild# $Id: SINIX.5.43,v 8.3 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `/usr/bin/cc') define(`confENVDEF', `-W0 -D__svr4__') define(`confLIBS', `-lsocket -lnsl -lelf -lmproc') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') define(`confLDOPTS', `-s') sendmail-8.18.1/devtools/OS/Darwin.23.x0000444000372400037240000000156414556365350017013 0ustar xbuildxbuilddnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=230000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') APPENDDEF(`conf_sendmail_LIBS', `-lresolv') sendmail-8.18.1/devtools/OS/IRIX64.6.10000444000372400037240000000115214556365350016317 0ustar xbuildxbuild# $Id: IRIX64.6.1,v 8.22 2012-01-21 00:07:09 ashish Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-DIRIX64') define(`confSM_OS_HEADER', `sm_os_irix') define(`confLIBS', `-lelf -lmalloc') define(`confMANOWN', `root') define(`confMANGRP', `sys') define(`confUBINOWN', `root') define(`confUBINGRP', `sys') define(`confMBINDIR', `/usr/lib') define(`confUBINDIR', `/usr/bsd') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/CLIX0000444000372400037240000000076414556365350015636 0ustar xbuildxbuild# $Id: CLIX,v 8.13 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-DCLIX') APPENDDEF(`confINCDIRS', `-I/usr/include') define(`confLIBS', `-lnsl -lbsd') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `mail') define(`confINSTALL', `cp') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/Darwin.20.x0000444000372400037240000000156414556365350017010 0ustar xbuildxbuilddnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=200000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') APPENDDEF(`conf_sendmail_LIBS', `-lresolv') sendmail-8.18.1/devtools/OS/SCO0000444000372400037240000000055414556365350015520 0ustar xbuildxbuild# $Id: SCO,v 8.7 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confENVDEF', `-D_SCO_unix_') define(`confLIBS', `-lsocket -lprot_s -lx -lc_s') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') sendmail-8.18.1/devtools/OS/QNX0000444000372400037240000000113014556365350015531 0ustar xbuildxbuild# $Id: QNX,v 8.7 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 PUSHDIVERT(1) # # For this Makefile to work you must compile and install the libdb package # and then change DBMINC and DBMLIB as appropriate. # DBMINC= /usr/local/include DBMLIB= /usr/local/lib POPDIVERT define(`confENVDEF', `-Osax -w4 -zc -fr= -D__BIT_TYPES_DEFINED__') APPENDDEF(`confINCDIRS', `${DBMINC}') define(`confLIBDIRS', `${DBMLIB}') define(`confLIBS', `-lsocket') define(`confLDOPTS', `-M -N256k') define(`confINSTALL', `${BUILDBIN}/install.sh') sendmail-8.18.1/devtools/OS/NCR.MP-RAS.2.x0000444000372400037240000000123214556365350017054 0ustar xbuildxbuild# $Id: NCR.MP-RAS.2.x,v 8.14 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-DNCR_MP_RAS2') define(`confOPTIMIZE', `-O2') APPENDDEF(`confINCDIRS', `-I/usr/include -I/usr/ucbinclude') define(`confLIBDIRS', `-L/usr/ucblib') define(`confLIBS', `-lnsl -lnet -lsocket -lelf -lc -lucb') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSTDIR', `/var/ucblib') define(`confINSTALL', `/usr/ucb/install') define(`confDEPEND_TYPE', `NCR') sendmail-8.18.1/devtools/OS/NCR.MP-RAS.3.x0000444000372400037240000000107014556365350017055 0ustar xbuildxbuild# $Id: NCR.MP-RAS.3.x,v 8.20 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DMAP_REGEX') define(`confENVDEF', `-DNCR_MP_RAS3') define(`confOPTIMIZE', `-O2') define(`confLIBS', `-lsocket -lnsl -lelf -lc89') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSTDIR', `/var/ucblib') define(`confINSTALL', `/usr/ucb/install') define(`confDEPEND_TYPE', `NCR') sendmail-8.18.1/devtools/OS/A-UX0000444000372400037240000000064514556365350015607 0ustar xbuildxbuild# $Id: A-UX,v 8.8 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-D_POSIX_SOURCE') define(`confLIBS', `-ldbm -lposix -lUTIL') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') sendmail-8.18.1/devtools/OS/Darwin.7.x0000444000372400037240000000131014556365350016722 0ustar xbuildxbuild# $Id: Darwin.7.x,v 1.2 2004-01-19 21:21:22 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN -DBIND_8_COMPAT') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') sendmail-8.18.1/devtools/OS/ULTRIX0000444000372400037240000000071714556365350016124 0ustar xbuildxbuild# $Id: ULTRIX,v 8.15 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -Olimit 1350') define(`confMAPDEF', `-DNDBM -DNIS') define(`confSM_OS_HEADER', `sm_os_ultrix') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confHFDIR', `/usr/lib') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/NonStop-UX0000444000372400037240000000121514556365350017021 0ustar xbuildxbuild# $Id: NonStop-UX,v 8.13 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-DNonStop_UX_BXX -D_SVID') APPENDDEF(`confINCDIRS', `-I/usr/include -I/usr/ucbinclude') define(`confLIBDIRS', `-L/usr/ucblib') define(`confLIBS', `-lsocket -lnsl -lelf -lucb') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/BSD430000444000372400037240000000105214556365350015645 0ustar xbuildxbuild# $Id: BSD43,v 8.11 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confBEFORE', `unistd.h stddef.h stdlib.h dirent.h sys/time.h') define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-DoldBSD43') define(`confLIBS', `-ldbm -ll') define(`confUBINDIR', `/usr/ucb') PUSHDIVERT(3) unistd.h stddef.h stdlib.h sys/time.h: cp /dev/null $@ sys/time.h: sys sys: mkdir sys dirent.h: echo "#include " > dirent.h echo "#define dirent direct" >> dirent.h POPDIVERT sendmail-8.18.1/devtools/OS/HP-UX.11.x0000444000372400037240000000217714556365350016426 0ustar xbuildxbuild# $Id: HP-UX.11.x,v 8.27 2012-01-21 00:07:09 ashish Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # +z is to generate position independent code define(`confCClibsmi', `cc -Ae +Z') define(`confCC', `cc -Ae') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-DV4FS -DHPUX11') define(`confSM_OS_HEADER', `sm_os_hp') define(`confOPTIMIZE',`+O2') define(`confLIBS', `-ldbm -lnsl') define(`confSHELL', `/usr/bin/sh') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confSBINGRP', `mail') define(`confEBINDIR', `/usr/sbin') define(`confMTCCOPTS', `-D_POSIX_C_SOURCE=199506L +z') define(`confMTLDOPTS', `-lpthread') define(`confLD', `ld') define(`confLDOPTS_SO', `-b') define(`confCCOPTS_SO', `') dnl Don't indent or put any tab/space in this file. dnl Tab/space here causes make syntax error ifelse(confBLDVARIANT, `DEBUG', dnl Debug build ` define(`confOPTIMIZE',`-g') ', dnl Optimized build confBLDVARIANT, `OPTIMIZED', ` define(`confOPTIMIZE',`+O2') ', dnl Purify build confBLDVARIANT, `PURIFY', ` define(`confOPTIMIZE',`-g') ', dnl default ` define(`confOPTIMIZE',`+O2') ') sendmail-8.18.1/devtools/OS/ConvexOS0000444000372400037240000000067514556365350016604 0ustar xbuildxbuild# $Id: ConvexOS,v 8.9 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DYPCOMPAT -DNIS') define(`confENVDEF', `-D__STDC__ -d non_int_bit_field') define(`confOPTIMIZE', `-g') define(`confLIBS', `-lshare') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') sendmail-8.18.1/devtools/OS/DragonFly0000444000372400037240000000177014556365350016762 0ustar xbuildxbuild# $Id: DragonFly,v 1.1 2004-08-06 03:54:05 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confLIBS', `-lutil') define(`confLD', `cc') define(`confMTLDOPTS', `-pthread') define(`confMTCCOPTS', `-D_THREAD_SAFE') define(`confLDOPTS_SO', `-shared') define(`confCCOPTS_SO', `-fPIC') define(`confSONAME', `-soname') define(`confSM_OS_HEADER', `sm_os_dragonfly') define(`confPERL_CONFIGURE_ARGS', `-Dlddlflags=-shared -Dccdlflags="-export-dynamic"') ifelse(confBLDVARIANT, `DEBUG', dnl Debug build ` define(`confOPTIMIZE',`-g') ', dnl Optimized build confBLDVARIANT, `OPTIMIZED', ` define(`confOPTIMIZE',`-O') ', dnl Purify build confBLDVARIANT, `PURIFY', ` define(`confOPTIMIZE',`-g') ', dnl default ` define(`confOPTIMIZE',`-O') ') define(`USE_ICONV',` APPENDDEF(`confLIBS',`-liconv ')dnl APPENDDEF(`confLIBDIRS',`-L/usr/local/lib ')dnl APPENDDEF(`confINCDIRS',`-I/usr/local/include ')dnl ')dnl sendmail-8.18.1/devtools/OS/Rhapsody0000444000372400037240000000151214556365350016660 0ustar xbuildxbuild# $Id: Rhapsody,v 8.7 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # # Wilfredo Sanchez : # We look a lot more like 4.4BSD than NeXTStep or OpenStep. # define(`confCC', `cc -traditional-cpp -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX -DNETINFO -DAUTO_NETINFO_ALIASES -DAUTO_NETINFO_HOSTS') define(`confENVDEF', `-DDARWIN -DNETISO') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') sendmail-8.18.1/devtools/OS/SunOS.5.120000444000372400037240000000142114556365350016461 0ustar xbuildxbuild# $Id: SunOS.5.12,v 1.1 2012-12-12 02:34:40 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confLDOPTS_SO', `-G') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-DSOLARIS=21200 -DNETINET6') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl') define(`confMTCCOPTS', `-D_REENTRANT') define(`confMTLDOPTS', `-lpthread') define(`confMBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/include/sysexits.h ]; \ then \ ln -s /usr/include/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/PTX0000444000372400037240000000060414556365350015543 0ustar xbuildxbuild# $Id: PTX,v 8.9 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM') define(`confOPTIMIZE', `-g') define(`confLIBS', `-lsocket -linet -lelf -lnsl -lseq') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') sendmail-8.18.1/devtools/OS/NetBSD.8.30000444000372400037240000000030714556365350016456 0ustar xbuildxbuild# $Id: NetBSD.8.3,v 8.11 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') sendmail-8.18.1/devtools/OS/SVR40000444000372400037240000000102514556365350015624 0ustar xbuildxbuild# $Id: SVR4,v 8.10 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-D__svr4__') define(`confLIBS', `-ldbm -lsocket -lnsl -lelf') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/OpenBSD0000444000372400037240000000160514556365350016324 0ustar xbuildxbuild# $Id: OpenBSD,v 8.21 2008-08-06 23:41:44 guenther Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confLD', `cc') define(`confLDOPTS_SO', `-shared') define(`confCCOPTS_SO', `-fPIC') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', ` -DFAST_PID_RECYCLE') define(`confSM_OS_HEADER', `sm_os_openbsd') define(`confMTCCOPTS', `-pthread') define(`confMTLDOPTS', `-pthread') ifelse(confBLDVARIANT, `DEBUG', dnl Debug build ` define(`confOPTIMIZE',`-g') ', dnl Optimized build confBLDVARIANT, `OPTIMIZED', ` define(`confOPTIMIZE',`-O') ', dnl Purify build confBLDVARIANT, `PURIFY', ` define(`confOPTIMIZE',`-g') ', dnl default ` define(`confOPTIMIZE',`-O') ') define(`USE_ICONV',` APPENDDEF(`confLIBS',`-liconv ')dnl APPENDDEF(`confLIBDIRS',`-L/usr/local/lib ')dnl APPENDDEF(`confINCDIRS',`-I/usr/local/include ')dnl ')dnl sendmail-8.18.1/devtools/OS/ISC0000444000372400037240000000072414556365350015511 0ustar xbuildxbuild# $Id: ISC,v 8.9 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS') define(`confENVDEF', `-DISC_UNIX -D_POSIX_SOURCE -D_SYSV3') define(`confLIBS', `-lyp -lrpc -lndbm -linet -lcposix') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confSTDIR', `/usr/spool/log') sendmail-8.18.1/devtools/OS/Darwin.11.x0000444000372400037240000000160514556365350017004 0ustar xbuildxbuild# $Id: Darwin.11.x,v 1.1 2011-11-23 01:08:48 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=110000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/CSOS0000444000372400037240000000054214556365350015640 0ustar xbuildxbuild# $Id: CSOS,v 8.8 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confLIBS', `-lnet') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confEBINDIR', `/usr/lib') define(`confUBINDIR', `/usr/ucb') define(`confINSTALL', `${BUILDBIN}/install.sh') sendmail-8.18.1/devtools/OS/Paragon0000444000372400037240000000055514556365350016464 0ustar xbuildxbuild# $Id: Paragon,v 8.6 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM') define(`confLIBDIRS', `-L/usr/shlib -L/usr/lib') define(`confLIBS', `-ldbm') define(`confSTDIR', `/var/adm/sendmail') define(`confINSTALL', `installbsd') define(`confUBINDIR', `${BINDIR}') sendmail-8.18.1/devtools/OS/UX48000000444000372400037240000000161114556365350015737 0ustar xbuildxbuild# $Id: UX4800,v 8.15 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `/usr/abiccs/bin/cc -KOlimit=1000') define(`confBEFORE', `sysexits.h ndbm.h') define(`confMAPDEF', `-DNDBM -DNIS') define(`confENVDEF', `') define(`confLIBS', `-lsocket -lnsl -lelf') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `sys') define(`confSTDIR', `/var/ucblib') define(`confINSTALL', `/usr/ucb/install') PUSHDIVERT(3) sysexits.h: echo '#ifndef _LOCAL_SYSEXITS_H_' > sysexits.h; echo '#define _LOCAL_SYSEXITS_H_' >> sysexits.h; cat /usr/abiccs/ucbinclude/sysexits.h >> sysexits.h; echo '#endif /* _LOCAL_SYSEXITS_H_ */' >> sysexits.h; ndbm.h: sed 's/void/char/' /usr/abiccs/include/ndbm.h > ndbm.h POPDIVERT sendmail-8.18.1/devtools/OS/Darwin.9.x0000444000372400037240000000157514556365350016741 0ustar xbuildxbuild# $Id: Darwin.9.x,v 1.3 2008-02-26 21:21:30 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=90000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/BSD-OS0000444000372400037240000000056014556365350016020 0ustar xbuildxbuild# $Id: BSD-OS,v 8.16 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNEWDB -DMAP_REGEX') define(`confENVDEF', `-DNETISO') define(`confLIBS', `-lutil -lkvm') define(`confOPTIMIZE', `-O2') define(`confMAN1EXT', `0') define(`confMAN5EXT', `0') define(`confMAN8EXT', `0') sendmail-8.18.1/devtools/OS/maxion0000444000372400037240000000107714556365350016370 0ustar xbuildxbuild# $Id: maxion,v 8.9 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `/usr/ucb/cc') define(`confMAPDEF', `-DNDBM -DNIS') define(`confLIBDIRS', `-L/usr/ucblib') define(`confLIBS', `-ldbm -lgen -lucb') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINOWN', `smtp') define(`confSBINGRP', `mail') define(`confSTDIR', `/var/adm/log') define(`confINSTALL', `/usr/ucb/install') sendmail-8.18.1/devtools/OS/SunOS0000444000372400037240000000065214556365350016102 0ustar xbuildxbuild# $Id: SunOS,v 8.12 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLDOPTS', `-Bstatic') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/OpenUNIX.5.i3860000444000372400037240000000131014556365350017323 0ustar xbuildxbuild# $Id: OpenUNIX.5.i386,v 1.3 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # # System V Rel 5.x (a.k.a OpenUNIX) # define(`confSM_OS_HEADER', `sm_os_openunix') define(`confCC', `/usr/ccs/bin/cc') define(`confMAPDEF', `-DNDBM -DMAP_REGEX') define(`confENVDEF', `-D__svr5__') define(`confLIBS', `-lsocket -lnsl -lelf') define(`confSHELL', `/usr/bin/sh') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/etc/mail') define(`confUBINDIR', `/etc/mail') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') define(`confMTCCOPTS', `-Kpthread') define(`confMTLDOPTS', `-lpthread') sendmail-8.18.1/devtools/OS/OSF10000444000372400037240000000116714556365350015605 0ustar xbuildxbuild# $Id: OSF1,v 8.19 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -std1 -Olimit 1000') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confLIBS', `-ldbm') define(`confSM_OS_HEADER', `sm_os_osf1') define(`confSTDIR', `/var/adm/sendmail') define(`confINSTALL', `installbsd') define(`confEBINDIR', `/usr/lbin') define(`confUBINDIR', `${BINDIR}') define(`confDEPEND_TYPE', `CC-M') define(`confMTCCOPTS', `-D_REENTRANT') define(`confMTLDOPTS', `-lpthread') define(`confDEPLIBS', `-lpthread -lc') define(`confSONAME', `-soname') sendmail-8.18.1/devtools/OS/Linux0000444000372400037240000000152714556365350016174 0ustar xbuildxbuild# $Id: Linux,v 8.31 2009-01-22 02:15:42 guenther Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confDEPEND_TYPE', `CC-M') define(`confCCOPTS_SO', `-fPIC') define(`confSM_OS_HEADER', `sm_os_linux') define(`confMANROOT', `/usr/man/man') define(`confLIBS', `-ldl') define(`confEBINDIR', `/usr/sbin') APPENDDEF(`confLIBSEARCH', `crypt nsl') define(`confLD', `ld') define(`confMTCCOPTS', `-D_REENTRANT') define(`confMTLDOPTS', `-lpthread') define(`confLDOPTS_SO', `-shared') define(`confSONAME',`-soname') ifelse(confBLDVARIANT, `DEBUG', dnl Debug build ` define(`confOPTIMIZE',`-g -Wall') ', dnl Optimized build confBLDVARIANT, `OPTIMIZED', ` define(`confOPTIMIZE',`-O2') ', dnl Purify build confBLDVARIANT, `PURIFY', ` define(`confOPTIMIZE',`-g') ', dnl default ` define(`confOPTIMIZE',`-O2') ') sendmail-8.18.1/devtools/OS/AIX.4.x0000444000372400037240000000101314556365350016114 0ustar xbuildxbuild# $Id: AIX.4.x,v 8.17 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-D_AIX4') define(`confOPTIMIZE', `-O3 -qstrict') define(`confLIBS', `-ldbm') define(`confINSTALL', `/usr/ucb/install') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `system') define(`confDEPEND_TYPE', `AIX') define(`confLDOPTS', `-blibpath:/usr/lib:/lib') define(`confSM_OS_HEADER', `sm_os_aix') sendmail-8.18.1/devtools/OS/SunOS.5.10000444000372400037240000000134714556365350016406 0ustar xbuildxbuild# $Id: SunOS.5.1,v 8.15 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS') define(`confENVDEF', `-DSOLARIS=20100') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl -lelf') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/ucbinclude/sysexits.h ]; \ then \ ln -s /usr/ucbinclude/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/AIX.5.30000444000372400037240000000125414556365350016017 0ustar xbuildxbuild# $Id: AIX.5.3,v 1.1 2005-05-17 00:36:55 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-D_AIX5=50300') define(`confOPTIMIZE', `-O3 -qstrict') define(`confCC', `/usr/vac/bin/xlc') define(`confLIBS', `-ldbm') define(`confINSTALL', `/usr/ucb/install') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `system') define(`confDEPEND_TYPE', `AIX') define(`confLDOPTS', `-blibpath:/usr/lib:/lib') define(`confSM_OS_HEADER', `sm_os_aix') define(`confMTCCOPTS', `-D_THREAD_SAFE') define(`confMTLDOPTS', `-lpthread') define(`confLDOPTS_SO', `-Wl,-G -Wl,-bexpall') sendmail-8.18.1/devtools/OS/386BSD0000444000372400037240000000060114556365350015736 0ustar xbuildxbuild# $Id: 386BSD,v 8.3 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confENVDEF', ` -DMIME') define(`confLIBS', `-lutil') define(`confLINKS', `/usr/sbin/sendmail /usr/bin/newaliases \ /usr/sbin/sendmail /usr/bin/mailq \ /usr/sbin/sendmail /usr/bin/hoststat \ /usr/sbin/sendmail /usr/bin/purgestat') sendmail-8.18.1/devtools/OS/Altos0000444000372400037240000000071314556365350016153 0ustar xbuildxbuild# $Id: Altos,v 8.10 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confENVDEF', `-DALTOS_SYSTEM_V') define(`confLIBS', `-lsocket -lrpc') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/Darwin.13.x0000444000372400037240000000160514556365350017006 0ustar xbuildxbuild# $Id: Darwin.13.x,v 1.1 2013-12-02 22:11:06 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=130000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/Dynix0000444000372400037240000000100014556365350016152 0ustar xbuildxbuild# $Id: Dynix,v 8.11 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confOPTIMIZE', `-O -g') define(`confLIBS', `-lseq') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `staff # no kmem group,') define(`confOBJADD', `strtol.o') define(`confSRCADD', `strtol.c') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/PowerUX0000444000372400037240000000072614556365350016446 0ustar xbuildxbuild# $Id: PowerUX,v 8.8 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confENVDEF', `-D__svr4__') define(`confLIBS', `-Bstatic -lsocket -lnsl -lelf -lgen') define(`confMBINDIR', `/usr/local/etc') define(`confSBINDIR', `/usr/local/etc') define(`confUBINDIR', `/usr/local/bin') define(`confEBINDIR', `/usr/local/lib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') sendmail-8.18.1/devtools/OS/SunOS.5.80000444000372400037240000000144114556365350016410 0ustar xbuildxbuild# $Id: SunOS.5.8,v 8.14 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confLDOPTS_SO', `-G') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS -DNISPLUS -DMAP_REGEX') define(`confENVDEF', `-DSOLARIS=20800 -DNETINET6') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl') define(`confMTCCOPTS', `-D_REENTRANT') define(`confMTLDOPTS', `-lpthread') define(`confMBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/include/sysexits.h ]; \ then \ ln -s /usr/include/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/SunOS.5.50000444000372400037240000000126514556365350016411 0ustar xbuildxbuild# $Id: SunOS.5.5,v 8.18 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS -DNISPLUS -DMAP_REGEX') define(`confENVDEF', `-DSOLARIS=20500') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl -lkstat') define(`confMBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/include/sysexits.h ]; \ then \ ln -s /usr/include/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/m88k0000444000372400037240000000145514556365350015664 0ustar xbuildxbuild# $Id: m88k,v 8.3 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # # Contributed by Sergey Rusanov # define(`confCC', `gcc') define(`confOPTIMIZE', `-O2') define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-DMOTO') define(`confINCDIRS', `-I/usr/include -I/usr/ucbinclude') define(`confLIBDIRS', `-L/usr/lib -L/usr/ucblib') define(`confLIBS', `-lc -ldbm -lsocket -lnsl -lelf -lucb') define(`confMBINDIR', `/usr/local/sbin') define(`confSBINDIR', `/usr/ucb') define(`confUBINDIR', `/usr/local/bin') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `mail') define(`confSTDIR', `/var/log') define(`confHFDIR', `/usr/local/sbin') define(`confINSTALL', `/usr/ucb/install') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/IRIX64.6.50000444000372400037240000000132414556365350016324 0ustar xbuildxbuild# $Id: IRIX64.6.5,v 8.22 2012-01-21 00:07:09 ashish Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -mips3 -n32 -OPT:Olimit=0') define(`confLIBSEARCHPATH', `/lib32 /usr/lib32') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-DIRIX6') define(`confSM_OS_HEADER', `sm_os_irix') define(`confMANOWN', `root') define(`confMANGRP', `sys') define(`confUBINOWN', `root') define(`confUBINGRP', `sys') define(`confMBINDIR', `/usr/lib') define(`confUBINDIR', `/usr/bsd') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confSTDIR', `/var') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/Darwin0000444000372400037240000000155314556365350016320 0ustar xbuildxbuild# $Id: Darwin,v 8.6 2002-08-26 22:08:49 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # # Wilfredo Sanchez : # We look a lot more like 4.4BSD than NeXTStep or OpenStep. # define(`confCC', `cc -traditional-cpp -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX -DNETINFO -DAUTO_NETINFO_ALIASES -DAUTO_NETINFO_HOSTS') define(`confENVDEF', `-DDARWIN') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') sendmail-8.18.1/devtools/OS/Interix0000444000372400037240000000124214556365350016511 0ustar xbuildxbuild# $Id: Interix,v 1.2 2004-01-09 18:53:03 ca Exp $ # Contributed by Nedelcho Stanev dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 dnl: Interix 3.0: /usr/local/bin/gcc dnl: Interix 3.5: /opt/gcc.3.3/bin/gcc define(`confCC', `gcc') define(`confOPTIMIZE', `-O2') APPENDDEF(`confMAPDEF', `-DMAP_REGEX') APPENDDEF(`confENVDEF', `-D__INTERIX -D_ALL_SOURCE') APPENDDEF(`confINCDIRS', `-I/usr/local/include/bind') APPENDDEF(`confLIBDIRS', `-L/usr/local/lib/bind') APPENDDEF(`confLIBS', `-lbind') APPENDDEF(`confLIBS', `-ll') define(`confMAN1EXT', `0') define(`confMAN5EXT', `0') define(`confMAN8EXT', `0') sendmail-8.18.1/devtools/OS/IRIX0000444000372400037240000000077714556365350015656 0ustar xbuildxbuild# $Id: IRIX,v 8.14 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS') define(`confLIBS', `-lmld -lmalloc -lsun') define(`confSM_OS_HEADER', `sm_os_irix') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/bsd') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/UNICOS-mp0000444000372400037240000000102314556365350016476 0ustar xbuildxbuild# $Id: UNICOS-mp,v 8.2 2012-01-21 00:07:09 ashish Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confENVDEF', `-DUNICOSMP') define(`confDEPEND_TYPE', `CC-M') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confMANGRP', `sys') define(`confMANOWN', `root') define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confSBINGRP', `sys') define(`confSBINOWN', `root') define(`confSM_OS_HEADER', `sm_os_unicosmp') define(`confUBINGRP', `sys') define(`confUBINOWN', `root') sendmail-8.18.1/devtools/OS/AIX.5.20000444000372400037240000000125414556365350016016 0ustar xbuildxbuild# $Id: AIX.5.2,v 1.2 2003-04-28 23:37:21 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-D_AIX5=50200') define(`confOPTIMIZE', `-O3 -qstrict') define(`confCC', `/usr/vac/bin/xlc') define(`confLIBS', `-ldbm') define(`confINSTALL', `/usr/ucb/install') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `system') define(`confDEPEND_TYPE', `AIX') define(`confLDOPTS', `-blibpath:/usr/lib:/lib') define(`confSM_OS_HEADER', `sm_os_aix') define(`confMTCCOPTS', `-D_THREAD_SAFE') define(`confMTLDOPTS', `-lpthread') define(`confLDOPTS_SO', `-Wl,-G -Wl,-bexpall') sendmail-8.18.1/devtools/OS/AIX.5.10000444000372400037240000000126214556365350016014 0ustar xbuildxbuild# $Id: AIX.5.1,v 1.2 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS -DMAP_REGEX') define(`confENVDEF', `-D_AIX5=50100') define(`confOPTIMIZE', `-O3 -qstrict') define(`confCC', `/usr/vac/bin/xlc') define(`confLIBS', `-ldbm') define(`confINSTALL', `/usr/ucb/install') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `system') define(`confDEPEND_TYPE', `AIX') define(`confLDOPTS', `-blibpath:/usr/lib:/lib') define(`confSM_OS_HEADER', `sm_os_aix') define(`confMTCCOPTS', `-D_THREAD_SAFE') define(`confMTLDOPTS', `-lpthread') define(`confLDOPTS_SO', `-Wl,-G -Wl,-bexpall') sendmail-8.18.1/devtools/OS/SINIX.5.440000444000372400037240000000102114556365350016345 0ustar xbuildxbuild# $Id: SINIX.5.44,v 8.3 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `/usr/bin/cc') define(`confENVDEF', `-W0 -D__svr4__ -Klp64') define(`confLIBS', `-lsocket -lnsl -lelf -lmproc') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucbetc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') define(`confLDOPTS', `-Klp64 -s') sendmail-8.18.1/devtools/OS/SunOS.5.30000444000372400037240000000125514556365350016406 0ustar xbuildxbuild# $Id: SunOS.5.3,v 8.15 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confBEFORE', `sysexits.h') define(`confMAPDEF', `-DNDBM -DNIS -DNISPLUS') define(`confENVDEF', `-DSOLARIS=20300') define(`confSM_OS_HEADER', `sm_os_sunos') define(`confLIBS', `-lsocket -lnsl -lelf') define(`confMBINDIR', `/usr/lib') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `${BUILDBIN}/install.sh') define(`confDEPEND_TYPE', `CC-M') PUSHDIVERT(3) sysexits.h: if [ -r /usr/ucbinclude/sysexits.h ]; \ then \ ln -s /usr/ucbinclude/sysexits.h; \ fi POPDIVERT sendmail-8.18.1/devtools/OS/Titan0000444000372400037240000000072314556365350016151 0ustar xbuildxbuild# $Id: Titan,v 8.7 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -43') define(`confBEFORE', `stddef.h stdlib.h') define(`confMAPDEF', `-DNDBM') define(`confLIBS', `-ldbm') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') PUSHDIVERT(3) stddef.h stdlib.h: cp /dev/null $@ POPDIVERT sendmail-8.18.1/devtools/OS/KSR0000444000372400037240000000051414556365350015527 0ustar xbuildxbuild# $Id: KSR,v 8.7 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNDBM -DNIS') define(`confLIBDIRS', `-L/usr/shlib -L/usr/lib') define(`confLIBS', `-ldbm') define(`confSTDIR', `/var/adm/sendmail') define(`confINSTALL', `installbsd') sendmail-8.18.1/devtools/OS/dcosx.1.x.NILE0000444000372400037240000000054014556365350017342 0ustar xbuildxbuild# $Id: dcosx.1.x.NILE,v 8.6 2002-03-21 23:59:26 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confENVDEF', `-D__svr4__ -DDCOSx') define(`confLIBS', `-lsocket -lnsl -lelf') define(`confHFDIR', `/usr/share/lib/mail') define(`confINSTALL', `/usr/ucb/install') define(`confSBINGRP', `sys') sendmail-8.18.1/devtools/OS/Dell0000444000372400037240000000106314556365350015750 0ustar xbuildxbuild# $Id: Dell,v 8.12 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confMAPDEF', `-DNDBM') define(`confENVDEF', `-D__svr4__') define(`confOPTIMIZE', `-O2') define(`confLIBS', `-ldbm -lsocket -lnsl -lelf') define(`confMBINDIR', `/usr/ucblib') define(`confSBINDIR', `/usr/ucblib') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/ucblib') define(`confSBINGRP', `mail') define(`confINSTALL', `/usr/ucb/install') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/DomainOS0000444000372400037240000000107214556365350016541 0ustar xbuildxbuild# $Id: DomainOS,v 8.9 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `cc -A nansi -A,systype,any -A,runtype,bsd4.3') define(`confBEFORE', `unistd.h dirent.h') define(`confMAPDEF', `-DNDBM') define(`confSBINDIR', `/usr/etc') define(`confMBINDIR', `/usr/lib') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') PUSHDIVERT(3) unistd.h: cp /dev/null unistd.h dirent.h: echo "#include " > dirent.h echo "#define dirent direct" >> dirent.h POPDIVERT sendmail-8.18.1/devtools/OS/LUNA0000444000372400037240000000231614556365350015631 0ustar xbuildxbuild# $Id: LUNA,v 8.11 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confBEFORE', `dirent.h stddef.h stdlib.h unistd.h limits.h time.h sys/time.h') define(`confMAPDEF', `-DNDBM') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') PUSHDIVERT(3) dirent.h: echo "#include " > dirent.h echo "#define dirent direct" >> dirent.h stddef.h unistd.h limits.h: if [ -f /usr/include/$@ ]; then \ ln -s /usr/include/$@ .; \ else \ cp /dev/null $@; \ fi stdlib.h: if [ -f /usr/include/stdlib.h ]; then \ ln -s /usr/include/stdlib.h .; \ else \ if [ -f /usr/include/libc.h ]; then \ ln -s /usr/include/libc.h stdlib.h; \ else \ cp /dev/null stdlib.h; \ fi; \ fi # just for UNIOS-B time.h: echo "#ifndef _LOCAL_TIME_H_" > time.h echo "#define _LOCAL_TIME_H_" >> time.h cat /usr/include/time.h >> time.h echo "#endif" >> time.h sys/time.h: -mkdir sys echo "#ifndef _LOCAL_SYS_TIME_H_" > sys/time.h echo "#define _LOCAL_SYS_TIME_H_" >> sys/time.h cat /usr/include/sys/time.h >> sys/time.h echo "#endif" >> sys/time.h POPDIVERT sendmail-8.18.1/devtools/OS/NEWS-OS.6.x0000444000372400037240000000144414556365350016600 0ustar xbuildxbuild# $Id: NEWS-OS.6.x,v 8.14 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `/bin/cc') define(`confBEFORE', `sysexits.h ndbm.o') define(`confMAPDEF', `-DNDBM -DNIS') define(`confLIBS', `ndbm.o -lelf -lsocket -lnsl') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confSBINGRP', `sys') define(`confINSTALL', `/usr/ucb/install') PUSHDIVERT(3) sysexits.h: ln -s /usr/ucbinclude/sysexits.h . ndbm.o: if [ ! -f /usr/include/ndbm.h ]; then \ ln -s /usr/ucbinclude/ndbm.h .; \ fi; \ if [ -f /usr/lib/libndbm.a ]; then \ ar x /usr/lib/libndbm.a ndbm.o; \ else \ ar x /usr/ucblib/libucb.a ndbm.o; \ fi; POPDIVERT sendmail-8.18.1/devtools/OS/Mach3860000444000372400037240000000061614556365350016204 0ustar xbuildxbuild# $Id: Mach386,v 8.9 2002-03-21 23:59:25 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confCC', `gcc') define(`confMAPDEF', `-DNDBM') define(`confLIBS', `-ldbm') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') define(`confDEPEND_TYPE', `CC-M') sendmail-8.18.1/devtools/OS/UNICOS0000444000372400037240000000073414556365350016074 0ustar xbuildxbuild# $Id: UNICOS,v 8.12 2003-04-21 17:03:52 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confENVDEF', `-DUNICOS') define(`confDEPEND_TYPE', `CC-M') define(`confMAPDEF', `-DNDBM') define(`confOPTIMIZE', `-O') define(`confINSTALL', `cpset') define(`confSM_OS_HEADER', `sm_os_unicos') define(`confMBINDIR', `/usr/lib') define(`confSBINDIR', `/usr/etc') define(`confUBINDIR', `/usr/ucb') define(`confEBINDIR', `/usr/lib') sendmail-8.18.1/devtools/OS/Darwin.10.x0000444000372400037240000000160514556365350017003 0ustar xbuildxbuild# $Id: Darwin.10.x,v 1.1 2010-11-23 02:30:30 gshapiro Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 # define(`confCC', `cc -pipe ${Extra_CC_Flags}') define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confENVDEF', `-DDARWIN=100000 -DBIND_8_COMPAT -DNETINET6') define(`confLDOPTS', `${Extra_LD_Flags}') define(`confMTLDOPTS', `-lpthread') define(`confMILTER_STATIC', `') define(`confDEPEND_TYPE', `CC-M') define(`confOPTIMIZE', `-O3') define(`confRANLIBOPTS', `-c') define(`confHFDIR', `/usr/share/sendmail') define(`confINSTALL_RAWMAN') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confSBINOWN', `root') define(`confSBINGRP', `wheel') define(`confLDOPTS_SO', `-dynamiclib -flat_namespace -undefined suppress -single_module') define(`confSHAREDLIB_EXT', `.dylib') sendmail-8.18.1/devtools/OS/NetBSD0000444000372400037240000000107414556365350016151 0ustar xbuildxbuild# $Id: NetBSD,v 8.15 2004-06-16 17:50:00 ca Exp $ dnl DO NOT EDIT THIS FILE. dnl Place personal settings in devtools/Site/site.config.m4 define(`confMAPDEF', `-DNEWDB -DNIS -DMAP_REGEX') define(`confLIBS', `-lutil') define(`confENVDEF', ` -DNETISO') define(`confDEPEND_TYPE', `CC-M') define(`confSBINGRP', `wheel') define(`confUBINOWN', `root') define(`confUBINGRP', `wheel') define(`confMANOWN', `root') define(`confMANGRP', `wheel') define(`confMAN1EXT', `0') define(`confMAN3EXT', `0') define(`confMAN4EXT', `0') define(`confMAN5EXT', `0') define(`confMAN8EXT', `0') sendmail-8.18.1/devtools/bin/0000755000372400037240000000000014556365433015400 5ustar xbuildxbuildsendmail-8.18.1/devtools/bin/configure.sh0000755000372400037240000000635414556365350017726 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: configure.sh,v 8.48 2013-12-02 22:11:07 gshapiro Exp $ # # Special script to autoconfigure for M4 generation of Makefile # SHELL=/bin/sh os="" resolver="" sflag="" bin_dir=`echo $0 | sed -e 's%\/[^/]*$%%'` if [ ! -d $bin_dir ] then bin_dir="." fi find_prog=$bin_dir/find_in_path.sh while [ ! -z "$1" ] do case $1 in -s) # skip auto-configure sflag=1 shift ;; *) # OS definition os=$1 shift ;; esac done usewhoami=0 usehostname=0 for p in `echo $PATH | sed 's/:/ /g'` do if [ "x$p" = "x" ] then p="." fi if [ -f $p/whoami ] then usewhoami=1 if [ $usehostname -ne 0 ] then break; fi fi if [ -f $p/hostname ] then usehostname=1 if [ $usewhoami -ne 0 ] then break; fi fi done if [ $usewhoami -ne 0 ] then user=`whoami` else user=$LOGNAME fi if [ $usehostname -ne 0 ] then host=`hostname` else host=`uname -n` fi if [ -z "$SOEXT" ] then SOEXT=".so" fi echo "PUSHDIVERT(0)" echo "####################################################################" echo "##### This file is automatically generated -- edit at your own risk" echo '#####' Built by $user@$host echo '#####' on `date` using template OS/$os if [ ! -z "$SITECONFIG" ] then echo '#####' including $SITECONFIG fi echo '#####' in `pwd` | sed 's/\/tmp_mnt//' echo "####################################################################" echo "" echo "POPDIVERT" echo "define(\`__HOST__', \`$host')dnl" echo "ifdef(\`confMAPDEF',, \`define(\`confMAPDEF', \`')')dnl" echo "ifdef(\`confLIBS',, \`define(\`confLIBS', \`')')dnl" LIBDIRS="$LIBDIRS $LIBPATH" libs="" mapdef="" for l in $LIBSRCH do for p in `echo $LIBDIRS | sed -e 's/:/ /g' -e 's/^-L//g' -e 's/ -L/ /g'` do if [ "x$p" = "x" ] then p = "." fi if [ -f $p/lib$l.a -o -f $p/lib$l$SOEXT ] then case $l in db) mapdef="$mapdef -DNEWDB" ;; cdb) mapdef="$mapdef -DCDB" ;; bind|resolv) if [ -n "$resolver" ] then continue else resolver=$l fi ;; 44bsd) if [ "x$resolver" != "xresolv" ] then continue fi ;; esac libs="$libs -l$l" break fi done done for p in `echo $PATH | sed 's/:/ /g'` do pbase=`echo $p | sed -e 's,/bin,,'` if [ "x$p" = "x" ] then p="." fi if [ -f $p/mkdep ] then echo "ifdef(\`confDEPEND_TYPE',, \`define(\`confDEPEND_TYPE', \`BSD')')dnl" fi done if [ -z "$sflag" ] then echo "define(\`confMAPDEF', \`$mapdef' confMAPDEF)dnl" echo "define(\`confLIBS', \`$libs' confLIBS)dnl" fi if [ ! -z "`$SHELL $find_prog ranlib`" ] then echo "define(\`confRANLIB', \`ranlib')dnl" fi roff_progs="groff nroff mandoc" for roff_prog in $roff_progs do if [ ! -z "`$SHELL $find_prog $roff_prog`" ] then found_roff=$roff_prog break; fi done case $found_roff in groff|mandoc) echo "ifdef(\`confNROFF',,\`define(\`confNROFF', \`$found_roff -Tascii')')dnl" ;; nroff) echo "ifdef(\`confNROFF',,\`define(\`confNROFF', \`$found_roff')')dnl" ;; *) echo "ifdef(\`confNROFF',,\`define(\`confNO_MAN_BUILD')')dnl" ;; esac sendmail-8.18.1/devtools/bin/Build0000755000372400037240000005070514556365350016372 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1998-2002, 2008 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1993, 1996-1997 Eric P. Allman. All rights reserved. # Copyright (c) 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.189 2013-12-02 22:11:07 gshapiro Exp $ # # # A quick-and-dirty script to compile sendmail and related programs # in the presence of multiple architectures. To use, just use # "sh Build". # trap "rm -f $obj/.settings$$; exit" 1 2 3 15 cflag="" mflag="" Mflag="" Aflag="" sflag="" makeargs="" libdirs="" incdirs="" libsrch="" libpath="" siteconfig="" pfx="" obj="" oscf="" arch="" os="" rel="" mkdir="mkdir -p" SENDMAIL_BUILD_FLAGS="" EX_OK=0 EX_USAGE=64 EX_NOINPUT=66 EX_UNAVAILABLE=69 SHELL=/bin/sh # default to a optimized build to behave like the old system. build_variant="optimized" full_src_dir=`pwd` if [ -z "$src_dir" ] then src_dir=`basename ${full_src_dir}` fi absolute_base_dir=`echo ${full_src_dir} | sed "s#${src_dir}\\$##"` obj_rel_base_dir='../..' while [ ! -z "$1" ] do case $1 in -src) # Specify pathname of source directory relative to # root of cvs tree. This relative pathname may have # multiple components, as in 'foo/bar/baz', and will also # be used to form the pathname of the object directory. shift arg=$1 if [ -z "$arg" ] then echo "Missing arg for -src" >&2 exit $EX_USAGE fi case $arg in /*) echo "Arg for -src must not begin with / ($arg)" >&2 exit $EX_USAGE ;; esac src_dir="$arg" absolute_base_dir=`echo ${full_src_dir} | sed "s;/${src_dir}$;;"` obj_rel_base_dir=`echo x/${src_dir} | sed "s;[^/][^/]*;..;g"` SMROOT=${absolute_base_dir} shift ;; -c) # clean out existing $obj tree cflag=1 SENDMAIL_BUILD_FLAGS="$SENDMAIL_BUILD_FLAGS $1" shift ;; -m) # show Makefile name only mflag=1 shift ;; -M) # show the name of the obj. directory Mflag=1 shift ;; -A) # show the name of the architecture Aflag=1 shift ;; -E*) # environment variables to pass into Build arg=`echo $1 | sed 's/^-E//'` if [ -z "$arg" ] then shift # move to argument arg=$1 fi if [ -z "$arg" ] then echo "Empty -E flag" >&2 exit $EX_USAGE else case $arg in *=*) # check format eval $arg export `echo $arg | sed 's;=.*;;'` SENDMAIL_BUILD_FLAGS="$SENDMAIL_BUILD_FLAGS -E \"$arg\"" ;; *) # bad format echo "Bad format for -E argument ($arg)" >&2 exit $EX_USAGE ;; esac shift fi ;; -L*) # set up LIBDIRS libdirs="$libdirs $1" SENDMAIL_BUILD_FLAGS="$SENDMAIL_BUILD_FLAGS $1" shift ;; -I*) # set up INCDIRS incdirs="$incdirs $1" SENDMAIL_BUILD_FLAGS="$SENDMAIL_BUILD_FLAGS $1" shift ;; -f*) # select site config file arg=`echo $1 | sed 's/^-f//'` if [ -z "$arg" ] then shift # move to argument arg=$1 fi if [ "$pfx" ] then echo "May not use -f and -Q together" exit $EX_USAGE fi if [ "$siteconfig" ] then echo "Only one -f flag allowed" >&2 exit $EX_USAGE else siteconfig=$arg if [ -z "$siteconfig" ] then echo "Missing argument for -f flag" >&2 exit $EX_USAGE elif [ ! -f "$siteconfig" ] then echo "${siteconfig}: File not found" exit $EX_NOINPUT else shift # move past argument case $arg in /*) SENDMAIL_BUILD_FLAGS="$SENDMAIL_BUILD_FLAGS -f \"$siteconfig\"" ;; *) SENDMAIL_BUILD_FLAGS="$SENDMAIL_BUILD_FLAGS -f \"${full_src_dir}/$siteconfig\"" ;; esac fi fi ;; -O*) # Set object directory manually. arg="`echo $1 | sed 's/^-O//'`" if [ -z "$arg" ] then shift # move to argument arg="$1" fi case $arg in /*) OBJ_ROOT="$arg" SENDMAIL_BUILD_FLAGS="$SENDMAIL_BUILD_FLAGS -O \"$OBJ_ROOT\"" obj_rel_base_dir=$absolute_base_dir ;; *) echo "Absolute directory path required for -O flag" >&2 exit $EX_USAGE ;; esac shift ;; -S) # skip auto-configure sflag="-s" SENDMAIL_BUILD_FLAGS="$SENDMAIL_BUILD_FLAGS $1" shift ;; -Q*) # Select a prefix for the Site/*.config.m4 file arg=`echo $1 | sed 's/^-Q//'` if [ -z "$arg" ] then shift # move to argument arg=$1 fi if [ -z "$arg" ] then echo "Empty -Q flag" >&2 exit $EX_USAGE elif [ "$siteconfig" ] then echo "May not use -Q and -f together" >&2 exit $EX_USAGE elif [ "$pfx" ] then echo "Only one -Q allowed" >&2 exit $EX_USAGE else pfx=$arg SENDMAIL_BUILD_FLAGS="$SENDMAIL_BUILD_FLAGS -Q \"$pfx\"" fi shift ;; -v) # Select a build variant: debug, optimized, purify, whatever. shift build_variant=$1 if [ -z "$build_variant" ] then echo "Usage error with \"-v\" " >&2 echo "You must specify exactly one build variant of debug|optimized|purify" >&2 exit $EX_USAGE fi shift ;; *) # pass argument to make makeargs="$makeargs \"$1\"" #SENDMAIL_BUILD_FLAGS="$SENDMAIL_BUILD_FLAGS \"$1\"" shift ;; esac done # process selected build variant. case $build_variant in debug) M4_BLDVARIANT_FLAGS="-DconfBLDVARIANT=DEBUG" ;; optimized) M4_BLDVARIANT_FLAGS="-DconfBLDVARIANT=OPTIMIZED" ;; purify) M4_BLDVARIANT_FLAGS="-DconfBLDVARIANT=PURIFY" echo "Sorry, the purify build variant has not been plumbed yet. (Bummer.)" >&2 exit $EX_USAGE ;; *) exit $EX_USAGE ;; esac # # Do heuristic guesses !ONLY! for machines that do not have uname # if [ -d /NextApps -a ! -f /bin/uname -a ! -f /usr/bin/uname ] then # probably a NeXT box arch=`hostinfo | sed -n 's/.*Processor type: \([^ ]*\).*/\1/p'` os=NeXT rel=`hostinfo | sed -n 's/.*NeXT Mach \([0-9\.]*\).*/\1/p'` elif [ -f /usr/sony/bin/machine -a -f /etc/osversion ] then # probably a Sony NEWS 4.x os=NEWS-OS rel=`awk '{ print $3}' /etc/osversion` arch=`/usr/sony/bin/machine` elif [ -d /usr/omron -a -f /bin/luna ] then # probably a Omron LUNA os=LUNA if [ -f /bin/luna1 ] && /bin/luna1 then rel=unios-b arch=luna1 elif [ -f /bin/luna2 ] && /bin/luna2 then rel=Mach arch=luna2 elif [ -f /bin/luna88k ] && /bin/luna88k then rel=Mach arch=luna88k fi elif [ -d /usr/apollo -a -d \`node_data ] then # probably a Apollo/DOMAIN os=DomainOS arch=$ISP rel=`/usr/apollo/bin/bldt | grep Domain | awk '{ print $4 }' | sed -e 's/,//g'` fi if [ ! "$arch" -a ! "$os" -a ! "$rel" ] then arch=`uname -m | sed -e 's/ //g' -e 's/\//-/g'` os=`uname -s | sed -e 's/\//-/g' -e 's/ //g'` rel=`uname -r | sed -e 's/(/-/g' -e 's/)//g' -e 's/ //g'` fi # # Tweak the values we have already got. PLEASE LIMIT THESE to # tweaks that are absolutely necessary because your system uname # routine doesn't return something sufficiently unique. Don't do # it just because you don't like the name that is returned. You # can combine the architecture name with the os name to create a # unique Makefile name. # # tweak machine architecture case $arch in sun4*) arch=sun4;; 9000/*) arch=`echo $arch | sed -e 's/9000.//' -e 's/..$/xx/'`;; DS/907000) arch=ds90;; NILE*) arch=NILE os=`uname -v`;; CRAYT3E) os=UNICOS-mk;; CRAY[CJT]90*|CRAYTS|CRAYSV1*|CRAYY-MP) os=UNICOS;; esac # tweak operating system type and release node=`uname -n | sed -e 's/\//-/g' -e 's/ //g'` if [ "$os" = "$node" -a "$arch" = "i386" -a "$rel" = 3.2 -a "`uname -v`" = 2 ] then # old versions of SCO UNIX set uname -s the same as uname -n os=SCO_SV fi if [ "$rel" = 4.0 ] then case $arch in 3[34]??|3[34]??,*|3[34]??[A-Z]|4[48]??|56??) if [ -d /usr/sadm/sysadm/add-ons/WIN-TCP ] then os=NCR.MP-RAS rel=2.x arch=i486 elif [ -d /usr/sadm/sysadm/add-ons/inet ] then os=NCR.MP-RAS rel=3.x arch=i486 fi ;; esac fi case $os in DYNIX-ptx) os=PTX;; Paragon*) os=Paragon;; HP-UX) rel=`echo $rel | sed -e 's/^[^.]*\.0*//'`;; AIX) osl="" if [ -x /bin/lslpp ] then osl=`/bin/lslpp -Lcq bos.rte | cut -f3 -d: | cut -f1-3 -d. 2>/dev/null` if [ $? = 0 -a -n "$osl" ] then rel=$osl else # command failed; fall back to old method osl="" fi fi # check whether it worked if [ -z "$osl" ] then rela=$rel rel=`uname -v` rel=$rel.$rela fi arch=PPC ;; BSD-386) os=BSD-OS;; SCO_SV) rel=`uname -X | sed -n 's/Release = //p'` if [ "$rel" = "5v6.0.0" ] then os=OSR; rel=`uname -X | sed -n 's/Release = //p'` else os=SCO; rel=`uname -X | sed -n 's/Release = 3.2v//p'` fi;; UNIX_System_V) if [ "$arch" = "ds90" ] then os="UXPDS" rel=`uname -v | sed -e 's/\(V.*\)L.*/\1/'` fi;; ReliantUNIX-?|SINIX-?) os=SINIX;; DomainOS) case $rel in 10.4*) rel=10.4;; esac ;; IRIX*) rel=`echo $rel | sed -e 's/-.*$//'`;; NeXT) mkdir="mkdirs";; UNICOSMK) rel=`echo $rel | sed -e 's/\(.*\)\.\(.*\)\.\(.*\)\..*$/\1.\2.\3/'`;; UNICOS*) rel=`echo $rel | sed -e 's/\(.*\)\.\(.*\)\..*$/\1.\2/'`;; esac # get "base part" of operating system release rroot=`echo $rel | sed -e 's/\.[^.]*$//'` rbase=`echo $rel | sed -e 's/\..*//'` if [ "$rroot" = "$rbase" ] then rroot=$rel fi # heuristic tweaks to clean up names -- PLEASE LIMIT THESE! if [ "$os" = "unix" ] then # might be Altos System V case $rel in 5.3*) os=Altos;; esac elif [ -r /unix -a -r /usr/lib/libseq.a -a -r /lib/cpp ] then # might be a DYNIX/ptx 2.x system, which has a broken uname if strings /lib/cpp | grep _SEQUENT_ > /dev/null then os=PTX fi elif [ -d /usr/nec ] then # NEC machine -- what is it running? if [ "$os" = "UNIX_System_V" ] then os=EWS-UX_V elif [ "$os" = "UNIX_SV" ] then os=UX4800 fi elif [ "$arch" = "mips" ] then case $rel in 4_*) if [ `uname -v` = "UMIPS" ] then os=RISCos fi;; esac fi # see if there is a "user suffix" specified if [ "${SENDMAIL_SUFFIX-}x" = "x" ] then sfx="" else sfx=".${SENDMAIL_SUFFIX}" fi if [ ! -n "$Mflag" -a ! -n "$Aflag" ] then echo "Configuration: pfx=$pfx, os=$os, rel=$rel, rbase=$rbase, rroot=$rroot, arch=$arch, sfx=$sfx, variant=$build_variant" fi SMROOT=${SMROOT-`(cd ..;pwd)`} BUILDTOOLS=${BUILDTOOLS-$SMROOT/devtools} export SMROOT BUILDTOOLS # see if we are in a Build-able directory if [ ! -f Makefile.m4 -a ! -n "$Aflag" ]; then echo "Makefile.m4 not found. Build can only be run from a source directory." exit $EX_UNAVAILABLE fi incdirs="$incdirs -I\${SRCDIR}/include" if [ -z "$OBJ_ROOT" ]; then OBJ_ROOT=${SMROOT} fi if [ "${pfx}x" = "x" ] then prefix="" else prefix=".$pfx" fi # Print out the architecture (to build up an obj dir path) and exit if [ -n "$Aflag" ] then echo "$os.$rel.$arch$sfx" exit $EX_OK fi # now try to find a reasonable object directory if [ -r ${OBJ_ROOT}/obj${prefix}.$os.$rel.$arch$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$os.$rel.$arch$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$os.$rroot.$arch$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$os.$rroot.$arch$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$os.$rbase.x.$arch$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$os.$rbase.x.$arch$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$os.$rel$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$os.$rel$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$os.$rbase.x$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$os.$rbase.x$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$os.$arch$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$os.$arch$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$rel.$arch$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$rel.$arch$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$rbase.x.$arch$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$rbase.x.$arch$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$os$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$os$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$arch$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$arch$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$rel$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$rel$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}.$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$sfx elif [ -r ${OBJ_ROOT}/obj${prefix}$sfx ]; then abs_obj_dir=${OBJ_ROOT}/obj${prefix}$sfx fi if [ -n "$abs_obj_dir" ] then obj=${abs_obj_dir}/${src_dir} fi # Print the directory which would be used for the build and exit if [ -n "$Mflag" ] then if [ ! -n "$obj" ] then obj=${OBJ_ROOT}/obj.$os.$rel.$arch$sfx/${src_dir} fi echo "$obj" exit $EX_OK fi # Check if trying to use -f with an existing obj directory if [ -n "$siteconfig" -a -n "$obj" -a -d "$obj" -a -z "$cflag" ] then echo "Can not use Build's -f flag with an existing object tree." echo "If you wish to change configuration information, use the -c flag to clear" echo "the existing $obj tree." exit $EX_USAGE fi # Check if trying to use -Q with an existing obj directory if [ -n "$pfx" -a -n "$obj" -a -d "$obj" -a -z "$cflag" ] then echo "Can not use Build's -Q flag with an existing object tree." echo "If you wish to change configuration information, use the -c flag to clear" echo "the existing $obj tree." exit $EX_USAGE fi # Clean out the directory before building. if [ "$cflag" ] then if [ -n "$obj" ] then echo "Clearing out existing $obj tree" rm -rf $obj fi fi # If we didn't detect an existing obj directory, makeup a new obj name. if [ -z "$obj" ] then abs_obj_dir=${OBJ_ROOT}/obj${prefix}.$os.$rel.$arch$sfx obj=${abs_obj_dir}/${src_dir} fi # Check if obj directory exists if [ ! -r "$obj" ] then if [ -r $BUILDTOOLS/OS/$os.$rel.$arch$sfx ]; then oscf=$os.$rel.$arch$sfx elif [ -r $BUILDTOOLS/OS/$os.$rel.$arch ]; then oscf=$os.$rel.$arch elif [ -r $BUILDTOOLS/OS/$os.$rroot.$arch$sfx ]; then oscf=$os.$rroot.$arch$sfx elif [ -r $BUILDTOOLS/OS/$os.$rroot.$arch ]; then oscf=$os.$rroot.$arch elif [ -r $BUILDTOOLS/OS/$os.$rbase.x.$arch$sfx ]; then oscf=$os.$rbase.x.$arch$sfx elif [ -r $BUILDTOOLS/OS/$os.$rbase.x.$arch ]; then oscf=$os.$rbase.x.$arch elif [ -r $BUILDTOOLS/OS/$os.$rel$sfx ]; then oscf=$os.$rel$sfx elif [ -r $BUILDTOOLS/OS/$os.$rel ]; then oscf=$os.$rel elif [ -r $BUILDTOOLS/OS/$os.$rroot$sfx ]; then oscf=$os.$rroot$sfx elif [ -r $BUILDTOOLS/OS/$os.$rroot ]; then oscf=$os.$rroot elif [ -r $BUILDTOOLS/OS/$os.$rbase.x$sfx ]; then oscf=$os.$rbase.x$sfx elif [ -r $BUILDTOOLS/OS/$os.$rbase.x ]; then oscf=$os.$rbase.x elif [ -r $BUILDTOOLS/OS/$os.$arch$sfx ]; then oscf=$os.$arch$sfx elif [ -r $BUILDTOOLS/OS/$os.$arch ]; then oscf=$os.$arch elif [ -r $BUILDTOOLS/OS/$rel.$arch$sfx ]; then oscf=$rel.$arch$sfx elif [ -r $BUILDTOOLS/OS/$rel.$arch ]; then oscf=$rel.$arch elif [ -r $BUILDTOOLS/OS/$rroot.$arch$sfx ]; then oscf=$rroot.$arch$sfx elif [ -r $BUILDTOOLS/OS/$rroot.$arch ]; then oscf=$rroot.$arch elif [ -r $BUILDTOOLS/OS/$rbase.x.$arch$sfx ]; then oscf=$rbase.x.$arch$sfx elif [ -r $BUILDTOOLS/OS/$rbase.x.$arch ]; then oscf=$rbase.x.$arch elif [ -r $BUILDTOOLS/OS/$os$sfx ]; then oscf=$os$sfx elif [ -r $BUILDTOOLS/OS/$os ]; then oscf=$os elif [ -r $BUILDTOOLS/OS/$arch$sfx ]; then oscf=$arch$sfx elif [ -r $BUILDTOOLS/OS/$arch ]; then oscf=$arch elif [ -r $BUILDTOOLS/OS/$rel$sfx ]; then oscf=$rel$sfx elif [ -r $BUILDTOOLS/OS/$rel ]; then oscf=$rel elif [ -r $BUILDTOOLS/OS/$rel$sfx ]; then oscf=$rel$sfx else echo "Cannot determine how to support $os.$rel.$arch" >&2 exit $EX_UNAVAILABLE fi M4=`$SHELL $BUILDTOOLS/bin/find_m4.sh` ret=$? if [ $ret -ne 0 ] then exit $ret fi echo "Using M4=$M4" export M4 if [ "$mflag" ] then echo "Will run in virgin $obj using $BUILDTOOLS/OS/$oscf" exit $EX_OK fi echo "Creating $obj using $BUILDTOOLS/OS/$oscf" ${mkdir} $obj ln="ln -s" (cd $obj # This glob doesn't actually glob to something everywhere, # thus the protective measures. for i in ${obj_rel_base_dir}/${src_dir}/*.[chly13458] do if [ -f $i ] then $ln $i . fi done # This glob doesn't actually glob to something everywhere, # thus the protective measures. for i in ${obj_rel_base_dir}/${src_dir}/*.0 do if [ -f $i ] then $ln $i `basename $i`.dist fi done) if [ -f helpfile ] then (cd $obj; $ln ${obj_rel_base_dir}/${src_dir}/helpfile .) fi rm -f $obj/.settings$$ echo 'divert(-1)' > $obj/.settings$$ cat $BUILDTOOLS/M4/header.m4 >> $obj/.settings$$ echo "define(\`bldOS', \`\`$os'')" >> $obj/.settings$$ echo "define(\`bldREL', \`\`$rel'')" >> $obj/.settings$$ echo "define(\`bldARCH', \`\`$arch'')" >> $obj/.settings$$ cat $BUILDTOOLS/OS/$oscf >> $obj/.settings$$ cur_dir=`pwd` cd $obj/.. absolute_obj_dir=`pwd` cd $cur_dir echo "ifdef(\`bldABS_OBJ_DIR',,\`define(\`bldABS_OBJ_DIR', \`$absolute_obj_dir')')" >> $obj/.settings$$ rel_src_dir="$obj_rel_base_dir/$src_dir" echo "define(\`bldSRC_NAME', \`$src_dir')" >> $obj/.settings$$ echo "define(\`bldREL_SRC_DIR', \`$rel_src_dir')" >> $obj/.settings$$ if [ ! -z "$pfx" ] then # They gave us a specific prefix, let's try it out. if [ -f $BUILDTOOLS/Site/$pfx.$oscf$sfx.m4 ] then siteconfig=$BUILDTOOLS/Site/$pfx.$oscf$sfx.m4 elif [ -f $BUILDTOOLS/Site/$pfx.$oscf.m4 ] then siteconfig=$BUILDTOOLS/Site/$pfx.$oscf.m4 fi if [ -f $BUILDTOOLS/Site/$pfx.config.m4 ] then siteconfig="$BUILDTOOLS/Site/$pfx.config.m4 $siteconfig" fi elif [ -z "$siteconfig" ] then # none specified, use defaults if [ -f $BUILDTOOLS/Site/site.$oscf$sfx.m4 ] then siteconfig=$BUILDTOOLS/Site/site.$oscf$sfx.m4 elif [ -f $BUILDTOOLS/Site/site.$oscf.m4 ] then siteconfig=$BUILDTOOLS/Site/site.$oscf.m4 fi if [ -f $BUILDTOOLS/Site/site.config.m4 ] then siteconfig="$BUILDTOOLS/Site/site.config.m4 $siteconfig" fi if [ -f $BUILDTOOLS/Site/site.post.m4 ] then siteconfig="$siteconfig $BUILDTOOLS/Site/site.post.m4" fi fi if [ ! -z "$siteconfig" ] then echo "Including $siteconfig" cat $siteconfig >> $obj/.settings$$ fi if [ "$libdirs" ] then echo "define(\`confLIBDIRS', confLIBDIRS \`\`$libdirs'')" >> $obj/.settings$$ fi if [ "$incdirs" ] then echo "define(\`confINCDIRS', \`\`$incdirs'' confINCDIRS)" >> $obj/.settings$$ fi echo "define(\`_SRC_PATH_', \`\`$obj_rel_base_dir'')" >> $obj/.settings$$ echo "define(\`bldSRC_PATH', \`\`$obj_rel_base_dir'')" >> $obj/.settings$$ echo 'divert(0)dnl' >> $obj/.settings$$ libdirs=`(cat $obj/.settings$$; echo "_SRIDBIL_= confLIBDIRS" ) | \ sed -e 's/\(.\)include/\1_include_/g' -e 's/#define/#_define_/g' | \ ${M4} ${M4_BLDVARIANT_FLAGS} -DconfBUILDTOOLSDIR=$BUILDTOOLS - | \ grep "^_SRIDBIL_=" | \ sed -e 's/#_define_/#define/g' -e 's/_include_/include/g' -e "s/^_SRIDBIL_=//"` libsrch=`(cat $obj/.settings$$; echo "_HCRSBIL_= confLIBSEARCH" ) | \ sed -e 's/\(.\)include/\1_include_/g' -e 's/#define/#_define_/g' | \ ${M4} ${M4_BLDVARIANT_FLAGS} -DconfBUILDTOOLSDIR=$BUILDTOOLS - | \ grep "^_HCRSBIL_=" | \ sed -e 's/#_define_/#define/g' -e 's/_include_/include/g' -e "s/^_HCRSBIL_=//"` libpath=`(cat $obj/.settings$$; echo "_HCRSBIL_= confLIBSEARCHPATH" ) | \ sed -e 's/\(.\)include/\1_include_/g' -e 's/#define/#_define_/g' | \ ${M4} ${M4_BLDVARIANT_FLAGS} -DconfBUILDTOOLSDIR=$BUILDTOOLS - | \ grep "^_HCRSBIL_=" | \ sed -e 's/#_define_/#define/g' -e 's/_include_/include/g' -e "s/^_HCRSBIL_=//"` soext=`(cat $obj/.settings$$; echo "_EMANOS_= confSHAREDLIB_EXT" ) | \ sed -e 's/\(.\)include/\1_include_/g' -e 's/#define/#_define_/g' | \ ${M4} ${M4_BLDVARIANT_FLAGS} -DconfBUILDTOOLSDIR=$BUILDTOOLS - | \ grep "^_EMANOS_=" | \ sed -e 's/#_define_/#define/g' -e 's/_include_/include/g' -e "s/^_EMANOS_=//" -e 's/^ //'` echo 'divert(-1)' >> $obj/.settings$$ LIBDIRS="$libdirs" LIBSRCH="$libsrch" LIBPATH="$libpath" SITECONFIG="$siteconfig" SOEXT="$soext" $SHELL $BUILDTOOLS/bin/configure.sh $sflag $oscf >> $obj/.settings$$ echo 'divert(0)dnl' >> $obj/.settings$$ sed -e 's/\(.\)include/\1_include_/g' -e 's/#define/#_define_/g' -e 's/ //g' $obj/.settings$$ | \ ${M4} ${M4_BLDVARIANT_FLAGS} -DconfBUILDTOOLSDIR=$BUILDTOOLS - Makefile.m4 | \ sed -e 's/#_define_/#define/g' -e 's/_include_/include/g' -e 's/ //g' > $obj/Makefile # That ^M up there was added by quoting it in emacs. # Make has problems if lines end in ^M^M, but not in ^M apparently if [ $? -ne 0 -o ! -s $obj/Makefile ] then echo "ERROR: ${M4} failed; You may need a newer version of M4, at least as new as System V or GNU" 1>&2 rm -rf $obj exit $EX_UNAVAILABLE fi rm -f $obj/.settings$$ echo "Making dependencies in $obj" (cd $obj; ${MAKE-make} depend) fi if [ "$mflag" ] then makefile=`ls -l $obj/Makefile | sed 's/.* //'` if [ -z "$makefile" ] then echo "ERROR: $obj exists but has no Makefile" >&2 exit $EX_NOINPUT fi echo "Will run in existing $obj using $makefile" exit $EX_OK fi echo "Making in $obj" cd $obj eval exec ${MAKE-make} SENDMAIL_BUILD_FLAGS=\"$SENDMAIL_BUILD_FLAGS\" $makeargs sendmail-8.18.1/devtools/bin/find_in_path.sh0000755000372400037240000000041014556365350020352 0ustar xbuildxbuild#! /bin/sh # # $Id: find_in_path.sh,v 8.2 1999-09-23 20:42:22 gshapiro Exp $ # EX_OK=0 EX_NOT_FOUND=1 ifs="$IFS"; IFS="${IFS}:" for dir in $PATH /usr/5bin /usr/ccs/bin do if [ -r $dir/$1 ] then echo $dir/$1 exit $EX_OK fi done IFS=$ifs exit $EX_NOT_FOUND sendmail-8.18.1/devtools/bin/install.sh0000755000372400037240000000330514556365350017404 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1998, 1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: install.sh,v 8.15 2013-11-22 20:51:25 ca Exp $ # Set default program program=mv owner="" group="" mode="" strip="" # chown program -- ultrix keeps it in /etc/chown and /usr/etc/chown if [ -f /etc/chown ] then chown=/etc/chown elif [ -f /usr/etc/chown ] then chown=/usr/etc/chown else chown=chown fi # Check arguments while [ ! -z "$1" ] do case $1 in -o) owner=$2 shift; shift ;; -g) group=$2 shift; shift ;; -m) mode=$2 shift; shift ;; -c) program=cp shift ;; -s) strip="strip" shift ;; -*) echo $0: Unknown option $1 exit 1 ;; *) break ;; esac done # Check source file if [ -z "$1" ] then echo "Source file required" >&2 exit 1 elif [ -f $1 -o $1 = /dev/null ] then src=$1 else echo "Source file must be a regular file or /dev/null" >&2 exit 1 fi # Check destination if [ -z "$2" ] then echo "Destination required" >&2 exit 1 elif [ -d $2 ] then srcfile=`basename $src` dst=$2/$srcfile else dst=$2 fi # Do install operation $program $src $dst if [ $? != 0 ] then exit 1 fi # Strip if requested if [ ! -z "$strip" ] then $strip $dst fi # Change owner if requested if [ ! -z "$owner" ] then $chown $owner $dst if [ $? != 0 ] then exit 1 fi fi # Change group if requested if [ ! -z "$group" ] then chgrp $group $dst if [ $? != 0 ] then exit 1 fi fi # Change mode if requested if [ ! -z "$mode" ] then chmod $mode $dst if [ $? != 0 ] then exit 1 fi fi exit 0 sendmail-8.18.1/devtools/bin/find_m4.sh0000755000372400037240000000472014556365350017260 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: find_m4.sh,v 8.14 2013-11-22 20:51:24 ca Exp $ # # Try to find a working M4 program. # If $M4 is already set, we use it, otherwise we prefer GNU m4. EX_UNAVAILABLE=69 test="ifdef(\`pushdef', \`', \`errprint(\`You need a newer version of M4, at least as new as System V or GNU') include(NoSuchFile)') define(\`BadNumber', \`10') ifdef(\`BadNumber', \`', \`errprint(\`This version of m4 is broken: trailing zero problem') include(NoSuchFile)') define(\`LongList', \` assert.c debug.c exc.c heap.c match.c rpool.c strdup.c strerror.c strl.c clrerr.c fclose.c feof.c ferror.c fflush.c fget.c fpos.c findfp.c flags.c fopen.c fprintf.c fpurge.c fput.c fread.c fscanf.c fseek.c fvwrite.c fwalk.c fwrite.c get.c makebuf.c put.c refill.c rewind.c rget.c setvbuf.c smstdio.c snprintf.c sscanf.c stdio.c strio.c syslogio.c ungetc.c vasprintf.c vfprintf.c vfscanf.c vprintf.c vsnprintf.c vsprintf.c vsscanf.c wbuf.c wsetup.c stringf.c xtrap.c strto.c test.c path.c strcasecmp.c signal.c clock.c config.c shm.c ') define(\`SameList', \`substr(LongList, 0, index(LongList, \`.'))\`'substr(LongList, index(LongList, \`.'))') ifelse(len(LongList), len(SameList), \`', \`errprint(\`This version of m4 is broken: length problem') include(NoSuchFile)')" if [ "$M4" ] then err="`(echo "$test" | $M4) 2>&1 >/dev/null`" code=$? else firstfound= ifs="$IFS"; IFS="${IFS}:" for m4 in gm4 gnum4 pdm4 m4 do for dir in $PATH /usr/5bin /usr/ccs/bin do [ -z "$dir" ] && dir=. if [ -f $dir/$m4 ] then err="`(echo "$test" | $dir/$m4) 2>&1 >/dev/null`" ret=$? if [ $ret -eq 0 -a "X$err" = "X" ] then M4=$dir/$m4 code=0 break else case "$firstfound:$err" in :*version\ of*) firstfound=$dir/$m4 firsterr="$err" firstcode=$ret ;; esac fi fi done [ "$M4" ] && break done IFS="$ifs" if [ ! "$M4" ] then if [ "$firstfound" ] then M4=$firstfound err="$firsterr" code=$firstcode else echo "ERROR: Can not locate an M4 program" >&2 exit $EX_UNAVAILABLE fi fi fi if [ $code -ne 0 ] then echo "ERROR: Using M4=$M4: $err" | grep -v NoSuchFile >&2 exit $EX_UNAVAILABLE elif [ "X$err" != "X" ] then echo "WARNING: $err" >&2 fi echo $M4 exit 0 sendmail-8.18.1/devtools/M4/0000755000372400037240000000000014556365433015110 5ustar xbuildxbuildsendmail-8.18.1/devtools/M4/string.m40000644000372400037240000000101614556365350016654 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: string.m4,v 8.3 2013-11-22 20:51:18 ca Exp $ # divert(0)dnl define(`bldRINDEX', `ifelse(index($1, $2), `-1', `-1', `eval(index($1, $2) + bldRINDEX(substr($1, eval(index($1, $2) + 1)), $2) + 1)')'dnl )dnl sendmail-8.18.1/devtools/M4/UNIX/0000755000372400037240000000000014556365433015673 5ustar xbuildxbuildsendmail-8.18.1/devtools/M4/UNIX/sm-test.m40000644000372400037240000000153514556365350017533 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2001-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # Compile/run a test program. # # $Id: sm-test.m4,v 1.8 2013-11-22 20:51:23 ca Exp $ # define(`smtest', `bldPUSH_TARGET($1)dnl bldLIST_PUSH_ITEM(`bldC_PRODUCTS', $1)dnl bldPUSH_CLEAN_TARGET($1`-clean')dnl divert(bldTARGETS_SECTION) $1`'SRCS=$1.c $1: ${BEFORE} $1.o ifdef(`confREQUIRE_LIBSM', `libsm.a') ${CC} -o $1 ${LDOPTS} ${LIBDIRS} $1.o ifdef(`confREQUIRE_LIBSM', `libsm.a') ${LIBS} ifelse(len(X`'$2), `1', `', ` @echo ============================================================ ./$1 @echo ============================================================') $1-clean: rm -f $1 $1.o divert(0)') sendmail-8.18.1/devtools/M4/UNIX/library.m40000644000372400037240000000255614556365350017607 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999-2001, 2006 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: library.m4,v 8.12 2013-11-22 20:51:23 ca Exp $ # divert(0)dnl include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/links.m4')dnl bldLIST_PUSH_ITEM(`bldC_PRODUCTS', bldCURRENT_PRODUCT)dnl bldPUSH_TARGET(bldCURRENT_PRODUCT`.a')dnl bldPUSH_INSTALL_TARGET(`install-'bldCURRENT_PRODUCT)dnl bldPUSH_CLEAN_TARGET(bldCURRENT_PRODUCT`-clean')dnl include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/defines.m4') divert(bldTARGETS_SECTION) bldCURRENT_PRODUCT.a: ${BEFORE} ${bldCURRENT_PRODUCT`OBJS'} ${AR} ${AROPTS} bldCURRENT_PRODUCT.a ${bldCURRENT_PRODUCT`OBJS'} ${RANLIB} ${RANLIBOPTS} bldCURRENT_PRODUCT.a ifdef(`bldLINK_SOURCES', `bldMAKE_SOURCE_LINKS(bldLINK_SOURCES)') install-`'bldCURRENT_PRODUCT: bldCURRENT_PRODUCT.a ifdef(`bldINSTALLABLE', ` ifdef(`confMKDIR', `if [ ! -d ${DESTDIR}${bldINSTALL_DIR`'LIBDIR} ]; then confMKDIR -p ${DESTDIR}${bldINSTALL_DIR`'LIBDIR}; else :; fi ') ${INSTALL} -c -o ${LIBOWN} -g ${LIBGRP} -m ${LIBMODE} bldCURRENT_PRODUCT.a ${DESTDIR}${LIBDIR}') bldCURRENT_PRODUCT-clean: rm -f ${OBJS} bldCURRENT_PRODUCT.a ${MANPAGES} divert(0) sendmail-8.18.1/devtools/M4/UNIX/sharedlib.m40000644000372400037240000000534214556365350020074 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000-2001, 2006, 2008 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: sharedlib.m4,v 8.19 2013-11-22 20:51:23 ca Exp $ # divert(0)dnl define(`confLIBEXT', `a')dnl SHAREDLIB_SUFFIX= ifdef(`confSHAREDLIB_SUFFIX', `confSHAREDLIB_SUFFIX', `') SHAREDLIB_EXT= ifdef(`confSHAREDLIB_EXT', `confSHAREDLIB_EXT', `.so') SHAREDLIB= bldCURRENT_PRODUCT${SHAREDLIB_EXT}${SHAREDLIB_SUFFIX} SHAREDLIB_LINK= bldCURRENT_PRODUCT${SHAREDLIB_EXT} SHAREDLIBDIR= ifdef(`confSHAREDLIBDIR',`confSHAREDLIBDIR',`/usr/lib/') DEPLIBS= ifdef(`confDEPLIBS', `confDEPLIBS', `') ${bldCURRENT_PRODUCT`SMDEPLIBS'} CONFIG_SONAME= ifdef(`confSONAME', `confSONAME ${SHAREDLIB}', `') include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/links.m4')dnl bldLIST_PUSH_ITEM(`bldC_PRODUCTS', bldCURRENT_PRODUCT)dnl bldPUSH_TARGET(${SHAREDLIB})dnl bldPUSH_TARGET(bldCURRENT_PRODUCT`.a')dnl bldPUSH_INSTALL_TARGET(`install-'bldCURRENT_PRODUCT)dnl bldPUSH_CLEAN_TARGET(bldCURRENT_PRODUCT`-clean')dnl ifdef(`bld_ALREADY_SO',, `ifdef(`confCCOPTS_SO', `PREPENDDEF(`confCCOPTS', `defn(`confCCOPTS_SO')')')') define(`bld_ALREADY_SO') include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/defines.m4') divert(bldTARGETS_SECTION) ${SHAREDLIB}: ${BEFORE} ${bldCURRENT_PRODUCT`OBJS'} ifelse(bldOS, `AIX', `bldCURRENT_PRODUCT.a') ${LD} ${LDOPTS_SO} ${CONFIG_SONAME} -o ${SHAREDLIB} ${bldCURRENT_PRODUCT`OBJS'} ${LIBDIRS} ${DEPLIBS} ifelse(bldOS, `AIX', `${CP} ${SHAREDLIB} shr.o ${AR} ${AROPTS} bldCURRENT_PRODUCT.a shr.o ${CP} bldCURRENT_PRODUCT.a ${SHAREDLIB}',`rm -f bldCURRENT_PRODUCT${SHAREDLIB_EXT} ${LN} ${SHAREDLIB} bldCURRENT_PRODUCT${SHAREDLIB_EXT}') bldCURRENT_PRODUCT.a: ${BEFORE} ${bldCURRENT_PRODUCT`OBJS'} ${AR} ${AROPTS} bldCURRENT_PRODUCT.a ${bldCURRENT_PRODUCT`OBJS'} ${RANLIB} ${RANLIBOPTS} bldCURRENT_PRODUCT.a ifdef(`bldLINK_SOURCES', `bldMAKE_SOURCE_LINKS(bldLINK_SOURCES)') install-`'bldCURRENT_PRODUCT: ${SHAREDLIB} ifdef(`confMKDIR', `if [ ! -d ${DESTDIR}${SHAREDLIBDIR} ]; then confMKDIR -p ${DESTDIR}${SHAREDLIBDIR}; else :; fi ') ${INSTALL} -c -o ${LIBOWN} -g ${LIBGRP} -m ${LIBMODE} ${SHAREDLIB} ${DESTDIR}${SHAREDLIBDIR} ifelse(bldOS, `AIX', `${AR} ${AROPTS} ${DESTDIR}${SHAREDLIBDIR}bldCURRENT_PRODUCT.a ${SHAREDLIB}', `rm -f ${DESTDIR}${SHAREDLIBDIR}${SHAREDLIB_LINK} ${LN} ${LNOPTS} ${DESTDIR}${SHAREDLIBDIR}${SHAREDLIB} ${DESTDIR}${SHAREDLIBDIR}${SHAREDLIB_LINK}') bldCURRENT_PRODUCT-clean: rm -f ${OBJS} ${SHAREDLIB} bldCURRENT_PRODUCT.a ${MANPAGES} ifelse(bldOS, `AIX', `shr.o', `bldCURRENT_PRODUCT${SHAREDLIB_EXT}') divert(0) sendmail-8.18.1/devtools/M4/UNIX/executable.m40000644000372400037240000000346714556365350020266 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999, 2001, 2006 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: executable.m4,v 8.25 2013-11-22 20:51:22 ca Exp $ # divert(0)dnl include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/links.m4')dnl bldLIST_PUSH_ITEM(`bldC_PRODUCTS', bldCURRENT_PRODUCT)dnl bldPUSH_TARGET(bldCURRENT_PRODUCT)dnl bldPUSH_INSTALL_TARGET(`install-'bldCURRENT_PRODUCT)dnl bldPUSH_CLEAN_TARGET(bldCURRENT_PRODUCT`-clean')dnl bldPUSH_ALL_SRCS(bldCURRENT_PRODUCT`SRCS')dnl bldPUSH_STRIP_TARGET(`strip-'bldCURRENT_PRODUCT)dnl include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/defines.m4') divert(bldTARGETS_SECTION) bldCURRENT_PRODUCT: ${bldCURRENT_PRODUCT`OBJS'} ${bldCURRENT_PRODUCT`SMDEPLIBS'} ${CCLINK} -o bldCURRENT_PRODUCT ${LDOPTS} ${LIBDIRS} ${bldCURRENT_PRODUCT`OBJS'} ${LIBS} ifdef(`bldLINK_SOURCES', `bldMAKE_SOURCE_LINKS(bldLINK_SOURCES)') ifdef(`bldNO_INSTALL', , `install-`'bldCURRENT_PRODUCT: bldCURRENT_PRODUCT ifdef(`bldTARGET_INST_DEP', `bldTARGET_INST_DEP') ifdef(`confMKDIR', `if [ ! -d ${DESTDIR}${bldINSTALL_DIR`'BINDIR} ]; then confMKDIR -p ${DESTDIR}${bldINSTALL_DIR`'BINDIR}; else :; fi ') ${INSTALL} -c -o ${bldBIN_TYPE`'BINOWN} -g ${bldBIN_TYPE`'BINGRP} -m ${bldBIN_TYPE`'BINMODE} bldCURRENT_PRODUCT ${DESTDIR}${bldINSTALL_DIR`'BINDIR} ifdef(`bldTARGET_LINKS', `bldMAKE_TARGET_LINKS(${bldINSTALL_DIR`'BINDIR}/bldCURRENT_PRODUCT, ${bldCURRENT_PRODUCT`'TARGET_LINKS})')') strip-`'bldCURRENT_PRODUCT: bldCURRENT_PRODUCT ${STRIP} ${STRIPOPTS} ${DESTDIR}${bldINSTALL_DIR`'BINDIR}`'/bldCURRENT_PRODUCT bldCURRENT_PRODUCT-clean: rm -f ${OBJS} bldCURRENT_PRODUCT ${MANPAGES} divert(0) sendmail-8.18.1/devtools/M4/UNIX/manpage.m40000644000372400037240000000723714556365350017554 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999-2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: manpage.m4,v 8.17 2013-11-22 20:51:23 ca Exp $ # divert(0)dnl define(`bldGET_MAN_SOURCE_NUM', `substr($1, eval(len($1) - 1))'dnl )dnl define(`bldGET_MAN_BASE_NAME', `substr($1, 0, eval(len($1) - 2))'dnl )dnl ifdef(`confNO_MAN_BUILD',, ` bldPUSH_TARGET(`${MANPAGES}') bldPUSH_INSTALL_TARGET(`install-docs')') bldLIST_PUSH_ITEM(`bldMAN_PAGES', `bldSOURCES')dnl MANOWN= ifdef(`confMANOWN', `confMANOWN', `bin') MANGRP= ifdef(`confMANGRP', `confMANGRP', `bin') MANMODE=ifdef(`confMANMODE', `confMANMODE', `444') MANROOT=ifdef(`confMANROOT', `confMANROOT', `/usr/share/man/cat') MANROOTMAN=ifdef(`confMANROOTMAN', `confMANROOTMAN', `/usr/share/man/man') MAN1= ${MANROOT}ifdef(`confMAN1', `confMAN1', `1') MAN1MAN=${MANROOTMAN}ifdef(`confMAN1', `confMAN1', `1') MAN1EXT=ifdef(`confMAN1EXT', `confMAN1EXT', `1') MAN1SRC=ifdef(`confMAN1SRC', `confMAN1SRC', `0') MAN3= ${MANROOT}ifdef(`confMAN3', `confMAN3', `3') MAN3MAN=${MANROOTMAN}ifdef(`confMAN3', `confMAN3', `3') MAN3EXT=ifdef(`confMAN3EXT', `confMAN3EXT', `3') MAN3SRC=ifdef(`confMAN3SRC', `confMAN3SRC', `0') MAN4= ${MANROOT}ifdef(`confMAN4', `confMAN4', `4') MAN4MAN=${MANROOTMAN}ifdef(`confMAN4', `confMAN4', `4') MAN4EXT=ifdef(`confMAN4EXT', `confMAN4EXT', `4') MAN4SRC=ifdef(`confMAN4SRC', `confMAN4SRC', `0') MAN5= ${MANROOT}ifdef(`confMAN5', `confMAN5', `5') MAN5MAN=${MANROOTMAN}ifdef(`confMAN5', `confMAN5', `5') MAN5EXT=ifdef(`confMAN5EXT', `confMAN5EXT', `5') MAN5SRC=ifdef(`confMAN5SRC', `confMAN5SRC', `0') MAN8= ${MANROOT}ifdef(`confMAN8', `confMAN8', `8') MAN8MAN=${MANROOTMAN}ifdef(`confMAN8', `confMAN8', `8') MAN8EXT=ifdef(`confMAN8EXT', `confMAN8EXT', `8') MAN8SRC=ifdef(`confMAN8SRC', `confMAN8SRC', `0') define(`bldMAN_TARGET_NAME', `bldGET_MAN_BASE_NAME($1).${MAN`'bldGET_MAN_SOURCE_NUM($1)`SRC}' 'dnl )dnl MANPAGES= bldFOREACH(`bldMAN_TARGET_NAME(', `bldMAN_PAGES') divert(bldTARGETS_SECTION) define(`bldMAN_BUILD_CMD', `bldGET_MAN_BASE_NAME($1).${MAN`'bldGET_MAN_SOURCE_NUM($1)`SRC}': bldGET_MAN_BASE_NAME($1).bldGET_MAN_SOURCE_NUM($1) ${NROFF} ${MANDOC} bldGET_MAN_BASE_NAME($1).bldGET_MAN_SOURCE_NUM($1) > bldGET_MAN_BASE_NAME($1)`.${MAN'bldGET_MAN_SOURCE_NUM($1)`SRC}' || ${CP} bldGET_MAN_BASE_NAME($1)`.${MAN'bldGET_MAN_SOURCE_NUM($1)`SRC}'.dist bldGET_MAN_BASE_NAME($1)`.${MAN'bldGET_MAN_SOURCE_NUM($1)`SRC}'' )dnl bldFOREACH(`bldMAN_BUILD_CMD(', `bldMAN_PAGES') install-docs: ${MANPAGES} ifdef(`confNO_MAN_INSTALL', `divert(-1)', `dnl') define(`bldMAN_INSTALL_CMD', `ifdef(`confDONT_INSTALL_CATMAN', `dnl', ` ifdef(`confMKDIR', `if [ ! -d ${DESTDIR}${MAN'bldGET_MAN_SOURCE_NUM($1)`SRC} ]; then confMKDIR -p ${DESTDIR}${MAN'bldGET_MAN_SOURCE_NUM($1)`SRC}; else :; fi ') ${INSTALL} -c -o ${MANOWN} -g ${MANGRP} -m ${MANMODE} bldGET_MAN_BASE_NAME($1).`${MAN'bldGET_MAN_SOURCE_NUM($1)`SRC}' `${DESTDIR}${MAN'bldGET_MAN_SOURCE_NUM($1)}/bldGET_MAN_BASE_NAME($1)`.${MAN'bldGET_MAN_SOURCE_NUM($1)`EXT}'') ifdef(`confINSTALL_RAWMAN', ` ifdef(`confMKDIR', `if [ ! -d ${DESTDIR}${MAN'bldGET_MAN_SOURCE_NUM($1)`MAN} ]; then confMKDIR -p ${DESTDIR}${MAN'bldGET_MAN_SOURCE_NUM($1)`MAN}; else :; fi ') ${INSTALL} -c -o ${MANOWN} -g ${MANGRP} -m ${MANMODE} bldGET_MAN_BASE_NAME($1).bldGET_MAN_SOURCE_NUM($1) `${DESTDIR}${MAN'bldGET_MAN_SOURCE_NUM($1)`MAN}'/bldGET_MAN_BASE_NAME($1)`.${MAN'bldGET_MAN_SOURCE_NUM($1)`EXT}'', `dnl')' )dnl bldFOREACH(`bldMAN_INSTALL_CMD(', `bldMAN_PAGES') ifdef(`confNO_MAN_INSTALL', `divert(0)', `dnl') divert(0) sendmail-8.18.1/devtools/M4/UNIX/defines.m40000644000372400037240000001361114556365350017552 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999-2001, 2006 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: defines.m4,v 8.49 2013-11-22 20:51:22 ca Exp $ # # temporary hack: if confREQUIRE_LIBSM is set then also set confREQUIRE_SM_OS_H ifdef(`confREQUIRE_LIBSM',` ifdef(`confREQUIRE_SM_OS_H',`', `define(`confREQUIRE_SM_OS_H', `1')')') # divert(0)dnl # C compiler CC= confCC CCOPTS= ifdef(`confCCOPTS', `confCCOPTS', ` ') ifdef(`confMT', ifdef(`confMTCCOPTS', `confMTCCOPTS', `'), `') # Linker for executables CCLINK = ifdef(`confCCLINK', `confCCLINK', `confCC') # Linker for libraries LD= ifdef(`confLD', `confLD', `confCC') LDOPTS= ifdef(`confLDOPTS', `confLDOPTS') ifdef(`confMT', ifdef(`confMTLDOPTS', `confMTLDOPTS', `'), `') LDOPTS_SO= ${LDOPTS} ifdef(`confLDOPTS_SO', `confLDOPTS_SO', `-shared') # Shell SHELL= confSHELL # use O=-O (usual) or O=-g (debugging) O= ifdef(`confOPTIMIZE', `confOPTIMIZE', `-O') # Object archiver AR= ifdef(`confAR', `confAR', `ar') AROPTS= ifdef(`confAROPTS', `confAROPTS', `crv') # Remove command RM= ifdef(`confRM', `confRM', `rm') RMOPTS= ifdef(`confRMOPTS', `confRMOPTS', `-f') # Link command LN= ifdef(`confLN', `confLN', `ln') LNOPTS= ifdef(`confLNOPTS', `confLNOPTS', `-f -s') # Ranlib (or echo) RANLIB= ifdef(`confRANLIB', `confRANLIB', `ranlib') RANLIBOPTS= ifdef(`confRANLIBOPTS', `confRANLIBOPTS', `') # Object stripper STRIP= ifdef(`confSTRIP', `confSTRIP', `strip') STRIPOPTS= ifdef(`confSTRIPOPTS', `confSTRIPOPTS', `') # environment definitions (e.g., -D_AIX3) ENVDEF= ifdef(`confENVDEF', `confENVDEF') ifdef(`conf_'bldCURRENT_PRD`_ENVDEF', `conf_'bldCURRENT_PRD`_ENVDEF') # location of the source directory SRCDIR= ifdef(`confSRCDIR', `confSRCDIR', `_SRC_PATH_') # inc`'lude directories INCDIRS= confINCDIRS # library directories LIBDIRS=confLIBDIRS # Additional libs needed LIBADD= ifdef(`conf_'bldCURRENT_PRD`_LIBS', `conf_'bldCURRENT_PRD`_LIBS') # libraries required on your system LIBS= ${LIBADD} ifdef(`confLIBS', `confLIBS') ifdef(`conf_'bldCURRENT_PRD`_LIB_POST', `conf_'bldCURRENT_PRD`_LIB_POST') # location of sendmail binary (usually /usr/sbin or /usr/lib) BINDIR= ifdef(`confMBINDIR', `confMBINDIR', `/usr/sbin') # location of "user" binaries (usually /usr/bin or /usr/ucb) UBINDIR=ifdef(`confUBINDIR', `confUBINDIR', `/usr/bin') # location of "root" binaries (usually /usr/sbin or /usr/etc) SBINDIR=ifdef(`confSBINDIR', `confSBINDIR', `/usr/sbin') # location of "root" binaries (usually /usr/sbin or /usr/etc) MBINDIR=ifdef(`confMBINDIR', `confMBINDIR', `/usr/sbin') # location of "libexec" binaries (usually /usr/libexec or /usr/etc) EBINDIR=ifdef(`confEBINDIR', `confEBINDIR', `/usr/libexec') # where to install inc`'lude files (usually /usr/inc`'lude) INCLUDEDIR=ifdef(`confINCLUDEDIR', `confINCLUDEDIR', `/usr/inc`'lude') # where to install library files (usually /usr/lib) LIBDIR=ifdef(`confLIBDIR', `confLIBDIR', `/usr/lib') # additional .c files needed SRCADD= ifdef(`confSRCADD', `confSRCADD') ifdef(`conf_'bldCURRENT_PRD`_SRCADD', `bldLIST_PUSH_ITEM(`bldSOURCES', `conf_'bldCURRENT_PRD`_SRCADD')') # additional .o files needed OBJADD= ifdef(`confOBJADD', `confOBJADD') bldCURRENT_PRODUCT`OBJADD'= ifdef(`conf_'bldCURRENT_PRD`_OBJADD', `conf_'bldCURRENT_PRD`_OBJADD') ifdef(`confLIBADD', `bldADD_EXTENSIONS(`a', confLIBADD)', `') # copy files CP= ifdef(`confCOPY', `confCOPY', `cp') # In some places windows wants nmake where unix would just want make NMAKE=ifdef(`confNMAKE', `confNMAKE', `${MAKE}') ################### end of user configuration flags ###################### BUILDBIN=confBUILDBIN COPTS= -I. ${INCDIRS} ${ENVDEF} ${CCOPTS} CFLAGS= $O ${COPTS} ifdef(`confMT', ifdef(`confMTCFLAGS', `confMTCFLAGS -DXP_MT', `-DXP_MT'), `') BEFORE= confBEFORE ifdef(`confREQUIRE_SM_OS_H',`sm_os.h') LINKS=ifdef(`bldLINK_SOURCES', `bldLINK_SOURCES', `') bldCURRENT_PRODUCT`SRCS'= bldSOURCES ${SRCADD} bldCURRENT_PRODUCT`OBJS'= bldSUBST_EXTENSIONS(`o', bldSOURCES) ifdef(`bldLINK_SOURCES', `bldSUBST_EXTENSIONS(`o', bldLINK_SOURCES)') ${OBJADD} ${bldCURRENT_PRODUCT`OBJADD'} bldCURRENT_PRODUCT`SMDEPLIBS'= ifdef(`bldSMDEPLIBS', `bldSMDEPLIBS', `') bldCURRENT_PRODUCT`TARGET_LINKS'= ifdef(`bldTARGET_LINKS', `bldTARGET_LINKS', `') bldPUSH_ALL_SRCS(bldCURRENT_PRODUCT`SRCS')dnl ifdef(`bldBIN_TYPE', , `define(`bldBIN_TYPE', `U')')dnl ifdef(`bldINSTALL_DIR', , `define(`bldINSTALL_DIR', `U')')dnl NROFF= ifdef(`confNROFF', `confNROFF', `groff -Tascii') MANDOC= ifdef(`confMANDOC', `confMANDOC', `-man') INSTALL=ifdef(`confINSTALL', `confINSTALL', `install') # User binary ownership/permissions UBINOWN=ifdef(`confUBINOWN', `confUBINOWN', `bin') UBINGRP=ifdef(`confUBINGRP', `confUBINGRP', `bin') UBINMODE=ifdef(`confUBINMODE', `confUBINMODE', `555') # Setuid binary ownership/permissions SBINOWN=ifdef(`confSBINOWN', `confSBINOWN', `root') SBINGRP=ifdef(`confSBINGRP', `confSBINGRP', `bin') SBINMODE=ifdef(`confSBINMODE', `confSBINMODE', `4555') # Setgid binary ownership/permissions GBINOWN=ifdef(`confGBINOWN', `confGBINOWN', `root') GBINGRP=ifdef(`confGBINGRP', `confGBINGRP', `smmsp') GBINMODE=ifdef(`confGBINMODE', `confGBINMODE', `2555') # owner of MSP queue MSPQOWN=ifdef(`confMSPQOWN', `confMSPQOWN', `smmsp') # MTA binary ownership/permissions MBINOWN=ifdef(`confMBINOWN', `confMBINOWN', `root') MBINGRP=ifdef(`confMBINGRP', `confMBINGRP', `bin') MBINMODE=ifdef(`confMBINMODE', `confMBINMODE', `550') # Library ownership/permissions LIBOWN=ifdef(`confLIBOWN', `confLIBOWN', `root') LIBGRP=ifdef(`confLIBGRP', `confLIBGRP', `bin') LIBMODE=ifdef(`confLIBMODE', `confLIBMODE', `0444') # Include file ownership/permissions INCOWN=ifdef(`confINCOWN', `confINCOWN', `root') INCGRP=ifdef(`confINCGRP', `confINCGRP', `bin') INCMODE=ifdef(`confINCMODE', `confINCMODE', `0444') sendmail-8.18.1/devtools/M4/UNIX/footer.m40000644000372400037240000000106114556365350017427 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: footer.m4,v 8.3 2013-11-22 20:51:22 ca Exp $ # divert(0)dnl ################ Dependency scripts include(confBUILDTOOLSDIR/M4/depend/ifdef(`confDEPEND_TYPE', `confDEPEND_TYPE', `generic').m4)dnl ################ End of dependency scripts sendmail-8.18.1/devtools/M4/UNIX/check.m40000644000372400037240000000163514556365350017215 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2006 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # Compile/run a test program. # # $Id: check.m4,v 8.6 2013-11-22 20:51:22 ca Exp $ # divert(0)dnl divert(-1) define(`smcheck', `dnl ifelse(X`'$2, `X', `', `ifelse(index($2, `run'), `-1', `', `dnl bldLIST_PUSH_ITEM(`bldCHECK_TARGETS', $1)dnl ')') ifelse(X`'$2, `X', `', `ifelse(index($2, `compile'), `-1', `', `dnl bldLIST_PUSH_ITEM(`bldC_CHECKS', $1)dnl bldLIST_PUSH_ITEM(`bldCHECK_PROGRAMS', $1)dnl bldPUSH_CLEAN_TARGET($1`-clean')dnl divert(bldTARGETS_SECTION) $1`'SRCS=$1.c $1: ${BEFORE} $1.o ifdef(`confCHECK_LIBS', `confCHECK_LIBS') ${CC} -o $1 ${LDOPTS} ${LIBDIRS} $1.o ifdef(`confCHECK_LIBS', `confCHECK_LIBS') ${LIBS} $1-clean: rm -f $1 $1.o')') divert(0)') sendmail-8.18.1/devtools/M4/UNIX/all.m40000644000372400037240000000750414556365350016711 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999-2000, 2006 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: all.m4,v 8.22 2013-11-22 20:51:22 ca Exp $ # divert(0)dnl ALL=${BEFORE} ${LINKS} bldTARGETS all: ${ALL} clean: bldCLEAN_TARGETS define(`bldADD_SRC', ${$1SRCS} )dnl SRCS=bldFOREACH(`bldADD_SRC(', bldC_PRODUCTS) define(`bldADD_OBJS', ${$1OBJS} )dnl OBJS=bldFOREACH(`bldADD_OBJS(', bldC_PRODUCTS) ifdef(`bldCHECK_PROGRAMS',`dnl check_PROGRAMS=bldCHECK_PROGRAMS') ifdef(`bldCHECK_TARGETS',`dnl TESTS=bldCHECK_TARGETS') VPATH=${srcdir}:${srcdir}/tests changequote([[, ]]) check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ list='$(TESTS)'; \ srcdir=$(srcdir); export srcdir; \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f "$(srcdir)/tests/$$tst"; then dir="$(srcdir)/tests/"; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *" $$tst "*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ echo "XPASS: $$tst"; \ ;; \ *) \ echo "PASS: $$tst"; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *" $$tst "*) \ xfail=`expr $$xfail + 1`; \ echo "XFAIL: $$tst"; \ ;; \ *) \ failed=`expr $$failed + 1`; \ echo "FAIL: $$tst"; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ res=SKIP; \ fi; \ done; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="All $$all tests passed"; \ else \ banner="All $$all tests behaved as expected ($$xfail expected failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all tests failed"; \ else \ banner="$$failed of $$all tests did not behave as expected ($$xpass unexpected passes)"; \ fi; \ fi; \ skipped=""; \ dashes="$$banner"; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ test -z "$$skipped" || echo "$$skipped"; \ echo "$$dashes"; \ echo "$$banner"; \ echo "$$dashes"; \ test "$$failed" -eq 0; \ fi changequote(`, ') check-am: make-test all $(MAKE) $(check_PROGRAMS) $(MAKE) check-TESTS check: check-am make-test: ifdef(`confTEST_PRGS', `(cd ${SRCDIR}/test && $(MAKE) confTEST_PRGS)') define(`bldADD_SRC_CHK', ${$1SRCS_CHK} )dnl SRCS_CHK=bldFOREACH(`bldADD_SRC_CHK(', bldC_CHECKS) define(`bldADD_OBJS_CHK', ${$1OBJS_CHK} )dnl OBJS_CHK=bldFOREACH(`bldADD_OBJS(', bldC_CHECKS) ifdef(`bldNO_INSTALL', `divert(-1)') install: bldINSTALL_TARGETS install-strip: bldINSTALL_TARGETS ifdef(`bldSTRIP_TARGETS', `bldSTRIP_TARGETS') ifdef(`bldNO_INSTALL', `divert(0)') ifdef(`confREQUIRE_SM_OS_H',` ifdef(`confSM_OS_HEADER', `sm_os.h: ${SRCDIR}/inc`'lude/sm/os/confSM_OS_HEADER.h ${RM} ${RMOPTS} sm_os.h ${LN} ${LNOPTS} ${SRCDIR}/inc`'lude/sm/os/confSM_OS_HEADER.h sm_os.h', `sm_os.h: ${CP} /dev/null sm_os.h')') divert(bldDEPENDENCY_SECTION) ################ Dependency scripts include(confBUILDTOOLSDIR/M4/depend/ifdef(`confDEPEND_TYPE', `confDEPEND_TYPE', `generic').m4)dnl ################ End of dependency scripts divert(0) sendmail-8.18.1/devtools/M4/UNIX/smlib.m40000644000372400037240000000132014556365350017235 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: smlib.m4,v 8.4 2013-11-22 20:51:23 ca Exp $ # divert(0)dnl define(`confLIBEXT', `a')dnl define(`bldPUSH_SMLIB', `bldPUSH_TARGET(bldABS_OBJ_DIR`/lib$1/lib$1.a') bldPUSH_SMDEPLIB(bldABS_OBJ_DIR`/lib$1/lib$1.a') PREPENDDEF(`confLIBS', bldABS_OBJ_DIR`/lib$1/lib$1.a') divert(bldTARGETS_SECTION) bldABS_OBJ_DIR/lib$1/lib$1.a: (cd ${SRCDIR}/lib$1; sh Build ${SENDMAIL_BUILD_FLAGS}) divert ')dnl sendmail-8.18.1/devtools/M4/UNIX/links.m40000644000372400037240000000117414556365350017256 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: links.m4,v 8.7 2013-11-22 20:51:23 ca Exp $ # divert(0)dnl define(`bldMAKE_SOURCE_LINK', `$1: ${SRCDIR}/$1 -ln -s ${SRCDIR}/$1 $1' )dnl define(`bldMAKE_SOURCE_LINKS', `bldFOREACH(`bldMAKE_SOURCE_LINK(', $1)'dnl )dnl define(`bldMAKE_TARGET_LINKS', ` for i in $2; do \ rm -f $$i; \ ln -s $1 $$i; \ done' )dnl sendmail-8.18.1/devtools/M4/subst_ext.m40000644000372400037240000000136314556365350017373 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: subst_ext.m4,v 8.4 2013-11-22 20:51:18 ca Exp $ # divert(0)dnl define(`bldSUBST_EXTENSION', `substr($2, 0, bldRINDEX($2, `.'))`'.$1 'dnl )dnl define(`bldSUBST_EXTENSIONS', `bldFOREACH(`bldSUBST_EXTENSION(`$1',', $2)'dnl )dnl define(`bldREMOVE_COMMAS', `$1 ifelse($#, 1, , `bldREMOVE_COMMAS(shift($@))')'dnl )dnl define(`bldADD_EXTENSION', `$2.$1 ')dnl define(`bldADD_EXTENSIONS', `bldFOREACH(`bldADD_EXTENSION(`$1',', $2)'dnl )dnl sendmail-8.18.1/devtools/M4/list.m40000644000372400037240000000132114556365350016320 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: list.m4,v 8.5 2013-11-22 20:51:18 ca Exp $ # divert(0)dnl define(`bldLIST_PUSH_ITEM', `define(`$1', ifdef(`$1', `$1 $2 ', `$2 '))' )dnl define(`bldFOREACH', `$1substr($2, `0', index($2, ` ')))`'ifelse(index($2, ` '), eval(len($2)-1), , `bldFOREACH(`$1', substr($2, index($2, ` ')))')'dnl )dnl define(`bldADD_PATH', `$1/$2 ')dnl define(`bldADD_PATHS', `bldFOREACH(`bldADD_PATH(`$1',', $2)'dnl )dnl sendmail-8.18.1/devtools/M4/depend/0000755000372400037240000000000014556365433016347 5ustar xbuildxbuildsendmail-8.18.1/devtools/M4/depend/X11.m40000644000372400037240000000022214556365350017154 0ustar xbuildxbuild# $Id: X11.m4,v 8.4 1999-05-27 22:03:29 peterh Exp $ depend: ${BEFORE} ${LINKS} makedepend -- ${COPTS} -- ${SRCS} # End of $RCSfile: X11.m4,v $ sendmail-8.18.1/devtools/M4/depend/QNX6.m40000644000372400037240000000062614556365350017347 0ustar xbuildxbuild# $Id: QNX6.m4,v 1.1 2007-03-21 23:56:17 ca Exp $ # This can go away (use CC-M in devel/OS/QNX.6.x) with newer qcc (PR 26458) depend: ${BEFORE} ${LINKS} @mv Makefile Makefile.old @sed -e '/^# Do not edit or remove this line or anything below it.$$/,$$d' < Makefile.old > Makefile @echo "# Do not edit or remove this line or anything below it." >> Makefile ${CC} -E -Wp,-M ${COPTS} ${SRCS} >> Makefile sendmail-8.18.1/devtools/M4/depend/CC-M.m40000644000372400037240000000054614556365350017273 0ustar xbuildxbuild# $Id: CC-M.m4,v 8.5 1999-05-27 22:03:28 peterh Exp $ depend: ${BEFORE} ${LINKS} @mv Makefile Makefile.old @sed -e '/^# Do not edit or remove this line or anything below it.$$/,$$d' < Makefile.old > Makefile @echo "# Do not edit or remove this line or anything below it." >> Makefile ${CC} -M ${COPTS} ${SRCS} >> Makefile # End of $RCSfile: CC-M.m4,v $ sendmail-8.18.1/devtools/M4/depend/NCR.m40000644000372400037240000000055414556365350017235 0ustar xbuildxbuild# $Id: NCR.m4,v 8.6 1999-05-27 22:03:29 peterh Exp $ depend: ${BEFORE} ${LINKS} @mv Makefile Makefile.old @sed -e '/^# Do not edit or remove this line or anything below it.$$/,$$d' < Makefile.old > Makefile @echo "# Do not edit or remove this line or anything below it." >> Makefile ${CC} -w0 -Hmake ${COPTS} ${SRCS} >> Makefile # End of $RCSfile: NCR.m4,v $ sendmail-8.18.1/devtools/M4/depend/AIX.m40000644000372400037240000000076414556365350017237 0ustar xbuildxbuild# $Id: AIX.m4,v 8.2 1999-05-28 05:54:26 gshapiro Exp $ depend: ${BEFORE} ${LINKS} @mv Makefile Makefile.old @sed -e '/^# Do not edit or remove this line or anything below it.$$/,$$d' < Makefile.old > Makefile @echo "# Do not edit or remove this line or anything below it." >> Makefile changequote([,]) for i in ${SRCS}; \ do \ ${CC} -M -E ${COPTS} $$i > /dev/null; \ cat `basename $$i .c`.u >> Makefile ; \ rm -f `basename $$i .c`.u ; \ done; changequote # End of $RCSfile: AIX.m4,v $ sendmail-8.18.1/devtools/M4/depend/BSD.m40000644000372400037240000000054414556365350017222 0ustar xbuildxbuild# $Id: BSD.m4,v 8.6 1999-05-27 22:03:28 peterh Exp $ depend: ${BEFORE} ${LINKS} @mv Makefile Makefile.old @sed -e '/^# Do not edit or remove this line or anything below it.$$/,$$d' < Makefile.old > Makefile @echo "# Do not edit or remove this line or anything below it." >> Makefile mkdep -a -f Makefile ${COPTS} ${SRCS} # End of $RCSfile: BSD.m4,v $ sendmail-8.18.1/devtools/M4/depend/Solaris.m40000644000372400037240000000055514556365350020230 0ustar xbuildxbuild# $Id: Solaris.m4,v 8.4 1999-05-27 22:03:29 peterh Exp $ depend: ${BEFORE} ${LINKS} @mv Makefile Makefile.old @sed -e '/^# Do not edit or remove this line or anything below it.$$/,$$d' < Makefile.old > Makefile @echo "# Do not edit or remove this line or anything below it." >> Makefile ${CC} -xM ${COPTS} ${SRCS} >> Makefile # End of $RCSfile: Solaris.m4,v $ sendmail-8.18.1/devtools/M4/depend/generic.m40000644000372400037240000000026214556365350020223 0ustar xbuildxbuild# $Id: generic.m4,v 8.5 1999-05-24 18:38:33 rand Exp $ # dependencies # give a null "depend" list so that the startup script will work depend: # End of $RCSfile: generic.m4,v $ sendmail-8.18.1/devtools/M4/header.m40000644000372400037240000000230714556365350016602 0ustar xbuildxbuild# # Copyright (c) 1998, 1999, 2014 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: header.m4,v 8.29 2014-01-26 20:40:45 gshapiro Exp $ # changecom(^A) undefine(`format') undefine(`hpux') undefine(`unix') ifdef(`pushdef', `', `errprint(`You need a newer version of M4, at least as new as System V or GNU') include(NoSuchFile)') define(`confABI', `') define(`confCC', `cc') define(`confSHELL', `/bin/sh') define(`confBEFORE', `') define(`confLIBDIRS', `') define(`confINCDIRS', `') define(`confLIBSEARCH', `db bind resolv 44bsd cdb') define(`confLIBSEARCHPATH', `/lib /usr/lib /usr/shlib') define(`confSHAREDLIB_EXT', `.so') define(`confSITECONFIG', `site.config') define(`confBUILDBIN', `${SRCDIR}/devtools/bin') define(`confRANLIB', `echo') define(`PUSHDIVERT', `pushdef(`__D__', divnum)divert($1)') define(`POPDIVERT', `divert(__D__)popdef(`__D__')') define(`APPENDDEF', `define(`$1', ifdef(`$1', `$1 $2', `$2'))') define(`PREPENDDEF', `define(`$1', ifdef(`$1', `$2 $1', `$2'))') sendmail-8.18.1/devtools/M4/switch.m40000644000372400037240000000315014556365350016650 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for Makefile construction for sendmail # # $Id: switch.m4,v 8.19 2013-11-22 20:51:18 ca Exp $ # divert(0)dnl include(confBUILDTOOLSDIR`/M4/string.m4')dnl include(confBUILDTOOLSDIR`/M4/list.m4')dnl include(confBUILDTOOLSDIR`/M4/subst_ext.m4')dnl define(`bldDEPENDENCY_SECTION', `3')dnl define(`bldTARGETS_SECTION', `6')dnl define(`bldPUSH_TARGET', `bldLIST_PUSH_ITEM(`bldTARGETS', `$1')'dnl )dnl define(`bldPUSH_INSTALL_TARGET', `bldLIST_PUSH_ITEM(`bldINSTALL_TARGETS', `$1')'dnl )dnl define(`bldPUSH_CLEAN_TARGET', `bldLIST_PUSH_ITEM(`bldCLEAN_TARGETS', `$1')'dnl )dnl define(`bldPUSH_ALL_SRCS', `bldLIST_PUSH_ITEM(`bldALL_SRCS', `$1')'dnl )dnl define(`bldPUSH_SMDEPLIB', `bldLIST_PUSH_ITEM(`bldSMDEPLIBS', `$1')'dnl )dnl define(`bldM4_TYPE_DIR',ifdef(`confNT', `NT', ``UNIX''))dnl define(`bldPUSH_STRIP_TARGET', `bldLIST_PUSH_ITEM(`bldSTRIP_TARGETS', `$1')'dnl )dnl define(`bldPRODUCT_START', `define(`bldCURRENT_PRODUCT', `$2')dnl define(`bldCURRENT_PRD', translit(`$2', `-.', `__'))dnl define(`bldPRODUCT_TYPE', `$1')dnl' )dnl define(`bldPRODUCT_END', `include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/'bldPRODUCT_TYPE`.m4')' )dnl include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/smlib.m4')dnl define(`bldFINISH', ifdef(`bldDONT_INCLUDE_ALL', ,``include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/all.m4')'')dnl undivert(bldTARGETS_SECTION)dnl )dnl sendmail-8.18.1/devtools/Site/0000755000372400037240000000000014556365433015534 5ustar xbuildxbuildsendmail-8.18.1/devtools/Site/site.config.m4.sample0000644000372400037240000000775014556365350021475 0ustar xbuildxbuilddnl ##################################################################### dnl ### ### dnl ### This is a sample "site.config.m4". It is not intended to be ### dnl ### used directly. It is intended to illustrate, by example, ### dnl ### how to make your own site configuration file. ### dnl ### ### dnl ##################################################################### dnl $Id: site.config.m4.sample,v 1.1 2003-01-11 17:09:25 ca Exp $ dnl ##################################################################### dnl ### ### dnl ### This illustrates how to turn off an option that is defined by ### dnl ### default. Check your compiler documentation to make sure that ### dnl ### it supports "-U". ### dnl ### ### dnl ##################################################################### dnl ### Changes to disable the default NIS support APPENDDEF(`confENVDEF', `-UNIS') dnl ##################################################################### dnl ### ### dnl ### The next group of statements illustrates how to add support ### dnl ### for a particular map class. ### dnl ### ### dnl ### Note that the map define goes in confMAPDEF, and that any ### dnl ### special library must be defined. Note, also that include ### dnl ### directories and library directories must also be defined if ### dnl ### they are places that your compiler does not automatically ### dnl ### search. ### dnl ### ### dnl ##################################################################### dnl ### Changes for CDB support. APPENDDEF(`confMAPDEF',`-DCDB') APPENDDEF(`confLIBS', `-lcdb') APPENDDEF(`confINCDIRS', `-I/usr/local/include') APPENDDEF(`confLIBDIRS', `-L/usr/local/lib') dnl ##################################################################### dnl ### ### dnl ### The next group illustrates how to add support for a compile ### dnl ### time option. In addition to the compile time define, any ### dnl ### required libraries must be given. In addition, include and ### dnl ### library directories must be given if they are not standardly ### dnl ### searched by your compiler. ### dnl ### ### dnl ### Note the "-R" for the library directory. On some systems, ### dnl ### that can be used to tell the run time loader where to find ### dnl ### dynamic libraries (shared objects). Check your system ### dnl ### documentation (man ld) to see if this is appropriate for your ### dnl ### system. ### dnl ### ### dnl ##################################################################### dnl ### Changes for STARTTLS support APPENDDEF(`confENVDEF',`-DSTARTTLS') APPENDDEF(`confLIBS', `-lssl -lcrypto') APPENDDEF(`confLIBDIRS', `-L/usr/local/ssl/lib -R/usr/local/ssl/lib') APPENDDEF(`confINCDIRS', `-I/usr/local/ssl/include') dnl ### Example for SMTPUTF8 support dnl Note: the proper "International Components for Unicode" dnl must be installed. It's available under different names, e.g., dnl OpenBSD: icu4c dnl FreeBSD, NetBSD, etc: icu dnl Centos, Fedora, RHEL: libicu-devel dnl Debian, Ubuntu: libicu-dev APPENDDEF(`confENVDEF',`-DUSE_EAI') APPENDDEF(`confLIBS', `-licuuc') dnl APPENDDEF(`confLIBDIRS', `-L/usr/local/lib') dnl APPENDDEF(`confINCDIRS', `-I/usr/local/include') sendmail-8.18.1/devtools/Site/README0000644000372400037240000000144614556365350016417 0ustar xbuildxbuildThe Build script will look for the default site configuration files in this directory. Build will include the following files if they are present in this directory: site.config.m4 site.OS.$SENDMAIL_SUFFIX.m4 site.OS.m4 site.post.m4 OS is the name of the operating system file selected from the devtools/OS directory. SENDMAIL_SUFFIX is a user environment variable which can be used to further distinguish between site configuration files in this directory. If set, it will also be used in generating the obj.* directory name. Notice: if any of the above files is changed, the -c flag must be specified with the Build command, otherwise those changes will have no effect. See the README in the devtools directory for more information. $Revision: 8.8 $, Last updated $Date: 2002-02-18 20:57:00 $ sendmail-8.18.1/devtools/README0000644000372400037240000003765514556365350015526 0ustar xbuildxbuildThis directory contains tools. Do not attempt to actually build anything in this directory. The Build script allows you to specify a base location for the object files by using the -O flag: ./Build -O /tmp will put the object files in /tmp/obj.*/. Also, if the SENDMAIL_SUFFIX environment variable is set, its value will be used in the obj.* directory name. The Build script allows you to specify a site configuration file by using the -f flag: ./Build -f siteconfig.m4 You can put such site configuration files in the Site sub-directory; see Site/README for details. If you need to support multiple build configurations from the same tree, you can use prefixes to differentiate your configurations. Use the -Q flag to Build: ./Build -Q prefix Build will select a prefix.*.m4 file instead of the site.*.m4 file according to the conventions in Site/README, and use it to modify the build configuration. The object directory used will be obj.prefix.*/. Your prefix.*.m4 files should reside in the Site directory. You may not use -Q and -f simultaneously. While building a site configuration file, beyond using define() to set variables, you can also add to a definition using the APPENDDEF() and PREPENDDEF() macros. For example: APPENDDEF(`confINCDIRS', `-I/usr/local/bind/include') will add -I/usr/local/bind/include to the already existing confINCDIRS. Note: There must be no trailing spaces after the last quote mark and before the closing parenthesis. Also you may need to properly quote m4 reserved words as specified by your vendor's m4 command. By default, sendmail will search your system for include and library directories as well as certain libraries (libdb.* for Berkeley DB and libbind.a or libresolv.* for name resolution). You can turn off this configuration step by specifying the -S flag with the Build command. The OS subtree contains definitions for variations on a standard model for system installation. The M4 variables that can be defined and their defaults before referencing the appropriate OS definitions are listed below. confBEFORE [empty] Files to create before sendmail is compiled. The methods must be defined in the Makefile using PUSHDIVERT(3). confBLDVARIANT OPTIMIZED This controls which object variant will be built and is controlled with the -v flag to the Build script. Internally, this macro is used to select compiler options in the devtools/OS/*.m4 files. Valid arguments for the Build -v flag are "optimized", "debug", and "purify" which map to confBLDVARIANT values of "OPTIMIZED", "DEBUG", and "PURIFY". This is a work in progress, and as such not all devtools/OS/*.m4 have been updated yet. (See Linux for an example of one that has.) Also, in the future it may be desirable to append a variant identifier to the object directory name to allow different variants to independently co-exist on a given target platform. Note: the PURIFY variant has not been fully implemented on any platforms yet. Other variants can be added as needed in the future. Changing this macro from its default will affect other default values. confBUILDBIN ../../devtools/bin The location of the build support binaries, relative to the obj.* directory. confCC cc The C compiler to use. confCCOPTS [empty] Additional options to pass to confCC. confCCOPTS_SO [empty] Additional options for compiling shared object libraries. confCCLINK confCC Linker to use (for executables). confCOPY cp A program that copies files. confMKDIR [empty] A program that creates directories (mkdir) and takes the -p parameter to create also intermediate directories as required. If this macro is set, then it used by "make install" to create the required installation directories. confDEPEND_TYPE generic How to build dependencies. This should be the name of a file in devtools/M4/depend confDEPLIBS [empty] Dependent libraries when building shared objects. confDONT_INSTALL_CATMAN [undefined] Don't install the formatted manual pages. confEBINDIR /usr/libexec The location for binaries executed from other binaries, e.g., mail.local or smrsh. confENVDEF [empty] -D flags passed to C compiler. confFORCE_RMAIL [undefined] If defined, install the rmail program without question. confGBINGRP smmsp The group for set-group-ID binaries. confGBINMODE 2555 The mode for set-group-ID binaries. confGBINOWN root The owner for set-group-ID binaries. confMSPQOWN smmsp The owner of the MSP queue. confMSP_QUEUE_DIR /var/spool/clientmqueue The MSP queue directory. confMSP_STFILE sm-client.st Name of the MSP statistics file. confHFDIR /etc/mail Location of the sendmail helpfile. confHFFILE helpfile Name of the installed helpfile. confINCDIRS [empty] -I flags passed to C compiler. confINCGRP bin The group for include files. confINCMODE 444 The mode of installed include files. confINCOWN root The owner for include files. confINCLUDEDIR /usr/include Where to install include files. confINSTALL install The BSD-compatible install program. Use ${BUILDBIN}/install.sh if none is available on your system. confINSTALL_RAWMAN [undefined] Install the unformatted manual pages. confLD confCC Linker to use (for libraries). confLDOPTS [empty] Linker options. confLDOPTS_SO [empty] Additional linker options for linking shared object libraries. confLIBDIR /usr/lib Where to install library files. confLIBDIRS [empty] -L flags passed to ld. confLIBGRP bin The group for libraries. confLIBMODE 444 The mode of installed libraries. confLIBOWN root The owner for libraries. confLIBS [varies] -l flags passed to ld. confLIBSEARCH db bind resolv 44bsd cdb Search for these libraries for linking with programs. confLIBSEARCHPATH /lib /usr/lib /usr/shlib Locations to search for the libraries specified by confLIBSEARCH. confLINKS ${UBINDIR}/newaliases ${UBINDIR}/mailq \ ${UBINDIR}/hoststat ${UBINDIR}/purgestat Names of links to sendmail. confLN ln The command used to create links. confLNOPTS -f -s The parameters for confLN. confMAN1 confMANROOT 1 The location of man1 files. confMAN1EXT 1 The extension on files in confMAN1. confMAN1SRC 0 The source for man pages installed in confMAN1. confMAN3 confMANROOT 3 The location of man3 files. confMAN3EXT 3 The extension on files in confMAN3. confMAN3SRC 0 The source for man pages installed in confMAN3. confMAN4 confMANROOT 4 The location of man4 files. confMAN4EXT 4 The extension on files in confMAN4. confMAN4SRC 0 The source for man pages installed in confMAN4. confMAN5 confMANROOT 5 The location of man5 files. confMAN5EXT 5 The extension on files in confMAN5. confMAN5SRC 0 The source for man pages installed in confMAN5. confMAN8 confMANROOT 8 The location of man8 files. confMAN8EXT 8 The extension on files in confMAN8. confMAN8SRC 0 The source for man pages installed in confMAN8. confMANDOC -man The macros used to format man pages. confMANGRP bin The group of installed man pages. confMANMODE 444 The mode of installed man pages. confMANOWN bin The owner of installed man pages. confMANROOT /usr/share/man/cat The root of the man subtree. confMANROOTMAN /usr/share/man/man The root of the man subtree, for unformatted manual pages. confMAPDEF [varies] The map definitions, e.g., -DNDBM -DNEWDB. -DNEWDB is always added if libdb.* can be found, -DCDB is added if libcdb.* is found. confMBINDIR /usr/sbin The location of the MTA (sm-mta, sendmail) binary. confMBINGRP bin The group of the MTA binary (sm-mta). confMBINMODE 550 The mode of the MTA binary (sm-mta). confMBINOWN root The owner of the MTA binary (sm-mta). confMTCCOPTS [empty] Additional options for compiling multi-threaded object files. confMTLDOPTS [empty] Additional linker options for linking multithreaded binaries. confNO_HELPFILE_INSTALL [undefined] If defined, don't install the sendmail helpfile by default. confNO_MAN_BUILD [undefined] If defined, don't build the man pages. confNO_MAN_INSTALL [undefined] If defined, don't install the man pages by default. confNO_STATISTICS_INSTALL [undefined] If defined, don't install the sendmail statistics file by default. confNROFF groff -Tascii The command to format man pages. confOBJADD [empty] Objects that should be included in when linking sendmail and the associated utilities. See also confSRCADD. confOPTIMIZE -O Flags passed to C compiler as ${O}. confRANLIB echo The path to the program to use as ranlib. confRANLIBOPTS [empty] Options to pass to ranlib. confREQUIRE_LIBSM [empty] Define if libsm is required. confSBINDIR /usr/sbin The location of root-oriented commands, such as makemap. confSBINGRP bin The group for set-user-ID binaries. confSBINMODE 4555 The mode for set-user-ID binaries. confSBINOWN root The owner for set-user-ID binaries. confSETUSERID_INSTALL [undefined] Needs to be defined to enable the install-set-user-id target for sendmail. See sendmail/SECURITY. confSHAREDLIB_EXT .so Shared library file extension name. confSHAREDLIB_SUFFIX [empty] Shared object version suffix. confSHAREDLIBDIR /usr/lib/ Directory for installing shared library. Note: if the value is not empty, it must end with a slash ('/') otherwise it will not be taken as a directory (but as the beginning of a path). confSHELL /bin/sh The shell to use inside make. confSM_OS_HEADER [varies] The name of the platform specific include file. Undefine this if libsm is not used. confSMOBJADD [empty] Objects that should be included in when linking sendmail. See also confSMSRCADD. confSMSRCADD [empty] C source files which correspond to objects listed in confSMOBJADD. confSMSRCDIR [varies] The sendmail source directory relative to support program obj.* directories. If not set, the Makefile will use a path set by the Build script. confSRCADD [empty] C source files which correspond to objects listed in confOBJADD. confSRCDIR [varies] The root of the source directories relative to support program obj.* directories. If not set, the Makefile will use a path set by the Build script. confSONAME [empty] ld flag for recording the shared object name into shared object. confSTDIR /etc/mail The directory in which to store the sendmail statistics file. confSTFILE statistics Name of the installed statistics file. confSTMODE 0600 Mode of the installed statistics file. confSTRIP strip What program to use for stripping executables. confSTRIPOPTS [empty] Options to pass to the strip program. confUBINDIR /usr/bin The directory for user-executable binaries. confUBINGRP bin The group for user-executable binaries. confUBINMODE 555 The mode for user-executable binaries. confUBINOWN bin The owner for user-executable binaries. There are also program specific variables for each of the programs in the sendmail distribution. Each has the form `conf_prog_ENVDEF', for example, `conf_sendmail_ENVDEF'. If the program name contains a '.' it must be replaced by '_' first, e.g., use `conf_mail_local_LIBS' instead of `conf_mail.local_LIBS'. The variables are: conf_prog_ENVDEF [empty] -D flags passed to C compiler when compiling prog. conf_prog_LIB_POST [empty] -l flags passed to ld when linking prog (after other libraries). conf_prog_LIBS [varies] -l flags passed to ld when linking prog (before other libraries). conf_prog_OBJADD [empty] Additional object files given to ld when linking prog. conf_prog_SRCADD [empty] C source files to compile and link for prog. The order of the different conf*LIBS* is as follows: conf_prog_LIBS confLIBS conf_prog_LIB_POST ---------------------------------------------------------------- ---------------- New build system ---------------- Sendmail's build system has undergone some rearrangement to accommodate future development. To the end user building sendmail from a distribution, this should have little effect. All the same configuration files and macros should still behave the same. If you need to make some radical changes to a Makefile.m4 or are adding new libraries or utilities, you may want to read the rest of this document on how to work with the new system. -------- Overview -------- The purpose of the redesign is twofold. First, it cuts down massively on replicated information. Second, the new design should lend itself better to working on platforms with somewhat different build tools than on standard unix. The main idea is to have the Makefile.m4 in each subdirectory contain the minimum amount of information needed to describe the elements needed for the build process and the products produced. Each product has a type and each type has a template that provides a basic makefile for that type. Right now the templates are organized by the broad type of the operating system. The two existing types are UNIX and NT. ------------------ Makefile.m4 basics ------------------ Each Makefile.m4 is split into separate products. For the most part, the products are considered totally separate from other products in the Makefile.m4. Each products is delineated by two macros: bldPRODUCT_START and bldPRODUCT_END. The form for bldPRODUCT_START is: bldPRODUCT_START(, ) where is the type of product to be produced (e.g., executable, library, manpage) and is a unique identifier within the product_type name space for this Makefile.m4 The form for bldPRODUCT_END is: bldPRODUCT_END This is marks the end of all the information for the current product. There is one other macro required in any Makefile.m4 and that is bldFINISH which takes no arguments and must appear after all the products have been defined. When the actual makefile is generated each product appears in two sections. The first is where makefile variables are set (e.g., CFLAGS=-O). The second is where the targets appear (e.g., foo.o: foo.c). Anything diverted to bldTARGETS_SECTION ends up in the second part of the makefile. Anything else turns up in the header part where variables are defined. As always, any straight text put into Makefile.m4 will just show up as is in the finished makefile. ------------- Product Types ------------- executable ---------- This means an executable created from C sources. The name of the executable is derived from the product_name in the bldPRODUCT_START macro. bldSOURCES - This should be defined to a space separated list of source files that make up the executable. bldBIN_TYPE - This determines where the binaries will be installed and what permissions they will have. Available types are `M', `U', `K', `S', and `E'. See M4/UNIX/make/executable.m4 for what the different types mean. bldTARGET_LINKS - This determines where additional symbolic links to the executable are placed. These should be full pathnames, separated by spaces. test ---- This is just like 'executable', but is used for test programs. The program cannot be installed. Each time it is built, it is executed by make with no arguments. manpage ------- This builds manpages from source using *roff. bldSOURCES - This should be defined to a space separated list of man source files. library ------- This builds a static library from C sources. bldSOURCES - This should be defined to a space separated list of C source files that make up the library. bldINSTALLABLE - This should be set if the library should be installed in confLIBDIR. $Revision: 8.104 $, Last updated $Date: 2012-01-21 00:07:06 $ sendmail-8.18.1/FAQ0000644000372400037240000000025414556365350013322 0ustar xbuildxbuildThe FAQ is no longer maintained with the sendmail release. It is available at http://www.sendmail.org/faq/ . $Revision: 8.25 $, Last updated $Date: 2014-01-27 12:49:52 $ sendmail-8.18.1/Build0000755000372400037240000000051114556365350013751 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.4 2013-11-22 20:51:01 ca Exp $ exec make OPTIONS="$*" sendmail-8.18.1/praliases/0000755000372400037240000000000014556365434014755 5ustar xbuildxbuildsendmail-8.18.1/praliases/Makefile.m40000644000372400037240000000125214556365350016731 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.36 2006-06-28 21:08:03 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_LIBSM', `true') define(`confREQUIRE_SM_OS_H', `true') # sendmail dir SMSRCDIR= ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confENVDEF', `confMAPDEF') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`executable', `praliases') define(`bldINSTALL_DIR', `S') define(`bldSOURCES', `praliases.c ') bldPUSH_SMLIB(`sm') bldPUSH_SMLIB(`smutil') bldPUSH_SMLIB(`smdb') APPENDDEF(`confENVDEF', `-DNOT_SENDMAIL') bldPRODUCT_END bldPRODUCT_START(`manpage', `praliases') define(`bldSOURCES', `praliases.8') bldPRODUCT_END bldFINISH sendmail-8.18.1/praliases/Makefile0000644000372400037240000000053214556365350016412 0ustar xbuildxbuild# $Id: Makefile,v 8.5 1999-09-23 22:36:39 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/praliases/Build0000755000372400037240000000052014556365350015734 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.5 2013-11-22 20:51:53 ca Exp $ exec ../devtools/bin/Build $* sendmail-8.18.1/praliases/praliases.c0000644000372400037240000002105414556365350017103 0ustar xbuildxbuild/* * Copyright (c) 1998-2001, 2008 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_IDSTR(copyright, "@(#) Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers.\n\ All rights reserved.\n\ Copyright (c) 1983 Eric P. Allman. All rights reserved.\n\ Copyright (c) 1988, 1993\n\ The Regents of the University of California. All rights reserved.\n") SM_IDSTR(id, "@(#)$Id: praliases.c,v 8.98 2013-11-22 20:51:53 ca Exp $") #include #include #include #include #ifdef EX_OK # undef EX_OK /* unistd.h may have another use for this */ #endif #include #ifndef NOT_SENDMAIL # define NOT_SENDMAIL #endif #include #include #include static void praliases __P((char *, int, char **)); uid_t RealUid; gid_t RealGid; char *RealUserName; uid_t RunAsUid; gid_t RunAsGid; char *RunAsUserName; int Verbose = 2; bool DontInitGroups = false; uid_t TrustedUid = 0; BITMAP256 DontBlameSendmail; # define DELIMITERS " ,/" # define PATH_SEPARATOR ':' int main(argc, argv) int argc; char **argv; { char *cfile; char *filename = NULL; SM_FILE_T *cfp; int ch; char afilebuf[MAXLINE]; char buf[MAXLINE]; struct passwd *pw; static char rnamebuf[MAXNAME]; extern char *optarg; extern int optind; clrbitmap(DontBlameSendmail); RunAsUid = RealUid = getuid(); RunAsGid = RealGid = getgid(); pw = getpwuid(RealUid); if (pw != NULL) { if (strlen(pw->pw_name) > MAXNAME - 1) pw->pw_name[MAXNAME] = 0; sm_snprintf(rnamebuf, sizeof rnamebuf, "%s", pw->pw_name); } else (void) sm_snprintf(rnamebuf, sizeof rnamebuf, "Unknown UID %d", (int) RealUid); RunAsUserName = RealUserName = rnamebuf; cfile = getcfname(0, 0, SM_GET_SENDMAIL_CF, NULL); while ((ch = getopt(argc, argv, "C:f:l")) != -1) { switch ((char)ch) { case 'C': cfile = optarg; break; case 'f': filename = optarg; break; case 'l': smdb_print_available_types(false); exit(EX_OK); break; case '?': default: (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "usage: praliases [-C cffile] [-f aliasfile]" " [key ...]\n"); exit(EX_USAGE); } } argc -= optind; argv += optind; if (filename != NULL) { praliases(filename, argc, argv); exit(EX_OK); } if ((cfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, cfile, SM_IO_RDONLY, NULL)) == NULL) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "praliases: %s: %s\n", cfile, sm_errstring(errno)); exit(EX_NOINPUT); } while (sm_io_fgets(cfp, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { register char *b, *p; b = strchr(buf, '\n'); if (b != NULL) *b = '\0'; b = buf; switch (*b++) { case 'O': /* option -- see if alias file */ if (sm_strncasecmp(b, " AliasFile", 10) == 0 && !(isascii(b[10]) && isalnum(b[10]))) { /* new form -- find value */ b = strchr(b, '='); if (b == NULL) continue; while (isascii(*++b) && isspace(*b)) continue; } else if (*b++ != 'A') { /* something else boring */ continue; } /* this is the A or AliasFile option -- save it */ if (sm_strlcpy(afilebuf, b, sizeof afilebuf) >= sizeof afilebuf) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "praliases: AliasFile filename too long: %.30s\n", b); (void) sm_io_close(cfp, SM_TIME_DEFAULT); exit(EX_CONFIG); } b = afilebuf; for (p = b; p != NULL; ) { while (isascii(*p) && isspace(*p)) p++; if (*p == '\0') break; b = p; p = strpbrk(p, DELIMITERS); /* find end of spec */ if (p != NULL) { bool quoted = false; for (; *p != '\0'; p++) { /* ** Don't break into a quoted ** string. */ if (*p == '"') quoted = !quoted; else if (*p == ',' && !quoted) break; } /* No more alias specs follow */ if (*p == '\0') { /* chop trailing whitespace */ while (isascii(*p) && isspace(*p) && p > b) p--; *p = '\0'; p = NULL; } } if (p != NULL) { char *e = p - 1; /* chop trailing whitespace */ while (isascii(*e) && isspace(*e) && e > b) e--; *++e = '\0'; *p++ = '\0'; } praliases(b, argc, argv); } default: continue; } } (void) sm_io_close(cfp, SM_TIME_DEFAULT); exit(EX_OK); /* NOTREACHED */ return EX_OK; } static void praliases(filename, argc, argv) char *filename; int argc; char **argv; { int result; char *colon; char *db_name; char *db_type; SMDB_DATABASE *database = NULL; SMDB_CURSOR *cursor = NULL; SMDB_DBENT db_key, db_value; SMDB_DBPARAMS params; SMDB_USER_INFO user_info; colon = strchr(filename, PATH_SEPARATOR); if (colon == NULL) { db_name = filename; db_type = SMDB_TYPE_DEFAULT; } else { *colon = '\0'; db_name = colon + 1; db_type = filename; } /* clean off arguments */ for (;;) { while (isascii(*db_name) && isspace(*db_name)) db_name++; if (*db_name != '-') break; while (*db_name != '\0' && !(isascii(*db_name) && isspace(*db_name))) db_name++; } /* Skip non-file based DB types */ if (db_type != NULL && *db_type != '\0') { if (db_type != SMDB_TYPE_DEFAULT && !smdb_is_db_type(db_type)) { sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "praliases: Skipping non-file based alias type %s\n", db_type); return; } } if (*db_name == '\0' || (db_type != NULL && *db_type == '\0')) { if (colon != NULL) *colon = ':'; (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "praliases: illegal alias specification: %s\n", filename); goto fatal; } memset(¶ms, '\0', sizeof params); params.smdbp_cache_size = 1024 * 1024; user_info.smdbu_id = RunAsUid; user_info.smdbu_group_id = RunAsGid; (void) sm_strlcpy(user_info.smdbu_name, RunAsUserName, SMDB_MAX_USER_NAME_LEN); result = smdb_open_database(&database, db_name, O_RDONLY, 0, SFF_ROOTOK, db_type, &user_info, ¶ms); if (result != SMDBE_OK) { sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "praliases: %s: open: %s\n", db_name, sm_errstring(result)); goto fatal; } if (argc == 0) { memset(&db_key, '\0', sizeof db_key); memset(&db_value, '\0', sizeof db_value); result = database->smdb_cursor(database, &cursor, 0); if (result != SMDBE_OK) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "praliases: %s: set cursor: %s\n", db_name, sm_errstring(result)); goto fatal; } while ((result = cursor->smdbc_get(cursor, &db_key, &db_value, SMDB_CURSOR_GET_NEXT)) == SMDBE_OK) { #if 0 /* skip magic @:@ entry */ if (db_key.size == 2 && db_key.data[0] == '@' && db_key.data[1] == '\0' && db_value.size == 2 && db_value.data[0] == '@' && db_value.data[1] == '\0') continue; #endif /* 0 */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%.*s:%.*s\n", (int) db_key.size, (char *) db_key.data, (int) db_value.size, (char *) db_value.data); } if (result != SMDBE_OK && result != SMDBE_LAST_ENTRY) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "praliases: %s: get value at cursor: %s\n", db_name, sm_errstring(result)); goto fatal; } } else for (; *argv != NULL; ++argv) { int get_res; memset(&db_key, '\0', sizeof db_key); memset(&db_value, '\0', sizeof db_value); db_key.data = *argv; db_key.size = strlen(*argv); get_res = database->smdb_get(database, &db_key, &db_value, 0); if (get_res == SMDBE_NOT_FOUND) { db_key.size++; get_res = database->smdb_get(database, &db_key, &db_value, 0); } if (get_res == SMDBE_OK) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%.*s:%.*s\n", (int) db_key.size, (char *) db_key.data, (int) db_value.size, (char *) db_value.data); } else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s: No such key\n", (char *)db_key.data); } fatal: if (cursor != NULL) (void) cursor->smdbc_close(cursor); if (database != NULL) (void) database->smdb_close(database); if (colon != NULL) *colon = ':'; return; } sendmail-8.18.1/praliases/praliases.00000644000372400037240000000247214556365431017023 0ustar xbuildxbuildPRALIASES(8) PRALIASES(8) NNAAMMEE praliases - display system mail aliases SSYYNNOOPPSSIISS pprraalliiaasseess [--CC _f_i_l_e] [--ff _f_i_l_e] [_k_e_y _._._.] DDEESSCCRRIIPPTTIIOONN The pprraalliiaasseess utility displays the current system aliases, one per line, in no particular order. The special internal @:@ alias will be displayed if present. The options are as follows: --CC _f_i_l_e Read the specified sendmail configuration file instead of the default sseennddmmaaiill configuration file. --ff _f_i_l_e Read the specified file instead of the configured sseennddmmaaiill sys- tem aliases file(s). If one or more keys are specified on the command line, only entries which match those keys are displayed. The pprraalliiaasseess utility exits 0 on success, and >0 if an error occurs. FFIILLEESS /etc/mail/sendmail.cf The default sseennddmmaaiill configuration file. SSEEEE AALLSSOO mailq(1), sendmail(8) $Date: 2013-11-22 20:51:53 $ PRALIASES(8) sendmail-8.18.1/praliases/praliases.80000644000372400037240000000236514556365350017034 0ustar xbuildxbuild.\" Copyright (c) 1998-2000, 2008 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: praliases.8,v 8.20 2013-11-22 20:51:53 ca Exp $ .\" .TH PRALIASES 8 "$Date: 2013-11-22 20:51:53 $" .SH NAME praliases \- display system mail aliases .SH SYNOPSIS .B praliases .RB [ \-C .IR file ] .RB [ \-f .IR file ] .RB [\c .IR key .IR ... ] .SH DESCRIPTION The .B praliases utility displays the current system aliases, one per line, in no particular order. The special internal @:@ alias will be displayed if present. .PP The options are as follows: .TP .BI "\-C " file Read the specified sendmail configuration file instead of the default .B sendmail configuration file. .TP .BI "\-f " file Read the specified file instead of the configured .B sendmail system aliases file(s). .PP If one or more keys are specified on the command line, only entries which match those keys are displayed. .PP The .B praliases utility exits 0 on success, and >0 if an error occurs. .SH FILES .TP 2.5i /etc/mail/sendmail.cf The default .B sendmail configuration file. .SH SEE ALSO mailq(1), sendmail(8) sendmail-8.18.1/sendmail/0000755000372400037240000000000014556365434014566 5ustar xbuildxbuildsendmail-8.18.1/sendmail/savemail.c0000644000372400037240000012645714556365350016547 0ustar xbuildxbuild/* * Copyright (c) 1998-2003, 2006, 2012, 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: savemail.c,v 8.319 2013-11-22 20:51:56 ca Exp $") #include static bool errbody __P((MCI *, ENVELOPE *, char *)); static bool pruneroute __P((char *)); /* ** SAVEMAIL -- Save mail on error ** ** If mailing back errors, mail it back to the originator ** together with an error message; otherwise, just put it in ** dead.letter in the user's home directory (if he exists on ** this machine). ** ** Parameters: ** e -- the envelope containing the message in error. ** sendbody -- if true, also send back the body of the ** message; otherwise just send the header. ** ** Returns: ** true if savemail panic'ed, (i.e., the data file should ** be preserved by dropenvelope()) ** ** Side Effects: ** Saves the letter, by writing or mailing it back to the ** sender, or by putting it in dead.letter in her home ** directory. */ /* defines for state machine */ #define ESM_REPORT 0 /* report to sender's terminal */ #define ESM_MAIL 1 /* mail back to sender */ #define ESM_QUIET 2 /* mail has already been returned */ #define ESM_DEADLETTER 3 /* save in ~/dead.letter */ #define ESM_POSTMASTER 4 /* return to postmaster */ #define ESM_DEADLETTERDROP 5 /* save in DeadLetterDrop */ #define ESM_PANIC 6 /* call loseqfile() */ #define ESM_DONE 7 /* message is successfully delivered */ bool savemail(e, sendbody) register ENVELOPE *e; bool sendbody; { register SM_FILE_T *fp; bool panic = false; int state; auto ADDRESS *q = NULL; register char *p; MCI mcibuf; int flags; long sff; char buf[MAXLINE + 1]; char dlbuf[MAXPATHLEN]; SM_MBDB_T user; if (tTd(6, 1)) { sm_dprintf("\nsavemail, errormode = %c, id = %s, ExitStat = %d\n e_from=", e->e_errormode, e->e_id == NULL ? "NONE" : e->e_id, ExitStat); printaddr(sm_debug_file(), &e->e_from, false); } if (e->e_id == NULL) { /* can't return a message with no id */ return panic; } /* ** In the unhappy event we don't know who to return the mail ** to, make someone up. */ if (e->e_from.q_paddr == NULL) { e->e_sender = "Postmaster"; if (parseaddr(e->e_sender, &e->e_from, RF_COPYPARSE|RF_SENDERADDR, '\0', NULL, e, false) == NULL) { syserr("553 5.3.5 Cannot parse Postmaster!"); finis(true, true, EX_SOFTWARE); } } e->e_to = NULL; /* ** Basic state machine. ** ** This machine runs through the following states: ** ** ESM_QUIET Errors have already been printed iff the ** sender is local. ** ESM_REPORT Report directly to the sender's terminal. ** ESM_MAIL Mail response to the sender. ** ESM_DEADLETTER Save response in ~/dead.letter. ** ESM_POSTMASTER Mail response to the postmaster. ** ESM_DEADLETTERDROP ** If DeadLetterDrop set, save it there. ** ESM_PANIC Save response anywhere possible. */ /* determine starting state */ switch (e->e_errormode) { case EM_WRITE: state = ESM_REPORT; break; case EM_BERKNET: case EM_MAIL: state = ESM_MAIL; break; case EM_PRINT: case '\0': state = ESM_QUIET; break; case EM_QUIET: /* no need to return anything at all */ return panic; default: syserr("554 5.3.0 savemail: bogus errormode x%x", e->e_errormode); state = ESM_MAIL; break; } /* if this is already an error response, send to postmaster */ if (bitset(EF_RESPONSE, e->e_flags)) { if (e->e_parent != NULL && bitset(EF_RESPONSE, e->e_parent->e_flags)) { /* got an error sending a response -- can it */ return panic; } state = ESM_POSTMASTER; } while (state != ESM_DONE) { if (tTd(6, 5)) sm_dprintf(" state %d\n", state); switch (state) { case ESM_QUIET: if (bitnset(M_LOCALMAILER, e->e_from.q_mailer->m_flags)) state = ESM_DEADLETTER; else state = ESM_MAIL; break; case ESM_REPORT: /* ** If the user is still logged in on the same terminal, ** then write the error messages back to hir (sic). */ #if USE_TTYPATH p = ttypath(); #else p = NULL; #endif if (p == NULL || sm_io_reopen(SmFtStdio, SM_TIME_DEFAULT, p, SM_IO_WRONLY, NULL, smioout) == NULL) { state = ESM_MAIL; break; } expand("\201n", buf, sizeof(buf), e); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\r\nMessage from %s...\r\n", buf); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Errors occurred while sending mail.\r\n"); if (e->e_xfp != NULL) { (void) bfrewind(e->e_xfp); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Transcript follows:\r\n"); while (sm_io_fgets(e->e_xfp, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0 && !sm_io_error(smioout)) (void) sm_io_fputs(smioout, SM_TIME_DEFAULT, buf); } else { syserr("Cannot open %s", queuename(e, XSCRPT_LETTER)); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Transcript of session is unavailable.\r\n"); } (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Original message will be saved in dead.letter.\r\n"); state = ESM_DEADLETTER; break; case ESM_MAIL: /* ** If mailing back, do it. ** Throw away all further output. Don't alias, ** since this could cause loops, e.g., if joe ** mails to joe@x, and for some reason the network ** for @x is down, then the response gets sent to ** joe@x, which gives a response, etc. Also force ** the mail to be delivered even if a version of ** it has already been sent to the sender. ** ** If this is a configuration or local software ** error, send to the local postmaster as well, ** since the originator can't do anything ** about it anyway. Note that this is a full ** copy of the message (intentionally) so that ** the Postmaster can forward things along. */ if (ExitStat == EX_CONFIG || ExitStat == EX_SOFTWARE) { (void) sendtolist("postmaster", NULLADDR, &e->e_errorqueue, 0, e); } if (!emptyaddr(&e->e_from)) { char from[TOBUFSIZE]; if (sm_strlcpy(from, e->e_from.q_paddr, sizeof(from)) >= sizeof(from)) { state = ESM_POSTMASTER; break; } if (!DontPruneRoutes) (void) pruneroute(from); (void) sendtolist(from, NULLADDR, &e->e_errorqueue, 0, e); } /* ** Deliver a non-delivery report to the ** Postmaster-designate (not necessarily ** Postmaster). This does not include the ** body of the message, for privacy reasons. ** You really shouldn't need this. */ e->e_flags |= EF_PM_NOTIFY; /* check to see if there are any good addresses */ for (q = e->e_errorqueue; q != NULL; q = q->q_next) { if (QS_IS_SENDABLE(q->q_state)) break; } if (q == NULL) { /* this is an error-error */ state = ESM_POSTMASTER; break; } if (returntosender(e->e_message, e->e_errorqueue, sendbody ? RTSF_SEND_BODY : RTSF_NO_BODY, e) == 0) { state = ESM_DONE; break; } /* didn't work -- return to postmaster */ state = ESM_POSTMASTER; break; case ESM_POSTMASTER: /* ** Similar to previous case, but to system postmaster. */ q = NULL; expand(DoubleBounceAddr, buf, sizeof(buf), e); /* ** Just drop it on the floor if DoubleBounceAddr ** expands to an empty string. */ if (*buf == '\0') { state = ESM_DONE; break; } if (sendtolist(buf, NULLADDR, &q, 0, e) <= 0) { syserr("553 5.3.0 cannot parse %s!", buf); ExitStat = EX_SOFTWARE; state = ESM_DEADLETTERDROP; break; } flags = RTSF_PM_BOUNCE; if (sendbody) flags |= RTSF_SEND_BODY; if (returntosender(e->e_message, q, flags, e) == 0) { state = ESM_DONE; break; } /* didn't work -- last resort */ state = ESM_DEADLETTERDROP; break; case ESM_DEADLETTER: /* ** Save the message in dead.letter. ** If we weren't mailing back, and the user is ** local, we should save the message in ** ~/dead.letter so that the poor person doesn't ** have to type it over again -- and we all know ** what poor typists UNIX users are. */ p = NULL; if (bitnset(M_HASPWENT, e->e_from.q_mailer->m_flags)) { if (e->e_from.q_home != NULL) p = e->e_from.q_home; else if (sm_mbdb_lookup(e->e_from.q_user, &user) == EX_OK && *user.mbdb_homedir != '\0') p = user.mbdb_homedir; } if (p == NULL || e->e_dfp == NULL) { /* no local directory or no data file */ state = ESM_MAIL; break; } /* we have a home directory; write dead.letter */ macdefine(&e->e_macro, A_TEMP, 'z', p); /* get the sender for the UnixFromLine */ p = macvalue('g', e); macdefine(&e->e_macro, A_PERM, 'g', e->e_sender); expand("\201z/dead.letter", dlbuf, sizeof(dlbuf), e); sff = SFF_CREAT|SFF_REGONLY|SFF_RUNASREALUID; if (RealUid == 0) sff |= SFF_ROOTOK; e->e_to = dlbuf; if (writable(dlbuf, NULL, sff) && mailfile(dlbuf, FileMailer, NULL, sff, e) == EX_OK) { int oldverb = Verbose; if (OpMode != MD_DAEMON && OpMode != MD_SMTP) Verbose = 1; if (Verbose > 0) message("Saved message in %s", dlbuf); Verbose = oldverb; macdefine(&e->e_macro, A_PERM, 'g', p); state = ESM_DONE; break; } macdefine(&e->e_macro, A_PERM, 'g', p); state = ESM_MAIL; break; case ESM_DEADLETTERDROP: /* ** Log the mail in DeadLetterDrop file. */ if (e->e_class < 0) { state = ESM_DONE; break; } if ((SafeFileEnv != NULL && SafeFileEnv[0] != '\0') || DeadLetterDrop == NULL || DeadLetterDrop[0] == '\0') { state = ESM_PANIC; break; } sff = SFF_CREAT|SFF_REGONLY|SFF_ROOTOK|SFF_OPENASROOT|SFF_MUSTOWN; if (!writable(DeadLetterDrop, NULL, sff) || (fp = safefopen(DeadLetterDrop, O_WRONLY|O_APPEND, FileMode, sff)) == NULL) { state = ESM_PANIC; break; } memset(&mcibuf, '\0', sizeof(mcibuf)); mcibuf.mci_out = fp; mcibuf.mci_mailer = FileMailer; if (bitnset(M_7BITS, FileMailer->m_flags)) mcibuf.mci_flags |= MCIF_7BIT; /* get the sender for the UnixFromLine */ p = macvalue('g', e); macdefine(&e->e_macro, A_PERM, 'g', e->e_sender); if (!putfromline(&mcibuf, e) || !(*e->e_puthdr)(&mcibuf, e->e_header, e, M87F_OUTER) || !(*e->e_putbody)(&mcibuf, e, NULL) || !putline("\n", &mcibuf) || sm_io_flush(fp, SM_TIME_DEFAULT) == SM_IO_EOF || sm_io_error(fp) || sm_io_close(fp, SM_TIME_DEFAULT) < 0) state = ESM_PANIC; else { int oldverb = Verbose; if (OpMode != MD_DAEMON && OpMode != MD_SMTP) Verbose = 1; if (Verbose > 0) message("Saved message in %s", DeadLetterDrop); Verbose = oldverb; if (LogLevel > 3) sm_syslog(LOG_NOTICE, e->e_id, "Saved message in %s", DeadLetterDrop); state = ESM_DONE; } macdefine(&e->e_macro, A_PERM, 'g', p); break; default: syserr("554 5.3.5 savemail: unknown state %d", state); /* FALLTHROUGH */ case ESM_PANIC: /* leave the locked queue & transcript files around */ loseqfile(e, "savemail panic"); panic = true; errno = 0; syserr("554 savemail: cannot save rejected email anywhere"); state = ESM_DONE; break; } } return panic; } /* ** RETURNTOSENDER -- return a message to the sender with an error. ** ** Parameters: ** msg -- the explanatory message. ** returnq -- the queue of people to send the message to. ** flags -- flags tweaking the operation: ** RTSF_SENDBODY -- include body of message (otherwise ** just send the header). ** RTSF_PMBOUNCE -- this is a postmaster bounce. ** e -- the current envelope. ** ** Returns: ** zero -- if everything went ok. ** else -- some error. ** ** Side Effects: ** Returns the current message to the sender via mail. */ #define MAXRETURNS 6 /* max depth of returning messages */ #define ERRORFUDGE 1024 /* nominal size of error message text */ int returntosender(msg, returnq, flags, e) char *msg; ADDRESS *returnq; int flags; register ENVELOPE *e; { int ret; register ENVELOPE *ee; ENVELOPE *oldcur = CurEnv; ENVELOPE errenvelope; static int returndepth = 0; register ADDRESS *q; char *p; char buf[MAXNAME + 1]; /* EAI:ok */ if (returnq == NULL) return -1; if (msg == NULL) msg = "Unable to deliver mail"; if (tTd(6, 1)) { sm_dprintf("\n*** Return To Sender: msg=\"%s\", depth=%d, e=%p, returnq=", msg, returndepth, (void *)e); printaddr(sm_debug_file(), returnq, true); if (tTd(6, 20)) { sm_dprintf("Sendq="); printaddr(sm_debug_file(), e->e_sendqueue, true); } } if (++returndepth >= MAXRETURNS) { if (returndepth != MAXRETURNS) syserr("554 5.3.0 returntosender: infinite recursion on %s", returnq->q_paddr); /* don't "unrecurse" and fake a clean exit */ /* returndepth--; */ return 0; } macdefine(&e->e_macro, A_PERM, 'g', e->e_sender); macdefine(&e->e_macro, A_PERM, 'u', NULL); /* initialize error envelope */ ee = newenvelope(&errenvelope, e, sm_rpool_new_x(NULL)); macdefine(&ee->e_macro, A_PERM, 'a', "\201b"); macdefine(&ee->e_macro, A_PERM, 'r', ""); macdefine(&ee->e_macro, A_PERM, 's', "localhost"); macdefine(&ee->e_macro, A_PERM, '_', "localhost"); clrsessenvelope(ee); ee->e_puthdr = putheader; ee->e_putbody = errbody; ee->e_flags |= EF_RESPONSE|EF_METOO; if (!bitset(EF_OLDSTYLE, e->e_flags)) ee->e_flags &= ~EF_OLDSTYLE; if (bitset(EF_DONT_MIME, e->e_flags)) { ee->e_flags |= EF_DONT_MIME; /* ** If we can't convert to MIME and we don't pass ** 8-bit, we can't send the body. */ if (bitset(EF_HAS8BIT, e->e_flags) && !bitset(MM_PASS8BIT, MimeMode)) flags &= ~RTSF_SEND_BODY; } ee->e_sendqueue = returnq; ee->e_msgsize = 0; if (bitset(RTSF_SEND_BODY, flags) && !bitset(PRIV_NOBODYRETN, PrivacyFlags)) ee->e_msgsize = ERRORFUDGE + e->e_msgsize; else ee->e_flags |= EF_NO_BODY_RETN; #if _FFR_BOUNCE_QUEUE if (BounceQueue != NOQGRP) ee->e_qgrp = ee->e_dfqgrp = BounceQueue; #endif if (!setnewqueue(ee)) { syserr("554 5.3.0 returntosender: cannot select queue for %s", returnq->q_paddr); ExitStat = EX_UNAVAILABLE; returndepth--; return -1; } initsys(ee); #if NAMED_BIND _res.retry = TimeOuts.res_retry[RES_TO_FIRST]; _res.retrans = TimeOuts.res_retrans[RES_TO_FIRST]; #endif for (q = returnq; q != NULL; q = q->q_next) { if (QS_IS_BADADDR(q->q_state)) continue; q->q_flags &= ~(QHASNOTIFY|Q_PINGFLAGS); q->q_flags |= QPINGONFAILURE; if (!QS_IS_DEAD(q->q_state)) ee->e_nrcpts++; if (q->q_alias == NULL) addheader("To", q->q_paddr, 0, ee, true); } if (LogLevel > 5) { if (bitset(EF_RESPONSE, e->e_flags)) p = "return to sender"; else if (bitset(EF_WARNING, e->e_flags)) p = "sender notify"; else if (bitset(RTSF_PM_BOUNCE, flags)) p = "postmaster notify"; else p = "DSN"; sm_syslog(LOG_INFO, e->e_id, "%s: %s: %s", ee->e_id, p, shortenstring(msg, MAXSHORTSTR)); } if (SendMIMEErrors) { addheader("MIME-Version", "1.0", 0, ee, true); (void) sm_snprintf(buf, sizeof(buf), "%s.%ld/%.100s", ee->e_id, (long)curtime(), MyHostName); ee->e_msgboundary = sm_rpool_strdup_x(ee->e_rpool, buf); (void) sm_snprintf(buf, sizeof(buf), #if DSN "multipart/report; report-type=delivery-status;\n\tboundary=\"%s\"", #else "multipart/mixed; boundary=\"%s\"", #endif ee->e_msgboundary); addheader("Content-Type", buf, 0, ee, true); p = hvalue("Content-Transfer-Encoding", e->e_header); if (p != NULL && sm_strcasecmp(p, "binary") != 0) p = NULL; if (p == NULL && bitset(EF_HAS8BIT, e->e_flags)) p = "8bit"; if (p != NULL) addheader("Content-Transfer-Encoding", p, 0, ee, true); } if (strncmp(msg, "Warning:", 8) == 0) { addheader("Subject", msg, 0, ee, true); p = "warning-timeout"; } else if (strncmp(msg, "Postmaster warning:", 19) == 0) { addheader("Subject", msg, 0, ee, true); p = "postmaster-warning"; } else if (strcmp(msg, "Return receipt") == 0) { addheader("Subject", msg, 0, ee, true); p = "return-receipt"; } else if (bitset(RTSF_PM_BOUNCE, flags)) { (void) sm_snprintf(buf, sizeof(buf), "Postmaster notify: see transcript for details"); addheader("Subject", buf, 0, ee, true); p = "postmaster-notification"; } else { (void) sm_snprintf(buf, sizeof(buf), "Returned mail: see transcript for details"); addheader("Subject", buf, 0, ee, true); p = "failure"; } (void) sm_snprintf(buf, sizeof(buf), "auto-generated (%s)", p); addheader("Auto-Submitted", buf, 0, ee, true); /* fake up an address header for the from person */ expand("\201n", buf, sizeof(buf), e); /* XXX buf must be [i] */ if (parseaddr(buf, &ee->e_from, RF_COPYALL|RF_SENDERADDR, '\0', NULL, e, false) == NULL) { syserr("553 5.3.5 Can't parse myself!"); ExitStat = EX_SOFTWARE; returndepth--; return -1; } ee->e_from.q_flags &= ~(QHASNOTIFY|Q_PINGFLAGS); ee->e_from.q_flags |= QPINGONFAILURE; ee->e_sender = ee->e_from.q_paddr; #if USE_EAI /* always? when is this really needed? */ if (e->e_smtputf8) ee->e_smtputf8 = true; #endif /* push state into submessage */ CurEnv = ee; macdefine(&ee->e_macro, A_PERM, 'f', "\201n"); macdefine(&ee->e_macro, A_PERM, 'x', "Mail Delivery Subsystem"); eatheader(ee, true, true); /* mark statistics */ markstats(ee, NULLADDR, STATS_NORMAL); #if _FFR_BOUNCE_QUEUE if (BounceQueue == NOQGRP) { #endif /* actually deliver the error message */ sendall(ee, SM_DELIVER); #if _FFR_BOUNCE_QUEUE } #endif (void) dropenvelope(ee, true, false); /* check for delivery errors */ ret = -1; if (ee->e_parent == NULL || !bitset(EF_RESPONSE, ee->e_parent->e_flags)) { ret = 0; } else { for (q = ee->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_ATTEMPTED(q->q_state)) { ret = 0; break; } } } /* restore state */ sm_rpool_free(ee->e_rpool); CurEnv = oldcur; returndepth--; return ret; } /* ** DSNTYPENAME -- Returns the DSN name of the addrtype for this address ** ** Sendmail's addrtypes are largely in different universes, and ** 'fred' may be a valid address in different addrtype ** universes. ** ** EAI extends the rfc822 universe rather than introduce a new ** universe. Because of that, sendmail uses the rfc822 addrtype, ** but names it utf-8 when the EAI DSN extension requires that. ** ** Parameters: ** addrtype -- address type ** addr -- the address ** ** Returns: ** type for DSN ** */ static const char *dsntypename __P((const char *, const char *)); static const char * dsntypename(addrtype, addr) const char *addrtype; const char *addr; { if (sm_strcasecmp(addrtype, "rfc822") != 0) return addrtype; #if USE_EAI if (!addr_is_ascii(addr)) return "utf-8"; #endif return "rfc822"; } /* ** ERRBODY -- output the body of an error message. ** ** Typically this is a copy of the transcript plus a copy of the ** original offending message. ** ** Parameters: ** mci -- the mailer connection information. ** e -- the envelope we are working in. ** separator -- any possible MIME separator (unused). ** ** Returns: ** true iff body was written successfully ** ** Side Effects: ** Outputs the body of an error message. */ /* ARGSUSED2 */ static bool errbody(mci, e, separator) register MCI *mci; register ENVELOPE *e; char *separator; { bool printheader; bool sendbody; bool pm_notify; int save_errno; register SM_FILE_T *xfile; char *p; register ADDRESS *q = NULL; char actual[MAXLINE]; char buf[MAXLINE]; if (bitset(MCIF_INHEADER, mci->mci_flags)) { if (!putline("", mci)) goto writeerr; mci->mci_flags &= ~MCIF_INHEADER; } if (e->e_parent == NULL) { syserr("errbody: null parent"); if (!putline(" ----- Original message lost -----\n", mci)) goto writeerr; return true; } /* ** Output MIME header. */ if (e->e_msgboundary != NULL) { (void) sm_strlcpyn(buf, sizeof(buf), 2, "--", e->e_msgboundary); if (!putline("This is a MIME-encapsulated message", mci) || !putline("", mci) || !putline(buf, mci) || !putline("", mci)) goto writeerr; } /* ** Output introductory information. */ pm_notify = false; p = hvalue("subject", e->e_header); if (p != NULL && strncmp(p, "Postmaster ", 11) == 0) pm_notify = true; else { for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_BADADDR(q->q_state)) break; } } if (!pm_notify && q == NULL && !bitset(EF_FATALERRS|EF_SENDRECEIPT, e->e_parent->e_flags)) { if (!putline(" **********************************************", mci) || !putline(" ** THIS IS A WARNING MESSAGE ONLY **", mci) || !putline(" ** YOU DO NOT NEED TO RESEND YOUR MESSAGE **", mci) || !putline(" **********************************************", mci) || !putline("", mci)) goto writeerr; } (void) sm_snprintf(buf, sizeof(buf), "The original message was received at %s", arpadate(ctime(&e->e_parent->e_ctime))); if (!putline(buf, mci)) goto writeerr; expand("from \201_", buf, sizeof(buf), e->e_parent); if (!putline(buf, mci)) goto writeerr; /* include id in postmaster copies */ if (pm_notify && e->e_parent->e_id != NULL) { (void) sm_strlcpyn(buf, sizeof(buf), 2, "with id ", e->e_parent->e_id); if (!putline(buf, mci)) goto writeerr; } if (!putline("", mci)) goto writeerr; /* ** Output error message header (if specified and available). */ if (ErrMsgFile != NULL && !bitset(EF_SENDRECEIPT, e->e_parent->e_flags)) { if (*ErrMsgFile == '/') { long sff = SFF_ROOTOK|SFF_REGONLY; if (DontLockReadFiles) sff |= SFF_NOLOCK; if (!bitnset(DBS_ERRORHEADERINUNSAFEDIRPATH, DontBlameSendmail)) sff |= SFF_SAFEDIRPATH; xfile = safefopen(ErrMsgFile, O_RDONLY, 0444, sff); if (xfile != NULL) { while (sm_io_fgets(xfile, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { int lbs; bool putok; char *lbp; lbs = sizeof(buf); lbp = translate_dollars(buf, buf, &lbs); expand(lbp, lbp, lbs, e); putok = putline(lbp, mci); if (lbp != buf) sm_free(lbp); if (!putok) goto writeerr; } (void) sm_io_close(xfile, SM_TIME_DEFAULT); if (!putline("\n", mci)) goto writeerr; } } else { expand(ErrMsgFile, buf, sizeof(buf), e); if (!putline(buf, mci) || !putline("", mci)) goto writeerr; } } /* ** Output message introduction */ /* permanent fatal errors */ printheader = true; for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next) { if (!QS_IS_BADADDR(q->q_state) || !bitset(QPINGONFAILURE, q->q_flags)) continue; if (printheader) { if (!putline(" ----- The following addresses had permanent fatal errors -----", mci)) goto writeerr; printheader = false; } (void) sm_strlcpy(buf, shortenstring(q->q_paddr, MAXSHORTSTR), sizeof(buf)); if (!putline(buf, mci)) goto writeerr; if (q->q_rstatus != NULL) { (void) sm_snprintf(buf, sizeof(buf), " (reason: %s)", shortenstring(exitstat(q->q_rstatus), MAXSHORTSTR)); if (!putline(buf, mci)) goto writeerr; } if (q->q_alias != NULL) { (void) sm_snprintf(buf, sizeof(buf), " (expanded from: %s)", shortenstring(q->q_alias->q_paddr, MAXSHORTSTR)); if (!putline(buf, mci)) goto writeerr; } } if (!printheader && !putline("", mci)) goto writeerr; /* transient non-fatal errors */ printheader = true; for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_BADADDR(q->q_state) || !bitset(QPRIMARY, q->q_flags) || !bitset(QBYNDELAY, q->q_flags) || !bitset(QDELAYED, q->q_flags)) continue; if (printheader) { if (!putline(" ----- The following addresses had transient non-fatal errors -----", mci)) goto writeerr; printheader = false; } (void) sm_strlcpy(buf, shortenstring(q->q_paddr, MAXSHORTSTR), sizeof(buf)); if (!putline(buf, mci)) goto writeerr; if (q->q_alias != NULL) { (void) sm_snprintf(buf, sizeof(buf), " (expanded from: %s)", shortenstring(q->q_alias->q_paddr, MAXSHORTSTR)); if (!putline(buf, mci)) goto writeerr; } } if (!printheader && !putline("", mci)) goto writeerr; /* successful delivery notifications */ printheader = true; for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_BADADDR(q->q_state) || !bitset(QPRIMARY, q->q_flags) || bitset(QBYNDELAY, q->q_flags) || bitset(QDELAYED, q->q_flags)) continue; else if (bitset(QBYNRELAY, q->q_flags)) p = "Deliver-By notify: relayed"; else if (bitset(QBYTRACE, q->q_flags)) p = "Deliver-By trace: relayed"; else if (!bitset(QPINGONSUCCESS, q->q_flags)) continue; else if (bitset(QRELAYED, q->q_flags)) p = "relayed to non-DSN-aware mailer"; else if (bitset(QDELIVERED, q->q_flags)) { if (bitset(QEXPANDED, q->q_flags)) p = "successfully delivered to mailing list"; else p = "successfully delivered to mailbox"; } else if (bitset(QEXPANDED, q->q_flags)) p = "expanded by alias"; else continue; if (printheader) { if (!putline(" ----- The following addresses had successful delivery notifications -----", mci)) goto writeerr; printheader = false; } (void) sm_snprintf(buf, sizeof(buf), "%s (%s)", shortenstring(q->q_paddr, MAXSHORTSTR), p); if (!putline(buf, mci)) goto writeerr; if (q->q_alias != NULL) { (void) sm_snprintf(buf, sizeof(buf), " (expanded from: %s)", shortenstring(q->q_alias->q_paddr, MAXSHORTSTR)); if (!putline(buf, mci)) goto writeerr; } } if (!printheader && !putline("", mci)) goto writeerr; /* ** Output transcript of errors */ (void) sm_io_flush(smioout, SM_TIME_DEFAULT); if (e->e_parent->e_xfp == NULL) { if (!putline(" ----- Transcript of session is unavailable -----\n", mci)) goto writeerr; } else { int blen; printheader = true; (void) bfrewind(e->e_parent->e_xfp); if (e->e_xfp != NULL) (void) sm_io_flush(e->e_xfp, SM_TIME_DEFAULT); while ((blen = sm_io_fgets(e->e_parent->e_xfp, SM_TIME_DEFAULT, buf, sizeof(buf))) >= 0) { if (printheader && !putline(" ----- Transcript of session follows -----\n", mci)) goto writeerr; printheader = false; if (!putxline(buf, blen, mci, PXLF_MAPFROM)) goto writeerr; } } errno = 0; #if DSN /* ** Output machine-readable version. */ if (e->e_msgboundary != NULL) { (void) sm_strlcpyn(buf, sizeof(buf), 2, "--", e->e_msgboundary); if (!putline("", mci) || !putline(buf, mci) || !putline( # if USE_EAI e->e_parent->e_smtputf8 ? "Content-Type: message/global-delivery-status" : # endif "Content-Type: message/delivery-status", mci) || !putline("", mci)) goto writeerr; /* ** Output per-message information. */ /* original envelope id from MAIL FROM: line */ if (e->e_parent->e_envid != NULL) { (void) sm_snprintf(buf, sizeof(buf), "Original-Envelope-Id: %.800s", xuntextify(e->e_parent->e_envid)); if (!putline(buf, mci)) goto writeerr; } /* Reporting-MTA: is us (required) */ (void) sm_snprintf(buf, sizeof(buf), "Reporting-MTA: dns; %.800s", MyHostName); if (!putline(buf, mci)) goto writeerr; /* DSN-Gateway: not relevant since we are not translating */ /* Received-From-MTA: shows where we got this message from */ if (RealHostName != NULL) { /* XXX use $s for type? */ if (e->e_parent->e_from.q_mailer == NULL || (p = e->e_parent->e_from.q_mailer->m_mtatype) == NULL) p = "dns"; (void) sm_snprintf(buf, sizeof(buf), "Received-From-MTA: %s; %.800s", p, RealHostName); if (!putline(buf, mci)) goto writeerr; } /* Arrival-Date: -- when it arrived here */ (void) sm_strlcpyn(buf, sizeof(buf), 2, "Arrival-Date: ", arpadate(ctime(&e->e_parent->e_ctime))); if (!putline(buf, mci)) goto writeerr; /* Deliver-By-Date: -- when it should have been delivered */ if (IS_DLVR_BY(e->e_parent)) { time_t dbyd; dbyd = e->e_parent->e_ctime + e->e_parent->e_deliver_by; (void) sm_strlcpyn(buf, sizeof(buf), 2, "Deliver-By-Date: ", arpadate(ctime(&dbyd))); if (!putline(buf, mci)) goto writeerr; } /* ** Output per-address information. */ for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next) { char *action; if (QS_IS_BADADDR(q->q_state)) { /* RFC 1891, 6.2.6 (b) */ if (bitset(QHASNOTIFY, q->q_flags) && !bitset(QPINGONFAILURE, q->q_flags)) continue; action = "failed"; } else if (!bitset(QPRIMARY, q->q_flags)) continue; else if (bitset(QDELIVERED, q->q_flags)) { if (bitset(QEXPANDED, q->q_flags)) action = "delivered (to mailing list)"; else action = "delivered (to mailbox)"; } else if (bitset(QRELAYED, q->q_flags)) action = "relayed (to non-DSN-aware mailer)"; else if (bitset(QEXPANDED, q->q_flags)) action = "expanded (to multi-recipient alias)"; else if (bitset(QDELAYED, q->q_flags)) action = "delayed"; else if (bitset(QBYTRACE, q->q_flags)) action = "relayed (Deliver-By trace mode)"; else if (bitset(QBYNDELAY, q->q_flags)) action = "delayed (Deliver-By notify mode)"; else if (bitset(QBYNRELAY, q->q_flags)) action = "relayed (Deliver-By notify mode)"; else continue; if (!putline("", mci)) goto writeerr; /* Original-Recipient: -- passed from on high */ if (q->q_orcpt != NULL) { p = strchr(q->q_orcpt, ';'); /* ** p == NULL shouldn't happen due to ** check in srvrsmtp.c ** we could log an error in this case. */ if (p != NULL) { *p = '\0'; (void) sm_snprintf(buf, sizeof(buf), "Original-Recipient: %.100s;%.700s", q->q_orcpt, xuntextify(p + 1)); *p = ';'; if (!putline(buf, mci)) goto writeerr; } } /* Figure out actual recipient */ actual[0] = '\0'; if (q->q_user[0] != '\0') { if (q->q_mailer != NULL && q->q_mailer->m_addrtype != NULL) p = q->q_mailer->m_addrtype; else p = "rfc822"; if (SM_STRCASEEQ(p, "rfc822") && strchr(q->q_user, '@') == NULL) { (void) sm_snprintf(actual, sizeof(actual), "%s; %.700s@%.100s", dsntypename(p, q->q_user), q->q_user, MyHostName); } else { (void) sm_snprintf(actual, sizeof(actual), "%s; %.800s", dsntypename(p, q->q_user), q->q_user); } } /* Final-Recipient: -- the name from the RCPT command */ if (q->q_finalrcpt == NULL) { /* should never happen */ sm_syslog(LOG_ERR, e->e_id, "returntosender: q_finalrcpt is NULL"); /* try to fall back to the actual recipient */ if (actual[0] != '\0') q->q_finalrcpt = sm_rpool_strdup_x(e->e_rpool, actual); } # if USE_EAI if (sm_strncasecmp("rfc822;", q->q_finalrcpt, 7) == 0 && !addr_is_ascii(q->q_user)) { char *a; char utf8rcpt[1024]; a = strchr(q->q_finalrcpt, ';'); while(*a == ';' || *a == ' ') a++; sm_snprintf(utf8rcpt, sizeof(utf8rcpt), "utf-8; %.800s", a); q->q_finalrcpt = sm_rpool_strdup_x(e->e_rpool, utf8rcpt); } # endif /* USE_EAI */ if (q->q_finalrcpt != NULL) { (void) sm_snprintf(buf, sizeof(buf), "Final-Recipient: %s", q->q_finalrcpt); if (!putline(buf, mci)) goto writeerr; } /* X-Actual-Recipient: -- the real problem address */ if (actual[0] != '\0' && q->q_finalrcpt != NULL && !bitset(PRIV_NOACTUALRECIPIENT, PrivacyFlags) && strcmp(actual, q->q_finalrcpt) != 0) { (void) sm_snprintf(buf, sizeof(buf), "X-Actual-Recipient: %s", actual); if (!putline(buf, mci)) goto writeerr; } /* Action: -- what happened? */ (void) sm_strlcpyn(buf, sizeof(buf), 2, "Action: ", action); if (!putline(buf, mci)) goto writeerr; /* Status: -- what _really_ happened? */ if (q->q_status != NULL) p = q->q_status; else if (QS_IS_BADADDR(q->q_state)) p = "5.0.0"; else if (QS_IS_QUEUEUP(q->q_state)) p = "4.0.0"; else p = "2.0.0"; (void) sm_strlcpyn(buf, sizeof(buf), 2, "Status: ", p); if (!putline(buf, mci)) goto writeerr; /* Remote-MTA: -- who was I talking to? */ if (q->q_statmta != NULL) { if (q->q_mailer == NULL || (p = q->q_mailer->m_mtatype) == NULL) p = "dns"; (void) sm_snprintf(buf, sizeof(buf), "Remote-MTA: %s; %.800s", p, q->q_statmta); p = &buf[strlen(buf) - 1]; if (*p == '.') *p = '\0'; if (!putline(buf, mci)) goto writeerr; } /* Diagnostic-Code: -- actual result from other end */ if (q->q_rstatus != NULL) { if (q->q_mailer == NULL || (p = q->q_mailer->m_diagtype) == NULL) p = "smtp"; (void) sm_snprintf(buf, sizeof(buf), "Diagnostic-Code: %s; %.800s", p, q->q_rstatus); if (!putline(buf, mci)) goto writeerr; } /* Last-Attempt-Date: -- fine granularity */ if (q->q_statdate == (time_t) 0L) q->q_statdate = curtime(); (void) sm_strlcpyn(buf, sizeof(buf), 2, "Last-Attempt-Date: ", arpadate(ctime(&q->q_statdate))); if (!putline(buf, mci)) goto writeerr; /* Will-Retry-Until: -- for delayed messages only */ if (QS_IS_QUEUEUP(q->q_state)) { time_t xdate; xdate = e->e_parent->e_ctime + TimeOuts.to_q_return[e->e_parent->e_timeoutclass]; (void) sm_strlcpyn(buf, sizeof(buf), 2, "Will-Retry-Until: ", arpadate(ctime(&xdate))); if (!putline(buf, mci)) goto writeerr; } } } #endif /* DSN */ /* ** Output text of original message */ if (!putline("", mci)) goto writeerr; if (bitset(EF_HAS_DF, e->e_parent->e_flags)) { sendbody = !bitset(EF_NO_BODY_RETN, e->e_parent->e_flags) && !bitset(EF_NO_BODY_RETN, e->e_flags); if (e->e_msgboundary == NULL) { if (!putline( sendbody ? " ----- Original message follows -----\n" : " ----- Message header follows -----\n", mci)) { goto writeerr; } } else { (void) sm_strlcpyn(buf, sizeof(buf), 2, "--", e->e_msgboundary); if (!putline(buf, mci)) goto writeerr; #if USE_EAI if (e->e_parent->e_smtputf8) (void) sm_strlcpyn(buf, sizeof(buf), 2, "Content-Type: message/global", sendbody ? "" : "-headers"); else #endif /* USE_EAI */ /* "else" in #if code above */ { (void) sm_strlcpyn(buf, sizeof(buf), 2, "Content-Type: ", sendbody ? "message/rfc822" : "text/rfc822-headers"); } if (!putline(buf, mci)) goto writeerr; p = hvalue("Content-Transfer-Encoding", e->e_parent->e_header); if (p != NULL && sm_strcasecmp(p, "binary") != 0) p = NULL; if (p == NULL && bitset(EF_HAS8BIT, e->e_parent->e_flags)) p = "8bit"; if (p != NULL) { (void) sm_snprintf(buf, sizeof(buf), "Content-Transfer-Encoding: %s", p); if (!putline(buf, mci)) goto writeerr; } } if (!putline("", mci)) goto writeerr; save_errno = errno; if (!putheader(mci, e->e_parent->e_header, e->e_parent, M87F_OUTER)) goto writeerr; errno = save_errno; if (sendbody) { if (!putbody(mci, e->e_parent, e->e_msgboundary)) goto writeerr; } else if (e->e_msgboundary == NULL) { if (!putline("", mci) || !putline(" ----- Message body suppressed -----", mci)) { goto writeerr; } } } else if (e->e_msgboundary == NULL) { if (!putline(" ----- No message was collected -----\n", mci)) goto writeerr; } if (e->e_msgboundary != NULL) { (void) sm_strlcpyn(buf, sizeof(buf), 3, "--", e->e_msgboundary, "--"); if (!putline("", mci) || !putline(buf, mci)) goto writeerr; } if (!putline("", mci) || sm_io_flush(mci->mci_out, SM_TIME_DEFAULT) == SM_IO_EOF) goto writeerr; /* ** Cleanup and exit */ if (errno != 0) { writeerr: syserr("errbody: I/O error"); return false; } return true; } /* ** SMTPTODSN -- convert SMTP to DSN status code ** ** Parameters: ** smtpstat -- the smtp status code (e.g., 550). ** ** Returns: ** The DSN version of the status code. ** ** Storage Management: ** smtptodsn() returns a pointer to a character string literal, ** which will remain valid forever, and thus does not need to ** be copied. Current code relies on this property. */ char * smtptodsn(smtpstat) int smtpstat; { if (smtpstat < 0) return "4.4.2"; switch (smtpstat) { case 450: /* Req mail action not taken: mailbox unavailable */ return "4.2.0"; case 451: /* Req action aborted: local error in processing */ return "4.3.0"; case 452: /* Req action not taken: insufficient sys storage */ return "4.3.1"; case 500: /* Syntax error, command unrecognized */ return "5.5.2"; case 501: /* Syntax error in parameters or arguments */ return "5.5.4"; case 502: /* Command not implemented */ return "5.5.1"; case 503: /* Bad sequence of commands */ return "5.5.1"; case 504: /* Command parameter not implemented */ return "5.5.4"; case 550: /* Req mail action not taken: mailbox unavailable */ return "5.2.0"; case 551: /* User not local; please try <...> */ return "5.1.6"; case 552: /* Req mail action aborted: exceeded storage alloc */ return "5.2.2"; case 553: /* Req action not taken: mailbox name not allowed */ return "5.1.0"; case 554: /* Transaction failed */ return "5.0.0"; } if (REPLYTYPE(smtpstat) == 2) return "2.0.0"; if (REPLYTYPE(smtpstat) == 4) return "4.0.0"; return "5.0.0"; } /* ** XTEXTIFY -- take regular text and turn it into DSN-style xtext ** ** Parameters: ** t -- the text to convert. ** taboo -- additional characters that must be encoded. ** ** Returns: ** The xtext-ified version of the same string. */ char * xtextify(t, taboo) register char *t; char *taboo; { register char *p; int l; int nbogus; static char *bp = NULL; static int bplen = 0; if (taboo == NULL) taboo = ""; /* figure out how long this xtext will have to be */ nbogus = l = 0; for (p = t; *p != '\0'; p++) { register int c = (*p & 0xff); /* ASCII dependence here -- this is the way the spec words it */ if (c < '!' || c > '~' || c == '+' || c == '\\' || c == '(' || strchr(taboo, c) != NULL) nbogus++; l++; } if (nbogus < 0) { /* since nbogus is ssize_t and wrapped, 2 * size_t would wrap */ syserr("!xtextify string too long"); } if (nbogus == 0) return t; l += nbogus * 2 + 1; /* now allocate space if necessary for the new string */ if (l > bplen) { if (bp != NULL) sm_free(bp); /* XXX */ bp = sm_pmalloc_x(l); bplen = l; } /* ok, copy the text with byte expansion */ for (p = bp; *t != '\0'; ) { register int c = (*t++ & 0xff); /* ASCII dependence here -- this is the way the spec words it */ if (c < '!' || c > '~' || c == '+' || c == '\\' || c == '(' || strchr(taboo, c) != NULL) { *p++ = '+'; *p++ = "0123456789ABCDEF"[c >> 4]; *p++ = "0123456789ABCDEF"[c & 0xf]; } else *p++ = c; } *p = '\0'; return bp; } /* ** XUNTEXTIFY -- take xtext and turn it into plain text ** ** Parameters: ** t -- the xtextified text. ** ** Returns: ** The decoded text. No attempt is made to deal with ** null strings in the resulting text. */ char * xuntextify(t) register char *t; { register char *p; int l; static char *bp = NULL; static int bplen = 0; /* heuristic -- if no plus sign, just return the input */ if (strchr(t, '+') == NULL) return t; /* xtext is always longer than decoded text */ l = strlen(t); if (l > bplen) { if (bp != NULL) sm_free(bp); /* XXX */ bp = xalloc(l); bplen = l; } /* ok, copy the text with byte compression */ for (p = bp; *t != '\0'; t++) { register int c = *t & 0xff; if (c != '+') { *p++ = c; continue; } c = *++t & 0xff; if (!isascii(c) || !isxdigit(c)) { /* error -- first digit is not hex */ usrerr("bogus xtext: +%c", c); t--; continue; } if (isdigit(c)) c -= '0'; else if (isupper(c)) c -= 'A' - 10; else c -= 'a' - 10; *p = c << 4; c = *++t & 0xff; if (!isascii(c) || !isxdigit(c)) { /* error -- second digit is not hex */ usrerr("bogus xtext: +%x%c", *p >> 4, c); t--; continue; } if (isdigit(c)) c -= '0'; else if (isupper(c)) c -= 'A' - 10; else c -= 'a' - 10; *p++ |= c; } *p = '\0'; return bp; } /* ** XTEXTOK -- check if a string is legal xtext ** ** Xtext is used in Delivery Status Notifications. The spec was ** taken from RFC 1891, ``SMTP Service Extension for Delivery ** Status Notifications''. ** ** Parameters: ** s -- the string to check. ** ** Returns: ** true -- if 's' is legal xtext. ** false -- if it has any illegal characters in it. */ bool xtextok(s) char *s; { int c; while ((c = *s++) != '\0') { if (c == '+') { c = *s++; if (!isascii(c) || !isxdigit(c)) return false; c = *s++; if (!isascii(c) || !isxdigit(c)) return false; } else if (c < '!' || c > '~' || c == '=') return false; } return true; } /* ** ISATOM -- check if a string is an "atom" ** ** Parameters: ** s -- the string to check. ** ** Returns: ** true -- iff s is an atom */ bool isatom(s) const char *s; { int c; if (SM_IS_EMPTY(s)) return false; while ((c = *s++) != '\0') { if (strchr("()<>@,;:\\.[]\"", c) != NULL) return false; if (c < '!' || c > '~') return false; } return true; } /* ** PRUNEROUTE -- prune an RFC-822 source route ** ** Trims down a source route to the last internet-registered hop. ** This is encouraged by RFC 1123 section 5.3.3. ** ** Parameters: ** addr -- the address ** ** Returns: ** true -- address was modified ** false -- address could not be pruned ** ** Side Effects: ** modifies addr in-place */ static bool pruneroute(addr) char *addr; { #if NAMED_BIND char *start, *at, *comma; char c; int braclev; int rcode; int i; char hostbuf[BUFSIZ]; char *mxhosts[MAXMXHOSTS + 1]; /* check to see if this is really a route-addr */ if (*addr != '<' || addr[1] != '@' || addr[strlen(addr) - 1] != '>') return false; /* ** Can't simply find the first ':' is the address might be in the ** form: "<@[IPv6:::1]:user@host>" and the first ':' in inside ** the IPv6 address. */ start = addr; braclev = 0; while (*start != '\0') { if (*start == ':' && braclev <= 0) break; else if (*start == '[') braclev++; else if (*start == ']' && braclev > 0) braclev--; start++; } if (braclev > 0 || *start != ':') return false; at = strrchr(addr, '@'); if (at == NULL || at < start) return false; /* slice off the angle brackets */ i = strlen(at + 1); if (i >= sizeof(hostbuf)) return false; (void) sm_strlcpy(hostbuf, at + 1, sizeof(hostbuf)); hostbuf[i - 1] = '\0'; while (start != NULL) { if (getmxrr(hostbuf, mxhosts, NULL, TRYFALLBACK, &rcode, NULL, -1, NULL) > 0) { (void) sm_strlcpy(addr + 1, start + 1, strlen(addr) - 1); return true; } c = *start; *start = '\0'; comma = strrchr(addr, ','); if (comma != NULL && comma[1] == '@' && strlen(comma + 2) < sizeof(hostbuf)) (void) sm_strlcpy(hostbuf, comma + 2, sizeof(hostbuf)); else comma = NULL; *start = c; start = comma; } #endif /* NAMED_BIND */ return false; } sendmail-8.18.1/sendmail/timers.c0000644000372400037240000001044714556365350016240 0ustar xbuildxbuild/* * Copyright (c) 1999-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * Contributed by Exactis.com, Inc. * */ #include SM_RCSID("@(#)$Id: timers.c,v 8.27 2013-11-22 20:51:57 ca Exp $") #if _FFR_TIMERS # include # include # include "sendmail.h" # include /* Must be after sendmail.h for NCR MP-RAS */ static TIMER BaseTimer; /* current baseline */ static int NTimers; /* current pointer into stack */ static TIMER *TimerStack[MAXTIMERSTACK]; static void # ifdef __STDC__ warntimer(const char *msg, ...) # else /* __STDC__ */ warntimer(msg, va_alist) const char *msg; va_dcl # endif /* __STDC__ */ { char buf[MAXLINE]; SM_VA_LOCAL_DECL # if 0 if (!tTd(98, 30)) return; # endif SM_VA_START(ap, msg); (void) sm_vsnprintf(buf, sizeof(buf), msg, ap); SM_VA_END(ap); sm_syslog(LOG_NOTICE, CurEnv->e_id, "%s; e_timers=0x%lx", buf, (unsigned long) &CurEnv->e_timers); } static void zerotimer(ptimer) TIMER *ptimer; { memset(ptimer, '\0', sizeof(*ptimer)); } static void addtimer(ta, tb) TIMER *ta; TIMER *tb; { tb->ti_wall_sec += ta->ti_wall_sec; tb->ti_wall_usec += ta->ti_wall_usec; if (tb->ti_wall_usec > 1000000) { tb->ti_wall_sec++; tb->ti_wall_usec -= 1000000; } tb->ti_cpu_sec += ta->ti_cpu_sec; tb->ti_cpu_usec += ta->ti_cpu_usec; if (tb->ti_cpu_usec > 1000000) { tb->ti_cpu_sec++; tb->ti_cpu_usec -= 1000000; } } static void subtimer(ta, tb) TIMER *ta; TIMER *tb; { tb->ti_wall_sec -= ta->ti_wall_sec; tb->ti_wall_usec -= ta->ti_wall_usec; if (tb->ti_wall_usec < 0) { tb->ti_wall_sec--; tb->ti_wall_usec += 1000000; } tb->ti_cpu_sec -= ta->ti_cpu_sec; tb->ti_cpu_usec -= ta->ti_cpu_usec; if (tb->ti_cpu_usec < 0) { tb->ti_cpu_sec--; tb->ti_cpu_usec += 1000000; } } static int getcurtimer(ptimer) TIMER *ptimer; { struct rusage ru; struct timeval now; if (getrusage(RUSAGE_SELF, &ru) < 0 || gettimeofday(&now, NULL) < 0) return -1; ptimer->ti_wall_sec = now.tv_sec; ptimer->ti_wall_usec = now.tv_usec; ptimer->ti_cpu_sec = ru.ru_utime.tv_sec + ru.ru_stime.tv_sec; ptimer->ti_cpu_usec = ru.ru_utime.tv_usec + ru.ru_stime.tv_usec; if (ptimer->ti_cpu_usec > 1000000) { ptimer->ti_cpu_sec++; ptimer->ti_cpu_usec -= 1000000; } return 0; } static void getinctimer(ptimer) TIMER *ptimer; { TIMER cur; if (getcurtimer(&cur) < 0) { zerotimer(ptimer); return; } if (BaseTimer.ti_wall_sec == 0) { /* first call */ memset(ptimer, '\0', sizeof(*ptimer)); } else { *ptimer = cur; subtimer(&BaseTimer, ptimer); } BaseTimer = cur; } void flushtimers() { NTimers = 0; (void) getcurtimer(&BaseTimer); } void pushtimer(ptimer) TIMER *ptimer; { int i; int save_errno = errno; TIMER incr; /* find how much time has changed since last call */ getinctimer(&incr); /* add that into the old timers */ i = NTimers; if (i > MAXTIMERSTACK) i = MAXTIMERSTACK; while (--i >= 0) { addtimer(&incr, TimerStack[i]); if (TimerStack[i] == ptimer) { warntimer("Timer@0x%lx already on stack, index=%d, NTimers=%d", (unsigned long) ptimer, i, NTimers); errno = save_errno; return; } } errno = save_errno; /* handle stack overflow */ if (NTimers >= MAXTIMERSTACK) return; /* now add the timer to the stack */ TimerStack[NTimers++] = ptimer; } void poptimer(ptimer) TIMER *ptimer; { int i; int save_errno = errno; TIMER incr; /* find how much time has changed since last call */ getinctimer(&incr); /* add that into the old timers */ i = NTimers; if (i > MAXTIMERSTACK) i = MAXTIMERSTACK; while (--i >= 0) addtimer(&incr, TimerStack[i]); /* pop back to this timer */ for (i = 0; i < NTimers; i++) { if (TimerStack[i] == ptimer) break; } if (i != NTimers - 1) warntimer("poptimer: odd pop (timer=0x%lx, index=%d, NTimers=%d)", (unsigned long) ptimer, i, NTimers); NTimers = i; /* clean up and return */ errno = save_errno; } char * strtimer(ptimer) TIMER *ptimer; { static char buf[40]; (void) sm_snprintf(buf, sizeof(buf), "%ld.%06ldr/%ld.%06ldc", ptimer->ti_wall_sec, ptimer->ti_wall_usec, ptimer->ti_cpu_sec, ptimer->ti_cpu_usec); return buf; } #endif /* _FFR_TIMERS */ sendmail-8.18.1/sendmail/mailq.10000644000372400037240000000670514556365350015760 0ustar xbuildxbuild.\" Copyright (c) 1998-2000, 2002, 2007 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" Copyright (c) 1983, 1997 Eric P. Allman. All rights reserved. .\" Copyright (c) 1985, 1990, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: mailq.1,v 8.22 2013-11-22 20:51:55 ca Exp $ .\" .TH MAILQ 1 "$Date: 2013-11-22 20:51:55 $" .SH NAME mailq \- print the mail queue .SH SYNOPSIS .B mailq .RB [ \-Ac ] .RB [ \-q... ] .RB [ \-v ] .SH DESCRIPTION .B Mailq prints a summary of the mail messages queued for future delivery. .PP The first line printed for each message shows the internal identifier used on this host for the message with a possible status character, the size of the message in bytes, the date and time the message was accepted into the queue, and the envelope sender of the message. The second line shows the error message that caused this message to be retained in the queue; it will not be present if the message is being processed for the first time. The status characters are either .B * to indicate the job is being processed; .B X to indicate that the load is too high to process the job; and .B - to indicate that the job is too young to process. The following lines show message recipients, one per line. .PP .B Mailq is identical to ``sendmail -bp''. .PP The relevant options are as follows: .TP .B \-Ac Show the mail submission queue specified in .I /etc/mail/submit.cf instead of the MTA queue specified in .IR /etc/mail/sendmail.cf . .TP .B \-qL Show the "lost" items in the mail queue instead of the normal queue items. .TP .B \-qQ Show the quarantined items in the mail queue instead of the normal queue items. .TP \fB\-q\fR[\fI!\fR]I substr Limit processed jobs to those containing .I substr as a substring of the queue id or not when .I ! is specified. .TP \fB\-q\fR[\fI!\fR]Q substr Limit processed jobs to quarantined jobs containing .I substr as a substring of the quarantine reason or not when .I ! is specified. .TP \fB\-q\fR[\fI!\fR]R substr Limit processed jobs to those containing .I substr as a substring of one of the recipients or not when .I ! is specified. .TP \fB\-q\fR[\fI!\fR]S substr Limit processed jobs to those containing .I substr as a substring of the sender or not when .I ! is specified. .TP .B \-v Print verbose information. This adds the priority of the message and a single character indicator (``+'' or blank) indicating whether a warning message has been sent on the first line of the message. Additionally, extra lines may be intermixed with the recipients indicating the ``controlling user'' information; this shows who will own any programs that are executed on behalf of this message and the name of the alias this command expanded from, if any. Moreover, status messages for each recipient are printed if available. .PP Several sendmail.cf options influence the behavior of the .B mailq utility: The number of items printed per queue group is restricted by .B MaxQueueRunSize if that value is set. The status character .B * is not printed for some values of .B QueueSortOrder, e.g., filename, random, modification, and none, unless a .B -q option is used to limit the processed jobs. .PP The .B mailq utility exits 0 on success, and >0 if an error occurs. .SH SEE ALSO sendmail(8) .SH HISTORY The .B mailq command appeared in 4.0BSD. sendmail-8.18.1/sendmail/arpadate.c0000644000372400037240000001001414556365350016504 0ustar xbuildxbuild/* * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: arpadate.c,v 8.32 2013-11-22 20:51:55 ca Exp $") /* ** ARPADATE -- Create date in ARPANET format ** ** Parameters: ** ud -- unix style date string. if NULL, one is created. ** ** Returns: ** pointer to an ARPANET date field ** ** Side Effects: ** none ** ** WARNING: ** date is stored in a local buffer -- subsequent ** calls will overwrite. ** ** Bugs: ** Timezone is computed from local time, rather than ** from wherever (and whenever) the message was sent. ** To do better is very hard. ** ** Some sites are now inserting the timezone into the ** local date. This routine should figure out what ** the format is and work appropriately. */ #ifndef TZNAME_MAX # define TZNAME_MAX 50 /* max size of timezone */ #endif /* values for TZ_TYPE */ #define TZ_NONE 0 /* no character timezone support */ #define TZ_TM_NAME 1 /* use tm->tm_name */ #define TZ_TM_ZONE 2 /* use tm->tm_zone */ #define TZ_TZNAME 3 /* use tzname[] */ #define TZ_TIMEZONE 4 /* use timezone() */ char * arpadate(ud) register char *ud; { register char *p; register char *q; register int off; register int i; register struct tm *lt; time_t t; struct tm gmt; char *tz; static char b[43 + TZNAME_MAX]; /* ** Get current time. ** This will be used if a null argument is passed and ** to resolve the timezone. */ /* SM_REQUIRE(ud == NULL || strlen(ud) >= 23); */ t = curtime(); if (ud == NULL) ud = ctime(&t); /* ** Crack the UNIX date line in a singularly unoriginal way. */ q = b; p = &ud[0]; /* Mon */ *q++ = *p++; *q++ = *p++; *q++ = *p++; *q++ = ','; *q++ = ' '; p = &ud[8]; /* 16 */ if (*p == ' ') p++; else *q++ = *p++; *q++ = *p++; *q++ = ' '; p = &ud[4]; /* Sep */ *q++ = *p++; *q++ = *p++; *q++ = *p++; *q++ = ' '; p = &ud[20]; /* 1979 */ *q++ = *p++; *q++ = *p++; *q++ = *p++; *q++ = *p++; *q++ = ' '; p = &ud[11]; /* 01:03:52 */ for (i = 8; i > 0; i--) *q++ = *p++; /* ** should really get the timezone from the time in "ud" (which ** is only different if a non-null arg was passed which is different ** from the current time), but for all practical purposes, returning ** the current local zone will do (its all that is ever needed). */ gmt = *gmtime(&t); lt = localtime(&t); off = (lt->tm_hour - gmt.tm_hour) * 60 + lt->tm_min - gmt.tm_min; /* assume that offset isn't more than a day ... */ if (lt->tm_year < gmt.tm_year) off -= 24 * 60; else if (lt->tm_year > gmt.tm_year) off += 24 * 60; else if (lt->tm_yday < gmt.tm_yday) off -= 24 * 60; else if (lt->tm_yday > gmt.tm_yday) off += 24 * 60; *q++ = ' '; if (off == 0) { *q++ = 'G'; *q++ = 'M'; *q++ = 'T'; } else { tz = NULL; #if TZ_TYPE == TZ_TM_NAME tz = lt->tm_name; #endif #if TZ_TYPE == TZ_TM_ZONE tz = lt->tm_zone; #endif #if TZ_TYPE == TZ_TZNAME { extern char *tzname[]; if (lt->tm_isdst > 0) tz = tzname[1]; else if (lt->tm_isdst == 0) tz = tzname[0]; else tz = NULL; } #endif /* TZ_TYPE == TZ_TZNAME */ #if TZ_TYPE == TZ_TIMEZONE { extern char *timezone(); tz = timezone(off, lt->tm_isdst); } #endif /* TZ_TYPE == TZ_TIMEZONE */ if (off < 0) { off = -off; *q++ = '-'; } else *q++ = '+'; if (off >= 24*60) /* should be impossible */ off = 23*60+59; /* if not, insert silly value */ *q++ = (off / 600) + '0'; *q++ = (off / 60) % 10 + '0'; off %= 60; *q++ = (off / 10) + '0'; *q++ = (off % 10) + '0'; if (tz != NULL && *tz != '\0') { *q++ = ' '; *q++ = '('; while (*tz != '\0' && q < &b[sizeof(b) - 3]) *q++ = *tz++; *q++ = ')'; } } *q = '\0'; return b; } sendmail-8.18.1/sendmail/aliases.50000644000372400037240000000615614556365350016302 0ustar xbuildxbuild.\" Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" Copyright (c) 1983, 1997 Eric P. Allman. All rights reserved. .\" Copyright (c) 1985, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: aliases.5,v 8.20 2013-11-22 20:51:55 ca Exp $ .\" .TH ALIASES 5 "$Date: 2013-11-22 20:51:55 $" .SH NAME aliases \- aliases file for sendmail .SH SYNOPSIS .B aliases .SH DESCRIPTION This file describes user ID aliases used by sendmail. The file resides in /etc/mail and is formatted as a series of lines of the form .IP name: addr_1, addr_2, addr_3, . . . .PP The .I name is the name to alias, and the .I addr_n are the aliases for that name. .I addr_n can be another alias, a local username, a local filename, a command, an include file, or an external address. .TP .B Local Username username .IP The username must be available via getpwnam(3). .TP .B Local Filename /path/name .IP Messages are appended to the file specified by the full pathname (starting with a slash (/)) .TP .B Command |command .IP A command starts with a pipe symbol (|), it receives messages via standard input. .TP .B Include File :include: /path/name .IP The aliases in pathname are added to the aliases for .I name. .TP .B E-Mail Address user@domain .IP An e-mail address in RFC 822 format. .PP Lines beginning with white space are continuation lines. Another way to continue lines is by placing a backslash directly before a newline. Lines beginning with # are comments. .PP Aliasing occurs only on local names. Loops can not occur, since no message will be sent to any person more than once. .PP If an alias is found for .IR name , sendmail then checks for an alias for .IR owner-name . If it is found and the result of the lookup expands to a single address, the envelope sender address of the message is rewritten to that address. If it is found and the result expands to more than one address, the envelope sender address is changed to .IR owner-name . .PP After aliasing has been done, local and valid recipients who have a ``.forward'' file in their home directory have messages forwarded to the list of users defined in that file. .PP This is only the raw data file; the actual aliasing information is placed into a binary format in the file /etc/mail/aliases.db using the program newaliases(1). A newaliases command should be executed each time the aliases file is changed for the change to take effect. .SH SEE ALSO newaliases(1), dbm(3), dbopen(3), db_open(3), sendmail(8) .PP .I SENDMAIL Installation and Operation Guide. .PP .I SENDMAIL An Internetwork Mail Router. .SH BUGS If you have compiled sendmail with DBM support instead of NEWDB, you may have encountered problems in dbm(3) restricting a single alias to about 1000 bytes of information. You can get longer aliases by ``chaining''; that is, make the last name in the alias be a dummy name which is a continuation alias. .SH HISTORY The .B aliases file format appeared in 4.0BSD. sendmail-8.18.1/sendmail/makesendmail0000755000372400037240000000051314556365350017142 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: makesendmail,v 8.5 2013-11-22 20:51:55 ca Exp $ exec ./Build "$@" sendmail-8.18.1/sendmail/collect.c0000644000372400037240000007024014556365350016357 0ustar xbuildxbuild/* * Copyright (c) 1998-2006, 2008, 2023, 2024 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: collect.c,v 8.287 2013-11-22 20:51:55 ca Exp $") #include static void eatfrom __P((char *volatile, ENVELOPE *)); static void collect_doheader __P((ENVELOPE *)); static SM_FILE_T *collect_dfopen __P((ENVELOPE *)); static SM_FILE_T *collect_eoh __P((ENVELOPE *, int, int)); /* ** COLLECT_EOH -- end-of-header processing in collect() ** ** Called by collect() when it encounters the blank line ** separating the header from the message body, or when it ** encounters EOF in a message that contains only a header. ** ** Parameters: ** e -- envelope ** numhdrs -- number of headers ** hdrslen -- length of headers ** ** Returns: ** NULL, or handle to open data file ** ** Side Effects: ** end-of-header check ruleset is invoked. ** envelope state is updated. ** headers may be added and deleted. ** selects the queue. ** opens the data file. */ static SM_FILE_T * collect_eoh(e, numhdrs, hdrslen) ENVELOPE *e; int numhdrs; int hdrslen; { char hnum[16]; char hsize[16]; /* call the end-of-header check ruleset */ (void) sm_snprintf(hnum, sizeof(hnum), "%d", numhdrs); (void) sm_snprintf(hsize, sizeof(hsize), "%d", hdrslen); if (tTd(30, 10)) sm_dprintf("collect: rscheck(\"check_eoh\", \"%s $| %s\")\n", hnum, hsize); (void) rscheck("check_eoh", hnum, hsize, e, RSF_UNSTRUCTURED|RSF_COUNT, 3, NULL, e->e_id, NULL, NULL); /* ** Process the header, ** select the queue, open the data file. */ collect_doheader(e); return collect_dfopen(e); } /* ** COLLECT_DOHEADER -- process header in collect() ** ** Called by collect() after it has finished parsing the header, ** but before it selects the queue and creates the data file. ** The results of processing the header will affect queue selection. ** ** Parameters: ** e -- envelope ** ** Returns: ** none. ** ** Side Effects: ** envelope state is updated. ** headers may be added and deleted. */ static void collect_doheader(e) ENVELOPE *e; { /* ** Find out some information from the headers. ** Examples are who is the from person & the date. */ eatheader(e, true, false); if (GrabTo && e->e_sendqueue == NULL) usrerr("No recipient addresses found in header"); /* ** If we have a Return-Receipt-To:, turn it into a DSN. */ if (RrtImpliesDsn && hvalue("return-receipt-to", e->e_header) != NULL) { ADDRESS *q; for (q = e->e_sendqueue; q != NULL; q = q->q_next) if (!bitset(QHASNOTIFY, q->q_flags)) q->q_flags |= QHASNOTIFY|QPINGONSUCCESS; } /* ** Add an appropriate recipient line if we have none. */ if (hvalue("to", e->e_header) != NULL || hvalue("cc", e->e_header) != NULL || hvalue("apparently-to", e->e_header) != NULL) { /* have a valid recipient header -- delete Bcc: headers */ e->e_flags |= EF_DELETE_BCC; } else if (hvalue("bcc", e->e_header) == NULL) { /* no valid recipient headers */ register ADDRESS *q; char *hdr = NULL; /* create a recipient field */ switch (NoRecipientAction) { case NRA_ADD_APPARENTLY_TO: hdr = "Apparently-To"; break; case NRA_ADD_TO: hdr = "To"; break; case NRA_ADD_BCC: addheader("Bcc", " ", 0, e, true); break; case NRA_ADD_TO_UNDISCLOSED: addheader("To", "undisclosed-recipients:;", 0, e, true); break; } if (hdr != NULL) { for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if (q->q_alias != NULL) continue; if (tTd(30, 3)) sm_dprintf("Adding %s: %s\n", hdr, q->q_paddr); addheader(hdr, q->q_paddr, 0, e, true); } } } } /* ** COLLECT_DFOPEN -- open the message data file ** ** Called by collect() after it has finished processing the header. ** Queue selection occurs at this point, possibly based on the ** envelope's recipient list and on header information. ** ** Parameters: ** e -- envelope ** ** Returns: ** NULL, or a pointer to an open data file, ** into which the message body will be written by collect(). ** ** Side Effects: ** Calls syserr, sets EF_FATALERRS and returns NULL ** if there is insufficient disk space. ** Aborts process if data file could not be opened. ** Otherwise, the queue is selected, ** e->e_{dfino,dfdev,msgsize,flags} are updated, ** and a pointer to an open data file is returned. */ static SM_FILE_T * collect_dfopen(e) ENVELOPE *e; { MODE_T oldumask = 0; int dfd; struct stat stbuf; SM_FILE_T *df; char *dfname; if (!setnewqueue(e)) return NULL; dfname = queuename(e, DATAFL_LETTER); if (bitset(S_IWGRP, QueueFileMode)) oldumask = umask(002); df = bfopen(dfname, QueueFileMode, DataFileBufferSize, SFF_OPENASROOT); if (bitset(S_IWGRP, QueueFileMode)) (void) umask(oldumask); if (df == NULL) { syserr("@Cannot create %s", dfname); e->e_flags |= EF_NO_BODY_RETN; flush_errors(true); finis(false, true, ExitStat); /* NOTREACHED */ } dfd = sm_io_getinfo(df, SM_IO_WHAT_FD, NULL); if (dfd < 0 || fstat(dfd, &stbuf) < 0) e->e_dfino = -1; else { e->e_dfdev = stbuf.st_dev; e->e_dfino = stbuf.st_ino; } e->e_flags |= EF_HAS_DF; return df; } /* ** INCBUFLEN -- increase buflen for the header buffer in collect() ** ** Parameters: ** buflen -- current size of buffer ** ** Returns: ** new buflen */ static int incbuflen __P((int)); static int incbuflen(buflen) int buflen; { int newlen; /* this also handles the case of MaxMessageSize == 0 */ if (MaxMessageSize <= MEMCHUNKSIZE) { if (buflen < MEMCHUNKSIZE) return buflen * 2; else return buflen + MEMCHUNKSIZE; } /* MaxMessageSize > MEMCHUNKSIZE */ newlen = buflen * 2; if (newlen > 0 && newlen < MaxMessageSize) return newlen; else return MaxMessageSize; } #if _FFR_TESTS /* just for testing/debug output */ static const char * makeprint(c) char c; { static char prt[6]; prt[1] = '\0'; prt[2] = '\0'; if (isprint((unsigned char)c)) prt[0] = c; else if ('\n' == c) { prt[0] = 'L'; prt[1] = 'F'; } else if ('\r' == c) { prt[0] = 'C'; prt[1] = 'R'; } else snprintf(prt, sizeof(prt), "%o", c); return prt; } #else /* _FFR_TESTS */ # define makeprint(c) "X" #endif /* _FFR_TESTS */ /* ** COLLECT -- read & parse message header & make temp file. ** ** Creates a temporary file name and copies the standard ** input to that file. Leading UNIX-style "From" lines are ** stripped off (after important information is extracted). ** ** Parameters: ** fp -- file to read. ** smtpmode -- if >= SMTPMODE_LAX we are running SMTP: ** give an RFC821 style message to say we are ** ready to collect input, and never ignore ** a single dot to mean end of message. ** hdrp -- the location to stash the header. ** e -- the current envelope. ** rsetsize -- reset e_msgsize? ** ** Returns: ** none. ** ** Side Effects: ** If successful, ** - Data file is created and filled, and e->e_dfp is set. ** - The from person may be set. ** If the "enough disk space" check fails, ** - syserr is called. ** - e->e_dfp is NULL. ** - e->e_flags & EF_FATALERRS is set. ** - collect() returns. ** If data file cannot be created, the process is terminated. */ /* values for input state machine */ #define IS_NORM 0 /* middle of line */ #define IS_BOL 1 /* beginning of line */ #define IS_DOT 2 /* read "." at beginning of line */ #define IS_DOTCR 3 /* read ".\r" at beginning of line */ #define IS_CR 4 /* read "\r" */ /* hack to enhance readability of debug output */ static const char *istates[] = { "NORM", "BOL", "DOT", "DOTCR", "CR" }; #define ISTATE istates[istate] /* values for message state machine */ #define MS_UFROM 0 /* reading Unix from line */ #define MS_HEADER 1 /* reading message header */ #define MS_BODY 2 /* reading message body */ #define MS_DISCARD 3 /* discarding rest of message */ #define BARE_LF_MSG "Bare linefeed (LF) not allowed" #define BARE_CR_MSG "Bare carriage return (CR) not allowed" void collect(fp, smtpmode, hdrp, e, rsetsize) SM_FILE_T *fp; int smtpmode; HDR **hdrp; register ENVELOPE *e; bool rsetsize; { register SM_FILE_T *df; bool ignrdot; int dbto; register char *bp; int c; bool inputerr; bool headeronly; char *buf; int buflen; int istate; int mstate; int hdrslen; int numhdrs; int afd; int old_rd_tmo; unsigned char *pbp; unsigned char peekbuf[8]; char bufbuf[MAXLINE]; #if _FFR_REJECT_NUL_BYTE bool hasNUL; /* has at least one NUL input byte */ #endif int bare_lf, bare_cr; #define SMTPMODE (smtpmode >= SMTPMODE_LAX) #define SMTPMODE_STRICT ((smtpmode & SMTPMODE_CRLF) != 0) #define BARE_LF_421 ((smtpmode & SMTPMODE_LF_421) != 0) #define BARE_CR_421 ((smtpmode & SMTPMODE_CR_421) != 0) #define BARE_LF_SP ((smtpmode & SMTPMODE_LF_SP) != 0) #define BARE_CR_SP ((smtpmode & SMTPMODE_CR_SP) != 0) /* for bare_{lf,cr} */ #define BARE_IN_HDR 0x01 #define BARE_IN_BDY 0x02 #define BARE_WHERE ((MS_BODY == mstate) ? BARE_IN_BDY : BARE_IN_HDR) df = NULL; ignrdot = SMTPMODE ? false : IgnrDot; bare_lf = bare_cr = 0; /* timeout for I/O functions is in milliseconds */ dbto = SMTPMODE ? ((int) TimeOuts.to_datablock * 1000) : SM_TIME_FOREVER; sm_io_setinfo(fp, SM_IO_WHAT_TIMEOUT, &dbto); old_rd_tmo = set_tls_rd_tmo(TimeOuts.to_datablock); c = SM_IO_EOF; inputerr = false; headeronly = hdrp != NULL; hdrslen = 0; numhdrs = 0; HasEightBits = false; #if _FFR_REJECT_NUL_BYTE hasNUL = false; #endif buf = bp = bufbuf; buflen = sizeof(bufbuf); pbp = peekbuf; istate = IS_BOL; mstate = SaveFrom ? MS_HEADER : MS_UFROM; /* ** Tell ARPANET to go ahead. */ if (SMTPMODE) message("354 End data with ."); /* simulate an I/O timeout when used as sink */ if (tTd(83, 101)) sleep(319); if (tTd(30, 2)) sm_dprintf("collect, smtpmode=%#x\n", smtpmode); /* ** Read the message. ** ** This is done using two interleaved state machines. ** The input state machine is looking for things like ** hidden dots; the message state machine is handling ** the larger picture (e.g., header versus body). */ if (rsetsize) e->e_msgsize = 0; for (;;) { if (tTd(30, 35)) sm_dprintf("top, istate=%s, mstate=%d\n", ISTATE, mstate); for (;;) { if (pbp > peekbuf) c = *--pbp; else { while (!sm_io_eof(fp) && !sm_io_error(fp)) { errno = 0; c = sm_io_getc(fp, SM_TIME_DEFAULT); if (c == SM_IO_EOF && errno == EINTR) { /* Interrupted, retry */ sm_io_clearerr(fp); continue; } /* timeout? */ if (c == SM_IO_EOF && errno == EAGAIN && SMTPMODE) { /* ** Override e_message in ** usrerr() as this is the ** reason for failure that ** should be logged for ** undelivered recipients. */ e->e_message = NULL; errno = 0; inputerr = true; goto readabort; } break; } if (TrafficLogFile != NULL && !headeronly) { if (istate == IS_BOL) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d <<< ", (int) CurrentPid); if (c == SM_IO_EOF) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "[EOF]\n"); else (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, c); } #if _FFR_REJECT_NUL_BYTE if (c == '\0') hasNUL = true; #endif if (c == SM_IO_EOF) goto readdone; if (SevenBitInput || bitset(EF_7BITBODY, e->e_flags)) c &= 0x7f; else HasEightBits |= bitset(0x80, c); } if (tTd(30, 94)) sm_dprintf("istate=%s, c=%s (0x%x)\n", ISTATE, makeprint((char) c), c); if ('\n' == c && SMTPMODE && !(IS_CR == istate || IS_DOTCR == istate)) { bare_lf |= BARE_WHERE; if (BARE_LF_421) { inputerr = true; goto readabort; } if (BARE_LF_SP) { if (TTD(30, 64)) sm_dprintf("LF: c=%s %#x\n", makeprint((char) c), c); c = ' '; } } switch (istate) { case IS_BOL: if (c == '.') { istate = IS_DOT; continue; } break; case IS_DOT: if (c == '\n' && !ignrdot && !SMTPMODE_STRICT) goto readdone; else if (c == '\r') { istate = IS_DOTCR; continue; } else if (ignrdot || (c != '.' && OpMode != MD_SMTP && OpMode != MD_DAEMON && OpMode != MD_ARPAFTP)) { SM_ASSERT(pbp < peekbuf + sizeof(peekbuf)); *pbp++ = c; c = '.'; } break; case IS_DOTCR: if (c == '\n' && !ignrdot) goto readdone; else { /* push back the ".\rx" */ SM_ASSERT(pbp < peekbuf + sizeof(peekbuf)); *pbp++ = c; if (OpMode != MD_SMTP && OpMode != MD_DAEMON && OpMode != MD_ARPAFTP) { SM_ASSERT(pbp < peekbuf + sizeof(peekbuf)); *pbp++ = '\r'; c = '.'; } else c = '\r'; } break; case IS_CR: if (c == '\n') { if (TTD(30, 64)) sm_dprintf("state=CR, c=%s %#x -> BOL\n", makeprint((char) c), c); istate = IS_BOL; } else { if (TTD(30, 64)) sm_dprintf("state=CR, c=%s %#x -> NORM\n", makeprint((char) c), c); if (SMTPMODE) { bare_cr |= BARE_WHERE; if (BARE_CR_421) { inputerr = true; goto readabort; } } (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, c); if (BARE_CR_SP) c = ' '; else c = '\r'; istate = IS_NORM; } goto bufferchar; } if (c == '\r') { istate = IS_CR; continue; } else if (c == '\n' && !SMTPMODE_STRICT) istate = IS_BOL; else istate = IS_NORM; bufferchar: if (!headeronly) { /* no overflow? */ if (e->e_msgsize >= 0) { e->e_msgsize++; if (MaxMessageSize > 0 && !bitset(EF_TOOBIG, e->e_flags) && e->e_msgsize > MaxMessageSize) e->e_flags |= EF_TOOBIG; } } switch (mstate) { case MS_BODY: /* just put the character out */ if (!bitset(EF_TOOBIG, e->e_flags)) (void) sm_io_putc(df, SM_TIME_DEFAULT, c); if (TTD(30, 64)) sm_dprintf("state=%s, put=%s %#x\n", ISTATE, makeprint((char) c), c); /* FALLTHROUGH */ case MS_DISCARD: continue; } SM_ASSERT(mstate == MS_UFROM || mstate == MS_HEADER); /* header -- buffer up */ if (bp >= &buf[buflen - 2]) { char *obuf; /* out of space for header */ obuf = buf; buflen = incbuflen(buflen); if (tTd(30, 32)) sm_dprintf("buflen=%d, hdrslen=%d\n", buflen, hdrslen); if (buflen <= 0) { sm_syslog(LOG_NOTICE, e->e_id, "header overflow from %s during message collect", CURHOSTNAME); errno = 0; e->e_flags |= EF_CLRQUEUE; e->e_status = "5.6.0"; usrerrenh(e->e_status, "552 Headers too large"); goto discard; } buf = xalloc(buflen); memmove(buf, obuf, bp - obuf); bp = &buf[bp - obuf]; if (obuf != bufbuf) sm_free(obuf); /* XXX */ } if (c != '\0') { *bp++ = c; ++hdrslen; if (!headeronly && MaxHeadersLength > 0 && hdrslen > MaxHeadersLength) { sm_syslog(LOG_NOTICE, e->e_id, "headers too large (%d max) from %s during message collect", MaxHeadersLength, CURHOSTNAME); errno = 0; e->e_flags |= EF_CLRQUEUE; e->e_status = "5.6.0"; usrerrenh(e->e_status, "552 Headers too large (%d max)", MaxHeadersLength); discard: mstate = MS_DISCARD; } } if (istate == IS_BOL) break; } *bp = '\0'; nextstate: if (tTd(30, 35)) sm_dprintf("nextstate, istate=%s, mstate=%d, line=\"%s\"\n", ISTATE, mstate, buf); switch (mstate) { case MS_UFROM: mstate = MS_HEADER; #ifndef NOTUNIX if (strncmp(buf, "From ", 5) == 0) { bp = buf; eatfrom(buf, e); continue; } #endif /* ! NOTUNIX */ /* FALLTHROUGH */ case MS_HEADER: if (!isheader(buf)) { mstate = MS_BODY; goto nextstate; } /* check for possible continuation line */ do { sm_io_clearerr(fp); errno = 0; c = sm_io_getc(fp, SM_TIME_DEFAULT); /* timeout? */ if (c == SM_IO_EOF && errno == EAGAIN && SMTPMODE) { /* ** Override e_message in ** usrerr() as this is the ** reason for failure that ** should be logged for ** undelivered recipients. */ e->e_message = NULL; errno = 0; inputerr = true; goto readabort; } } while (c == SM_IO_EOF && errno == EINTR); if (c != SM_IO_EOF) (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, c); if (c == ' ' || c == '\t') { /* yep -- defer this */ continue; } SM_ASSERT(bp > buf); /* guaranteed by isheader(buf) */ SM_ASSERT(*(bp - 1) != '\n' || bp > buf + 1); /* trim off trailing CRLF or LF */ if (*--bp != '\n' || *--bp != '\r') bp++; *bp = '\0'; if (bitset(H_EOH, chompheader(buf, CHHDR_CHECK | CHHDR_USER, hdrp, e))) { mstate = MS_BODY; goto nextstate; } numhdrs++; break; case MS_BODY: if (tTd(30, 1)) sm_dprintf("EOH\n"); if (headeronly) goto readdone; df = collect_eoh(e, numhdrs, hdrslen); if (df == NULL) e->e_flags |= EF_TOOBIG; bp = buf; /* toss blank line */ if ((bp[0] == '\r' && bp[1] == '\n') || (bp[0] == '\n')) { break; } /* if not a blank separator, write it out */ if (!bitset(EF_TOOBIG, e->e_flags)) { while (*bp != '\0') (void) sm_io_putc(df, SM_TIME_DEFAULT, *bp++); } break; } bp = buf; } readdone: if ((sm_io_eof(fp) && SMTPMODE) || sm_io_error(fp)) { const char *errmsg; if (sm_io_eof(fp)) errmsg = "unexpected close"; else errmsg = sm_errstring(errno); if (tTd(30, 1)) sm_dprintf("collect: premature EOM: %s\n", errmsg); if (LogLevel > 1) sm_syslog(LOG_WARNING, e->e_id, "collect: premature EOM: %s", errmsg); inputerr = true; } if (headeronly) goto end; if (mstate != MS_BODY) { /* no body or discard, so we never opened the data file */ SM_ASSERT(df == NULL); df = collect_eoh(e, numhdrs, hdrslen); } if (df == NULL) { /* skip next few clauses */ /* EMPTY */ } else if (sm_io_flush(df, SM_TIME_DEFAULT) != 0 || sm_io_error(df)) { dferror(df, "sm_io_flush||sm_io_error", e); flush_errors(true); finis(true, true, ExitStat); /* NOTREACHED */ } else if (SuperSafe == SAFE_NO || SuperSafe == SAFE_INTERACTIVE || (SuperSafe == SAFE_REALLY_POSTMILTER && SMTPMODE)) { /* skip next few clauses */ /* EMPTY */ /* Note: updfs() is not called in this case! */ } else if (sm_io_setinfo(df, SM_BF_COMMIT, NULL) < 0 && errno != EINVAL) { int save_errno = errno; if (save_errno == EEXIST) { char *dfile; struct stat st; int dfd; dfile = queuename(e, DATAFL_LETTER); if (stat(dfile, &st) < 0) st.st_size = -1; errno = EEXIST; syserr("@collect: bfcommit(%s): already on disk, size=%ld", dfile, (long) st.st_size); dfd = sm_io_getinfo(df, SM_IO_WHAT_FD, NULL); if (dfd >= 0) dumpfd(dfd, true, true); } errno = save_errno; dferror(df, "bfcommit", e); flush_errors(true); finis(save_errno != EEXIST, true, ExitStat); } else if ((afd = sm_io_getinfo(df, SM_IO_WHAT_FD, NULL)) < 0) { dferror(df, "sm_io_getinfo", e); flush_errors(true); finis(true, true, ExitStat); /* NOTREACHED */ } else if (fsync(afd) < 0) { dferror(df, "fsync", e); flush_errors(true); finis(true, true, ExitStat); /* NOTREACHED */ } else if (sm_io_close(df, SM_TIME_DEFAULT) < 0) { dferror(df, "sm_io_close", e); flush_errors(true); finis(true, true, ExitStat); /* NOTREACHED */ } else { /* everything is happily flushed to disk */ df = NULL; /* remove from available space in filesystem */ updfs(e, 0, 1, "collect"); } /* An EOF when running SMTP is an error */ readabort: if (inputerr && (OpMode == MD_SMTP || OpMode == MD_DAEMON)) { char *problem; ADDRESS *q; if (sm_io_eof(fp)) problem = "unexpected close"; else if (sm_io_error(fp)) problem = "I/O error"; else if (0 != bare_lf) problem = BARE_LF_MSG; else if (0 != bare_cr) problem = BARE_CR_MSG; else problem = "read timeout"; #define LOG_CLT ((NULL != RealHostName) ? RealHostName: "localhost") #define CONN_ERR_TXT "collect: relay=%s, from=%s, info=%s%s%s%s" #define CONN_ERR_CODE "421 4.4.1 " #define CONN_LOG_FROM shortenstring(e->e_from.q_paddr, MAXSHORTSTR) #define CONN_ERR_BARE (0 != bare_lf) ? BARE_LF_MSG : ((0 != bare_cr) ? BARE_CR_MSG : "") #define CONN_ERR_WHERE(bare_xy) (BARE_IN_HDR==(bare_xy) ? "header" : \ (BARE_IN_BDY==(bare_xy) ? "body" : "header+body")) #define HAS_BARE_XY (0 != (bare_lf | bare_cr)) #define CONN_ERR_ARGS LOG_CLT, CONN_LOG_FROM, problem, \ HAS_BARE_XY ? ", where=" : "", \ HAS_BARE_XY ? CONN_ERR_WHERE(bare_lf|bare_cr) : "", \ HAS_BARE_XY ? ", status=tempfail" : "" if (LogLevel > 0 && (sm_io_eof(fp) || (0 != (bare_lf | bare_cr)))) sm_syslog(LOG_NOTICE, e->e_id, CONN_ERR_TXT, CONN_ERR_ARGS); if (0 != (bare_lf | bare_cr)) usrerr("421 4.5.0 %s", CONN_ERR_BARE); else if (sm_io_eof(fp)) usrerr(CONN_ERR_CODE CONN_ERR_TXT, CONN_ERR_ARGS); else syserr(CONN_ERR_CODE CONN_ERR_TXT, CONN_ERR_ARGS); flush_errors(true); /* don't return an error indication */ e->e_to = NULL; e->e_flags &= ~EF_FATALERRS; e->e_flags |= EF_CLRQUEUE; /* Don't send any message notification to sender */ for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_DEAD(q->q_state)) continue; q->q_state = QS_FATALERR; } SM_CLOSE_FP(df); finis(true, true, ExitStat); /* NOTREACHED */ } /* Log collection information. */ if (tTd(92, 2)) sm_dprintf("collect: e_id=%s, EF_LOGSENDER=%d, LogLevel=%d\n", e->e_id, bitset(EF_LOGSENDER, e->e_flags), LogLevel); if (bitset(EF_LOGSENDER, e->e_flags) && LogLevel > 4) { logsender(e, e->e_msgid); e->e_flags &= ~EF_LOGSENDER; } #define LOG_BARE_XY(bare_xy, bare_xy_sp, bare_xy_msg) \ do \ { \ if ((0 != bare_xy) && LogLevel > 8) \ sm_syslog(LOG_NOTICE, e->e_id, \ "collect: relay=%s, from=%s, info=%s, where=%s%s" \ , LOG_CLT, CONN_LOG_FROM, bare_xy_msg \ , CONN_ERR_WHERE(bare_xy) \ , bare_xy_sp ? ", status=replaced" : "" \ ); \ } while (0) LOG_BARE_XY(bare_lf, BARE_LF_SP, BARE_LF_MSG); LOG_BARE_XY(bare_cr, BARE_CR_SP, BARE_CR_MSG); /* check for message too large */ if (bitset(EF_TOOBIG, e->e_flags)) { e->e_flags |= EF_NO_BODY_RETN|EF_CLRQUEUE; if (!bitset(EF_FATALERRS, e->e_flags)) { e->e_status = "5.2.3"; usrerrenh(e->e_status, "552 Message exceeds maximum fixed size (%ld)", MaxMessageSize); if (LogLevel > 6) sm_syslog(LOG_NOTICE, e->e_id, "message size (%ld) exceeds maximum (%ld)", PRT_NONNEGL(e->e_msgsize), MaxMessageSize); } } /* check for illegal 8-bit data */ if (HasEightBits) { e->e_flags |= EF_HAS8BIT; if (!bitset(MM_PASS8BIT|MM_MIME8BIT, MimeMode) && !bitset(EF_IS_MIME, e->e_flags)) { e->e_status = "5.6.1"; usrerrenh(e->e_status, "554 Eight bit data not allowed"); } } else { /* if it claimed to be 8 bits, well, it lied.... */ if (e->e_bodytype != NULL && SM_STRCASEEQ(e->e_bodytype, "8bitmime")) e->e_bodytype = "7BIT"; } #if _FFR_REJECT_NUL_BYTE if (hasNUL && RejectNUL) { e->e_status = "5.6.1"; usrerrenh(e->e_status, "554 NUL byte not allowed"); } #endif /* _FFR_REJECT_NUL_BYTE */ if (SuperSafe == SAFE_REALLY && !bitset(EF_FATALERRS, e->e_flags)) { char *dfname = queuename(e, DATAFL_LETTER); if ((e->e_dfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, dfname, SM_IO_RDONLY_B, NULL)) == NULL) { /* we haven't acked receipt yet, so just chuck this */ syserr("@Cannot reopen %s", dfname); finis(true, true, ExitStat); /* NOTREACHED */ } } else e->e_dfp = df; /* collect statistics */ if (OpMode != MD_VERIFY) { /* ** Recalculate e_msgpriority, it is done at in eatheader() ** which is called (in 8.12) after the header is collected, ** hence e_msgsize is (most likely) incorrect. */ e->e_msgpriority = e->e_msgsize - e->e_class * WkClassFact + e->e_nrcpts * WkRecipFact; markstats(e, (ADDRESS *) NULL, STATS_NORMAL); } end: (void) set_tls_rd_tmo(old_rd_tmo); if (buf != bufbuf) SM_FREE(buf); } /* ** DFERROR -- signal error on writing the data file. ** ** Called by collect(). collect() always terminates the process ** immediately after calling dferror(), which means that the SMTP ** session will be terminated, which means that any error message ** issued by dferror must be a 421 error, as per RFC 821. ** ** Parameters: ** df -- the file pointer for the data file. ** msg -- detailed message. ** e -- the current envelope. ** ** Returns: ** none. ** ** Side Effects: ** Gives an error message. ** Arranges for following output to go elsewhere. */ void dferror(df, msg, e) SM_FILE_T *volatile df; char *msg; register ENVELOPE *e; { char *dfname; dfname = queuename(e, DATAFL_LETTER); setstat(EX_IOERR); if (errno == ENOSPC) { #if STAT64 > 0 struct stat64 st; #else struct stat st; #endif long avail; long bsize; e->e_flags |= EF_NO_BODY_RETN; if ( #if STAT64 > 0 fstat64(sm_io_getinfo(df, SM_IO_WHAT_FD, NULL), &st) #else fstat(sm_io_getinfo(df, SM_IO_WHAT_FD, NULL), &st) #endif < 0) st.st_size = 0; (void) sm_io_reopen(SmFtStdio, SM_TIME_DEFAULT, dfname, SM_IO_WRONLY_B, NULL, df); if (st.st_size <= 0) (void) sm_io_fprintf(df, SM_TIME_DEFAULT, "\n*** Mail could not be accepted"); else (void) sm_io_fprintf(df, SM_TIME_DEFAULT, "\n*** Mail of at least %llu bytes could not be accepted\n", (ULONGLONG_T) st.st_size); (void) sm_io_fprintf(df, SM_TIME_DEFAULT, "*** at %s due to lack of disk space for temp file.\n", MyHostName); avail = freediskspace(qid_printqueue(e->e_qgrp, e->e_qdir), &bsize); if (avail > 0) { if (bsize > 1024) avail *= bsize / 1024; else if (bsize < 1024) avail /= 1024 / bsize; (void) sm_io_fprintf(df, SM_TIME_DEFAULT, "*** Currently, %ld kilobytes are available for mail temp files.\n", avail); } #if 0 /* Wrong response code; should be 421. */ e->e_status = "4.3.1"; usrerrenh(e->e_status, "452 Out of disk space for temp file"); #else /* 0 */ syserr("421 4.3.1 Out of disk space for temp file"); #endif /* 0 */ } else syserr("421 4.3.0 collect: Cannot write %s (%s, uid=%ld, gid=%ld)", dfname, msg, (long) geteuid(), (long) getegid()); if (sm_io_reopen(SmFtStdio, SM_TIME_DEFAULT, SM_PATH_DEVNULL, SM_IO_WRONLY, NULL, df) == NULL) sm_syslog(LOG_ERR, e->e_id, "dferror: sm_io_reopen(\"/dev/null\") failed: %s", sm_errstring(errno)); } /* ** EATFROM -- chew up a UNIX style from line and process ** ** This does indeed make some assumptions about the format ** of UNIX messages. ** ** Parameters: ** fm -- the from line. ** e -- envelope ** ** Returns: ** none. ** ** Side Effects: ** extracts what information it can from the header, ** such as the date. */ #ifndef NOTUNIX static char *DowList[] = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", NULL }; static char *MonthList[] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", NULL }; static void eatfrom(fm, e) char *volatile fm; register ENVELOPE *e; { register char *p; register char **dt; if (tTd(30, 2)) sm_dprintf("eatfrom(%s)\n", fm); /* find the date part */ p = fm; while (*p != '\0') { /* skip a word */ while (*p != '\0' && *p != ' ') p++; while (*p == ' ') p++; if (strlen(p) < 17) { /* no room for the date */ return; } if (!(isascii(*p) && isupper(*p)) || p[3] != ' ' || p[13] != ':' || p[16] != ':') continue; /* we have a possible date */ for (dt = DowList; *dt != NULL; dt++) if (strncmp(*dt, p, 3) == 0) break; if (*dt == NULL) continue; for (dt = MonthList; *dt != NULL; dt++) { if (strncmp(*dt, &p[4], 3) == 0) break; } if (*dt != NULL) break; } if (*p != '\0') { char *q, buf[25]; /* we have found a date */ (void) sm_strlcpy(buf, p, sizeof(buf)); q = arpadate(buf); macdefine(&e->e_macro, A_TEMP, 'a', q); } } #endif /* ! NOTUNIX */ sendmail-8.18.1/sendmail/Makefile.m40000644000372400037240000001060014556365350016537 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.143 2013-09-04 19:49:04 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_LIBSM', `true') define(`confREQUIRE_SM_OS_H', `true') bldPRODUCT_START(`executable', `sendmail') define(`bldBIN_TYPE', `G') define(`bldINSTALL_DIR', `') define(`bldSOURCES', `main.c alias.c arpadate.c bf.c collect.c conf.c control.c convtime.c daemon.c deliver.c domain.c envelope.c err.c headers.c macro.c map.c mci.c milter.c mime.c parseaddr.c queue.c ratectrl.c readcf.c recipient.c sasl.c savemail.c sched.c sfsasl.c shmticklib.c sm_resolve.c srvrsmtp.c stab.c stats.c sysexits.c timers.c tlsh.c tls.c trace.c udb.c usersmtp.c util.c version.c ') PREPENDDEF(`confENVDEF', `confMAPDEF') bldPUSH_SMLIB(`sm') bldPUSH_SMLIB(`smutil') dnl hack: /etc/mail is not defined as "location of .cf" in the build system define(`bldTARGET_INST_DEP', ifdef(`confINST_DEP', `confINST_DEP', `${DESTDIR}/etc/mail/submit.cf ${DESTDIR}${MSPQ}'))dnl define(`bldTARGET_LINKS', ifdef(`confLINKS', `confLINKS', `${DESTDIR}${UBINDIR}/newaliases ${DESTDIR}${UBINDIR}/mailq ${DESTDIR}${UBINDIR}/hoststat ${DESTDIR}${UBINDIR}/purgestat') )dnl # location of sendmail statistics file (usually /etc/mail/ or /var/log) STDIR= ifdef(`confSTDIR', `confSTDIR', `/etc/mail') # statistics file name STFILE= ifdef(`confSTFILE', `confSTFILE', `statistics') MSPSTFILE=ifdef(`confMSP_STFILE', `confMSP_STFILE', `sm-client.st') # full path to installed statistics file (usually ${STDIR}/statistics) STPATH= ${STDIR}/${STFILE} # location of sendmail helpfile file (usually /etc/mail) HFDIR= ifdef(`confHFDIR', `confHFDIR', `/etc/mail') # full path to installed help file (usually ${HFDIR}/helpfile) HFFILE= ${HFDIR}/ifdef(`confHFFILE', `confHFFILE', `helpfile') ifdef(`confSMSRCADD', `APPENDDEF(`confSRCADD', `confSMSRCADD')') ifdef(`confSMOBJADD', `APPENDDEF(`confOBJADD', `confSMOBJADD')') bldPUSH_TARGET(`statistics') divert(bldTARGETS_SECTION) statistics: ${CP} /dev/null statistics ${DESTDIR}/etc/mail/submit.cf: @echo "Please read INSTALL if anything fails while installing the binary." @echo "${DESTDIR}/etc/mail/submit.cf will be installed now." cd ${SRCDIR}/cf/cf && make install-submit-cf MSPQ=ifdef(`confMSP_QUEUE_DIR', `confMSP_QUEUE_DIR', `/var/spool/clientmqueue') ${DESTDIR}${MSPQ}: @echo "Please read INSTALL if anything fails while installing the binary." @echo "You must have set up a new user ${MSPQOWN} and a new group ${GBINGRP}" @echo "as explained in sendmail/SECURITY." mkdir -p ${DESTDIR}${MSPQ} chown ${MSPQOWN} ${DESTDIR}${MSPQ} chgrp ${GBINGRP} ${DESTDIR}${MSPQ} chmod 0770 ${DESTDIR}${MSPQ} divert(0) ifdef(`confSETUSERID_INSTALL', `bldPUSH_INSTALL_TARGET(`install-set-user-id')') ifdef(`confMTA_INSTALL', `bldPUSH_INSTALL_TARGET(`install-sm-mta')') ifdef(`confNO_HELPFILE_INSTALL',, `bldPUSH_INSTALL_TARGET(`install-hf')') ifdef(`confNO_STATISTICS_INSTALL',, `bldPUSH_INSTALL_TARGET(`install-st')') divert(bldTARGETS_SECTION) install-set-user-id: bldCURRENT_PRODUCT ifdef(`confNO_HELPFILE_INSTALL',, `install-hf') ifdef(`confNO_STATISTICS_INSTALL',, `install-st') ifdef(`confNO_MAN_BUILD',, `install-docs') ${INSTALL} -c -o ${S`'BINOWN} -g ${S`'BINGRP} -m ${S`'BINMODE} bldCURRENT_PRODUCT ${DESTDIR}${M`'BINDIR} for i in ${sendmailTARGET_LINKS}; do \ rm -f $$i; \ ${LN} ${LNOPTS} ${M`'BINDIR}/sendmail $$i; \ done define(`confMTA_LINKS', `${DESTDIR}${UBINDIR}/newaliases ${DESTDIR}${UBINDIR}/mailq ${DESTDIR}${UBINDIR}/hoststat ${DESTDIR}${UBINDIR}/purgestat') install-sm-mta: bldCURRENT_PRODUCT ${INSTALL} -c -o ${M`'BINOWN} -g ${M`'BINGRP} -m ${M`'BINMODE} bldCURRENT_PRODUCT ${DESTDIR}${M`'BINDIR}/sm-mta for i in confMTA_LINKS; do \ rm -f $$i; \ ${LN} ${LNOPTS} ${M`'BINDIR}/sm-mta $$i; \ done install-hf: if [ ! -d ${DESTDIR}${HFDIR} ]; then mkdir -p ${DESTDIR}${HFDIR}; else :; fi ${INSTALL} -c -o ${UBINOWN} -g ${UBINGRP} -m 444 helpfile ${DESTDIR}${HFFILE} install-st: statistics if [ ! -d ${DESTDIR}${STDIR} ]; then mkdir -p ${DESTDIR}${STDIR}; else :; fi ${INSTALL} -c -o ${SBINOWN} -g ${UBINGRP} -m ifdef(`confSTMODE', `confSTMODE', `0600') statistics ${DESTDIR}${STPATH} install-submit-st: statistics ${DESTDIR}${MSPQ} ${INSTALL} -c -o ${MSPQOWN} -g ${GBINGRP} -m ifdef(`confSTMODE', `confSTMODE', `0600') statistics ${DESTDIR}${MSPQ}/${MSPSTFILE} divert(0) bldPRODUCT_END bldPRODUCT_START(`manpage', `sendmail') define(`bldSOURCES', `sendmail.8 aliases.5 mailq.1 newaliases.1') bldPRODUCT_END bldFINISH sendmail-8.18.1/sendmail/sendmail.80000644000372400037240000004243214556365350016455 0ustar xbuildxbuild.\" Copyright (c) 1998-2003 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" Copyright (c) 1983, 1997 Eric P. Allman. All rights reserved. .\" Copyright (c) 1988, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: sendmail.8,v 8.61 2013-11-22 20:51:56 ca Exp $ .\" .TH SENDMAIL 8 "$Date: 2013-11-22 20:51:56 $" .SH NAME sendmail \- an electronic mail transport agent .SH SYNOPSIS .B sendmail .RI [ flags "] [" "address ..." ] .br .B newaliases .br .B mailq .RB [ \-v ] .br .B hoststat .br .B purgestat .br .B smtpd .SH DESCRIPTION .B Sendmail sends a message to one or more .I recipients, routing the message over whatever networks are necessary. .B Sendmail does internetwork forwarding as necessary to deliver the message to the correct place. .PP .B Sendmail is not intended as a user interface routine; other programs provide user-friendly front ends; .B sendmail is used only to deliver pre-formatted messages. .PP With no flags, .B sendmail reads its standard input up to an end-of-file or a line consisting only of a single dot and sends a copy of the message found there to all of the addresses listed. It determines the network(s) to use based on the syntax and contents of the addresses. .PP Local addresses are looked up in a file and aliased appropriately. Aliasing can be prevented by preceding the address with a backslash. Beginning with 8.10, the sender is included in any alias expansions, e.g., if `john' sends to `group', and `group' includes `john' in the expansion, then the letter will also be delivered to `john'. .SS Parameters .TP .B \-Ac Use submit.cf even if the operation mode does not indicate an initial mail submission. .TP .B \-Am Use sendmail.cf even if the operation mode indicates an initial mail submission. .TP .BI \-B type Set the body type to .IR type . Current legal values are 7BIT or 8BITMIME. .TP .B \-ba Go into ARPANET mode. All input lines must end with a CRLF, and all messages will be generated with a CRLF at the end. Also, the ``From:'' and ``Sender:'' fields are examined for the name of the sender. .TP .B \-bC Check the configuration file. .TP .B \-bd Run as a daemon. .B Sendmail will fork and run in background listening on socket 25 for incoming SMTP connections. This is normally run from /etc/rc. .TP .B \-bD Same as .B \-bd except runs in foreground. .TP .B \-bh Print the persistent host status database. .TP .B \-bH Purge expired entries from the persistent host status database. .TP .B \-bi Initialize the alias database. .TP .B \-bm Deliver mail in the usual way (default). .TP .B \-bp Print a listing of the queue(s). .TP .B \-bP Print number of entries in the queue(s); only available with shared memory support. .TP .B \-bs Use the SMTP protocol as described in RFC821 on standard input and output. This flag implies all the operations of the .B \-ba flag that are compatible with SMTP. .TP .B \-bt Run in address test mode. This mode reads addresses and shows the steps in parsing; it is used for debugging configuration tables. .TP .B \-bv Verify names only \- do not try to collect or deliver a message. Verify mode is normally used for validating users or mailing lists. .TP .BI \-C file Use alternate configuration file. .B Sendmail gives up any enhanced (set-user-ID or set-group-ID) privileges if an alternate configuration file is specified. .TP .BI "\-D " logfile Send debugging output to the indicated log file instead of stdout. .TP .BI \-d category . level... Set the debugging flag for .I category to .IR level . .I Category is either an integer or a name specifying the topic, and .I level an integer specifying the level of debugging output desired. Higher levels generally mean more output. More than one flag can be specified by separating them with commas. A list of numeric debugging categories can be found in the TRACEFLAGS file in the sendmail source distribution. .br The option .B \-d0.1 prints the version of .B sendmail and the options it was compiled with. .br Most other categories are only useful with, and documented in, .BR sendmail 's source code. .ne 1i .TP .BI \-F fullname Set the full name of the sender. .TP .BI \-f name Sets the name of the ``from'' person (i.e., the envelope sender of the mail). This address may also be used in the From: header if that header is missing during initial submission. The envelope sender address is used as the recipient for delivery status notifications and may also appear in a Return-Path: header. .B \-f should only be used by ``trusted'' users (normally .IR root ", " daemon , and .IR network ) or if the person you are trying to become is the same as the person you are. Otherwise, an X-Authentication-Warning header will be added to the message. .TP .BI \-G Relay (gateway) submission of a message, e.g., when .BR rmail calls .B sendmail . .TP .BI \-h N Set the hop count to .IR N . The hop count is incremented every time the mail is processed. When it reaches a limit, the mail is returned with an error message, the victim of an aliasing loop. If not specified, ``Received:'' lines in the message are counted. .TP .B \-i Do not strip a leading dot from lines in incoming messages, and do not treat a dot on a line by itself as the end of an incoming message. This should be set if you are reading data from a file. .TP .BI "\-L " tag Set the identifier used in syslog messages to the supplied .IR tag . .TP .BI "\-N " dsn Set delivery status notification conditions to .IR dsn , which can be `never' for no notifications or a comma separated list of the values `failure' to be notified if delivery failed, `delay' to be notified if delivery is delayed, and `success' to be notified when the message is successfully delivered. .TP .B \-n Don't do aliasing. .TP \fB\-O\fP \fIoption\fR=\fIvalue\fR Set option .I option to the specified .IR value . This form uses long names. See below for more details. .TP .BI \-o "x value" Set option .I x to the specified .IR value . This form uses single character names only. The short names are not described in this manual page; see the .I "Sendmail Installation and Operation Guide" for details. .TP .BI \-p protocol Set the name of the protocol used to receive the message. This can be a simple protocol name such as ``UUCP'' or a protocol and hostname, such as ``UUCP:ucbvax''. .TP \fB\-q\fR[\fItime\fR] Process saved messages in the queue at given intervals. If .I time is omitted, process the queue once. .I Time is given as a tagged number, with `s' being seconds, `m' being minutes (default), `h' being hours, `d' being days, and `w' being weeks. For example, `\-q1h30m' or `\-q90m' would both set the timeout to one hour thirty minutes. By default, .B sendmail will run in the background. This option can be used safely with .BR \-bd . .TP \fB\-qp\fR[\fItime\fR] Similar to \fB\-q\fItime\fR, except that instead of periodically forking a child to process the queue, sendmail forks a single persistent child for each queue that alternates between processing the queue and sleeping. The sleep time is given as the argument; it defaults to 1 second. The process will always sleep at least 5 seconds if the queue was empty in the previous queue run. .TP \fB\-q\fRf Process saved messages in the queue once and do not fork(), but run in the foreground. .TP \fB\-q\fRG\fIname\fR Process jobs in queue group called .I name only. .TP \fB\-q\fR[\fI!\fR]I\fIsubstr\fR Limit processed jobs to those containing .I substr as a substring of the queue id or not when .I ! is specified. .TP \fB\-q\fR[\fI!\fR]Q\fIsubstr\fR Limit processed jobs to quarantined jobs containing .I substr as a substring of the quarantine reason or not when .I ! is specified. .TP \fB\-q\fR[\fI!\fR]R\fIsubstr\fR Limit processed jobs to those containing .I substr as a substring of one of the recipients or not when .I ! is specified. .TP \fB\-q\fR[\fI!\fR]S\fIsubstr\fR Limit processed jobs to those containing .I substr as a substring of the sender or not when .I ! is specified. .TP \fB\-Q\fR[reason] Quarantine a normal queue items with the given reason or unquarantine quarantined queue items if no reason is given. This should only be used with some sort of item matching using as described above. .TP .BI "\-R " return Set the amount of the message to be returned if the message bounces. The .I return parameter can be `full' to return the entire message or `hdrs' to return only the headers. In the latter case also local bounces return only the headers. .TP .BI \-r name An alternate and obsolete form of the .B \-f flag. .TP .B \-t Read message for recipients. To:, Cc:, and Bcc: lines will be scanned for recipient addresses. The Bcc: line will be deleted before transmission. .TP .B \-U If a mail submission via the command line requires the use of the .B SMTPUTF8 argument for the .B MAIL command, e.g., because a header uses UTF-8 encoding, but the addresses on the command line are all ASCII, then this option must be used. Only available if .B EAI support is enabled, and the .B SMTPUTF8 option is set. .TP .BI "\-V " envid Set the original envelope id. This is propagated across SMTP to servers that support DSNs and is returned in DSN-compliant error messages. .TP .B \-v Go into verbose mode. Alias expansions will be announced, etc. .TP .BI "\-X " logfile Log all traffic in and out of mailers in the indicated log file. This should only be used as a last resort for debugging mailer bugs. It will log a lot of data very quickly. .TP .B \-\- Stop processing command flags and use the rest of the arguments as addresses. .SS Options There are also a number of processing options that may be set. Normally these will only be used by a system administrator. Options may be set either on the command line using the .B \-o flag (for short names), the .B \-O flag (for long names), or in the configuration file. This is a partial list limited to those options that are likely to be useful on the command line and only shows the long names; for a complete list (and details), consult the .IR "Sendmail Installation and Operation Guide" . The options are: .TP .RI AliasFile= file Use alternate alias file. .TP HoldExpensive On mailers that are considered ``expensive'' to connect to, don't initiate immediate connection. This requires queueing. .TP .RI CheckpointInterval= N Checkpoint the queue file after every .I N successful deliveries (default 10). This avoids excessive duplicate deliveries when sending to long mailing lists interrupted by system crashes. .ne 1i .TP .RI DeliveryMode= x Set the delivery mode to .IR x . Delivery modes are `i' for interactive (synchronous) delivery, `b' for background (asynchronous) delivery, `q' for queue only \- i.e., actual delivery is done the next time the queue is run, and `d' for deferred \- the same as `q' except that database lookups for maps which have set the \-D option (default for the host map) are avoided. .TP .RI ErrorMode= x Set error processing to mode .IR x . Valid modes are `m' to mail back the error message, `w' to ``write'' back the error message (or mail it back if the sender is not logged in), `p' to print the errors on the terminal (default), `q' to throw away error messages (only exit status is returned), and `e' to do special processing for the BerkNet. If the text of the message is not mailed back by modes `m' or `w' and if the sender is local to this machine, a copy of the message is appended to the file .I dead.letter in the sender's home directory. .TP SaveFromLine Save UNIX-style From lines at the front of messages. .TP .RI MaxHopCount= N The maximum number of times a message is allowed to ``hop'' before we decide it is in a loop. .TP IgnoreDots Do not take dots on a line by themselves as a message terminator. .TP SendMimeErrors Send error messages in MIME format. If not set, the DSN (Delivery Status Notification) SMTP extension is disabled. .TP .RI ConnectionCacheTimeout= timeout Set connection cache timeout. .TP .RI ConnectionCacheSize= N Set connection cache size. .TP .RI LogLevel= n The log level. .TP .RI MeToo= False Don't send to ``me'' (the sender) if I am in an alias expansion. .TP CheckAliases Validate the right hand side of aliases during a newaliases(1) command. .TP OldStyleHeaders If set, this message may have old style headers. If not set, this message is guaranteed to have new style headers (i.e., commas instead of spaces between addresses). If set, an adaptive algorithm is used that will correctly determine the header format in most cases. .TP .RI QueueDirectory= queuedir Select the directory in which to queue messages. .TP .RI StatusFile= file Save statistics in the named file. .TP .RI Timeout.queuereturn= time Set the timeout on undelivered messages in the queue to the specified time. After delivery has failed (e.g., because of a host being down) for this amount of time, failed messages will be returned to the sender. The default is five days. .TP .RI UserDatabaseSpec= userdatabase If set, a user database is consulted to get forwarding information. You can consider this an adjunct to the aliasing mechanism, except that the database is intended to be distributed; aliases are local to a particular host. This may not be available if your sendmail does not have the USERDB option compiled in. .TP ForkEachJob Fork each job during queue runs. May be convenient on memory-poor machines. .TP SevenBitInput Strip incoming messages to seven bits. .TP .RI EightBitMode= mode Set the handling of eight bit input to seven bit destinations to .IR mode : m (mimefy) will convert to seven-bit MIME format, p (pass) will pass it as eight bits (but violates protocols), and s (strict) will bounce the message. .TP .RI MinQueueAge= timeout Sets how long a job must ferment in the queue between attempts to send it. .TP .RI DefaultCharSet= charset Sets the default character set used to label 8-bit data that is not otherwise labelled. .TP .RI NoRecipientAction= action Set the behaviour when there are no recipient headers (To:, Cc: or Bcc:) in the message to .IR action : none leaves the message unchanged, add-to adds a To: header with the envelope recipients, add-apparently-to adds an Apparently-To: header with the envelope recipients, add-bcc adds an empty Bcc: header, and add-to-undisclosed adds a header reading `To: undisclosed-recipients:;'. .TP .RI MaxDaemonChildren= N Sets the maximum number of children that an incoming SMTP daemon will allow to spawn at any time to .IR N . .TP .RI ConnectionRateThrottle= N Sets the maximum number of connections per second to the SMTP port to .IR N . .PP In aliases, the first character of a name may be a vertical bar to cause interpretation of the rest of the name as a command to pipe the mail to. It may be necessary to quote the name to keep .B sendmail from suppressing the blanks from between arguments. For example, a common alias is: .IP msgs: "|/usr/bin/msgs -s" .PP Aliases may also have the syntax .RI ``:include: filename '' to ask .B sendmail to read the named file for a list of recipients. For example, an alias such as: .IP poets: ":include:/usr/local/lib/poets.list" .PP would read .I /usr/local/lib/poets.list for the list of addresses making up the group. .PP .B Sendmail returns an exit status describing what it did. The codes are defined in .RI < sysexits.h >: .TP EX_OK Successful completion on all addresses. .TP EX_NOUSER User name not recognized. .TP EX_UNAVAILABLE Catchall meaning necessary resources were not available. .TP EX_SYNTAX Syntax error in address. .TP EX_SOFTWARE Internal software error, including bad arguments. .TP EX_OSERR Temporary operating system error, such as ``cannot fork''. .TP EX_NOHOST Host name not recognized. .TP EX_TEMPFAIL Message could not be sent immediately, but was queued. .PP If invoked as .BR newaliases , .B sendmail will rebuild the alias database. If invoked as .BR mailq , .B sendmail will print the contents of the mail queue. If invoked as .BR hoststat , .B sendmail will print the persistent host status database. If invoked as .BR purgestat , .B sendmail will purge expired entries from the persistent host status database. If invoked as .BR smtpd , .B sendmail will act as a daemon, as if the .B \-bd option were specified. .SH NOTES .B sendmail often gets blamed for many problems that are actually the result of other problems, such as overly permissive modes on directories. For this reason, .B sendmail checks the modes on system directories and files to determine if they can be trusted. Although these checks can be turned off and your system security reduced by setting the .BR DontBlameSendmail option, the permission problems should be fixed. For more information, see the .I "Sendmail Installation and Operation Guide" .SH FILES Except for the file .I /etc/mail/sendmail.cf itself the following pathnames are all specified in .IR /etc/mail/sendmail.cf . Thus, these values are only approximations. .PP .TP /etc/mail/aliases raw data for alias names .TP /etc/mail/aliases.db data base of alias names .TP /etc/mail/sendmail.cf configuration file .TP /etc/mail/helpfile help file .TP /etc/mail/statistics collected statistics .TP /var/spool/mqueue/* temp files .SH SEE ALSO binmail(1), mail(1), rmail(1), syslog(3), aliases(5), mailaddr(7), rc(8) .PP DARPA Internet Request For Comments .IR RFC819 , .IR RFC821 , .IR RFC822 . .IR "Sendmail Installation and Operation Guide" , No. 8, SMM. .PP http://www.sendmail.org/ .PP US Patent Numbers 6865671, 6986037. .SH HISTORY The .B sendmail command appeared in 4.2BSD. sendmail-8.18.1/sendmail/conf.h0000644000372400037240000001637714556365350015677 0ustar xbuildxbuild/* * Copyright (c) 1998-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * * $Id: conf.h,v 8.577 2013-11-22 20:51:55 ca Exp $ */ /* ** CONF.H -- All user-configurable parameters for sendmail ** ** Send updates to sendmail-YYYY@support.sendmail.org ** (replace YYYY with the current year) ** so they will be included in the next release. */ #ifndef CONF_H #define CONF_H 1 #ifdef __GNUC__ struct rusage; /* forward declaration to get gcc to shut up in wait.h */ #endif # include # include # include # ifndef __QNX__ /* in QNX this grabs bogus LOCK_* manifests */ # include # endif # include # include # include # include # include # include # include /* make sure TOBUFSIZ isn't larger than system limit for size of exec() args */ #ifdef ARG_MAX # if ARG_MAX > 4096 # define SM_ARG_MAX 4096 # else # define SM_ARG_MAX ARG_MAX # endif #else # define SM_ARG_MAX 4096 #endif /********************************************************************** ** Table sizes, etc.... ** There shouldn't be much need to change these.... ** If you do, be careful, none should be set anywhere near INT_MAX **********************************************************************/ #define MAXLINE 2048 /* max line length */ #if SASL # define MAXINPLINE 12288 /* max input line length (for AUTH) */ #else # define MAXINPLINE MAXLINE /* max input line length */ #endif #define MAXNAME 256 /* max length of a name */ #ifndef MAXAUTHINFO # define MAXAUTHINFO 100 /* max length of authinfo token */ #endif #define MAXPV 256 /* max # of parms to mailers */ #define MAXATOM 1000 /* max atoms per address */ #define MAXRWSETS 200 /* max # of sets of rewriting rules */ #define MAXPRIORITIES 25 /* max values for Precedence: field */ #define MAXMXHOSTS 100 /* max # of MX records for one host */ #define SMTPLINELIM 990 /* max SMTP line length */ #define MAXUDBKEY 128 /* max size of a database key (udb only) */ #define MAXKEY 1024 /* max size of a database key */ #define MEMCHUNKSIZE 4096 /* chunk size for memory allocation */ #if MEMCHUNKSIZE < MAXLINE /* see usage in collect.c */ # error "MEMCHUNKSIZE must be at least MAXLINE" #endif #define MAXUSERENVIRON 100 /* max envars saved, must be >= 3 */ #define MAXMAPSTACK 12 /* max # of stacked or sequenced maps */ #if MILTER # define MAXFILTERS 25 /* max # of milter filters */ # define MAXFILTERMACROS 50 /* max # of macros per milter cmd */ #endif #define MAXSMTPARGS 20 /* max # of ESMTP args for MAIL/RCPT */ #define MAXTOCLASS 8 /* max # of message timeout classes */ #define MAXRESTOTYPES 3 /* max # of resolver timeout types */ #define MAXMIMEARGS 20 /* max args in Content-Type: */ #define MAXMIMENESTING 20 /* max MIME multipart nesting */ #define QUEUESEGSIZE 1000 /* increment for queue size */ #ifndef MAXNOOPCOMMANDS # define MAXNOOPCOMMANDS 20 /* max "noise" commands before slowdown */ #endif /* ** MAXQFNAME == 2 (size of "qf", "df" prefix) ** + 8 (base 60 encoded date, time & sequence number) ** + 10 (base 10 encoded 32 bit process id) ** + 1 (terminating NUL character). */ #define MAXQFNAME 21 /* max qf file name length + 1 */ #define MACBUFSIZE 4096 /* max expanded macro buffer size */ #define TOBUFSIZE SM_ARG_MAX /* max buffer to hold address list */ #define MAXSHORTSTR 203 /* max short string length */ #define MAXMACNAMELEN 25 /* max macro name length */ #define MAXMACROID 0377 /* max macro id number */ /* Must match (BITMAPBITS - 1), checked in macro.c */ #ifndef MAXHDRSLEN # define MAXHDRSLEN (32 * 1024) /* max size of message headers */ #endif #ifndef MAXDAEMONS # define MAXDAEMONS 10 /* max number of ports to listen to */ /* XREF: conf.c: MAXDAEMONS != 10 */ #endif #ifndef MAXINTERFACES # define MAXINTERFACES 512 /* number of interfaces to probe */ #endif #ifndef MAXSYMLINKS # define MAXSYMLINKS 32 /* max number of symlinks in a path */ #endif #define MAXLINKPATHLEN (MAXPATHLEN * MAXSYMLINKS) /* max link-expanded file */ #define DATA_PROGRESS_TIMEOUT 300 /* how often to check DATA progress */ #define ENHSCLEN 10 /* max len of enhanced status code */ #define DEFAULT_MAX_RCPT 100 /* max number of RCPTs per envelope */ #ifndef MAXQUEUEGROUPS # define MAXQUEUEGROUPS 50 /* max # of queue groups */ /* must be less than BITMAPBITS for DoQueueRun */ #endif #if MAXQUEUEGROUPS >= BITMAPBITS # error "MAXQUEUEGROUPS must be less than BITMAPBITS" #endif #ifndef MAXWORKGROUPS # define MAXWORKGROUPS 50 /* max # of work groups */ #endif #define MAXFILESYS BITMAPBITS /* max # of queue file systems * must be <= BITMAPBITS */ #ifndef FILESYS_UPDATE_INTERVAL # define FILESYS_UPDATE_INTERVAL 300 /* how often to update FileSys table */ #endif #ifndef SM_DEFAULT_TTL # define SM_DEFAULT_TTL 3600 /* default TTL for services that don't have one */ #endif #if SASL # ifndef AUTH_MECHANISMS # if STARTTLS # define AUTH_MECHANISMS "EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5" # else # define AUTH_MECHANISMS "GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5" # endif # endif /* ! AUTH_MECHANISMS */ #endif /* SASL */ /* ** Default database permissions (alias, maps, etc.) ** Used by sendmail and libsmdb */ #ifndef DBMMODE # define DBMMODE 0640 #endif /* ** Value which means a uid or gid value should not change */ #ifndef NO_UID # define NO_UID -1 #endif #ifndef NO_GID # define NO_GID -1 #endif /********************************************************************** ** Compilation options. ** #define these to 1 if they are available; ** #define them to 0 otherwise. ** All can be overridden from Makefile. **********************************************************************/ #ifndef NETINET # define NETINET 1 /* include internet support */ #endif #ifndef NETINET6 # define NETINET6 0 /* do not include IPv6 support */ #endif #ifndef NETISO # define NETISO 0 /* do not include ISO socket support */ #endif #ifndef NAMED_BIND # define NAMED_BIND 1 /* use Berkeley Internet Domain Server */ #endif #ifndef XDEBUG # define XDEBUG 1 /* enable extended debugging */ #endif #ifndef MATCHGECOS # define MATCHGECOS 1 /* match user names from gecos field */ #endif #ifndef DSN # define DSN 1 /* include delivery status notification code */ #endif #if !defined(USERDB) && (defined(NEWDB) || defined(HESIOD)) # define USERDB 1 /* look in user database */ #endif #ifndef MIME8TO7 # define MIME8TO7 1 /* 8->7 bit MIME conversions */ #endif #ifndef MIME7TO8 # define MIME7TO8 1 /* 7->8 bit MIME conversions */ #endif #if NAMED_BIND # ifndef DNSMAP # define DNSMAP 1 /* DNS map type */ # endif #endif #ifndef PIPELINING # define PIPELINING 1 /* SMTP PIPELINING */ #endif /********************************************************************** ** End of site-specific configuration. **********************************************************************/ #if CDB >= 2 # define CDBEXT ".db" # define CDBext "db" #else # define CDBEXT ".cdb" # define CDBext "cdb" #endif #include #endif /* ! CONF_H */ sendmail-8.18.1/sendmail/domain.c0000644000372400037240000013212214556365350016177 0ustar xbuildxbuild/* * Copyright (c) 1998-2004, 2006, 2010, 2020-2023 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1986, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include "map.h" #if NAMED_BIND SM_RCSID("@(#)$Id: domain.c,v 8.205 2013-11-22 20:51:55 ca Exp $ (with name server)") #else SM_RCSID("@(#)$Id: domain.c,v 8.205 2013-11-22 20:51:55 ca Exp $ (without name server)") #endif #include #if NAMED_BIND # include # include "sm_resolve.h" # if DANE # include # ifndef SM_NEG_TTL # define SM_NEG_TTL 60 /* "negative" TTL */ # endif # endif #if USE_EAI #include #endif # ifndef MXHOSTBUFSIZE # define MXHOSTBUFSIZE (128 * MAXMXHOSTS) # endif static char MXHostBuf[MXHOSTBUFSIZE]; # if (MXHOSTBUFSIZE < 2) || (MXHOSTBUFSIZE >= INT_MAX/2) ERROR: _MXHOSTBUFSIZE is out of range # endif # ifndef MAXDNSRCH # define MAXDNSRCH 6 /* number of possible domains to search */ # endif # ifndef RES_DNSRCH_VARIABLE # define RES_DNSRCH_VARIABLE _res.dnsrch # endif # ifndef HFIXEDSZ # define HFIXEDSZ 12 /* sizeof(HEADER) */ # endif # define MAXCNAMEDEPTH 10 /* maximum depth of CNAME recursion */ # if defined(__RES) && (__RES >= 19940415) # define RES_UNC_T char * # else # define RES_UNC_T unsigned char * # endif static int mxrand __P((char *)); static int fallbackmxrr __P((int, unsigned short *, char **)); # if DANE static void tlsa_rr_print __P((const unsigned char *, unsigned int)); static void tlsa_rr_print(rr, len) const unsigned char *rr; unsigned int len; { unsigned int i, l; if (!tTd(8, 2)) return; sm_dprintf("len=%u, %02x-%02x-%02x", len, (int)rr[0], (int)rr[1], (int)rr[2]); l = tTd(8, 8) ? len : 4; for (i = 3; i < l; i++) sm_dprintf(":%02X", (int)rr[i]); sm_dprintf("\n"); } /* ** TLSA_RR_CMP -- Compare two TLSA RRs ** ** Parameters: ** rr1 -- TLSA RR (entry to be added) ** l1 -- length of rr1 ** rr2 -- TLSA RR ** l2 -- length of rr2 ** ** Returns: ** 0: rr1 == rr2 ** 1: rr1 is unsupported */ static int tlsa_rr_cmp __P((unsigned char *, int, unsigned char *, int)); static int tlsa_rr_cmp(rr1, l1, rr2, l2) unsigned char *rr1; int l1; unsigned char *rr2; int l2; { /* temporary #if while investigating the implications of the alternative */ #if FULL_COMPARE unsigned char r1, r2; int cmp; #endif /* FULL_COMPARE */ SM_REQUIRE(NULL != rr1); SM_REQUIRE(NULL != rr2); SM_REQUIRE(l1 > 3); SM_REQUIRE(l2 > 3); #if FULL_COMPARE /* ** certificate usage ** 3: cert/fp must match ** 2: cert/fp must be trust anchor */ /* preference[]: lower value: higher preference */ r1 = rr1[0]; r2 = rr2[0]; if (r1 != r2) { int preference[] = { 3, 2, 1, 0 }; SM_ASSERT(r1 <= SM_ARRAY_SIZE(preference)); SM_ASSERT(r2 <= SM_ARRAY_SIZE(preference)); return preference[r1] - preference[r2]; } /* ** selector: ** 0: full cert ** 1: fp */ r1 = rr1[1]; r2 = rr2[1]; if (r1 != r2) { int preference[] = { 1, 0 }; SM_ASSERT(r1 <= SM_ARRAY_SIZE(preference)); SM_ASSERT(r2 <= SM_ARRAY_SIZE(preference)); return preference[r1] - preference[r2]; } /* ** matching type: ** 0 -- Exact match ** 1 -- SHA-256 hash ** 2 -- SHA-512 hash */ r1 = rr1[2]; r2 = rr2[2]; if (r1 != r2) { int preference[] = { 2, 0, 1 }; SM_ASSERT(r1 <= SM_ARRAY_SIZE(preference)); SM_ASSERT(r2 <= SM_ARRAY_SIZE(preference)); return preference[r1] - preference[r2]; } /* not the same length despite the same type? */ if (l1 != l2) return 1; cmp = memcmp(rr1, rr2, l1); if (0 == cmp) return 0; return 1; #else /* FULL_COMPARE */ /* identical? */ if (l1 == l2 && 0 == memcmp(rr1, rr2, l1)) return 0; /* new entry is unsupported? -> append */ if (TLSA_UNSUPP == dane_tlsa_chk(rr1, l1, "", false)) return 1; /* current entry is unsupported? -> insert new one */ if (TLSA_UNSUPP == dane_tlsa_chk(rr2, l2, "", false)) return -1; /* default: preserve order */ return 1; #endif /* FULL_COMPARE */ } /* ** TLSAINSERT -- Insert a TLSA RR ** ** Parameters: ** dane_tlsa -- dane_tlsa entry ** rr -- TLSA RR ** pn -- (point to) number of entries ** ** Returns: ** SM_SUCCESS: rr inserted ** SM_NOTDONE: rr not inserted: exists ** SM_FULL: rr not inserted: no space left */ static int tlsainsert __P((dane_tlsa_P, RESOURCE_RECORD_T *, int *)); static int tlsainsert(dane_tlsa, rr, pn) dane_tlsa_P dane_tlsa; RESOURCE_RECORD_T *rr; int *pn; { int i, l1, ret; unsigned char *r1; SM_ASSERT(pn != NULL); SM_ASSERT(*pn <= MAX_TLSA_RR); r1 = rr->rr_u.rr_data; l1 = rr->rr_size; ret = SM_SUCCESS; for (i = 0; i < *pn; i++) { int r, j; r = tlsa_rr_cmp(r1, l1, dane_tlsa->dane_tlsa_rr[i], dane_tlsa->dane_tlsa_len[i]); if (0 == r) { if (tTd(8, 80)) sm_dprintf("func=tlsainsert, i=%d, n=%d, status=exists\n", i, *pn); ret = SM_NOTDONE; goto done; } if (r > 0) continue; if (*pn + 1 >= MAX_TLSA_RR) { j = MAX_TLSA_RR - 1; SM_FREE(dane_tlsa->dane_tlsa_rr[j]); dane_tlsa->dane_tlsa_len[j] = 0; } else (*pn)++; for (j = MAX_TLSA_RR - 2; j >= i; j--) { dane_tlsa->dane_tlsa_rr[j + 1] = dane_tlsa->dane_tlsa_rr[j]; dane_tlsa->dane_tlsa_len[j + 1] = dane_tlsa->dane_tlsa_len[j]; } SM_ASSERT(i < MAX_TLSA_RR); dane_tlsa->dane_tlsa_rr[i] = r1; dane_tlsa->dane_tlsa_len[i] = l1; if (tTd(8, 80)) sm_dprintf("func=tlsainsert, i=%d, n=%d, status=inserted\n", i, *pn); goto added; } if (*pn + 1 <= MAX_TLSA_RR) { dane_tlsa->dane_tlsa_rr[*pn] = r1; dane_tlsa->dane_tlsa_len[*pn] = l1; (*pn)++; if (tTd(8, 80)) sm_dprintf("func=tlsainsert, n=%d, status=appended\n", *pn); } else { if (tTd(8, 80)) sm_dprintf("func=tlsainsert, n=%d, status=full\n", *pn); return SM_FULL; } added: /* hack: instead of copying the data, just "take it over" */ rr->rr_u.rr_data = NULL; done: return ret; } /* ** TLSAADD -- add TLSA records to dane_tlsa entry ** ** Parameters: ** name -- key for stab entry (for debugging output) ** dr -- DNS reply ** dane_tlsa -- dane_tlsa entry ** dnsrc -- DNS lookup return code (h_errno) ** nr -- current number of TLSA records in dane_tlsa entry ** pttl -- (pointer to) TTL (in/out) ** level -- recursion level (CNAMEs) ** ** Returns: ** new number of TLSA records ** ** NOTE: the array for TLSA RRs could be "full" which is not ** handled well (yet). */ static int tlsaadd __P((const char *, DNS_REPLY_T *, dane_tlsa_P, int, int, unsigned int *, int)); static int tlsaadd(name, dr, dane_tlsa, dnsrc, nr, pttl, level) const char *name; DNS_REPLY_T *dr; dane_tlsa_P dane_tlsa; int dnsrc; int nr; unsigned int *pttl; int level; { RESOURCE_RECORD_T *rr; unsigned int ttl; int nprev; if (dnsrc != 0) { if (tTd(8, 2)) sm_dprintf("tlsaadd, name=%s, prev=%d, dnsrc=%d\n", name, dane_tlsa->dane_tlsa_dnsrc, dnsrc); /* check previous error and keep the "most important" one? */ dane_tlsa->dane_tlsa_dnsrc = dnsrc; # if DNSSEC_TEST if (tTd(8, 110)) *pttl = tTdlevel(8)-110; /* how to make this an option? */ else # endif /* "else" in #if code above */ *pttl = SM_NEG_TTL; return nr; } if (dr == NULL) return nr; if (dr->dns_r_h.ad != 1 && Dane == DANE_SECURE) /* not secure? */ return nr; ttl = *pttl; /* first: try to find TLSA records */ nprev = nr; for (rr = dr->dns_r_head; rr != NULL; rr = rr->rr_next) { int tlsa_chk, r; if (rr->rr_type != T_TLSA) { if (rr->rr_type != T_CNAME && tTd(8, 8)) sm_dprintf("tlsaadd: name=%s, type=%s\n", name, dns_type_to_string(rr->rr_type)); continue; } tlsa_chk = dane_tlsa_chk(rr->rr_u.rr_data, rr->rr_size, name, true); if (TLSA_UNSUPP == tlsa_chk) TLSA_SET_FL(dane_tlsa, TLSAFLUNS); if (!TLSA_IS_VALID(tlsa_chk)) continue; if (TLSA_IS_SUPPORTED(tlsa_chk)) TLSA_SET_FL(dane_tlsa, TLSAFLSUP); /* ** Note: rr_u.rr_data might be NULL after tlsainsert() ** for nice debug output: print the data into a string ** and then use it after tlsainsert(). */ if (tTd(8, 2)) { sm_dprintf("tlsaadd: name=%s, nr=%d, ", name, nr); tlsa_rr_print(rr->rr_u.rr_data, rr->rr_size); } r = tlsainsert(dane_tlsa, rr, &nr); if (SM_FULL == r) TLSA_SET_FL(dane_tlsa, TLSAFL2MANY); if (tTd(8, 2)) sm_dprintf("tlsainsert=%d, nr=%d\n", r, nr); /* require some minimum TTL? */ if (ttl > rr->rr_ttl && rr->rr_ttl > 0) ttl = rr->rr_ttl; } if (tTd(8, 2)) { unsigned int ui; SM_ASSERT(nr <= MAX_TLSA_RR); for (ui = 0; ui < (unsigned int)nr; ui++) { sm_dprintf("tlsaadd: name=%s, ui=%u, ", name, ui); tlsa_rr_print(dane_tlsa->dane_tlsa_rr[ui], dane_tlsa->dane_tlsa_len[ui]); } } if (TLSA_IS_FL(dane_tlsa, TLSAFL2MANY)) { if (tTd(8, 20)) sm_dprintf("tlsaadd: name=%s, rr=%p, nr=%d, toomany=%d\n", name, rr, nr, TLSA_IS_FL(dane_tlsa, TLSAFL2MANY)); } /* second: check for CNAME records, but only if no TLSA RR was added */ for (rr = dr->dns_r_head; rr != NULL && nprev == nr; rr = rr->rr_next) { DNS_REPLY_T *drc; int err, herr; if (rr->rr_type != T_CNAME) continue; if (level > 1) { if (tTd(8, 2)) sm_dprintf("tlsaadd: name=%s, CNAME=%s, level=%d\n", name, rr->rr_u.rr_txt, level); continue; } drc = dns_lookup_int(rr->rr_u.rr_txt, C_IN, T_TLSA, 0, 0, Dane == DANE_SECURE ? SM_RES_DNSSEC : 0, RR_RAW, &err, &herr); if (tTd(8, 2)) sm_dprintf("tlsaadd: name=%s, CNAME=%s, level=%d, dr=%p, ad=%d, err=%d, herr=%d\n", name, rr->rr_u.rr_txt, level, (void *)drc, drc != NULL ? drc->dns_r_h.ad : -1, err, herr); nprev = nr = tlsaadd(name, drc, dane_tlsa, herr, nr, pttl, level + 1); dns_free_data(drc); drc = NULL; } if (TLSA_IS_FL(dane_tlsa, TLSAFLUNS) && !TLSA_IS_FL(dane_tlsa, TLSAFLSUP) && LogLevel > 9) { sm_syslog(LOG_NOTICE, NOQID, "TLSA=%s, records=%d%s", name, nr, ONLYUNSUPTLSARR); } *pttl = ttl; return nr; } /* ** GETTLSA -- get TLSA records for named host using DNS ** ** Parameters: ** host -- host ** name -- name for stab entry key (if NULL: host) ** pste -- (pointer to) stab entry (output) ** flags -- TLSAFL* ** mxttl -- TTL of MX (or host) ** port -- port number used in TLSA queries (_PORT._tcp.) ** ** Returns: ** The number of TLSA records found. ** <0 if there is an internal failure. ** ** Side effects: ** Enters TLSA RRs into stab(). ** If the DNS lookup fails temporarily, an "empty" entry is ** created with that DNS error code. */ int gettlsa(host, name, pste, flags, mxttl, port) char *host; char *name; STAB **pste; unsigned long flags; unsigned int mxttl; unsigned int port; { DNS_REPLY_T *dr; dane_tlsa_P dane_tlsa; STAB *ste; time_t now; unsigned int ttl; int n_rrs, len, err, herr; bool isrname, expired; char nbuf[MAXDNAME]; char key[MAXDNAME]; SM_REQUIRE(host != NULL); if (pste != NULL) *pste = NULL; if ('\0' == *host) return 0; expired = false; isrname = NULL == name; if (isrname) name = host; /* ** If host->MX lookup was not secure then do not look up TLSA RRs. ** Note: this is currently a hack: TLSAFLADMX is used as input flag, ** it is (SHOULD!) NOT stored in dane_tlsa->dane_tlsa_flags */ if (DANE_SECURE == Dane && 0 == (TLSAFLADMX & flags) && 0 != (TLSAFLNEW & flags)) { if (tTd(8, 2)) sm_dprintf("gettlsa: host=%s, flags=%#lx, no ad but Dane=Secure\n", host, flags); return 0; } now = 0; n_rrs = 0; dr = NULL; dane_tlsa = NULL; len = strlen(name); if (len > 1 && name[len - 1] == '.') { len--; name[len] = '\0'; } else len = -1; if (0 == port || tTd(66, 101)) port = 25; (void) sm_snprintf(key, sizeof(key), "_%u.%s", port, name); ste = stab(key, ST_TLSA_RR, ST_FIND); if (tTd(8, 2)) sm_dprintf("gettlsa: host=%s, %s, ste=%p, pste=%p, flags=%#lx, port=%d\n", host, isrname ? "" : name, (void *)ste, (void *)pste, flags, port); if (ste != NULL) dane_tlsa = ste->s_tlsa; #if 0 // /* Do not reload TLSA RRs if the MX RRs were not securely retrieved. */ // if (pste != NULL // && dane_tlsa != NULL && TLSA_IS_FL(dane_tlsa, TLSAFLNOADMX) // && DANE_SECURE == Dane) // goto end; #endif if (ste != NULL) { SM_ASSERT(dane_tlsa != NULL); now = curtime(); if (tTd(8, 20)) sm_dprintf("gettlsa: host=%s, found-ste=%p, ste_flags=%#lx, expired=%d\n", host, ste, ste->s_tlsa->dane_tlsa_flags, dane_tlsa->dane_tlsa_exp <= now); if (dane_tlsa->dane_tlsa_exp <= now && 0 == (TLSAFLNOEXP & flags)) { dane_tlsa_clr(dane_tlsa); expired = true; } else { n_rrs = dane_tlsa->dane_tlsa_n; goto end; } } /* get entries if none exist yet? */ if ((0 == (TLSAFLNEW & flags)) && !expired) goto end; if (dane_tlsa == NULL) { dane_tlsa = (dane_tlsa_P) sm_malloc(sizeof(*dane_tlsa)); if (dane_tlsa == NULL) { n_rrs = -ENOMEM; goto end; } memset(dane_tlsa, '\0', sizeof(*dane_tlsa)); } /* There are flags to store -- just set those, do nothing else. */ if (TLSA_STORE_FL(flags)) { dane_tlsa->dane_tlsa_flags = flags; ttl = mxttl > 0 ? mxttl: SM_DEFAULT_TTL; goto done; } (void) sm_snprintf(nbuf, sizeof(nbuf), "_%u._tcp.%s", port, host); dr = dns_lookup_int(nbuf, C_IN, T_TLSA, 0, 0, (TLSAFLADMX & flags) ? SM_RES_DNSSEC : 0, RR_RAW, &err, &herr); if (tTd(8, 2)) { #if 0 /* disabled -- what to do with these two counters? log them "somewhere"? */ // if (NULL != dr && tTd(8, 12)) // { // RESOURCE_RECORD_T *rr; // unsigned int ntlsarrs, usable; // // ntlsarrs = usable = 0; // for (rr = dr->dns_r_head; rr != NULL; rr = rr->rr_next) // { // int tlsa_chk; // // if (rr->rr_type != T_TLSA) // continue; // ++ntlsarrs; // tlsa_chk = dane_tlsa_chk(rr->rr_u.rr_data, // rr->rr_size, name, false); // if (TLSA_IS_SUPPORTED(tlsa_chk)) // ++usable; // // } // sm_dprintf("gettlsa: host=%s, ntlsarrs=%u, usable\%u\n", host, ntlsarrs, usable); // } #endif /* 0 */ sm_dprintf("gettlsa: host=%s, dr=%p, ad=%d, err=%d, herr=%d\n", host, (void *)dr, dr != NULL ? dr->dns_r_h.ad : -1, err, herr); } ttl = UINT_MAX; n_rrs = tlsaadd(key, dr, dane_tlsa, herr, n_rrs, &ttl, 0); /* no valid entries found? */ if (n_rrs == 0 && !TLSA_RR_TEMPFAIL(dane_tlsa)) { if (tTd(8, 2)) sm_dprintf("gettlsa: host=%s, n_rrs=%d, herr=%d, status=NOT_ADDED\n", host, n_rrs, dane_tlsa->dane_tlsa_dnsrc); goto cleanup; } done: dane_tlsa->dane_tlsa_n = n_rrs; if (!isrname) { SM_FREE(dane_tlsa->dane_tlsa_sni); dane_tlsa->dane_tlsa_sni = sm_strdup(host); } if (NULL == ste) { ste = stab(key, ST_TLSA_RR, ST_ENTER); if (NULL == ste) goto error; } ste->s_tlsa = dane_tlsa; if (now == 0) now = curtime(); dane_tlsa->dane_tlsa_exp = now + SM_MIN(ttl, SM_DEFAULT_TTL); dns_free_data(dr); dr = NULL; goto end; error: if (tTd(8, 2)) sm_dprintf("gettlsa: host=%s, key=%s, status=error\n", host, key); n_rrs = -1; cleanup: if (NULL == ste) dane_tlsa_free(dane_tlsa); dns_free_data(dr); dr = NULL; end: if (pste != NULL && ste != NULL) *pste = ste; if (len > 0) host[len] = '.'; return n_rrs; } # endif /* DANE */ /* ** GETFALLBACKMXRR -- get MX resource records for fallback MX host. ** ** We have to initialize this once before doing anything else. ** Moreover, we have to repeat this from time to time to avoid ** stale data, e.g., in persistent queue runners. ** This should be done in a parent process so the child ** processes have the right data. ** ** Parameters: ** host -- the name of the fallback MX host. ** ** Returns: ** number of MX records. ** ** Side Effects: ** Populates NumFallbackMXHosts and fbhosts. ** Sets renewal time (based on TTL). */ int NumFallbackMXHosts = 0; /* Number of fallback MX hosts (after MX expansion) */ static char *fbhosts[MAXMXHOSTS + 1]; int getfallbackmxrr(host) char *host; { int i, rcode; int ttl; static time_t renew = 0; # if 0 /* This is currently done before this function is called. */ if (SM_IS_EMPTY(host)) return 0; # endif /* 0 */ if (NumFallbackMXHosts > 0 && renew > curtime()) return NumFallbackMXHosts; /* ** For DANE we need to invoke getmxrr() to get the TLSA RRs. ** Hack: don't do that if its not a FQHN (e.g., [localhost]) ** This also triggers for IPv4 addresses, but not IPv6! */ if (host[0] == '[' && (!Dane || strchr(host, '.') == NULL)) { fbhosts[0] = host; NumFallbackMXHosts = 1; } else { /* free old data */ for (i = 0; i < NumFallbackMXHosts; i++) sm_free(fbhosts[i]); /* ** Get new data. ** Note: passing 0 as port is not correct but we cannot ** determine the port number as there is no mailer. */ NumFallbackMXHosts = getmxrr(host, fbhosts, NULL, # if DANE (DANE_SECURE == Dane) ? ISAD : # endif 0, &rcode, &ttl, 0, NULL); renew = curtime() + ttl; for (i = 0; i < NumFallbackMXHosts; i++) fbhosts[i] = newstr(fbhosts[i]); } if (NumFallbackMXHosts == NULLMX) NumFallbackMXHosts = 0; return NumFallbackMXHosts; } /* ** FALLBACKMXRR -- add MX resource records for fallback MX host to list. ** ** Parameters: ** nmx -- current number of MX records. ** prefs -- array of preferences. ** mxhosts -- array of MX hosts (maximum size: MAXMXHOSTS) ** ** Returns: ** new number of MX records. ** ** Side Effects: ** If FallbackMX was set, it appends the MX records for ** that host to mxhosts (and modifies prefs accordingly). */ static int fallbackmxrr(nmx, prefs, mxhosts) int nmx; unsigned short *prefs; char **mxhosts; { int i; for (i = 0; i < NumFallbackMXHosts && nmx < MAXMXHOSTS; i++) { if (nmx > 0) prefs[nmx] = prefs[nmx - 1] + 1; else prefs[nmx] = 0; mxhosts[nmx++] = fbhosts[i]; } return nmx; } # if USE_EAI /* ** HN2ALABEL -- convert hostname in U-label format to A-label format ** ** Parameters: ** hostname -- hostname in U-label format ** ** Returns: ** hostname in A-label format in a local static buffer. ** It must be copied before the function is called again. */ const char * hn2alabel(hostname) const char *hostname; { UErrorCode error = U_ZERO_ERROR; UIDNAInfo info = UIDNA_INFO_INITIALIZER; UIDNA *idna; static char buf[MAXNAME_I]; /* XXX ??? */ if (str_is_print(hostname)) return hostname; idna = uidna_openUTS46(UIDNA_NONTRANSITIONAL_TO_ASCII, &error); (void) uidna_nameToASCII_UTF8(idna, hostname, strlen(hostname), buf, sizeof(buf) - 1, &info, &error); uidna_close(idna); return buf; } # endif /* USE_EAI */ /* ** GETMXRR -- get MX resource records for a domain ** ** Parameters: ** host -- the name of the host to MX [must be x] ** mxhosts -- a pointer to a return buffer of MX records. ** mxprefs -- a pointer to a return buffer of MX preferences. ** If NULL, don't try to populate. ** flags -- flags: ** DROPLOCALHOST -- If true, all MX records less preferred ** than the local host (as determined by $=w) will ** be discarded. ** TRYFALLBACK -- add also fallback MX host? ** ISAD -- host lookup was secure? ** rcode -- a pointer to an EX_ status code. ** pttl -- pointer to return TTL (can be NULL). ** port -- port number used in TLSA queries (_PORT._tcp.) ** pad -- (output parameter, pointer to) AD flag (can be NULL) ** ** Returns: ** The number of MX records found. ** -1 if there is an internal failure. ** If no MX records are found, mxhosts[0] is set to host ** and 1 is returned. ** ** Side Effects: ** The entries made for mxhosts point to a static array ** MXHostBuf[MXHOSTBUFSIZE], so the data needs to be copied, ** if it must be preserved across calls to this function. */ int getmxrr(host, mxhosts, mxprefs, flags, rcode, pttl, port, pad) char *host; char **mxhosts; unsigned short *mxprefs; unsigned int flags; int *rcode; int *pttl; int port; int *pad; { register unsigned char *eom, *cp; register int i, j, n; int nmx = 0; register char *bp; HEADER *hp; querybuf answer; int ancount, qdcount, buflen; bool seenlocal = false; unsigned short pref, type; unsigned short localpref = 256; char *fallbackMX = FallbackMX; bool trycanon = false; unsigned short *prefs; int (*resfunc) __P((const char *, int, int, u_char *, int)); unsigned short prefer[MAXMXHOSTS]; int weight[MAXMXHOSTS]; int ttl = 0; bool ad; bool seennullmx = false; extern int res_query __P((const char *, int, int, u_char *, int)); extern int res_search __P((const char *, int, int , u_char *, int)); # if DANE bool cname2mx; char qname[MAXNAME]; /* EAI: copy of host: ok? */ unsigned long old_options = 0; # endif if (tTd(8, 2)) sm_dprintf("getmxrr(%s, droplocalhost=%d, flags=%X, port=%d)\n", host, (flags & DROPLOCALHOST) != 0, flags, port); ad = (flags & ISAD) != 0; *rcode = EX_OK; if (pttl != NULL) *pttl = SM_DEFAULT_TTL; if (*host == '\0') return 0; # if DANE cname2mx = false; qname[0] = '\0'; old_options = _res.options; if (ad) _res.options |= SM_RES_DNSSEC; # endif if ((fallbackMX != NULL && (flags & DROPLOCALHOST) != 0 && wordinclass(fallbackMX, 'w')) || (flags & TRYFALLBACK) == 0) { /* don't use fallback for this pass */ fallbackMX = NULL; } if (mxprefs != NULL) prefs = mxprefs; else prefs = prefer; /* efficiency hack -- numeric or non-MX lookups */ if (host[0] == '[') goto punt; # if DANE /* ** NOTE: This only works if nocanonify is used, ** otherwise the name is already rewritten. */ /* always or only when "needed"? */ if (DANE_ALWAYS == Dane || (ad && DANE_SECURE == Dane)) (void) sm_strlcpy(qname, host, sizeof(qname)); # endif /* DANE */ # if USE_EAI if (!str_is_print(host)) { /* XXX memory leak? */ host = sm_rpool_strdup_x(CurEnv->e_rpool, hn2alabel(host)); } # endif /* USE_EAI */ /* ** If we don't have MX records in our host switch, don't ** try for MX records. Note that this really isn't "right", ** since we might be set up to try NIS first and then DNS; ** if the host is found in NIS we really shouldn't be doing ** MX lookups. However, that should be a degenerate case. */ if (!UseNameServer) goto punt; if (HasWildcardMX && ConfigLevel >= 6) resfunc = res_query; else resfunc = res_search; # if DNSSEC_TEST if (tTd(8, 110)) resfunc = tstdns_search; # endif errno = 0; hp = (HEADER *)&answer; n = (*resfunc)(host, C_IN, T_MX, (unsigned char *) &answer, sizeof(answer)); if (n < 0) { if (tTd(8, 1)) # if DNSSEC_TEST sm_dprintf("getmxrr: res_search(%s) failed (errno=%d (%s), h_errno=%d (%s))\n", host, errno, strerror(errno), h_errno, herrno2txt(h_errno)); # else sm_dprintf("getmxrr: res_search(%s) failed, h_errno=%d\n", host, h_errno); # endif switch (h_errno) { case NO_DATA: trycanon = true; /* FALLTHROUGH */ case NO_RECOVERY: /* no MX data on this host */ goto punt; case HOST_NOT_FOUND: # if BROKEN_RES_SEARCH case 0: /* Ultrix resolver returns failure w/ h_errno=0 */ # endif /* host doesn't exist in DNS; might be in /etc/hosts */ trycanon = true; *rcode = EX_NOHOST; goto punt; case TRY_AGAIN: case -1: /* couldn't connect to the name server */ if (fallbackMX != NULL) { /* name server is hosed -- push to fallback */ nmx = fallbackmxrr(nmx, prefs, mxhosts); goto done; } /* it might come up later; better queue it up */ *rcode = EX_TEMPFAIL; break; default: syserr("getmxrr: res_search (%s) failed with impossible h_errno (%d)", host, h_errno); *rcode = EX_OSERR; break; } /* irreconcilable differences */ goto error; } ad = ad && hp->ad; if (tTd(8, 2)) sm_dprintf("getmxrr(%s), hp=%p, ad=%d\n", host, (void*)hp, ad); if (pad != NULL) *pad = ad; /* avoid problems after truncation in tcp packets */ if (n > sizeof(answer)) n = sizeof(answer); /* find first satisfactory answer */ cp = (unsigned char *)&answer + HFIXEDSZ; eom = (unsigned char *)&answer + n; for (qdcount = ntohs((unsigned short) hp->qdcount); qdcount--; cp += n + QFIXEDSZ) { if ((n = dn_skipname(cp, eom)) < 0) goto punt; } /* NOTE: see definition of MXHostBuf! */ buflen = sizeof(MXHostBuf) - 1; SM_ASSERT(buflen > 0); bp = MXHostBuf; ancount = ntohs((unsigned short) hp->ancount); /* See RFC 1035 for layout of RRs. */ /* XXX leave room for FallbackMX ? */ while (--ancount >= 0 && cp < eom && nmx < MAXMXHOSTS - 1) { if ((n = dn_expand((unsigned char *)&answer, eom, cp, (RES_UNC_T) bp, buflen)) < 0) break; cp += n; GETSHORT(type, cp); cp += INT16SZ; /* skip over class */ GETLONG(ttl, cp); GETSHORT(n, cp); /* rdlength */ # if DANE if (type == T_CNAME) cname2mx = true; # endif if (type != T_MX) { if ((tTd(8, 8) || _res.options & RES_DEBUG) # if DANE && type != T_RRSIG # endif ) sm_dprintf("unexpected answer type %s, size %d\n", dns_type_to_string(type), n); cp += n; continue; } GETSHORT(pref, cp); if ((n = dn_expand((unsigned char *)&answer, eom, cp, (RES_UNC_T) bp, buflen)) < 0) break; cp += n; n = strlen(bp); /* Support for RFC7505 "MX 0 ." */ if (pref == 0 && *bp == '\0') seennullmx = true; if (wordinclass(bp, 'w')) { if (tTd(8, 3)) sm_dprintf("found localhost (%s) in MX list, pref=%d\n", bp, pref); if ((flags & DROPLOCALHOST) != 0) { if (!seenlocal || pref < localpref) localpref = pref; seenlocal = true; continue; } weight[nmx] = 0; } else weight[nmx] = mxrand(bp); prefs[nmx] = pref; mxhosts[nmx++] = bp; # if DANE if (CHK_DANE(Dane) && port >= 0) { int nrr; unsigned long flags; flags = TLSAFLNEW; if (pad != NULL && *pad) flags |= TLSAFLADMX; if (tTd(8, 20)) sm_dprintf("getmxrr: 1: host=%s, mx=%s, flags=%#lx\n", host, bp, flags); nrr = gettlsa(bp, NULL, NULL, flags, ttl, port); /* Only check qname if no TLSA RRs were found */ if (0 == nrr && cname2mx && '\0' != qname[0] && strcmp(qname, bp)) { if (tTd(8, 20)) sm_dprintf("getmxrr: 2: host=%s, qname=%s, flags=%#lx\n", host, qname, flags); gettlsa(qname, bp, NULL, flags, ttl, port); /* XXX is this the right ad flag? */ } } # endif /* ** Note: n can be 0 for something like: ** host MX 0 . ** See RFC 7505 */ bp += n; if (0 == n || bp[-1] != '.') { *bp++ = '.'; n++; } *bp++ = '\0'; if (buflen < n + 1) { /* don't want to wrap buflen */ break; } buflen -= n + 1; } /* Support for RFC7505 "MX 0 ." */ if (seennullmx && nmx == 1) { if (tTd(8, 4)) sm_dprintf("getmxrr: Null MX record found, domain doesn't accept mail (RFC7505)\n"); *rcode = EX_UNAVAILABLE; return NULLMX; } /* return only one TTL entry, that should be sufficient */ if (ttl > 0 && pttl != NULL) *pttl = ttl; /* sort the records */ for (i = 0; i < nmx; i++) { for (j = i + 1; j < nmx; j++) { if (prefs[i] > prefs[j] || (prefs[i] == prefs[j] && weight[i] > weight[j])) { register int temp; register char *temp1; temp = prefs[i]; prefs[i] = prefs[j]; prefs[j] = temp; temp1 = mxhosts[i]; mxhosts[i] = mxhosts[j]; mxhosts[j] = temp1; temp = weight[i]; weight[i] = weight[j]; weight[j] = temp; } } if (seenlocal && prefs[i] >= localpref) { /* truncate higher preference part of list */ nmx = i; } } /* delete duplicates from list (yes, some bozos have duplicates) */ for (i = 0; i < nmx - 1; ) { if (!SM_STRCASEEQ(mxhosts[i], mxhosts[i + 1])) i++; else { /* compress out duplicate */ for (j = i + 1; j < nmx; j++) { mxhosts[j] = mxhosts[j + 1]; prefs[j] = prefs[j + 1]; } nmx--; } } if (nmx == 0) { punt: if (seenlocal) { struct hostent *h = NULL; /* ** If we have deleted all MX entries, this is ** an error -- we should NEVER send to a host that ** has an MX, and this should have been caught ** earlier in the config file. ** ** Some sites prefer to go ahead and try the ** A record anyway; that case is handled by ** setting TryNullMXList. I believe this is a ** bad idea, but it's up to you.... */ if (TryNullMXList) { SM_SET_H_ERRNO(0); errno = 0; h = sm_gethostbyname(host, AF_INET); if (h == NULL) { if (errno == ETIMEDOUT || h_errno == TRY_AGAIN || (errno == ECONNREFUSED && UseNameServer)) { *rcode = EX_TEMPFAIL; goto error; } # if NETINET6 SM_SET_H_ERRNO(0); errno = 0; h = sm_gethostbyname(host, AF_INET6); if (h == NULL && (errno == ETIMEDOUT || h_errno == TRY_AGAIN || (errno == ECONNREFUSED && UseNameServer))) { *rcode = EX_TEMPFAIL; goto error; } # endif /* NETINET6 */ } } if (h == NULL) { *rcode = EX_CONFIG; syserr("MX list for %s points back to %s", host, MyHostName); goto error; } # if NETINET6 freehostent(h); h = NULL; # endif } if (strlen(host) >= sizeof(MXHostBuf)) { *rcode = EX_CONFIG; syserr("Host name %s too long", shortenstring(host, MAXSHORTSTR)); goto error; } (void) sm_strlcpy(MXHostBuf, host, sizeof(MXHostBuf)); mxhosts[0] = MXHostBuf; prefs[0] = 0; if (host[0] == '[') { register char *p; # if NETINET6 struct sockaddr_in6 tmp6; # endif /* this may be an MX suppression-style address */ p = strchr(MXHostBuf, ']'); if (p != NULL) { *p = '\0'; if (inet_addr(&MXHostBuf[1]) != INADDR_NONE) { nmx++; *p = ']'; } # if NETINET6 else if (anynet_pton(AF_INET6, &MXHostBuf[1], &tmp6.sin6_addr) == 1) { nmx++; *p = ']'; } # endif /* NETINET6 */ else { # if USE_EAI char *hn; hn = MXHostBuf + 1; if (!str_is_print(hn)) { const char *ahn; ahn = hn2alabel(hn); if (strlen(ahn) >= sizeof(MXHostBuf) - 1) { *rcode = EX_CONFIG; syserr("Encoded host name %s too long", shortenstring(ahn, MAXSHORTSTR)); goto error; } (void) sm_strlcpy(hn, ahn, sizeof(MXHostBuf) - 1); } # endif /* USE_EAI */ trycanon = true; mxhosts[0]++; } } } if (trycanon && (n = getcanonname(mxhosts[0], sizeof(MXHostBuf) - 2, false, pttl)) != HOST_NOTFOUND) { /* XXX MXHostBuf == "" ? is that possible? */ bp = &MXHostBuf[strlen(MXHostBuf)]; if (bp[-1] != '.') { *bp++ = '.'; *bp = '\0'; } nmx = 1; # if DANE if (tTd(8, 3)) sm_dprintf("getmxrr=%s, getcanonname=%d\n", mxhosts[0], n); if (CHK_DANE(Dane) && port >= 0) { int nrr; unsigned long flags; unsigned int cttl; if (pttl != NULL) cttl = *pttl; else if (ttl > 0) cttl = ttl; else cttl = SM_DEFAULT_TTL; flags = TLSAFLNEW; if (ad && HOST_SECURE == n) { flags |= TLSAFLADMX; if (pad != NULL) *pad = ad; } if (TTD(8, 20)) sm_dprintf("getmxrr: 3: host=%s, mx=%s, flags=%#lx, ad=%d\n", host, mxhosts[0], flags, ad); nrr = gettlsa(mxhosts[0], NULL, NULL, flags, cttl, port); /* ** Only check qname if no TLSA RRs were found ** XXX: what about (temp) DNS errors? */ if (0 == nrr && '\0' != qname[0] && strcmp(qname, mxhosts[0])) { gettlsa(qname, mxhosts[0], NULL, flags, cttl, port); if (tTd(8, 20)) sm_dprintf("getmxrr: 4: host=%s, qname=%s, flags=%#lx\n", host, qname, flags); /* XXX is this the right ad flag? */ } } # endif } } /* if we have a default lowest preference, include that */ if (fallbackMX != NULL && !seenlocal) { /* TODO: DNSSEC status of fallbacks */ nmx = fallbackmxrr(nmx, prefs, mxhosts); } done: # if DANE _res.options = old_options; # endif return nmx; error: # if DANE _res.options = old_options; # endif return -1; } /* ** MXRAND -- create a randomizer for equal MX preferences ** ** If two MX hosts have equal preferences we want to randomize ** the selection. But in order for signatures to be the same, ** we need to randomize the same way each time. This function ** computes a pseudo-random hash function from the host name. ** ** Parameters: ** host -- the name of the host. ** ** Returns: ** A random but repeatable value based on the host name. */ static int mxrand(host) register char *host; { int hfunc; static unsigned int seed; if (seed == 0) { seed = (int) curtime() & 0xffff; if (seed == 0) seed++; } if (tTd(17, 9)) sm_dprintf("mxrand(%s)", host); hfunc = seed; while (*host != '\0') { int c = *host++; if (isascii(c) && isupper(c)) c = tolower(c); hfunc = ((hfunc << 1) ^ c) % 2003; } hfunc &= 0xff; hfunc++; if (tTd(17, 9)) sm_dprintf(" = %d\n", hfunc); return hfunc; } /* ** BESTMX -- find the best MX for a name ** ** This is really a hack, but I don't see any obvious way ** to generalize it at the moment. */ /* ARGSUSED3 */ char * bestmx_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { int nmx; int saveopts = _res.options; int i; ssize_t len = 0; char *result; char *mxhosts[MAXMXHOSTS + 1]; # if _FFR_BESTMX_BETTER_TRUNCATION char *buf; # else char *p; char buf[PSBUFSIZE / 2]; # endif _res.options &= ~(RES_DNSRCH|RES_DEFNAMES); nmx = getmxrr(name, mxhosts, NULL, 0, statp, NULL, -1, NULL); _res.options = saveopts; if (nmx <= 0) return NULL; if (bitset(MF_MATCHONLY, map->map_mflags)) return map_rewrite(map, name, strlen(name), NULL); if ((map->map_coldelim == '\0') || (nmx == 1)) return map_rewrite(map, mxhosts[0], strlen(mxhosts[0]), av); /* ** We were given a -z flag (return all MXs) and there are multiple ** ones. We need to build them all into a list. */ # if _FFR_BESTMX_BETTER_TRUNCATION for (i = 0; i < nmx; i++) { if (strchr(mxhosts[i], map->map_coldelim) != NULL) { syserr("bestmx_map_lookup: MX host %.64s includes map delimiter character 0x%02X", mxhosts[i], map->map_coldelim); return NULL; } len += strlen(mxhosts[i]) + 1; if (len < 0) { len -= strlen(mxhosts[i]) + 1; break; } } buf = (char *) sm_malloc(len); if (buf == NULL) { *statp = EX_UNAVAILABLE; return NULL; } *buf = '\0'; for (i = 0; i < nmx; i++) { int end; end = sm_strlcat(buf, mxhosts[i], len); if (i != nmx && end + 1 < len) { buf[end] = map->map_coldelim; buf[end + 1] = '\0'; } } /* Cleanly truncate for rulesets */ truncate_at_delim(buf, PSBUFSIZE / 2, map->map_coldelim); # else /* _FFR_BESTMX_BETTER_TRUNCATION */ p = buf; for (i = 0; i < nmx; i++) { size_t slen; if (strchr(mxhosts[i], map->map_coldelim) != NULL) { syserr("bestmx_map_lookup: MX host %.64s includes map delimiter character 0x%02X", mxhosts[i], map->map_coldelim); return NULL; } slen = strlen(mxhosts[i]); if (len + slen + 2 > sizeof(buf)) break; if (i > 0) { *p++ = map->map_coldelim; len++; } (void) sm_strlcpy(p, mxhosts[i], sizeof(buf) - len); p += slen; len += slen; } # endif /* _FFR_BESTMX_BETTER_TRUNCATION */ result = map_rewrite(map, buf, len, av); # if _FFR_BESTMX_BETTER_TRUNCATION sm_free(buf); # endif return result; } /* ** DNS_GETCANONNAME -- get the canonical name for named host using DNS ** ** This algorithm tries to be smart about wildcard MX records. ** This is hard to do because DNS doesn't tell is if we matched ** against a wildcard or a specific MX. ** ** We always prefer A & CNAME records, since these are presumed ** to be specific. ** ** If we match an MX in one pass and lose it in the next, we use ** the old one. For example, consider an MX matching *.FOO.BAR.COM. ** A hostname bletch.foo.bar.com will match against this MX, but ** will stop matching when we try bletch.bar.com -- so we know ** that bletch.foo.bar.com must have been right. This fails if ** there was also an MX record matching *.BAR.COM, but there are ** some things that just can't be fixed. ** ** Parameters: ** host -- a buffer containing the name of the host. ** This is a value-result parameter. ** hbsize -- the size of the host buffer. ** trymx -- if set, try MX records as well as A and CNAME. ** statp -- pointer to place to store status. ** pttl -- pointer to return TTL (can be NULL). ** ** Returns: ** >0 -- if the host was found. ** 0 -- otherwise. */ int dns_getcanonname(host, hbsize, trymx, statp, pttl) char *host; int hbsize; bool trymx; int *statp; int *pttl; { register unsigned char *eom, *ap; register char *cp; register int n; HEADER *hp; querybuf answer; int ancount, qdcount, ret, type, qtype, initial, loopcnt, ttl, sli; char **domain; char *dp; char *mxmatch; bool amatch, gotmx, ad; char nbuf[SM_MAX(MAXPACKET, MAXDNAME*2+2)]; # if DNSSEC_TEST # define ADDSL 1 /* NameSearchList may add another entry to searchlist! */ # else # define ADDSL 0 # endif char *searchlist[MAXDNSRCH + 2 + ADDSL]; # define SLSIZE SM_ARRAY_SIZE(searchlist) int (*resqdomain) __P((const char *, const char *, int, int, unsigned char *, int)); # if DANE unsigned long old_options = 0; # endif ttl = 0; gotmx = false; ad = true; if (tTd(8, 2)) sm_dprintf("dns_getcanonname(%s, trymx=%d)\n", host, trymx); if ((_res.options & RES_INIT) == 0 && res_init() == -1) { *statp = EX_UNAVAILABLE; return HOST_NOTFOUND; } # if DANE old_options = _res.options; if (DANE_SECURE == Dane) _res.options |= SM_RES_DNSSEC; # endif *statp = EX_OK; resqdomain = res_querydomain; # if DNSSEC_TEST if (tTd(8, 110)) resqdomain = tstdns_querydomain; # endif /* ** Initialize domain search list. If there is at least one ** dot in the name, search the unmodified name first so we ** find "vse.CS" in Czechoslovakia instead of in the local ** domain (e.g., vse.CS.Berkeley.EDU). Note that there is no ** longer a country named Czechoslovakia but this type of problem ** is still present. ** ** Older versions of the resolver could create this ** list by tearing apart the host name. */ loopcnt = 0; cnameloop: /* Check for dots in the name */ for (cp = host, n = 0; *cp != '\0'; cp++) if (*cp == '.') n++; /* ** Build the search list. ** If there is at least one dot in name, start with a null ** domain to search the unmodified name first. ** If name does not end with a dot and search up local domain ** tree desired, append each local domain component to the ** search list; if name contains no dots and default domain ** name is desired, append default domain name to search list; ** else if name ends in a dot, remove that dot. */ sli = 0; if (n > 0) searchlist[sli++] = ""; # if DNSSEC_TEST if (NameSearchList != NULL) { SM_ASSERT(sli < SLSIZE); searchlist[sli++] = NameSearchList; } # endif if (n >= 0 && *--cp != '.' && bitset(RES_DNSRCH, _res.options)) { /* make sure there are less than MAXDNSRCH domains */ for (domain = RES_DNSRCH_VARIABLE, ret = 0; *domain != NULL && ret < MAXDNSRCH && sli < SLSIZE; ret++) searchlist[sli++] = *domain++; } else if (n == 0 && bitset(RES_DEFNAMES, _res.options)) { SM_ASSERT(sli < SLSIZE); searchlist[sli++] = _res.defdname; } else if (*cp == '.') { *cp = '\0'; } SM_ASSERT(sli < SLSIZE); searchlist[sli] = NULL; /* ** Now loop through the search list, appending each domain in turn ** name and searching for a match. */ mxmatch = NULL; initial = T_A; # if NETINET6 if (InetMode == AF_INET6) initial = T_AAAA; # endif qtype = initial; for (sli = 0; sli < SLSIZE; ) { dp = searchlist[sli]; if (NULL == dp) break; if (qtype == initial) gotmx = false; if (tTd(8, 5)) sm_dprintf("dns_getcanonname: trying %s.%s (%s)\n", host, dp, # if NETINET6 qtype == T_AAAA ? "AAAA" : # endif qtype == T_A ? "A" : qtype == T_MX ? "MX" : "???"); errno = 0; hp = (HEADER *) &answer; ret = (*resqdomain)(host, dp, C_IN, qtype, answer.qb2, sizeof(answer.qb2)); if (ret <= 0) { int save_errno = errno; if (tTd(8, 7)) sm_dprintf("\tNO: errno=%d, h_errno=%d\n", save_errno, h_errno); if (save_errno == ECONNREFUSED || h_errno == TRY_AGAIN) { /* ** the name server seems to be down or broken. */ SM_SET_H_ERRNO(TRY_AGAIN); if (*dp == '\0') { if (*statp == EX_OK) *statp = EX_TEMPFAIL; goto nexttype; } *statp = EX_TEMPFAIL; if (WorkAroundBrokenAAAA) { /* ** Only return if not TRY_AGAIN as an ** attempt with a different qtype may ** succeed (res_querydomain() calls ** res_query() calls res_send() which ** sets errno to ETIMEDOUT if the ** nameservers could be contacted but ** didn't give an answer). */ if (save_errno != ETIMEDOUT) goto error; } else goto error; } nexttype: if (h_errno != HOST_NOT_FOUND) { /* might have another type of interest */ # if NETINET6 if (qtype == T_AAAA) { qtype = T_A; continue; } else # endif /* NETINET6 */ if (qtype == T_A && !gotmx && (trymx || *dp == '\0')) { qtype = T_MX; continue; } } /* definite no -- try the next domain */ sli++; qtype = initial; continue; } else if (tTd(8, 7)) sm_dprintf("\tYES\n"); /* avoid problems after truncation in tcp packets */ if (ret > sizeof(answer)) ret = sizeof(answer); SM_ASSERT(ret >= 0); /* ** Appear to have a match. Confirm it by searching for A or ** CNAME records. If we don't have a local domain ** wild card MX record, we will accept MX as well. */ ap = (unsigned char *) &answer + HFIXEDSZ; eom = (unsigned char *) &answer + ret; if (0 == hp->ad) ad = false; /* skip question part of response -- we know what we asked */ for (qdcount = ntohs((unsigned short) hp->qdcount); qdcount--; ap += ret + QFIXEDSZ) { if ((ret = dn_skipname(ap, eom)) < 0) { if (tTd(8, 20)) sm_dprintf("qdcount failure (%d)\n", ntohs((unsigned short) hp->qdcount)); *statp = EX_SOFTWARE; goto error; } } amatch = false; for (ancount = ntohs((unsigned short) hp->ancount); --ancount >= 0 && ap < eom; ap += n) { n = dn_expand((unsigned char *) &answer, eom, ap, (RES_UNC_T) nbuf, sizeof(nbuf)); if (n < 0) break; ap += n; GETSHORT(type, ap); ap += INT16SZ; /* skip over class */ GETLONG(ttl, ap); GETSHORT(n, ap); /* rdlength */ switch (type) { case T_MX: gotmx = true; if (*dp != '\0' && HasWildcardMX) { /* ** If we are using MX matches and have ** not yet gotten one, save this one ** but keep searching for an A or ** CNAME match. */ if (trymx && mxmatch == NULL) mxmatch = dp; continue; } /* ** If we did not append a domain name, this ** must have been a canonical name to start ** with. Even if we did append a domain name, ** in the absence of a wildcard MX this must ** still be a real MX match. ** Such MX matches are as good as an A match, ** fall through. */ /* FALLTHROUGH */ # if NETINET6 case T_AAAA: # endif case T_A: /* Flag that a good match was found */ amatch = true; /* continue in case a CNAME also exists */ continue; case T_CNAME: if (DontExpandCnames) { /* got CNAME -- guaranteed canonical */ amatch = true; break; } if (loopcnt++ > MAXCNAMEDEPTH) { /*XXX should notify postmaster XXX*/ message("DNS failure: CNAME loop for %s", host); if (CurEnv->e_message == NULL) { char ebuf[MAXLINE]; (void) sm_snprintf(ebuf, sizeof(ebuf), "Deferred: DNS failure: CNAME loop for %.100s", host); CurEnv->e_message = sm_rpool_strdup_x( CurEnv->e_rpool, ebuf); } SM_SET_H_ERRNO(NO_RECOVERY); *statp = EX_CONFIG; goto error; } /* value points at name */ if ((ret = dn_expand((unsigned char *)&answer, eom, ap, (RES_UNC_T) nbuf, sizeof(nbuf))) < 0) break; (void) sm_strlcpy(host, nbuf, hbsize); /* ** RFC 1034 section 3.6 specifies that CNAME ** should point at the canonical name -- but ** urges software to try again anyway. */ goto cnameloop; default: /* not a record of interest */ continue; } } if (amatch) { /* ** Got a good match -- either an A, CNAME, or an ** exact MX record. Save it and get out of here. */ mxmatch = dp; break; } /* ** Nothing definitive yet. ** If this was a T_A query and we haven't yet found a MX ** match, try T_MX if allowed to do so. ** Otherwise, try the next domain. */ # if NETINET6 if (qtype == T_AAAA) qtype = T_A; else # endif if (qtype == T_A && !gotmx && (trymx || *dp == '\0')) qtype = T_MX; else { qtype = initial; sli++; } } /* if nothing was found, we are done */ if (mxmatch == NULL) { if (*statp == EX_OK) *statp = EX_NOHOST; goto error; } /* ** Create canonical name and return. ** If saved domain name is null, name was already canonical. ** Otherwise append the saved domain name. */ (void) sm_snprintf(nbuf, sizeof(nbuf), "%.*s%s%.*s", MAXDNAME, host, *mxmatch == '\0' ? "" : ".", MAXDNAME, mxmatch); (void) sm_strlcpy(host, nbuf, hbsize); if (tTd(8, 5)) sm_dprintf("dns_getcanonname: %s\n", host); *statp = EX_OK; /* return only one TTL entry, that should be sufficient */ if (ttl > 0 && pttl != NULL) *pttl = ttl; # if DANE _res.options = old_options; # endif return ad ? HOST_SECURE : HOST_OK; error: # if DANE _res.options = old_options; # endif return HOST_NOTFOUND; } #endif /* NAMED_BIND */ sendmail-8.18.1/sendmail/TRACEFLAGS0000644000372400037240000000703314556365350016124 0ustar xbuildxbuild# $Id: TRACEFLAGS,v 8.53 2013-11-27 01:27:03 gshapiro Exp $ 0, 4 main.c main canonical name, UUCP node name, a.k.a.s 0, 15 main.c main print configuration 0, 44 util.c printav print address of each string 0, 101 main.c main print version and exit 1 main.c main print from person 2 main.c finis 3 conf.c getla, shouldqueue 4 conf.c enoughspace 5 clock.c setevent, clrevent, tick 6 savemail.c savemail, returntosender 7 queue.c queuename 8 domain.c getmxrr, getcanonname 9 daemon.c getauthinfo IDENT protocol 9 daemon.c maphostname 10 deliver.c deliver 11 deliver.c openmailer, mailfile 12 parseaddr.c remotename 13 deliver.c sendall, sendenvelope 14 headers.c commaize 15 daemon.c getrequests 16 daemon.c makeconnection 17 deliver.c hostsignature 17 domain.c mxrand 18 usersmtp.c reply, smtpmessage, smtpinit, smtpmailfrom, smtpdata 19 srvrsmtp.c smtp 20 parseaddr.c parseaddr 21 parseaddr.c rewrite 22 parseaddr.c prescan 23 main.c testmodeline 24 parseaddr.c buildaddr, allocaddr 25 recipient.c sendtolist 26 recipient.c recipient 27 alias.c alias 27 alias.c readaliases 27 alias.c forward 27 recipient.c include 28 udb.c udbexpand, udbsender 29 parseaddr.c maplocaluser 29 recipient.c recipient (local users), finduser 30 collect.c collect 30 collect.c eatfrom 31 headers.c chompheader 32 headers.c eatheader 33 headers.c crackaddr 34 headers.c putheader 35 macro.c expand, define 36 stab.c stab 37 readcf.c (many) 38 map.c initmaps, setupmaps (bogus map) 39 map.c map_rewrite 40 queue.c queueup, orderq, dowork 41 queue.c orderq 42 mci.c mci_get 43 mime.c mime8to7 44 recipient.c writable 44 safefile.c safefile, safedirpath, filechanged 45 envelope.c setsender 46 envelope.c openxscript 47 main.c drop_privileges 48 parseaddr.c rscheck 48 conf.c validate_connection 49 conf.c checkcompat 50 envelope.c dropenvelope 51 queue.c unlockqueue 52 main.c disconnect 53 util.c xfclose 54 err.c putoutmsg 55 conf.c lockfile 56 mci.c persistent host status 57 util.c snprintf 58 bf.c bf* routines 59 parseaddr.c cataddr 60 parseaddr.c map_lookup 61 conf.c sm_gethostbyname 62 multiple file descriptor checking 63 queue.c runqueue process watching 64 multiple Milter 65 main.c permission checks #if DANE 66,>99 domain.c force port=25 for TLSA RR lookups #endif 68 unused #if _FFR_QUEUE_SCHED_DBG 69 queue.c scheduling #endif 70 queue.c quarantining 71,>99 milter.c quarantine on errors 72 unused 73 queue.c shared memory updates 74,>99 map.c LDAP map defer #if _FFR_XCNCT 75 debug FFR_XC* #endif #if _FFR_TESTS 76,>99 queue.c run_work_group: sleep 77,>99 daemon.c change delivery host/port 78,>99 queue.c generate 15 char queue ids 79,>99 alias.c rebuild aliases: sleep #endif 80 content length 81 sun remote mode 82,>99 parseaddr.c disable clearing bit 8 on addresses 83 collect.c timeout 84 deliver.c timeout 85 map.c dprintf map #if _FFR_TESTS 86,>99 milter.c macro tests #endif #if _FFR_PROXY 87 srvrsmtp.c proxy mode #endif 88,>99 tls.c disable the effect of _FFR_VRFY_TRUSTED_FIRST 89 conf.c >=8 use sm_dprintf() instead of syslog() #if _FFR_TESTS 90,>99 tls.c deliver.c Simulate error for OpenSSL functions related to DANE #endif 91 mci.c syslogging of MCI cache information 92 EF_LOGSENDER 93,>99 * Prevent daemon connection fork for profiling/debugging 94,>99 srvrsmtp.c cause commands to fail (for protocol testing) 95 srvrsmtp.c AUTH 95 usersmtp.c AUTH 96 tls.c DHparam info, activate SSL_CTX_set_info_callback(), etc 97 srvrsmtp.c Trace automode settings for I/O #if _FFR_TIMERS 98 * timers #endif 99 main.c avoid backgrounding (no printed output) sendmail-8.18.1/sendmail/mailq.00000644000372400037240000000747714556365426015772 0ustar xbuildxbuildMAILQ(1) MAILQ(1) NNAAMMEE mailq - print the mail queue SSYYNNOOPPSSIISS mmaaiillqq [--AAcc] [--qq......] [--vv] DDEESSCCRRIIPPTTIIOONN MMaaiillqq prints a summary of the mail messages queued for future delivery. The first line printed for each message shows the internal identifier used on this host for the message with a possible status character, the size of the message in bytes, the date and time the message was accepted into the queue, and the envelope sender of the message. The second line shows the error message that caused this message to be retained in the queue; it will not be present if the message is being processed for the first time. The status characters are either ** to indicate the job is being processed; XX to indicate that the load is too high to process the job; and -- to indicate that the job is too young to process. The following lines show message recipients, one per line. MMaaiillqq is identical to ``sendmail -bp''. The relevant options are as follows: --AAcc Show the mail submission queue specified in _/_e_t_c_/_m_a_i_l_/_s_u_b_m_i_t_._c_f instead of the MTA queue specified in _/_e_t_c_/_m_a_i_l_/_s_e_n_d_m_a_i_l_._c_f. --qqLL Show the "lost" items in the mail queue instead of the normal queue items. --qqQQ Show the quarantined items in the mail queue instead of the nor- mal queue items. --qq[_!]I substr Limit processed jobs to those containing _s_u_b_s_t_r as a substring of the queue id or not when _! is specified. --qq[_!]Q substr Limit processed jobs to quarantined jobs containing _s_u_b_s_t_r as a substring of the quarantine reason or not when _! is specified. --qq[_!]R substr Limit processed jobs to those containing _s_u_b_s_t_r as a substring of one of the recipients or not when _! is specified. --qq[_!]S substr Limit processed jobs to those containing _s_u_b_s_t_r as a substring of the sender or not when _! is specified. --vv Print verbose information. This adds the priority of the mes- sage and a single character indicator (``+'' or blank) indicat- ing whether a warning message has been sent on the first line of the message. Additionally, extra lines may be intermixed with the recipients indicating the ``controlling user'' information; this shows who will own any programs that are executed on behalf of this message and the name of the alias this command expanded from, if any. Moreover, status messages for each recipient are printed if available. Several sendmail.cf options influence the behavior of the mmaaiillqq util- ity: The number of items printed per queue group is restricted by MMaaxxQQuueeuueeRRuunnSSiizzee if that value is set. The status character ** is not printed for some values of QQuueeuueeSSoorrttOOrrddeerr,, e.g., filename, random, mod- ification, and none, unless a --qq option is used to limit the processed jobs. The mmaaiillqq utility exits 0 on success, and >0 if an error occurs. SSEEEE AALLSSOO sendmail(8) HHIISSTTOORRYY The mmaaiillqq command appeared in 4.0BSD. $Date: 2013-11-22 20:51:55 $ MAILQ(1) sendmail-8.18.1/sendmail/statusd_shm.h0000644000372400037240000000166114556365350017276 0ustar xbuildxbuild/* * Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: statusd_shm.h,v 8.8 2013-11-22 20:51:57 ca Exp $ * * Contributed by Exactis.com, Inc. * */ /* ** The shared memory part of statusd. ** ** Attach to STATUSD_SHM_KEY and update the counter appropriate ** for your type of service. ** */ #define STATUSD_MAGIC 110946 #define STATUSD_SHM_KEY (key_t)(13) #define STATUSD_LONGS (2) typedef struct { unsigned long magic; unsigned long ul[STATUSD_LONGS]; } STATUSD_SHM; /* ** Offsets into ul[]. The appropriate program ** increments these as appropriate. */ #define STATUSD_COOKIE (0) /* reregister cookie */ /* sendmail */ #define STATUSD_SM_NSENDMAIL (1) /* how many running */ extern void shmtick __P((int, int)); sendmail-8.18.1/sendmail/sendmail.00000644000372400037240000005427314556365426016457 0ustar xbuildxbuildSENDMAIL(8) SENDMAIL(8) NNAAMMEE sendmail - an electronic mail transport agent SSYYNNOOPPSSIISS sseennddmmaaiill [_f_l_a_g_s] [_a_d_d_r_e_s_s _._._.] nneewwaalliiaasseess mmaaiillqq [--vv] hhoossttssttaatt ppuurrggeessttaatt ssmmttppdd DDEESSCCRRIIPPTTIIOONN SSeennddmmaaiill sends a message to one or more _r_e_c_i_p_i_e_n_t_s_, routing the message over whatever networks are necessary. SSeennddmmaaiill does internetwork for- warding as necessary to deliver the message to the correct place. SSeennddmmaaiill is not intended as a user interface routine; other programs provide user-friendly front ends; sseennddmmaaiill is used only to deliver pre- formatted messages. With no flags, sseennddmmaaiill reads its standard input up to an end-of-file or a line consisting only of a single dot and sends a copy of the mes- sage found there to all of the addresses listed. It determines the network(s) to use based on the syntax and contents of the addresses. Local addresses are looked up in a file and aliased appropriately. Aliasing can be prevented by preceding the address with a backslash. Beginning with 8.10, the sender is included in any alias expansions, e.g., if `john' sends to `group', and `group' includes `john' in the expansion, then the letter will also be delivered to `john'. PPaarraammeetteerrss --AAcc Use submit.cf even if the operation mode does not indicate an initial mail submission. --AAmm Use sendmail.cf even if the operation mode indicates an initial mail submission. --BB_t_y_p_e Set the body type to _t_y_p_e. Current legal values are 7BIT or 8BITMIME. --bbaa Go into ARPANET mode. All input lines must end with a CRLF, and all messages will be generated with a CRLF at the end. Also, the ``From:'' and ``Sender:'' fields are examined for the name of the sender. --bbCC Check the configuration file. --bbdd Run as a daemon. SSeennddmmaaiill will fork and run in background lis- tening on socket 25 for incoming SMTP connections. This is nor- mally run from /etc/rc. --bbDD Same as --bbdd except runs in foreground. --bbhh Print the persistent host status database. --bbHH Purge expired entries from the persistent host status database. --bbii Initialize the alias database. --bbmm Deliver mail in the usual way (default). --bbpp Print a listing of the queue(s). --bbPP Print number of entries in the queue(s); only available with shared memory support. --bbss Use the SMTP protocol as described in RFC821 on standard input and output. This flag implies all the operations of the --bbaa flag that are compatible with SMTP. --bbtt Run in address test mode. This mode reads addresses and shows the steps in parsing; it is used for debugging configuration tables. --bbvv Verify names only - do not try to collect or deliver a message. Verify mode is normally used for validating users or mailing lists. --CC_f_i_l_e Use alternate configuration file. SSeennddmmaaiill gives up any enhanced (set-user-ID or set-group-ID) privileges if an alter- nate configuration file is specified. --DD _l_o_g_f_i_l_e Send debugging output to the indicated log file instead of std- out. --dd_c_a_t_e_g_o_r_y.._l_e_v_e_l_._._. Set the debugging flag for _c_a_t_e_g_o_r_y to _l_e_v_e_l. _C_a_t_e_g_o_r_y is either an integer or a name specifying the topic, and _l_e_v_e_l an integer specifying the level of debugging output desired. Higher levels generally mean more output. More than one flag can be specified by separating them with commas. A list of numeric debugging categories can be found in the TRACEFLAGS file in the sendmail source distribution. The option --dd00..11 prints the version of sseennddmmaaiill and the options it was compiled with. Most other categories are only useful with, and documented in, sseennddmmaaiill's source code. --FF_f_u_l_l_n_a_m_e Set the full name of the sender. --ff_n_a_m_e Sets the name of the ``from'' person (i.e., the envelope sender of the mail). This address may also be used in the From: header if that header is missing during initial submission. The enve- lope sender address is used as the recipient for delivery status notifications and may also appear in a Return-Path: header. --ff should only be used by ``trusted'' users (normally _r_o_o_t, _d_a_e_m_o_n, and _n_e_t_w_o_r_k) or if the person you are trying to become is the same as the person you are. Otherwise, an X-Authentication- Warning header will be added to the message. --GG Relay (gateway) submission of a message, e.g., when rrmmaaiill calls sseennddmmaaiill .. --hh_N Set the hop count to _N. The hop count is incremented every time the mail is processed. When it reaches a limit, the mail is returned with an error message, the victim of an aliasing loop. If not specified, ``Received:'' lines in the message are counted. --ii Do not strip a leading dot from lines in incoming messages, and do not treat a dot on a line by itself as the end of an incoming message. This should be set if you are reading data from a file. --LL _t_a_g Set the identifier used in syslog messages to the supplied _t_a_g. --NN _d_s_n Set delivery status notification conditions to _d_s_n, which can be `never' for no notifications or a comma separated list of the values `failure' to be notified if delivery failed, `delay' to be notified if delivery is delayed, and `success' to be notified when the message is successfully delivered. --nn Don't do aliasing. --OO _o_p_t_i_o_n=_v_a_l_u_e Set option _o_p_t_i_o_n to the specified _v_a_l_u_e. This form uses long names. See below for more details. --oo_x _v_a_l_u_e Set option _x to the specified _v_a_l_u_e. This form uses single character names only. The short names are not described in this manual page; see the _S_e_n_d_m_a_i_l _I_n_s_t_a_l_l_a_t_i_o_n _a_n_d _O_p_e_r_a_t_i_o_n _G_u_i_d_e for details. --pp_p_r_o_t_o_c_o_l Set the name of the protocol used to receive the message. This can be a simple protocol name such as ``UUCP'' or a protocol and hostname, such as ``UUCP:ucbvax''. --qq[_t_i_m_e] Process saved messages in the queue at given intervals. If _t_i_m_e is omitted, process the queue once. _T_i_m_e is given as a tagged number, with `s' being seconds, `m' being minutes (default), `h' being hours, `d' being days, and `w' being weeks. For example, `-q1h30m' or `-q90m' would both set the timeout to one hour thirty minutes. By default, sseennddmmaaiill will run in the back- ground. This option can be used safely with --bbdd. --qqpp[_t_i_m_e] Similar to --qq_t_i_m_e, except that instead of periodically forking a child to process the queue, sendmail forks a single persistent child for each queue that alternates between processing the queue and sleeping. The sleep time is given as the argument; it defaults to 1 second. The process will always sleep at least 5 seconds if the queue was empty in the previous queue run. --qqf Process saved messages in the queue once and do not fork(), but run in the foreground. --qqG_n_a_m_e Process jobs in queue group called _n_a_m_e only. --qq[_!]I_s_u_b_s_t_r Limit processed jobs to those containing _s_u_b_s_t_r as a substring of the queue id or not when _! is specified. --qq[_!]Q_s_u_b_s_t_r Limit processed jobs to quarantined jobs containing _s_u_b_s_t_r as a substring of the quarantine reason or not when _! is specified. --qq[_!]R_s_u_b_s_t_r Limit processed jobs to those containing _s_u_b_s_t_r as a substring of one of the recipients or not when _! is specified. --qq[_!]S_s_u_b_s_t_r Limit processed jobs to those containing _s_u_b_s_t_r as a substring of the sender or not when _! is specified. --QQ[reason] Quarantine a normal queue items with the given reason or unquar- antine quarantined queue items if no reason is given. This should only be used with some sort of item matching using as described above. --RR _r_e_t_u_r_n Set the amount of the message to be returned if the message bounces. The _r_e_t_u_r_n parameter can be `full' to return the entire message or `hdrs' to return only the headers. In the latter case also local bounces return only the headers. --rr_n_a_m_e An alternate and obsolete form of the --ff flag. --tt Read message for recipients. To:, Cc:, and Bcc: lines will be scanned for recipient addresses. The Bcc: line will be deleted before transmission. --UU If a mail submission via the command line requires the use of the SSMMTTPPUUTTFF88 argument for the MMAAIILL command, e.g., because a header uses UTF-8 encoding, but the addresses on the command line are all ASCII, then this option must be used. Only avail- able if EEAAII support is enabled, and the SSMMTTPPUUTTFF88 option is set. --VV _e_n_v_i_d Set the original envelope id. This is propagated across SMTP to servers that support DSNs and is returned in DSN-compliant error messages. --vv Go into verbose mode. Alias expansions will be announced, etc. --XX _l_o_g_f_i_l_e Log all traffic in and out of mailers in the indicated log file. This should only be used as a last resort for debugging mailer bugs. It will log a lot of data very quickly. ---- Stop processing command flags and use the rest of the arguments as addresses. OOppttiioonnss There are also a number of processing options that may be set. Nor- mally these will only be used by a system administrator. Options may be set either on the command line using the --oo flag (for short names), the --OO flag (for long names), or in the configuration file. This is a partial list limited to those options that are likely to be useful on the command line and only shows the long names; for a complete list (and details), consult the _S_e_n_d_m_a_i_l _I_n_s_t_a_l_l_a_t_i_o_n _a_n_d _O_p_e_r_a_t_i_o_n _G_u_i_d_e. The options are: AliasFile=_f_i_l_e Use alternate alias file. HoldExpensive On mailers that are considered ``expensive'' to connect to, don't initiate immediate connection. This requires queueing. CheckpointInterval=_N Checkpoint the queue file after every _N successful deliveries (default 10). This avoids excessive duplicate deliveries when sending to long mailing lists interrupted by system crashes. DeliveryMode=_x Set the delivery mode to _x. Delivery modes are `i' for interac- tive (synchronous) delivery, `b' for background (asynchronous) delivery, `q' for queue only - i.e., actual delivery is done the next time the queue is run, and `d' for deferred - the same as `q' except that database lookups for maps which have set the -D option (default for the host map) are avoided. ErrorMode=_x Set error processing to mode _x. Valid modes are `m' to mail back the error message, `w' to ``write'' back the error message (or mail it back if the sender is not logged in), `p' to print the errors on the terminal (default), `q' to throw away error messages (only exit status is returned), and `e' to do special processing for the BerkNet. If the text of the message is not mailed back by modes `m' or `w' and if the sender is local to this machine, a copy of the message is appended to the file _d_e_a_d_._l_e_t_t_e_r in the sender's home directory. SaveFromLine Save UNIX-style From lines at the front of messages. MaxHopCount=_N The maximum number of times a message is allowed to ``hop'' before we decide it is in a loop. IgnoreDots Do not take dots on a line by themselves as a message termina- tor. SendMimeErrors Send error messages in MIME format. If not set, the DSN (Deliv- ery Status Notification) SMTP extension is disabled. ConnectionCacheTimeout=_t_i_m_e_o_u_t Set connection cache timeout. ConnectionCacheSize=_N Set connection cache size. LogLevel=_n The log level. MeToo=_F_a_l_s_e Don't send to ``me'' (the sender) if I am in an alias expansion. CheckAliases Validate the right hand side of aliases during a newaliases(1) command. OldStyleHeaders If set, this message may have old style headers. If not set, this message is guaranteed to have new style headers (i.e., com- mas instead of spaces between addresses). If set, an adaptive algorithm is used that will correctly determine the header for- mat in most cases. QueueDirectory=_q_u_e_u_e_d_i_r Select the directory in which to queue messages. StatusFile=_f_i_l_e Save statistics in the named file. Timeout.queuereturn=_t_i_m_e Set the timeout on undelivered messages in the queue to the specified time. After delivery has failed (e.g., because of a host being down) for this amount of time, failed messages will be returned to the sender. The default is five days. UserDatabaseSpec=_u_s_e_r_d_a_t_a_b_a_s_e If set, a user database is consulted to get forwarding informa- tion. You can consider this an adjunct to the aliasing mecha- nism, except that the database is intended to be distributed; aliases are local to a particular host. This may not be avail- able if your sendmail does not have the USERDB option compiled in. ForkEachJob Fork each job during queue runs. May be convenient on memory- poor machines. SevenBitInput Strip incoming messages to seven bits. EightBitMode=_m_o_d_e Set the handling of eight bit input to seven bit destinations to _m_o_d_e: m (mimefy) will convert to seven-bit MIME format, p (pass) will pass it as eight bits (but violates protocols), and s (strict) will bounce the message. MinQueueAge=_t_i_m_e_o_u_t Sets how long a job must ferment in the queue between attempts to send it. DefaultCharSet=_c_h_a_r_s_e_t Sets the default character set used to label 8-bit data that is not otherwise labelled. NoRecipientAction=_a_c_t_i_o_n Set the behaviour when there are no recipient headers (To:, Cc: or Bcc:) in the message to _a_c_t_i_o_n: none leaves the message unchanged, add-to adds a To: header with the envelope recipi- ents, add-apparently-to adds an Apparently-To: header with the envelope recipients, add-bcc adds an empty Bcc: header, and add- to-undisclosed adds a header reading `To: undisclosed-recipi- ents:;'. MaxDaemonChildren=_N Sets the maximum number of children that an incoming SMTP daemon will allow to spawn at any time to _N. ConnectionRateThrottle=_N Sets the maximum number of connections per second to the SMTP port to _N. In aliases, the first character of a name may be a vertical bar to cause interpretation of the rest of the name as a command to pipe the mail to. It may be necessary to quote the name to keep sseennddmmaaiill from suppressing the blanks from between arguments. For example, a common alias is: msgs: "|/usr/bin/msgs -s" Aliases may also have the syntax ``:include:_f_i_l_e_n_a_m_e'' to ask sseennddmmaaiill to read the named file for a list of recipients. For example, an alias such as: poets: ":include:/usr/local/lib/poets.list" would read _/_u_s_r_/_l_o_c_a_l_/_l_i_b_/_p_o_e_t_s_._l_i_s_t for the list of addresses making up the group. SSeennddmmaaiill returns an exit status describing what it did. The codes are defined in <_s_y_s_e_x_i_t_s_._h>: EX_OK Successful completion on all addresses. EX_NOUSER User name not recognized. EX_UNAVAILABLE Catchall meaning necessary resources were not available. EX_SYNTAX Syntax error in address. EX_SOFTWARE Internal software error, including bad arguments. EX_OSERR Temporary operating system error, such as ``cannot fork''. EX_NOHOST Host name not recognized. EX_TEMPFAIL Message could not be sent immediately, but was queued. If invoked as nneewwaalliiaasseess, sseennddmmaaiill will rebuild the alias database. If invoked as mmaaiillqq, sseennddmmaaiill will print the contents of the mail queue. If invoked as hhoossttssttaatt, sseennddmmaaiill will print the persistent host status database. If invoked as ppuurrggeessttaatt, sseennddmmaaiill will purge expired entries from the persistent host status database. If invoked as ssmmttppdd, sseenndd-- mmaaiill will act as a daemon, as if the --bbdd option were specified. NNOOTTEESS sseennddmmaaiill often gets blamed for many problems that are actually the result of other problems, such as overly permissive modes on directo- ries. For this reason, sseennddmmaaiill checks the modes on system directories and files to determine if they can be trusted. Although these checks can be turned off and your system security reduced by setting the DDoonntt-- BBllaammeeSSeennddmmaaiill option, the permission problems should be fixed. For more information, see the _S_e_n_d_m_a_i_l _I_n_s_t_a_l_l_a_t_i_o_n _a_n_d _O_p_e_r_a_t_i_o_n _G_u_i_d_e FFIILLEESS Except for the file _/_e_t_c_/_m_a_i_l_/_s_e_n_d_m_a_i_l_._c_f itself the following path- names are all specified in _/_e_t_c_/_m_a_i_l_/_s_e_n_d_m_a_i_l_._c_f. Thus, these values are only approximations. /etc/mail/aliases raw data for alias names /etc/mail/aliases.db data base of alias names /etc/mail/sendmail.cf configuration file /etc/mail/helpfile help file /etc/mail/statistics collected statistics /var/spool/mqueue/* temp files SSEEEE AALLSSOO binmail(1), mail(1), rmail(1), syslog(3), aliases(5), mailaddr(7), rc(8) DARPA Internet Request For Comments _R_F_C_8_1_9, _R_F_C_8_2_1, _R_F_C_8_2_2. _S_e_n_d_m_a_i_l _I_n_s_t_a_l_l_a_t_i_o_n _a_n_d _O_p_e_r_a_t_i_o_n _G_u_i_d_e, No. 8, SMM. http://www.sendmail.org/ US Patent Numbers 6865671, 6986037. HHIISSTTOORRYY The sseennddmmaaiill command appeared in 4.2BSD. $Date: 2013-11-22 20:51:56 $ SENDMAIL(8) sendmail-8.18.1/sendmail/stab.c0000644000372400037240000002220014556365350015654 0ustar xbuildxbuild/* * Copyright (c) 1998-2001, 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: stab.c,v 8.92 2013-11-22 20:51:56 ca Exp $") #include #if USE_EAI # include #endif #if DANE # include #endif /* ** STAB -- manage the symbol table ** ** Parameters: ** name -- the name to be looked up or inserted. ** type -- the type of symbol. ** op -- what to do: ** ST_ENTER -- enter the name if not already present. ** ST_FIND -- find it only. ** ** Returns: ** pointer to a STAB entry for this name. ** NULL if not found and not entered. ** ** Side Effects: ** can update the symbol table. */ #define STABSIZE 2003 #define SM_LOWER(c) ((isascii(c) && isupper(c)) ? tolower(c) : (c)) static STAB *SymTab[STABSIZE]; STAB * stab(name, type, op) char *name; int type; int op; { register STAB *s; register STAB **ps; register int hfunc; register char *p; int len; if (tTd(36, 5)) sm_dprintf("STAB: %s %d ", name, type); /* ** Compute the hashing function */ hfunc = type; #if USE_EAI if (!addr_is_ascii(name)) { char *lower, *cstr; lower = sm_lowercase(name); for (cstr = lower; *cstr != '\0'; cstr++) hfunc = ((hfunc << 1) ^ ((*cstr) & 0377)) % STABSIZE; } else #endif /* "else" in #if code above */ { for (p = name; *p != '\0'; p++) hfunc = ((hfunc << 1) ^ (SM_LOWER(*p) & 0377)) % STABSIZE; } if (tTd(36, 9)) sm_dprintf("(hfunc=%d) ", hfunc); ps = &SymTab[hfunc]; if (type == ST_MACRO || type == ST_RULESET || type == ST_NAMECANON) { while ((s = *ps) != NULL && (s->s_symtype != type || strcmp(name, s->s_name))) ps = &s->s_next; } else { while ((s = *ps) != NULL && (s->s_symtype != type || !SM_STRCASEEQ(name, s->s_name))) ps = &s->s_next; } /* ** Dispose of the entry. */ if (s != NULL || op == ST_FIND) { if (tTd(36, 5)) { if (s == NULL) sm_dprintf("not found\n"); else { long *lp = (long *) s->s_class; sm_dprintf("type %d val %lx %lx %lx %lx\n", s->s_symtype, lp[0], lp[1], lp[2], lp[3]); } } return s; } /* ** Make a new entry and link it in. */ if (tTd(36, 5)) sm_dprintf("entered\n"); /* determine size of new entry */ switch (type) { case ST_CLASS: len = sizeof(s->s_class); break; case ST_MAILER: len = sizeof(s->s_mailer); break; case ST_ALIAS: len = sizeof(s->s_alias); break; case ST_MAPCLASS: len = sizeof(s->s_mapclass); break; case ST_MAP: len = sizeof(s->s_map); break; case ST_HOSTSIG: len = sizeof(s->s_hostsig); break; case ST_NAMECANON: len = sizeof(s->s_namecanon); break; case ST_MACRO: len = sizeof(s->s_macro); break; case ST_RULESET: len = sizeof(s->s_ruleset); break; case ST_HEADER: len = sizeof(s->s_header); break; case ST_SERVICE: len = sizeof(s->s_service); break; #if LDAPMAP case ST_LMAP: len = sizeof(s->s_lmap); break; #endif #if MILTER case ST_MILTER: len = sizeof(s->s_milter); break; #endif case ST_QUEUE: len = sizeof(s->s_quegrp); break; #if SOCKETMAP case ST_SOCKETMAP: len = sizeof(s->s_socketmap); break; #endif #if DANE case ST_TLSA_RR: len = sizeof(s->s_tlsa); break; #endif #if _FFR_DYN_CLASS case ST_DYNMAP: len = sizeof(s->s_dynclass); break; #endif default: /* ** Each mailer has its own MCI stab entry: ** ** s = stab(host, ST_MCI + m->m_mno, ST_ENTER); ** ** Therefore, anything ST_MCI or larger is an s_mci. */ if (type >= ST_MCI) len = sizeof(s->s_mci); else { syserr("stab: unknown symbol type %d", type); len = sizeof(s->s_value); } break; } len += sizeof(*s) - sizeof(s->s_value); if (tTd(36, 15)) sm_dprintf("size of stab entry: %d\n", len); /* make new entry */ s = (STAB *) sm_pmalloc_x(len); memset((char *) s, '\0', len); s->s_name = sm_pstrdup_x(name); s->s_symtype = type; /* link it in */ *ps = s; /* set a default value for rulesets */ if (type == ST_RULESET) s->s_ruleset = -1; return s; } /* ** STABAPPLY -- apply function to all stab entries ** ** Parameters: ** func -- the function to apply. It will be given two ** parameters (the stab entry and the arg). ** arg -- an arbitrary argument, passed to func. ** ** Returns: ** none. */ void stabapply(func, arg) void (*func)__P((STAB *, int)); int arg; { register STAB **shead; register STAB *s; for (shead = SymTab; shead < &SymTab[STABSIZE]; shead++) { for (s = *shead; s != NULL; s = s->s_next) { if (tTd(36, 90)) sm_dprintf("stabapply: trying %d/%s\n", s->s_symtype, s->s_name); func(s, arg); } } } /* ** QUEUEUP_MACROS -- queueup the macros in a class ** ** Write the macros listed in the specified class into the ** file referenced by qfp. ** ** Parameters: ** class -- class ID. ** qfp -- file pointer to the queue file. ** e -- the envelope. ** ** Returns: ** none. */ void queueup_macros(class, qfp, e) int class; SM_FILE_T *qfp; ENVELOPE *e; { register STAB **shead; register STAB *s; if (e == NULL) return; class = bitidx(class); for (shead = SymTab; shead < &SymTab[STABSIZE]; shead++) { for (s = *shead; s != NULL; s = s->s_next) { int m; char *p; if (s->s_symtype == ST_CLASS && bitnset(bitidx(class), s->s_class) && (m = macid(s->s_name)) != 0 && (p = macvalue(m, e)) != NULL) { (void) sm_io_fprintf(qfp, SM_TIME_DEFAULT, "$%s%s\n", s->s_name, denlstring(p, true, false)); } } } } /* ** COPY_CLASS -- copy class members from one class to another ** ** Parameters: ** src -- source class. ** dst -- destination class. ** ** Returns: ** none. */ void copy_class(src, dst) int src; int dst; { register STAB **shead; register STAB *s; src = bitidx(src); dst = bitidx(dst); for (shead = SymTab; shead < &SymTab[STABSIZE]; shead++) { for (s = *shead; s != NULL; s = s->s_next) { if (s->s_symtype == ST_CLASS && bitnset(src, s->s_class)) setbitn(dst, s->s_class); } } } /* ** RMEXPSTAB -- remove expired entries from SymTab. ** ** These entries need to be removed in long-running processes, ** e.g., persistent queue runners, to avoid consuming memory. ** ** XXX It might be useful to restrict the maximum TTL to avoid ** caching data very long. ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** can remove entries from the symbol table. */ #define SM_STAB_FREE(x) \ do \ { \ char *o = (x); \ (x) = NULL; \ if (o != NULL) \ sm_free(o); \ } while (0) void rmexpstab() { int i; STAB *s, *p, *f; time_t now; now = curtime(); for (i = 0; i < STABSIZE; i++) { p = NULL; s = SymTab[i]; while (s != NULL) { switch (s->s_symtype) { case ST_HOSTSIG: if (s->s_hostsig.hs_exp >= now) goto next; /* not expired */ SM_STAB_FREE(s->s_hostsig.hs_sig); /* XXX */ break; case ST_NAMECANON: if (s->s_namecanon.nc_exp >= now) goto next; /* not expired */ SM_STAB_FREE(s->s_namecanon.nc_cname); /* XXX */ break; #if DANE case ST_TLSA_RR: if (s->s_tlsa->dane_tlsa_exp >= now) goto next; /* not expired */ (void) dane_tlsa_free(s->s_tlsa); s->s_tlsa = NULL; break; #endif /* DANE */ default: if (s->s_symtype >= ST_MCI) { /* call mci_uncache? */ SM_STAB_FREE(s->s_mci.mci_status); SM_STAB_FREE(s->s_mci.mci_rstatus); SM_STAB_FREE(s->s_mci.mci_heloname); #if 0 /* not dynamically allocated */ SM_STAB_FREE(s->s_mci.mci_host); SM_STAB_FREE(s->s_mci.mci_tolist); #endif /* 0 */ #if SASL /* should always by NULL */ SM_STAB_FREE(s->s_mci.mci_sasl_string); #endif if (s->s_mci.mci_rpool != NULL) { sm_rpool_free(s->s_mci.mci_rpool); s->s_mci.mci_macro.mac_rpool = NULL; s->s_mci.mci_rpool = NULL; } break; } next: p = s; s = s->s_next; continue; } /* remove entry */ SM_STAB_FREE(s->s_name); /* XXX */ f = s; s = s->s_next; sm_free(f); /* XXX */ if (p == NULL) SymTab[i] = s; else p->s_next = s; } } } #if SM_HEAP_CHECK /* ** DUMPSTAB -- dump symbol table. ** ** For debugging. */ #define MAXSTTYPES (ST_MCI + 1) void dumpstab() { int i, t, total, types[MAXSTTYPES]; STAB *s; static int prevt[MAXSTTYPES], prev = 0; total = 0; for (i = 0; i < MAXSTTYPES; i++) types[i] = 0; for (i = 0; i < STABSIZE; i++) { s = SymTab[i]; while (s != NULL) { ++total; t = s->s_symtype; if (t > MAXSTTYPES - 1) t = MAXSTTYPES - 1; types[t]++; s = s->s_next; } } sm_syslog(LOG_INFO, NOQID, "stab: total=%d (%d)", total, total - prev); prev = total; for (i = 0; i < MAXSTTYPES; i++) { if (types[i] != 0) { sm_syslog(LOG_INFO, NOQID, "stab: type[%2d]=%2d (%d)", i, types[i], types[i] - prevt[i]); } prevt[i] = types[i]; } } #endif /* SM_HEAP_CHECK */ sendmail-8.18.1/sendmail/sm_resolve.h0000644000372400037240000001235414556365350017117 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ /* * Copyright (c) 1995, 1996, 1997, 1998, 1999 Kungliga Tekniska Hgskolan * (Royal Institute of Technology, Stockholm, Sweden). * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * 3. Neither the name of the Institute nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ /* $Id: sm_resolve.h,v 8.9 2013-11-22 20:51:56 ca Exp $ */ #ifndef SM_RESOLVE_H #define SM_RESOLVE_H #if DNSMAP || DANE /* We use these, but they are not always present in */ # ifndef T_TXT # define T_TXT 16 # endif # ifndef T_AFSDB # define T_AFSDB 18 # endif # ifndef T_SRV # define T_SRV 33 # endif # ifndef T_NAPTR # define T_NAPTR 35 # endif # ifndef T_RRSIG # define T_RRSIG 46 # endif # ifndef T_TLSA # define T_TLSA 52 # endif typedef struct { char *dns_q_domain; unsigned int dns_q_type; unsigned int dns_q_class; } DNS_QUERY_T; typedef struct { unsigned int mx_r_preference; char mx_r_domain[1]; } MX_RECORD_T; typedef struct { unsigned int srv_r_priority; unsigned int srv_r_weight; unsigned int srv_r_port; char srv_r_target[1]; } SRV_RECORDT_T; typedef struct resource_record RESOURCE_RECORD_T; struct resource_record { char *rr_domain; unsigned int rr_type; unsigned int rr_class; unsigned int rr_ttl; unsigned int rr_size; union { void *rr_data; MX_RECORD_T *rr_mx; MX_RECORD_T *rr_afsdb; /* mx and afsdb are identical */ SRV_RECORDT_T *rr_srv; # if NETINET struct in_addr *rr_a; # endif # if NETINET6 struct in6_addr *rr_aaaa; # endif char *rr_txt; } rr_u; RESOURCE_RECORD_T *rr_next; }; # if !defined(T_A) && !defined(T_AAAA) /* XXX if isn't included */ typedef int HEADER; /* will never be used */ # endif typedef struct { HEADER dns_r_h; DNS_QUERY_T dns_r_q; RESOURCE_RECORD_T *dns_r_head; } DNS_REPLY_T; #define SM_DNS_FL_EDNS0 0x01 #define SM_DNS_FL_DNSSEC 0x02 /* flags for parse_dns_reply() et.al. */ #define RR_AS_TEXT 0x01 /* convert some RRs to text, e.g., TLSA */ #define RR_RAW 0x02 /* return some RRs as "raw" data */ /* currently not used (set, but not read) */ #define RR_NO_CNAME 0x04 /* do not try CNAME lookup */ #define RR_ONLY_CNAME 0x08 /* if !RR_NO_CNAME" return only CNAME */ extern void dns_free_data __P((DNS_REPLY_T *)); extern int dns_string_to_type __P((const char *)); extern const char *dns_type_to_string __P((int)); extern DNS_REPLY_T *dns_lookup_map __P((const char *, int, int, time_t, int, unsigned int)); extern DNS_REPLY_T *dns_lookup_int __P((const char *, int, int, time_t, int, unsigned int, unsigned int, int *, int *)); # if 0 extern DNS_REPLY_T *dns_lookup __P((const char *domain, const char *type_name, time_t retrans, int retry)); # endif /* 0 */ # if DANE struct hostent *dns2he __P((DNS_REPLY_T *, int)); # endif /* what to do if family is not supported? add SM_ASSERT()? */ #define FAM2T_(family) (((family) == AF_INET) ? T_A : T_AAAA) # if DNSSEC_TEST const char *herrno2txt __P((int)); int setherrnofromstring __P((const char *, int *)); int getttlfromstring __P((const char *)); int tstdns_search __P((const char *, int, int, u_char *, int)); int tstdns_querydomain __P((const char *, const char *, int, int, unsigned char *, int)); # endif /* DNSSEC_TEST*/ #ifndef RES_TRUSTAD # define RES_TRUSTAD 0 #endif #define SM_RES_DNSSEC (RES_USE_EDNS0|RES_USE_DNSSEC|RES_TRUSTAD) #endif /* DNSMAP || DANE */ #if DNSSEC_TEST || _FFR_NAMESERVER # ifdef _DEFINE_SMR_GLOBALS # define SMR_EXTERN # else # define SMR_EXTERN extern # endif SMR_EXTERN char *NameSearchList; # undef SMR_EXTERN extern int nsportip __P((char *)); #endif /* DNSSEC_TEST || _FFR_NAMESERVER */ #endif /* ! SM_RESOLVE_H */ sendmail-8.18.1/sendmail/util.c0000644000372400037240000017364114556365350015720 0ustar xbuildxbuild/* * Copyright (c) 1998-2007, 2009 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: util.c,v 8.427 2013-11-22 20:51:57 ca Exp $") #include #include #if USE_EAI # include #endif /* ** NEWSTR -- Create a copy of a C string ** ** Parameters: ** s -- the string to copy. [A] ** ** Returns: ** pointer to newly allocated string. */ char * #if SM_HEAP_CHECK > 2 newstr_tagged(s, tag, line, group) const char *s; char *tag; int line; int group; #else newstr(s) const char *s; # define tag "newstr" # define line 0 # define group 0 #endif { size_t l; char *n; l = strlen(s); SM_ASSERT(l + 1 > l); n = sm_malloc_tagged_x(l + 1, tag, line, group); sm_strlcpy(n, s, l + 1); return n; } #if SM_HEAP_CHECK <= 2 # undef tag # undef line # undef group #endif /* ** ADDQUOTES -- Adds quotes & quote bits to a string. ** ** Runs through a string and adds backslashes and quote bits. ** ** Parameters: ** s -- the string to modify. [A] ** rpool -- resource pool from which to allocate result ** ** Returns: ** pointer to quoted string. */ char * addquotes(s, rpool) char *s; SM_RPOOL_T *rpool; { int len = 0; char c; char *p = s, *q, *r; if (s == NULL) return NULL; /* Find length of quoted string */ while ((c = *p++) != '\0') { len++; if (c == '\\' || c == '"') len++; } q = r = sm_rpool_malloc_x(rpool, len + 3); p = s; /* add leading quote */ *q++ = '"'; while ((c = *p++) != '\0') { /* quote \ or " */ if (c == '\\' || c == '"') *q++ = '\\'; *q++ = c; } *q++ = '"'; *q = '\0'; return r; } /* ** STRIPBACKSLASH -- Strip all leading backslashes from a string, provided ** the following character is alpha-numerical. ** This is done in place. ** ** XXX: This may be a problem for EAI? ** ** Parameters: ** s -- the string to strip. ** ** Returns: ** none. */ void stripbackslash(s) char *s; { char *p, *q, c; if (SM_IS_EMPTY(s)) return; p = q = s; while (*p == '\\' && (p[1] == '\\' || (isascii(p[1]) && isalnum(p[1])))) p++; do { c = *q++ = *p++; } while (c != '\0'); } /* ** RFC822_STRING -- Checks string for proper RFC822 string quoting. ** ** Runs through a string and verifies RFC822 special characters ** are only found inside comments, quoted strings, or backslash ** escaped. Also verified balanced quotes and parenthesis. ** ** XXX: This may be a problem for EAI? MustQuoteChars is used. ** If this returns false, current callers just invoke addquotes(). ** ** Parameters: ** s -- the string to modify. [A] ** ** Returns: ** true iff the string is RFC822 compliant, false otherwise. */ bool rfc822_string(s) char *s; { bool quoted = false; int commentlev = 0; char *c = s; if (s == NULL) return false; while (*c != '\0') { /* escaped character */ if (*c == '\\') { c++; if (*c == '\0') return false; } else if (commentlev == 0 && *c == '"') quoted = !quoted; else if (!quoted) { if (*c == ')') { /* unbalanced ')' */ if (commentlev == 0) return false; else commentlev--; } else if (*c == '(') commentlev++; else if (commentlev == 0 && strchr(MustQuoteChars, *c) != NULL) return false; } c++; } /* unbalanced '"' or '(' */ return !quoted && commentlev == 0; } /* ** SHORTEN_RFC822_STRING -- Truncate and rebalance an RFC822 string ** ** Arbitrarily shorten (in place) an RFC822 string and rebalance ** comments and quotes. ** ** Parameters: ** string -- the string to shorten [A] ** length -- the maximum size, 0 if no maximum ** ** Returns: ** true if string is changed, false otherwise ** ** Side Effects: ** Changes string in place, possibly resulting ** in a shorter string. */ bool shorten_rfc822_string(string, length) char *string; size_t length; { bool backslash = false; bool modified = false; bool quoted = false; size_t slen; int parencount = 0; char *ptr = string; /* ** If have to rebalance an already short enough string, ** need to do it within allocated space. */ slen = strlen(string); if (length == 0 || slen < length) length = slen; while (*ptr != '\0') { if (backslash) { backslash = false; goto increment; } if (*ptr == '\\') backslash = true; else if (*ptr == '(') { if (!quoted) parencount++; } else if (*ptr == ')') { if (--parencount < 0) parencount = 0; } /* Inside a comment, quotes don't matter */ if (parencount <= 0 && *ptr == '"') quoted = !quoted; increment: /* Check for sufficient space for next character */ if (length - (ptr - string) <= (size_t) ((backslash ? 1 : 0) + parencount + (quoted ? 1 : 0))) { /* Not enough, backtrack */ if (*ptr == '\\') backslash = false; else if (*ptr == '(' && !quoted) parencount--; else if (*ptr == '"' && parencount == 0) quoted = false; break; } ptr++; } /* Rebalance */ while (parencount-- > 0) { if (*ptr != ')') { modified = true; *ptr = ')'; } ptr++; } if (quoted) { if (*ptr != '"') { modified = true; *ptr = '"'; } ptr++; } if (*ptr != '\0') { modified = true; *ptr = '\0'; } return modified; } /* ** FIND_CHARACTER -- find an unquoted character in an RFC822 string ** ** Find an unquoted, non-commented character in an RFC822 ** string and return a pointer to its location in the string. ** ** Parameters: ** string -- the string to search [A] ** character -- the character to find ** ** Returns: ** pointer to the character, or ** a pointer to the end of the line if character is not found */ char * find_character(string, character) char *string; int character; { bool backslash = false; bool quoted = false; int parencount = 0; while (string != NULL && *string != '\0') { if (backslash) { backslash = false; if (!quoted && character == '\\' && *string == '\\') break; string++; continue; } switch (*string) { case '\\': backslash = true; break; case '(': if (!quoted) parencount++; break; case ')': if (--parencount < 0) parencount = 0; break; } /* Inside a comment, nothing matters */ if (parencount > 0) { string++; continue; } if (*string == '"') quoted = !quoted; else if (*string == character && !quoted) break; string++; } /* Return pointer to the character */ return string; } /* ** CHECK_BODYTYPE -- check bodytype parameter ** ** Parameters: ** bodytype -- bodytype parameter ** ** Returns: ** BODYTYPE_* according to parameter ** */ int check_bodytype(bodytype) char *bodytype; { /* check body type for legality */ if (bodytype == NULL) return BODYTYPE_NONE; if (SM_STRCASEEQ(bodytype, "7bit")) return BODYTYPE_7BIT; if (SM_STRCASEEQ(bodytype, "8bitmime")) return BODYTYPE_8BITMIME; return BODYTYPE_ILLEGAL; } /* ** TRUNCATE_AT_DELIM -- truncate string at a delimiter and append "..." ** ** Parameters: ** str -- string to truncate [A] ** len -- maximum length (including '\0') (0 for unlimited) ** delim -- delimiter character ** ** Returns: ** None. */ void truncate_at_delim(str, len, delim) char *str; size_t len; int delim; { char *p; if (str == NULL || len == 0 || strlen(str) < len) return; *(str + len - 1) = '\0'; while ((p = strrchr(str, delim)) != NULL) { *p = '\0'; if (p - str + 4 < len) { *p++ = (char) delim; *p = '\0'; (void) sm_strlcat(str, "...", len); return; } } /* Couldn't find a place to append "..." */ if (len > 3) (void) sm_strlcpy(str, "...", len); else str[0] = '\0'; } /* ** XALLOC -- Allocate memory, raise an exception on error ** ** Parameters: ** sz -- size of area to allocate. ** ** Returns: ** pointer to data region. ** ** Exceptions: ** SmHeapOutOfMemory (F:sm.heap) -- cannot allocate memory ** ** Side Effects: ** Memory is allocated. */ char * #if SM_HEAP_CHECK xalloc_tagged(sz, file, line) register int sz; char *file; int line; #else /* SM_HEAP_CHECK */ xalloc(sz) register int sz; #endif /* SM_HEAP_CHECK */ { register char *p; SM_REQUIRE(sz >= 0); /* some systems can't handle size zero mallocs */ if (sz <= 0) sz = 1; /* scaffolding for testing error handling code */ sm_xtrap_raise_x(&SmHeapOutOfMemory); p = sm_malloc_tagged((unsigned) sz, file, line, sm_heap_group()); if (p == NULL) { sm_exc_raise_x(&SmHeapOutOfMemory); } return p; } /* ** COPYPLIST -- copy list of pointers. ** ** This routine is the equivalent of strdup for lists of ** pointers. ** ** Parameters: ** list -- list of pointers to copy. ** Must be NULL terminated. ** copycont -- if true, copy the contents of the vector ** (which must be a string) also. ** rpool -- resource pool from which to allocate storage, ** or NULL ** ** Returns: ** a copy of 'list'. */ char ** copyplist(list, copycont, rpool) char **list; bool copycont; SM_RPOOL_T *rpool; { register char **vp; register char **newvp; for (vp = list; *vp != NULL; vp++) continue; vp++; /* ** Hack: rpool is NULL if invoked from readcf(), ** so "ignore" the allocation by setting group to 0. */ newvp = (char **) sm_rpool_malloc_tagged_x(rpool, (vp - list) * sizeof(*vp), "copyplist", 0, NULL == rpool ? 0 : 1); memmove((char *) newvp, (char *) list, (int) (vp - list) * sizeof(*vp)); if (copycont) { for (vp = newvp; *vp != NULL; vp++) *vp = sm_rpool_strdup_tagged_x(rpool, *vp, "copyplist", 0, NULL == rpool ? 0 : 1); } return newvp; } /* ** COPYQUEUE -- copy address queue. ** ** This routine is the equivalent of strdup for address queues; ** addresses marked as QS_IS_DEAD() aren't copied ** ** Parameters: ** addr -- list of address structures to copy. ** rpool -- resource pool from which to allocate storage ** ** Returns: ** a copy of 'addr'. */ ADDRESS * copyqueue(addr, rpool) ADDRESS *addr; SM_RPOOL_T *rpool; { register ADDRESS *newaddr; ADDRESS *ret; register ADDRESS **tail = &ret; while (addr != NULL) { if (!QS_IS_DEAD(addr->q_state)) { newaddr = (ADDRESS *) sm_rpool_malloc_x(rpool, sizeof(*newaddr)); STRUCTCOPY(*addr, *newaddr); *tail = newaddr; tail = &newaddr->q_next; } addr = addr->q_next; } *tail = NULL; return ret; } /* ** LOG_SENDMAIL_PID -- record sendmail pid and command line. ** ** Parameters: ** e -- the current envelope. ** ** Returns: ** none. ** ** Side Effects: ** writes pidfile, logs command line. ** keeps file open and locked to prevent overwrite of active file */ static SM_FILE_T *Pidf = NULL; void log_sendmail_pid(e) ENVELOPE *e; { long sff; char pidpath[MAXPATHLEN]; extern char *CommandLineArgs; /* write the pid to the log file for posterity */ sff = SFF_NOLINK|SFF_ROOTOK|SFF_REGONLY|SFF_CREAT|SFF_NBLOCK; if (TrustedUid != 0 && RealUid == TrustedUid) sff |= SFF_OPENASROOT; expand(PidFile, pidpath, sizeof(pidpath), e); Pidf = safefopen(pidpath, O_WRONLY|O_TRUNC, FileMode, sff); if (Pidf == NULL) { if (errno == EWOULDBLOCK) sm_syslog(LOG_ERR, NOQID, "unable to write pid to %s: file in use by another process", pidpath); else sm_syslog(LOG_ERR, NOQID, "unable to write pid to %s: %s", pidpath, sm_errstring(errno)); } else { PidFilePid = getpid(); /* write the process id on line 1 */ (void) sm_io_fprintf(Pidf, SM_TIME_DEFAULT, "%ld\n", (long) PidFilePid); /* line 2 contains all command line flags */ (void) sm_io_fprintf(Pidf, SM_TIME_DEFAULT, "%s\n", CommandLineArgs); /* flush */ (void) sm_io_flush(Pidf, SM_TIME_DEFAULT); /* ** Leave pid file open until process ends ** so it's not overwritten by another ** process. */ } if (LogLevel > 9) sm_syslog(LOG_INFO, NOQID, "started as: %s", CommandLineArgs); } /* ** CLOSE_SENDMAIL_PID -- close sendmail pid file ** ** Parameters: ** none. ** ** Returns: ** none. */ void close_sendmail_pid() { if (Pidf == NULL) return; (void) sm_io_close(Pidf, SM_TIME_DEFAULT); Pidf = NULL; } /* ** SET_DELIVERY_MODE -- set and record the delivery mode ** ** Parameters: ** mode -- delivery mode ** e -- the current envelope. ** ** Returns: ** none. ** ** Side Effects: ** sets {deliveryMode} macro */ void set_delivery_mode(mode, e) int mode; ENVELOPE *e; { char buf[2]; e->e_sendmode = (char) mode; buf[0] = (char) mode; buf[1] = '\0'; macdefine(&e->e_macro, A_TEMP, macid("{deliveryMode}"), buf); } /* ** SET_OP_MODE -- set and record the op mode ** ** Parameters: ** mode -- op mode ** e -- the current envelope. ** ** Returns: ** none. ** ** Side Effects: ** sets {opMode} macro */ void set_op_mode(mode) int mode; { char buf[2]; extern ENVELOPE BlankEnvelope; OpMode = (char) mode; buf[0] = (char) mode; buf[1] = '\0'; macdefine(&BlankEnvelope.e_macro, A_TEMP, MID_OPMODE, buf); } /* ** PRINTAV -- print argument vector. ** ** Parameters: ** fp -- output file pointer. ** av -- argument vector. ** ** Returns: ** none. ** ** Side Effects: ** prints av. */ void printav(fp, av) SM_FILE_T *fp; char **av; { while (*av != NULL) { #if _FFR_8BITENVADDR if (tTd(0, 9)) { char *cp; unsigned char v; for (cp = *av++; *cp != '\0'; cp++) { v = (unsigned char)(*cp & 0x00ff); (void) sm_io_putc(fp, SM_TIME_DEFAULT, v); # if 0 if (isascii(v) && isprint(v)) (void) sm_io_putc(fp, SM_TIME_DEFAULT, v); else (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\\x%hhx", v); # endif } if (*av != NULL) (void) sm_io_putc(fp, SM_TIME_DEFAULT, ' '); continue; } #endif /* _FFR_8BITENVADDR */ if (tTd(0, 44)) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\n\t%08lx=", (unsigned long) *av); else (void) sm_io_putc(fp, SM_TIME_DEFAULT, ' '); if (tTd(0, 99)) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s", str2prt(*av++)); else xputs(fp, *av++); } /* don't print this if invoked directly (not via xputs())? */ (void) sm_io_putc(fp, SM_TIME_DEFAULT, '\n'); } /* ** XPUTS -- put string doing control escapes. ** ** Parameters: ** fp -- output file pointer. ** s -- string to put. [A] ** ** Returns: ** none. ** ** Side Effects: ** output to stdout */ void xputs(fp, s) SM_FILE_T *fp; const char *s; { int c; struct metamac *mp; bool shiftout = false; extern struct metamac MetaMacros[]; static SM_DEBUG_T DebugANSI = SM_DEBUG_INITIALIZER("ANSI", "@(#)$Debug: ANSI - enable reverse video in debug output $"); #if _FFR_8BITENVADDR if (tTd(0, 9)) { char *av[2]; av[0] = (char *) s; av[1] = NULL; printav(fp, av); return; } #endif /* ** TermEscape is set here, rather than in main(), ** because ANSI mode can be turned on or off at any time ** if we are in -bt rule testing mode. */ if (sm_debug_unknown(&DebugANSI)) { if (sm_debug_active(&DebugANSI, 1)) { TermEscape.te_rv_on = "\033[7m"; TermEscape.te_normal = "\033[0m"; } else { TermEscape.te_rv_on = ""; TermEscape.te_normal = ""; } } if (s == NULL) { (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s%s", TermEscape.te_rv_on, TermEscape.te_normal); return; } while ((c = (*s++ & 0377)) != '\0') { if (shiftout) { (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s", TermEscape.te_normal); shiftout = false; } if (!isascii(c) && !tTd(84, 1)) { if (c == MATCHREPL) { (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s$", TermEscape.te_rv_on); shiftout = true; if (*s == '\0') continue; c = *s++ & 0377; goto printchar; } if (c == MACROEXPAND || c == MACRODEXPAND) { (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s$", TermEscape.te_rv_on); if (c == MACRODEXPAND) (void) sm_io_putc(fp, SM_TIME_DEFAULT, '&'); shiftout = true; if (*s == '\0') continue; if (strchr("=~&?", *s) != NULL) (void) sm_io_putc(fp, SM_TIME_DEFAULT, *s++); if (bitset(0200, *s)) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "{%s}", macname(bitidx(*s++))); else (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%c", *s++); continue; } for (mp = MetaMacros; mp->metaname != '\0'; mp++) { if (bitidx(mp->metaval) == c) { (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s$%c", TermEscape.te_rv_on, mp->metaname); shiftout = true; break; } } if (c == MATCHCLASS || c == MATCHNCLASS) { if (bitset(0200, *s)) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "{%s}", macname(bitidx(*s++))); else if (*s != '\0') (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%c", *s++); } if (mp->metaname != '\0') continue; /* unrecognized meta character */ (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%sM-", TermEscape.te_rv_on); shiftout = true; c &= 0177; } printchar: if (isascii(c) && isprint(c)) { (void) sm_io_putc(fp, SM_TIME_DEFAULT, c); continue; } /* wasn't a meta-macro -- find another way to print it */ switch (c) { case '\n': c = 'n'; break; case '\r': c = 'r'; break; case '\t': c = 't'; break; } if (!shiftout) { (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s", TermEscape.te_rv_on); shiftout = true; } if (isascii(c) && isprint(c)) { (void) sm_io_putc(fp, SM_TIME_DEFAULT, '\\'); (void) sm_io_putc(fp, SM_TIME_DEFAULT, c); } else if (tTd(84, 2)) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, " %o ", c); else if (tTd(84, 1)) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, " %#x ", c); else if (!isascii(c) && !tTd(84, 1)) { (void) sm_io_putc(fp, SM_TIME_DEFAULT, '^'); (void) sm_io_putc(fp, SM_TIME_DEFAULT, c ^ 0100); } } if (shiftout) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s", TermEscape.te_normal); (void) sm_io_flush(fp, SM_TIME_DEFAULT); } /* ** MAKELOWER_A -- Translate a line into lower case ** ** Parameters: ** pp -- pointer to the string to translate (modified in place if possible). [A] ** rpool -- rpool to use to reallocate string if needed ** (if NULL: uses sm_malloc() internally) ** ** Returns: ** lower cased string ** ** Side Effects: ** String pointed to by pp is translated to lower case if possible. */ char * makelower_a(pp, rpool) char **pp; SM_RPOOL_T *rpool; { char c; char *orig, *p; SM_REQUIRE(pp != NULL); p = *pp; if (p == NULL) return p; orig = p; #if USE_EAI if (!addr_is_ascii(p)) { char *new; new = sm_lowercase(p); if (new == p) return p; *pp = sm_rpool_strdup_tagged_x(rpool, new, "makelower", 0, 1); return *pp; } #endif /* USE_EAI */ for (; (c = *p) != '\0'; p++) if (isascii(c) && isupper(c)) *p = tolower(c); return orig; } #if 0 makelower: Optimization for EAI case? unsigned char ch; while ((ch = (unsigned char)*str) != '\0' && ch < 127) { if (isascii(c) && isupper(c)) *str = tolower(ch); ++str; } if ('\0' == ch) return orig; handle UTF-8 case: invoke sm_lowercase() etc #endif /* 0 */ /* ** MAKELOWER_BUF -- Translate a line into lower case ** ** Parameters: ** str -- string to translate. [A] ** buf -- where to place lower case version. ** buflen -- size of buf ** ** Returns: ** nothing ** ** Side Effects: ** String pointed to by str is translated to lower case if possible. ** ** Note: ** if str is lower cased in place and str == buf (same pointer), ** then it is not explicitly copied. */ void makelower_buf(str, buf, buflen) char *str; char *buf; int buflen; { char *lower; SM_REQUIRE(buf != NULL); if (str == NULL) return; lower = makelower_a(&str, NULL); if (lower != str || str != buf) { sm_strlcpy(buf, lower, buflen); if (lower != str) SM_FREE(lower); } return; } /* ** FIXCRLF -- fix CRLF in line. ** ** XXX: Could this be a problem for EAI? That is, can there ** be a string with \n and the previous octet is \n ** but is part of a UTF8 "char"? ** ** Looks for the CRLF combination and turns it into the ** UNIX canonical LF character. It only takes one line, ** i.e., it is assumed that the first LF found is the end ** of the line. ** ** Parameters: ** line -- the line to fix. [A] ** stripnl -- if true, strip the newline also. ** ** Returns: ** none. ** ** Side Effects: ** line is changed in place. */ void fixcrlf(line, stripnl) char *line; bool stripnl; { register char *p; p = strchr(line, '\n'); if (p == NULL) return; if (p > line && p[-1] == '\r') p--; if (!stripnl) *p++ = '\n'; *p = '\0'; } /* ** PUTLINE -- put a line like fputs obeying SMTP conventions ** ** This routine always guarantees outputting a newline (or CRLF, ** as appropriate) at the end of the string. ** ** Parameters: ** l -- line to put. (should be [x]) ** mci -- the mailer connection information. ** ** Returns: ** true iff line was written successfully ** ** Side Effects: ** output of l to mci->mci_out. */ bool putline(l, mci) register char *l; register MCI *mci; { return putxline(l, strlen(l), mci, PXLF_MAPFROM); } /* ** PUTXLINE -- putline with flags bits. ** ** This routine always guarantees outputting a newline (or CRLF, ** as appropriate) at the end of the string. ** ** Parameters: ** l -- line to put. (should be [x]) ** len -- the length of the line. ** mci -- the mailer connection information. ** pxflags -- flag bits: ** PXLF_MAPFROM -- map From_ to >From_. ** PXLF_STRIP8BIT -- strip 8th bit. ** PXLF_HEADER -- map bare newline in header to newline space. ** PXLF_NOADDEOL -- don't add an EOL if one wasn't present. ** PXLF_STRIPMQUOTE -- strip METAQUOTE bytes. ** ** Returns: ** true iff line was written successfully ** ** Side Effects: ** output of l to mci->mci_out. */ #define PUTX(limit) \ do \ { \ quotenext = false; \ while (l < limit) \ { \ unsigned char c = (unsigned char) *l++; \ \ if (bitset(PXLF_STRIPMQUOTE, pxflags) && \ !quotenext && c == METAQUOTE) \ { \ quotenext = true; \ continue; \ } \ quotenext = false; \ if (strip8bit) \ c &= 0177; \ if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, \ c) == SM_IO_EOF) \ { \ dead = true; \ break; \ } \ if (TrafficLogFile != NULL) \ (void) sm_io_putc(TrafficLogFile, \ SM_TIME_DEFAULT, \ c); \ } \ } while (0) bool putxline(l, len, mci, pxflags) register char *l; size_t len; register MCI *mci; int pxflags; { register char *p, *end; int slop; bool dead, quotenext, strip8bit; /* strip out 0200 bits -- these can look like TELNET protocol */ strip8bit = bitset(MCIF_7BIT, mci->mci_flags) || bitset(PXLF_STRIP8BIT, pxflags); dead = false; slop = 0; end = l + len; do { bool noeol = false; /* find the end of the line */ p = memchr(l, '\n', end - l); if (p == NULL) { p = end; noeol = true; } if (TrafficLogFile != NULL) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d >>> ", (int) CurrentPid); /* check for line overflow */ while (mci->mci_mailer->m_linelimit > 0 && (p - l + slop) > mci->mci_mailer->m_linelimit) { register char *q = &l[mci->mci_mailer->m_linelimit - slop - 1]; if (l[0] == '.' && slop == 0 && bitnset(M_XDOT, mci->mci_mailer->m_flags)) { if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, '.') == SM_IO_EOF) dead = true; if (TrafficLogFile != NULL) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, '.'); } else if (l[0] == 'F' && slop == 0 && bitset(PXLF_MAPFROM, pxflags) && strncmp(l, "From ", 5) == 0 && bitnset(M_ESCFROM, mci->mci_mailer->m_flags)) { if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, '>') == SM_IO_EOF) dead = true; if (TrafficLogFile != NULL) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, '>'); } if (dead) break; PUTX(q); if (dead) break; if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, '!') == SM_IO_EOF || sm_io_fputs(mci->mci_out, SM_TIME_DEFAULT, mci->mci_mailer->m_eol) == SM_IO_EOF || sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, ' ') == SM_IO_EOF) { dead = true; break; } if (TrafficLogFile != NULL) { (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "!\n%05d >>> ", (int) CurrentPid); } slop = 1; } if (dead) break; /* output last part */ if (l[0] == '.' && slop == 0 && bitnset(M_XDOT, mci->mci_mailer->m_flags) && !bitset(MCIF_INLONGLINE, mci->mci_flags)) { if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, '.') == SM_IO_EOF) { dead = true; break; } if (TrafficLogFile != NULL) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, '.'); } else if (l[0] == 'F' && slop == 0 && bitset(PXLF_MAPFROM, pxflags) && strncmp(l, "From ", 5) == 0 && bitnset(M_ESCFROM, mci->mci_mailer->m_flags) && !bitset(MCIF_INLONGLINE, mci->mci_flags)) { if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, '>') == SM_IO_EOF) { dead = true; break; } if (TrafficLogFile != NULL) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, '>'); } PUTX(p); if (dead) break; if (TrafficLogFile != NULL) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, '\n'); if ((!bitset(PXLF_NOADDEOL, pxflags) || !noeol)) { mci->mci_flags &= ~MCIF_INLONGLINE; if (sm_io_fputs(mci->mci_out, SM_TIME_DEFAULT, mci->mci_mailer->m_eol) == SM_IO_EOF) { dead = true; break; } } else mci->mci_flags |= MCIF_INLONGLINE; if (l < end && *l == '\n') { if (*++l != ' ' && *l != '\t' && *l != '\0' && bitset(PXLF_HEADER, pxflags)) { if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, ' ') == SM_IO_EOF) { dead = true; break; } if (TrafficLogFile != NULL) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, ' '); } } } while (l < end); return !dead; } /* ** XUNLINK -- unlink a file, doing logging as appropriate. ** ** Parameters: ** f -- name of file to unlink. ** ** Returns: ** return value of unlink() ** ** Side Effects: ** f is unlinked. */ int xunlink(f) char *f; { register int i; int save_errno; if (LogLevel > 98) sm_syslog(LOG_DEBUG, CurEnv->e_id, "unlink %s", f); i = unlink(f); save_errno = errno; if (i < 0 && LogLevel > 97) sm_syslog(LOG_DEBUG, CurEnv->e_id, "%s: unlink-fail %d", f, errno); if (i >= 0) SYNC_DIR(f, false); errno = save_errno; return i; } /* ** SFGETS -- "safe" fgets -- times out and ignores random interrupts. ** ** Parameters: ** buf -- place to put the input line. ** (can be [A], but should be [x]) ** siz -- size of buf. ** fp -- file to read from. ** timeout -- the timeout before error occurs. ** during -- what we are trying to read (for error messages). ** ** Returns: ** NULL on error (including timeout). This may also leave ** buf containing a null string. ** buf otherwise. */ char * sfgets(buf, siz, fp, timeout, during) char *buf; int siz; SM_FILE_T *fp; time_t timeout; char *during; { register char *p; int save_errno, io_timeout, l; SM_REQUIRE(siz > 0); SM_REQUIRE(buf != NULL); if (fp == NULL) { buf[0] = '\0'; errno = EBADF; return NULL; } /* try to read */ l = -1; errno = 0; /* convert the timeout to sm_io notation */ io_timeout = (timeout <= 0) ? SM_TIME_DEFAULT : timeout * 1000; while (!sm_io_eof(fp) && !sm_io_error(fp)) { errno = 0; l = sm_io_fgets(fp, io_timeout, buf, siz); if (l < 0 && errno == EAGAIN) { /* The sm_io_fgets() call timedout */ if (LogLevel > 1) sm_syslog(LOG_NOTICE, CurEnv->e_id, "timeout waiting for input from %.100s during %s", CURHOSTNAME, during); buf[0] = '\0'; checkfd012(during); if (TrafficLogFile != NULL) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d <<< [TIMEOUT]\n", (int) CurrentPid); errno = ETIMEDOUT; return NULL; } if (l >= 0 || errno != EINTR) break; (void) sm_io_clearerr(fp); } save_errno = errno; /* clean up the books and exit */ LineNumber++; if (l < 0) { buf[0] = '\0'; if (TrafficLogFile != NULL) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d <<< [EOF]\n", (int) CurrentPid); errno = save_errno; return NULL; } if (TrafficLogFile != NULL) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d <<< %s", (int) CurrentPid, buf); if (SevenBitInput) { for (p = buf; *p != '\0'; p++) *p &= ~0200; } else if (!HasEightBits) { for (p = buf; *p != '\0'; p++) { if (bitset(0200, *p)) { HasEightBits = true; break; } } } return buf; } /* ** FGETFOLDED -- like fgets, but knows about folded lines. ** ** Parameters: ** buf -- place to put result. ** (can be [A], but should be [x]) ** np -- pointer to bytes available; will be updated with ** the actual buffer size (not number of bytes filled) ** on return. ** f -- file to read from. ** ** Returns: ** input line(s) on success, NULL on error or SM_IO_EOF. ** This will normally be buf -- unless the line is too ** long, when it will be sm_malloc_x()ed. ** ** Side Effects: ** buf gets lines from f, with continuation lines (lines ** with leading white space) appended. CRLF's are mapped ** into single newlines. Any trailing LF is stripped. ** Increases LineNumber for each line. */ char * fgetfolded(buf, np, f) char *buf; int *np; SM_FILE_T *f; { register char *p = buf; char *bp = buf; register int i; int n; SM_REQUIRE(np != NULL); n = *np; SM_REQUIRE(n > 0); SM_REQUIRE(buf != NULL); if (f == NULL) { buf[0] = '\0'; errno = EBADF; return NULL; } n--; while ((i = sm_io_getc(f, SM_TIME_DEFAULT)) != SM_IO_EOF) { if (i == '\r') { i = sm_io_getc(f, SM_TIME_DEFAULT); if (i != '\n') { if (i != SM_IO_EOF) (void) sm_io_ungetc(f, SM_TIME_DEFAULT, i); i = '\r'; } } if (--n <= 0) { /* allocate new space */ char *nbp; int nn; nn = (p - bp); if (nn < MEMCHUNKSIZE) nn *= 2; else nn += MEMCHUNKSIZE; nbp = sm_malloc_x(nn); memmove(nbp, bp, p - bp); p = &nbp[p - bp]; if (bp != buf) sm_free(bp); bp = nbp; n = nn - (p - bp); *np = nn; } *p++ = i; if (i == '\n') { LineNumber++; i = sm_io_getc(f, SM_TIME_DEFAULT); if (i != SM_IO_EOF) (void) sm_io_ungetc(f, SM_TIME_DEFAULT, i); if (i != ' ' && i != '\t') break; } } if (p == bp) return NULL; if (p[-1] == '\n') p--; *p = '\0'; return bp; } /* ** CURTIME -- return current time. ** ** Parameters: ** none. ** ** Returns: ** the current time. */ time_t curtime() { auto time_t t; (void) time(&t); return t; } /* ** ATOBOOL -- convert a string representation to boolean. ** ** Defaults to false ** ** Parameters: ** s -- string to convert. Takes "tTyY", empty, and NULL as true, ** others as false. ** ** Returns: ** A boolean representation of the string. */ bool atobool(s) register char *s; { if (SM_IS_EMPTY(s) || strchr("tTyY", *s) != NULL) return true; return false; } /* ** ATOOCT -- convert a string representation to octal. ** ** Parameters: ** s -- string to convert. ** ** Returns: ** An integer representing the string interpreted as an ** octal number. */ int atooct(s) register char *s; { register int i = 0; while (*s >= '0' && *s <= '7') i = (i << 3) | (*s++ - '0'); return i; } /* ** BITINTERSECT -- tell if two bitmaps intersect ** ** Parameters: ** a, b -- the bitmaps in question ** ** Returns: ** true if they have a non-null intersection ** false otherwise */ bool bitintersect(a, b) BITMAP256 a; BITMAP256 b; { int i; for (i = BITMAPBYTES / sizeof(int); --i >= 0; ) { if ((a[i] & b[i]) != 0) return true; } return false; } /* ** BITZEROP -- tell if a bitmap is all zero ** ** Parameters: ** map -- the bit map to check ** ** Returns: ** true if map is all zero. ** false if there are any bits set in map. */ bool bitzerop(map) BITMAP256 map; { int i; for (i = BITMAPBYTES / sizeof(int); --i >= 0; ) { if (map[i] != 0) return false; } return true; } /* ** STRCONTAINEDIN -- tell if one string is contained in another ** ** Parameters: ** icase -- ignore case? ** a -- possible substring. [A] ** b -- possible superstring. [A] ** (both must be the same format: X or Q) ** ** Returns: ** true if a is contained in b (case insensitive). ** false otherwise. */ bool strcontainedin(icase, a, b) bool icase; register char *a; register char *b; { int la; int lb; int c; la = strlen(a); lb = strlen(b); c = *a; if (icase && isascii(c) && isupper(c)) c = tolower(c); for (; lb-- >= la; b++) { if (icase) { if (*b != c && isascii(*b) && isupper(*b) && tolower(*b) != c) continue; if (sm_strncasecmp(a, b, la) == 0) return true; } else { if (*b != c) continue; if (strncmp(a, b, la) == 0) return true; } } return false; } #if XDEBUG /* ** CHECKFD012 -- check low numbered file descriptors ** ** File descriptors 0, 1, and 2 should be open at all times. ** This routine verifies that, and fixes it if not true. ** ** Parameters: ** where -- a tag printed if the assertion failed ** ** Returns: ** none */ void checkfd012(where) char *where; { register int i; for (i = 0; i < 3; i++) fill_fd(i, where); } /* ** CHECKFDOPEN -- make sure file descriptor is open -- for extended debugging ** ** Parameters: ** fd -- file descriptor to check. ** where -- tag to print on failure. ** ** Returns: ** none. */ void checkfdopen(fd, where) int fd; char *where; { struct stat st; if (fstat(fd, &st) < 0 && errno == EBADF) { syserr("checkfdopen(%d): %s not open as expected!", fd, where); printopenfds(true); } } #endif /* XDEBUG */ /* ** CHECKFDS -- check for new or missing file descriptors ** ** Parameters: ** where -- tag for printing. If null, take a base line. ** ** Returns: ** none ** ** Side Effects: ** If where is set, shows changes since the last call. */ void checkfds(where) char *where; { int maxfd; register int fd; bool printhdr = true; int save_errno = errno; static BITMAP256 baseline; extern int DtableSize; if (DtableSize > BITMAPBITS) maxfd = BITMAPBITS; else maxfd = DtableSize; if (where == NULL) clrbitmap(baseline); for (fd = 0; fd < maxfd; fd++) { struct stat stbuf; if (fstat(fd, &stbuf) < 0 && errno != EOPNOTSUPP) { if (!bitnset(fd, baseline)) continue; clrbitn(fd, baseline); } else if (!bitnset(fd, baseline)) setbitn(fd, baseline); else continue; /* file state has changed */ if (where == NULL) continue; if (printhdr) { sm_syslog(LOG_DEBUG, CurEnv->e_id, "%s: changed fds:", where); printhdr = false; } dumpfd(fd, true, true); } errno = save_errno; } /* ** PRINTOPENFDS -- print the open file descriptors (for debugging) ** ** Parameters: ** logit -- if set, send output to syslog; otherwise ** print for debugging. ** ** Returns: ** none. */ #if NETINET || NETINET6 # include #endif void printopenfds(logit) bool logit; { register int fd; extern int DtableSize; for (fd = 0; fd < DtableSize; fd++) dumpfd(fd, false, logit); } /* ** DUMPFD -- dump a file descriptor ** ** Parameters: ** fd -- the file descriptor to dump. ** printclosed -- if set, print a notification even if ** it is closed; otherwise print nothing. ** logit -- if set, use sm_syslog instead of sm_dprintf() ** ** Returns: ** none. */ void dumpfd(fd, printclosed, logit) int fd; bool printclosed; bool logit; { register char *p; char *hp; #ifdef S_IFSOCK SOCKADDR sa; #endif auto SOCKADDR_LEN_T slen; int i; #if STAT64 > 0 struct stat64 st; #else struct stat st; #endif char buf[200]; p = buf; (void) sm_snprintf(p, SPACELEFT(buf, p), "%3d: ", fd); p += strlen(p); if ( #if STAT64 > 0 fstat64(fd, &st) #else fstat(fd, &st) #endif < 0) { if (errno != EBADF) { (void) sm_snprintf(p, SPACELEFT(buf, p), "CANNOT STAT (%s)", sm_errstring(errno)); goto printit; } else if (printclosed) { (void) sm_snprintf(p, SPACELEFT(buf, p), "CLOSED"); goto printit; } return; } i = fcntl(fd, F_GETFL, 0); if (i != -1) { (void) sm_snprintf(p, SPACELEFT(buf, p), "fl=0x%x, ", i); p += strlen(p); } (void) sm_snprintf(p, SPACELEFT(buf, p), "mode=%o: ", (unsigned int) st.st_mode); p += strlen(p); switch (st.st_mode & S_IFMT) { #ifdef S_IFSOCK case S_IFSOCK: (void) sm_snprintf(p, SPACELEFT(buf, p), "SOCK "); p += strlen(p); memset(&sa, '\0', sizeof(sa)); slen = sizeof(sa); if (getsockname(fd, &sa.sa, &slen) < 0) (void) sm_snprintf(p, SPACELEFT(buf, p), "(%s)", sm_errstring(errno)); else { hp = hostnamebyanyaddr(&sa); if (hp == NULL) { /* EMPTY */ /* do nothing */ } # if NETINET else if (sa.sa.sa_family == AF_INET) (void) sm_snprintf(p, SPACELEFT(buf, p), "%s/%d", hp, ntohs(sa.sin.sin_port)); # endif # if NETINET6 else if (sa.sa.sa_family == AF_INET6) (void) sm_snprintf(p, SPACELEFT(buf, p), "%s/%d", hp, ntohs(sa.sin6.sin6_port)); # endif else (void) sm_snprintf(p, SPACELEFT(buf, p), "%s", hp); } p += strlen(p); (void) sm_snprintf(p, SPACELEFT(buf, p), "->"); p += strlen(p); slen = sizeof(sa); if (getpeername(fd, &sa.sa, &slen) < 0) (void) sm_snprintf(p, SPACELEFT(buf, p), "(%s)", sm_errstring(errno)); else { hp = hostnamebyanyaddr(&sa); if (hp == NULL) { /* EMPTY */ /* do nothing */ } # if NETINET else if (sa.sa.sa_family == AF_INET) (void) sm_snprintf(p, SPACELEFT(buf, p), "%s/%d", hp, ntohs(sa.sin.sin_port)); # endif # if NETINET6 else if (sa.sa.sa_family == AF_INET6) (void) sm_snprintf(p, SPACELEFT(buf, p), "%s/%d", hp, ntohs(sa.sin6.sin6_port)); # endif else (void) sm_snprintf(p, SPACELEFT(buf, p), "%s", hp); } break; #endif /* S_IFSOCK */ case S_IFCHR: (void) sm_snprintf(p, SPACELEFT(buf, p), "CHR: "); p += strlen(p); goto defprint; #ifdef S_IFBLK case S_IFBLK: (void) sm_snprintf(p, SPACELEFT(buf, p), "BLK: "); p += strlen(p); goto defprint; #endif #if defined(S_IFIFO) && (!defined(S_IFSOCK) || S_IFIFO != S_IFSOCK) case S_IFIFO: (void) sm_snprintf(p, SPACELEFT(buf, p), "FIFO: "); p += strlen(p); goto defprint; #endif #ifdef S_IFDIR case S_IFDIR: (void) sm_snprintf(p, SPACELEFT(buf, p), "DIR: "); p += strlen(p); goto defprint; #endif #ifdef S_IFLNK case S_IFLNK: (void) sm_snprintf(p, SPACELEFT(buf, p), "LNK: "); p += strlen(p); goto defprint; #endif default: defprint: (void) sm_snprintf(p, SPACELEFT(buf, p), "dev=%ld/%ld, ino=%llu, nlink=%d, u/gid=%ld/%ld, ", (long) major(st.st_dev), (long) minor(st.st_dev), (ULONGLONG_T) st.st_ino, (int) st.st_nlink, (long) st.st_uid, (long) st.st_gid); p += strlen(p); (void) sm_snprintf(p, SPACELEFT(buf, p), "size=%llu", (ULONGLONG_T) st.st_size); break; } printit: if (logit) sm_syslog(LOG_DEBUG, CurEnv ? CurEnv->e_id : NULL, "%.800s", buf); else sm_dprintf("%s\n", buf); } /* ** SHORTEN_HOSTNAME -- strip local domain information off of hostname. ** ** Parameters: ** host -- the host to shorten (stripped in place). ** [EAI: matched against $m: must be same format; ** conversion needed?] ** ** Returns: ** place where string was truncated, NULL if not truncated. */ char * shorten_hostname(host) char host[]; { register char *p; char *mydom; int i; bool canon = false; /* strip off final dot */ i = strlen(host); p = &host[(i == 0) ? 0 : i - 1]; if (*p == '.') { *p = '\0'; canon = true; } /* see if there is any domain at all -- if not, we are done */ p = strchr(host, '.'); if (p == NULL) return NULL; /* yes, we have a domain -- see if it looks like us */ mydom = macvalue('m', CurEnv); if (mydom == NULL) mydom = ""; i = strlen(++p); if ((canon ? sm_strcasecmp(p, mydom) : sm_strncasecmp(p, mydom, i)) == 0 && (mydom[i] == '.' || mydom[i] == '\0')) { *--p = '\0'; return p; } return NULL; } /* ** PROG_OPEN -- open a program for reading ** ** Parameters: ** argv -- the argument list. ** pfd -- pointer to a place to store the file descriptor. ** e -- the current envelope. ** ** Returns: ** pid of the process -- -1 if it failed. */ pid_t prog_open(argv, pfd, e) char **argv; int *pfd; ENVELOPE *e; { pid_t pid; int save_errno; int sff; int ret; int fdv[2]; char *p, *q; char buf[MAXPATHLEN]; extern int DtableSize; if (pipe(fdv) < 0) { syserr("%s: cannot create pipe for stdout", argv[0]); return -1; } pid = fork(); if (pid < 0) { syserr("%s: cannot fork", argv[0]); (void) close(fdv[0]); (void) close(fdv[1]); return -1; } if (pid > 0) { /* parent */ (void) close(fdv[1]); *pfd = fdv[0]; return pid; } /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; CurrentPid = getpid(); /* ** Initialize exception stack and default exception ** handler for child process. */ sm_exc_newthread(fatal_error); /* child -- close stdin */ (void) close(0); /* stdout goes back to parent */ (void) close(fdv[0]); if (dup2(fdv[1], 1) < 0) { syserr("%s: cannot dup2 for stdout", argv[0]); _exit(EX_OSERR); } (void) close(fdv[1]); /* stderr goes to transcript if available */ if (e->e_xfp != NULL) { int xfd; xfd = sm_io_getinfo(e->e_xfp, SM_IO_WHAT_FD, NULL); if (xfd >= 0 && dup2(xfd, 2) < 0) { syserr("%s: cannot dup2 for stderr", argv[0]); _exit(EX_OSERR); } } /* this process has no right to the queue file */ if (e->e_lockfp != NULL) { int fd; fd = sm_io_getinfo(e->e_lockfp, SM_IO_WHAT_FD, NULL); if (fd >= 0) (void) close(fd); else syserr("%s: lockfp does not have a fd", argv[0]); } /* chroot to the program mailer directory, if defined */ if (ProgMailer != NULL && ProgMailer->m_rootdir != NULL) { expand(ProgMailer->m_rootdir, buf, sizeof(buf), e); if (chroot(buf) < 0) { syserr("prog_open: cannot chroot(%s)", buf); exit(EX_TEMPFAIL); } if (chdir("/") < 0) { syserr("prog_open: cannot chdir(/)"); exit(EX_TEMPFAIL); } } /* run as default user */ endpwent(); sm_mbdb_terminate(); #if _FFR_MEMSTAT (void) sm_memstat_close(); #endif if (setgid(DefGid) < 0 && geteuid() == 0) { syserr("prog_open: setgid(%ld) failed", (long) DefGid); exit(EX_TEMPFAIL); } if (setuid(DefUid) < 0 && geteuid() == 0) { syserr("prog_open: setuid(%ld) failed", (long) DefUid); exit(EX_TEMPFAIL); } /* run in some directory */ if (ProgMailer != NULL) p = ProgMailer->m_execdir; else p = NULL; for (; p != NULL; p = q) { q = strchr(p, ':'); if (q != NULL) *q = '\0'; expand(p, buf, sizeof(buf), e); if (q != NULL) *q++ = ':'; if (buf[0] != '\0' && chdir(buf) >= 0) break; } if (p == NULL) { /* backup directories */ if (chdir("/tmp") < 0) (void) chdir("/"); } /* Check safety of program to be run */ sff = SFF_ROOTOK|SFF_EXECOK; if (!bitnset(DBS_RUNWRITABLEPROGRAM, DontBlameSendmail)) sff |= SFF_NOGWFILES|SFF_NOWWFILES; if (bitnset(DBS_RUNPROGRAMINUNSAFEDIRPATH, DontBlameSendmail)) sff |= SFF_NOPATHCHECK; else sff |= SFF_SAFEDIRPATH; ret = safefile(argv[0], DefUid, DefGid, DefUser, sff, 0, NULL); if (ret != 0) sm_syslog(LOG_INFO, e->e_id, "Warning: prog_open: program %s unsafe: %s", argv[0], sm_errstring(ret)); /* arrange for all the files to be closed */ sm_close_on_exec(STDERR_FILENO + 1, DtableSize); /* now exec the process */ (void) execve(argv[0], (ARGV_T) argv, (ARGV_T) UserEnviron); /* woops! failed */ save_errno = errno; syserr("%s: cannot exec", argv[0]); if (transienterror(save_errno)) _exit(EX_OSERR); _exit(EX_CONFIG); return -1; /* avoid compiler warning on IRIX */ } /* ** GET_COLUMN -- look up a Column in a line buffer ** ** Parameters: ** line -- the raw text line to search. [A] ** col -- the column number to fetch. ** delim -- the delimiter between columns. If null, ** use white space. ** buf -- the output buffer. ** buflen -- the length of buf. ** ** Returns: ** buf if successful. ** NULL otherwise. */ char * get_column(line, col, delim, buf, buflen) char line[]; int col; int delim; char buf[]; int buflen; { char *p; char *begin, *end; int i; char delimbuf[4]; if ((char) delim == '\0') (void) sm_strlcpy(delimbuf, "\n\t ", sizeof(delimbuf)); else { delimbuf[0] = (char) delim; delimbuf[1] = '\0'; } p = line; if (*p == '\0') return NULL; /* line empty */ if (*p == (char) delim && col == 0) return NULL; /* first column empty */ begin = line; if (col == 0 && (char) delim == '\0') { while (*begin != '\0' && SM_ISSPACE(*begin)) begin++; } for (i = 0; i < col; i++) { if ((begin = strpbrk(begin, delimbuf)) == NULL) return NULL; /* no such column */ begin++; if ((char) delim == '\0') { while (*begin != '\0' && SM_ISSPACE(*begin)) begin++; } } end = strpbrk(begin, delimbuf); if (end == NULL) i = strlen(begin); else i = end - begin; if (i >= buflen) i = buflen - 1; (void) sm_strlcpy(buf, begin, i + 1); return buf; } /* ** CLEANSTRCPY -- copy string keeping out bogus characters ** XXX: This may be a problem for EAI? ** ** Parameters: ** t -- "to" string. ** f -- "from" string. [A] ** l -- length of space available in "to" string. ** ** Returns: ** none. */ void cleanstrcpy(t, f, l) register char *t; register char *f; int l; { /* check for newlines and log if necessary */ (void) denlstring(f, true, true); if (l <= 0) syserr("!cleanstrcpy: length == 0"); l--; while (l > 0 && *f != '\0') { if (isascii(*f) && (isalnum(*f) || strchr("!#$%&'*+-./^_`{|}~", *f) != NULL)) { l--; *t++ = *f; } f++; } *t = '\0'; } /* ** DENLSTRING -- convert newlines in a string to spaces ** ** Parameters: ** s -- the input string [A] ** strict -- if set, don't permit continuation lines. ** logattacks -- if set, log attempted attacks. ** ** Returns: ** A pointer to a version of the string with newlines ** mapped to spaces. This should be copied. */ char * denlstring(s, strict, logattacks) char *s; bool strict; bool logattacks; { register char *p; int l; static char *bp = NULL; static int bl = 0; p = s; while ((p = strchr(p, '\n')) != NULL) if (strict || (*++p != ' ' && *p != '\t')) break; if (p == NULL) return s; l = strlen(s) + 1; if (bl < l) { /* allocate more space */ char *nbp = sm_pmalloc_x(l); if (bp != NULL) sm_free(bp); bp = nbp; bl = l; } (void) sm_strlcpy(bp, s, l); for (p = bp; (p = strchr(p, '\n')) != NULL; ) *p++ = ' '; if (logattacks) { sm_syslog(LOG_NOTICE, CurEnv ? CurEnv->e_id : NULL, "POSSIBLE ATTACK from %.100s: newline in string \"%s\"", RealHostName == NULL ? "[UNKNOWN]" : RealHostName, shortenstring(bp, MAXSHORTSTR)); } return bp; } /* ** STRREPLNONPRT -- replace "unprintable" characters in a string with subst ** ** Parameters: ** s -- string to manipulate (in place) [A] ** c -- character to use as replacement ** ** Returns: ** true iff string did not contain "unprintable" characters */ bool strreplnonprt(s, c) char *s; int c; { bool ok; ok = true; if (s == NULL) return ok; while (*s != '\0') { if (!(isascii(*s) && isprint(*s))) { *s = c; ok = false; } ++s; } return ok; } /* ** PATH_IS_DIR -- check to see if file exists and is a directory. ** ** There are some additional checks for security violations in ** here. This routine is intended to be used for the host status ** support. ** ** Parameters: ** pathname -- pathname to check for directory-ness. [x] ** createflag -- if set, create directory if needed. ** ** Returns: ** true -- if the indicated pathname is a directory ** false -- otherwise */ bool path_is_dir(pathname, createflag) char *pathname; bool createflag; { struct stat statbuf; #if HASLSTAT if (lstat(pathname, &statbuf) < 0) #else if (stat(pathname, &statbuf) < 0) #endif { if (errno != ENOENT || !createflag) return false; if (mkdir(pathname, 0755) < 0) return false; return true; } if (!S_ISDIR(statbuf.st_mode)) { errno = ENOTDIR; return false; } /* security: don't allow writable directories */ if (bitset(S_IWGRP|S_IWOTH, statbuf.st_mode)) { errno = EACCES; return false; } return true; } /* ** PROC_LIST_ADD -- add process id to list of our children ** ** Parameters: ** pid -- pid to add to list. ** task -- task of pid. ** type -- type of process. ** count -- number of processes. ** other -- other information for this type. ** ** Returns: ** none ** ** Side Effects: ** May increase CurChildren. May grow ProcList. */ typedef struct procs PROCS_T; struct procs { pid_t proc_pid; char *proc_task; int proc_type; int proc_count; int proc_other; SOCKADDR proc_hostaddr; }; static PROCS_T *volatile ProcListVec = NULL; static int ProcListSize = 0; void proc_list_add(pid, task, type, count, other, hostaddr) pid_t pid; char *task; int type; int count; int other; SOCKADDR *hostaddr; { int i; for (i = 0; i < ProcListSize; i++) { if (ProcListVec[i].proc_pid == NO_PID) break; } if (i >= ProcListSize) { /* probe the existing vector to avoid growing infinitely */ proc_list_probe(); /* now scan again */ for (i = 0; i < ProcListSize; i++) { if (ProcListVec[i].proc_pid == NO_PID) break; } } if (i >= ProcListSize) { /* grow process list */ int chldwasblocked; PROCS_T *npv; SM_ASSERT(ProcListSize < INT_MAX - PROC_LIST_SEG); npv = (PROCS_T *) sm_pmalloc_x((sizeof(*npv)) * (ProcListSize + PROC_LIST_SEG)); /* Block SIGCHLD so reapchild() doesn't mess with us */ chldwasblocked = sm_blocksignal(SIGCHLD); if (ProcListSize > 0) { memmove(npv, ProcListVec, ProcListSize * sizeof(PROCS_T)); sm_free(ProcListVec); } /* XXX just use memset() to initialize this part? */ for (i = ProcListSize; i < ProcListSize + PROC_LIST_SEG; i++) { npv[i].proc_pid = NO_PID; npv[i].proc_task = NULL; npv[i].proc_type = PROC_NONE; } i = ProcListSize; ProcListSize += PROC_LIST_SEG; ProcListVec = npv; if (chldwasblocked == 0) (void) sm_releasesignal(SIGCHLD); } ProcListVec[i].proc_pid = pid; PSTRSET(ProcListVec[i].proc_task, task); ProcListVec[i].proc_type = type; ProcListVec[i].proc_count = count; ProcListVec[i].proc_other = other; if (hostaddr != NULL) ProcListVec[i].proc_hostaddr = *hostaddr; else memset(&ProcListVec[i].proc_hostaddr, 0, sizeof(ProcListVec[i].proc_hostaddr)); /* if process adding itself, it's not a child */ if (pid != CurrentPid) { SM_ASSERT(CurChildren < INT_MAX); CurChildren++; } } /* ** PROC_LIST_SET -- set pid task in process list ** ** Parameters: ** pid -- pid to set ** task -- task of pid ** ** Returns: ** none. */ void proc_list_set(pid, task) pid_t pid; char *task; { int i; for (i = 0; i < ProcListSize; i++) { if (ProcListVec[i].proc_pid == pid) { PSTRSET(ProcListVec[i].proc_task, task); break; } } } /* ** PROC_LIST_DROP -- drop pid from process list ** ** Parameters: ** pid -- pid to drop ** st -- process status ** other -- storage for proc_other (return). ** ** Returns: ** none. ** ** Side Effects: ** May decrease CurChildren, CurRunners, or ** set RestartRequest or ShutdownRequest. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ void proc_list_drop(pid, st, other) pid_t pid; int st; int *other; { int i; int type = PROC_NONE; for (i = 0; i < ProcListSize; i++) { if (ProcListVec[i].proc_pid == pid) { ProcListVec[i].proc_pid = NO_PID; type = ProcListVec[i].proc_type; if (other != NULL) *other = ProcListVec[i].proc_other; if (CurChildren > 0) CurChildren--; break; } } if (type == PROC_CONTROL && WIFEXITED(st)) { /* if so, see if we need to restart or shutdown */ if (WEXITSTATUS(st) == EX_RESTART) RestartRequest = "control socket"; else if (WEXITSTATUS(st) == EX_SHUTDOWN) ShutdownRequest = "control socket"; } else if (type == PROC_QUEUE_CHILD && !WIFSTOPPED(st) && ProcListVec[i].proc_other > -1) { /* restart this persistent runner */ mark_work_group_restart(ProcListVec[i].proc_other, st); } else if (type == PROC_QUEUE) { CurRunners -= ProcListVec[i].proc_count; /* CHK_CUR_RUNNERS() can't be used here: uses syslog() */ if (CurRunners < 0) CurRunners = 0; } } /* ** PROC_LIST_CLEAR -- clear the process list ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** Sets CurChildren to zero. */ void proc_list_clear() { int i; /* start from 1 since 0 is the daemon itself */ for (i = 1; i < ProcListSize; i++) ProcListVec[i].proc_pid = NO_PID; CurChildren = 0; } /* ** PROC_LIST_PROBE -- probe processes in the list to see if they still exist ** ** Parameters: ** none ** ** Returns: ** none ** ** Side Effects: ** May decrease CurChildren. */ void proc_list_probe() { int i, children; int chldwasblocked; pid_t pid; children = 0; chldwasblocked = sm_blocksignal(SIGCHLD); /* start from 1 since 0 is the daemon itself */ for (i = 1; i < ProcListSize; i++) { pid = ProcListVec[i].proc_pid; if (pid == NO_PID || pid == CurrentPid) continue; if (kill(pid, 0) < 0) { if (LogLevel > 3) sm_syslog(LOG_DEBUG, CurEnv->e_id, "proc_list_probe: lost pid %d", (int) ProcListVec[i].proc_pid); ProcListVec[i].proc_pid = NO_PID; SM_FREE(ProcListVec[i].proc_task); if (ProcListVec[i].proc_type == PROC_QUEUE) { CurRunners -= ProcListVec[i].proc_count; CHK_CUR_RUNNERS("proc_list_probe", i, ProcListVec[i].proc_count); } CurChildren--; } else { ++children; } } if (CurChildren < 0) CurChildren = 0; if (chldwasblocked == 0) (void) sm_releasesignal(SIGCHLD); if (LogLevel > 10 && children != CurChildren && CurrentPid == DaemonPid) { sm_syslog(LOG_ERR, NOQID, "proc_list_probe: found %d children, expected %d", children, CurChildren); } } /* ** PROC_LIST_DISPLAY -- display the process list ** ** Parameters: ** out -- output file pointer ** prefix -- string to output in front of each line. ** ** Returns: ** none. */ void proc_list_display(out, prefix) SM_FILE_T *out; char *prefix; { int i; for (i = 0; i < ProcListSize; i++) { if (ProcListVec[i].proc_pid == NO_PID) continue; (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "%s%d %s%s\n", prefix, (int) ProcListVec[i].proc_pid, ProcListVec[i].proc_task != NULL ? ProcListVec[i].proc_task : "(unknown)", (OpMode == MD_SMTP || OpMode == MD_DAEMON || OpMode == MD_ARPAFTP) ? "\r" : ""); } } /* ** PROC_LIST_SIGNAL -- send a signal to a type of process in the list ** ** Parameters: ** type -- type of process to signal ** signal -- the type of signal to send ** ** Returns: ** none. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ void proc_list_signal(type, signal) int type; int signal; { int chldwasblocked; int alrmwasblocked; int i; pid_t mypid = getpid(); /* block these signals so that we may signal cleanly */ chldwasblocked = sm_blocksignal(SIGCHLD); alrmwasblocked = sm_blocksignal(SIGALRM); /* Find all processes of type and send signal */ for (i = 0; i < ProcListSize; i++) { if (ProcListVec[i].proc_pid == NO_PID || ProcListVec[i].proc_pid == mypid) continue; if (ProcListVec[i].proc_type != type) continue; (void) kill(ProcListVec[i].proc_pid, signal); } /* restore the signals */ if (alrmwasblocked == 0) (void) sm_releasesignal(SIGALRM); if (chldwasblocked == 0) (void) sm_releasesignal(SIGCHLD); } /* ** COUNT_OPEN_CONNECTIONS ** ** Parameters: ** hostaddr - ClientAddress ** ** Returns: ** the number of open connections for this client ** */ int count_open_connections(hostaddr) SOCKADDR *hostaddr; { int i, n; if (hostaddr == NULL) return 0; /* ** This code gets called before proc_list_add() gets called, ** so we (the daemon child for this connection) have not yet ** counted ourselves. Hence initialize the counter to 1 ** instead of 0 to compensate. */ n = 1; for (i = 0; i < ProcListSize; i++) { if (ProcListVec[i].proc_pid == NO_PID) continue; if (hostaddr->sa.sa_family != ProcListVec[i].proc_hostaddr.sa.sa_family) continue; #if NETINET if (hostaddr->sa.sa_family == AF_INET && (hostaddr->sin.sin_addr.s_addr == ProcListVec[i].proc_hostaddr.sin.sin_addr.s_addr)) n++; #endif #if NETINET6 if (hostaddr->sa.sa_family == AF_INET6 && IN6_ARE_ADDR_EQUAL(&(hostaddr->sin6.sin6_addr), &(ProcListVec[i].proc_hostaddr.sin6.sin6_addr))) n++; #endif } return n; } #if _FFR_XCNCT /* ** XCONNECT -- get X-CONNECT info ** ** Parameters: ** inchannel -- FILE to check ** ** Returns: ** >0 if X-CONNECT/PROXY was used successfully (D_XCNCT*) ** 0 if X-CONNECT/PROXY was not given ** -1 on error ** -2 PROXY UNKNOWN */ /* ** HA proxy version 1: ** ** PROXY TCP[4|6] IPv[4|6]-src-addr IPv[4|6]-dst-addr src-port dst-port\r\n ** PROXY UNKNOWN ... ** examples: ** "PROXY TCP4 255.255.255.255 255.255.255.255 65535 65535\r\n" ** "PROXY TCP6 ffff:f...f:ffff ffff:f...f:ffff 65535 65535\r\n" ** "PROXY UNKNOWN\r\n" */ int xconnect(inchannel) SM_FILE_T *inchannel; { int r, i; char *p, *b, delim, inp[MAXINPLINE]; SOCKADDR addr; char **pvp; char pvpbuf[PSBUFSIZE]; char *peerhostname; /* name of SMTP peer or "localhost" */ extern ENVELOPE BlankEnvelope; #if _FFR_HAPROXY int haproxy = AF_UNSPEC; # define HAPROXY "PROXY " # define HAPROXYLEN (sizeof(HAPROXY) - 1) #endif #define XCONNECT "X-CONNECT " #define XCNNCTLEN (sizeof(XCONNECT) - 1) /* Ask the ruleset whether to use x-connect */ pvp = NULL; peerhostname = RealHostName; if (peerhostname == NULL) peerhostname = "localhost"; r = rscap("x_connect", peerhostname, anynet_ntoa(&RealHostAddr), &BlankEnvelope, &pvp, pvpbuf, sizeof(pvpbuf)); if (tTd(75, 8)) sm_syslog(LOG_INFO, NOQID, "x-connect: rscap=%d", r); if (r == EX_UNAVAILABLE) return 0; if (r != EX_OK) { /* ruleset error */ sm_syslog(LOG_INFO, NOQID, "x-connect: rscap=%d", r); return 0; } if (pvp != NULL && pvp[0] != NULL && (pvp[0][0] & 0377) == CANONNET) { /* $#: no x-connect */ if (tTd(75, 7)) sm_syslog(LOG_INFO, NOQID, "x-connect: nope"); return 0; } #if _FFR_HAPROXY if (pvp != NULL && pvp[0] != NULL && strcasecmp(pvp[0], "haproxy1") == 0) { haproxy = AF_LOCAL; } #endif # if _FFR_XCNCT > 1 if (pvp != NULL && pvp[0] != NULL && pvp[0][0] == '2' && pvp[0][1] == '2' && pvp[0][2] == '0') { char *hostname; /* my hostname ($j) */ hostname = macvalue('j', &BlankEnvelope); if (tTd(75, 7)) sm_syslog(LOG_INFO, NOQID, "x-connect=%s", pvp[0]); message("220-%s %s", hostname != NULL ? hostname : "xconnect", pvp[1] != NULL ? pvp[1] : "waiting for xconnect"); sm_io_flush(OutChannel, SM_TIME_DEFAULT); } # endif p = sfgets(inp, sizeof(inp), InChannel, TimeOuts.to_nextcommand, "pre"); if (tTd(75, 6)) sm_syslog(LOG_INFO, NOQID, "x-connect: input=%s", p); #if _FFR_HAPROXY if (AF_UNSPEC != haproxy) { if (p == NULL || strncasecmp(p, HAPROXY, HAPROXYLEN) != 0) return -1; p += HAPROXYLEN; # define HAPUNKNOWN "UNKNOWN" # define HAPUNKNOWNLEN (sizeof(HAPUNKNOWN) - 1) if (strncasecmp(p, HAPUNKNOWN, HAPUNKNOWNLEN) == 0) { /* how to handle this? */ sm_syslog(LOG_INFO, NOQID, "haproxy: input=%s, status=ignored", p); return -2; } # define HAPTCP4 "TCP4 " # define HAPTCP6 "TCP6 " # define HAPTCPNLEN (sizeof(HAPTCP4) - 1) if (strncasecmp(p, HAPTCP4, HAPTCPNLEN) == 0) haproxy = AF_INET; # if NETINET6 if (strncasecmp(p, HAPTCP6, HAPTCPNLEN) == 0) haproxy = AF_INET6; # endif if (AF_LOCAL != haproxy) { p += HAPTCPNLEN; goto getip; } return -1; } #endif if (p == NULL || strncasecmp(p, XCONNECT, XCNNCTLEN) != 0) return -1; p += XCNNCTLEN; while (SM_ISSPACE(*p)) p++; #if _FFR_HAPROXY getip: #endif /* parameters: IPAddress [Hostname[ M]] */ b = p; while (*p != '\0' && isascii(*p) && (isalnum(*p) || *p == '.' || *p== ':')) p++; delim = *p; *p = '\0'; memset(&addr, '\0', sizeof(addr)); addr.sin.sin_addr.s_addr = inet_addr(b); if (addr.sin.sin_addr.s_addr != INADDR_NONE) { addr.sa.sa_family = AF_INET; memcpy(&RealHostAddr, &addr, sizeof(addr)); if (tTd(75, 2)) sm_syslog(LOG_INFO, NOQID, "x-connect: addr=%s", anynet_ntoa(&RealHostAddr)); } # if NETINET6 else if ((r = inet_pton(AF_INET6, b, &addr.sin6.sin6_addr)) == 1) { addr.sa.sa_family = AF_INET6; memcpy(&RealHostAddr, &addr, sizeof(addr)); } # endif else return -1; #if _FFR_HAPROXY if (AF_UNSPEC != haproxy) { /* ** dst-addr and dst-port are ignored because ** they are not really worth to check: ** IPv[4|6]-dst-addr: must be one of "our" addresses, ** dst-port: must be the DaemonPort. ** We also do not check whether ** haproxy == addr.sa.sa_family */ if (' ' == delim) { b = ++p; while (*p != '\0' && !SM_ISSPACE(*p)) ++p; if (*p != '\0' && SM_ISSPACE(*p)) ++p; if (*p != '\0') { unsigned short port; port = htons(atoi(p)); if (AF_INET == haproxy) RealHostAddr.sin.sin_port = port; # if NETINET6 if (AF_INET6 == haproxy) RealHostAddr.sin6.sin6_port = port; # endif } } SM_FREE(RealHostName); return D_XCNCT; } #endif /* more parameters? */ if (delim != ' ') return D_XCNCT; for (b = ++p, i = 0; *p != '\0' && isascii(*p) && (isalnum(*p) || *p == '.' || *p == '-'); p++, i++) ; if (i == 0) return D_XCNCT; delim = *p; if (i > MAXNAME) /* EAI:ok */ b[MAXNAME] = '\0'; /* EAI:ok */ else b[i] = '\0'; SM_FREE(RealHostName); RealHostName = newstr(b); if (tTd(75, 2)) sm_syslog(LOG_INFO, NOQID, "x-connect: host=%s", b); *p = delim; b = p; if (*p != ' ') return D_XCNCT; while (*p != '\0' && SM_ISSPACE(*p)) p++; if (tTd(75, 4)) { char *e; e = strpbrk(p, "\r\n"); if (e != NULL) *e = '\0'; sm_syslog(LOG_INFO, NOQID, "x-connect: rest=%s", p); } if (*p == 'M') return D_XCNCT_M; return D_XCNCT; } #endif /* _FFR_XCNCT */ sendmail-8.18.1/sendmail/mci.c0000644000372400037240000010676214556365350015513 0ustar xbuildxbuild/* * Copyright (c) 1998-2005, 2010 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: mci.c,v 8.225 2013-11-22 20:51:56 ca Exp $") #if NETINET || NETINET6 # include #endif #include #if STARTTLS # include #endif static int mci_generate_persistent_path __P((const char *, char *, int, bool)); static bool mci_load_persistent __P((MCI *)); static void mci_uncache __P((MCI **, bool)); static void mci_clear __P((MCI *)); static int mci_lock_host_statfile __P((MCI *)); static int mci_read_persistent __P((SM_FILE_T *, MCI *)); /* ** Mail Connection Information (MCI) Caching Module. ** ** There are actually two separate things cached. The first is ** the set of all open connections -- these are stored in a ** (small) list. The second is stored in the symbol table; it ** has the overall status for all hosts, whether or not there ** is a connection open currently. ** ** There should never be too many connections open (since this ** could flood the socket table), nor should a connection be ** allowed to sit idly for too long. ** ** MaxMciCache is the maximum number of open connections that ** will be supported. ** ** MciCacheTimeout is the time (in seconds) that a connection ** is permitted to survive without activity. ** ** We actually try any cached connections by sending a RSET ** before we use them; if the RSET fails we close down the ** connection and reopen it (see smtpprobe()). ** ** The persistent MCI code is donated by Mark Lovell and Paul ** Vixie. It is based on the long term host status code in KJS ** written by Paul but has been adapted by Mark to fit into the ** MCI structure. */ static MCI **MciCache; /* the open connection cache */ /* ** MCI_CACHE -- enter a connection structure into the open connection cache ** ** This may cause something else to be flushed. ** ** Parameters: ** mci -- the connection to cache. ** ** Returns: ** none. */ void mci_cache(mci) register MCI *mci; { register MCI **mcislot; /* ** Find the best slot. This may cause expired connections ** to be closed. */ mcislot = mci_scan(mci); if (mcislot == NULL) { /* we don't support caching */ return; } if (mci->mci_host == NULL) return; /* if this is already cached, we are done */ if (bitset(MCIF_CACHED, mci->mci_flags)) return; /* otherwise we may have to clear the slot */ if (*mcislot != NULL) mci_uncache(mcislot, true); if (tTd(42, 5)) sm_dprintf("mci_cache: caching %p (%s) in slot %d\n", (void *)mci, mci->mci_host, (int) (mcislot - MciCache)); if (tTd(91, 100)) sm_syslog(LOG_DEBUG, CurEnv->e_id, "mci_cache: caching %lx (%.100s) in slot %d", (unsigned long) mci, mci->mci_host, (int) (mcislot - MciCache)); *mcislot = mci; mci->mci_flags |= MCIF_CACHED; } /* ** MCI_SCAN -- scan the cache, flush junk, and return best slot ** ** Parameters: ** savemci -- never flush this one. Can be null. ** ** Returns: ** The LRU (or empty) slot. */ MCI ** mci_scan(savemci) MCI *savemci; { time_t now; register MCI **bestmci; register MCI *mci; register int i; if (MaxMciCache <= 0) { /* we don't support caching */ return NULL; } if (MciCache == NULL) { /* first call */ MciCache = (MCI **) sm_pmalloc_x(MaxMciCache * sizeof(*MciCache)); memset((char *) MciCache, '\0', MaxMciCache * sizeof(*MciCache)); return &MciCache[0]; } now = curtime(); bestmci = &MciCache[0]; for (i = 0; i < MaxMciCache; i++) { mci = MciCache[i]; if (mci == NULL || mci->mci_state == MCIS_CLOSED) { bestmci = &MciCache[i]; continue; } if ((mci->mci_lastuse + MciCacheTimeout <= now || (mci->mci_mailer != NULL && mci->mci_mailer->m_maxdeliveries > 0 && mci->mci_deliveries + 1 >= mci->mci_mailer->m_maxdeliveries))&& mci != savemci) { /* connection idle too long or too many deliveries */ bestmci = &MciCache[i]; /* close it */ mci_uncache(bestmci, true); continue; } if (*bestmci == NULL) continue; if (mci->mci_lastuse < (*bestmci)->mci_lastuse) bestmci = &MciCache[i]; } return bestmci; } /* ** MCI_UNCACHE -- remove a connection from a slot. ** ** May close a connection. ** ** Parameters: ** mcislot -- the slot to empty. ** doquit -- if true, send QUIT protocol on this connection. ** if false, we are assumed to be in a forked child; ** all we want to do is close the file(s). ** ** Returns: ** none. */ static void mci_uncache(mcislot, doquit) register MCI **mcislot; bool doquit; { register MCI *mci; extern ENVELOPE BlankEnvelope; mci = *mcislot; if (mci == NULL) return; *mcislot = NULL; if (mci->mci_host == NULL) return; mci_unlock_host(mci); if (tTd(42, 5)) sm_dprintf("mci_uncache: uncaching %p (%s) from slot %d (%d)\n", (void *)mci, mci->mci_host, (int) (mcislot - MciCache), doquit); if (tTd(91, 100)) sm_syslog(LOG_DEBUG, CurEnv->e_id, "mci_uncache: uncaching %lx (%.100s) from slot %d (%d)", (unsigned long) mci, mci->mci_host, (int) (mcislot - MciCache), doquit); mci->mci_deliveries = 0; if (doquit) { message("Closing connection to %s", mci->mci_host); mci->mci_flags &= ~MCIF_CACHED; /* only uses the envelope to flush the transcript file */ if (mci->mci_state != MCIS_CLOSED) smtpquit(mci->mci_mailer, mci, &BlankEnvelope); #if XLA xla_host_end(mci->mci_host); #endif } else { if (mci->mci_in != NULL) (void) sm_io_close(mci->mci_in, SM_TIME_DEFAULT); if (mci->mci_out != NULL) (void) sm_io_close(mci->mci_out, SM_TIME_DEFAULT); mci->mci_in = mci->mci_out = NULL; mci->mci_state = MCIS_CLOSED; mci->mci_exitstat = EX_OK; mci->mci_errno = 0; mci->mci_flags = 0; mci->mci_retryrcpt = false; mci->mci_tolist = NULL; mci->mci_okrcpts = 0; } SM_FREE(mci->mci_status); SM_FREE(mci->mci_rstatus); SM_FREE(mci->mci_heloname); mci_clear(mci); if (mci->mci_rpool != NULL) { sm_rpool_free(mci->mci_rpool); mci->mci_macro.mac_rpool = NULL; mci->mci_rpool = NULL; } } /* ** MCI_FLUSH -- flush the entire cache ** ** Parameters: ** doquit -- if true, send QUIT protocol. ** if false, just close the connection. ** allbut -- but leave this one open. ** ** Returns: ** none. */ void mci_flush(doquit, allbut) bool doquit; MCI *allbut; { register int i; if (MciCache == NULL) return; for (i = 0; i < MaxMciCache; i++) { if (allbut != MciCache[i]) mci_uncache(&MciCache[i], doquit); } } /* ** MCI_CLR_EXTENSIONS -- clear knowledge about SMTP extensions ** ** Parameters: ** mci -- the connection to clear. ** ** Returns: ** none. */ void mci_clr_extensions(mci) MCI *mci; { if (mci == NULL) return; mci->mci_flags &= ~MCIF_EXTENS; mci->mci_maxsize = 0; mci->mci_min_by = 0; #if SASL mci->mci_saslcap = NULL; #endif } /* ** MCI_CLEAR -- clear mci ** ** Parameters: ** mci -- the connection to clear. ** ** Returns: ** none. */ static void mci_clear(mci) MCI *mci; { if (mci == NULL) return; mci->mci_maxsize = 0; mci->mci_min_by = 0; mci->mci_deliveries = 0; #if SASL if (bitset(MCIF_AUTHACT, mci->mci_flags)) sasl_dispose(&mci->mci_conn); #endif #if STARTTLS if (bitset(MCIF_TLSACT, mci->mci_flags) && mci->mci_ssl != NULL) SM_SSL_FREE(mci->mci_ssl); #endif /* which flags to preserve? */ mci->mci_flags &= MCIF_CACHED; mactabclear(&mci->mci_macro); } /* ** MCI_GET -- get information about a particular host ** ** Parameters: ** host -- host to look for. ** m -- mailer. ** ** Returns: ** mci for this host (might be new). */ MCI * mci_get(host, m) char *host; MAILER *m; { register MCI *mci; register STAB *s; extern SOCKADDR CurHostAddr; /* clear CurHostAddr so we don't get a bogus address with this name */ memset(&CurHostAddr, '\0', sizeof(CurHostAddr)); /* clear out any expired connections */ (void) mci_scan(NULL); if (m->m_mno < 0) syserr("!negative mno %d (%s)", m->m_mno, m->m_name); s = stab(host, ST_MCI + m->m_mno, ST_ENTER); mci = &s->s_mci; /* initialize per-message data */ mci->mci_retryrcpt = false; mci->mci_tolist = NULL; mci->mci_okrcpts = 0; mci->mci_flags &= ~MCIF_NOTSTICKY; if (mci->mci_rpool == NULL) mci->mci_rpool = sm_rpool_new_x(NULL); if (mci->mci_macro.mac_rpool == NULL) mci->mci_macro.mac_rpool = mci->mci_rpool; /* ** We don't need to load the persistent data if we have data ** already loaded in the cache. */ if (mci->mci_host == NULL && (mci->mci_host = s->s_name) != NULL && !mci_load_persistent(mci)) { if (tTd(42, 2)) sm_dprintf("mci_get(%s %s): lock failed\n", host, m->m_name); mci->mci_exitstat = EX_TEMPFAIL; mci->mci_state = MCIS_CLOSED; mci->mci_statfile = NULL; return mci; } if (tTd(42, 2)) { sm_dprintf("mci_get(%s %s): mci_state=%d, _flags=%lx, _exitstat=%d, _errno=%d\n", host, m->m_name, mci->mci_state, mci->mci_flags, mci->mci_exitstat, mci->mci_errno); } if (mci->mci_state == MCIS_OPEN) { /* poke the connection to see if it's still alive */ (void) smtpprobe(mci); /* reset the stored state in the event of a timeout */ if (mci->mci_state != MCIS_OPEN) { mci->mci_errno = 0; mci->mci_exitstat = EX_OK; mci->mci_state = MCIS_CLOSED; } else { /* get peer host address */ /* (this should really be in the mci struct) */ SOCKADDR_LEN_T socklen = sizeof(CurHostAddr); (void) getpeername(sm_io_getinfo(mci->mci_in, SM_IO_WHAT_FD, NULL), (struct sockaddr *) &CurHostAddr, &socklen); } } if (mci->mci_state == MCIS_CLOSED) { time_t now = curtime(); /* if this info is stale, ignore it */ if (mci->mci_lastuse + MciInfoTimeout <= now) { mci->mci_lastuse = now; mci->mci_errno = 0; mci->mci_exitstat = EX_OK; } mci_clear(mci); } return mci; } /* ** MCI_CLOSE -- (forcefully) close files used for a connection. ** Note: this is a last resort, usually smtpquit() or endmailer() ** should be used to close a connection. ** ** Parameters: ** mci -- the connection to close. ** where -- where has this been called? ** ** Returns: ** none. */ void mci_close(mci, where) MCI *mci; char *where; { bool dumped; if (mci == NULL) return; dumped = false; if (mci->mci_out != NULL) { if (tTd(56, 1)) { sm_dprintf("mci_close: mci_out!=NULL, where=%s\n", where); mci_dump(sm_debug_file(), mci, false); dumped = true; } (void) sm_io_close(mci->mci_out, SM_TIME_DEFAULT); mci->mci_out = NULL; } if (mci->mci_in != NULL) { if (tTd(56, 1)) { sm_dprintf("mci_close: mci_in!=NULL, where=%s\n", where); if (!dumped) mci_dump(sm_debug_file(), mci, false); } (void) sm_io_close(mci->mci_in, SM_TIME_DEFAULT); mci->mci_in = NULL; } mci->mci_state = MCIS_CLOSED; } /* ** MCI_NEW -- allocate new MCI structure ** ** Parameters: ** rpool -- if non-NULL: allocate from that rpool. ** ** Returns: ** mci (new). */ MCI * mci_new(rpool) SM_RPOOL_T *rpool; { register MCI *mci; if (rpool == NULL) mci = (MCI *) sm_malloc_x(sizeof(*mci)); else mci = (MCI *) sm_rpool_malloc_x(rpool, sizeof(*mci)); memset((char *) mci, '\0', sizeof(*mci)); mci->mci_rpool = sm_rpool_new_x(NULL); mci->mci_macro.mac_rpool = mci->mci_rpool; return mci; } /* ** MCI_MATCH -- check connection cache for a particular host ** ** Parameters: ** host -- host to look for. ** m -- mailer. ** ** Returns: ** true iff open connection exists. */ bool mci_match(host, m) char *host; MAILER *m; { register MCI *mci; register STAB *s; if (m->m_mno < 0 || m->m_mno > MAXMAILERS) return false; s = stab(host, ST_MCI + m->m_mno, ST_FIND); if (s == NULL) return false; mci = &s->s_mci; return mci->mci_state == MCIS_OPEN; } /* ** MCI_SETSTAT -- set status codes in MCI structure. ** ** Parameters: ** mci -- the MCI structure to set. ** xstat -- the exit status code. ** dstat -- the DSN status code. ** rstat -- the SMTP status code. ** ** Returns: ** none. */ void mci_setstat(mci, xstat, dstat, rstat) MCI *mci; int xstat; char *dstat; char *rstat; { /* protocol errors should never be interpreted as sticky */ if (xstat != EX_NOTSTICKY && xstat != EX_PROTOCOL) mci->mci_exitstat = xstat; SM_FREE(mci->mci_status); if (dstat != NULL) mci->mci_status = sm_strdup_x(dstat); SM_FREE(mci->mci_rstatus); if (rstat != NULL) mci->mci_rstatus = sm_strdup_x(rstat); } /* ** MCI_DUMP -- dump the contents of an MCI structure. ** ** Parameters: ** fp -- output file pointer ** mci -- the MCI structure to dump. ** ** Returns: ** none. ** ** Side Effects: ** none. */ struct mcifbits { int mcif_bit; /* flag bit */ char *mcif_name; /* flag name */ }; static struct mcifbits MciFlags[] = { { MCIF_OCC_INCR, "OCC_INCR" }, { MCIF_CACHED, "CACHED" }, { MCIF_ESMTP, "ESMTP" }, { MCIF_EXPN, "EXPN" }, { MCIF_SIZE, "SIZE" }, { MCIF_8BITMIME, "8BITMIME" }, { MCIF_7BIT, "7BIT" }, { MCIF_INHEADER, "INHEADER" }, { MCIF_CVT8TO7, "CVT8TO7" }, { MCIF_DSN, "DSN" }, { MCIF_8BITOK, "8BITOK" }, { MCIF_CVT7TO8, "CVT7TO8" }, { MCIF_INMIME, "INMIME" }, { MCIF_AUTH, "AUTH" }, { MCIF_AUTHACT, "AUTHACT" }, { MCIF_ENHSTAT, "ENHSTAT" }, { MCIF_PIPELINED, "PIPELINED" }, { MCIF_VERB, "VERB" }, #if STARTTLS { MCIF_TLS, "TLS" }, { MCIF_TLSACT, "TLSACT" }, #endif { MCIF_DLVR_BY, "DLVR_BY" }, #if _FFR_IGNORE_EXT_ON_HELO { MCIF_HELO, "HELO" }, #endif { MCIF_INLONGLINE, "INLONGLINE" }, { MCIF_AUTH2, "AUTH2" }, { MCIF_ONLY_EHLO, "ONLY_EHLO" }, { MCIF_NOTSTICKY, "NOTSTICKY" }, #if USE_EAI { MCIF_EAI, "EAI" }, #endif { 0, NULL } }; void mci_dump(fp, mci, logit) SM_FILE_T *fp; register MCI *mci; bool logit; { register char *p; char *sep; char buf[4000]; sep = logit ? " " : "\n\t"; p = buf; (void) sm_snprintf(p, SPACELEFT(buf, p), "MCI@%p: ", (void *)mci); p += strlen(p); if (mci == NULL) { (void) sm_snprintf(p, SPACELEFT(buf, p), "NULL"); goto printit; } (void) sm_snprintf(p, SPACELEFT(buf, p), "flags=%lx", mci->mci_flags); p += strlen(p); /* ** The following check is just for paranoia. It protects the ** assignment in the if() clause. If there's not some minimum ** amount of space we can stop right now. The check will not ** trigger as long as sizeof(buf)=4000. */ if (p >= buf + sizeof(buf) - 4) goto printit; if (mci->mci_flags != 0) { struct mcifbits *f; *p++ = '<'; /* protected above */ for (f = MciFlags; f->mcif_bit != 0; f++) { if (!bitset(f->mcif_bit, mci->mci_flags)) continue; (void) sm_strlcpyn(p, SPACELEFT(buf, p), 2, f->mcif_name, ","); p += strlen(p); } p[-1] = '>'; } /* Note: sm_snprintf() takes care of NULL arguments for %s */ (void) sm_snprintf(p, SPACELEFT(buf, p), ",%serrno=%d, herrno=%d, exitstat=%d, state=%d, pid=%d,%s", sep, mci->mci_errno, mci->mci_herrno, mci->mci_exitstat, mci->mci_state, (int) mci->mci_pid, sep); p += strlen(p); (void) sm_snprintf(p, SPACELEFT(buf, p), "maxsize=%ld, phase=%s, mailer=%s,%s", mci->mci_maxsize, mci->mci_phase, mci->mci_mailer == NULL ? "NULL" : mci->mci_mailer->m_name, sep); p += strlen(p); (void) sm_snprintf(p, SPACELEFT(buf, p), "status=%s, rstatus=%s,%s", mci->mci_status, mci->mci_rstatus, sep); p += strlen(p); (void) sm_snprintf(p, SPACELEFT(buf, p), "host=%s, lastuse=%s", mci->mci_host, ctime(&mci->mci_lastuse)); printit: if (logit) sm_syslog(LOG_DEBUG, CurEnv->e_id, "%.1000s", buf); else (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s\n", buf); } /* ** MCI_DUMP_ALL -- print the entire MCI cache ** ** Parameters: ** fp -- output file pointer ** logit -- if set, log the result instead of printing ** to stdout. ** ** Returns: ** none. */ void mci_dump_all(fp, logit) SM_FILE_T *fp; bool logit; { register int i; if (MciCache == NULL) return; for (i = 0; i < MaxMciCache; i++) mci_dump(fp, MciCache[i], logit); } /* ** MCI_LOCK_HOST -- Lock host while sending. ** ** If we are contacting a host, we'll need to ** update the status information in the host status ** file, and if we want to do that, we ought to have ** locked it. This has the (according to some) ** desirable effect of serializing connectivity with ** remote hosts -- i.e.: one connection to a given ** host at a time. ** ** Parameters: ** mci -- containing the host we want to lock. ** ** Returns: ** EX_OK -- got the lock. ** EX_TEMPFAIL -- didn't get the lock. */ int mci_lock_host(mci) MCI *mci; { if (mci == NULL) { if (tTd(56, 1)) sm_dprintf("mci_lock_host: NULL mci\n"); return EX_OK; } if (!SingleThreadDelivery) return EX_OK; return mci_lock_host_statfile(mci); } static int mci_lock_host_statfile(mci) MCI *mci; { int save_errno = errno; int retVal = EX_OK; char fname[MAXPATHLEN]; if (HostStatDir == NULL || mci->mci_host == NULL) return EX_OK; if (tTd(56, 2)) sm_dprintf("mci_lock_host: attempting to lock %s\n", mci->mci_host); if (mci_generate_persistent_path(mci->mci_host, fname, sizeof(fname), true) < 0) { /* of course this should never happen */ if (tTd(56, 2)) sm_dprintf("mci_lock_host: Failed to generate host path for %s\n", mci->mci_host); retVal = EX_TEMPFAIL; goto cleanup; } mci->mci_statfile = safefopen(fname, O_RDWR, FileMode, SFF_NOLOCK|SFF_NOLINK|SFF_OPENASROOT|SFF_REGONLY|SFF_SAFEDIRPATH|SFF_CREAT); if (mci->mci_statfile == NULL) { syserr("mci_lock_host: cannot create host lock file %s", fname); goto cleanup; } if (!lockfile(sm_io_getinfo(mci->mci_statfile, SM_IO_WHAT_FD, NULL), fname, "", LOCK_EX|LOCK_NB)) { if (tTd(56, 2)) sm_dprintf("mci_lock_host: couldn't get lock on %s\n", fname); (void) sm_io_close(mci->mci_statfile, SM_TIME_DEFAULT); mci->mci_statfile = NULL; retVal = EX_TEMPFAIL; goto cleanup; } if (tTd(56, 12) && mci->mci_statfile != NULL) sm_dprintf("mci_lock_host: Sanity check -- lock is good\n"); cleanup: errno = save_errno; return retVal; } /* ** MCI_UNLOCK_HOST -- unlock host ** ** Clean up the lock on a host, close the file, let ** someone else use it. ** ** Parameters: ** mci -- us. ** ** Returns: ** nothing. */ void mci_unlock_host(mci) MCI *mci; { int save_errno = errno; if (mci == NULL) { if (tTd(56, 1)) sm_dprintf("mci_unlock_host: NULL mci\n"); return; } if (HostStatDir == NULL || mci->mci_host == NULL) return; if (!SingleThreadDelivery && mci_lock_host_statfile(mci) == EX_TEMPFAIL) { if (tTd(56, 1)) sm_dprintf("mci_unlock_host: stat file already locked\n"); } else { if (tTd(56, 2)) sm_dprintf("mci_unlock_host: store prior to unlock\n"); mci_store_persistent(mci); } if (mci->mci_statfile != NULL) { (void) sm_io_close(mci->mci_statfile, SM_TIME_DEFAULT); mci->mci_statfile = NULL; } errno = save_errno; } /* ** MCI_LOAD_PERSISTENT -- load persistent host info ** ** Load information about host that is kept ** in common for all running sendmails. ** ** Parameters: ** mci -- the host/connection to load persistent info for. ** ** Returns: ** true -- lock was successful ** false -- lock failed */ static bool mci_load_persistent(mci) MCI *mci; { int save_errno = errno; bool locked = true; SM_FILE_T *fp; char fname[MAXPATHLEN]; if (mci == NULL) { if (tTd(56, 1)) sm_dprintf("mci_load_persistent: NULL mci\n"); return true; } if (IgnoreHostStatus || HostStatDir == NULL || mci->mci_host == NULL) return true; /* Already have the persistent information in memory */ if (SingleThreadDelivery && mci->mci_statfile != NULL) return true; if (tTd(56, 1)) sm_dprintf("mci_load_persistent: Attempting to load persistent information for %s\n", mci->mci_host); if (mci_generate_persistent_path(mci->mci_host, fname, sizeof(fname), false) < 0) { /* Not much we can do if the file isn't there... */ if (tTd(56, 1)) sm_dprintf("mci_load_persistent: Couldn't generate host path\n"); goto cleanup; } fp = safefopen(fname, O_RDONLY, FileMode, SFF_NOLOCK|SFF_NOLINK|SFF_OPENASROOT|SFF_REGONLY|SFF_SAFEDIRPATH); if (fp == NULL) { /* I can't think of any reason this should ever happen */ if (tTd(56, 1)) sm_dprintf("mci_load_persistent: open(%s): %s\n", fname, sm_errstring(errno)); goto cleanup; } FileName = fname; locked = lockfile(sm_io_getinfo(fp, SM_IO_WHAT_FD, NULL), fname, "", LOCK_SH|LOCK_NB); if (locked) { (void) mci_read_persistent(fp, mci); (void) lockfile(sm_io_getinfo(fp, SM_IO_WHAT_FD, NULL), fname, "", LOCK_UN); } FileName = NULL; (void) sm_io_close(fp, SM_TIME_DEFAULT); cleanup: errno = save_errno; return locked; } /* ** MCI_READ_PERSISTENT -- read persistent host status file ** ** Parameters: ** fp -- the file pointer to read. ** mci -- the pointer to fill in. ** ** Returns: ** -1 -- if the file was corrupt. ** 0 -- otherwise. ** ** Warning: ** This code makes the assumption that this data ** will be read in an atomic fashion, and that the data ** was written in an atomic fashion. Any other functioning ** may lead to some form of insanity. This should be ** perfectly safe due to underlying stdio buffering. */ static int mci_read_persistent(fp, mci) SM_FILE_T *fp; register MCI *mci; { int ver; register char *p; int saveLineNumber = LineNumber; char buf[MAXLINE]; if (fp == NULL) { syserr("mci_read_persistent: NULL fp"); /* NOTREACHED */ return -1; } if (mci == NULL) { syserr("mci_read_persistent: NULL mci"); /* NOTREACHED */ return -1; } if (tTd(56, 93)) { sm_dprintf("mci_read_persistent: fp=%lx, mci=", (unsigned long) fp); } SM_FREE(mci->mci_status); SM_FREE(mci->mci_rstatus); sm_io_rewind(fp, SM_TIME_DEFAULT); ver = -1; LineNumber = 0; while (sm_io_fgets(fp, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { LineNumber++; p = strchr(buf, '\n'); if (p != NULL) *p = '\0'; switch (buf[0]) { case 'V': /* version stamp */ ver = atoi(&buf[1]); if (ver < 0 || ver > 0) syserr("Unknown host status version %d: %d max", ver, 0); break; case 'E': /* UNIX error number */ mci->mci_errno = atoi(&buf[1]); break; case 'H': /* DNS error number */ mci->mci_herrno = atoi(&buf[1]); break; case 'S': /* UNIX exit status */ mci->mci_exitstat = atoi(&buf[1]); break; case 'D': /* DSN status */ mci->mci_status = newstr(&buf[1]); break; case 'R': /* SMTP status */ mci->mci_rstatus = newstr(&buf[1]); break; case 'U': /* last usage time */ mci->mci_lastuse = atol(&buf[1]); break; case '.': /* end of file */ if (tTd(56, 93)) mci_dump(sm_debug_file(), mci, false); return 0; default: sm_syslog(LOG_CRIT, NOQID, "%s: line %d: Unknown host status line \"%s\"", FileName == NULL ? mci->mci_host : FileName, LineNumber, buf); LineNumber = saveLineNumber; return -1; } } LineNumber = saveLineNumber; if (tTd(56, 93)) sm_dprintf("incomplete (missing dot for EOF)\n"); if (ver < 0) return -1; return 0; } /* ** MCI_STORE_PERSISTENT -- Store persistent MCI information ** ** Store information about host that is kept ** in common for all running sendmails. ** ** Parameters: ** mci -- the host/connection to store persistent info for. ** ** Returns: ** none. */ void mci_store_persistent(mci) MCI *mci; { int save_errno = errno; if (mci == NULL) { if (tTd(56, 1)) sm_dprintf("mci_store_persistent: NULL mci\n"); return; } if (HostStatDir == NULL || mci->mci_host == NULL) return; if (tTd(56, 1)) sm_dprintf("mci_store_persistent: Storing information for %s\n", mci->mci_host); if (mci->mci_statfile == NULL) { if (tTd(56, 1)) sm_dprintf("mci_store_persistent: no statfile\n"); return; } sm_io_rewind(mci->mci_statfile, SM_TIME_DEFAULT); #if !NOFTRUNCATE (void) ftruncate(sm_io_getinfo(mci->mci_statfile, SM_IO_WHAT_FD, NULL), (off_t) 0); #endif (void) sm_io_fprintf(mci->mci_statfile, SM_TIME_DEFAULT, "V0\n"); (void) sm_io_fprintf(mci->mci_statfile, SM_TIME_DEFAULT, "E%d\n", mci->mci_errno); (void) sm_io_fprintf(mci->mci_statfile, SM_TIME_DEFAULT, "H%d\n", mci->mci_herrno); (void) sm_io_fprintf(mci->mci_statfile, SM_TIME_DEFAULT, "S%d\n", mci->mci_exitstat); if (mci->mci_status != NULL) (void) sm_io_fprintf(mci->mci_statfile, SM_TIME_DEFAULT, "D%.80s\n", denlstring(mci->mci_status, true, false)); if (mci->mci_rstatus != NULL) (void) sm_io_fprintf(mci->mci_statfile, SM_TIME_DEFAULT, "R%.80s\n", denlstring(mci->mci_rstatus, true, false)); (void) sm_io_fprintf(mci->mci_statfile, SM_TIME_DEFAULT, "U%ld\n", (long)(mci->mci_lastuse)); (void) sm_io_fprintf(mci->mci_statfile, SM_TIME_DEFAULT, ".\n"); (void) sm_io_flush(mci->mci_statfile, SM_TIME_DEFAULT); errno = save_errno; return; } /* ** MCI_TRAVERSE_PERSISTENT -- walk persistent status tree ** ** Recursively find all the mci host files in `pathname'. Default to ** main host status directory if no path is provided. ** Call (*action)(pathname, host) for each file found. ** ** Note: all information is collected in a list before it is processed. ** This may not be the best way to do it, but it seems safest, since ** the file system would be touched while we are attempting to traverse ** the directory tree otherwise (during purges). ** ** Parameters: ** action -- function to call on each node. If returns < 0, ** return immediately. ** pathname -- root of tree. If null, use main host status ** directory. ** ** Returns: ** < 0 -- if any action routine returns a negative value, that ** value is returned. ** 0 -- if we successfully went to completion. ** > 0 -- return status from action() */ int mci_traverse_persistent(action, pathname) int (*action)__P((char *, char *)); char *pathname; { struct stat statbuf; DIR *d; int ret; if (pathname == NULL) pathname = HostStatDir; if (pathname == NULL) return -1; if (tTd(56, 1)) sm_dprintf("mci_traverse: pathname is %s\n", pathname); ret = stat(pathname, &statbuf); if (ret < 0) { if (tTd(56, 2)) sm_dprintf("mci_traverse: Failed to stat %s: %s\n", pathname, sm_errstring(errno)); return ret; } if (S_ISDIR(statbuf.st_mode)) { bool leftone, removedone; size_t len; char *newptr; struct dirent *e; char newpath[MAXPATHLEN]; #if MAXPATHLEN <= MAXNAMLEN - 3 # error "MAXPATHLEN <= MAXNAMLEN - 3" #endif if ((d = opendir(pathname)) == NULL) { if (tTd(56, 2)) sm_dprintf("mci_traverse: opendir %s: %s\n", pathname, sm_errstring(errno)); return -1; } /* ** Reserve space for trailing '/', at least one ** character, and '\0' */ len = sizeof(newpath) - 3; if (sm_strlcpy(newpath, pathname, len) >= len) { int save_errno = errno; if (tTd(56, 2)) sm_dprintf("mci_traverse: path \"%s\" too long", pathname); (void) closedir(d); errno = save_errno; return -1; } newptr = newpath + strlen(newpath); *newptr++ = '/'; len = sizeof(newpath) - (newptr - newpath); /* ** repeat until no file has been removed ** this may become ugly when several files "expire" ** during these loops, but it's better than doing ** a rewinddir() inside the inner loop */ do { leftone = removedone = false; while ((e = readdir(d)) != NULL) { if (e->d_name[0] == '.') continue; if (sm_strlcpy(newptr, e->d_name, len) >= len) { /* Skip truncated copies */ if (tTd(56, 4)) { *newptr = '\0'; sm_dprintf("mci_traverse: path \"%s%s\" too long", newpath, e->d_name); } continue; } if (StopRequest) stop_sendmail(); ret = mci_traverse_persistent(action, newpath); if (ret < 0) break; if (ret == 1) leftone = true; if (!removedone && ret == 0 && action == mci_purge_persistent) removedone = true; } if (ret < 0) break; /* ** The following appears to be ** necessary during purges, since ** we modify the directory structure */ if (removedone) rewinddir(d); if (tTd(56, 40)) sm_dprintf("mci_traverse: path %s: ret %d removed %d left %d\n", pathname, ret, removedone, leftone); } while (removedone); /* purge (or whatever) the directory proper */ if (!leftone) { *--newptr = '\0'; ret = (*action)(newpath, NULL); } (void) closedir(d); } else if (S_ISREG(statbuf.st_mode)) { char *end = pathname + strlen(pathname) - 1; char *start; char *scan; char host[MAXHOSTNAMELEN]; char *hostptr = host; /* ** Reconstruct the host name from the path to the ** persistent information. */ do { if (hostptr != host) *(hostptr++) = '.'; start = end; while (start > pathname && *(start - 1) != '/') start--; if (*end == '.') end--; for (scan = start; scan <= end; scan++) *(hostptr++) = *scan; end = start - 2; } while (end > pathname && *end == '.'); *hostptr = '\0'; /* ** Do something with the file containing the persistent ** information. */ ret = (*action)(pathname, host); } return ret; } /* ** MCI_PRINT_PERSISTENT -- print persistent info ** ** Dump the persistent information in the file 'pathname' ** ** Parameters: ** pathname -- the pathname to the status file. ** hostname -- the corresponding host name. ** ** Returns: ** 0 */ int mci_print_persistent(pathname, hostname) char *pathname; char *hostname; { static bool initflag = false; SM_FILE_T *fp; int width = Verbose ? 78 : 25; bool locked; MCI mcib; /* skip directories */ if (hostname == NULL) return 0; if (StopRequest) stop_sendmail(); if (!initflag) { initflag = true; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " -------------- Hostname --------------- How long ago ---------Results---------\n"); } fp = safefopen(pathname, O_RDONLY, FileMode, SFF_NOLOCK|SFF_NOLINK|SFF_OPENASROOT|SFF_REGONLY|SFF_SAFEDIRPATH); if (fp == NULL) { if (tTd(56, 1)) sm_dprintf("mci_print_persistent: cannot open %s: %s\n", pathname, sm_errstring(errno)); return 0; } FileName = pathname; memset(&mcib, '\0', sizeof(mcib)); if (mci_read_persistent(fp, &mcib) < 0) { syserr("%s: could not read status file", pathname); (void) sm_io_close(fp, SM_TIME_DEFAULT); FileName = NULL; return 0; } locked = !lockfile(sm_io_getinfo(fp, SM_IO_WHAT_FD, NULL), pathname, "", LOCK_SH|LOCK_NB); (void) sm_io_close(fp, SM_TIME_DEFAULT); FileName = NULL; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%c%-39s %12s ", locked ? '*' : ' ', hostname, pintvl(curtime() - mcib.mci_lastuse, true)); if (mcib.mci_rstatus != NULL) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%.*s\n", width, mcib.mci_rstatus); else if (mcib.mci_exitstat == EX_TEMPFAIL && mcib.mci_errno != 0) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Deferred: %.*s\n", width - 10, sm_errstring(mcib.mci_errno)); else if (mcib.mci_exitstat != 0) { char *exmsg = sm_sysexmsg(mcib.mci_exitstat); if (exmsg == NULL) { char buf[80]; (void) sm_snprintf(buf, sizeof(buf), "Unknown mailer error %d", mcib.mci_exitstat); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%.*s\n", width, buf); } else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%.*s\n", width, &exmsg[5]); } else if (mcib.mci_errno == 0) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "OK\n"); else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "OK: %.*s\n", width - 4, sm_errstring(mcib.mci_errno)); return 0; } /* ** MCI_PURGE_PERSISTENT -- Remove a persistence status file. ** ** Parameters: ** pathname -- path to the status file. ** hostname -- name of host corresponding to that file. ** NULL if this is a directory (domain). ** ** Returns: ** 0 -- ok ** 1 -- file not deleted (too young, incorrect format) ** < 0 -- some error occurred */ int mci_purge_persistent(pathname, hostname) char *pathname; char *hostname; { struct stat statbuf; char *end = pathname + strlen(pathname) - 1; int ret; if (tTd(56, 1)) sm_dprintf("mci_purge_persistent: purging %s\n", pathname); ret = stat(pathname, &statbuf); if (ret < 0) { if (tTd(56, 2)) sm_dprintf("mci_purge_persistent: Failed to stat %s: %s\n", pathname, sm_errstring(errno)); return ret; } if (curtime() - statbuf.st_mtime <= MciInfoTimeout) return 1; if (hostname != NULL) { /* remove the file */ ret = unlink(pathname); if (ret < 0) { if (LogLevel > 8) sm_syslog(LOG_ERR, NOQID, "mci_purge_persistent: failed to unlink %s: %s", pathname, sm_errstring(errno)); if (tTd(56, 2)) sm_dprintf("mci_purge_persistent: failed to unlink %s: %s\n", pathname, sm_errstring(errno)); return ret; } } else { /* remove the directory */ if (*end != '.') return 1; if (tTd(56, 1)) sm_dprintf("mci_purge_persistent: dpurge %s\n", pathname); ret = rmdir(pathname); if (ret < 0) { if (tTd(56, 2)) sm_dprintf("mci_purge_persistent: rmdir %s: %s\n", pathname, sm_errstring(errno)); return ret; } } return 0; } /* ** MCI_GENERATE_PERSISTENT_PATH -- generate path from hostname ** ** Given `host', convert from a.b.c to $HostStatDir/c./b./a, ** putting the result into `path'. if `createflag' is set, intervening ** directories will be created as needed. ** ** Parameters: ** host -- host name to convert from. ** path -- place to store result. ** pathlen -- length of path buffer. ** createflag -- if set, create intervening directories as ** needed. ** ** Returns: ** 0 -- success ** -1 -- failure */ static int mci_generate_persistent_path(host, path, pathlen, createflag) const char *host; char *path; int pathlen; bool createflag; { char *elem, *p, *x, ch; int ret = 0; int len; char t_host[MAXHOSTNAMELEN]; #if NETINET6 struct in6_addr in6_addr; #endif /* ** Rationality check the arguments. */ if (host == NULL) { syserr("mci_generate_persistent_path: null host"); return -1; } if (path == NULL) { syserr("mci_generate_persistent_path: null path"); return -1; } if (tTd(56, 80)) sm_dprintf("mci_generate_persistent_path(%s): ", host); if (*host == '\0' || *host == '.') return -1; /* make certain this is not a bracketed host number */ if (strlen(host) > sizeof(t_host) - 1) return -1; if (host[0] == '[') (void) sm_strlcpy(t_host, host + 1, sizeof(t_host)); else (void) sm_strlcpy(t_host, host, sizeof(t_host)); /* ** Delete any trailing dots from the hostname. ** Leave 'elem' pointing at the \0. */ elem = t_host + strlen(t_host); while (elem > t_host && (elem[-1] == '.' || (host[0] == '[' && elem[-1] == ']'))) *--elem = '\0'; /* check for bogus bracketed address */ if (host[0] == '[') { bool good = false; #if NETINET6 if (anynet_pton(AF_INET6, t_host, &in6_addr) == 1) good = true; #endif #if NETINET if (inet_addr(t_host) != INADDR_NONE) good = true; #endif if (!good) return -1; } /* check for what will be the final length of the path */ len = strlen(HostStatDir) + 2; for (p = (char *) t_host; *p != '\0'; p++) { if (*p == '.') len++; len++; if (p[0] == '.' && p[1] == '.') return -1; } if (len > pathlen || len < 1) return -1; (void) sm_strlcpy(path, HostStatDir, pathlen); p = path + strlen(path); while (elem > t_host) { if (!path_is_dir(path, createflag)) { ret = -1; break; } elem--; while (elem >= t_host && *elem != '.') elem--; *p++ = '/'; x = elem + 1; while ((ch = *x++) != '\0' && ch != '.') { if (isascii(ch) && isupper(ch)) ch = tolower(ch); if (ch == '/') ch = ':'; /* / -> : */ *p++ = ch; } if (elem >= t_host) *p++ = '.'; *p = '\0'; } if (tTd(56, 80)) { if (ret < 0) sm_dprintf("FAILURE %d\n", ret); else sm_dprintf("SUCCESS %s\n", path); } return ret; } sendmail-8.18.1/sendmail/alias.c0000644000372400037240000005764214556365350016036 0ustar xbuildxbuild/* * Copyright (c) 1998-2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: alias.c,v 8.221 2013-11-22 20:51:54 ca Exp $") #include #define SEPARATOR ':' # define ALIAS_SPEC_SEPARATORS " ,/:" static MAP *AliasFileMap = NULL; /* the actual aliases.files map */ static int NAliasFileMaps; /* the number of entries in AliasFileMap */ static char *aliaslookup __P((char *, int *, char *)); /* ** ALIAS -- Compute aliases. ** ** Scans the alias file for an alias for the given address. ** If found, it arranges to deliver to the alias list instead. ** Uses libdbm database if -DDBM. ** ** Parameters: ** a -- address to alias. ** sendq -- a pointer to the head of the send queue ** to put the aliases in. ** aliaslevel -- the current alias nesting depth. ** e -- the current envelope. ** ** Returns: ** none ** ** Side Effects: ** Aliases found are expanded. ** ** Deficiencies: ** It should complain about names that are aliased to ** nothing. */ void alias(a, sendq, aliaslevel, e) register ADDRESS *a; ADDRESS **sendq; int aliaslevel; register ENVELOPE *e; { register char *p; char *owner; auto int status = EX_OK; char obuf[MAXNAME_I + 7]; if (tTd(27, 1)) sm_dprintf("alias(%s)\n", a->q_user); /* don't realias already aliased names */ if (!QS_IS_OK(a->q_state)) return; if (NoAlias) return; e->e_to = a->q_paddr; /* ** Look up this name. ** ** If the map was unavailable, we will queue this message ** until the map becomes available; otherwise, we could ** bounce messages inappropriately. */ #if _FFR_REDIRECTEMPTY /* ** envelope <> can't be sent to mailing lists, only owner- ** send spam of this type to owner- of the list ** ---- to stop spam from going to mailing lists! */ if (e->e_sender != NULL && *e->e_sender == '\0') { /* Look for owner of alias */ (void) sm_strlcpyn(obuf, sizeof(obuf), 2, "owner-", a->q_user); if (aliaslookup(obuf, &status, a->q_host) != NULL) { if (LogLevel > 8) sm_syslog(LOG_WARNING, e->e_id, "possible spam from <> to list: %s, redirected to %s\n", a->q_user, obuf); a->q_user = sm_rpool_strdup_x(e->e_rpool, obuf); } } #endif /* _FFR_REDIRECTEMPTY */ p = aliaslookup(a->q_user, &status, a->q_host); if (status == EX_TEMPFAIL || status == EX_UNAVAILABLE) { a->q_state = QS_QUEUEUP; if (e->e_message == NULL) e->e_message = sm_rpool_strdup_x(e->e_rpool, "alias database unavailable"); /* XXX msg only per recipient? */ if (a->q_message == NULL) a->q_message = "alias database unavailable"; return; } if (p == NULL) return; /* ** Match on Alias. ** Deliver to the target list. */ if (tTd(27, 1)) sm_dprintf("%s (%s, %s) aliased to %s\n", a->q_paddr, a->q_host, a->q_user, p); if (bitset(EF_VRFYONLY, e->e_flags)) { a->q_state = QS_VERIFIED; return; } message("aliased to %s", shortenstring(p, MAXSHORTSTR)); if (LogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "alias %.100s => %s", a->q_paddr, shortenstring(p, MAXSHORTSTR)); a->q_flags &= ~QSELFREF; if (tTd(27, 5)) { sm_dprintf("alias: QS_EXPANDED "); printaddr(sm_debug_file(), a, false); } a->q_state = QS_EXPANDED; /* ** Always deliver aliased items as the default user. ** Setting q_gid to 0 forces deliver() to use DefUser ** instead of the alias name for the call to initgroups(). */ a->q_uid = DefUid; a->q_gid = 0; a->q_fullname = NULL; a->q_flags |= QGOODUID|QALIAS; (void) sendtolist(p, a, sendq, aliaslevel + 1, e); if (bitset(QSELFREF, a->q_flags) && QS_IS_EXPANDED(a->q_state)) a->q_state = QS_OK; /* ** Look for owner of alias */ if (strncmp(a->q_user, "owner-", 6) == 0 || strlen(a->q_user) > sizeof(obuf) - 7) (void) sm_strlcpy(obuf, "owner-owner", sizeof(obuf)); else (void) sm_strlcpyn(obuf, sizeof(obuf), 2, "owner-", a->q_user); owner = aliaslookup(obuf, &status, a->q_host); if (owner == NULL) return; /* reflect owner into envelope sender */ if (strpbrk(owner, ",:/|\"") != NULL) owner = obuf; a->q_owner = sm_rpool_strdup_x(e->e_rpool, owner); /* announce delivery to this alias; NORECEIPT bit set later */ if (e->e_xfp != NULL) (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "Message delivered to mailing list %s\n", a->q_paddr); e->e_flags |= EF_SENDRECEIPT; a->q_flags |= QDELIVERED|QEXPANDED; } /* ** ALIASLOOKUP -- look up a name in the alias file. ** ** Parameters: ** name -- the name to look up [i] ** pstat -- a pointer to a place to put the status. ** av -- argument for %1 expansion. ** ** Returns: ** the value of name. ** NULL if unknown. ** ** Warnings: ** The return value will be trashed across calls. */ static char * aliaslookup(name, pstat, av) char *name; int *pstat; char *av; { static MAP *map = NULL; char *res; #if _FFR_ALIAS_DETAIL int i; char *argv[4]; #else # define argv NULL #endif #if _FFR_8BITENVADDR char buf[MAXNAME]; /* EAI:ok */ #endif if (map == NULL) { STAB *s = stab("aliases", ST_MAP, ST_FIND); if (s == NULL) return NULL; map = &s->s_map; } DYNOPENMAP(map); /* special case POstMastER -- always use lower case */ if (SM_STRCASEEQ(name, "postmaster")) name = "postmaster"; #if _FFR_8BITENVADDR (void) dequote_internal_chars(name, buf, sizeof(buf)); /* check length? */ name = buf; #endif /* _FFR_8BITENVADDR */ #if _FFR_ALIAS_DETAIL i = 0; argv[i++] = name; argv[i++] = av; /* XXX '+' is hardwired here as delimiter! */ if (av != NULL && *av == '+') argv[i++] = av + 1; argv[i++] = NULL; #endif /* _FFR_ALIAS_DETAIL */ res = (*map->map_class->map_lookup)(map, name, argv, pstat); #if _FFR_8BITENVADDR /* map_lookup() does a map_rewrite(), so no quoting here */ #endif return res; } /* ** SETALIAS -- set up an alias map ** ** Called when reading configuration file. ** ** Parameters: ** spec -- the alias specification ** ** Returns: ** none. */ void setalias(spec) char *spec; { register char *p; register MAP *map; char *class; STAB *s; if (tTd(27, 8)) sm_dprintf("setalias(%s)\n", spec); for (p = spec; p != NULL; ) { char buf[50]; while (SM_ISSPACE(*p)) p++; if (*p == '\0') break; spec = p; if (NAliasFileMaps >= MAXMAPSTACK) { syserr("Too many alias databases defined, %d max", MAXMAPSTACK); return; } if (AliasFileMap == NULL) { (void) sm_strlcpy(buf, "aliases.files sequence", sizeof(buf)); AliasFileMap = makemapentry(buf); if (AliasFileMap == NULL) { syserr("setalias: cannot create aliases.files map"); return; } } (void) sm_snprintf(buf, sizeof(buf), "Alias%d", NAliasFileMaps); s = stab(buf, ST_MAP, ST_ENTER); map = &s->s_map; memset(map, '\0', sizeof(*map)); map->map_mname = s->s_name; p = strpbrk(p, ALIAS_SPEC_SEPARATORS); if (p != NULL && *p == SEPARATOR) { /* map name */ *p++ = '\0'; class = spec; spec = p; } else { class = "implicit"; map->map_mflags = MF_INCLNULL; } /* find end of spec */ if (p != NULL) { bool quoted = false; for (; *p != '\0'; p++) { /* ** Don't break into a quoted string. ** Needed for ldap maps which use ** commas in their specifications. */ if (*p == '"') quoted = !quoted; else if (*p == ',' && !quoted) break; } /* No more alias specifications follow */ if (*p == '\0') p = NULL; } if (p != NULL) *p++ = '\0'; if (tTd(27, 20)) sm_dprintf(" map %s:%s %s\n", class, s->s_name, spec); /* look up class */ s = stab(class, ST_MAPCLASS, ST_FIND); if (s == NULL) { syserr("setalias: unknown alias class %s", class); } else if (!bitset(MCF_ALIASOK, s->s_mapclass.map_cflags)) { syserr("setalias: map class %s can't handle aliases", class); } else { map->map_class = &s->s_mapclass; map->map_mflags |= MF_ALIAS; if (map->map_class->map_parse(map, spec)) { map->map_mflags |= MF_VALID; AliasFileMap->map_stack[NAliasFileMaps++] = map; } } } } /* ** ALIASWAIT -- wait for distinguished @:@ token to appear. ** ** This can decide to reopen the alias file ** ** Parameters: ** map -- a pointer to the map descriptor for this alias file. ** ext -- the filename extension (e.g., ".db") for the ** database file. ** isopen -- if set, the database is already open, and we ** should check for validity; otherwise, we are ** just checking to see if it should be created. ** ** Returns: ** true -- if the database is open when we return. ** false -- if the database is closed when we return. */ bool aliaswait(map, ext, isopen) MAP *map; const char *ext; bool isopen; { bool attimeout = false; time_t mtime; struct stat stb; char buf[MAXPATHLEN]; if (tTd(27, 3)) sm_dprintf("aliaswait(%s:%s), open=%d, wait=%d\n", map->map_class->map_cname, map->map_file, isopen, bitset(MF_ALIASWAIT, map->map_mflags)); if (bitset(MF_ALIASWAIT, map->map_mflags)) return isopen; map->map_mflags |= MF_ALIASWAIT; if (isopen && SafeAlias > 0) { auto int st; unsigned int sleeptime = 2; unsigned int loopcount = 0; /* only used for debugging */ time_t toolong = curtime() + SafeAlias; while (isopen && map->map_class->map_lookup(map, "@", NULL, &st) == NULL) { if (curtime() > toolong) { /* we timed out */ attimeout = true; break; } /* ** Close and re-open the alias database in case ** the one is mv'ed instead of cp'ed in. */ if (tTd(27, 2)) { loopcount++; sm_dprintf("aliaswait: sleeping for %u seconds (loopcount = %u)\n", sleeptime, loopcount); } map->map_mflags |= MF_CLOSING; map->map_class->map_close(map); map->map_mflags &= ~(MF_OPEN|MF_WRITABLE|MF_CLOSING|MF_CHKED_CHGD); (void) sleep(sleeptime); sleeptime *= 2; if (sleeptime > 60) sleeptime = 60; isopen = map->map_class->map_open(map, O_RDONLY); } } map->map_mflags &= ~MF_CHKED_CHGD; /* see if we need to go into auto-rebuild mode */ if (!bitset(MCF_REBUILDABLE, map->map_class->map_cflags)) { if (tTd(27, 3)) sm_dprintf("aliaswait: not rebuildable\n"); map->map_mflags &= ~MF_ALIASWAIT; return isopen; } if (stat(map->map_file, &stb) < 0) { if (tTd(27, 3)) sm_dprintf("aliaswait: no source file\n"); map->map_mflags &= ~MF_ALIASWAIT; return isopen; } mtime = stb.st_mtime; if (sm_strlcpyn(buf, sizeof(buf), 2, map->map_file, ext == NULL ? "" : ext) >= sizeof(buf)) { if (LogLevel > 3) sm_syslog(LOG_INFO, NOQID, "alias database %s%s name too long", map->map_file, ext == NULL ? "" : ext); message("alias database %s%s name too long", map->map_file, ext == NULL ? "" : ext); } if (stat(buf, &stb) < 0 || stb.st_mtime < mtime || attimeout) { if (LogLevel > 3) sm_syslog(LOG_INFO, NOQID, "alias database %s out of date", buf); message("Warning: alias database %s out of date", buf); } map->map_mflags &= ~MF_ALIASWAIT; return isopen; } /* ** REBUILDALIASES -- rebuild the alias database. ** ** Parameters: ** map -- the database to rebuild. ** ** Returns: ** true if successful; false otherwise. ** ** Side Effects: ** Reads the text version of the database, builds the map. */ bool rebuildaliases(map) register MAP *map; { SM_FILE_T *af; bool nolock = false; bool success = false; long sff = SFF_OPENASROOT|SFF_REGONLY|SFF_NOLOCK; sigfunc_t oldsigint, oldsigquit; #ifdef SIGTSTP sigfunc_t oldsigtstp; #endif if (!bitset(MCF_REBUILDABLE, map->map_class->map_cflags)) return false; if (!bitnset(DBS_LINKEDALIASFILEINWRITABLEDIR, DontBlameSendmail)) sff |= SFF_NOWLINK; if (!bitnset(DBS_GROUPWRITABLEALIASFILE, DontBlameSendmail)) sff |= SFF_NOGWFILES; if (!bitnset(DBS_WORLDWRITABLEALIASFILE, DontBlameSendmail)) sff |= SFF_NOWWFILES; /* try to lock the source file */ if ((af = safefopen(map->map_file, O_RDWR, 0, sff)) == NULL) { struct stat stb; if ((errno != EACCES && errno != EROFS) || (af = safefopen(map->map_file, O_RDONLY, 0, sff)) == NULL) { int saveerr = errno; if (tTd(27, 1)) sm_dprintf("Can't open %s: %s\n", map->map_file, sm_errstring(saveerr)); if (!bitset(MF_OPTIONAL, map->map_mflags)) message("newaliases: cannot open %s: %s", map->map_file, sm_errstring(saveerr)); errno = 0; return false; } nolock = true; if (tTd(27, 1) || fstat(sm_io_getinfo(af, SM_IO_WHAT_FD, NULL), &stb) < 0 || bitset(S_IWUSR|S_IWGRP|S_IWOTH, stb.st_mode)) message("warning: cannot lock %s: %s", map->map_file, sm_errstring(errno)); } /* see if someone else is rebuilding the alias file */ if (!nolock && !lockfile(sm_io_getinfo(af, SM_IO_WHAT_FD, NULL), map->map_file, NULL, LOCK_EX|LOCK_NB)) { /* yes, they are -- wait until done */ message("Alias file %s is locked (maybe being rebuilt)", map->map_file); if (OpMode != MD_INITALIAS) { /* wait for other rebuild to complete */ (void) lockfile(sm_io_getinfo(af, SM_IO_WHAT_FD, NULL), map->map_file, NULL, LOCK_EX); } (void) sm_io_close(af, SM_TIME_DEFAULT); errno = 0; return false; } oldsigint = sm_signal(SIGINT, SIG_IGN); oldsigquit = sm_signal(SIGQUIT, SIG_IGN); #ifdef SIGTSTP oldsigtstp = sm_signal(SIGTSTP, SIG_IGN); #endif if (map->map_class->map_open(map, O_RDWR)) { if (LogLevel > 7) { sm_syslog(LOG_NOTICE, NOQID, "alias database %s rebuilt by %s", map->map_file, username()); } map->map_mflags |= MF_OPEN|MF_WRITABLE; map->map_pid = CurrentPid; readaliases(map, af, true, true); success = true; } else { if (tTd(27, 1)) sm_dprintf("Can't create database for %s: %s\n", map->map_file, sm_errstring(errno)); syserr("Cannot create database for alias file %s", map->map_file); } /* close the file, thus releasing locks */ (void) sm_io_close(af, SM_TIME_DEFAULT); /* add distinguished entries and close the database */ if (bitset(MF_OPEN, map->map_mflags)) { #if _FFR_TESTS if (tTd(78, 101)) { int sl; sl = tTdlevel(78) - 100; sm_dprintf("rebuildaliases: sleep=%d, file=%s\n", sl, map->map_file); sleep(sl); sm_dprintf("rebuildaliases: done\n"); } #endif map->map_mflags |= MF_CLOSING; map->map_class->map_close(map); map->map_mflags &= ~(MF_OPEN|MF_WRITABLE|MF_CLOSING); } /* restore the old signals */ (void) sm_signal(SIGINT, oldsigint); (void) sm_signal(SIGQUIT, oldsigquit); #ifdef SIGTSTP (void) sm_signal(SIGTSTP, oldsigtstp); #endif return success; } /* ** CONTLINE -- handle potential continuation line ** ** Parameters: ** fp -- file to read ** line -- current line ** ** Returns: ** pointer to end of current line if there is a continuation line ** NULL otherwise ** ** Side Effects: ** Modifies line if it is a continuation line */ static char *contline __P((SM_FILE_T *, char *)); static char * contline(fp, line) SM_FILE_T *fp; char *line; { char *p; int c; if ((p = strchr(line, '\n')) != NULL && p > line && p[-1] == '\\') { *p = '\0'; *--p = '\0'; return p; } c = sm_io_getc(fp, SM_TIME_DEFAULT); if (!sm_io_eof(fp)) (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, c); if (c == ' ' || c == '\t') { char *nlp; p = line; nlp = &p[strlen(p)]; if (nlp > p && nlp[-1] == '\n') *--nlp = '\0'; return nlp; } return NULL; } /* ** READALIASES -- read and process the alias file. ** ** This routine implements the part of initaliases that occurs ** when we are not going to use the DBM stuff. ** ** Parameters: ** map -- the alias database descriptor. ** af -- file to read the aliases from. ** announcestats -- announce statistics regarding number of ** aliases, longest alias, etc. ** logstats -- lot the same info. ** ** Returns: ** none. ** ** Side Effects: ** Reads aliasfile into the symbol table. ** Optionally, builds the .dir & .pag files. */ void readaliases(map, af, announcestats, logstats) register MAP *map; SM_FILE_T *af; bool announcestats; bool logstats; { register char *p; char *rhs; bool skipping; long naliases, bytes, longest; ADDRESS al, bl; char lbuf[BUFSIZ]; char *line; #if _FFR_8BITENVADDR char lhsbuf[MAXNAME]; /* EAI:ok */ char rhsbuf[BUFSIZ]; int len; #endif /* ** Read and interpret lines */ FileName = map->map_file; LineNumber = 0; naliases = bytes = longest = 0; skipping = false; line = NULL; while (sm_io_fgets(af, SM_TIME_DEFAULT, lbuf, sizeof(lbuf)) >= 0) { int lhssize, rhssize; int c; char *newp; LineNumber++; /* XXX what if line="a\\" ? */ line = lbuf; p = line; while ((newp = contline(af, line)) != NULL) { p = newp; if ((c = sm_io_fgets(af, SM_TIME_DEFAULT, p, SPACELEFT(lbuf, p))) < 0) { break; } LineNumber++; } #if _FFR_8BITENVADDR if (SMTP_UTF8 || EightBitAddrOK) { if (line != lbuf) SM_FREE(line); line = quote_internal_chars(lbuf, NULL, &len, NULL); } else #endif /* "else" in #if code above */ line = lbuf; p = strchr(line, '\n'); if (p != NULL) *p = '\0'; else if (!sm_io_eof(af)) { int prev; bool cl; errno = 0; syserr("554 5.3.0 alias line too long"); prev = '\0'; cl = false; do { /* flush to end of "virtual" line */ while ((c = sm_io_getc(af, SM_TIME_DEFAULT)) != SM_IO_EOF && c != '\n') { prev = c; } cl = ('\\' == prev && '\n' == c); if (!cl) { c = sm_io_getc(af, SM_TIME_DEFAULT); if (!sm_io_eof(af)) (void) sm_io_ungetc(af, SM_TIME_DEFAULT, c); cl = (c == ' ' || c == '\t'); } } while (cl); continue; } switch (line[0]) { case '#': case '\0': skipping = false; continue; case ' ': case '\t': if (!skipping) syserr("554 5.3.5 Non-continuation line starts with space"); skipping = true; continue; } skipping = false; /* ** Process the LHS ** Find the colon separator, and parse the address. ** It should resolve to a local name -- this will ** be checked later (we want to optionally do ** parsing of the RHS first to maximize error ** detection). */ for (p = line; *p != '\0' && *p != ':' && *p != '\n'; p++) continue; if (*p++ != ':') { syserr("554 5.3.5 missing colon"); continue; } /* XXX line must be [i] */ if (parseaddr(line, &al, RF_COPYALL, ':', NULL, CurEnv, true) == NULL) { syserr("554 5.3.5 %.40s... illegal alias name", line); continue; } /* ** Process the RHS. ** 'al' is the internal form of the LHS address. ** 'p' points to the text of the RHS. */ while (SM_ISSPACE(*p)) p++; rhs = p; { register char *nlp; nlp = &p[strlen(p)]; if (nlp > p && nlp[-1] == '\n') *--nlp = '\0'; if (CheckAliases) { /* do parsing & compression of addresses */ while (*p != '\0') { auto char *delimptr; while ((SM_ISSPACE(*p)) || *p == ',') p++; if (*p == '\0') break; /* XXX p must be [i] */ if (parseaddr(p, &bl, RF_COPYNONE, ',', &delimptr, CurEnv, true) == NULL) usrerr("553 5.3.5 %s... bad address", p); p = delimptr; } } else { p = nlp; } } while (0); if (skipping) continue; if (!bitnset(M_ALIASABLE, al.q_mailer->m_flags)) { syserr("554 5.3.5 %s... cannot alias non-local names", al.q_paddr); continue; } /* ** Insert alias into symbol table or database file. ** ** Special case pOStmaStER -- always make it lower case. */ if (SM_STRCASEEQ(al.q_user, "postmaster")) makelower_a(&al.q_user, CurEnv->e_rpool); lhssize = strlen(al.q_user); rhssize = strlen(rhs); if (rhssize > 0) { /* is RHS empty (just spaces)? */ p = rhs; while (SM_ISSPACE(*p)) p++; } if (rhssize == 0 || *p == '\0') { syserr("554 5.3.5 %.40s... missing value for alias", line); } else { #if _FFR_8BITENVADDR if (SMTP_UTF8 || EightBitAddrOK) { dequote_internal_chars(al.q_user, lhsbuf, sizeof(lhsbuf)); dequote_internal_chars(rhs, rhsbuf, sizeof(rhsbuf)); map->map_class->map_store(map, lhsbuf, rhsbuf); } else #endif /* "else" in #if code above */ map->map_class->map_store(map, al.q_user, rhs); /* statistics */ naliases++; bytes += lhssize + rhssize; if (rhssize > longest) longest = rhssize; } } CurEnv->e_to = NULL; FileName = NULL; if (Verbose || announcestats) message("%s: %ld aliases, longest %ld bytes, %ld bytes total", map->map_file, naliases, longest, bytes); if (LogLevel > 7 && logstats) sm_syslog(LOG_INFO, NOQID, "%s: %ld aliases, longest %ld bytes, %ld bytes total", map->map_file, naliases, longest, bytes); } /* ** FORWARD -- Try to forward mail ** ** This is similar but not identical to aliasing. ** ** Parameters: ** user -- the name of the user who's mail we would like ** to forward to. It must have been verified -- ** i.e., the q_home field must have been filled in. ** sendq -- a pointer to the head of the send queue to ** put this user's aliases in. ** aliaslevel -- the current alias nesting depth. ** e -- the current envelope. ** ** Returns: ** none. ** ** Side Effects: ** New names are added to send queues. */ void forward(user, sendq, aliaslevel, e) ADDRESS *user; ADDRESS **sendq; int aliaslevel; register ENVELOPE *e; { char *pp; char *ep; bool got_transient; if (tTd(27, 1)) sm_dprintf("forward(%s)\n", user->q_paddr); if (!bitnset(M_HASPWENT, user->q_mailer->m_flags) || !QS_IS_OK(user->q_state)) return; if (ForwardPath != NULL && *ForwardPath == '\0') return; if (user->q_home == NULL) { syserr("554 5.3.0 forward: no home"); user->q_home = "/no/such/directory"; } /* good address -- look for .forward file in home */ macdefine(&e->e_macro, A_PERM, 'z', user->q_home); macdefine(&e->e_macro, A_PERM, 'u', user->q_user); pp = user->q_host; #if _FFR_8BITENVADDR if (NULL != pp) { int len; pp = quote_internal_chars(pp, NULL, &len, NULL); } #endif macdefine(&e->e_macro, A_PERM, 'h', pp); if (ForwardPath == NULL) ForwardPath = newstr("\201z/.forward"); got_transient = false; for (pp = ForwardPath; pp != NULL; pp = ep) { int err; char buf[MAXPATHLEN]; struct stat st; ep = strchr(pp, SEPARATOR); if (ep != NULL) *ep = '\0'; expand(pp, buf, sizeof(buf), e); if (ep != NULL) *ep++ = SEPARATOR; if (buf[0] == '\0') continue; if (tTd(27, 3)) sm_dprintf("forward: trying %s\n", buf); err = include(buf, true, user, sendq, aliaslevel, e); if (err == 0) break; else if (transienterror(err)) { /* we may have to suspend this message */ got_transient = true; if (tTd(27, 2)) sm_dprintf("forward: transient error on %s\n", buf); if (LogLevel > 2) { char *curhost = CurHostName; CurHostName = NULL; sm_syslog(LOG_ERR, e->e_id, "forward %s: transient error: %s", buf, sm_errstring(err)); CurHostName = curhost; } } else { switch (err) { case ENOENT: break; case E_SM_WWDIR: case E_SM_GWDIR: /* check if it even exists */ if (stat(buf, &st) < 0 && errno == ENOENT) { if (bitnset(DBS_DONTWARNFORWARDFILEINUNSAFEDIRPATH, DontBlameSendmail)) break; } /* FALLTHROUGH */ #if _FFR_FORWARD_SYSERR case E_SM_NOSLINK: case E_SM_NOHLINK: case E_SM_REGONLY: case E_SM_ISEXEC: case E_SM_WWFILE: case E_SM_GWFILE: syserr("forward: %s: %s", buf, sm_errstring(err)); break; #endif /* _FFR_FORWARD_SYSERR */ default: if (LogLevel > (RunAsUid == 0 ? 2 : 10)) sm_syslog(LOG_WARNING, e->e_id, "forward %s: %s", buf, sm_errstring(err)); if (Verbose) message("forward: %s: %s", buf, sm_errstring(err)); break; } } } if (pp == NULL && got_transient) { /* ** There was no successful .forward open and at least one ** transient open. We have to defer this address for ** further delivery. */ message("transient .forward open error: message queued"); user->q_state = QS_QUEUEUP; return; } } sendmail-8.18.1/sendmail/tlsh.c0000644000372400037240000001177714556365350015716 0ustar xbuildxbuild/* * Copyright (c) 2015 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: tls.c,v 8.127 2013-11-27 02:51:11 gshapiro Exp $") #if STARTTLS # include /* ** DATA2HEX -- create a printable hex string from binary data ("%02X:") ** ** Parameters: ** buf -- data ** len -- length of data ** hex -- output buffer ** hlen -- length of output buffer ** ** Returns: ** <0: errno ** >0: length of data in hex */ int data2hex(buf, blen, hex, hlen) unsigned char *buf; int blen; unsigned char *hex; int hlen; { int r, h; static const char hexcodes[] = "0123456789ABCDEF"; SM_REQUIRE(buf != NULL); SM_REQUIRE(hex != NULL); if (blen * 3 + 2 > hlen) return -ERANGE; for (r = 0, h = 0; r < blen && h + 3 < hlen; r++) { hex[h++] = hexcodes[(buf[r] & 0xf0) >> 4]; hex[h++] = hexcodes[(buf[r] & 0x0f)]; if (r + 1 < blen) hex[h++] = ':'; } if (h >= hlen) return -ERANGE; hex[h] = '\0'; return h; } # if DANE /* ** TLS_DATA_MD -- calculate MD for data ** ** Parameters: ** buf -- data (in and out!) ** len -- length of data ** md -- digest algorithm ** ** Returns: ** <=0: cert fp calculation failed ** >0: len of fp ** ** Side Effects: ** writes digest to buf */ static int tls_data_md(buf, len, md) unsigned char *buf; int len; const EVP_MD *md; { unsigned int md_len; EVP_MD_CTX *mdctx; unsigned char md_buf[EVP_MAX_MD_SIZE]; SM_REQUIRE(buf != NULL); SM_REQUIRE(md != NULL); SM_REQUIRE(len >= EVP_MAX_MD_SIZE); mdctx = EVP_MD_CTX_create(); if (EVP_DigestInit_ex(mdctx, md, NULL) != 1) return -EINVAL; if (EVP_DigestUpdate(mdctx, (void *)buf, len) != 1) return -EINVAL; if (EVP_DigestFinal_ex(mdctx, md_buf, &md_len) != 1) return -EINVAL; EVP_MD_CTX_destroy(mdctx); if (md_len > len) return -ERANGE; (void) memcpy(buf, md_buf, md_len); return (int)md_len; } /* ** PUBKEY_FP -- generate public key fingerprint ** ** Parameters: ** cert -- TLS cert ** mdalg -- name of digest algorithm ** fp -- (pointer to) fingerprint buffer (output) ** ** Returns: ** <=0: cert fp calculation failed ** >0: len of fp */ int pubkey_fp(cert, mdalg, fp) X509 *cert; const char *mdalg; unsigned char **fp; { int len, r; unsigned char *end; const EVP_MD *md; SM_ASSERT(cert != NULL); SM_ASSERT(fp != NULL); SM_ASSERT(mdalg != NULL); len = i2d_X509_PUBKEY(X509_get_X509_PUBKEY(cert), NULL); /* what's an acceptable upper limit? */ if (len <= 0 || len >= 8192) return -EINVAL; if (len < EVP_MAX_MD_SIZE) len = EVP_MAX_MD_SIZE; *fp = end = sm_malloc(len); if (NULL == end) return -ENOMEM; if ('\0' == mdalg[0]) { r = i2d_X509_PUBKEY(X509_get_X509_PUBKEY(cert), &end); if (r <= 0 || r != len) return -EINVAL; return len; } md = EVP_get_digestbyname(mdalg); if (NULL == md) { SM_FREE(*fp); return DANE_VRFY_FAIL; } len = i2d_X509_PUBKEY(X509_get_X509_PUBKEY(cert), &end); r = tls_data_md(*fp, len, md); if (r < 0) sm_free(*fp); return r; } /* ** DANE_TLSA_CHK -- check whether a TLSA RR is ok to use ** ** Parameters: ** rr -- RR ** len -- length of RR ** host -- name of host for RR (only for logging) ** log -- whether to log problems ** ** Returns: ** >=0: "alg" aka "matching type" ** <0: TLSA_*, see tls.h */ int dane_tlsa_chk(rr, len, host, log) const unsigned char *rr; int len; const char *host; bool log; { int alg; # if HAVE_SSL_CTX_dane_enable int sel, usg; # endif if (len < 4) { if (log && LogLevel > 8) sm_syslog(LOG_WARNING, NOQID, "TLSA=%s, len=%d, status=bogus", host, len); return TLSA_BOGUS; } SM_ASSERT(rr != NULL); alg = (int)rr[2]; # if HAVE_SSL_CTX_dane_enable usg = (int)rr[0]; sel = (int)rr[1]; if (usg >= 2 && usg <= 3 && sel >= 0 && sel <= 1 && alg >= 0 && alg <= 2) return alg; # else if ((int)rr[0] == 3 && (int)rr[1] == 1 && (alg >= 0 && alg <= 2)) return alg; # endif if (log && LogLevel > 9) sm_syslog(LOG_NOTICE, NOQID, "TLSA=%s, type=%d-%d-%d:%02x, status=unsupported", host, (int)rr[0], (int)rr[1], (int)rr[2], (int)rr[3]); return TLSA_UNSUPP; } /* ** DANE_TLSA_CLR -- clear data in a dane_tlsa structure (for use) ** ** Parameters: ** dane_tlsa -- dane_tlsa to clear ** ** Returns: ** 1 if NULL ** 0 if ok */ int dane_tlsa_clr(dane_tlsa) dane_tlsa_P dane_tlsa; { int i; if (dane_tlsa == NULL) return 1; for (i = 0; i < dane_tlsa->dane_tlsa_n; i++) { SM_FREE(dane_tlsa->dane_tlsa_rr[i]); dane_tlsa->dane_tlsa_len[i] = 0; } SM_FREE(dane_tlsa->dane_tlsa_sni); memset(dane_tlsa, '\0', sizeof(*dane_tlsa)); return 0; } /* ** DANE_TLSA_FREE -- free a dane_tlsa structure ** ** Parameters: ** dane_tlsa -- dane_tlsa to free ** ** Returns: ** 0 if ok ** 1 if NULL */ int dane_tlsa_free(dane_tlsa) dane_tlsa_P dane_tlsa; { if (dane_tlsa == NULL) return 1; dane_tlsa_clr(dane_tlsa); SM_FREE(dane_tlsa); return 0; } # endif /* DANE */ #endif /* STARTTLS */ sendmail-8.18.1/sendmail/trace.c0000644000372400037240000001036514556365350016032 0ustar xbuildxbuild/* * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include #include SM_RCSID("@(#)$Id: trace.c,v 8.39 2013-11-22 20:51:57 ca Exp $") static char *tTnewflag __P((char *)); static char *tToldflag __P((char *)); /* ** TtSETUP -- set up for trace package. ** ** Parameters: ** vect -- pointer to trace vector. ** size -- number of flags in trace vector. ** defflags -- flags to set if no value given. ** ** Returns: ** none ** ** Side Effects: ** environment is set up. */ static unsigned char *tTvect; static unsigned int tTsize; static char *DefFlags; void tTsetup(vect, size, defflags) unsigned char *vect; unsigned int size; char *defflags; { tTvect = vect; tTsize = size; DefFlags = defflags; } /* ** tToldflag -- process an old style trace flag ** ** Parameters: ** s -- points to a [\0, \t] terminated string, ** and the initial character is a digit. ** ** Returns: ** pointer to terminating [\0, \t] character ** ** Side Effects: ** modifies tTvect */ static char * tToldflag(s) register char *s; { unsigned int first, last; register unsigned int i; /* find first flag to set */ i = 0; while (isascii(*s) && isdigit(*s) && i < tTsize) i = i * 10 + (*s++ - '0'); /* ** skip over rest of a too large number ** Maybe we should complain if out-of-bounds values are used. */ while (isascii(*s) && isdigit(*s) && i >= tTsize) s++; first = i; /* find last flag to set */ if (*s == '-') { i = 0; while (isascii(*++s) && isdigit(*s) && i < tTsize) i = i * 10 + (*s - '0'); /* skip over rest of a too large number */ while (isascii(*s) && isdigit(*s) && i >= tTsize) s++; } last = i; /* find the level to set it to */ i = 1; if (*s == '.') { i = 0; while (isascii(*++s) && isdigit(*s)) i = i * 10 + (*s - '0'); } /* clean up args */ if (first >= tTsize) first = tTsize - 1; if (last >= tTsize) last = tTsize - 1; /* set the flags */ while (first <= last) tTvect[first++] = (unsigned char) i; /* skip trailing junk */ while (*s != '\0' && *s != ',' && *s != ' ' && *s != '\t') ++s; return s; } /* ** tTnewflag -- process a new style trace flag ** ** Parameters: ** s -- Points to a non-empty [\0, \t] terminated string, ** of which the initial character is not a digit. ** ** Returns: ** pointer to terminating [\0, \t] character ** ** Side Effects: ** adds trace flag to libsm debug database */ static char * tTnewflag(s) register char *s; { char *pat, *endpat; int level; pat = s; while (*s != '\0' && *s != ',' && *s != ' ' && *s != '\t' && *s != '.') ++s; endpat = s; if (*s == '.') { ++s; level = 0; while (isascii(*s) && isdigit(*s)) { level = level * 10 + (*s - '0'); ++s; } if (level < 0) level = 0; } else { level = 1; } sm_debug_addsetting_x(sm_strndup_x(pat, endpat - pat), level); /* skip trailing junk */ while (*s != '\0' && *s != ',' && *s != ' ' && *s != '\t') ++s; return s; } /* ** TtFLAG -- process an external trace flag list. ** ** Parameters: ** s -- the trace flag. ** ** The syntax of a trace flag list is as follows: ** ** ::= | "," ** ::= | "." ** ::= | "-" | ** ::= ** ** White space is ignored before and after a flag. ** However, note that we skip over anything we don't ** understand, rather than report an error. ** ** Returns: ** none. ** ** Side Effects: ** sets/clears old-style trace flags. ** registers new-style trace flags with the libsm debug package. */ void tTflag(s) register char *s; { if (SM_IS_EMPTY(s)) s = DefFlags; for (;;) { if (*s == '\0') return; if (*s == ',' || *s == ' ' || *s == '\t') { ++s; continue; } if (isascii(*s) && isdigit(*s)) s = tToldflag(s); else s = tTnewflag(s); } } sendmail-8.18.1/sendmail/conf.c0000644000372400037240000047004714556365350015670 0ustar xbuildxbuild/* * Copyright (c) 1998-2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: conf.c,v 8.1192 2014-01-27 18:23:21 ca Exp $") #include #include #if NEWDB # include "sm/bdb.h" #endif #include #include "map.h" #include #if defined(DEC) && NETINET6 /* for the IPv6 device lookup */ # define _SOCKADDR_LEN # include #endif #include #include #include #if NETINET || NETINET6 # include #endif #if HASULIMIT && defined(HPUX11) # include #endif #if STARTTLS # include "tls.h" #endif static void setupmaps __P((void)); static void setupmailers __P((void)); static void setupqueues __P((void)); static int get_num_procs_online __P((void)); static int add_hostnames __P((SOCKADDR *)); #if NETINET6 && NEEDSGETIPNODE static struct hostent *sm_getipnodebyname __P((const char *, int, int, int *)); static struct hostent *sm_getipnodebyaddr __P((const void *, size_t, int, int *)); #else /* NETINET6 && NEEDSGETIPNODE */ #define sm_getipnodebyname getipnodebyname #define sm_getipnodebyaddr getipnodebyaddr #endif /* NETINET6 && NEEDSGETIPNODE */ /* ** CONF.C -- Sendmail Configuration Tables. ** ** Defines the configuration of this installation. ** ** Configuration Variables: ** HdrInfo -- a table describing well-known header fields. ** Each entry has the field name and some flags, ** which are described in sendmail.h. ** ** Notes: ** I have tried to put almost all the reasonable ** configuration information into the configuration ** file read at runtime. My intent is that anything ** here is a function of the version of UNIX you ** are running, or is really static -- for example ** the headers are a superset of widely used ** protocols. If you find yourself playing with ** this file too much, you may be making a mistake! */ /* ** Header info table ** Final (null) entry contains the flags used for any other field. ** ** Not all of these are actually handled specially by sendmail ** at this time. They are included as placeholders, to let ** you know that "someday" I intend to have sendmail do ** something with them. */ #if _FFR_MTA_MODE # define Xflags H_ASIS #else # define Xflags 0 #endif struct hdrinfo HdrInfo[] = { /* originator fields, most to least significant */ { "resent-sender", H_FROM|H_RESENT, NULL }, { "resent-from", H_FROM|H_RESENT, NULL }, { "resent-reply-to", H_FROM|H_RESENT, NULL }, { "sender", H_FROM, NULL }, { "from", H_FROM | Xflags, NULL }, { "reply-to", H_FROM | Xflags, NULL }, { "errors-to", H_FROM|H_ERRORSTO, NULL }, { "full-name", H_ACHECK, NULL }, { "return-receipt-to", H_RECEIPTTO, NULL }, { "delivery-receipt-to", H_RECEIPTTO, NULL }, { "disposition-notification-to", H_FROM, NULL }, /* destination fields */ { "to", H_RCPT | Xflags, NULL }, { "resent-to", H_RCPT|H_RESENT, NULL }, { "cc", H_RCPT, NULL }, { "resent-cc", H_RCPT|H_RESENT, NULL }, { "bcc", H_RCPT|H_BCC, NULL }, { "resent-bcc", H_RCPT|H_BCC|H_RESENT, NULL }, { "apparently-to", H_RCPT, NULL }, /* message identification and control */ { "message-id", 0, NULL }, { "resent-message-id", H_RESENT, NULL }, #if !NO_EOH_FIELDS { "message", H_EOH, NULL }, { "text", H_EOH, NULL }, #endif /* date fields */ { "date", 0, NULL }, { "resent-date", H_RESENT, NULL }, /* trace fields */ { "received", H_TRACE|H_FORCE, NULL }, { "x400-received", H_TRACE|H_FORCE, NULL }, { "via", H_TRACE|H_FORCE, NULL }, { "mail-from", H_TRACE|H_FORCE, NULL }, /* miscellaneous fields */ { "comments", H_FORCE|H_ENCODABLE, NULL }, { "return-path", H_FORCE|H_ACHECK|H_BINDLATE, NULL }, { "content-transfer-encoding", H_CTE, NULL }, { "content-type", H_CTYPE, NULL }, { "content-length", H_ACHECK, NULL }, { "subject", H_ENCODABLE, NULL }, { "x-authentication-warning", H_FORCE, NULL }, { NULL, 0, NULL } }; /* ** Privacy values */ struct prival PrivacyValues[] = { { "public", PRIV_PUBLIC }, { "needmailhelo", PRIV_NEEDMAILHELO }, { "needexpnhelo", PRIV_NEEDEXPNHELO }, { "needvrfyhelo", PRIV_NEEDVRFYHELO }, { "noexpn", PRIV_NOEXPN }, { "novrfy", PRIV_NOVRFY }, { "authwarnings", PRIV_AUTHWARNINGS }, { "noverb", PRIV_NOVERB }, { "restrictmailq", PRIV_RESTRICTMAILQ }, { "restrictqrun", PRIV_RESTRICTQRUN }, { "restrictexpand", PRIV_RESTRICTEXPAND }, { "noetrn", PRIV_NOETRN }, { "nobodyreturn", PRIV_NOBODYRETN }, { "noreceipts", PRIV_NORECEIPTS }, { "goaway", PRIV_GOAWAY }, { "noactualrecipient", PRIV_NOACTUALRECIPIENT }, #if _FFR_NOREFLECT { "noreflection", PRIV_NOREFLECTION }, #endif { NULL, 0 } }; /* ** DontBlameSendmail values */ struct dbsval DontBlameSendmailValues[] = { { "safe", DBS_SAFE }, { "assumesafechown", DBS_ASSUMESAFECHOWN }, { "groupwritabledirpathsafe", DBS_GROUPWRITABLEDIRPATHSAFE }, { "groupwritableforwardfilesafe", DBS_GROUPWRITABLEFORWARDFILESAFE }, { "groupwritableincludefilesafe", DBS_GROUPWRITABLEINCLUDEFILESAFE }, { "groupwritablealiasfile", DBS_GROUPWRITABLEALIASFILE }, { "worldwritablealiasfile", DBS_WORLDWRITABLEALIASFILE }, { "forwardfileinunsafedirpath", DBS_FORWARDFILEINUNSAFEDIRPATH }, { "mapinunsafedirpath", DBS_MAPINUNSAFEDIRPATH }, { "linkedaliasfileinwritabledir", DBS_LINKEDALIASFILEINWRITABLEDIR }, { "linkedclassfileinwritabledir", DBS_LINKEDCLASSFILEINWRITABLEDIR }, { "linkedforwardfileinwritabledir", DBS_LINKEDFORWARDFILEINWRITABLEDIR }, { "linkedincludefileinwritabledir", DBS_LINKEDINCLUDEFILEINWRITABLEDIR }, { "linkedmapinwritabledir", DBS_LINKEDMAPINWRITABLEDIR }, { "linkedserviceswitchfileinwritabledir", DBS_LINKEDSERVICESWITCHFILEINWRITABLEDIR }, { "filedeliverytohardlink", DBS_FILEDELIVERYTOHARDLINK }, { "filedeliverytosymlink", DBS_FILEDELIVERYTOSYMLINK }, { "writemaptohardlink", DBS_WRITEMAPTOHARDLINK }, { "writemaptosymlink", DBS_WRITEMAPTOSYMLINK }, { "writestatstohardlink", DBS_WRITESTATSTOHARDLINK }, { "writestatstosymlink", DBS_WRITESTATSTOSYMLINK }, { "forwardfileingroupwritabledirpath", DBS_FORWARDFILEINGROUPWRITABLEDIRPATH }, { "includefileingroupwritabledirpath", DBS_INCLUDEFILEINGROUPWRITABLEDIRPATH }, { "classfileinunsafedirpath", DBS_CLASSFILEINUNSAFEDIRPATH }, { "errorheaderinunsafedirpath", DBS_ERRORHEADERINUNSAFEDIRPATH }, { "helpfileinunsafedirpath", DBS_HELPFILEINUNSAFEDIRPATH }, { "forwardfileinunsafedirpathsafe", DBS_FORWARDFILEINUNSAFEDIRPATHSAFE }, { "includefileinunsafedirpathsafe", DBS_INCLUDEFILEINUNSAFEDIRPATHSAFE }, { "runprograminunsafedirpath", DBS_RUNPROGRAMINUNSAFEDIRPATH }, { "runwritableprogram", DBS_RUNWRITABLEPROGRAM }, { "includefileinunsafedirpath", DBS_INCLUDEFILEINUNSAFEDIRPATH }, { "nonrootsafeaddr", DBS_NONROOTSAFEADDR }, { "truststickybit", DBS_TRUSTSTICKYBIT }, { "dontwarnforwardfileinunsafedirpath", DBS_DONTWARNFORWARDFILEINUNSAFEDIRPATH }, { "insufficiententropy", DBS_INSUFFICIENTENTROPY }, { "groupreadablesasldbfile", DBS_GROUPREADABLESASLDBFILE }, { "groupwritablesasldbfile", DBS_GROUPWRITABLESASLDBFILE }, { "groupwritableforwardfile", DBS_GROUPWRITABLEFORWARDFILE }, { "groupwritableincludefile", DBS_GROUPWRITABLEINCLUDEFILE }, { "worldwritableforwardfile", DBS_WORLDWRITABLEFORWARDFILE }, { "worldwritableincludefile", DBS_WORLDWRITABLEINCLUDEFILE }, { "groupreadablekeyfile", DBS_GROUPREADABLEKEYFILE }, { "groupreadabledefaultauthinfofile", DBS_GROUPREADABLEAUTHINFOFILE }, { "certowner", DBS_CERTOWNER }, { NULL, 0 } }; /* ** Miscellaneous stuff. */ int DtableSize = 50; /* max open files; reset in 4.2bsd */ /* ** SETDEFAULTS -- set default values ** ** Some of these must be initialized using direct code since they ** depend on run-time values. So let's do all of them this way. ** ** Parameters: ** e -- the default envelope. ** ** Returns: ** none. ** ** Side Effects: ** Initializes a bunch of global variables to their ** default values. */ #define MINUTES * 60 #define HOURS * 60 MINUTES #define DAYS * 24 HOURS #ifndef MAXRULERECURSION # define MAXRULERECURSION 50 /* max ruleset recursion depth */ #endif void setdefaults(e) register ENVELOPE *e; { int i; int numprocs; struct passwd *pw; numprocs = get_num_procs_online(); SpaceSub = ' '; /* option B */ QueueLA = 8 * numprocs; /* option x */ RefuseLA = 12 * numprocs; /* option X */ WkRecipFact = 30000L; /* option y */ WkClassFact = 1800L; /* option z */ WkTimeFact = 90000L; /* option Z */ QueueFactor = WkRecipFact * 20; /* option q */ QueueMode = QM_NORMAL; /* what queue items to act upon */ FileMode = (RealUid != geteuid()) ? 0644 : 0600; /* option F */ QueueFileMode = (RealUid != geteuid()) ? 0644 : 0600; /* option QueueFileMode */ if (((pw = sm_getpwnam("mailnull")) != NULL && pw->pw_uid != 0) || ((pw = sm_getpwnam("sendmail")) != NULL && pw->pw_uid != 0) || ((pw = sm_getpwnam("daemon")) != NULL && pw->pw_uid != 0)) { DefUid = pw->pw_uid; /* option u */ DefGid = pw->pw_gid; /* option g */ DefUser = newstr(pw->pw_name); } else { DefUid = 1; /* option u */ DefGid = 1; /* option g */ setdefuser(); } TrustedUid = 0; if (tTd(37, 4)) sm_dprintf("setdefaults: DefUser=%s, DefUid=%ld, DefGid=%ld\n", DefUser != NULL ? DefUser : "<1:1>", (long) DefUid, (long) DefGid); CheckpointInterval = 10; /* option C */ MaxHopCount = 25; /* option h */ set_delivery_mode(SM_FORK, e); /* option d */ e->e_errormode = EM_PRINT; /* option e */ e->e_qgrp = NOQGRP; e->e_qdir = NOQDIR; e->e_xfqgrp = NOQGRP; e->e_xfqdir = NOQDIR; e->e_ctime = curtime(); #if USE_EAI e->e_smtputf8 = false; #endif SevenBitInput = false; /* option 7 */ MaxMciCache = 1; /* option k */ MciCacheTimeout = 5 MINUTES; /* option K */ LogLevel = 9; /* option L */ #if MILTER MilterLogLevel = -1; #endif inittimeouts(NULL, false); /* option r */ PrivacyFlags = PRIV_PUBLIC; /* option p */ MeToo = true; /* option m */ SendMIMEErrors = true; /* option f */ SuperSafe = SAFE_REALLY; /* option s */ clrbitmap(DontBlameSendmail); /* DontBlameSendmail option */ #if MIME8TO7 MimeMode = MM_CVTMIME|MM_PASS8BIT; /* option 8 */ #else MimeMode = MM_PASS8BIT; #endif for (i = 0; i < MAXTOCLASS; i++) { TimeOuts.to_q_return[i] = 5 DAYS; /* option T */ TimeOuts.to_q_warning[i] = 0; /* option T */ } ServiceSwitchFile = "/etc/mail/service.switch"; ServiceCacheMaxAge = (time_t) 10; HostsFile = _PATH_HOSTS; PidFile = newstr(_PATH_SENDMAILPID); MustQuoteChars = "@,;:\\()[].'"; MciInfoTimeout = 30 MINUTES; MaxRuleRecursion = MAXRULERECURSION; MaxAliasRecursion = 10; MaxMacroRecursion = 10; ColonOkInAddr = true; DontLockReadFiles = true; DontProbeInterfaces = DPI_PROBEALL; DoubleBounceAddr = "postmaster"; MaxHeadersLength = MAXHDRSLEN; MaxMimeHeaderLength = MAXLINE; MaxMimeFieldLength = MaxMimeHeaderLength / 2; MaxForwardEntries = 0; FastSplit = 1; MaxNOOPCommands = MAXNOOPCOMMANDS; #if SASL AuthMechanisms = newstr(AUTH_MECHANISMS); AuthRealm = NULL; MaxSLBits = INT_MAX; #endif #if STARTTLS TLS_Srv_Opts = TLS_I_SRV; if (NULL == EVP_digest) EVP_digest = EVP_md5(); # if _FFR_TLSFB2CLEAR TLSFallbacktoClear = true; # endif Srv_SSL_Options = SSL_OP_ALL; Clt_SSL_Options = SSL_OP_ALL # ifdef SSL_OP_NO_SSLv2 | SSL_OP_NO_SSLv2 # endif # ifdef SSL_OP_NO_TICKET | SSL_OP_NO_TICKET # endif ; # ifdef SSL_OP_TLSEXT_PADDING /* SSL_OP_TLSEXT_PADDING breaks compatibility with some sites */ Srv_SSL_Options &= ~SSL_OP_TLSEXT_PADDING; Clt_SSL_Options &= ~SSL_OP_TLSEXT_PADDING; # endif /* SSL_OP_TLSEXT_PADDING */ #endif /* STARTTLS */ #ifdef HESIOD_INIT HesiodContext = NULL; #endif #if NETINET6 /* Detect if IPv6 is available at run time */ i = socket(AF_INET6, SOCK_STREAM, 0); if (i >= 0) { InetMode = AF_INET6; (void) close(i); } else InetMode = AF_INET; # if !IPV6_FULL UseCompressedIPv6Addresses = true; # endif #else /* NETINET6 */ InetMode = AF_INET; #endif /* NETINET6 */ ControlSocketName = NULL; memset(&ConnectOnlyTo, '\0', sizeof(ConnectOnlyTo)); DataFileBufferSize = 4096; XscriptFileBufferSize = 4096; for (i = 0; i < MAXRWSETS; i++) RuleSetNames[i] = NULL; #if MILTER InputFilters[0] = NULL; #endif RejectLogInterval = 3 HOURS; #if REQUIRES_DIR_FSYNC RequiresDirfsync = true; #endif #if _FFR_RCPTTHROTDELAY BadRcptThrottleDelay = 1; #endif ConnectionRateWindowSize = 60; #if _FFR_BOUNCE_QUEUE BounceQueue = NOQGRP; #endif setupmaps(); setupqueues(); setupmailers(); setupheaders(); } /* ** SETDEFUSER -- set/reset DefUser using DefUid (for initgroups()) */ void setdefuser() { struct passwd *defpwent; static char defuserbuf[40]; DefUser = defuserbuf; defpwent = sm_getpwuid(DefUid); (void) sm_strlcpy(defuserbuf, (defpwent == NULL || defpwent->pw_name == NULL) ? "nobody" : defpwent->pw_name, sizeof(defuserbuf)); if (tTd(37, 4)) sm_dprintf("setdefuser: DefUid=%ld, DefUser=%s\n", (long) DefUid, DefUser); } /* ** SETUPQUEUES -- initialize default queues ** ** The mqueue QUEUE structure gets filled in after readcf() but ** we need something to point to now for the mailer setup, ** which use "mqueue" as default queue. */ static void setupqueues() { char buf[100]; MaxRunnersPerQueue = 1; (void) sm_strlcpy(buf, "mqueue, P=/var/spool/mqueue", sizeof(buf)); makequeue(buf, false); } /* ** SETUPMAILERS -- initialize default mailers */ static void setupmailers() { char buf[100]; (void) sm_strlcpy(buf, "prog, P=/bin/sh, F=lsouDq9, T=X-Unix/X-Unix/X-Unix, A=sh -c \201u", sizeof(buf)); makemailer(buf); (void) sm_strlcpy(buf, "*file*, P=[FILE], F=lsDFMPEouq9, T=X-Unix/X-Unix/X-Unix, A=FILE \201u", sizeof(buf)); makemailer(buf); (void) sm_strlcpy(buf, "*include*, P=/dev/null, F=su, A=INCLUDE \201u", sizeof(buf)); makemailer(buf); initerrmailers(); } /* ** SETUPMAPS -- set up map classes */ #define MAPDEF(name, ext, flags, parse, open, close, lookup, store) \ { \ extern bool parse __P((MAP *, char *)); \ extern bool open __P((MAP *, int)); \ extern void close __P((MAP *)); \ extern char *lookup __P((MAP *, char *, char **, int *)); \ extern void store __P((MAP *, char *, char *)); \ s = stab(name, ST_MAPCLASS, ST_ENTER); \ s->s_mapclass.map_cname = name; \ s->s_mapclass.map_ext = ext; \ s->s_mapclass.map_cflags = flags; \ s->s_mapclass.map_parse = parse; \ s->s_mapclass.map_open = open; \ s->s_mapclass.map_close = close; \ s->s_mapclass.map_lookup = lookup; \ s->s_mapclass.map_store = store; \ } static void setupmaps() { register STAB *s; #if NEWDB # if DB_VERSION_MAJOR > 1 int major_v, minor_v, patch_v; (void) db_version(&major_v, &minor_v, &patch_v); if (major_v != DB_VERSION_MAJOR || minor_v != DB_VERSION_MINOR) { errno = 0; syserr("Berkeley DB version mismatch: compiled against %d.%d.%d, run-time linked against %d.%d.%d", DB_VERSION_MAJOR, DB_VERSION_MINOR, DB_VERSION_PATCH, major_v, minor_v, patch_v); } # endif /* DB_VERSION_MAJOR > 1 */ MAPDEF("hash", ".db", MCF_ALIASOK|MCF_REBUILDABLE, map_parseargs, hash_map_open, db_map_close, db_map_lookup, db_map_store); MAPDEF("btree", ".db", MCF_ALIASOK|MCF_REBUILDABLE, map_parseargs, bt_map_open, db_map_close, db_map_lookup, db_map_store); #endif /* NEWDB */ #if NDBM MAPDEF("dbm", ".dir", MCF_ALIASOK|MCF_REBUILDABLE, map_parseargs, ndbm_map_open, ndbm_map_close, ndbm_map_lookup, ndbm_map_store); #endif #if CDB MAPDEF("cdb", CDBEXT, MCF_ALIASOK|MCF_REBUILDABLE, map_parseargs, cdb_map_open, cdb_map_close, cdb_map_lookup, cdb_map_store); #endif #if NIS MAPDEF("nis", NULL, MCF_ALIASOK, map_parseargs, nis_map_open, null_map_close, nis_map_lookup, null_map_store); #endif #if NISPLUS MAPDEF("nisplus", NULL, MCF_ALIASOK, map_parseargs, nisplus_map_open, null_map_close, nisplus_map_lookup, null_map_store); #endif #if LDAPMAP MAPDEF("ldap", NULL, MCF_ALIASOK|MCF_NOTPERSIST, ldapmap_parseargs, ldapmap_open, ldapmap_close, ldapmap_lookup, null_map_store); #endif #if PH_MAP MAPDEF("ph", NULL, MCF_NOTPERSIST, ph_map_parseargs, ph_map_open, ph_map_close, ph_map_lookup, null_map_store); #endif #if MAP_NSD /* IRIX 6.5 nsd support */ MAPDEF("nsd", NULL, MCF_ALIASOK, map_parseargs, null_map_open, null_map_close, nsd_map_lookup, null_map_store); #endif #if HESIOD MAPDEF("hesiod", NULL, MCF_ALIASOK, map_parseargs, hes_map_open, hes_map_close, hes_map_lookup, null_map_store); #endif #if NETINFO MAPDEF("netinfo", NULL, MCF_ALIASOK, map_parseargs, ni_map_open, null_map_close, ni_map_lookup, null_map_store); #endif #if 0 MAPDEF("dns", NULL, 0, dns_map_init, null_map_open, null_map_close, dns_map_lookup, null_map_store); #endif /* 0 */ #if NAMED_BIND # if DNSMAP # if _FFR_DNSMAP_ALIASABLE MAPDEF("dns", NULL, MCF_ALIASOK, dns_map_parseargs, dns_map_open, null_map_close, dns_map_lookup, null_map_store); # else /* _FFR_DNSMAP_ALIASABLE */ MAPDEF("dns", NULL, 0, dns_map_parseargs, dns_map_open, null_map_close, dns_map_lookup, null_map_store); # endif /* _FFR_DNSMAP_ALIASABLE */ # endif /* DNSMAP */ #endif /* NAMED_BIND */ #if NAMED_BIND /* best MX DNS lookup */ MAPDEF("bestmx", NULL, MCF_OPTFILE, map_parseargs, null_map_open, null_map_close, bestmx_map_lookup, null_map_store); #endif MAPDEF("host", NULL, 0, host_map_init, null_map_open, null_map_close, host_map_lookup, null_map_store); MAPDEF("text", NULL, MCF_ALIASOK, map_parseargs, text_map_open, null_map_close, text_map_lookup, null_map_store); MAPDEF("stab", NULL, MCF_ALIASOK, map_parseargs, stab_map_open, null_map_close, stab_map_lookup, stab_map_store); MAPDEF("implicit", NULL, MCF_ALIASOK|MCF_REBUILDABLE, map_parseargs, impl_map_open, impl_map_close, impl_map_lookup, impl_map_store); /* access to system passwd file */ MAPDEF("user", NULL, MCF_OPTFILE, map_parseargs, user_map_open, null_map_close, user_map_lookup, null_map_store); /* dequote map */ MAPDEF("dequote", NULL, 0, dequote_init, null_map_open, null_map_close, dequote_map, null_map_store); #if MAP_REGEX MAPDEF("regex", NULL, 0, regex_map_init, null_map_open, null_map_close, regex_map_lookup, null_map_store); #endif #if USERDB /* user database */ MAPDEF("userdb", ".db", 0, map_parseargs, null_map_open, null_map_close, udb_map_lookup, null_map_store); #endif /* arbitrary programs */ MAPDEF("program", NULL, MCF_ALIASOK, map_parseargs, null_map_open, null_map_close, prog_map_lookup, null_map_store); /* sequenced maps */ MAPDEF("sequence", NULL, MCF_ALIASOK, seq_map_parse, null_map_open, null_map_close, seq_map_lookup, seq_map_store); /* switched interface to sequenced maps */ MAPDEF("switch", NULL, MCF_ALIASOK, map_parseargs, switch_map_open, null_map_close, seq_map_lookup, seq_map_store); /* null map lookup -- really for internal use only */ MAPDEF("null", NULL, MCF_ALIASOK|MCF_OPTFILE, map_parseargs, null_map_open, null_map_close, null_map_lookup, null_map_store); /* syslog map -- logs information to syslog */ MAPDEF("syslog", NULL, 0, syslog_map_parseargs, null_map_open, null_map_close, syslog_map_lookup, null_map_store); /* macro storage map -- rulesets can set macros */ MAPDEF("macro", NULL, 0, dequote_init, null_map_open, null_map_close, macro_map_lookup, null_map_store); /* arithmetic map -- add/subtract/compare */ MAPDEF("arith", NULL, 0, dequote_init, null_map_open, null_map_close, arith_map_lookup, null_map_store); /* "arpa" map -- IP -> arpa */ MAPDEF("arpa", NULL, 0, dequote_init, null_map_open, null_map_close, arpa_map_lookup, null_map_store); #if SOCKETMAP /* arbitrary daemons */ MAPDEF("socket", NULL, MCF_ALIASOK, map_parseargs, socket_map_open, socket_map_close, socket_map_lookup, null_map_store); #endif #if _FFR_DPRINTF_MAP /* dprintf map -- logs information to syslog */ MAPDEF("dprintf", NULL, 0, dprintf_map_parseargs, null_map_open, null_map_close, dprintf_map_lookup, null_map_store); #endif #if _FFR_SETDEBUG_MAP /* setdebug map -- set debug levels */ MAPDEF("setdebug", NULL, 0, dequote_init, null_map_open, null_map_close, setdebug_map_lookup, null_map_store); #endif #if _FFR_SETOPT_MAP /* setopt map -- set option */ MAPDEF("setopt", NULL, 0, dequote_init, null_map_open, null_map_close, setopt_map_lookup, null_map_store); #endif if (tTd(38, 2)) { /* bogus map -- always return tempfail */ MAPDEF("bogus", NULL, MCF_ALIASOK|MCF_OPTFILE, map_parseargs, null_map_open, null_map_close, bogus_map_lookup, null_map_store); } } #undef MAPDEF /* ** INITHOSTMAPS -- initial host-dependent maps ** ** This should act as an interface to any local service switch ** provided by the host operating system. ** ** Parameters: ** none ** ** Returns: ** none ** ** Side Effects: ** Should define maps "host" and "users" as necessary ** for this OS. If they are not defined, they will get ** a default value later. It should check to make sure ** they are not defined first, since it's possible that ** the config file has provided an override. */ void inithostmaps() { register int i; int nmaps; char *maptype[MAXMAPSTACK]; short mapreturn[MAXMAPACTIONS]; char buf[MAXLINE]; /* ** Make sure we have a host map. */ if (stab("host", ST_MAP, ST_FIND) == NULL) { /* user didn't initialize: set up host map */ (void) sm_strlcpy(buf, "host host", sizeof(buf)); #if NAMED_BIND if (ConfigLevel >= 2) (void) sm_strlcat(buf, " -a. -D", sizeof(buf)); #endif (void) makemapentry(buf); } /* ** Set up default aliases maps */ nmaps = switch_map_find("aliases", maptype, mapreturn); for (i = 0; i < nmaps; i++) { if (strcmp(maptype[i], "files") == 0 && stab("aliases.files", ST_MAP, ST_FIND) == NULL) { (void) sm_strlcpy(buf, "aliases.files null", sizeof(buf)); (void) makemapentry(buf); } #if CDB else if (strcmp(maptype[i], "cdb") == 0 && stab("aliases.cdb", ST_MAP, ST_FIND) == NULL) { (void) sm_strlcpy(buf, "aliases.cdb null", sizeof(buf)); (void) makemapentry(buf); } #endif /* CDB */ #if NISPLUS else if (strcmp(maptype[i], "nisplus") == 0 && stab("aliases.nisplus", ST_MAP, ST_FIND) == NULL) { (void) sm_strlcpy(buf, "aliases.nisplus nisplus -kalias -vexpansion mail_aliases.org_dir", sizeof(buf)); (void) makemapentry(buf); } #endif /* NISPLUS */ #if NIS else if (strcmp(maptype[i], "nis") == 0 && stab("aliases.nis", ST_MAP, ST_FIND) == NULL) { (void) sm_strlcpy(buf, "aliases.nis nis mail.aliases", sizeof(buf)); (void) makemapentry(buf); } #endif /* NIS */ #if NETINFO else if (strcmp(maptype[i], "netinfo") == 0 && stab("aliases.netinfo", ST_MAP, ST_FIND) == NULL) { (void) sm_strlcpy(buf, "aliases.netinfo netinfo -z, /aliases", sizeof(buf)); (void) makemapentry(buf); } #endif /* NETINFO */ #if HESIOD else if (strcmp(maptype[i], "hesiod") == 0 && stab("aliases.hesiod", ST_MAP, ST_FIND) == NULL) { (void) sm_strlcpy(buf, "aliases.hesiod hesiod aliases", sizeof(buf)); (void) makemapentry(buf); } #endif /* HESIOD */ #if LDAPMAP && defined(SUN_EXTENSIONS) && \ defined(SUN_SIMPLIFIED_LDAP) && HASLDAPGETALIASBYNAME else if (strcmp(maptype[i], "ldap") == 0 && stab("aliases.ldap", ST_MAP, ST_FIND) == NULL) { (void) sm_strlcpy(buf, "aliases.ldap ldap -b . -h localhost -k mail=%0 -v mailgroup", sizeof buf); (void) makemapentry(buf); } #endif /* LDAPMAP && defined(SUN_EXTENSIONS) && ... */ } if (stab("aliases", ST_MAP, ST_FIND) == NULL) { (void) sm_strlcpy(buf, "aliases switch aliases", sizeof(buf)); (void) makemapentry(buf); } } /* ** SWITCH_MAP_FIND -- find the list of types associated with a map ** ** This is the system-dependent interface to the service switch. ** ** Parameters: ** service -- the name of the service of interest. ** maptype -- an out-array of strings containing the types ** of access to use for this service. There can ** be at most MAXMAPSTACK types for a single service. ** mapreturn -- an out-array of return information bitmaps ** for the map. ** ** Returns: ** The number of map types filled in, or -1 for failure. ** ** Side effects: ** Preserves errno so nothing in the routine clobbers it. */ #if defined(SOLARIS) || (defined(sony_news) && defined(__svr4)) # define _USE_SUN_NSSWITCH_ #endif #if _FFR_HPUX_NSSWITCH # ifdef __hpux # define _USE_SUN_NSSWITCH_ # endif #endif /* _FFR_HPUX_NSSWITCH */ #ifdef _USE_SUN_NSSWITCH_ # include #endif #if defined(ultrix) || (defined(__osf__) && defined(__alpha)) # define _USE_DEC_SVC_CONF_ #endif #ifdef _USE_DEC_SVC_CONF_ # include #endif int switch_map_find(service, maptype, mapreturn) char *service; char *maptype[MAXMAPSTACK]; short mapreturn[MAXMAPACTIONS]; { int svcno = 0; int save_errno = errno; #ifdef _USE_SUN_NSSWITCH_ struct __nsw_switchconfig *nsw_conf; enum __nsw_parse_err pserr; struct __nsw_lookup *lk; static struct __nsw_lookup lkp0 = { "files", {1, 0, 0, 0}, NULL, NULL }; static struct __nsw_switchconfig lkp_default = { 0, "sendmail", 3, &lkp0 }; for (svcno = 0; svcno < MAXMAPACTIONS; svcno++) mapreturn[svcno] = 0; if ((nsw_conf = __nsw_getconfig(service, &pserr)) == NULL) lk = lkp_default.lookups; else lk = nsw_conf->lookups; svcno = 0; while (lk != NULL && svcno < MAXMAPSTACK) { maptype[svcno] = lk->service_name; if (lk->actions[__NSW_NOTFOUND] == __NSW_RETURN) mapreturn[MA_NOTFOUND] |= 1 << svcno; if (lk->actions[__NSW_TRYAGAIN] == __NSW_RETURN) mapreturn[MA_TRYAGAIN] |= 1 << svcno; if (lk->actions[__NSW_UNAVAIL] == __NSW_RETURN) mapreturn[MA_TRYAGAIN] |= 1 << svcno; svcno++; lk = lk->next; } errno = save_errno; return svcno; #endif /* _USE_SUN_NSSWITCH_ */ #ifdef _USE_DEC_SVC_CONF_ struct svcinfo *svcinfo; int svc; for (svcno = 0; svcno < MAXMAPACTIONS; svcno++) mapreturn[svcno] = 0; svcinfo = getsvc(); if (svcinfo == NULL) goto punt; if (strcmp(service, "hosts") == 0) svc = SVC_HOSTS; else if (strcmp(service, "aliases") == 0) svc = SVC_ALIASES; else if (strcmp(service, "passwd") == 0) svc = SVC_PASSWD; else { errno = save_errno; return -1; } for (svcno = 0; svcno < SVC_PATHSIZE && svcno < MAXMAPSTACK; svcno++) { switch (svcinfo->svcpath[svc][svcno]) { case SVC_LOCAL: maptype[svcno] = "files"; break; case SVC_YP: maptype[svcno] = "nis"; break; case SVC_BIND: maptype[svcno] = "dns"; break; # ifdef SVC_HESIOD case SVC_HESIOD: maptype[svcno] = "hesiod"; break; # endif case SVC_LAST: errno = save_errno; return svcno; } } errno = save_errno; return svcno; #endif /* _USE_DEC_SVC_CONF_ */ #if !defined(_USE_SUN_NSSWITCH_) && !defined(_USE_DEC_SVC_CONF_) /* ** Fall-back mechanism. */ STAB *st; static time_t servicecachetime; /* time service switch was cached */ time_t now = curtime(); for (svcno = 0; svcno < MAXMAPACTIONS; svcno++) mapreturn[svcno] = 0; if ((now - servicecachetime) > (time_t) ServiceCacheMaxAge) { /* (re)read service switch */ register SM_FILE_T *fp; long sff = SFF_REGONLY|SFF_OPENASROOT|SFF_NOLOCK; if (!bitnset(DBS_LINKEDSERVICESWITCHFILEINWRITABLEDIR, DontBlameSendmail)) sff |= SFF_NOWLINK; if (ConfigFileRead) servicecachetime = now; fp = safefopen(ServiceSwitchFile, O_RDONLY, 0, sff); if (fp != NULL) { char buf[MAXLINE]; while (sm_io_fgets(fp, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { register char *p; p = strpbrk(buf, "#\n"); if (p != NULL) *p = '\0'; # ifndef SM_NSSWITCH_DELIMS # define SM_NSSWITCH_DELIMS " \t" # endif p = strpbrk(buf, SM_NSSWITCH_DELIMS); if (p != NULL) *p++ = '\0'; if (buf[0] == '\0') continue; if (p == NULL) { sm_syslog(LOG_ERR, NOQID, "Bad line on %.100s: %.100s", ServiceSwitchFile, buf); continue; } while (SM_ISSPACE(*p)) p++; if (*p == '\0') continue; /* ** Find/allocate space for this service entry. ** Space for all of the service strings ** are allocated at once. This means ** that we only have to free the first ** one to free all of them. */ st = stab(buf, ST_SERVICE, ST_ENTER); if (st->s_service[0] != NULL) sm_free((void *) st->s_service[0]); /* XXX */ p = newstr(p); for (svcno = 0; svcno < MAXMAPSTACK; ) { if (*p == '\0') break; st->s_service[svcno++] = p; p = strpbrk(p, " \t"); if (p == NULL) break; *p++ = '\0'; while (SM_ISSPACE(*p)) p++; } if (svcno < MAXMAPSTACK) st->s_service[svcno] = NULL; } (void) sm_io_close(fp, SM_TIME_DEFAULT); } } /* look up entry in cache */ st = stab(service, ST_SERVICE, ST_FIND); if (st != NULL && st->s_service[0] != NULL) { /* extract data */ svcno = 0; while (svcno < MAXMAPSTACK) { maptype[svcno] = st->s_service[svcno]; if (maptype[svcno++] == NULL) break; } errno = save_errno; return --svcno; } #endif /* !defined(_USE_SUN_NSSWITCH_) && !defined(_USE_DEC_SVC_CONF_) */ #if !defined(_USE_SUN_NSSWITCH_) /* if the service file doesn't work, use an absolute fallback */ # ifdef _USE_DEC_SVC_CONF_ punt: # endif for (svcno = 0; svcno < MAXMAPACTIONS; svcno++) mapreturn[svcno] = 0; svcno = 0; if (strcmp(service, "aliases") == 0) { SM_ASSERT(svcno < MAXMAPSTACK); maptype[svcno++] = "files"; # if CDB SM_ASSERT(svcno < MAXMAPSTACK); maptype[svcno++] = "cdb"; # endif # if defined(AUTO_NETINFO_ALIASES) && defined (NETINFO) SM_ASSERT(svcno < MAXMAPSTACK); maptype[svcno++] = "netinfo"; # endif # ifdef AUTO_NIS_ALIASES # if NISPLUS SM_ASSERT(svcno < MAXMAPSTACK); maptype[svcno++] = "nisplus"; # endif # if NIS SM_ASSERT(svcno < MAXMAPSTACK); maptype[svcno++] = "nis"; # endif # endif /* AUTO_NIS_ALIASES */ errno = save_errno; return svcno; } if (strcmp(service, "hosts") == 0) { # if NAMED_BIND SM_ASSERT(svcno < MAXMAPSTACK); maptype[svcno++] = "dns"; # else /* NAMED_BIND */ # if defined(sun) && !defined(BSD) /* SunOS */ SM_ASSERT(svcno < MAXMAPSTACK); maptype[svcno++] = "nis"; # endif /* defined(sun) && !defined(BSD) */ # endif /* NAMED_BIND */ # if defined(AUTO_NETINFO_HOSTS) && defined (NETINFO) SM_ASSERT(svcno < MAXMAPSTACK); maptype[svcno++] = "netinfo"; # endif SM_ASSERT(svcno < MAXMAPSTACK); maptype[svcno++] = "files"; errno = save_errno; return svcno; } errno = save_errno; return -1; #endif /* !defined(_USE_SUN_NSSWITCH_) */ } /* ** USERNAME -- return the user id of the logged in user. ** ** Parameters: ** none. ** ** Returns: ** The login name of the logged in user. ** ** Side Effects: ** none. ** ** Notes: ** The return value is statically allocated. */ char * username() { static char *myname = NULL; extern char *getlogin __P((void)); register struct passwd *pw; /* cache the result */ if (myname == NULL) { myname = getlogin(); if (SM_IS_EMPTY(myname)) { pw = sm_getpwuid(RealUid); if (pw != NULL) myname = pw->pw_name; } else { uid_t uid = RealUid; if ((pw = sm_getpwnam(myname)) == NULL || (uid != 0 && uid != pw->pw_uid)) { pw = sm_getpwuid(uid); if (pw != NULL) myname = pw->pw_name; } } if (SM_IS_EMPTY(myname)) { syserr("554 5.3.0 Who are you?"); myname = "postmaster"; } else if (strpbrk(myname, ",;:/|\"\\") != NULL) myname = addquotes(myname, NULL); else myname = sm_pstrdup_x(myname); } return myname; } /* ** TTYPATH -- Get the path of the user's tty ** ** Returns the pathname of the user's tty. Returns NULL if ** the user is not logged in or if s/he has write permission ** denied. ** ** Parameters: ** none ** ** Returns: ** pathname of the user's tty. ** NULL if not logged in or write permission denied. ** ** Side Effects: ** none. ** ** WARNING: ** Return value is in a local buffer. ** ** Called By: ** savemail */ char * ttypath() { struct stat stbuf; register char *pathn; extern char *ttyname __P((int)); extern char *getlogin __P((void)); /* compute the pathname of the controlling tty */ if ((pathn = ttyname(2)) == NULL && (pathn = ttyname(1)) == NULL && (pathn = ttyname(0)) == NULL) { errno = 0; return NULL; } /* see if we have write permission */ if (stat(pathn, &stbuf) < 0 || !bitset(S_IWOTH, stbuf.st_mode)) { errno = 0; return NULL; } /* see if the user is logged in */ if (getlogin() == NULL) return NULL; /* looks good */ return pathn; } /* ** CHECKCOMPAT -- check for From and To person compatible. ** ** This routine can be supplied on a per-installation basis ** to determine whether a person is allowed to send a message. ** This allows restriction of certain types of internet ** forwarding or registration of users. ** ** If the hosts are found to be incompatible, an error ** message should be given using "usrerr" and an EX_ code ** should be returned. You can also set to->q_status to ** a DSN-style status code. ** ** EF_NO_BODY_RETN can be set in e->e_flags to suppress the ** body during the return-to-sender function; this should be done ** on huge messages. This bit may already be set by the ESMTP ** protocol. ** ** Parameters: ** to -- the person being sent to. ** ** Returns: ** an exit status ** ** Side Effects: ** none (unless you include the usrerr stuff) */ int checkcompat(to, e) register ADDRESS *to; register ENVELOPE *e; { if (tTd(49, 1)) sm_dprintf("checkcompat(to=%s, from=%s)\n", to->q_paddr, e->e_from.q_paddr); #ifdef EXAMPLE_CODE /* this code is intended as an example only */ register STAB *s; s = stab("arpa", ST_MAILER, ST_FIND); if (s != NULL && strcmp(e->e_from.q_mailer->m_name, "local") != 0 && to->q_mailer == s->s_mailer) { usrerr("553 No ARPA mail through this machine: see your system administration"); /* e->e_flags |= EF_NO_BODY_RETN; to suppress body on return */ to->q_status = "5.7.1"; return EX_UNAVAILABLE; } #endif /* EXAMPLE_CODE */ return EX_OK; } #ifdef SUN_EXTENSIONS static void init_md_sun() { struct stat sbuf; /* Check for large file descriptor */ if (fstat(fileno(stdin), &sbuf) < 0) { if (errno == EOVERFLOW) { perror("stdin"); exit(EX_NOINPUT); } } } #endif /* SUN_EXTENSIONS */ /* ** INIT_MD -- do machine dependent initializations ** ** Systems that have global modes that should be set should do ** them here rather than in main. */ #ifdef _AUX_SOURCE # include #endif #if SHARE_V1 # include #endif void init_md(argc, argv) int argc; char **argv; { #ifdef _AUX_SOURCE setcompat(getcompat() | COMPAT_BSDPROT); #endif #ifdef SUN_EXTENSIONS init_md_sun(); #endif #if _CONVEX_SOURCE /* keep gethostby*() from stripping the local domain name */ set_domain_trim_off(); #endif #if defined(__QNX__) && !defined(__QNXNTO__) /* ** Due to QNX's network distributed nature, you can target a tcpip ** stack on a different node in the qnx network; this patch lets ** this feature work. The __sock_locate() must be done before the ** environment is clear. */ __sock_locate(); #endif /* __QNX__ */ #if SECUREWARE || defined(_SCO_unix_) set_auth_parameters(argc, argv); # ifdef _SCO_unix_ /* ** This is required for highest security levels (the kernel ** won't let it call set*uid() or run setuid binaries without ** it). It may be necessary on other SECUREWARE systems. */ if (getluid() == -1) setluid(0); # endif /* _SCO_unix_ */ #endif /* SECUREWARE || defined(_SCO_unix_) */ #ifdef VENDOR_DEFAULT VendorCode = VENDOR_DEFAULT; #else VendorCode = VENDOR_BERKELEY; #endif } /* ** INIT_VENDOR_MACROS -- vendor-dependent macro initializations ** ** Called once, on startup. ** ** Parameters: ** e -- the global envelope. ** ** Returns: ** none. ** ** Side Effects: ** vendor-dependent. */ void init_vendor_macros(e) register ENVELOPE *e; { } /* ** GETLA -- get the current load average ** ** This code stolen from la.c. ** ** Parameters: ** none. ** ** Returns: ** The current load average as an integer. ** ** Side Effects: ** none. */ /* try to guess what style of load average we have */ #define LA_ZERO 1 /* always return load average as zero */ #define LA_INT 2 /* read kmem for avenrun; interpret as long */ #define LA_FLOAT 3 /* read kmem for avenrun; interpret as float */ #define LA_SUBR 4 /* call getloadavg */ #define LA_MACH 5 /* MACH load averages (as on NeXT boxes) */ #define LA_SHORT 6 /* read kmem for avenrun; interpret as short */ #define LA_PROCSTR 7 /* read string ("1.17") from /proc/loadavg */ #define LA_READKSYM 8 /* SVR4: use MIOC_READKSYM ioctl call */ #define LA_DGUX 9 /* special DGUX implementation */ #define LA_HPUX 10 /* special HPUX implementation */ #define LA_IRIX6 11 /* special IRIX 6.2 implementation */ #define LA_KSTAT 12 /* special Solaris kstat(3k) implementation */ #define LA_DEVSHORT 13 /* read short from a device */ #define LA_ALPHAOSF 14 /* Digital UNIX (OSF/1 on Alpha) table() call */ #define LA_PSET 15 /* Solaris per-processor-set load average */ #define LA_LONGLONG 17 /* read kmem for avenrun; interpret as long long */ /* do guesses based on general OS type */ #ifndef LA_TYPE # define LA_TYPE LA_ZERO #endif #ifndef FSHIFT # if defined(unixpc) # define FSHIFT 5 # endif # if defined(__alpha) || defined(IRIX) # define FSHIFT 10 # endif #endif /* ! FSHIFT */ #ifndef FSHIFT # define FSHIFT 8 #endif #ifndef FSCALE # define FSCALE (1 << FSHIFT) #endif #ifndef LA_AVENRUN # ifdef SYSTEM5 # define LA_AVENRUN "avenrun" # else # define LA_AVENRUN "_avenrun" # endif #endif /* ! LA_AVENRUN */ /* _PATH_KMEM should be defined in */ #ifndef _PATH_KMEM # define _PATH_KMEM "/dev/kmem" #endif #if (LA_TYPE == LA_INT) || (LA_TYPE == LA_FLOAT) || (LA_TYPE == LA_SHORT) || (LA_TYPE == LA_LONGLONG) # include /* _PATH_UNIX should be defined in */ # ifndef _PATH_UNIX # if defined(SYSTEM5) # define _PATH_UNIX "/unix" # else # define _PATH_UNIX "/vmunix" # endif # endif /* ! _PATH_UNIX */ # ifdef _AUX_SOURCE struct nlist Nl[2]; # else /* _AUX_SOURCE */ struct nlist Nl[] = { { LA_AVENRUN }, { 0 }, }; # endif /* _AUX_SOURCE */ # define X_AVENRUN 0 int getla() { int j; static int kmem = -1; # if LA_TYPE == LA_INT long avenrun[3]; # else /* LA_TYPE == LA_INT */ # if LA_TYPE == LA_SHORT short avenrun[3]; # else # if LA_TYPE == LA_LONGLONG long long avenrun[3]; # else double avenrun[3]; # endif # endif /* LA_TYPE == LA_SHORT */ # endif /* LA_TYPE == LA_INT */ extern off_t lseek __P((int, off_t, int)); if (kmem < 0) { # ifdef _AUX_SOURCE (void) sm_strlcpy(Nl[X_AVENRUN].n_name, LA_AVENRUN, sizeof(Nl[X_AVENRUN].n_name)); Nl[1].n_name[0] = '\0'; # endif /* _AUX_SOURCE */ # if defined(_AIX3) || defined(_AIX4) if (knlist(Nl, 1, sizeof(Nl[0])) < 0) # else if (nlist(_PATH_UNIX, Nl) < 0) # endif { if (tTd(3, 1)) sm_dprintf("getla: nlist(%s): %s\n", _PATH_UNIX, sm_errstring(errno)); return -1; } if (Nl[X_AVENRUN].n_value == 0) { if (tTd(3, 1)) sm_dprintf("getla: nlist(%s, %s) ==> 0\n", _PATH_UNIX, LA_AVENRUN); return -1; } # ifdef NAMELISTMASK Nl[X_AVENRUN].n_value &= NAMELISTMASK; # endif kmem = open(_PATH_KMEM, 0, 0); if (kmem < 0) { if (tTd(3, 1)) sm_dprintf("getla: open(/dev/kmem): %s\n", sm_errstring(errno)); return -1; } if ((j = fcntl(kmem, F_GETFD, 0)) < 0 || fcntl(kmem, F_SETFD, j | FD_CLOEXEC) < 0) { if (tTd(3, 1)) sm_dprintf("getla: fcntl(/dev/kmem, FD_CLOEXEC): %s\n", sm_errstring(errno)); (void) close(kmem); kmem = -1; return -1; } } if (tTd(3, 20)) sm_dprintf("getla: symbol address = %#lx\n", (unsigned long) Nl[X_AVENRUN].n_value); if (lseek(kmem, (off_t) Nl[X_AVENRUN].n_value, SEEK_SET) == -1 || read(kmem, (char *) avenrun, sizeof(avenrun)) != sizeof(avenrun)) { /* thank you Ian */ if (tTd(3, 1)) sm_dprintf("getla: lseek or read: %s\n", sm_errstring(errno)); return -1; } # if (LA_TYPE == LA_INT) || (LA_TYPE == LA_SHORT) || (LA_TYPE == LA_LONGLONG) if (tTd(3, 5)) { # if LA_TYPE == LA_SHORT sm_dprintf("getla: avenrun = %d", avenrun[0]); if (tTd(3, 15)) sm_dprintf(", %d, %d", avenrun[1], avenrun[2]); # else /* LA_TYPE == LA_SHORT */ # if LA_TYPE == LA_LONGLONG sm_dprintf("getla: avenrun = %lld", avenrun[0]); if (tTd(3, 15)) sm_dprintf(", %lld, %lld", avenrun[1], avenrun[2]); # else /* LA_TYPE == LA_LONGLONG */ sm_dprintf("getla: avenrun = %ld", avenrun[0]); if (tTd(3, 15)) sm_dprintf(", %ld, %ld", avenrun[1], avenrun[2]); # endif /* LA_TYPE == LA_LONGLONG */ # endif /* LA_TYPE == LA_SHORT */ sm_dprintf("\n"); } if (tTd(3, 1)) sm_dprintf("getla: %d\n", (int) (avenrun[0] + FSCALE/2) >> FSHIFT); return ((int) (avenrun[0] + FSCALE/2) >> FSHIFT); # else /* (LA_TYPE == LA_INT) || (LA_TYPE == LA_SHORT) || (LA_TYPE == LA_LONGLONG) */ if (tTd(3, 5)) { sm_dprintf("getla: avenrun = %g", avenrun[0]); if (tTd(3, 15)) sm_dprintf(", %g, %g", avenrun[1], avenrun[2]); sm_dprintf("\n"); } if (tTd(3, 1)) sm_dprintf("getla: %d\n", (int) (avenrun[0] +0.5)); return ((int) (avenrun[0] + 0.5)); # endif /* (LA_TYPE == LA_INT) || (LA_TYPE == LA_SHORT) || (LA_TYPE == LA_LONGLONG) */ } #endif /* (LA_TYPE == LA_INT) || (LA_TYPE == LA_FLOAT) || (LA_TYPE == LA_SHORT) || (LA_TYPE == LA_LONGLONG) */ #if LA_TYPE == LA_READKSYM # include int getla() { int j; static int kmem = -1; long avenrun[3]; struct mioc_rksym mirk; if (kmem < 0) { kmem = open("/dev/kmem", 0, 0); if (kmem < 0) { if (tTd(3, 1)) sm_dprintf("getla: open(/dev/kmem): %s\n", sm_errstring(errno)); return -1; } if ((j = fcntl(kmem, F_GETFD, 0)) < 0 || fcntl(kmem, F_SETFD, j | FD_CLOEXEC) < 0) { if (tTd(3, 1)) sm_dprintf("getla: fcntl(/dev/kmem, FD_CLOEXEC): %s\n", sm_errstring(errno)); (void) close(kmem); kmem = -1; return -1; } } mirk.mirk_symname = LA_AVENRUN; mirk.mirk_buf = avenrun; mirk.mirk_buflen = sizeof(avenrun); if (ioctl(kmem, MIOC_READKSYM, &mirk) < 0) { if (tTd(3, 1)) sm_dprintf("getla: ioctl(MIOC_READKSYM) failed: %s\n", sm_errstring(errno)); return -1; } if (tTd(3, 5)) { sm_dprintf("getla: avenrun = %d", avenrun[0]); if (tTd(3, 15)) sm_dprintf(", %d, %d", avenrun[1], avenrun[2]); sm_dprintf("\n"); } if (tTd(3, 1)) sm_dprintf("getla: %d\n", (int) (avenrun[0] + FSCALE/2) >> FSHIFT); return ((int) (avenrun[0] + FSCALE/2) >> FSHIFT); } #endif /* LA_TYPE == LA_READKSYM */ #if LA_TYPE == LA_DGUX # include int getla() { struct dg_sys_info_load_info load_info; dg_sys_info((long *)&load_info, DG_SYS_INFO_LOAD_INFO_TYPE, DG_SYS_INFO_LOAD_VERSION_0); if (tTd(3, 1)) sm_dprintf("getla: %d\n", (int) (load_info.one_minute + 0.5)); return ((int) (load_info.one_minute + 0.5)); } #endif /* LA_TYPE == LA_DGUX */ #if LA_TYPE == LA_HPUX /* forward declarations to keep gcc from complaining */ struct pst_dynamic; struct pst_status; struct pst_static; struct pst_vminfo; struct pst_diskinfo; struct pst_processor; struct pst_lv; struct pst_swapinfo; # include # include int getla() { struct pst_dynamic pstd; if (pstat_getdynamic(&pstd, sizeof(struct pst_dynamic), (size_t) 1, 0) == -1) return 0; if (tTd(3, 1)) sm_dprintf("getla: %d\n", (int) (pstd.psd_avg_1_min + 0.5)); return (int) (pstd.psd_avg_1_min + 0.5); } #endif /* LA_TYPE == LA_HPUX */ #if LA_TYPE == LA_SUBR int getla() { double avenrun[3]; if (getloadavg(avenrun, sizeof(avenrun) / sizeof(avenrun[0])) < 0) { if (tTd(3, 1)) sm_dprintf("getla: getloadavg failed: %s", sm_errstring(errno)); return -1; } if (tTd(3, 1)) sm_dprintf("getla: %d\n", (int) (avenrun[0] +0.5)); return ((int) (avenrun[0] + 0.5)); } #endif /* LA_TYPE == LA_SUBR */ #if LA_TYPE == LA_MACH /* ** This has been tested on NEXTSTEP release 2.1/3.X. */ # if defined(NX_CURRENT_COMPILER_RELEASE) && NX_CURRENT_COMPILER_RELEASE > NX_COMPILER_RELEASE_3_0 # include # else # include # endif int getla() { processor_set_t default_set; kern_return_t error; unsigned int info_count; struct processor_set_basic_info info; host_t host; error = processor_set_default(host_self(), &default_set); if (error != KERN_SUCCESS) { if (tTd(3, 1)) sm_dprintf("getla: processor_set_default failed: %s", sm_errstring(errno)); return -1; } info_count = PROCESSOR_SET_BASIC_INFO_COUNT; if (processor_set_info(default_set, PROCESSOR_SET_BASIC_INFO, &host, (processor_set_info_t)&info, &info_count) != KERN_SUCCESS) { if (tTd(3, 1)) sm_dprintf("getla: processor_set_info failed: %s", sm_errstring(errno)); return -1; } if (tTd(3, 1)) sm_dprintf("getla: %d\n", (int) ((info.load_average + (LOAD_SCALE / 2)) / LOAD_SCALE)); return (int) (info.load_average + (LOAD_SCALE / 2)) / LOAD_SCALE; } #endif /* LA_TYPE == LA_MACH */ #if LA_TYPE == LA_PROCSTR # if SM_CONF_BROKEN_STRTOD ERROR: This OS has most likely a broken strtod() implemenentation. ERROR: The function is required for getla(). ERROR: Check the compilation options _LA_PROCSTR and ERROR: _SM_CONF_BROKEN_STRTOD (without the leading _). # endif /* SM_CONF_BROKEN_STRTOD */ /* ** Read /proc/loadavg for the load average. This is assumed to be ** in a format like "0.15 0.12 0.06". ** ** Initially intended for Linux. This has been in the kernel ** since at least 0.99.15. */ # ifndef _PATH_LOADAVG # define _PATH_LOADAVG "/proc/loadavg" # endif int getla() { double avenrun; register int result; SM_FILE_T *fp; fp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, _PATH_LOADAVG, SM_IO_RDONLY, NULL); if (fp == NULL) { if (tTd(3, 1)) sm_dprintf("getla: sm_io_open(%s): %s\n", _PATH_LOADAVG, sm_errstring(errno)); return -1; } result = sm_io_fscanf(fp, SM_TIME_DEFAULT, "%lf", &avenrun); (void) sm_io_close(fp, SM_TIME_DEFAULT); if (result != 1) { if (tTd(3, 1)) sm_dprintf("getla: sm_io_fscanf() = %d: %s\n", result, sm_errstring(errno)); return -1; } if (tTd(3, 1)) sm_dprintf("getla(): %.2f\n", avenrun); return ((int) (avenrun + 0.5)); } #endif /* LA_TYPE == LA_PROCSTR */ #if LA_TYPE == LA_IRIX6 # include # ifdef _UNICOSMP # define CAST_SYSMP(x) (x) # else # define CAST_SYSMP(x) ((x) & 0x7fffffff) # endif int getla(void) { int j; static int kmem = -1; int avenrun[3]; if (kmem < 0) { kmem = open(_PATH_KMEM, 0, 0); if (kmem < 0) { if (tTd(3, 1)) sm_dprintf("getla: open(%s): %s\n", _PATH_KMEM, sm_errstring(errno)); return -1; } if ((j = fcntl(kmem, F_GETFD, 0)) < 0 || fcntl(kmem, F_SETFD, j | FD_CLOEXEC) < 0) { if (tTd(3, 1)) sm_dprintf("getla: fcntl(/dev/kmem, FD_CLOEXEC): %s\n", sm_errstring(errno)); (void) close(kmem); kmem = -1; return -1; } } if (lseek(kmem, CAST_SYSMP(sysmp(MP_KERNADDR, MPKA_AVENRUN)), SEEK_SET) == -1 || read(kmem, (char *) avenrun, sizeof(avenrun)) != sizeof(avenrun)) { if (tTd(3, 1)) sm_dprintf("getla: lseek or read: %s\n", sm_errstring(errno)); return -1; } if (tTd(3, 5)) { sm_dprintf("getla: avenrun = %ld", (long int) avenrun[0]); if (tTd(3, 15)) sm_dprintf(", %ld, %ld", (long int) avenrun[1], (long int) avenrun[2]); sm_dprintf("\n"); } if (tTd(3, 1)) sm_dprintf("getla: %d\n", (int) (avenrun[0] + FSCALE/2) >> FSHIFT); return ((int) (avenrun[0] + FSCALE/2) >> FSHIFT); } #endif /* LA_TYPE == LA_IRIX6 */ #if LA_TYPE == LA_KSTAT # include int getla() { static kstat_ctl_t *kc = NULL; static kstat_t *ksp = NULL; kstat_named_t *ksn; int la; if (kc == NULL) /* if not initialized before */ kc = kstat_open(); if (kc == NULL) { if (tTd(3, 1)) sm_dprintf("getla: kstat_open(): %s\n", sm_errstring(errno)); return -1; } if (ksp == NULL) ksp = kstat_lookup(kc, "unix", 0, "system_misc"); if (ksp == NULL) { if (tTd(3, 1)) sm_dprintf("getla: kstat_lookup(): %s\n", sm_errstring(errno)); return -1; } if (kstat_read(kc, ksp, NULL) < 0) { if (tTd(3, 1)) sm_dprintf("getla: kstat_read(): %s\n", sm_errstring(errno)); return -1; } ksn = (kstat_named_t *) kstat_data_lookup(ksp, "avenrun_1min"); la = ((double) ksn->value.ul + FSCALE/2) / FSCALE; /* kstat_close(kc); /o do not close for fast access */ return la; } #endif /* LA_TYPE == LA_KSTAT */ #if LA_TYPE == LA_DEVSHORT /* ** Read /dev/table/avenrun for the load average. This should contain ** three shorts for the 1, 5, and 15 minute loads. We only read the ** first, since that's all we care about. ** ** Intended for SCO OpenServer 5. */ # ifndef _PATH_AVENRUN # define _PATH_AVENRUN "/dev/table/avenrun" # endif int getla() { static int afd = -1; short avenrun; int loadav; int r; errno = EBADF; if (afd == -1 || lseek(afd, 0L, SEEK_SET) == -1) { if (errno != EBADF) return -1; afd = open(_PATH_AVENRUN, O_RDONLY|O_SYNC); if (afd < 0) { sm_syslog(LOG_ERR, NOQID, "can't open %s: %s", _PATH_AVENRUN, sm_errstring(errno)); return -1; } } r = read(afd, &avenrun, sizeof(avenrun)); if (r != sizeof(avenrun)) { sm_syslog(LOG_ERR, NOQID, "can't read %s: %s", _PATH_AVENRUN, r == -1 ? sm_errstring(errno) : "short read"); return -1; } if (tTd(3, 5)) sm_dprintf("getla: avenrun = %d\n", avenrun); loadav = (int) (avenrun + FSCALE/2) >> FSHIFT; if (tTd(3, 1)) sm_dprintf("getla: %d\n", loadav); return loadav; } #endif /* LA_TYPE == LA_DEVSHORT */ #if LA_TYPE == LA_ALPHAOSF struct rtentry; struct mbuf; # include int getla() { int ave = 0; struct tbl_loadavg tab; if (table(TBL_LOADAVG, 0, &tab, 1, sizeof(tab)) == -1) { if (tTd(3, 1)) sm_dprintf("getla: table %s\n", sm_errstring(errno)); return -1; } if (tTd(3, 1)) sm_dprintf("getla: scale = %d\n", tab.tl_lscale); if (tab.tl_lscale) ave = ((tab.tl_avenrun.l[2] + (tab.tl_lscale/2)) / tab.tl_lscale); else ave = (int) (tab.tl_avenrun.d[2] + 0.5); if (tTd(3, 1)) sm_dprintf("getla: %d\n", ave); return ave; } #endif /* LA_TYPE == LA_ALPHAOSF */ #if LA_TYPE == LA_PSET int getla() { double avenrun[3]; if (pset_getloadavg(PS_MYID, avenrun, sizeof(avenrun) / sizeof(avenrun[0])) < 0) { if (tTd(3, 1)) sm_dprintf("getla: pset_getloadavg failed: %s", sm_errstring(errno)); return -1; } if (tTd(3, 1)) sm_dprintf("getla: %d\n", (int) (avenrun[0] +0.5)); return ((int) (avenrun[0] + 0.5)); } #endif /* LA_TYPE == LA_PSET */ #if LA_TYPE == LA_ZERO int getla() { if (tTd(3, 1)) sm_dprintf("getla: ZERO\n"); return 0; } #endif /* LA_TYPE == LA_ZERO */ /* * Copyright 1989 Massachusetts Institute of Technology * * Permission to use, copy, modify, distribute, and sell this software and its * documentation for any purpose is hereby granted without fee, provided that * the above copyright notice appear in all copies and that both that * copyright notice and this permission notice appear in supporting * documentation, and that the name of M.I.T. not be used in advertising or * publicity pertaining to distribution of the software without specific, * written prior permission. M.I.T. makes no representations about the * suitability of this software for any purpose. It is provided "as is" * without express or implied warranty. * * M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL M.I.T. * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. * * Authors: Many and varied... */ /* Non Apollo stuff removed by Don Lewis 11/15/93 */ #ifndef lint SM_UNUSED(static char rcsid[]) = "@(#)$OrigId: getloadavg.c,v 1.16 1991/06/21 12:51:15 paul Exp $"; #endif #ifdef apollo # undef volatile # include /* ARGSUSED */ int getloadavg( call_data ) caddr_t call_data; /* pointer to (double) return value */ { double *avenrun = (double *) call_data; int i; status_$t st; long loadav[3]; proc1_$get_loadav(loadav, &st); *avenrun = loadav[0] / (double) (1 << 16); return 0; } #endif /* apollo */ /* ** SM_GETLA -- get the current load average ** ** Parameters: ** none ** ** Returns: ** none ** ** Side Effects: ** Set CurrentLA to the current load average. ** Set {load_avg} in GlobalMacros to the current load average. */ void sm_getla() { char labuf[8]; CurrentLA = getla(); (void) sm_snprintf(labuf, sizeof(labuf), "%d", CurrentLA); macdefine(&GlobalMacros, A_TEMP, macid("{load_avg}"), labuf); } /* ** SHOULDQUEUE -- should this message be queued or sent? ** ** Compares the message cost to the load average to decide. ** ** Note: Do NOT change this API! It is documented in op.me ** and theoretically the user can change this function... ** ** Parameters: ** pri -- the priority of the message in question. ** ct -- the message creation time (unused, but see above). ** ** Returns: ** true -- if this message should be queued up for the ** time being. ** false -- if the load is low enough to send this message. ** ** Side Effects: ** none. */ /* ARGSUSED1 */ bool shouldqueue(pri, ct) long pri; time_t ct; { bool rval; #if _FFR_MEMSTAT long memfree; #endif if (tTd(3, 30)) sm_dprintf("shouldqueue: CurrentLA=%d, pri=%ld: ", CurrentLA, pri); #if _FFR_MEMSTAT if (QueueLowMem > 0 && sm_memstat_get(MemoryResource, &memfree) >= 0 && memfree < QueueLowMem) { if (tTd(3, 30)) sm_dprintf("true (memfree=%ld < QueueLowMem=%ld)\n", memfree, QueueLowMem); return true; } #endif /* _FFR_MEMSTAT */ if (CurrentLA < QueueLA) { if (tTd(3, 30)) sm_dprintf("false (CurrentLA < QueueLA)\n"); return false; } rval = pri > (QueueFactor / (CurrentLA - QueueLA + 1)); if (tTd(3, 30)) sm_dprintf("%s (by calculation)\n", rval ? "true" : "false"); return rval; } /* ** REFUSECONNECTIONS -- decide if connections should be refused ** ** Parameters: ** e -- the current envelope. ** dn -- number of daemon. ** active -- was this daemon actually active? ** ** Returns: ** true if incoming SMTP connections should be refused ** (for now). ** false if we should accept new work. ** ** Side Effects: ** Sets process title when it is rejecting connections. */ bool refuseconnections(e, dn, active) ENVELOPE *e; int dn; bool active; { static time_t lastconn[MAXDAEMONS]; static int conncnt[MAXDAEMONS]; static time_t firstrejtime[MAXDAEMONS]; static time_t nextlogtime[MAXDAEMONS]; int limit; #if _FFR_MEMSTAT long memfree; #endif #if XLA if (!xla_smtp_ok()) return true; #endif SM_ASSERT(dn >= 0); SM_ASSERT(dn < MAXDAEMONS); if (ConnRateThrottle > 0) { time_t now; now = curtime(); if (active) { if (now != lastconn[dn]) { lastconn[dn] = now; conncnt[dn] = 1; } else if (conncnt[dn]++ > ConnRateThrottle) { #define D_MSG_CRT "deferring connections on daemon %s: %d per second" /* sleep to flatten out connection load */ sm_setproctitle(true, e, D_MSG_CRT, Daemons[dn].d_name, ConnRateThrottle); if (LogLevel > 8) sm_syslog(LOG_INFO, NOQID, D_MSG_CRT, Daemons[dn].d_name, ConnRateThrottle); (void) sleep(1); } } else if (now != lastconn[dn]) conncnt[dn] = 0; } #if _FFR_MEMSTAT if (RefuseLowMem > 0 && sm_memstat_get(MemoryResource, &memfree) >= 0 && memfree < RefuseLowMem) { # define R_MSG_LM "rejecting connections on daemon %s: free memory: %ld" sm_setproctitle(true, e, R_MSG_LM, Daemons[dn].d_name, memfree); if (LogLevel > 8) sm_syslog(LOG_NOTICE, NOQID, R_MSG_LM, Daemons[dn].d_name, memfree); return true; } #endif /* _FFR_MEMSTAT */ sm_getla(); limit = (Daemons[dn].d_refuseLA != DPO_NOTSET) ? Daemons[dn].d_refuseLA : RefuseLA; if (limit > 0 && CurrentLA >= limit) { time_t now; # define R_MSG_LA "rejecting connections on daemon %s: load average: %d" # define R2_MSG_LA "have been rejecting connections on daemon %s for %s" sm_setproctitle(true, e, R_MSG_LA, Daemons[dn].d_name, CurrentLA); if (LogLevel > 8) sm_syslog(LOG_NOTICE, NOQID, R_MSG_LA, Daemons[dn].d_name, CurrentLA); now = curtime(); if (firstrejtime[dn] == 0) { firstrejtime[dn] = now; nextlogtime[dn] = now + RejectLogInterval; } else if (nextlogtime[dn] < now) { sm_syslog(LOG_ERR, NOQID, R2_MSG_LA, Daemons[dn].d_name, pintvl(now - firstrejtime[dn], true)); nextlogtime[dn] = now + RejectLogInterval; } return true; } else firstrejtime[dn] = 0; limit = (Daemons[dn].d_delayLA != DPO_NOTSET) ? Daemons[dn].d_delayLA : DelayLA; if (limit > 0 && CurrentLA >= limit) { time_t now; static time_t log_delay = (time_t) 0; # define MIN_DELAY_LOG 90 /* wait before logging this again */ # define D_MSG_LA "delaying connections on daemon %s: load average=%d >= %d" /* sleep to flatten out connection load */ sm_setproctitle(true, e, D_MSG_LA, Daemons[dn].d_name, CurrentLA, limit); if (LogLevel > 8 && (now = curtime()) > log_delay) { sm_syslog(LOG_INFO, NOQID, D_MSG_LA, Daemons[dn].d_name, CurrentLA, limit); log_delay = now + MIN_DELAY_LOG; } (void) sleep(1); } limit = (Daemons[dn].d_maxchildren != DPO_NOTSET) ? Daemons[dn].d_maxchildren : MaxChildren; if (limit > 0 && CurChildren >= limit) { proc_list_probe(); if (CurChildren >= limit) { #define R_MSG_CHILD "rejecting connections on daemon %s: %d children, max %d" sm_setproctitle(true, e, R_MSG_CHILD, Daemons[dn].d_name, CurChildren, limit); if (LogLevel > 8) sm_syslog(LOG_INFO, NOQID, R_MSG_CHILD, Daemons[dn].d_name, CurChildren, limit); return true; } } return false; } /* ** SETPROCTITLE -- set process title for ps ** ** Parameters: ** fmt -- a printf style format string. ** a, b, c -- possible parameters to fmt. ** ** Returns: ** none. ** ** Side Effects: ** Clobbers argv of our main procedure so ps(1) will ** display the title. */ #define SPT_NONE 0 /* don't use it at all */ #define SPT_REUSEARGV 1 /* cover argv with title information */ #define SPT_BUILTIN 2 /* use libc builtin */ #define SPT_PSTAT 3 /* use pstat(PSTAT_SETCMD, ...) */ #define SPT_PSSTRINGS 4 /* use PS_STRINGS->... */ #define SPT_SYSMIPS 5 /* use sysmips() supported by NEWS-OS 6 */ #define SPT_SCO 6 /* write kernel u. area */ #define SPT_CHANGEARGV 7 /* write our own strings into argv[] */ #ifndef SPT_TYPE # define SPT_TYPE SPT_REUSEARGV #endif #if SPT_TYPE != SPT_NONE && SPT_TYPE != SPT_BUILTIN # if SPT_TYPE == SPT_PSTAT # include # endif # if SPT_TYPE == SPT_PSSTRINGS # include # include # ifndef PS_STRINGS /* hmmmm.... apparently not available after all */ # undef SPT_TYPE # define SPT_TYPE SPT_REUSEARGV # else /* ! PS_STRINGS */ # ifndef NKPDE /* FreeBSD 2.0 */ # define NKPDE 63 typedef unsigned int *pt_entry_t; # endif /* ! NKPDE */ # endif /* ! PS_STRINGS */ # endif /* SPT_TYPE == SPT_PSSTRINGS */ # if SPT_TYPE == SPT_PSSTRINGS || SPT_TYPE == SPT_CHANGEARGV # define SETPROC_STATIC static # else # define SETPROC_STATIC # endif # if SPT_TYPE == SPT_SYSMIPS # include # include # endif # if SPT_TYPE == SPT_SCO # include # include # include # include # if PSARGSZ > MAXLINE # define SPT_BUFSIZE PSARGSZ # endif # endif /* SPT_TYPE == SPT_SCO */ # ifndef SPT_PADCHAR # define SPT_PADCHAR ' ' # endif #endif /* SPT_TYPE != SPT_NONE && SPT_TYPE != SPT_BUILTIN */ #ifndef SPT_BUFSIZE # define SPT_BUFSIZE MAXLINE #endif #if _FFR_SPT_ALIGN /* ** It looks like the Compaq Tru64 5.1A now aligns argv and envp to ** 64 bit alignment, so unless each piece of argv and envp is a multiple ** of 8 bytes (including terminating NULL), initsetproctitle() won't use ** any of the space beyond argv[0]. Be sure to set SPT_ALIGN_SIZE if ** you use this FFR. */ # ifdef SPT_ALIGN_SIZE # define SPT_ALIGN(x, align) (((((x) + SPT_ALIGN_SIZE) >> (align)) << (align)) - 1) # else # define SPT_ALIGN(x, align) (x) # endif #else /* _FFR_SPT_ALIGN */ # define SPT_ALIGN(x, align) (x) #endif /* _FFR_SPT_ALIGN */ /* ** Pointers for setproctitle. ** This allows "ps" listings to give more useful information. */ static char **Argv = NULL; /* pointer to argument vector */ static char *LastArgv = NULL; /* end of argv */ #if SPT_TYPE != SPT_BUILTIN static void setproctitle __P((const char *, ...)); #endif void initsetproctitle(argc, argv, envp) int argc; char **argv; char **envp; { register int i; #if _FFR_SPT_ALIGN int align; #endif extern char **environ; /* ** Move the environment so setproctitle can use the space at ** the top of memory. */ if (envp != NULL) { for (i = 0; envp[i] != NULL; i++) continue; environ = (char **) xalloc(sizeof(char *) * (i + 1)); for (i = 0; envp[i] != NULL; i++) environ[i] = newstr(envp[i]); environ[i] = NULL; } /* ** Save start and extent of argv for setproctitle. */ Argv = argv; /* ** Determine how much space we can use for setproctitle. ** Use all contiguous argv and envp pointers starting at argv[0] */ #if _FFR_SPT_ALIGN align = -1; # ifdef SPT_ALIGN_SIZE for (i = SPT_ALIGN_SIZE; i > 0; i >>= 1) align++; # endif #endif /* _FFR_SPT_ALIGN */ for (i = 0; i < argc; i++) { if (i == 0 || LastArgv + 1 == argv[i]) LastArgv = argv[i] + SPT_ALIGN(strlen(argv[i]), align); } for (i = 0; LastArgv != NULL && envp != NULL && envp[i] != NULL; i++) { if (LastArgv + 1 == envp[i]) LastArgv = envp[i] + SPT_ALIGN(strlen(envp[i]), align); } } #if SPT_TYPE != SPT_BUILTIN /*VARARGS1*/ static void # ifdef __STDC__ setproctitle(const char *fmt, ...) # else /* __STDC__ */ setproctitle(fmt, va_alist) const char *fmt; va_dcl # endif /* __STDC__ */ { # if SPT_TYPE != SPT_NONE register int i; register char *p; SETPROC_STATIC char buf[SPT_BUFSIZE]; SM_VA_LOCAL_DECL # if SPT_TYPE == SPT_PSTAT union pstun pst; # endif # if SPT_TYPE == SPT_SCO int j; off_t seek_off; static int kmem = -1; static pid_t kmempid = -1; struct user u; # endif /* SPT_TYPE == SPT_SCO */ p = buf; /* print sendmail: heading for grep */ (void) sm_strlcpy(p, "sendmail: ", SPACELEFT(buf, p)); p += strlen(p); /* print the argument string */ SM_VA_START(ap, fmt); (void) sm_vsnprintf(p, SPACELEFT(buf, p), fmt, ap); SM_VA_END(ap); i = (int) strlen(buf); if (i < 0) return; # if SPT_TYPE == SPT_PSTAT pst.pst_command = buf; pstat(PSTAT_SETCMD, pst, i, 0, 0); # endif # if SPT_TYPE == SPT_PSSTRINGS PS_STRINGS->ps_nargvstr = 1; PS_STRINGS->ps_argvstr = buf; # endif # if SPT_TYPE == SPT_SYSMIPS sysmips(SONY_SYSNEWS, NEWS_SETPSARGS, buf); # endif # if SPT_TYPE == SPT_SCO if (kmem < 0 || kmempid != CurrentPid) { if (kmem >= 0) (void) close(kmem); kmem = open(_PATH_KMEM, O_RDWR, 0); if (kmem < 0) return; if ((j = fcntl(kmem, F_GETFD, 0)) < 0 || fcntl(kmem, F_SETFD, j | FD_CLOEXEC) < 0) { (void) close(kmem); kmem = -1; return; } kmempid = CurrentPid; } buf[PSARGSZ - 1] = '\0'; seek_off = UVUBLK + (off_t) u.u_psargs - (off_t) &u; if (lseek(kmem, (off_t) seek_off, SEEK_SET) == seek_off) (void) write(kmem, buf, PSARGSZ); # endif /* SPT_TYPE == SPT_SCO */ # if SPT_TYPE == SPT_REUSEARGV if (LastArgv == NULL) return; if (i > LastArgv - Argv[0] - 2) { i = LastArgv - Argv[0] - 2; buf[i] = '\0'; } (void) sm_strlcpy(Argv[0], buf, i + 1); p = &Argv[0][i]; while (p < LastArgv) *p++ = SPT_PADCHAR; Argv[1] = NULL; # endif /* SPT_TYPE == SPT_REUSEARGV */ # if SPT_TYPE == SPT_CHANGEARGV Argv[0] = buf; Argv[1] = NULL; # endif # endif /* SPT_TYPE != SPT_NONE */ } #endif /* SPT_TYPE != SPT_BUILTIN */ /* ** SM_SETPROCTITLE -- set process task and set process title for ps ** ** Possibly set process status and call setproctitle() to ** change the ps display. ** ** Parameters: ** status -- whether or not to store as process status ** e -- the current envelope. ** fmt -- a printf style format string. ** a, b, c -- possible parameters to fmt. ** ** Returns: ** none. */ /*VARARGS3*/ void #ifdef __STDC__ sm_setproctitle(bool status, ENVELOPE *e, const char *fmt, ...) #else /* __STDC__ */ sm_setproctitle(status, e, fmt, va_alist) bool status; ENVELOPE *e; const char *fmt; va_dcl #endif /* __STDC__ */ { char buf[SPT_BUFSIZE]; SM_VA_LOCAL_DECL /* print the argument string */ SM_VA_START(ap, fmt); (void) sm_vsnprintf(buf, sizeof(buf), fmt, ap); SM_VA_END(ap); if (status) proc_list_set(CurrentPid, buf); if (ProcTitlePrefix != NULL) { char prefix[SPT_BUFSIZE]; expand(ProcTitlePrefix, prefix, sizeof(prefix), e); setproctitle("%s: %s", prefix, buf); } else setproctitle("%s", buf); } /* ** WAITFOR -- wait for a particular process id. ** ** Parameters: ** pid -- process id to wait for. ** ** Returns: ** status of pid. ** -1 if pid never shows up. ** ** Side Effects: ** none. */ int waitfor(pid) pid_t pid; { int st; pid_t i; do { errno = 0; i = sm_wait(&st); if (i > 0) proc_list_drop(i, st, NULL); } while ((i >= 0 || errno == EINTR) && i != pid); if (i < 0) return -1; return st; } /* ** SM_WAIT -- wait ** ** Parameters: ** status -- pointer to status (return value) ** ** Returns: ** pid */ pid_t sm_wait(status) int *status; { #ifdef WAITUNION union wait st; #else auto int st; #endif pid_t i; #if defined(ISC_UNIX) || defined(_SCO_unix_) int savesig; #endif #if defined(ISC_UNIX) || defined(_SCO_unix_) savesig = sm_releasesignal(SIGCHLD); #endif i = wait(&st); #if defined(ISC_UNIX) || defined(_SCO_unix_) if (savesig > 0) sm_blocksignal(SIGCHLD); #endif #ifdef WAITUNION *status = st.w_status; #else *status = st; #endif return i; } /* ** REAPCHILD -- pick up the body of my child, lest it become a zombie ** ** Parameters: ** sig -- the signal that got us here (unused). ** ** Returns: ** none. ** ** Side Effects: ** Picks up extant zombies. ** Control socket exits may restart/shutdown daemon. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED0 */ SIGFUNC_DECL reapchild(sig) int sig; { int save_errno = errno; int st; pid_t pid; #if HASWAITPID auto int status; int count; count = 0; while ((pid = waitpid(-1, &status, WNOHANG)) > 0) { st = status; if (count++ > 1000) break; #else /* HASWAITPID */ # ifdef WNOHANG union wait status; while ((pid = wait3(&status, WNOHANG, (struct rusage *) NULL)) > 0) { st = status.w_status; # else /* WNOHANG */ auto int status; /* ** Catch one zombie -- we will be re-invoked (we hope) if there ** are more. Unreliable signals probably break this, but this ** is the "old system" situation -- waitpid or wait3 are to be ** strongly preferred. */ if ((pid = wait(&status)) > 0) { st = status; # endif /* WNOHANG */ #endif /* HASWAITPID */ /* Drop PID and check if it was a control socket child */ proc_list_drop(pid, st, NULL); } FIX_SYSV_SIGNAL(sig, reapchild); errno = save_errno; return SIGFUNC_RETURN; } /* ** GETDTSIZE -- return number of file descriptors ** ** Only on non-BSD systems ** ** Parameters: ** none ** ** Returns: ** size of file descriptor table ** ** Side Effects: ** none */ #ifdef SOLARIS # include #endif int getdtsize() { #ifdef RLIMIT_NOFILE struct rlimit rl; if (getrlimit(RLIMIT_NOFILE, &rl) >= 0) return rl.rlim_cur; #endif /* RLIMIT_NOFILE */ #if HASGETDTABLESIZE return getdtablesize(); #else /* HASGETDTABLESIZE */ # ifdef _SC_OPEN_MAX return sysconf(_SC_OPEN_MAX); # else return NOFILE; # endif #endif /* HASGETDTABLESIZE */ } /* ** UNAME -- get the UUCP name of this system. */ #if !HASUNAME int uname(name) struct utsname *name; { SM_FILE_T *file; char *n; name->nodename[0] = '\0'; /* try /etc/whoami -- one line with the node name */ if ((file = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, "/etc/whoami", SM_IO_RDONLY, NULL)) != NULL) { (void) sm_io_fgets(file, SM_TIME_DEFAULT, name->nodename, NODE_LENGTH + 1); (void) sm_io_close(file, SM_TIME_DEFAULT); n = strchr(name->nodename, '\n'); if (n != NULL) *n = '\0'; if (name->nodename[0] != '\0') return 0; } /* try /usr/include/whoami.h -- has a #define somewhere */ if ((file = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, "/usr/include/whoami.h", SM_IO_RDONLY, NULL)) != NULL) { char buf[MAXLINE]; while (sm_io_fgets(file, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { if (sm_io_sscanf(buf, "#define sysname \"%*[^\"]\"", NODE_LENGTH, name->nodename) > 0) break; } (void) sm_io_close(file, SM_TIME_DEFAULT); if (name->nodename[0] != '\0') return 0; } return -1; } #endif /* !HASUNAME */ /* ** INITGROUPS -- initialize groups ** ** Stub implementation for System V style systems */ #if !HASINITGROUPS int initgroups(name, basegid) char *name; int basegid; { return 0; } #endif /* !HASINITGROUPS */ /* ** SETGROUPS -- set group list ** ** Stub implementation for systems that don't have group lists */ #ifndef NGROUPS_MAX int setgroups(ngroups, grouplist) int ngroups; GIDSET_T grouplist[]; { return 0; } #endif /* ! NGROUPS_MAX */ /* ** SETSID -- set session id (for non-POSIX systems) */ #if !HASSETSID pid_t setsid __P ((void)) { # ifdef TIOCNOTTY int fd; fd = open("/dev/tty", O_RDWR, 0); if (fd >= 0) { (void) ioctl(fd, TIOCNOTTY, (char *) 0); (void) close(fd); } # endif /* TIOCNOTTY */ # ifdef SYS5SETPGRP return setpgrp(); # else return setpgid(0, CurrentPid); # endif } #endif /* !HASSETSID */ /* ** FSYNC -- dummy fsync */ #if NEEDFSYNC int fsync(fd) int fd; { # ifdef O_SYNC return fcntl(fd, F_SETFL, O_SYNC); # else /* nothing we can do */ return 0; # endif } #endif /* NEEDFSYNC */ /* ** DGUX_INET_ADDR -- inet_addr for DG/UX ** ** Data General DG/UX version of inet_addr returns a struct in_addr ** instead of a long. This patches things. Only needed on versions ** prior to 5.4.3. */ #ifdef DGUX_5_4_2 # undef inet_addr long dgux_inet_addr(host) char *host; { struct in_addr haddr; haddr = inet_addr(host); return haddr.s_addr; } #endif /* DGUX_5_4_2 */ /* ** GETOPT -- for old systems or systems with bogus implementations */ #if !SM_CONF_GETOPT /* * Copyright (c) 1985 Regents of the University of California. * All rights reserved. The Berkeley software License Agreement * specifies the terms and conditions for redistribution. */ /* ** this version hacked to add `atend' flag to allow state machine ** to reset if invoked by the program to scan args for a 2nd time */ # if defined(LIBC_SCCS) && !defined(lint) static char sccsid[] = "@(#)getopt.c 4.3 (Berkeley) 3/9/86"; # endif /* ** get option letter from argument vector */ # ifdef _CONVEX_SOURCE extern int optind, opterr, optopt; extern char *optarg; # else /* _CONVEX_SOURCE */ int opterr = 1; /* if error message should be printed */ int optind = 1; /* index into parent argv vector */ int optopt = 0; /* character checked for validity */ char *optarg = NULL; /* argument associated with option */ # endif /* _CONVEX_SOURCE */ # define BADCH (int)'?' # define EMSG "" # define tell(s) if (opterr) \ {sm_io_fputs(smioerr, SM_TIME_DEFAULT, *nargv); \ (void) sm_io_fputs(smioerr, SM_TIME_DEFAULT, s); \ (void) sm_io_putc(smioerr, SM_TIME_DEFAULT, optopt); \ (void) sm_io_putc(smioerr, SM_TIME_DEFAULT, '\n'); \ return BADCH;} int getopt(nargc,nargv,ostr) int nargc; char *const *nargv; const char *ostr; { static char *place = EMSG; /* option letter processing */ static char atend = 0; register char *oli = NULL; /* option letter list index */ if (atend) { atend = 0; place = EMSG; } if(!*place) { /* update scanning pointer */ if (optind >= nargc || *(place = nargv[optind]) != '-' || !*++place) { atend++; return -1; } if (*place == '-') { /* found "--" */ ++optind; atend++; return -1; } } /* option letter okay? */ if ((optopt = (int)*place++) == (int)':' || !(oli = strchr(ostr,optopt))) { if (!*place) ++optind; tell(": illegal option -- "); } if (oli && *++oli != ':') { /* don't need argument */ optarg = NULL; if (!*place) ++optind; } else { /* need an argument */ if (*place) optarg = place; /* no white space */ else if (nargc <= ++optind) { /* no arg */ place = EMSG; tell(": option requires an argument -- "); } else optarg = nargv[optind]; /* white space */ place = EMSG; ++optind; } return optopt; /* dump back option letter */ } #endif /* !SM_CONF_GETOPT */ /* ** USERSHELLOK -- tell if a user's shell is ok for unrestricted use ** ** Parameters: ** user -- the name of the user we are checking. ** shell -- the user's shell from /etc/passwd ** ** Returns: ** true -- if it is ok to use this for unrestricted access. ** false -- if the shell is restricted. */ #if !HASGETUSERSHELL # ifndef _PATH_SHELLS # define _PATH_SHELLS "/etc/shells" # endif # if defined(_AIX3) || defined(_AIX4) # include # if _AIX4 >= 40200 # include # endif # include # endif /* defined(_AIX3) || defined(_AIX4) */ static char *DefaultUserShells[] = { "/bin/sh", /* standard shell */ # ifdef MPE "/SYS/PUB/CI", # else /* MPE */ "/usr/bin/sh", "/bin/csh", /* C shell */ "/usr/bin/csh", # endif /* MPE */ # ifdef __hpux # ifdef V4FS "/usr/bin/rsh", /* restricted Bourne shell */ "/usr/bin/ksh", /* Korn shell */ "/usr/bin/rksh", /* restricted Korn shell */ "/usr/bin/pam", "/usr/bin/keysh", /* key shell (extended Korn shell) */ "/usr/bin/posix/sh", # else /* V4FS */ "/bin/rsh", /* restricted Bourne shell */ "/bin/ksh", /* Korn shell */ "/bin/rksh", /* restricted Korn shell */ "/bin/pam", "/usr/bin/keysh", /* key shell (extended Korn shell) */ "/bin/posix/sh", "/sbin/sh", # endif /* V4FS */ # endif /* __hpux */ # if defined(_AIX3) || defined(_AIX4) "/bin/ksh", /* Korn shell */ "/usr/bin/ksh", "/bin/tsh", /* trusted shell */ "/usr/bin/tsh", "/bin/bsh", /* Bourne shell */ "/usr/bin/bsh", # endif /* defined(_AIX3) || defined(_AIX4) */ # if defined(__svr4__) || defined(__svr5__) "/bin/ksh", /* Korn shell */ "/usr/bin/ksh", # endif /* defined(__svr4__) || defined(__svr5__) */ # ifdef sgi "/sbin/sh", /* SGI's shells really live in /sbin */ "/usr/bin/sh", "/sbin/bsh", /* classic Bourne shell */ "/bin/bsh", "/usr/bin/bsh", "/sbin/csh", /* standard csh */ "/bin/csh", "/usr/bin/csh", "/sbin/jsh", /* classic Bourne shell w/ job control*/ "/bin/jsh", "/usr/bin/jsh", "/bin/ksh", /* Korn shell */ "/sbin/ksh", "/usr/bin/ksh", "/sbin/tcsh", /* Extended csh */ "/bin/tcsh", "/usr/bin/tcsh", # endif /* sgi */ NULL }; #endif /* !HASGETUSERSHELL */ #define WILDCARD_SHELL "/SENDMAIL/ANY/SHELL/" bool usershellok(user, shell) char *user; char *shell; { #if HASGETUSERSHELL register char *p; extern char *getusershell __P((void)); if (shell == NULL || shell[0] == '\0' || wordinclass(user, 't') || ConfigLevel <= 1) return true; setusershell(); while ((p = getusershell()) != NULL) if (strcmp(p, shell) == 0 || strcmp(p, WILDCARD_SHELL) == 0) break; endusershell(); return p != NULL; #else /* HASGETUSERSHELL */ # if USEGETCONFATTR auto char *v; # endif register SM_FILE_T *shellf; char buf[MAXLINE]; if (shell == NULL || shell[0] == '\0' || wordinclass(user, 't') || ConfigLevel <= 1) return true; # if USEGETCONFATTR /* ** Naturally IBM has a "better" idea..... ** ** What a crock. This interface isn't documented, it is ** considered part of the security library (-ls), and it ** only works if you are running as root (since the list ** of valid shells is obviously a source of great concern). ** I recommend that you do NOT define USEGETCONFATTR, ** especially since you are going to have to set up an ** /etc/shells anyhow to handle the cases where getconfattr ** fails. */ if (getconfattr(SC_SYS_LOGIN, SC_SHELLS, &v, SEC_LIST) == 0 && v != NULL) { while (*v != '\0') { if (strcmp(v, shell) == 0 || strcmp(v, WILDCARD_SHELL) == 0) return true; v += strlen(v) + 1; } return false; } # endif /* USEGETCONFATTR */ shellf = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, _PATH_SHELLS, SM_IO_RDONLY, NULL); if (shellf == NULL) { /* no /etc/shells; see if it is one of the std shells */ char **d; if (errno != ENOENT && LogLevel > 3) sm_syslog(LOG_ERR, NOQID, "usershellok: cannot open %s: %s", _PATH_SHELLS, sm_errstring(errno)); for (d = DefaultUserShells; *d != NULL; d++) { if (strcmp(shell, *d) == 0) return true; } return false; } while (sm_io_fgets(shellf, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { register char *p, *q; p = buf; while (*p != '\0' && *p != '#' && *p != '/') p++; if (*p == '#' || *p == '\0') continue; q = p; while (*p != '\0' && *p != '#' && !(SM_ISSPACE(*p))) p++; *p = '\0'; if (strcmp(shell, q) == 0 || strcmp(WILDCARD_SHELL, q) == 0) { (void) sm_io_close(shellf, SM_TIME_DEFAULT); return true; } } (void) sm_io_close(shellf, SM_TIME_DEFAULT); return false; #endif /* HASGETUSERSHELL */ } /* ** FREEDISKSPACE -- see how much free space is on the queue filesystem ** ** Only implemented if you have statfs. ** ** Parameters: ** dir -- the directory in question. ** bsize -- a variable into which the filesystem ** block size is stored. ** ** Returns: ** The number of blocks free on the queue filesystem. ** -1 if the statfs call fails. ** ** Side effects: ** Puts the filesystem block size into bsize. */ /* statfs types */ #define SFS_NONE 0 /* no statfs implementation */ #define SFS_USTAT 1 /* use ustat */ #define SFS_4ARGS 2 /* use four-argument statfs call */ #define SFS_VFS 3 /* use implementation */ #define SFS_MOUNT 4 /* use implementation */ #define SFS_STATFS 5 /* use implementation */ #define SFS_STATVFS 6 /* use implementation */ #ifndef SFS_TYPE # define SFS_TYPE SFS_NONE #endif #if SFS_TYPE == SFS_USTAT # include #endif #if SFS_TYPE == SFS_4ARGS || SFS_TYPE == SFS_STATFS # include #endif #if SFS_TYPE == SFS_VFS # include #endif #if SFS_TYPE == SFS_MOUNT # include #endif #if SFS_TYPE == SFS_STATVFS # include #endif long freediskspace(dir, bsize) const char *dir; long *bsize; { #if SFS_TYPE == SFS_NONE if (bsize != NULL) *bsize = 4096L; /* assume free space is plentiful */ return (long) LONG_MAX; #else /* SFS_TYPE == SFS_NONE */ # if SFS_TYPE == SFS_USTAT struct ustat fs; struct stat statbuf; # define FSBLOCKSIZE DEV_BSIZE # define SFS_BAVAIL f_tfree # else /* SFS_TYPE == SFS_USTAT */ # if defined(ultrix) struct fs_data fs; # define SFS_BAVAIL fd_bfreen # define FSBLOCKSIZE 1024L # else /* defined(ultrix) */ # if SFS_TYPE == SFS_STATVFS struct statvfs fs; # define FSBLOCKSIZE fs.f_frsize # else /* SFS_TYPE == SFS_STATVFS */ struct statfs fs; # define FSBLOCKSIZE fs.f_bsize # endif /* SFS_TYPE == SFS_STATVFS */ # endif /* defined(ultrix) */ # endif /* SFS_TYPE == SFS_USTAT */ # ifndef SFS_BAVAIL # define SFS_BAVAIL f_bavail # endif # if SFS_TYPE == SFS_USTAT if (stat(dir, &statbuf) == 0 && ustat(statbuf.st_dev, &fs) == 0) # else /* SFS_TYPE == SFS_USTAT */ # if SFS_TYPE == SFS_4ARGS if (statfs(dir, &fs, sizeof(fs), 0) == 0) # else /* SFS_TYPE == SFS_4ARGS */ # if SFS_TYPE == SFS_STATVFS if (statvfs(dir, &fs) == 0) # else /* SFS_TYPE == SFS_STATVFS */ # if defined(ultrix) if (statfs(dir, &fs) > 0) # else /* defined(ultrix) */ if (statfs(dir, &fs) == 0) # endif /* defined(ultrix) */ # endif /* SFS_TYPE == SFS_STATVFS */ # endif /* SFS_TYPE == SFS_4ARGS */ # endif /* SFS_TYPE == SFS_USTAT */ { if (bsize != NULL) *bsize = FSBLOCKSIZE; if (fs.SFS_BAVAIL <= 0) return 0; else if (fs.SFS_BAVAIL > LONG_MAX) return (long) LONG_MAX; else return (long) fs.SFS_BAVAIL; } return -1; #endif /* SFS_TYPE == SFS_NONE */ } /* ** ENOUGHDISKSPACE -- is there enough free space on the queue file systems? ** ** Parameters: ** msize -- the size to check against. If zero, we don't yet ** know how big the message will be, so just check for ** a "reasonable" amount. ** e -- envelope, or NULL -- controls logging ** ** Returns: ** true if in every queue group there is at least one ** queue directory whose file system contains enough free space. ** false otherwise. ** ** Side Effects: ** If there is not enough disk space and e != NULL ** then sm_syslog is called. */ bool enoughdiskspace(msize, e) long msize; ENVELOPE *e; { int i; #if _FFR_TESTS if (tTd(4, 101)) return false; #endif if (MinBlocksFree <= 0 && msize <= 0) { if (tTd(4, 80)) sm_dprintf("enoughdiskspace: no threshold\n"); return true; } filesys_update(); for (i = 0; i < NumQueue; ++i) { if (pickqdir(Queue[i], msize, e) < 0) return false; } return true; } /* ** TRANSIENTERROR -- tell if an error code indicates a transient failure ** ** This looks at an errno value and tells if this is likely to ** go away if retried later. ** ** Parameters: ** err -- the errno code to classify. ** ** Returns: ** true if this is probably transient. ** false otherwise. */ bool transienterror(err) int err; { switch (err) { case EIO: /* I/O error */ case ENXIO: /* Device not configured */ case EAGAIN: /* Resource temporarily unavailable */ case ENOMEM: /* Cannot allocate memory */ case ENODEV: /* Operation not supported by device */ case ENFILE: /* Too many open files in system */ case EMFILE: /* Too many open files */ case ENOSPC: /* No space left on device */ case ETIMEDOUT: /* Connection timed out */ #ifdef ESTALE case ESTALE: /* Stale NFS file handle */ #endif #ifdef ENETDOWN case ENETDOWN: /* Network is down */ #endif #ifdef ENETUNREACH case ENETUNREACH: /* Network is unreachable */ #endif #ifdef ENETRESET case ENETRESET: /* Network dropped connection on reset */ #endif #ifdef ECONNABORTED case ECONNABORTED: /* Software caused connection abort */ #endif #ifdef ECONNRESET case ECONNRESET: /* Connection reset by peer */ #endif #ifdef ENOBUFS case ENOBUFS: /* No buffer space available */ #endif #ifdef ESHUTDOWN case ESHUTDOWN: /* Can't send after socket shutdown */ #endif #ifdef ECONNREFUSED case ECONNREFUSED: /* Connection refused */ #endif #ifdef EHOSTDOWN case EHOSTDOWN: /* Host is down */ #endif #ifdef EHOSTUNREACH case EHOSTUNREACH: /* No route to host */ #endif #ifdef EDQUOT case EDQUOT: /* Disc quota exceeded */ #endif #ifdef EPROCLIM case EPROCLIM: /* Too many processes */ #endif #ifdef EUSERS case EUSERS: /* Too many users */ #endif #ifdef EDEADLK case EDEADLK: /* Resource deadlock avoided */ #endif #ifdef EISCONN case EISCONN: /* Socket already connected */ #endif #ifdef EINPROGRESS case EINPROGRESS: /* Operation now in progress */ #endif #ifdef EALREADY case EALREADY: /* Operation already in progress */ #endif #ifdef EADDRINUSE case EADDRINUSE: /* Address already in use */ #endif #ifdef EADDRNOTAVAIL case EADDRNOTAVAIL: /* Can't assign requested address */ #endif #ifdef ETXTBSY case ETXTBSY: /* (Apollo) file locked */ #endif #if defined(ENOSR) && (!defined(ENOBUFS) || (ENOBUFS != ENOSR)) case ENOSR: /* Out of streams resources */ #endif #ifdef ENOLCK case ENOLCK: /* No locks available */ #endif case E_SM_OPENTIMEOUT: /* PSEUDO: open timed out */ return true; } /* nope, must be permanent */ return false; } /* ** LOCKFILE -- lock a file using flock or (shudder) fcntl locking ** ** Parameters: ** fd -- the file descriptor of the file. ** filename -- the file name (for error messages). ** ext -- the filename extension. ** type -- type of the lock. Bits can be: ** LOCK_EX -- exclusive lock. ** LOCK_NB -- non-blocking. ** LOCK_UN -- unlock. ** ** Returns: ** true if the lock was acquired. ** false otherwise. */ bool lockfile(fd, filename, ext, type) int fd; char *filename; char *ext; int type; { int i; int save_errno; #if !HASFLOCK int action; struct flock lfd; if (ext == NULL) ext = ""; (void) memset(&lfd, '\0', sizeof(lfd)); if (bitset(LOCK_UN, type)) lfd.l_type = F_UNLCK; else if (bitset(LOCK_EX, type)) lfd.l_type = F_WRLCK; else lfd.l_type = F_RDLCK; if (bitset(LOCK_NB, type)) action = F_SETLK; else action = F_SETLKW; if (tTd(55, 60)) sm_dprintf("lockfile(%s%s, fd=%d, action=%s, type=%s): ", filename, ext, fd, bitset(LOCK_NB, type) ? "nb" : "block", bitset(LOCK_UN, type) ? "unlock" : (bitset(LOCK_EX, type) ? "wr" : "rd")); while ((i = fcntl(fd, action, &lfd)) < 0 && errno == EINTR) continue; if (i >= 0) { if (tTd(55, 60)) sm_dprintf("SUCCESS\n"); return true; } save_errno = errno; if (tTd(55, 60)) sm_dprintf("(%s) ", sm_errstring(save_errno)); /* ** On SunOS, if you are testing using -oQ/tmp/mqueue or ** -oA/tmp/aliases or anything like that, and /tmp is mounted ** as type "tmp" (that is, served from swap space), the ** previous fcntl will fail with "Invalid argument" errors. ** Since this is fairly common during testing, we will assume ** that this indicates that the lock is successfully grabbed. */ if (save_errno == EINVAL) { if (tTd(55, 60)) sm_dprintf("SUCCESS\n"); return true; } if (!bitset(LOCK_NB, type) || (save_errno != EACCES && save_errno != EAGAIN)) { int omode = fcntl(fd, F_GETFL, 0); uid_t euid = geteuid(); errno = save_errno; syserr("cannot lockf(%s%s, fd=%d, type=%o, omode=%o, euid=%ld)", filename, ext, fd, type, omode, (long) euid); dumpfd(fd, true, true); } #else /* !HASFLOCK */ if (ext == NULL) ext = ""; if (tTd(55, 60)) sm_dprintf("lockfile(%s%s, fd=%d, type=%s): ", filename, ext, fd, bitset(LOCK_UN, type) ? "unlock" : (bitset(LOCK_EX, type) ? "wr" : "rd")); while ((i = flock(fd, type)) < 0 && errno == EINTR) continue; if (i >= 0) { if (tTd(55, 60)) sm_dprintf("SUCCESS\n"); return true; } save_errno = errno; if (tTd(55, 60)) sm_dprintf("(%s) ", sm_errstring(save_errno)); if (!bitset(LOCK_NB, type) || save_errno != EWOULDBLOCK) { int omode = fcntl(fd, F_GETFL, 0); uid_t euid = geteuid(); errno = save_errno; syserr("cannot flock(%s%s, fd=%d, type=%o, omode=%o, euid=%ld)", filename, ext, fd, type, omode, (long) euid); dumpfd(fd, true, true); } #endif /* !HASFLOCK */ if (tTd(55, 60)) sm_dprintf("FAIL\n"); errno = save_errno; return false; } /* ** CHOWNSAFE -- tell if chown is "safe" (executable only by root) ** ** Unfortunately, given that we can't predict other systems on which ** a remote mounted (NFS) filesystem will be mounted, the answer is ** almost always that this is unsafe. ** ** Note also that many operating systems have non-compliant ** implementations of the _POSIX_CHOWN_RESTRICTED variable and the ** fpathconf() routine. According to IEEE 1003.1-1990, if ** _POSIX_CHOWN_RESTRICTED is defined and not equal to -1, then ** no non-root process can give away the file. However, vendors ** don't take NFS into account, so a comfortable value of ** _POSIX_CHOWN_RESTRICTED tells us nothing. ** ** Also, some systems (e.g., IRIX 6.2) return 1 from fpathconf() ** even on files where chown is not restricted. Many systems get ** this wrong on NFS-based filesystems (that is, they say that chown ** is restricted [safe] on NFS filesystems where it may not be, since ** other systems can access the same filesystem and do file giveaway; ** only the NFS server knows for sure!) Hence, it is important to ** get the value of SAFENFSPATHCONF correct -- it should be defined ** _only_ after testing (see test/t_pathconf.c) a system on an unsafe ** NFS-based filesystem to ensure that you can get meaningful results. ** If in doubt, assume unsafe! ** ** You may also need to tweak IS_SAFE_CHOWN -- it should be a ** condition indicating whether the return from pathconf indicates ** that chown is safe (typically either > 0 or >= 0 -- there isn't ** even any agreement about whether a zero return means that a file ** is or is not safe). It defaults to "> 0". ** ** If the parent directory is safe (writable only by owner back ** to the root) then we can relax slightly and trust fpathconf ** in more circumstances. This is really a crock -- if this is an ** NFS mounted filesystem then we really know nothing about the ** underlying implementation. However, most systems pessimize and ** return an error (EINVAL or EOPNOTSUPP) on NFS filesystems, which ** we interpret as unsafe, as we should. Thus, this heuristic gets ** us into a possible problem only on systems that have a broken ** pathconf implementation and which are also poorly configured ** (have :include: files in group- or world-writable directories). ** ** Parameters: ** fd -- the file descriptor to check. ** safedir -- set if the parent directory is safe. ** ** Returns: ** true -- if the chown(2) operation is "safe" -- that is, ** only root can chown the file to an arbitrary user. ** false -- if an arbitrary user can give away a file. */ #ifndef IS_SAFE_CHOWN # define IS_SAFE_CHOWN > 0 #endif bool chownsafe(fd, safedir) int fd; bool safedir; { #if (!defined(_POSIX_CHOWN_RESTRICTED) || _POSIX_CHOWN_RESTRICTED != -1) && \ (defined(_PC_CHOWN_RESTRICTED) || defined(_GNU_TYPES_H)) int rval; /* give the system administrator a chance to override */ if (bitnset(DBS_ASSUMESAFECHOWN, DontBlameSendmail)) return true; /* ** Some systems (e.g., SunOS) seem to have the call and the ** #define _PC_CHOWN_RESTRICTED, but don't actually implement ** the call. This heuristic checks for that. */ errno = 0; rval = fpathconf(fd, _PC_CHOWN_RESTRICTED); # if SAFENFSPATHCONF return errno == 0 && rval IS_SAFE_CHOWN; # else return safedir && errno == 0 && rval IS_SAFE_CHOWN; # endif #else /* (!defined(_POSIX_CHOWN_RESTRICTED) || _POSIX_CHOWN_RESTRICTED != -1) && ... */ return bitnset(DBS_ASSUMESAFECHOWN, DontBlameSendmail); #endif /* (!defined(_POSIX_CHOWN_RESTRICTED) || _POSIX_CHOWN_RESTRICTED != -1) && ... */ } /* ** RESETLIMITS -- reset system controlled resource limits ** ** This is to avoid denial-of-service attacks ** ** Parameters: ** none ** ** Returns: ** none */ #if HASSETRLIMIT # ifdef RLIMIT_NEEDS_SYS_TIME_H # include # endif # include #endif /* HASSETRLIMIT */ void resetlimits() { #if HASSETRLIMIT struct rlimit lim; lim.rlim_cur = lim.rlim_max = RLIM_INFINITY; (void) setrlimit(RLIMIT_CPU, &lim); (void) setrlimit(RLIMIT_FSIZE, &lim); # ifdef RLIMIT_NOFILE lim.rlim_cur = lim.rlim_max = FD_SETSIZE; (void) setrlimit(RLIMIT_NOFILE, &lim); # endif #else /* HASSETRLIMIT */ # if HASULIMIT (void) ulimit(2, 0x3fffff); (void) ulimit(4, FD_SETSIZE); # endif #endif /* HASSETRLIMIT */ errno = 0; } /* ** SETVENDOR -- process vendor code from V configuration line ** ** Parameters: ** vendor -- string representation of vendor. ** ** Returns: ** true -- if ok. ** false -- if vendor code could not be processed. ** ** Side Effects: ** It is reasonable to set mode flags here to tweak ** processing in other parts of the code if necessary. ** For example, if you are a vendor that uses $%y to ** indicate YP lookups, you could enable that here. */ bool setvendor(vendor) char *vendor; { if (SM_STRCASEEQ(vendor, "Berkeley")) { VendorCode = VENDOR_BERKELEY; return true; } /* add vendor extensions here */ #ifdef SUN_EXTENSIONS if (SM_STRCASEEQ(vendor, "Sun")) { VendorCode = VENDOR_SUN; return true; } #endif /* SUN_EXTENSIONS */ #ifdef DEC if (SM_STRCASEEQ(vendor, "Digital")) { VendorCode = VENDOR_DEC; return true; } #endif /* DEC */ #if defined(VENDOR_NAME) && defined(VENDOR_CODE) if (SM_STRCASEEQ(vendor, VENDOR_NAME)) { VendorCode = VENDOR_CODE; return true; } #endif /* defined(VENDOR_NAME) && defined(VENDOR_CODE) */ return false; } /* ** GETVENDOR -- return vendor name based on vendor code ** ** Parameters: ** vendorcode -- numeric representation of vendor. ** ** Returns: ** string containing vendor name. */ char * getvendor(vendorcode) int vendorcode; { #if defined(VENDOR_NAME) && defined(VENDOR_CODE) /* ** Can't have the same switch case twice so need to ** handle VENDOR_CODE outside of switch. It might ** match one of the existing VENDOR_* codes. */ if (vendorcode == VENDOR_CODE) return VENDOR_NAME; #endif /* defined(VENDOR_NAME) && defined(VENDOR_CODE) */ switch (vendorcode) { case VENDOR_BERKELEY: return "Berkeley"; case VENDOR_SUN: return "Sun"; case VENDOR_HP: return "HP"; case VENDOR_IBM: return "IBM"; case VENDOR_SENDMAIL: return "Sendmail"; default: return "Unknown"; } } /* ** VENDOR_PRE_DEFAULTS, VENDOR_POST_DEFAULTS -- set vendor-specific defaults ** ** Vendor_pre_defaults is called before reading the configuration ** file; vendor_post_defaults is called immediately after. ** ** Parameters: ** e -- the global environment to initialize. ** ** Returns: ** none. */ #if SHARE_V1 int DefShareUid; /* default share uid to run as -- unused??? */ #endif void vendor_pre_defaults(e) ENVELOPE *e; { #if SHARE_V1 /* OTHERUID is defined in shares.h, do not be alarmed */ DefShareUid = OTHERUID; #endif #if defined(SUN_EXTENSIONS) && defined(SUN_DEFAULT_VALUES) sun_pre_defaults(e); #endif #ifdef apollo /* ** stupid domain/os can't even open ** /etc/mail/sendmail.cf without this */ sm_setuserenv("ISP", NULL); sm_setuserenv("SYSTYPE", NULL); #endif /* apollo */ } void vendor_post_defaults(e) ENVELOPE *e; { #ifdef __QNX__ /* Makes sure the SOCK environment variable remains */ sm_setuserenv("SOCK", NULL); #endif #if defined(SUN_EXTENSIONS) && defined(SUN_DEFAULT_VALUES) sun_post_defaults(e); #endif } /* ** VENDOR_DAEMON_SETUP -- special vendor setup needed for daemon mode */ void vendor_daemon_setup(e) ENVELOPE *e; { #if HASSETLOGIN (void) setlogin(RunAsUserName); #endif #if SECUREWARE if (getluid() != -1) { usrerr("Daemon cannot have LUID"); finis(false, true, EX_USAGE); } #endif /* SECUREWARE */ } /* ** VENDOR_SET_UID -- do setup for setting a user id ** ** This is called when we are still root. ** ** Parameters: ** uid -- the uid we are about to become. ** ** Returns: ** none. */ void vendor_set_uid(uid) UID_T uid; { /* ** We need to setup the share groups (lnodes) ** and add auditing information (luid's) ** before we loose our ``root''ness. */ #if SHARE_V1 if (setupshares(uid, syserr) != 0) syserr("Unable to set up shares"); #endif #if SECUREWARE (void) setup_secure(uid); #endif } /* ** VALIDATE_CONNECTION -- check connection for rationality ** ** If the connection is rejected, this routine should log an ** appropriate message -- but should never issue any SMTP protocol. ** ** Parameters: ** sap -- a pointer to a SOCKADDR naming the peer. ** hostname -- the name corresponding to sap. ** e -- the current envelope. ** ** Returns: ** error message from rejection. ** NULL if not rejected. */ #if TCPWRAPPERS # include /* tcpwrappers does no logging, but you still have to declare these -- ugh */ int allow_severity = LOG_INFO; int deny_severity = LOG_NOTICE; #endif /* TCPWRAPPERS */ char * validate_connection(sap, hostname, e) SOCKADDR *sap; char *hostname; ENVELOPE *e; { #if TCPWRAPPERS char *host; char *addr; extern int hosts_ctl(); #endif /* TCPWRAPPERS */ if (tTd(48, 3)) sm_dprintf("validate_connection(%s, %s)\n", hostname, anynet_ntoa(sap)); connection_rate_check(sap, e); if (rscheck("check_relay", hostname, anynet_ntoa(sap), e, RSF_RMCOMM|RSF_COUNT, 3, NULL, NOQID, NULL, NULL) != EX_OK) { static char reject[BUFSIZ*2]; extern char MsgBuf[]; if (tTd(48, 4)) sm_dprintf(" ... validate_connection: BAD (rscheck)\n"); if (strlen(MsgBuf) >= 3) (void) sm_strlcpy(reject, MsgBuf, sizeof(reject)); else (void) sm_strlcpy(reject, "Access denied", sizeof(reject)); return reject; } #if TCPWRAPPERS if (hostname[0] == '[' && hostname[strlen(hostname) - 1] == ']') host = "unknown"; else host = hostname; addr = anynet_ntoa(sap); # if NETINET6 /* TCP/Wrappers don't want the IPv6: protocol label */ if (addr != NULL && sm_strncasecmp(addr, "IPv6:", 5) == 0) addr += 5; # endif /* NETINET6 */ if (!hosts_ctl("sendmail", host, addr, STRING_UNKNOWN)) { if (tTd(48, 4)) sm_dprintf(" ... validate_connection: BAD (tcpwrappers)\n"); if (LogLevel > 3) sm_syslog(LOG_NOTICE, e->e_id, "tcpwrappers (%s, %s) rejection", host, addr); return "Access denied"; } #endif /* TCPWRAPPERS */ if (tTd(48, 4)) sm_dprintf(" ... validate_connection: OK\n"); return NULL; } /* ** STRTOL -- convert string to long integer ** ** For systems that don't have it in the C library. ** ** This is taken verbatim from the 4.4-Lite C library. */ #if NEEDSTRTOL # if defined(LIBC_SCCS) && !defined(lint) static char sccsid[] = "@(#)strtol.c 8.1 (Berkeley) 6/4/93"; # endif /* ** Convert a string to a long integer. ** ** Ignores `locale' stuff. Assumes that the upper and lower case ** alphabets and digits are each contiguous. */ long strtol(nptr, endptr, base) const char *nptr; char **endptr; register int base; { register const char *s = nptr; register unsigned long acc; register int c; register unsigned long cutoff; register int neg = 0, any, cutlim; /* ** Skip white space and pick up leading +/- sign if any. ** If base is 0, allow 0x for hex and 0 for octal, else ** assume decimal; if base is already 16, allow 0x. */ do { c = *s++; } while (SM_ISSPACE(c)); if (c == '-') { neg = 1; c = *s++; } else if (c == '+') c = *s++; if ((base == 0 || base == 16) && c == '0' && (*s == 'x' || *s == 'X')) { c = s[1]; s += 2; base = 16; } if (base == 0) base = c == '0' ? 8 : 10; /* ** Compute the cutoff value between legal numbers and illegal ** numbers. That is the largest legal value, divided by the ** base. An input number that is greater than this value, if ** followed by a legal input character, is too big. One that ** is equal to this value may be valid or not; the limit ** between valid and invalid numbers is then based on the last ** digit. For instance, if the range for longs is ** [-2147483648..2147483647] and the input base is 10, ** cutoff will be set to 214748364 and cutlim to either ** 7 (neg==0) or 8 (neg==1), meaning that if we have accumulated ** a value > 214748364, or equal but the next digit is > 7 (or 8), ** the number is too big, and we will return a range error. ** ** Set any if any `digits' consumed; make it negative to indicate ** overflow. */ cutoff = neg ? -(unsigned long) LONG_MIN : LONG_MAX; cutlim = cutoff % (unsigned long) base; cutoff /= (unsigned long) base; for (acc = 0, any = 0;; c = *s++) { if (isascii(c) && isdigit(c)) c -= '0'; else if (isascii(c) && isalpha(c)) c -= isupper(c) ? 'A' - 10 : 'a' - 10; else break; if (c >= base) break; if (any < 0 || acc > cutoff || acc == cutoff && c > cutlim) any = -1; else { any = 1; acc *= base; acc += c; } } if (any < 0) { acc = neg ? LONG_MIN : LONG_MAX; errno = ERANGE; } else if (neg) acc = -acc; if (endptr != NULL) *endptr = (char *)(any ? s - 1 : nptr); return acc; } #endif /* NEEDSTRTOL */ /* ** STRSTR -- find first substring in string ** ** Parameters: ** big -- the big (full) string. ** little -- the little (sub) string. ** ** Returns: ** A pointer to the first instance of little in big. ** big if little is the null string. ** NULL if little is not contained in big. */ #if NEEDSTRSTR char * strstr(big, little) char *big; char *little; { register char *p = big; int l; if (*little == '\0') return big; l = strlen(little); while ((p = strchr(p, *little)) != NULL) { if (strncmp(p, little, l) == 0) return p; p++; } return NULL; } #endif /* NEEDSTRSTR */ /* ** SM_GETHOSTBY{NAME,ADDR} -- compatibility routines for gethostbyXXX ** ** Some operating systems have weird problems with the gethostbyXXX ** routines. For example, Solaris versions at least through 2.3 ** don't properly deliver a canonical h_name field. This tries to ** work around these problems. ** ** Support IPv6 as well as IPv4. */ #if NETINET6 && NEEDSGETIPNODE # ifndef AI_DEFAULT # define AI_DEFAULT 0 /* dummy */ # endif # ifndef AI_ADDRCONFIG # define AI_ADDRCONFIG 0 /* dummy */ # endif # ifndef AI_V4MAPPED # define AI_V4MAPPED 0 /* dummy */ # endif # ifndef AI_ALL # define AI_ALL 0 /* dummy */ # endif static struct hostent * sm_getipnodebyname(name, family, flags, err) const char *name; int family; int flags; int *err; { struct hostent *h; # if HAS_GETHOSTBYNAME2 h = gethostbyname2(name, family); if (h == NULL) *err = h_errno; return h; # else /* HAS_GETHOSTBYNAME2 */ # ifdef RES_USE_INET6 bool resv6 = true; if (family == AF_INET6) { /* From RFC2133, section 6.1 */ resv6 = bitset(RES_USE_INET6, _res.options); _res.options |= RES_USE_INET6; } # endif /* RES_USE_INET6 */ SM_SET_H_ERRNO(0); h = gethostbyname(name); # ifdef RES_USE_INET6 if (!resv6) _res.options &= ~RES_USE_INET6; # endif /* the function is supposed to return only the requested family */ if (h != NULL && h->h_addrtype != family) { # if NETINET6 freehostent(h); # endif h = NULL; *err = NO_DATA; } else *err = h_errno; return h; # endif /* HAS_GETHOSTBYNAME2 */ } static struct hostent * sm_getipnodebyaddr(addr, len, family, err) const void *addr; size_t len; int family; int *err; { struct hostent *h; SM_SET_H_ERRNO(0); h = gethostbyaddr(addr, len, family); *err = h_errno; return h; } void freehostent(h) struct hostent *h; { /* ** Stub routine -- if they don't have getipnodeby*(), ** they probably don't have the free routine either. */ return; } #endif /* NETINET6 && NEEDSGETIPNODE */ struct hostent * sm_gethostbyname(name, family) char *name; int family; { int save_errno; struct hostent *h = NULL; #if (SOLARIS > 10000 && SOLARIS < 20400) || (defined(SOLARIS) && SOLARIS < 204) || (defined(sony_news) && defined(__svr4)) # if SOLARIS == 20300 || SOLARIS == 203 static struct hostent hp; static char buf[1000]; extern struct hostent *_switch_gethostbyname_r(); if (tTd(61, 10)) sm_dprintf("_switch_gethostbyname_r(%s)... ", name); h = _switch_gethostbyname_r(name, &hp, buf, sizeof(buf), &h_errno); save_errno = errno; # else /* SOLARIS == 20300 || SOLARIS == 203 */ extern struct hostent *__switch_gethostbyname(); if (tTd(61, 10)) sm_dprintf("__switch_gethostbyname(%s)... ", name); h = __switch_gethostbyname(name); save_errno = errno; # endif /* SOLARIS == 20300 || SOLARIS == 203 */ #else /* (SOLARIS > 10000 && SOLARIS < 20400) || (defined(SOLARIS) && SOLARIS < 204) || (defined(sony_news) && defined(__svr4)) */ int nmaps; # if NETINET6 # ifndef SM_IPNODEBYNAME_FLAGS /* For IPv4-mapped addresses, use: AI_DEFAULT|AI_ALL */ # define SM_IPNODEBYNAME_FLAGS AI_ADDRCONFIG # endif int flags = SM_IPNODEBYNAME_FLAGS; int err; # endif /* NETINET6 */ char *maptype[MAXMAPSTACK]; short mapreturn[MAXMAPACTIONS]; char hbuf[MAXNAME_I]; # if _FFR_8BITENVADDR (void) dequote_internal_chars(name, hbuf, sizeof(hbuf)); name = hbuf; # endif if (tTd(61, 10)) sm_dprintf("sm_gethostbyname(%s, %d)... ", name, family); # if NETINET6 # if ADDRCONFIG_IS_BROKEN flags &= ~AI_ADDRCONFIG; # endif h = sm_getipnodebyname(name, family, flags, &err); SM_SET_H_ERRNO(err); # else /* NETINET6 */ h = gethostbyname(name); # endif /* NETINET6 */ save_errno = errno; if (h == NULL) { if (tTd(61, 10)) sm_dprintf("failure: errno=%d, h_errno=%d\n", errno, h_errno); nmaps = switch_map_find("hosts", maptype, mapreturn); while (--nmaps >= 0) { if (strcmp(maptype[nmaps], "nis") == 0 || strcmp(maptype[nmaps], "files") == 0) break; } if (nmaps >= 0) { /* try short name */ if (strlen(name) > sizeof(hbuf) - 1) { errno = save_errno; return NULL; } (void) sm_strlcpy(hbuf, name, sizeof(hbuf)); (void) shorten_hostname(hbuf); /* if it hasn't been shortened, there's no point */ if (strcmp(hbuf, name) != 0) { if (tTd(61, 10)) sm_dprintf("sm_gethostbyname(%s, %d)... ", hbuf, family); # if NETINET6 h = sm_getipnodebyname(hbuf, family, flags, &err); SM_SET_H_ERRNO(err); save_errno = errno; # else /* NETINET6 */ h = gethostbyname(hbuf); save_errno = errno; # endif /* NETINET6 */ } } } #endif /* (SOLARIS > 10000 && SOLARIS < 20400) || (defined(SOLARIS) && SOLARIS < 204) || (defined(sony_news) && defined(__svr4)) */ /* the function is supposed to return only the requested family */ if (h != NULL && h->h_addrtype != family) { #if NETINET6 freehostent(h); #endif h = NULL; SM_SET_H_ERRNO(NO_DATA); } if (tTd(61, 10)) { if (h == NULL) sm_dprintf("failure: errno=%d, h_errno=%d\n", errno, h_errno); else { sm_dprintf("%s\n", h->h_name); if (tTd(61, 11)) { struct in_addr ia; size_t i; #if NETINET6 struct in6_addr ia6; char buf6[INET6_ADDRSTRLEN]; #endif if (h->h_aliases != NULL) for (i = 0; h->h_aliases[i] != NULL; i++) sm_dprintf("\talias: %s\n", h->h_aliases[i]); for (i = 0; h->h_addr_list[i] != NULL; i++) { char *addr; addr = NULL; #if NETINET6 if (h->h_addrtype == AF_INET6) { memmove(&ia6, h->h_addr_list[i], IN6ADDRSZ); addr = anynet_ntop(&ia6, buf6, sizeof(buf6)); } else #endif /* NETINET6 */ /* "else" in #if code above */ { memmove(&ia, h->h_addr_list[i], INADDRSZ); addr = (char *) inet_ntoa(ia); } if (addr != NULL) sm_dprintf("\taddr: %s\n", addr); } } } } errno = save_errno; return h; } struct hostent * sm_gethostbyaddr(addr, len, type) char *addr; int len; int type; { struct hostent *hp; #if NETINET6 if (type == AF_INET6 && IN6_IS_ADDR_UNSPECIFIED((struct in6_addr *) addr)) { /* Avoid reverse lookup for IPv6 unspecified address */ SM_SET_H_ERRNO(HOST_NOT_FOUND); return NULL; } #endif /* NETINET6 */ #if (SOLARIS > 10000 && SOLARIS < 20400) || (defined(SOLARIS) && SOLARIS < 204) # if SOLARIS == 20300 || SOLARIS == 203 { static struct hostent he; static char buf[1000]; extern struct hostent *_switch_gethostbyaddr_r(); hp = _switch_gethostbyaddr_r(addr, len, type, &he, buf, sizeof(buf), &h_errno); } # else /* SOLARIS == 20300 || SOLARIS == 203 */ { extern struct hostent *__switch_gethostbyaddr(); hp = __switch_gethostbyaddr(addr, len, type); } # endif /* SOLARIS == 20300 || SOLARIS == 203 */ #else /* (SOLARIS > 10000 && SOLARIS < 20400) || (defined(SOLARIS) && SOLARIS < 204) */ # if NETINET6 { int err; hp = sm_getipnodebyaddr(addr, len, type, &err); SM_SET_H_ERRNO(err); } # else /* NETINET6 */ hp = gethostbyaddr(addr, len, type); # endif /* NETINET6 */ #endif /* (SOLARIS > 10000 && SOLARIS < 20400) || (defined(SOLARIS) && SOLARIS < 204) */ return hp; } /* ** SM_GETPW{NAM,UID} -- wrapper for getpwnam and getpwuid */ struct passwd * sm_getpwnam(user) char *user; { #ifdef _AIX4 extern struct passwd *_getpwnam_shadow(const char *, const int); return _getpwnam_shadow(user, 0); #else /* _AIX4 */ return getpwnam(user); #endif /* _AIX4 */ } struct passwd * sm_getpwuid(uid) UID_T uid; { #if defined(_AIX4) && 0 extern struct passwd *_getpwuid_shadow(const int, const int); return _getpwuid_shadow(uid,0); #else /* defined(_AIX4) && 0 */ return getpwuid(uid); #endif /* defined(_AIX4) && 0 */ } /* ** SECUREWARE_SETUP_SECURE -- Convex SecureWare setup ** ** Set up the trusted computing environment for C2 level security ** under SecureWare. ** ** Parameters: ** uid -- uid of the user to initialize in the TCB ** ** Returns: ** none ** ** Side Effects: ** Initialized the user in the trusted computing base */ #if SECUREWARE # include # include void secureware_setup_secure(uid) UID_T uid; { int rc; if (getluid() != -1) return; if ((rc = set_secure_info(uid)) != SSI_GOOD_RETURN) { switch (rc) { case SSI_NO_PRPW_ENTRY: syserr("No protected passwd entry, uid = %d", (int) uid); break; case SSI_LOCKED: syserr("Account has been disabled, uid = %d", (int) uid); break; case SSI_RETIRED: syserr("Account has been retired, uid = %d", (int) uid); break; case SSI_BAD_SET_LUID: syserr("Could not set LUID, uid = %d", (int) uid); break; case SSI_BAD_SET_PRIVS: syserr("Could not set kernel privs, uid = %d", (int) uid); default: syserr("Unknown return code (%d) from set_secure_info(%d)", rc, (int) uid); break; } finis(false, true, EX_NOPERM); } } #endif /* SECUREWARE */ /* ** ADD_HOSTNAMES -- Add a hostname to class 'w' based on IP address ** ** Add hostnames to class 'w' based on the IP address read from ** the network interface. ** ** Parameters: ** sa -- a pointer to a SOCKADDR containing the address ** ** Returns: ** 0 if successful, -1 if host lookup fails. */ static int add_hostnames(sa) SOCKADDR *sa; { struct hostent *hp; char **ha; char hnb[MAXHOSTNAMELEN]; /* look up name with IP address */ switch (sa->sa.sa_family) { #if NETINET case AF_INET: hp = sm_gethostbyaddr((char *) &sa->sin.sin_addr, sizeof(sa->sin.sin_addr), sa->sa.sa_family); break; #endif /* NETINET */ #if NETINET6 case AF_INET6: hp = sm_gethostbyaddr((char *) &sa->sin6.sin6_addr, sizeof(sa->sin6.sin6_addr), sa->sa.sa_family); break; #endif /* NETINET6 */ default: /* Give warning about unsupported family */ if (LogLevel > 3) sm_syslog(LOG_WARNING, NOQID, "Unsupported address family %d: %.100s", sa->sa.sa_family, anynet_ntoa(sa)); return -1; } if (hp == NULL) { int save_errno = errno; if (LogLevel > 3 && #if NETINET && defined(IN_LINKLOCAL) !(sa->sa.sa_family == AF_INET && IN_LINKLOCAL(ntohl(sa->sin.sin_addr.s_addr))) && #endif #if NETINET6 !(sa->sa.sa_family == AF_INET6 && IN6_IS_ADDR_LINKLOCAL(&sa->sin6.sin6_addr)) && #endif true) sm_syslog(LOG_WARNING, NOQID, "gethostbyaddr(%.100s) failed: %d", anynet_ntoa(sa), #if NAMED_BIND h_errno #else -1 #endif ); errno = save_errno; return -1; } /* save its cname */ if (!wordinclass((char *) hp->h_name, 'w')) { setclass('w', (char *) hp->h_name); if (tTd(0, 4)) sm_dprintf("\ta.k.a.: %s\n", hp->h_name); if (sm_snprintf(hnb, sizeof(hnb), "[%s]", hp->h_name) < sizeof(hnb) && !wordinclass((char *) hnb, 'w')) setclass('w', hnb); } else { if (tTd(0, 43)) sm_dprintf("\ta.k.a.: %s (already in $=w)\n", hp->h_name); } /* save all it aliases name */ for (ha = hp->h_aliases; ha != NULL && *ha != NULL; ha++) { if (!wordinclass(*ha, 'w')) { setclass('w', *ha); if (tTd(0, 4)) sm_dprintf("\ta.k.a.: %s\n", *ha); if (sm_snprintf(hnb, sizeof(hnb), "[%s]", *ha) < sizeof(hnb) && !wordinclass((char *) hnb, 'w')) setclass('w', hnb); } else { if (tTd(0, 43)) sm_dprintf("\ta.k.a.: %s (already in $=w)\n", *ha); } } #if NETINET6 freehostent(hp); #endif return 0; } /* ** LOAD_IF_NAMES -- load interface-specific names into $=w ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** Loads $=w with the names of all the interfaces. */ #if !NETINET # define SIOCGIFCONF_IS_BROKEN 1 /* XXX */ #endif #if defined(SIOCGIFCONF) && !SIOCGIFCONF_IS_BROKEN struct rtentry; struct mbuf; # ifndef SUNOS403 # include # endif # if (_AIX4 >= 40300) && !defined(_NET_IF_H) # undef __P # endif # include #endif /* defined(SIOCGIFCONF) && !SIOCGIFCONF_IS_BROKEN */ void load_if_names() { #if NETINET6 && defined(SIOCGLIFCONF) # ifdef __hpux /* ** Unfortunately, HP has changed all of the structures, ** making life difficult for implementors. */ # define lifconf if_laddrconf # define lifc_len iflc_len # define lifc_buf iflc_buf # define lifreq if_laddrreq # define lifr_addr iflr_addr # define lifr_name iflr_name # define lifr_flags iflr_flags # define ss_family sa_family # undef SIOCGLIFNUM # endif /* __hpux */ int s; int i; size_t len; int numifs; char *buf; struct lifconf lifc; # ifdef SIOCGLIFNUM struct lifnum lifn; # endif s = socket(InetMode, SOCK_DGRAM, 0); if (s == -1) return; /* get the list of known IP address from the kernel */ # ifdef __hpux i = ioctl(s, SIOCGIFNUM, (char *) &numifs); # endif # ifdef SIOCGLIFNUM lifn.lifn_family = AF_UNSPEC; lifn.lifn_flags = 0; i = ioctl(s, SIOCGLIFNUM, (char *)&lifn); numifs = lifn.lifn_count; # endif /* SIOCGLIFNUM */ # if defined(__hpux) || defined(SIOCGLIFNUM) if (i < 0) { /* can't get number of interfaces -- fall back */ if (tTd(0, 4)) sm_dprintf("SIOCGLIFNUM failed: %s\n", sm_errstring(errno)); numifs = -1; } else if (tTd(0, 42)) sm_dprintf("system has %d interfaces\n", numifs); if (numifs < 0) # endif /* defined(__hpux) || defined(SIOCGLIFNUM) */ numifs = MAXINTERFACES; if (numifs <= 0) { (void) close(s); return; } len = lifc.lifc_len = numifs * sizeof(struct lifreq); buf = lifc.lifc_buf = xalloc(lifc.lifc_len); # ifndef __hpux lifc.lifc_family = AF_UNSPEC; lifc.lifc_flags = 0; # endif if (ioctl(s, SIOCGLIFCONF, (char *)&lifc) < 0) { if (tTd(0, 4)) sm_dprintf("SIOCGLIFCONF failed: %s\n", sm_errstring(errno)); (void) close(s); sm_free(buf); return; } /* scan the list of IP address */ if (tTd(0, 40)) sm_dprintf("scanning for interface specific names, lifc_len=%ld\n", (long) len); for (i = 0; i < len && i >= 0; ) { int flags; struct lifreq *ifr = (struct lifreq *)&buf[i]; SOCKADDR *sa = (SOCKADDR *) &ifr->lifr_addr; int af = ifr->lifr_addr.ss_family; char *addr; char *name; struct in6_addr ia6; struct in_addr ia; # ifdef SIOCGLIFFLAGS struct lifreq ifrf; # endif char ip_addr[256]; char buf6[INET6_ADDRSTRLEN]; /* ** We must close and recreate the socket each time ** since we don't know what type of socket it is now ** (each status function may change it). */ (void) close(s); s = socket(af, SOCK_DGRAM, 0); if (s == -1) { sm_free(buf); /* XXX */ return; } /* ** If we don't have a complete ifr structure, ** don't try to use it. */ if ((len - i) < sizeof(*ifr)) break; # ifdef BSD4_4_SOCKADDR if (sa->sa.sa_len > sizeof(ifr->lifr_addr)) i += sizeof(ifr->lifr_name) + sa->sa.sa_len; else # endif /* BSD4_4_SOCKADDR */ /* "else" in #if code above */ { # ifdef DEC /* fix for IPv6 size differences */ i += sizeof(ifr->ifr_name) + max(sizeof(ifr->ifr_addr), ifr->ifr_addr.sa_len); # else /* DEC */ i += sizeof(*ifr); # endif /* DEC */ } if (tTd(0, 20)) sm_dprintf("%s\n", anynet_ntoa(sa)); if (af != AF_INET && af != AF_INET6) continue; # ifdef SIOCGLIFFLAGS memset(&ifrf, '\0', sizeof(struct lifreq)); (void) sm_strlcpy(ifrf.lifr_name, ifr->lifr_name, sizeof(ifrf.lifr_name)); if (ioctl(s, SIOCGLIFFLAGS, (char *) &ifrf) < 0) { if (tTd(0, 4)) sm_dprintf("SIOCGLIFFLAGS failed: %s\n", sm_errstring(errno)); continue; } name = ifr->lifr_name; flags = ifrf.lifr_flags; if (tTd(0, 41)) sm_dprintf("\tflags: %lx\n", (unsigned long) flags); if (!bitset(IFF_UP, flags)) continue; # endif /* SIOCGLIFFLAGS */ ip_addr[0] = '\0'; /* extract IP address from the list*/ switch (af) { case AF_INET6: SETV6LOOPBACKADDRFOUND(*sa); # ifdef __KAME__ /* convert into proper scoped address */ if ((IN6_IS_ADDR_LINKLOCAL(&sa->sin6.sin6_addr) || IN6_IS_ADDR_SITELOCAL(&sa->sin6.sin6_addr)) && sa->sin6.sin6_scope_id == 0) { struct in6_addr *ia6p; ia6p = &sa->sin6.sin6_addr; sa->sin6.sin6_scope_id = ntohs(ia6p->s6_addr[3] | ((unsigned int)ia6p->s6_addr[2] << 8)); ia6p->s6_addr[2] = ia6p->s6_addr[3] = 0; } # endif /* __KAME__ */ ia6 = sa->sin6.sin6_addr; if (IN6_IS_ADDR_UNSPECIFIED(&ia6)) { addr = anynet_ntop(&ia6, buf6, sizeof(buf6)); message("WARNING: interface %s is UP with %s address", name, addr == NULL ? "(NULL)" : addr); continue; } /* save IP address in text from */ addr = anynet_ntop(&ia6, buf6, sizeof(buf6)); if (addr != NULL) (void) sm_snprintf(ip_addr, sizeof(ip_addr), "[%.*s]", (int) sizeof(ip_addr) - 3, addr); break; case AF_INET: ia = sa->sin.sin_addr; if (ia.s_addr == INADDR_ANY || ia.s_addr == INADDR_NONE) { message("WARNING: interface %s is UP with %s address", name, inet_ntoa(ia)); continue; } /* save IP address in text from */ (void) sm_snprintf(ip_addr, sizeof(ip_addr), "[%.*s]", (int) sizeof(ip_addr) - 3, inet_ntoa(ia)); break; } if (*ip_addr == '\0') continue; if (!wordinclass(ip_addr, 'w')) { setclass('w', ip_addr); if (tTd(0, 4)) sm_dprintf("\ta.k.a.: %s\n", ip_addr); } # ifdef SIOCGLIFFLAGS /* skip "loopback" interface "lo" */ if (DontProbeInterfaces == DPI_SKIPLOOPBACK && bitset(IFF_LOOPBACK, flags)) continue; # endif /* SIOCGLIFFLAGS */ (void) add_hostnames(sa); } sm_free(buf); /* XXX */ (void) close(s); #else /* NETINET6 && defined(SIOCGLIFCONF) */ # if defined(SIOCGIFCONF) && !SIOCGIFCONF_IS_BROKEN int s; int i; struct ifconf ifc; int numifs; s = socket(AF_INET, SOCK_DGRAM, 0); if (s == -1) return; /* get the list of known IP address from the kernel */ # if defined(SIOCGIFNUM) && !SIOCGIFNUM_IS_BROKEN if (ioctl(s, SIOCGIFNUM, (char *) &numifs) < 0) { /* can't get number of interfaces -- fall back */ if (tTd(0, 4)) sm_dprintf("SIOCGIFNUM failed: %s\n", sm_errstring(errno)); numifs = -1; } else if (tTd(0, 42)) sm_dprintf("system has %d interfaces\n", numifs); if (numifs < 0) # endif /* defined(SIOCGIFNUM) && !SIOCGIFNUM_IS_BROKEN */ numifs = MAXINTERFACES; if (numifs <= 0) { (void) close(s); return; } ifc.ifc_len = numifs * sizeof(struct ifreq); ifc.ifc_buf = xalloc(ifc.ifc_len); if (ioctl(s, SIOCGIFCONF, (char *)&ifc) < 0) { if (tTd(0, 4)) sm_dprintf("SIOCGIFCONF failed: %s\n", sm_errstring(errno)); (void) close(s); return; } /* scan the list of IP address */ if (tTd(0, 40)) sm_dprintf("scanning for interface specific names, ifc_len=%d\n", ifc.ifc_len); for (i = 0; i < ifc.ifc_len && i >= 0; ) { int af; # if HAVE_IFC_BUF_VOID struct ifreq *ifr = (struct ifreq *) &((char *)ifc.ifc_buf)[i]; # else struct ifreq *ifr = (struct ifreq *) &ifc.ifc_buf[i]; # endif SOCKADDR *sa = (SOCKADDR *) &ifr->ifr_addr; # if NETINET6 char *addr; struct in6_addr ia6; # endif struct in_addr ia; # ifdef SIOCGIFFLAGS struct ifreq ifrf; # endif char ip_addr[256]; # if NETINET6 char buf6[INET6_ADDRSTRLEN]; # endif /* ** If we don't have a complete ifr structure, ** don't try to use it. */ if ((ifc.ifc_len - i) < sizeof(*ifr)) break; # ifdef BSD4_4_SOCKADDR if (sa->sa.sa_len > sizeof(ifr->ifr_addr)) i += sizeof(ifr->ifr_name) + sa->sa.sa_len; else # endif /* BSD4_4_SOCKADDR */ /* "else" in #if code above */ { i += sizeof(*ifr); } if (tTd(0, 20)) sm_dprintf("%s\n", anynet_ntoa(sa)); af = ifr->ifr_addr.sa_family; if (af != AF_INET # if NETINET6 && af != AF_INET6 # endif ) continue; # ifdef SIOCGIFFLAGS memset(&ifrf, '\0', sizeof(struct ifreq)); (void) sm_strlcpy(ifrf.ifr_name, ifr->ifr_name, sizeof(ifrf.ifr_name)); (void) ioctl(s, SIOCGIFFLAGS, (char *) &ifrf); if (tTd(0, 41)) sm_dprintf("\tflags: %lx\n", (unsigned long) ifrf.ifr_flags); # define IFRFREF ifrf # else /* SIOCGIFFLAGS */ # define IFRFREF (*ifr) # endif /* SIOCGIFFLAGS */ if (!bitset(IFF_UP, IFRFREF.ifr_flags)) continue; ip_addr[0] = '\0'; /* extract IP address from the list*/ switch (af) { case AF_INET: ia = sa->sin.sin_addr; if (ia.s_addr == INADDR_ANY || ia.s_addr == INADDR_NONE) { message("WARNING: interface %s is UP with %s address", ifr->ifr_name, inet_ntoa(ia)); continue; } /* save IP address in text from */ (void) sm_snprintf(ip_addr, sizeof(ip_addr), "[%.*s]", (int) sizeof(ip_addr) - 3, inet_ntoa(ia)); break; # if NETINET6 case AF_INET6: SETV6LOOPBACKADDRFOUND(*sa); # ifdef __KAME__ /* convert into proper scoped address */ if ((IN6_IS_ADDR_LINKLOCAL(&sa->sin6.sin6_addr) || IN6_IS_ADDR_SITELOCAL(&sa->sin6.sin6_addr)) && sa->sin6.sin6_scope_id == 0) { struct in6_addr *ia6p; ia6p = &sa->sin6.sin6_addr; sa->sin6.sin6_scope_id = ntohs(ia6p->s6_addr[3] | ((unsigned int)ia6p->s6_addr[2] << 8)); ia6p->s6_addr[2] = ia6p->s6_addr[3] = 0; } # endif /* __KAME__ */ ia6 = sa->sin6.sin6_addr; if (IN6_IS_ADDR_UNSPECIFIED(&ia6)) { addr = anynet_ntop(&ia6, buf6, sizeof(buf6)); message("WARNING: interface %s is UP with %s address", ifr->ifr_name, addr == NULL ? "(NULL)" : addr); continue; } /* save IP address in text from */ addr = anynet_ntop(&ia6, buf6, sizeof(buf6)); if (addr != NULL) (void) sm_snprintf(ip_addr, sizeof(ip_addr), "[%.*s]", (int) sizeof(ip_addr) - 3, addr); break; # endif /* NETINET6 */ } if (ip_addr[0] == '\0') continue; if (!wordinclass(ip_addr, 'w')) { setclass('w', ip_addr); if (tTd(0, 4)) sm_dprintf("\ta.k.a.: %s\n", ip_addr); } /* skip "loopback" interface "lo" */ if (DontProbeInterfaces == DPI_SKIPLOOPBACK && bitset(IFF_LOOPBACK, IFRFREF.ifr_flags)) continue; (void) add_hostnames(sa); } sm_free(ifc.ifc_buf); /* XXX */ (void) close(s); # undef IFRFREF # endif /* defined(SIOCGIFCONF) && !SIOCGIFCONF_IS_BROKEN */ #endif /* NETINET6 && defined(SIOCGLIFCONF) */ } /* ** ISLOOPBACK -- is socket address in the loopback net? ** ** Parameters: ** sa -- socket address. ** ** Returns: ** true -- is socket address in the loopback net? ** false -- otherwise ** */ bool isloopback(sa) SOCKADDR sa; { /* XXX how to correctly extract IN_LOOPBACKNET part? */ #ifdef IN_LOOPBACK # define SM_IS_IPV4_LOOP(a) IN_LOOPBACK(ntohl(a)) #else /* IN_LOOPBACK */ # define SM_IS_IPV4_LOOP(a) (((ntohl(a) & IN_CLASSA_NET) \ >> IN_CLASSA_NSHIFT) == IN_LOOPBACKNET) # endif /* IN_LOOPBACK */ #if NETINET6 if (sa.sa.sa_family == AF_INET6 && IN6_IS_ADDR_V4MAPPED(&sa.sin6.sin6_addr) && SM_IS_IPV4_LOOP(((uint32_t *) (&sa.sin6.sin6_addr))[3])) return true; if (sa.sa.sa_family == AF_INET6 && IN6_IS_ADDR_LOOPBACK(&sa.sin6.sin6_addr)) return true; #endif #if NETINET if (sa.sa.sa_family == AF_INET && SM_IS_IPV4_LOOP(sa.sin.sin_addr.s_addr)) return true; #endif return false; } /* ** GET_NUM_PROCS_ONLINE -- return the number of processors currently online ** ** Parameters: ** none. ** ** Returns: ** The number of processors online. */ static int get_num_procs_online() { int nproc = 0; #ifdef USESYSCTL # if defined(CTL_HW) && defined(HW_NCPU) size_t sz; int mib[2]; mib[0] = CTL_HW; mib[1] = HW_NCPU; sz = (size_t) sizeof(nproc); (void) sysctl(mib, 2, &nproc, &sz, NULL, 0); # endif /* defined(CTL_HW) && defined(HW_NCPU) */ #else /* USESYSCTL */ # ifdef _SC_NPROCESSORS_ONLN nproc = (int) sysconf(_SC_NPROCESSORS_ONLN); # else /* _SC_NPROCESSORS_ONLN */ # ifdef __hpux # include struct pst_dynamic psd; if (pstat_getdynamic(&psd, sizeof(psd), (size_t)1, 0) != -1) nproc = psd.psd_proc_cnt; # endif /* __hpux */ # endif /* _SC_NPROCESSORS_ONLN */ #endif /* USESYSCTL */ if (nproc <= 0) nproc = 1; return nproc; } /* ** SM_CLOSEFROM -- close file descriptors ** ** Parameters: ** lowest -- first fd to close ** highest -- last fd + 1 to close ** ** Returns: ** none */ void sm_closefrom(lowest, highest) int lowest, highest; { #if HASCLOSEFROM closefrom(lowest); #else /* HASCLOSEFROM */ int i; for (i = lowest; i < highest; i++) (void) close(i); #endif /* HASCLOSEFROM */ } #if HASFDWALK /* ** CLOSEFD_WALK -- walk fd's arranging to close them ** Callback for fdwalk() ** ** Parameters: ** lowest -- first fd to arrange to be closed ** fd -- fd to arrange to be closed ** ** Returns: ** zero */ static int closefd_walk(lowest, fd) void *lowest; int fd; { if (fd >= *(int *)lowest) (void) fcntl(fd, F_SETFD, FD_CLOEXEC); return 0; } #endif /* HASFDWALK */ /* ** SM_CLOSE_ON_EXEC -- arrange for file descriptors to be closed ** ** Parameters: ** lowest -- first fd to arrange to be closed ** highest -- last fd + 1 to arrange to be closed ** ** Returns: ** none */ void sm_close_on_exec(lowest, highest) int lowest, highest; { #if HASFDWALK (void) fdwalk(closefd_walk, &lowest); #else /* HASFDWALK */ int i, j; for (i = lowest; i < highest; i++) { if ((j = fcntl(i, F_GETFD, 0)) != -1) (void) fcntl(i, F_SETFD, j | FD_CLOEXEC); } #endif /* HASFDWALK */ } /* ** SEED_RANDOM -- seed the random number generator ** ** Parameters: ** none ** ** Returns: ** none */ void seed_random() { #if HASSRANDOMDEV srandomdev(); #else /* HASSRANDOMDEV */ long seed; struct timeval t; seed = (long) CurrentPid; if (gettimeofday(&t, NULL) >= 0) seed += t.tv_sec + t.tv_usec; # if HASRANDOM (void) srandom(seed); # else (void) srand((unsigned int) seed); # endif #endif /* HASSRANDOMDEV */ } /* ** SM_SYSLOG -- syslog wrapper to keep messages under SYSLOG_BUFSIZE ** ** Parameters: ** level -- syslog level ** id -- envelope ID or NULL (NOQUEUE) ** fmt -- format string ** arg... -- arguments as implied by fmt. ** ** Returns: ** none */ /* VARARGS3 */ void #ifdef __STDC__ sm_syslog(int level, const char *id, const char *fmt, ...) #else /* __STDC__ */ sm_syslog(level, id, fmt, va_alist) int level; const char *id; const char *fmt; va_dcl #endif /* __STDC__ */ { char *buf; size_t bufsize; char *begin, *end; int save_errno; int seq = 1; int idlen; char buf0[MAXLINE]; char *newstring; extern int SyslogPrefixLen; SM_VA_LOCAL_DECL save_errno = errno; if (id == NULL) id = "NOQUEUE"; idlen = strlen(id) + SyslogPrefixLen; buf = buf0; bufsize = sizeof(buf0); for (;;) { int n; /* print log message into buf */ SM_VA_START(ap, fmt); n = sm_vsnprintf(buf, bufsize, fmt, ap); SM_VA_END(ap); SM_ASSERT(n >= 0); if (n < bufsize) break; /* String too small, redo with correct size */ bufsize = n + 1; if (buf != buf0) { sm_free(buf); buf = NULL; } buf = sm_malloc_x(bufsize); } /* clean up buf after it has been expanded with args */ #if _FFR_LOGASIS >= 5 /* for testing! maybe make it an -d option (hence runtime)? */ newstring = buf; #else newstring = str2prt(buf); #endif if ((strlen(newstring) + idlen + 1) < SYSLOG_BUFSIZE) { #if LOG if (*id == '\0') { if (tTd(89, 10)) { struct timeval tv; gettimeofday(&tv, NULL); sm_dprintf("%ld.%06ld %s\n", (long) tv.tv_sec, (long) tv.tv_usec, newstring); } else if (tTd(89, 8)) sm_dprintf("%s\n", newstring); else syslog(level, "%s", newstring); } else { if (tTd(89, 10)) { struct timeval tv; gettimeofday(&tv, NULL); sm_dprintf("%ld.%06ld %s: %s\n", (long) tv.tv_sec, (long) tv.tv_usec, id, newstring); } else if (tTd(89, 8)) sm_dprintf("%s: %s\n", id, newstring); else syslog(level, "%s: %s", id, newstring); } #else /* LOG */ /*XXX should do something more sensible */ if (*id == '\0') (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s\n", newstring); else (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: %s\n", id, newstring); #endif /* LOG */ if (buf != buf0) sm_free(buf); errno = save_errno; return; } /* ** additional length for splitting: " ..." + 3, where 3 is magic to ** have some data for the next entry. */ #define SL_SPLIT 7 begin = newstring; idlen += 5; /* strlen("[999]"), see below */ while (*begin != '\0' && (strlen(begin) + idlen) > SYSLOG_BUFSIZE) { char save; if (seq >= 999) { /* Too many messages */ break; } end = begin + SYSLOG_BUFSIZE - idlen - SL_SPLIT; while (end > begin) { /* Break on comma or space */ if (*end == ',' || *end == ' ') { end++; /* Include separator */ break; } end--; } /* No separator, break midstring... */ if (end == begin) end = begin + SYSLOG_BUFSIZE - idlen - SL_SPLIT; save = *end; *end = 0; #if LOG if (tTd(89, 8)) sm_dprintf("%s[%d]: %s ...\n", id, seq++, begin); else syslog(level, "%s[%d]: %s ...", id, seq++, begin); #else /* LOG */ (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s[%d]: %s ...\n", id, seq++, begin); #endif /* LOG */ *end = save; begin = end; } if (seq >= 999) { #if LOG if (tTd(89, 8)) sm_dprintf("%s[%d]: log terminated, too many parts\n", id, seq); else syslog(level, "%s[%d]: log terminated, too many parts", id, seq); #else /* LOG */ (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s[%d]: log terminated, too many parts\n", id, seq); #endif /* LOG */ } else if (*begin != '\0') { #if LOG if (tTd(89, 8)) sm_dprintf("%s[%d]: %s\n", id, seq, begin); else syslog(level, "%s[%d]: %s", id, seq, begin); #else /* LOG */ (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s[%d]: %s\n", id, seq, begin); #endif /* LOG */ } if (buf != buf0) sm_free(buf); errno = save_errno; } /* ** HARD_SYSLOG -- call syslog repeatedly until it works ** ** Needed on HP-UX, which apparently doesn't guarantee that ** syslog succeeds during interrupt handlers. */ #if defined(__hpux) && !defined(HPUX11) # define MAXSYSLOGTRIES 100 # undef syslog # ifdef V4FS # define XCNST const # define CAST (const char *) # else # define XCNST # define CAST # endif void # ifdef __STDC__ hard_syslog(int pri, XCNST char *msg, ...) # else /* __STDC__ */ hard_syslog(pri, msg, va_alist) int pri; XCNST char *msg; va_dcl # endif /* __STDC__ */ { int i; char buf[SYSLOG_BUFSIZE]; SM_VA_LOCAL_DECL SM_VA_START(ap, msg); (void) sm_vsnprintf(buf, sizeof(buf), msg, ap); SM_VA_END(ap); for (i = MAXSYSLOGTRIES; --i >= 0 && syslog(pri, CAST "%s", buf) < 0; ) continue; } # undef CAST #endif /* defined(__hpux) && !defined(HPUX11) */ #if NEEDLOCAL_HOSTNAME_LENGTH /* ** LOCAL_HOSTNAME_LENGTH ** ** This is required to get sendmail to compile against BIND 4.9.x ** on Ultrix. ** ** Unfortunately, a Compaq Y2K patch kit provides it without ** bumping __RES in /usr/include/resolv.h so we can't automatically ** figure out whether it is needed. */ int local_hostname_length(hostname) char *hostname; { size_t len_host, len_domain; if (!*_res.defdname) res_init(); len_host = strlen(hostname); len_domain = strlen(_res.defdname); if (len_host > len_domain && (SM_STRCASEEQ(hostname + len_host - len_domain, _res.defdname)) && hostname[len_host - len_domain - 1] == '.') return len_host - len_domain - 1; else return 0; } #endif /* NEEDLOCAL_HOSTNAME_LENGTH */ #if NEEDLINK /* ** LINK -- clone a file ** ** Some OS's lacks link() and hard links. Since sendmail is using ** link() as an efficient way to clone files, this implementation ** will simply do a file copy. ** ** NOTE: This link() replacement is not a generic replacement as it ** does not handle all of the semantics of the real link(2). ** ** Parameters: ** source -- pathname of existing file. ** target -- pathname of link (clone) to be created. ** ** Returns: ** 0 -- success. ** -1 -- failure, see errno for details. */ int link(source, target) const char *source; const char *target; { int save_errno; int sff; int src = -1, dst = -1; ssize_t readlen; ssize_t writelen; char buf[BUFSIZ]; struct stat st; sff = SFF_REGONLY|SFF_OPENASROOT; if (DontLockReadFiles) sff |= SFF_NOLOCK; /* Open the original file */ src = safeopen((char *)source, O_RDONLY, 0, sff); if (src < 0) goto fail; /* Obtain the size and the mode */ if (fstat(src, &st) < 0) goto fail; /* Create the duplicate copy */ sff &= ~SFF_NOLOCK; sff |= SFF_CREAT; dst = safeopen((char *)target, O_CREAT|O_EXCL|O_WRONLY, st.st_mode, sff); if (dst < 0) goto fail; /* Copy all of the bytes one buffer at a time */ while ((readlen = read(src, &buf, sizeof(buf))) > 0) { ssize_t left = readlen; char *p = buf; while (left > 0 && (writelen = write(dst, p, (size_t) left)) >= 0) { left -= writelen; p += writelen; } if (writelen < 0) break; } /* Any trouble reading? */ if (readlen < 0 || writelen < 0) goto fail; /* Close the input file */ if (close(src) < 0) { src = -1; goto fail; } src = -1; /* Close the output file */ if (close(dst) < 0) { /* don't set dst = -1 here so we unlink the file */ goto fail; } /* Success */ return 0; fail: save_errno = errno; if (src >= 0) (void) close(src); if (dst >= 0) { (void) unlink(target); (void) close(dst); } errno = save_errno; return -1; } #endif /* NEEDLINK */ /* ** Compile-Time options */ #define SM_STR(x) #x #define SM_XSTR(x) SM_STR(x) char *CompileOptions[] = { #if ALLOW_255 /* if not enabled (and EightBitAddrOK not set): convert 0xff to 0x7f */ "ALLOW_255", #endif #if DANE "DANE", #endif #if HAVE_SSL_CTX_dane_enable "HAVE_SSL_CTX_dane_enable", #endif #if MAX_TLSA_RR "MAX_TLSA_RR=" SM_XSTR(MAX_TLSA_RR), #endif #if NAMED_BIND # if DNSMAP "DNSMAP", # endif #endif #if EGD "EGD", #endif #if HESIOD "HESIOD", #endif #if HESIOD_ALLOW_NUMERIC_LOGIN "HESIOD_ALLOW_NUMERIC_LOGIN", #endif #if HES_GETMAILHOST "HES_GETMAILHOST", #endif #if IPV6_FULL /* Use uncompressed IPv6 address format (no "::") by default */ "IPV6_FULL", #endif #if LDAPMAP "LDAPMAP", #endif #if LDAP_NETWORK_TIMEOUT /* set LDAP_OPT_NETWORK_TIMEOUT if available (-c) */ "LDAP_NETWORK_TIMEOUT", #endif #if LDAP_REFERRALS "LDAP_REFERRALS", #endif #if LOG "LOG", #endif #if MAP_NSD "MAP_NSD", #endif #if MAP_REGEX "MAP_REGEX", #endif #if MATCHGECOS "MATCHGECOS", #endif #if MAXDAEMONS != 10 "MAXDAEMONS=" SM_XSTR(MAXDAEMONS), #endif #if defined(MSGIDLOGLEN) "MSGIDLOGLEN=" SM_XSTR(MSGIDLOGLEN), #endif #if MILTER "MILTER", #endif #if MIME7TO8 "MIME7TO8", #endif #if MIME7TO8_OLD "MIME7TO8_OLD", #endif #if MIME8TO7 "MIME8TO7", #endif #if NAMED_BIND "NAMED_BIND", #else # if DANE # error "DANE requires NAMED_BIND" # endif #endif #if NDBM "NDBM", #endif #if NETINET "NETINET", #endif #if NETINET6 "NETINET6", #endif #if NETINFO "NETINFO", #endif #if NETISO "NETISO", #endif #if NETNS "NETNS", #endif #if NETUNIX "NETUNIX", #endif #if NETX25 "NETX25", #endif #if NO_EOH_FIELDS "NO_EOH_FIELDS", #endif #if NEWDB # if defined(DB_VERSION_MAJOR) && defined(DB_VERSION_MINOR) # if DB_VERSION_MAJOR >= 5 && !defined(SOLARIS) && !HASFLOCK && !ACCEPT_BROKEN_BDB_LOCKING /* ** NOTE: disabling this check by setting ACCEPT_BROKEN_BDB_LOCKING ** means you are taking full responsibility for any problems ** which may arise! ** ** Map locking will not work, and making a change to a map ** while sendmail is using it can break mail handling. ** At least you must stop all sendmail processes when using ** makemap or newaliases - but there might be other things ** which could break. ** ** You have been warned - use at your own risk! */ # error "Berkeley DB file locking needs flock() for version 5.x (and greater?)" # endif "NEWDB=" SM_XSTR(DB_VERSION_MAJOR) "." SM_XSTR(DB_VERSION_MINOR), # else "NEWDB", # endif #endif #if CDB "CDB=" SM_XSTR(CDB), #endif #if NIS "NIS", #endif #if NISPLUS "NISPLUS", #endif #if NO_DH "NO_DH", #endif #if PH_MAP "PH_MAP", #endif #ifdef PICKY_HELO_CHECK "PICKY_HELO_CHECK", #endif #if PIPELINING "PIPELINING", #endif #if SASL # if SASL >= 20000 "SASLv2", # else "SASL", # endif #endif #if SCANF "SCANF", #endif #if SM_LDAP_ERROR_ON_MISSING_ARGS "SM_LDAP_ERROR_ON_MISSING_ARGS", #endif #if SMTPDEBUG "SMTPDEBUG", #endif #if SOCKETMAP "SOCKETMAP", #endif #if STARTTLS "STARTTLS", #endif #if SUID_ROOT_FILES_OK "SUID_ROOT_FILES_OK", #endif #if SYSLOG_BUFSIZE > 1024 "SYSLOG_BUFSIZE=" SM_XSTR(SYSLOG_BUFSIZE), #endif #if TCPWRAPPERS "TCPWRAPPERS", #endif #if TLS_NO_RSA "TLS_NO_RSA", #endif #if TLS_EC # if NO_DH # error "NO_DH disables TLS_EC" # else /* elliptic curves */ "TLS_EC", # endif #endif #if TLS_VRFY_PER_CTX "TLS_VRFY_PER_CTX", #endif #if USERDB "USERDB", #endif #if USE_EAI /* ** Initial/Partial/Experimental EAI (SMTPUTF8) support. ** Requires ICU include files and library depending on the OS. ** Initial patch from Arnt Gulbrandsen. */ # if !ALLOW_255 # error "USE_EAI requires ALLOW_255" # endif # if _FFR_EIGHT_BIT_ADDR_OK # error "Cannot enable both USE_EAI and _FFR_EIGHT_BIT_ADDR_OK" # endif "USE_EAI", #endif #if USE_LDAP_INIT "USE_LDAP_INIT", #endif #if USE_TTYPATH "USE_TTYPATH", #endif #if XDEBUG "XDEBUG", #endif #if XLA "XLA", #endif NULL }; /* ** OS compile options. */ char *OsCompileOptions[] = { #if ADDRCONFIG_IS_BROKEN "ADDRCONFIG_IS_BROKEN", #endif #ifdef AUTO_NETINFO_HOSTS "AUTO_NETINFO_HOSTS", #endif #ifdef AUTO_NIS_ALIASES "AUTO_NIS_ALIASES", #endif #if BROKEN_RES_SEARCH "BROKEN_RES_SEARCH", #endif #ifdef BSD4_4_SOCKADDR "BSD4_4_SOCKADDR", #endif #if BOGUS_O_EXCL "BOGUS_O_EXCL", #endif #if DEC_OSF_BROKEN_GETPWENT "DEC_OSF_BROKEN_GETPWENT", #endif #if DNSSEC_TEST "DNSSEC_TEST", #endif #if FAST_PID_RECYCLE "FAST_PID_RECYCLE", #endif #if HASCLOSEFROM "HASCLOSEFROM", #endif #if HASFCHOWN "HASFCHOWN", #endif #if HASFCHMOD "HASFCHMOD", #endif #if HASFDWALK "HASFDWALK", #endif #if HASFLOCK "HASFLOCK", #endif #if HASGETDTABLESIZE "HASGETDTABLESIZE", #endif #if HAS_GETHOSTBYNAME2 "HAS_GETHOSTBYNAME2", #endif #if HASGETUSERSHELL "HASGETUSERSHELL", #endif #if HASINITGROUPS "HASINITGROUPS", #endif #if HASLDAPGETALIASBYNAME "HASLDAPGETALIASBYNAME", #endif #if HASLSTAT "HASLSTAT", #endif #if HASNICE "HASNICE", #endif #if HASRANDOM "HASRANDOM", #endif #if HASRRESVPORT "HASRRESVPORT", #endif #if HASSETEGID "HASSETEGID", #endif #if HASSETLOGIN "HASSETLOGIN", #endif #if HASSETREGID "HASSETREGID", #endif #if HASSETRESGID "HASSETRESGID", #endif #if HASSETREUID "HASSETREUID", #endif #if HASSETRLIMIT "HASSETRLIMIT", #endif #if HASSETSID "HASSETSID", #endif #if HASSETUSERCONTEXT "HASSETUSERCONTEXT", #endif #if HASSETVBUF "HASSETVBUF", #endif #if HAS_ST_GEN "HAS_ST_GEN", #endif #if HASSRANDOMDEV "HASSRANDOMDEV", #endif #if HASURANDOMDEV "HASURANDOMDEV", #endif #if HASSTRERROR "HASSTRERROR", #endif #if HASULIMIT "HASULIMIT", #endif #if HASUNAME "HASUNAME", #endif #if HASUNSETENV "HASUNSETENV", #endif #if HASWAITPID "HASWAITPID", #endif #if HAVE_NANOSLEEP "HAVE_NANOSLEEP", #endif #if IDENTPROTO "IDENTPROTO", #endif #if IP_SRCROUTE "IP_SRCROUTE", #endif #if O_EXLOCK && HASFLOCK && !BOGUS_O_EXCL "LOCK_ON_OPEN", #endif #if MILTER_NO_NAGLE "MILTER_NO_NAGLE ", #endif #if NEEDFSYNC "NEEDFSYNC", #endif #if NEEDLINK "NEEDLINK", #endif #if NEEDLOCAL_HOSTNAME_LENGTH "NEEDLOCAL_HOSTNAME_LENGTH", #endif #if NEEDSGETIPNODE "NEEDSGETIPNODE", #endif #if NEEDSTRSTR "NEEDSTRSTR", #endif #if NEEDSTRTOL "NEEDSTRTOL", #endif #ifdef NO_GETSERVBYNAME "NO_GETSERVBYNAME", #endif #if NOFTRUNCATE "NOFTRUNCATE", #endif #if REQUIRES_DIR_FSYNC "REQUIRES_DIR_FSYNC", #endif #if RLIMIT_NEEDS_SYS_TIME_H "RLIMIT_NEEDS_SYS_TIME_H", #endif #if SAFENFSPATHCONF "SAFENFSPATHCONF", #endif #if SECUREWARE "SECUREWARE", #endif #if SFS_TYPE == SFS_4ARGS "SFS_4ARGS", #elif SFS_TYPE == SFS_MOUNT "SFS_MOUNT", #elif SFS_TYPE == SFS_NONE "SFS_NONE", #elif SFS_TYPE == SFS_NT "SFS_NT", #elif SFS_TYPE == SFS_STATFS "SFS_STATFS", #elif SFS_TYPE == SFS_STATVFS "SFS_STATVFS", #elif SFS_TYPE == SFS_USTAT "SFS_USTAT", #elif SFS_TYPE == SFS_VFS "SFS_VFS", #endif #if SHARE_V1 "SHARE_V1", #endif #if SIOCGIFCONF_IS_BROKEN "SIOCGIFCONF_IS_BROKEN", #endif #if SIOCGIFNUM_IS_BROKEN "SIOCGIFNUM_IS_BROKEN", #endif #if SNPRINTF_IS_BROKEN "SNPRINTF_IS_BROKEN", #endif #if SO_REUSEADDR_IS_BROKEN "SO_REUSEADDR_IS_BROKEN", #endif #if SYS5SETPGRP "SYS5SETPGRP", #endif #if SYSTEM5 "SYSTEM5", #endif #if USE_DOUBLE_FORK "USE_DOUBLE_FORK", #endif #if USE_ENVIRON "USE_ENVIRON", #endif #if USE_SA_SIGACTION "USE_SA_SIGACTION", #endif #if USE_SIGLONGJMP "USE_SIGLONGJMP", #endif #if USEGETCONFATTR "USEGETCONFATTR", #endif #if USESETEUID "USESETEUID", #endif #ifdef USESYSCTL "USESYSCTL", #endif #if USE_OPENSSL_ENGINE /* ** 0: OpenSSL ENGINE? ** 1: Support Sun OpenSSL patch for SPARC T4 pkcs11 ** 2: none */ # if USE_OPENSSL_ENGINE != 1 "USE_OPENSSL_ENGINE=" SM_XSTR(USE_OPENSSL_ENGINE), # else "USE_OPENSSL_ENGINE", # endif #endif #if USING_NETSCAPE_LDAP "USING_NETSCAPE_LDAP", #endif #ifdef WAITUNION "WAITUNION", #endif NULL }; /* ** FFR compile options. */ char *FFRCompileOptions[] = { #if _FFR_ADD_BCC /* see cf/feature/bcc.m4 */ "_FFR_ADD_BCC", #endif #if _FFR_ADDR_TYPE_MODES /* more info in {addr_type}, requires m4 changes! */ "_FFR_ADDR_TYPE_MODES", #endif #if _FFR_ALIAS_DETAIL /* try to handle +detail for aliases */ "_FFR_ALIAS_DETAIL", #endif #if _FFR_ALLOW_SASLINFO /* DefaultAuthInfo can be specified by user. */ /* DefaultAuthInfo doesn't really work in 8.13ff anymore. */ "_FFR_ALLOW_SASLINFO", #endif #if _FFR_BADRCPT_SHUTDOWN /* shut down connection (421) if there are too many bad RCPTs */ "_FFR_BADRCPT_SHUTDOWN", #endif #if _FFR_BESTMX_BETTER_TRUNCATION /* Better truncation of list of MX records for dns map. */ "_FFR_BESTMX_BETTER_TRUNCATION", #endif #if _FFR_BLANKENV_MACV /* also look up macros in BlankEnvelope */ "_FFR_BLANKENV_MACV", #endif #if _FFR_BOUNCE_QUEUE /* Separate, unprocessed queue for DSNs */ /* John Gardiner Myers of Proofpoint */ "_FFR_BOUNCE_QUEUE", #endif #if _FFR_CATCH_BROKEN_MTAS /* Deal with MTAs that send a reply during the DATA phase. */ "_FFR_CATCH_BROKEN_MTAS", #endif #if _FFR_CHK_QUEUE /* Stricter checks about queue directory permissions. */ "_FFR_CHK_QUEUE", #endif #if _FFR_CLASS_RM_ENTRY /* WIP: remove entries from a class: C-{name}entry */ "_FFR_CLASS_RM_ENTRY", #endif #if _FFR_CLIENTCA /* ** Allow to set client specific CA values. ** CACertFile: see doc/op.*: ** "The DNs of these certificates are sent to the client ** during the TLS handshake (as part of the CertificateRequest) ** as the list of acceptable CAs. ** However, do not list too many root CAs in that file, ** otherwise the TLS handshake may fail;" ** In TLSv1.3 the certs in CACertFile are also sent by ** the client to the server and there is seemingly a ** 16KB limit (just in OpenSSL?). ** Having a separate CACertFile for the client ** helps to avoid this problem. */ "_FFR_CLIENTCA", #endif #if _FFR_CLIENT_SIZE /* Don't try to send mail if its size exceeds SIZE= of server. */ "_FFR_CLIENT_SIZE", #endif #if _FFR_DIGUNIX_SAFECHOWN /* Properly set SAFECHOWN (include/sm/conf.h) for Digital UNIX */ /* Problem noted by Anne Bennett of Concordia University */ "_FFR_DIGUNIX_SAFECHOWN", #endif #if _FFR_DM_ONE /* deliver first TA in background, then queue */ "_FFR_DM_ONE", #endif #if _FFR_DMTRIGGER /* ** WIP: DeliveryMode=Trigger: queue message and notify ** some kind of queue manager about it. */ "_FFR_DMTRIGGER", #endif #if _FFR_DNSMAP_ALIASABLE /* Allow dns map type to be used for aliases. */ /* Don Lewis of TDK */ "_FFR_DNSMAP_ALIASABLE", #endif #if _FFR_DONTLOCKFILESFORREAD_OPTION /* Enable DontLockFilesForRead option. */ "_FFR_DONTLOCKFILESFORREAD_OPTION", #endif #if _FFR_DOTTED_USERNAMES /* Allow usernames with '.' */ "_FFR_DOTTED_USERNAMES", #endif #if _FFR_DPO_CS /* ** Make DaemonPortOptions case sensitive. ** For some unknown reasons the code converted every option ** to uppercase (first letter only, as that's the only one that ** is actually checked). This prevented all new lower case options ** from working... ** The documentation doesn't say anything about case (in)sensitivity, ** which means it should be case sensitive by default, ** but it's not a good idea to change this within a patch release, ** so let's delay this to 8.15. */ "_FFR_DPO_CS", #endif #if _FFR_DPRINTF_MAP /* dprintf map for logging */ "_FFR_DPRINTF_MAP", #endif #if _FFR_DROP_TRUSTUSER_WARNING /* ** Don't issue this warning: ** "readcf: option TrustedUser may cause problems on systems ** which do not support fchown() if UseMSP is not set. */ "_FFR_DROP_TRUSTUSER_WARNING", #endif #if _FFR_DYN_CLASS /* dynamic classes based on maps */ "_FFR_DYN_CLASS", #endif #if _FFR_EIGHT_BIT_ADDR_OK /* ** EightBitAddrOK: allow all 8-bit e-mail addresses. ** By default only ((ch & 0340) == 0200) is blocked ** because that range is used for "META" chars. */ "_FFR_EIGHT_BIT_ADDR_OK", #endif #if _FFR_EXPAND_HELONAME /* perform macro expansion for heloname */ "_FFR_EXPAND_HELONAME", #endif #if _FFR_EXTRA_MAP_CHECK /* perform extra checks on $( $) in R lines */ "_FFR_EXTRA_MAP_CHECK", #endif #if _FFR_GETHBN_ExFILE /* ** According to Motonori Nakamura some gethostbyname() ** implementations (TurboLinux?) may (temporarily) fail ** due to a lack of file descriptors. Enabling this FFR ** will check errno for EMFILE and ENFILE and in case of a match ** cause a temporary error instead of a permanent error. ** The right solution is of course to file a bug against those ** systems such that they actually set h_errno = TRY_AGAIN. */ "_FFR_GETHBN_ExFILE", #endif #if _FFR_FIPSMODE /* FIPSMode (if supported by OpenSSL library) */ "_FFR_FIPSMODE", #endif #if _FFR_FIX_DASHT /* ** If using -t, force not sending to argv recipients, even ** if they are mentioned in the headers. */ "_FFR_FIX_DASHT", #endif #if _FFR_FORWARD_SYSERR /* Cause a "syserr" if forward file isn't "safe". */ "_FFR_FORWARD_SYSERR", #endif #if _FFR_GEN_ORCPT /* Generate a ORCPT DSN arg if not already provided */ "_FFR_GEN_ORCPT", #endif #if _FFR_HANDLE_ISO8859_GECOS /* ** Allow ISO 8859 characters in GECOS field: replace them ** with ASCII "equivalent". */ /* Peter Eriksson of Linkopings universitet */ "_FFR_HANDLE_ISO8859_GECOS", #endif #if _FFR_HANDLE_HDR_RW_TEMPFAIL /* ** Temporary header rewriting problems from remotename() etc ** are not "sticky" for mci (e.g., during queue runs). */ "_FFR_HANDLE_HDR_RW_TEMPFAIL", #endif #if _FFR_HPUX_NSSWITCH /* Use nsswitch on HP-UX */ "_FFR_HPUX_NSSWITCH", #endif #if _FFR_IGNORE_BOGUS_ADDR /* Ignore addresses for which prescan() failed */ "_FFR_IGNORE_BOGUS_ADDR", #endif #if _FFR_IGNORE_EXT_ON_HELO /* Ignore extensions offered in response to HELO */ "_FFR_IGNORE_EXT_ON_HELO", #endif #if _FFR_KEEPBCC /* Keep Bcc header */ "_FFR_KEEPBCC", #endif #if _FFR_LOCAL_DAEMON /* Local daemon mode (-bl) which only accepts loopback connections */ "_FFR_LOCAL_DAEMON", #endif #if _FFR_LOG_FAILOVER /* WIP: log reason why trying another host */ "_FFR_LOG_FAILOVER", #endif #if _FFR_LOG_MORE1 /* log some TLS/AUTH info in from= too */ "_FFR_LOG_MORE1=" SM_XSTR(_FFR_LOG_MORE1), #endif #if _FFR_LOG_MORE2 /* log some TLS info in to= too */ "_FFR_LOG_MORE2=" SM_XSTR(_FFR_LOG_MORE2), #endif #if _FFR_LOG_STAGE /* log protocol stage for delivery problems */ "_FFR_LOG_STAGE", #endif #if _FFR_MAIL_MACRO /* make the "real" sender address available in {mail_from} */ "_FFR_MAIL_MACRO", #endif #if _FFR_MAP_CHK_FILE /* check whether the underlying map file was changed */ "_FFR_MAP_CHK_FILE=" SM_XSTR(_FFR_MAP_CHK_FILE), #endif #if _FFR_MAXDATASIZE /* ** It is possible that a header is larger than MILTER_CHUNK_SIZE, ** hence this shouldn't be used as limit for milter communication. ** see also libmilter/comm.c ** Gurusamy Sarathy of ActiveState */ "_FFR_MAXDATASIZE", #endif #if _FFR_MAX_FORWARD_ENTRIES /* Try to limit number of .forward entries */ /* (doesn't work) */ /* Randall S. Winchester of the University of Maryland */ "_FFR_MAX_FORWARD_ENTRIES", #endif #if _FFR_MAX_SLEEP_TIME /* Limit sleep(2) time in libsm/clock.c */ "_FFR_MAX_SLEEP_TIME", #endif #if _FFR_MDS_NEGOTIATE /* MaxDataSize negotiation with libmilter */ "_FFR_MDS_NEGOTIATE", #endif #if _FFR_MEMSTAT /* Check free memory */ "_FFR_MEMSTAT", #endif #if _FFR_MILTER_CHECK /* for (lib)milter testing */ "_FFR_MILTER_CHECK", #endif #if _FFR_MILTER_CONNECT_REPLYCODE /* milter: propagate replycode returned by connect commands */ /* John Gardiner Myers of Proofpoint */ "_FFR_MILTER_CONNECT_REPLYCODE", #endif #if _FFR_MILTER_CONVERT_ALL_LF_TO_CRLF /* ** milter_body() uses the same conversion algorithm as putbody() ** to translate the "local" df format (\n) to SMTP format (\r\n). ** However, putbody() and mime8to7() use different conversion ** algorithms. ** If the input date does not follow the SMTP standard ** (e.g., if it has "naked \r"s), then the output from putbody() ** and mime8to7() will most likely be different. ** By turning on this FFR milter_body() will try to "imitate" ** mime8to7(). ** Note: there is no (simple) way to deal with both conversions ** in a consistent manner. Moreover, as the "GiGo" principle applies, ** it's not really worth to fix it. */ "_FFR_MILTER_CONVERT_ALL_LF_TO_CRLF", #endif #if _FFR_MILTER_CHECK_REJECTIONS_TOO /* ** Also send RCPTs that are rejected by check_rcpt to a milter ** (if requested during option negotiation). */ "_FFR_MILTER_CHECK_REJECTIONS_TOO", #endif #if _FFR_MILTER_ENHSC /* extract enhanced status code from milter replies for dsn= logging */ "_FFR_MILTER_ENHSC", #endif #if _FFR_MIME7TO8_OLD /* Old mime7to8 code, the new is broken for at least one example. */ "_FFR_MIME7TO8_OLD", #endif #if _FFR_MORE_MACROS /* allow more long macro names ("unprintable" characters). */ "_FFR_MORE_MACROS", #endif #if _FFR_MSG_ACCEPT /* allow to override "Message accepted for delivery" */ "_FFR_MSG_ACCEPT", #endif #if _FFR_MTA_MODE /* do not modify headers -- does NOT (yet) work */ "_FFR_MTA_MODE", #endif #if _FFR_MTA_STS # if !MAP_REGEX # error "_FFR_MTA_STS requires MAP_REGEX" # endif # if !STARTTLS # error "_FFR_MTA_STS requires STARTTLS" # endif # if !_FFR_TLS_ALTNAMES # error "_FFR_MTA_STS requires _FFR_TLS_ALTNAMES" # endif /* MTA STS support */ "_FFR_MTA_STS", #endif /* _FFR_MTA_STS */ #if _FFR_NODELAYDSN_ON_HOLD /* Do not issue a DELAY DSN for mailers that use the hold flag. */ /* Steven Pitzl */ "_FFR_NODELAYDSN_ON_HOLD", #endif #if _FFR_NO_PIPE /* Disable PIPELINING, delay client if used. */ "_FFR_NO_PIPE", #endif #if _FFR_LDAP_SINGLEDN /* ** The LDAP database map code in Sendmail 8.12.10, when ** given the -1 switch, would match only a single DN, ** but was able to return multiple attributes for that ** DN. In Sendmail 8.13 this "bug" was corrected to ** only return if exactly one attribute matched. ** ** Unfortunately, our configuration uses the former ** behaviour. Attached is a relatively simple patch ** to 8.13.4 which adds a -2 switch (for lack of a ** better option) which returns the single dn/multiple ** attributes. ** ** Jeffrey T. Eaton, Carnegie-Mellon University */ "_FFR_LDAP_SINGLEDN", #endif #if _FFR_LOG_NTRIES /* log ntries=, from Nik Clayton of FreeBSD */ "_FFR_LOG_NTRIES", #endif #if _FFR_OCC # if SM_CONF_SHM /* outgoing connection control (not yet working) */ "_FFR_OCC", # else # error "_FFR_OCC requires SM_CONF_SHM" # endif #endif #if _FFR_PROXY /* "proxy" (synchronous) delivery mode */ "_FFR_PROXY", #endif #if _FFR_QF_PARANOIA /* Check to make sure key fields were read from qf */ "_FFR_QF_PARANOIA", #endif #if _FFR_QUEUE_GROUP_SORTORDER /* Allow QueueSortOrder per queue group. */ /* XXX: Still need to actually use qgrp->qg_sortorder */ "_FFR_QUEUE_GROUP_SORTORDER", #endif #if _FFR_QUEUE_MACRO /* Define {queue} macro. */ "_FFR_QUEUE_MACRO", #endif #if _FFR_QUEUE_RUN_PARANOIA /* Additional checks when doing queue runs; interval of checks */ "_FFR_QUEUE_RUN_PARANOIA", #endif #if _FFR_QUEUE_SCHED_DBG /* Debug output for the queue scheduler. */ "_FFR_QUEUE_SCHED_DBG", #endif #if _FFR_RCPTFLAGS /* dynamic mailer modifications via {rcpt_flags}*/ "_FFR_RCPTFLAGS", #endif #if _FFR_RCPTTHROTDELAY /* configurable delay for BadRcptThrottle */ "_FFR_RCPTTHROTDELAY", #endif #if _FFR_REDIRECTEMPTY /* ** envelope <> can't be sent to mailing lists, only owner- ** send spam of this type to owner- of the list ** ---- to stop spam from going to mailing lists. */ "_FFR_REDIRECTEMPTY", #endif #if _FFR_REJECT_NUL_BYTE /* reject NUL bytes in body */ "_FFR_REJECT_NUL_BYTE", #endif #if _FFR_REPLY_MULTILINE /* try to gather multi-line replies for reply= logging */ "_FFR_REPLY_MULTILINE=" SM_XSTR(_FFR_REPLY_MULTILINE), #endif #if _FFR_RESET_MACRO_GLOBALS /* Allow macro 'j' to be set dynamically via rulesets. */ "_FFR_RESET_MACRO_GLOBALS", #endif #if _FFR_RHS /* Random shuffle for queue sorting. */ "_FFR_RHS", #endif #if _FFR_RUNPQG /* ** allow -qGqueue_group -qp to work, i.e., ** restrict a persistent queue runner to a queue group. */ "_FFR_RUNPQG", #endif #if _FFR_SESSID /* session id (for logging): WIP, no logging yet! */ "_FFR_SESSID", #endif #if _FFR_SETANYOPT /* ** if _FFR_SETOPT_MAP is used: allow to set any option ** (which probably does not work as expected for many options). */ "_FFR_SETANYOPT", #endif #if _FFR_SETDEBUG_MAP /* enable setdebug map to set debug levels from rules */ "_FFR_SETDEBUG_MAP", #endif #if _FFR_SETOPT_MAP /* enable setopt map to set options from rules */ "_FFR_SETOPT_MAP", #endif #if _FFR_SHM_STATUS /* Donated code (unused). */ "_FFR_SHM_STATUS", #endif #if _FFR_SKIP_DOMAINS /* process every N'th domain instead of every N'th message */ "_FFR_SKIP_DOMAINS", #endif #if _FFR_SLEEP_USE_SELECT /* Use select(2) in libsm/clock.c to emulate sleep(2) */ "_FFR_SLEEP_USE_SELECT", #endif #if _FFR_SM_LDAP_DBG # if defined(LBER_OPT_LOG_PRINT_FN) /* LDAP debugging */ "_FFR_SM_LDAP_DBG", # else # error "_FFR_SM_LDAP_DBG requires LBER_OPT_LOG_PRINT_FN" # endif #endif #if _FFR_SPT_ALIGN /* ** It looks like the Compaq Tru64 5.1A now aligns argv and envp to 64 ** bit alignment, so unless each piece of argv and envp is a multiple ** of 8 bytes (including terminating NULL), initsetproctitle() won't ** use any of the space beyond argv[0]. Be sure to set SPT_ALIGN_SIZE ** if you use this FFR. */ /* Chris Adams of HiWAAY Informations Services */ "_FFR_SPT_ALIGN", #endif #if _FFR_SS_PER_DAEMON /* SuperSafe per DaemonPortOptions: 'T' (better letter?) */ "_FFR_SS_PER_DAEMON", #endif #if _FFR_TESTS /* enable some test code */ "_FFR_TESTS", #endif #if _FFR_TIMERS /* Donated code (unused). */ "_FFR_TIMERS", #endif #if _FFR_TLS_ALTNAMES /* store subjectAltNames in class {cert_altnames} */ "_FFR_TLS_ALTNAMES", #endif #if _FFR_TLSFB2CLEAR /* set default for TLSFallbacktoClear to true */ "_FFR_TLSFB2CLEAR", #endif #if _FFR_TLS_USE_CERTIFICATE_CHAIN_FILE /* ** Use SSL_CTX_use_certificate_chain_file() ** instead of SSL_CTX_use_certificate_file() */ "_FFR_TLS_USE_CERTIFICATE_CHAIN_FILE", #endif #if _FFR_TRUSTED_QF /* ** If we don't own the file mark it as unsafe. ** However, allow TrustedUser to own it as well ** in case TrustedUser manipulates the queue. */ "_FFR_TRUSTED_QF", #endif #if _FFR_USE_GETPWNAM_ERRNO /* ** See libsm/mbdb.c: only enable this on OSs ** that implement the correct (POSIX) semantics. ** This will need to become an OS-specific #if enabled ** in one of the headers files under include/sm/os/ . */ "_FFR_USE_GETPWNAM_ERRNO", #endif #if _FFR_VRFY_TRUSTED_FIRST /* ** Sets X509_V_FLAG_TRUSTED_FIRST if -d88;.101 is used. ** X509_VERIFY_PARAM_set_flags(3) ** When X509_V_FLAG_TRUSTED_FIRST is set, construction of the ** certificate chain in X509_verify_cert(3) will search the trust ** store for issuer certificates before searching the provided ** untrusted certificates. Local issuer certificates are often more ** likely to satisfy local security requirements and lead to a locally ** trusted root. This is especially important when some certificates ** in the trust store have explicit trust settings (see "TRUST ** SETTINGS" in x509(1)). ** As of OpenSSL 1.1.0 this option is on by default. */ # if defined(X509_V_FLAG_TRUSTED_FIRST) "_FFR_VRFY_TRUSTED_FIRST", # else # error "_FFR_VRFY_TRUSTED_FIRST set but X509_V_FLAG_TRUSTED_FIRST not defined" # endif #endif #if _FFR_USE_SEM_LOCKING /* Use semaphore locking */ "_FFR_USE_SEM_LOCKING", #endif #if _FFR_USE_SETLOGIN /* Use setlogin() */ /* Peter Philipp */ "_FFR_USE_SETLOGIN", #endif #if _FFR_XCNCT /* X-Connect support */ "_FFR_XCNCT", #endif #if _FFR_HAPROXY /* HAproxy support */ "_FFR_HAPROXY", #endif #if _FFR_LOGASIS /* only convert char <= 31 to something printable for logging etc */ "_FFR_LOGASIS=" SM_XSTR(_FFR_LOGASIS), #endif #if _FFR_NAMESERVER /* Allow to override nameserver set by OS */ "_FFR_NAMESERVER", #endif #if _FFR_NOREFLECT /* Do not include input from a client in a reply of the server */ "_FFR_NOREFLECT", #endif #if _FFR_AUTH_PASSING /* Set the default AUTH= if the sender didn't */ "_FFR_AUTH_PASSING", #endif #if _FFR_HOST_SORT_REVERSE /* Reverse sort for host for recipient sorting pre-envelope-split */ "_FFR_HOST_SORT_REVERSE", #endif #if _FFR_MSP_PARANOIA /* ** Forbid queue groups, multiple queues, and ** dangerous queue permissions when operating as an MSP */ "_FFR_MSP_PARANOIA", #endif #if _FFR_ANY_FREE_FS /* ** Check whether there is at least one fs with enough space ** (may not work, needs review) */ "_FFR_ANY_FREE_FS", #endif #if _FFR_MIME_CR_OK /* ** Strip trailing CR in MIME boundaries ** (may not work, needs review) */ "_FFR_MIME_CR_OK", #endif #if _FFR_M_ONLY_IPV4 /* mailer flag 4: use only IPv4 for delivery attempts */ "_FFR_M_ONLY_IPV4", #endif #if _FFR_SMTPS_CLIENT /* SMTP over TLS client (defaults to port 465/tcp outbound) */ "_FFR_SMTPS_CLIENT", #endif NULL }; sendmail-8.18.1/sendmail/sched.c0000644000372400037240000000737214556365350016026 0ustar xbuildxbuild/* * Copyright (c) 2021 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #if _FFR_DMTRIGGER #include #include static ENVELOPE QmEnvelope; /* ** Macro for fork(): ** FORK_P1(): parent ** FORK_C1(): child ** Note: these are not "universal", e.g., ** proc_list_add() might be used in parent or child. ** maybe check pname != NULL to invoke proc_list_add()? */ #define FORK_P1(emsg, pname, ptype) \ do { \ (void) sm_blocksignal(SIGCHLD); \ (void) sm_signal(SIGCHLD, reapchild); \ \ pid = dofork(); \ if (pid == -1) \ { \ const char *msg = emsg; \ const char *err = sm_errstring(errno); \ \ if (LogLevel > 8) \ sm_syslog(LOG_INFO, NOQID, "%s: %s", \ msg, err); \ (void) sm_releasesignal(SIGCHLD); \ return false; \ } \ if (pid != 0) \ { \ proc_list_add(pid, pname, ptype, 0, -1, NULL); \ /* parent -- pick up intermediate zombie */ \ (void) sm_releasesignal(SIGCHLD); \ return true; \ } \ } while (0) #define FORK_C1() \ do { \ /* child -- clean up signals */ \ \ /* Reset global flags */ \ RestartRequest = NULL; \ RestartWorkGroup = false; \ ShutdownRequest = NULL; \ PendingSignal = 0; \ CurrentPid = getpid(); \ close_sendmail_pid(); \ \ /* \ ** Initialize exception stack and default exception \ ** handler for child process. \ */ \ \ sm_exc_newthread(fatal_error); \ clrcontrol(); \ proc_list_clear(); \ \ (void) sm_releasesignal(SIGCHLD); \ (void) sm_signal(SIGCHLD, SIG_DFL); \ (void) sm_signal(SIGHUP, SIG_DFL); \ (void) sm_signal(SIGTERM, intsig); \ \ /* drop privileges */ \ if (geteuid() == (uid_t) 0) \ (void) drop_privileges(false); \ disconnect(1, NULL); \ QuickAbort = false; \ \ } while (0) /* ** QM -- queue "manager" ** ** Parameters: ** none. ** ** Returns: ** false on error ** ** Side Effects: ** fork()s and runs as process to deliver queue entries */ bool qm() { int r; pid_t pid; long tmo; sm_syslog(LOG_DEBUG, NOQID, "queue manager: start"); FORK_P1("Queue manager -- fork() failed", "QM", PROC_QM); FORK_C1(); r = sm_notify_start(true, 0); if (r != 0) syserr("sm_notify_start() failed=%d", r); /* ** Initially wait indefinitely, then only wait ** until something needs to get done (not yet implemented). */ tmo = -1; while (true) { char buf[64]; ENVELOPE *e; SM_RPOOL_T *rpool; /* ** TODO: This should try to receive multiple ids: ** after it got one, check for more with a very short timeout ** and collect them in a list. ** but them some other code should be used to run all of them. */ sm_syslog(LOG_DEBUG, NOQID, "queue manager: rcv=start"); r = sm_notify_rcv(buf, sizeof(buf), tmo); if (-ETIMEDOUT == r) { sm_syslog(LOG_DEBUG, NOQID, "queue manager: rcv=timed_out"); continue; } if (r < 0) { sm_syslog(LOG_DEBUG, NOQID, "queue manager: rcv=%d", r); goto end; } if (r > 0 && r < sizeof(buf)) buf[r] = '\0'; buf[sizeof(buf) - 1] = '\0'; sm_syslog(LOG_DEBUG, NOQID, "queue manager: got=%s", buf); CurEnv = &QmEnvelope; rpool = sm_rpool_new_x(NULL); e = newenvelope(&QmEnvelope, CurEnv, rpool); e->e_flags = BlankEnvelope.e_flags; e->e_parent = NULL; r = sm_io_sscanf(buf, "N:%d:%d:%s", &e->e_qgrp, &e->e_qdir, e->e_id); if (r != 3) { sm_syslog(LOG_DEBUG, NOQID, "queue manager: buf=%s, scan=%d", buf, r); goto end; } dowork(e->e_qgrp, e->e_qdir, e->e_id, true, false, e); } end: sm_syslog(LOG_DEBUG, NOQID, "queue manager: stop"); finis(false, false, EX_OK); /* NOTREACHED */ return false; } #endif /* _FFR_DMTRIGGER */ sendmail-8.18.1/sendmail/sendmail.h0000644000372400037240000033364414556365350016545 0ustar xbuildxbuild/* * Copyright (c) 1998-2013, 2023,2024 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ /* ** SENDMAIL.H -- MTA-specific definitions for sendmail. */ #ifndef _SENDMAIL_H # define _SENDMAIL_H 1 #ifndef MILTER # define MILTER 1 /* turn on MILTER by default */ #endif #ifdef _DEFINE # define EXTERN #else # define EXTERN extern #endif #include #include #include #include #include #include #include #include #include "sendmail/sendmail.h" #if STARTTLS # include # if _FFR_TLSA_DANE && !defined(DANE) # define DANE _FFR_TLSA_DANE # endif #else /* STARTTLS */ # if DANE # error "DANE set but STARTTLS not defined" # endif # if _FFR_TLS_ALTNAMES # error "_FFR_TLS_ALTNAMES set but STARTTLS not defined" # endif # if _FFR_TLSFB2CLEAR # error "_FFR_TLSFB2CLEAR set but STARTTLS not defined" # endif # if _FFR_TLS_USE_CERTIFICATE_CHAIN_FILE # error "_FFR_TLS_USE_CERTIFICATE_CHAIN_FILE set but STARTTLS not defined" # endif #endif /* STARTTLS */ /* profiling? */ #if MONCONTROL # define SM_PROF(x) moncontrol(x) #else # define SM_PROF(x) #endif #ifdef _DEFINE # ifndef lint SM_UNUSED(static char SmailId[]) = "@(#)$Id: sendmail.h,v 8.1104 2013-11-22 20:51:56 ca Exp $"; # endif #endif #include "bf.h" #include "timers.h" #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef LOG # include #endif #if NETINET || NETINET6 || NETUNIX || NETISO || NETNS || NETX25 # include #endif #if NETUNIX # include #endif #if NETINET || NETINET6 # include #endif #if NETINET6 /* ** There is no standard yet for IPv6 includes. ** Specify OS specific implementation in conf.h */ #endif /* NETINET6 */ #if NETISO # include #endif #if NETNS # include #endif #if NETX25 # include #endif #if NAMED_BIND # include # ifdef NOERROR # undef NOERROR /* avoid conflict */ # endif # include # if !defined(NO_DATA) # define NO_DATA NO_ADDRESS # endif #else /* NAMED_BIND */ # undef SM_SET_H_ERRNO # define SM_SET_H_ERRNO(err) #endif /* NAMED_BIND */ #if HESIOD # include # if !defined(HES_ER_OK) || defined(HESIOD_INTERFACES) # define HESIOD_INIT /* support for the new interface */ # endif #endif /* HESIOD */ #if USE_EAI && !defined(ALLOW_255) # define ALLOW_255 1 #endif #if _FFR_EAI && _FFR_EIGHT_BIT_ADDR_OK # error "Cannot enable both of these FFRs: _FFR_EAI _FFR_EIGHT_BIT_ADDR_OK" #endif #if _FFR_OCC && !SM_CONF_SHM # error "_FFR_OCC requires SM_CONF_SHM" #endif #if !NOT_SENDMAIL # if _FFR_SM_LDAP_DBG && !(LDAPMAP && defined(LBER_OPT_LOG_PRINT_FN)) # error "_FFR_SM_LDAP_DBG requires LDAPMAP and LBER_OPT_LOG_PRINT_FN" # endif #endif #if _FFR_LOG_MORE1 > 1 || _FFR_LOG_MORE2 > 1 # if _FFR_LOG_MORE1 != _FFR_LOG_MORE2 # error "_FFR_LOG_MORE1 != _FFR_LOG_MORE2" # endif #endif #if !NOT_SENDMAIL # if LDAP_NETWORK_TIMEOUT && !(LDAPMAP && defined(LDAP_OPT_NETWORK_TIMEOUT)) # error "LDAP_NETWORK_TIMEOUT requires LDAPMAP" # endif #endif #if !NOT_SENDMAIL # if LDAP_REFERRALS && !LDAPMAP # error "LDAP_REFERRALS requires LDAPMAP" # endif #endif #if _FFR_VRFY_TRUSTED_FIRST && !defined(X509_V_FLAG_TRUSTED_FIRST) # error "_FFR_VRFY_TRUSTED_FIRST set but X509_V_FLAG_TRUSTED_FIRST not defined" #endif #if _FFR_8BITENVADDR # define MAXNAME_I ((MAXNAME) * 2) #else # define MAXNAME_I MAXNAME #endif #if !defined(_FFR_M_ONLY_IPV4) # define _FFR_M_ONLY_IPV4 1 #endif #define SM_IS_EMPTY(s) (NULL == (s) || '\0' == *(s)) #if STARTTLS # if DANE # define DANE_FP_LOG_LEN 256 # define DANE_FP_DBG_LEN 4096 struct dane_vrfy_ctx_S { /* see tls.h: values for DANE option and dane_vrfy_chk */ int dane_vrfy_chk; int dane_vrfy_res; int dane_vrfy_port; /* use OpenSSL functions for DANE checks? */ bool dane_vrfy_dane_enabled; /* look up TLSA RRs, SNI unless dane_tlsa_sni is set. */ char *dane_vrfy_host; char *dane_vrfy_sni; /* if not NULL: use for SNI */ /* fingerprint in printable format - just for logging */ char dane_vrfy_fp[DANE_FP_LOG_LEN]; }; typedef struct dane_tlsa_S dane_tlsa_T, *dane_tlsa_P; typedef struct dane_vrfy_ctx_S dane_vrfy_ctx_T, *dane_vrfy_ctx_P; # endif /* DANE */ /* TLS information context */ struct tlsi_ctx_S { /* use unsigned long? */ BITMAP256 tlsi_flags; # if DANE dane_vrfy_ctx_T tlsi_dvc; # endif }; typedef struct tlsi_ctx_S tlsi_ctx_T, *tlsi_ctx_P; /* TLS information context flags */ #define TLSI_FL_CRLREQ 'R' /* CRL required */ #define TLSI_FL_FB2CLR 'C' /* fall back to clear text is ok */ #define TLSI_FL_NOFB2CLR 'c' /* do not fall back to clear text */ #define TLSI_FL_NODANE 'd' /* do not use/look up DANE */ #define TLSI_FL_NOSTS 'M' /* do not use/look up STS */ /* internal */ #define TLSI_FL_STS_NOFB2CLR 0x01 /* no clear text: STS is used */ #define SM_TLSI_IS(tlsi_ctx, flag) \ (((tlsi_ctx) != NULL) && bitnset((flag), (tlsi_ctx)->tlsi_flags)) /* ugly hack, is it worth using different values? */ # if _FFR_LOG_MORE1 > 1 || _FFR_LOG_MORE2 > 1 # define LOG_MORE_2(buf, bp) \ p = macvalue(macid("{tls_version}"), e); \ if (SM_IS_EMPTY(p)) \ p = "NONE"; \ (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", tls_version=%.10s", p); \ bp += strlen(bp); \ p = macvalue(macid("{cipher}"), e); \ if (SM_IS_EMPTY(p)) \ p = "NONE"; \ (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", cipher=%.20s", p); \ bp += strlen(bp); # else # define LOG_MORE_2(buf, bp) # endif # define LOG_MORE(buf, bp) \ p = macvalue(macid("{verify}"), e); \ if (SM_IS_EMPTY(p)) \ p = "NONE"; \ (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", tls_verify=%.20s", p); \ bp += strlen(bp); \ LOG_MORE_2(buf, bp) #else # define LOG_MORE(buf, bp) #endif /* STARTTLS */ #if SASL /* include the sasl include files if we have them */ # if SASL == 2 || SASL >= 20000 # include # include # include # if SASL_VERSION_FULL < 0x020119 typedef int (*sasl_callback_ft)(void); # endif # else /* SASL == 2 || SASL >= 20000 */ # include # include typedef int (*sasl_callback_ft)(void); # endif /* SASL == 2 || SASL >= 20000 */ # if defined(SASL_VERSION_MAJOR) && defined(SASL_VERSION_MINOR) && defined(SASL_VERSION_STEP) # define SASL_VERSION (SASL_VERSION_MAJOR * 10000) + (SASL_VERSION_MINOR * 100) + SASL_VERSION_STEP # if SASL == 1 || SASL == 2 # undef SASL # define SASL SASL_VERSION # else /* SASL == 1 || SASL == 2 */ # if SASL != SASL_VERSION # error "README: -DSASL (SASL) does not agree with the version of the CYRUS_SASL library (SASL_VERSION)" # error "README: see README!" # endif /* SASL != SASL_VERSION */ # endif /* SASL == 1 || SASL == 2 */ # else /* defined(SASL_VERSION_MAJOR) && defined(SASL_VERSION_MINOR) && defined(SASL_VERSION_STEP) */ # if SASL == 1 # error "README: please set -DSASL to the version of the CYRUS_SASL library" # error "README: see README!" # endif /* SASL == 1 */ # endif /* defined(SASL_VERSION_MAJOR) && defined(SASL_VERSION_MINOR) && defined(SASL_VERSION_STEP) */ #endif /* SASL */ /* ** Following are "sort of" configuration constants, but they should ** be pretty solid on most architectures today. They have to be ** defined after because some versions of that ** file also define them. In all cases, we can't use sizeof because ** some systems (e.g., Crays) always treat everything as being at ** least 64 bits. */ #ifndef INADDRSZ # define INADDRSZ 4 /* size of an IPv4 address in bytes */ #endif #ifndef IN6ADDRSZ # define IN6ADDRSZ 16 /* size of an IPv6 address in bytes */ #endif #ifndef INT16SZ # define INT16SZ 2 /* size of a 16 bit integer in bytes */ #endif #ifndef INT32SZ # define INT32SZ 4 /* size of a 32 bit integer in bytes */ #endif #ifndef INADDR_LOOPBACK # define INADDR_LOOPBACK 0x7f000001 /* loopback address */ #endif /* ** Error return from inet_addr(3), in case not defined in /usr/include. */ #ifndef INADDR_NONE # define INADDR_NONE 0xffffffff #endif /* By default use uncompressed IPv6 address format (no "::") */ #ifndef IPV6_FULL # define IPV6_FULL 1 #endif /* (f)open() modes for queue files */ #define QF_O_EXTRA 0 #define SM_ARRAY_SIZE(array) (sizeof(array) / sizeof((array)[0])) /* ** An 'argument class' describes the storage allocation status ** of an object pointed to by an argument to a function. */ typedef enum { A_HEAP, /* the storage was allocated by malloc, and the * ownership of the storage is ceded by the caller * to the called function. */ A_TEMP, /* The storage is temporary, and is only guaranteed * to be valid for the duration of the function call. */ A_PERM /* The storage is 'permanent': this might mean static * storage, or rpool storage. */ } ARGCLASS_T; /* forward references for prototypes */ typedef struct envelope ENVELOPE; typedef struct mailer MAILER; typedef struct queuegrp QUEUEGRP; /* ** Address structure. ** Addresses are stored internally in this structure. */ struct address { char *q_paddr; /* the printname for the address */ char *q_user; /* user name */ char *q_ruser; /* real user name, or NULL if q_user */ char *q_host; /* host name [x] */ #if DANE char *q_qname; /* original query (host) name */ #endif struct mailer *q_mailer; /* mailer to use */ unsigned long q_flags; /* status flags, see below */ uid_t q_uid; /* user-id of receiver (if known) */ gid_t q_gid; /* group-id of receiver (if known) */ char *q_home; /* home dir (local mailer only) */ char *q_fullname; /* full name if known */ struct address *q_next; /* chain */ struct address *q_alias; /* address this results from */ char *q_owner; /* owner of q_alias */ struct address *q_tchain; /* temporary use chain */ #if PIPELINING struct address *q_pchain; /* chain for pipelining */ #endif char *q_finalrcpt; /* Final-Recipient: DSN header */ char *q_orcpt; /* ORCPT parameter from RCPT TO: line */ char *q_status; /* status code for DSNs */ char *q_rstatus; /* remote status message for DSNs */ time_t q_statdate; /* date of status messages */ char *q_statmta; /* MTA generating q_rstatus */ short q_state; /* address state, see below */ char *q_signature; /* MX-based sorting value */ int q_qgrp; /* index into queue groups */ char *q_message; /* error message */ }; typedef struct address ADDRESS; /* ** Note: only some of the flags are saved in the queue; ** the code in queue.c does not use the actual value but maps each flag ** to/from an associated character. ** If the values would not change then those could be stored/retrieved ** directly (applying a mask to select those flags which should be kep) -- ** the mapping to/from characters provides a "defined" external interface ** provided those mappings are kept (and if an old mapping is removed then ** it should be kept as comment so it is not reused "too soon"). */ /* bit values for q_flags */ #define QGOODUID 0x00000001 /* the q_uid q_gid fields are good */ #define QPRIMARY 0x00000002 /* set from RCPT or argv */ #define QNOTREMOTE 0x00000004 /* address not for remote forwarding */ #define QSELFREF 0x00000008 /* this address references itself */ #define QBOGUSSHELL 0x00000010 /* user has no valid shell listed */ #define QUNSAFEADDR 0x00000020 /* address acquired via unsafe path */ #define QPINGONSUCCESS 0x00000040 /* give return on successful delivery */ #define QPINGONFAILURE 0x00000080 /* give return on failure */ #define QPINGONDELAY 0x00000100 /* give return on message delay */ #define QHASNOTIFY 0x00000200 /* propagate notify parameter */ #define QRELAYED 0x00000400 /* DSN: relayed to non-DSN aware sys */ #define QEXPANDED 0x00000800 /* DSN: undergone list expansion */ #define QDELIVERED 0x00001000 /* DSN: successful final delivery */ #define QDELAYED 0x00002000 /* DSN: message delayed */ #define QALIAS 0x00004000 /* expanded alias */ #define QBYTRACE 0x00008000 /* DeliverBy: trace */ #define QBYNDELAY 0x00010000 /* DeliverBy: notify, delay */ #define QBYNRELAY 0x00020000 /* DeliverBy: notify, relayed */ #define QINTBCC 0x00040000 /* internal Bcc */ #define QDYNMAILER 0x00080000 /* "dynamic mailer" */ #define QSECURE 0x00100000 /* DNSSEC ok for host lookup */ #define QQUEUED 0x00200000 /* queued */ #define QINTREPLY 0x00400000 /* internally rejected (delivery) */ #define QMXSECURE 0x00800000 /* DNSSEC ok for MX lookup */ #define QTHISPASS 0x40000000 /* temp: address set this pass */ #define QRCPTOK 0x80000000 /* recipient() processed address */ #define QDYNMAILFLG 'Y' #define Q_PINGFLAGS (QPINGONSUCCESS|QPINGONFAILURE|QPINGONDELAY) #define QISSECURE(r) (0 != ((r)->q_flags & QSECURE)) #if _FFR_RCPTFLAGS # define QMATCHFLAGS (QINTBCC|QDYNMAILER) # define QMATCH_FLAG(a) ((a)->q_flags & QMATCHFLAGS) # define ADDR_FLAGS_MATCH(a, b) (QMATCH_FLAG(a) == QMATCH_FLAG(b)) #else # define ADDR_FLAGS_MATCH(a, b) true #endif /* values for q_state */ #define QS_OK 0 /* address ok (for now)/not yet tried */ #define QS_SENT 1 /* good address, delivery complete */ #define QS_BADADDR 2 /* illegal address */ #define QS_QUEUEUP 3 /* save address in queue */ #define QS_RETRY 4 /* retry delivery for next MX */ #define QS_VERIFIED 5 /* verified, but not expanded */ /* ** Notice: all of the following values are variations of QS_DONTSEND. ** If new states are added, they must be inserted in the proper place! ** See the macro definition of QS_IS_DEAD() down below. */ #define QS_DONTSEND 6 /* don't send to this address */ #define QS_EXPANDED 7 /* expanded */ #define QS_SENDER 8 /* message sender (MeToo) */ #define QS_CLONED 9 /* addr cloned to split envelope */ #define QS_DISCARDED 10 /* rcpt discarded (EF_DISCARD) */ #define QS_REPLACED 11 /* maplocaluser()/UserDB replaced */ #define QS_REMOVED 12 /* removed (removefromlist()) */ #define QS_DUPLICATE 13 /* duplicate suppressed */ #define QS_INCLUDED 14 /* :include: delivery */ #define QS_FATALERR 15 /* fatal error, don't deliver */ /* address state testing primitives */ #define QS_IS_OK(s) ((s) == QS_OK) #define QS_IS_SENT(s) ((s) == QS_SENT) #define QS_IS_BADADDR(s) ((s) == QS_BADADDR) #define QS_IS_QUEUEUP(s) ((s) == QS_QUEUEUP) #define QS_IS_RETRY(s) ((s) == QS_RETRY) #define QS_IS_VERIFIED(s) ((s) == QS_VERIFIED) #define QS_IS_EXPANDED(s) ((s) == QS_EXPANDED) #define QS_IS_REMOVED(s) ((s) == QS_REMOVED) #define QS_IS_UNDELIVERED(s) ((s) == QS_OK || \ (s) == QS_QUEUEUP || \ (s) == QS_RETRY || \ (s) == QS_VERIFIED) #define QS_IS_UNMARKED(s) ((s) == QS_OK || \ (s) == QS_RETRY) #define QS_IS_SENDABLE(s) ((s) == QS_OK || \ (s) == QS_QUEUEUP || \ (s) == QS_RETRY) #define QS_IS_ATTEMPTED(s) ((s) == QS_QUEUEUP || \ (s) == QS_RETRY || \ (s) == QS_SENT || \ (s) == QS_DISCARDED) #define QS_IS_DEAD(s) ((s) >= QS_DONTSEND) #define QS_IS_TEMPFAIL(s) ((s) == QS_QUEUEUP || (s) == QS_RETRY) #define QUP_FL_NONE 0x0000 #define QUP_FL_ANNOUNCE 0x0001 #define QUP_FL_MSYNC 0x0002 #define QUP_FL_UNLOCK 0x0004 #define NULLADDR ((ADDRESS *) NULL) extern ADDRESS NullAddress; /* a null (template) address [main.c] */ /* for cataddr() */ #define NOSPACESEP 256 /* functions */ extern void cataddr __P((char **, char **, char *, int, int, bool)); extern char *crackaddr __P((char *, ENVELOPE *)); extern bool emptyaddr __P((ADDRESS *)); extern ADDRESS *getctladdr __P((ADDRESS *)); extern int include __P((char *, bool, ADDRESS *, ADDRESS **, int, ENVELOPE *)); extern bool invalidaddr __P((char *, char *, bool)); extern ADDRESS *parseaddr __P((char *, ADDRESS *, int, int, char **, ENVELOPE *, bool)); extern char **prescan __P((char *, int, char[], int, char **, unsigned char *, bool)); extern void printaddr __P((SM_FILE_T *, ADDRESS *, bool)); extern ADDRESS *recipient __P((ADDRESS *, ADDRESS **, int, ENVELOPE *)); extern char *remotename __P((char *, MAILER *, int, int *, ENVELOPE *)); extern int rewrite __P((char **, int, int, ENVELOPE *, int)); extern bool sameaddr __P((ADDRESS *, ADDRESS *)); extern int sendtolist __P((char *, ADDRESS *, ADDRESS **, int, ENVELOPE *)); #if MILTER extern int removefromlist __P((char *, ADDRESS **, ENVELOPE *)); #endif extern void setsender __P((char *, ENVELOPE *, char **, int, bool)); typedef void esmtp_args_F __P((ADDRESS *, char *, char *, ENVELOPE *)); extern void parse_esmtp_args __P((ENVELOPE *, ADDRESS *, char *, char *, char *, char *args[], esmtp_args_F)); extern esmtp_args_F mail_esmtp_args; extern esmtp_args_F rcpt_esmtp_args; extern void reset_mail_esmtp_args __P((ENVELOPE *)); /* macro to simplify the common call to rewrite() */ #define REWRITE(pvp, rs, env) rewrite(pvp, rs, 0, env, MAXATOM) /* ** Token Tables for prescan */ extern unsigned char ExtTokenTab[256]; /* external strings */ extern unsigned char IntTokenTab[256]; /* internal strings */ /* ** Mailer definition structure. ** Every mailer known to the system is declared in this ** structure. It defines the pathname of the mailer, some ** flags associated with it, and the argument vector to ** pass to it. The flags are defined in conf.c ** ** The argument vector is expanded before actual use. All ** words except the first are passed through the macro ** processor. */ struct mailer { char *m_name; /* symbolic name of this mailer */ char *m_mailer; /* pathname of the mailer to use */ char *m_mtatype; /* type of this MTA */ char *m_addrtype; /* type for addresses */ char *m_diagtype; /* type for diagnostics */ BITMAP256 m_flags; /* status flags, see below */ short m_mno; /* mailer number internally */ short m_nice; /* niceness to run at (mostly for prog) */ char **m_argv; /* template argument vector */ short m_sh_rwset; /* rewrite set: sender header addresses */ short m_se_rwset; /* rewrite set: sender envelope addresses */ short m_rh_rwset; /* rewrite set: recipient header addresses */ short m_re_rwset; /* rewrite set: recipient envelope addresses */ char *m_eol; /* end of line string */ long m_maxsize; /* size limit on message to this mailer */ int m_linelimit; /* max # characters per line */ int m_maxdeliveries; /* max deliveries per mailer connection */ char *m_execdir; /* directory to chdir to before execv */ char *m_rootdir; /* directory to chroot to before execv */ uid_t m_uid; /* UID to run as */ gid_t m_gid; /* GID to run as */ char *m_defcharset; /* default character set */ time_t m_wait; /* timeout to wait for end */ int m_maxrcpt; /* max recipients per envelope client-side */ short m_qgrp; /* queue group for this mailer */ #if DANE unsigned short m_port; /* port (if appropriate for mailer) */ #endif }; /* bits for m_flags */ #define M_xSMTP 0x01 /* internal: {ES,S,L}MTP */ #define M_ESMTP 'a' /* run Extended SMTP */ #define M_ALIASABLE 'A' /* user can be LHS of an alias */ #define M_BLANKEND 'b' /* ensure blank line at end of message */ #define M_STRIPBACKSL 'B' /* strip all leading backslashes from user */ #define M_NOCOMMENT 'c' /* don't include comment part of address */ #define M_CANONICAL 'C' /* make addresses canonical "u@dom" */ #define M_NOBRACKET 'd' /* never angle bracket envelope route-addrs */ /* 'D' CF: include Date: */ #define M_EXPENSIVE 'e' /* it costs to use this mailer.... */ #define M_ESCFROM 'E' /* escape From lines to >From */ #define M_FOPT 'f' /* mailer takes picky -f flag */ /* 'F' CF: include From: or Resent-From: */ #define M_NO_NULL_FROM 'g' /* sender of errors should be $g */ #define M_HST_UPPER 'h' /* preserve host case distinction */ #define M_PREHEAD 'H' /* MAIL11V3: preview headers */ #define M_UDBENVELOPE 'i' /* do udbsender rewriting on envelope */ #define M_INTERNAL 'I' /* SMTP to another sendmail site */ #define M_UDBRECIPIENT 'j' /* do udbsender rewriting on recipient lines */ #define M_NOLOOPCHECK 'k' /* don't check for loops in HELO command */ #define M_CHUNKING 'K' /* CHUNKING: reserved for future use */ #define M_LOCALMAILER 'l' /* delivery is to this host */ #define M_LIMITS 'L' /* must enforce SMTP line limits */ #define M_MUSER 'm' /* can handle multiple users at once */ /* 'M' CF: include Message-Id: */ #define M_NHDR 'n' /* don't insert From line */ #define M_MANYSTATUS 'N' /* MAIL11V3: DATA returns multi-status */ #define M_RUNASRCPT 'o' /* always run mailer as recipient */ /* 'O' free? */ #define M_FROMPATH 'p' /* use reverse-path in MAIL FROM: */ /* 'P' CF: include Return-Path: */ #define M_VRFY250 'q' /* VRFY command returns 250 instead of 252 */ #define M_ROPT 'r' /* mailer takes picky -r flag */ #define M_SECURE_PORT 'R' /* try to send on a reserved TCP port */ #define M_STRIPQ 's' /* strip quote chars from user/host */ #define M_SPECIFIC_UID 'S' /* run as specific uid/gid */ #define M_USR_UPPER 'u' /* preserve user case distinction */ #define M_UGLYUUCP 'U' /* this wants an ugly UUCP from line */ #define M_CONTENT_LEN 'v' /* add Content-Length: header (SVr4) */ /* 'V' UIUC: !-relativize all addresses */ #define M_HASPWENT 'w' /* check for /etc/passwd entry */ #define M_NOHOSTSTAT 'W' /* ignore long term host status information */ /* 'x' CF: include Full-Name: */ #define M_XDOT 'X' /* use hidden-dot algorithm */ /* 'y' free? */ /* 'Y' free? */ #define M_LMTP 'z' /* run Local Mail Transport Protocol */ #define M_DIALDELAY 'Z' /* apply dial delay sleeptime */ #define M_NOMX '0' /* turn off MX lookups */ #define M_NONULLS '1' /* don't send null bytes */ #define M_FSMTP '2' /* force SMTP (no ESMTP even if offered) */ #define M_EBCDIC '3' /* extend Q-P encoding for EBCDIC */ #define M_ONLY_IPV4 '4' /* Use only IPv4 */ #define M_TRYRULESET5 '5' /* use ruleset 5 after local aliasing */ #define M_7BITHDRS '6' /* strip headers to 7 bits even in 8 bit path */ #define M_7BITS '7' /* use 7-bit path */ #define M_8BITS '8' /* force "just send 8" behaviour */ #define M_MAKE8BIT '9' /* convert 7 -> 8 bit if appropriate */ #define M_CHECKINCLUDE ':' /* check for :include: files */ #define M_CHECKPROG '|' /* check for |program addresses */ #define M_CHECKFILE '/' /* check for /file addresses */ #define M_CHECKUDB '@' /* user can be user database key */ #define M_CHECKHDIR '~' /* SGI: check for valid home directory */ #define M_HOLD '%' /* Hold delivery until ETRN/-qI/-qR/-qS */ #define M_PLUS '+' /* Reserved: Used in mc for adding new flags */ #define M_MINUS '-' /* Reserved: Used in mc for removing flags */ #define M_NOMHHACK '!' /* Don't perform HM hack dropping explicit from */ #if _FFR_SMTPS_CLIENT # define M_SMTPS_CLIENT '_' /* use SMTP over TLS (465/TCP) */ #endif /* functions */ extern void initerrmailers __P((void)); extern void makemailer __P((char *)); extern void makequeue __P((char *, bool)); extern void runqueueevent __P((int)); #if _FFR_QUEUE_RUN_PARANOIA extern bool checkqueuerunner __P((void)); #endif EXTERN MAILER *FileMailer; /* ptr to *file* mailer */ EXTERN MAILER *InclMailer; /* ptr to *include* mailer */ EXTERN MAILER *LocalMailer; /* ptr to local mailer */ EXTERN MAILER *ProgMailer; /* ptr to program mailer */ #if _FFR_RCPTFLAGS EXTERN MAILER *Mailer[MAXMAILERS * 2 + 1]; #else EXTERN MAILER *Mailer[MAXMAILERS + 1]; #endif /* ** Queue group definition structure. ** Every queue group known to the system is declared in this structure. ** It defines the basic pathname of the queue group, some flags ** associated with it, and the argument vector to pass to it. */ struct qpaths_s { char *qp_name; /* name of queue dir, relative path */ short qp_subdirs; /* use subdirs? */ short qp_fsysidx; /* file system index of this directory */ #if SM_CONF_SHM int qp_idx; /* index into array for queue information */ #endif }; typedef struct qpaths_s QPATHS; struct queuegrp { char *qg_name; /* symbolic name of this queue group */ /* ** For now this is the same across all queue groups. ** Otherwise we have to play around with chdir(). */ char *qg_qdir; /* common component of queue directory */ short qg_index; /* queue number internally, index in Queue[] */ int qg_maxqrun; /* max # of jobs in one queuerun */ int qg_numqueues; /* number of queues in this queue group */ /* ** qg_queueintvl == 0 denotes that no individual value is used. ** Whatever accesses this must deal with "<= 0" as ** "not set, use appropriate default". */ time_t qg_queueintvl; /* interval for queue runs */ QPATHS *qg_qpaths; /* list of queue directories */ BITMAP256 qg_flags; /* status flags, see below */ short qg_nice; /* niceness for queue run */ int qg_wgrp; /* Assigned to this work group */ int qg_maxlist; /* max items in work queue for this group */ int qg_curnum; /* current number of queue for queue runs */ int qg_maxrcpt; /* max recipients per envelope, 0==no limit */ time_t qg_nextrun; /* time for next queue runs */ #if _FFR_QUEUE_GROUP_SORTORDER short qg_sortorder; /* how do we sort this queuerun */ #endif #if 0 long qg_wkrcptfact; /* multiplier for # recipients -> priority */ long qg_qfactor; /* slope of queue function */ bool qg_doqueuerun; /* XXX flag is it time to do a queuerun */ #endif /* 0 */ }; /* bits for qg_flags */ #define QD_DEFINED ((char) 1) /* queue group has been defined */ #define QD_FORK 'f' /* fork queue runs */ extern void filesys_update __P((void)); #if _FFR_ANY_FREE_FS extern bool filesys_free __P((long)); #endif #if SASL /* ** SASL */ /* lines in authinfo file or index into SASL_AI_T */ # define SASL_WRONG (-1) # define SASL_USER 0 /* authorization id (user) */ # define SASL_AUTHID 1 /* authentication id */ # define SASL_PASSWORD 2 /* password fuer authid */ # define SASL_DEFREALM 3 /* realm to use */ # define SASL_MECHLIST 4 /* list of mechanisms to try */ # define SASL_ID_REALM 5 /* authid@defrealm */ /* ** Current mechanism; this is just used to convey information between ** invocation of SASL callback functions. ** It must be last in the list, because it's not allocated by us ** and hence we don't free() it. */ # define SASL_MECH 6 # define SASL_ENTRIES 7 /* number of entries in array */ # define SASL_USER_BIT (1 << SASL_USER) # define SASL_AUTHID_BIT (1 << SASL_AUTHID) # define SASL_PASSWORD_BIT (1 << SASL_PASSWORD) # define SASL_DEFREALM_BIT (1 << SASL_DEFREALM) # define SASL_MECHLIST_BIT (1 << SASL_MECHLIST) /* authenticated? */ # define SASL_NOT_AUTH 0 /* not authenticated */ # define SASL_PROC_AUTH 1 /* in process of authenticating */ # define SASL_IS_AUTH 2 /* authenticated */ /* SASL options */ # define SASL_AUTH_AUTH 0x10000 /* use auth= only if authenticated */ # if SASL >= 20101 # define SASL_SEC_MASK SASL_SEC_MAXIMUM /* mask for SASL_SEC_* values: sasl.h */ # else /* SASL >= 20101 */ # define SASL_SEC_MASK 0x0fff /* mask for SASL_SEC_* values: sasl.h */ # if (SASL_SEC_NOPLAINTEXT & SASL_SEC_MASK) == 0 || \ (SASL_SEC_NOACTIVE & SASL_SEC_MASK) == 0 || \ (SASL_SEC_NODICTIONARY & SASL_SEC_MASK) == 0 || \ (SASL_SEC_FORWARD_SECRECY & SASL_SEC_MASK) == 0 || \ (SASL_SEC_NOANONYMOUS & SASL_SEC_MASK) == 0 || \ (SASL_SEC_PASS_CREDENTIALS & SASL_SEC_MASK) == 0 # error "change SASL_SEC_MASK notify sendmail.org!" # endif /* SASL_SEC_NOPLAINTEXT & SASL_SEC_MASK) == 0 ... */ # endif /* SASL >= 20101 */ # define MAXOUTLEN 8192 /* length of output buffer, should be 2^n */ # if (SASL_AUTH_AUTH & SASL_SEC_MASK) != 0 # error "change SASL_AUTH_AUTH notify sendmail.org!" # endif /* functions */ extern char *intersect __P((char *, char *, SM_RPOOL_T *)); extern char *iteminlist __P((char *, char *, char *)); # if SASL >= 20000 extern int proxy_policy __P((sasl_conn_t *, void *, const char *, unsigned, const char *, unsigned, const char *, unsigned, struct propctx *)); extern int safesaslfile __P((void *, const char *, sasl_verify_type_t)); # else /* SASL >= 20000 */ extern int proxy_policy __P((void *, const char *, const char *, const char **, const char **)); # if SASL > 10515 extern int safesaslfile __P((void *, char *, int)); # else /* SASL > 10515 */ extern int safesaslfile __P((void *, char *)); # endif /* SASL > 10515 */ # endif /* SASL >= 20000 */ extern void stop_sasl_client __P((void)); /* structure to store authinfo */ typedef char *SASL_AI_T[SASL_ENTRIES]; EXTERN char *AuthMechanisms; /* AUTH mechanisms */ EXTERN char *AuthRealm; /* AUTH realm */ EXTERN char *SASLInfo; /* file with AUTH info */ EXTERN int SASLOpts; /* options for SASL */ EXTERN int MaxSLBits; /* max. encryption bits for SASL */ #endif /* SASL */ /* ** Structure to store macros. */ typedef struct { SM_RPOOL_T *mac_rpool; /* resource pool */ BITMAP256 mac_allocated; /* storage has been alloc()? */ char *mac_table[MAXMACROID + 1]; /* macros */ } MACROS_T; EXTERN MACROS_T GlobalMacros; /* ** Information about currently open connections to mailers, or to ** hosts that we have looked up recently. */ #define MCI struct mailer_con_info MCI { unsigned long mci_flags; /* flag bits, see below */ short mci_errno; /* error number on last connection */ short mci_herrno; /* h_errno from last DNS lookup */ short mci_exitstat; /* exit status from last connection */ short mci_state; /* SMTP state */ int mci_deliveries; /* delivery attempts for connection */ long mci_maxsize; /* max size this server will accept */ SM_FILE_T *mci_in; /* input side of connection */ SM_FILE_T *mci_out; /* output side of connection */ pid_t mci_pid; /* process id of subordinate proc */ char *mci_phase; /* SMTP phase string */ struct mailer *mci_mailer; /* ptr to the mailer for this conn */ char *mci_host; /* host name */ char *mci_status; /* DSN status to be copied to addrs */ char *mci_rstatus; /* SMTP status to be copied to addrs */ time_t mci_lastuse; /* last usage time */ SM_FILE_T *mci_statfile; /* long term status file */ char *mci_heloname; /* name to use as HELO arg */ long mci_min_by; /* minimum DELIVERBY */ bool mci_retryrcpt; /* tempfail for at least one rcpt */ char *mci_tolist; /* list of valid recipients */ SM_RPOOL_T *mci_rpool; /* resource pool */ int mci_okrcpts; /* number of valid recipients */ #if PIPELINING ADDRESS *mci_nextaddr; /* next address for pipelined status */ #endif #if SASL SASL_AI_T mci_sai; /* authentication info */ bool mci_sasl_auth; /* authenticated? */ int mci_sasl_string_len; char *mci_sasl_string; /* sasl reply string */ char *mci_saslcap; /* SASL list of mechanisms */ sasl_conn_t *mci_conn; /* SASL connection */ #endif /* SASL */ #if STARTTLS SSL *mci_ssl; /* SSL connection */ tlsi_ctx_T mci_tlsi; #endif MACROS_T mci_macro; /* macro definitions */ }; /* MCI flag bits */ /* XREF: mci.c: MciFlags[]: needs to be kept in sync! */ /* 0x00000001 unused, was MCIF_VALID: this entry is valid */ #define MCIF_OCC_INCR 0x00000002 /* occ values increased */ #define MCIF_CACHED 0x00000004 /* currently in open cache */ #define MCIF_ESMTP 0x00000008 /* this host speaks ESMTP */ #define MCIF_EXPN 0x00000010 /* EXPN command supported */ #define MCIF_SIZE 0x00000020 /* SIZE option supported */ #define MCIF_8BITMIME 0x00000040 /* BODY=8BITMIME supported */ #define MCIF_7BIT 0x00000080 /* strip this message to 7 bits */ /* 0x00000100 unused, was MCIF_MULTSTAT: MAIL11V3: handles MULT status */ #define MCIF_INHEADER 0x00000200 /* currently outputting header */ #define MCIF_CVT8TO7 0x00000400 /* convert from 8 to 7 bits */ #define MCIF_DSN 0x00000800 /* DSN extension supported */ #define MCIF_8BITOK 0x00001000 /* OK to send 8 bit characters */ #define MCIF_CVT7TO8 0x00002000 /* convert from 7 to 8 bits */ #define MCIF_INMIME 0x00004000 /* currently reading MIME header */ #define MCIF_AUTH 0x00008000 /* AUTH= supported */ #define MCIF_AUTHACT 0x00010000 /* SASL (AUTH) active */ #define MCIF_ENHSTAT 0x00020000 /* ENHANCEDSTATUSCODES supported */ #define MCIF_PIPELINED 0x00040000 /* PIPELINING supported */ #define MCIF_VERB 0x00080000 /* VERB supported */ #if STARTTLS #define MCIF_TLS 0x00100000 /* STARTTLS supported */ #define MCIF_TLSACT 0x00200000 /* STARTTLS active */ #else /* STARTTLS */ #define MCIF_TLS 0 #define MCIF_TLSACT 0 #endif /* STARTTLS */ #define MCIF_DLVR_BY 0x00400000 /* DELIVERBY */ #if _FFR_IGNORE_EXT_ON_HELO # define MCIF_HELO 0x00800000 /* we used HELO: ignore extensions */ #endif #define MCIF_INLONGLINE 0x01000000 /* in the middle of a long line */ #define MCIF_AUTH2 0x02000000 /* got 2 AUTH lines */ #define MCIF_ONLY_EHLO 0x10000000 /* use only EHLO in smtpinit */ #if _FFR_HANDLE_HDR_RW_TEMPFAIL /* an error is not sticky (if put{header,body}() etc fail) */ # define MCIF_NOTSTICKY 0x20000000 #else # define MCIF_NOTSTICKY 0 #endif #if USE_EAI # define MCIF_EAI 0x40000000 /* SMTPUTF8 supported */ #else # define MCIF_EAI 0x00000000 /* for MCIF_EXTENS */ #endif #define MCIF_EXTENS (MCIF_EXPN|MCIF_SIZE|MCIF_8BITMIME|MCIF_DSN|MCIF_8BITOK|MCIF_AUTH|MCIF_ENHSTAT|MCIF_PIPELINED|MCIF_VERB|MCIF_TLS|MCIF_DLVR_BY|MCIF_AUTH2|MCIF_EAI) /* states */ /* XREF: deliver.c: mcis[] -- any changes here must be reflected there! */ #define MCIS_CLOSED 0 /* no traffic on this connection */ #define MCIS_OPENING 1 /* sending initial protocol */ #define MCIS_OPEN 2 /* open, initial protocol sent */ #define MCIS_MAIL 3 /* MAIL command sent */ #define MCIS_RCPT 4 /* RCPT commands being sent */ #define MCIS_DATA 5 /* DATA command sent */ #define MCIS_QUITING 6 /* running quit protocol */ #define MCIS_SSD 7 /* service shutting down */ #define MCIS_ERROR 8 /* I/O error on connection */ /* functions */ extern void mci_cache __P((MCI *)); extern void mci_close __P((MCI *, char *where)); extern void mci_dump __P((SM_FILE_T *, MCI *, bool)); extern void mci_dump_all __P((SM_FILE_T *, bool)); extern void mci_flush __P((bool, MCI *)); extern void mci_clr_extensions __P((MCI *)); extern MCI *mci_get __P((char *, MAILER *)); extern int mci_lock_host __P((MCI *)); extern bool mci_match __P((char *, MAILER *)); extern int mci_print_persistent __P((char *, char *)); extern int mci_purge_persistent __P((char *, char *)); extern MCI **mci_scan __P((MCI *)); extern void mci_setstat __P((MCI *, int, char *, char *)); extern void mci_store_persistent __P((MCI *)); extern int mci_traverse_persistent __P((int (*)(char *, char *), char *)); extern void mci_unlock_host __P((MCI *)); EXTERN int MaxMciCache; /* maximum entries in MCI cache */ EXTERN time_t MciCacheTimeout; /* maximum idle time on connections */ EXTERN time_t MciInfoTimeout; /* how long 'til we retry down hosts */ /* ** Header structure. ** This structure is used internally to store header items. */ struct header { char *h_field; /* the name of the field */ char *h_value; /* the value of that field */ struct header *h_link; /* the next header */ unsigned char h_macro; /* include header if macro defined */ unsigned long h_flags; /* status bits, see below */ BITMAP256 h_mflags; /* m_flags bits needed */ }; typedef struct header HDR; /* ** Header information structure. ** Defined in conf.c, this struct declares the header fields ** that have some magic meaning. */ struct hdrinfo { char *hi_field; /* the name of the field */ unsigned long hi_flags; /* status bits, see below */ char *hi_ruleset; /* validity check ruleset */ }; extern struct hdrinfo HdrInfo[]; /* bits for h_flags and hi_flags */ #define H_EOH 0x00000001 /* field terminates header */ #define H_RCPT 0x00000002 /* contains recipient addresses */ #define H_DEFAULT 0x00000004 /* if another value is found, drop this */ #define H_RESENT 0x00000008 /* this address is a "Resent-..." address */ #define H_CHECK 0x00000010 /* check h_mflags against m_flags */ #define H_ACHECK 0x00000020 /* ditto, but always (not just default) */ #define H_FORCE 0x00000040 /* force this field, even if default */ #define H_TRACE 0x00000080 /* this field contains trace information */ #define H_FROM 0x00000100 /* this is a from-type field */ #define H_VALID 0x00000200 /* this field has a validated value */ #define H_RECEIPTTO 0x00000400 /* field has return receipt info */ #define H_ERRORSTO 0x00000800 /* field has error address info */ #define H_CTE 0x00001000 /* field is a content-transfer-encoding */ #define H_CTYPE 0x00002000 /* this is a content-type field */ #define H_BCC 0x00004000 /* Bcc: header: strip value or delete */ #define H_ENCODABLE 0x00008000 /* field can be RFC 1522 encoded */ #define H_STRIPCOMM 0x00010000 /* header check: strip comments */ #define H_BINDLATE 0x00020000 /* only expand macros at deliver */ #define H_USER 0x00040000 /* header came from the user/SMTP */ #if _FFR_MTA_MODE # define H_ASIS 0x10000000 #endif /* bits for chompheader() */ #define CHHDR_DEF 0x0001 /* default header */ #define CHHDR_CHECK 0x0002 /* call ruleset for header */ #define CHHDR_USER 0x0004 /* header from user */ #define CHHDR_QUEUE 0x0008 /* header from queue file */ /* functions */ extern void addheader __P((char *, char *, int, ENVELOPE *, bool)); extern unsigned long chompheader __P((char *, int, HDR **, ENVELOPE *)); extern bool commaize __P((HDR *, char *, bool, MCI *, ENVELOPE *, int)); extern HDR *copyheader __P((HDR *, SM_RPOOL_T *)); extern void eatheader __P((ENVELOPE *, bool, bool)); extern char *hvalue __P((char *, HDR *)); extern void insheader __P((int, char *, char *, int, ENVELOPE *, bool)); extern bool isheader __P((char *)); extern bool putfromline __P((MCI *, ENVELOPE *)); extern void setupheaders __P((void)); /* ** Performance monitoring */ #define TIMERS struct sm_timers TIMERS { TIMER ti_overall; /* the whole process */ }; #define PUSHTIMER(l, t) { if (tTd(98, l)) pushtimer(&t); } #define POPTIMER(l, t) { if (tTd(98, l)) poptimer(&t); } /* ** Envelope structure. ** This structure defines the message itself. There is usually ** only one of these -- for the message that we originally read ** and which is our primary interest -- but other envelopes can ** be generated during processing. For example, error messages ** will have their own envelope. */ struct envelope { HDR *e_header; /* head of header list */ long e_msgpriority; /* adjusted priority of this message */ time_t e_ctime; /* time message appeared in the queue */ char *e_to; /* (list of) target person(s) */ ADDRESS e_from; /* the person it is from */ char *e_sender; /* e_from.q_paddr w comments stripped */ char **e_fromdomain; /* the domain part of the sender */ #if USE_EAI bool e_smtputf8; /* requires SMTPUTF8? */ #endif ADDRESS *e_sendqueue; /* list of message recipients */ ADDRESS *e_errorqueue; /* the queue for error responses */ /* ** Overflow detection is based on < 0, so don't change this ** to unsigned. We don't use unsigned and == ULONG_MAX because ** some libc's don't have strtoul(), see mail_esmtp_args(). */ long e_msgsize; /* size of the message in bytes */ char *e_msgid; /* message id (for logging) */ unsigned long e_flags; /* flags, see below */ int e_nrcpts; /* number of recipients */ short e_class; /* msg class (priority, junk, etc.) */ short e_hopcount; /* number of times processed */ short e_nsent; /* number of sends since checkpoint */ short e_sendmode; /* message send mode */ short e_errormode; /* error return mode */ short e_timeoutclass; /* message timeout class */ bool (*e_puthdr)__P((MCI *, HDR *, ENVELOPE *, int)); /* function to put header of message */ bool (*e_putbody)__P((MCI *, ENVELOPE *, char *)); /* function to put body of message */ ENVELOPE *e_parent; /* the message this one encloses */ ENVELOPE *e_sibling; /* the next envelope of interest */ char *e_bodytype; /* type of message body */ SM_FILE_T *e_dfp; /* data file */ char *e_id; /* code for this entry in queue */ #if _FFR_SESSID char *e_sessid; /* session ID for this envelope */ #endif int e_qgrp; /* queue group (index into queues) */ int e_qdir; /* index into queue directories */ int e_dfqgrp; /* data file queue group index */ int e_dfqdir; /* data file queue directory index */ int e_xfqgrp; /* queue group (index into queues) */ int e_xfqdir; /* index into queue directories (xf) */ SM_FILE_T *e_xfp; /* transcript file */ SM_FILE_T *e_lockfp; /* the lock file for this message */ char *e_message; /* error message; readonly; NULL, * or allocated from e_rpool */ char *e_statmsg; /* stat msg (changes per delivery). * readonly. NULL or allocated from * e_rpool. */ char *e_quarmsg; /* why envelope is quarantined */ char e_qfletter; /* queue file letter on disk */ char *e_msgboundary; /* MIME-style message part boundary */ char *e_origrcpt; /* original recipient (one only) */ char *e_envid; /* envelope id from MAIL FROM: line */ char *e_status; /* DSN status for this message */ time_t e_dtime; /* time of last delivery attempt */ int e_ntries; /* number of delivery attempts */ dev_t e_dfdev; /* data file device (crash recovery) */ ino_t e_dfino; /* data file inode (crash recovery) */ MACROS_T e_macro; /* macro definitions */ MCI *e_mci; /* connection info */ char *e_auth_param; /* readonly; NULL or static storage or * allocated from e_rpool */ #if _FFR_TIMERS TIMERS e_timers; /* per job timers */ #endif long e_deliver_by; /* deliver by */ int e_dlvr_flag; /* deliver by flag */ SM_RPOOL_T *e_rpool; /* resource pool for this envelope */ unsigned long e_features; /* server features */ #define ENHSC_LEN 11 #if _FFR_MILTER_ENHSC char e_enhsc[ENHSC_LEN]; /* enhanced status code */ #endif /* smtp error codes during delivery */ int e_rcode; /* reply code */ char e_renhsc[ENHSC_LEN]; /* enhanced status code */ char *e_text; /* reply text */ #if _FFR_LOG_STAGE int e_estate; /* protocol state when error happened */ #endif }; #define PRT_NONNEGL(v) ((v) < 0 ? LONG_MAX : (v)) /* values for e_flags */ #define EF_OLDSTYLE 0x00000001L /* use spaces (not commas) in hdrs */ #define EF_INQUEUE 0x00000002L /* this message is fully queued */ #define EF_NO_BODY_RETN 0x00000004L /* omit message body on error */ #define EF_CLRQUEUE 0x00000008L /* disk copy is no longer needed */ #define EF_SENDRECEIPT 0x00000010L /* send a return receipt */ #define EF_FATALERRS 0x00000020L /* fatal errors occurred */ #define EF_DELETE_BCC 0x00000040L /* delete Bcc: headers entirely */ #define EF_RESPONSE 0x00000080L /* this is an error or return receipt */ #define EF_RESENT 0x00000100L /* this message is being forwarded */ #define EF_VRFYONLY 0x00000200L /* verify only (don't expand aliases) */ #define EF_WARNING 0x00000400L /* warning message has been sent */ #define EF_QUEUERUN 0x00000800L /* this envelope is from queue */ #define EF_GLOBALERRS 0x00001000L /* treat errors as global */ #define EF_PM_NOTIFY 0x00002000L /* send return mail to postmaster */ #define EF_METOO 0x00004000L /* send to me too */ #define EF_LOGSENDER 0x00008000L /* need to log the sender */ #define EF_NORECEIPT 0x00010000L /* suppress all return-receipts */ #define EF_HAS8BIT 0x00020000L /* at least one 8-bit char in body */ /* was: EF_NL_NOT_EOL 0x00040000L * don't accept raw LF as EOLine */ /* was: EF_CRLF_NOT_EOL 0x00080000L * don't accept CRLF as EOLine */ #define EF_RET_PARAM 0x00100000L /* RCPT command had RET argument */ #define EF_HAS_DF 0x00200000L /* set when data file is instantiated */ #define EF_IS_MIME 0x00400000L /* really is a MIME message */ #define EF_DONT_MIME 0x00800000L /* never MIME this message */ #define EF_DISCARD 0x01000000L /* discard the message */ #define EF_TOOBIG 0x02000000L /* message is too big */ #define EF_SPLIT 0x04000000L /* envelope has been split */ #define EF_UNSAFE 0x08000000L /* unsafe: read from untrusted source */ #define EF_TOODEEP 0x10000000L /* message is nested too deep */ #define EF_SECURE 0x20000000L /* DNSSEC for currently parsed addr */ #define EF_7BITBODY 0x40000000L /* strip body to 7bit on input */ #define DLVR_NOTIFY 0x01 #define DLVR_RETURN 0x02 #define DLVR_TRACE 0x10 #define IS_DLVR_NOTIFY(e) (((e)->e_dlvr_flag & DLVR_NOTIFY) != 0) #define IS_DLVR_RETURN(e) (((e)->e_dlvr_flag & DLVR_RETURN) != 0) #define IS_DLVR_TRACE(e) (((e)->e_dlvr_flag & DLVR_TRACE) != 0) #define IS_DLVR_BY(e) ((e)->e_dlvr_flag != 0) #define BODYTYPE_NONE (0) #define BODYTYPE_7BIT (1) #define BODYTYPE_8BITMIME (2) #define BODYTYPE_ILLEGAL (-1) #define BODYTYPE_VALID(b) ((b) == BODYTYPE_7BIT || (b) == BODYTYPE_8BITMIME) extern ENVELOPE BlankEnvelope; /* functions */ extern void clearenvelope __P((ENVELOPE *, bool, SM_RPOOL_T *)); extern int dropenvelope __P((ENVELOPE *, bool, bool)); extern ENVELOPE *newenvelope __P((ENVELOPE *, ENVELOPE *, SM_RPOOL_T *)); extern void clrsessenvelope __P((ENVELOPE *)); extern void printenvflags __P((ENVELOPE *)); extern bool putbody __P((MCI *, ENVELOPE *, char *)); extern bool putheader __P((MCI *, HDR *, ENVELOPE *, int)); /* ** Message priority classes. ** ** The message class is read directly from the Priority: header ** field in the message. ** ** CurEnv->e_msgpriority is the number of bytes in the message plus ** the creation time (so that jobs ``tend'' to be ordered correctly), ** adjusted by the message class, the number of recipients, and the ** amount of time the message has been sitting around. This number ** is used to order the queue. Higher values mean LOWER priority. ** ** Each priority class point is worth WkClassFact priority points; ** each recipient is worth WkRecipFact priority points. Each time ** we reprocess a message the priority is adjusted by WkTimeFact. ** WkTimeFact should normally decrease the priority so that jobs ** that have historically failed will be run later; thanks go to ** Jay Lepreau at Utah for pointing out the error in my thinking. ** ** The "class" is this number, unadjusted by the age or size of ** this message. Classes with negative representations will have ** error messages thrown away if they are not local. */ struct priority { char *pri_name; /* external name of priority */ int pri_val; /* internal value for same */ }; EXTERN int NumPriorities; /* pointer into Priorities */ EXTERN struct priority Priorities[MAXPRIORITIES]; /* ** Rewrite rules. */ struct rewrite { char **r_lhs; /* pattern match */ char **r_rhs; /* substitution value */ struct rewrite *r_next;/* next in chain */ int r_line; /* rule line in sendmail.cf */ }; /* ** Special characters in rewriting rules. ** These are used internally only. ** The COND* rules are actually used in macros rather than in ** rewriting rules, but are given here because they ** cannot conflict. */ /* ** "out of band" indicator ** sm/sendmail.h #define METAQUOTE ((unsigned char)0377) ** quotes the next octet ** range: ((ch) & 0340) == 0200 ** see #define SM_MM_QUOTE(ch) in libsm/util.c */ /* left hand side items */ #define MATCHZANY ((unsigned char)0220) /* match zero or more tokens */ #define MATCHANY ((unsigned char)0221) /* match one or more tokens */ #define MATCHONE ((unsigned char)0222) /* match exactly one token */ #define MATCHCLASS ((unsigned char)0223) /* match one token in a class */ #define MATCHNCLASS ((unsigned char)0224) /* match tokens not in class */ /* right hand side items */ #define MATCHREPL ((unsigned char)0225) /* RHS replacement for above */ #define CANONNET ((unsigned char)0226) /* canonical net, next token */ #define CANONHOST ((unsigned char)0227) /* canonical host, next token */ #define CANONUSER ((unsigned char)0230) /* canonical user, next N tokens */ #define CALLSUBR ((unsigned char)0231) /* call another rewriting set */ /* conditionals in macros (anywhere) */ #define CONDIF ((unsigned char)0232) /* conditional if-then */ #define CONDELSE ((unsigned char)0233) /* conditional else */ #define CONDFI ((unsigned char)0234) /* conditional fi */ /* bracket characters for RHS host name lookup */ #define HOSTBEGIN ((unsigned char)0235) /* hostname lookup begin */ #define HOSTEND ((unsigned char)0236) /* hostname lookup end */ /* bracket characters for RHS generalized lookup */ #define LOOKUPBEGIN ((unsigned char)0205) /* generalized lookup begin */ #define LOOKUPEND ((unsigned char)0206) /* generalized lookup end */ /* macro substitution characters (anywhere) */ #define MACROEXPAND ((unsigned char)0201) /* macro expansion */ #define MACRODEXPAND ((unsigned char)0202) /* deferred macro expansion */ /* to make the code clearer */ #define MATCHZERO CANONHOST #define MAXMATCH 9 /* max params per rewrite */ #define MAX_MAP_ARGS 10 /* max arguments for map */ /* external <==> internal mapping table */ struct metamac { char metaname; /* external code (after $) */ unsigned char metaval; /* internal code (as above) */ }; /* values for macros with external names only */ #define MID_OPMODE 0202 /* operation mode */ /* functions */ #if SM_HEAP_CHECK extern void macdefine_tagged __P(( MACROS_T *_mac, ARGCLASS_T _vclass, int _id, char *_value, char *_file, int _line, int _group)); # define macdefine(mac,c,id,v) \ macdefine_tagged(mac,c,id,v,__FILE__,__LINE__,sm_heap_group()) #else /* SM_HEAP_CHECK */ extern void macdefine __P(( MACROS_T *_mac, ARGCLASS_T _vclass, int _id, char *_value)); # define macdefine_tagged(mac,c,id,v,file,line,grp) macdefine(mac,c,id,v) #endif /* SM_HEAP_CHECK */ extern void macset __P((MACROS_T *, int, char *)); #define macget(mac, i) (mac)->mac_table[i] extern void expand __P((char *, char *, size_t, ENVELOPE *)); extern int macid_parse __P((char *, char **)); #define macid(name) macid_parse(name, NULL) extern char *macname __P((int)); extern char *macvalue __P((int, ENVELOPE *)); extern void mactabclear __P((MACROS_T *)); extern int rscheck __P((char *, const char *, const char *, ENVELOPE *, int, int, const char *, const char *, ADDRESS *, char **)); extern int rscap __P((char *, char *, char *, ENVELOPE *, char ***, char *, int)); extern void setclass __P((int, char *)); extern int strtorwset __P((char *, char **, int)); extern char *translate_dollars __P((char *, char *, int *)); extern bool wordinclass __P((char *, int)); /* ** Name canonification short circuit. ** ** If the name server for a host is down, the process of trying to ** canonify the name can hang. This is similar to (but alas, not ** identical to) looking up the name for delivery. This stab type ** caches the result of the name server lookup so we don't hang ** multiple times. */ #define NAMECANON struct _namecanon NAMECANON { short nc_errno; /* cached errno */ short nc_herrno; /* cached h_errno */ short nc_stat; /* cached exit status code */ short nc_flags; /* flag bits */ char *nc_cname; /* the canonical name */ time_t nc_exp; /* entry expires at */ }; /* values for nc_flags */ #define NCF_VALID 0x0001 /* entry valid */ #define NCF_VALID 0x0001 /* entry valid */ #define NCF_SECURE 0x0002 /* entry secure (DNSSEC) */ /* hostsignature structure */ struct hostsig_t { char *hs_sig; /* hostsignature */ time_t hs_exp; /* entry expires at */ }; typedef struct hostsig_t HOSTSIG_T; /* ** The standard udp packet size PACKETSZ (512) is not sufficient for some ** nameserver answers containing very many resource records. The resolver ** may switch to tcp and retry if it detects udp packet overflow. ** Also note that the resolver routines res_query and res_search return ** the size of the *un*truncated answer in case the supplied answer buffer ** it not big enough to accommodate the entire answer. */ #ifndef MAXPACKET # define MAXPACKET 8192 /* max packet size used internally by BIND */ #endif /* ** The resolver functions res_{send,query,querydomain} expect the ** answer buffer to be aligned, but some versions of gcc4 reverse ** 25 years of history and no longer align char buffers on the ** stack, resulting in crashes on strict-alignment platforms. Use ** this union when putting the buffer on the stack to force the ** alignment, then cast to (HEADER *) or (unsigned char *) as needed. */ typedef union { HEADER qb1; unsigned char qb2[MAXPACKET]; } querybuf; /* result values for getcanonname() etc */ #define HOST_NOTFOUND 0 #define HOST_OK 1 #define HOST_SECURE 2 /* flags for getmxrr() */ #define DROPLOCALHOST 0x01 #define TRYFALLBACK 0x02 #define ISAD 0x04 /* RFC7505: Null MX */ #define NULLMX (-2) /* functions */ extern int getcanonname __P((char *, int, bool, int *)); extern int getmxrr __P((char *, char **, unsigned short *, unsigned int, int *, int *, int, int *)); extern char *hostsignature __P((MAILER *, char *, bool, unsigned long *)); extern int getfallbackmxrr __P((char *)); /* ** Mapping functions ** ** These allow arbitrary mappings in the config file. The idea ** (albeit not the implementation) comes from IDA sendmail. */ #define MAPCLASS struct _mapclass #define MAP struct _map #define MAXMAPACTIONS 5 /* size of map_actions array */ /* ** An actual map. */ MAP { MAPCLASS *map_class; /* the class of this map */ MAPCLASS *map_orgclass; /* the original class of this map */ char *map_mname; /* name of this map */ long map_mflags; /* flags, see below */ char *map_file; /* the (nominal) filename */ ARBPTR_T map_db1; /* the open database ptr */ ARBPTR_T map_db2; /* an "extra" database pointer */ char *map_keycolnm; /* key column name */ char *map_valcolnm; /* value column name */ unsigned char map_keycolno; /* key column number */ unsigned char map_valcolno; /* value column number */ char map_coldelim; /* column delimiter */ char map_spacesub; /* spacesub */ char *map_app; /* to append to successful matches */ char *map_tapp; /* to append to "tempfail" matches */ char *map_domain; /* the (nominal) NIS domain */ char *map_rebuild; /* program to run to do auto-rebuild */ time_t map_mtime; /* last database modification time */ time_t map_timeout; /* timeout for map accesses */ int map_retry; /* # of retries for map accesses */ pid_t map_pid; /* PID of process which opened map */ int map_lockfd; /* auxiliary lock file descriptor */ MAP *map_stack[MAXMAPSTACK]; /* list for stacked maps */ short map_return[MAXMAPACTIONS]; /* return bitmaps for stacked maps */ }; #if _FFR_DYN_CLASS # define map_tag map_domain /* overload map field */ #endif /* bit values for map_mflags */ #define MF_VALID 0x00000001 /* this entry is valid */ #define MF_INCLNULL 0x00000002 /* include null byte in key */ #define MF_OPTIONAL 0x00000004 /* don't complain if map not found */ #define MF_NOFOLDCASE 0x00000008 /* don't fold case in keys */ #define MF_MATCHONLY 0x00000010 /* don't use the map value */ #define MF_OPEN 0x00000020 /* this entry is open */ #define MF_WRITABLE 0x00000040 /* open for writing */ #define MF_ALIAS 0x00000080 /* this is an alias file */ #define MF_TRY0NULL 0x00000100 /* try with no null byte */ #define MF_TRY1NULL 0x00000200 /* try with the null byte */ #define MF_LOCKED 0x00000400 /* map is locked (RDWR) */ /* that means: no extra lockfile() calls must be made (in *map_lookup()) */ #define MF_ALIASWAIT 0x00000800 /* alias map in aliaswait state */ #define MF_IMPL_HASH 0x00001000 /* implicit: underlying hash database */ #define MF_IMPL_NDBM 0x00002000 /* implicit: underlying NDBM database */ #define MF_IMPL_CDB 0x00004000 /* implicit: underlying CDB database */ #define MF_APPEND 0x00008000 /* append new entry on rebuild */ #define MF_KEEPQUOTES 0x00010000 /* don't dequote key before lookup */ #define MF_NODEFER 0x00020000 /* don't defer if map lookup fails */ #define MF_REGEX_NOT 0x00040000 /* regular expression negation */ #define MF_DEFER 0x00080000 /* don't lookup map in defer mode */ #define MF_SINGLEMATCH 0x00100000 /* successful only if match one key */ #define MF_SINGLEDN 0x00200000 /* only one match, but multi values */ #define MF_FILECLASS 0x00400000 /* this is a file class map */ #define MF_OPENBOGUS 0x00800000 /* open failed, don't call map_close */ #define MF_CLOSING 0x01000000 /* map is being closed */ #define MF_SECURE 0x02000000 /* DNSSEC result is "secure" */ #define MF_KEEPXFMT 0x04000000 /* keep [x] format */ #define MF_CHKED_CHGD 0x08000000 /* checked whether underlying map changed */ #define DYNOPENMAP(map) \ do \ { \ if (!bitset(MF_OPEN, (map)->map_mflags)) \ { \ if (!openmap(map)) \ return NULL; \ } \ } while (0) /* indices for map_actions */ #define MA_NOTFOUND 0 /* member map returned "not found" */ #define MA_UNAVAIL 1 /* member map is not available */ #define MA_TRYAGAIN 2 /* member map returns temp failure */ /* ** The class of a map -- essentially the functions to call */ MAPCLASS { char *map_cname; /* name of this map class */ char *map_ext; /* extension for database file */ short map_cflags; /* flag bits, see below */ bool (*map_parse)__P((MAP *, char *)); /* argument parsing function */ char *(*map_lookup)__P((MAP *, char *, char **, int *)); /* lookup function */ void (*map_store)__P((MAP *, char *, char *)); /* store function */ bool (*map_open)__P((MAP *, int)); /* open function */ void (*map_close)__P((MAP *)); /* close function */ }; /* bit values for map_cflags */ #define MCF_ALIASOK 0x0001 /* can be used for aliases */ /* #define MCF_ALIASONLY 0x0002 * usable only for aliases */ #define MCF_REBUILDABLE 0x0004 /* can rebuild alias files */ #define MCF_OPTFILE 0x0008 /* file name is optional */ #define MCF_NOTPERSIST 0x0010 /* don't keep map open all the time */ /* functions */ extern void closemaps __P((bool)); extern bool impl_map_open __P((MAP *, int)); extern void initmaps __P((void)); extern MAP *makemapentry __P((char *)); extern void maplocaluser __P((ADDRESS *, ADDRESS **, int, ENVELOPE *)); extern char *map_rewrite __P((MAP *, const char *, size_t, char **)); #if NETINFO extern char *ni_propval __P((char *, char *, char *, char *, int)); #endif extern bool openmap __P((MAP *)); extern int udbexpand __P((ADDRESS *, ADDRESS **, int, ENVELOPE *)); #if USERDB extern void _udbx_close __P((void)); extern char *udbsender __P((char *, SM_RPOOL_T *)); #endif #if _FFR_MAP_CHK_FILE > 1 extern void maps_reset_chged __P((const char *)); #else # define maps_reset_chged(msg) #endif /* ** LDAP related items */ #if LDAPMAP /* struct defining LDAP Auth Methods */ struct lamvalues { char *lam_name; /* name of LDAP auth method */ int lam_code; /* numeric code */ }; /* struct defining LDAP Alias Dereferencing */ struct ladvalues { char *lad_name; /* name of LDAP alias dereferencing method */ int lad_code; /* numeric code */ }; /* struct defining LDAP Search Scope */ struct lssvalues { char *lss_name; /* name of LDAP search scope */ int lss_code; /* numeric code */ }; /* functions */ extern void ldapmap_set_defaults __P((char *)); #endif /* LDAPMAP */ /* ** PH related items */ #if PH_MAP # include struct ph_map_struct { char *ph_servers; /* list of ph servers */ char *ph_field_list; /* list of fields to search for match */ PH *ph; /* PH server handle */ int ph_fastclose; /* send "quit" command on close */ time_t ph_timeout; /* timeout interval */ }; typedef struct ph_map_struct PH_MAP_STRUCT; #endif /* PH_MAP */ /* ** Regular UNIX sockaddrs are too small to handle ISO addresses, so ** we are forced to declare a supertype here. */ #if NETINET || NETINET6 || NETUNIX || NETISO || NETNS || NETX25 union bigsockaddr { struct sockaddr sa; /* general version */ # if NETUNIX struct sockaddr_un sunix; /* UNIX family */ # endif # if NETINET struct sockaddr_in sin; /* INET family */ # endif # if NETINET6 struct sockaddr_in6 sin6; /* INET/IPv6 */ # endif # if NETISO struct sockaddr_iso siso; /* ISO family */ # endif # if NETNS struct sockaddr_ns sns; /* XNS family */ # endif # if NETX25 struct sockaddr_x25 sx25; /* X.25 family */ # endif }; # define SOCKADDR union bigsockaddr /* functions */ extern char *anynet_ntoa __P((SOCKADDR *)); # if NETINET6 extern char *anynet_ntop __P((struct in6_addr *, char *, size_t)); extern int anynet_pton __P((int, const char *, void *)); # endif extern char *hostnamebyanyaddr __P((SOCKADDR *)); extern char *validate_connection __P((SOCKADDR *, char *, ENVELOPE *)); # if SASL >= 20000 extern bool iptostring __P((SOCKADDR *, SOCKADDR_LEN_T, char *, unsigned)); # endif #endif /* NETINET || NETINET6 || NETUNIX || NETISO || NETNS || NETX25 */ /* ** Process List (proclist) */ #define NO_PID ((pid_t) 0) #ifndef PROC_LIST_SEG # define PROC_LIST_SEG 32 /* number of pids to alloc at a time */ #endif /* process types */ #define PROC_NONE 0 #define PROC_DAEMON 1 #define PROC_DAEMON_CHILD 2 #define PROC_QUEUE 3 #define PROC_QUEUE_CHILD 3 #define PROC_CONTROL 4 #define PROC_CONTROL_CHILD 5 #define PROC_QM 6 /* functions */ extern void proc_list_add __P((pid_t, char *, int, int, int, SOCKADDR *)); extern void proc_list_clear __P((void)); extern void proc_list_display __P((SM_FILE_T *, char *)); extern void proc_list_drop __P((pid_t, int, int *)); extern void proc_list_probe __P((void)); extern void proc_list_set __P((pid_t, char *)); extern void proc_list_signal __P((int, int)); /* ** Symbol table definitions */ struct symtab { char *s_name; /* name to be entered */ short s_symtype; /* general type (see below) */ struct symtab *s_next; /* pointer to next in chain */ union { BITMAP256 sv_class; /* bit-map of word classes */ MAILER *sv_mailer; /* pointer to mailer */ char *sv_alias; /* alias */ MAPCLASS sv_mapclass; /* mapping function class */ MAP sv_map; /* mapping function */ HOSTSIG_T sv_hostsig; /* host signature */ MCI sv_mci; /* mailer connection info */ NAMECANON sv_namecanon; /* canonical name cache */ int sv_macro; /* macro name => id mapping */ int sv_ruleset; /* ruleset index */ struct hdrinfo sv_header; /* header metainfo */ char *sv_service[MAXMAPSTACK]; /* service switch */ #if LDAPMAP MAP *sv_lmap; /* Maps for LDAP connection */ #endif #if SOCKETMAP MAP *sv_socketmap; /* Maps for SOCKET connection */ #endif #if MILTER struct milter *sv_milter; /* milter filter name */ #endif QUEUEGRP *sv_queue; /* pointer to queue */ #if DANE dane_tlsa_P sv_tlsa; /* pointer to TLSA RRs */ #endif #if _FFR_DYN_CLASS MAP sv_dynclass; /* map for dynamic class */ #endif } s_value; }; typedef struct symtab STAB; /* symbol types */ #define ST_UNDEF 0 /* undefined type */ #define ST_CLASS 1 /* class map */ /* #define ST_unused 2 UNUSED */ #define ST_MAILER 3 /* a mailer header */ #define ST_ALIAS 4 /* an alias */ #define ST_MAPCLASS 5 /* mapping function class */ #define ST_MAP 6 /* mapping function */ #define ST_HOSTSIG 7 /* host signature */ #define ST_NAMECANON 8 /* cached canonical name */ #define ST_MACRO 9 /* macro name to id mapping */ #define ST_RULESET 10 /* ruleset index */ #define ST_SERVICE 11 /* service switch entry */ #define ST_HEADER 12 /* special header flags */ #if LDAPMAP # define ST_LMAP 13 /* List head of maps for LDAP connection */ #endif #if MILTER # define ST_MILTER 14 /* milter filter */ #endif #define ST_QUEUE 15 /* a queue entry */ #if SOCKETMAP # define ST_SOCKETMAP 16 /* List head of maps for SOCKET connection */ #endif #if DANE # define ST_TLSA_RR 17 /* cached TLSA RRs */ #endif #if _FFR_DYN_CLASS # define ST_DYNMAP 18 /* dynamic map */ #endif /* This entry must be last */ #define ST_MCI 19 /* mailer connection info (offset) */ #define s_class s_value.sv_class #define s_mailer s_value.sv_mailer #define s_alias s_value.sv_alias #define s_mci s_value.sv_mci #define s_mapclass s_value.sv_mapclass #define s_hostsig s_value.sv_hostsig #define s_map s_value.sv_map #define s_namecanon s_value.sv_namecanon #define s_macro s_value.sv_macro #define s_ruleset s_value.sv_ruleset #define s_service s_value.sv_service #define s_header s_value.sv_header #if LDAPMAP # define s_lmap s_value.sv_lmap #endif #if SOCKETMAP # define s_socketmap s_value.sv_socketmap #endif #if MILTER # define s_milter s_value.sv_milter #endif #define s_quegrp s_value.sv_queue #if DANE # define s_tlsa s_value.sv_tlsa #endif #if _FFR_DYN_CLASS # define s_dynclass s_value.sv_dynclass #endif /* opcodes to stab */ #define ST_FIND 0 /* find entry */ #define ST_ENTER 1 /* enter if not there */ /* functions */ extern STAB *stab __P((char *, int, int)); extern void stabapply __P((void (*)(STAB *, int), int)); /* ** Operation, send, error, and MIME modes ** ** The operation mode describes the basic operation of sendmail. ** This can be set from the command line, and is "send mail" by ** default. ** ** The send mode tells how to send mail. It can be set in the ** configuration file. Its setting determines how quickly the ** mail will be delivered versus the load on your system. If the ** -v (verbose) flag is given, it will be forced to SM_DELIVER ** mode. ** ** The error mode tells how to return errors. */ #define MD_DELIVER 'm' /* be a mail sender */ #define MD_SMTP 's' /* run SMTP on standard input */ #define MD_ARPAFTP 'a' /* obsolete ARPANET mode (Grey Book) */ #define MD_DAEMON 'd' /* run as a daemon */ #define MD_FGDAEMON 'D' /* run daemon in foreground */ #define MD_LOCAL 'l' /* like daemon, but localhost only */ #define MD_VERIFY 'v' /* verify: don't collect or deliver */ #define MD_TEST 't' /* test mode: resolve addrs only */ #define MD_INITALIAS 'i' /* initialize alias database */ #define MD_PRINT 'p' /* print the queue */ #define MD_PRINTNQE 'P' /* print number of entries in queue */ #define MD_FREEZE 'z' /* freeze the configuration file */ #define MD_HOSTSTAT 'h' /* print persistent host stat info */ #define MD_PURGESTAT 'H' /* purge persistent host stat info */ #define MD_QUEUERUN 'q' /* queue run */ #define MD_CHECKCONFIG 'C' /* check configuration file */ #define MD_SHOWCONFIG 'O' /* show cf options */ #if _FFR_LOCAL_DAEMON EXTERN bool LocalDaemon; # if NETINET6 EXTERN bool V6LoopbackAddrFound; /* found an IPv6 loopback address */ # define SETV6LOOPBACKADDRFOUND(sa) \ do \ { \ if (isloopback(sa)) \ V6LoopbackAddrFound = true; \ } while (0) # endif /* NETINET6 */ #else /* _FFR_LOCAL_DAEMON */ # define LocalDaemon false # define V6LoopbackAddrFound false # define SETV6LOOPBACKADDRFOUND(sa) #endif /* _FFR_LOCAL_DAEMON */ /* Note: see also include/sendmail/pathnames.h: GET_CLIENT_CF */ /* values for e_sendmode -- send modes */ #define SM_DELIVER 'i' /* interactive delivery */ #if _FFR_PROXY # define SM_PROXY_REQ 's' /* synchronous mode requested */ # define SM_PROXY 'S' /* synchronous mode activated */ #endif #define SM_FORK 'b' /* deliver in background */ #if _FFR_DM_ONE # define SM_DM_ONE 'o' /* deliver first TA in background, then queue */ #endif #if _FFR_DMTRIGGER # define SM_TRIGGER 't' /* queue and tell "queue manager" */ # define IS_SM_TRIGGER(m) ((m) == SM_TRIGGER) #else # define IS_SM_TRIGGER(m) false #endif #define SM_QUEUE 'q' /* queue, don't deliver */ #define SM_DEFER 'd' /* defer map lookups as well as queue */ #define SM_VERIFY 'v' /* verify only (used internally) */ #define DM_NOTSET (-1) /* DeliveryMode (per daemon) option not set */ #if _FFR_PROXY # define SM_IS_INTERACTIVE(m) ((m) == SM_DELIVER || (m) == SM_PROXY_REQ || (m) == SM_PROXY) #else # define SM_IS_INTERACTIVE(m) ((m) == SM_DELIVER) #endif #define WILL_BE_QUEUED(m) ((m) == SM_QUEUE || (m) == SM_DEFER || IS_SM_TRIGGER(m)) /* used only as a parameter to sendall */ #define SM_DEFAULT '\0' /* unspecified, use SendMode */ /* functions */ extern void set_delivery_mode __P((int, ENVELOPE *)); /* values for e_errormode -- error handling modes */ #define EM_PRINT 'p' /* print errors */ #define EM_MAIL 'm' /* mail back errors */ #define EM_WRITE 'w' /* write back errors */ #define EM_BERKNET 'e' /* special berknet processing */ #define EM_QUIET 'q' /* don't print messages (stat only) */ /* bit values for MimeMode */ #define MM_CVTMIME 0x0001 /* convert 8 to 7 bit MIME */ #define MM_PASS8BIT 0x0002 /* just send 8 bit data blind */ #define MM_MIME8BIT 0x0004 /* convert 8-bit data to MIME */ /* how to handle messages without any recipient addresses */ #define NRA_NO_ACTION 0 /* just leave it as is */ #define NRA_ADD_TO 1 /* add To: header */ #define NRA_ADD_APPARENTLY_TO 2 /* add Apparently-To: header */ #define NRA_ADD_BCC 3 /* add empty Bcc: header */ #define NRA_ADD_TO_UNDISCLOSED 4 /* add To: undisclosed:; header */ /* flags to putxline */ #define PXLF_NOTHINGSPECIAL 0 /* no special mapping */ #define PXLF_MAPFROM 0x0001 /* map From_ to >From_ */ #define PXLF_STRIP8BIT 0x0002 /* strip 8th bit */ #define PXLF_HEADER 0x0004 /* map newlines in headers */ #define PXLF_NOADDEOL 0x0008 /* if EOL not present, don't add one */ #define PXLF_STRIPMQUOTE 0x0010 /* strip METAQUOTEs */ /* ** Privacy flags ** These are bit values for the PrivacyFlags word. */ #define PRIV_PUBLIC 0 /* what have I got to hide? */ #define PRIV_NEEDMAILHELO 0x00000001 /* insist on HELO for MAIL */ #define PRIV_NEEDEXPNHELO 0x00000002 /* insist on HELO for EXPN */ #define PRIV_NEEDVRFYHELO 0x00000004 /* insist on HELO for VRFY */ #define PRIV_NOEXPN 0x00000008 /* disallow EXPN command */ #define PRIV_NOVRFY 0x00000010 /* disallow VRFY command */ #define PRIV_AUTHWARNINGS 0x00000020 /* flag possible auth probs */ #define PRIV_NOVERB 0x00000040 /* disallow VERB command */ #define PRIV_RESTRICTMAILQ 0x00010000 /* restrict mailq command */ #define PRIV_RESTRICTQRUN 0x00020000 /* restrict queue run */ #define PRIV_RESTRICTEXPAND 0x00040000 /* restrict alias/forward expansion */ #define PRIV_NOETRN 0x00080000 /* disallow ETRN command */ #define PRIV_NOBODYRETN 0x00100000 /* do not return bodies on bounces */ #define PRIV_NORECEIPTS 0x00200000 /* disallow return receipts */ #define PRIV_NOACTUALRECIPIENT 0x00400000 /* no X-Actual-Recipient in DSNs */ #define PRIV_NOREFLECTION 0x00800000 /* do not show original command */ /* don't give no info, anyway, anyhow (in the main SMTP transaction) */ #define PRIV_GOAWAY (0x0000ffff|PRIV_NOREFLECTION) /* struct defining such things */ struct prival { char *pv_name; /* name of privacy flag */ unsigned long pv_flag; /* numeric level */ }; EXTERN unsigned long PrivacyFlags; /* privacy flags */ /* ** Flags passed to remotename, parseaddr, allocaddr, and buildaddr. */ #define RF_SENDERADDR 0x001 /* this is a sender address */ #define RF_HEADERADDR 0x002 /* this is a header address */ #define RF_CANONICAL 0x004 /* strip comment information */ #define RF_ADDDOMAIN 0x008 /* OK to do domain extension */ #define RF_COPYPARSE 0x010 /* copy parsed user & host */ #define RF_COPYPADDR 0x020 /* copy print address */ #define RF_COPYALL (RF_COPYPARSE|RF_COPYPADDR) #define RF_COPYNONE 0 #define RF_RM_ADDR 0x040 /* address to be removed */ #define RF_IS_EXT 0x100 /* address is in external format */ /* ** Flags passed to rscheck */ #define RSF_RMCOMM 0x0001 /* strip comments */ #define RSF_UNSTRUCTURED 0x0002 /* unstructured, ignore syntax errors */ #define RSF_COUNT 0x0004 /* count rejections (statistics)? */ #define RSF_ADDR 0x0008 /* reassemble address */ #define RSF_STRING 0x0010 /* reassemble address as string */ #define RSF_STATUS 0x0020 /* log "status" instead of "reject" */ /* ** Flags passed to mime8to7 and putheader. */ #define M87F_OUTER 0 /* outer context */ #define M87F_NO8BIT 0x0001 /* can't have 8-bit in this section */ #define M87F_DIGEST 0x0002 /* processing multipart/digest */ #define M87F_NO8TO7 0x0004 /* don't do 8->7 bit conversions */ /* functions */ extern bool mime7to8 __P((MCI *, HDR *, ENVELOPE *)); extern int mime8to7 __P((MCI *, HDR *, ENVELOPE *, char **, int, int)); /* ** Flags passed to returntosender. */ #define RTSF_NO_BODY 0 /* send headers only */ #define RTSF_SEND_BODY 0x0001 /* include body of message in return */ #define RTSF_PM_BOUNCE 0x0002 /* this is a postmaster bounce */ /* functions */ extern int returntosender __P((char *, ADDRESS *, int, ENVELOPE *)); /* ** Mail Filters (milter) */ /* ** 32-bit type used by milter ** (needed by libmilter even if MILTER isn't defined) */ typedef SM_INT32 mi_int32; #if MILTER # define SMFTO_WRITE 0 /* Timeout for sending information */ # define SMFTO_READ 1 /* Timeout waiting for a response */ # define SMFTO_EOM 2 /* Timeout for ACK/NAK to EOM */ # define SMFTO_CONNECT 3 /* Timeout for connect() */ # define SMFTO_NUM_TO 4 /* Total number of timeouts */ struct milter { char *mf_name; /* filter name */ BITMAP256 mf_flags; /* MTA flags */ mi_int32 mf_fvers; /* filter version */ mi_int32 mf_fflags; /* filter flags */ mi_int32 mf_pflags; /* protocol flags */ char *mf_conn; /* connection info */ int mf_sock; /* connected socket */ char mf_state; /* state of filter */ char mf_lflags; /* "local" flags */ int mf_idx; /* milter number (index) */ time_t mf_timeout[SMFTO_NUM_TO]; /* timeouts */ # if _FFR_MILTER_CHECK /* for testing only */ mi_int32 mf_mta_prot_version; mi_int32 mf_mta_prot_flags; mi_int32 mf_mta_actions; # endif /* _FFR_MILTER_CHECK */ }; # define MI_LFL_NONE 0x00000000 # define MI_LFLAGS_SYM(st) (1 << (st)) /* has its own symlist for stage st */ struct milters { mi_int32 mis_flags; /* filter flags */ }; typedef struct milters milters_T; # define MIS_FL_NONE 0x00000000 /* no requirements... */ # define MIS_FL_DEL_RCPT 0x00000001 /* can delete rcpt */ # define MIS_FL_REJ_RCPT 0x00000002 /* can reject rcpt */ /* MTA flags */ # define SMF_REJECT 'R' /* Reject connection on filter fail */ # define SMF_TEMPFAIL 'T' /* tempfail connection on failure */ # define SMF_TEMPDROP '4' /* 421 connection on failure */ EXTERN struct milter *InputFilters[MAXFILTERS]; EXTERN char *InputFilterList; EXTERN int MilterLogLevel; /* functions */ extern void setup_daemon_milters __P((void)); #endif /* MILTER */ /* ** Vendor codes ** ** Vendors can customize sendmail to add special behaviour, ** generally for back compatibility. Ideally, this should ** be set up in the .cf file using the "V" command. However, ** it's quite reasonable for some vendors to want the default ** be their old version; this can be set using ** -DVENDOR_DEFAULT=VENDOR_xxx ** in the Makefile. ** ** Vendors should apply to sendmail-YYYY@support.sendmail.org ** (replace YYYY with the current year) ** for unique vendor codes. */ #define VENDOR_BERKELEY 1 /* Berkeley-native configuration file */ #define VENDOR_SUN 2 /* Sun-native configuration file */ #define VENDOR_HP 3 /* Hewlett-Packard specific config syntax */ #define VENDOR_IBM 4 /* IBM specific config syntax */ #define VENDOR_SENDMAIL 5 /* Proofpoint, Inc. specific config syntax */ #define VENDOR_DEC 6 /* Compaq, DEC, Digital */ /* prototypes for vendor-specific hook routines */ extern void vendor_daemon_setup __P((ENVELOPE *)); extern void vendor_set_uid __P((UID_T)); /* ** Terminal escape codes. ** ** To make debugging output clearer. */ struct termescape { char *te_rv_on; /* turn reverse-video on */ char *te_under_on; /* turn underlining on */ char *te_normal; /* revert to normal output */ }; /* ** Additional definitions */ /* ** d_flags, see daemon.c ** general rule: lower case: required, upper case: No */ #define D_AUTHREQ 'a' /* authentication required */ #define D_BINDIF 'b' /* use if_addr for outgoing connection */ #define D_CANONREQ 'c' /* canonification required (cf) */ #define D_IFNHELO 'h' /* use if name for HELO */ #define D_FQMAIL 'f' /* fq sender address required (cf) */ #define D_FQRCPT 'r' /* fq recipient address required (cf) */ #define D_SMTPS 's' /* SMTP over SSL (smtps) */ #define D_UNQUALOK 'u' /* unqualified address is ok (cf) */ #define D_NOAUTH 'A' /* no AUTH */ #define D_NOCANON 'C' /* no canonification (cf) */ #define D_NODANE 'D' /* no DANE (client) */ #define D_NOETRN 'E' /* no ETRN (MSA) */ #define D_NOSTS 'M' /* no MTA-STS (client) */ #define D_NOTLS 'S' /* don't use STARTTLS */ #define D_ETRNONLY ((char)0x01) /* allow only ETRN (disk low) */ #define D_OPTIONAL 'O' /* optional socket */ #define D_DISABLE ((char)0x02) /* optional socket disabled */ #define D_ISSET ((char)0x03) /* this client struct is set */ #if _FFR_XCNCT #define D_XCNCT ((char)0x04) /* X-Connect was used */ #define D_XCNCT_M ((char)0x05) /* X-Connect was used + "forged" */ #endif /* ** Queue related items */ /* queue file names */ #define ANYQFL_LETTER '?' #define QUARQF_LETTER 'h' #define DATAFL_LETTER 'd' #define XSCRPT_LETTER 'x' #define NORMQF_LETTER 'q' #define NEWQFL_LETTER 't' # define TEMPQF_LETTER 'T' # define LOSEQF_LETTER 'Q' /* queue sort order */ #define QSO_BYPRIORITY 0 /* sort by message priority */ #define QSO_BYHOST 1 /* sort by first host name */ #define QSO_BYTIME 2 /* sort by submission time */ #define QSO_BYFILENAME 3 /* sort by file name only */ #define QSO_RANDOM 4 /* sort in random order */ #define QSO_BYMODTIME 5 /* sort by modification time */ #define QSO_NONE 6 /* do not sort */ #if _FFR_RHS # define QSO_BYSHUFFLE 7 /* sort by shuffled host name */ #endif #define NOQGRP (-1) /* no queue group (yet) */ #define ENVQGRP (-2) /* use queue group of envelope */ #define NOAQGRP (-3) /* no queue group in addr (yet) */ #define ISVALIDQGRP(x) ((x) >= 0) /* valid queue group? */ #define NOQDIR (-1) /* no queue directory (yet) */ #define ENVQDIR (-2) /* use queue directory of envelope */ #define NOAQDIR (-3) /* no queue directory in addr (yet) */ #define ISVALIDQDIR(x) ((x) >= 0) /* valid queue directory? */ #define RS_QUEUEGROUP "queuegroup" /* ruleset for queue group selection */ #define NOW ((time_t) (-1)) /* queue return: now */ /* SuperSafe values */ #define SAFE_NO 0 /* no fsync(): don't use... */ #define SAFE_INTERACTIVE 1 /* limit fsync() in -odi */ #define SAFE_REALLY 2 /* always fsync() */ #define SAFE_REALLY_POSTMILTER 3 /* fsync() if milter says OK */ /* QueueMode bits */ #define QM_NORMAL ' ' #define QM_QUARANTINE 'Q' #define QM_LOST 'L' /* Queue Run Limitations */ struct queue_char { char *queue_match; /* string to match */ bool queue_negate; /* or not match, if set */ struct queue_char *queue_next; }; /* run_work_group() flags */ #define RWG_NONE 0x0000 #define RWG_FORK 0x0001 #define RWG_VERBOSE 0x0002 #define RWG_PERSISTENT 0x0004 #define RWG_FORCE 0x0008 #define RWG_RUNALL 0x0010 typedef struct queue_char QUEUE_CHAR; EXTERN int volatile CurRunners; /* current number of runner children */ EXTERN int MaxQueueRun; /* maximum number of jobs in one queue run */ EXTERN int MaxQueueChildren; /* max # of forked queue children */ EXTERN int MaxRunnersPerQueue; /* max # proc's active in queue group */ EXTERN int NiceQueueRun; /* nice queue runs to this value */ EXTERN int NumQueue; /* number of queue groups */ EXTERN int QueueFileMode; /* mode on files in mail queue */ EXTERN int QueueMode; /* which queue items to act upon */ EXTERN int QueueSortOrder; /* queue sorting order algorithm */ EXTERN time_t MinQueueAge; /* min delivery interval */ EXTERN time_t MaxQueueAge; /* max delivery interval */ EXTERN time_t QueueIntvl; /* intervals between running the queue */ EXTERN char *QueueDir; /* location of queue directory */ EXTERN QUEUE_CHAR *QueueLimitId; /* limit queue run to id */ EXTERN QUEUE_CHAR *QueueLimitQuarantine; /* limit queue run to quarantine reason */ EXTERN QUEUE_CHAR *QueueLimitRecipient; /* limit queue run to rcpt */ EXTERN QUEUE_CHAR *QueueLimitSender; /* limit queue run to sender */ EXTERN QUEUEGRP *Queue[MAXQUEUEGROUPS + 1]; /* queue groups */ #if _FFR_BOUNCE_QUEUE EXTERN int BounceQueue; #endif /* functions */ extern void assign_queueid __P((ENVELOPE *)); extern ADDRESS *copyqueue __P((ADDRESS *, SM_RPOOL_T *)); extern void cleanup_queues __P((void)); extern bool doqueuerun __P((void)); extern void initsys __P((ENVELOPE *)); extern void loseqfile __P((ENVELOPE *, char *)); extern int name2qid __P((char *)); extern char *qid_printname __P((ENVELOPE *)); extern char *qid_printqueue __P((int, int)); extern void quarantine_queue __P((char *, int)); extern char *queuename __P((ENVELOPE *, int)); extern void queueup __P((ENVELOPE *, unsigned int)); extern bool runqueue __P((bool, bool, bool, bool)); extern bool run_work_group __P((int, int)); extern void set_def_queueval __P((QUEUEGRP *, bool)); extern void setup_queues __P((bool)); extern bool setnewqueue __P((ENVELOPE *)); extern bool shouldqueue __P((long, time_t)); extern void sync_queue_time __P((void)); extern void init_qid_alg __P((void)); extern int print_single_queue __P((int, int)); #if REQUIRES_DIR_FSYNC # define SYNC_DIR(path, panic) sync_dir(path, panic) extern void sync_dir __P((char *, bool)); #else # define SYNC_DIR(path, panic) ((void) 0) #endif #if _FFR_DMTRIGGER extern bool qm __P((void)); extern int deliver __P((ENVELOPE *, ADDRESS *)); #endif /* ** Timeouts ** ** Indicated values are the MINIMUM per RFC 1123 section 5.3.2. */ EXTERN struct { /* RFC 1123-specified timeouts [minimum value] */ time_t to_initial; /* initial greeting timeout [5m] */ time_t to_mail; /* MAIL command [5m] */ time_t to_rcpt; /* RCPT command [5m] */ time_t to_datainit; /* DATA initiation [2m] */ time_t to_datablock; /* DATA block [3m] */ time_t to_datafinal; /* DATA completion [10m] */ time_t to_nextcommand; /* next command [5m] */ /* following timeouts are not mentioned in RFC 1123 */ time_t to_iconnect; /* initial connection timeout (first try) */ time_t to_connect; /* initial connection timeout (later tries) */ time_t to_aconnect; /* all connections timeout (MX and A records) */ time_t to_rset; /* RSET command */ time_t to_helo; /* HELO command */ time_t to_quit; /* QUIT command */ time_t to_miscshort; /* misc short commands (NOOP, VERB, etc) */ time_t to_ident; /* IDENT protocol requests */ time_t to_fileopen; /* opening :include: and .forward files */ time_t to_control; /* process a control socket command */ time_t to_lhlo; /* LMTP: LHLO command */ #if SASL time_t to_auth; /* AUTH dialogue [10m] */ #endif #if STARTTLS time_t to_starttls; /* STARTTLS dialogue [10m] */ #endif /* following are per message */ time_t to_q_return[MAXTOCLASS]; /* queue return timeouts */ time_t to_q_warning[MAXTOCLASS]; /* queue warning timeouts */ time_t res_retrans[MAXRESTOTYPES]; /* resolver retransmit */ int res_retry[MAXRESTOTYPES]; /* resolver retry */ } TimeOuts; /* timeout classes for return and warning timeouts */ #define TOC_NORMAL 0 /* normal delivery */ #define TOC_URGENT 1 /* urgent delivery */ #define TOC_NONURGENT 2 /* non-urgent delivery */ #define TOC_DSN 3 /* DSN delivery */ /* resolver timeout specifiers */ #define RES_TO_FIRST 0 /* first attempt */ #define RES_TO_NORMAL 1 /* subsequent attempts */ #define RES_TO_DEFAULT 2 /* default value */ /* functions */ extern void inittimeouts __P((char *, bool)); /* ** Interface probing */ #define DPI_PROBENONE 0 /* Don't probe any interfaces */ #define DPI_PROBEALL 1 /* Probe all interfaces */ #define DPI_SKIPLOOPBACK 2 /* Don't probe loopback interfaces */ /* ** Trace information */ /* macros for debugging flags */ #if NOT_SENDMAIL # define tTd(flag, level) (tTdvect[flag] >= (unsigned char)level) #else # define tTd(flag, level) (tTdvect[flag] >= (unsigned char)level && !IntSig) # if _FFR_TESTS # define TTD(flag, level) (tTdvect[flag] >= (unsigned char)level && !IntSig) # else # define TTD(flag, level) false # endif #endif #define tTdlevel(flag) (tTdvect[flag]) /* variables */ extern unsigned char tTdvect[100]; /* trace vector */ /* ** Miscellaneous information. */ /* ** The "no queue id" queue id for sm_syslog */ #define NOQID "" #define CURHOSTNAME (CurHostName == NULL ? "local" : CurHostName) /* ** Some in-line functions */ /* set exit status */ #define setstat(s) \ do \ { \ if (ExitStat == EX_OK || ExitStat == EX_TEMPFAIL) \ ExitStat = s; \ } while (0) #define STRUCTCOPY(s, d) d = s /* ** Update a permanent string variable with a new value. ** The old value is freed, the new value is strdup'ed. ** ** We use sm_pstrdup_x to duplicate the string because it raises ** an exception on error, and because it allocates "permanent storage" ** which is not expected to be freed before process exit. ** The latter is important for memory leak analysis. ** ** If an exception occurs while strdup'ing the new value, ** then the variable remains set to the old value. ** That's why the strdup must occur before we free the old value. */ #define PSTRSET(var, val) \ do \ { \ char *_newval = sm_pstrdup_x(val); \ if (var != NULL) \ sm_free(var); \ var = _newval; \ } while (0) #define _CHECK_RESTART \ do \ { \ if (ShutdownRequest != NULL) \ shutdown_daemon(); \ else if (RestartRequest != NULL) \ restart_daemon(); \ else if (RestartWorkGroup) \ restart_marked_work_groups(); \ } while (0) # define CHECK_RESTART _CHECK_RESTART #define CHK_CUR_RUNNERS(fct, idx, count) \ do \ { \ if (CurRunners < 0) \ { \ if (LogLevel > 3) \ sm_syslog(LOG_ERR, NOQID, \ "%s: CurRunners=%d, i=%d, count=%d, status=should not happen", \ fct, CurRunners, idx, count); \ CurRunners = 0; \ } \ } while (0) /* reply types (text in SmtpMsgBuffer) */ /* XREF: deliver.c: xs_states[] -- any changes here must be reflected there! */ #define XS_DEFAULT 0 /* other commands, e.g., RSET */ #define XS_STARTTLS 1 #define XS_AUTH 2 #define XS_GREET 3 #define XS_EHLO 4 #define XS_MAIL 5 #define XS_RCPT 6 #define XS_DATA 7 #define XS_EOM 8 #define XS_DATA2 9 /* LMTP */ #define XS_QUIT 10 /* ** Global variables. */ #if _FFR_ADD_BCC EXTERN bool AddBcc; #endif #if _FFR_ADDR_TYPE_MODES EXTERN bool AddrTypeModes; /* addr_type: extra "mode" information */ #endif EXTERN bool AllowBogusHELO; /* allow syntax errors on HELO command */ EXTERN bool CheckAliases; /* parse addresses during newaliases */ #if _FFR_QUEUE_RUN_PARANOIA EXTERN int CheckQueueRunners; /* check whether queue runners are OK */ #endif EXTERN bool ColonOkInAddr; /* single colon legal in address */ #if !defined(_USE_SUN_NSSWITCH_) && !defined(_USE_DEC_SVC_CONF_) EXTERN bool ConfigFileRead; /* configuration file has been read */ #endif EXTERN bool DisConnected; /* running with OutChannel redirect to transcript file */ EXTERN bool DontExpandCnames; /* do not $[...$] expand CNAMEs */ EXTERN bool DontInitGroups; /* avoid initgroups() because of NIS cost */ EXTERN bool DontLockReadFiles; /* don't read lock support files */ EXTERN bool DontPruneRoutes; /* don't prune source routes */ EXTERN bool ForkQueueRuns; /* fork for each job when running the queue */ EXTERN bool FromFlag; /* if set, "From" person is explicit */ EXTERN bool FipsMode; EXTERN bool GrabTo; /* if set, get recipients from msg */ #if _FFR_EIGHT_BIT_ADDR_OK EXTERN bool EightBitAddrOK; /* we'll let 8-bit addresses through */ #else # define EightBitAddrOK false #endif EXTERN bool HasEightBits; /* has at least one eight bit input byte */ EXTERN bool HasWildcardMX; /* don't use MX records when canonifying */ EXTERN bool HoldErrs; /* only output errors to transcript */ EXTERN bool IgnoreHostStatus; /* ignore long term host status files */ EXTERN bool IgnrDot; /* don't let dot end messages */ #if _FFR_KEEPBCC EXTERN bool KeepBcc; #else # define KeepBcc false #endif EXTERN bool LogUsrErrs; /* syslog user errors (e.g., SMTP RCPT cmd) */ EXTERN bool MatchGecos; /* look for user names in gecos field */ EXTERN bool MeToo; /* send to the sender also */ EXTERN bool NoAlias; /* suppress aliasing */ EXTERN bool NoConnect; /* don't connect to non-local mailers */ EXTERN bool OnlyOneError; /* .... or only want to give one SMTP reply */ EXTERN bool QuickAbort; /* .... but only if we want a quick abort */ #if _FFR_REJECT_NUL_BYTE EXTERN bool RejectNUL; /* reject NUL input byte? */ #endif #if REQUIRES_DIR_FSYNC EXTERN bool RequiresDirfsync; /* requires fsync() for directory */ #endif EXTERN bool volatile RestartWorkGroup; /* daemon needs to restart some work groups */ EXTERN bool RrtImpliesDsn; /* turn Return-Receipt-To: into DSN */ EXTERN bool SaveFrom; /* save leading "From" lines */ EXTERN bool SendMIMEErrors; /* send error messages in MIME format */ EXTERN bool SevenBitInput; /* force 7-bit data on input */ EXTERN bool SingleLineFromHeader; /* force From: header to be one line */ EXTERN bool SingleThreadDelivery; /* single thread hosts on delivery */ EXTERN bool SoftBounce; /* replace 5xy by 4xy (for testing) */ EXTERN bool volatile StopRequest; /* stop sending output */ EXTERN bool SuprErrs; /* set if we are suppressing errors */ EXTERN bool TryNullMXList; /* if we are the best MX, try host directly */ EXTERN bool UseMSP; /* mail submission: group writable queue ok? */ EXTERN bool WorkAroundBrokenAAAA; /* some nameservers return SERVFAIL on AAAA queries */ EXTERN bool UseErrorsTo; /* use Errors-To: header (back compat) */ EXTERN bool UseNameServer; /* using DNS -- interpret h_errno & MX RRs */ EXTERN bool UseCompressedIPv6Addresses; /* for more specific zero-subnet matches */ EXTERN char InetMode; /* default network for daemon mode */ EXTERN char OpMode; /* operation mode, see below */ EXTERN char SpaceSub; /* substitution for */ #if _FFR_BADRCPT_SHUTDOWN EXTERN int BadRcptShutdown; /* Shutdown connection for rejected RCPTs */ EXTERN int BadRcptShutdownGood; /* above even when there are good RCPTs */ #endif EXTERN int BadRcptThrottle; /* Throttle rejected RCPTs per SMTP message */ #if _FFR_RCPTTHROTDELAY EXTERN unsigned int BadRcptThrottleDelay; /* delay for BadRcptThrottle */ #else # define BadRcptThrottleDelay 1 #endif #if _FFR_TLS_ALTNAMES EXTERN bool SetCertAltnames; #endif EXTERN int CheckpointInterval; /* queue file checkpoint interval */ EXTERN int ConfigLevel; /* config file level */ EXTERN int ConnRateThrottle; /* throttle for SMTP connection rate */ EXTERN int volatile CurChildren; /* current number of daemonic children */ EXTERN int CurrentLA; /* current load average */ #if DANE EXTERN int Dane; /* DANE */ #else # define Dane 0 /* XREF: see tls.h: #define DANE_NEVER */ #endif EXTERN int DefaultNotify; /* default DSN notification flags */ EXTERN int DelayLA; /* load average to delay connections */ EXTERN int DontProbeInterfaces; /* don't probe interfaces for names */ EXTERN int Errors; /* set if errors (local to single pass) */ EXTERN int ExitStat; /* exit status code */ EXTERN int FastSplit; /* fast initial splitting of envelopes */ EXTERN int FileMode; /* mode on files */ EXTERN int LineNumber; /* line number in current input */ EXTERN int LogLevel; /* level of logging to perform */ EXTERN int MaxAliasRecursion; /* maximum depth of alias recursion */ EXTERN int MaxChildren; /* maximum number of daemonic children */ EXTERN int MaxForwardEntries; /* maximum number of forward entries */ EXTERN int MaxHeadersLength; /* max length of headers */ EXTERN int MaxHopCount; /* max # of hops until bounce */ EXTERN int MaxMacroRecursion; /* maximum depth of macro recursion */ EXTERN int MaxMimeFieldLength; /* maximum MIME field length */ EXTERN int MaxMimeHeaderLength; /* maximum MIME header length */ EXTERN int MaxNOOPCommands; /* max "noise" commands before slowdown */ EXTERN int MaxRcptPerMsg; /* max recipients per SMTP message */ EXTERN int MaxRuleRecursion; /* maximum depth of ruleset recursion */ #if _FFR_MSG_ACCEPT EXTERN char *MessageAccept; /* "Message accepted for delivery" reply text */ #endif EXTERN int MimeMode; /* MIME processing mode */ #if _FFR_MTA_STS EXTERN bool MTASTS; EXTERN char *STS_SNI; #endif EXTERN int NoRecipientAction; #if SM_CONF_SHM EXTERN int Numfilesys; /* number of queue file systems */ EXTERN int *PNumFileSys; # define NumFileSys (*PNumFileSys) #else /* SM_CONF_SHM */ EXTERN int NumFileSys; /* number of queue file systems */ #endif /* SM_CONF_SHM */ EXTERN int QueueLA; /* load average starting forced queueing */ EXTERN int RefuseLA; /* load average refusing connections */ EXTERN time_t RejectLogInterval; /* time btwn log msgs while refusing */ #if _FFR_MEMSTAT EXTERN long QueueLowMem; /* low memory starting forced queueing */ EXTERN long RefuseLowMem; /* low memory refusing connections */ EXTERN char *MemoryResource;/* memory resource to look up */ #endif /* _FFR_MEMSTAT */ EXTERN int SuperSafe; /* be extra careful, even if expensive */ #if USE_EAI EXTERN int SMTP_UTF8; /* enable SMTPUTF8 support */ #else # define SMTP_UTF8 false #endif EXTERN int VendorCode; /* vendor-specific operation enhancements */ EXTERN int Verbose; /* set if blow-by-blow desired */ EXTERN gid_t DefGid; /* default gid to run as */ EXTERN gid_t RealGid; /* real gid of caller */ EXTERN gid_t RunAsGid; /* GID to become for bulk of run */ EXTERN gid_t EffGid; /* effective gid */ #if SM_CONF_SHM EXTERN key_t ShmKey; /* shared memory key */ EXTERN char *ShmKeyFile; /* shared memory key file */ #endif EXTERN pid_t CurrentPid; /* current process id */ EXTERN pid_t DaemonPid; /* process id of daemon */ EXTERN pid_t PidFilePid; /* daemon/queue runner who wrote pid file */ EXTERN uid_t DefUid; /* default uid to run as */ EXTERN uid_t RealUid; /* real uid of caller */ EXTERN uid_t RunAsUid; /* UID to become for bulk of run */ EXTERN uid_t TrustedUid; /* uid of trusted user for files and startup */ EXTERN size_t DataFileBufferSize; /* size of buf for in-core data file */ EXTERN time_t DeliverByMin; /* deliver by minimum time */ EXTERN time_t DialDelay; /* delay between dial-on-demand tries */ EXTERN time_t SafeAlias; /* interval to wait until @:@ in alias file */ EXTERN time_t ServiceCacheMaxAge; /* refresh interval for cache */ EXTERN size_t XscriptFileBufferSize; /* size of buf for in-core transcript file */ EXTERN MODE_T OldUmask; /* umask when sendmail starts up */ EXTERN long MaxMessageSize; /* advertised max size we will accept */ EXTERN long MinBlocksFree; /* min # of blocks free on queue fs */ EXTERN long QueueFactor; /* slope of queue function */ EXTERN long WkClassFact; /* multiplier for message class -> priority */ EXTERN long WkRecipFact; /* multiplier for # of recipients -> priority */ EXTERN long WkTimeFact; /* priority offset each time this job is run */ EXTERN char *ControlSocketName; /* control socket filename [control.c] */ EXTERN char *CurHostName; /* current host we are dealing with */ EXTERN char *DeadLetterDrop; /* path to dead letter office */ EXTERN char *DefUser; /* default user to run as (from DefUid) */ EXTERN char *DefaultCharSet; /* default character set for MIME */ EXTERN char *DoubleBounceAddr; /* where to send double bounces */ EXTERN char *ErrMsgFile; /* file to prepend to all error messages */ EXTERN char *FallbackMX; /* fall back MX host */ EXTERN char *FallbackSmartHost; /* fall back smart host */ EXTERN char *FileName; /* name to print on error messages */ EXTERN char *ForwardPath; /* path to search for .forward files */ EXTERN char *HeloName; /* hostname to announce in HELO */ EXTERN char *HelpFile; /* location of SMTP help file */ EXTERN char *HostStatDir; /* location of host status information */ EXTERN char *HostsFile; /* path to /etc/hosts file */ extern char *Mbdb; /* mailbox database type */ EXTERN char *MustQuoteChars; /* quote these characters in phrases */ EXTERN char *MyHostName; /* name of this host for SMTP messages */ EXTERN char *OperatorChars; /* operators (old $o macro) */ EXTERN char *PidFile; /* location of proc id file [conf.c] */ EXTERN char *PostMasterCopy; /* address to get errs cc's */ EXTERN char *ProcTitlePrefix; /* process title prefix */ EXTERN char *RealHostName; /* name of host we are talking to */ EXTERN char *RealUserName; /* real user name of caller */ EXTERN char *volatile RestartRequest;/* a sendmail restart has been requested */ EXTERN char *RunAsUserName; /* user to become for bulk of run */ EXTERN char *SafeFileEnv; /* chroot location for file delivery */ EXTERN char *ServiceSwitchFile; /* backup service switch */ EXTERN char *volatile ShutdownRequest;/* a sendmail shutdown has been requested */ EXTERN bool volatile IntSig; EXTERN char *SmtpGreeting; /* SMTP greeting message (old $e macro) */ EXTERN char *SmtpPhase; /* current phase in SMTP processing */ EXTERN char SmtpError[MAXLINE]; /* save failure error messages */ EXTERN char *StatFile; /* location of statistics summary */ EXTERN char *TimeZoneSpec; /* override time zone specification */ EXTERN char *UdbSpec; /* user database source spec */ EXTERN char *UnixFromLine; /* UNIX From_ line (old $l macro) */ EXTERN char **ExternalEnviron; /* saved user (input) environment */ EXTERN char **SaveArgv; /* argument vector for re-execing */ EXTERN BITMAP256 DontBlameSendmail; /* DontBlameSendmail bits */ EXTERN SM_FILE_T *InChannel; /* input connection */ EXTERN SM_FILE_T *OutChannel; /* output connection */ EXTERN SM_FILE_T *TrafficLogFile; /* file in which to log all traffic */ #if HESIOD EXTERN void *HesiodContext; #endif EXTERN ENVELOPE *CurEnv; /* envelope currently being processed */ EXTERN char *RuleSetNames[MAXRWSETS]; /* ruleset number to name */ EXTERN char *UserEnviron[MAXUSERENVIRON + 1]; EXTERN struct rewrite *RewriteRules[MAXRWSETS]; EXTERN struct termescape TermEscape; /* terminal escape codes */ EXTERN SOCKADDR ConnectOnlyTo; /* override connection address (for testing) */ EXTERN SOCKADDR RealHostAddr; /* address of host we are talking to */ extern const SM_EXC_TYPE_T EtypeQuickAbort; /* type of a QuickAbort exception */ #if _FFR_BLANKENV_MACV EXTERN int Hacks; /* bit field of run-time enabled "hacks" */ # define H_LOOKUP_MACRO_IN_BLANKENV 0x0001 # define LOOKUP_MACRO_IN_BLANKENV (Hacks & H_LOOKUP_MACRO_IN_BLANKENV) #else # define LOOKUP_MACRO_IN_BLANKENV false #endif EXTERN int ConnectionRateWindowSize; /* ** Declarations of useful functions */ /* Transcript file */ extern void closexscript __P((ENVELOPE *)); extern void openxscript __P((ENVELOPE *)); #if SM_DEVELOPER #define NR_PRINTFLIKE(a, b) PRINTFLIKE(a, b) #else #define NR_PRINTFLIKE(a, b) #endif /* error related */ extern void buffer_errors __P((void)); extern void flush_errors __P((bool)); extern void NR_PRINTFLIKE(1, 2) message __P((const char *, ...)); extern void NR_PRINTFLIKE(1, 2) nmessage __P((const char *, ...)); #if _FFR_PROXY extern void NR_PRINTFLIKE(3, 4) emessage __P((const char *, const char *, const char *, ...)); extern int extsc __P((const char *, int, char *, char *)); #endif extern void NR_PRINTFLIKE(1, 2) syserr __P((const char *, ...)); extern void NR_PRINTFLIKE(2, 3) usrerrenh __P((char *, const char *, ...)); extern void NR_PRINTFLIKE(1, 2) usrerr __P((const char *, ...)); extern int isenhsc __P((const char *, int)); extern int extenhsc __P((const char *, int, char *)); extern int skipaddrhost __P((const char *, bool)); /* alias file */ extern void alias __P((ADDRESS *, ADDRESS **, int, ENVELOPE *)); extern bool aliaswait __P((MAP *, const char *, bool)); extern void forward __P((ADDRESS *, ADDRESS **, int, ENVELOPE *)); extern void readaliases __P((MAP *, SM_FILE_T *, bool, bool)); extern bool rebuildaliases __P((MAP *)); extern void setalias __P((char *)); /* logging */ extern void logdelivery __P((MAILER *, MCI *, char *, const char *, ADDRESS *, time_t, ENVELOPE *, ADDRESS *, int)); extern void logsender __P((ENVELOPE *, char *)); extern void PRINTFLIKE(3, 4) sm_syslog __P((int, const char *, const char *, ...)); /* SMTP */ extern void giveresponse __P((int, char *, MAILER *, MCI *, ADDRESS *, time_t, ENVELOPE *, ADDRESS *)); extern int reply __P((MAILER *, MCI *, ENVELOPE *, time_t, void (*)__P((char *, bool, MAILER *, MCI *, ENVELOPE *)), char **, int, char **)); extern void smtp __P((char *volatile, BITMAP256, ENVELOPE *volatile)); #if SASL extern int smtpauth __P((MAILER *, MCI *, ENVELOPE *)); #endif extern void smtpclrse __P((ENVELOPE *)); extern int smtpdata __P((MAILER *, MCI *, ENVELOPE *, ADDRESS *, time_t)); extern int smtpgetstat __P((MAILER *, MCI *, ENVELOPE *)); extern int smtpmailfrom __P((MAILER *, MCI *, ENVELOPE *)); extern void smtpmessage __P((char *, MAILER *, MCI *, ...)); extern void smtpinit __P((MAILER *, MCI *, ENVELOPE *, bool)); extern char *smtptodsn __P((int)); extern int smtpprobe __P((MCI *)); extern void smtpquit __P((MAILER *, MCI *, ENVELOPE *)); extern int smtprcpt __P((ADDRESS *, MAILER *, MCI *, ENVELOPE *, ADDRESS *, time_t)); extern void smtprset __P((MAILER *, MCI *, ENVELOPE *)); #define REPLYTYPE(r) ((r) / 100) /* first digit of reply code */ #define REPLYCLASS(r) (((r) / 10) % 10) /* second digit of reply code */ #define REPLYMINOR(r) ((r) % 10) /* last digit of reply code */ #define ISSMTPCODE(c) (isascii(c[0]) && isdigit(c[0]) && \ isascii(c[1]) && isdigit(c[1]) && \ isascii(c[2]) && isdigit(c[2])) #define ISSMTPREPLY(c) (ISSMTPCODE(c) && \ (c[3] == ' ' || c[3] == '-' || c[3] == '\0')) #define SM_ISSPACE(c) (isascii(c) && isspace(c)) /* delivery */ extern pid_t dowork __P((int, int, char *, bool, bool, ENVELOPE *)); extern pid_t doworklist __P((ENVELOPE *, bool, bool)); extern int endmailer __P((MCI *, ENVELOPE *, char **)); extern int mailfile __P((char *volatile, MAILER *volatile, ADDRESS *, volatile long, ENVELOPE *)); extern void sendall __P((ENVELOPE *, int)); /* stats */ #define STATS_NORMAL 'n' #define STATS_QUARANTINE 'q' #define STATS_REJECT 'r' #define STATS_CONNECT 'c' extern void markstats __P((ENVELOPE *, ADDRESS *, int)); extern void clearstats __P((void)); extern void poststats __P((char *)); /* control socket */ extern void closecontrolsocket __P((bool)); extern void clrcontrol __P((void)); extern void control_command __P((int, ENVELOPE *)); extern int opencontrolsocket __P((void)); #if MILTER /* milter functions */ extern void milter_config __P((char *, struct milter **, int)); extern void milter_setup __P((char *)); extern void milter_set_option __P((char *, char *, bool)); extern bool milter_init __P((ENVELOPE *, char *, milters_T *)); extern void milter_quit __P((ENVELOPE *)); extern void milter_abort __P((ENVELOPE *)); extern char *milter_connect __P((char *, SOCKADDR, ENVELOPE *, char *)); extern char *milter_helo __P((char *, ENVELOPE *, char *)); extern char *milter_envfrom __P((char **, ENVELOPE *, char *)); extern char *milter_data_cmd __P((ENVELOPE *, char *)); extern char *milter_envrcpt __P((char **, ENVELOPE *, char *, bool)); extern char *milter_data __P((ENVELOPE *, char *)); extern char *milter_unknown __P((char *, ENVELOPE *, char *)); #endif /* MILTER */ extern char *addquotes __P((char *, SM_RPOOL_T *)); extern char *arpadate __P((char *)); extern bool atobool __P((char *)); extern int atooct __P((char *)); extern void auth_warning __P((ENVELOPE *, const char *, ...)); extern int blocksignal __P((int)); extern bool bitintersect __P((BITMAP256, BITMAP256)); extern bool bitzerop __P((BITMAP256)); extern int check_bodytype __P((char *)); extern void buildfname __P((char *, char *, char *, int)); extern bool chkclientmodifiers __P((int)); extern bool chkdaemonmodifiers __P((int)); extern int checkcompat __P((ADDRESS *, ENVELOPE *)); #if XDEBUG extern void checkfd012 __P((char *)); extern void checkfdopen __P((int, char *)); #else # define checkfd012(str) ((void) 0) # define checkfdopen(n, str) ((void) 0) #endif extern void checkfds __P((char *)); extern bool chownsafe __P((int, bool)); extern void cleanstrcpy __P((char *, char *, int)); #if SM_CONF_SHM extern void cleanup_shm __P((bool)); #endif extern void close_sendmail_pid __P((void)); extern void clrdaemon __P((void)); extern void collect __P((SM_FILE_T *, int, HDR **, ENVELOPE *, bool)); extern time_t convtime __P((char *, int)); extern char **copyplist __P((char **, bool, SM_RPOOL_T *)); extern void copy_class __P((int, int)); extern int count_open_connections __P((SOCKADDR *)); extern time_t curtime __P((void)); extern char *defcharset __P((ENVELOPE *)); extern char *denlstring __P((char *, bool, bool)); extern void dferror __P((SM_FILE_T *volatile, char *, ENVELOPE *)); extern void disconnect __P((int, ENVELOPE *)); extern void disk_status __P((SM_FILE_T *, char *)); extern int dns_getcanonname __P((char *, int, bool, int *, int *)); extern pid_t dofork __P((void)); extern int drop_privileges __P((bool)); extern int dsntoexitstat __P((char *)); extern void dumpfd __P((int, bool, bool)); #if SM_HEAP_CHECK extern void dumpstab __P((void)); #endif extern void dumpstate __P((char *)); extern bool enoughdiskspace __P((long, ENVELOPE *)); extern char *exitstat __P((char *)); extern void fatal_error __P((SM_EXC_T *)); extern char *fgetfolded __P((char *, int *, SM_FILE_T *)); extern void fill_fd __P((int, char *)); extern char *find_character __P((char *, int)); extern int finduser __P((char *, bool *, SM_MBDB_T *)); extern void finis __P((bool, bool, volatile int)); extern void fixcrlf __P((char *, bool)); extern long freediskspace __P((const char *, long *)); #if NETINET6 && NEEDSGETIPNODE extern void freehostent __P((struct hostent *)); #endif extern char *get_column __P((char *, int, int, char *, int)); extern char *getauthinfo __P((int, bool *)); extern int getdtsize __P((void)); extern int getla __P((void)); extern char *getmodifiers __P((char *, BITMAP256)); extern BITMAP256 *getrequests __P((ENVELOPE *)); extern char *getvendor __P((int)); extern void help __P((char *, ENVELOPE *)); extern void init_md __P((int, char **)); extern void initdaemon __P((void)); extern void inithostmaps __P((void)); extern void initmacros __P((ENVELOPE *)); extern void initsetproctitle __P((int, char **, char **)); extern void init_vendor_macros __P((ENVELOPE *)); extern SIGFUNC_DECL intsig __P((int)); extern bool isatom __P((const char *)); extern bool isloopback __P((SOCKADDR sa)); extern void load_if_names __P((void)); extern bool lockfile __P((int, char *, char *, int)); extern void log_sendmail_pid __P((ENVELOPE *)); extern void logundelrcpts __P((ENVELOPE *, char *, int, bool)); extern char lower __P((int)); extern char *makelower_a __P((char **, SM_RPOOL_T *)); extern void makelower_buf __P((char *, char *, int)); extern int makeconnection_ds __P((char *, MCI *)); #if DANE extern int makeconnection __P((char *, volatile unsigned int, MCI *, ENVELOPE *, time_t, unsigned long *)); #else extern int makeconnection __P((char *, volatile unsigned int, MCI *, ENVELOPE *, time_t)); #endif extern void makeworkgroups __P((void)); extern void markfailure __P((ENVELOPE *, ADDRESS *, MCI *, int, bool)); extern void mark_work_group_restart __P((int, int)); extern MCI *mci_new __P((SM_RPOOL_T *)); extern char *munchstring __P((char *, char **, int)); extern struct hostent *myhostname __P((char *, int)); #if SM_HEAP_CHECK > 2 extern char *newstr_tagged __P((const char *, char *, int, int)); # define newstr(str) newstr_tagged(str, "newstr:" __FILE__, __LINE__, SmHeapGroup) #else extern char *newstr __P((const char *)); # define newstr_tagged(str, file, line, grp) newstr(str) #endif #if NISPLUS extern char *nisplus_default_domain __P((void)); /* extern for Sun */ #endif extern bool path_is_dir __P((char *, bool)); extern int pickqdir __P((QUEUEGRP *qg, long fsize, ENVELOPE *e)); extern char *pintvl __P((time_t, bool)); extern void printav __P((SM_FILE_T *, char **)); extern void printmailer __P((SM_FILE_T *, MAILER *)); extern void printnqe __P((SM_FILE_T *, char *)); extern void printopenfds __P((bool)); extern void printqueue __P((void)); extern void printrules __P((void)); extern pid_t prog_open __P((char **, int *, ENVELOPE *)); extern bool putline __P((char *, MCI *)); extern bool putxline __P((char *, size_t, MCI *, int)); extern void queueup_macros __P((int, SM_FILE_T *, ENVELOPE *)); extern void readcf __P((char *, bool, ENVELOPE *)); extern SIGFUNC_DECL reapchild __P((int)); extern int releasesignal __P((int)); extern void resetlimits __P((void)); extern void restart_daemon __P((void)); extern void restart_marked_work_groups __P((void)); extern bool rfc822_string __P((char *)); extern void rmexpstab __P((void)); extern bool savemail __P((ENVELOPE *, bool)); extern void seed_random __P((void)); extern void sendtoargv __P((char **, ENVELOPE *)); extern void setclientoptions __P((char *)); extern bool setdaemonoptions __P((char *)); extern void setdefaults __P((ENVELOPE *)); extern void setdefuser __P((void)); extern bool setvendor __P((char *)); extern void set_op_mode __P((int)); extern void setoption __P((int, char *, bool, bool, ENVELOPE *)); extern sigfunc_t setsignal __P((int, sigfunc_t)); extern void sm_setuserenv __P((const char *, const char *)); extern void settime __P((ENVELOPE *)); #if STARTTLS extern int set_tls_rd_tmo __P((int)); #else # define set_tls_rd_tmo(rd_tmo) 0 #endif extern char *sfgets __P((char *, int, SM_FILE_T *, time_t, char *)); extern char *shortenstring __P((const char *, size_t)); extern char *shorten_hostname __P((char [])); extern bool shorten_rfc822_string __P((char *, size_t)); extern void showcfopts __P((void)); extern void shutdown_daemon __P((void)); extern void sm_closefrom __P((int lowest, int highest)); extern void sm_close_on_exec __P((int lowest, int highest)); extern struct hostent *sm_gethostbyname __P((char *, int)); extern struct hostent *sm_gethostbyaddr __P((char *, int, int)); extern void sm_getla __P((void)); extern struct passwd *sm_getpwnam __P((char *)); extern struct passwd *sm_getpwuid __P((UID_T)); extern void sm_setproctitle __P((bool, ENVELOPE *, const char *, ...)); extern pid_t sm_wait __P((int *)); extern bool split_by_recipient __P((ENVELOPE *e)); extern void stop_sendmail __P((void)); extern void stripbackslash __P((char *)); extern bool strreplnonprt __P((char *, int)); extern bool strcontainedin __P((bool, char *, char *)); extern int switch_map_find __P((char *, char *[], short [])); #if STARTTLS extern void tls_set_verify __P((SSL_CTX *, SSL *, bool)); #endif extern bool transienterror __P((int)); extern void truncate_at_delim __P((char *, size_t, int)); extern void tTflag __P((char *)); extern void tTsetup __P((unsigned char *, unsigned int, char *)); extern SIGFUNC_DECL tick __P((int)); extern char *ttypath __P((void)); extern void unlockqueue __P((ENVELOPE *)); #if !HASUNSETENV extern void unsetenv __P((char *)); #endif /* update file system information: +/- some blocks */ #if SM_CONF_SHM extern void upd_qs __P((ENVELOPE *, int, int, char *)); # define updfs(e, count, space, where) upd_qs(e, count, space, where) #else /* SM_CONF_SHM */ # define updfs(e, count, space, where) # define upd_qs(e, count, space, where) #endif /* SM_CONF_SHM */ extern char *username __P((void)); extern bool usershellok __P((char *, char *)); extern void vendor_post_defaults __P((ENVELOPE *)); extern void vendor_pre_defaults __P((ENVELOPE *)); extern int waitfor __P((pid_t)); extern bool writable __P((char *, ADDRESS *, long)); #if SM_HEAP_CHECK # define xalloc(size) xalloc_tagged(size, __FILE__, __LINE__) extern char *xalloc_tagged __P((int, char *, int)); #else extern char *xalloc __P((int)); #endif /* SM_HEAP_CHECK */ #if _FFR_XCNCT extern int xconnect __P((SM_FILE_T *)); #endif extern void xputs __P((SM_FILE_T *, const char *)); extern char *xtextify __P((char *, char *)); extern bool xtextok __P((char *)); extern int xunlink __P((char *)); extern char *xuntextify __P((char *)); /* flags for collect() */ #define SMTPMODE_NO 0 #define SMTPMODE_LAX 0x01 #define SMTPMODE_CRLF 0x02 /* CRLF.CRLF required for EOM */ #define SMTPMODE_LF_421 0x04 /* bare LF: drop connection */ #define SMTPMODE_CR_421 0x08 /* bare CR: drop connection */ #define SMTPMODE_LF_SP 0x10 /* bare LF: replace with space */ #define SMTPMODE_CR_SP 0x20 /* bare CR: replace with space */ #define ASSIGN_IFDIFF(old, new) \ do \ { \ if ((new) != (old)) \ { \ SM_FREE(old); \ old = new; \ new = NULL; \ } \ } while (0); #if USE_EAI extern bool addr_is_ascii __P((const char *)); extern bool str_is_print __P((const char *)); extern const char *hn2alabel __P((const char *)); #endif #if _FFR_RCPTFLAGS extern bool newmodmailer __P((ADDRESS *, int)); #endif #define SM_CLOSE_FP(fp) \ do \ { \ if ((fp) != NULL) \ { \ (void) sm_io_close((fp), SM_TIME_DEFAULT); \ fp = NULL; \ } \ } while (0); #undef EXTERN #endif /* ! _SENDMAIL_H */ sendmail-8.18.1/sendmail/milter.c0000644000372400037240000032002614556365350016226 0ustar xbuildxbuild/* * Copyright (c) 1999-2009, 2012, 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: milter.c,v 8.281 2013-11-22 20:51:56 ca Exp $") #if MILTER # include # include # include # if _FFR_8BITENVADDR # include # endif # include # include # include # if NETINET || NETINET6 # include # if MILTER_NO_NAGLE # include # endif # endif /* NETINET || NETINET6 */ # include static void milter_connect_timeout __P((int)); static void milter_error __P((struct milter *, ENVELOPE *)); static int milter_open __P((struct milter *, bool, ENVELOPE *)); static void milter_parse_timeouts __P((char *, struct milter *)); static char *milter_sysread __P((struct milter *, char *, ssize_t, time_t, ENVELOPE *, const char *)); static char *milter_read __P((struct milter *, char *, ssize_t *, time_t, ENVELOPE *, const char *)); static char *milter_write __P((struct milter *, int, char *, ssize_t, time_t, ENVELOPE *, const char *)); static char *milter_send_command __P((struct milter *, int, void *, ssize_t, ENVELOPE *, char *, const char *)); static char *milter_command __P((int, void *, ssize_t, int, ENVELOPE *, char *, const char *, bool)); static char *milter_body __P((struct milter *, ENVELOPE *, char *)); static int milter_reopen_df __P((ENVELOPE *)); static int milter_reset_df __P((ENVELOPE *)); static void milter_quit_filter __P((struct milter *, ENVELOPE *)); static void milter_abort_filter __P((struct milter *, ENVELOPE *)); static void milter_send_macros __P((struct milter *, char **, int, ENVELOPE *)); static int milter_negotiate __P((struct milter *, ENVELOPE *, milters_T *)); static void milter_per_connection_check __P((ENVELOPE *)); static char *milter_headers __P((struct milter *, ENVELOPE *, char *)); static void milter_addheader __P((struct milter *, char *, ssize_t, ENVELOPE *)); static void milter_insheader __P((struct milter *, char *, ssize_t, ENVELOPE *)); static void milter_changeheader __P((struct milter *, char *, ssize_t, ENVELOPE *)); static void milter_chgfrom __P((char *, ssize_t, ENVELOPE *, const char *)); static void milter_addrcpt __P((char *, ssize_t, ENVELOPE *, const char *)); static void milter_addrcpt_par __P((char *, ssize_t, ENVELOPE *, const char *)); static void milter_delrcpt __P((char *, ssize_t, ENVELOPE *, const char *)); static int milter_replbody __P((char *, ssize_t, bool, ENVELOPE *, const char *)); static int milter_set_macros __P((char *, char **, char *, int)); /* milter states */ # define SMFS_CLOSED 'C' /* closed for all further actions */ # define SMFS_OPEN 'O' /* connected to remote milter filter */ # define SMFS_INMSG 'M' /* currently servicing a message */ # define SMFS_DONE 'D' /* done with current message */ # define SMFS_CLOSABLE 'Q' /* done with current connection */ # define SMFS_ERROR 'E' /* error state */ # define SMFS_READY 'R' /* ready for action */ # define SMFS_SKIP 'S' /* skip body */ /* ** MilterMacros contains the milter macros for each milter and each stage. ** indices are (in order): stages, milter-index, macro ** milter-index == 0: "global" macros (not for a specific milter). */ static char *MilterMacros[SMFIM_LAST + 1][MAXFILTERS + 1][MAXFILTERMACROS + 1]; static size_t MilterMaxDataSize = MILTER_MAX_DATA_SIZE; # define MILTER_CHECK_DONE_MSG() \ if (*state == SMFIR_REPLYCODE || \ *state == SMFIR_REJECT || \ *state == SMFIR_DISCARD || \ *state == SMFIR_TEMPFAIL) \ { \ /* Abort the filters to let them know we are done with msg */ \ milter_abort(e); \ } /* set state in case of an error */ # define MILTER_SET_STATE \ if (bitnset(SMF_TEMPFAIL, m->mf_flags)) \ *state = SMFIR_TEMPFAIL; \ else if (bitnset(SMF_TEMPDROP, m->mf_flags)) \ *state = SMFIR_SHUTDOWN; \ else if (bitnset(SMF_REJECT, m->mf_flags)) \ *state = SMFIR_REJECT /* flow through code maybe using continue; don't wrap in do {} while */ # define MILTER_CHECK_ERROR(initial, action) \ if (!initial && tTd(71, 100)) \ { \ if (e->e_quarmsg == NULL) \ { \ e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool, \ "filter failure"); \ macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), \ e->e_quarmsg); \ } \ } \ else if (tTd(71, 101)) \ { \ if (e->e_quarmsg == NULL) \ { \ e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool, \ "filter failure"); \ macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), \ e->e_quarmsg); \ } \ } \ else MILTER_SET_STATE; \ else \ action; # define MILTER_CHECK_REPLYCODE(default) \ if (response == NULL || \ strlen(response) + 1 != (size_t) rlen || \ rlen < 3 || \ (response[0] != '4' && response[0] != '5') || \ !isascii(response[1]) || !isdigit(response[1]) || \ !isascii(response[2]) || !isdigit(response[2])) \ { \ if (response != NULL) \ sm_free(response); /* XXX */ \ response = newstr(default); \ } \ else \ { \ char *ptr = response; \ \ /* Check for unprotected %'s in the string */ \ while (*ptr != '\0') \ { \ if (*ptr == '%' && *++ptr != '%') \ { \ sm_free(response); /* XXX */ \ response = newstr(default); \ break; \ } \ ptr++; \ } \ } # define MILTER_DF_ERROR(msg) \ { \ int save_errno = errno; \ \ if (tTd(64, 5)) \ { \ sm_dprintf(msg, dfname, sm_errstring(save_errno)); \ sm_dprintf("\n"); \ } \ if (MilterLogLevel > 0) \ sm_syslog(LOG_ERR, e->e_id, msg, dfname, sm_errstring(save_errno)); \ if (SuperSafe == SAFE_REALLY) \ { \ SM_CLOSE_FP(e->e_dfp); \ e->e_flags &= ~EF_HAS_DF; \ } \ errno = save_errno; \ } /* ** MILTER_TIMEOUT -- make sure socket is ready in time ** ** Parameters: ** routine -- routine name for debug/logging ** secs -- number of seconds in timeout ** write -- waiting to read or write? ** started -- whether this is part of a previous sequence ** ** Assumes 'm' is a milter structure for the current socket. */ # define MILTER_TIMEOUT(routine, secs, write, started, function) \ { \ int ret; \ int save_errno; \ fd_set fds; \ struct timeval tv; \ \ if (!SM_FD_OK_SELECT(m->mf_sock)) \ { \ if (tTd(64, 5)) \ sm_dprintf("milter_%s(%s): socket %d is larger than FD_SETSIZE %d\n", \ (routine), m->mf_name, m->mf_sock, \ SM_FD_SETSIZE); \ if (MilterLogLevel > 0) \ sm_syslog(LOG_ERR, e->e_id, \ "Milter (%s): socket(%s) %d is larger than FD_SETSIZE %d", \ m->mf_name, (routine), m->mf_sock, \ SM_FD_SETSIZE); \ milter_error(m, e); \ return NULL; \ } \ \ do \ { \ FD_ZERO(&fds); \ SM_FD_SET(m->mf_sock, &fds); \ tv.tv_sec = (secs); \ tv.tv_usec = 0; \ ret = select(m->mf_sock + 1, \ (write) ? NULL : &fds, \ (write) ? &fds : NULL, \ NULL, &tv); \ } while (ret < 0 && errno == EINTR); \ \ switch (ret) \ { \ case 0: \ if (tTd(64, 5)) \ sm_dprintf("milter_%s(%s): timeout, where=%s\n", \ (routine), m->mf_name, (function)); \ if (MilterLogLevel > 0) \ sm_syslog(LOG_ERR, e->e_id, \ "Milter (%s): timeout %s data %s, where=%s", \ m->mf_name, \ started ? "during" : "before", \ (routine), (function)); \ milter_error(m, e); \ return NULL; \ \ case -1: \ save_errno = errno; \ if (tTd(64, 5)) \ sm_dprintf("milter_%s(%s): select: %s\n", (routine), \ m->mf_name, sm_errstring(save_errno)); \ if (MilterLogLevel > 0) \ { \ sm_syslog(LOG_ERR, e->e_id, \ "Milter (%s): select(%s): %s", \ m->mf_name, (routine), \ sm_errstring(save_errno)); \ } \ milter_error(m, e); \ return NULL; \ \ default: \ if (SM_FD_ISSET(m->mf_sock, &fds)) \ break; \ if (tTd(64, 5)) \ sm_dprintf("milter_%s(%s): socket not ready\n", \ (routine), m->mf_name); \ if (MilterLogLevel > 0) \ { \ sm_syslog(LOG_ERR, e->e_id, \ "Milter (%s): socket(%s) not ready", \ m->mf_name, (routine)); \ } \ milter_error(m, e); \ return NULL; \ } \ } /* ** Low level functions */ /* ** MILTER_READ -- read from a remote milter filter ** ** Parameters: ** m -- milter to read from. ** cmd -- return param for command read. ** rlen -- return length of response string. ** to -- timeout in seconds. ** e -- current envelope. ** ** Returns: ** response string (may be NULL) */ static char * milter_sysread(m, buf, sz, to, e, where) struct milter *m; char *buf; ssize_t sz; time_t to; ENVELOPE *e; const char *where; { time_t readstart = 0; ssize_t len, curl; bool started = false; curl = 0; if (to > 0) readstart = curtime(); for (;;) { if (to > 0) { time_t now; now = curtime(); if (now - readstart >= to) { if (tTd(64, 5)) sm_dprintf("milter_sys_read (%s): timeout %s data read in %s", m->mf_name, started ? "during" : "before", where); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): timeout %s data read in %s", m->mf_name, started ? "during" : "before", where); milter_error(m, e); return NULL; } to -= now - readstart; readstart = now; MILTER_TIMEOUT("read", to, false, started, where); } len = read(m->mf_sock, buf + curl, sz - curl); if (len < 0) { int save_errno = errno; if (tTd(64, 5)) sm_dprintf("milter_sys_read(%s): read returned %ld: %s\n", m->mf_name, (long) len, sm_errstring(save_errno)); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): read returned %ld: %s", m->mf_name, (long) len, sm_errstring(save_errno)); milter_error(m, e); return NULL; } started = true; curl += len; if (len == 0 || curl >= sz) break; } if (curl != sz) { if (tTd(64, 5)) sm_dprintf("milter_sys_read(%s): cmd read returned %ld, expecting %ld\n", m->mf_name, (long) curl, (long) sz); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "milter_sys_read(%s): cmd read returned %ld, expecting %ld", m->mf_name, (long) curl, (long) sz); milter_error(m, e); return NULL; } return buf; } static char * milter_read(m, cmd, rlen, to, e, where) struct milter *m; char *cmd; ssize_t *rlen; time_t to; ENVELOPE *e; const char *where; { time_t readstart = 0; ssize_t expl; mi_int32 i; # if MILTER_NO_NAGLE && defined(TCP_CORK) int cork = 0; # endif char *buf; char data[MILTER_LEN_BYTES + 1]; if (m->mf_sock < 0) { if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "milter_read(%s): socket closed, where=%s", m->mf_name, where); milter_error(m, e); return NULL; } *rlen = 0; *cmd = '\0'; if (to > 0) readstart = curtime(); # if MILTER_NO_NAGLE && defined(TCP_CORK) setsockopt(m->mf_sock, IPPROTO_TCP, TCP_CORK, (char *)&cork, sizeof(cork)); # endif if (milter_sysread(m, data, sizeof(data), to, e, where) == NULL) return NULL; # if MILTER_NO_NAGLE && defined(TCP_CORK) cork = 1; setsockopt(m->mf_sock, IPPROTO_TCP, TCP_CORK, (char *)&cork, sizeof(cork)); # endif /* reset timeout */ if (to > 0) { time_t now; now = curtime(); if (now - readstart >= to) { if (tTd(64, 5)) sm_dprintf("milter_read(%s): timeout before data read, where=%s\n", m->mf_name, where); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter read(%s): timeout before data read, where=%s", m->mf_name, where); milter_error(m, e); return NULL; } to -= now - readstart; } *cmd = data[MILTER_LEN_BYTES]; data[MILTER_LEN_BYTES] = '\0'; (void) memcpy(&i, data, MILTER_LEN_BYTES); expl = ntohl(i) - 1; if (tTd(64, 25)) sm_dprintf("milter_read(%s): expecting %ld bytes\n", m->mf_name, (long) expl); if (expl < 0) { if (tTd(64, 5)) sm_dprintf("milter_read(%s): read size %ld out of range, where=%s\n", m->mf_name, (long) expl, where); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "milter_read(%s): read size %ld out of range, where=%s", m->mf_name, (long) expl, where); milter_error(m, e); return NULL; } if (expl == 0) return NULL; buf = (char *) xalloc(expl); if (milter_sysread(m, buf, expl, to, e, where) == NULL) { sm_free(buf); /* XXX */ return NULL; } if (tTd(64, 50)) sm_dprintf("milter_read(%s): Returning %*s\n", m->mf_name, (int) expl, buf); *rlen = expl; return buf; } /* ** MILTER_WRITE -- write to a remote milter filter ** ** Parameters: ** m -- milter to read from. ** cmd -- command to send. ** buf -- optional command data. ** len -- length of buf. ** to -- timeout in seconds. ** e -- current envelope. ** ** Returns: ** buf if successful, NULL otherwise ** Not actually used anywhere but function prototype ** must match milter_read() */ static char * milter_write(m, cmd, buf, len, to, e, where) struct milter *m; int cmd; char *buf; ssize_t len; time_t to; ENVELOPE *e; const char *where; { ssize_t sl, i; int num_vectors; mi_int32 nl; char command = (char) cmd; char data[MILTER_LEN_BYTES + 1]; bool started = false; struct iovec vector[2]; /* ** At most two buffers will be written, though ** only one may actually be used (see num_vectors). ** The first is the size/command and the second is the command data. */ if (len < 0 || len > MilterMaxDataSize) { if (tTd(64, 5)) { sm_dprintf("milter_write(%s): length %ld out of range, mds=%ld, cmd=%c\n", m->mf_name, (long) len, (long) MilterMaxDataSize, command); sm_dprintf("milter_write(%s): buf=%s\n", m->mf_name, str2prt(buf)); } if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "milter_write(%s): length %ld out of range, cmd=%c", m->mf_name, (long) len, command); milter_error(m, e); return NULL; } if (m->mf_sock < 0) { if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "milter_write(%s): socket closed", m->mf_name); milter_error(m, e); return NULL; } if (tTd(64, 20)) sm_dprintf("milter_write(%s): cmd %c, len %ld\n", m->mf_name, command, (long) len); nl = htonl(len + 1); /* add 1 for the command char */ (void) memcpy(data, (char *) &nl, MILTER_LEN_BYTES); data[MILTER_LEN_BYTES] = command; sl = MILTER_LEN_BYTES + 1; /* set up the vector for the size / command */ vector[0].iov_base = (void *) data; vector[0].iov_len = sl; /* ** Determine if there is command data. If so, there will be two ** vectors. If not, there will be only one. The vectors are set ** up here and 'num_vectors' and 'sl' are set appropriately. */ /* NOTE: len<0 has already been checked for. Pedantic */ if (len <= 0 || buf == NULL) { /* There is no command data -- only a size / command data */ num_vectors = 1; } else { /* ** There is both size / command and command data. ** Set up the vector for the command data. */ num_vectors = 2; sl += len; vector[1].iov_base = (void *) buf; vector[1].iov_len = len; if (tTd(64, 50)) sm_dprintf("milter_write(%s): Sending %*s\n", m->mf_name, (int) len, buf); } if (to > 0) MILTER_TIMEOUT("write", to, true, started, where); /* write the vector(s) */ i = writev(m->mf_sock, vector, num_vectors); if (i != sl) { int save_errno = errno; if (tTd(64, 5)) sm_dprintf("milter_write(%s): write(%c) returned %ld, expected %ld: %s\n", m->mf_name, command, (long) i, (long) sl, sm_errstring(save_errno)); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): write(%c) returned %ld, expected %ld: %s", m->mf_name, command, (long) i, (long) sl, sm_errstring(save_errno)); milter_error(m, e); return NULL; } return buf; } /* ** Utility functions */ /* ** MILTER_OPEN -- connect to remote milter filter ** ** Parameters: ** m -- milter to connect to. ** parseonly -- parse but don't connect. ** e -- current envelope. ** ** Returns: ** connected socket if successful && !parseonly, ** 0 upon parse success if parseonly, ** -1 otherwise. */ static jmp_buf MilterConnectTimeout; static int milter_open(m, parseonly, e) struct milter *m; bool parseonly; ENVELOPE *e; { int sock = 0; SOCKADDR_LEN_T addrlen = 0; int addrno = 0; int save_errno; char *p; char *colon; char *at; struct hostent *hp = NULL; SOCKADDR addr; if (SM_IS_EMPTY(m->mf_conn)) { if (tTd(64, 5)) sm_dprintf("X%s: empty or missing socket information\n", m->mf_name); if (parseonly) syserr("X%s: empty or missing socket information", m->mf_name); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): empty or missing socket information", m->mf_name); milter_error(m, e); return -1; } /* protocol:filename or protocol:port@host */ memset(&addr, '\0', sizeof(addr)); p = m->mf_conn; colon = strchr(p, ':'); if (colon != NULL) { *colon = '\0'; if (*p == '\0') { # if NETUNIX /* default to AF_UNIX */ addr.sa.sa_family = AF_UNIX; # else # if NETINET /* default to AF_INET */ addr.sa.sa_family = AF_INET; # else /* NETINET */ # if NETINET6 /* default to AF_INET6 */ addr.sa.sa_family = AF_INET6; # else /* NETINET6 */ /* no protocols available */ if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): no valid socket protocols available", m->mf_name); milter_error(m, e); return -1; # endif /* NETINET6 */ # endif /* NETINET */ # endif /* NETUNIX */ } # if NETUNIX else if (SM_STRCASEEQ(p, "unix") || SM_STRCASEEQ(p, "local")) addr.sa.sa_family = AF_UNIX; # endif # if NETINET else if (SM_STRCASEEQ(p, "inet")) addr.sa.sa_family = AF_INET; # endif # if NETINET6 else if (SM_STRCASEEQ(p, "inet6")) addr.sa.sa_family = AF_INET6; # endif else { # ifdef EPROTONOSUPPORT errno = EPROTONOSUPPORT; # else errno = EINVAL; # endif if (tTd(64, 5)) sm_dprintf("X%s: unknown socket type %s\n", m->mf_name, p); if (parseonly) syserr("X%s: unknown socket type %s", m->mf_name, p); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): unknown socket type %s", m->mf_name, p); milter_error(m, e); return -1; } *colon++ = ':'; } else { /* default to AF_UNIX */ addr.sa.sa_family = AF_UNIX; colon = p; } # if NETUNIX if (addr.sa.sa_family == AF_UNIX) { long sff = SFF_SAFEDIRPATH|SFF_OPENASROOT|SFF_NOLINK|SFF_EXECOK; at = colon; if (strlen(colon) >= sizeof(addr.sunix.sun_path)) { if (tTd(64, 5)) sm_dprintf("X%s: local socket name %s too long\n", m->mf_name, colon); errno = EINVAL; if (parseonly) syserr("X%s: local socket name %s too long", m->mf_name, colon); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): local socket name %s too long", m->mf_name, colon); milter_error(m, e); return -1; } errno = safefile(colon, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR|S_IWUSR, NULL); /* if just parsing .cf file, socket doesn't need to exist */ if (parseonly && errno == ENOENT) { if (OpMode == MD_DAEMON || OpMode == MD_FGDAEMON) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "WARNING: X%s: local socket name %s missing\n", m->mf_name, colon); } else if (errno != 0) { /* if not safe, don't create */ save_errno = errno; if (tTd(64, 5)) sm_dprintf("X%s: local socket name %s unsafe\n", m->mf_name, colon); errno = save_errno; if (parseonly) { if (OpMode == MD_DAEMON || OpMode == MD_FGDAEMON || OpMode == MD_SMTP) syserr("X%s: local socket name %s unsafe", m->mf_name, colon); } else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): local socket name %s unsafe", m->mf_name, colon); milter_error(m, e); return -1; } (void) sm_strlcpy(addr.sunix.sun_path, colon, sizeof(addr.sunix.sun_path)); addrlen = sizeof(struct sockaddr_un); } else # endif /* NETUNIX */ # if NETINET || NETINET6 if (false # if NETINET || addr.sa.sa_family == AF_INET # endif # if NETINET6 || addr.sa.sa_family == AF_INET6 # endif ) { unsigned short port; /* Parse port@host */ at = strchr(colon, '@'); if (at == NULL) { if (tTd(64, 5)) sm_dprintf("X%s: bad address %s (expected port@host)\n", m->mf_name, colon); if (parseonly) syserr("X%s: bad address %s (expected port@host)", m->mf_name, colon); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): bad address %s (expected port@host)", m->mf_name, colon); milter_error(m, e); return -1; } *at = '\0'; if (isascii(*colon) && isdigit(*colon)) port = htons((unsigned short) atoi(colon)); else { # ifdef NO_GETSERVBYNAME if (tTd(64, 5)) sm_dprintf("X%s: invalid port number %s\n", m->mf_name, colon); if (parseonly) syserr("X%s: invalid port number %s", m->mf_name, colon); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): invalid port number %s", m->mf_name, colon); milter_error(m, e); return -1; # else /* NO_GETSERVBYNAME */ struct servent *sp; sp = getservbyname(colon, "tcp"); if (sp == NULL) { save_errno = errno; if (tTd(64, 5)) sm_dprintf("X%s: unknown port name %s\n", m->mf_name, colon); errno = save_errno; if (parseonly) syserr("X%s: unknown port name %s", m->mf_name, colon); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): unknown port name %s", m->mf_name, colon); milter_error(m, e); return -1; } port = sp->s_port; # endif /* NO_GETSERVBYNAME */ } *at++ = '@'; if (*at == '[') { char *end; end = strchr(at, ']'); if (end != NULL) { bool found = false; # if NETINET unsigned long hid = INADDR_NONE; # endif # if NETINET6 struct sockaddr_in6 hid6; # endif *end = '\0'; # if NETINET if (addr.sa.sa_family == AF_INET && (hid = inet_addr(&at[1])) != INADDR_NONE) { addr.sin.sin_addr.s_addr = hid; addr.sin.sin_port = port; found = true; } # endif /* NETINET */ # if NETINET6 (void) memset(&hid6, '\0', sizeof(hid6)); if (addr.sa.sa_family == AF_INET6 && anynet_pton(AF_INET6, &at[1], &hid6.sin6_addr) == 1) { addr.sin6.sin6_addr = hid6.sin6_addr; addr.sin6.sin6_port = port; found = true; } # endif /* NETINET6 */ *end = ']'; if (!found) { if (tTd(64, 5)) sm_dprintf("X%s: Invalid numeric domain spec \"%s\"\n", m->mf_name, at); if (parseonly) syserr("X%s: Invalid numeric domain spec \"%s\"", m->mf_name, at); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): Invalid numeric domain spec \"%s\"", m->mf_name, at); milter_error(m, e); return -1; } } else { if (tTd(64, 5)) sm_dprintf("X%s: Invalid numeric domain spec \"%s\"\n", m->mf_name, at); if (parseonly) syserr("X%s: Invalid numeric domain spec \"%s\"", m->mf_name, at); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): Invalid numeric domain spec \"%s\"", m->mf_name, at); milter_error(m, e); return -1; } } else { hp = sm_gethostbyname(at, addr.sa.sa_family); if (hp == NULL) { save_errno = errno; if (tTd(64, 5)) sm_dprintf("X%s: Unknown host name %s\n", m->mf_name, at); errno = save_errno; if (parseonly) syserr("X%s: Unknown host name %s", m->mf_name, at); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): Unknown host name %s", m->mf_name, at); milter_error(m, e); return -1; } addr.sa.sa_family = hp->h_addrtype; switch (hp->h_addrtype) { # if NETINET case AF_INET: memmove(&addr.sin.sin_addr, hp->h_addr, INADDRSZ); addr.sin.sin_port = port; addrlen = sizeof(struct sockaddr_in); addrno = 1; break; # endif /* NETINET */ # if NETINET6 case AF_INET6: memmove(&addr.sin6.sin6_addr, hp->h_addr, IN6ADDRSZ); addr.sin6.sin6_port = port; addrlen = sizeof(struct sockaddr_in6); addrno = 1; break; # endif /* NETINET6 */ default: if (tTd(64, 5)) sm_dprintf("X%s: Unknown protocol for %s (%d)\n", m->mf_name, at, hp->h_addrtype); if (parseonly) syserr("X%s: Unknown protocol for %s (%d)", m->mf_name, at, hp->h_addrtype); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): Unknown protocol for %s (%d)", m->mf_name, at, hp->h_addrtype); milter_error(m, e); # if NETINET6 freehostent(hp); # endif return -1; } } } else # endif /* NETINET || NETINET6 */ { if (tTd(64, 5)) sm_dprintf("X%s: unknown socket protocol\n", m->mf_name); if (parseonly) syserr("X%s: unknown socket protocol", m->mf_name); else if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): unknown socket protocol", m->mf_name); milter_error(m, e); return -1; } /* just parsing through? */ if (parseonly) { m->mf_state = SMFS_READY; # if NETINET6 if (hp != NULL) freehostent(hp); # endif return 0; } /* sanity check */ if (m->mf_state != SMFS_READY && m->mf_state != SMFS_CLOSED) { /* shouldn't happen */ if (tTd(64, 1)) sm_dprintf("Milter (%s): Trying to open filter in state %c\n", m->mf_name, (char) m->mf_state); milter_error(m, e); # if NETINET6 if (hp != NULL) freehostent(hp); # endif return -1; } /* nope, actually connecting */ for (;;) { sock = socket(addr.sa.sa_family, SOCK_STREAM, 0); if (sock < 0) { save_errno = errno; if (tTd(64, 5)) sm_dprintf("Milter (%s): error creating socket: %s\n", m->mf_name, sm_errstring(save_errno)); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): error creating socket: %s", m->mf_name, sm_errstring(save_errno)); milter_error(m, e); # if NETINET6 if (hp != NULL) freehostent(hp); # endif return -1; } if (setjmp(MilterConnectTimeout) == 0) { SM_EVENT *ev = NULL; int i; if (m->mf_timeout[SMFTO_CONNECT] > 0) ev = sm_setevent(m->mf_timeout[SMFTO_CONNECT], milter_connect_timeout, 0); i = connect(sock, (struct sockaddr *) &addr, addrlen); save_errno = errno; if (ev != NULL) sm_clrevent(ev); errno = save_errno; if (i >= 0) break; } /* couldn't connect.... try next address */ save_errno = errno; p = CurHostName; CurHostName = at; if (tTd(64, 5)) sm_dprintf("milter_open (%s): open %s failed: %s\n", m->mf_name, at, sm_errstring(save_errno)); if (MilterLogLevel > 13) sm_syslog(LOG_INFO, e->e_id, "Milter (%s): open %s failed: %s", m->mf_name, at, sm_errstring(save_errno)); CurHostName = p; (void) close(sock); /* try next address */ if (hp != NULL && hp->h_addr_list[addrno] != NULL) { switch (addr.sa.sa_family) { # if NETINET case AF_INET: memmove(&addr.sin.sin_addr, hp->h_addr_list[addrno++], INADDRSZ); break; # endif /* NETINET */ # if NETINET6 case AF_INET6: memmove(&addr.sin6.sin6_addr, hp->h_addr_list[addrno++], IN6ADDRSZ); break; # endif /* NETINET6 */ default: if (tTd(64, 5)) sm_dprintf("X%s: Unknown protocol for %s (%d)\n", m->mf_name, at, hp->h_addrtype); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): Unknown protocol for %s (%d)", m->mf_name, at, hp->h_addrtype); milter_error(m, e); # if NETINET6 freehostent(hp); # endif return -1; } continue; } p = CurHostName; CurHostName = at; if (tTd(64, 5)) sm_dprintf("X%s: error connecting to filter: %s\n", m->mf_name, sm_errstring(save_errno)); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): error connecting to filter: %s", m->mf_name, sm_errstring(save_errno)); CurHostName = p; milter_error(m, e); # if NETINET6 if (hp != NULL) freehostent(hp); # endif return -1; } m->mf_state = SMFS_OPEN; # if NETINET6 if (hp != NULL) { freehostent(hp); hp = NULL; } # endif /* NETINET6 */ # if MILTER_NO_NAGLE && !defined(TCP_CORK) { int nodelay = 1; setsockopt(m->mf_sock, IPPROTO_TCP, TCP_NODELAY, (char *)&nodelay, sizeof(nodelay)); } # endif /* MILTER_NO_NAGLE && !defined(TCP_CORK) */ return sock; } static void milter_connect_timeout(ignore) int ignore; { /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ errno = ETIMEDOUT; longjmp(MilterConnectTimeout, 1); } /* ** MILTER_SETUP -- setup structure for a mail filter ** ** Parameters: ** line -- the options line. ** ** Returns: ** none */ void milter_setup(line) char *line; { char fcode; char *p; struct milter *m; STAB *s; static int idx = 0; /* collect the filter name */ for (p = line; *p != '\0' && *p != ',' && !(SM_ISSPACE(*p)); p++) continue; if (*p != '\0') *p++ = '\0'; if (line[0] == '\0') { syserr("name required for mail filter"); return; } m = (struct milter *) xalloc(sizeof(*m)); memset((char *) m, '\0', sizeof(*m)); m->mf_name = newstr(line); m->mf_state = SMFS_READY; m->mf_sock = -1; m->mf_timeout[SMFTO_CONNECT] = (time_t) 300; m->mf_timeout[SMFTO_WRITE] = (time_t) 10; m->mf_timeout[SMFTO_READ] = (time_t) 10; m->mf_timeout[SMFTO_EOM] = (time_t) 300; # if _FFR_MILTER_CHECK m->mf_mta_prot_version = SMFI_PROT_VERSION; m->mf_mta_prot_flags = SMFI_CURR_PROT; m->mf_mta_actions = SMFI_CURR_ACTS; # endif /* _FFR_MILTER_CHECK */ /* now scan through and assign info from the fields */ while (*p != '\0') { char *delimptr; while (*p != '\0' && (*p == ',' || (SM_ISSPACE(*p)))) p++; /* p now points to field code */ fcode = *p; while (*p != '\0' && *p != '=' && *p != ',') p++; if (*p++ != '=') { syserr("X%s: `=' expected", m->mf_name); /* this should not be reached, but just in case */ SM_FREE(m); return; } while (SM_ISSPACE(*p)) p++; /* p now points to the field body */ p = munchstring(p, &delimptr, ','); /* install the field into the filter struct */ switch (fcode) { case 'S': /* socket */ if (p == NULL) m->mf_conn = NULL; else m->mf_conn = newstr(p); break; case 'F': /* Milter flags configured on MTA */ for (; *p != '\0'; p++) { if (!(SM_ISSPACE(*p))) setbitn(bitidx(*p), m->mf_flags); } break; case 'T': /* timeouts */ milter_parse_timeouts(p, m); break; # if _FFR_MILTER_CHECK case 'a': m->mf_mta_actions = strtoul(p, NULL, 0); break; case 'f': m->mf_mta_prot_flags = strtoul(p, NULL, 0); break; case 'v': m->mf_mta_prot_version = strtoul(p, NULL, 0); break; # endif /* _FFR_MILTER_CHECK */ default: syserr("X%s: unknown filter equate %c=", m->mf_name, fcode); break; } p = delimptr; } /* early check for errors */ (void) milter_open(m, true, CurEnv); /* enter the filter into the symbol table */ s = stab(m->mf_name, ST_MILTER, ST_ENTER); if (s->s_milter != NULL) syserr("X%s: duplicate filter definition", m->mf_name); else { s->s_milter = m; m->mf_idx = ++idx; } } /* ** MILTER_CONFIG -- parse option list into an array and check config ** ** Called when reading configuration file. ** ** Parameters: ** spec -- the filter list. ** list -- the array to fill in. ** max -- the maximum number of entries in list. ** ** Returns: ** none */ void milter_config(spec, list, max) char *spec; struct milter **list; int max; { int numitems = 0; char *p; /* leave one for the NULL signifying the end of the list */ max--; for (p = spec; p != NULL; ) { STAB *s; while (SM_ISSPACE(*p)) p++; if (*p == '\0') break; spec = p; if (numitems >= max) { syserr("Too many filters defined, %d max", max); if (max > 0) list[0] = NULL; return; } p = strpbrk(p, ";,"); if (p != NULL) *p++ = '\0'; s = stab(spec, ST_MILTER, ST_FIND); if (s == NULL) { syserr("InputFilter %s not defined", spec); ExitStat = EX_CONFIG; return; } list[numitems++] = s->s_milter; } list[numitems] = NULL; /* if not set, set to LogLevel */ if (MilterLogLevel == -1) MilterLogLevel = LogLevel; } /* ** MILTER_PARSE_TIMEOUTS -- parse timeout list ** ** Called when reading configuration file. ** ** Parameters: ** spec -- the timeout list. ** m -- milter to set. ** ** Returns: ** none */ static void milter_parse_timeouts(spec, m) char *spec; struct milter *m; { char fcode; int tcode; char *p; p = spec; /* now scan through and assign info from the fields */ while (*p != '\0') { char *delimptr; while (*p != '\0' && (*p == ';' || (SM_ISSPACE(*p)))) p++; /* p now points to field code */ fcode = *p; while (*p != '\0' && *p != ':') p++; if (*p++ != ':') { syserr("X%s, T=: `:' expected", m->mf_name); return; } while (SM_ISSPACE(*p)) p++; /* p now points to the field body */ p = munchstring(p, &delimptr, ';'); tcode = -1; /* install the field into the filter struct */ switch (fcode) { case 'C': tcode = SMFTO_CONNECT; break; case 'S': tcode = SMFTO_WRITE; break; case 'R': tcode = SMFTO_READ; break; case 'E': tcode = SMFTO_EOM; break; default: if (tTd(64, 5)) sm_dprintf("X%s: %c unknown\n", m->mf_name, fcode); syserr("X%s: unknown filter timeout %c", m->mf_name, fcode); break; } if (tcode >= 0) { m->mf_timeout[tcode] = convtime(p, 's'); if (tTd(64, 5)) sm_dprintf("X%s: %c=%ld\n", m->mf_name, fcode, (u_long) m->mf_timeout[tcode]); } p = delimptr; } } /* ** MILTER_SET_MACROS -- set milter macros ** ** Parameters: ** name -- name of milter. ** macros -- where to store macros. ** val -- the value of the option. ** nummac -- current number of macros ** ** Returns: ** new number of macros */ static int milter_set_macros(name, macros, val, nummac) char *name; char **macros; char *val; int nummac; { char *p; p = newstr(val); while (*p != '\0') { char *macro; /* Skip leading commas, spaces */ while (*p != '\0' && (*p == ',' || (SM_ISSPACE(*p)))) p++; if (*p == '\0') break; /* Find end of macro */ macro = p; while (*p != '\0' && *p != ',' && isascii(*p) && !isspace(*p)) p++; if (*p != '\0') *p++ = '\0'; if (nummac >= MAXFILTERMACROS) { syserr("milter_set_option: too many macros in Milter.%s (max %d)", name, MAXFILTERMACROS); macros[nummac] = NULL; return -1; } macros[nummac++] = macro; } macros[nummac] = NULL; return nummac; } /* ** MILTER_SET_OPTION -- set an individual milter option ** ** Parameters: ** name -- the name of the option. ** val -- the value of the option. ** sticky -- if set, don't let other setoptions override ** this value. ** ** Returns: ** none. */ /* set if Milter sub-option is stuck */ static BITMAP256 StickyMilterOpt; static struct milteropt { char *mo_name; /* long name of milter option */ unsigned char mo_code; /* code for option */ } MilterOptTab[] = { { "macros.connect", SMFIM_CONNECT }, { "macros.helo", SMFIM_HELO }, { "macros.envfrom", SMFIM_ENVFROM }, { "macros.envrcpt", SMFIM_ENVRCPT }, { "macros.data", SMFIM_DATA }, { "macros.eom", SMFIM_EOM }, { "macros.eoh", SMFIM_EOH }, # define MO_LOGLEVEL 0x07 { "loglevel", MO_LOGLEVEL }, # if _FFR_MAXDATASIZE || _FFR_MDS_NEGOTIATE # define MO_MAXDATASIZE 0x08 { "maxdatasize", MO_MAXDATASIZE }, # endif { NULL, (unsigned char)-1 }, }; void milter_set_option(name, val, sticky) char *name; char *val; bool sticky; { int nummac, r; struct milteropt *mo; char **macros = NULL; nummac = 0; if (tTd(37, 2) || tTd(64, 5)) sm_dprintf("milter_set_option(%s = %s)", name, val); if (name == NULL) { syserr("milter_set_option: invalid Milter option, must specify suboption"); return; } for (mo = MilterOptTab; mo->mo_name != NULL; mo++) { if (SM_STRCASEEQ(mo->mo_name, name)) break; } if (mo->mo_name == NULL) { syserr("milter_set_option: invalid Milter option %s", name); return; } /* ** See if this option is preset for us. */ if (!sticky && bitnset(mo->mo_code, StickyMilterOpt)) { if (tTd(37, 2) || tTd(64,5)) sm_dprintf(" (ignored)\n"); return; } if (tTd(37, 2) || tTd(64,5)) sm_dprintf("\n"); switch (mo->mo_code) { case MO_LOGLEVEL: MilterLogLevel = atoi(val); break; # if _FFR_MAXDATASIZE || _FFR_MDS_NEGOTIATE case MO_MAXDATASIZE: # if _FFR_MDS_NEGOTIATE MilterMaxDataSize = (size_t)atol(val); if (MilterMaxDataSize != MILTER_MDS_64K && MilterMaxDataSize != MILTER_MDS_256K && MilterMaxDataSize != MILTER_MDS_1M) { sm_syslog(LOG_WARNING, NOQID, "WARNING: Milter.%s=%lu, allowed are only %d, %d, and %d", name, (unsigned long) MilterMaxDataSize, MILTER_MDS_64K, MILTER_MDS_256K, MILTER_MDS_1M); if (MilterMaxDataSize < MILTER_MDS_64K) MilterMaxDataSize = MILTER_MDS_64K; else if (MilterMaxDataSize < MILTER_MDS_256K) MilterMaxDataSize = MILTER_MDS_256K; else MilterMaxDataSize = MILTER_MDS_1M; } # endif /* _FFR_MDS_NEGOTIATE */ break; # endif /* _FFR_MAXDATASIZE || _FFR_MDS_NEGOTIATE */ case SMFIM_CONNECT: case SMFIM_HELO: case SMFIM_ENVFROM: case SMFIM_ENVRCPT: case SMFIM_EOH: case SMFIM_EOM: case SMFIM_DATA: macros = MilterMacros[mo->mo_code][0]; r = milter_set_macros(name, macros, val, nummac); if (r >= 0) nummac = r; break; default: syserr("milter_set_option: invalid Milter option %s", name); break; } if (sticky) setbitn(mo->mo_code, StickyMilterOpt); } /* ** MILTER_REOPEN_DF -- open & truncate the data file (for replbody) ** ** Parameters: ** e -- current envelope. ** ** Returns: ** 0 if successful, -1 otherwise */ static int milter_reopen_df(e) ENVELOPE *e; { char dfname[MAXPATHLEN]; (void) sm_strlcpy(dfname, queuename(e, DATAFL_LETTER), sizeof(dfname)); /* ** In SuperSafe == SAFE_REALLY mode, e->e_dfp is a read-only FP so ** close and reopen writable (later close and reopen ** read only again). ** ** In SuperSafe != SAFE_REALLY mode, e->e_dfp still points at the ** buffered file I/O descriptor, still open for writing so there ** isn't any work to do here (except checking for consistency). */ if (SuperSafe == SAFE_REALLY) { /* close read-only data file */ if (bitset(EF_HAS_DF, e->e_flags) && e->e_dfp != NULL) { SM_CLOSE_FP(e->e_dfp); e->e_flags &= ~EF_HAS_DF; } /* open writable */ if ((e->e_dfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, dfname, SM_IO_RDWR_B, NULL)) == NULL) { MILTER_DF_ERROR("milter_reopen_df: sm_io_open %s: %s"); return -1; } } else if (e->e_dfp == NULL) { /* shouldn't happen */ errno = ENOENT; MILTER_DF_ERROR("milter_reopen_df: NULL e_dfp (%s: %s)"); return -1; } return 0; } /* ** MILTER_RESET_DF -- re-open read-only the data file (for replbody) ** ** Parameters: ** e -- current envelope. ** ** Returns: ** 0 if successful, -1 otherwise */ static int milter_reset_df(e) ENVELOPE *e; { int afd; char dfname[MAXPATHLEN]; (void) sm_strlcpy(dfname, queuename(e, DATAFL_LETTER), sizeof(dfname)); if (sm_io_flush(e->e_dfp, SM_TIME_DEFAULT) != 0 || sm_io_error(e->e_dfp)) { MILTER_DF_ERROR("milter_reset_df: error writing/flushing %s: %s"); return -1; } else if (SuperSafe != SAFE_REALLY) { /* skip next few clauses */ /* EMPTY */ } else if ((afd = sm_io_getinfo(e->e_dfp, SM_IO_WHAT_FD, NULL)) >= 0 && fsync(afd) < 0) { MILTER_DF_ERROR("milter_reset_df: error sync'ing %s: %s"); return -1; } else if (sm_io_close(e->e_dfp, SM_TIME_DEFAULT) < 0) { MILTER_DF_ERROR("milter_reset_df: error closing %s: %s"); return -1; } else if ((e->e_dfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, dfname, SM_IO_RDONLY_B, NULL)) == NULL) { MILTER_DF_ERROR("milter_reset_df: error reopening %s: %s"); return -1; } else e->e_flags |= EF_HAS_DF; return 0; } /* ** MILTER_QUIT_FILTER -- close down a single filter ** ** Parameters: ** m -- milter structure of filter to close down. ** e -- current envelope. ** ** Returns: ** none */ static void milter_quit_filter(m, e) struct milter *m; ENVELOPE *e; { if (tTd(64, 10)) sm_dprintf("milter_quit_filter(%s)\n", m->mf_name); if (MilterLogLevel > 18) sm_syslog(LOG_INFO, e->e_id, "Milter (%s): quit filter", m->mf_name); /* Never replace error state */ if (m->mf_state == SMFS_ERROR) return; if (m->mf_sock < 0 || m->mf_state == SMFS_CLOSED || m->mf_state == SMFS_READY) { m->mf_sock = -1; m->mf_state = SMFS_CLOSED; return; } (void) milter_write(m, SMFIC_QUIT, (char *) NULL, 0, m->mf_timeout[SMFTO_WRITE], e, "quit_filter"); if (m->mf_sock >= 0) { (void) close(m->mf_sock); m->mf_sock = -1; } if (m->mf_state != SMFS_ERROR) m->mf_state = SMFS_CLOSED; } /* ** MILTER_ABORT_FILTER -- tell filter to abort current message ** ** Parameters: ** m -- milter structure of filter to abort. ** e -- current envelope. ** ** Returns: ** none */ static void milter_abort_filter(m, e) struct milter *m; ENVELOPE *e; { if (tTd(64, 10)) sm_dprintf("milter_abort_filter(%s)\n", m->mf_name); if (MilterLogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "Milter (%s): abort filter", m->mf_name); if (m->mf_sock < 0 || m->mf_state != SMFS_INMSG) return; (void) milter_write(m, SMFIC_ABORT, (char *) NULL, 0, m->mf_timeout[SMFTO_WRITE], e, "abort_filter"); if (m->mf_state != SMFS_ERROR) m->mf_state = SMFS_DONE; } /* ** MILTER_SEND_MACROS -- provide macros to the filters ** ** Parameters: ** m -- milter to send macros to. ** macros -- macros to send for filter smfi_getsymval(). ** cmd -- which command the macros are associated with. ** e -- current envelope (for macro access). ** ** Returns: ** none */ #if _FFR_TESTS # define TST_EO \ do \ { \ if (tTd(86, 100) && \ (SMFIC_EOH == cmd || SMFIC_BODYEOB == cmd) && \ strncmp(macros[i], "{EO", 3) == 0) \ { \ if (SMFIC_EOH == cmd) \ v = "at_EOH"; \ else if (SMFIC_BODYEOB == cmd) \ v = "at_EOM"; \ } \ } while (0) #else # define TST_EO ((void) 0) #endif static void milter_send_macros(m, macros, cmd, e) struct milter *m; char **macros; int cmd; ENVELOPE *e; { int i; int mid; char command = (char) cmd; char *v; char *buf, *bp; char exp[MAXLINE]; ssize_t s; /* sanity check */ if (NULL == macros || NULL == macros[0]) return; /* put together data */ s = 1; /* for the command character */ for (i = 0; macros[i] != NULL; i++) { mid = macid(macros[i]); if (mid == 0) continue; v = macvalue(mid, e); TST_EO; if (v == NULL) continue; expand(v, exp, sizeof(exp), e); s += strlen(macros[i]) + 1 + # if _FFR_8BITENVADDR ilenx(exp) # else strlen(exp) # endif + 1; } if (s < 0) return; buf = (char *) xalloc(s); bp = buf; *bp++ = command; for (i = 0; macros[i] != NULL; i++) { mid = macid(macros[i]); if (mid == 0) continue; v = macvalue(mid, e); TST_EO; if (v == NULL) continue; expand(v, exp, sizeof(exp), e); # if _FFR_8BITENVADDR dequote_internal_chars(exp, exp, sizeof(exp)); # endif if (tTd(64, 10)) sm_dprintf("milter_send_macros(%s, %c): %s=%s\n", m->mf_name, command, macros[i], exp); (void) sm_strlcpy(bp, macros[i], s - (bp - buf)); bp += strlen(bp) + 1; (void) sm_strlcpy(bp, exp, s - (bp - buf)); bp += strlen(bp) + 1; } (void) milter_write(m, SMFIC_MACRO, buf, s, m->mf_timeout[SMFTO_WRITE], e, "send_macros"); sm_free(buf); } /* ** MILTER_SEND_COMMAND -- send a command and return the response for a filter ** ** Parameters: ** m -- current milter filter ** cmd -- command to send. ** data -- optional command data. ** sz -- length of buf. ** e -- current envelope (for e->e_id). ** state -- return state word. ** ** Returns: ** response string (may be NULL) */ static char * milter_send_command(m, cmd, data, sz, e, state, where) struct milter *m; int cmd; void *data; ssize_t sz; ENVELOPE *e; char *state; const char *where; { char rcmd; ssize_t rlen; unsigned long skipflag; unsigned long norespflag = 0; char command = (char) cmd; char *action; char *defresponse; char *response; if (tTd(64, 10)) sm_dprintf("milter_send_command(%s): cmd %c len %ld\n", m->mf_name, (char) command, (long) sz); /* find skip flag and default failure */ switch (command) { case SMFIC_CONNECT: skipflag = SMFIP_NOCONNECT; norespflag = SMFIP_NR_CONN; action = "connect"; defresponse = "554 Command rejected"; break; case SMFIC_HELO: skipflag = SMFIP_NOHELO; norespflag = SMFIP_NR_HELO; action = "helo"; defresponse = "550 Command rejected"; break; case SMFIC_MAIL: skipflag = SMFIP_NOMAIL; norespflag = SMFIP_NR_MAIL; action = "mail"; defresponse = "550 5.7.1 Command rejected"; break; case SMFIC_RCPT: skipflag = SMFIP_NORCPT; norespflag = SMFIP_NR_RCPT; action = "rcpt"; defresponse = "550 5.7.1 Command rejected"; break; case SMFIC_HEADER: skipflag = SMFIP_NOHDRS; norespflag = SMFIP_NR_HDR; action = "header"; defresponse = "550 5.7.1 Command rejected"; break; case SMFIC_BODY: skipflag = SMFIP_NOBODY; norespflag = SMFIP_NR_BODY; action = "body"; defresponse = "554 5.7.1 Command rejected"; break; case SMFIC_EOH: skipflag = SMFIP_NOEOH; norespflag = SMFIP_NR_EOH; action = "eoh"; defresponse = "550 5.7.1 Command rejected"; break; case SMFIC_UNKNOWN: skipflag = SMFIP_NOUNKNOWN; norespflag = SMFIP_NR_UNKN; action = "unknown"; defresponse = "550 5.7.1 Command rejected"; break; case SMFIC_DATA: skipflag = SMFIP_NODATA; norespflag = SMFIP_NR_DATA; action = "data"; defresponse = "550 5.7.1 Command rejected"; break; case SMFIC_BODYEOB: case SMFIC_OPTNEG: case SMFIC_MACRO: case SMFIC_ABORT: case SMFIC_QUIT: /* NOTE: not handled by milter_send_command() */ /* FALLTHROUGH */ default: skipflag = 0; action = "default"; defresponse = "550 5.7.1 Command rejected"; break; } if (tTd(64, 10)) sm_dprintf("milter_send_command(%s): skip=%lx, pflags=%x\n", m->mf_name, skipflag, m->mf_pflags); /* check if filter wants this command */ if (skipflag != 0 && bitset(skipflag, m->mf_pflags)) return NULL; /* send the command to the filter */ (void) milter_write(m, command, data, sz, m->mf_timeout[SMFTO_WRITE], e, where); if (m->mf_state == SMFS_ERROR) { MILTER_CHECK_ERROR(false, return NULL); return NULL; } /* check if filter sends response to this command */ if (norespflag != 0 && bitset(norespflag, m->mf_pflags)) return NULL; /* get the response from the filter */ response = milter_read(m, &rcmd, &rlen, m->mf_timeout[SMFTO_READ], e, where); if (m->mf_state == SMFS_ERROR) { MILTER_CHECK_ERROR(false, return NULL); return NULL; } if (tTd(64, 10)) sm_dprintf("milter_send_command(%s): returned %c\n", m->mf_name, (char) rcmd); switch (rcmd) { case SMFIR_REPLYCODE: MILTER_CHECK_REPLYCODE(defresponse); if (MilterLogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "milter=%s, action=%s, reject=%s", m->mf_name, action, response); *state = rcmd; break; case SMFIR_REJECT: if (MilterLogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "milter=%s, action=%s, reject", m->mf_name, action); *state = rcmd; break; case SMFIR_DISCARD: if (MilterLogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "milter=%s, action=%s, discard", m->mf_name, action); *state = rcmd; break; case SMFIR_TEMPFAIL: if (MilterLogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "milter=%s, action=%s, tempfail", m->mf_name, action); *state = rcmd; break; case SMFIR_ACCEPT: /* this filter is done with message/connection */ if (command == SMFIC_HELO || command == SMFIC_CONNECT) m->mf_state = SMFS_CLOSABLE; else m->mf_state = SMFS_DONE; if (MilterLogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "milter=%s, action=%s, accepted", m->mf_name, action); break; case SMFIR_CONTINUE: /* if MAIL command is ok, filter is in message state */ if (command == SMFIC_MAIL) m->mf_state = SMFS_INMSG; if (MilterLogLevel > 12) sm_syslog(LOG_INFO, e->e_id, "milter=%s, action=%s, continue", m->mf_name, action); break; case SMFIR_SKIP: if (MilterLogLevel > 12) sm_syslog(LOG_INFO, e->e_id, "milter=%s, action=%s, skip", m->mf_name, action); m->mf_state = SMFS_SKIP; break; default: /* Invalid response to command */ if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "milter_send_command(%s): action=%s returned bogus response %c", m->mf_name, action, rcmd); milter_error(m, e); /* NO ERROR CHECK? */ break; } if (*state != SMFIR_REPLYCODE && response != NULL) { sm_free(response); /* XXX */ response = NULL; } return response; } /* ** MILTER_COMMAND -- send a command and return the response for each filter ** ** Parameters: ** cmd -- command to send. ** data -- optional command data. ** sz -- length of buf. ** stage -- index of macros to send for filter smfi_getsymval(). ** e -- current envelope (for macro access). ** state -- return state word. ** where -- description of calling function (logging). ** cmd_error -- did the SMTP command cause an error? ** ** Returns: ** response string (may be NULL) */ static char * milter_command(cmd, data, sz, stage, e, state, where, cmd_error) int cmd; void *data; ssize_t sz; int stage; ENVELOPE *e; char *state; const char *where; bool cmd_error; { int i; char command = (char) cmd; char *response = NULL; time_t tn = 0; if (tTd(64, 10)) sm_dprintf("milter_command: cmd %c len %ld\n", command, (long) sz); *state = SMFIR_CONTINUE; for (i = 0; InputFilters[i] != NULL; i++) { struct milter *m = InputFilters[i]; /* previous problem? */ if (m->mf_state == SMFS_ERROR) { MILTER_CHECK_ERROR(false, continue); break; } /* sanity check */ if (m->mf_sock < 0 || (m->mf_state != SMFS_OPEN && m->mf_state != SMFS_INMSG)) continue; if (stage >= SMFIM_FIRST && stage <= SMFIM_LAST) { int idx; char **macros; if ((m->mf_lflags & MI_LFLAGS_SYM(stage)) != 0) idx = m->mf_idx; else idx = 0; SM_ASSERT(idx >= 0 && idx <= MAXFILTERS); macros = MilterMacros[stage][idx]; /* send macros (regardless of whether we send cmd) */ if (macros != NULL && macros[0] != NULL) { milter_send_macros(m, macros, command, e); if (m->mf_state == SMFS_ERROR) { MILTER_CHECK_ERROR(false, continue); break; } } } if (MilterLogLevel > 21) tn = curtime(); /* ** send the command if ** there is no error ** or it's RCPT and the client asked for it: ** !cmd_error || ** where == "rcpt" && m->mf_pflags & SMFIP_RCPT_REJ != 0 ** negate that condition and use continue */ if (cmd_error && (strcmp(where, "rcpt") != 0 || (m->mf_pflags & SMFIP_RCPT_REJ) == 0)) continue; response = milter_send_command(m, command, data, sz, e, state, where); if (MilterLogLevel > 21) { /* log the time it took for the command per filter */ sm_syslog(LOG_INFO, e->e_id, "Milter (%s): time command (%c), %d", m->mf_name, command, (int) (curtime() - tn)); } if (*state != SMFIR_CONTINUE) break; } return response; } static int milter_getsymlist __P((struct milter *, char *, int, int)); static int milter_getsymlist(m, buf, rlen, offset) struct milter *m; char *buf; int rlen; int offset; { int i, r, nummac; mi_int32 v; SM_ASSERT(m != NULL); SM_ASSERT(buf != NULL); while (offset + MILTER_LEN_BYTES < rlen) { size_t len; char **macros; nummac = 0; (void) memcpy((char *) &v, buf + offset, MILTER_LEN_BYTES); i = ntohl(v); if (i < SMFIM_FIRST || i > SMFIM_LAST) return -1; offset += MILTER_LEN_BYTES; macros = NULL; #define SM_M_MACRO_NAME(i) (((i) < SM_ARRAY_SIZE(MilterOptTab) && (i) >= 0) \ ? MilterOptTab[i].mo_name : "?") switch (i) { case SMFIM_CONNECT: case SMFIM_HELO: case SMFIM_ENVFROM: case SMFIM_ENVRCPT: case SMFIM_EOH: case SMFIM_EOM: case SMFIM_DATA: SM_ASSERT(m->mf_idx > 0 && m->mf_idx < MAXFILTERS); macros = MilterMacros[i][m->mf_idx]; m->mf_lflags |= MI_LFLAGS_SYM(i); len = strlen(buf + offset); r = milter_set_macros(m->mf_name, macros, buf + offset, nummac); if (r >= 0) nummac = r; if (tTd(64, 5)) sm_dprintf("milter_getsymlist(%s, %s, \"%s\")=%d\n", m->mf_name, SM_M_MACRO_NAME(i), buf + offset, r); break; default: return -1; } offset += len + 1; } return 0; } /* ** MILTER_NEGOTIATE -- get version and flags from filter ** ** Parameters: ** m -- milter filter structure. ** e -- current envelope. ** milters -- milters structure. ** ** Returns: ** 0 on success, -1 otherwise */ static int milter_negotiate(m, e, milters) struct milter *m; ENVELOPE *e; milters_T *milters; { char rcmd; mi_int32 fvers, fflags, pflags; mi_int32 mta_prot_vers, mta_prot_flags, mta_actions; ssize_t rlen; char *response; char data[MILTER_OPTLEN]; /* sanity check */ if (m->mf_sock < 0 || m->mf_state != SMFS_OPEN) { if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): negotiate, impossible state", m->mf_name); milter_error(m, e); return -1; } # if _FFR_MILTER_CHECK mta_prot_vers = m->mf_mta_prot_version; mta_prot_flags = m->mf_mta_prot_flags; mta_actions = m->mf_mta_actions; # else /* _FFR_MILTER_CHECK */ mta_prot_vers = SMFI_PROT_VERSION; mta_prot_flags = SMFI_CURR_PROT; mta_actions = SMFI_CURR_ACTS; # endif /* _FFR_MILTER_CHECK */ # if _FFR_MDS_NEGOTIATE if (MilterMaxDataSize == MILTER_MDS_256K) mta_prot_flags |= SMFIP_MDS_256K; else if (MilterMaxDataSize == MILTER_MDS_1M) mta_prot_flags |= SMFIP_MDS_1M; # endif /* _FFR_MDS_NEGOTIATE */ fvers = htonl(mta_prot_vers); pflags = htonl(mta_prot_flags); fflags = htonl(mta_actions); (void) memcpy(data, (char *) &fvers, MILTER_LEN_BYTES); (void) memcpy(data + MILTER_LEN_BYTES, (char *) &fflags, MILTER_LEN_BYTES); (void) memcpy(data + (MILTER_LEN_BYTES * 2), (char *) &pflags, MILTER_LEN_BYTES); (void) milter_write(m, SMFIC_OPTNEG, data, sizeof(data), m->mf_timeout[SMFTO_WRITE], e, "negotiate"); if (m->mf_state == SMFS_ERROR) return -1; if (tTd(64, 5)) sm_dprintf("milter_negotiate(%s): send: version %lu, fflags 0x%lx, pflags 0x%lx\n", m->mf_name, (unsigned long) ntohl(fvers), (unsigned long) ntohl(fflags), (unsigned long) ntohl(pflags)); response = milter_read(m, &rcmd, &rlen, m->mf_timeout[SMFTO_READ], e, "negotiate"); if (m->mf_state == SMFS_ERROR) { SM_FREE(response); return -1; } if (rcmd != SMFIC_OPTNEG) { if (tTd(64, 5)) sm_dprintf("milter_negotiate(%s): returned %c instead of %c\n", m->mf_name, rcmd, SMFIC_OPTNEG); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): negotiate: returned %c instead of %c", m->mf_name, rcmd, SMFIC_OPTNEG); SM_FREE(response); milter_error(m, e); return -1; } /* Make sure we have enough bytes for the version */ if (response == NULL || rlen < MILTER_LEN_BYTES) { if (tTd(64, 5)) sm_dprintf("milter_negotiate(%s): did not return valid info\n", m->mf_name); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): negotiate: did not return valid info", m->mf_name); SM_FREE(response); milter_error(m, e); return -1; } /* extract information */ (void) memcpy((char *) &fvers, response, MILTER_LEN_BYTES); /* Now make sure we have enough for the feature bitmap */ if (rlen < MILTER_OPTLEN) { if (tTd(64, 5)) sm_dprintf("milter_negotiate(%s): did not return enough info\n", m->mf_name); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): negotiate: did not return enough info", m->mf_name); SM_FREE(response); milter_error(m, e); return -1; } (void) memcpy((char *) &fflags, response + MILTER_LEN_BYTES, MILTER_LEN_BYTES); (void) memcpy((char *) &pflags, response + (MILTER_LEN_BYTES * 2), MILTER_LEN_BYTES); m->mf_fvers = ntohl(fvers); m->mf_fflags = ntohl(fflags); m->mf_pflags = ntohl(pflags); /* check for version compatibility */ if (m->mf_fvers == 1 || m->mf_fvers > SMFI_VERSION) { if (tTd(64, 5)) sm_dprintf("milter_negotiate(%s): version %d != MTA milter version %d\n", m->mf_name, m->mf_fvers, SMFI_VERSION); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): negotiate: version %d != MTA milter version %d", m->mf_name, m->mf_fvers, SMFI_VERSION); milter_error(m, e); goto error; } /* check for filter feature mismatch */ if ((m->mf_fflags & mta_actions) != m->mf_fflags) { if (tTd(64, 5)) sm_dprintf("milter_negotiate(%s): filter abilities 0x%x != MTA milter abilities 0x%lx\n", m->mf_name, m->mf_fflags, (unsigned long) mta_actions); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): negotiate: filter abilities 0x%x != MTA milter abilities 0x%lx", m->mf_name, m->mf_fflags, (unsigned long) mta_actions); milter_error(m, e); goto error; } # if _FFR_MDS_NEGOTIATE # define MDSWARNING(sz) \ do \ { \ sm_syslog(LOG_WARNING, NOQID, \ "WARNING: Milter.maxdatasize: configured=%lu, set by milter(%s)=%d", \ (unsigned long) MilterMaxDataSize, m->mf_name, sz); \ MilterMaxDataSize = sz; \ } while (0) /* use a table instead of sequence? */ if (bitset(SMFIP_MDS_1M, m->mf_pflags)) { if (MilterMaxDataSize != MILTER_MDS_1M) MDSWARNING(MILTER_MDS_1M); } else if (bitset(SMFIP_MDS_256K, m->mf_pflags)) { if (MilterMaxDataSize != MILTER_MDS_256K) MDSWARNING(MILTER_MDS_256K); } /* ** Note: it is not possible to distinguish between ** - milter requested 64K ** - milter did not request anything ** as there is no SMFIP_MDS_64K flag. */ else if (MilterMaxDataSize != MILTER_MDS_64K) MDSWARNING(MILTER_MDS_64K); m->mf_pflags &= ~SMFI_INTERNAL; # endif /* _FFR_MDS_NEGOTIATE */ /* check for protocol feature mismatch */ if ((m->mf_pflags & mta_prot_flags) != m->mf_pflags) { if (tTd(64, 5)) sm_dprintf("milter_negotiate(%s): protocol abilities 0x%x != MTA milter abilities 0x%lx\n", m->mf_name, m->mf_pflags, (unsigned long) mta_prot_flags); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): negotiate: protocol abilities 0x%x != MTA milter abilities 0x%lx", m->mf_name, m->mf_pflags, (unsigned long) mta_prot_flags); milter_error(m, e); goto error; } if (m->mf_fvers <= 2) m->mf_pflags |= SMFIP_NOUNKNOWN; if (m->mf_fvers <= 3) m->mf_pflags |= SMFIP_NODATA; if (rlen > MILTER_OPTLEN) { milter_getsymlist(m, response, rlen, MILTER_OPTLEN); } if (bitset(SMFIF_DELRCPT, m->mf_fflags)) milters->mis_flags |= MIS_FL_DEL_RCPT; if (!bitset(SMFIP_NORCPT, m->mf_pflags) && !bitset(SMFIP_NR_RCPT, m->mf_pflags)) milters->mis_flags |= MIS_FL_REJ_RCPT; if (tTd(64, 5)) sm_dprintf("milter_negotiate(%s): received: version %u, fflags 0x%x, pflags 0x%x\n", m->mf_name, m->mf_fvers, m->mf_fflags, m->mf_pflags); SM_FREE(response); return 0; error: SM_FREE(response); return -1; } /* ** MILTER_PER_CONNECTION_CHECK -- checks on per-connection commands ** ** Reduce code duplication by putting these checks in one place ** ** Parameters: ** e -- current envelope. ** ** Returns: ** none */ static void milter_per_connection_check(e) ENVELOPE *e; { int i; /* see if we are done with any of the filters */ for (i = 0; InputFilters[i] != NULL; i++) { struct milter *m = InputFilters[i]; if (m->mf_state == SMFS_CLOSABLE) milter_quit_filter(m, e); } } /* ** MILTER_ERROR -- Put a milter filter into error state ** ** Parameters: ** m -- the broken filter. ** e -- current envelope. ** ** Returns: ** none */ static void milter_error(m, e) struct milter *m; ENVELOPE *e; { /* ** We could send a quit here but we may have gotten here due to ** an I/O error so we don't want to try to make things worse. */ if (m->mf_sock >= 0) { (void) close(m->mf_sock); m->mf_sock = -1; } m->mf_state = SMFS_ERROR; if (MilterLogLevel > 0) sm_syslog(LOG_INFO, e->e_id, "Milter (%s): to error state", m->mf_name); } /* ** MILTER_HEADERS -- send headers to a single milter filter ** ** Parameters: ** m -- current filter. ** e -- current envelope. ** state -- return state from response. ** ** Returns: ** response string (may be NULL) */ static char * milter_headers(m, e, state) struct milter *m; ENVELOPE *e; char *state; { char *response = NULL; HDR *h; if (MilterLogLevel > 17) sm_syslog(LOG_INFO, e->e_id, "Milter (%s): headers, send", m->mf_name); for (h = e->e_header; h != NULL; h = h->h_link) { int len_n, len_v, len_t, len_f; char *buf, *hv; /* don't send over deleted headers */ if (h->h_value == NULL) { /* strip H_USER so not counted in milter_changeheader() */ h->h_flags &= ~H_USER; continue; } /* skip auto-generated */ if (!bitset(H_USER, h->h_flags)) continue; if (tTd(64, 10)) sm_dprintf("milter_headers: %s:%s\n", h->h_field, h->h_value); if (MilterLogLevel > 21) sm_syslog(LOG_INFO, e->e_id, "Milter (%s): header, %s", m->mf_name, h->h_field); if (bitset(SMFIP_HDR_LEADSPC, m->mf_pflags) || *(h->h_value) != ' ') hv = h->h_value; else hv = h->h_value + 1; len_f = strlen(h->h_field) + 1; len_t = len_f + strlen(hv) + 1; if (len_t < 0) continue; buf = (char *) xalloc(len_t); /* ** Note: currently the call to dequote_internal_chars() ** is not required as h_field is supposed to be 7-bit US-ASCII. */ len_n = dequote_internal_chars(h->h_field, buf, len_f); SM_ASSERT(len_n < len_f); len_v = dequote_internal_chars(hv, buf + len_n + 1, len_t - len_n - 1); SM_ASSERT(len_t >= len_n + 1 + len_v + 1); len_t = len_n + 1 + len_v + 1; /* send it over */ response = milter_send_command(m, SMFIC_HEADER, buf, len_t, e, state, "header"); sm_free(buf); if (m->mf_state == SMFS_ERROR || m->mf_state == SMFS_DONE || *state != SMFIR_CONTINUE) break; } if (MilterLogLevel > 17) sm_syslog(LOG_INFO, e->e_id, "Milter (%s): headers, sent", m->mf_name); return response; } /* ** MILTER_BODY -- send the body to a filter ** ** Parameters: ** m -- current filter. ** e -- current envelope. ** state -- return state from response. ** ** Returns: ** response string (may be NULL) */ static char * milter_body(m, e, state) struct milter *m; ENVELOPE *e; char *state; { char bufchar = '\0'; char prevchar = '\0'; int c; char *response = NULL; char *bp; char buf[MILTER_CHUNK_SIZE]; if (tTd(64, 10)) sm_dprintf("milter_body\n"); if (bfrewind(e->e_dfp) < 0) { ExitStat = EX_IOERR; *state = SMFIR_TEMPFAIL; syserr("milter_body: %s/%cf%s: rewind error", qid_printqueue(e->e_qgrp, e->e_qdir), DATAFL_LETTER, e->e_id); return NULL; } if (MilterLogLevel > 17) sm_syslog(LOG_INFO, e->e_id, "Milter (%s): body, send", m->mf_name); bp = buf; while ((c = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT)) != SM_IO_EOF) { /* Change LF to CRLF */ if (c == '\n') { # if !_FFR_MILTER_CONVERT_ALL_LF_TO_CRLF /* Not a CRLF already? */ if (prevchar != '\r') # endif { /* Room for CR now? */ if (bp + 2 > &buf[sizeof(buf)]) { /* No room, buffer LF */ bufchar = c; /* and send CR now */ c = '\r'; } else { /* Room to do it now */ *bp++ = '\r'; prevchar = '\r'; } } } *bp++ = (char) c; prevchar = c; if (bp >= &buf[sizeof(buf)]) { /* send chunk */ response = milter_send_command(m, SMFIC_BODY, buf, bp - buf, e, state, "body chunk"); bp = buf; if (bufchar != '\0') { *bp++ = bufchar; bufchar = '\0'; prevchar = bufchar; } } if (m->mf_state == SMFS_ERROR || m->mf_state == SMFS_DONE || m->mf_state == SMFS_SKIP || *state != SMFIR_CONTINUE) break; } /* check for read errors */ if (sm_io_error(e->e_dfp)) { ExitStat = EX_IOERR; if (*state == SMFIR_CONTINUE || *state == SMFIR_ACCEPT || m->mf_state == SMFS_SKIP) { *state = SMFIR_TEMPFAIL; if (response != NULL) { sm_free(response); /* XXX */ response = NULL; } } syserr("milter_body: %s/%cf%s: read error", qid_printqueue(e->e_qgrp, e->e_qdir), DATAFL_LETTER, e->e_id); return response; } /* send last body chunk */ if (bp > buf && m->mf_state != SMFS_ERROR && m->mf_state != SMFS_DONE && m->mf_state != SMFS_SKIP && *state == SMFIR_CONTINUE) { /* send chunk */ response = milter_send_command(m, SMFIC_BODY, buf, bp - buf, e, state, "last body chunk"); bp = buf; } if (MilterLogLevel > 17) sm_syslog(LOG_INFO, e->e_id, "Milter (%s): body, sent", m->mf_name); if (m->mf_state == SMFS_SKIP) { *state = SMFIR_CONTINUE; m->mf_state = SMFS_READY; } return response; } /* ** Actions */ /* ** ADDLEADINGSPACE -- Add a leading space to a string ** ** Parameters: ** str -- string ** rp -- resource pool for allocations ** ** Returns: ** pointer to new string */ static char *addleadingspace __P((char *, SM_RPOOL_T *)); static char * addleadingspace(str, rp) char *str; SM_RPOOL_T *rp; { size_t l; char *new; SM_ASSERT(str != NULL); l = strlen(str); SM_ASSERT(l + 2 > l); new = sm_rpool_malloc_x(rp, l + 2); new[0] = ' '; new[1] = '\0'; sm_strlcpy(new + 1, str, l + 1); return new; } /* ** MILTER_ADDHEADER -- Add the supplied header to the message ** ** Parameters: ** m -- current filter. ** response -- encoded form of header/value. ** rlen -- length of response. ** e -- current envelope. ** ** Returns: ** none */ static void milter_addheader(m, response, rlen, e) struct milter *m; char *response; ssize_t rlen; ENVELOPE *e; { int mh_v_len; char *val, *mh_value; HDR *h; if (tTd(64, 10)) sm_dprintf("milter_addheader: "); /* sanity checks */ if (response == NULL) { if (tTd(64, 10)) sm_dprintf("NULL response\n"); return; } if (rlen < 2 || strlen(response) + 1 >= (size_t) rlen) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol (total len %d != rlen %d)\n", (int) strlen(response), (int) (rlen - 1)); return; } /* Find separating NUL */ val = response + strlen(response) + 1; /* another sanity check */ if (strlen(response) + strlen(val) + 2 != (size_t) rlen) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol (part len)\n"); return; } if (*response == '\0') { if (tTd(64, 10)) sm_dprintf("empty field name\n"); return; } for (h = e->e_header; h != NULL; h = h->h_link) { if (SM_STRCASEEQ(h->h_field, response) && !bitset(H_USER, h->h_flags) && !bitset(H_TRACE, h->h_flags)) break; } mh_v_len = 0; mh_value = quote_internal_chars(val, NULL, &mh_v_len, NULL); /* add to e_msgsize */ e->e_msgsize += strlen(response) + 2 + strlen(val); if (h != NULL) { if (tTd(64, 10)) sm_dprintf("Replace default header %s value with %s\n", h->h_field, mh_value); if (MilterLogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "Milter (%s) change: default header %s value with %s", m->mf_name, h->h_field, mh_value); if (bitset(SMFIP_HDR_LEADSPC, m->mf_pflags)) h->h_value = mh_value; /* XXX must be allocated from rpool? */ else { h->h_value = addleadingspace(mh_value, e->e_rpool); SM_FREE(mh_value); } h->h_flags |= H_USER; } else { if (tTd(64, 10)) sm_dprintf("Add %s: %s\n", response, mh_value); if (MilterLogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "Milter (%s) add: header: %s: %s", m->mf_name, response, mh_value); addheader(newstr(response), mh_value, H_USER, e, !bitset(SMFIP_HDR_LEADSPC, m->mf_pflags)); SM_FREE(mh_value); } } /* ** MILTER_INSHEADER -- Insert the supplied header ** ** Parameters: ** m -- current filter. ** response -- encoded form of header/value. ** rlen -- length of response. ** e -- current envelope. ** ** Returns: ** none ** ** Notes: ** Unlike milter_addheader(), this does not attempt to determine ** if the header already exists in the envelope, even a ** deleted version. It just blindly inserts. */ static void milter_insheader(m, response, rlen, e) struct milter *m; char *response; ssize_t rlen; ENVELOPE *e; { mi_int32 idx, i; int mh_v_len; char *field, *val, *mh_value; if (tTd(64, 10)) sm_dprintf("milter_insheader: "); /* sanity checks */ if (response == NULL) { if (tTd(64, 10)) sm_dprintf("NULL response\n"); return; } if (rlen < 2 || strlen(response) + 1 >= (size_t) rlen) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol (total len)\n"); return; } /* decode */ (void) memcpy((char *) &i, response, MILTER_LEN_BYTES); idx = ntohl(i); field = response + MILTER_LEN_BYTES; val = field + strlen(field) + 1; /* another sanity check */ if (MILTER_LEN_BYTES + strlen(field) + 1 + strlen(val) + 1 != (size_t) rlen) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol (part len)\n"); return; } if (*field == '\0') { if (tTd(64, 10)) sm_dprintf("empty field name\n"); return; } /* add to e_msgsize */ e->e_msgsize += strlen(response) + 2 + strlen(val); if (tTd(64, 10)) sm_dprintf("Insert (%d) %s: %s\n", idx, field, val); if (MilterLogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "Milter (%s) insert (%d): header: %s: %s", m->mf_name, idx, field, val); mh_v_len = 0; mh_value = quote_internal_chars(val, NULL, &mh_v_len, NULL); insheader(idx, newstr(field), mh_value, H_USER, e, !bitset(SMFIP_HDR_LEADSPC, m->mf_pflags)); SM_FREE(mh_value); } /* ** MILTER_CHANGEHEADER -- Change the supplied header in the message ** ** Parameters: ** m -- current filter. ** response -- encoded form of header/index/value. ** rlen -- length of response. ** e -- current envelope. ** ** Returns: ** none */ static void milter_changeheader(m, response, rlen, e) struct milter *m; char *response; ssize_t rlen; ENVELOPE *e; { mi_int32 i, index; int mh_v_len; char *field, *val, *mh_value; HDR *h, *sysheader; if (tTd(64, 10)) sm_dprintf("milter_changeheader: "); /* sanity checks */ if (response == NULL) { if (tTd(64, 10)) sm_dprintf("NULL response\n"); return; } if (rlen < 2 || strlen(response) + 1 >= (size_t) rlen) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol (total len)\n"); return; } /* Find separating NUL */ (void) memcpy((char *) &i, response, MILTER_LEN_BYTES); index = ntohl(i); field = response + MILTER_LEN_BYTES; val = field + strlen(field) + 1; /* another sanity check */ if (MILTER_LEN_BYTES + strlen(field) + 1 + strlen(val) + 1 != (size_t) rlen) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol (part len)\n"); return; } if (*field == '\0') { if (tTd(64, 10)) sm_dprintf("empty field name\n"); return; } mh_v_len = 0; mh_value = quote_internal_chars(val, NULL, &mh_v_len, NULL); sysheader = NULL; for (h = e->e_header; h != NULL; h = h->h_link) { if (SM_STRCASEEQ(h->h_field, field)) { if (bitset(H_USER, h->h_flags) && --index <= 0) { sysheader = NULL; break; } else if (!bitset(H_USER, h->h_flags) && !bitset(H_TRACE, h->h_flags)) { /* ** RFC 2822: ** 27. No multiple occurrences of fields ** (except resent and received).* ** so make sure we replace any non-trace, ** non-user field. */ sysheader = h; } } } /* if not found as user-provided header at index, use sysheader */ if (h == NULL) h = sysheader; if (h == NULL) { if (*val == '\0') { if (tTd(64, 10)) sm_dprintf("Delete (noop) %s\n", field); if (MilterLogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "Milter (%s) delete (noop): header: %s" , m->mf_name, field); } else { /* treat modify value with no existing header as add */ if (tTd(64, 10)) sm_dprintf("Add %s: %s\n", field, mh_value); if (MilterLogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "Milter (%s) change (add): header: %s: %s" , m->mf_name, field, mh_value); addheader(newstr(field), mh_value, H_USER, e, !bitset(SMFIP_HDR_LEADSPC, m->mf_pflags)); } SM_FREE(mh_value); return; } if (tTd(64, 10)) { if (*val == '\0') { sm_dprintf("Delete%s %s:%s\n", h == sysheader ? " (default header)" : "", field, h->h_value == NULL ? "" : h->h_value); } else { sm_dprintf("Change%s %s: from %s to %s\n", h == sysheader ? " (default header)" : "", field, h->h_value == NULL ? "" : h->h_value, mh_value); } } if (MilterLogLevel > 8) { if (*val == '\0') { sm_syslog(LOG_INFO, e->e_id, "Milter (%s) delete: header%s %s:%s", m->mf_name, h == sysheader ? " (default header)" : "", field, h->h_value == NULL ? "" : h->h_value); } else { sm_syslog(LOG_INFO, e->e_id, "Milter (%s) change: header%s %s: from %s to %s", m->mf_name, h == sysheader ? " (default header)" : "", field, h->h_value == NULL ? "" : h->h_value, mh_value); } } if (h != sysheader && h->h_value != NULL) { size_t l; l = strlen(h->h_value); if (l > e->e_msgsize) e->e_msgsize = 0; else e->e_msgsize -= l; /* rpool, don't free: sm_free(h->h_value); XXX */ } if (*val == '\0') { /* Remove "Field: " from message size */ if (h != sysheader) { size_t l; l = strlen(h->h_field) + 2; if (l > e->e_msgsize) e->e_msgsize = 0; else e->e_msgsize -= l; } h->h_value = NULL; SM_FREE(mh_value); } else { if (bitset(SMFIP_HDR_LEADSPC, m->mf_pflags)) h->h_value = mh_value; /* XXX must be allocated from rpool? */ else { h->h_value = addleadingspace(mh_value, e->e_rpool); SM_FREE(mh_value); } h->h_flags |= H_USER; e->e_msgsize += strlen(h->h_value); } } /* ** MILTER_SPLIT_RESPONSE -- Split response into fields. ** ** Parameters: ** response -- encoded response. ** rlen -- length of response. ** pargc -- number of arguments (output) ** ** Returns: ** array of pointers to the individual strings */ static char **milter_split_response __P((char *, ssize_t, int *)); static char ** milter_split_response(response, rlen, pargc) char *response; ssize_t rlen; int *pargc; { char **s; size_t i; int elem, nelem; SM_ASSERT(response != NULL); SM_ASSERT(pargc != NULL); *pargc = 0; if (rlen < 2 || strlen(response) >= (size_t) rlen) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol (total len %d != rlen %d)\n", (int) strlen(response), (int) (rlen - 1)); return NULL; } nelem = 0; for (i = 0; i < rlen; i++) { if (response[i] == '\0') ++nelem; } if (nelem == 0) return NULL; /* last entry is only for the name */ s = (char **)malloc((nelem + 1) * (sizeof(*s))); if (s == NULL) return NULL; s[0] = response; for (i = 0, elem = 0; i < rlen && elem < nelem; i++) { if (response[i] == '\0') { ++elem; if (i + 1 >= rlen) s[elem] = NULL; else s[elem] = &(response[i + 1]); } } *pargc = nelem; if (tTd(64, 10)) { for (elem = 0; elem < nelem; elem++) sm_dprintf("argv[%d]=\"%s\"\n", elem, s[elem]); } /* overwrite last entry (already done above, just paranoia) */ s[elem] = NULL; return s; } /* ** MILTER_CHGFROM -- Change the envelope sender address ** ** Parameters: ** response -- encoded form of recipient address. ** rlen -- length of response. ** e -- current envelope. ** mname -- name of milter. ** ** Returns: ** none */ static void milter_chgfrom(response, rlen, e, mname) char *response; ssize_t rlen; ENVELOPE *e; const char *mname; { int olderrors, argc; char **argv; if (tTd(64, 10)) sm_dprintf("milter_chgfrom: "); /* sanity checks */ if (response == NULL) { if (tTd(64, 10)) sm_dprintf("NULL response\n"); return; } if (*response == '\0' || strlen(response) + 1 > (size_t) rlen) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol (total len %d != rlen %d)\n", (int) strlen(response), (int) (rlen - 1)); return; } if (tTd(64, 10)) sm_dprintf("%s\n", response); if (MilterLogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "Milter (%s) chgfrom: %s", mname, response); argv = milter_split_response(response, rlen, &argc); if (argc < 1 || argc > 2) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol argc=%d\n", argc); if (argv != NULL) free(argv); return; } olderrors = Errors; setsender(argv[0], e, NULL, '\0', false); if (argc == 2) { reset_mail_esmtp_args(e); /* ** need "features" here: how to get those? via e? ** "fake" it for now: allow everything. */ parse_esmtp_args(e, NULL, argv[0], argv[1], "MAIL", NULL, mail_esmtp_args); } Errors = olderrors; free(argv); return; } /* ** MILTER_ADDRCPT_PAR -- Add the supplied recipient to the message ** ** Parameters: ** response -- encoded form of recipient address. ** rlen -- length of response. ** e -- current envelope. ** mname -- name of milter. ** ** Returns: ** none */ static void milter_addrcpt_par(response, rlen, e, mname) char *response; ssize_t rlen; ENVELOPE *e; const char *mname; { int olderrors, argc; char *delimptr; char **argv; ADDRESS *a; if (tTd(64, 10)) sm_dprintf("milter_addrcpt_par: "); /* sanity checks */ if (response == NULL) { if (tTd(64, 10)) sm_dprintf("NULL response\n"); return; } if (tTd(64, 10)) sm_dprintf("%s\n", response); if (MilterLogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "Milter (%s) add: rcpt: %s", mname, response); argv = milter_split_response(response, rlen, &argc); if (argc < 1 || argc > 2) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol argc=%d\n", argc); if (argv != NULL) free(argv); return; } olderrors = Errors; /* how to set ESMTP arguments? */ /* XXX argv[0] must be [i] */ a = parseaddr(argv[0], NULLADDR, RF_COPYALL, ' ', &delimptr, e, true); if (a != NULL && olderrors == Errors) { parse_esmtp_args(e, a, argv[0], argv[1], "RCPT", NULL, rcpt_esmtp_args); if (olderrors == Errors) a = recipient(a, &e->e_sendqueue, 0, e); else sm_dprintf("olderrors=%d, Errors=%d\n", olderrors, Errors); } else { sm_dprintf("a=%p, olderrors=%d, Errors=%d\n", (void *)a, olderrors, Errors); } Errors = olderrors; free(argv); return; } /* ** MILTER_ADDRCPT -- Add the supplied recipient to the message ** ** Parameters: ** response -- encoded form of recipient address. ** rlen -- length of response. ** e -- current envelope. ** mname -- name of milter. ** ** Returns: ** none */ static void milter_addrcpt(response, rlen, e, mname) char *response; ssize_t rlen; ENVELOPE *e; const char *mname; { int olderrors; if (tTd(64, 10)) sm_dprintf("milter_addrcpt: "); /* sanity checks */ if (response == NULL) { if (tTd(64, 10)) sm_dprintf("NULL response\n"); return; } if (*response == '\0' || strlen(response) + 1 != (size_t) rlen) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol (total len %d != rlen %d)\n", (int) strlen(response), (int) (rlen - 1)); return; } if (tTd(64, 10)) sm_dprintf("%s\n", response); if (MilterLogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "Milter (%s) add: rcpt: %s", mname, response); olderrors = Errors; (void) sendtolist(response, NULLADDR, &e->e_sendqueue, 0, e); Errors = olderrors; return; } /* ** MILTER_DELRCPT -- Delete the supplied recipient from the message ** ** Parameters: ** response -- encoded form of recipient address. ** rlen -- length of response. ** e -- current envelope. ** mname -- name of milter. ** ** Returns: ** none */ static void milter_delrcpt(response, rlen, e, mname) char *response; ssize_t rlen; ENVELOPE *e; const char *mname; { int r; if (tTd(64, 10)) sm_dprintf("milter_delrcpt: "); /* sanity checks */ if (response == NULL) { if (tTd(64, 10)) sm_dprintf("NULL response\n"); return; } if (*response == '\0' || strlen(response) + 1 != (size_t) rlen) { if (tTd(64, 10)) sm_dprintf("didn't follow protocol (total len %d != rlen %d)\n", (int) strlen(response), (int) (rlen - 1)); return; } if (tTd(64, 10)) sm_dprintf("%s\n", response); r = removefromlist(response, &e->e_sendqueue, e); if (MilterLogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "Milter (%s) delete: rcpt %s, naddrs=%d", mname, response, r); return; } /* ** MILTER_REPLBODY -- Replace the current data file with new body ** ** Parameters: ** response -- encoded form of new body. ** rlen -- length of response. ** newfilter -- if first time called by a new filter ** e -- current envelope. ** mname -- name of milter. ** ** Returns: ** 0 upon success, -1 upon failure */ static int milter_replbody(response, rlen, newfilter, e, mname) char *response; ssize_t rlen; bool newfilter; ENVELOPE *e; const char *mname; { static char prevchar; int i; if (tTd(64, 10)) sm_dprintf("milter_replbody\n"); /* If a new filter, reset previous character and truncate data file */ if (newfilter) { off_t prevsize; char dfname[MAXPATHLEN]; (void) sm_strlcpy(dfname, queuename(e, DATAFL_LETTER), sizeof(dfname)); /* Reset prevchar */ prevchar = '\0'; /* Get the current data file information */ prevsize = sm_io_getinfo(e->e_dfp, SM_IO_WHAT_SIZE, NULL); if (prevsize < 0) prevsize = 0; /* truncate current data file */ if (sm_io_getinfo(e->e_dfp, SM_IO_WHAT_ISTYPE, BF_FILE_TYPE)) { if (sm_io_setinfo(e->e_dfp, SM_BF_TRUNCATE, NULL) < 0) { MILTER_DF_ERROR("milter_replbody: sm_io truncate %s: %s"); return -1; } } else { int err; err = sm_io_error(e->e_dfp); (void) sm_io_flush(e->e_dfp, SM_TIME_DEFAULT); /* ** Clear error if tried to fflush() ** a read-only file pointer and ** there wasn't a previous error. */ if (err == 0) sm_io_clearerr(e->e_dfp); /* errno is set implicitly by fseek() before return */ err = sm_io_seek(e->e_dfp, SM_TIME_DEFAULT, 0, SEEK_SET); if (err < 0) { MILTER_DF_ERROR("milter_replbody: sm_io_seek %s: %s"); return -1; } # if NOFTRUNCATE /* XXX: Not much we can do except rewind it */ errno = EINVAL; MILTER_DF_ERROR("milter_replbody: ftruncate not available on this platform (%s:%s)"); return -1; # else /* NOFTRUNCATE */ err = ftruncate(sm_io_getinfo(e->e_dfp, SM_IO_WHAT_FD, NULL), 0); if (err < 0) { MILTER_DF_ERROR("milter_replbody: sm_io ftruncate %s: %s"); return -1; } # endif /* NOFTRUNCATE */ } if (prevsize > e->e_msgsize) e->e_msgsize = 0; else e->e_msgsize -= prevsize; } if (newfilter && MilterLogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "Milter (%s) message: body replaced", mname); if (response == NULL) { /* Flush the buffered '\r' */ if (prevchar == '\r') { (void) sm_io_putc(e->e_dfp, SM_TIME_DEFAULT, prevchar); e->e_msgsize++; } return 0; } for (i = 0; i < rlen; i++) { /* Buffered char from last chunk */ if (i == 0 && prevchar == '\r') { /* Not CRLF, output prevchar */ if (response[i] != '\n') { (void) sm_io_putc(e->e_dfp, SM_TIME_DEFAULT, prevchar); e->e_msgsize++; } prevchar = '\0'; } /* Turn CRLF into LF */ if (response[i] == '\r') { /* check if at end of chunk */ if (i + 1 < rlen) { /* If LF, strip CR */ if (response[i + 1] == '\n') i++; } else { /* check next chunk */ prevchar = '\r'; continue; } } (void) sm_io_putc(e->e_dfp, SM_TIME_DEFAULT, response[i]); e->e_msgsize++; } return 0; } /* ** MTA callouts */ /* ** MILTER_INIT -- open and negotiate with all of the filters ** ** Parameters: ** e -- current envelope. ** state -- return state from response. ** milters -- milters structure. ** ** Returns: ** true iff at least one filter is active */ /* ARGSUSED */ bool milter_init(e, state, milters) ENVELOPE *e; char *state; milters_T *milters; { int i; if (tTd(64, 10)) sm_dprintf("milter_init\n"); memset(milters, '\0', sizeof(*milters)); *state = SMFIR_CONTINUE; if (InputFilters[0] == NULL) { if (MilterLogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "Milter: no active filter"); return false; } for (i = 0; InputFilters[i] != NULL; i++) { struct milter *m = InputFilters[i]; m->mf_sock = milter_open(m, false, e); if (m->mf_state == SMFS_ERROR) { MILTER_CHECK_ERROR(true, continue); break; } if (m->mf_sock < 0 || milter_negotiate(m, e, milters) < 0 || m->mf_state == SMFS_ERROR) { if (tTd(64, 5)) sm_dprintf("milter_init(%s): failed to %s\n", m->mf_name, m->mf_sock < 0 ? "open" : "negotiate"); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "Milter (%s): init failed to %s", m->mf_name, m->mf_sock < 0 ? "open" : "negotiate"); /* if negotiation failure, close socket */ milter_error(m, e); MILTER_CHECK_ERROR(true, continue); continue; } if (MilterLogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "Milter (%s): init success to %s", m->mf_name, m->mf_sock < 0 ? "open" : "negotiate"); } /* ** If something temp/perm failed with one of the filters, ** we won't be using any of them, so clear any existing ** connections. */ if (*state != SMFIR_CONTINUE) milter_quit(e); return true; } /* ** MILTER_CONNECT -- send connection info to milter filters ** ** Parameters: ** hostname -- hostname of remote machine. ** addr -- address of remote machine. ** e -- current envelope. ** state -- return state from response. ** ** Returns: ** response string (may be NULL) */ char * milter_connect(hostname, addr, e, state) char *hostname; SOCKADDR addr; ENVELOPE *e; char *state; { char family; unsigned short port; char *buf, *bp; char *response; char *sockinfo = NULL; ssize_t s; # if NETINET6 char buf6[INET6_ADDRSTRLEN]; # endif if (tTd(64, 10)) sm_dprintf("milter_connect(%s)\n", hostname); if (MilterLogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "Milter: connect to filters"); /* gather data */ switch (addr.sa.sa_family) { # if NETUNIX case AF_UNIX: family = SMFIA_UNIX; port = htons(0); sockinfo = addr.sunix.sun_path; break; # endif /* NETUNIX */ # if NETINET case AF_INET: family = SMFIA_INET; port = addr.sin.sin_port; sockinfo = (char *) inet_ntoa(addr.sin.sin_addr); break; # endif /* NETINET */ # if NETINET6 case AF_INET6: if (IN6_IS_ADDR_V4MAPPED(&addr.sin6.sin6_addr)) family = SMFIA_INET; else family = SMFIA_INET6; port = addr.sin6.sin6_port; sockinfo = anynet_ntop(&addr.sin6.sin6_addr, buf6, sizeof(buf6)); if (sockinfo == NULL) sockinfo = ""; break; # endif /* NETINET6 */ default: family = SMFIA_UNKNOWN; break; } s = strlen(hostname) + 1 + sizeof(family); if (family != SMFIA_UNKNOWN) s += sizeof(port) + strlen(sockinfo) + 1; buf = (char *) xalloc(s); bp = buf; /* put together data */ (void) memcpy(bp, hostname, strlen(hostname)); bp += strlen(hostname); *bp++ = '\0'; (void) memcpy(bp, &family, sizeof(family)); bp += sizeof(family); if (family != SMFIA_UNKNOWN) { (void) memcpy(bp, &port, sizeof(port)); bp += sizeof(port); /* include trailing '\0' */ (void) memcpy(bp, sockinfo, strlen(sockinfo) + 1); } response = milter_command(SMFIC_CONNECT, buf, s, SMFIM_CONNECT, e, state, "connect", false); sm_free(buf); /* XXX */ /* ** If this message connection is done for, ** close the filters. */ if (*state != SMFIR_CONTINUE) { if (MilterLogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "Milter: connect, ending"); milter_quit(e); } else milter_per_connection_check(e); # if !_FFR_MILTER_CONNECT_REPLYCODE /* ** SMFIR_REPLYCODE can't work with connect due to ** the requirements of SMTP. Therefore, ignore the ** reply code text but keep the state it would reflect. */ if (*state == SMFIR_REPLYCODE) { if (response != NULL && *response == '4') { if (strncmp(response, "421 ", 4) == 0) *state = SMFIR_SHUTDOWN; else *state = SMFIR_TEMPFAIL; } else *state = SMFIR_REJECT; if (response != NULL) { sm_free(response); /* XXX */ response = NULL; } } # endif /* !_FFR_MILTER_CONNECT_REPLYCODE */ return response; } /* ** MILTER_HELO -- send SMTP HELO/EHLO command info to milter filters ** ** Parameters: ** helo -- argument to SMTP HELO/EHLO command. ** e -- current envelope. ** state -- return state from response. ** ** Returns: ** response string (may be NULL) */ char * milter_helo(helo, e, state) char *helo; ENVELOPE *e; char *state; { int i; char *response; if (tTd(64, 10)) sm_dprintf("milter_helo(%s)\n", helo); /* HELO/EHLO can come at any point */ for (i = 0; InputFilters[i] != NULL; i++) { struct milter *m = InputFilters[i]; switch (m->mf_state) { case SMFS_INMSG: /* abort in message filters */ milter_abort_filter(m, e); /* FALLTHROUGH */ case SMFS_DONE: /* reset done filters */ m->mf_state = SMFS_OPEN; break; } } response = milter_command(SMFIC_HELO, helo, strlen(helo) + 1, SMFIM_HELO, e, state, "helo", false); milter_per_connection_check(e); return response; } /* ** MILTER_ENVFROM -- send SMTP MAIL command info to milter filters ** ** Parameters: ** args -- SMTP MAIL command args (args[0] == sender). ** e -- current envelope. ** state -- return state from response. ** ** Returns: ** response string (may be NULL) */ char * milter_envfrom(args, e, state) char **args; ENVELOPE *e; char *state; { int i; char *buf, *bp; char *response; ssize_t s; if (tTd(64, 10)) { sm_dprintf("milter_envfrom:"); for (i = 0; args[i] != NULL; i++) sm_dprintf(" %s", args[i]); sm_dprintf("\n"); } /* sanity check */ if (args[0] == NULL) { *state = SMFIR_REJECT; if (MilterLogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "Milter: reject, no sender"); return NULL; } /* new message, so ... */ for (i = 0; InputFilters[i] != NULL; i++) { struct milter *m = InputFilters[i]; switch (m->mf_state) { case SMFS_INMSG: /* abort in message filters */ milter_abort_filter(m, e); /* FALLTHROUGH */ case SMFS_DONE: /* reset done filters */ m->mf_state = SMFS_OPEN; break; } } /* put together data */ s = 0; for (i = 0; args[i] != NULL; i++) s += strlen(args[i]) + 1; if (s < 0) { *state = SMFIR_TEMPFAIL; return NULL; } buf = (char *) xalloc(s); bp = buf; for (i = 0; args[i] != NULL; i++) { (void) sm_strlcpy(bp, args[i], s - (bp - buf)); bp += strlen(bp) + 1; } if (MilterLogLevel > 14) sm_syslog(LOG_INFO, e->e_id, "Milter: sender: %s", buf); /* send it over */ response = milter_command(SMFIC_MAIL, buf, s, SMFIM_ENVFROM, e, state, "mail", false); sm_free(buf); /* XXX */ /* ** If filter rejects/discards a per message command, ** abort the other filters since we are done with the ** current message. */ MILTER_CHECK_DONE_MSG(); if (MilterLogLevel > 10 && *state == SMFIR_REJECT) sm_syslog(LOG_INFO, e->e_id, "Milter: reject, sender"); return response; } /* ** MILTER_ENVRCPT -- send SMTP RCPT command info to milter filters ** ** Parameters: ** args -- SMTP RCPT command args (args[0] == recipient). ** e -- current envelope. ** state -- return state from response. ** rcpt_error -- does RCPT have an error? ** ** Returns: ** response string (may be NULL) */ char * milter_envrcpt(args, e, state, rcpt_error) char **args; ENVELOPE *e; char *state; bool rcpt_error; { int i; char *buf, *bp; char *response; ssize_t s; if (tTd(64, 10)) { sm_dprintf("milter_envrcpt:"); for (i = 0; args[i] != NULL; i++) sm_dprintf(" %s", args[i]); sm_dprintf("\n"); } /* sanity check */ if (args[0] == NULL) { *state = SMFIR_REJECT; if (MilterLogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "Milter: reject, no rcpt"); return NULL; } /* put together data */ s = 0; for (i = 0; args[i] != NULL; i++) s += strlen(args[i]) + 1; if (s < 0) { *state = SMFIR_TEMPFAIL; return NULL; } buf = (char *) xalloc(s); bp = buf; for (i = 0; args[i] != NULL; i++) { (void) sm_strlcpy(bp, args[i], s - (bp - buf)); bp += strlen(bp) + 1; } if (MilterLogLevel > 14) sm_syslog(LOG_INFO, e->e_id, "Milter: rcpts: %s", buf); /* send it over */ response = milter_command(SMFIC_RCPT, buf, s, SMFIM_ENVRCPT, e, state, "rcpt", rcpt_error); sm_free(buf); /* XXX */ return response; } /* ** MILTER_DATA_CMD -- send SMTP DATA command info to milter filters ** ** Parameters: ** e -- current envelope. ** state -- return state from response. ** ** Returns: ** response string (may be NULL) */ char * milter_data_cmd(e, state) ENVELOPE *e; char *state; { if (tTd(64, 10)) sm_dprintf("milter_data_cmd\n"); /* send it over */ return milter_command(SMFIC_DATA, NULL, 0, SMFIM_DATA, e, state, "data", false); } /* ** MILTER_DATA -- send message headers/body and gather final message results ** ** Parameters: ** e -- current envelope. ** state -- return state from response. ** ** Returns: ** response string (may be NULL) ** ** Side effects: ** - Uses e->e_dfp for access to the body ** - Can call the various milter action routines to ** modify the envelope or message. */ /* flow through code using continue; don't wrap in do {} while */ # define MILTER_CHECK_RESULTS() \ if (m->mf_state == SMFS_ERROR && *state == SMFIR_CONTINUE) \ { \ MILTER_SET_STATE; \ } \ if (*state == SMFIR_ACCEPT || \ m->mf_state == SMFS_DONE || \ m->mf_state == SMFS_ERROR) \ { \ if (m->mf_state != SMFS_ERROR) \ m->mf_state = SMFS_DONE; \ continue; /* to next filter */ \ } \ if (*state != SMFIR_CONTINUE) \ { \ m->mf_state = SMFS_DONE; \ goto finishup; \ } char * milter_data(e, state) ENVELOPE *e; char *state; { bool replbody = false; /* milter_replbody() called? */ bool replfailed = false; /* milter_replbody() failed? */ bool rewind = false; /* rewind data file? */ bool dfopen = false; /* data file open for writing? */ bool newfilter; /* reset on each new filter */ char rcmd; int i; int save_errno; char *response = NULL; time_t eomsent; ssize_t rlen; if (tTd(64, 10)) sm_dprintf("milter_data\n"); *state = SMFIR_CONTINUE; /* ** XXX: Should actually send body chunks to each filter ** a chunk at a time instead of sending the whole body to ** each filter in turn. However, only if the filters don't ** change the body. */ for (i = 0; InputFilters[i] != NULL; i++) { int idx; char **macros; struct milter *m = InputFilters[i]; if (*state != SMFIR_CONTINUE && *state != SMFIR_ACCEPT) { /* ** A previous filter has dealt with the message, ** safe to stop processing the filters. */ break; } /* Now reset state for later evaluation */ *state = SMFIR_CONTINUE; newfilter = true; /* previous problem? */ if (m->mf_state == SMFS_ERROR) { MILTER_CHECK_ERROR(false, continue); break; } /* sanity checks */ if (m->mf_sock < 0 || (m->mf_state != SMFS_OPEN && m->mf_state != SMFS_INMSG)) continue; m->mf_state = SMFS_INMSG; /* check if filter wants the headers */ if (!bitset(SMFIP_NOHDRS, m->mf_pflags)) { response = milter_headers(m, e, state); MILTER_CHECK_RESULTS(); } /* check if filter wants EOH */ if (!bitset(SMFIP_NOEOH, m->mf_pflags)) { if (tTd(64, 10)) sm_dprintf("milter_data: eoh\n"); if ((m->mf_lflags & MI_LFLAGS_SYM(SMFIM_EOH)) != 0) idx = m->mf_idx; else idx = 0; SM_ASSERT(idx >= 0 && idx <= MAXFILTERS); macros = MilterMacros[SMFIM_EOH][idx]; if (macros != NULL) { milter_send_macros(m, macros, SMFIC_EOH, e); MILTER_CHECK_RESULTS(); } /* send it over */ response = milter_send_command(m, SMFIC_EOH, NULL, 0, e, state, "eoh"); MILTER_CHECK_RESULTS(); } /* check if filter wants the body */ if (!bitset(SMFIP_NOBODY, m->mf_pflags) && e->e_dfp != NULL) { rewind = true; response = milter_body(m, e, state); MILTER_CHECK_RESULTS(); } if ((m->mf_lflags & MI_LFLAGS_SYM(SMFIM_EOH)) != 0) idx = m->mf_idx; else idx = 0; SM_ASSERT(idx >= 0 && idx <= MAXFILTERS); macros = MilterMacros[SMFIM_EOM][idx]; if (macros != NULL) { milter_send_macros(m, macros, SMFIC_BODYEOB, e); MILTER_CHECK_RESULTS(); } /* send the final body chunk */ (void) milter_write(m, SMFIC_BODYEOB, NULL, 0, m->mf_timeout[SMFTO_WRITE], e, "eom"); /* Get time EOM sent for timeout */ eomsent = curtime(); /* deal with the possibility of multiple responses */ while (*state == SMFIR_CONTINUE) { /* Check total timeout from EOM to final ACK/NAK */ if (m->mf_timeout[SMFTO_EOM] > 0 && curtime() - eomsent >= m->mf_timeout[SMFTO_EOM]) { if (tTd(64, 5)) sm_dprintf("milter_data(%s): EOM ACK/NAK timeout\n", m->mf_name); if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "milter_data(%s): EOM ACK/NAK timeout", m->mf_name); milter_error(m, e); MILTER_CHECK_ERROR(false, break); break; } response = milter_read(m, &rcmd, &rlen, m->mf_timeout[SMFTO_READ], e, "eom"); if (m->mf_state == SMFS_ERROR) break; if (tTd(64, 10)) sm_dprintf("milter_data(%s): state %c\n", m->mf_name, (char) rcmd); switch (rcmd) { case SMFIR_REPLYCODE: MILTER_CHECK_REPLYCODE("554 5.7.1 Command rejected"); if (MilterLogLevel > 12) sm_syslog(LOG_INFO, e->e_id, "milter=%s, reject=%s", m->mf_name, response); *state = rcmd; m->mf_state = SMFS_DONE; break; case SMFIR_REJECT: /* log msg at end of function */ if (MilterLogLevel > 12) sm_syslog(LOG_INFO, e->e_id, "milter=%s, reject", m->mf_name); *state = rcmd; m->mf_state = SMFS_DONE; break; case SMFIR_DISCARD: if (MilterLogLevel > 12) sm_syslog(LOG_INFO, e->e_id, "milter=%s, discard", m->mf_name); *state = rcmd; m->mf_state = SMFS_DONE; break; case SMFIR_TEMPFAIL: if (MilterLogLevel > 12) sm_syslog(LOG_INFO, e->e_id, "milter=%s, tempfail", m->mf_name); *state = rcmd; m->mf_state = SMFS_DONE; break; case SMFIR_CONTINUE: case SMFIR_ACCEPT: /* this filter is done with message */ if (replfailed) *state = SMFIR_TEMPFAIL; else *state = SMFIR_ACCEPT; m->mf_state = SMFS_DONE; break; case SMFIR_PROGRESS: break; case SMFIR_QUARANTINE: if (!bitset(SMFIF_QUARANTINE, m->mf_fflags)) { if (MilterLogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "milter_data(%s): lied about quarantining, honoring request anyway", m->mf_name); } if (response == NULL) response = newstr(""); if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "milter=%s, quarantine=%s", m->mf_name, response); e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool, response); macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), e->e_quarmsg); break; case SMFIR_ADDHEADER: if (!bitset(SMFIF_ADDHDRS, m->mf_fflags)) { if (MilterLogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "milter_data(%s): lied about adding headers, honoring request anyway", m->mf_name); } milter_addheader(m, response, rlen, e); break; case SMFIR_INSHEADER: if (!bitset(SMFIF_ADDHDRS, m->mf_fflags)) { if (MilterLogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "milter_data(%s): lied about adding headers, honoring request anyway", m->mf_name); } milter_insheader(m, response, rlen, e); break; case SMFIR_CHGHEADER: if (!bitset(SMFIF_CHGHDRS, m->mf_fflags)) { if (MilterLogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "milter_data(%s): lied about changing headers, honoring request anyway", m->mf_name); } milter_changeheader(m, response, rlen, e); break; case SMFIR_CHGFROM: if (!bitset(SMFIF_CHGFROM, m->mf_fflags)) { if (MilterLogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "milter_data(%s) lied about changing sender, honoring request anyway", m->mf_name); } milter_chgfrom(response, rlen, e, m->mf_name); break; case SMFIR_ADDRCPT: if (!bitset(SMFIF_ADDRCPT, m->mf_fflags)) { if (MilterLogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "milter_data(%s) lied about adding recipients, honoring request anyway", m->mf_name); } milter_addrcpt(response, rlen, e, m->mf_name); break; case SMFIR_ADDRCPT_PAR: if (!bitset(SMFIF_ADDRCPT_PAR, m->mf_fflags)) { if (MilterLogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "milter_data(%s) lied about adding recipients with parameters, honoring request anyway", m->mf_name); } milter_addrcpt_par(response, rlen, e, m->mf_name); break; case SMFIR_DELRCPT: if (!bitset(SMFIF_DELRCPT, m->mf_fflags)) { if (MilterLogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "milter_data(%s): lied about removing recipients, honoring request anyway", m->mf_name); } milter_delrcpt(response, rlen, e, m->mf_name); break; case SMFIR_REPLBODY: if (!bitset(SMFIF_MODBODY, m->mf_fflags)) { if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "milter_data(%s): lied about replacing body, rejecting request and tempfailing message", m->mf_name); replfailed = true; break; } /* already failed in attempt */ if (replfailed) break; if (!dfopen) { if (milter_reopen_df(e) < 0) { replfailed = true; break; } dfopen = true; rewind = true; } if (milter_replbody(response, rlen, newfilter, e, m->mf_name) < 0) replfailed = true; newfilter = false; replbody = true; break; default: /* Invalid response to command */ if (MilterLogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "milter_data(%s): returned bogus response %c", m->mf_name, rcmd); milter_error(m, e); break; } if (rcmd != SMFIR_REPLYCODE && response != NULL) { sm_free(response); /* XXX */ response = NULL; } if (m->mf_state == SMFS_ERROR) break; } if (replbody && !replfailed) { /* flush possible buffered character */ milter_replbody(NULL, 0, !replbody, e, m->mf_name); replbody = false; } if (m->mf_state == SMFS_ERROR) { MILTER_CHECK_ERROR(false, continue); goto finishup; } } finishup: /* leave things in the expected state if we touched it */ if (replfailed) { if (*state == SMFIR_CONTINUE || *state == SMFIR_ACCEPT) { *state = SMFIR_TEMPFAIL; SM_FREE(response); } if (dfopen) { SM_CLOSE_FP(e->e_dfp); e->e_flags &= ~EF_HAS_DF; dfopen = false; } rewind = false; } if ((dfopen && milter_reset_df(e) < 0) || (rewind && bfrewind(e->e_dfp) < 0)) { save_errno = errno; ExitStat = EX_IOERR; /* ** If filter told us to keep message but we had ** an error, we can't really keep it, tempfail it. */ if (*state == SMFIR_CONTINUE || *state == SMFIR_ACCEPT) { *state = SMFIR_TEMPFAIL; SM_FREE(response); } errno = save_errno; syserr("milter_data: %s/%cf%s: read error", qid_printqueue(e->e_qgrp, e->e_qdir), DATAFL_LETTER, e->e_id); } MILTER_CHECK_DONE_MSG(); if (MilterLogLevel > 10 && *state == SMFIR_REJECT) sm_syslog(LOG_INFO, e->e_id, "Milter: reject, data"); return response; } /* ** MILTER_UNKNOWN -- send any unrecognized or unimplemented command ** string to milter filters ** ** Parameters: ** smtpcmd -- the string itself. ** e -- current envelope. ** state -- return state from response. ** ** ** Returns: ** response string (may be NULL) */ char * milter_unknown(smtpcmd, e, state) char *smtpcmd; ENVELOPE *e; char *state; { if (tTd(64, 10)) sm_dprintf("milter_unknown(%s)\n", smtpcmd); return milter_command(SMFIC_UNKNOWN, smtpcmd, strlen(smtpcmd) + 1, SMFIM_NOMACROS, e, state, "unknown", false); } /* ** MILTER_QUIT -- informs the filter(s) we are done and closes connection(s) ** ** Parameters: ** e -- current envelope. ** ** Returns: ** none */ void milter_quit(e) ENVELOPE *e; { int i; if (tTd(64, 10)) sm_dprintf("milter_quit(%s)\n", e->e_id); for (i = 0; InputFilters[i] != NULL; i++) milter_quit_filter(InputFilters[i], e); } /* ** MILTER_ABORT -- informs the filter(s) that we are aborting current message ** ** Parameters: ** e -- current envelope. ** ** Returns: ** none */ void milter_abort(e) ENVELOPE *e; { int i; if (tTd(64, 10)) sm_dprintf("milter_abort\n"); for (i = 0; InputFilters[i] != NULL; i++) { struct milter *m = InputFilters[i]; /* sanity checks */ if (m->mf_sock < 0 || m->mf_state != SMFS_INMSG) continue; milter_abort_filter(m, e); } } #endif /* MILTER */ sendmail-8.18.1/sendmail/newaliases.00000644000372400037240000000224414556365426017005 0ustar xbuildxbuildNEWALIASES(1) NEWALIASES(1) NNAAMMEE newaliases - rebuild the data base for the mail aliases file SSYYNNOOPPSSIISS nneewwaalliiaasseess DDEESSCCRRIIPPTTIIOONN NNeewwaalliiaasseess rebuilds the random access data base for the mail aliases file /etc/mail/aliases. It must be run each time this file is changed in order for the change to take effect. NNeewwaalliiaasseess is identical to ``sendmail -bi''. The nneewwaalliiaasseess utility exits 0 on success, and >0 if an error occurs. Notice: do nnoott use mmaakkeemmaapp to create the aliases data base, because nneewwaalliiaasseess puts a special token into the data base that is required by sseennddmmaaiill.. FFIILLEESS /etc/mail/aliases The mail aliases file SSEEEE AALLSSOO aliases(5), sendmail(8) HHIISSTTOORRYY The nneewwaalliiaasseess command appeared in 4.0BSD. $Date: 2013-11-22 20:51:56 $ NEWALIASES(1) sendmail-8.18.1/sendmail/main.c0000644000372400037240000034036214556365350015663 0ustar xbuildxbuild/* * Copyright (c) 1998-2006, 2008, 2009, 2011 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #define _DEFINE #include #include #include #include #include #if _FFR_8BITENVADDR # include #endif #if _FFR_DMTRIGGER # include #endif #ifndef lint SM_UNUSED(static char copyright[]) = "@(#) Copyright (c) 1998-2013 Proofpoint, Inc. and its suppliers.\n\ All rights reserved.\n\ Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved.\n\ Copyright (c) 1988, 1993\n\ The Regents of the University of California. All rights reserved.\n"; #endif /* ! lint */ SM_RCSID("@(#)$Id: main.c,v 8.988 2013-11-23 02:52:37 gshapiro Exp $") #if NETINET || NETINET6 # include # if DANE # include "sm_resolve.h" # endif #endif /* for getcfname() */ #include #include static SM_DEBUG_T DebugNoPRestart = SM_DEBUG_INITIALIZER("no_persistent_restart", "@(#)$Debug: no_persistent_restart - don't restart, log only $"); static void dump_class __P((STAB *, int)); static void obsolete __P((char **)); static void testmodeline __P((char *, ENVELOPE *)); static char *getextenv __P((const char *)); static void sm_printoptions __P((char **)); static SIGFUNC_DECL intindebug __P((int)); static SIGFUNC_DECL sighup __P((int)); static SIGFUNC_DECL sigpipe __P((int)); static SIGFUNC_DECL sigterm __P((int)); #ifdef SIGUSR1 static SIGFUNC_DECL sigusr1 __P((int)); #endif /* ** SENDMAIL -- Post mail to a set of destinations. ** ** This is the basic mail router. All user mail programs should ** call this routine to actually deliver mail. Sendmail in ** turn calls a bunch of mail servers that do the real work of ** delivering the mail. ** ** Sendmail is driven by settings read in from /etc/mail/sendmail.cf ** (read by readcf.c). ** ** Usage: ** /usr/lib/sendmail [flags] addr ... ** ** See the associated documentation for details. ** ** Authors: ** Eric Allman, UCB/INGRES (until 10/81). ** Britton-Lee, Inc., purveyors of fine ** database computers (11/81 - 10/88). ** International Computer Science Institute ** (11/88 - 9/89). ** UCB/Mammoth Project (10/89 - 7/95). ** InReference, Inc. (8/95 - 1/97). ** Sendmail, Inc. (1/98 - 9/13). ** The support of my employers is gratefully acknowledged. ** Few of them (Britton-Lee in particular) have had ** anything to gain from my involvement in this project. ** ** Gregory Neil Shapiro, ** Worcester Polytechnic Institute (until 3/98). ** Sendmail, Inc. (3/98 - 10/13). ** Proofpoint, Inc. (10/13 - present). ** ** Claus Assmann, ** Sendmail, Inc. (12/98 - 10/13). ** Proofpoint, Inc. (10/13 - present). */ char *FullName; /* sender's full name */ ENVELOPE BlankEnvelope; /* a "blank" envelope */ static ENVELOPE MainEnvelope; /* the envelope around the basic letter */ ADDRESS NullAddress = /* a null address */ { "", "", NULL, "" }; char *CommandLineArgs; /* command line args for pid file */ bool Warn_Q_option = false; /* warn about Q option use */ static int MissingFds = 0; /* bit map of fds missing on startup */ char *Mbdb = "pw"; /* mailbox database defaults to /etc/passwd */ #ifdef NGROUPS_MAX GIDSET_T InitialGidSet[NGROUPS_MAX]; #endif #define MAXCONFIGLEVEL 10 /* highest config version level known */ #if SASL static sasl_callback_t srvcallbacks[] = { { SASL_CB_VERIFYFILE, (sasl_callback_ft)&safesaslfile, NULL }, { SASL_CB_PROXY_POLICY, (sasl_callback_ft)&proxy_policy, NULL }, { SASL_CB_LIST_END, NULL, NULL } }; #endif /* SASL */ unsigned int SubmitMode; int SyslogPrefixLen; /* estimated length of syslog prefix */ #define PIDLEN 6 /* pid length for computing SyslogPrefixLen */ #ifndef SL_FUDGE # define SL_FUDGE 10 /* fudge offset for SyslogPrefixLen */ #endif #define SLDLL 8 /* est. length of default syslog label */ /* Some options are dangerous to allow users to use in non-submit mode */ #define CHECK_AGAINST_OPMODE(cmd) \ { \ if (extraprivs && \ OpMode != MD_DELIVER && OpMode != MD_SMTP && \ OpMode != MD_ARPAFTP && OpMode != MD_CHECKCONFIG && \ OpMode != MD_VERIFY && OpMode != MD_TEST) \ { \ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, \ "WARNING: Ignoring submission mode -%c option (not in submission mode)\n", \ (cmd)); \ break; \ } \ if (extraprivs && queuerun) \ { \ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, \ "WARNING: Ignoring submission mode -%c option with -q\n", \ (cmd)); \ break; \ } \ } int main(argc, argv, envp) int argc; char **argv; char **envp; { char *p; char **av; extern char Version[]; char *ep, *fromaddr; #if USE_EAI char *fromaddr_x; #else # define fromaddr_x fromaddr #endif STAB *st; register int i; int j; int dp; int fill_errno; int qgrp = NOQGRP; /* queue group to process */ bool safecf = true; BITMAP256 *p_flags = NULL; /* daemon flags */ bool warn_C_flag = false; bool auth = true; /* whether to set e_auth_param */ char warn_f_flag = '\0'; bool run_in_foreground = false; /* -bD mode */ bool queuerun = false, debug = false; struct passwd *pw; struct hostent *hp; char *nullserver = NULL; char *authinfo = NULL; char *sysloglabel = NULL; /* label for syslog */ char *conffile = NULL; /* name of .cf file */ char *queuegroup = NULL; /* queue group to process */ char *quarantining = NULL; /* quarantine queue items? */ bool extraprivs; bool forged, negate; bool queuepersistent = false; /* queue runner process runs forever */ bool foregroundqueue = false; /* queue run in foreground */ bool save_val; /* to save some bool var. */ int cftype; /* which cf file to use? */ SM_FILE_T *smdebug; static time_t starttime = 0; /* when was process started */ struct stat traf_st; /* for TrafficLog FIFO check */ char buf[MAXLINE]; char jbuf[MAXHOSTNAMELEN]; /* holds MyHostName */ static char rnamebuf[MAXNAME]; /* holds RealUserName */ /* EAI:ok */ char *emptyenviron[1]; #if STARTTLS bool tls_ok; #endif QUEUE_CHAR *new; ENVELOPE *e; extern int DtableSize; extern int optind; extern int opterr; extern char *optarg; extern char **environ; #if SASL extern void sm_sasl_init __P((void)); #endif #if USE_ENVIRON envp = environ; #endif /* turn off profiling */ SM_PROF(0); /* install default exception handler */ sm_exc_newthread(fatal_error); /* set the default in/out channel so errors reported to screen */ InChannel = smioin; OutChannel = smioout; /* ** Check to see if we reentered. ** This would normally happen if e_putheader or e_putbody ** were NULL when invoked. */ if (starttime != 0) { syserr("main: reentered!"); abort(); } starttime = curtime(); /* avoid null pointer dereferences */ TermEscape.te_rv_on = TermEscape.te_under_on = TermEscape.te_normal = ""; RealUid = getuid(); RealGid = getgid(); /* Check if sendmail is running with extra privs */ extraprivs = (RealUid != 0 && (geteuid() != getuid() || getegid() != getgid())); CurrentPid = getpid(); /* get whatever .cf file is right for the opmode */ cftype = SM_GET_RIGHT_CF; /* in 4.4BSD, the table can be huge; impose a reasonable limit */ DtableSize = getdtsize(); if (DtableSize > 256) DtableSize = 256; /* ** Be sure we have enough file descriptors. ** But also be sure that 0, 1, & 2 are open. */ /* reset errno and fill_errno; the latter is used way down below */ errno = fill_errno = 0; fill_fd(STDIN_FILENO, NULL); if (errno != 0) fill_errno = errno; fill_fd(STDOUT_FILENO, NULL); if (errno != 0) fill_errno = errno; fill_fd(STDERR_FILENO, NULL); if (errno != 0) fill_errno = errno; sm_closefrom(STDERR_FILENO + 1, DtableSize); errno = 0; smdebug = NULL; #if LOG # ifndef SM_LOG_STR # define SM_LOG_STR "sendmail" # endif # ifdef LOG_MAIL openlog(SM_LOG_STR, LOG_PID, LOG_MAIL); # else openlog(SM_LOG_STR, LOG_PID); # endif #endif /* LOG */ /* ** Seed the random number generator. ** Used for queue file names, picking a queue directory, and ** MX randomization. */ seed_random(); /* do machine-dependent initializations */ init_md(argc, argv); SyslogPrefixLen = PIDLEN + (MAXQFNAME - 3) + SL_FUDGE + SLDLL; /* reset status from syserr() calls for missing file descriptors */ Errors = 0; ExitStat = EX_OK; SubmitMode = SUBMIT_UNKNOWN; #if _FFR_LOCAL_DAEMON LocalDaemon = false; # if NETINET6 V6LoopbackAddrFound = false; # endif #endif checkfd012("after openlog"); tTsetup(tTdvect, sizeof(tTdvect), "0-99.1,*_trace_*.1"); #ifdef NGROUPS_MAX /* save initial group set for future checks */ i = getgroups(NGROUPS_MAX, InitialGidSet); if (i <= 0) { InitialGidSet[0] = (GID_T) -1; i = 0; } while (i < NGROUPS_MAX) InitialGidSet[i++] = InitialGidSet[0]; #endif /* NGROUPS_MAX */ /* drop group id privileges (RunAsUser not yet set) */ dp = drop_privileges(false); setstat(dp); #ifdef SIGUSR1 /* Only allow root (or non-set-*-ID binaries) to use SIGUSR1 */ if (!extraprivs) { /* arrange to dump state on user-1 signal */ (void) sm_signal(SIGUSR1, sigusr1); } else { /* ignore user-1 signal */ (void) sm_signal(SIGUSR1, SIG_IGN); } #endif /* SIGUSR1 */ /* initialize for setproctitle */ initsetproctitle(argc, argv, envp); /* Handle any non-getoptable constructions. */ obsolete(argv); /* ** Do a quick prescan of the argument list. */ /* find initial opMode */ OpMode = MD_DELIVER; av = argv; p = strrchr(*av, '/'); if (p++ == NULL) p = *av; if (strcmp(p, "newaliases") == 0) OpMode = MD_INITALIAS; else if (strcmp(p, "mailq") == 0) OpMode = MD_PRINT; else if (strcmp(p, "smtpd") == 0) OpMode = MD_DAEMON; else if (strcmp(p, "hoststat") == 0) OpMode = MD_HOSTSTAT; else if (strcmp(p, "purgestat") == 0) OpMode = MD_PURGESTAT; #if defined(__osf__) || defined(_AIX3) # define OPTIONS "A:B:b:C:cD:d:e:F:f:Gh:IiL:M:mN:nO:o:p:Q:q:R:r:sTtUV:vX:x" #endif #if defined(sony_news) # define OPTIONS "A:B:b:C:cD:d:E:e:F:f:Gh:IiJ:L:M:mN:nO:o:p:Q:q:R:r:sTtUV:vX:" #endif #ifndef OPTIONS # define OPTIONS "A:B:b:C:cD:d:e:F:f:Gh:IiL:M:mN:nO:o:p:Q:q:R:r:sTtUV:vX:" #endif /* Set to 0 to allow -b; need to check optarg before using it! */ opterr = 0; while ((j = getopt(argc, argv, OPTIONS)) != -1) { switch (j) { case 'b': /* operations mode */ j = (optarg == NULL) ? ' ' : *optarg; switch (j) { case MD_DAEMON: case MD_FGDAEMON: case MD_SMTP: case MD_INITALIAS: case MD_DELIVER: case MD_VERIFY: case MD_TEST: case MD_PRINT: case MD_PRINTNQE: case MD_HOSTSTAT: case MD_PURGESTAT: case MD_ARPAFTP: case MD_CHECKCONFIG: OpMode = j; break; case MD_SHOWCONFIG: showcfopts(); return EX_OK; #if _FFR_LOCAL_DAEMON case MD_LOCAL: OpMode = MD_DAEMON; LocalDaemon = true; break; #endif /* _FFR_LOCAL_DAEMON */ case MD_FREEZE: (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Frozen configurations unsupported\n"); return EX_USAGE; default: (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Invalid operation mode %c\n", j); return EX_USAGE; } break; case 'D': if (debug) { errno = 0; syserr("-D file must be before -d"); ExitStat = EX_USAGE; break; } dp = drop_privileges(true); setstat(dp); smdebug = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, optarg, SM_IO_APPEND, NULL); if (smdebug == NULL) { syserr("cannot open %s", optarg); ExitStat = EX_CANTCREAT; break; } sm_debug_setfile(smdebug); break; case 'd': debug = true; tTflag(optarg); (void) sm_io_setvbuf(sm_debug_file(), SM_TIME_DEFAULT, (char *) NULL, SM_IO_NBF, SM_IO_BUFSIZ); break; case 'G': /* relay (gateway) submission */ SubmitMode = SUBMIT_MTA; break; case 'L': if (optarg == NULL) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "option requires an argument -- '%c'", (char) j); return EX_USAGE; } j = SM_MIN(strlen(optarg), 32) + 1; sysloglabel = sm_malloc_tagged_x(j, "sysloglabel", 0, 0); (void) sm_strlcpy(sysloglabel, optarg, j); SyslogPrefixLen = PIDLEN + (MAXQFNAME - 3) + SL_FUDGE + j; break; case 'Q': case 'q': /* just check if it is there */ queuerun = true; break; } } opterr = 1; /* Don't leak queue information via debug flags */ if (extraprivs && queuerun && debug) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "WARNING: Can not use -d with -q. Disabling debugging.\n"); sm_debug_close(); sm_debug_setfile(NULL); (void) memset(tTdvect, '\0', sizeof(tTdvect)); } #if LOG if (sysloglabel != NULL) { /* Sanitize the string */ for (p = sysloglabel; *p != '\0'; p++) { if (!isascii(*p) || !isprint(*p) || *p == '%') *p = '*'; } closelog(); # ifdef LOG_MAIL openlog(sysloglabel, LOG_PID, LOG_MAIL); # else openlog(sysloglabel, LOG_PID); # endif } #endif /* LOG */ /* set up the blank envelope */ BlankEnvelope.e_puthdr = putheader; BlankEnvelope.e_putbody = putbody; BlankEnvelope.e_xfp = NULL; STRUCTCOPY(NullAddress, BlankEnvelope.e_from); CurEnv = &BlankEnvelope; STRUCTCOPY(NullAddress, MainEnvelope.e_from); /* ** Set default values for variables. ** These cannot be in initialized data space. */ setdefaults(&BlankEnvelope); initmacros(&BlankEnvelope); /* reset macro */ set_op_mode(OpMode); if (OpMode == MD_DAEMON) DaemonPid = CurrentPid; /* needed for finis() to work */ pw = sm_getpwuid(RealUid); if (pw != NULL) (void) sm_strlcpy(rnamebuf, pw->pw_name, sizeof(rnamebuf)); else (void) sm_snprintf(rnamebuf, sizeof(rnamebuf), "Unknown UID %d", (int) RealUid); RealUserName = rnamebuf; if (tTd(0, 101)) { sm_dprintf("Version %s\n", Version); finis(false, true, EX_OK); /* NOTREACHED */ } /* ** if running non-set-user-ID binary as non-root, pretend ** we are the RunAsUid */ if (RealUid != 0 && geteuid() == RealUid) { if (tTd(47, 1)) sm_dprintf("Non-set-user-ID binary: RunAsUid = RealUid = %d\n", (int) RealUid); RunAsUid = RealUid; } else if (geteuid() != 0) RunAsUid = geteuid(); EffGid = getegid(); if (RealUid != 0 && EffGid == RealGid) RunAsGid = RealGid; if (tTd(47, 5)) { sm_dprintf("main: e/ruid = %d/%d e/rgid = %d/%d\n", (int) geteuid(), (int) getuid(), (int) getegid(), (int) getgid()); sm_dprintf("main: RunAsUser = %d:%d\n", (int) RunAsUid, (int) RunAsGid); } /* save command line arguments */ j = 0; for (av = argv; *av != NULL; ) j += strlen(*av++) + 1; SaveArgv = (char **) sm_malloc_tagged_x(sizeof(char *) * (argc + 1), "argv", 0, 0); CommandLineArgs = sm_malloc_tagged_x(j, "cliargs", 0, 0); p = CommandLineArgs; for (av = argv, i = 0; *av != NULL; ) { int h; SaveArgv[i++] = newstr(*av); if (av != argv) *p++ = ' '; (void) sm_strlcpy(p, *av++, j); h = strlen(p); p += h; j -= h + 1; } SaveArgv[i] = NULL; if (tTd(0, 1)) { extern char *CompileOptions[]; sm_dprintf("Version %s\n Compiled with:", Version); sm_printoptions(CompileOptions); } if (tTd(0, 10)) { extern char *OsCompileOptions[]; sm_dprintf(" OS Defines:"); sm_printoptions(OsCompileOptions); #ifdef _PATH_UNIX sm_dprintf("Kernel symbols:\t%s\n", _PATH_UNIX); #endif sm_dprintf(" Conf file:\t%s (default for MSP)\n", getcfname(OpMode, SubmitMode, SM_GET_SUBMIT_CF, conffile)); sm_dprintf(" Conf file:\t%s (default for MTA)\n", getcfname(OpMode, SubmitMode, SM_GET_SENDMAIL_CF, conffile)); sm_dprintf(" Pid file:\t%s (default)\n", PidFile); } if (tTd(0, 12)) { extern char *SmCompileOptions[]; sm_dprintf(" libsm Defines:"); sm_printoptions(SmCompileOptions); } if (tTd(0, 13)) { extern char *FFRCompileOptions[]; sm_dprintf(" FFR Defines:"); sm_printoptions(FFRCompileOptions); } #if STARTTLS if (tTd(0, 14)) { /* exit(EX_CONFIG) if different? */ sm_dprintf(" OpenSSL: compiled 0x%08x\n", (uint) OPENSSL_VERSION_NUMBER); sm_dprintf(" OpenSSL: linked 0x%08x\n", (uint) TLS_version_num()); } # if defined(LIBRESSL_VERSION_NUMBER) if (tTd(0, 15)) sm_dprintf(" LibreSSL: compiled 0x%08x\n", (uint) LIBRESSL_VERSION_NUMBER); # endif #endif /* STARTTLS */ /* clear sendmail's environment */ ExternalEnviron = environ; emptyenviron[0] = NULL; environ = emptyenviron; /* ** restore any original TZ setting until TimeZoneSpec has been ** determined - or early log messages may get bogus time stamps */ if ((p = getextenv("TZ")) != NULL) { char *tz; int tzlen; /* XXX check for reasonable length? */ tzlen = strlen(p) + 4; tz = xalloc(tzlen); (void) sm_strlcpyn(tz, tzlen, 2, "TZ=", p); /* XXX check return code? */ (void) putenv(tz); } /* prime the child environment */ sm_setuserenv("AGENT", "sendmail"); (void) sm_signal(SIGPIPE, SIG_IGN); OldUmask = umask(022); FullName = getextenv("NAME"); if (FullName != NULL) FullName = newstr(FullName); /* ** Initialize name server if it is going to be used. */ #if NAMED_BIND if (!bitset(RES_INIT, _res.options)) (void) res_init(); if (tTd(8, 8)) _res.options |= RES_DEBUG; else _res.options &= ~RES_DEBUG; # ifdef RES_NOALIASES _res.options |= RES_NOALIASES; # endif TimeOuts.res_retry[RES_TO_DEFAULT] = _res.retry; TimeOuts.res_retry[RES_TO_FIRST] = _res.retry; TimeOuts.res_retry[RES_TO_NORMAL] = _res.retry; TimeOuts.res_retrans[RES_TO_DEFAULT] = _res.retrans; TimeOuts.res_retrans[RES_TO_FIRST] = _res.retrans; TimeOuts.res_retrans[RES_TO_NORMAL] = _res.retrans; #endif /* NAMED_BIND */ errno = 0; fromaddr = NULL; /* initialize some macros, etc. */ init_vendor_macros(&BlankEnvelope); /* version */ macdefine(&BlankEnvelope.e_macro, A_PERM, 'v', Version); /* hostname */ hp = myhostname(jbuf, sizeof(jbuf)); if (jbuf[0] != '\0') { struct utsname utsname; if (tTd(0, 4)) sm_dprintf("Canonical name: %s\n", jbuf); #if USE_EAI if (!addr_is_ascii(jbuf)) { usrerr("hostname %s must be ASCII", jbuf); finis(false, true, EX_CONFIG); /* NOTREACHED */ } #endif macdefine(&BlankEnvelope.e_macro, A_TEMP, 'w', jbuf); macdefine(&BlankEnvelope.e_macro, A_TEMP, 'j', jbuf); setclass('w', jbuf); p = strchr(jbuf, '.'); if (p != NULL && p[1] != '\0') macdefine(&BlankEnvelope.e_macro, A_TEMP, 'm', &p[1]); if (uname(&utsname) >= 0) p = utsname.nodename; else { if (tTd(0, 22)) sm_dprintf("uname failed (%s)\n", sm_errstring(errno)); p = jbuf; p = makelower_a(&p, NULL); } if (tTd(0, 4)) sm_dprintf(" UUCP nodename: %s\n", p); macdefine(&BlankEnvelope.e_macro, A_TEMP, 'k', p); setclass('k', p); setclass('w', p); if (p != utsname.nodename && p != jbuf) SM_FREE(p); } if (hp != NULL) { for (av = hp->h_aliases; av != NULL && *av != NULL; av++) { if (tTd(0, 4)) sm_dprintf("\ta.k.a.: %s\n", *av); setclass('w', *av); } #if NETINET || NETINET6 for (i = 0; i >= 0 && hp->h_addr_list[i] != NULL; i++) { # if NETINET6 char *addr; char buf6[INET6_ADDRSTRLEN]; struct in6_addr ia6; # endif /* NETINET6 */ # if NETINET struct in_addr ia; # endif char ipbuf[103]; ipbuf[0] = '\0'; switch (hp->h_addrtype) { # if NETINET case AF_INET: if (hp->h_length != INADDRSZ) break; memmove(&ia, hp->h_addr_list[i], INADDRSZ); (void) sm_snprintf(ipbuf, sizeof(ipbuf), "[%.100s]", inet_ntoa(ia)); break; # endif /* NETINET */ # if NETINET6 case AF_INET6: if (hp->h_length != IN6ADDRSZ) break; memmove(&ia6, hp->h_addr_list[i], IN6ADDRSZ); addr = anynet_ntop(&ia6, buf6, sizeof(buf6)); if (addr != NULL) (void) sm_snprintf(ipbuf, sizeof(ipbuf), "[%.100s]", addr); break; # endif /* NETINET6 */ } if (ipbuf[0] == '\0') break; if (tTd(0, 4)) sm_dprintf("\ta.k.a.: %s\n", ipbuf); setclass('w', ipbuf); } #endif /* NETINET || NETINET6 */ #if NETINET6 freehostent(hp); hp = NULL; #endif } /* current time */ macdefine(&BlankEnvelope.e_macro, A_TEMP, 'b', arpadate((char *) NULL)); /* current load average */ sm_getla(); QueueLimitRecipient = (QUEUE_CHAR *) NULL; QueueLimitSender = (QUEUE_CHAR *) NULL; QueueLimitId = (QUEUE_CHAR *) NULL; QueueLimitQuarantine = (QUEUE_CHAR *) NULL; /* ** Crack argv. */ optind = 1; while ((j = getopt(argc, argv, OPTIONS)) != -1) { switch (j) { case 'b': /* operations mode */ /* already done */ break; case 'A': /* use Alternate sendmail/submit.cf */ cftype = optarg[0] == 'c' ? SM_GET_SUBMIT_CF : SM_GET_SENDMAIL_CF; break; case 'B': /* body type */ CHECK_AGAINST_OPMODE(j); BlankEnvelope.e_bodytype = newstr(optarg); break; case 'C': /* select configuration file (already done) */ if (RealUid != 0) warn_C_flag = true; conffile = newstr(optarg); dp = drop_privileges(true); setstat(dp); safecf = false; break; case 'D': case 'd': /* debugging */ /* already done */ break; case 'f': /* fromaddr address */ case 'r': /* obsolete -f flag */ CHECK_AGAINST_OPMODE(j); if (fromaddr != NULL) { usrerr("More than one \"from\" person"); ExitStat = EX_USAGE; break; } if (optarg[0] == '\0') fromaddr = newstr("<>"); else fromaddr = newstr(denlstring(optarg, true, true)); if (strcmp(RealUserName, fromaddr) != 0) warn_f_flag = j; break; case 'F': /* set full name */ CHECK_AGAINST_OPMODE(j); FullName = newstr(optarg); break; case 'G': /* relay (gateway) submission */ /* already set */ CHECK_AGAINST_OPMODE(j); break; case 'h': /* hop count */ CHECK_AGAINST_OPMODE(j); BlankEnvelope.e_hopcount = (short) strtol(optarg, &ep, 10); (void) sm_snprintf(buf, sizeof(buf), "%d", BlankEnvelope.e_hopcount); macdefine(&BlankEnvelope.e_macro, A_TEMP, 'c', buf); if (*ep) { usrerr("Bad hop count (%s)", optarg); ExitStat = EX_USAGE; } break; case 'L': /* program label */ /* already set */ break; case 'n': /* don't alias */ CHECK_AGAINST_OPMODE(j); NoAlias = true; break; case 'N': /* delivery status notifications */ CHECK_AGAINST_OPMODE(j); DefaultNotify |= QHASNOTIFY; macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{dsn_notify}"), optarg); if (SM_STRCASEEQ(optarg, "never")) break; for (p = optarg; p != NULL; optarg = p) { p = strchr(p, ','); if (p != NULL) *p++ = '\0'; if (SM_STRCASEEQ(optarg, "success")) DefaultNotify |= QPINGONSUCCESS; else if (SM_STRCASEEQ(optarg, "failure")) DefaultNotify |= QPINGONFAILURE; else if (SM_STRCASEEQ(optarg, "delay")) DefaultNotify |= QPINGONDELAY; else { usrerr("Invalid -N argument"); ExitStat = EX_USAGE; } } break; case 'o': /* set option */ setoption(*optarg, optarg + 1, false, true, &BlankEnvelope); break; case 'O': /* set option (long form) */ setoption(' ', optarg, false, true, &BlankEnvelope); break; case 'p': /* set protocol */ CHECK_AGAINST_OPMODE(j); p = strchr(optarg, ':'); if (p != NULL) { *p++ = '\0'; if (*p != '\0') { i = strlen(p) + 1; ep = sm_malloc_x(i); cleanstrcpy(ep, p, i); macdefine(&BlankEnvelope.e_macro, A_HEAP, 's', ep); } } if (*optarg != '\0') { i = strlen(optarg) + 1; ep = sm_malloc_x(i); cleanstrcpy(ep, optarg, i); macdefine(&BlankEnvelope.e_macro, A_HEAP, 'r', ep); } break; case 'Q': /* change quarantining on queued items */ /* sanity check */ if (OpMode != MD_DELIVER && OpMode != MD_QUEUERUN) { usrerr("Can not use -Q with -b%c", OpMode); ExitStat = EX_USAGE; break; } if (OpMode == MD_DELIVER) set_op_mode(MD_QUEUERUN); FullName = NULL; quarantining = newstr(optarg); break; case 'q': /* run queue files at intervals */ /* sanity check */ if (OpMode != MD_DELIVER && OpMode != MD_DAEMON && OpMode != MD_FGDAEMON && OpMode != MD_PRINT && OpMode != MD_PRINTNQE && OpMode != MD_QUEUERUN) { usrerr("Can not use -q with -b%c", OpMode); ExitStat = EX_USAGE; break; } /* don't override -bd, -bD or -bp */ if (OpMode == MD_DELIVER) set_op_mode(MD_QUEUERUN); FullName = NULL; negate = optarg[0] == '!'; if (negate) { /* negate meaning of pattern match */ optarg++; /* skip '!' for next switch */ } switch (optarg[0]) { case 'G': /* Limit by queue group name */ if (negate) { usrerr("Can not use -q!G"); ExitStat = EX_USAGE; break; } if (queuegroup != NULL) { usrerr("Can not use multiple -qG options"); ExitStat = EX_USAGE; break; } queuegroup = newstr(&optarg[1]); break; case 'I': /* Limit by ID */ new = (QUEUE_CHAR *) xalloc(sizeof(*new)); new->queue_match = newstr(&optarg[1]); new->queue_negate = negate; new->queue_next = QueueLimitId; QueueLimitId = new; break; case 'R': /* Limit by recipient */ new = (QUEUE_CHAR *) xalloc(sizeof(*new)); new->queue_match = newstr(&optarg[1]); new->queue_negate = negate; new->queue_next = QueueLimitRecipient; QueueLimitRecipient = new; break; case 'S': /* Limit by sender */ new = (QUEUE_CHAR *) xalloc(sizeof(*new)); new->queue_match = newstr(&optarg[1]); new->queue_negate = negate; new->queue_next = QueueLimitSender; QueueLimitSender = new; break; case 'f': /* foreground queue run */ foregroundqueue = true; break; case 'Q': /* Limit by quarantine message */ if (optarg[1] != '\0') { new = (QUEUE_CHAR *) xalloc(sizeof(*new)); new->queue_match = newstr(&optarg[1]); new->queue_negate = negate; new->queue_next = QueueLimitQuarantine; QueueLimitQuarantine = new; } QueueMode = QM_QUARANTINE; break; case 'L': /* act on lost items */ QueueMode = QM_LOST; break; case 'p': /* Persistent queue */ queuepersistent = true; if (QueueIntvl == 0) QueueIntvl = 1; if (optarg[1] == '\0') break; ++optarg; /* FALLTHROUGH */ default: i = Errors; QueueIntvl = convtime(optarg, 'm'); if (QueueIntvl < 0) { usrerr("Invalid -q value"); ExitStat = EX_USAGE; } /* check for bad conversion */ if (i < Errors) ExitStat = EX_USAGE; break; } break; case 'R': /* DSN RET: what to return */ CHECK_AGAINST_OPMODE(j); if (bitset(EF_RET_PARAM, BlankEnvelope.e_flags)) { usrerr("Duplicate -R flag"); ExitStat = EX_USAGE; break; } BlankEnvelope.e_flags |= EF_RET_PARAM; if (SM_STRCASEEQ(optarg, "hdrs")) BlankEnvelope.e_flags |= EF_NO_BODY_RETN; else if (!SM_STRCASEEQ(optarg, "full")) { usrerr("Invalid -R value"); ExitStat = EX_USAGE; } macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{dsn_ret}"), optarg); break; case 't': /* read recipients from message */ CHECK_AGAINST_OPMODE(j); GrabTo = true; break; #if USE_EAI case 'U': CHECK_AGAINST_OPMODE(j); BlankEnvelope.e_smtputf8 = true; break; #endif case 'V': /* DSN ENVID: set "original" envelope id */ CHECK_AGAINST_OPMODE(j); if (!xtextok(optarg)) { usrerr("Invalid syntax in -V flag"); ExitStat = EX_USAGE; } else { BlankEnvelope.e_envid = newstr(optarg); macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{dsn_envid}"), optarg); } break; case 'X': /* traffic log file */ dp = drop_privileges(true); setstat(dp); if (stat(optarg, &traf_st) == 0 && S_ISFIFO(traf_st.st_mode)) TrafficLogFile = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, optarg, SM_IO_WRONLY, NULL); else TrafficLogFile = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, optarg, SM_IO_APPEND, NULL); if (TrafficLogFile == NULL) { syserr("cannot open %s", optarg); ExitStat = EX_CANTCREAT; break; } (void) sm_io_setvbuf(TrafficLogFile, SM_TIME_DEFAULT, NULL, SM_IO_LBF, 0); break; /* compatibility flags */ case 'c': /* connect to non-local mailers */ case 'i': /* don't let dot stop me */ case 'm': /* send to me too */ case 'T': /* set timeout interval */ case 'v': /* give blow-by-blow description */ setoption(j, "T", false, true, &BlankEnvelope); break; case 'e': /* error message disposition */ case 'M': /* define macro */ setoption(j, optarg, false, true, &BlankEnvelope); break; case 's': /* save From lines in headers */ setoption('f', "T", false, true, &BlankEnvelope); break; #ifdef DBM case 'I': /* initialize alias DBM file */ set_op_mode(MD_INITALIAS); break; #endif /* DBM */ #if defined(__osf__) || defined(_AIX3) case 'x': /* random flag that OSF/1 & AIX mailx passes */ break; #endif #if defined(sony_news) case 'E': case 'J': /* ignore flags for Japanese code conversion implemented on Sony NEWS */ break; #endif /* defined(sony_news) */ default: finis(true, true, EX_USAGE); /* NOTREACHED */ break; } } /* if we've had errors so far, exit now */ if ((ExitStat != EX_OK && OpMode != MD_TEST && OpMode != MD_CHECKCONFIG) || ExitStat == EX_OSERR) { finis(false, true, ExitStat); /* NOTREACHED */ } if (bitset(SUBMIT_MTA, SubmitMode)) { /* If set daemon_flags on command line, don't reset it */ if (macvalue(macid("{daemon_flags}"), &BlankEnvelope) == NULL) macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_flags}"), "CC f"); } else if (OpMode == MD_DELIVER || OpMode == MD_SMTP) { SubmitMode = SUBMIT_MSA; /* If set daemon_flags on command line, don't reset it */ if (macvalue(macid("{daemon_flags}"), &BlankEnvelope) == NULL) macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_flags}"), "c u"); } /* ** Do basic initialization. ** Read system control file. ** Extract special fields for local use. */ checkfd012("before readcf"); vendor_pre_defaults(&BlankEnvelope); readcf(getcfname(OpMode, SubmitMode, cftype, conffile), safecf, &BlankEnvelope); #if !defined(_USE_SUN_NSSWITCH_) && !defined(_USE_DEC_SVC_CONF_) ConfigFileRead = true; #endif vendor_post_defaults(&BlankEnvelope); /* now we can complain about missing fds */ if (MissingFds != 0 && LogLevel > 8) { char mbuf[MAXLINE]; mbuf[0] = '\0'; if (bitset(1 << STDIN_FILENO, MissingFds)) (void) sm_strlcat(mbuf, ", stdin", sizeof(mbuf)); if (bitset(1 << STDOUT_FILENO, MissingFds)) (void) sm_strlcat(mbuf, ", stdout", sizeof(mbuf)); if (bitset(1 << STDERR_FILENO, MissingFds)) (void) sm_strlcat(mbuf, ", stderr", sizeof(mbuf)); /* Notice: fill_errno is from high above: fill_fd() */ sm_syslog(LOG_WARNING, NOQID, "File descriptors missing on startup: %s; %s", &mbuf[2], sm_errstring(fill_errno)); } /* Remove the ability for a normal user to send signals */ if (RealUid != 0 && RealUid != geteuid()) { uid_t new_uid = geteuid(); #if HASSETREUID /* ** Since we can differentiate between uid and euid, ** make the uid a different user so the real user ** can't send signals. However, it doesn't need to be ** root (euid has root). */ if (new_uid == 0) new_uid = DefUid; if (tTd(47, 5)) sm_dprintf("Changing real uid to %d\n", (int) new_uid); if (setreuid(new_uid, geteuid()) < 0) { syserr("main: setreuid(%d, %d) failed", (int) new_uid, (int) geteuid()); finis(false, true, EX_OSERR); /* NOTREACHED */ } if (tTd(47, 10)) sm_dprintf("Now running as e/ruid %d:%d\n", (int) geteuid(), (int) getuid()); #else /* HASSETREUID */ /* ** Have to change both effective and real so need to ** change them both to effective to keep privs. */ if (tTd(47, 5)) sm_dprintf("Changing uid to %d\n", (int) new_uid); if (setuid(new_uid) < 0) { syserr("main: setuid(%d) failed", (int) new_uid); finis(false, true, EX_OSERR); /* NOTREACHED */ } if (tTd(47, 10)) sm_dprintf("Now running as e/ruid %d:%d\n", (int) geteuid(), (int) getuid()); #endif /* HASSETREUID */ } #if NAMED_BIND if (FallbackMX != NULL) (void) getfallbackmxrr(FallbackMX); #endif if (SuperSafe == SAFE_INTERACTIVE && !SM_IS_INTERACTIVE(CurEnv->e_sendmode)) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "WARNING: SuperSafe=interactive should only be used with\n DeliveryMode=interactive\n"); } if (UseMSP && (OpMode == MD_DAEMON || OpMode == MD_FGDAEMON)) { usrerr("Mail submission program cannot be used as daemon"); finis(false, true, EX_USAGE); } if (OpMode == MD_DELIVER || OpMode == MD_SMTP || OpMode == MD_QUEUERUN || OpMode == MD_ARPAFTP || OpMode == MD_DAEMON || OpMode == MD_FGDAEMON) makeworkgroups(); #if USE_EAI if (!SMTP_UTF8 && MainEnvelope.e_smtputf8) { usrerr("-U requires SMTPUTF8"); finis(false, true, EX_USAGE); } #endif /* set up the basic signal handlers */ if (sm_signal(SIGINT, SIG_IGN) != SIG_IGN) (void) sm_signal(SIGINT, intsig); (void) sm_signal(SIGTERM, intsig); /* Enforce use of local time (null string overrides this) */ if (TimeZoneSpec == NULL) unsetenv("TZ"); else if (TimeZoneSpec[0] != '\0') sm_setuserenv("TZ", TimeZoneSpec); else sm_setuserenv("TZ", NULL); tzset(); /* initialize mailbox database */ i = sm_mbdb_initialize(Mbdb); if (i != EX_OK) { usrerr("Can't initialize mailbox database \"%s\": %s", Mbdb, sm_strexit(i)); ExitStat = i; } /* avoid denial-of-service attacks */ resetlimits(); if (OpMode == MD_TEST) { /* can't be done after readcf if RunAs* is used */ dp = drop_privileges(true); if (dp != EX_OK) { finis(false, true, dp); /* NOTREACHED */ } } else if (OpMode != MD_DAEMON && OpMode != MD_FGDAEMON) { /* drop privileges -- daemon mode done after socket/bind */ dp = drop_privileges(false); setstat(dp); if (dp == EX_OK && UseMSP && (geteuid() == 0 || getuid() == 0)) { usrerr("Mail submission program must have RunAsUser set to non root user"); finis(false, true, EX_CONFIG); /* NOTREACHED */ } } #if NAMED_BIND _res.retry = TimeOuts.res_retry[RES_TO_DEFAULT]; _res.retrans = TimeOuts.res_retrans[RES_TO_DEFAULT]; #endif /* ** Find our real host name for future logging. */ authinfo = getauthinfo(STDIN_FILENO, &forged); macdefine(&BlankEnvelope.e_macro, A_TEMP, '_', authinfo); /* suppress error printing if errors mailed back or whatever */ if (BlankEnvelope.e_errormode != EM_PRINT) HoldErrs = true; /* set up the $=m class now, after .cf has a chance to redefine $m */ expand("\201m", jbuf, sizeof(jbuf), &BlankEnvelope); if (jbuf[0] != '\0') setclass('m', jbuf); /* probe interfaces and locate any additional names */ if (DontProbeInterfaces != DPI_PROBENONE) load_if_names(); if (tTd(0, 10)) { char pidpath[MAXPATHLEN]; /* Now we know which .cf file we use */ sm_dprintf(" Conf file:\t%s (selected)\n", getcfname(OpMode, SubmitMode, cftype, conffile)); expand(PidFile, pidpath, sizeof(pidpath), &BlankEnvelope); sm_dprintf(" Pid file:\t%s (selected)\n", pidpath); } if (tTd(0, 1)) { sm_dprintf("\n============ SYSTEM IDENTITY (after readcf) ============"); sm_dprintf("\n (short domain name) $w = "); xputs(sm_debug_file(), macvalue('w', &BlankEnvelope)); sm_dprintf("\n (canonical domain name) $j = "); xputs(sm_debug_file(), macvalue('j', &BlankEnvelope)); sm_dprintf("\n (subdomain name) $m = "); xputs(sm_debug_file(), macvalue('m', &BlankEnvelope)); sm_dprintf("\n (node name) $k = "); xputs(sm_debug_file(), macvalue('k', &BlankEnvelope)); sm_dprintf("\n========================================================\n\n"); } /* ** Do more command line checking -- these are things that ** have to modify the results of reading the config file. */ /* process authorization warnings from command line */ if (warn_C_flag) auth_warning(&BlankEnvelope, "Processed by %s with -C %s", RealUserName, conffile); if (Warn_Q_option && !wordinclass(RealUserName, 't')) auth_warning(&BlankEnvelope, "Processed from queue %s", QueueDir); if (sysloglabel != NULL && !wordinclass(RealUserName, 't') && RealUid != 0 && RealUid != TrustedUid && LogLevel > 1) sm_syslog(LOG_WARNING, NOQID, "user %d changed syslog label", (int) RealUid); /* check body type for legality */ i = check_bodytype(BlankEnvelope.e_bodytype); if (i == BODYTYPE_ILLEGAL) { usrerr("Illegal body type %s", BlankEnvelope.e_bodytype); BlankEnvelope.e_bodytype = NULL; } else if (BODYTYPE_7BIT == i) BlankEnvelope.e_flags |= EF_7BITBODY; /* tweak default DSN notifications */ if (DefaultNotify == 0) DefaultNotify = QPINGONFAILURE|QPINGONDELAY; /* check for sane configuration level */ if (ConfigLevel > MAXCONFIGLEVEL) { syserr("Warning: .cf version level (%d) exceeds sendmail version %s functionality (%d)", ConfigLevel, Version, MAXCONFIGLEVEL); } /* need MCI cache to have persistence */ if (HostStatDir != NULL && MaxMciCache == 0) { HostStatDir = NULL; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: HostStatusDirectory disabled with ConnectionCacheSize = 0\n"); } /* need HostStatusDir in order to have SingleThreadDelivery */ if (SingleThreadDelivery && HostStatDir == NULL) { SingleThreadDelivery = false; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: HostStatusDirectory required for SingleThreadDelivery\n"); } #if _FFR_MEMSTAT j = sm_memstat_open(); if (j < 0 && (RefuseLowMem > 0 || QueueLowMem > 0) && LogLevel > 4) { sm_syslog(LOG_WARNING, NOQID, "cannot get memory statistics, settings ignored, error=%d" , j); } #endif /* _FFR_MEMSTAT */ /* check for permissions */ if (RealUid != 0 && RealUid != TrustedUid) { char *action = NULL; switch (OpMode) { case MD_QUEUERUN: if (quarantining != NULL) action = "quarantine jobs"; else { /* Normal users can do a single queue run */ if (QueueIntvl == 0) break; } /* but not persistent queue runners */ if (action == NULL) action = "start a queue runner daemon"; /* FALLTHROUGH */ case MD_PURGESTAT: if (action == NULL) action = "purge host status"; /* FALLTHROUGH */ case MD_DAEMON: case MD_FGDAEMON: if (action == NULL) action = "run daemon"; if (tTd(65, 1)) sm_dprintf("Deny user %d attempt to %s\n", (int) RealUid, action); if (LogLevel > 1) sm_syslog(LOG_ALERT, NOQID, "user %d attempted to %s", (int) RealUid, action); HoldErrs = false; usrerr("Permission denied (real uid not trusted)"); finis(false, true, EX_USAGE); /* NOTREACHED */ break; case MD_VERIFY: if (bitset(PRIV_RESTRICTEXPAND, PrivacyFlags)) { /* ** If -bv and RestrictExpand, ** drop privs to prevent normal ** users from reading private ** aliases/forwards/:include:s */ if (tTd(65, 1)) sm_dprintf("Drop privs for user %d attempt to expand (RestrictExpand)\n", (int) RealUid); dp = drop_privileges(true); /* Fake address safety */ if (tTd(65, 1)) sm_dprintf("Faking DontBlameSendmail=NonRootSafeAddr\n"); setbitn(DBS_NONROOTSAFEADDR, DontBlameSendmail); if (dp != EX_OK) { if (tTd(65, 1)) sm_dprintf("Failed to drop privs for user %d attempt to expand, exiting\n", (int) RealUid); CurEnv->e_id = NULL; finis(true, true, dp); /* NOTREACHED */ } } break; case MD_TEST: case MD_CHECKCONFIG: case MD_PRINT: case MD_PRINTNQE: case MD_FREEZE: case MD_HOSTSTAT: /* Nothing special to check */ break; case MD_INITALIAS: if (!wordinclass(RealUserName, 't')) { if (tTd(65, 1)) sm_dprintf("Deny user %d attempt to rebuild the alias map\n", (int) RealUid); if (LogLevel > 1) sm_syslog(LOG_ALERT, NOQID, "user %d attempted to rebuild the alias map", (int) RealUid); HoldErrs = false; usrerr("Permission denied (real uid not trusted)"); finis(false, true, EX_USAGE); /* NOTREACHED */ } if (UseMSP) { HoldErrs = false; usrerr("User %d cannot rebuild aliases in mail submission program", (int) RealUid); finis(false, true, EX_USAGE); /* NOTREACHED */ } /* FALLTHROUGH */ default: if (bitset(PRIV_RESTRICTEXPAND, PrivacyFlags) && Verbose != 0) { /* ** If -v and RestrictExpand, reset ** Verbose to prevent normal users ** from seeing the expansion of ** aliases/forwards/:include:s */ if (tTd(65, 1)) sm_dprintf("Dropping verbosity for user %d (RestrictExpand)\n", (int) RealUid); Verbose = 0; } break; } } if (MeToo) BlankEnvelope.e_flags |= EF_METOO; switch (OpMode) { case MD_TEST: /* don't have persistent host status in test mode */ HostStatDir = NULL; /* FALLTHROUGH */ case MD_CHECKCONFIG: if (Verbose == 0) Verbose = 2; BlankEnvelope.e_errormode = EM_PRINT; HoldErrs = false; break; case MD_VERIFY: BlankEnvelope.e_errormode = EM_PRINT; HoldErrs = false; /* arrange to exit cleanly on hangup signal */ if (sm_signal(SIGHUP, SIG_IGN) == (sigfunc_t) SIG_DFL) (void) sm_signal(SIGHUP, intsig); if (geteuid() != 0) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Notice: -bv may give misleading output for non-privileged user\n"); break; case MD_FGDAEMON: run_in_foreground = true; set_op_mode(MD_DAEMON); /* FALLTHROUGH */ case MD_DAEMON: vendor_daemon_setup(&BlankEnvelope); /* remove things that don't make sense in daemon mode */ FullName = NULL; GrabTo = false; /* arrange to restart on hangup signal */ if (SaveArgv[0] == NULL || SaveArgv[0][0] != '/') sm_syslog(LOG_WARNING, NOQID, "daemon invoked without full pathname; kill -1 won't work"); break; case MD_INITALIAS: Verbose = 2; BlankEnvelope.e_errormode = EM_PRINT; HoldErrs = false; /* FALLTHROUGH */ default: /* arrange to exit cleanly on hangup signal */ if (sm_signal(SIGHUP, SIG_IGN) == (sigfunc_t) SIG_DFL) (void) sm_signal(SIGHUP, intsig); break; } /* special considerations for FullName */ if (FullName != NULL) { char *full = NULL; /* full names can't have newlines */ if (strchr(FullName, '\n') != NULL) { full = newstr(denlstring(FullName, true, true)); FullName = full; } /* check for characters that may have to be quoted */ if (!rfc822_string(FullName)) { /* ** Quote a full name with special characters ** as a comment so crackaddr() doesn't destroy ** the name portion of the address. */ FullName = addquotes(FullName, NULL); if (full != NULL) sm_free(full); /* XXX */ } } /* do heuristic mode adjustment */ if (Verbose) { /* turn off noconnect option */ setoption('c', "F", true, false, &BlankEnvelope); /* turn on interactive delivery */ setoption('d', "", true, false, &BlankEnvelope); } #ifdef VENDOR_CODE /* check for vendor mismatch */ if (VendorCode != VENDOR_CODE) { message("Warning: .cf file vendor code mismatch: sendmail expects vendor %s, .cf file vendor is %s", getvendor(VENDOR_CODE), getvendor(VendorCode)); } #endif /* VENDOR_CODE */ /* check for out of date configuration level */ if (ConfigLevel < MAXCONFIGLEVEL) { message("Warning: .cf file is out of date: sendmail %s supports version %d, .cf file is version %d", Version, MAXCONFIGLEVEL, ConfigLevel); } if (ConfigLevel < 3) UseErrorsTo = true; /* set options that were previous macros */ if (SmtpGreeting == NULL) { if (ConfigLevel < 7 && (p = macvalue('e', &BlankEnvelope)) != NULL) SmtpGreeting = newstr(p); else SmtpGreeting = "\201j Sendmail \201v ready at \201b"; } if (UnixFromLine == NULL) { if (ConfigLevel < 7 && (p = macvalue('l', &BlankEnvelope)) != NULL) UnixFromLine = newstr(p); else UnixFromLine = "From \201g \201d"; } SmtpError[0] = '\0'; /* our name for SMTP codes */ expand("\201j", jbuf, sizeof(jbuf), &BlankEnvelope); if (jbuf[0] == '\0') PSTRSET(MyHostName, "localhost"); else PSTRSET(MyHostName, jbuf); if (strchr(MyHostName, '.') == NULL) message("WARNING: local host name (%s) is not qualified; see cf/README: WHO AM I?", MyHostName); /* make certain that this name is part of the $=w class */ setclass('w', MyHostName); /* fill in the structure of the *default* queue */ st = stab("mqueue", ST_QUEUE, ST_FIND); if (st == NULL) syserr("No default queue (mqueue) defined"); else set_def_queueval(st->s_quegrp, true); /* the indices of built-in mailers */ st = stab("local", ST_MAILER, ST_FIND); if (st != NULL) LocalMailer = st->s_mailer; else if (OpMode != MD_TEST || !warn_C_flag) syserr("No local mailer defined"); st = stab("prog", ST_MAILER, ST_FIND); if (st == NULL) syserr("No prog mailer defined"); else { ProgMailer = st->s_mailer; clrbitn(M_MUSER, ProgMailer->m_flags); } st = stab("*file*", ST_MAILER, ST_FIND); if (st == NULL) syserr("No *file* mailer defined"); else { FileMailer = st->s_mailer; clrbitn(M_MUSER, FileMailer->m_flags); } st = stab("*include*", ST_MAILER, ST_FIND); if (st == NULL) syserr("No *include* mailer defined"); else InclMailer = st->s_mailer; if (ConfigLevel < 6) { /* heuristic tweaking of local mailer for back compat */ if (LocalMailer != NULL) { setbitn(M_ALIASABLE, LocalMailer->m_flags); setbitn(M_HASPWENT, LocalMailer->m_flags); setbitn(M_TRYRULESET5, LocalMailer->m_flags); setbitn(M_CHECKINCLUDE, LocalMailer->m_flags); setbitn(M_CHECKPROG, LocalMailer->m_flags); setbitn(M_CHECKFILE, LocalMailer->m_flags); setbitn(M_CHECKUDB, LocalMailer->m_flags); } if (ProgMailer != NULL) setbitn(M_RUNASRCPT, ProgMailer->m_flags); if (FileMailer != NULL) setbitn(M_RUNASRCPT, FileMailer->m_flags); } if (ConfigLevel < 7) { if (LocalMailer != NULL) setbitn(M_VRFY250, LocalMailer->m_flags); if (ProgMailer != NULL) setbitn(M_VRFY250, ProgMailer->m_flags); if (FileMailer != NULL) setbitn(M_VRFY250, FileMailer->m_flags); } /* MIME Content-Types that cannot be transfer encoded */ setclass('n', "multipart/signed"); /* MIME message/xxx subtypes that can be treated as messages */ setclass('s', "rfc822"); #if USE_EAI setclass('s', "global"); #endif /* MIME Content-Transfer-Encodings that can be encoded */ setclass('e', "7bit"); setclass('e', "8bit"); setclass('e', "binary"); #ifdef USE_B_CLASS /* MIME Content-Types that should be treated as binary */ setclass('b', "image"); setclass('b', "audio"); setclass('b', "video"); setclass('b', "application/octet-stream"); #endif /* USE_B_CLASS */ /* MIME headers which have fields to check for overflow */ setclass(macid("{checkMIMEFieldHeaders}"), "content-disposition"); setclass(macid("{checkMIMEFieldHeaders}"), "content-type"); /* MIME headers to check for length overflow */ setclass(macid("{checkMIMETextHeaders}"), "content-description"); /* MIME headers to check for overflow and rebalance */ setclass(macid("{checkMIMEHeaders}"), "content-disposition"); setclass(macid("{checkMIMEHeaders}"), "content-id"); setclass(macid("{checkMIMEHeaders}"), "content-transfer-encoding"); setclass(macid("{checkMIMEHeaders}"), "content-type"); setclass(macid("{checkMIMEHeaders}"), "mime-version"); /* Macros to save in the queue file -- don't remove any */ setclass(macid("{persistentMacros}"), "r"); setclass(macid("{persistentMacros}"), "s"); setclass(macid("{persistentMacros}"), "_"); setclass(macid("{persistentMacros}"), "{if_addr}"); setclass(macid("{persistentMacros}"), "{daemon_flags}"); /* operate in queue directory */ if (QueueDir == NULL || *QueueDir == '\0') { if (OpMode != MD_TEST) { syserr("QueueDirectory (Q) option must be set"); ExitStat = EX_CONFIG; } } else { if (OpMode != MD_TEST) setup_queues(OpMode == MD_DAEMON); } /* check host status directory for validity */ if (HostStatDir != NULL && !path_is_dir(HostStatDir, false)) { /* cannot use this value */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Cannot use HostStatusDirectory = %s: %s\n", HostStatDir, sm_errstring(errno)); HostStatDir = NULL; } if (OpMode == MD_QUEUERUN && RealUid != 0 && bitset(PRIV_RESTRICTQRUN, PrivacyFlags)) { struct stat stbuf; /* check to see if we own the queue directory */ if (stat(".", &stbuf) < 0) syserr("main: cannot stat %s", QueueDir); if (stbuf.st_uid != RealUid) { /* nope, really a botch */ HoldErrs = false; usrerr("You do not have permission to process the queue"); finis(false, true, EX_NOPERM); /* NOTREACHED */ } } #if MILTER /* sanity checks on milter filters */ if (OpMode == MD_DAEMON || OpMode == MD_SMTP) { milter_config(InputFilterList, InputFilters, MAXFILTERS); setup_daemon_milters(); } #endif /* MILTER */ /* Convert queuegroup string to qgrp number */ if (queuegroup != NULL) { qgrp = name2qid(queuegroup); if (qgrp == NOQGRP) { HoldErrs = false; usrerr("Queue group %s unknown", queuegroup); finis(false, true, ExitStat); /* NOTREACHED */ } } /* if checking config or have had errors so far, exit now */ if (OpMode == MD_CHECKCONFIG || (ExitStat != EX_OK && OpMode != MD_TEST)) { finis(false, true, ExitStat); /* NOTREACHED */ } #if SASL /* sendmail specific SASL initialization */ sm_sasl_init(); #endif checkfd012("before main() initmaps"); /* ** Do operation-mode-dependent initialization. */ switch (OpMode) { case MD_PRINT: /* print the queue */ HoldErrs = false; (void) dropenvelope(&BlankEnvelope, true, false); (void) sm_signal(SIGPIPE, sigpipe); if (qgrp != NOQGRP) { /* Selecting a particular queue group to run */ for (j = 0; j < Queue[qgrp]->qg_numqueues; j++) { if (StopRequest) stop_sendmail(); (void) print_single_queue(qgrp, j); } finis(false, true, EX_OK); /* NOTREACHED */ } printqueue(); finis(false, true, EX_OK); /* NOTREACHED */ break; case MD_PRINTNQE: /* print number of entries in queue */ (void) dropenvelope(&BlankEnvelope, true, false); (void) sm_signal(SIGPIPE, sigpipe); printnqe(smioout, NULL); finis(false, true, EX_OK); /* NOTREACHED */ break; case MD_QUEUERUN: /* only handle quarantining here */ if (quarantining == NULL) break; if (QueueMode != QM_QUARANTINE && QueueMode != QM_NORMAL) { HoldErrs = false; usrerr("Can not use -Q with -q%c", QueueMode); ExitStat = EX_USAGE; finis(false, true, ExitStat); /* NOTREACHED */ } quarantine_queue(quarantining, qgrp); finis(false, true, EX_OK); break; case MD_HOSTSTAT: (void) sm_signal(SIGPIPE, sigpipe); (void) mci_traverse_persistent(mci_print_persistent, NULL); finis(false, true, EX_OK); /* NOTREACHED */ break; case MD_PURGESTAT: (void) mci_traverse_persistent(mci_purge_persistent, NULL); finis(false, true, EX_OK); /* NOTREACHED */ break; case MD_INITALIAS: /* initialize maps */ initmaps(); finis(false, true, ExitStat); /* NOTREACHED */ break; case MD_SMTP: case MD_DAEMON: /* reset DSN parameters */ DefaultNotify = QPINGONFAILURE|QPINGONDELAY; macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{dsn_notify}"), NULL); BlankEnvelope.e_envid = NULL; macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{dsn_envid}"), NULL); BlankEnvelope.e_flags &= ~(EF_RET_PARAM|EF_NO_BODY_RETN); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{dsn_ret}"), NULL); /* don't open maps for daemon -- done below in child */ break; } if (tTd(0, 15)) { /* print configuration table (or at least part of it) */ if (tTd(0, 90)) printrules(); for (i = 0; i < MAXMAILERS; i++) { if (Mailer[i] != NULL) printmailer(sm_debug_file(), Mailer[i]); } } /* ** Switch to the main envelope. */ CurEnv = newenvelope(&MainEnvelope, &BlankEnvelope, sm_rpool_new_x(NULL)); MainEnvelope.e_flags = BlankEnvelope.e_flags; /* ** If test mode, read addresses from stdin and process. */ if (OpMode == MD_TEST) { if (isatty(sm_io_getinfo(smioin, SM_IO_WHAT_FD, NULL))) Verbose = 2; if (Verbose) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "ADDRESS TEST MODE (ruleset 3 NOT automatically invoked)\n"); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Enter
    \n"); } macdefine(&(MainEnvelope.e_macro), A_PERM, macid("{addr_type}"), "e r"); for (;;) { SM_TRY { (void) sm_signal(SIGINT, intindebug); (void) sm_releasesignal(SIGINT); if (Verbose == 2) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "> "); (void) sm_io_flush(smioout, SM_TIME_DEFAULT); if (sm_io_fgets(smioin, SM_TIME_DEFAULT, buf, sizeof(buf)) < 0) testmodeline("/quit", &MainEnvelope); p = strchr(buf, '\n'); if (p != NULL) *p = '\0'; if (Verbose < 2) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "> %s\n", buf); testmodeline(buf, &MainEnvelope); } SM_EXCEPT(exc, "[!F]*") { /* ** 8.10 just prints \n on interrupt. ** I'm printing the exception here in case ** sendmail is extended to raise additional ** exceptions in this context. */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n"); sm_exc_print(exc, smioout); } SM_END_TRY } } #if STARTTLS tls_ok = true; if (OpMode == MD_QUEUERUN || OpMode == MD_DELIVER || OpMode == MD_ARPAFTP) { /* check whether STARTTLS is turned off for the client */ if (chkclientmodifiers(D_NOTLS)) tls_ok = false; } else if (OpMode == MD_DAEMON || OpMode == MD_FGDAEMON || OpMode == MD_SMTP) { /* check whether STARTTLS is turned off */ if (chkdaemonmodifiers(D_NOTLS) && chkclientmodifiers(D_NOTLS)) tls_ok = false; } else /* other modes don't need STARTTLS */ tls_ok = false; if (tls_ok) { /* basic TLS initialization */ j = init_tls_library(FipsMode); if (j < 0) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "ERROR: TLS failed to initialize\n"); exit(EX_USAGE); } if (j > 0) tls_ok = false; } if (!tls_ok && (OpMode == MD_QUEUERUN || OpMode == MD_DELIVER)) { /* disable TLS for client */ setclttls(false); } #endif /* STARTTLS */ /* ** If collecting stuff from the queue, go start doing that. */ if (OpMode == MD_QUEUERUN && QueueIntvl == 0) { pid_t pid = -1; #if STARTTLS /* init TLS for client, ignore result for now */ (void) initclttls(tls_ok); #endif /* ** The parent process of the caller of runqueue() needs ** to stay around for a possible SIGTERM. The SIGTERM will ** tell this process that all of the queue runners children ** need to be sent SIGTERM as well. At the same time, we ** want to return control to the command line. So we do an ** extra fork(). */ if (Verbose || foregroundqueue || (pid = fork()) <= 0) { /* ** If the fork() failed we should still try to do ** the queue run. If it succeeded then the child ** is going to start the run and wait for all ** of the children to finish. */ if (pid == 0) { /* Reset global flags */ RestartRequest = NULL; ShutdownRequest = NULL; PendingSignal = 0; /* disconnect from terminal */ disconnect(2, CurEnv); } CurrentPid = getpid(); if (qgrp != NOQGRP) { int rwgflags = RWG_NONE; /* ** To run a specific queue group mark it to ** be run, select the work group it's in and ** increment the work counter. */ for (i = 0; i < NumQueue && Queue[i] != NULL; i++) Queue[i]->qg_nextrun = (time_t) -1; Queue[qgrp]->qg_nextrun = 0; if (Verbose) rwgflags |= RWG_VERBOSE; if (queuepersistent) rwgflags |= RWG_PERSISTENT; rwgflags |= RWG_FORCE; (void) run_work_group(Queue[qgrp]->qg_wgrp, rwgflags); } else (void) runqueue(false, Verbose, queuepersistent, true); /* set the title to make it easier to find */ sm_setproctitle(true, CurEnv, "Queue control"); (void) sm_signal(SIGCHLD, SIG_DFL); while (CurChildren > 0) { int status; pid_t ret; errno = 0; while ((ret = sm_wait(&status)) <= 0) { if (errno == ECHILD) { /* ** Oops... something got messed ** up really bad. Waiting for ** non-existent children ** shouldn't happen. Let's get ** out of here. */ CurChildren = 0; break; } continue; } /* something is really really wrong */ if (errno == ECHILD) { sm_syslog(LOG_ERR, NOQID, "queue control process: lost all children: wait returned ECHILD"); break; } /* Only drop when a child gives status */ if (WIFSTOPPED(status)) continue; proc_list_drop(ret, status, NULL); } } finis(true, true, ExitStat); /* NOTREACHED */ } #if SASL if (OpMode == MD_SMTP || OpMode == MD_DAEMON) { /* check whether AUTH is turned off for the server */ if (!chkdaemonmodifiers(D_NOAUTH) && (i = sasl_server_init(srvcallbacks, "Sendmail")) != SASL_OK) syserr("!sasl_server_init failed! [%s]", sasl_errstring(i, NULL, NULL)); } #endif /* SASL */ #if _FFR_DMTRIGGER if (OpMode == MD_DAEMON && SM_TRIGGER == BlankEnvelope.e_sendmode) { i = sm_notify_init(0); if (i != 0) syserr("sm_notify_init() failed=%d", i); } #endif if (OpMode == MD_SMTP) { proc_list_add(CurrentPid, "Sendmail SMTP Agent", PROC_DAEMON, 0, -1, NULL); /* clean up background delivery children */ (void) sm_signal(SIGCHLD, reapchild); } /* ** If a daemon, wait for a request. ** getrequests() will return in a child (unless -d93.100 is used). ** If we should also be processing the queue, ** start doing it in background. ** We check for any errors that might have happened ** during startup. */ if (OpMode == MD_DAEMON || QueueIntvl > 0) { char dtype[200]; /* avoid cleanup in finis(), DaemonPid will be set below */ DaemonPid = 0; if (!run_in_foreground && !tTd(99, 100)) { /* put us in background */ i = fork(); if (i < 0) syserr("daemon: cannot fork"); if (i != 0) { finis(false, true, EX_OK); /* NOTREACHED */ } /* ** Initialize exception stack and default exception ** handler for child process. */ /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; CurrentPid = getpid(); sm_exc_newthread(fatal_error); /* disconnect from our controlling tty */ disconnect(2, &MainEnvelope); } dtype[0] = '\0'; if (OpMode == MD_DAEMON) { (void) sm_strlcat(dtype, "+SMTP", sizeof(dtype)); DaemonPid = CurrentPid; } if (QueueIntvl > 0) { (void) sm_strlcat2(dtype, queuepersistent ? "+persistent-queueing@" : "+queueing@", pintvl(QueueIntvl, true), sizeof(dtype)); } if (tTd(0, 1)) (void) sm_strlcat(dtype, "+debugging", sizeof(dtype)); sm_syslog(LOG_INFO, NOQID, "starting daemon (%s): %s", Version, dtype + 1); #if XLA xla_create_file(); #endif /* save daemon type in a macro for possible PidFile use */ macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{daemon_info}"), dtype + 1); /* save queue interval in a macro for possible PidFile use */ macdefine(&MainEnvelope.e_macro, A_TEMP, macid("{queue_interval}"), pintvl(QueueIntvl, true)); /* workaround: can't seem to release the signal in the parent */ (void) sm_signal(SIGHUP, sighup); (void) sm_releasesignal(SIGHUP); (void) sm_signal(SIGTERM, sigterm); #if _FFR_DMTRIGGER if (SM_TRIGGER == BlankEnvelope.e_sendmode) qm(); #endif if (QueueIntvl > 0) { #if _FFR_RUNPQG if (qgrp != NOQGRP) { int rwgflags = RWG_NONE; /* ** To run a specific queue group mark it to ** be run, select the work group it's in and ** increment the work counter. */ for (i = 0; i < NumQueue && Queue[i] != NULL; i++) Queue[i]->qg_nextrun = (time_t) -1; Queue[qgrp]->qg_nextrun = 0; if (Verbose) rwgflags |= RWG_VERBOSE; if (queuepersistent) rwgflags |= RWG_PERSISTENT; rwgflags |= RWG_FORCE; (void) run_work_group(Queue[qgrp]->qg_wgrp, rwgflags); } else #endif /* _FFR_RUNPQG */ (void) runqueue(true, false, queuepersistent, true); /* ** If queuepersistent but not in daemon mode then ** we're going to do the queue runner monitoring here. ** If in daemon mode then the monitoring will happen ** elsewhere. */ if (OpMode != MD_DAEMON && queuepersistent) { /* ** Write the pid to file ** XXX Overwrites sendmail.pid */ log_sendmail_pid(&MainEnvelope); /* set the title to make it easier to find */ sm_setproctitle(true, CurEnv, "Queue control"); (void) sm_signal(SIGCHLD, SIG_DFL); while (CurChildren > 0) { int status; pid_t ret; int group; CHECK_RESTART; errno = 0; while ((ret = sm_wait(&status)) <= 0) { /* ** Waiting for non-existent ** children shouldn't happen. ** Let's get out of here if ** it occurs. */ if (errno == ECHILD) { CurChildren = 0; break; } continue; } /* something is really really wrong */ if (errno == ECHILD) { sm_syslog(LOG_ERR, NOQID, "persistent queue runner control process: lost all children: wait returned ECHILD"); break; } if (WIFSTOPPED(status)) continue; /* Probe only on a child status */ proc_list_drop(ret, status, &group); if (WIFSIGNALED(status)) { if (WCOREDUMP(status)) { sm_syslog(LOG_ERR, NOQID, "persistent queue runner=%d core dumped, signal=%d", group, WTERMSIG(status)); /* don't restart this */ mark_work_group_restart( group, -1); continue; } sm_syslog(LOG_ERR, NOQID, "persistent queue runner=%d died, pid=%ld, signal=%d", group, (long) ret, WTERMSIG(status)); } /* ** When debugging active, don't ** restart the persistent queues. ** But do log this as info. */ if (sm_debug_active(&DebugNoPRestart, 1)) { sm_syslog(LOG_DEBUG, NOQID, "persistent queue runner=%d, exited", group); mark_work_group_restart(group, -1); } CHECK_RESTART; } finis(true, true, ExitStat); /* NOTREACHED */ } if (OpMode != MD_DAEMON) { char qtype[200]; /* ** Write the pid to file ** XXX Overwrites sendmail.pid */ log_sendmail_pid(&MainEnvelope); /* set the title to make it easier to find */ qtype[0] = '\0'; (void) sm_strlcpyn(qtype, sizeof(qtype), 4, "Queue runner@", pintvl(QueueIntvl, true), " for ", QueueDir); sm_setproctitle(true, CurEnv, qtype); for (;;) { (void) pause(); CHECK_RESTART; if (doqueuerun()) (void) runqueue(true, false, false, false); } } } (void) dropenvelope(&MainEnvelope, true, false); #if STARTTLS /* init TLS for server, ignore result for now */ (void) initsrvtls(tls_ok); #endif nextreq: p_flags = getrequests(&MainEnvelope); /* drop privileges */ (void) drop_privileges(false); /* ** Get authentication data ** Set _ macro in BlankEnvelope before calling newenvelope(). */ #if _FFR_XCNCT if (bitnset(D_XCNCT, *p_flags) || bitnset(D_XCNCT_M, *p_flags)) { /* copied from getauthinfo() */ if (RealHostName == NULL) { RealHostName = newstr(hostnamebyanyaddr(&RealHostAddr)); if (strlen(RealHostName) > MAXNAME) RealHostName[MAXNAME] = '\0'; /* XXX - 1 ? */ } snprintf(buf, sizeof(buf), "%s [%s]", RealHostName, anynet_ntoa(&RealHostAddr)); forged = bitnset(D_XCNCT_M, *p_flags); if (forged) { (void) sm_strlcat(buf, " (may be forged)", sizeof(buf)); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{client_resolve}"), "FORGED"); } /* HACK! variable used only two times right below */ authinfo = buf; if (tTd(75, 9)) sm_syslog(LOG_INFO, NOQID, "main: where=not_calling_getauthinfo, RealHostAddr=%s, RealHostName=%s", anynet_ntoa(&RealHostAddr), RealHostName); } else /* WARNING: "non-braced" else */ #endif /* _FFR_XCNCT */ authinfo = getauthinfo(sm_io_getinfo(InChannel, SM_IO_WHAT_FD, NULL), &forged); macdefine(&BlankEnvelope.e_macro, A_TEMP, '_', authinfo); if (tTd(75, 9)) sm_syslog(LOG_INFO, NOQID, "main: where=after_getauthinfo, RealHostAddr=%s", anynet_ntoa(&RealHostAddr)); /* at this point we are in a child: reset state */ sm_rpool_free(MainEnvelope.e_rpool); (void) newenvelope(&MainEnvelope, &MainEnvelope, sm_rpool_new_x(NULL)); } if (LogLevel > 9) { p = authinfo; if (NULL == p) { if (NULL != RealHostName) p = RealHostName; else p = anynet_ntoa(&RealHostAddr); if (NULL == p) p = "unknown"; } /* log connection information */ sm_syslog(LOG_INFO, NULL, "connect from %s", p); } /* ** If running SMTP protocol, start collecting and executing ** commands. This will never return. */ if (OpMode == MD_SMTP || OpMode == MD_DAEMON) { char pbuf[20]; /* ** Save some macros for check_* rulesets. */ if (forged) { char ipbuf[103]; (void) sm_snprintf(ipbuf, sizeof(ipbuf), "[%.100s]", anynet_ntoa(&RealHostAddr)); macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{client_name}"), ipbuf); } else macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{client_name}"), RealHostName); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{client_ptr}"), RealHostName); macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{client_addr}"), anynet_ntoa(&RealHostAddr)); sm_getla(); switch (RealHostAddr.sa.sa_family) { #if NETINET case AF_INET: (void) sm_snprintf(pbuf, sizeof(pbuf), "%d", ntohs(RealHostAddr.sin.sin_port)); break; #endif /* NETINET */ #if NETINET6 case AF_INET6: (void) sm_snprintf(pbuf, sizeof(pbuf), "%d", ntohs(RealHostAddr.sin6.sin6_port)); break; #endif /* NETINET6 */ default: (void) sm_snprintf(pbuf, sizeof(pbuf), "0"); break; } macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{client_port}"), pbuf); if (OpMode == MD_DAEMON) { ENVELOPE *saved_env; /* validate the connection */ HoldErrs = true; saved_env = CurEnv; CurEnv = &BlankEnvelope; nullserver = validate_connection(&RealHostAddr, macvalue(macid("{client_name}"), &BlankEnvelope), &BlankEnvelope); if (bitset(EF_DISCARD, BlankEnvelope.e_flags)) MainEnvelope.e_flags |= EF_DISCARD; CurEnv = saved_env; HoldErrs = false; } else if (p_flags == NULL) { p_flags = (BITMAP256 *) xalloc(sizeof(*p_flags)); clrbitmap(p_flags); } #if STARTTLS if (OpMode == MD_SMTP) (void) initsrvtls(tls_ok); #endif /* turn off profiling */ SM_PROF(1); smtp(nullserver, *p_flags, &MainEnvelope); if (tTd(93, 100)) { /* turn off profiling */ SM_PROF(0); if (OpMode == MD_DAEMON) goto nextreq; } } sm_rpool_free(MainEnvelope.e_rpool); clearenvelope(&MainEnvelope, false, sm_rpool_new_x(NULL)); if (OpMode == MD_VERIFY) { set_delivery_mode(SM_VERIFY, &MainEnvelope); PostMasterCopy = NULL; } else { /* interactive -- all errors are global */ MainEnvelope.e_flags |= EF_GLOBALERRS|EF_LOGSENDER; } /* ** Do basic system initialization and set the sender */ initsys(&MainEnvelope); macdefine(&MainEnvelope.e_macro, A_PERM, macid("{ntries}"), "0"); macdefine(&MainEnvelope.e_macro, A_PERM, macid("{nrcpts}"), "0"); #if USE_EAI fromaddr_x = fromaddr; /* for logging - see below -- just in case */ if (fromaddr != NULL && (MainEnvelope.e_smtputf8 || (MainEnvelope.e_smtputf8 = !asciistr(fromaddr)))) { /* not very efficient: asciistr() may be called above already */ if (!SMTP_UTF8 && !asciistr(fromaddr)) { usrerr("non-ASCII sender address %s requires SMTPUTF8", fromaddr); finis(false, true, EX_USAGE); } j = 0; fromaddr = quote_internal_chars(fromaddr, NULL, &j, NULL); } #endif setsender(fromaddr, &MainEnvelope, NULL, '\0', false); if (warn_f_flag != '\0' && !wordinclass(RealUserName, 't') && (!bitnset(M_LOCALMAILER, MainEnvelope.e_from.q_mailer->m_flags) || strcmp(MainEnvelope.e_from.q_user, RealUserName) != 0)) { auth_warning(&MainEnvelope, "%s set sender to %s using -%c", RealUserName, fromaddr_x, warn_f_flag); #if SASL auth = false; #endif } if (auth) { char *fv; /* set the initial sender for AUTH= to $f@$j */ fv = macvalue('f', &MainEnvelope); if (fv == NULL || *fv == '\0') MainEnvelope.e_auth_param = NULL; else { if (strchr(fv, '@') == NULL) { i = strlen(fv) + strlen(macvalue('j', &MainEnvelope)) + 2; p = sm_malloc_x(i); (void) sm_strlcpyn(p, i, 3, fv, "@", macvalue('j', &MainEnvelope)); } else p = sm_strdup_x(fv); MainEnvelope.e_auth_param = sm_rpool_strdup_x(MainEnvelope.e_rpool, xtextify(p, "=")); sm_free(p); /* XXX */ } } if (macvalue('s', &MainEnvelope) == NULL) macdefine(&MainEnvelope.e_macro, A_PERM, 's', RealHostName); av = argv + optind; if (*av == NULL && !GrabTo) { MainEnvelope.e_to = NULL; MainEnvelope.e_flags |= EF_GLOBALERRS; HoldErrs = false; SuperSafe = SAFE_NO; usrerr("Recipient names must be specified"); /* collect body for UUCP return */ if (OpMode != MD_VERIFY) collect(InChannel, SMTPMODE_NO, NULL, &MainEnvelope, true); finis(true, true, EX_USAGE); /* NOTREACHED */ } /* ** Scan argv and deliver the message to everyone. */ save_val = LogUsrErrs; LogUsrErrs = true; sendtoargv(av, &MainEnvelope); LogUsrErrs = save_val; /* if we have had errors sofar, arrange a meaningful exit stat */ if (Errors > 0 && ExitStat == EX_OK) ExitStat = EX_USAGE; #if _FFR_FIX_DASHT /* ** If using -t, force not sending to argv recipients, even ** if they are mentioned in the headers. */ if (GrabTo) { ADDRESS *q; for (q = MainEnvelope.e_sendqueue; q != NULL; q = q->q_next) q->q_state = QS_REMOVED; } #endif /* _FFR_FIX_DASHT */ /* ** Read the input mail. */ MainEnvelope.e_to = NULL; if (OpMode != MD_VERIFY || GrabTo) { int savederrors; unsigned long savedflags; savederrors = Errors; savedflags = MainEnvelope.e_flags & EF_FATALERRS; MainEnvelope.e_flags |= EF_GLOBALERRS; MainEnvelope.e_flags &= ~EF_FATALERRS; Errors = 0; buffer_errors(); collect(InChannel, SMTPMODE_NO, NULL, &MainEnvelope, true); /* header checks failed */ if (Errors > 0) { giveup: if (!GrabTo) { /* Log who the mail would have gone to */ logundelrcpts(&MainEnvelope, MainEnvelope.e_message, 8, false); } flush_errors(true); finis(true, true, ExitStat); /* NOTREACHED */ return -1; } /* bail out if message too large */ if (bitset(EF_CLRQUEUE, MainEnvelope.e_flags)) { finis(true, true, ExitStat != EX_OK ? ExitStat : EX_DATAERR); /* NOTREACHED */ return -1; } /* set message size */ (void) sm_snprintf(buf, sizeof(buf), "%ld", PRT_NONNEGL(MainEnvelope.e_msgsize)); macdefine(&MainEnvelope.e_macro, A_TEMP, macid("{msg_size}"), buf); Errors = savederrors; MainEnvelope.e_flags |= savedflags; } errno = 0; if (tTd(1, 1)) sm_dprintf("From person = \"%s\"\n", MainEnvelope.e_from.q_paddr); /* Check if quarantining stats should be updated */ if (MainEnvelope.e_quarmsg != NULL) markstats(&MainEnvelope, NULL, STATS_QUARANTINE); /* ** Actually send everything. ** If verifying, just ack. */ if (Errors == 0) { if (!split_by_recipient(&MainEnvelope) && bitset(EF_FATALERRS, MainEnvelope.e_flags)) goto giveup; } /* make sure we deliver at least the first envelope */ i = FastSplit > 0 ? 0 : -1; for (e = &MainEnvelope; e != NULL; e = e->e_sibling, i++) { ENVELOPE *next; e->e_from.q_state = QS_SENDER; if (tTd(1, 5)) { sm_dprintf("main[%d]: QS_SENDER ", i); printaddr(sm_debug_file(), &e->e_from, false); } e->e_to = NULL; sm_getla(); GrabTo = false; #if NAMED_BIND _res.retry = TimeOuts.res_retry[RES_TO_FIRST]; _res.retrans = TimeOuts.res_retrans[RES_TO_FIRST]; #endif next = e->e_sibling; e->e_sibling = NULL; /* after FastSplit envelopes: queue up */ sendall(e, i >= FastSplit ? SM_QUEUE : SM_DEFAULT); e->e_sibling = next; } /* ** All done. ** Don't send return error message if in VERIFY mode. */ finis(true, true, ExitStat); /* NOTREACHED */ return ExitStat; } /* ** STOP_SENDMAIL -- Stop the running program ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** exits. */ void stop_sendmail() { /* reset uid for process accounting */ endpwent(); (void) setuid(RealUid); exit(EX_OK); } /* ** FINIS -- Clean up and exit. ** ** Parameters: ** drop -- whether or not to drop CurEnv envelope ** cleanup -- call exit() or _exit()? ** exitstat -- exit status to use for exit() call ** ** Returns: ** never ** ** Side Effects: ** exits sendmail */ void finis(drop, cleanup, exitstat) bool drop; bool cleanup; volatile int exitstat; { char pidpath[MAXPATHLEN]; pid_t pid; /* Still want to process new timeouts added below */ sm_clear_events(); (void) sm_releasesignal(SIGALRM); #if RATECTL_DEBUG || _FFR_OCC /* do this only in "main" process */ if (DaemonPid == getpid()) { SM_FILE_T *fp; fp = sm_debug_file(); if (fp != NULL) dump_ch(fp); } #endif /* RATECTL_DEBUG || _FFR_OCC */ #if _FFR_DMTRIGGER if (OpMode == MD_DAEMON && SM_TRIGGER == BlankEnvelope.e_sendmode) sm_notify_stop(DaemonPid == getpid(), 0); #endif if (tTd(2, 1)) { sm_dprintf("\n====finis: stat %d e_id=%s e_flags=", exitstat, CurEnv->e_id == NULL ? "NOQUEUE" : CurEnv->e_id); printenvflags(CurEnv); } if (tTd(2, 9)) printopenfds(false); SM_TRY /* ** Clean up. This might raise E:mta.quickabort */ /* clean up temp files */ CurEnv->e_to = NULL; if (drop) { if (CurEnv->e_id != NULL) { int r; r = dropenvelope(CurEnv, true, false); if (exitstat == EX_OK) exitstat = r; sm_rpool_free(CurEnv->e_rpool); CurEnv->e_rpool = NULL; /* these may have pointed to the rpool */ CurEnv->e_to = NULL; CurEnv->e_message = NULL; CurEnv->e_statmsg = NULL; CurEnv->e_quarmsg = NULL; CurEnv->e_bodytype = NULL; CurEnv->e_id = NULL; CurEnv->e_envid = NULL; CurEnv->e_auth_param = NULL; } else poststats(StatFile); } /* flush any cached connections */ mci_flush(true, NULL); /* close maps belonging to this pid */ closemaps(false); #if USERDB /* close UserDatabase */ _udbx_close(); #endif #if SASL stop_sasl_client(); #endif #if XLA /* clean up extended load average stuff */ xla_all_end(); #endif SM_FINALLY /* ** And exit. */ if (LogLevel > 78) sm_syslog(LOG_DEBUG, CurEnv->e_id, "finis, pid=%d", (int) CurrentPid); if (exitstat == EX_TEMPFAIL || CurEnv->e_errormode == EM_BERKNET) exitstat = EX_OK; /* XXX clean up queues and related data structures */ cleanup_queues(); pid = getpid(); #if SM_CONF_SHM cleanup_shm(DaemonPid == pid); #endif /* close locked pid file */ close_sendmail_pid(); if (DaemonPid == pid || PidFilePid == pid) { /* blow away the pid file */ expand(PidFile, pidpath, sizeof(pidpath), CurEnv); (void) unlink(pidpath); } /* reset uid for process accounting */ endpwent(); sm_mbdb_terminate(); #if _FFR_MEMSTAT (void) sm_memstat_close(); #endif (void) setuid(RealUid); #if SM_HEAP_CHECK # if SM_HEAP_CHECK > 1 /* seems this is not always free()? */ sm_rpool_free(CurEnv->e_rpool); # endif /* dump the heap, if we are checking for memory leaks */ if (sm_debug_active(&SmHeapCheck, 2)) sm_heap_report(smioout, sm_debug_level(&SmHeapCheck) - 1); #endif if (sm_debug_active(&SmXtrapReport, 1)) sm_dprintf("xtrap count = %d\n", SmXtrapCount); if (cleanup) exit(exitstat); else _exit(exitstat); SM_END_TRY } /* ** INTINDEBUG -- signal handler for SIGINT in -bt mode ** ** Parameters: ** sig -- incoming signal. ** ** Returns: ** none. ** ** Side Effects: ** longjmps back to test mode loop. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* Type of an exception generated on SIGINT during address test mode. */ static const SM_EXC_TYPE_T EtypeInterrupt = { SmExcTypeMagic, "S:mta.interrupt", "", sm_etype_printf, "interrupt", }; /* ARGSUSED */ static SIGFUNC_DECL intindebug(sig) int sig; { int save_errno = errno; FIX_SYSV_SIGNAL(sig, intindebug); errno = save_errno; CHECK_CRITICAL(sig); errno = save_errno; sm_exc_raisenew_x(&EtypeInterrupt); errno = save_errno; return SIGFUNC_RETURN; } /* ** SIGTERM -- SIGTERM handler for the daemon ** ** Parameters: ** sig -- signal number. ** ** Returns: ** none. ** ** Side Effects: ** Sets ShutdownRequest which will hopefully trigger ** the daemon to exit. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED */ static SIGFUNC_DECL sigterm(sig) int sig; { int save_errno = errno; FIX_SYSV_SIGNAL(sig, sigterm); ShutdownRequest = "signal"; errno = save_errno; #if _FFR_DMTRIGGER /* temporary? */ proc_list_signal(PROC_QM, sig); #endif return SIGFUNC_RETURN; } /* ** SIGHUP -- handle a SIGHUP signal ** ** Parameters: ** sig -- incoming signal. ** ** Returns: ** none. ** ** Side Effects: ** Sets RestartRequest which should cause the daemon ** to restart. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED */ static SIGFUNC_DECL sighup(sig) int sig; { int save_errno = errno; FIX_SYSV_SIGNAL(sig, sighup); RestartRequest = "signal"; errno = save_errno; return SIGFUNC_RETURN; } /* ** SIGPIPE -- signal handler for SIGPIPE ** ** Parameters: ** sig -- incoming signal. ** ** Returns: ** none. ** ** Side Effects: ** Sets StopRequest which should cause the mailq/hoststatus ** display to stop. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED */ static SIGFUNC_DECL sigpipe(sig) int sig; { int save_errno = errno; FIX_SYSV_SIGNAL(sig, sigpipe); StopRequest = true; errno = save_errno; return SIGFUNC_RETURN; } /* ** INTSIG -- clean up on interrupt ** ** This just arranges to exit. It pessimizes in that it ** may resend a message. ** ** Parameters: ** sig -- incoming signal. ** ** Returns: ** none. ** ** Side Effects: ** Unlocks the current job. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED */ SIGFUNC_DECL intsig(sig) int sig; { bool drop = false; int save_errno = errno; FIX_SYSV_SIGNAL(sig, intsig); errno = save_errno; CHECK_CRITICAL(sig); sm_allsignals(true); IntSig = true; FileName = NULL; /* Clean-up on aborted stdin message submission */ if (OpMode == MD_SMTP || OpMode == MD_DELIVER || OpMode == MD_ARPAFTP) { if (CurEnv->e_id != NULL) { char *fn; fn = queuename(CurEnv, DATAFL_LETTER); if (fn != NULL) (void) unlink(fn); fn = queuename(CurEnv, ANYQFL_LETTER); if (fn != NULL) (void) unlink(fn); } _exit(EX_OK); /* NOTREACHED */ } if (sig != 0 && LogLevel > 79) sm_syslog(LOG_DEBUG, CurEnv->e_id, "interrupt"); if (OpMode != MD_TEST) unlockqueue(CurEnv); finis(drop, false, EX_OK); /* NOTREACHED */ } /* ** DISCONNECT -- remove our connection with any foreground process ** ** Parameters: ** droplev -- how "deeply" we should drop the line. ** 0 -- ignore signals, mail back errors, make sure ** output goes to stdout. ** 1 -- also, make stdout go to /dev/null. ** 2 -- also, disconnect from controlling terminal ** (only for daemon mode). ** e -- the current envelope. ** ** Returns: ** none ** ** Side Effects: ** Try to insure that we are immune to vagaries of ** the controlling tty. */ void disconnect(droplev, e) int droplev; register ENVELOPE *e; { #define LOGID(e) (((e) != NULL && (e)->e_id != NULL) ? (e)->e_id : NOQID) int fd; if (tTd(52, 1)) sm_dprintf("disconnect: In %d Out %d, e=%p\n", sm_io_getinfo(InChannel, SM_IO_WHAT_FD, NULL), sm_io_getinfo(OutChannel, SM_IO_WHAT_FD, NULL), (void *)e); if (tTd(52, 100)) { sm_dprintf("don't\n"); return; } if (LogLevel > 93) sm_syslog(LOG_DEBUG, LOGID(e), "disconnect level %d", droplev); /* be sure we don't get nasty signals */ (void) sm_signal(SIGINT, SIG_IGN); (void) sm_signal(SIGQUIT, SIG_IGN); /* we can't communicate with our caller, so.... */ HoldErrs = true; CurEnv->e_errormode = EM_MAIL; Verbose = 0; DisConnected = true; /* all input from /dev/null */ if (InChannel != smioin) { (void) sm_io_close(InChannel, SM_TIME_DEFAULT); InChannel = smioin; } if (sm_io_reopen(SmFtStdio, SM_TIME_DEFAULT, SM_PATH_DEVNULL, SM_IO_RDONLY, NULL, smioin) == NULL) sm_syslog(LOG_ERR, LOGID(e), "disconnect: sm_io_reopen(\"%s\") failed: %s", SM_PATH_DEVNULL, sm_errstring(errno)); /* ** output to the transcript ** We also compare the fd numbers here since OutChannel ** might be a layer on top of smioout due to encryption ** (see sfsasl.c). */ if (OutChannel != smioout && sm_io_getinfo(OutChannel, SM_IO_WHAT_FD, NULL) != sm_io_getinfo(smioout, SM_IO_WHAT_FD, NULL)) { (void) sm_io_close(OutChannel, SM_TIME_DEFAULT); OutChannel = smioout; #if 0 /* ** Has smioout been closed? Reopen it. ** This shouldn't happen anymore, the code is here ** just as a reminder. */ if (smioout->sm_magic == NULL && sm_io_reopen(SmFtStdio, SM_TIME_DEFAULT, SM_PATH_DEVNULL, SM_IO_WRONLY, NULL, smioout) == NULL) sm_syslog(LOG_ERR, LOGID(e), "disconnect: sm_io_reopen(\"%s\") failed: %s", SM_PATH_DEVNULL, sm_errstring(errno)); #endif /* 0 */ } if (droplev > 0) { fd = open(SM_PATH_DEVNULL, O_WRONLY, 0666); if (fd == -1) { sm_syslog(LOG_ERR, LOGID(e), "disconnect: open(\"%s\") failed: %s", SM_PATH_DEVNULL, sm_errstring(errno)); } (void) sm_io_flush(smioout, SM_TIME_DEFAULT); if (fd >= 0) { (void) dup2(fd, STDOUT_FILENO); (void) dup2(fd, STDERR_FILENO); (void) close(fd); } } /* drop our controlling TTY completely if possible */ if (droplev > 1) { (void) setsid(); errno = 0; } checkfd012("disconnect"); if (LogLevel > 71) sm_syslog(LOG_DEBUG, LOGID(e), "in background, pid=%d", (int) CurrentPid); errno = 0; } static void obsolete(argv) char *argv[]; { register char *ap; register char *op; while ((ap = *++argv) != NULL) { /* Return if "--" or not an option of any form. */ if (ap[0] != '-' || ap[1] == '-') return; /* Don't allow users to use "-Q." or "-Q ." */ if ((ap[1] == 'Q' && ap[2] == '.') || (ap[1] == 'Q' && argv[1] != NULL && argv[1][0] == '.' && argv[1][1] == '\0')) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Can not use -Q.\n"); exit(EX_USAGE); } /* skip over options that do have a value */ op = strchr(OPTIONS, ap[1]); if (op != NULL && *++op == ':' && ap[2] == '\0' && ap[1] != 'd' && #if defined(sony_news) ap[1] != 'E' && ap[1] != 'J' && #endif argv[1] != NULL && argv[1][0] != '-') { argv++; continue; } /* If -C doesn't have an argument, use sendmail.cf. */ #define __DEFPATH "sendmail.cf" if (ap[1] == 'C' && ap[2] == '\0') { *argv = xalloc(sizeof(__DEFPATH) + 2); (void) sm_strlcpyn(argv[0], sizeof(__DEFPATH) + 2, 2, "-C", __DEFPATH); } /* If -q doesn't have an argument, run it once. */ if (ap[1] == 'q' && ap[2] == '\0') *argv = "-q0"; /* If -Q doesn't have an argument, disable quarantining */ if (ap[1] == 'Q' && ap[2] == '\0') *argv = "-Q."; /* if -d doesn't have an argument, use 0-99.1 */ if (ap[1] == 'd' && ap[2] == '\0') *argv = "-d0-99.1"; #if defined(sony_news) /* if -E doesn't have an argument, use -EC */ if (ap[1] == 'E' && ap[2] == '\0') *argv = "-EC"; /* if -J doesn't have an argument, use -JJ */ if (ap[1] == 'J' && ap[2] == '\0') *argv = "-JJ"; #endif /* defined(sony_news) */ } } /* ** AUTH_WARNING -- specify authorization warning ** ** Parameters: ** e -- the current envelope. ** msg -- the text of the message. ** args -- arguments to the message. ** ** Returns: ** none. */ void #ifdef __STDC__ auth_warning(register ENVELOPE *e, const char *msg, ...) #else /* __STDC__ */ auth_warning(e, msg, va_alist) register ENVELOPE *e; const char *msg; va_dcl #endif /* __STDC__ */ { char buf[MAXLINE]; SM_VA_LOCAL_DECL char *p; static char hostbuf[48]; if (!bitset(PRIV_AUTHWARNINGS, PrivacyFlags)) return; if (hostbuf[0] == '\0') { struct hostent *hp; hp = myhostname(hostbuf, sizeof(hostbuf)); #if NETINET6 if (hp != NULL) { freehostent(hp); hp = NULL; } #endif /* NETINET6 */ } (void) sm_strlcpyn(buf, sizeof(buf), 2, hostbuf, ": "); p = &buf[strlen(buf)]; SM_VA_START(ap, msg); (void) sm_vsnprintf(p, SPACELEFT(buf, p), msg, ap); SM_VA_END(ap); addheader("X-Authentication-Warning", buf, 0, e, true); if (LogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Authentication-Warning: %.400s", buf); } /* ** GETEXTENV -- get from external environment ** ** Parameters: ** envar -- the name of the variable to retrieve ** ** Returns: ** The value, if any. */ static char * getextenv(envar) const char *envar; { char **envp; int l; l = strlen(envar); for (envp = ExternalEnviron; envp != NULL && *envp != NULL; envp++) { if (strncmp(*envp, envar, l) == 0 && (*envp)[l] == '=') return &(*envp)[l + 1]; } return NULL; } /* ** SM_SETUSERENV -- set an environment variable in the propagated environment ** ** Parameters: ** envar -- the name of the environment variable. ** value -- the value to which it should be set. If ** null, this is extracted from the incoming ** environment. If that is not set, the call ** to sm_setuserenv is ignored. ** ** Returns: ** none. */ void sm_setuserenv(envar, value) const char *envar; const char *value; { int i, l; char **evp = UserEnviron; char *p; if (value == NULL) { value = getextenv(envar); if (value == NULL) return; } /* XXX enforce reasonable size? */ i = strlen(envar) + 1; l = strlen(value) + i + 1; p = (char *) sm_malloc_tagged_x(l, "setuserenv", 0, 0); (void) sm_strlcpyn(p, l, 3, envar, "=", value); while (*evp != NULL && strncmp(*evp, p, i) != 0) evp++; if (*evp != NULL) { *evp++ = p; } else if (evp < &UserEnviron[MAXUSERENVIRON]) { *evp++ = p; *evp = NULL; } /* make sure it is in our environment as well */ if (putenv(p) < 0) syserr("sm_setuserenv: putenv(%s) failed", p); } /* ** DUMPSTATE -- dump state ** ** For debugging. */ void dumpstate(when) char *when; { register char *j = macvalue('j', CurEnv); int rs; extern int NextMacroId; sm_syslog(LOG_DEBUG, CurEnv->e_id, "--- dumping state on %s: $j = %s ---", when, j == NULL ? "" : j); if (j != NULL) { if (!wordinclass(j, 'w')) sm_syslog(LOG_DEBUG, CurEnv->e_id, "*** $j not in $=w ***"); } sm_syslog(LOG_DEBUG, CurEnv->e_id, "CurChildren = %d", CurChildren); sm_syslog(LOG_DEBUG, CurEnv->e_id, "NextMacroId = %d (Max %d)", NextMacroId, MAXMACROID); sm_syslog(LOG_DEBUG, CurEnv->e_id, "--- open file descriptors: ---"); printopenfds(true); sm_syslog(LOG_DEBUG, CurEnv->e_id, "--- connection cache: ---"); mci_dump_all(smioout, true); rs = strtorwset("debug_dumpstate", NULL, ST_FIND); if (rs > 0) { int status; register char **pvp; char *pv[MAXATOM + 1]; pv[0] = NULL; status = REWRITE(pv, rs, CurEnv); sm_syslog(LOG_DEBUG, CurEnv->e_id, "--- ruleset debug_dumpstate returns stat %d, pv: ---", status); for (pvp = pv; *pvp != NULL; pvp++) sm_syslog(LOG_DEBUG, CurEnv->e_id, "%s", *pvp); } sm_syslog(LOG_DEBUG, CurEnv->e_id, "--- end of state dump ---"); } #ifdef SIGUSR1 /* ** SIGUSR1 -- Signal a request to dump state. ** ** Parameters: ** sig -- calling signal. ** ** Returns: ** none. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. ** ** XXX: More work is needed for this signal handler. */ /* ARGSUSED */ static SIGFUNC_DECL sigusr1(sig) int sig; { int save_errno = errno; FIX_SYSV_SIGNAL(sig, sigusr1); errno = save_errno; CHECK_CRITICAL(sig); dumpstate("user signal"); # if SM_HEAP_CHECK dumpstab(); # endif errno = save_errno; return SIGFUNC_RETURN; } #endif /* SIGUSR1 */ /* ** DROP_PRIVILEGES -- reduce privileges to those of the RunAsUser option ** ** Parameters: ** to_real_uid -- if set, drop to the real uid instead ** of the RunAsUser. ** ** Returns: ** EX_OSERR if the setuid failed. ** EX_OK otherwise. */ int drop_privileges(to_real_uid) bool to_real_uid; { int rval = EX_OK; GIDSET_T emptygidset[1]; if (tTd(47, 1)) sm_dprintf("drop_privileges(%d): Real[UG]id=%ld:%ld, get[ug]id=%ld:%ld, gete[ug]id=%ld:%ld, RunAs[UG]id=%ld:%ld\n", (int) to_real_uid, (long) RealUid, (long) RealGid, (long) getuid(), (long) getgid(), (long) geteuid(), (long) getegid(), (long) RunAsUid, (long) RunAsGid); if (to_real_uid) { RunAsUserName = RealUserName; RunAsUid = RealUid; RunAsGid = RealGid; EffGid = RunAsGid; } /* make sure no one can grab open descriptors for secret files */ endpwent(); sm_mbdb_terminate(); /* reset group permissions; these can be set later */ emptygidset[0] = (to_real_uid || RunAsGid != 0) ? RunAsGid : getegid(); /* ** Notice: on some OS (Linux...) the setgroups() call causes ** a logfile entry if sendmail is not run by root. ** However, it is unclear (no POSIX standard) whether ** setgroups() can only succeed if executed by root. ** So for now we keep it as it is; if you want to change it, use ** if (geteuid() == 0 && setgroups(1, emptygidset) == -1) */ if (setgroups(1, emptygidset) == -1 && geteuid() == 0) { syserr("drop_privileges: setgroups(1, %d) failed", (int) emptygidset[0]); rval = EX_OSERR; } /* reset primary group id */ if (to_real_uid) { /* ** Drop gid to real gid. ** On some OS we must reset the effective[/real[/saved]] gid, ** and then use setgid() to finally drop all group privileges. ** Later on we check whether we can get back the ** effective gid. */ #if HASSETEGID if (setegid(RunAsGid) < 0) { syserr("drop_privileges: setegid(%d) failed", (int) RunAsGid); rval = EX_OSERR; } #else /* HASSETEGID */ # if HASSETREGID if (setregid(RunAsGid, RunAsGid) < 0) { syserr("drop_privileges: setregid(%d, %d) failed", (int) RunAsGid, (int) RunAsGid); rval = EX_OSERR; } # else /* HASSETREGID */ # if HASSETRESGID if (setresgid(RunAsGid, RunAsGid, RunAsGid) < 0) { syserr("drop_privileges: setresgid(%d, %d, %d) failed", (int) RunAsGid, (int) RunAsGid, (int) RunAsGid); rval = EX_OSERR; } # endif /* HASSETRESGID */ # endif /* HASSETREGID */ #endif /* HASSETEGID */ } if (rval == EX_OK && (to_real_uid || RunAsGid != 0)) { if (setgid(RunAsGid) < 0 && (!UseMSP || getegid() != RunAsGid)) { syserr("drop_privileges: setgid(%ld) failed", (long) RunAsGid); rval = EX_OSERR; } errno = 0; if (rval == EX_OK && getegid() != RunAsGid) { syserr("drop_privileges: Unable to set effective gid=%ld to RunAsGid=%ld", (long) getegid(), (long) RunAsGid); rval = EX_OSERR; } } /* fiddle with uid */ if (to_real_uid || RunAsUid != 0) { uid_t euid; /* ** Try to setuid(RunAsUid). ** euid must be RunAsUid, ** ruid must be RunAsUid unless (e|r)uid wasn't 0 ** and we didn't have to drop privileges to the real uid. */ if (setuid(RunAsUid) < 0 || geteuid() != RunAsUid || (getuid() != RunAsUid && (to_real_uid || geteuid() == 0 || getuid() == 0))) { #if HASSETREUID /* ** if ruid != RunAsUid, euid == RunAsUid, then ** try resetting just the real uid, then using ** setuid() to drop the saved-uid as well. */ if (geteuid() == RunAsUid) { if (setreuid(RunAsUid, -1) < 0) { syserr("drop_privileges: setreuid(%d, -1) failed", (int) RunAsUid); rval = EX_OSERR; } if (setuid(RunAsUid) < 0) { syserr("drop_privileges: second setuid(%d) attempt failed", (int) RunAsUid); rval = EX_OSERR; } } else #endif /* HASSETREUID */ { syserr("drop_privileges: setuid(%d) failed", (int) RunAsUid); rval = EX_OSERR; } } euid = geteuid(); if (RunAsUid != 0 && setuid(0) == 0) { /* ** Believe it or not, the Linux capability model ** allows a non-root process to override setuid() ** on a process running as root and prevent that ** process from dropping privileges. */ syserr("drop_privileges: setuid(0) succeeded (when it should not)"); rval = EX_OSERR; } else if (RunAsUid != euid && setuid(euid) == 0) { /* ** Some operating systems will keep the saved-uid ** if a non-root effective-uid calls setuid(real-uid) ** making it possible to set it back again later. */ syserr("drop_privileges: Unable to drop non-root set-user-ID privileges"); rval = EX_OSERR; } } if ((to_real_uid || RunAsGid != 0) && rval == EX_OK && RunAsGid != EffGid && getuid() != 0 && geteuid() != 0) { errno = 0; if (setgid(EffGid) == 0) { syserr("drop_privileges: setgid(%d) succeeded (when it should not)", (int) EffGid); rval = EX_OSERR; } } if (tTd(47, 5)) { sm_dprintf("drop_privileges: e/ruid = %d/%d e/rgid = %d/%d\n", (int) geteuid(), (int) getuid(), (int) getegid(), (int) getgid()); sm_dprintf("drop_privileges: RunAsUser = %d:%d\n", (int) RunAsUid, (int) RunAsGid); if (tTd(47, 10)) sm_dprintf("drop_privileges: rval = %d\n", rval); } return rval; } /* ** FILL_FD -- make sure a file descriptor has been properly allocated ** ** Used to make sure that stdin/out/err are allocated on startup ** ** Parameters: ** fd -- the file descriptor to be filled. ** where -- a string used for logging. If NULL, this is ** being called on startup, and logging should ** not be done. ** ** Returns: ** none ** ** Side Effects: ** possibly changes MissingFds */ void fill_fd(fd, where) int fd; char *where; { int i; struct stat stbuf; if (fstat(fd, &stbuf) >= 0 || errno != EBADF) return; if (where != NULL) syserr("fill_fd: %s: fd %d not open", where, fd); else MissingFds |= 1 << fd; i = open(SM_PATH_DEVNULL, fd == 0 ? O_RDONLY : O_WRONLY, 0666); if (i < 0) { syserr("!fill_fd: %s: cannot open %s", where == NULL ? "startup" : where, SM_PATH_DEVNULL); } if (fd != i) { (void) dup2(i, fd); (void) close(i); } } /* ** SM_PRINTOPTIONS -- print options ** ** Parameters: ** options -- array of options. ** ** Returns: ** none. */ static void sm_printoptions(options) char **options; { int ll; char **av; av = options; ll = 7; while (*av != NULL) { if (ll + strlen(*av) > 63) { sm_dprintf("\n"); ll = 0; } if (ll == 0) sm_dprintf("\t\t"); else sm_dprintf(" "); sm_dprintf("%s", *av); ll += strlen(*av++) + 1; } sm_dprintf("\n"); } /* ** TO8BIT -- convert \octal sequences in a test mode input line ** ** Parameters: ** str -- the input line. ** mq -- "quote" meta chars? ** ** Returns: ** meta quoting performed? ** ** Side Effects: ** replaces \0octal in str with octal value, ** optionally (meta) quotes meta chars. */ static bool to8bit __P((char *, bool)); static bool to8bit(str, mq) char *str; bool mq; { int c, len; char *out, *in; if (str == NULL) return false; in = out = str; len = 0; while ((c = (*str++ & 0377)) != '\0') { int oct, nxtc; ++len; if (c == '\\' && (nxtc = (*str & 0377)) == '0') { oct = 0; while ((nxtc = (*str & 0377)) != '\0' && isascii(nxtc) && isdigit(nxtc)) { oct <<= 3; oct += nxtc - '0'; ++str; ++len; } mq = true; c = oct; } *out++ = c; } *out++ = c; if (mq) { char *q; q = quote_internal_chars(in, in, &len, NULL); if (q != in) sm_strlcpy(in, q, len); } return mq; } /* ** TESTMODELINE -- process a test mode input line ** ** Parameters: ** line -- the input line. ** e -- the current environment. ** Syntax: ** # a comment ** .X process X as a configuration line ** =X dump a configuration item (such as mailers) ** $X dump a macro or class ** /X try an activity ** X normal process through rule set X */ static void testmodeline(line, e) char *line; ENVELOPE *e; { register char *p; char *q; auto char *delimptr; int mid; int i, rs; STAB *map; char **s; struct rewrite *rw; ADDRESS a; char *lbp; auto int lbs; static int tryflags = RF_COPYNONE; char exbuf[MAXLINE]; char lbuf[MAXLINE]; extern unsigned char TokTypeNoC[]; bool eightbit; #if _FFR_8BITENVADDR int len = sizeof(exbuf); #endif #if _FFR_TESTS extern void t_hostsig __P((ADDRESS *, char *, MAILER *)); extern void t_parsehostsig __P((char *, MAILER *)); #endif /* skip leading spaces */ while (*line == ' ') line++; lbp = NULL; eightbit = false; maps_reset_chged("testmodeline"); switch (line[0]) { case '#': case '\0': return; case '?': help("-bt", e); return; case '.': /* config-style settings */ switch (line[1]) { case 'D': mid = macid_parse(&line[2], &delimptr); if (mid == 0) return; lbs = sizeof(lbuf); lbp = translate_dollars(delimptr, lbuf, &lbs); macdefine(&e->e_macro, A_TEMP, mid, lbp); if (lbp != lbuf) SM_FREE(lbp); break; case 'C': if (line[2] == '\0') /* not to call syserr() */ return; mid = macid_parse(&line[2], &delimptr); if (mid == 0) return; lbs = sizeof(lbuf); lbp = translate_dollars(delimptr, lbuf, &lbs); expand(lbp, exbuf, sizeof(exbuf), e); if (lbp != lbuf) SM_FREE(lbp); p = exbuf; while (*p != '\0') { register char *wd; char delim; while (*p != '\0' && SM_ISSPACE(*p)) p++; wd = p; while (*p != '\0' && !(SM_ISSPACE(*p))) p++; delim = *p; *p = '\0'; if (wd[0] != '\0') setclass(mid, wd); *p = delim; } break; case '\0': (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: .[DC]macro value(s)\n"); break; default: (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Unknown \".\" command %s\n", line); break; } return; case '=': /* config-style settings */ switch (line[1]) { case 'S': /* dump rule set */ rs = strtorwset(&line[2], NULL, ST_FIND); if (rs < 0) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Undefined ruleset %s\n", &line[2]); return; } rw = RewriteRules[rs]; if (rw == NULL) return; do { (void) sm_io_putc(smioout, SM_TIME_DEFAULT, 'R'); s = rw->r_lhs; while (*s != NULL) { xputs(smioout, *s++); (void) sm_io_putc(smioout, SM_TIME_DEFAULT, ' '); } (void) sm_io_putc(smioout, SM_TIME_DEFAULT, '\t'); (void) sm_io_putc(smioout, SM_TIME_DEFAULT, '\t'); s = rw->r_rhs; while (*s != NULL) { xputs(smioout, *s++); (void) sm_io_putc(smioout, SM_TIME_DEFAULT, ' '); } (void) sm_io_putc(smioout, SM_TIME_DEFAULT, '\n'); } while ((rw = rw->r_next) != NULL); break; case 'M': for (i = 0; i < MAXMAILERS; i++) { if (Mailer[i] != NULL) printmailer(smioout, Mailer[i]); } break; case '\0': (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: =Sruleset or =M\n"); break; default: (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Unknown \"=\" command %s\n", line); break; } return; case '-': /* set command-line-like opts */ switch (line[1]) { case 'd': tTflag(&line[2]); break; case '\0': (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: -d{debug arguments}\n"); break; default: (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Unknown \"-\" command %s\n", line); break; } return; case '$': if (line[1] == '=') { #if _FFR_DYN_CLASS MAP *dynmap; STAB *st; #endif mid = macid(&line[2]); #if _FFR_DYN_CLASS if (mid != 0 && (st = stab(macname(mid), ST_DYNMAP, ST_FIND)) != NULL) { dynmap = &st->s_dynclass; q = dynmap->map_class->map_cname; if (SM_IS_EMPTY(q)) q = "implicit"; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "$=%s not possible for a dynamic class, use\n", line + 2); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "makemap -u %s %s", q, dynmap->map_file); if (!SM_IS_EMPTY(dynmap->map_tag)) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " | grep -i '^%s:'", dynmap->map_tag); } (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n"); return; } #endif if (mid != 0) stabapply(dump_class, mid); return; } mid = macid(&line[1]); if (mid == 0) return; p = macvalue(mid, e); if (p == NULL) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Undefined\n"); else { xputs(smioout, p); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n"); } return; case '/': /* miscellaneous commands */ p = &line[strlen(line)]; while (--p >= line && SM_ISSPACE(*p)) *p = '\0'; p = strpbrk(line, " \t"); if (p != NULL) { while (SM_ISSPACE(*p)) *p++ = '\0'; } else p = ""; if (line[1] == '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: /[canon|map|mx|parse|try|tryflags]\n"); return; } if (SM_STRCASEEQ(&line[1], "quit")) { CurEnv->e_id = NULL; finis(true, true, ExitStat); /* NOTREACHED */ } if (SM_STRCASEEQ(&line[1], "mx")) { #if NAMED_BIND /* look up MX records */ int nmx; auto int rcode; char *mxhosts[MAXMXHOSTS + 1]; if (*p == '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: /mx address\n"); return; } nmx = getmxrr(p, mxhosts, NULL, TRYFALLBACK, &rcode, NULL, -1, NULL); if (nmx == NULLMX) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "getmxrr(%s) returns null MX (See RFC7505)\n", p); else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "getmxrr(%s) returns %d value(s):\n", p, nmx); for (i = 0; i < nmx; i++) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\t%s\n", mxhosts[i]); #else /* NAMED_BIND */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "No MX code compiled in\n"); #endif /* NAMED_BIND */ } else if (SM_STRCASEEQ(&line[1], "canon")) { char host[MAXHOSTNAMELEN]; if (*p == '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: /canon address\n"); return; } else if (sm_strlcpy(host, p, sizeof(host)) >= sizeof(host)) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Name too long\n"); return; } (void) getcanonname(host, sizeof(host), !HasWildcardMX, NULL); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "getcanonname(%s) returns %s\n", p, host); } else if (SM_STRCASEEQ(&line[1], "map")) { auto int rcode = EX_OK; char *av[2]; if (*p == '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: /map mapname key\n"); return; } for (q = p; *q != '\0' && !(SM_ISSPACE(*q)); q++) continue; if (*q == '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "No key specified\n"); return; } *q++ = '\0'; map = stab(p, ST_MAP, ST_FIND); if (map == NULL) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Map named \"%s\" not found\n", p); return; } if (!bitset(MF_OPEN, map->s_map.map_mflags) && !openmap(&(map->s_map))) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Map named \"%s\" not open\n", p); return; } (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "map_lookup: %s (%s) ", p, q); av[0] = q; av[1] = NULL; p = (*map->s_map.map_class->map_lookup) (&map->s_map, q, av, &rcode); if (p == NULL) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "no match (%d)\n", rcode); else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "returns %s (%d)\n", p, rcode); } else if (SM_STRCASEEQ(&line[1], "sender")) { setsender(p, CurEnv, NULL, '\0', false); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "addr=%s\n", e->e_from.q_user); } else if (SM_STRCASEEQ(&line[1], "expand")) { if (*p == '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: /expand string\n"); return; } expand(p, exbuf, sizeof(exbuf), CurEnv); xputs(smioout, exbuf); } else if (SM_STRCASEEQ(&line[1], "try")) { MAILER *m; STAB *st; auto int rcode = EX_OK; q = strpbrk(p, " \t"); if (q != NULL) { while (SM_ISSPACE(*q)) *q++ = '\0'; } if (q == NULL || *q == '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: /try mailer address\n"); return; } st = stab(p, ST_MAILER, ST_FIND); if (st == NULL) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Unknown mailer %s\n", p); return; } m = st->s_mailer; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Trying %s %s address %s for mailer %s\n", bitset(RF_HEADERADDR, tryflags) ? "header" : "envelope", bitset(RF_SENDERADDR, tryflags) ? "sender" : "recipient", q, p); #if _FFR_8BITENVADDR q = quote_internal_chars(q, exbuf, &len, NULL); #endif p = remotename(q, m, tryflags, &rcode, CurEnv); #if _FFR_8BITENVADDR dequote_internal_chars(p, exbuf, sizeof(exbuf)); p = exbuf; #endif (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Rcode = %d, addr = %s\n", rcode, p == NULL ? "" : p); e->e_to = NULL; } else if (SM_STRCASEEQ(&line[1], "tryflags")) { if (*p == '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: /tryflags [Hh|Ee][Ss|Rr]\n"); return; } for (; *p != '\0'; p++) { switch (*p) { case 'H': case 'h': tryflags |= RF_HEADERADDR; break; case 'E': case 'e': tryflags &= ~RF_HEADERADDR; break; case 'S': case 's': tryflags |= RF_SENDERADDR; break; case 'R': case 'r': tryflags &= ~RF_SENDERADDR; break; } } exbuf[0] = bitset(RF_HEADERADDR, tryflags) ? 'h' : 'e'; exbuf[1] = ' '; exbuf[2] = bitset(RF_SENDERADDR, tryflags) ? 's' : 'r'; exbuf[3] = '\0'; macdefine(&e->e_macro, A_TEMP, macid("{addr_type}"), exbuf); } else if (SM_STRCASEEQ(&line[1], "parse") #if _FFR_TESTS || SM_STRCASEEQ(&line[1], "hostsig") #endif ) { if (*p == '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Usage: /parse address\n"); return; } #if _FFR_8BITENVADDR p = quote_internal_chars(p, exbuf, &len, NULL); #endif q = crackaddr(p, e); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Cracked address = "); xputs(smioout, q); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\nParsing %s %s address\n", bitset(RF_HEADERADDR, tryflags) ? "header" : "envelope", bitset(RF_SENDERADDR, tryflags) ? "sender" : "recipient"); /* XXX p must be [i] */ if (parseaddr(p, &a, tryflags, '\0', NULL, e, true) == NULL) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Cannot parse\n"); else if (a.q_host != NULL && a.q_host[0] != '\0') { #if _FFR_TESTS if (SM_STRCASEEQ(&line[1], "hostsig")) t_hostsig(&a, NULL, NULL); else #endif /* _FFR_TESTS */ { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "mailer %s, host %s, user %s\n", a.q_mailer->m_name, a.q_host, a.q_user); } } else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "mailer %s, user %s\n", a.q_mailer->m_name, a.q_user); e->e_to = NULL; } else if (SM_STRCASEEQ(&line[1], "header")) { unsigned long ul; ul = chompheader(p, CHHDR_CHECK|CHHDR_USER, NULL, e); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "ul = %#0.8lx\n", ul); } #if NETINET || NETINET6 else if (SM_STRCASEEQ(&line[1], "gethostbyname")) { int family = AF_INET; q = strpbrk(p, " \t"); if (q != NULL) { while (SM_ISSPACE(*q)) *q++ = '\0'; # if NETINET6 if (*q != '\0' && (strcmp(q, "inet6") == 0 || strcmp(q, "AAAA") == 0)) family = AF_INET6; # endif /* NETINET6 */ } (void) sm_gethostbyname(p, family); } #endif /* NETINET || NETINET6 */ #if DANE else if (SM_STRCASEEQ(&line[1], "dnslookup")) { DNS_REPLY_T *r; int rr_type, family; unsigned int flags; rr_type = T_A; family = AF_INET; flags = RR_AS_TEXT; q = strpbrk(p, " \t"); if (q != NULL) { char *pflags; while (SM_ISSPACE(*q)) *q++ = '\0'; pflags = strpbrk(q, " \t"); if (pflags != NULL) { while (SM_ISSPACE(*pflags)) *pflags++ = '\0'; } rr_type = dns_string_to_type(q); if (rr_type == T_A) family = AF_INET; # if NETINET6 if (rr_type == T_AAAA) family = AF_INET6; # endif while (pflags != NULL && *pflags != '\0' && !SM_ISSPACE(*pflags)) { if (*pflags == 'c') flags |= RR_NO_CNAME; else if (*pflags == 'o') flags |= RR_ONLY_CNAME; else if (*pflags == 'T') flags &= ~RR_AS_TEXT; ++pflags; } } r = dns_lookup_int(p, C_IN, rr_type, 0, 0, 0, flags, NULL, NULL); if (r != NULL && family >= 0) { (void) dns2he(r, family); dns_free_data(r); r = NULL; } } # if _FFR_TESTS else if (SM_STRCASEEQ(&line[1], "hostsignature")) { STAB *st; MAILER *m; st = stab("esmtp", ST_MAILER, ST_FIND); if (NULL == st) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Unknown mailer esmtp\n"); return; } m = st->s_mailer; if (NULL == m) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Unknown mailer esmtp\n"); return; } t_hostsig(NULL, p, m); } else if (SM_STRCASEEQ(&line[1], "parsesig")) t_parsehostsig(p, NULL); # endif /* _FFR_TESTS */ #endif /* DANE */ else { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Unknown \"/\" command %s\n", line); } (void) sm_io_flush(smioout, SM_TIME_DEFAULT); return; } for (p = line; SM_ISSPACE(*p); p++) continue; q = p; while (*p != '\0' && !(SM_ISSPACE(*p))) p++; if (*p == '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "No address!\n"); return; } *p = '\0'; if (tTd(23, 101)) eightbit = to8bit(p + 1, tTd(23, 102)); if (invalidaddr(p + 1, NULL, true)) return; do { register char **pvp; char pvpbuf[PSBUFSIZE]; pvp = prescan(++p, ',', pvpbuf, sizeof(pvpbuf), &delimptr, tTd(23, 103) ? ExtTokenTab : ConfigLevel >= 9 ? TokTypeNoC : ExtTokenTab, false); if (pvp == NULL) continue; p = q; while (*p != '\0') { int status; rs = strtorwset(p, NULL, ST_FIND); if (rs < 0) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Undefined ruleset %s\n", p); break; } status = REWRITE(pvp, rs, e); if (status != EX_OK) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "== Ruleset %s (%d) status %d\n", p, rs, status); else if (eightbit) { cataddr(pvp, NULL, exbuf, sizeof(exbuf), '\0', true); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "cataddr: %s\n", str2prt(exbuf)); } while (*p != '\0' && *p++ != ',') continue; } } while (*(p = delimptr) != '\0'); (void) sm_io_flush(smioout, SM_TIME_DEFAULT); } static void dump_class(s, id) register STAB *s; int id; { if (s->s_symtype != ST_CLASS) return; if (bitnset(bitidx(id), s->s_class)) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s\n", s->s_name); } /* ** An exception type used to create QuickAbort exceptions. ** This is my first cut at converting QuickAbort from longjmp to exceptions. ** These exceptions have a single integer argument, which is the argument ** to longjmp in the original code (either 1 or 2). I don't know the ** significance of 1 vs 2: the calls to setjmp don't care. */ const SM_EXC_TYPE_T EtypeQuickAbort = { SmExcTypeMagic, "E:mta.quickabort", "i", sm_etype_printf, "quick abort %0", }; sendmail-8.18.1/sendmail/stats.c0000644000372400037240000001030114556365350016060 0ustar xbuildxbuild/* * Copyright (c) 1998-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: stats.c,v 8.58 2013-11-22 20:51:56 ca Exp $") #include static struct statistics Stat; static bool GotStats = false; /* set when we have stats to merge */ /* See http://physics.nist.gov/cuu/Units/binary.html */ #define ONE_K 1000 /* one thousand (twenty-four?) */ #define KBYTES(x) (((x) + (ONE_K - 1)) / ONE_K) /* ** MARKSTATS -- mark statistics ** ** Parameters: ** e -- the envelope. ** to -- to address. ** type -- type of stats this represents. ** ** Returns: ** none. ** ** Side Effects: ** changes static Stat structure */ void markstats(e, to, type) register ENVELOPE *e; register ADDRESS *to; int type; { switch (type) { case STATS_QUARANTINE: if (e->e_from.q_mailer != NULL) Stat.stat_nq[e->e_from.q_mailer->m_mno]++; break; case STATS_REJECT: if (e->e_from.q_mailer != NULL) { if (bitset(EF_DISCARD, e->e_flags)) Stat.stat_nd[e->e_from.q_mailer->m_mno]++; else Stat.stat_nr[e->e_from.q_mailer->m_mno]++; } Stat.stat_cr++; break; case STATS_CONNECT: if (to == NULL) Stat.stat_cf++; else Stat.stat_ct++; break; case STATS_NORMAL: if (to == NULL) { if (e->e_from.q_mailer != NULL) { Stat.stat_nf[e->e_from.q_mailer->m_mno]++; Stat.stat_bf[e->e_from.q_mailer->m_mno] += KBYTES(e->e_msgsize); } } else { Stat.stat_nt[to->q_mailer->m_mno]++; Stat.stat_bt[to->q_mailer->m_mno] += KBYTES(e->e_msgsize); } break; default: /* Silently ignore bogus call */ return; } GotStats = true; } /* ** CLEARSTATS -- clear statistics structure ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** clears the Stat structure. */ void clearstats() { /* clear the structure to avoid future disappointment */ memset(&Stat, '\0', sizeof(Stat)); GotStats = false; } /* ** POSTSTATS -- post statistics in the statistics file ** ** Parameters: ** sfile -- the name of the statistics file. ** ** Returns: ** none. ** ** Side Effects: ** merges the Stat structure with the sfile file. */ void poststats(sfile) char *sfile; { int fd; static bool entered = false; long sff = SFF_REGONLY|SFF_OPENASROOT; struct statistics stats; extern off_t lseek __P((int, off_t, int)); if (sfile == NULL || *sfile == '\0' || !GotStats || entered) return; entered = true; (void) time(&Stat.stat_itime); Stat.stat_size = sizeof(Stat); Stat.stat_magic = STAT_MAGIC; Stat.stat_version = STAT_VERSION; if (!bitnset(DBS_WRITESTATSTOSYMLINK, DontBlameSendmail)) sff |= SFF_NOSLINK; if (!bitnset(DBS_WRITESTATSTOHARDLINK, DontBlameSendmail)) sff |= SFF_NOHLINK; fd = safeopen(sfile, O_RDWR, 0600, sff); if (fd < 0) { if (LogLevel > 12) sm_syslog(LOG_INFO, NOQID, "poststats: %s: %s", sfile, sm_errstring(errno)); errno = 0; entered = false; return; } if (read(fd, (char *) &stats, sizeof(stats)) == sizeof(stats) && stats.stat_size == sizeof(stats) && stats.stat_magic == Stat.stat_magic && stats.stat_version == Stat.stat_version) { /* merge current statistics into statfile */ register int i; for (i = 0; i < MAXMAILERS; i++) { stats.stat_nf[i] += Stat.stat_nf[i]; stats.stat_bf[i] += Stat.stat_bf[i]; stats.stat_nt[i] += Stat.stat_nt[i]; stats.stat_bt[i] += Stat.stat_bt[i]; stats.stat_nr[i] += Stat.stat_nr[i]; stats.stat_nd[i] += Stat.stat_nd[i]; stats.stat_nq[i] += Stat.stat_nq[i]; } stats.stat_cr += Stat.stat_cr; stats.stat_ct += Stat.stat_ct; stats.stat_cf += Stat.stat_cf; } else memmove((char *) &stats, (char *) &Stat, sizeof(stats)); /* write out results */ (void) lseek(fd, (off_t) 0, 0); (void) write(fd, (char *) &stats, sizeof(stats)); (void) close(fd); /* clear the structure to avoid future disappointment */ clearstats(); entered = false; } sendmail-8.18.1/sendmail/daemon.h0000644000372400037240000000272514556365350016205 0ustar xbuildxbuild/* * Copyright (c) 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: daemon.h,v 8.4 2013-11-22 20:51:55 ca Exp $ */ #ifndef DAEMON_H #define DAEMON_H 1 #if DAEMON_C # define EXTERN #else # define EXTERN extern #endif /* structure to describe a daemon or a client */ struct daemon { int d_socket; /* fd for socket */ SOCKADDR d_addr; /* socket for incoming */ unsigned short d_port; /* port number */ int d_listenqueue; /* size of listen queue */ int d_tcprcvbufsize; /* size of TCP receive buffer */ int d_tcpsndbufsize; /* size of TCP send buffer */ time_t d_refuse_connections_until; bool d_firsttime; int d_socksize; BITMAP256 d_flags; /* flags; see sendmail.h */ char *d_mflags; /* flags for use in macro */ char *d_name; /* user-supplied name */ int d_dm; /* DeliveryMode */ int d_refuseLA; int d_queueLA; int d_delayLA; int d_maxchildren; #if MILTER char *d_inputfilterlist; struct milter *d_inputfilters[MAXFILTERS]; #endif #if _FFR_SS_PER_DAEMON int d_supersafe; #endif }; typedef struct daemon DAEMON_T; EXTERN DAEMON_T Daemons[MAXDAEMONS]; #define DPO_NOTSET (-1) /* daemon option (int) not set */ /* see also sendmail.h: SuperSafe values */ extern bool refuseconnections __P((ENVELOPE *, int, bool)); #undef EXTERN #endif /* ! DAEMON_H */ sendmail-8.18.1/sendmail/sfsasl.h0000644000372400037240000000120414556365350016224 0ustar xbuildxbuild/* * Copyright (c) 1999, 2000, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sfsasl.h,v 8.21 2013-11-22 20:51:56 ca Exp $" */ #ifndef SFSASL_H # define SFSASL_H # if SASL extern int sfdcsasl __P((SM_FILE_T **, SM_FILE_T **, sasl_conn_t *, int)); # endif # if STARTTLS extern int tls_retry __P((SSL *, int, int, time_t, int, int, const char *)); extern int sfdctls __P((SM_FILE_T **, SM_FILE_T **, SSL *)); # endif #endif /* ! SFSASL_H */ sendmail-8.18.1/sendmail/Makefile0000644000372400037240000000053314556365350016224 0ustar xbuildxbuild# $Id: Makefile,v 8.12 2006-08-29 22:00:11 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/sendmail/mime.c0000644000372400037240000007532414556365350015671 0ustar xbuildxbuild/* * Copyright (c) 1998-2003, 2006, 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1994, 1996-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1994 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include SM_RCSID("@(#)$Id: mime.c,v 8.149 2013-11-22 20:51:56 ca Exp $") #include /* ** MIME support. ** ** I am indebted to John Beck of Hewlett-Packard, who contributed ** his code to me for inclusion. As it turns out, I did not use ** his code since he used a "minimum change" approach that used ** several temp files, and I wanted a "minimum impact" approach ** that would avoid copying. However, looking over his code ** helped me cement my understanding of the problem. ** ** I also looked at, but did not directly use, Nathaniel ** Borenstein's "code.c" module. Again, it functioned as ** a file-to-file translator, which did not fit within my ** design bounds, but it was a useful base for understanding ** the problem. */ /* use "old" mime 7 to 8 algorithm by default */ #ifndef MIME7TO8_OLD # define MIME7TO8_OLD 1 #endif #if MIME8TO7 static int isboundary __P((char *, char **)); static int mimeboundary __P((char *, char **)); static int mime_getchar __P((SM_FILE_T *, char **, int *)); static int mime_getchar_crlf __P((SM_FILE_T *, char **, int *)); /* character set for hex and base64 encoding */ static char Base16Code[] = "0123456789ABCDEF"; static char Base64Code[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; /* types of MIME boundaries */ # define MBT_SYNTAX 0 /* syntax error */ # define MBT_NOTSEP 1 /* not a boundary */ # define MBT_INTERMED 2 /* intermediate boundary (no trailing --) */ # define MBT_FINAL 3 /* final boundary (trailing -- included) */ static char *MimeBoundaryNames[] = { "SYNTAX", "NOTSEP", "INTERMED", "FINAL" }; static bool MapNLtoCRLF; /* ** MIME8TO7 -- output 8 bit body in 7 bit format ** ** The header has already been output -- this has to do the ** 8 to 7 bit conversion. It would be easy if we didn't have ** to deal with nested formats (multipart/xxx and message/rfc822). ** ** We won't be called if we don't have to do a conversion, and ** appropriate MIME-Version: and Content-Type: fields have been ** output. Any Content-Transfer-Encoding: field has not been ** output, and we can add it here. ** ** Parameters: ** mci -- mailer connection information. ** header -- the header for this body part. ** e -- envelope. ** boundaries -- the currently pending message boundaries. ** NULL if we are processing the outer portion. ** flags -- to tweak processing. ** level -- recursion level. ** ** Returns: ** An indicator of what terminated the message part: ** MBT_FINAL -- the final boundary ** MBT_INTERMED -- an intermediate boundary ** MBT_NOTSEP -- an end of file ** SM_IO_EOF -- I/O error occurred */ struct args { char *a_field; /* name of field */ char *a_value; /* value of that field */ }; int mime8to7(mci, header, e, boundaries, flags, level) register MCI *mci; HDR *header; register ENVELOPE *e; char **boundaries; int flags; int level; { register char *p; int linelen; int blen; int bt; off_t offset; size_t sectionsize, sectionhighbits; int i; char *type; char *subtype; char *cte; char **pvp; int argc = 0; char *bp; bool use_qp = false; struct args argv[MAXMIMEARGS]; char bbuf[128]; char buf[MAXLINE]; char pvpbuf[MAXLINE]; extern unsigned char MimeTokenTab[256]; if (level > MAXMIMENESTING) { if (!bitset(EF_TOODEEP, e->e_flags)) { if (tTd(43, 4)) sm_dprintf("mime8to7: too deep, level=%d\n", level); usrerr("mime8to7: recursion level %d exceeded", level); e->e_flags |= EF_DONT_MIME|EF_TOODEEP; } } if (tTd(43, 1)) { sm_dprintf("mime8to7: flags = %x, boundaries =", flags); if (boundaries[0] == NULL) sm_dprintf(" "); else { for (i = 0; boundaries[i] != NULL; i++) sm_dprintf(" %s", boundaries[i]); } sm_dprintf("\n"); } MapNLtoCRLF = true; p = hvalue("Content-Transfer-Encoding", header); if (p == NULL || (pvp = prescan(p, '\0', pvpbuf, sizeof(pvpbuf), NULL, MimeTokenTab, false)) == NULL || pvp[0] == NULL) { cte = NULL; } else { cataddr(pvp, NULL, buf, sizeof(buf), '\0', false); cte = sm_rpool_strdup_x(e->e_rpool, buf); } type = subtype = NULL; p = hvalue("Content-Type", header); if (p == NULL) { if (bitset(M87F_DIGEST, flags)) p = "message/rfc822"; else p = "text/plain"; } if (p != NULL && (pvp = prescan(p, '\0', pvpbuf, sizeof(pvpbuf), NULL, MimeTokenTab, false)) != NULL && pvp[0] != NULL) { if (tTd(43, 40)) { for (i = 0; pvp[i] != NULL; i++) sm_dprintf("pvp[%d] = \"%s\"\n", i, pvp[i]); } type = *pvp++; if (*pvp != NULL && strcmp(*pvp, "/") == 0 && *++pvp != NULL) { subtype = *pvp++; } /* break out parameters */ while (*pvp != NULL && argc < MAXMIMEARGS) { /* skip to semicolon separator */ while (*pvp != NULL && strcmp(*pvp, ";") != 0) pvp++; if (*pvp++ == NULL || *pvp == NULL) break; /* complain about empty values */ if (strcmp(*pvp, ";") == 0) { usrerr("mime8to7: Empty parameter in Content-Type header"); /* avoid bounce loops */ e->e_flags |= EF_DONT_MIME; continue; } /* extract field name */ argv[argc].a_field = *pvp++; /* see if there is a value */ if (*pvp != NULL && strcmp(*pvp, "=") == 0 && (*++pvp == NULL || strcmp(*pvp, ";") != 0)) { argv[argc].a_value = *pvp; argc++; } } } /* check for disaster cases */ if (type == NULL) type = "-none-"; if (subtype == NULL) subtype = "-none-"; /* don't propagate some flags more than one level into the message */ flags &= ~M87F_DIGEST; /* ** Check for cases that can not be encoded. ** ** For example, you can't encode certain kinds of types ** or already-encoded messages. If we find this case, ** just copy it through. */ (void) sm_snprintf(buf, sizeof(buf), "%.100s/%.100s", type, subtype); if (wordinclass(buf, 'n') || (cte != NULL && !wordinclass(cte, 'e'))) flags |= M87F_NO8BIT; # ifdef USE_B_CLASS if (wordinclass(buf, 'b') || wordinclass(type, 'b')) MapNLtoCRLF = false; # endif if (wordinclass(buf, 'q') || wordinclass(type, 'q')) use_qp = true; /* ** Multipart requires special processing. ** ** Do a recursive descent into the message. */ if (SM_STRCASEEQ(type, "multipart") && (!bitset(M87F_NO8BIT, flags) || bitset(M87F_NO8TO7, flags)) && !bitset(EF_TOODEEP, e->e_flags) ) { if (SM_STRCASEEQ(subtype, "digest")) flags |= M87F_DIGEST; for (i = 0; i < argc; i++) { if (SM_STRCASEEQ(argv[i].a_field, "boundary")) break; } if (i >= argc || argv[i].a_value == NULL) { usrerr("mime8to7: Content-Type: \"%s\": %s boundary", i >= argc ? "missing" : "bogus", p); p = "---"; /* avoid bounce loops */ e->e_flags |= EF_DONT_MIME; } else { p = argv[i].a_value; unfoldstripquotes(p); } if (sm_strlcpy(bbuf, p, sizeof(bbuf)) >= sizeof(bbuf)) { usrerr("mime8to7: multipart boundary \"%s\" too long", p); /* avoid bounce loops */ e->e_flags |= EF_DONT_MIME; } if (tTd(43, 1)) sm_dprintf("mime8to7: multipart boundary \"%s\"\n", bbuf); for (i = 0; i < MAXMIMENESTING; i++) { if (boundaries[i] == NULL) break; } if (i >= MAXMIMENESTING) { if (tTd(43, 4)) sm_dprintf("mime8to7: too deep, i=%d\n", i); if (!bitset(EF_TOODEEP, e->e_flags)) usrerr("mime8to7: multipart nesting boundary too deep"); /* avoid bounce loops */ e->e_flags |= EF_DONT_MIME|EF_TOODEEP; } else { boundaries[i] = bbuf; boundaries[i + 1] = NULL; } mci->mci_flags |= MCIF_INMIME; /* skip the early "comment" prologue */ if (!putline("", mci)) goto writeerr; mci->mci_flags &= ~MCIF_INHEADER; bt = MBT_FINAL; while ((blen = sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf))) >= 0) { bt = mimeboundary(buf, boundaries); if (bt != MBT_NOTSEP) break; if (!putxline(buf, blen, mci, PXLF_MAPFROM|PXLF_STRIP8BIT)) goto writeerr; if (tTd(43, 99)) sm_dprintf(" ...%s", buf); } if (sm_io_eof(e->e_dfp)) bt = MBT_FINAL; while (bt != MBT_FINAL) { auto HDR *hdr = NULL; (void) sm_strlcpyn(buf, sizeof(buf), 2, "--", bbuf); if (!putline(buf, mci)) goto writeerr; if (tTd(43, 35)) sm_dprintf(" ...%s\n", buf); collect(e->e_dfp, SMTPMODE_NO, &hdr, e, false); if (tTd(43, 101)) putline("+++after collect", mci); if (!putheader(mci, hdr, e, flags)) goto writeerr; if (tTd(43, 101)) putline("+++after putheader", mci); bt = mime8to7(mci, hdr, e, boundaries, flags, level + 1); if (bt == SM_IO_EOF) goto writeerr; } (void) sm_strlcpyn(buf, sizeof(buf), 3, "--", bbuf, "--"); if (!putline(buf, mci)) goto writeerr; if (tTd(43, 35)) sm_dprintf(" ...%s\n", buf); boundaries[i] = NULL; mci->mci_flags &= ~MCIF_INMIME; /* skip the late "comment" epilogue */ while ((blen = sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf))) >= 0) { bt = mimeboundary(buf, boundaries); if (bt != MBT_NOTSEP) break; if (!putxline(buf, blen, mci, PXLF_MAPFROM|PXLF_STRIP8BIT)) goto writeerr; if (tTd(43, 99)) sm_dprintf(" ...%s", buf); } if (sm_io_eof(e->e_dfp)) bt = MBT_FINAL; if (tTd(43, 3)) sm_dprintf("\t\t\tmime8to7=>%s (multipart)\n", MimeBoundaryNames[bt]); return bt; } /* ** Message/xxx types -- recurse exactly once. ** ** Class 's' is predefined to have "rfc822" only. */ if (SM_STRCASEEQ(type, "message")) { if (!wordinclass(subtype, 's') || bitset(EF_TOODEEP, e->e_flags)) { flags |= M87F_NO8BIT; } else { auto HDR *hdr = NULL; if (!putline("", mci)) goto writeerr; mci->mci_flags |= MCIF_INMIME; collect(e->e_dfp, SMTPMODE_NO, &hdr, e, false); if (tTd(43, 101)) putline("+++after collect", mci); if (!putheader(mci, hdr, e, flags)) goto writeerr; if (tTd(43, 101)) putline("+++after putheader", mci); if (hvalue("MIME-Version", hdr) == NULL && !bitset(M87F_NO8TO7, flags) && !putline("MIME-Version: 1.0", mci)) goto writeerr; bt = mime8to7(mci, hdr, e, boundaries, flags, level + 1); mci->mci_flags &= ~MCIF_INMIME; return bt; } } /* ** Non-compound body type ** ** Compute the ratio of seven to eight bit characters; ** use that as a heuristic to decide how to do the ** encoding. */ sectionsize = sectionhighbits = 0; if (!bitset(M87F_NO8BIT|M87F_NO8TO7, flags)) { /* remember where we were */ offset = sm_io_tell(e->e_dfp, SM_TIME_DEFAULT); if (offset == -1) syserr("mime8to7: cannot sm_io_tell on %cf%s", DATAFL_LETTER, e->e_id); /* do a scan of this body type to count character types */ while ((blen = sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf))) >= 0) { if (mimeboundary(buf, boundaries) != MBT_NOTSEP) break; for (i = 0; i < blen; i++) { /* count bytes with the high bit set */ sectionsize++; if (bitset(0200, buf[i])) sectionhighbits++; } /* ** Heuristic: if 1/4 of the first 4K bytes are 8-bit, ** assume base64. This heuristic avoids double-reading ** large graphics or video files. */ if (sectionsize >= 4096 && sectionhighbits > sectionsize / 4) break; } /* return to the original offset for processing */ /* XXX use relative seeks to handle >31 bit file sizes? */ if (sm_io_seek(e->e_dfp, SM_TIME_DEFAULT, offset, SEEK_SET) < 0) syserr("mime8to7: cannot sm_io_fseek on %cf%s", DATAFL_LETTER, e->e_id); else sm_io_clearerr(e->e_dfp); } /* ** Heuristically determine encoding method. ** If more than 1/8 of the total characters have the ** eighth bit set, use base64; else use quoted-printable. ** However, only encode binary encoded data as base64, ** since otherwise the LF=>CRLF mapping will be a problem. */ if (tTd(43, 8)) { sm_dprintf("mime8to7: %ld high bit(s) in %ld byte(s), cte=%s, type=%s/%s\n", (long) sectionhighbits, (long) sectionsize, cte == NULL ? "[none]" : cte, type == NULL ? "[none]" : type, subtype == NULL ? "[none]" : subtype); } if (cte != NULL && SM_STRCASEEQ(cte, "binary")) sectionsize = sectionhighbits; linelen = 0; bp = buf; if (sectionhighbits == 0) { /* no encoding necessary */ if (cte != NULL && bitset(MCIF_CVT8TO7|MCIF_CVT7TO8|MCIF_INMIME, mci->mci_flags) && !bitset(M87F_NO8TO7, flags)) { /* ** Skip _unless_ in MIME mode and potentially ** converting from 8 bit to 7 bit MIME. See ** putheader() for the counterpart where the ** CTE header is skipped in the opposite ** situation. */ (void) sm_snprintf(buf, sizeof(buf), "Content-Transfer-Encoding: %.200s", cte); if (!putline(buf, mci)) goto writeerr; if (tTd(43, 36)) sm_dprintf(" ...%s\n", buf); } if (!putline("", mci)) goto writeerr; mci->mci_flags &= ~MCIF_INHEADER; while ((blen = sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf))) >= 0) { if (!bitset(MCIF_INLONGLINE, mci->mci_flags)) { bt = mimeboundary(buf, boundaries); if (bt != MBT_NOTSEP) break; } if (!putxline(buf, blen, mci, PXLF_MAPFROM|PXLF_NOADDEOL)) goto writeerr; } if (sm_io_eof(e->e_dfp)) bt = MBT_FINAL; } else if (!MapNLtoCRLF || (sectionsize / 8 < sectionhighbits && !use_qp)) { /* use base64 encoding */ int c1, c2; if (tTd(43, 36)) sm_dprintf(" ...Content-Transfer-Encoding: base64\n"); if (!putline("Content-Transfer-Encoding: base64", mci)) goto writeerr; (void) sm_snprintf(buf, sizeof(buf), "X-MIME-Autoconverted: from 8bit to base64 by %s id %s", MyHostName, e->e_id); if (!putline(buf, mci) || !putline("", mci)) goto writeerr; mci->mci_flags &= ~MCIF_INHEADER; while ((c1 = mime_getchar_crlf(e->e_dfp, boundaries, &bt)) != SM_IO_EOF) { if (linelen > 71) { *bp = '\0'; if (!putline(buf, mci)) goto writeerr; linelen = 0; bp = buf; } linelen += 4; *bp++ = Base64Code[(c1 >> 2)]; c1 = (c1 & 0x03) << 4; c2 = mime_getchar_crlf(e->e_dfp, boundaries, &bt); if (c2 == SM_IO_EOF) { *bp++ = Base64Code[c1]; *bp++ = '='; *bp++ = '='; break; } c1 |= (c2 >> 4) & 0x0f; *bp++ = Base64Code[c1]; c1 = (c2 & 0x0f) << 2; c2 = mime_getchar_crlf(e->e_dfp, boundaries, &bt); if (c2 == SM_IO_EOF) { *bp++ = Base64Code[c1]; *bp++ = '='; break; } c1 |= (c2 >> 6) & 0x03; *bp++ = Base64Code[c1]; *bp++ = Base64Code[c2 & 0x3f]; } *bp = '\0'; if (!putline(buf, mci)) goto writeerr; } else { /* use quoted-printable encoding */ int c1, c2; int fromstate; BITMAP256 badchars; /* set up map of characters that must be mapped */ clrbitmap(badchars); for (c1 = 0x00; c1 < 0x20; c1++) setbitn(c1, badchars); clrbitn('\t', badchars); for (c1 = 0x7f; c1 < 0x100; c1++) setbitn(c1, badchars); setbitn('=', badchars); if (bitnset(M_EBCDIC, mci->mci_mailer->m_flags)) for (p = "!\"#$@[\\]^`{|}~"; *p != '\0'; p++) setbitn(*p, badchars); if (tTd(43, 36)) sm_dprintf(" ...Content-Transfer-Encoding: quoted-printable\n"); if (!putline("Content-Transfer-Encoding: quoted-printable", mci)) goto writeerr; (void) sm_snprintf(buf, sizeof(buf), "X-MIME-Autoconverted: from 8bit to quoted-printable by %s id %s", MyHostName, e->e_id); if (!putline(buf, mci) || !putline("", mci)) goto writeerr; mci->mci_flags &= ~MCIF_INHEADER; fromstate = 0; c2 = '\n'; while ((c1 = mime_getchar(e->e_dfp, boundaries, &bt)) != SM_IO_EOF) { if (c1 == '\n') { if (c2 == ' ' || c2 == '\t') { *bp++ = '='; *bp++ = Base16Code[(c2 >> 4) & 0x0f]; *bp++ = Base16Code[c2 & 0x0f]; } if (buf[0] == '.' && bp == &buf[1]) { buf[0] = '='; *bp++ = Base16Code[('.' >> 4) & 0x0f]; *bp++ = Base16Code['.' & 0x0f]; } *bp = '\0'; if (!putline(buf, mci)) goto writeerr; linelen = fromstate = 0; bp = buf; c2 = c1; continue; } if (c2 == ' ' && linelen == 4 && fromstate == 4 && bitnset(M_ESCFROM, mci->mci_mailer->m_flags)) { *bp++ = '='; *bp++ = '2'; *bp++ = '0'; linelen += 3; } else if (c2 == ' ' || c2 == '\t') { *bp++ = c2; linelen++; } if (linelen > 72 && (linelen > 75 || c1 != '.' || (linelen > 73 && c2 == '.'))) { if (linelen > 73 && c2 == '.') bp--; else c2 = '\n'; *bp++ = '='; *bp = '\0'; if (!putline(buf, mci)) goto writeerr; linelen = fromstate = 0; bp = buf; if (c2 == '.') { *bp++ = '.'; linelen++; } } if (bitnset(bitidx(c1), badchars)) { *bp++ = '='; *bp++ = Base16Code[(c1 >> 4) & 0x0f]; *bp++ = Base16Code[c1 & 0x0f]; linelen += 3; } else if (c1 != ' ' && c1 != '\t') { if (linelen < 4 && c1 == "From"[linelen]) fromstate++; *bp++ = c1; linelen++; } c2 = c1; } /* output any saved character */ if (c2 == ' ' || c2 == '\t') { *bp++ = '='; *bp++ = Base16Code[(c2 >> 4) & 0x0f]; *bp++ = Base16Code[c2 & 0x0f]; linelen += 3; } if (linelen > 0 || boundaries[0] != NULL) { *bp = '\0'; if (!putline(buf, mci)) goto writeerr; } } if (tTd(43, 3)) sm_dprintf("\t\t\tmime8to7=>%s (basic)\n", MimeBoundaryNames[bt]); return bt; writeerr: return SM_IO_EOF; } /* ** MIME_GETCHAR -- get a character for MIME processing ** ** Treats boundaries as SM_IO_EOF. ** ** Parameters: ** fp -- the input file. ** boundaries -- the current MIME boundaries. ** btp -- if the return value is SM_IO_EOF, *btp is set to ** the type of the boundary. ** ** Returns: ** The next character in the input stream. */ static int mime_getchar(fp, boundaries, btp) register SM_FILE_T *fp; char **boundaries; int *btp; { int c; static unsigned char *bp = NULL; static int buflen = 0; static bool atbol = true; /* at beginning of line */ static int bt = MBT_SYNTAX; /* boundary type of next SM_IO_EOF */ static unsigned char buf[128]; /* need not be a full line */ int start = 0; /* indicates position of - in buffer */ if (buflen == 1 && *bp == '\n') { /* last \n in buffer may be part of next MIME boundary */ c = *bp; } else if (buflen > 0) { buflen--; return *bp++; } else c = sm_io_getc(fp, SM_TIME_DEFAULT); bp = buf; buflen = 0; if (c == '\n') { /* might be part of a MIME boundary */ *bp++ = c; atbol = true; c = sm_io_getc(fp, SM_TIME_DEFAULT); if (c == '\n') { (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, c); return c; } start = 1; } if (c != SM_IO_EOF) *bp++ = c; else bt = MBT_FINAL; if (atbol && c == '-') { /* check for a message boundary */ c = sm_io_getc(fp, SM_TIME_DEFAULT); if (c != '-') { if (c != SM_IO_EOF) *bp++ = c; else bt = MBT_FINAL; buflen = bp - buf - 1; bp = buf; return *bp++; } /* got "--", now check for rest of separator */ *bp++ = '-'; while (bp < &buf[sizeof(buf) - 2] && (c = sm_io_getc(fp, SM_TIME_DEFAULT)) != SM_IO_EOF && c != '\n') { *bp++ = c; } *bp = '\0'; /* XXX simply cut off? */ bt = mimeboundary((char *) &buf[start], boundaries); switch (bt) { case MBT_FINAL: case MBT_INTERMED: /* we have a message boundary */ buflen = 0; *btp = bt; return SM_IO_EOF; } if (bp < &buf[sizeof(buf) - 2] && c != SM_IO_EOF) *bp++ = c; } atbol = c == '\n'; buflen = bp - buf - 1; if (buflen < 0) { *btp = bt; return SM_IO_EOF; } bp = buf; return *bp++; } /* ** MIME_GETCHAR_CRLF -- do mime_getchar, but translate LF => CRLF ** ** Parameters: ** fp -- the input file. ** boundaries -- the current MIME boundaries. ** btp -- if the return value is SM_IO_EOF, *btp is set to ** the type of the boundary. ** ** Returns: ** The next character in the input stream. */ static int mime_getchar_crlf(fp, boundaries, btp) register SM_FILE_T *fp; char **boundaries; int *btp; { static bool sendlf = false; int c; if (sendlf) { sendlf = false; return '\n'; } c = mime_getchar(fp, boundaries, btp); if (c == '\n' && MapNLtoCRLF) { sendlf = true; return '\r'; } return c; } /* ** MIMEBOUNDARY -- determine if this line is a MIME boundary & its type ** ** Parameters: ** line -- the input line. ** boundaries -- the set of currently pending boundaries. ** ** Returns: ** MBT_NOTSEP -- if this is not a separator line ** MBT_INTERMED -- if this is an intermediate separator ** MBT_FINAL -- if this is a final boundary ** MBT_SYNTAX -- if this is a boundary for the wrong ** enclosure -- i.e., a syntax error. */ static int mimeboundary(line, boundaries) register char *line; char **boundaries; { int type = MBT_NOTSEP; int i; int savec; if (line[0] != '-' || line[1] != '-' || boundaries == NULL) return MBT_NOTSEP; i = strlen(line); if (i > 0 && line[i - 1] == '\n') i--; /* strip off trailing whitespace */ while (i > 0 && (line[i - 1] == ' ' || line[i - 1] == '\t' # if _FFR_MIME_CR_OK || line[i - 1] == '\r' # endif )) i--; savec = line[i]; line[i] = '\0'; if (tTd(43, 5)) sm_dprintf("mimeboundary: line=\"%s\"... ", line); /* check for this as an intermediate boundary */ if (isboundary(&line[2], boundaries) >= 0) type = MBT_INTERMED; else if (i > 2 && strncmp(&line[i - 2], "--", 2) == 0) { /* check for a final boundary */ line[i - 2] = '\0'; if (isboundary(&line[2], boundaries) >= 0) type = MBT_FINAL; line[i - 2] = '-'; } line[i] = savec; if (tTd(43, 5)) sm_dprintf("%s\n", MimeBoundaryNames[type]); return type; } /* ** DEFCHARSET -- return default character set for message ** ** The first choice for character set is for the mailer ** corresponding to the envelope sender. If neither that ** nor the global configuration file has a default character ** set defined, return "unknown-8bit" as recommended by ** RFC 1428 section 3. ** ** Parameters: ** e -- the envelope for this message. ** ** Returns: ** The default character set for that mailer. */ char * defcharset(e) register ENVELOPE *e; { if (e != NULL && e->e_from.q_mailer != NULL && e->e_from.q_mailer->m_defcharset != NULL) return e->e_from.q_mailer->m_defcharset; if (DefaultCharSet != NULL) return DefaultCharSet; return "unknown-8bit"; } /* ** ISBOUNDARY -- is a given string a currently valid boundary? ** ** Parameters: ** line -- the current input line. ** boundaries -- the list of valid boundaries. ** ** Returns: ** The index number in boundaries if the line is found. ** -1 -- otherwise. ** */ static int isboundary(line, boundaries) char *line; char **boundaries; { register int i; for (i = 0; i <= MAXMIMENESTING && boundaries[i] != NULL; i++) { if (strcmp(line, boundaries[i]) == 0) return i; } return -1; } #endif /* MIME8TO7 */ #if MIME7TO8 static int mime_fromqp __P((unsigned char *, unsigned char **, int)); /* ** MIME7TO8 -- output 7 bit encoded MIME body in 8 bit format ** ** This is a hack. Supports translating the two 7-bit body-encodings ** (quoted-printable and base64) to 8-bit coded bodies. ** ** There is not much point in supporting multipart here, as the UA ** will be able to deal with encoded MIME bodies if it can parse MIME ** multipart messages. ** ** Note also that we won't be called unless it is a text/plain MIME ** message, encoded base64 or QP and mailer flag '9' has been defined ** on mailer. ** ** Contributed by Marius Olaffson . ** ** Parameters: ** mci -- mailer connection information. ** header -- the header for this body part. ** e -- envelope. ** ** Returns: ** true iff body was written successfully */ static char index_64[128] = { -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,62, -1,-1,-1,63, 52,53,54,55, 56,57,58,59, 60,61,-1,-1, -1,-1,-1,-1, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10, 11,12,13,14, 15,16,17,18, 19,20,21,22, 23,24,25,-1, -1,-1,-1,-1, -1,26,27,28, 29,30,31,32, 33,34,35,36, 37,38,39,40, 41,42,43,44, 45,46,47,48, 49,50,51,-1, -1,-1,-1,-1 }; # define CHAR64(c) (((c) < 0 || (c) > 127) ? -1 : index_64[(c)]) bool mime7to8(mci, header, e) register MCI *mci; HDR *header; register ENVELOPE *e; { int pxflags, blen; register char *p; char *cte; char **pvp; unsigned char *fbufp; char buf[MAXLINE]; unsigned char fbuf[MAXLINE + 1]; char pvpbuf[MAXLINE]; extern unsigned char MimeTokenTab[256]; p = hvalue("Content-Transfer-Encoding", header); if (p == NULL || (pvp = prescan(p, '\0', pvpbuf, sizeof(pvpbuf), NULL, MimeTokenTab, false)) == NULL || pvp[0] == NULL) { /* "can't happen" -- upper level should have caught this */ syserr("mime7to8: unparsable CTE %s", p == NULL ? "" : p); /* avoid bounce loops */ e->e_flags |= EF_DONT_MIME; /* cheap failsafe algorithm -- should work on text/plain */ if (p != NULL) { (void) sm_snprintf(buf, sizeof(buf), "Content-Transfer-Encoding: %s", p); if (!putline(buf, mci)) goto writeerr; } if (!putline("", mci)) goto writeerr; mci->mci_flags &= ~MCIF_INHEADER; while ((blen = sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf))) >= 0) { if (!putxline(buf, blen, mci, PXLF_MAPFROM)) goto writeerr; } return true; } cataddr(pvp, NULL, buf, sizeof(buf), '\0', false); cte = sm_rpool_strdup_x(e->e_rpool, buf); mci->mci_flags |= MCIF_INHEADER; if (!putline("Content-Transfer-Encoding: 8bit", mci)) goto writeerr; (void) sm_snprintf(buf, sizeof(buf), "X-MIME-Autoconverted: from %.200s to 8bit by %s id %s", cte, MyHostName, e->e_id); if (!putline(buf, mci) || !putline("", mci)) goto writeerr; mci->mci_flags &= ~MCIF_INHEADER; /* ** Translate body encoding to 8-bit. Supports two types of ** encodings; "base64" and "quoted-printable". Assume qp if ** it is not base64. */ pxflags = PXLF_MAPFROM; if (SM_STRCASEEQ(cte, "base64")) { int c1, c2, c3, c4; fbufp = fbuf; while ((c1 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT)) != SM_IO_EOF) { if (SM_ISSPACE(c1)) continue; do { c2 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT); } while (SM_ISSPACE(c2)); if (c2 == SM_IO_EOF) break; do { c3 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT); } while (SM_ISSPACE(c3)); if (c3 == SM_IO_EOF) break; do { c4 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT); } while (SM_ISSPACE(c4)); if (c4 == SM_IO_EOF) break; if (c1 == '=' || c2 == '=') continue; c1 = CHAR64(c1); c2 = CHAR64(c2); # if MIME7TO8_OLD # define CHK_EOL if (*--fbufp != '\n' || (fbufp > fbuf && *--fbufp != '\r')) \ ++fbufp; # else /* MIME7TO8_OLD */ # define CHK_EOL if (*--fbufp != '\n' || (fbufp > fbuf && *--fbufp != '\r')) \ { \ ++fbufp; \ pxflags |= PXLF_NOADDEOL; \ } # endif /* MIME7TO8_OLD */ #define PUTLINE64 \ do \ { \ if (*fbufp++ == '\n' || fbufp >= &fbuf[MAXLINE]) \ { \ CHK_EOL; \ if (!putxline((char *) fbuf, fbufp - fbuf, mci, pxflags)) \ goto writeerr; \ pxflags &= ~PXLF_NOADDEOL; \ fbufp = fbuf; \ } \ } while (0) *fbufp = (c1 << 2) | ((c2 & 0x30) >> 4); PUTLINE64; if (c3 == '=') continue; c3 = CHAR64(c3); *fbufp = ((c2 & 0x0f) << 4) | ((c3 & 0x3c) >> 2); PUTLINE64; if (c4 == '=') continue; c4 = CHAR64(c4); *fbufp = ((c3 & 0x03) << 6) | c4; PUTLINE64; } } else { int off; /* quoted-printable */ pxflags |= PXLF_NOADDEOL; fbufp = fbuf; while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { off = mime_fromqp((unsigned char *) buf, &fbufp, &fbuf[MAXLINE] - fbufp); again: if (off < -1) continue; if (fbufp - fbuf > 0) { if (!putxline((char *) fbuf, fbufp - fbuf - 1, mci, pxflags)) goto writeerr; } fbufp = fbuf; if (off >= 0 && buf[off] != '\0') { off = mime_fromqp((unsigned char *) (buf + off), &fbufp, &fbuf[MAXLINE] - fbufp); goto again; } } } /* force out partial last line */ if (fbufp > fbuf) { *fbufp = '\0'; if (!putxline((char *) fbuf, fbufp - fbuf, mci, pxflags)) goto writeerr; } /* ** The decoded text may end without an EOL. Since this function ** is only called for text/plain MIME messages, it is safe to ** add an extra one at the end just in case. This is a hack, ** but so is auto-converting MIME in the first place. */ if (!putline("", mci)) goto writeerr; if (tTd(43, 3)) sm_dprintf("\t\t\tmime7to8 => %s to 8bit done\n", cte); return true; writeerr: return false; } /* ** The following is based on Borenstein's "codes.c" module, with simplifying ** changes as we do not deal with multipart, and to do the translation in-core, ** with an attempt to prevent overrun of output buffers. ** ** What is needed here are changes to defend this code better against ** bad encodings. Questionable to always return 0xFF for bad mappings. */ static char index_hex[128] = { -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1, -1,-1,-1,-1, -1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1 }; # define HEXCHAR(c) (((c) < 0 || (c) > 127) ? -1 : index_hex[(c)]) /* ** MIME_FROMQP -- decode quoted printable string ** ** Parameters: ** infile -- input (encoded) string ** outfile -- output string ** maxlen -- size of output buffer ** ** Returns: ** -2 if decoding failure ** -1 if infile completely decoded into outfile ** >= 0 is the position in infile decoding ** reached before maxlen was reached */ static int mime_fromqp(infile, outfile, maxlen) unsigned char *infile; unsigned char **outfile; int maxlen; /* Max # of chars allowed in outfile */ { int c1, c2; int nchar = 0; unsigned char *b; /* decrement by one for trailing '\0', at least one other char */ if (--maxlen < 1) return 0; b = infile; while ((c1 = *infile++) != '\0' && nchar < maxlen) { if (c1 == '=') { if ((c1 = *infile++) == '\0') break; if (c1 == '\n' || (c1 = HEXCHAR(c1)) == -1) { /* ignore it and the rest of the buffer */ return -2; } else { do { if ((c2 = *infile++) == '\0') { c2 = -1; break; } } while ((c2 = HEXCHAR(c2)) == -1); if (c2 == -1) break; nchar++; *(*outfile)++ = c1 << 4 | c2; } } else { nchar++; *(*outfile)++ = c1; if (c1 == '\n') break; } } *(*outfile)++ = '\0'; if (nchar >= maxlen) return (infile - b - 1); return -1; } #endif /* MIME7TO8 */ sendmail-8.18.1/sendmail/Build0000755000372400037240000000053214556365350015550 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.8 2013-11-22 20:51:54 ca Exp $ exec sh ../devtools/bin/Build "$@" sendmail-8.18.1/sendmail/sysexits.h0000644000372400037240000000762114556365350016635 0ustar xbuildxbuild/* * Copyright (c) 1987, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sysexits.h,v 8.5 2000-11-26 02:13:20 ca Exp $ * @(#)sysexits.h 8.1 (Berkeley) 6/2/93 */ #ifndef _SYSEXITS_H_ # define _SYSEXITS_H_ /* ** SYSEXITS.H -- Exit status codes for system programs. ** ** This include file attempts to categorize possible error ** exit statuses for system programs, notably delivermail ** and the Berkeley network. ** ** Error numbers begin at EX__BASE to reduce the possibility of ** clashing with other exit statuses that random programs may ** already return. The meaning of the codes is approximately ** as follows: ** ** EX_USAGE -- The command was used incorrectly, e.g., with ** the wrong number of arguments, a bad flag, a bad ** syntax in a parameter, or whatever. ** EX_DATAERR -- The input data was incorrect in some way. ** This should only be used for user's data & not ** system files. ** EX_NOINPUT -- An input file (not a system file) did not ** exist or was not readable. This could also include ** errors like "No message" to a mailer (if it cared ** to catch it). ** EX_NOUSER -- The user specified did not exist. This might ** be used for mail addresses or remote logins. ** EX_NOHOST -- The host specified did not exist. This is used ** in mail addresses or network requests. ** EX_UNAVAILABLE -- A service is unavailable. This can occur ** if a support program or file does not exist. This ** can also be used as a catchall message when something ** you wanted to do doesn't work, but you don't know ** why. ** EX_SOFTWARE -- An internal software error has been detected. ** This should be limited to non-operating system related ** errors as possible. ** EX_OSERR -- An operating system error has been detected. ** This is intended to be used for such things as "cannot ** fork", "cannot create pipe", or the like. It includes ** things like getuid returning a user that does not ** exist in the passwd file. ** EX_OSFILE -- Some system file (e.g., /etc/passwd, /etc/utmp, ** etc.) does not exist, cannot be opened, or has some ** sort of error (e.g., syntax error). ** EX_CANTCREAT -- A (user specified) output file cannot be ** created. ** EX_IOERR -- An error occurred while doing I/O on some file. ** EX_TEMPFAIL -- temporary failure, indicating something that ** is not really an error. In sendmail, this means ** that a mailer (e.g.) could not create a connection, ** and the request should be reattempted later. ** EX_PROTOCOL -- the remote system returned something that ** was "not possible" during a protocol exchange. ** EX_NOPERM -- You did not have sufficient permission to ** perform the operation. This is not intended for ** file system problems, which should use NOINPUT or ** CANTCREAT, but rather for higher level permissions. */ # define EX_OK 0 /* successful termination */ # define EX__BASE 64 /* base value for error messages */ # define EX_USAGE 64 /* command line usage error */ # define EX_DATAERR 65 /* data format error */ # define EX_NOINPUT 66 /* cannot open input */ # define EX_NOUSER 67 /* addressee unknown */ # define EX_NOHOST 68 /* host name unknown */ # define EX_UNAVAILABLE 69 /* service unavailable */ # define EX_SOFTWARE 70 /* internal software error */ # define EX_OSERR 71 /* system error (e.g., can't fork) */ # define EX_OSFILE 72 /* critical OS file missing */ # define EX_CANTCREAT 73 /* can't create (user) output file */ # define EX_IOERR 74 /* input/output error */ # define EX_TEMPFAIL 75 /* temp failure; user is invited to retry */ # define EX_PROTOCOL 76 /* remote error in protocol */ # define EX_NOPERM 77 /* permission denied */ # define EX_CONFIG 78 /* configuration error */ # define EX__MAX 78 /* maximum listed value */ #endif /* ! _SYSEXITS_H_ */ sendmail-8.18.1/sendmail/helpfile0000644000372400037240000001354414556365350016305 0ustar xbuildxbuild#vers 2 cpyr cpyr Copyright (c) 1998-2000, 2002, 2004-2007 Proofpoint, Inc. and its suppliers. cpyr All rights reserved. cpyr Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. cpyr Copyright (c) 1988, 1993 cpyr The Regents of the University of California. All rights reserved. cpyr cpyr cpyr By using this file, you agree to the terms and conditions set cpyr forth in the LICENSE file which can be found at the top level of cpyr the sendmail distribution. cpyr smtp This is sendmail version $v smtp Topics: smtp HELO EHLO MAIL RCPT DATA smtp RSET NOOP QUIT HELP VRFY smtp EXPN VERB ETRN DSN AUTH smtp STARTTLS smtp For more info use "HELP ". smtp To report bugs in the implementation see smtp http://www.sendmail.org/email-addresses.html smtp For local information send email to Postmaster at your site. help HELP [ ] help The HELP command gives help info. helo HELO helo Introduce yourself. ehlo EHLO ehlo Introduce yourself, and request extended SMTP mode. ehlo Possible replies include: ehlo SEND Send as mail [RFC821] ehlo SOML Send as mail or terminal [RFC821] ehlo SAML Send as mail and terminal [RFC821] ehlo EXPN Expand the mailing list [RFC821] ehlo HELP Supply helpful information [RFC821] ehlo TURN Turn the operation around [RFC821] ehlo 8BITMIME Use 8-bit data [RFC1652] ehlo SIZE Message size declaration [RFC1870] ehlo VERB Verbose [Allman] ehlo BINARYMIME Binary MIME [RFC1830] ehlo PIPELINING Command Pipelining [RFC1854] ehlo DSN Delivery Status Notification [RFC1891] ehlo ETRN Remote Message Queue Starting [RFC1985] ehlo STARTTLS Secure SMTP [RFC2487] ehlo AUTH Authentication [RFC2554] ehlo ENHANCEDSTATUSCODES Enhanced status codes [RFC2034] ehlo DELIVERBY Deliver By [RFC2852] ehlo SMTPUTF8 Internationalized Email [RFC6530] mail MAIL From: [ ] mail Specifies the sender. Parameters are ESMTP extensions. mail See "HELP DSN" for details. rcpt RCPT To: [ ] rcpt Specifies the recipient. Can be used any number of times. rcpt Parameters are ESMTP extensions. See "HELP DSN" for details. data DATA data Following text is collected as the message. data End with a single dot on a line by itself. rset RSET rset Resets the system. quit QUIT quit Exit sendmail (SMTP). auth AUTH mechanism [initial-response] auth Start authentication. starttls STARTTLS starttls Start TLS negotiation. verb VERB verb Go into verbose mode. This sends 0xy responses that are verb not RFC821 standard (but should be). They are recognized verb by humans and other sendmail implementations. vrfy VRFY vrfy Verify an address. If you want to see what it aliases vrfy to, use EXPN instead. expn EXPN expn Expand an address. If the address indicates a mailing expn list, return the contents of that list. noop NOOP noop Do nothing. send SEND FROM: send replaces the MAIL command, and can be used to send send directly to a users terminal. Not supported in this send implementation. soml SOML FROM: soml Send or mail. If the user is logged in, send directly, soml otherwise mail. Not supported in this implementation. saml SAML FROM: saml Send and mail. Send directly to the user's terminal, saml and also mail a letter. Not supported in this saml implementation. turn TURN turn Reverses the direction of the connection. Not currently turn implemented. etrn ETRN [ | @ | \# ] etrn Run the queue for the specified , or etrn all hosts within a given , or a specially-named etrn (implementation-specific). dsn MAIL From: [ RET={ FULL | HDRS} ] [ ENVID= ] dsn RCPT To: [ NOTIFY={NEVER,SUCCESS,FAILURE,DELAY} ] dsn [ ORCPT= ] dsn SMTP Delivery Status Notifications. dsn Descriptions: dsn RET Return either the full message or only headers. dsn ENVID Sender's "envelope identifier" for tracking. dsn NOTIFY When to send a DSN. Multiple options are OK, comma- dsn delimited. NEVER must appear by itself. dsn ORCPT Original recipient. -bt Help for test mode: -bt ? :this help message. -bt .Dmvalue :define macro `m' to `value'. -bt .Ccvalue :add `value' to class `c'. -bt =Sruleset :dump the contents of the indicated ruleset. -bt =M :display the known mailers. -bt -ddebug-spec :equivalent to the command-line -d debug flag. -bt $$m :print the value of macro $$m. -bt $$=c :print the contents of class $$=c. -bt /mx host :returns the MX records for `host'. -bt /gethostbyname host [family] :calls gethostbyname() for `host'. -bt /dnslookup host [qtype] [flags] :Does a qtype DNS lookup for `host'. -bt /parse address :parse address, returning the value of crackaddr, and -bt the parsed address. -bt /sender address :parse sender address, returning the value of -bt setsender. -bt /expand string :expands string, returning the value of expand. -bt /try mailer addr :rewrite address into the form it will have when -bt presented to the indicated mailer. -bt /tryflags flags :set flags used by parsing. The flags can be `H' for -bt Header or `E' for Envelope, and `S' for Sender or `R' -bt for Recipient. These can be combined, `HR' sets -bt flags for header recipients. -bt /canon hostname :try to canonify hostname. -bt /map mapname key :look up `key' in the indicated `mapname'. -bt /header header :parses header, returning header flags -bt /quit :quit address test mode. -bt rules addr :run the indicated address through the named rules. -bt Rules can be a comma separated list of rules. control Help for smcontrol: control help This message. control restart Restart sendmail. control shutdown Shutdown sendmail. control status Show sendmail status. control mstat Show sendmail status (machine readable format). control memdump Dump allocated memory list (for debugging only). sendmail-8.18.1/sendmail/recipient.c0000644000372400037240000014243014556365350016715 0ustar xbuildxbuild/* * Copyright (c) 1998-2003, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: recipient.c,v 8.351 2013-11-22 20:51:56 ca Exp $") #include #if _FFR_8BITENVADDR # include #endif static void includetimeout __P((int)); static ADDRESS *self_reference __P((ADDRESS *)); static int sortexpensive __P((ADDRESS *, ADDRESS *)); static int sortbysignature __P((ADDRESS *, ADDRESS *)); static int sorthost __P((ADDRESS *, ADDRESS *)); typedef int sortfn_t __P((ADDRESS *, ADDRESS *)); /* ** SORTHOST -- strcmp()-like func for host portion of an ADDRESS ** ** Parameters: ** xx -- first ADDRESS ** yy -- second ADDRESS ** ** Returns: ** <0 when xx->q_host is less than yy->q_host ** >0 when xx->q_host is greater than yy->q_host ** 0 when equal */ static int sorthost(xx, yy) register ADDRESS *xx; register ADDRESS *yy; { #if _FFR_HOST_SORT_REVERSE /* XXX maybe compare hostnames from the end? */ return sm_strrevcasecmp(xx->q_host, yy->q_host); #else return sm_strcasecmp(xx->q_host, yy->q_host); #endif } /* ** SORTEXPENSIVE -- strcmp()-like func for expensive mailers ** ** The mailer has been noted already as "expensive" for 'xx'. This ** will give a result relative to 'yy'. Expensive mailers get rated ** "greater than" non-expensive mailers because during the delivery phase ** it will get queued -- no use it getting in the way of less expensive ** recipients. We avoid an MX RR lookup when both 'xx' and 'yy' are ** expensive since an MX RR lookup happens when extracted from the queue ** later. ** ** Parameters: ** xx -- first ADDRESS ** yy -- second ADDRESS ** ** Returns: ** <0 when xx->q_host is less than yy->q_host and both are ** expensive ** >0 when xx->q_host is greater than yy->q_host, or when ** 'yy' is non-expensive ** 0 when equal (by expense and q_host) */ static int sortexpensive(xx, yy) ADDRESS *xx; ADDRESS *yy; { if (!bitnset(M_EXPENSIVE, yy->q_mailer->m_flags)) return 1; /* xx should go later */ #if _FFR_HOST_SORT_REVERSE /* XXX maybe compare hostnames from the end? */ return sm_strrevcasecmp(xx->q_host, yy->q_host); #else return sm_strcasecmp(xx->q_host, yy->q_host); #endif } /* ** SORTBYSIGNATURE -- a strcmp()-like func for q_mailer and q_host in ADDRESS ** ** Parameters: ** xx -- first ADDRESS ** yy -- second ADDRESS ** ** Returns: ** 0 when the "signature"'s are same ** <0 when xx->q_signature is less than yy->q_signature ** >0 when xx->q_signature is greater than yy->q_signature ** ** Side Effect: ** May set ADDRESS pointer for q_signature if not already set. */ static int sortbysignature(xx, yy) ADDRESS *xx; ADDRESS *yy; { register int ret; /* Let's avoid redoing the signature over and over again */ if (xx->q_signature == NULL) xx->q_signature = hostsignature(xx->q_mailer, xx->q_host, QISSECURE(xx), NULL); if (yy->q_signature == NULL) yy->q_signature = hostsignature(yy->q_mailer, yy->q_host, QISSECURE(yy), NULL); ret = strcmp(xx->q_signature, yy->q_signature); /* ** If the two signatures are the same then we will return a sort ** value based on 'q_user'. But note that we have reversed xx and yy ** on purpose. This additional compare helps reduce the number of ** sameaddr() calls and loops in recipient() for the case when ** the rcpt list has been provided already in-order. */ if (ret == 0) return strcmp(yy->q_user, xx->q_user); else return ret; } /* ** SENDTOLIST -- Designate a send list. ** ** The parameter is a comma-separated list of people to send to. ** This routine arranges to send to all of them. ** ** Parameters: ** list -- the send list. ** ctladdr -- the address template for the person to ** send to -- effective uid/gid are important. ** This is typically the alias that caused this ** expansion. ** sendq -- a pointer to the head of a queue to put ** these people into. ** aliaslevel -- the current alias nesting depth -- to ** diagnose loops. ** e -- the envelope in which to add these recipients. ** ** Returns: ** The number of addresses actually on the list. */ /* q_flags bits inherited from ctladdr */ #define QINHERITEDBITS (QPINGONSUCCESS|QPINGONFAILURE|QPINGONDELAY|QHASNOTIFY) int sendtolist(list, ctladdr, sendq, aliaslevel, e) char *list; ADDRESS *ctladdr; ADDRESS **sendq; int aliaslevel; register ENVELOPE *e; { register char *p; register ADDRESS *SM_NONVOLATILE al; /* list of addresses to send to */ SM_NONVOLATILE char delimiter; /* the address delimiter */ SM_NONVOLATILE int naddrs; SM_NONVOLATILE int i; char *endp; char *oldto = e->e_to; char *SM_NONVOLATILE bufp; char buf[MAXNAME + 1]; /* EAI: ok, uses bufp dynamically expanded */ if (list == NULL) { syserr("sendtolist: null list"); return 0; } if (tTd(25, 1)) { sm_dprintf("sendto: %s\n ctladdr=", list); printaddr(sm_debug_file(), ctladdr, false); } /* heuristic to determine old versus new style addresses */ if (ctladdr == NULL && (strchr(list, ',') != NULL || strchr(list, ';') != NULL || strchr(list, '<') != NULL || strchr(list, '(') != NULL)) e->e_flags &= ~EF_OLDSTYLE; delimiter = ' '; if (!bitset(EF_OLDSTYLE, e->e_flags) || ctladdr != NULL) delimiter = ','; al = NULL; naddrs = 0; /* make sure we have enough space to copy the string */ i = strlen(list) + 1; if (i <= sizeof(buf)) { bufp = buf; i = sizeof(buf); } else bufp = sm_malloc_x(i); endp = bufp + i; SM_TRY { (void) sm_strlcpy(bufp, denlstring(list, false, true), i); macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e r"); for (p = bufp; *p != '\0'; ) { auto char *delimptr; register ADDRESS *a; SM_ASSERT(p < endp); /* parse the address */ while ((SM_ISSPACE(*p)) || *p == ',') p++; SM_ASSERT(p < endp); /* XXX p must be [i] */ a = parseaddr(p, NULLADDR, RF_COPYALL, delimiter, &delimptr, e, true); p = delimptr; SM_ASSERT(p < endp); if (a == NULL) continue; a->q_next = al; a->q_alias = ctladdr; /* arrange to inherit attributes from parent */ if (ctladdr != NULL) { ADDRESS *b; /* self reference test */ if (sameaddr(ctladdr, a)) { if (tTd(27, 5)) { sm_dprintf("sendtolist: QSELFREF "); printaddr(sm_debug_file(), ctladdr, false); } ctladdr->q_flags |= QSELFREF; } /* check for address loops */ b = self_reference(a); if (b != NULL) { b->q_flags |= QSELFREF; if (tTd(27, 5)) { sm_dprintf("sendtolist: QSELFREF "); printaddr(sm_debug_file(), b, false); } if (a != b) { if (tTd(27, 5)) { sm_dprintf("sendtolist: QS_DONTSEND "); printaddr(sm_debug_file(), a, false); } a->q_state = QS_DONTSEND; b->q_flags |= a->q_flags & QNOTREMOTE; continue; } } /* full name */ if (a->q_fullname == NULL) a->q_fullname = ctladdr->q_fullname; /* various flag bits */ a->q_flags &= ~QINHERITEDBITS; a->q_flags |= ctladdr->q_flags & QINHERITEDBITS; /* DSN recipient information */ a->q_finalrcpt = ctladdr->q_finalrcpt; a->q_orcpt = ctladdr->q_orcpt; } al = a; } /* arrange to send to everyone on the local send list */ while (al != NULL) { register ADDRESS *a = al; al = a->q_next; a = recipient(a, sendq, aliaslevel, e); naddrs++; } } SM_FINALLY { e->e_to = oldto; if (bufp != buf) sm_free(bufp); macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); } SM_END_TRY return naddrs; } #if MILTER /* ** REMOVEFROMLIST -- Remove addresses from a send list. ** ** The parameter is a comma-separated list of recipients to remove. ** Note that it only deletes matching addresses. If those addresses ** have been expanded already in the sendq, it won't mark the ** expanded recipients as QS_REMOVED. ** ** Parameters: ** list -- the list to remove. ** sendq -- a pointer to the head of a queue to remove ** these addresses from. ** e -- the envelope in which to remove these recipients. ** ** Returns: ** The number of addresses removed from the list. ** */ int removefromlist(list, sendq, e) char *list; ADDRESS **sendq; ENVELOPE *e; { SM_NONVOLATILE char delimiter; /* the address delimiter */ SM_NONVOLATILE int naddrs; SM_NONVOLATILE int i; char *p; char *oldto = e->e_to; char *SM_NONVOLATILE bufp; char buf[MAXNAME + 1]; /* EAI: ok, uses bufp dynamically expanded */ if (list == NULL) { syserr("removefromlist: null list"); return 0; } if (tTd(25, 1)) sm_dprintf("removefromlist: %s\n", list); /* heuristic to determine old versus new style addresses */ if (strchr(list, ',') != NULL || strchr(list, ';') != NULL || strchr(list, '<') != NULL || strchr(list, '(') != NULL) e->e_flags &= ~EF_OLDSTYLE; delimiter = ' '; if (!bitset(EF_OLDSTYLE, e->e_flags)) delimiter = ','; naddrs = 0; /* make sure we have enough space to copy the string */ i = strlen(list) + 1; if (i <= sizeof(buf)) { bufp = buf; i = sizeof(buf); } else bufp = sm_malloc_x(i); SM_TRY { (void) sm_strlcpy(bufp, denlstring(list, false, true), i); # if _FFR_ADDR_TYPE_MODES if (AddrTypeModes) macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e r d"); else # endif /* _FFR_ADDR_TYPE_MODES */ /* "else" in #if code above */ { macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e r"); } for (p = bufp; *p != '\0'; ) { ADDRESS a; /* parsed address to be removed */ ADDRESS *q; ADDRESS **pq; char *delimptr; /* parse the address */ while ((SM_ISSPACE(*p)) || *p == ',') p++; /* XXX p must be [i] */ if (parseaddr(p, &a, RF_COPYALL|RF_RM_ADDR, delimiter, &delimptr, e, true) == NULL) { p = delimptr; continue; } p = delimptr; for (pq = sendq; (q = *pq) != NULL; pq = &q->q_next) { if (!QS_IS_DEAD(q->q_state) && (sameaddr(q, &a) || strcmp(q->q_paddr, a.q_paddr) == 0)) { if (tTd(25, 5)) { sm_dprintf("removefromlist: QS_REMOVED "); printaddr(sm_debug_file(), &a, false); } q->q_state = QS_REMOVED; naddrs++; break; } } } } SM_FINALLY { e->e_to = oldto; if (bufp != buf) sm_free(bufp); macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); } SM_END_TRY return naddrs; } #endif /* MILTER */ /* ** RECIPIENT -- Designate a message recipient ** Saves the named person for future mailing (after some checks). ** ** Parameters: ** new -- the (preparsed) address header for the recipient. ** sendq -- a pointer to the head of a queue to put the ** recipient in. Duplicate suppression is done ** in this queue. ** aliaslevel -- the current alias nesting depth. ** e -- the current envelope. ** ** Returns: ** The actual address in the queue. This will be "a" if ** the address is not a duplicate, else the original address. ** */ ADDRESS * recipient(new, sendq, aliaslevel, e) register ADDRESS *new; register ADDRESS **sendq; int aliaslevel; register ENVELOPE *e; { register ADDRESS *q; ADDRESS **pq; ADDRESS **prev; register struct mailer *m; register char *p; int i, buflen; bool quoted; /* set if the addr has a quote bit */ bool insert; int findusercount; bool initialdontsend; char *buf; char buf0[MAXNAME + 1]; /* EAI: ok, uses bufp dynamically expanded */ /* unquoted image of the user name */ sortfn_t *sortfn; p = NULL; quoted = false; insert = false; findusercount = 0; initialdontsend = QS_IS_DEAD(new->q_state); e->e_to = new->q_paddr; m = new->q_mailer; errno = 0; if (aliaslevel == 0) new->q_flags |= QPRIMARY; if (tTd(26, 1)) { sm_dprintf("\nrecipient (%d): ", aliaslevel); printaddr(sm_debug_file(), new, false); } /* if this is primary, use it as original recipient */ if (new->q_alias == NULL) { if (e->e_origrcpt == NULL) e->e_origrcpt = new->q_paddr; else if (e->e_origrcpt != new->q_paddr) e->e_origrcpt = ""; } /* find parent recipient for finalrcpt and orcpt */ for (q = new; q->q_alias != NULL; q = q->q_alias) continue; /* find final recipient DSN address */ if (new->q_finalrcpt == NULL && e->e_from.q_mailer != NULL) { char frbuf[MAXLINE]; p = e->e_from.q_mailer->m_addrtype; if (p == NULL) p = "rfc822"; #if USE_EAI if (SM_STRCASEEQ(p, "rfc822") && !addr_is_ascii(q->q_user)) p = "utf-8"; #endif if (sm_strcasecmp(p, "rfc822") != 0) { (void) sm_snprintf(frbuf, sizeof(frbuf), "%s; %.800s", q->q_mailer->m_addrtype, q->q_user); } else if (strchr(q->q_user, '@') != NULL) { (void) sm_snprintf(frbuf, sizeof(frbuf), "%s; %.800s", p, q->q_user); } else if (strchr(q->q_paddr, '@') != NULL) { char *qp; bool b; qp = q->q_paddr; /* strip brackets from address */ b = false; if (*qp == '<') { b = qp[strlen(qp) - 1] == '>'; if (b) qp[strlen(qp) - 1] = '\0'; qp++; } (void) sm_snprintf(frbuf, sizeof(frbuf), "%s; %.800s", p, qp); /* undo damage */ if (b) qp[strlen(qp)] = '>'; } else { (void) sm_snprintf(frbuf, sizeof(frbuf), "%s; %.700s@%.100s", p, q->q_user, MyHostName); } new->q_finalrcpt = sm_rpool_strdup_x(e->e_rpool, frbuf); } #if _FFR_GEN_ORCPT /* set ORCPT DSN arg if not already set */ if (new->q_orcpt == NULL) { /* check for an existing ORCPT */ if (q->q_orcpt != NULL) new->q_orcpt = q->q_orcpt; else { /* make our own */ bool b = false; char *qp; char obuf[MAXLINE]; if (e->e_from.q_mailer != NULL) p = e->e_from.q_mailer->m_addrtype; if (p == NULL) p = "rfc822"; (void) sm_strlcpyn(obuf, sizeof(obuf), 2, p, ";"); qp = q->q_paddr; /* FFR: Needs to strip comments from stdin addrs */ /* strip brackets from address */ if (*qp == '<') { b = qp[strlen(qp) - 1] == '>'; if (b) qp[strlen(qp) - 1] = '\0'; qp++; } p = xtextify(denlstring(qp, true, false), "="); if (sm_strlcat(obuf, p, sizeof(obuf)) >= sizeof(obuf)) { /* if too big, don't use it */ obuf[0] = '\0'; } /* undo damage */ if (b) qp[strlen(qp)] = '>'; if (obuf[0] != '\0') new->q_orcpt = sm_rpool_strdup_x(e->e_rpool, obuf); } } #endif /* _FFR_GEN_ORCPT */ /* break aliasing loops */ if (aliaslevel > MaxAliasRecursion) { new->q_state = QS_BADADDR; new->q_status = "5.4.6"; if (new->q_alias != NULL) { new->q_alias->q_state = QS_BADADDR; new->q_alias->q_status = "5.4.6"; } if ((SuprErrs || !LogUsrErrs) && LogLevel > 0) { sm_syslog(LOG_ERR, e->e_id, "aliasing/forwarding loop broken: %s (%d aliases deep; %d max)", FileName != NULL ? FileName : "", aliaslevel, MaxAliasRecursion); } usrerrenh(new->q_status, "554 aliasing/forwarding loop broken (%d aliases deep; %d max)", aliaslevel, MaxAliasRecursion); return new; } /* ** Finish setting up address structure. */ /* get unquoted user for file, program or user.name check */ i = strlen(new->q_user); if (i >= sizeof(buf0)) { buflen = i + 1; buf = xalloc(buflen); } else { buf = buf0; buflen = sizeof(buf0); } (void) sm_strlcpy(buf, new->q_user, buflen); for (p = buf; *p != '\0' && !quoted; p++) { if (*p == '\\') quoted = true; } stripquotes(buf); /* check for direct mailing to restricted mailers */ if (m == ProgMailer) { if (new->q_alias == NULL || UseMSP || bitset(EF_UNSAFE, e->e_flags)) { new->q_state = QS_BADADDR; new->q_status = "5.7.1"; usrerrenh(new->q_status, "550 Cannot mail directly to programs"); } else if (bitset(QBOGUSSHELL, new->q_alias->q_flags)) { new->q_state = QS_BADADDR; new->q_status = "5.7.1"; if (new->q_alias->q_ruser == NULL) usrerrenh(new->q_status, "550 UID %ld is an unknown user: cannot mail to programs", (long) new->q_alias->q_uid); else usrerrenh(new->q_status, "550 User %s@%s doesn't have a valid shell for mailing to programs", new->q_alias->q_ruser, MyHostName); } else if (bitset(QUNSAFEADDR, new->q_alias->q_flags)) { new->q_state = QS_BADADDR; new->q_status = "5.7.1"; new->q_rstatus = "550 Unsafe for mailing to programs"; usrerrenh(new->q_status, "550 Address %s is unsafe for mailing to programs", new->q_alias->q_paddr); } } /* ** Look up this person in the recipient list. ** If they are there already, return, otherwise continue. ** If the list is empty, just add it. Notice the cute ** hack to make from addresses suppress things correctly: ** the QS_DUPLICATE state will be set in the send list. ** [Please note: the emphasis is on "hack."] */ prev = NULL; /* ** If this message is going to the queue or FastSplit is set ** and it is the first try and the envelope hasn't split, then we ** avoid doing an MX RR lookup now because one will be done when the ** message is extracted from the queue later. It can go to the queue ** because all messages are going to the queue or this mailer of ** the current recipient is marked expensive. */ if (UseMSP || WILL_BE_QUEUED(e->e_sendmode) || (!bitset(EF_SPLIT, e->e_flags) && e->e_ntries == 0 && FastSplit > 0)) sortfn = sorthost; else if (NoConnect && bitnset(M_EXPENSIVE, new->q_mailer->m_flags)) sortfn = sortexpensive; else sortfn = sortbysignature; for (pq = sendq; (q = *pq) != NULL; pq = &q->q_next) { /* ** If address is "less than" it should be inserted now. ** If address is "greater than" current comparison it'll ** insert later in the list; so loop again (if possible). ** If address is "equal" (different equal than sameaddr() ** call) then check if sameaddr() will be true. ** Because this list is now sorted, it'll mean fewer ** comparisons and fewer loops which is important for more ** recipients. */ i = (*sortfn)(new, q); if (i == 0) /* equal */ { /* ** sortbysignature() has said that the two have ** equal MX RR's and the same user. Calling sameaddr() ** now checks if the two hosts are as identical as the ** MX RR's are (which might not be the case) ** before saying these are the identical addresses. */ if (sameaddr(q, new) && (bitset(QRCPTOK, q->q_flags) || !bitset(QPRIMARY, q->q_flags))) { if (tTd(26, 1)) { sm_dprintf("%s in sendq: ", new->q_paddr); printaddr(sm_debug_file(), q, false); } if (!bitset(QPRIMARY, q->q_flags)) { if (!QS_IS_DEAD(new->q_state)) message("duplicate suppressed"); else q->q_state = QS_DUPLICATE; q->q_flags |= new->q_flags; } else if (bitset(QSELFREF, q->q_flags) || q->q_state == QS_REMOVED) { /* ** If an earlier milter removed the ** address, a later one can still add ** it back. */ q->q_state = new->q_state; q->q_flags |= new->q_flags; } new = q; goto done; } } else if (i < 0) /* less than */ { insert = true; break; } prev = pq; } /* pq should point to an address, never NULL */ SM_ASSERT(pq != NULL); /* add address on list */ if (insert) { /* ** insert before 'pq'. Only possible when at least 1 ** ADDRESS is in the list already. */ new->q_next = *pq; if (prev == NULL) *sendq = new; /* To be the first ADDRESS */ else (*prev)->q_next = new; } else { /* ** Place in list at current 'pq' position. Possible ** when there are 0 or more ADDRESS's in the list. */ new->q_next = NULL; *pq = new; } /* added a new address: clear split flag */ e->e_flags &= ~EF_SPLIT; /* ** Alias the name and handle special mailer types. */ trylocaluser: if (tTd(29, 7)) { sm_dprintf("at trylocaluser: "); printaddr(sm_debug_file(), new, false); } if (!QS_IS_OK(new->q_state)) { if (QS_IS_UNDELIVERED(new->q_state)) e->e_nrcpts++; goto testselfdestruct; } if (m == InclMailer) { new->q_state = QS_INCLUDED; if (new->q_alias == NULL || UseMSP || bitset(EF_UNSAFE, e->e_flags)) { new->q_state = QS_BADADDR; new->q_status = "5.7.1"; usrerrenh(new->q_status, "550 Cannot mail directly to :include:s"); } else { int ret; message("including file %s", new->q_user); ret = include(new->q_user, false, new, sendq, aliaslevel, e); if (transienterror(ret)) { if (LogLevel > 2) sm_syslog(LOG_ERR, e->e_id, "include %s: transient error: %s", shortenstring(new->q_user, MAXSHORTSTR), sm_errstring(ret)); new->q_state = QS_QUEUEUP; usrerr("451 4.2.4 Cannot open %s: %s", shortenstring(new->q_user, MAXSHORTSTR), sm_errstring(ret)); } else if (ret != 0) { new->q_state = QS_BADADDR; new->q_status = "5.2.4"; usrerrenh(new->q_status, "550 Cannot open %s: %s", shortenstring(new->q_user, MAXSHORTSTR), sm_errstring(ret)); } } } else if (m == FileMailer) { /* check if allowed */ if (new->q_alias == NULL || UseMSP || bitset(EF_UNSAFE, e->e_flags)) { new->q_state = QS_BADADDR; new->q_status = "5.7.1"; usrerrenh(new->q_status, "550 Cannot mail directly to files"); } else if (bitset(QBOGUSSHELL, new->q_alias->q_flags)) { new->q_state = QS_BADADDR; new->q_status = "5.7.1"; if (new->q_alias->q_ruser == NULL) usrerrenh(new->q_status, "550 UID %ld is an unknown user: cannot mail to files", (long) new->q_alias->q_uid); else usrerrenh(new->q_status, "550 User %s@%s doesn't have a valid shell for mailing to files", new->q_alias->q_ruser, MyHostName); } else if (bitset(QUNSAFEADDR, new->q_alias->q_flags)) { new->q_state = QS_BADADDR; new->q_status = "5.7.1"; new->q_rstatus = "550 Unsafe for mailing to files"; usrerrenh(new->q_status, "550 Address %s is unsafe for mailing to files", new->q_alias->q_paddr); } } /* try aliasing */ if (!quoted && QS_IS_OK(new->q_state) && bitnset(M_ALIASABLE, m->m_flags)) alias(new, sendq, aliaslevel, e); #if USERDB /* if not aliased, look it up in the user database */ if (!bitset(QNOTREMOTE, new->q_flags) && QS_IS_SENDABLE(new->q_state) && bitnset(M_CHECKUDB, m->m_flags)) { if (udbexpand(new, sendq, aliaslevel, e) == EX_TEMPFAIL) { new->q_state = QS_QUEUEUP; if (e->e_message == NULL) e->e_message = sm_rpool_strdup_x(e->e_rpool, "Deferred: user database error"); if (new->q_message == NULL) new->q_message = "Deferred: user database error"; if (LogLevel > 8) sm_syslog(LOG_INFO, e->e_id, "deferred: udbexpand: %s", sm_errstring(errno)); message("queued (user database error): %s", sm_errstring(errno)); e->e_nrcpts++; goto testselfdestruct; } } #endif /* USERDB */ /* ** If we have a level two config file, then pass the name through ** Ruleset 5 before sending it off. Ruleset 5 has the right ** to rewrite it to another mailer. This gives us a hook ** after local aliasing has been done. */ if (tTd(29, 5)) { sm_dprintf("recipient: testing local? cl=%d, rr5=%p\n\t", ConfigLevel, (void *)RewriteRules[5]); printaddr(sm_debug_file(), new, false); } if (ConfigLevel >= 2 && RewriteRules[5] != NULL && bitnset(M_TRYRULESET5, m->m_flags) && !bitset(QNOTREMOTE, new->q_flags) && QS_IS_OK(new->q_state)) { maplocaluser(new, sendq, aliaslevel + 1, e); } /* ** If it didn't get rewritten to another mailer, go ahead ** and deliver it. */ if (QS_IS_OK(new->q_state) && bitnset(M_HASPWENT, m->m_flags)) { auto bool fuzzy; SM_MBDB_T user; int status; /* warning -- finduser may trash buf */ status = finduser(buf, &fuzzy, &user); switch (status) { case EX_TEMPFAIL: new->q_state = QS_QUEUEUP; new->q_status = "4.5.2"; giveresponse(EX_TEMPFAIL, new->q_status, m, NULL, new->q_alias, (time_t) 0, e, new); break; default: new->q_state = QS_BADADDR; new->q_status = "5.1.1"; new->q_rstatus = "550 5.1.1 User unknown"; giveresponse(EX_NOUSER, new->q_status, m, NULL, new->q_alias, (time_t) 0, e, new); break; case EX_OK: if (fuzzy) { /* name was a fuzzy match */ new->q_user = sm_rpool_strdup_x(e->e_rpool, user.mbdb_name); if (findusercount++ > 3) { new->q_state = QS_BADADDR; new->q_status = "5.4.6"; usrerrenh(new->q_status, "554 aliasing/forwarding loop for %s broken", user.mbdb_name); goto done; } /* see if it aliases */ (void) sm_strlcpy(buf, user.mbdb_name, buflen); goto trylocaluser; } if (*user.mbdb_homedir == '\0') new->q_home = NULL; else if (strcmp(user.mbdb_homedir, "/") == 0) new->q_home = ""; else new->q_home = sm_rpool_strdup_x(e->e_rpool, user.mbdb_homedir); if (user.mbdb_uid != SM_NO_UID) { new->q_uid = user.mbdb_uid; new->q_gid = user.mbdb_gid; new->q_flags |= QGOODUID; } new->q_ruser = sm_rpool_strdup_x(e->e_rpool, user.mbdb_name); if (user.mbdb_fullname[0] != '\0') new->q_fullname = sm_rpool_strdup_x(e->e_rpool, user.mbdb_fullname); if (!usershellok(user.mbdb_name, user.mbdb_shell)) { new->q_flags |= QBOGUSSHELL; } if (bitset(EF_VRFYONLY, e->e_flags)) { /* don't do any more now */ new->q_state = QS_VERIFIED; } else if (!quoted) forward(new, sendq, aliaslevel, e); } } if (!QS_IS_DEAD(new->q_state)) e->e_nrcpts++; testselfdestruct: new->q_flags |= QTHISPASS; if (tTd(26, 8)) { sm_dprintf("testselfdestruct: "); printaddr(sm_debug_file(), new, false); if (tTd(26, 10)) { sm_dprintf("SENDQ:\n"); printaddr(sm_debug_file(), *sendq, true); sm_dprintf("----\n"); } } if (new->q_alias == NULL && new != &e->e_from && QS_IS_DEAD(new->q_state)) { for (q = *sendq; q != NULL; q = q->q_next) { if (!QS_IS_DEAD(q->q_state)) break; } if (q == NULL) { new->q_state = QS_BADADDR; new->q_status = "5.4.6"; usrerrenh(new->q_status, "554 aliasing/forwarding loop broken"); } } done: new->q_flags |= QTHISPASS; if (buf != buf0) sm_free(buf); /* XXX leak if above code raises exception */ /* ** If we are at the top level, check to see if this has ** expanded to exactly one address. If so, it can inherit ** the primaryness of the address. ** ** While we're at it, clear the QTHISPASS bits. */ if (aliaslevel == 0) { int nrcpts = 0; ADDRESS *only = NULL; for (q = *sendq; q != NULL; q = q->q_next) { if (bitset(QTHISPASS, q->q_flags) && QS_IS_SENDABLE(q->q_state)) { nrcpts++; only = q; } q->q_flags &= ~QTHISPASS; } if (nrcpts == 1) { /* check to see if this actually got a new owner */ q = only; while ((q = q->q_alias) != NULL) { if (q->q_owner != NULL) break; } if (q == NULL) only->q_flags |= QPRIMARY; } else if (!initialdontsend && nrcpts > 0) { /* arrange for return receipt */ e->e_flags |= EF_SENDRECEIPT; new->q_flags |= QEXPANDED; if (e->e_xfp != NULL && bitset(QPINGONSUCCESS, new->q_flags)) (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "%s... expanded to multiple addresses\n", new->q_paddr); } } new->q_flags |= QRCPTOK; (void) sm_snprintf(buf0, sizeof(buf0), "%d", e->e_nrcpts); macdefine(&e->e_macro, A_TEMP, macid("{nrcpts}"), buf0); return new; } /* ** FINDUSER -- find the password entry for a user. ** ** This looks a lot like getpwnam, except that it may want to ** do some fancier pattern matching in /etc/passwd. ** ** This routine contains most of the time of many sendmail runs. ** It deserves to be optimized. ** ** Parameters: ** name -- the name to match against. ** fuzzyp -- an outarg that is set to true if this entry ** was found using the fuzzy matching algorithm; ** set to false otherwise. ** user -- structure to fill in if user is found ** ** Returns: ** On success, fill in *user, set *fuzzyp and return EX_OK. ** If the user was not found, return EX_NOUSER. ** On error, return EX_TEMPFAIL or EX_OSERR. ** ** Side Effects: ** may modify name. */ int finduser(name, fuzzyp, user) char *name; bool *fuzzyp; SM_MBDB_T *user; { #if MATCHGECOS register struct passwd *pw; #endif register char *p; bool tryagain; int status; if (tTd(29, 4)) sm_dprintf("finduser(%s): ", name); *fuzzyp = false; #if HESIOD && !HESIOD_ALLOW_NUMERIC_LOGIN /* DEC Hesiod getpwnam accepts numeric strings -- short circuit it */ for (p = name; *p != '\0'; p++) if (!isascii(*p) || !isdigit(*p)) break; if (*p == '\0') { if (tTd(29, 4)) sm_dprintf("failed (numeric input)\n"); return EX_NOUSER; } #endif /* HESIOD && !HESIOD_ALLOW_NUMERIC_LOGIN */ /* look up this login name using fast path */ status = sm_mbdb_lookup(name, user); if (status != EX_NOUSER) { if (tTd(29, 4)) sm_dprintf("%s (non-fuzzy)\n", sm_strexit(status)); return status; } /* try mapping it to lower case */ tryagain = false; for (p = name; *p != '\0'; p++) { if (isascii(*p) && isupper(*p)) { *p = tolower(*p); tryagain = true; } } if (tryagain && (status = sm_mbdb_lookup(name, user)) != EX_NOUSER) { if (tTd(29, 4)) sm_dprintf("%s (lower case)\n", sm_strexit(status)); *fuzzyp = true; return status; } #if MATCHGECOS /* see if fuzzy matching allowed */ if (!MatchGecos) { if (tTd(29, 4)) sm_dprintf("not found (fuzzy disabled)\n"); return EX_NOUSER; } /* search for a matching full name instead */ for (p = name; *p != '\0'; p++) { if (*p == (SpaceSub & 0177) || *p == '_') *p = ' '; } (void) setpwent(); while ((pw = getpwent()) != NULL) { char buf[MAXNAME + 1]; /* EAI: ok: for pw_gecos */ # if 0 if (SM_STRCASEEQ(pw->pw_name, name)) { if (tTd(29, 4)) sm_dprintf("found (case wrapped)\n"); break; } # endif /* 0 */ sm_pwfullname(pw->pw_gecos, pw->pw_name, buf, sizeof(buf)); if (strchr(buf, ' ') != NULL && SM_STRCASEEQ(buf, name)) { if (tTd(29, 4)) sm_dprintf("fuzzy matches %s\n", pw->pw_name); message("sending to login name %s", pw->pw_name); break; } } if (pw != NULL) *fuzzyp = true; else if (tTd(29, 4)) sm_dprintf("no fuzzy match found\n"); # if DEC_OSF_BROKEN_GETPWENT /* DEC OSF/1 3.2 or earlier */ endpwent(); # endif if (pw == NULL) return EX_NOUSER; sm_mbdb_frompw(user, pw); return EX_OK; #else /* MATCHGECOS */ if (tTd(29, 4)) sm_dprintf("not found (fuzzy disabled)\n"); return EX_NOUSER; #endif /* MATCHGECOS */ } /* ** WRITABLE -- predicate returning if the file is writable. ** ** This routine must duplicate the algorithm in sys/fio.c. ** Unfortunately, we cannot use the access call since we ** won't necessarily be the real uid when we try to ** actually open the file. ** ** Notice that ANY file with ANY execute bit is automatically ** not writable. This is also enforced by mailfile. ** ** Parameters: ** filename -- the file name to check. ** ctladdr -- the controlling address for this file. ** flags -- SFF_* flags to control the function. ** ** Returns: ** true -- if we will be able to write this file. ** false -- if we cannot write this file. ** ** Side Effects: ** none. */ bool writable(filename, ctladdr, flags) char *filename; ADDRESS *ctladdr; long flags; { uid_t euid = 0; gid_t egid = 0; char *user = NULL; if (tTd(44, 5)) sm_dprintf("writable(%s, 0x%lx)\n", filename, flags); /* ** File does exist -- check that it is writable. */ if (geteuid() != 0) { euid = geteuid(); egid = getegid(); user = NULL; } else if (ctladdr != NULL) { euid = ctladdr->q_uid; egid = ctladdr->q_gid; user = ctladdr->q_user; } else if (bitset(SFF_RUNASREALUID, flags)) { euid = RealUid; egid = RealGid; user = RealUserName; } else if (FileMailer != NULL && !bitset(SFF_ROOTOK, flags)) { if (FileMailer->m_uid == NO_UID) { euid = DefUid; user = DefUser; } else { euid = FileMailer->m_uid; user = NULL; } if (FileMailer->m_gid == NO_GID) egid = DefGid; else egid = FileMailer->m_gid; } else { euid = egid = 0; user = NULL; } if (!bitset(SFF_ROOTOK, flags)) { if (euid == 0) { euid = DefUid; user = DefUser; } if (egid == 0) egid = DefGid; } if (geteuid() == 0 && (ctladdr == NULL || !bitset(QGOODUID, ctladdr->q_flags))) flags |= SFF_SETUIDOK; if (!bitnset(DBS_FILEDELIVERYTOSYMLINK, DontBlameSendmail)) flags |= SFF_NOSLINK; if (!bitnset(DBS_FILEDELIVERYTOHARDLINK, DontBlameSendmail)) flags |= SFF_NOHLINK; errno = safefile(filename, euid, egid, user, flags, S_IWRITE, NULL); return errno == 0; } /* ** INCLUDE -- handle :include: specification. ** ** Parameters: ** fname -- filename to include. ** forwarding -- if true, we are reading a .forward file. ** if false, it's a :include: file. ** ctladdr -- address template to use to fill in these ** addresses -- effective user/group id are ** the important things. ** sendq -- a pointer to the head of the send queue ** to put these addresses in. ** aliaslevel -- the alias nesting depth. ** e -- the current envelope. ** ** Returns: ** open error status ** ** Side Effects: ** reads the :include: file and sends to everyone ** listed in that file. ** ** Security Note: ** If you have restricted chown (that is, you can't ** give a file away), it is reasonable to allow programs ** and files called from this :include: file to be to be ** run as the owner of the :include: file. This is bogus ** if there is any chance of someone giving away a file. ** We assume that pre-POSIX systems can give away files. ** ** There is an additional restriction that if you ** forward to a :include: file, it will not take on ** the ownership of the :include: file. This may not ** be necessary, but shouldn't hurt. */ static jmp_buf CtxIncludeTimeout; int include(fname, forwarding, ctladdr, sendq, aliaslevel, e) char *fname; bool forwarding; ADDRESS *ctladdr; ADDRESS **sendq; int aliaslevel; ENVELOPE *e; { SM_FILE_T *volatile fp = NULL; char *oldto = e->e_to; char *oldfilename = FileName; int oldlinenumber = LineNumber; register SM_EVENT *ev = NULL; int nincludes; int mode; volatile bool maxreached = false; register ADDRESS *ca; volatile uid_t saveduid; volatile gid_t savedgid; volatile uid_t uid; volatile gid_t gid; char *volatile user; int rval = 0; volatile long sfflags = SFF_REGONLY; register char *p; bool safechown = false; volatile bool safedir = false; struct stat st; char buf[MAXLINE]; if (tTd(27, 2)) sm_dprintf("include(%s)\n", fname); if (tTd(27, 4)) sm_dprintf(" ruid=%ld euid=%ld\n", (long) getuid(), (long) geteuid()); if (tTd(27, 14)) { sm_dprintf("ctladdr "); printaddr(sm_debug_file(), ctladdr, false); } if (tTd(27, 9)) sm_dprintf("include: old uid = %ld/%ld\n", (long) getuid(), (long) geteuid()); if (forwarding) { sfflags |= SFF_MUSTOWN|SFF_ROOTOK; if (!bitnset(DBS_GROUPWRITABLEFORWARDFILE, DontBlameSendmail)) sfflags |= SFF_NOGWFILES; if (!bitnset(DBS_WORLDWRITABLEFORWARDFILE, DontBlameSendmail)) sfflags |= SFF_NOWWFILES; } else { if (!bitnset(DBS_GROUPWRITABLEINCLUDEFILE, DontBlameSendmail)) sfflags |= SFF_NOGWFILES; if (!bitnset(DBS_WORLDWRITABLEINCLUDEFILE, DontBlameSendmail)) sfflags |= SFF_NOWWFILES; } /* ** If RunAsUser set, won't be able to run programs as user ** so mark them as unsafe unless the administrator knows better. */ if ((geteuid() != 0 || RunAsUid != 0) && !bitnset(DBS_NONROOTSAFEADDR, DontBlameSendmail)) { if (tTd(27, 4)) sm_dprintf("include: not safe (euid=%ld, RunAsUid=%ld)\n", (long) geteuid(), (long) RunAsUid); ctladdr->q_flags |= QUNSAFEADDR; } ca = getctladdr(ctladdr); if (ca == NULL || (ca->q_uid == DefUid && ca->q_gid == 0)) { uid = DefUid; gid = DefGid; user = DefUser; } else { uid = ca->q_uid; gid = ca->q_gid; user = ca->q_user; } #if MAILER_SETUID_METHOD != USE_SETUID saveduid = geteuid(); savedgid = getegid(); if (saveduid == 0) { if (!DontInitGroups) { if (initgroups(user, gid) == -1) { rval = EAGAIN; syserr("include: initgroups(%s, %ld) failed", user, (long) gid); goto resetuid; } } else { GIDSET_T gidset[1]; gidset[0] = gid; if (setgroups(1, gidset) == -1) { rval = EAGAIN; syserr("include: setgroups() failed"); goto resetuid; } } if (gid != 0 && setgid(gid) < -1) { rval = EAGAIN; syserr("setgid(%ld) failure", (long) gid); goto resetuid; } if (uid != 0) { # if MAILER_SETUID_METHOD == USE_SETEUID if (seteuid(uid) < 0) { rval = EAGAIN; syserr("seteuid(%ld) failure (real=%ld, eff=%ld)", (long) uid, (long) getuid(), (long) geteuid()); goto resetuid; } # endif /* MAILER_SETUID_METHOD == USE_SETEUID */ # if MAILER_SETUID_METHOD == USE_SETREUID if (setreuid(0, uid) < 0) { rval = EAGAIN; syserr("setreuid(0, %ld) failure (real=%ld, eff=%ld)", (long) uid, (long) getuid(), (long) geteuid()); goto resetuid; } # endif /* MAILER_SETUID_METHOD == USE_SETREUID */ } } #endif /* MAILER_SETUID_METHOD != USE_SETUID */ if (tTd(27, 9)) sm_dprintf("include: new uid = %ld/%ld\n", (long) getuid(), (long) geteuid()); /* ** If home directory is remote mounted but server is down, ** this can hang or give errors; use a timeout to avoid this */ if (setjmp(CtxIncludeTimeout) != 0) { ctladdr->q_state = QS_QUEUEUP; errno = 0; /* return pseudo-error code */ rval = E_SM_OPENTIMEOUT; goto resetuid; } if (TimeOuts.to_fileopen > 0) ev = sm_setevent(TimeOuts.to_fileopen, includetimeout, 0); else ev = NULL; /* check for writable parent directory */ p = strrchr(fname, '/'); if (p != NULL) { int ret; *p = '\0'; ret = safedirpath(fname, uid, gid, user, sfflags|SFF_SAFEDIRPATH, 0, 0); if (ret == 0) { /* in safe directory: relax chown & link rules */ safedir = true; sfflags |= SFF_NOPATHCHECK; } else { if (bitnset((forwarding ? DBS_FORWARDFILEINUNSAFEDIRPATH : DBS_INCLUDEFILEINUNSAFEDIRPATH), DontBlameSendmail)) sfflags |= SFF_NOPATHCHECK; else if (bitnset((forwarding ? DBS_FORWARDFILEINGROUPWRITABLEDIRPATH : DBS_INCLUDEFILEINGROUPWRITABLEDIRPATH), DontBlameSendmail) && ret == E_SM_GWDIR) { setbitn(DBS_GROUPWRITABLEDIRPATHSAFE, DontBlameSendmail); ret = safedirpath(fname, uid, gid, user, sfflags|SFF_SAFEDIRPATH, 0, 0); clrbitn(DBS_GROUPWRITABLEDIRPATHSAFE, DontBlameSendmail); if (ret == 0) sfflags |= SFF_NOPATHCHECK; else sfflags |= SFF_SAFEDIRPATH; } else sfflags |= SFF_SAFEDIRPATH; if (ret > E_PSEUDOBASE && !bitnset((forwarding ? DBS_FORWARDFILEINUNSAFEDIRPATHSAFE : DBS_INCLUDEFILEINUNSAFEDIRPATHSAFE), DontBlameSendmail)) { if (LogLevel > 11) sm_syslog(LOG_INFO, e->e_id, "%s: unsafe directory path, marked unsafe", shortenstring(fname, MAXSHORTSTR)); ctladdr->q_flags |= QUNSAFEADDR; } } *p = '/'; } /* allow links only in unwritable directories */ if (!safedir && !bitnset((forwarding ? DBS_LINKEDFORWARDFILEINWRITABLEDIR : DBS_LINKEDINCLUDEFILEINWRITABLEDIR), DontBlameSendmail)) sfflags |= SFF_NOLINK; rval = safefile(fname, uid, gid, user, sfflags, S_IREAD, &st); if (rval != 0) { /* don't use this :include: file */ if (tTd(27, 4)) sm_dprintf("include: not safe (uid=%ld): %s\n", (long) uid, sm_errstring(rval)); } else if ((fp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, fname, SM_IO_RDONLY, NULL)) == NULL) { rval = errno; if (tTd(27, 4)) sm_dprintf("include: open: %s\n", sm_errstring(rval)); } else if (filechanged(fname, sm_io_getinfo(fp,SM_IO_WHAT_FD, NULL), &st)) { rval = E_SM_FILECHANGE; if (tTd(27, 4)) sm_dprintf("include: file changed after open\n"); } if (ev != NULL) sm_clrevent(ev); resetuid: #if HASSETREUID || USESETEUID if (saveduid == 0) { if (uid != 0) { # if USESETEUID if (seteuid(0) < 0) syserr("!seteuid(0) failure (real=%ld, eff=%ld)", (long) getuid(), (long) geteuid()); # else /* USESETEUID */ if (setreuid(-1, 0) < 0) syserr("!setreuid(-1, 0) failure (real=%ld, eff=%ld)", (long) getuid(), (long) geteuid()); if (setreuid(RealUid, 0) < 0) syserr("!setreuid(%ld, 0) failure (real=%ld, eff=%ld)", (long) RealUid, (long) getuid(), (long) geteuid()); # endif /* USESETEUID */ } if (setgid(savedgid) < 0) syserr("!setgid(%ld) failure (real=%ld eff=%ld)", (long) savedgid, (long) getgid(), (long) getegid()); } #endif /* HASSETREUID || USESETEUID */ if (tTd(27, 9)) sm_dprintf("include: reset uid = %ld/%ld\n", (long) getuid(), (long) geteuid()); if (rval == E_SM_OPENTIMEOUT) usrerr("451 4.4.1 open timeout on %s", fname); if (fp == NULL) return rval; if (fstat(sm_io_getinfo(fp, SM_IO_WHAT_FD, NULL), &st) < 0) { rval = errno; syserr("Cannot fstat %s!", fname); (void) sm_io_close(fp, SM_TIME_DEFAULT); return rval; } /* if path was writable, check to avoid file giveaway tricks */ safechown = chownsafe(sm_io_getinfo(fp, SM_IO_WHAT_FD, NULL), safedir); if (tTd(27, 6)) sm_dprintf("include: parent of %s is %s, chown is %ssafe\n", fname, safedir ? "safe" : "dangerous", safechown ? "" : "un"); /* if no controlling user or coming from an alias delivery */ if (safechown && (ca == NULL || (ca->q_uid == DefUid && ca->q_gid == 0))) { ctladdr->q_uid = st.st_uid; ctladdr->q_gid = st.st_gid; ctladdr->q_flags |= QGOODUID; } if (ca != NULL && ca->q_uid == st.st_uid) { /* optimization -- avoid getpwuid if we already have info */ ctladdr->q_flags |= ca->q_flags & QBOGUSSHELL; ctladdr->q_ruser = ca->q_ruser; } else if (!forwarding) { register struct passwd *pw; pw = sm_getpwuid(st.st_uid); if (pw == NULL) { ctladdr->q_uid = st.st_uid; ctladdr->q_flags |= QBOGUSSHELL; } else { char *sh; ctladdr->q_ruser = sm_rpool_strdup_x(e->e_rpool, pw->pw_name); if (safechown) sh = pw->pw_shell; else sh = "/SENDMAIL/ANY/SHELL/"; if (!usershellok(pw->pw_name, sh)) { if (LogLevel > 11) sm_syslog(LOG_INFO, e->e_id, "%s: user %s has bad shell %s, marked %s", shortenstring(fname, MAXSHORTSTR), pw->pw_name, sh, safechown ? "bogus" : "unsafe"); if (safechown) ctladdr->q_flags |= QBOGUSSHELL; else ctladdr->q_flags |= QUNSAFEADDR; } } } if (bitset(EF_VRFYONLY, e->e_flags)) { /* don't do any more now */ ctladdr->q_state = QS_VERIFIED; e->e_nrcpts++; (void) sm_io_close(fp, SM_TIME_DEFAULT); return rval; } /* ** Check to see if some bad guy can write this file ** ** Group write checking could be more clever, e.g., ** guessing as to which groups are actually safe ("sys" ** may be; "user" probably is not). */ mode = S_IWOTH; if (!bitnset((forwarding ? DBS_GROUPWRITABLEFORWARDFILESAFE : DBS_GROUPWRITABLEINCLUDEFILESAFE), DontBlameSendmail)) mode |= S_IWGRP; if (bitset(mode, st.st_mode)) { if (tTd(27, 6)) sm_dprintf("include: %s is %s writable, marked unsafe\n", shortenstring(fname, MAXSHORTSTR), bitset(S_IWOTH, st.st_mode) ? "world" : "group"); if (LogLevel > 11) sm_syslog(LOG_INFO, e->e_id, "%s: %s writable %s file, marked unsafe", shortenstring(fname, MAXSHORTSTR), bitset(S_IWOTH, st.st_mode) ? "world" : "group", forwarding ? "forward" : ":include:"); ctladdr->q_flags |= QUNSAFEADDR; } /* read the file -- each line is a comma-separated list. */ FileName = fname; LineNumber = 0; ctladdr->q_flags &= ~QSELFREF; nincludes = 0; while (sm_io_fgets(fp, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0 && !maxreached) { fixcrlf(buf, true); LineNumber++; if (buf[0] == '#' || buf[0] == '\0') continue; /* #@# introduces a comment anywhere */ /* for Japanese character sets */ for (p = buf; (p = strchr(++p, '#')) != NULL; ) { if (p[1] == '@' && p[2] == '#' && isascii(p[-1]) && isspace(p[-1]) && (p[3] == '\0' || (SM_ISSPACE(p[3])))) { --p; while (p > buf && isascii(p[-1]) && isspace(p[-1])) --p; p[0] = '\0'; break; } } if (buf[0] == '\0') continue; e->e_to = NULL; message("%s to %s", forwarding ? "forwarding" : "sending", buf); if (forwarding && LogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "forward %.200s => %s", oldto, shortenstring(buf, MAXSHORTSTR)); nincludes += sendtolist(buf, ctladdr, sendq, aliaslevel + 1, e); if (forwarding && MaxForwardEntries > 0 && nincludes >= MaxForwardEntries) { /* just stop reading and processing further entries */ #if 0 /* additional: (?) */ ctladdr->q_state = QS_DONTSEND; #endif /* 0 */ syserr("Attempt to forward to more than %d addresses (in %s)!", MaxForwardEntries, fname); maxreached = true; } } if (sm_io_error(fp) && tTd(27, 3)) sm_dprintf("include: read error: %s\n", sm_errstring(errno)); if (nincludes > 0 && !bitset(QSELFREF, ctladdr->q_flags)) { if (aliaslevel <= MaxAliasRecursion || ctladdr->q_state != QS_BADADDR) { ctladdr->q_state = QS_DONTSEND; if (tTd(27, 5)) { sm_dprintf("include: QS_DONTSEND "); printaddr(sm_debug_file(), ctladdr, false); } } } (void) sm_io_close(fp, SM_TIME_DEFAULT); FileName = oldfilename; LineNumber = oldlinenumber; e->e_to = oldto; return rval; } static void includetimeout(ignore) int ignore; { /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ errno = ETIMEDOUT; longjmp(CtxIncludeTimeout, 1); } /* ** SENDTOARGV -- send to an argument vector. ** ** Parameters: ** argv -- argument vector to send to. ** e -- the current envelope. ** ** Returns: ** none. ** ** Side Effects: ** puts all addresses on the argument vector onto the ** send queue. */ void sendtoargv(argv, e) register char **argv; register ENVELOPE *e; { register char *p; #if USE_EAI if (!e->e_smtputf8) { char **av; av = argv; while ((p = *av++) != NULL) { if (!addr_is_ascii(p)) { e->e_smtputf8 = true; break; } } } #endif /* USE_EAI */ while ((p = *argv++) != NULL) { #if USE_EAI if (e->e_smtputf8) { int len = 0; if (!SMTP_UTF8 && !asciistr(p)) { usrerr("non-ASCII recipient address %s requires SMTPUTF8", p); finis(false, true, EX_USAGE); } p = quote_internal_chars(p, NULL, &len, NULL); } #endif /* USE_EAI */ (void) sendtolist(p, NULLADDR, &e->e_sendqueue, 0, e); } } /* ** GETCTLADDR -- get controlling address from an address header. ** ** If none, get one corresponding to the effective userid. ** ** Parameters: ** a -- the address to find the controller of. ** ** Returns: ** the controlling address. */ ADDRESS * getctladdr(a) register ADDRESS *a; { while (a != NULL && !bitset(QGOODUID, a->q_flags)) a = a->q_alias; return a; } /* ** SELF_REFERENCE -- check to see if an address references itself ** ** The check is done through a chain of aliases. If it is part of ** a loop, break the loop at the "best" address, that is, the one ** that exists as a real user. ** ** This is to handle the case of: ** awc: Andrew.Chang ** Andrew.Chang: awc@mail.server ** which is a problem only on mail.server. ** ** Parameters: ** a -- the address to check. ** ** Returns: ** The address that should be retained. */ static ADDRESS * self_reference(a) ADDRESS *a; { ADDRESS *b; /* top entry in self ref loop */ ADDRESS *c; /* entry that point to a real mail box */ if (tTd(27, 1)) sm_dprintf("self_reference(%s)\n", a->q_paddr); for (b = a->q_alias; b != NULL; b = b->q_alias) { if (sameaddr(a, b)) break; } if (b == NULL) { if (tTd(27, 1)) sm_dprintf("\t... no self ref\n"); return NULL; } /* ** Pick the first address that resolved to a real mail box ** i.e has a mbdb entry. The returned value will be marked ** QSELFREF in recipient(), which in turn will disable alias() ** from marking it as QS_IS_DEAD(), which mean it will be used ** as a deliverable address. ** ** The 2 key thing to note here are: ** 1) we are in a recursive call sequence: ** alias->sendtolist->recipient->alias ** 2) normally, when we return back to alias(), the address ** will be marked QS_EXPANDED, since alias() assumes the ** expanded form will be used instead of the current address. ** This behaviour is turned off if the address is marked ** QSELFREF. We set QSELFREF when we return to recipient(). */ c = a; while (c != NULL) { if (tTd(27, 10)) sm_dprintf(" %s", c->q_user); if (bitnset(M_HASPWENT, c->q_mailer->m_flags)) { SM_MBDB_T user; if (tTd(27, 2)) sm_dprintf("\t... getpwnam(%s)... ", c->q_user); if (sm_mbdb_lookup(c->q_user, &user) == EX_OK) { if (tTd(27, 2)) sm_dprintf("found\n"); /* ought to cache results here */ if (sameaddr(b, c)) return b; else return c; } if (tTd(27, 2)) sm_dprintf("failed\n"); } else { /* if local delivery, compare usernames */ if (bitnset(M_LOCALMAILER, c->q_mailer->m_flags) && b->q_mailer == c->q_mailer) { if (tTd(27, 2)) sm_dprintf("\t... local match (%s)\n", c->q_user); if (sameaddr(b, c)) return b; else return c; } } if (tTd(27, 10)) sm_dprintf("\n"); c = c->q_alias; } if (tTd(27, 1)) sm_dprintf("\t... cannot break loop for \"%s\"\n", a->q_paddr); return NULL; } sendmail-8.18.1/sendmail/SECURITY0000644000372400037240000001677014556365350015770 0ustar xbuildxbuild# Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # $Id: SECURITY,v 1.52 2013-11-22 20:51:54 ca Exp $ # This file gives some hints how to configure and run sendmail for people who are very security conscious (you should be...). Even though sendmail goes through great lengths to assure that it can't be compromised even if the system it is running on is incorrectly or insecurely configured, it can't work around everything. This has been demonstrated by OS problems which have subsequently been used to compromise the root account using sendmail as a vector. One way to minimize the possibility of such problems is to install sendmail without set-user-ID root, which avoids local exploits. This configuration, which is the default starting with 8.12, is described in the first section of this security guide. ***************************************************** ** sendmail configuration without set-user-ID root ** ***************************************************** sendmail needs to run as root for several purposes: - bind to port 25 - call the local delivery agent (LDA) as root (or other user) if the LDA isn't set-user-ID root (unless some other method of storing e-mail in local mailboxes is used). - read .forward files - write e-mail submitted via the command line to the queue directory. Only the last item requires a set-user-ID/set-group-ID program to avoid problems with a world-writable directory. It is however sufficient to have a set-group-ID program and a group-writable queue directory. The other requirements listed above can be fulfilled by a sendmail daemon that is started by root. Hence this section explains how to use two sendmail configurations to accomplish the goal to have a sendmail binary that is not set-user-ID root, and hence is not open to system configuration/OS problems or at least less problematic in presence of those. The default configuration starting with sendmail 8.12 uses one sendmail binary which acts differently based on operation mode and supplied options. sendmail must be a set-group-ID (default group: smmsp, recommended gid: 25) program to allow for queueing mail in a group-writable directory. Two .cf files are required: sendmail.cf for the daemon and submit.cf for the submission program. The following permissions should be used: -r-xr-sr-x root smmsp ... /PATH/TO/sendmail drwxrwx--- smmsp smmsp ... /var/spool/clientmqueue drwx------ root wheel ... /var/spool/mqueue -r--r--r-- root wheel ... /etc/mail/sendmail.cf -r--r--r-- root wheel ... /etc/mail/submit.cf [Notice: On some OS "wheel" is not used but "bin" or "root" instead, however, this is not important here.] That is, the owner of sendmail is root, the group is smmsp, and the binary is set-group-ID. The client mail queue is owned by smmsp with group smmsp and is group writable. The client mail queue directory must be writable by smmsp, but it must not be accessible for others. That is, do not use world read or execute permissions. In submit.cf the option UseMSP must be set, and QueueFileMode must be set to 0660. submit.cf is available in cf/cf/, which has been built from cf/cf/submit.mc. The file can be used as-is, if you want to add more options, use cf/cf/submit.mc as starting point and read cf/README: MESSAGE SUBMISSION PROGRAM carefully. The .cf file is chosen based on the operation mode. For -bm (default), -bs, and -t it is submit.cf (if it exists) for all others it is sendmail.cf. This selection can be changed by -Ac or -Am (alternative .cf file: client or mta). The daemon must be started by root as usual, e.g., /PATH/TO/sendmail -L sm-mta -bd -q1h (replace /PATH/TO with the right path for your OS, e.g., /usr/sbin or /usr/lib). Notice: if you run sendmail from inetd (which in general is not a good idea), you must specify -Am in addition to -bs. Mail will end up in the client queue if the daemon doesn't accept connections or if an address is temporarily not resolvable. The latter problem can be minimized by using FEATURE(`nocanonify', `canonify_hosts') define(`confDIRECT_SUBMISSION_MODIFIERS', `C') which, however, may have undesired side effects. See cf/README for a discussion. In general it is necessary to clean the queue either via a cronjob or by running a daemon, e.g., /PATH/TO/sendmail -L sm-msp-queue -Ac -q30m If the option UseMSP is not set, sendmail will complain during queue runs about bogus file permission. If you want a queue runner for the client queue, you probably have to change OS specific scripts to accomplish this (check the man pages of your OS for more information.) You can start this program as root, it will change its user id to RunAsUser (smmsp by default, recommended uid: 25). This way smmsp does not need a valid shell. Summary ------- This is a brief summary how the two configuration files are used: sendmail.cf For the MTA (mail transmission agent) The MTA is started by root as daemon: /PATH/TO/sendmail -L sm-mta -bd -q1h it accepts SMTP connections (on ports 25 and 587 by default); it runs the main queue (/var/spool/mqueue by default). submit.cf For the MSP (mail submission program) The MSP is used to submit e-mails, hence it is invoked by programs (and maybe users); it does not run as SMTP daemon; it uses /var/spool/clientmqueue by default; it can be started to run that queue periodically: /PATH/TO/sendmail -L sm-msp-queue -Ac -q30m Hints and Troubleshooting ------------------------- RunAsUser: FEATURE(`msp') sets the option RunAsUser to smmsp. This user must have the group smmsp, i.e., the same group as the clientmqueue directory. If you specify a user whose primary group is not the same as that of the clientmqueue directory, then you should explicitly set the group, e.g., FEATURE(`msp') define(`confRUN_AS_USER', `mailmsp:smmsp') STARTTLS: If sendmail is compiled with STARTTLS support on a platform that does not have HASURANDOMDEV defined, you either need to specify the RandFile option (as for the MTA), or you have to turn off STARTTLS in the MSP, e.g., DAEMON_OPTIONS(`Name=NoMTA, Addr=127.0.0.1, M=S') FEATURE(`msp') CLIENT_OPTIONS(`Family=inet, Address=0.0.0.0, M=S') The first option is used to turn off STARTTLS when the MSP is invoked with -bs as some MUAs do. What doesn't work anymore ------------------------- Normal users can't use mailq anymore to see the MTA mail queue. There are several ways around it, e.g., changing QueueFileMode or giving users access via a program like sudo. sendmail -bv may give misleading output for normal users since it may not be able to access certain files, e.g., .forward files of other users. Alternative ----------- Instead of having one set-group-ID binary, it is possible to use two with different permissions: one for message submission (set-group-ID), one acting as daemon etc, which is only executable by root. In that case it is possible to remove features from the message submission program to have a smaller binary. You can use sh ./Build install-sm-mta to install a sendmail program to act as daemon etc under the name sm-mta. Set-User-Id ----------- If you really have to install sendmail set-user-ID root, first build the sendmail package normally using sh ./Build Then you can use sh ./Build install-set-user-id to install the package in the old (pre-8.12) way. Make sure that no submit.cf file is installed. See devtools/README about confSETUSERID_INSTALL which you need to define. sendmail-8.18.1/sendmail/aliases.00000644000372400037240000000705214556365426016275 0ustar xbuildxbuildALIASES(5) ALIASES(5) NNAAMMEE aliases - aliases file for sendmail SSYYNNOOPPSSIISS aalliiaasseess DDEESSCCRRIIPPTTIIOONN This file describes user ID aliases used by sendmail. The file resides in /etc/mail and is formatted as a series of lines of the form name: addr_1, addr_2, addr_3, . . . The _n_a_m_e is the name to alias, and the _a_d_d_r___n are the aliases for that name. _a_d_d_r___n can be another alias, a local username, a local filename, a command, an include file, or an external address. LLooccaall UUsseerrnnaammee username The username must be available via getpwnam(3). LLooccaall FFiilleennaammee /path/name Messages are appended to the file specified by the full pathname (starting with a slash (/)) CCoommmmaanndd |command A command starts with a pipe symbol (|), it receives messages via standard input. IInncclluuddee FFiillee :include: /path/name The aliases in pathname are added to the aliases for _n_a_m_e_. EE--MMaaiill AAddddrreessss user@domain An e-mail address in RFC 822 format. Lines beginning with white space are continuation lines. Another way to continue lines is by placing a backslash directly before a newline. Lines beginning with # are comments. Aliasing occurs only on local names. Loops can not occur, since no message will be sent to any person more than once. If an alias is found for _n_a_m_e, sendmail then checks for an alias for _o_w_n_e_r_-_n_a_m_e. If it is found and the result of the lookup expands to a single address, the envelope sender address of the message is rewritten to that address. If it is found and the result expands to more than one address, the envelope sender address is changed to _o_w_n_e_r_-_n_a_m_e. After aliasing has been done, local and valid recipients who have a ``.forward'' file in their home directory have messages forwarded to the list of users defined in that file. This is only the raw data file; the actual aliasing information is placed into a binary format in the file /etc/mail/aliases.db using the program newaliases(1). A newaliases command should be executed each time the aliases file is changed for the change to take effect. SSEEEE AALLSSOO newaliases(1), dbm(3), dbopen(3), db_open(3), sendmail(8) _S_E_N_D_M_A_I_L _I_n_s_t_a_l_l_a_t_i_o_n _a_n_d _O_p_e_r_a_t_i_o_n _G_u_i_d_e_. _S_E_N_D_M_A_I_L _A_n _I_n_t_e_r_n_e_t_w_o_r_k _M_a_i_l _R_o_u_t_e_r_. BBUUGGSS If you have compiled sendmail with DBM support instead of NEWDB, you may have encountered problems in dbm(3) restricting a single alias to about 1000 bytes of information. You can get longer aliases by ``chaining''; that is, make the last name in the alias be a dummy name which is a continuation alias. HHIISSTTOORRYY The aalliiaasseess file format appeared in 4.0BSD. $Date: 2013-11-22 20:51:55 $ ALIASES(5) sendmail-8.18.1/sendmail/sasl.c0000644000372400037240000001332114556365350015671 0ustar xbuildxbuild/* * Copyright (c) 2001-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: sasl.c,v 8.24 2013-11-22 20:51:56 ca Exp $") #if SASL # include # include # include /* ** In order to ensure that storage leaks are tracked, and to prevent ** conflicts between the sm_heap package and sasl, we tell sasl to ** use the following heap allocation functions. Unfortunately, ** older sasl packages incorrectly specifies the size of a block ** using unsigned long: for portability, it should be size_t. */ # if defined(SASL_VERSION_FULL) && SASL_VERSION_FULL >= 0x02011a # define SM_SASL_SIZE_T size_t # else # define SM_SASL_SIZE_T unsigned long # endif void *sm_sasl_malloc __P((SM_SASL_SIZE_T)); static void *sm_sasl_calloc __P((SM_SASL_SIZE_T, SM_SASL_SIZE_T)); static void *sm_sasl_realloc __P((void *, SM_SASL_SIZE_T)); void sm_sasl_free __P((void *)); /* ** SASLv1: ** We can't use an rpool for Cyrus-SASL memory management routines, ** since the encryption/decryption routines in Cyrus-SASL ** allocate/deallocate a buffer each time. Since rpool ** don't release memory until the very end, memory consumption is ** proportional to the size of an e-mail, which is unacceptable. */ /* ** SM_SASL_MALLOC -- malloc() for SASL ** ** Parameters: ** size -- size of requested memory. ** ** Returns: ** pointer to memory. */ void * sm_sasl_malloc(size) SM_SASL_SIZE_T size; { return sm_malloc((size_t) size); } /* ** SM_SASL_CALLOC -- calloc() for SASL ** ** Parameters: ** nelem -- number of elements. ** elemsize -- size of each element. ** ** Returns: ** pointer to memory. ** ** Notice: ** this isn't currently used by SASL. */ static void * sm_sasl_calloc(nelem, elemsize) SM_SASL_SIZE_T nelem; SM_SASL_SIZE_T elemsize; { size_t size; void *p; size = (size_t) nelem * (size_t) elemsize; p = sm_malloc(size); if (p == NULL) return NULL; memset(p, '\0', size); return p; } /* ** SM_SASL_REALLOC -- realloc() for SASL ** ** Parameters: ** p -- pointer to old memory. ** size -- size of requested memory. ** ** Returns: ** pointer to new memory. */ static void * sm_sasl_realloc(o, size) void *o; SM_SASL_SIZE_T size; { return sm_realloc(o, (size_t) size); } /* ** SM_SASL_FREE -- free() for SASL ** ** Parameters: ** p -- pointer to free. ** ** Returns: ** none */ void sm_sasl_free(p) void *p; { sm_free(p); } /* ** SM_SASL_INIT -- sendmail specific SASL initialization ** ** Parameters: ** none. ** ** Returns: ** none ** ** Side Effects: ** installs memory management routines for SASL. */ void sm_sasl_init() { sasl_set_alloc(sm_sasl_malloc, sm_sasl_calloc, sm_sasl_realloc, sm_sasl_free); } /* ** INTERSECT -- create the intersection between two lists ** ** Parameters: ** s1, s2 -- lists of items (separated by single blanks). ** rpool -- resource pool from which result is allocated. ** ** Returns: ** the intersection of both lists. */ char * intersect(s1, s2, rpool) char *s1, *s2; SM_RPOOL_T *rpool; { char *hr, *h1, *h, *res; int l1, l2, rl; if (s1 == NULL || s2 == NULL) /* NULL string(s) -> NULL result */ return NULL; l1 = strlen(s1); l2 = strlen(s2); rl = SM_MIN(l1, l2); res = (char *) sm_rpool_malloc(rpool, rl + 1); if (res == NULL) return NULL; *res = '\0'; if (rl == 0) /* at least one string empty? */ return res; hr = res; h1 = s1; h = s1; /* walk through s1 */ while (h != NULL && *h1 != '\0') { /* is there something after the current word? */ if ((h = strchr(h1, ' ')) != NULL) *h = '\0'; l1 = strlen(h1); /* does the current word appear in s2 ? */ if (iteminlist(h1, s2, " ") != NULL) { /* add a blank if not first item */ if (hr != res) *hr++ = ' '; /* copy the item */ memcpy(hr, h1, l1); /* advance pointer in result list */ hr += l1; *hr = '\0'; } if (h != NULL) { /* there are more items */ *h = ' '; h1 = h + 1; } } return res; } # if SASL >= 20000 /* ** IPTOSTRING -- create string for SASL_IP*PORT property ** (borrowed from lib/iptostring.c in Cyrus-IMAP) ** ** Parameters: ** addr -- (pointer to) socket address ** addrlen -- length of socket address ** out -- output string (result) ** outlen -- maximum length of output string ** ** Returns: ** true iff successful. ** ** Side Effects: ** creates output string if successful. ** sets errno if unsuccessful. */ # include # ifndef NI_MAXHOST # define NI_MAXHOST 1025 # endif # ifndef NI_MAXSERV # define NI_MAXSERV 32 # endif bool iptostring(addr, addrlen, out, outlen) SOCKADDR *addr; SOCKADDR_LEN_T addrlen; char *out; unsigned outlen; { char hbuf[NI_MAXHOST], pbuf[NI_MAXSERV]; # if NETINET6 int niflags; # endif if (addr == NULL || out == NULL) { errno = EINVAL; return false; } # if NETINET6 niflags = (NI_NUMERICHOST | NI_NUMERICSERV); # ifdef NI_WITHSCOPEID if (addr->sa.sa_family == AF_INET6) niflags |= NI_WITHSCOPEID; # endif if (getnameinfo((struct sockaddr *) addr, addrlen, hbuf, sizeof(hbuf), pbuf, sizeof(pbuf), niflags) != 0) return false; # else /* NETINET6 */ if (addr->sa.sa_family != AF_INET) { errno = EINVAL; return false; } if (sm_strlcpy(hbuf, inet_ntoa(addr->sin.sin_addr), sizeof(hbuf)) >= sizeof(hbuf)) { errno = ENOMEM; return false; } sm_snprintf(pbuf, sizeof(pbuf), "%d", ntohs(addr->sin.sin_port)); # endif /* NETINET6 */ if (outlen < strlen(hbuf) + strlen(pbuf) + 2) { errno = ENOMEM; return false; } sm_snprintf(out, outlen, "%s;%s", hbuf, pbuf); return true; } # endif /* SASL >= 20000 */ #endif /* SASL */ sendmail-8.18.1/sendmail/headers.c0000644000372400037240000015013114556365350016343 0ustar xbuildxbuild/* * Copyright (c) 1998-2004, 2006, 2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include #include SM_RCSID("@(#)$Id: headers.c,v 8.320 2013-11-22 20:51:55 ca Exp $") static HDR *allocheader __P((char *, char *, int, SM_RPOOL_T *, bool)); static size_t fix_mime_header __P((HDR *, ENVELOPE *)); static int priencode __P((char *)); static bool put_vanilla_header __P((HDR *, char *, MCI *)); /* ** SETUPHEADERS -- initialize headers in symbol table ** ** Parameters: ** none ** ** Returns: ** none */ void setupheaders() { struct hdrinfo *hi; STAB *s; for (hi = HdrInfo; hi->hi_field != NULL; hi++) { s = stab(hi->hi_field, ST_HEADER, ST_ENTER); s->s_header.hi_flags = hi->hi_flags; s->s_header.hi_ruleset = NULL; } } /* ** DOCHOMPHEADER -- process and save a header line. ** ** Called by chompheader. ** ** Parameters: ** line -- header as a text line. ** pflag -- flags for chompheader() (from sendmail.h) ** hdrp -- a pointer to the place to save the header. ** e -- the envelope including this header. ** ** Returns: ** flags for this header. ** ** Side Effects: ** The header is saved on the header list. ** Contents of 'line' are destroyed. */ static struct hdrinfo NormalHeader = { NULL, 0, NULL }; static unsigned long dochompheader __P((char *, int, HDR **, ENVELOPE *)); static unsigned long dochompheader(line, pflag, hdrp, e) char *line; int pflag; HDR **hdrp; ENVELOPE *e; { unsigned char mid = '\0'; register char *p; register HDR *h; HDR **hp; char *fname; char *fvalue; bool cond = false; bool dropfrom; bool headeronly; STAB *s; struct hdrinfo *hi; bool nullheader = false; BITMAP256 mopts; headeronly = hdrp != NULL; if (!headeronly) hdrp = &e->e_header; /* strip off options */ clrbitmap(mopts); p = line; if (!bitset(pflag, CHHDR_USER) && *p == '?') { int c; register char *q; q = strchr(++p, '?'); if (q == NULL) goto hse; *q = '\0'; c = *p & 0377; /* possibly macro conditional */ if (c == MACROEXPAND) { /* catch ?$? */ if (*++p == '\0') { *q = '?'; goto hse; } mid = (unsigned char) *p++; /* catch ?$abc? */ if (*p != '\0') { *q = '?'; goto hse; } } else if (*p == '$') { /* catch ?$? */ if (*++p == '\0') { *q = '?'; goto hse; } mid = (unsigned char) macid(p); if (bitset(0200, mid)) { p += strlen(macname(mid)) + 2; SM_ASSERT(p <= q); } else p++; /* catch ?$abc? */ if (*p != '\0') { *q = '?'; goto hse; } } else { while (*p != '\0') { if (!isascii(*p)) { *q = '?'; goto hse; } setbitn(bitidx(*p), mopts); cond = true; p++; } } p = q + 1; } /* find canonical name */ fname = p; while (isascii(*p) && isgraph(*p) && *p != ':') p++; fvalue = p; while (SM_ISSPACE(*p)) p++; if (*p++ != ':' || fname == fvalue) { hse: syserr("553 5.3.0 header syntax error, line \"%s\"", line); return 0; } *fvalue = '\0'; fvalue = p; /* if the field is null, go ahead and use the default */ while (SM_ISSPACE(*p)) p++; if (*p == '\0') nullheader = true; /* security scan: long field names are end-of-header */ if (strlen(fname) > 100) return H_EOH; /* check to see if it represents a ruleset call */ if (bitset(pflag, CHHDR_DEF)) { char hbuf[50]; (void) expand(fvalue, hbuf, sizeof(hbuf), e); for (p = hbuf; SM_ISSPACE(*p); ) p++; if ((*p++ & 0377) == CALLSUBR) { auto char *endp; bool strc; strc = *p == '+'; /* strip comments? */ if (strc) ++p; if (strtorwset(p, &endp, ST_ENTER) > 0) { *endp = '\0'; s = stab(fname, ST_HEADER, ST_ENTER); if (LogLevel > 9 && s->s_header.hi_ruleset != NULL) sm_syslog(LOG_WARNING, NOQID, "Warning: redefined ruleset for header=%s, old=%s, new=%s", fname, s->s_header.hi_ruleset, p); s->s_header.hi_ruleset = newstr(p); if (!strc) s->s_header.hi_flags |= H_STRIPCOMM; } return 0; } } /* see if it is a known type */ s = stab(fname, ST_HEADER, ST_FIND); if (s != NULL) hi = &s->s_header; else hi = &NormalHeader; if (tTd(31, 9)) { if (s == NULL) sm_dprintf("no header flags match\n"); else sm_dprintf("header match, flags=%lx, ruleset=%s\n", hi->hi_flags, hi->hi_ruleset == NULL ? "" : hi->hi_ruleset); } /* see if this is a resent message */ if (!bitset(pflag, CHHDR_DEF) && !headeronly && bitset(H_RESENT, hi->hi_flags)) e->e_flags |= EF_RESENT; /* if this is an Errors-To: header keep track of it now */ if (UseErrorsTo && !bitset(pflag, CHHDR_DEF) && !headeronly && bitset(H_ERRORSTO, hi->hi_flags)) (void) sendtolist(fvalue, NULLADDR, &e->e_errorqueue, 0, e); /* if this means "end of header" quit now */ if (!headeronly && bitset(H_EOH, hi->hi_flags)) return hi->hi_flags; /* ** Horrible hack to work around problem with Lotus Notes SMTP ** mail gateway, which generates From: headers with newlines in ** them and the
    on the second line. Although this is ** legal RFC 822, many MUAs don't handle this properly and thus ** never find the actual address. */ if (bitset(H_FROM, hi->hi_flags) && SingleLineFromHeader) { while ((p = strchr(fvalue, '\n')) != NULL) *p = ' '; } /* ** If there is a check ruleset, verify it against the header. */ if (bitset(pflag, CHHDR_CHECK)) { int rscheckflags; char *rs; rscheckflags = RSF_COUNT; if (!bitset(hi->hi_flags, H_FROM|H_RCPT)) rscheckflags |= RSF_UNSTRUCTURED; /* no ruleset? look for default */ rs = hi->hi_ruleset; if (rs == NULL) { s = stab("*", ST_HEADER, ST_FIND); if (s != NULL) { rs = (&s->s_header)->hi_ruleset; if (bitset((&s->s_header)->hi_flags, H_STRIPCOMM)) rscheckflags |= RSF_RMCOMM; } } else if (bitset(hi->hi_flags, H_STRIPCOMM)) rscheckflags |= RSF_RMCOMM; if (rs != NULL) { int l, k; char qval[MAXNAME_I]; XLENDECL l = 0; XLEN('"'); qval[l++] = '"'; /* - 3 to avoid problems with " at the end */ for (k = 0; fvalue[k] != '\0' && l < sizeof(qval) - 3 && xlen < MAXNAME - 3; k++) { XLEN(fvalue[k]); switch (fvalue[k]) { /* XXX other control chars? */ case '\011': /* ht */ case '\012': /* nl */ case '\013': /* vt */ case '\014': /* np */ case '\015': /* cr */ qval[l++] = ' '; break; case '\\': qval[l++] = fvalue[k]; ++k; XLEN(fvalue[k]); qval[l++] = fvalue[k]; break; case '"': XLEN('\\'); qval[l++] = '\\'; /* FALLTHROUGH */ default: qval[l++] = fvalue[k]; break; } } /* just for "completeness": xlen not used afterwards */ XLEN('"'); qval[l++] = '"'; qval[l] = '\0'; l = strlen(fvalue + k); /* ** If there is something left in fvalue ** then it has been truncated. ** Note: the log entry might not be correct ** in the EAI case: to get the "real" length ** ilenx() would have to be applied to fvalue. */ if (l > 0) { if (LogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "Warning: truncated header '%s' before check with '%s' len=%d max=%d", fname, rs, xlen + l, MAXNAME); } macdefine(&e->e_macro, A_TEMP, macid("{currHeader}"), qval); macdefine(&e->e_macro, A_TEMP, macid("{hdr_name}"), fname); (void) sm_snprintf(qval, sizeof(qval), "%d", k); macdefine(&e->e_macro, A_TEMP, macid("{hdrlen}"), qval); if (bitset(H_FROM, hi->hi_flags)) macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "h s"); else if (bitset(H_RCPT, hi->hi_flags)) macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "h r"); else macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "h"); (void) rscheck(rs, fvalue, NULL, e, rscheckflags, 3, NULL, e->e_id, NULL, NULL); } } /* ** Drop explicit From: if same as what we would generate. ** This is to make MH (which doesn't always give a full name) ** insert the full name information in all circumstances. */ dropfrom = false; p = "resent-from"; if (!bitset(EF_RESENT, e->e_flags)) p += 7; if (!bitset(pflag, CHHDR_DEF) && !headeronly && !bitset(EF_QUEUERUN, e->e_flags) && SM_STRCASEEQ(fname, p)) { if (e->e_from.q_paddr != NULL && e->e_from.q_mailer != NULL && bitnset(M_LOCALMAILER, e->e_from.q_mailer->m_flags) && (strcmp(fvalue, e->e_from.q_paddr) == 0 || strcmp(fvalue, e->e_from.q_user) == 0)) dropfrom = true; if (tTd(31, 2)) { sm_dprintf("comparing header from (%s) against default (%s or %s), drop=%d\n", fvalue, e->e_from.q_paddr, e->e_from.q_user, dropfrom); } } /* delete default value for this header */ for (hp = hdrp; (h = *hp) != NULL; hp = &h->h_link) { if (SM_STRCASEEQ(fname, h->h_field) && !bitset(H_USER, h->h_flags) && !bitset(H_FORCE, h->h_flags)) { if (nullheader) { /* user-supplied value was null */ return 0; } if (dropfrom) { /* make this look like the user entered it */ h->h_flags |= H_USER; /* ** If the MH hack is selected, allow to turn ** it off via a mailer flag to avoid problems ** with setups that remove the F flag from ** the RCPT mailer. */ if (bitnset(M_NOMHHACK, e->e_from.q_mailer->m_flags)) { h->h_flags &= ~H_CHECK; } return hi->hi_flags; } h->h_value = NULL; if (!cond) { /* copy conditions from default case */ memmove((char *) mopts, (char *) h->h_mflags, sizeof(mopts)); } h->h_macro = mid; } } /* create a new node */ h = (HDR *) sm_rpool_malloc_tagged_x(e->e_rpool, sizeof(*h), "header", pflag, bitset(pflag, CHHDR_DEF) ? 0 : 1); h->h_field = sm_rpool_strdup_tagged_x(e->e_rpool, fname, "h_field", pflag, bitset(pflag, CHHDR_DEF) ? 0 : 1); h->h_value = sm_rpool_strdup_tagged_x(e->e_rpool, fvalue, "h_value", pflag, bitset(pflag, CHHDR_DEF) ? 0 : 1); h->h_link = NULL; memmove((char *) h->h_mflags, (char *) mopts, sizeof(mopts)); h->h_macro = mid; *hp = h; h->h_flags = hi->hi_flags; if (bitset(pflag, CHHDR_USER) || bitset(pflag, CHHDR_QUEUE)) h->h_flags |= H_USER; /* strip EOH flag if parsing MIME headers */ if (headeronly) h->h_flags &= ~H_EOH; if (bitset(pflag, CHHDR_DEF)) h->h_flags |= H_DEFAULT; if (cond || mid != '\0') h->h_flags |= H_CHECK; /* hack to see if this is a new format message */ if (!bitset(pflag, CHHDR_DEF) && !headeronly && bitset(H_RCPT|H_FROM, h->h_flags) && (strchr(fvalue, ',') != NULL || strchr(fvalue, '(') != NULL || strchr(fvalue, '<') != NULL || strchr(fvalue, ';') != NULL)) { e->e_flags &= ~EF_OLDSTYLE; } return h->h_flags; } /* ** CHOMPHEADER -- process and save a header line. ** ** Called by collect, readcf, and readqf to deal with header lines. ** This is just a wrapper for dochompheader(). ** ** Parameters: ** line -- header as a text line. ** pflag -- flags for chompheader() (from sendmail.h) ** hdrp -- a pointer to the place to save the header. ** e -- the envelope including this header. ** ** Returns: ** flags for this header. ** ** Side Effects: ** The header is saved on the header list. ** Contents of 'line' are destroyed. */ unsigned long chompheader(line, pflag, hdrp, e) char *line; int pflag; HDR **hdrp; register ENVELOPE *e; { unsigned long rval; if (tTd(31, 6)) { sm_dprintf("chompheader: "); xputs(sm_debug_file(), line); sm_dprintf("\n"); } /* quote this if user (not config file) input */ if (bitset(pflag, CHHDR_USER)) { char xbuf[MAXLINE]; /* EAI:ok; actual buffer might be greater */ char *xbp = NULL; int xbufs; xbufs = sizeof(xbuf); xbp = quote_internal_chars(line, xbuf, &xbufs, NULL); if (tTd(31, 7)) { sm_dprintf("chompheader: quoted: "); xputs(sm_debug_file(), xbp); sm_dprintf("\n"); } rval = dochompheader(xbp, pflag, hdrp, e); if (xbp != xbuf) sm_free(xbp); } else rval = dochompheader(line, pflag, hdrp, e); return rval; } /* ** ALLOCHEADER -- allocate a header entry ** ** Parameters: ** field -- the name of the header field (will not be copied). ** value -- the value of the field (will be copied). ** flags -- flags to add to h_flags. ** rp -- resource pool for allocations ** space -- add leading space? ** ** Returns: ** Pointer to a newly allocated and populated HDR. ** ** Notes: ** o field and value must be in internal format, i.e., ** metacharacters must be "quoted", see quote_internal_chars(). ** o maybe add more flags to decide: ** - what to copy (field/value) ** - whether to convert value to an internal format */ static HDR * allocheader(field, value, flags, rp, space) char *field; char *value; int flags; SM_RPOOL_T *rp; bool space; { HDR *h; STAB *s; /* find info struct */ s = stab(field, ST_HEADER, ST_FIND); /* allocate space for new header */ h = (HDR *) sm_rpool_malloc_x(rp, sizeof(*h)); h->h_field = field; if (space) { size_t l; char *n; l = strlen(value); SM_ASSERT(l + 2 > l); n = sm_rpool_malloc_x(rp, l + 2); n[0] = ' '; n[1] = '\0'; sm_strlcpy(n + 1, value, l + 1); h->h_value = n; } else h->h_value = sm_rpool_strdup_x(rp, value); h->h_flags = flags; if (s != NULL) h->h_flags |= s->s_header.hi_flags; clrbitmap(h->h_mflags); h->h_macro = '\0'; return h; } /* ** ADDHEADER -- add a header entry to the end of the queue. ** ** This bypasses the special checking of chompheader. ** ** Parameters: ** field -- the name of the header field (will not be copied). ** value -- the value of the field (will be copied). ** flags -- flags to add to h_flags. ** e -- envelope. ** space -- add leading space? ** ** Returns: ** none. ** ** Side Effects: ** adds the field on the list of headers for this envelope. ** ** Notes: field and value must be in internal format, i.e., ** metacharacters must be "quoted", see quote_internal_chars(). */ void addheader(field, value, flags, e, space) char *field; char *value; int flags; ENVELOPE *e; bool space; { register HDR *h; HDR **hp; HDR **hdrlist = &e->e_header; /* find current place in list -- keep back pointer? */ for (hp = hdrlist; (h = *hp) != NULL; hp = &h->h_link) { if (SM_STRCASEEQ(field, h->h_field)) break; } /* allocate space for new header */ h = allocheader(field, value, flags, e->e_rpool, space); h->h_link = *hp; *hp = h; } /* ** INSHEADER -- insert a header entry at the specified index ** This bypasses the special checking of chompheader. ** ** Parameters: ** idx -- index into the header list at which to insert ** field -- the name of the header field (will be copied). ** value -- the value of the field (will be copied). ** flags -- flags to add to h_flags. ** e -- envelope. ** space -- add leading space? ** ** Returns: ** none. ** ** Side Effects: ** inserts the field on the list of headers for this envelope. ** ** Notes: ** - field and value must be in internal format, i.e., ** metacharacters must be "quoted", see quote_internal_chars(). ** - the header list contains headers that might not be ** sent "out" (see putheader(): "skip"), hence there is no ** reliable way to insert a header at an exact position ** (except at the front or end). */ void insheader(idx, field, value, flags, e, space) int idx; char *field; char *value; int flags; ENVELOPE *e; bool space; { HDR *h, *srch, *last = NULL; /* allocate space for new header */ h = allocheader(field, value, flags, e->e_rpool, space); /* find insertion position */ for (srch = e->e_header; srch != NULL && idx > 0; srch = srch->h_link, idx--) last = srch; if (e->e_header == NULL) { e->e_header = h; h->h_link = NULL; } else if (srch == NULL) { SM_ASSERT(last != NULL); last->h_link = h; h->h_link = NULL; } else { h->h_link = srch->h_link; srch->h_link = h; } } /* ** HVALUE -- return value of a header. ** ** Only "real" fields (i.e., ones that have not been supplied ** as a default) are used. ** ** Parameters: ** field -- the field name. ** header -- the header list. ** ** Returns: ** pointer to the value part (internal format). ** NULL if not found. ** ** Side Effects: ** none. */ char * hvalue(field, header) char *field; HDR *header; { register HDR *h; for (h = header; h != NULL; h = h->h_link) { if (!bitset(H_DEFAULT, h->h_flags) && SM_STRCASEEQ(h->h_field, field)) { char *s; s = h->h_value; if (s == NULL) return NULL; while (SM_ISSPACE(*s)) s++; return s; } } return NULL; } /* ** ISHEADER -- predicate telling if argument is a header. ** ** A line is a header if it has a single word followed by ** optional white space followed by a colon. ** ** Header fields beginning with two dashes, although technically ** permitted by RFC822, are automatically rejected in order ** to make MIME work out. Without this we could have a technically ** legal header such as ``--"foo:bar"'' that would also be a legal ** MIME separator. ** ** Parameters: ** h -- string to check for possible headerness. ** ** Returns: ** true if h is a header. ** false otherwise. ** ** Side Effects: ** none. */ bool isheader(h) char *h; { char *s; s = h; if (s[0] == '-' && s[1] == '-') return false; while (*s > ' ' && *s != ':' && *s != '\0') s++; if (h == s) return false; /* following technically violates RFC822 */ while (SM_ISSPACE(*s)) s++; return (*s == ':'); } /* ** EATHEADER -- run through the stored header and extract info. ** ** Parameters: ** e -- the envelope to process. ** full -- if set, do full processing (e.g., compute ** message priority). This should not be set ** when reading a queue file because some info ** needed to compute the priority is wrong. ** log -- call logsender()? ** ** Returns: ** none. ** ** Side Effects: ** Sets a bunch of global variables from information ** in the collected header. */ void eatheader(e, full, log) register ENVELOPE *e; bool full; bool log; { register HDR *h; register char *p; int hopcnt = 0; char buf[MAXLINE]; /* ** Set up macros for possible expansion in headers. */ macdefine(&e->e_macro, A_PERM, 'f', e->e_sender); macdefine(&e->e_macro, A_PERM, 'g', e->e_sender); if (e->e_origrcpt != NULL && *e->e_origrcpt != '\0') macdefine(&e->e_macro, A_PERM, 'u', e->e_origrcpt); else macdefine(&e->e_macro, A_PERM, 'u', NULL); /* full name of from person */ p = hvalue("full-name", e->e_header); if (p != NULL) { if (!rfc822_string(p)) { /* ** Quote a full name with special characters ** as a comment so crackaddr() doesn't destroy ** the name portion of the address. */ p = addquotes(p, e->e_rpool); } macdefine(&e->e_macro, A_PERM, 'x', p); } if (tTd(32, 1)) sm_dprintf("----- collected header -----\n"); e->e_msgid = NULL; for (h = e->e_header; h != NULL; h = h->h_link) { if (tTd(32, 1)) sm_dprintf("%s:", h->h_field); if (h->h_value == NULL) { if (tTd(32, 1)) sm_dprintf("\n"); continue; } /* do early binding */ if (bitset(H_DEFAULT, h->h_flags) && !bitset(H_BINDLATE, h->h_flags)) { if (tTd(32, 1)) { sm_dprintf("("); xputs(sm_debug_file(), h->h_value); sm_dprintf(") "); } expand(h->h_value, buf, sizeof(buf), e); if (buf[0] != '\0' && (buf[0] != ' ' || buf[1] != '\0')) { if (bitset(H_FROM, h->h_flags)) expand(crackaddr(buf, e), buf, sizeof(buf), e); h->h_value = sm_rpool_strdup_x(e->e_rpool, buf); h->h_flags &= ~H_DEFAULT; } } if (tTd(32, 1)) { xputs(sm_debug_file(), h->h_value); sm_dprintf("\n"); } /* count the number of times it has been processed */ if (bitset(H_TRACE, h->h_flags)) hopcnt++; /* send to this person if we so desire */ if (GrabTo && bitset(H_RCPT, h->h_flags) && !bitset(H_DEFAULT, h->h_flags) && (!bitset(EF_RESENT, e->e_flags) || bitset(H_RESENT, h->h_flags))) { #if 0 int saveflags = e->e_flags; #endif (void) sendtolist(denlstring(h->h_value, true, false), NULLADDR, &e->e_sendqueue, 0, e); #if 0 /* ** Change functionality so a fatal error on an ** address doesn't affect the entire envelope. */ /* delete fatal errors generated by this address */ if (!bitset(EF_FATALERRS, saveflags)) e->e_flags &= ~EF_FATALERRS; #endif /* 0 */ } /* save the message-id for logging */ p = "resent-message-id"; if (!bitset(EF_RESENT, e->e_flags)) p += 7; if (SM_STRCASEEQ(h->h_field, p)) { e->e_msgid = h->h_value; while (SM_ISSPACE(*e->e_msgid)) e->e_msgid++; macdefine(&e->e_macro, A_PERM, macid("{msg_id}"), e->e_msgid); } } if (tTd(32, 1)) sm_dprintf("----------------------------\n"); /* if we are just verifying (that is, sendmail -t -bv), drop out now */ if (OpMode == MD_VERIFY) return; /* store hop count */ if (hopcnt > e->e_hopcount) { e->e_hopcount = hopcnt; (void) sm_snprintf(buf, sizeof(buf), "%d", e->e_hopcount); macdefine(&e->e_macro, A_TEMP, 'c', buf); } /* message priority */ p = hvalue("precedence", e->e_header); if (p != NULL) e->e_class = priencode(p); if (e->e_class < 0) e->e_timeoutclass = TOC_NONURGENT; else if (e->e_class > 0) e->e_timeoutclass = TOC_URGENT; if (full) { e->e_msgpriority = e->e_msgsize - e->e_class * WkClassFact + e->e_nrcpts * WkRecipFact; } /* check for DSN to properly set e_timeoutclass */ p = hvalue("content-type", e->e_header); if (p != NULL) { bool oldsupr; char **pvp; char pvpbuf[MAXLINE]; extern unsigned char MimeTokenTab[256]; /* tokenize header */ oldsupr = SuprErrs; SuprErrs = true; pvp = prescan(p, '\0', pvpbuf, sizeof(pvpbuf), NULL, MimeTokenTab, false); SuprErrs = oldsupr; /* Check if multipart/report */ if (pvp != NULL && pvp[0] != NULL && pvp[1] != NULL && pvp[2] != NULL && SM_STRCASEEQ(*pvp++, "multipart") && strcmp(*pvp++, "/") == 0 && SM_STRCASEEQ(*pvp++, "report")) { /* Look for report-type=delivery-status */ while (*pvp != NULL) { /* skip to semicolon separator */ while (*pvp != NULL && strcmp(*pvp, ";") != 0) pvp++; /* skip semicolon */ if (*pvp++ == NULL || *pvp == NULL) break; /* look for report-type */ if (!SM_STRCASEEQ(*pvp++, "report-type")) continue; /* skip equal */ if (*pvp == NULL || strcmp(*pvp, "=") != 0) continue; /* check value */ if (*++pvp != NULL && SM_STRCASEEQ(*pvp, "delivery-status")) e->e_timeoutclass = TOC_DSN; /* found report-type, no need to continue */ break; } } } /* message timeout priority */ p = hvalue("priority", e->e_header); if (p != NULL) { /* (this should be in the configuration file) */ if (SM_STRCASEEQ(p, "urgent")) e->e_timeoutclass = TOC_URGENT; else if (SM_STRCASEEQ(p, "normal")) e->e_timeoutclass = TOC_NORMAL; else if (SM_STRCASEEQ(p, "non-urgent")) e->e_timeoutclass = TOC_NONURGENT; else if (bitset(EF_RESPONSE, e->e_flags)) e->e_timeoutclass = TOC_DSN; } else if (bitset(EF_RESPONSE, e->e_flags)) e->e_timeoutclass = TOC_DSN; /* date message originated */ p = hvalue("posted-date", e->e_header); if (p == NULL) p = hvalue("date", e->e_header); if (p != NULL) macdefine(&e->e_macro, A_PERM, 'a', p); /* check to see if this is a MIME message */ if ((e->e_bodytype != NULL && SM_STRCASEEQ(e->e_bodytype, "8bitmime")) || hvalue("MIME-Version", e->e_header) != NULL) { e->e_flags |= EF_IS_MIME; if (HasEightBits) e->e_bodytype = "8BITMIME"; } else if ((p = hvalue("Content-Type", e->e_header)) != NULL) { /* this may be an RFC 1049 message */ p = strpbrk(p, ";/"); if (p == NULL || *p == ';') { /* yep, it is */ e->e_flags |= EF_DONT_MIME; } } /* ** From person in antiquated ARPANET mode ** required by UK Grey Book e-mail gateways (sigh) */ if (OpMode == MD_ARPAFTP) { register struct hdrinfo *hi; for (hi = HdrInfo; hi->hi_field != NULL; hi++) { if (bitset(H_FROM, hi->hi_flags) && (!bitset(H_RESENT, hi->hi_flags) || bitset(EF_RESENT, e->e_flags)) && (p = hvalue(hi->hi_field, e->e_header)) != NULL) break; } if (hi->hi_field != NULL) { if (tTd(32, 2)) sm_dprintf("eatheader: setsender(*%s == %s)\n", hi->hi_field, p); setsender(p, e, NULL, '\0', true); } } /* ** Log collection information. */ if (tTd(92, 2)) sm_dprintf("eatheader: e_id=%s, EF_LOGSENDER=%d, LogLevel=%d, log=%d\n", e->e_id, bitset(EF_LOGSENDER, e->e_flags), LogLevel, log); if (log && bitset(EF_LOGSENDER, e->e_flags) && LogLevel > 4) { logsender(e, e->e_msgid); e->e_flags &= ~EF_LOGSENDER; } } /* ** LOGSENDER -- log sender information ** ** Parameters: ** e -- the envelope to log ** msgid -- the message id ** ** Returns: ** none */ #define XBUFLEN MAXNAME #if (SYSLOG_BUFSIZE) >= 256 # ifndef MSGIDLOGLEN # define MSGIDLOGLEN 100 # define FIRSTLOGLEN 850 # else # if MSGIDLOGLEN < 100 # error "MSGIDLOGLEN too short" # endif /* XREF: this is "sizeof(sbuf)", see above */ # if MSGIDLOGLEN >= MAXLINE / 2 # error "MSGIDLOGLEN too long" # endif /* 850 - 100 for original MSGIDLOGLEN */ # define FIRSTLOGLEN (750 + MSGIDLOGLEN) /* check that total length is ok */ # if FIRSTLOGLEN + 200 >= MAXLINE # error "MSGIDLOGLEN too long" # endif # if MSGIDLOGLEN > MAXNAME # undef XBUFLEN # define XBUFLEN MSGIDLOGLEN # endif # endif #endif /* (SYSLOG_BUFSIZE) >= 256 */ void logsender(e, msgid) register ENVELOPE *e; char *msgid; { char *name; register char *sbp; register char *p; char hbuf[MAXNAME + 1]; /* EAI:ok; restricted to short size */ char sbuf[MAXLINE + 1]; /* EAI:ok; XREF: see also MSGIDLOGLEN */ #if _FFR_8BITENVADDR char xbuf[XBUFLEN + 1]; /* EAI:ok */ #endif char *xstr; if (bitset(EF_RESPONSE, e->e_flags)) name = "[RESPONSE]"; else if ((name = macvalue('_', e)) != NULL) /* EMPTY */ ; else if (RealHostName == NULL) name = "localhost"; else if (RealHostName[0] == '[') name = RealHostName; else { name = hbuf; (void) sm_snprintf(hbuf, sizeof(hbuf), "%.80s", RealHostName); if (RealHostAddr.sa.sa_family != 0) { p = &hbuf[strlen(hbuf)]; (void) sm_snprintf(p, SPACELEFT(hbuf, p), " (%.100s)", anynet_ntoa(&RealHostAddr)); } } #if (SYSLOG_BUFSIZE) >= 256 sbp = sbuf; if (NULL != e->e_from.q_paddr) { xstr = e->e_from.q_paddr; # if _FFR_8BITENVADDR (void) dequote_internal_chars(e->e_from.q_paddr, xbuf, sizeof(xbuf)); xstr = xbuf; # endif } else xstr = ""; (void) sm_snprintf(sbp, SPACELEFT(sbuf, sbp), "from=%.200s, size=%ld, class=%d, nrcpts=%d", xstr, PRT_NONNEGL(e->e_msgsize), e->e_class, e->e_nrcpts); sbp += strlen(sbp); if (msgid != NULL) { # if _FFR_8BITENVADDR (void) dequote_internal_chars(msgid, xbuf, sizeof(xbuf)); msgid = xbuf; # endif (void) sm_snprintf(sbp, SPACELEFT(sbuf, sbp), ", msgid=%.*s", MSGIDLOGLEN, msgid); sbp += strlen(sbp); } if (e->e_bodytype != NULL) { (void) sm_snprintf(sbp, SPACELEFT(sbuf, sbp), ", bodytype=%.20s", e->e_bodytype); sbp += strlen(sbp); } p = macvalue('r', e); if (p != NULL) { (void) sm_snprintf(sbp, SPACELEFT(sbuf, sbp), ", proto=%.20s", p); sbp += strlen(sbp); } p = macvalue(macid("{daemon_name}"), e); if (p != NULL) { (void) sm_snprintf(sbp, SPACELEFT(sbuf, sbp), ", daemon=%.20s", p); sbp += strlen(sbp); } # if _FFR_LOG_MORE1 LOG_MORE(sbuf, sbp); # if SASL p = macvalue(macid("{auth_type}"), e); if (SM_IS_EMPTY(p)) p = "NONE"; (void) sm_snprintf(sbp, SPACELEFT(sbuf, sbp), ", auth=%.20s", p); sbp += strlen(sbp); # endif /* SASL */ # endif /* _FFR_LOG_MORE1 */ sm_syslog(LOG_INFO, e->e_id, "%.*s, relay=%s", FIRSTLOGLEN, sbuf, name); #else /* (SYSLOG_BUFSIZE) >= 256 */ sm_syslog(LOG_INFO, e->e_id, "from=%s", e->e_from.q_paddr == NULL ? "" : shortenstring(e->e_from.q_paddr, 83)); sm_syslog(LOG_INFO, e->e_id, "size=%ld, class=%ld, nrcpts=%d", PRT_NONNEGL(e->e_msgsize), e->e_class, e->e_nrcpts); if (msgid != NULL) { # if _FFR_8BITENVADDR (void) dequote_internal_chars(msgid, xbuf, sizeof(xbuf)); msgid = xbuf; # endif sm_syslog(LOG_INFO, e->e_id, "msgid=%s", shortenstring(msgid, 83)); } sbp = sbuf; *sbp = '\0'; if (e->e_bodytype != NULL) { (void) sm_snprintf(sbp, SPACELEFT(sbuf, sbp), "bodytype=%.20s, ", e->e_bodytype); sbp += strlen(sbp); } p = macvalue('r', e); if (p != NULL) { (void) sm_snprintf(sbp, SPACELEFT(sbuf, sbp), "proto=%.20s, ", p); sbp += strlen(sbp); } sm_syslog(LOG_INFO, e->e_id, "%.400srelay=%s", sbuf, name); #endif /* (SYSLOG_BUFSIZE) >= 256 */ } /* ** PRIENCODE -- encode external priority names into internal values. ** ** Parameters: ** p -- priority in ascii. ** ** Returns: ** priority as a numeric level. ** ** Side Effects: ** none. */ static int priencode(p) char *p; { register int i; for (i = 0; i < NumPriorities; i++) { if (SM_STRCASEEQ(p, Priorities[i].pri_name)) return Priorities[i].pri_val; } /* unknown priority */ return 0; } /* ** CRACKADDR -- parse an address and turn it into a macro ** ** This doesn't actually parse the address -- it just extracts ** it and replaces it with "$g". The parse is totally ad hoc ** and isn't even guaranteed to leave something syntactically ** identical to what it started with. However, it does leave ** something semantically identical if possible, else at least ** syntactically correct. ** ** For example, it changes "Real Name (Comment)" ** to "Real Name <$g> (Comment)". ** ** This algorithm has been cleaned up to handle a wider range ** of cases -- notably quoted and backslash escaped strings. ** This modification makes it substantially better at preserving ** the original syntax. ** ** Parameters: ** addr -- the address to be cracked. [A] ** e -- the current envelope. ** ** Returns: ** a pointer to the new version. ** ** Side Effects: ** none. ** ** Warning: ** The return value is saved in static storage and should ** be copied if it is to be reused. */ #define SM_HAVE_ROOMB ((bp < buflim) && (buflim <= bufend)) #if USE_EAI # define SM_HAVE_ROOM ((xlen < MAXNAME) && SM_HAVE_ROOMB) #else # define SM_HAVE_ROOM SM_HAVE_ROOMB #endif /* ** Append a character to bp if we have room. ** If not, punt and return $g. */ #define SM_APPEND_CHAR(c) \ do \ { \ XLEN(c); \ if (SM_HAVE_ROOM) \ *bp++ = (c); \ else \ goto returng; \ } while (0) #if MAXNAME < 10 # error "MAXNAME must be at least 10" #endif char * crackaddr(addr, e) register char *addr; ENVELOPE *e; { register char *p; register char c; int cmtlev; /* comment level in input string */ int realcmtlev; /* comment level in output string */ int anglelev; /* angle level in input string */ int copylev; /* 0 == in address, >0 copying */ int bracklev; /* bracket level for IPv6 addr check */ bool addangle; /* put closing angle in output */ bool qmode; /* quoting in original string? */ bool realqmode; /* quoting in output string? */ bool putgmac = false; /* already wrote $g */ bool quoteit = false; /* need to quote next character */ bool gotangle = false; /* found first '<' */ bool gotcolon = false; /* found a ':' */ register char *bp; char *buflim; char *bufhead; char *addrhead; char *bufend; static char buf[MAXNAME_I + 1]; /* XXX: EAI? */ XLENDECL if (tTd(33, 1)) sm_dprintf("crackaddr(%s)\n", addr); buflim = bufend = &buf[sizeof(buf) - 1]; bp = bufhead = buf; /* skip over leading spaces but preserve them */ while (*addr != '\0' && SM_ISSPACE(*addr)) { SM_APPEND_CHAR(*addr); addr++; } bufhead = bp; /* ** Start by assuming we have no angle brackets. This will be ** adjusted later if we find them. */ p = addrhead = addr; copylev = anglelev = cmtlev = realcmtlev = 0; bracklev = 0; qmode = realqmode = addangle = false; while ((c = *p++) != '\0') { /* ** Try to keep legal syntax using spare buffer space ** (maintained by buflim). */ if (copylev > 0) SM_APPEND_CHAR(c); /* check for backslash escapes */ if (c == '\\') { /* arrange to quote the address */ if (cmtlev <= 0 && !qmode) quoteit = true; if ((c = *p++) == '\0') { /* too far */ p--; goto putg; } if (copylev > 0) SM_APPEND_CHAR(c); goto putg; } /* check for quoted strings */ if (c == '"' && cmtlev <= 0) { qmode = !qmode; if (copylev > 0 && SM_HAVE_ROOM) { if (realqmode) buflim--; else buflim++; realqmode = !realqmode; } continue; } if (qmode) goto putg; /* check for comments */ if (c == '(') { cmtlev++; /* allow space for closing paren */ if (SM_HAVE_ROOM) { buflim--; realcmtlev++; if (copylev++ <= 0) { if (bp != bufhead) SM_APPEND_CHAR(' '); SM_APPEND_CHAR(c); } } } if (cmtlev > 0) { if (c == ')') { cmtlev--; copylev--; if (SM_HAVE_ROOM) { realcmtlev--; buflim++; } } continue; } else if (c == ')') { /* syntax error: unmatched ) */ if (copylev > 0 && SM_HAVE_ROOM && bp > bufhead) bp--; } /* count nesting on [ ... ] (for IPv6 domain literals) */ if (c == '[') bracklev++; else if (c == ']') bracklev--; /* check for group: list; syntax */ if (c == ':' && anglelev <= 0 && bracklev <= 0 && !gotcolon && !ColonOkInAddr) { register char *q; /* ** Check for DECnet phase IV ``::'' (host::user) ** or DECnet phase V ``:.'' syntaxes. The latter ** covers ``user@DEC:.tay.myhost'' and ** ``DEC:.tay.myhost::user'' syntaxes (bletch). */ if (*p == ':' || *p == '.') { if (cmtlev <= 0 && !qmode) quoteit = true; if (copylev > 0) { SM_APPEND_CHAR(c); SM_APPEND_CHAR(*p); } p++; goto putg; } gotcolon = true; bp = bufhead; if (quoteit) { SM_APPEND_CHAR('"'); /* back up over the ':' and any spaces */ --p; while (p > addr && isascii(*--p) && isspace(*p)) continue; p++; } for (q = addrhead; q < p; ) { c = *q++; if (quoteit && c == '"') SM_APPEND_CHAR('\\'); SM_APPEND_CHAR(c); } if (quoteit) { if (bp == &bufhead[1]) bp--; else SM_APPEND_CHAR('"'); while ((c = *p++) != ':') SM_APPEND_CHAR(c); SM_APPEND_CHAR(c); } /* any trailing white space is part of group: */ while (SM_ISSPACE(*p)) { SM_APPEND_CHAR(*p); p++; } copylev = 0; putgmac = quoteit = false; bufhead = bp; addrhead = p; continue; } if (c == ';' && copylev <= 0 && !ColonOkInAddr) SM_APPEND_CHAR(c); /* check for characters that may have to be quoted */ if (strchr(MustQuoteChars, c) != NULL) { /* ** If these occur as the phrase part of a <> ** construct, but are not inside of () or already ** quoted, they will have to be quoted. Note that ** now (but don't actually do the quoting). */ if (cmtlev <= 0 && !qmode) quoteit = true; } /* check for angle brackets */ if (c == '<') { register char *q; /* assume first of two angles is bogus */ if (gotangle) quoteit = true; gotangle = true; /* oops -- have to change our mind */ anglelev = 1; if (SM_HAVE_ROOM) { if (!addangle) buflim--; addangle = true; } bp = bufhead; if (quoteit) { SM_APPEND_CHAR('"'); /* back up over the '<' and any spaces */ --p; while (p > addr && isascii(*--p) && isspace(*p)) continue; p++; } for (q = addrhead; q < p; ) { c = *q++; if (quoteit && c == '"') { SM_APPEND_CHAR('\\'); SM_APPEND_CHAR(c); } else SM_APPEND_CHAR(c); } if (quoteit) { if (bp == &buf[1]) bp--; else SM_APPEND_CHAR('"'); while ((c = *p++) != '<') SM_APPEND_CHAR(c); SM_APPEND_CHAR(c); } copylev = 0; putgmac = quoteit = false; continue; } if (c == '>') { if (anglelev > 0) { anglelev--; if (SM_HAVE_ROOM) { if (addangle) buflim++; addangle = false; } } else if (SM_HAVE_ROOM) { /* syntax error: unmatched > */ if (copylev > 0 && bp > bufhead) bp--; quoteit = true; continue; } if (copylev++ <= 0) SM_APPEND_CHAR(c); continue; } /* must be a real address character */ putg: if (copylev <= 0 && !putgmac) { if (bp > buf && bp[-1] == ')') SM_APPEND_CHAR(' '); SM_APPEND_CHAR(MACROEXPAND); SM_APPEND_CHAR('g'); putgmac = true; } } /* repair any syntactic damage */ if (realqmode && bp < bufend) *bp++ = '"'; while (realcmtlev-- > 0 && bp < bufend) *bp++ = ')'; if (addangle && bp < bufend) *bp++ = '>'; *bp = '\0'; if (bp < bufend) goto success; returng: /* String too long, punt */ buf[0] = '<'; buf[1] = MACROEXPAND; buf[2]= 'g'; buf[3] = '>'; buf[4]= '\0'; sm_syslog(LOG_ALERT, e->e_id, "Dropped invalid comments from header address"); success: if (tTd(33, 1)) { sm_dprintf("crackaddr=>`"); xputs(sm_debug_file(), buf); sm_dprintf("'\n"); } return buf; } /* ** PUTHEADER -- put the header part of a message from the in-core copy ** ** Parameters: ** mci -- the connection information. ** hdr -- the header to put. ** e -- envelope to use. ** flags -- MIME conversion flags. ** ** Returns: ** true iff header part was written successfully ** ** Side Effects: ** none. */ bool putheader(mci, hdr, e, flags) register MCI *mci; HDR *hdr; register ENVELOPE *e; int flags; { register HDR *h; char buf[SM_MAX(MAXLINE,BUFSIZ)]; char obuf[MAXLINE]; if (tTd(34, 1)) sm_dprintf("--- putheader, mailer = %s ---\n", mci->mci_mailer->m_name); /* ** If we're in MIME mode, we're not really in the header of the ** message, just the header of one of the parts of the body of ** the message. Therefore MCIF_INHEADER should not be turned on. */ if (!bitset(MCIF_INMIME, mci->mci_flags)) mci->mci_flags |= MCIF_INHEADER; for (h = hdr; h != NULL; h = h->h_link) { register char *p = h->h_value; char *q; if (tTd(34, 11)) { sm_dprintf(" %s:", h->h_field); xputs(sm_debug_file(), p); } /* Skip empty headers */ if (p == NULL) continue; #if _FFR_8BITENVADDR (void) dequote_internal_chars(p, buf, sizeof(buf)); #endif /* heuristic shortening of MIME fields to avoid MUA overflows */ if (MaxMimeFieldLength > 0 && wordinclass(h->h_field, macid("{checkMIMEFieldHeaders}"))) { size_t len; len = fix_mime_header(h, e); if (len > 0) { sm_syslog(LOG_ALERT, e->e_id, "Truncated MIME %s header due to field size (length = %ld) (possible attack)", h->h_field, (unsigned long) len); if (tTd(34, 11)) sm_dprintf(" truncated MIME %s header due to field size (length = %ld) (possible attack)\n", h->h_field, (unsigned long) len); } } if (MaxMimeHeaderLength > 0 && wordinclass(h->h_field, macid("{checkMIMETextHeaders}"))) { size_t len; len = strlen(p); if (len > (size_t) MaxMimeHeaderLength) { h->h_value[MaxMimeHeaderLength - 1] = '\0'; sm_syslog(LOG_ALERT, e->e_id, "Truncated long MIME %s header (length = %ld) (possible attack)", h->h_field, (unsigned long) len); if (tTd(34, 11)) sm_dprintf(" truncated long MIME %s header (length = %ld) (possible attack)\n", h->h_field, (unsigned long) len); } } if (MaxMimeHeaderLength > 0 && wordinclass(h->h_field, macid("{checkMIMEHeaders}"))) { size_t len; len = strlen(h->h_value); if (shorten_rfc822_string(h->h_value, MaxMimeHeaderLength)) { if (len < MaxMimeHeaderLength) { /* we only rebalanced a bogus header */ sm_syslog(LOG_ALERT, e->e_id, "Fixed MIME %s header (possible attack)", h->h_field); if (tTd(34, 11)) sm_dprintf(" fixed MIME %s header (possible attack)\n", h->h_field); } else { /* we actually shortened header */ sm_syslog(LOG_ALERT, e->e_id, "Truncated long MIME %s header (length = %ld) (possible attack)", h->h_field, (unsigned long) len); if (tTd(34, 11)) sm_dprintf(" truncated long MIME %s header (length = %ld) (possible attack)\n", h->h_field, (unsigned long) len); } } } /* ** Suppress Content-Transfer-Encoding: if we are MIMEing ** and we are potentially converting from 8 bit to 7 bit ** MIME. If converting, add a new CTE header in ** mime8to7(). */ if (bitset(H_CTE, h->h_flags) && bitset(MCIF_CVT8TO7|MCIF_CVT7TO8|MCIF_INMIME, mci->mci_flags) && !bitset(M87F_NO8TO7, flags)) { if (tTd(34, 11)) sm_dprintf(" (skipped (content-transfer-encoding))\n"); continue; } if (bitset(MCIF_INMIME, mci->mci_flags)) { if (tTd(34, 11)) sm_dprintf("\n"); if (!put_vanilla_header(h, p, mci)) goto writeerr; continue; } if (bitset(H_CHECK|H_ACHECK, h->h_flags) && !bitintersect(h->h_mflags, mci->mci_mailer->m_flags) && (h->h_macro == '\0' || (q = macvalue(bitidx(h->h_macro), e)) == NULL || *q == '\0')) { if (tTd(34, 11)) sm_dprintf(" (skipped)\n"); continue; } /* handle Resent-... headers specially */ if (bitset(H_RESENT, h->h_flags) && !bitset(EF_RESENT, e->e_flags)) { if (tTd(34, 11)) sm_dprintf(" (skipped (resent))\n"); continue; } /* suppress return receipts if requested */ if (bitset(H_RECEIPTTO, h->h_flags) && (RrtImpliesDsn || bitset(EF_NORECEIPT, e->e_flags))) { if (tTd(34, 11)) sm_dprintf(" (skipped (receipt))\n"); continue; } /* macro expand value if generated internally */ if (bitset(H_DEFAULT, h->h_flags) || bitset(H_BINDLATE, h->h_flags)) { expand(p, buf, sizeof(buf), e); p = buf; if (*p == '\0') { if (tTd(34, 11)) sm_dprintf(" (skipped -- null value)\n"); continue; } } if (bitset(H_BCC, h->h_flags) && !KeepBcc) { /* Bcc: field -- either truncate or delete */ if (bitset(EF_DELETE_BCC, e->e_flags)) { if (tTd(34, 11)) sm_dprintf(" (skipped -- bcc)\n"); } else { /* no other recipient headers: truncate value */ (void) sm_strlcpyn(obuf, sizeof(obuf), 2, h->h_field, ":"); if (!putline(obuf, mci)) goto writeerr; } continue; } if (tTd(34, 11)) sm_dprintf("\n"); if (bitset(H_FROM|H_RCPT, h->h_flags)) { /* address field */ bool oldstyle = bitset(EF_OLDSTYLE, e->e_flags); if (bitset(H_FROM, h->h_flags)) oldstyle = false; if (!commaize(h, p, oldstyle, mci, e, PXLF_HEADER | PXLF_STRIPMQUOTE) && bitnset(M_xSMTP, mci->mci_mailer->m_flags)) goto writeerr; } else { if (!put_vanilla_header(h, p, mci)) goto writeerr; } } /* ** If we are converting this to a MIME message, add the ** MIME headers (but not in MIME mode!). */ #if MIME8TO7 if (bitset(MM_MIME8BIT, MimeMode) && bitset(EF_HAS8BIT, e->e_flags) && !bitset(EF_DONT_MIME, e->e_flags) && !bitnset(M_8BITS, mci->mci_mailer->m_flags) && !bitset(MCIF_CVT8TO7|MCIF_CVT7TO8|MCIF_INMIME, mci->mci_flags) && hvalue("MIME-Version", e->e_header) == NULL) { if (!putline("MIME-Version: 1.0", mci)) goto writeerr; if (hvalue("Content-Type", e->e_header) == NULL) { (void) sm_snprintf(obuf, sizeof(obuf), "Content-Type: text/plain; charset=%s", defcharset(e)); if (!putline(obuf, mci)) goto writeerr; } if (hvalue("Content-Transfer-Encoding", e->e_header) == NULL && !putline("Content-Transfer-Encoding: 8bit", mci)) goto writeerr; } #endif /* MIME8TO7 */ return true; writeerr: return false; } /* ** PUT_VANILLA_HEADER -- output a fairly ordinary header ** ** Parameters: ** h -- the structure describing this header ** v -- the value of this header ** mci -- the connection info for output ** ** Returns: ** true iff header was written successfully */ static bool put_vanilla_header(h, v, mci) HDR *h; char *v; MCI *mci; { register char *nlp; register char *obp; int putflags; char obuf[MAXLINE + 256]; /* additional length for h_field */ putflags = PXLF_HEADER | PXLF_STRIPMQUOTE; if (bitnset(M_7BITHDRS, mci->mci_mailer->m_flags)) putflags |= PXLF_STRIP8BIT; (void) sm_snprintf(obuf, sizeof(obuf), "%.200s:", h->h_field); obp = obuf + strlen(obuf); while ((nlp = strchr(v, '\n')) != NULL) { int l; l = nlp - v; /* ** XXX This is broken for SPACELEFT()==0 ** However, SPACELEFT() is always > 0 unless MAXLINE==1. */ if (SPACELEFT(obuf, obp) - 1 < (size_t) l) l = SPACELEFT(obuf, obp) - 1; (void) sm_snprintf(obp, SPACELEFT(obuf, obp), "%.*s", l, v); if (!putxline(obuf, strlen(obuf), mci, putflags)) goto writeerr; v += l + 1; obp = obuf; if (*v != ' ' && *v != '\t') *obp++ = ' '; } /* XXX This is broken for SPACELEFT()==0 */ (void) sm_snprintf(obp, SPACELEFT(obuf, obp), "%.*s", (int) (SPACELEFT(obuf, obp) - 1), v); return putxline(obuf, strlen(obuf), mci, putflags); writeerr: return false; } /* ** COMMAIZE -- output a header field, making a comma-translated list. ** ** Parameters: ** h -- the header field to output. ** p -- the value to put in it. ** oldstyle -- true if this is an old style header. ** mci -- the connection information. ** e -- the envelope containing the message. ** putflags -- flags for putxline() ** ** Returns: ** true iff header field was written successfully ** ** Side Effects: ** outputs "p" to "mci". */ bool commaize(h, p, oldstyle, mci, e, putflags) register HDR *h; register char *p; bool oldstyle; register MCI *mci; register ENVELOPE *e; int putflags; { register char *obp; int opos, omax, spaces; bool firstone = true; char **res; char obuf[MAXLINE + 3]; /* ** Output the address list translated by the ** mailer and with commas. */ if (tTd(14, 2)) sm_dprintf("commaize(%s:%s)\n", h->h_field, p); if (bitnset(M_7BITHDRS, mci->mci_mailer->m_flags)) putflags |= PXLF_STRIP8BIT; #if _FFR_MTA_MODE /* activate this per mailer? */ if (bitset(H_FROM, h->h_flags) && bitset(H_ASIS, h->h_flags)) { (void) sm_snprintf(obuf, sizeof(obuf), "%.200s:%s", h->h_field, h->h_value); return putxline(obuf, strlen(obuf), mci, putflags); } #endif obp = obuf; (void) sm_snprintf(obp, SPACELEFT(obuf, obp), "%.200s:", h->h_field); /* opos = strlen(obp); instead of the next 3 lines? */ opos = strlen(h->h_field) + 1; if (opos > 201) opos = 201; obp += opos; spaces = 0; while (*p != '\0' && SM_ISSPACE(*p)) { ++spaces; ++p; } if (spaces > 0) { SM_ASSERT(sizeof(obuf) > opos * 2); /* ** Restrict number of spaces to half the length of buffer ** so the header field body can be put in here too. ** Note: this is a hack... */ if (spaces > sizeof(obuf) / 2) spaces = sizeof(obuf) / 2; (void) sm_snprintf(obp, SPACELEFT(obuf, obp), "%*s", spaces, ""); opos += spaces; obp += spaces; SM_ASSERT(obp < &obuf[MAXLINE]); } omax = mci->mci_mailer->m_linelimit - 2; if (omax < 0 || omax > 78) omax = 78; /* ** Run through the list of values. */ while (*p != '\0') { register char *name; register int c; char savechar; int flags; auto int status; /* ** Find the end of the name. New style names ** end with a comma, old style names end with ** a space character. However, spaces do not ** necessarily delimit an old-style name -- at ** signs mean keep going. */ /* find end of name */ while ((SM_ISSPACE(*p)) || *p == ',') p++; name = p; res = NULL; for (;;) { auto char *oldp; char pvpbuf[PSBUFSIZE]; res = prescan(p, oldstyle ? ' ' : ',', pvpbuf, sizeof(pvpbuf), &oldp, ExtTokenTab, false); p = oldp; #if _FFR_IGNORE_BOGUS_ADDR /* ignore addresses that can't be parsed */ if (res == NULL) { name = p; continue; } #endif /* _FFR_IGNORE_BOGUS_ADDR */ /* look to see if we have an at sign */ while (*p != '\0' && SM_ISSPACE(*p)) p++; if (*p != '@') { p = oldp; break; } ++p; while (*p != '\0' && SM_ISSPACE(*p)) p++; } /* at the end of one complete name */ /* strip off trailing white space */ while (p >= name && ((SM_ISSPACE(*p)) || *p == ',' || *p == '\0')) p--; if (++p == name) continue; /* ** if prescan() failed go a bit backwards; this is a hack, ** there should be some better error recovery. */ if (res == NULL && p > name && !((SM_ISSPACE(*p)) || *p == ',' || *p == '\0')) --p; savechar = *p; *p = '\0'; /* translate the name to be relative */ flags = RF_HEADERADDR|RF_ADDDOMAIN; if (bitset(H_FROM, h->h_flags)) flags |= RF_SENDERADDR; #if USERDB else if (e->e_from.q_mailer != NULL && bitnset(M_UDBRECIPIENT, e->e_from.q_mailer->m_flags)) { char *q; q = udbsender(name, e->e_rpool); if (q != NULL) name = q; } #endif /* USERDB */ status = EX_OK; name = remotename(name, mci->mci_mailer, flags, &status, e); if (status != EX_OK && bitnset(M_xSMTP, mci->mci_mailer->m_flags)) { if (status == EX_TEMPFAIL) mci->mci_flags |= MCIF_NOTSTICKY; goto writeerr; } if (*name == '\0') { *p = savechar; continue; } name = denlstring(name, false, true); /* output the name with nice formatting */ opos += strlen(name); if (!firstone) opos += 2; if (opos > omax && !firstone) { (void) sm_strlcpy(obp, ",\n", SPACELEFT(obuf, obp)); if (!putxline(obuf, strlen(obuf), mci, putflags)) goto writeerr; obp = obuf; (void) sm_strlcpy(obp, " ", sizeof(obuf)); opos = strlen(obp); obp += opos; opos += strlen(name); } else if (!firstone) { (void) sm_strlcpy(obp, ", ", SPACELEFT(obuf, obp)); obp += 2; } while ((c = *name++) != '\0' && obp < &obuf[MAXLINE]) *obp++ = c; firstone = false; *p = savechar; } if (obp < &obuf[sizeof(obuf)]) *obp = '\0'; else obuf[sizeof(obuf) - 1] = '\0'; return putxline(obuf, strlen(obuf), mci, putflags); writeerr: return false; } /* ** COPYHEADER -- copy header list ** ** This routine is the equivalent of newstr for header lists ** ** Parameters: ** header -- list of header structures to copy. ** rpool -- resource pool, or NULL ** ** Returns: ** a copy of 'header'. ** ** Side Effects: ** none. */ HDR * copyheader(header, rpool) register HDR *header; SM_RPOOL_T *rpool; { register HDR *newhdr; HDR *ret; register HDR **tail = &ret; while (header != NULL) { newhdr = (HDR *) sm_rpool_malloc_x(rpool, sizeof(*newhdr)); STRUCTCOPY(*header, *newhdr); *tail = newhdr; tail = &newhdr->h_link; header = header->h_link; } *tail = NULL; return ret; } /* ** FIX_MIME_HEADER -- possibly truncate/rebalance parameters in a MIME header ** ** Run through all of the parameters of a MIME header and ** possibly truncate and rebalance the parameter according ** to MaxMimeFieldLength. ** ** Parameters: ** h -- the header to truncate/rebalance ** e -- the current envelope ** ** Returns: ** length of last offending field, 0 if all ok. ** ** Side Effects: ** string modified in place */ static size_t fix_mime_header(h, e) HDR *h; ENVELOPE *e; { char *begin = h->h_value; char *end; size_t len = 0; size_t retlen = 0; if (SM_IS_EMPTY(begin)) return 0; /* Split on each ';' */ /* find_character() never returns NULL */ while ((end = find_character(begin, ';')) != NULL) { char save = *end; char *bp; *end = '\0'; len = strlen(begin); /* Shorten individual parameter */ if (shorten_rfc822_string(begin, MaxMimeFieldLength)) { if (len < MaxMimeFieldLength) { /* we only rebalanced a bogus field */ sm_syslog(LOG_ALERT, e->e_id, "Fixed MIME %s header field (possible attack)", h->h_field); if (tTd(34, 11)) sm_dprintf(" fixed MIME %s header field (possible attack)\n", h->h_field); } else { /* we actually shortened the header */ retlen = len; } } /* Collapse the possibly shortened string with rest */ bp = begin + strlen(begin); if (bp != end) { char *ep = end; *end = save; end = bp; /* copy character by character due to overlap */ while (*ep != '\0') *bp++ = *ep++; *bp = '\0'; } else *end = save; if (*end == '\0') break; /* Move past ';' */ begin = end + 1; } return retlen; } sendmail-8.18.1/sendmail/sysexits.c0000644000372400037240000000716514556365350016633 0ustar xbuildxbuild/* * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: sysexits.c,v 8.35 2013-11-22 20:51:57 ca Exp $") /* ** DSNTOEXITSTAT -- convert DSN-style error code to EX_ style. ** ** Parameters: ** dsncode -- the text of the DSN-style code. ** ** Returns: ** The corresponding exit status. */ int dsntoexitstat(dsncode) char *dsncode; { int code2, code3; /* first the easy cases.... */ if (*dsncode == '2') return EX_OK; if (*dsncode == '4') return EX_TEMPFAIL; /* reject other illegal values */ if (*dsncode != '5') return EX_CONFIG; /* now decode the other two field parts */ if (*++dsncode == '.') dsncode++; code2 = atoi(dsncode); while (*dsncode != '\0' && *dsncode != '.') dsncode++; if (*dsncode != '\0') dsncode++; code3 = atoi(dsncode); /* and do a nested switch to work them out */ switch (code2) { case 0: /* Other or Undefined status */ return EX_UNAVAILABLE; case 1: /* Address Status */ switch (code3) { case 0: /* Other Address Status */ return EX_DATAERR; case 1: /* Bad destination mailbox address */ case 6: /* Mailbox has moved, No forwarding address */ return EX_NOUSER; case 2: /* Bad destination system address */ case 8: /* Bad senders system address */ return EX_NOHOST; case 3: /* Bad destination mailbox address syntax */ case 7: /* Bad senders mailbox address syntax */ return EX_USAGE; case 4: /* Destination mailbox address ambiguous */ return EX_UNAVAILABLE; case 5: /* Destination address valid */ /* According to RFC1893, this can't happen */ return EX_CONFIG; } break; case 2: /* Mailbox Status */ switch (code3) { case 0: /* Other or Undefined mailbox status */ case 1: /* Mailbox disabled, not accepting messages */ case 2: /* Mailbox full */ case 4: /* Mailing list expansion problem */ return EX_UNAVAILABLE; case 3: /* Message length exceeds administrative lim */ return EX_DATAERR; } break; case 3: /* System Status */ return EX_OSERR; case 4: /* Network and Routing Status */ switch (code3) { case 0: /* Other or undefined network or routing stat */ return EX_IOERR; case 1: /* No answer from host */ case 3: /* Routing server failure */ case 5: /* Network congestion */ return EX_TEMPFAIL; case 2: /* Bad connection */ return EX_IOERR; case 4: /* Unable to route */ return EX_PROTOCOL; case 6: /* Routing loop detected */ return EX_CONFIG; case 7: /* Delivery time expired */ return EX_UNAVAILABLE; } break; case 5: /* Protocol Status */ return EX_PROTOCOL; case 6: /* Message Content or Media Status */ return EX_UNAVAILABLE; case 7: /* Security Status */ return EX_DATAERR; } return EX_UNAVAILABLE; } /* ** EXITSTAT -- convert EX_ value to error text. ** ** Parameters: ** excode -- rstatus which might consists of an EX_* value. ** ** Returns: ** The corresponding error text or the original string. */ char * exitstat(excode) char *excode; { char *c; int i; char *exitmsg; if (excode == NULL || *excode == '\0') return excode; i = (int) strtol(excode, &c, 10); if (*c != '\0') return excode; exitmsg = sm_sysexitmsg(i); if (exitmsg != NULL) return exitmsg; return excode; } sendmail-8.18.1/sendmail/ratectrl.c0000644000372400037240000003202614556365350016552 0ustar xbuildxbuild/* * Copyright (c) 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * Contributed by Jose Marcio Martins da Cruz - Ecole des Mines de Paris * Jose-Marcio.Martins@ensmp.fr */ /* a part of this code is based on inetd.c for which this copyright applies: */ /* * Copyright (c) 1983, 1991, 1993, 1994 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include SM_RCSID("@(#)$Id: ratectrl.c,v 8.14 2013-11-22 20:51:56 ca Exp $") static int client_rate __P((time_t, SOCKADDR *, int)); static int total_rate __P((time_t, bool)); static unsigned int gen_hash __P((SOCKADDR *)); static void rate_init __P((void)); /* ** CONNECTION_RATE_CHECK - updates connection history data ** and computes connection rate for the given host ** ** Parameters: ** hostaddr -- IP address of SMTP client ** e -- envelope ** ** Returns: ** none ** ** Side Effects: ** updates connection history ** ** Warnings: ** For each connection, this call shall be ** done only once with the value true for the ** update parameter. ** Typically, this call is done with the value ** true by the father, and once again with ** the value false by the children. */ void connection_rate_check(hostaddr, e) SOCKADDR *hostaddr; ENVELOPE *e; { time_t now; int totalrate, clientrate; static int clientconn = 0; now = time(NULL); #if RATECTL_DEBUG sm_syslog(LOG_INFO, NOQID, "connection_rate_check entering..."); #endif /* update server connection rate */ totalrate = total_rate(now, e == NULL); #if RATECTL_DEBUG sm_syslog(LOG_INFO, NOQID, "global connection rate: %d", totalrate); #endif /* update client connection rate */ clientrate = client_rate(now, hostaddr, e == NULL ? SM_CLFL_UPDATE : SM_CLFL_NONE); if (e == NULL) clientconn = count_open_connections(hostaddr); if (e != NULL) { char s[16]; sm_snprintf(s, sizeof(s), "%d", clientrate); macdefine(&e->e_macro, A_TEMP, macid("{client_rate}"), s); sm_snprintf(s, sizeof(s), "%d", totalrate); macdefine(&e->e_macro, A_TEMP, macid("{total_rate}"), s); sm_snprintf(s, sizeof(s), "%d", clientconn); macdefine(&e->e_macro, A_TEMP, macid("{client_connections}"), s); } return; } /* ** Data declarations needed to evaluate connection rate */ static int CollTime = 60; /* ** time granularity: 10s (that's one "tick") ** will be initialised to ConnectionRateWindowSize/CHTSIZE ** before being used the first time */ static int ChtGran = -1; static CHash_T CHashAry[CPMHSIZE]; static CTime_T srv_Times[CHTSIZE]; #ifndef MAX_CT_STEPS # define MAX_CT_STEPS 10 #endif /* ** RATE_INIT - initialize local data ** ** Parameters: ** none ** ** Returns: ** none ** ** Side effects: ** initializes static global data */ static void rate_init() { if (ChtGran > 0) return; ChtGran = ConnectionRateWindowSize / CHTSIZE; if (ChtGran <= 0) ChtGran = 10; memset(CHashAry, 0, sizeof(CHashAry)); memset(srv_Times, 0, sizeof(srv_Times)); return; } /* ** GEN_HASH - calculate a hash value ** ** Parameters: ** saddr - client address ** ** Returns: ** hash value */ static unsigned int gen_hash(saddr) SOCKADDR *saddr; { unsigned int hv; int i; int addrlen; char *p; #if HASH_ALG != 1 int c, d; #endif hv = 0xABC3D20F; switch (saddr->sa.sa_family) { #if NETINET case AF_INET: p = (char *)&saddr->sin.sin_addr; addrlen = sizeof(struct in_addr); break; #endif /* NETINET */ #if NETINET6 case AF_INET6: p = (char *)&saddr->sin6.sin6_addr; addrlen = sizeof(struct in6_addr); break; #endif /* NETINET6 */ default: /* should not happen */ return -1; } /* compute hash value */ for (i = 0; i < addrlen; ++i, ++p) #if HASH_ALG == 1 hv = (hv << 5) ^ (hv >> 23) ^ *p; hv = (hv ^ (hv >> 16)); #elif HASH_ALG == 2 { d = *p; c = d; c ^= c<<6; hv += (c<<11) ^ (c>>1); hv ^= (d<<14) + (d<<7) + (d<<4) + d; } #elif HASH_ALG == 3 { hv = (hv << 4) + *p; d = hv & 0xf0000000; if (d != 0) { hv ^= (d >> 24); hv ^= d; } } #else /* HASH_ALG == 1 */ # error "unsupported HASH_ALG" hv = ((hv << 1) ^ (*p & 0377)) % cctx->cc_size; ??? #endif /* HASH_ALG == 1 */ return hv; } /* ** CONN_LIMIT - Evaluate connection limits ** ** Parameters: ** e -- envelope (_FFR_OCC, for logging only) ** now - current time in secs ** saddr - client address ** clflags - update data / check only / ... ** hashary - hash array ** ratelimit - rate limit (_FFR_OCC only) ** conclimit - concurrency limit (_FFR_OCC only) ** ** Returns: #if _FFR_OCC ** outgoing: limit exceeded? #endif ** incoming: ** connection rate (connections / ConnectionRateWindowSize) */ int conn_limits(e, now, saddr, clflags, hashary, ratelimit, conclimit) ENVELOPE *e; time_t now; SOCKADDR *saddr; int clflags; CHash_T hashary[]; int ratelimit; int conclimit; { int i; int cnt; bool coll; CHash_T *chBest = NULL; CTime_T *ct = NULL; unsigned int ticks; unsigned int hv; #if _FFR_OCC bool exceeded = false; int *prv, *pcv; #endif #if RATECTL_DEBUG || _FFR_OCC bool logit = false; #endif cnt = 0; hv = gen_hash(saddr); ticks = now / ChtGran; coll = true; for (i = 0; i < MAX_CT_STEPS; ++i) { CHash_T *ch = &hashary[(hv + i) & CPMHMASK]; #if NETINET if (saddr->sa.sa_family == AF_INET && ch->ch_Family == AF_INET && (saddr->sin.sin_addr.s_addr == ch->ch_Addr4.s_addr || ch->ch_Addr4.s_addr == 0)) { chBest = ch; coll = false; break; } #endif /* NETINET */ #if NETINET6 if (saddr->sa.sa_family == AF_INET6 && ch->ch_Family == AF_INET6 && (IN6_ARE_ADDR_EQUAL(&saddr->sin6.sin6_addr, &ch->ch_Addr6) != 0 || IN6_IS_ADDR_UNSPECIFIED(&ch->ch_Addr6))) { chBest = ch; coll = false; break; } #endif /* NETINET6 */ if (chBest == NULL || ch->ch_LTime == 0 || ch->ch_LTime < chBest->ch_LTime) chBest = ch; } /* Let's update data... */ if ((clflags & (SM_CLFL_UPDATE|SM_CLFL_EXC)) != 0) { if (coll && (now - chBest->ch_LTime < CollTime)) { /* ** increment the number of collisions last ** CollTime for this client */ chBest->ch_colls++; /* ** Maybe shall log if collision rate is too high... ** and take measures to resize tables ** if this is the case */ } /* ** If it's not a match, then replace the data. ** Note: this purges the history of a colliding entry, ** which may cause "overruns", i.e., if two entries are ** "cancelling" each other out, then they may exceed ** the limits that are set. This might be mitigated a bit ** by the above "best of 5" function however. ** ** Alternative approach: just use the old data, which may ** cause false positives however. ** To activate this, deactivate the memset() call. */ if (coll) { #if NETINET if (saddr->sa.sa_family == AF_INET) { chBest->ch_Family = AF_INET; chBest->ch_Addr4 = saddr->sin.sin_addr; } #endif /* NETINET */ #if NETINET6 if (saddr->sa.sa_family == AF_INET6) { chBest->ch_Family = AF_INET6; chBest->ch_Addr6 = saddr->sin6.sin6_addr; } #endif /* NETINET6 */ memset(chBest->ch_Times, '\0', sizeof(chBest->ch_Times)); } chBest->ch_LTime = now; ct = &chBest->ch_Times[ticks % CHTSIZE]; if (ct->ct_Ticks != ticks) { ct->ct_Ticks = ticks; ct->ct_Count = 0; } if ((clflags & SM_CLFL_UPDATE) != 0) ++ct->ct_Count; } /* Now let's count connections on the window */ for (i = 0; i < CHTSIZE; ++i) { CTime_T *cth; cth = &chBest->ch_Times[i]; if (cth->ct_Ticks <= ticks && cth->ct_Ticks >= ticks - CHTSIZE) cnt += cth->ct_Count; } #if _FFR_OCC prv = pcv = NULL; if (ct != NULL && ((clflags & SM_CLFL_EXC) != 0)) { if (ratelimit > 0) { if (cnt < ratelimit) prv = &(ct->ct_Count); else exceeded = true; } else if (ratelimit < 0 && ct->ct_Count > 0) --ct->ct_Count; } if (chBest != NULL && ((clflags & SM_CLFL_EXC) != 0)) { if (conclimit > 0) { if (chBest->ch_oc < conclimit) pcv = &(chBest->ch_oc); else exceeded = true; } else if (conclimit < 0 && chBest->ch_oc > 0) --chBest->ch_oc; } #endif #if RATECTL_DEBUG logit = true; #endif #if RATECTL_DEBUG || _FFR_OCC # if _FFR_OCC if (!exceeded) { if (prv != NULL) ++*prv, ++cnt; if (pcv != NULL) ++*pcv; } logit = exceeded || LogLevel > 11; # endif if (logit) sm_syslog(LOG_DEBUG, e != NULL ? e->e_id : NOQID, "conn_limits: addr=%s, flags=0x%x, rate=%d/%d, conc=%d/%d, exc=%d", saddr->sa.sa_family == AF_INET ? inet_ntoa(saddr->sin.sin_addr) : "???", clflags, cnt, ratelimit, # if _FFR_OCC chBest != NULL ? chBest->ch_oc : -1 # else -2 # endif , conclimit # if _FFR_OCC , exceeded # else , 0 # endif ); #endif #if _FFR_OCC if ((clflags & SM_CLFL_EXC) != 0) return exceeded; #endif return cnt; } /* ** CLIENT_RATE - Evaluate connection rate per SMTP client ** ** Parameters: ** now - current time in secs ** saddr - client address ** clflags - update data / check only ** ** Returns: ** connection rate (connections / ConnectionRateWindowSize) ** ** Side effects: ** update static global data */ static int client_rate(now, saddr, clflags) time_t now; SOCKADDR *saddr; int clflags; { rate_init(); return conn_limits(NULL, now, saddr, clflags, CHashAry, 0, 0); } /* ** TOTAL_RATE - Evaluate global connection rate ** ** Parameters: ** now - current time in secs ** update - update data / check only ** ** Returns: ** connection rate (connections / ConnectionRateWindowSize) */ static int total_rate(now, update) time_t now; bool update; { int i; int cnt = 0; CTime_T *ct; unsigned int ticks; rate_init(); ticks = now / ChtGran; /* Let's update data */ if (update) { ct = &srv_Times[ticks % CHTSIZE]; if (ct->ct_Ticks != ticks) { ct->ct_Ticks = ticks; ct->ct_Count = 0; } ++ct->ct_Count; } /* Let's count connections on the window */ for (i = 0; i < CHTSIZE; ++i) { ct = &srv_Times[i]; if (ct->ct_Ticks <= ticks && ct->ct_Ticks >= ticks - CHTSIZE) cnt += ct->ct_Count; } #if RATECTL_DEBUG sm_syslog(LOG_WARNING, NOQID, "total: cnt=%d, CHTSIZE=%d, ChtGran=%d", cnt, CHTSIZE, ChtGran); #endif return cnt; } #if RATECTL_DEBUG || _FFR_OCC void dump_ch(fp) SM_FILE_T *fp; { int i, j, cnt; unsigned int ticks; ticks = time(NULL) / ChtGran; sm_io_fprintf(fp, SM_TIME_DEFAULT, "dump_ch\n"); for (i = 0; i < CPMHSIZE; i++) { CHash_T *ch = &CHashAry[i]; bool valid; valid = false; # if NETINET valid = (ch->ch_Family == AF_INET); if (valid) sm_io_fprintf(fp, SM_TIME_DEFAULT, "ip=%s ", inet_ntoa(ch->ch_Addr4)); # endif /* NETINET */ # if NETINET6 if (ch->ch_Family == AF_INET6) { char buf[64], *str; valid = true; str = anynet_ntop(&ch->ch_Addr6, buf, sizeof(buf)); if (str != NULL) sm_io_fprintf(fp, SM_TIME_DEFAULT, "ip=%s ", str); } # endif /* NETINET6 */ if (!valid) continue; cnt = 0; for (j = 0; j < CHTSIZE; ++j) { CTime_T *cth; cth = &ch->ch_Times[j]; if (cth->ct_Ticks <= ticks && cth->ct_Ticks >= ticks - CHTSIZE) cnt += cth->ct_Count; } sm_io_fprintf(fp, SM_TIME_DEFAULT, "time=%ld cnt=%d ", (long) ch->ch_LTime, cnt); # if _FFR_OCC sm_io_fprintf(fp, SM_TIME_DEFAULT, "oc=%d", ch->ch_oc); # endif sm_io_fprintf(fp, SM_TIME_DEFAULT, "\n"); } sm_io_flush(fp, SM_TIME_DEFAULT); } #endif /* RATECTL_DEBUG || _FFR_OCC */ sendmail-8.18.1/sendmail/shmticklib.c0000644000372400037240000000301114556365350017053 0ustar xbuildxbuild/* * Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * Contributed by Exactis.com, Inc. * */ #include SM_RCSID("@(#)$Id: shmticklib.c,v 8.15 2013-11-22 20:51:56 ca Exp $") #if _FFR_SHM_STATUS # include # include # include # include "statusd_shm.h" /* ** SHMTICK -- increment a shared memory variable ** ** Parameters: ** inc_me -- identity of shared memory segment ** what -- which variable to increment ** ** Returns: ** none */ void shmtick(inc_me, what) int inc_me; int what; { static int shmid = -1; static STATUSD_SHM *sp = (STATUSD_SHM *)-1; static unsigned int cookie = 0; if (shmid < 0) { int size = sizeof(STATUSD_SHM); shmid = shmget(STATUSD_SHM_KEY, size, 0); if (shmid < 0) return; } if ((unsigned long *) sp == (unsigned long *)-1) { sp = (STATUSD_SHM *) shmat(shmid, NULL, 0); if ((unsigned long *) sp == (unsigned long *) -1) return; } if (sp->magic != STATUSD_MAGIC) { /* ** possible race condition, wait for ** statusd to initialize. */ return; } if (what >= STATUSD_LONGS) what = STATUSD_LONGS - 1; if (inc_me >= STATUSD_LONGS) inc_me = STATUSD_LONGS - 1; if (sp->ul[STATUSD_COOKIE] != cookie) { cookie = sp->ul[STATUSD_COOKIE]; ++(sp->ul[inc_me]); } ++(sp->ul[what]); } #endif /* _FFR_SHM_STATUS */ sendmail-8.18.1/sendmail/bf.c0000644000372400037240000004311614556365350015323 0ustar xbuildxbuild/* * Copyright (c) 1999-2002, 2004, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * Contributed by Exactis.com, Inc. * */ /* ** This is in transition. Changed from the original bf_torek.c code ** to use sm_io function calls directly rather than through stdio ** translation layer. Will be made a built-in file type of libsm ** next (once safeopen() linkable from libsm). */ #include SM_RCSID("@(#)$Id: bf.c,v 8.63 2013-11-22 20:51:55 ca Exp $") #include #include #include #include #include #include #include #include #include "sendmail.h" #include "bf.h" #include /* bf io functions */ static ssize_t sm_bfread __P((SM_FILE_T *, char *, size_t)); static ssize_t sm_bfwrite __P((SM_FILE_T *, const char *, size_t)); static off_t sm_bfseek __P((SM_FILE_T *, off_t, int)); static int sm_bfclose __P((SM_FILE_T *)); static int sm_bfcommit __P((SM_FILE_T *)); static int sm_bftruncate __P((SM_FILE_T *)); static int sm_bfopen __P((SM_FILE_T *, const void *, int, const void *)); static int sm_bfsetinfo __P((SM_FILE_T *, int , void *)); static int sm_bfgetinfo __P((SM_FILE_T *, int , void *)); /* ** Data structure for storing information about each buffered file ** (Originally in sendmail/bf_torek.h for the curious.) */ struct bf { bool bf_committed; /* Has this buffered file been committed? */ bool bf_ondisk; /* On disk: committed or buffer overflow */ long bf_flags; int bf_disk_fd; /* If on disk, associated file descriptor */ char *bf_buf; /* Memory buffer */ int bf_bufsize; /* Length of above buffer */ int bf_buffilled; /* Bytes of buffer actually filled */ char *bf_filename; /* Name of buffered file, if ever committed */ MODE_T bf_filemode; /* Mode of buffered file, if ever committed */ off_t bf_offset; /* Current file offset */ int bf_size; /* Total current size of file */ }; #ifdef BF_STANDALONE # define OPEN(fn, omode, cmode, sff) open(fn, omode, cmode) #else # define OPEN(fn, omode, cmode, sff) safeopen(fn, omode, cmode, sff) #endif struct bf_info { char *bi_filename; MODE_T bi_fmode; size_t bi_bsize; long bi_flags; }; /* ** SM_BFOPEN -- the "base" open function called by sm_io_open() for the ** internal, file-type-specific info setup. ** ** Parameters: ** fp -- file pointer being filled-in for file being open'd ** info -- information about file being opened ** flags -- ignored ** rpool -- ignored (currently) ** ** Returns: ** Failure: -1 and sets errno ** Success: 0 (zero) */ static int sm_bfopen(fp, info, flags, rpool) SM_FILE_T *fp; const void *info; int flags; const void *rpool; { char *filename; MODE_T fmode; size_t bsize; long sflags; struct bf *bfp; int l; struct stat st; filename = ((struct bf_info *) info)->bi_filename; fmode = ((struct bf_info *) info)->bi_fmode; bsize = ((struct bf_info *) info)->bi_bsize; sflags = ((struct bf_info *) info)->bi_flags; /* Sanity checks */ if (*filename == '\0') { /* Empty filename string */ errno = ENOENT; return -1; } if (stat(filename, &st) == 0) { /* File already exists on disk */ errno = EEXIST; return -1; } /* Allocate memory */ bfp = (struct bf *) sm_malloc(sizeof(struct bf)); if (bfp == NULL) { errno = ENOMEM; return -1; } /* Assign data buffer */ /* A zero bsize is valid, just don't allocate memory */ if (bsize > 0) { bfp->bf_buf = (char *) sm_malloc(bsize); if (bfp->bf_buf == NULL) { bfp->bf_bufsize = 0; sm_free(bfp); errno = ENOMEM; return -1; } } else bfp->bf_buf = NULL; /* Nearly home free, just set all the parameters now */ bfp->bf_committed = false; bfp->bf_ondisk = false; bfp->bf_flags = sflags; bfp->bf_bufsize = bsize; bfp->bf_buffilled = 0; l = strlen(filename) + 1; bfp->bf_filename = (char *) sm_malloc(l); if (bfp->bf_filename == NULL) { if (bfp->bf_buf != NULL) sm_free(bfp->bf_buf); sm_free(bfp); errno = ENOMEM; return -1; } (void) sm_strlcpy(bfp->bf_filename, filename, l); bfp->bf_filemode = fmode; bfp->bf_offset = 0; bfp->bf_size = 0; bfp->bf_disk_fd = -1; fp->f_cookie = bfp; if (tTd(58, 8)) sm_dprintf("sm_bfopen(%s)\n", filename); return 0; } /* ** BFOPEN -- create a new buffered file ** ** Parameters: ** filename -- the file's name ** fmode -- what mode the file should be created as ** bsize -- amount of buffer space to allocate (may be 0) ** flags -- if running under sendmail, passed directly to safeopen ** ** Returns: ** a SM_FILE_T * which may then be used with stdio functions, ** or NULL on failure. SM_FILE_T * is opened for writing ** "SM_IO_WHAT_VECTORS"). ** ** Side Effects: ** none. ** ** Sets errno: ** any value of errno specified by sm_io_setinfo_type() ** any value of errno specified by sm_io_open() ** any value of errno specified by sm_io_setinfo() */ #ifdef __STDC__ /* ** XXX This is a temporary hack since MODE_T on HP-UX 10.x is short. ** If we use K&R here, the compiler will complain about ** Inconsistent parameter list declaration ** due to the change from short to int. */ SM_FILE_T * bfopen(char *filename, MODE_T fmode, size_t bsize, long flags) #else /* __STDC__ */ SM_FILE_T * bfopen(filename, fmode, bsize, flags) char *filename; MODE_T fmode; size_t bsize; long flags; #endif /* __STDC__ */ { MODE_T omask; SM_FILE_T SM_IO_SET_TYPE(vector, BF_FILE_TYPE, sm_bfopen, sm_bfclose, sm_bfread, sm_bfwrite, sm_bfseek, sm_bfgetinfo, sm_bfsetinfo, SM_TIME_FOREVER); struct bf_info info; /* ** Apply current umask to fmode as it may change by the time ** the file is actually created. fmode becomes the true ** permissions of the file, which OPEN() must obey. */ omask = umask(0); fmode &= ~omask; (void) umask(omask); SM_IO_INIT_TYPE(vector, BF_FILE_TYPE, sm_bfopen, sm_bfclose, sm_bfread, sm_bfwrite, sm_bfseek, sm_bfgetinfo, sm_bfsetinfo, SM_TIME_FOREVER); info.bi_filename = filename; info.bi_fmode = fmode; info.bi_bsize = bsize; info.bi_flags = flags; return sm_io_open(&vector, SM_TIME_DEFAULT, &info, SM_IO_RDWR, NULL); } /* ** SM_BFGETINFO -- returns info about an open file pointer ** ** Parameters: ** fp -- file pointer to get info about ** what -- type of info to obtain ** valp -- thing to return the info in */ static int sm_bfgetinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { struct bf *bfp; bfp = (struct bf *) fp->f_cookie; switch (what) { case SM_IO_WHAT_FD: return bfp->bf_disk_fd; case SM_IO_WHAT_SIZE: return bfp->bf_size; default: return -1; } } /* ** SM_BFCLOSE -- close a buffered file ** ** Parameters: ** fp -- cookie of file to close ** ** Returns: ** 0 to indicate success ** ** Side Effects: ** deletes backing file, sm_frees memory. ** ** Sets errno: ** never. */ static int sm_bfclose(fp) SM_FILE_T *fp; { struct bf *bfp; /* Cast cookie back to correct type */ bfp = (struct bf *) fp->f_cookie; /* Need to clean up the file */ if (bfp->bf_ondisk && !bfp->bf_committed) unlink(bfp->bf_filename); sm_free(bfp->bf_filename); if (bfp->bf_disk_fd != -1) close(bfp->bf_disk_fd); /* Need to sm_free the buffer */ if (bfp->bf_bufsize > 0) sm_free(bfp->bf_buf); /* Finally, sm_free the structure */ sm_free(bfp); return 0; } /* ** SM_BFREAD -- read a buffered file ** ** Parameters: ** cookie -- cookie of file to read ** buf -- buffer to fill ** nbytes -- how many bytes to read ** ** Returns: ** number of bytes read or -1 indicate failure ** ** Side Effects: ** none. ** */ static ssize_t sm_bfread(fp, buf, nbytes) SM_FILE_T *fp; char *buf; size_t nbytes; { struct bf *bfp; ssize_t count = 0; /* Number of bytes put in buf so far */ int retval; /* Cast cookie back to correct type */ bfp = (struct bf *) fp->f_cookie; if (bfp->bf_offset < bfp->bf_buffilled) { /* Need to grab some from buffer */ count = nbytes; if ((bfp->bf_offset + count) > bfp->bf_buffilled) count = bfp->bf_buffilled - bfp->bf_offset; memcpy(buf, bfp->bf_buf + bfp->bf_offset, count); } if ((bfp->bf_offset + nbytes) > bfp->bf_buffilled) { /* Need to grab some from file */ if (!bfp->bf_ondisk) { /* Oops, the file doesn't exist. EOF. */ if (tTd(58, 8)) sm_dprintf("sm_bfread(%s): to disk\n", bfp->bf_filename); goto finished; } /* Catch a read() on an earlier failed write to disk */ if (bfp->bf_disk_fd < 0) { errno = EIO; return -1; } if (lseek(bfp->bf_disk_fd, bfp->bf_offset + count, SEEK_SET) < 0) { if ((errno == EINVAL) || (errno == ESPIPE)) { /* ** stdio won't be expecting these ** errnos from read()! Change them ** into something it can understand. */ errno = EIO; } return -1; } while (count < nbytes) { retval = read(bfp->bf_disk_fd, buf + count, nbytes - count); if (retval < 0) { /* errno is set implicitly by read() */ return -1; } else if (retval == 0) goto finished; else count += retval; } } finished: bfp->bf_offset += count; return count; } /* ** SM_BFSEEK -- seek to a position in a buffered file ** ** Parameters: ** fp -- fp of file to seek ** offset -- position to seek to ** whence -- how to seek ** ** Returns: ** new file offset or -1 indicate failure ** ** Side Effects: ** none. ** */ static off_t sm_bfseek(fp, offset, whence) SM_FILE_T *fp; off_t offset; int whence; { struct bf *bfp; /* Cast cookie back to correct type */ bfp = (struct bf *) fp->f_cookie; switch (whence) { case SEEK_SET: bfp->bf_offset = offset; break; case SEEK_CUR: bfp->bf_offset += offset; break; case SEEK_END: bfp->bf_offset = bfp->bf_size + offset; break; default: errno = EINVAL; return -1; } return bfp->bf_offset; } /* ** SM_BFWRITE -- write to a buffered file ** ** Parameters: ** fp -- fp of file to write ** buf -- data buffer ** nbytes -- how many bytes to write ** ** Returns: ** number of bytes written or -1 indicate failure ** ** Side Effects: ** may create backing file if over memory limit for file. ** */ static ssize_t sm_bfwrite(fp, buf, nbytes) SM_FILE_T *fp; const char *buf; size_t nbytes; { struct bf *bfp; ssize_t count = 0; /* Number of bytes written so far */ int retval; /* Cast cookie back to correct type */ bfp = (struct bf *) fp->f_cookie; /* If committed, go straight to disk */ if (bfp->bf_committed) { if (lseek(bfp->bf_disk_fd, bfp->bf_offset, SEEK_SET) < 0) { if ((errno == EINVAL) || (errno == ESPIPE)) { /* ** stdio won't be expecting these ** errnos from write()! Change them ** into something it can understand. */ errno = EIO; } return -1; } count = write(bfp->bf_disk_fd, buf, nbytes); if (count < 0) { /* errno is set implicitly by write() */ return -1; } goto finished; } if (bfp->bf_offset < bfp->bf_bufsize) { /* Need to put some in buffer */ count = nbytes; if ((bfp->bf_offset + count) > bfp->bf_bufsize) count = bfp->bf_bufsize - bfp->bf_offset; memcpy(bfp->bf_buf + bfp->bf_offset, buf, count); if ((bfp->bf_offset + count) > bfp->bf_buffilled) bfp->bf_buffilled = bfp->bf_offset + count; } if ((bfp->bf_offset + nbytes) > bfp->bf_bufsize) { /* Need to put some in file */ if (!bfp->bf_ondisk) { MODE_T omask; int save_errno; /* Clear umask as bf_filemode are the true perms */ omask = umask(0); retval = OPEN(bfp->bf_filename, O_RDWR | O_CREAT | O_TRUNC | QF_O_EXTRA, bfp->bf_filemode, bfp->bf_flags); save_errno = errno; (void) umask(omask); errno = save_errno; /* Couldn't create file: failure */ if (retval < 0) { /* ** stdio may not be expecting these ** errnos from write()! Change to ** something which it can understand. ** Note that ENOSPC and EDQUOT are saved ** because they are actually valid for ** write(). */ if (!(errno == ENOSPC #ifdef EDQUOT || errno == EDQUOT #endif )) errno = EIO; return -1; } bfp->bf_disk_fd = retval; bfp->bf_ondisk = true; } /* Catch a write() on an earlier failed write to disk */ if (bfp->bf_ondisk && bfp->bf_disk_fd < 0) { errno = EIO; return -1; } if (lseek(bfp->bf_disk_fd, bfp->bf_offset + count, SEEK_SET) < 0) { if ((errno == EINVAL) || (errno == ESPIPE)) { /* ** stdio won't be expecting these ** errnos from write()! Change them into ** something which it can understand. */ errno = EIO; } return -1; } while (count < nbytes) { retval = write(bfp->bf_disk_fd, buf + count, nbytes - count); if (retval < 0) { /* errno is set implicitly by write() */ return -1; } else count += retval; } } finished: bfp->bf_offset += count; if (bfp->bf_offset > bfp->bf_size) bfp->bf_size = bfp->bf_offset; return count; } /* ** BFREWIND -- rewinds the SM_FILE_T * ** ** Parameters: ** fp -- SM_FILE_T * to rewind ** ** Returns: ** 0 on success, -1 on error ** ** Side Effects: ** rewinds the SM_FILE_T * and puts it into read mode. Normally ** one would bfopen() a file, write to it, then bfrewind() and ** fread(). If fp is not a buffered file, this is equivalent to ** rewind(). ** ** Sets errno: ** any value of errno specified by sm_io_rewind() */ int bfrewind(fp) SM_FILE_T *fp; { (void) sm_io_flush(fp, SM_TIME_DEFAULT); sm_io_clearerr(fp); /* quicker just to do it */ return sm_io_seek(fp, SM_TIME_DEFAULT, 0, SM_IO_SEEK_SET); } /* ** SM_BFCOMMIT -- "commits" the buffered file ** ** Parameters: ** fp -- SM_FILE_T * to commit to disk ** ** Returns: ** 0 on success, -1 on error ** ** Side Effects: ** Forces the given SM_FILE_T * to be written to disk if it is not ** already, and ensures that it will be kept after closing. If ** fp is not a buffered file, this is a no-op. ** ** Sets errno: ** any value of errno specified by open() ** any value of errno specified by write() ** any value of errno specified by lseek() */ static int sm_bfcommit(fp) SM_FILE_T *fp; { struct bf *bfp; int retval; int byteswritten; /* Get associated bf structure */ bfp = (struct bf *) fp->f_cookie; /* If already committed, noop */ if (bfp->bf_committed) return 0; /* Do we need to open a file? */ if (!bfp->bf_ondisk) { int save_errno; MODE_T omask; struct stat st; if (tTd(58, 8)) { sm_dprintf("bfcommit(%s): to disk\n", bfp->bf_filename); if (tTd(58, 32)) sm_dprintf("bfcommit(): filemode %o flags %ld\n", (unsigned int) bfp->bf_filemode, bfp->bf_flags); } if (stat(bfp->bf_filename, &st) == 0) { errno = EEXIST; return -1; } /* Clear umask as bf_filemode are the true perms */ omask = umask(0); retval = OPEN(bfp->bf_filename, O_RDWR | O_CREAT | O_EXCL | QF_O_EXTRA, bfp->bf_filemode, bfp->bf_flags); save_errno = errno; (void) umask(omask); /* Couldn't create file: failure */ if (retval < 0) { /* errno is set implicitly by open() */ errno = save_errno; return -1; } bfp->bf_disk_fd = retval; bfp->bf_ondisk = true; } /* Write out the contents of our buffer, if we have any */ if (bfp->bf_buffilled > 0) { byteswritten = 0; if (lseek(bfp->bf_disk_fd, 0, SEEK_SET) < 0) { /* errno is set implicitly by lseek() */ return -1; } while (byteswritten < bfp->bf_buffilled) { retval = write(bfp->bf_disk_fd, bfp->bf_buf + byteswritten, bfp->bf_buffilled - byteswritten); if (retval < 0) { /* errno is set implicitly by write() */ return -1; } else byteswritten += retval; } } bfp->bf_committed = true; /* Invalidate buf; all goes to file now */ bfp->bf_buffilled = 0; if (bfp->bf_bufsize > 0) { /* Don't need buffer anymore; free it */ bfp->bf_bufsize = 0; sm_free(bfp->bf_buf); } return 0; } /* ** SM_BFTRUNCATE -- rewinds and truncates the SM_FILE_T * ** ** Parameters: ** fp -- SM_FILE_T * to truncate ** ** Returns: ** 0 on success, -1 on error ** ** Side Effects: ** rewinds the SM_FILE_T *, truncates it to zero length, and puts ** it into write mode. ** ** Sets errno: ** any value of errno specified by fseek() ** any value of errno specified by ftruncate() */ static int sm_bftruncate(fp) SM_FILE_T *fp; { struct bf *bfp; if (bfrewind(fp) < 0) return -1; /* Get bf structure */ bfp = (struct bf *) fp->f_cookie; bfp->bf_buffilled = 0; bfp->bf_size = 0; /* Need to zero the buffer */ if (bfp->bf_bufsize > 0) memset(bfp->bf_buf, '\0', bfp->bf_bufsize); if (bfp->bf_ondisk) { #if NOFTRUNCATE /* XXX: Not much we can do except rewind it */ errno = EINVAL; return -1; #else return ftruncate(bfp->bf_disk_fd, 0); #endif } return 0; } /* ** SM_BFSETINFO -- set/change info for an open file pointer ** ** Parameters: ** fp -- file pointer to get info about ** what -- type of info to set/change ** valp -- thing to set/change the info to ** */ static int sm_bfsetinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { struct bf *bfp; int bsize; /* Get bf structure */ bfp = (struct bf *) fp->f_cookie; switch (what) { case SM_BF_SETBUFSIZE: bsize = *((int *) valp); bfp->bf_bufsize = bsize; /* A zero bsize is valid, just don't allocate memory */ if (bsize > 0) { bfp->bf_buf = (char *) sm_malloc(bsize); if (bfp->bf_buf == NULL) { bfp->bf_bufsize = 0; errno = ENOMEM; return -1; } } else bfp->bf_buf = NULL; return 0; case SM_BF_COMMIT: return sm_bfcommit(fp); case SM_BF_TRUNCATE: return sm_bftruncate(fp); case SM_BF_TEST: return 1; /* always */ default: errno = EINVAL; return -1; } } sendmail-8.18.1/sendmail/parseaddr.c0000644000372400037240000024230714556365350016704 0ustar xbuildxbuild/* * Copyright (c) 1998-2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: parseaddr.c,v 8.407 2013-11-22 20:51:56 ca Exp $") #include #include #include "map.h" static void allocaddr __P((ADDRESS *, int, char *, ENVELOPE *)); static int callsubr __P((char**, int, ENVELOPE *)); static char *map_lookup __P((STAB *, char *, char **, int *, ENVELOPE *)); static ADDRESS *buildaddr __P((char **, ADDRESS *, int, ENVELOPE *)); static bool hasctrlchar __P((register char *, bool, bool)); /* replacement for illegal characters in addresses */ #define BAD_CHAR_REPLACEMENT '?' /* ** PARSEADDR -- Parse an address ** ** Parses an address and breaks it up into three parts: a ** net to transmit the message on, the host to transmit it ** to, and a user on that host. These are loaded into an ** ADDRESS header with the values squirreled away if necessary. ** The "user" part may not be a real user; the process may ** just reoccur on that machine. For example, on a machine ** with an arpanet connection, the address ** csvax.bill@berkeley ** will break up to a "user" of 'csvax.bill' and a host ** of 'berkeley' -- to be transmitted over the arpanet. ** ** Parameters: ** addr -- the address to parse. [i] ** a -- a pointer to the address descriptor buffer. ** If NULL, an address will be created. ** flags -- describe detail for parsing. See RF_ definitions ** in sendmail.h. ** delim -- the character to terminate the address, passed ** to prescan. ** delimptr -- if non-NULL, set to the location of the ** delim character that was found. ** e -- the envelope that will contain this address. ** isrcpt -- true if the address denotes a recipient; false ** indicates a sender. ** ** Returns: ** A pointer to the address descriptor header (`a' if ** `a' is non-NULL). ** NULL on error. ** ** Side Effects: ** e->e_to = addr */ /* following delimiters are inherent to the internal algorithms */ #define DELIMCHARS "()<>,;\r\n" /* default word delimiters */ ADDRESS * parseaddr(addr, a, flags, delim, delimptr, e, isrcpt) char *addr; register ADDRESS *a; int flags; int delim; char **delimptr; register ENVELOPE *e; bool isrcpt; { char **pvp; auto char *delimptrbuf; bool qup; char pvpbuf[PSBUFSIZE]; /* ** Initialize and prescan address. */ #if _FFR_8BITENVADDR if (bitset(RF_IS_EXT, flags) && addr != NULL) { int len; addr = quote_internal_chars(addr, NULL, &len, NULL); } #endif e->e_to = addr; if (tTd(20, 1)) sm_dprintf("\n--parseaddr(%s)\n", addr); if (delimptr == NULL) delimptr = &delimptrbuf; pvp = prescan(addr, delim, pvpbuf, sizeof(pvpbuf), delimptr, ExtTokenTab, false); if (pvp == NULL) { if (tTd(20, 1)) sm_dprintf("parseaddr-->NULL\n"); return NULL; } if (invalidaddr(addr, delim == '\0' ? NULL : *delimptr, isrcpt)) { if (tTd(20, 1)) sm_dprintf("parseaddr-->bad address\n"); return NULL; } /* ** Save addr if we are going to have to. ** ** We have to do this early because there is a chance that ** the map lookups in the rewriting rules could clobber ** static memory somewhere. */ if (bitset(RF_COPYPADDR, flags) && addr != NULL) { char savec = **delimptr; if (savec != '\0') **delimptr = '\0'; e->e_to = addr = sm_rpool_strdup_x(e->e_rpool, addr); if (savec != '\0') **delimptr = savec; } /* ** Apply rewriting rules. ** Ruleset 0 does basic parsing. It must resolve. */ qup = false; e->e_flags |= EF_SECURE; if (REWRITE(pvp, 3, e) == EX_TEMPFAIL) qup = true; if (REWRITE(pvp, 0, e) == EX_TEMPFAIL) qup = true; /* ** Build canonical address from pvp. */ a = buildaddr(pvp, a, flags, e); #if _FFR_8BITENVADDR if (NULL != a->q_user) { int len; a->q_user = quote_internal_chars(a->q_user, NULL, &len, e->e_rpool); /* EAI: ok */ } #endif if (hasctrlchar(a->q_user, isrcpt, true)) { if (tTd(20, 1)) sm_dprintf("parseaddr-->bad q_user\n"); /* ** Just mark the address as bad so DSNs work. ** hasctrlchar() has to make sure that the address ** has been sanitized, e.g., shortened. */ a->q_state = QS_BADADDR; } /* ** Make local copies of the host & user and then ** transport them out. */ allocaddr(a, flags, addr, e); e->e_flags &= ~EF_SECURE; if (QS_IS_BADADDR(a->q_state)) { /* weed out bad characters in the printable address too */ (void) hasctrlchar(a->q_paddr, isrcpt, false); return a; } /* ** Select a queue directory for recipient addresses. ** This is done here and in split_across_queue_groups(), ** but the latter applies to addresses after aliasing, ** and only if splitting is done. */ if ((a->q_qgrp == NOAQGRP || a->q_qgrp == ENVQGRP) && !bitset(RF_SENDERADDR|RF_HEADERADDR|RF_RM_ADDR, flags) && OpMode != MD_INITALIAS) { int r; /* call ruleset which should return a queue group name */ r = rscap(RS_QUEUEGROUP, a->q_user, NULL, e, &pvp, pvpbuf, sizeof(pvpbuf)); if (r == EX_OK && pvp != NULL && pvp[0] != NULL && (pvp[0][0] & 0377) == CANONNET && pvp[1] != NULL && pvp[1][0] != '\0') { r = name2qid(pvp[1]); if (r == NOQGRP && LogLevel > 10) sm_syslog(LOG_INFO, NOQID, "can't find queue group name %s, selection ignored", pvp[1]); if (tTd(20, 4) && r != NOQGRP) sm_syslog(LOG_INFO, NOQID, "queue group name %s -> %d", pvp[1], r); a->q_qgrp = r == NOQGRP ? ENVQGRP : r; } } /* ** If there was a parsing failure, mark it for queueing. */ if (qup && OpMode != MD_INITALIAS) { char *msg = "Transient parse error -- message queued for future delivery"; if (e->e_sendmode == SM_DEFER) msg = "Deferring message until queue run"; if (tTd(20, 1)) sm_dprintf("parseaddr: queueing message\n"); message("%s", msg); if (e->e_message == NULL && e->e_sendmode != SM_DEFER) e->e_message = sm_rpool_strdup_x(e->e_rpool, msg); a->q_state = QS_QUEUEUP; a->q_status = "4.4.3"; } /* ** Compute return value. */ if (tTd(20, 1)) { sm_dprintf("parseaddr-->"); printaddr(sm_debug_file(), a, false); } return a; } /* ** INVALIDADDR -- check for address containing characters used for macros ** ** Parameters: ** addr -- the address to check. ** note: this is the complete address (including display part) ** delimptr -- if non-NULL: end of address to check, i.e., ** a pointer in the address string. ** isrcpt -- true iff the address is for a recipient. ** ** Returns: ** true -- if the address has characters that are reserved ** for macros or is too long. ** false -- otherwise. */ bool invalidaddr(addr, delimptr, isrcpt) register char *addr; char *delimptr; bool isrcpt; { bool result = false; char savedelim = '\0'; char *b = addr; XLENDECL if (delimptr != NULL) { /* delimptr points to the end of the address to test */ savedelim = *delimptr; if (savedelim != '\0') /* if that isn't '\0' already: */ *delimptr = '\0'; /* set it */ } for (; *addr != '\0'; addr++) { #if !USE_EAI if (!EightBitAddrOK && (*addr & 0340) == 0200) { setstat(EX_USAGE); result = true; *addr = BAD_CHAR_REPLACEMENT; } #endif XLEN(*addr); if (xlen > MAXNAME - 1) /* EAI:ok */ { char saved = *addr; *addr = '\0'; usrerr("553 5.1.0 Address \"%s\" too long (%d bytes max)", b, MAXNAME - 1); /* EAI:ok */ *addr = saved; result = true; goto delim; } } #if USE_EAI /* check for valid UTF8 string? */ #endif if (result) { if (isrcpt) usrerr("501 5.1.3 8-bit character in mailbox address \"%s\"", b); else usrerr("501 5.1.7 8-bit character in mailbox address \"%s\"", b); } delim: if (delimptr != NULL && savedelim != '\0') *delimptr = savedelim; /* restore old character at delimptr */ return result; } /* ** HASCTRLCHAR -- check for address containing meta-characters ** ** Checks that the address contains no meta-characters, and contains ** no "non-printable" characters unless they are quoted or escaped. ** Quoted or escaped characters are literals. ** ** Parameters: ** addr -- the address to check. ** isrcpt -- true if the address is for a recipient; false ** indicates a from. ** complain -- true if an error should issued if the address ** is invalid and should be "repaired". ** ** Returns: ** true -- if the address has any "weird" characters or ** non-printable characters or if a quote is unbalanced. ** false -- otherwise. ** ** Side Effects: ** Might invoke shorten_rfc822_string() to change addr in place. */ static bool hasctrlchar(addr, isrcpt, complain) register char *addr; bool isrcpt, complain; { bool quoted = false; char *result = NULL; char *b = addr; XLENDECL if (addr == NULL) return false; for (; *addr != '\0'; addr++) { XLEN(*addr); if (xlen > MAXNAME - 1) /* EAI:ok */ { if (complain) { (void) shorten_rfc822_string(b, MAXNAME - 1); /* EAI:ok */ usrerr("553 5.1.0 Address \"%s\" too long (%d bytes max)", b, MAXNAME - 1); /* EAI:ok */ return true; } result = "too long"; } if (!quoted && ((unsigned char)*addr < 32 || *addr == 127)) { result = "non-printable character"; *addr = BAD_CHAR_REPLACEMENT; continue; } if (*addr == '"') quoted = !quoted; else if (*addr == '\\') { /* XXX Generic problem: no '\0' in strings. */ if (*++addr == '\0') { result = "trailing \\ character"; *--addr = BAD_CHAR_REPLACEMENT; break; } } if (!SMTP_UTF8 && !EightBitAddrOK && (*addr & 0340) == 0200) { setstat(EX_USAGE); result = "8-bit character"; *addr = BAD_CHAR_REPLACEMENT; continue; } } if (quoted) result = "unbalanced quote"; /* unbalanced quote */ if (result != NULL && complain) { if (isrcpt) usrerr("501 5.1.3 Syntax error in mailbox address \"%s\" (%s)", b, result); else usrerr("501 5.1.7 Syntax error in mailbox address \"%s\" (%s)", b, result); } return result != NULL; } /* ** ALLOCADDR -- do local allocations of address on demand. ** ** Also lowercases the host name if requested. ** ** Parameters: ** a -- the address to reallocate. ** flags -- the copy flag (see RF_ definitions in sendmail.h ** for a description). ** paddr -- the printname of the address. ** e -- envelope ** ** Returns: ** none. ** ** Side Effects: ** Copies portions of a into local buffers as requested. */ static void allocaddr(a, flags, paddr, e) register ADDRESS *a; int flags; char *paddr; ENVELOPE *e; { if (tTd(24, 4)) sm_dprintf("allocaddr: flags=%x, paddr=%s, ad=%d\n", flags, paddr, bitset(EF_SECURE, e->e_flags)); a->q_paddr = paddr; if (a->q_user == NULL) a->q_user = ""; if (a->q_host == NULL) a->q_host = ""; if (bitset(EF_SECURE, e->e_flags)) a->q_flags |= QSECURE; if (bitset(RF_COPYPARSE, flags)) { a->q_host = sm_rpool_strdup_x(e->e_rpool, a->q_host); if (a->q_user != a->q_paddr) a->q_user = sm_rpool_strdup_x(e->e_rpool, a->q_user); } if (a->q_paddr == NULL) a->q_paddr = sm_rpool_strdup_x(e->e_rpool, a->q_user); a->q_qgrp = NOAQGRP; } /* ** PRESCAN -- Prescan name and make it canonical ** ** Scans a name and turns it into a set of tokens. This process ** deletes blanks and comments (in parentheses) (if the token type ** for left paren is SPC). ** ** This routine knows about quoted strings and angle brackets. ** ** There are certain subtleties to this routine. The one that ** comes to mind now is that backslashes on the ends of names ** are silently stripped off; this is intentional. The problem ** is that some versions of sndmsg (like at LBL) set the kill ** character to something other than @ when reading addresses; ** so people type "csvax.eric\@berkeley" -- which screws up the ** berknet mailer. ** ** Parameters: ** addr -- the name to chomp. ** delim -- the delimiter for the address, normally ** '\0' or ','; \0 is accepted in any case. ** If '\t' then we are reading the .cf file. ** pvpbuf -- place to put the saved text -- note that ** the pointers are static. ** pvpbsize -- size of pvpbuf. ** delimptr -- if non-NULL, set to the location of the ** terminating delimiter. ** toktab -- if set, a token table to use for parsing. ** If NULL, use the default table. ** ignore -- if true, ignore unbalanced addresses ** ** Returns: ** A pointer to a vector of tokens. ** NULL on error. */ /* states and character types */ #define OPR 0 /* operator */ #define ATM 1 /* atom */ #define QST 2 /* in quoted string */ #define SPC 3 /* chewing up spaces */ #define ONE 4 /* pick up one character */ #define ILL 5 /* illegal character */ #define NSTATES 6 /* number of states */ #define TYPE 017 /* mask to select state type */ /* meta bits for table */ #define M 020 /* meta character; don't pass through */ #define B 040 /* cause a break */ #define MB M|B /* meta-break */ static short StateTab[NSTATES][NSTATES] = { /* oldst chtype> OPR ATM QST SPC ONE ILL */ /*OPR*/ { OPR|B, ATM|B, QST|B, SPC|MB, ONE|B, ILL|MB }, /*ATM*/ { OPR|B, ATM, QST|B, SPC|MB, ONE|B, ILL|MB }, /*QST*/ { QST, QST, OPR, QST, QST, QST }, /*SPC*/ { OPR, ATM, QST, SPC|M, ONE, ILL|MB }, /*ONE*/ { OPR, OPR, OPR, OPR, OPR, ILL|MB }, /*ILL*/ { OPR|B, ATM|B, QST|B, SPC|MB, ONE|B, ILL|M } }; /* these all get modified with the OperatorChars */ /* token type table for external strings */ unsigned char ExtTokenTab[256] = { /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,SPC,SPC,SPC,SPC,SPC,ATM,ATM, /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* sp ! " # $ % & ' ( ) * + , - . / */ SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, SPC,SPC,ATM,ATM,ATM,ATM,ATM,ATM, /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* @ A B C D E F G H I J K L M N O */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* P Q R S T U V W X Y Z [ \ ] ^ _ */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* ` a b c d e f g h i j k l m n o */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* p q r s t u v w x y z { | } ~ del */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* sp ! " # $ % & ' ( ) * + , - . / */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* @ A B C D E F G H I J K L M N O */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* P Q R S T U V W X Y Z [ \ ] ^ _ */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* ` a b c d e f g h i j k l m n o */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* p q r s t u v w x y z { | } ~ del */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM }; /* token type table for internal strings */ unsigned char IntTokenTab[256] = { /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,SPC,SPC,SPC,SPC,SPC,ATM,ATM, /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* sp ! " # $ % & ' ( ) * + , - . / */ SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, SPC,SPC,ATM,ATM,ATM,ATM,ATM,ATM, /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* @ A B C D E F G H I J K L M N O */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* P Q R S T U V W X Y Z [ \ ] ^ _ */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* ` a b c d e f g h i j k l m n o */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* p q r s t u v w x y z { | } ~ del */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ OPR,OPR,ONE,OPR,OPR,OPR,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR, /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ OPR,OPR,OPR,ONE,ONE,ONE,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR, /* sp ! " # $ % & ' ( ) * + , - . / */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* @ A B C D E F G H I J K L M N O */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* P Q R S T U V W X Y Z [ \ ] ^ _ */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* ` a b c d e f g h i j k l m n o */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* p q r s t u v w x y z { | } ~ del */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ONE }; /* token type table for MIME parsing */ unsigned char MimeTokenTab[256] = { /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,SPC,SPC,SPC,SPC,SPC,ILL,ILL, /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, /* sp ! " # $ % & ' ( ) * + , - . / */ SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, SPC,SPC,ATM,ATM,OPR,ATM,ATM,OPR, /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,OPR,OPR,OPR,OPR,OPR,OPR, /* @ A B C D E F G H I J K L M N O */ OPR,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* P Q R S T U V W X Y Z [ \ ] ^ _ */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,OPR,OPR,OPR,ATM,ATM, /* ` a b c d e f g h i j k l m n o */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* p q r s t u v w x y z { | } ~ del */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, /* sp ! " # $ % & ' ( ) * + , - . / */ ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, /* @ A B C D E F G H I J K L M N O */ ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, /* P Q R S T U V W X Y Z [ \ ] ^ _ */ ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, /* ` a b c d e f g h i j k l m n o */ ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, /* p q r s t u v w x y z { | } ~ del */ ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ONE }; /* token type table: don't strip comments */ unsigned char TokTypeNoC[256] = { /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,SPC,SPC,SPC,SPC,SPC,ATM,ATM, /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* sp ! " # $ % & ' ( ) * + , - . / */ SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, OPR,OPR,ATM,ATM,ATM,ATM,ATM,ATM, /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* @ A B C D E F G H I J K L M N O */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* P Q R S T U V W X Y Z [ \ ] ^ _ */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* ` a b c d e f g h i j k l m n o */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* p q r s t u v w x y z { | } ~ del */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ OPR,OPR,ONE,OPR,OPR,OPR,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR, /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ OPR,OPR,OPR,ONE,ONE,ONE,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR, /* sp ! " # $ % & ' ( ) * + , - . / */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* @ A B C D E F G H I J K L M N O */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* P Q R S T U V W X Y Z [ \ ] ^ _ */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* ` a b c d e f g h i j k l m n o */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, /* p q r s t u v w x y z { | } ~ del */ ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ONE }; #define NOCHAR (-1) /* signal nothing in lookahead token */ char ** prescan(addr, delim, pvpbuf, pvpbsize, delimptr, toktab, ignore) char *addr; int delim; char pvpbuf[]; int pvpbsize; char **delimptr; unsigned char *toktab; bool ignore; { register char *p; register char *q; register int c; char **avp; bool bslashmode; bool route_syntax; int cmntcnt; int anglecnt; char *tok; int state; int newstate; char *saveto = CurEnv->e_to; static char *av[MAXATOM + 1]; static bool firsttime = true; XLENDECL if (firsttime) { /* initialize the token type table */ char obuf[50]; firsttime = false; if (OperatorChars == NULL) { if (ConfigLevel < 7) OperatorChars = macvalue('o', CurEnv); if (OperatorChars == NULL) OperatorChars = ".:@[]"; } expand(OperatorChars, obuf, sizeof(obuf) - sizeof(DELIMCHARS), CurEnv); (void) sm_strlcat(obuf, DELIMCHARS, sizeof(obuf)); for (p = obuf; *p != '\0'; p++) { if (IntTokenTab[*p & 0xff] == ATM) IntTokenTab[*p & 0xff] = OPR; if (ExtTokenTab[*p & 0xff] == ATM) ExtTokenTab[*p & 0xff] = OPR; if (TokTypeNoC[*p & 0xff] == ATM) TokTypeNoC[*p & 0xff] = OPR; } } if (toktab == NULL) toktab = ExtTokenTab; /* make sure error messages don't have garbage on them */ errno = 0; q = pvpbuf; bslashmode = false; route_syntax = false; cmntcnt = 0; anglecnt = 0; avp = av; state = ATM; c = NOCHAR; p = addr; CurEnv->e_to = p; if (tTd(22, 11)) { sm_dprintf("prescan: "); xputs(sm_debug_file(), p); sm_dprintf("\n"); } do { /* read a token */ tok = q; XLENRESET; for (;;) { /* store away any old lookahead character */ if (c != NOCHAR && !bslashmode) { /* see if there is room */ if (q >= &pvpbuf[pvpbsize - 5]) { addrtoolong: usrerr("553 5.1.1 Address too long"); /* ilenx()? */ if (strlen(addr) > MAXNAME) addr[MAXNAME] = '\0'; returnnull: if (delimptr != NULL) { if (p > addr) --p; *delimptr = p; } CurEnv->e_to = saveto; if (tTd(22, 12)) sm_dprintf("prescan: ==> NULL\n"); return NULL; } /* squirrel it away */ #if !ALLOW_255 if ((char) c == (char) -1 && !tTd(82, 101) && !EightBitAddrOK) c &= 0x7f; #endif /* !ALLOW_255 */ XLEN(c); *q++ = c; } /* read a new input character */ c = (*p++) & 0x00ff; if (c == '\0') { /* diagnose and patch up bad syntax */ if (ignore) break; else if (state == QST) { usrerr("553 Unbalanced '\"'"); c = '"'; } else if (cmntcnt > 0) { usrerr("553 Unbalanced '('"); c = ')'; } else if (anglecnt > 0) { c = '>'; usrerr("553 Unbalanced '<'"); } else break; p--; } else if (c == delim && cmntcnt <= 0 && state != QST) { if (anglecnt <= 0) break; /* special case for better error management */ if (delim == ',' && !route_syntax && !ignore) { usrerr("553 Unbalanced '<'"); c = '>'; p--; } } if (tTd(22, 101)) sm_dprintf("c=%c, s=%d; ", c, state); /* chew up special characters */ *q = '\0'; if (bslashmode) { bslashmode = false; /* kludge \! for naive users */ if (cmntcnt > 0) { c = NOCHAR; continue; } else if (c != '!' || state == QST) { /* see if there is room */ if (q >= &pvpbuf[pvpbsize - 5]) goto addrtoolong; *q++ = '\\'; XLEN('\\'); continue; } } if (c == '\\') { bslashmode = true; } else if (state == QST) { /* EMPTY */ /* do nothing, just avoid next clauses */ } else if (c == '(' && toktab['('] == SPC) { cmntcnt++; c = NOCHAR; } else if (c == ')' && toktab['('] == SPC) { if (cmntcnt <= 0) { if (!ignore) { usrerr("553 Unbalanced ')'"); c = NOCHAR; } } else cmntcnt--; } else if (cmntcnt > 0) { c = NOCHAR; } else if (c == '<') { char *ptr = p; anglecnt++; while (SM_ISSPACE(*ptr)) ptr++; if (*ptr == '@') route_syntax = true; } else if (c == '>') { if (anglecnt <= 0) { if (!ignore) { usrerr("553 Unbalanced '>'"); c = NOCHAR; } } else anglecnt--; route_syntax = false; } else if (delim == ' ' && SM_ISSPACE(c)) c = ' '; if (c == NOCHAR) continue; /* see if this is end of input */ if (c == delim && anglecnt <= 0 && state != QST) break; newstate = StateTab[state][toktab[c & 0xff]]; if (tTd(22, 101)) sm_dprintf("ns=%02o\n", newstate); state = newstate & TYPE; if (state == ILL) { if (isascii(c) && isprint(c)) usrerr("553 Illegal character %c", c); else usrerr("553 Illegal character 0x%02x", c & 0x0ff); } if (bitset(M, newstate)) c = NOCHAR; if (bitset(B, newstate)) break; } /* new token */ if (tok != q) { /* see if there is room */ if (q >= &pvpbuf[pvpbsize - 5]) goto addrtoolong; *q++ = '\0'; if (tTd(22, 36)) { sm_dprintf("tok="); xputs(sm_debug_file(), tok); sm_dprintf("\n"); } if (avp >= &av[MAXATOM]) { usrerr("553 5.1.0 prescan: too many tokens"); goto returnnull; } if (xlen > MAXNAME) /* EAI:ok */ { usrerr("553 5.1.0 prescan: token too long"); goto returnnull; } *avp++ = tok; } } while (c != '\0' && (c != delim || anglecnt > 0)); *avp = NULL; if (delimptr != NULL) { if (p > addr) p--; *delimptr = p; } if (tTd(22, 12)) { sm_dprintf("prescan==>"); printav(sm_debug_file(), av); } CurEnv->e_to = saveto; if (av[0] == NULL) { if (tTd(22, 1)) sm_dprintf("prescan: null leading token\n"); return NULL; } return av; } /* ** REWRITE -- apply rewrite rules to token vector. ** ** This routine is an ordered production system. Each rewrite ** rule has a LHS (called the pattern) and a RHS (called the ** rewrite); 'rwr' points the the current rewrite rule. ** ** For each rewrite rule, 'avp' points the address vector we ** are trying to match against, and 'pvp' points to the pattern. ** If pvp points to a special match value (MATCHZANY, MATCHANY, ** MATCHONE, MATCHCLASS, MATCHNCLASS) then the address in avp ** matched is saved away in the match vector (pointed to by 'mvp'). ** ** When a match between avp & pvp does not match, we try to ** back out. If we back up over MATCHONE, MATCHCLASS, or MATCHNCLASS ** we must also back out the match in mvp. If we reach a ** MATCHANY or MATCHZANY we just extend the match and start ** over again. ** ** When we finally match, we rewrite the address vector ** and try over again. ** ** Parameters: ** pvp -- pointer to token vector. [i] ** ruleset -- the ruleset to use for rewriting. ** reclevel -- recursion level (to catch loops). ** e -- the current envelope. ** maxatom -- maximum length of buffer (usually MAXATOM) ** ** Returns: ** A status code. If EX_TEMPFAIL, higher level code should ** attempt recovery. ** ** Side Effects: ** pvp is modified. */ struct match { char **match_first; /* first token matched */ char **match_last; /* last token matched */ char **match_pattern; /* pointer to pattern */ }; int rewrite(pvp, ruleset, reclevel, e, maxatom) char **pvp; int ruleset; int reclevel; register ENVELOPE *e; int maxatom; { register char *ap; /* address pointer */ register char *rp; /* rewrite pointer */ register char *rulename; /* ruleset name */ register char *prefix; register char **avp; /* address vector pointer */ register char **rvp; /* rewrite vector pointer */ register struct match *mlp; /* cur ptr into mlist */ register struct rewrite *rwr; /* pointer to current rewrite rule */ int ruleno; /* current rule number */ int rstat = EX_OK; /* return status */ int loopcount; struct match mlist[MAXMATCH]; /* stores match on LHS */ char *npvp[MAXATOM + 1]; /* temporary space for rebuild */ char buf[MAXLINE]; char name[6]; /* ** mlp will not exceed mlist[] because readcf enforces ** the upper limit of entries when reading rulesets. */ if (ruleset < 0 || ruleset >= MAXRWSETS) { syserr("554 5.3.5 rewrite: illegal ruleset number %d", ruleset); return EX_CONFIG; } rulename = RuleSetNames[ruleset]; if (rulename == NULL) { (void) sm_snprintf(name, sizeof(name), "%d", ruleset); rulename = name; } if (OpMode == MD_TEST) prefix = ""; else prefix = "rewrite: ruleset "; if (OpMode == MD_TEST) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s%-16.16s input:", prefix, rulename); printav(smioout, pvp); } else if (tTd(21, 1)) { sm_dprintf("%s%-16.16s input:", prefix, rulename); printav(sm_debug_file(), pvp); } if (reclevel++ > MaxRuleRecursion) { syserr("rewrite: excessive recursion (max %d), ruleset %s", MaxRuleRecursion, rulename); return EX_CONFIG; } if (pvp == NULL) return EX_USAGE; if (maxatom <= 0) return EX_USAGE; /* ** Run through the list of rewrite rules, applying ** any that match. */ ruleno = 1; loopcount = 0; for (rwr = RewriteRules[ruleset]; rwr != NULL; ) { int status; /* if already canonical, quit now */ if (pvp[0] != NULL && (pvp[0][0] & 0377) == CANONNET) break; if (tTd(21, 12)) { if (tTd(21, 15)) sm_dprintf("-----trying rule (line %d):", rwr->r_line); else sm_dprintf("-----trying rule:"); printav(sm_debug_file(), rwr->r_lhs); } /* try to match on this rule */ mlp = mlist; rvp = rwr->r_lhs; avp = pvp; if (++loopcount > 100) { syserr("554 5.3.5 Infinite loop in ruleset %s, rule %d", rulename, ruleno); if (tTd(21, 1)) { sm_dprintf("workspace: "); printav(sm_debug_file(), pvp); } break; } while ((ap = *avp) != NULL || *rvp != NULL) { rp = *rvp; if (tTd(21, 35)) { sm_dprintf("ADVANCE rp="); xputs(sm_debug_file(), rp); sm_dprintf(", ap="); xputs(sm_debug_file(), ap); sm_dprintf("\n"); } if (rp == NULL) { /* end-of-pattern before end-of-address */ goto backup; } if (ap == NULL && (rp[0] & 0377) != MATCHZANY && (rp[0] & 0377) != MATCHZERO) { /* end-of-input with patterns left */ goto backup; } switch (rp[0] & 0377) { case MATCHCLASS: /* match any phrase in a class */ mlp->match_pattern = rvp; mlp->match_first = avp; extendclass: ap = *avp; if (ap == NULL) goto backup; mlp->match_last = avp++; cataddr(mlp->match_first, mlp->match_last, buf, sizeof(buf), '\0', true); if (!wordinclass(buf, rp[1])) { if (tTd(21, 36)) { sm_dprintf("EXTEND rp="); xputs(sm_debug_file(), rp); sm_dprintf(", ap="); xputs(sm_debug_file(), ap); sm_dprintf("\n"); } goto extendclass; } if (tTd(21, 36)) sm_dprintf("CLMATCH\n"); mlp++; break; case MATCHNCLASS: /* match any token not in a class */ if (wordinclass(ap, rp[1])) goto backup; /* FALLTHROUGH */ case MATCHONE: case MATCHANY: /* match exactly one token */ mlp->match_pattern = rvp; mlp->match_first = avp; mlp->match_last = avp++; mlp++; break; case MATCHZANY: /* match zero or more tokens */ mlp->match_pattern = rvp; mlp->match_first = avp; mlp->match_last = avp - 1; mlp++; break; case MATCHZERO: /* match zero tokens */ break; case MACRODEXPAND: /* ** Match against run-time macro. ** This algorithm is broken for the ** general case (no recursive macros, ** improper tokenization) but should ** work for the usual cases. */ ap = macvalue(rp[1], e); mlp->match_first = avp; if (tTd(21, 2)) sm_dprintf("rewrite: LHS $&{%s} => \"%s\"\n", macname(rp[1]), ap == NULL ? "(NULL)" : ap); if (ap == NULL) break; while (*ap != '\0') { if (*avp == NULL || sm_strncasecmp(ap, *avp, strlen(*avp)) != 0) { /* no match */ avp = mlp->match_first; goto backup; } ap += strlen(*avp++); } /* match */ break; default: /* must have exact match */ if (!SM_STRCASEEQ(rp, ap)) goto backup; avp++; break; } /* successful match on this token */ rvp++; continue; backup: /* match failed -- back up */ while (--mlp >= mlist) { rvp = mlp->match_pattern; rp = *rvp; avp = mlp->match_last + 1; ap = *avp; if (tTd(21, 36)) { sm_dprintf("BACKUP rp="); xputs(sm_debug_file(), rp); sm_dprintf(", ap="); xputs(sm_debug_file(), ap); sm_dprintf("\n"); } if (ap == NULL) { /* run off the end -- back up again */ continue; } if ((rp[0] & 0377) == MATCHANY || (rp[0] & 0377) == MATCHZANY) { /* extend binding and continue */ mlp->match_last = avp++; rvp++; mlp++; break; } if ((rp[0] & 0377) == MATCHCLASS) { /* extend binding and try again */ mlp->match_last = avp; goto extendclass; } } if (mlp < mlist) { /* total failure to match */ break; } } /* ** See if we successfully matched */ if (mlp < mlist || *rvp != NULL) { if (tTd(21, 10)) sm_dprintf("----- rule fails\n"); rwr = rwr->r_next; ruleno++; loopcount = 0; continue; } rvp = rwr->r_rhs; if (tTd(21, 12)) { sm_dprintf("-----rule matches:"); printav(sm_debug_file(), rvp); } rp = *rvp; if (rp != NULL) { if ((rp[0] & 0377) == CANONUSER) { rvp++; rwr = rwr->r_next; ruleno++; loopcount = 0; } else if ((rp[0] & 0377) == CANONHOST) { rvp++; rwr = NULL; } } /* substitute */ for (avp = npvp; *rvp != NULL; rvp++) { register struct match *m; register char **pp; rp = *rvp; if ((rp[0] & 0377) == MATCHREPL) { /* substitute from LHS */ m = &mlist[rp[1] - '1']; if (m < mlist || m >= mlp) { syserr("554 5.3.5 rewrite: ruleset %s: replacement $%c out of bounds", rulename, rp[1]); return EX_CONFIG; } if (tTd(21, 15)) { sm_dprintf("$%c:", rp[1]); pp = m->match_first; while (pp <= m->match_last) { sm_dprintf(" %p=\"", (void *)*pp); sm_dflush(); sm_dprintf("%s\"", *pp++); } sm_dprintf("\n"); } pp = m->match_first; while (pp <= m->match_last) { if (avp >= &npvp[maxatom]) goto toolong; *avp++ = *pp++; } } else { /* some sort of replacement */ if (avp >= &npvp[maxatom]) { toolong: syserr("554 5.3.0 rewrite: expansion too long"); if (LogLevel > 9) sm_syslog(LOG_ERR, e->e_id, "rewrite: expansion too long, ruleset=%s, ruleno=%d", rulename, ruleno); return EX_DATAERR; } if ((rp[0] & 0377) != MACRODEXPAND) { /* vanilla replacement from RHS */ *avp++ = rp; } else { /* $&{x} replacement */ char *mval = macvalue(rp[1], e); char **xpvp; size_t trsize = 0; static size_t pvpb1_size = 0; static char **pvpb1 = NULL; char pvpbuf[PSBUFSIZE]; if (tTd(21, 2)) sm_dprintf("rewrite: RHS $&{%s} => \"%s\"\n", macname(rp[1]), mval == NULL ? "(NULL)" : mval); if (SM_IS_EMPTY(mval)) continue; /* save the remainder of the input */ for (xpvp = pvp; *xpvp != NULL; xpvp++) trsize += sizeof(*xpvp); if (trsize > pvpb1_size) { if (pvpb1 != NULL) sm_free(pvpb1); pvpb1 = (char **) sm_pmalloc_x(trsize); pvpb1_size = trsize; } memmove((char *) pvpb1, (char *) pvp, trsize); /* scan the new replacement */ xpvp = prescan(mval, '\0', pvpbuf, sizeof(pvpbuf), NULL, NULL, false); if (xpvp == NULL) { /* prescan pre-printed error */ return EX_DATAERR; } /* insert it into the output stream */ while (*xpvp != NULL) { if (tTd(21, 19)) sm_dprintf(" ... %s\n", *xpvp); *avp++ = sm_rpool_strdup_x( e->e_rpool, *xpvp); if (avp >= &npvp[maxatom]) goto toolong; xpvp++; } if (tTd(21, 19)) sm_dprintf(" ... DONE\n"); /* restore the old trailing input */ memmove((char *) pvp, (char *) pvpb1, trsize); } } } *avp++ = NULL; /* ** Check for any hostname/keyword lookups. */ for (rvp = npvp; *rvp != NULL; rvp++) { char **hbrvp; char **xpvp; size_t trsize; char *replac; int endtoken; bool external; STAB *map; char *mapname; char **key_rvp; char **arg_rvp; char **default_rvp; char cbuf[MAXKEY]; char *pvpb1[MAXATOM + 1]; char *argvect[MAX_MAP_ARGS]; char pvpbuf[PSBUFSIZE]; char *nullpvp[1]; hbrvp = rvp; if ((rvp[0][0] & 0377) == HOSTBEGIN) { endtoken = HOSTEND; mapname = "host"; } else if ((rvp[0][0] & 0377) == LOOKUPBEGIN) { endtoken = LOOKUPEND; mapname = *++rvp; if (mapname == NULL) { syserr("554 5.3.0 rewrite: missing mapname"); /* NOTREACHED */ SM_ASSERT(0); } } else continue; /* ** Got a hostname/keyword lookup. ** ** This could be optimized fairly easily. */ map = stab(mapname, ST_MAP, ST_FIND); if (map == NULL) syserr("554 5.3.0 rewrite: map %s not found", mapname); /* extract the match part */ key_rvp = ++rvp; if (key_rvp == NULL) { syserr("554 5.3.0 rewrite: missing key for map %s", mapname); /* NOTREACHED */ SM_ASSERT(0); } default_rvp = NULL; arg_rvp = argvect; xpvp = NULL; replac = pvpbuf; while (*rvp != NULL && ((rvp[0][0] & 0377) != endtoken)) { int nodetype = rvp[0][0] & 0377; if (nodetype != CANONHOST && nodetype != CANONUSER) { rvp++; continue; } *rvp++ = NULL; if (xpvp != NULL) { cataddr(xpvp, NULL, replac, &pvpbuf[sizeof(pvpbuf)] - replac, '\0', true); if (arg_rvp < &argvect[MAX_MAP_ARGS - 1]) *++arg_rvp = replac; replac += strlen(replac) + 1; xpvp = NULL; } switch (nodetype) { case CANONHOST: xpvp = rvp; break; case CANONUSER: default_rvp = rvp; break; } } if (*rvp != NULL) *rvp++ = NULL; if (xpvp != NULL) { cataddr(xpvp, NULL, replac, &pvpbuf[sizeof(pvpbuf)] - replac, '\0', true); if (arg_rvp < &argvect[MAX_MAP_ARGS - 1]) *++arg_rvp = replac; } if (arg_rvp >= &argvect[MAX_MAP_ARGS - 1]) argvect[MAX_MAP_ARGS - 1] = NULL; else *++arg_rvp = NULL; /* save the remainder of the input string */ trsize = (avp - rvp + 1) * sizeof(*rvp); memmove((char *) pvpb1, (char *) rvp, trsize); /* look it up */ cataddr(key_rvp, NULL, cbuf, sizeof(cbuf), map == NULL ? '\0' : map->s_map.map_spacesub, true); argvect[0] = cbuf; replac = map_lookup(map, cbuf, argvect, &rstat, e); external = replac != NULL; /* if no replacement, use default */ if (replac == NULL && default_rvp != NULL) { /* create the default */ cataddr(default_rvp, NULL, cbuf, sizeof(cbuf), '\0', false); replac = cbuf; } if (replac == NULL) { xpvp = key_rvp; } else if (*replac == '\0') { /* null replacement */ nullpvp[0] = NULL; xpvp = nullpvp; } else { /* scan the new replacement */ xpvp = prescan(replac, '\0', pvpbuf, sizeof(pvpbuf), NULL, external ? NULL : IntTokenTab, false); if (xpvp == NULL) { /* prescan already printed error */ return EX_DATAERR; } } /* append it to the token list */ for (avp = hbrvp; *xpvp != NULL; xpvp++) { *avp++ = sm_rpool_strdup_x(e->e_rpool, *xpvp); if (avp >= &npvp[maxatom]) goto toolong; } /* restore the old trailing information */ rvp = avp - 1; for (xpvp = pvpb1; (*avp++ = *xpvp++) != NULL; ) if (avp >= &npvp[maxatom]) goto toolong; } /* ** Check for subroutine calls. */ status = callsubr(npvp, reclevel, e); if (rstat == EX_OK || status == EX_TEMPFAIL) rstat = status; /* copy vector back into original space. */ for (avp = npvp; *avp++ != NULL;) continue; memmove((char *) pvp, (char *) npvp, (int) (avp - npvp) * sizeof(*avp)); if (tTd(21, 4)) { sm_dprintf("rewritten as:"); printav(sm_debug_file(), pvp); } } if (OpMode == MD_TEST) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s%-16.16s returns:", prefix, rulename); printav(smioout, pvp); } else if (tTd(21, 1)) { sm_dprintf("%s%-16.16s returns:", prefix, rulename); printav(sm_debug_file(), pvp); } return rstat; } /* ** CALLSUBR -- call subroutines in rewrite vector ** ** Parameters: ** pvp -- pointer to token vector. ** reclevel -- the current recursion level. ** e -- the current envelope. ** ** Returns: ** The status from the subroutine call. ** ** Side Effects: ** pvp is modified. */ static int callsubr(pvp, reclevel, e) char **pvp; int reclevel; ENVELOPE *e; { char **avp; register int i; int subr, j; int nsubr; int status; int rstat = EX_OK; #define MAX_SUBR 16 int subrnumber[MAX_SUBR]; int subrindex[MAX_SUBR]; nsubr = 0; /* ** Look for subroutine calls in pvp, collect them into subr*[] ** We will perform the calls in the next loop, because we will ** call the "last" subroutine first to avoid recursive calls ** and too much copying. */ for (avp = pvp, j = 0; *avp != NULL; avp++, j++) { if ((avp[0][0] & 0377) == CALLSUBR && avp[1] != NULL) { stripquotes(avp[1]); subr = strtorwset(avp[1], NULL, ST_FIND); if (subr < 0) { syserr("554 5.3.5 Unknown ruleset %s", avp[1]); return EX_CONFIG; } /* ** XXX instead of doing this we could optimize ** the rules after reading them: just remove ** calls to empty rulesets */ /* subroutine is an empty ruleset? don't call it */ if (RewriteRules[subr] == NULL) { if (tTd(21, 3)) sm_dprintf("-----skip subr %s (%d)\n", avp[1], subr); for (i = 2; avp[i] != NULL; i++) avp[i - 2] = avp[i]; avp[i - 2] = NULL; continue; } if (++nsubr >= MAX_SUBR) { syserr("554 5.3.0 Too many subroutine calls (%d max)", MAX_SUBR); return EX_CONFIG; } subrnumber[nsubr] = subr; subrindex[nsubr] = j; } } /* ** Perform the actual subroutines calls, "last" one first, i.e., ** go from the right to the left through all calls, ** do the rewriting in place. */ for (; nsubr > 0; nsubr--) { subr = subrnumber[nsubr]; avp = pvp + subrindex[nsubr]; /* remove the subroutine call and name */ for (i = 2; avp[i] != NULL; i++) avp[i - 2] = avp[i]; avp[i - 2] = NULL; /* ** Now we need to call the ruleset specified for ** the subroutine. We can do this in place since ** we call the "last" subroutine first. */ status = rewrite(avp, subr, reclevel, e, MAXATOM - subrindex[nsubr]); if (status != EX_OK && status != EX_TEMPFAIL) return status; if (rstat == EX_OK || status == EX_TEMPFAIL) rstat = status; } return rstat; } /* ** MAP_LOOKUP -- do lookup in map ** ** Parameters: ** smap -- the map to use for the lookup. ** key -- the key to look up. [x] ** argvect -- arguments to pass to the map lookup. [x] ** pstat -- a pointer to an integer in which to store the ** status from the lookup. ** e -- the current envelope. ** ** Returns: ** The result of the lookup. ** NULL -- if there was no data for the given key. */ static char * map_lookup(smap, key, argvect, pstat, e) STAB *smap; char key[]; char **argvect; int *pstat; ENVELOPE *e; { auto int status = EX_OK; MAP *map; char *replac; if (smap == NULL) return NULL; map = &smap->s_map; DYNOPENMAP(map); map->map_mflags |= MF_SECURE; /* default: secure */ if (e->e_sendmode == SM_DEFER && bitset(MF_DEFER, map->map_mflags)) { /* don't do any map lookups */ if (tTd(60, 1)) sm_dprintf("map_lookup(%s, %s) => DEFERRED\n", smap->s_name, key); *pstat = EX_TEMPFAIL; return NULL; } if (!bitset(MF_KEEPQUOTES, map->map_mflags)) stripquotes(key); if (tTd(60, 1)) { sm_dprintf("map_lookup(%s, ", smap->s_name); xputs(sm_debug_file(), key); if (tTd(60, 5)) { int i; for (i = 0; argvect[i] != NULL; i++) sm_dprintf(", %%%d=%s", i, argvect[i]); } sm_dprintf(") => "); } replac = (*map->map_class->map_lookup)(map, key, argvect, &status); if (bitset(MF_SECURE, map->map_mflags)) map->map_mflags &= ~MF_SECURE; else e->e_flags &= ~EF_SECURE; if (tTd(60, 1)) sm_dprintf("%s (%d), ad=%d\n", replac != NULL ? replac : "NOT FOUND", status, bitset(MF_SECURE, map->map_mflags)); /* should recover if status == EX_TEMPFAIL */ if (status == EX_TEMPFAIL && !bitset(MF_NODEFER, map->map_mflags)) { *pstat = EX_TEMPFAIL; if (tTd(60, 1)) sm_dprintf("map_lookup(%s, %s) tempfail: errno=%d\n", smap->s_name, key, errno); if (e->e_message == NULL) { char mbuf[320]; (void) sm_snprintf(mbuf, sizeof(mbuf), "%.80s map: lookup (%s): deferred", smap->s_name, shortenstring(key, MAXSHORTSTR)); e->e_message = sm_rpool_strdup_x(e->e_rpool, mbuf); } } if (status == EX_TEMPFAIL && map->map_tapp != NULL) { size_t i = strlen(key) + strlen(map->map_tapp) + 1; static char *rwbuf = NULL; static size_t rwbuflen = 0; if (i > rwbuflen) { if (rwbuf != NULL) sm_free(rwbuf); rwbuflen = i; rwbuf = (char *) sm_pmalloc_x(rwbuflen); } (void) sm_strlcpyn(rwbuf, rwbuflen, 2, key, map->map_tapp); if (tTd(60, 4)) sm_dprintf("map_lookup tempfail: returning \"%s\"\n", rwbuf); return rwbuf; } return replac; } /* ** INITERRMAILERS -- initialize error and discard mailers ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** initializes error and discard mailers. */ static MAILER discardmailer; static MAILER errormailer; static char *discardargv[] = { "DISCARD", NULL }; static char *errorargv[] = { "ERROR", NULL }; void initerrmailers() { if (discardmailer.m_name == NULL) { /* initialize the discard mailer */ discardmailer.m_name = "*discard*"; discardmailer.m_mailer = "DISCARD"; discardmailer.m_argv = discardargv; } if (errormailer.m_name == NULL) { /* initialize the bogus mailer */ errormailer.m_name = "*error*"; errormailer.m_mailer = "ERROR"; errormailer.m_argv = errorargv; } } /* ** BUILDADDR -- build address from token vector. ** ** Parameters: ** tv -- token vector. ** a -- pointer to address descriptor to fill. ** If NULL, one will be allocated. ** flags -- info regarding whether this is a sender or ** a recipient. ** e -- the current envelope. ** ** Returns: ** NULL if there was an error. ** 'a' otherwise. ** ** Side Effects: ** fills in 'a' */ static struct errcodes { char *ec_name; /* name of error code */ int ec_code; /* numeric code */ } ErrorCodes[] = { { "usage", EX_USAGE }, { "nouser", EX_NOUSER }, { "nohost", EX_NOHOST }, { "unavailable", EX_UNAVAILABLE }, { "software", EX_SOFTWARE }, { "tempfail", EX_TEMPFAIL }, { "protocol", EX_PROTOCOL }, { "config", EX_CONFIG }, { NULL, EX_UNAVAILABLE } }; static ADDRESS * buildaddr(tv, a, flags, e) register char **tv; register ADDRESS *a; int flags; register ENVELOPE *e; { bool tempfail = false; int maxatom; struct mailer **mp; register struct mailer *m; register char *p; char *mname; char **hostp; char hbuf[MAXNAME + 1]; /* EAI:ok */ static char ubuf[MAXNAME_I + 2]; #if _FFR_8BITENVADDR int len; #endif if (tTd(24, 5)) { sm_dprintf("buildaddr, flags=%x, tv=", flags); printav(sm_debug_file(), tv); } maxatom = MAXATOM; if (a == NULL) a = (ADDRESS *) sm_rpool_malloc_x(e->e_rpool, sizeof(*a)); memset((char *) a, '\0', sizeof(*a)); hbuf[0] = '\0'; /* set up default error return flags */ a->q_flags |= DefaultNotify; /* figure out what net/mailer to use */ if (*tv == NULL || (**tv & 0377) != CANONNET) { syserr("554 5.3.5 buildaddr: no mailer in parsed address"); badaddr: /* ** ExitStat may have been set by an earlier map open ** failure (to a permanent error (EX_OSERR) in syserr()) ** so we also need to check if this particular $#error ** return wanted a 4XX failure. ** ** XXX the real fix is probably to set ExitStat correctly, ** i.e., to EX_TEMPFAIL if the map open is just a temporary ** error. */ if (ExitStat == EX_TEMPFAIL || tempfail) a->q_state = QS_QUEUEUP; else { a->q_state = QS_BADADDR; a->q_mailer = &errormailer; } return a; } mname = *++tv; --maxatom; /* extract host and user portions */ if (*++tv != NULL && (**tv & 0377) == CANONHOST) { hostp = ++tv; --maxatom; } else hostp = NULL; --maxatom; while (*tv != NULL && (**tv & 0377) != CANONUSER) { tv++; --maxatom; } if (*tv == NULL) { syserr("554 5.3.5 buildaddr: no user"); goto badaddr; } if (tv == hostp) hostp = NULL; else if (hostp != NULL) cataddr(hostp, tv - 1, hbuf, sizeof(hbuf), '\0', true); cataddr(++tv, NULL, ubuf, sizeof(ubuf), ' ', false); --maxatom; /* save away the host name */ if (SM_STRCASEEQ(mname, "error")) { /* Set up triplet for use by -bv */ a->q_mailer = &errormailer; a->q_user = sm_rpool_strdup_x(e->e_rpool, ubuf); /* XXX wrong place? */ if (hostp != NULL) { register struct errcodes *ep; a->q_host = sm_rpool_strdup_x(e->e_rpool, hbuf); if (strchr(hbuf, '.') != NULL) { a->q_status = sm_rpool_strdup_x(e->e_rpool, hbuf); setstat(dsntoexitstat(hbuf)); } else if (isascii(hbuf[0]) && isdigit(hbuf[0])) { setstat(atoi(hbuf)); } else { for (ep = ErrorCodes; ep->ec_name != NULL; ep++) if (SM_STRCASEEQ(ep->ec_name, hbuf)) break; setstat(ep->ec_code); } } else { a->q_host = NULL; setstat(EX_UNAVAILABLE); } stripquotes(ubuf); if (ISSMTPCODE(ubuf) && ubuf[3] == ' ') { char fmt[16]; int off; if ((off = isenhsc(ubuf + 4, ' ')) > 0) { ubuf[off + 4] = '\0'; off += 5; } else { off = 4; ubuf[3] = '\0'; } (void) sm_strlcpyn(fmt, sizeof(fmt), 2, ubuf, " %s"); if (off > 4) usrerr(fmt, ubuf + off); else if (isenhsc(hbuf, '\0') > 0) usrerrenh(hbuf, fmt, ubuf + off); else usrerr(fmt, ubuf + off); /* XXX ubuf[off - 1] = ' '; */ if (ubuf[0] == '4') tempfail = true; } else { usrerr("553 5.3.0 %s", ubuf); } goto badaddr; } for (mp = Mailer; (m = *mp++) != NULL; ) { if (SM_STRCASEEQ(m->m_name, mname)) break; } if (m == NULL) { syserr("554 5.3.5 buildaddr: unknown mailer %s", mname); goto badaddr; } a->q_mailer = m; /* figure out what host (if any) */ if (hostp == NULL) { if (!bitnset(M_LOCALMAILER, m->m_flags)) { syserr("554 5.3.5 buildaddr: no host"); goto badaddr; } a->q_host = NULL; } else a->q_host = sm_rpool_strdup_x(e->e_rpool, hbuf); /* figure out the user */ p = ubuf; if (bitnset(M_CHECKUDB, m->m_flags) && *p == '@') { p++; tv++; --maxatom; a->q_flags |= QNOTREMOTE; } /* do special mapping for local mailer */ if (*p == '"') p++; if (*p == '|' && bitnset(M_CHECKPROG, m->m_flags)) a->q_mailer = m = ProgMailer; else if (*p == '/' && bitnset(M_CHECKFILE, m->m_flags)) a->q_mailer = m = FileMailer; else if (*p == ':' && bitnset(M_CHECKINCLUDE, m->m_flags)) { /* may be :include: */ stripquotes(ubuf); if (sm_strncasecmp(ubuf, ":include:", 9) == 0) { /* if :include:, don't need further rewriting */ a->q_mailer = m = InclMailer; a->q_user = sm_rpool_strdup_x(e->e_rpool, &ubuf[9]); return a; } } /* rewrite according recipient mailer rewriting rules */ #if _FFR_8BITENVADDR p = quote_internal_chars(a->q_host, NULL, &len, NULL); #else p = a->q_host; #endif macdefine(&e->e_macro, A_PERM, 'h', p); if (ConfigLevel >= 10 || !bitset(RF_SENDERADDR|RF_HEADERADDR, flags)) { /* sender addresses done later */ (void) rewrite(tv, 2, 0, e, maxatom); if (m->m_re_rwset > 0) (void) rewrite(tv, m->m_re_rwset, 0, e, maxatom); } (void) rewrite(tv, 4, 0, e, maxatom); /* save the result for the command line/RCPT argument */ cataddr(tv, NULL, ubuf, sizeof(ubuf), '\0', true); a->q_user = sm_rpool_strdup_x(e->e_rpool, ubuf); /* ** Do mapping to lower case as requested by mailer */ if (a->q_host != NULL && !bitnset(M_HST_UPPER, m->m_flags)) makelower_a(&a->q_host, e->e_rpool); if (!bitnset(M_USR_UPPER, m->m_flags)) makelower_a(&a->q_user, e->e_rpool); if (tTd(24, 6)) { sm_dprintf("buildaddr => "); printaddr(sm_debug_file(), a, false); } return a; } /* ** CATADDR -- concatenate pieces of addresses (putting in subs) ** ** Parameters: ** pvp -- parameter vector to rebuild. [i] ** evp -- last parameter to include. Can be NULL to ** use entire pvp. ** buf -- buffer to build the string into. ** sz -- size of buf. ** spacesub -- the space separator character; ** '\0': SpaceSub. ** NOSPACESEP: no separator ** external -- convert to external form? ** (undo "meta quoting") ** ** Returns: ** none. ** ** Side Effects: ** Destroys buf. ** ** Notes: ** There are two formats for strings: internal and external. ** The external format is just an eight-bit clean string (no ** null bytes, everything else OK). The internal format can ** include sendmail metacharacters. The special character ** METAQUOTE essentially quotes the character following, stripping ** it of all special semantics. ** ** The cataddr routine needs to be aware of whether it is producing ** an internal or external form as output (it only takes internal ** form as input). */ void cataddr(pvp, evp, buf, sz, spacesub, external) char **pvp; char **evp; char *buf; register int sz; int spacesub; bool external; { bool oatomtok, natomtok; char *p; oatomtok = natomtok = false; if (tTd(59, 14)) { sm_dprintf("cataddr(%d) <==", external); printav(sm_debug_file(), pvp); } if (sz <= 0) return; if (spacesub == '\0') spacesub = SpaceSub; if (pvp == NULL) { *buf = '\0'; return; } p = buf; sz -= 2; while (*pvp != NULL && sz > 0) { char *q; natomtok = (IntTokenTab[**pvp & 0xff] == ATM); if (oatomtok && natomtok && spacesub != NOSPACESEP) { *p++ = spacesub; if (--sz <= 0) break; } for (q = *pvp; *q != '\0'; ) { int c; if (--sz <= 0) break; *p++ = c = *q++; /* ** If the current character (c) is METAQUOTE and we ** want the "external" form and the next character ** is not NUL, then overwrite METAQUOTE with that ** character (i.e., METAQUOTE ch is changed to ch). ** p[-1] is used because p is advanced (above). */ if ((c & 0377) == METAQUOTE && external && *q != '\0') p[-1] = *q++; } if (sz <= 0) break; oatomtok = natomtok; if (pvp++ == evp) break; } #if 0 /* ** Silently truncate long strings: even though this doesn't ** seem like a good idea it is necessary because header checks ** send the whole header value to rscheck() and hence rewrite(). ** The latter however sometimes uses a "short" buffer (e.g., ** cbuf[MAXNAME + 1]) to call cataddr() which then triggers this ** error function. One possible fix to the problem is to pass ** flags to rscheck() and rewrite() to distinguish the various ** calls and only trigger the error if necessary. For now just ** undo the change from 8.13.0. */ if (sz <= 0) usrerr("cataddr: string too long"); #endif *p = '\0'; if (tTd(59, 14)) sm_dprintf(" cataddr => %s\n", str2prt(buf)); } /* ** SAMEADDR -- Determine if two addresses are the same ** ** This is not just a straight comparison -- if the mailer doesn't ** care about the host we just ignore it, etc. ** ** Parameters: ** a, b -- pointers to the internal forms to compare. ** ** Returns: ** true -- they represent the same mailbox. ** false -- they don't. ** ** Side Effects: ** none. */ bool sameaddr(a, b) register ADDRESS *a; register ADDRESS *b; { register ADDRESS *ca, *cb; /* if they don't have the same mailer, forget it */ if (a->q_mailer != b->q_mailer) return false; /* ** Addresses resolving to error mailer ** should not be considered identical */ if (a->q_mailer == &errormailer) return false; /* if the user isn't the same, we can drop out */ if (strcmp(a->q_user, b->q_user) != 0) return false; /* do the required flags match? */ if (!ADDR_FLAGS_MATCH(a, b)) return false; /* if we have good uids for both but they differ, these are different */ if (a->q_mailer == ProgMailer) { ca = getctladdr(a); cb = getctladdr(b); if (ca != NULL && cb != NULL && bitset(QGOODUID, ca->q_flags & cb->q_flags) && ca->q_uid != cb->q_uid) return false; } /* otherwise compare hosts (but be careful for NULL ptrs) */ if (a->q_host == b->q_host) { /* probably both null pointers */ return true; } if (a->q_host == NULL || b->q_host == NULL) { /* only one is a null pointer */ return false; } if (strcmp(a->q_host, b->q_host) != 0) return false; return true; } /* ** PRINTADDR -- print address (for debugging) ** ** Parameters: ** a -- the address to print ** follow -- follow the q_next chain. ** ** Returns: ** none. ** ** Side Effects: ** none. */ struct qflags { char *qf_name; unsigned long qf_bit; }; /* :'a,.s;^#define \(Q[A-Z]*\) .*; { "\1", \1 },; */ static struct qflags AddressFlags[] = { { "QGOODUID", QGOODUID }, { "QPRIMARY", QPRIMARY }, { "QNOTREMOTE", QNOTREMOTE }, { "QSELFREF", QSELFREF }, { "QBOGUSSHELL", QBOGUSSHELL }, { "QUNSAFEADDR", QUNSAFEADDR }, { "QPINGONSUCCESS", QPINGONSUCCESS }, { "QPINGONFAILURE", QPINGONFAILURE }, { "QPINGONDELAY", QPINGONDELAY }, { "QHASNOTIFY", QHASNOTIFY }, { "QRELAYED", QRELAYED }, { "QEXPANDED", QEXPANDED }, { "QDELIVERED", QDELIVERED }, { "QDELAYED", QDELAYED }, { "QALIAS", QALIAS }, { "QBYTRACE", QBYTRACE }, { "QBYNDELAY", QBYNDELAY }, { "QBYNRELAY", QBYNRELAY }, { "QINTBCC", QINTBCC }, { "QDYNMAILER", QDYNMAILER }, { "QSECURE", QSECURE }, { "QQUEUED", QQUEUED }, { "QINTREPLY", QINTREPLY }, { "QMXSECURE", QMXSECURE }, { "QTHISPASS", QTHISPASS }, { "QRCPTOK", QRCPTOK }, { NULL, 0 } }; void printaddr(fp, a, follow) SM_FILE_T *fp; register ADDRESS *a; bool follow; { register MAILER *m; MAILER pseudomailer; register struct qflags *qfp; bool firstone; if (a == NULL) { (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "[NULL]\n"); return; } while (a != NULL) { (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%p=", (void *)a); (void) sm_io_flush(fp, SM_TIME_DEFAULT); /* find the mailer -- carefully */ m = a->q_mailer; if (m == NULL) { m = &pseudomailer; m->m_mno = -1; m->m_name = "NULL"; } (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s:\n\tmailer %d (%s), host `%s'\n", a->q_paddr == NULL ? "" : a->q_paddr, m->m_mno, m->m_name, a->q_host == NULL ? "" : a->q_host); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\tuser `%s', ruser `%s'\n", a->q_user, a->q_ruser == NULL ? "" : a->q_ruser); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\tstate="); switch (a->q_state) { case QS_OK: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "OK"); break; case QS_DONTSEND: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "DONTSEND"); break; case QS_BADADDR: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "BADADDR"); break; case QS_QUEUEUP: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "QUEUEUP"); break; case QS_RETRY: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "RETRY"); break; case QS_SENT: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "SENT"); break; case QS_VERIFIED: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "VERIFIED"); break; case QS_EXPANDED: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "EXPANDED"); break; case QS_SENDER: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "SENDER"); break; case QS_CLONED: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "CLONED"); break; case QS_DISCARDED: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "DISCARDED"); break; case QS_REPLACED: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "REPLACED"); break; case QS_REMOVED: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "REMOVED"); break; case QS_DUPLICATE: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "DUPLICATE"); break; case QS_INCLUDED: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "INCLUDED"); break; default: (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%d", a->q_state); break; } (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, ", next=%p, alias %p, uid %d, gid %d\n", (void *)a->q_next, (void *)a->q_alias, (int) a->q_uid, (int) a->q_gid); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\tflags=%lx<", a->q_flags); firstone = true; for (qfp = AddressFlags; qfp->qf_name != NULL; qfp++) { if (!bitset(qfp->qf_bit, a->q_flags)) continue; if (!firstone) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, ","); firstone = false; (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s", qfp->qf_name); } (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, ">\n"); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\towner=%s, home=\"%s\", fullname=\"%s\"\n", a->q_owner == NULL ? "(none)" : a->q_owner, a->q_home == NULL ? "(none)" : a->q_home, a->q_fullname == NULL ? "(none)" : a->q_fullname); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\torcpt=\"%s\", statmta=%s, status=%s\n", a->q_orcpt == NULL ? "(none)" : a->q_orcpt, a->q_statmta == NULL ? "(none)" : a->q_statmta, a->q_status == NULL ? "(none)" : a->q_status); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\tfinalrcpt=\"%s\"\n", a->q_finalrcpt == NULL ? "(none)" : a->q_finalrcpt); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\trstatus=\"%s\"\n", a->q_rstatus == NULL ? "(none)" : a->q_rstatus); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\tstatdate=%s\n", a->q_statdate == 0 ? "(none)" : ctime(&a->q_statdate)); if (!follow) return; a = a->q_next; } } /* ** EMPTYADDR -- return true if this address is empty (``<>'') ** ** Parameters: ** a -- pointer to the address ** ** Returns: ** true -- if this address is "empty" (i.e., no one should ** ever generate replies to it. ** false -- if it is a "regular" (read: replyable) address. */ bool emptyaddr(a) register ADDRESS *a; { return a->q_paddr == NULL || strcmp(a->q_paddr, "<>") == 0 || a->q_user == NULL || strcmp(a->q_user, "<>") == 0; } /* ** REMOTENAME -- return the name relative to the current mailer ** ** Parameters: ** name -- the name to translate. [i] ** m -- the mailer that we want to do rewriting relative to. ** flags -- fine tune operations. ** pstat -- pointer to status word. ** e -- the current envelope. ** ** Returns: ** the text string representing this address relative to ** the receiving mailer. [i] ** ** Warnings: ** The text string returned is tucked away locally; ** copy it if you intend to save it. */ char * remotename(name, m, flags, pstat, e) char *name; struct mailer *m; int flags; int *pstat; register ENVELOPE *e; { register char **pvp; char *SM_NONVOLATILE fancy; char *oldg; int rwset; static char buf[MAXNAME_I + 1]; char lbuf[MAXNAME_I + 1]; char pvpbuf[PSBUFSIZE]; char addrtype[4]; if (tTd(12, 1)) { sm_dprintf("remotename("); xputs(sm_debug_file(), name); sm_dprintf(")\n"); } /* don't do anything if we are tagging it as special */ if (bitset(RF_SENDERADDR, flags)) { rwset = bitset(RF_HEADERADDR, flags) ? m->m_sh_rwset : m->m_se_rwset; addrtype[2] = 's'; } else { rwset = bitset(RF_HEADERADDR, flags) ? m->m_rh_rwset : m->m_re_rwset; addrtype[2] = 'r'; } if (rwset < 0) return name; addrtype[1] = ' '; addrtype[3] = '\0'; addrtype[0] = bitset(RF_HEADERADDR, flags) ? 'h' : 'e'; macdefine(&e->e_macro, A_TEMP, macid("{addr_type}"), addrtype); /* ** Do a heuristic crack of this name to extract any comment info. ** This will leave the name as a comment and a $g macro. */ if (bitset(RF_CANONICAL, flags) || bitnset(M_NOCOMMENT, m->m_flags)) fancy = "\201g"; else fancy = crackaddr(name, e); /* ** Turn the name into canonical form. ** Normally this will be RFC 822 style, i.e., "user@domain". ** If this only resolves to "user", and the "C" flag is ** specified in the sending mailer, then the sender's ** domain will be appended. */ pvp = prescan(name, '\0', pvpbuf, sizeof(pvpbuf), NULL, NULL, false); if (pvp == NULL) return name; if (REWRITE(pvp, 3, e) == EX_TEMPFAIL) *pstat = EX_TEMPFAIL; if (bitset(RF_ADDDOMAIN, flags) && e->e_fromdomain != NULL) { /* append from domain to this address */ register char **pxp = pvp; int l = MAXATOM; /* size of buffer for pvp */ /* see if there is an "@domain" in the current name */ while (*pxp != NULL && strcmp(*pxp, "@") != 0) { pxp++; --l; } if (*pxp == NULL) { /* no.... append the "@domain" from the sender */ register char **qxq = e->e_fromdomain; while ((*pxp++ = *qxq++) != NULL) { if (--l <= 0) { *--pxp = NULL; usrerr("553 5.1.0 remotename: too many tokens"); *pstat = EX_UNAVAILABLE; break; } } if (REWRITE(pvp, 3, e) == EX_TEMPFAIL) *pstat = EX_TEMPFAIL; } } /* ** Do more specific rewriting. ** Rewrite using ruleset 1 or 2 depending on whether this is ** a sender address or not. ** Then run it through any receiving-mailer-specific rulesets. */ if (bitset(RF_SENDERADDR, flags)) { if (REWRITE(pvp, 1, e) == EX_TEMPFAIL) *pstat = EX_TEMPFAIL; } else { if (REWRITE(pvp, 2, e) == EX_TEMPFAIL) *pstat = EX_TEMPFAIL; } if (rwset > 0) { if (REWRITE(pvp, rwset, e) == EX_TEMPFAIL) *pstat = EX_TEMPFAIL; } /* ** Do any final sanitation the address may require. ** This will normally be used to turn internal forms ** (e.g., user@host.LOCAL) into external form. This ** may be used as a default to the above rules. */ if (REWRITE(pvp, 4, e) == EX_TEMPFAIL) *pstat = EX_TEMPFAIL; /* ** Now restore the comment information we had at the beginning. */ cataddr(pvp, NULL, lbuf, sizeof(lbuf), '\0', false); oldg = macget(&e->e_macro, 'g'); macset(&e->e_macro, 'g', lbuf); SM_TRY /* need to make sure route-addrs have */ if (bitset(RF_CANONICAL, flags) && lbuf[0] == '@') expand("<\201g>", buf, sizeof(buf), e); else expand(fancy, buf, sizeof(buf), e); SM_FINALLY macset(&e->e_macro, 'g', oldg); SM_END_TRY if (tTd(12, 1)) { sm_dprintf("remotename => `"); xputs(sm_debug_file(), buf); sm_dprintf("', stat=%d\n", *pstat); } return buf; } /* ** MAPLOCALUSER -- run local username through ruleset 5 for final redirection ** ** Parameters: ** a -- the address to map (but just the user name part). ** sendq -- the sendq in which to install any replacement ** addresses. ** aliaslevel -- the alias nesting depth. ** e -- the envelope. ** ** Returns: ** none. */ #define Q_COPYFLAGS (QPRIMARY|QBOGUSSHELL|QUNSAFEADDR|\ Q_PINGFLAGS|QHASNOTIFY|\ QRELAYED|QEXPANDED|QDELIVERED|QDELAYED|\ QBYTRACE|QBYNDELAY|QBYNRELAY) void maplocaluser(a, sendq, aliaslevel, e) register ADDRESS *a; ADDRESS **sendq; int aliaslevel; ENVELOPE *e; { register char **pvp; register ADDRESS *SM_NONVOLATILE a1 = NULL; char *p; char pvpbuf[PSBUFSIZE]; #if _FFR_8BITENVADDR int len; #endif if (tTd(29, 1)) { sm_dprintf("maplocaluser: "); printaddr(sm_debug_file(), a, false); } pvp = prescan(a->q_user, '\0', pvpbuf, sizeof(pvpbuf), NULL, NULL, false); if (pvp == NULL) { if (tTd(29, 9)) sm_dprintf("maplocaluser: cannot prescan %s\n", a->q_user); return; } #if _FFR_8BITENVADDR p = quote_internal_chars(a->q_host, NULL, &len, NULL); #else p = a->q_host; #endif macdefine(&e->e_macro, A_PERM, 'h', p); macdefine(&e->e_macro, A_PERM, 'u', a->q_user); macdefine(&e->e_macro, A_PERM, 'z', a->q_home); macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e r"); if (REWRITE(pvp, 5, e) == EX_TEMPFAIL) { if (tTd(29, 9)) sm_dprintf("maplocaluser: rewrite tempfail\n"); a->q_state = QS_QUEUEUP; a->q_status = "4.4.3"; return; } if (pvp[0] == NULL || (pvp[0][0] & 0377) != CANONNET) { if (tTd(29, 9)) sm_dprintf("maplocaluser: doesn't resolve\n"); return; } SM_TRY a1 = buildaddr(pvp, NULL, 0, e); SM_EXCEPT(exc, "E:mta.quickabort") /* ** mark address as bad, S5 returned an error ** and we gave that back to the SMTP client. */ a->q_state = QS_DONTSEND; sm_exc_raisenew_x(&EtypeQuickAbort, 2); SM_END_TRY /* if non-null, mailer destination specified -- has it changed? */ if (a1 == NULL || sameaddr(a, a1)) { if (tTd(29, 9)) sm_dprintf("maplocaluser: address unchanged\n"); return; } /* make new address take on flags and print attributes of old */ a1->q_flags &= ~Q_COPYFLAGS; a1->q_flags |= a->q_flags & Q_COPYFLAGS; a1->q_paddr = sm_rpool_strdup_x(e->e_rpool, a->q_paddr); a1->q_finalrcpt = a->q_finalrcpt; a1->q_orcpt = a->q_orcpt; /* mark old address as dead; insert new address */ a->q_state = QS_REPLACED; if (tTd(29, 5)) { sm_dprintf("maplocaluser: QS_REPLACED "); printaddr(sm_debug_file(), a, false); } a1->q_alias = a; allocaddr(a1, RF_COPYALL, sm_rpool_strdup_x(e->e_rpool, a->q_paddr), e); (void) recipient(a1, sendq, aliaslevel, e); } /* ** DEQUOTE_INIT -- initialize dequote map ** ** Parameters: ** map -- the internal map structure. ** args -- arguments. ** ** Returns: ** true. */ bool dequote_init(map, args) MAP *map; char *args; { register char *p = args; /* there is no check whether there is really an argument */ map->map_mflags |= MF_KEEPQUOTES; for (;;) { while (SM_ISSPACE(*p)) p++; if (*p != '-') break; switch (*++p) { case 'a': map->map_app = ++p; break; case 'D': map->map_mflags |= MF_DEFER; break; case 'S': case 's': map->map_spacesub = *++p; break; } while (*p != '\0' && !(SM_ISSPACE(*p))) p++; if (*p != '\0') *p = '\0'; } if (map->map_app != NULL) map->map_app = newstr(map->map_app); return true; } /* ** DEQUOTE_MAP -- unquote an address ** ** Parameters: ** map -- the internal map structure (ignored). ** name -- the name to dequote. ** av -- arguments (ignored). ** statp -- pointer to status out-parameter. ** ** Returns: ** NULL -- if there were no quotes, or if the resulting ** unquoted buffer would not be acceptable to prescan. ** else -- The dequoted buffer. */ /* ARGSUSED2 */ char * dequote_map(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { register char *p; register char *q; register char c; int anglecnt = 0; int cmntcnt = 0; int quotecnt = 0; int spacecnt = 0; bool quotemode = false; bool bslashmode = false; char spacesub = map->map_spacesub; for (p = q = name; (c = *p++) != '\0'; ) { if (bslashmode) { bslashmode = false; *q++ = c; continue; } if (c == ' ' && spacesub != '\0') c = spacesub; switch (c) { case '\\': bslashmode = true; break; case '(': cmntcnt++; break; case ')': if (cmntcnt-- <= 0) return NULL; break; case ' ': case '\t': spacecnt++; break; } if (cmntcnt > 0) { *q++ = c; continue; } switch (c) { case '"': quotemode = !quotemode; quotecnt++; continue; case '<': anglecnt++; break; case '>': if (anglecnt-- <= 0) return NULL; break; } *q++ = c; } if (anglecnt != 0 || cmntcnt != 0 || bslashmode || quotemode || quotecnt <= 0 || spacecnt != 0) return NULL; *q++ = '\0'; return map_rewrite(map, name, strlen(name), NULL); } /* ** RSCHECK -- check string(s) for validity using rewriting sets ** ** Parameters: ** rwset -- the rewriting set to use. ** p1 -- the first string to check. ** p2 -- the second string to check -- may be NULL. ** e -- the current envelope. ** flags -- control some behavior, see RSF_ in sendmail.h ** logl -- logging level. ** host -- NULL or relay host. ** logid -- id for sm_syslog. ** addr -- if not NULL and ruleset returns $#error: ** store mailer triple here. ** addrstr -- if not NULL and ruleset does not return $#: ** address string ** ** Returns: ** EX_OK -- if the rwset doesn't resolve to $#error ** or is not defined ** else -- the failure status (message printed) */ int rscheck(rwset, p1, p2, e, flags, logl, host, logid, addr, addrstr) char *rwset; const char *p1; const char *p2; ENVELOPE *e; int flags; int logl; const char *host; const char *logid; ADDRESS *addr; char **addrstr; { char *volatile buf; size_t bufsize; int saveexitstat; int volatile rstat = EX_OK; char **pvp; int rsno; bool volatile discard = false; bool saveQuickAbort = QuickAbort; bool saveSuprErrs = SuprErrs; bool quarantine = false; char ubuf[BUFSIZ * 2]; char buf0[MAXLINE]; char pvpbuf[PSBUFSIZE]; extern char MsgBuf[]; if (tTd(48, 2)) sm_dprintf("rscheck(%s, %s, %s)\n", rwset, p1, p2 == NULL ? "(NULL)" : p2); rsno = strtorwset(rwset, NULL, ST_FIND); if (rsno < 0) return EX_OK; if (p2 != NULL) { bufsize = strlen(p1) + strlen(p2) + 2; if (bufsize > sizeof(buf0)) buf = sm_malloc_x(bufsize); else { buf = buf0; bufsize = sizeof(buf0); } (void) sm_snprintf(buf, bufsize, "%s%c%s", p1, CONDELSE, p2); } else { bufsize = strlen(p1) + 1; if (bufsize > sizeof(buf0)) buf = sm_malloc_x(bufsize); else { buf = buf0; bufsize = sizeof(buf0); } (void) sm_strlcpy(buf, p1, bufsize); } SM_TRY { SuprErrs = true; QuickAbort = false; pvp = prescan(buf, '\0', pvpbuf, sizeof(pvpbuf), NULL, bitset(RSF_RMCOMM, flags) ? IntTokenTab : TokTypeNoC, bitset(RSF_RMCOMM, flags) ? false : true); SuprErrs = saveSuprErrs; if (pvp == NULL) { if (tTd(48, 2)) sm_dprintf("rscheck: cannot prescan input\n"); /* syserr("rscheck: cannot prescan input: \"%s\"", shortenstring(buf, MAXSHORTSTR)); rstat = EX_DATAERR; */ goto finis; } if (bitset(RSF_UNSTRUCTURED, flags)) SuprErrs = true; (void) REWRITE(pvp, rsno, e); if (bitset(RSF_UNSTRUCTURED, flags)) SuprErrs = saveSuprErrs; if (pvp[0] != NULL && (pvp[0][0] & 0377) != CANONNET && bitset(RSF_ADDR, flags) && addrstr != NULL) { cataddr(&(pvp[0]), NULL, ubuf, sizeof(ubuf), bitset(RSF_STRING, flags) ? NOSPACESEP : ' ', true); *addrstr = sm_rpool_strdup_x(e->e_rpool, ubuf); goto finis; } if (pvp[0] == NULL || (pvp[0][0] & 0377) != CANONNET || pvp[1] == NULL || (strcmp(pvp[1], "error") != 0 && strcmp(pvp[1], "discard") != 0)) { goto finis; } if (strcmp(pvp[1], "discard") == 0) { if (tTd(48, 2)) sm_dprintf("rscheck: discard mailer selected\n"); e->e_flags |= EF_DISCARD; discard = true; } else if (strcmp(pvp[1], "error") == 0 && pvp[2] != NULL && (pvp[2][0] & 0377) == CANONHOST && pvp[3] != NULL && strcmp(pvp[3], "quarantine") == 0) { if (pvp[4] == NULL || (pvp[4][0] & 0377) != CANONUSER || pvp[5] == NULL) e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool, rwset); else { cataddr(&(pvp[5]), NULL, ubuf, sizeof(ubuf), ' ', true); e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool, ubuf); } macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), e->e_quarmsg); quarantine = true; } else { auto ADDRESS a1; int savelogusrerrs = LogUsrErrs; static bool logged = false; /* got an error -- process it */ saveexitstat = ExitStat; LogUsrErrs = false; (void) buildaddr(pvp, &a1, 0, e); if (addr != NULL) { addr->q_mailer = a1.q_mailer; addr->q_user = a1.q_user; addr->q_host = a1.q_host; } LogUsrErrs = savelogusrerrs; rstat = ExitStat; ExitStat = saveexitstat; if (!logged) { if (bitset(RSF_COUNT, flags)) markstats(e, &a1, STATS_REJECT); logged = true; } } if (LogLevel > logl) { const char *relay; char *p; char lbuf[MAXLINE]; p = lbuf; if (p2 != NULL) { (void) sm_snprintf(p, SPACELEFT(lbuf, p), ", arg2=%s", p2); p += strlen(p); } if (host != NULL) relay = host; else relay = macvalue('_', e); if (relay != NULL) { (void) sm_snprintf(p, SPACELEFT(lbuf, p), ", relay=%s", relay); p += strlen(p); } *p = '\0'; if (discard) sm_syslog(LOG_NOTICE, logid, "ruleset=%s, arg1=%s%s, discard", rwset, p1, lbuf); else if (quarantine) sm_syslog(LOG_NOTICE, logid, "ruleset=%s, arg1=%s%s, quarantine=%s", rwset, p1, lbuf, ubuf); else sm_syslog(LOG_NOTICE, logid, "ruleset=%s, arg1=%s%s, %s=%s", rwset, p1, lbuf, bitset(RSF_STATUS, flags) ? "status" : "reject", MsgBuf); } finis: ; } SM_FINALLY { /* clean up */ if (buf != buf0) sm_free(buf); QuickAbort = saveQuickAbort; } SM_END_TRY setstat(rstat); /* rulesets don't set errno */ errno = 0; if (rstat != EX_OK && QuickAbort) sm_exc_raisenew_x(&EtypeQuickAbort, 2); return rstat; } /* ** RSCAP -- call rewriting set to return capabilities ** ** Parameters: ** rwset -- the rewriting set to use. ** p1 -- the first string to check. ** p2 -- the second string to check -- may be NULL. ** e -- the current envelope. ** pvp -- pointer to token vector. ** pvpbuf -- buffer space. ** size -- size of buffer space. ** ** Returns: ** EX_UNAVAILABLE -- ruleset doesn't exist. ** EX_DATAERR -- prescan() failed. ** EX_OK -- rewrite() was successful. ** else -- return status from rewrite(). */ int rscap(rwset, p1, p2, e, pvp, pvpbuf, size) char *rwset; char *p1; char *p2; ENVELOPE *e; char ***pvp; char *pvpbuf; int size; { char *volatile buf; size_t bufsize; int volatile rstat = EX_OK; int rsno; bool saveQuickAbort = QuickAbort; bool saveSuprErrs = SuprErrs; char buf0[MAXLINE]; extern char MsgBuf[]; if (tTd(48, 2)) sm_dprintf("rscap(%s, %s, %s)\n", rwset, p1, p2 == NULL ? "(NULL)" : p2); SM_REQUIRE(pvp != NULL); rsno = strtorwset(rwset, NULL, ST_FIND); if (rsno < 0) return EX_UNAVAILABLE; if (p2 != NULL) { bufsize = strlen(p1) + strlen(p2) + 2; if (bufsize > sizeof(buf0)) buf = sm_malloc_x(bufsize); else { buf = buf0; bufsize = sizeof(buf0); } (void) sm_snprintf(buf, bufsize, "%s%c%s", p1, CONDELSE, p2); } else { bufsize = strlen(p1) + 1; if (bufsize > sizeof(buf0)) buf = sm_malloc_x(bufsize); else { buf = buf0; bufsize = sizeof(buf0); } (void) sm_strlcpy(buf, p1, bufsize); } SM_TRY { SuprErrs = true; QuickAbort = false; *pvp = prescan(buf, '\0', pvpbuf, size, NULL, IntTokenTab, false); if (*pvp != NULL) rstat = rewrite(*pvp, rsno, 0, e, size); else { if (tTd(48, 2)) sm_dprintf("rscap: cannot prescan input\n"); rstat = EX_DATAERR; } } SM_FINALLY { /* clean up */ if (buf != buf0) sm_free(buf); SuprErrs = saveSuprErrs; QuickAbort = saveQuickAbort; /* prevent information leak, this may contain rewrite error */ MsgBuf[0] = '\0'; } SM_END_TRY return rstat; } sendmail-8.18.1/sendmail/readcf.c0000644000372400037240000037513114556365350016165 0ustar xbuildxbuild/* * Copyright (c) 1998-2006, 2008-2010, 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include #if STARTTLS # include #endif #if DNSSEC_TEST || _FFR_NAMESERVER # include "sm_resolve.h" #endif SM_RCSID("@(#)$Id: readcf.c,v 8.692 2013-11-22 20:51:56 ca Exp $") #if NETINET || NETINET6 # include #endif #define SECONDS #define MINUTES * 60 #define HOUR * 3600 #define HOURS HOUR static void fileclass __P((int, char *, char *, bool, bool, bool)); #if _FFR_DYN_CLASS static void dynclass __P((int, char *)); #endif static char **makeargv __P((char *)); static void settimeout __P((char *, char *, bool)); static void toomany __P((int, int)); static char *extrquotstr __P((char *, char **, char *, bool *)); static void parse_class_words __P((int, char *)); #if _FFR_CLASS_RM_ENTRY static void classrmentry __P((int, char *)); #endif #if _FFR_BOUNCE_QUEUE static char *bouncequeue = NULL; static void initbouncequeue __P((void)); /* ** INITBOUNCEQUEUE -- determine BounceQueue if option is set. ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** sets BounceQueue */ static void initbouncequeue() { STAB *s; BounceQueue = NOQGRP; if (SM_IS_EMPTY(bouncequeue)) return; s = stab(bouncequeue, ST_QUEUE, ST_FIND); if (s == NULL) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: option BounceQueue: unknown queue group %s\n", bouncequeue); } else BounceQueue = s->s_quegrp->qg_index; } #endif /* _FFR_BOUNCE_QUEUE */ #if _FFR_RCPTFLAGS void setupdynmailers __P((void)); #else #define setupdynmailers() #endif /* ** READCF -- read configuration file. ** ** This routine reads the configuration file and builds the internal ** form. ** ** The file is formatted as a sequence of lines, each taken ** atomically. The first character of each line describes how ** the line is to be interpreted. The lines are: ** Dxval Define macro x to have value val. ** Cxword Put word into class x. ** Fxfile [fmt] Read file for lines to put into ** class x. Use scanf string 'fmt' ** or "%s" if not present. Fmt should ** only produce one string-valued result. ** Hname: value Define header with field-name 'name' ** and value as specified; this will be ** macro expanded immediately before ** use. ** Sn Use rewriting set n. ** Rlhs rhs Rewrite addresses that match lhs to ** be rhs. ** Mn arg=val... Define mailer. n is the internal name. ** Args specify mailer parameters. ** Oxvalue Set option x to value. ** O option value Set option (long name) to value. ** Pname=value Set precedence name to value. ** Qn arg=val... Define queue groups. n is the internal name. ** Args specify queue parameters. ** Vversioncode[/vendorcode] ** Version level/vendor name of ** configuration syntax. ** Kmapname mapclass arguments.... ** Define keyed lookup of a given class. ** Arguments are class dependent. ** Eenvar=value Set the environment value to the given value. ** ** Parameters: ** cfname -- configuration file name. ** safe -- true if this is the system config file; ** false otherwise. ** e -- the main envelope. ** ** Returns: ** none. ** ** Side Effects: ** Builds several internal tables. */ void readcf(cfname, safe, e) char *cfname; bool safe; register ENVELOPE *e; { SM_FILE_T *cf; int ruleset = -1; char *q; struct rewrite *rwp = NULL; char *bp; auto char *ep; int nfuzzy; char *file; bool optional; bool ok; bool ismap; int mid; register char *p; long sff = SFF_OPENASROOT; struct stat statb; char buf[MAXLINE]; int bufsize; char exbuf[MAXLINE]; char pvpbuf[MAXLINE + MAXATOM]; static char *null_list[1] = { NULL }; extern unsigned char TokTypeNoC[]; #if _FFR_CLASS_RM_ENTRY int off; #else # define off 1 #endif FileName = cfname; LineNumber = 0; if (DontLockReadFiles) sff |= SFF_NOLOCK; cf = safefopen(cfname, O_RDONLY, 0444, sff); if (cf == NULL) { syserr("cannot open"); finis(false, true, EX_OSFILE); } if (fstat(sm_io_getinfo(cf, SM_IO_WHAT_FD, NULL), &statb) < 0) { syserr("cannot fstat"); finis(false, true, EX_OSFILE); } if (!S_ISREG(statb.st_mode)) { syserr("not a plain file"); finis(false, true, EX_OSFILE); } if (OpMode != MD_TEST && bitset(S_IWGRP|S_IWOTH, statb.st_mode)) { if (OpMode == MD_DAEMON || OpMode == MD_INITALIAS || OpMode == MD_CHECKCONFIG) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: WARNING: dangerous write permissions\n", FileName); if (LogLevel > 0) sm_syslog(LOG_CRIT, NOQID, "%s: WARNING: dangerous write permissions", FileName); } #if XLA xla_zero(); #endif while (bufsize = sizeof(buf), (bp = fgetfolded(buf, &bufsize, cf)) != NULL) { char *nbp; if (bp[0] == '#') { if (bp != buf) sm_free(bp); /* XXX */ continue; } /* do macro expansion mappings */ nbp = translate_dollars(bp, bp, &bufsize); if (nbp != bp && bp != buf) sm_free(bp); bp = nbp; /* interpret this line */ errno = 0; switch (bp[0]) { case '\0': case '#': /* comment */ break; case 'R': /* rewriting rule */ if (ruleset < 0) { syserr("missing valid ruleset for \"%s\"", bp); break; } for (p = &bp[1]; *p != '\0' && *p != '\t'; p++) continue; if (*p == '\0') { syserr("invalid rewrite line \"%s\" (tab expected)", bp); break; } /* allocate space for the rule header */ if (rwp == NULL) { RewriteRules[ruleset] = rwp = (struct rewrite *) sm_malloc_tagged_x(sizeof(*rwp), "rwr1", 1, 0); } else { rwp->r_next = (struct rewrite *) sm_malloc_tagged_x(sizeof(*rwp), "rwr2", 2, 0); rwp = rwp->r_next; } rwp->r_next = NULL; /* expand and save the LHS */ *p = '\0'; expand(&bp[1], exbuf, sizeof(exbuf), e); rwp->r_lhs = prescan(exbuf, '\t', pvpbuf, sizeof(pvpbuf), NULL, ConfigLevel >= 9 ? TokTypeNoC : IntTokenTab, true); nfuzzy = 0; if (rwp->r_lhs != NULL) { register char **ap; rwp->r_lhs = copyplist(rwp->r_lhs, true, NULL); /* count the number of fuzzy matches in LHS */ for (ap = rwp->r_lhs; *ap != NULL; ap++) { char *botch; botch = NULL; switch (ap[0][0] & 0377) { case MATCHZANY: case MATCHANY: case MATCHONE: case MATCHCLASS: case MATCHNCLASS: nfuzzy++; break; case MATCHREPL: botch = "$1-$9"; break; case CANONUSER: botch = "$:"; break; case CALLSUBR: botch = "$>"; break; case CONDIF: botch = "$?"; break; case CONDFI: botch = "$."; break; case HOSTBEGIN: botch = "$["; break; case HOSTEND: botch = "$]"; break; case LOOKUPBEGIN: botch = "$("; break; case LOOKUPEND: botch = "$)"; break; } if (botch != NULL) syserr("Inappropriate use of %s on LHS", botch); } rwp->r_line = LineNumber; } else { syserr("R line: null LHS"); rwp->r_lhs = null_list; } if (nfuzzy > MAXMATCH) { syserr("R line: too many wildcards"); rwp->r_lhs = null_list; } /* expand and save the RHS */ while (*++p == '\t') continue; q = p; while (*p != '\0' && *p != '\t') p++; *p = '\0'; expand(q, exbuf, sizeof(exbuf), e); rwp->r_rhs = prescan(exbuf, '\t', pvpbuf, sizeof(pvpbuf), NULL, ConfigLevel >= 9 ? TokTypeNoC : IntTokenTab, true); if (rwp->r_rhs != NULL) { register char **ap; int args, endtoken; #if _FFR_EXTRA_MAP_CHECK int nexttoken; #endif bool inmap; rwp->r_rhs = copyplist(rwp->r_rhs, true, NULL); /* check no out-of-bounds replacements */ nfuzzy += '0'; inmap = false; args = 0; endtoken = 0; for (ap = rwp->r_rhs; *ap != NULL; ap++) { char *botch; botch = NULL; switch (ap[0][0] & 0377) { case MATCHREPL: if (ap[0][1] <= '0' || ap[0][1] > nfuzzy) { syserr("replacement $%c out of bounds", ap[0][1]); } break; case MATCHZANY: botch = "$*"; break; case MATCHANY: botch = "$+"; break; case MATCHONE: botch = "$-"; break; case MATCHCLASS: botch = "$="; break; case MATCHNCLASS: botch = "$~"; break; case CANONHOST: if (!inmap) break; if (++args >= MAX_MAP_ARGS) syserr("too many arguments for map lookup"); break; case HOSTBEGIN: endtoken = HOSTEND; /* FALLTHROUGH */ case LOOKUPBEGIN: /* see above... */ if ((ap[0][0] & 0377) == LOOKUPBEGIN) endtoken = LOOKUPEND; if (inmap) syserr("cannot nest map lookups"); inmap = true; args = 0; #if _FFR_EXTRA_MAP_CHECK if (ap[1] == NULL) { syserr("syntax error in map lookup"); break; } nexttoken = ap[1][0] & 0377; if (nexttoken == CANONHOST || nexttoken == CANONUSER || nexttoken == endtoken) { syserr("missing map name for lookup"); break; } if (ap[2] == NULL) { syserr("syntax error in map lookup"); break; } if ((unsigned char) ap[0][0] == HOSTBEGIN) break; nexttoken = ap[2][0] & 0377; if (nexttoken == CANONHOST || nexttoken == CANONUSER || nexttoken == endtoken) { syserr("missing key name for lookup"); break; } #endif /* _FFR_EXTRA_MAP_CHECK */ break; case HOSTEND: case LOOKUPEND: if ((ap[0][0] & 0377) != endtoken) break; inmap = false; endtoken = 0; break; #if 0 /* ** This doesn't work yet as there are maps defined *after* the cf ** is read such as host, user, and alias. So for now, it's removed. ** When it comes back, the RELEASE_NOTES entry will be: ** Emit warnings for unknown maps when reading the .cf file. Based on ** patch from Robert Harker of Harker Systems. */ case LOOKUPBEGIN: /* ** Got a database lookup, ** check if map is defined. */ ep = ap[1]; if ((ep[0] & 0377) != MACRODEXPAND && stab(ep, ST_MAP, ST_FIND) == NULL) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: %s: line %d: map %s not found\n", FileName, LineNumber, ep); } break; #endif /* 0 */ } if (botch != NULL) syserr("Inappropriate use of %s on RHS", botch); } if (inmap) syserr("missing map closing token"); } else { syserr("R line: null RHS"); rwp->r_rhs = null_list; } break; case 'S': /* select rewriting set */ expand(&bp[1], exbuf, sizeof(exbuf), e); ruleset = strtorwset(exbuf, NULL, ST_ENTER); if (ruleset < 0) break; rwp = RewriteRules[ruleset]; if (rwp != NULL) { if (OpMode == MD_TEST || OpMode == MD_CHECKCONFIG) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "WARNING: Ruleset %s has multiple definitions\n", &bp[1]); if (tTd(37, 1)) sm_dprintf("WARNING: Ruleset %s has multiple definitions\n", &bp[1]); while (rwp->r_next != NULL) rwp = rwp->r_next; } break; case 'D': /* macro definition */ mid = macid_parse(&bp[1], &ep); if (mid == 0) break; #if USE_EAI && 0 // if ('j' == mid && !addr_is_ascii(ep)) // { // usrerr("hostname %s must be ASCII", ep); // finis(false, true, EX_CONFIG); // /* NOTREACHED */ // } #endif p = munchstring(ep, NULL, '\0'); macdefine(&e->e_macro, A_TEMP, mid, p); break; case 'H': /* required header line */ (void) chompheader(&bp[1], CHHDR_DEF, NULL, e); break; case 'C': /* word class */ case 'T': /* trusted user (set class `t') */ #if _FFR_CLASS_RM_ENTRY if (bp[0] != '\0' && bp[1] == '-') off = 2; else off = 1; #endif if (bp[0] == 'C') { mid = macid_parse(&bp[off], &ep); if (mid == 0) break; expand(ep, exbuf, sizeof(exbuf), e); p = exbuf; #if _FFR_8BITENVADDR dequote_internal_chars(p, exbuf, sizeof(exbuf)); #endif } else { mid = 't'; p = &bp[off]; } while (*p != '\0') { register char *wd; char delim; while (*p != '\0' && SM_ISSPACE(*p)) p++; wd = p; while (*p != '\0' && !(SM_ISSPACE(*p))) p++; delim = *p; *p = '\0'; if (wd[0] != '\0') { if (off < 2) setclass(mid, wd); #if _FFR_CLASS_RM_ENTRY else classrmentry(mid, wd); #endif /* _FFR_CLASS_RM_ENTRY */ } *p = delim; } break; #if _FFR_DYN_CLASS case 'A': /* dynamic class */ mid = macid_parse(&bp[1], &ep); if (mid == 0) break; for (p = ep; SM_ISSPACE(*p); ) p++; dynclass(mid, p); break; #endif case 'F': /* word class from file */ mid = macid_parse(&bp[1], &ep); if (mid == 0) break; for (p = ep; SM_ISSPACE(*p); ) p++; if (p[0] == '-' && p[1] == 'o') { optional = true; while (*p != '\0' && !(SM_ISSPACE(*p))) p++; while (SM_ISSPACE(*p)) p++; } else optional = false; /* check if [key]@map:spec */ ismap = false; if (!SM_IS_DIR_DELIM(*p) && *p != '|' && (q = strchr(p, '@')) != NULL) { q++; /* look for @LDAP or @map: in string */ if (strcmp(q, "LDAP") == 0 || (*q != ':' && strchr(q, ':') != NULL)) ismap = true; } if (ismap) { /* use entire spec */ file = p; } else { file = extrquotstr(p, &q, " ", &ok); if (!ok) { syserr("illegal filename '%s'", p); break; } } if (*file == '|' || ismap) p = "%s"; else { p = q; if (*p == '\0') p = "%s"; else { *p = '\0'; while (isascii(*++p) && isspace(*p)) continue; } } fileclass(mid, file, p, ismap, safe, optional); break; #if XLA case 'L': /* extended load average description */ xla_init(&bp[1]); break; #endif #if defined(SUN_EXTENSIONS) && defined(SUN_LOOKUP_MACRO) case 'L': /* lookup macro */ case 'G': /* lookup class */ /* reserved for Sun -- NIS+ database lookup */ if (VendorCode != VENDOR_SUN) goto badline; sun_lg_config_line(bp, e); break; #endif /* defined(SUN_EXTENSIONS) && defined(SUN_LOOKUP_MACRO) */ case 'M': /* define mailer */ makemailer(&bp[1]); break; case 'O': /* set option */ setoption(bp[1], &bp[2], safe, false, e); break; case 'P': /* set precedence */ if (NumPriorities >= MAXPRIORITIES) { toomany('P', MAXPRIORITIES); break; } for (p = &bp[1]; *p != '\0' && *p != '='; p++) continue; if (*p == '\0') goto badline; *p = '\0'; Priorities[NumPriorities].pri_name = newstr(&bp[1]); Priorities[NumPriorities].pri_val = atoi(++p); NumPriorities++; break; case 'Q': /* define queue */ makequeue(&bp[1], true); break; case 'V': /* configuration syntax version */ for (p = &bp[1]; SM_ISSPACE(*p); p++) continue; if (!isascii(*p) || !isdigit(*p)) { syserr("invalid argument to V line: \"%.20s\"", &bp[1]); break; } ConfigLevel = strtol(p, &ep, 10); /* ** Do heuristic tweaking for back compatibility. */ if (ConfigLevel >= 5) { /* level 5 configs have short name in $w */ p = macvalue('w', e); if (p != NULL && (p = strchr(p, '.')) != NULL) { *p = '\0'; macdefine(&e->e_macro, A_TEMP, 'w', macvalue('w', e)); } } if (ConfigLevel >= 6) { ColonOkInAddr = false; } /* ** Look for vendor code. */ if (*ep++ == '/') { /* extract vendor code */ for (p = ep; isascii(*p) && isalpha(*p); ) p++; *p = '\0'; if (!setvendor(ep)) syserr("invalid V line vendor code: \"%s\"", ep); } break; case 'K': expand(&bp[1], exbuf, sizeof(exbuf), e); (void) makemapentry(exbuf); break; case 'E': p = strchr(bp, '='); if (p != NULL) *p++ = '\0'; sm_setuserenv(&bp[1], p); break; case 'X': /* mail filter */ #if MILTER milter_setup(&bp[1]); #else /* MILTER */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Filter usage ('X') requires Milter support (-DMILTER)\n"); #endif /* MILTER */ break; default: badline: syserr("unknown configuration line \"%s\"", bp); } if (bp != buf) sm_free(bp); /* XXX */ } if (sm_io_error(cf)) { syserr("I/O read error"); finis(false, true, EX_OSFILE); } (void) sm_io_close(cf, SM_TIME_DEFAULT); FileName = NULL; #if _FFR_BOUNCE_QUEUE initbouncequeue(); #endif /* initialize host maps from local service tables */ inithostmaps(); /* initialize daemon (if not defined yet) */ initdaemon(); /* determine if we need to do special name-server frotz */ { int nmaps; char *maptype[MAXMAPSTACK]; short mapreturn[MAXMAPACTIONS]; nmaps = switch_map_find("hosts", maptype, mapreturn); UseNameServer = false; if (nmaps > 0 && nmaps <= MAXMAPSTACK) { register int mapno; for (mapno = 0; mapno < nmaps && !UseNameServer; mapno++) { if (strcmp(maptype[mapno], "dns") == 0) UseNameServer = true; } } } setupdynmailers(); } /* ** TRANSLATE_DOLLARS -- convert $x into internal form ** ** Actually does all appropriate pre-processing of a config line ** to turn it into internal form. ** ** Parameters: ** ibp -- the buffer to translate. ** obp -- where to put the translation; may be the same as obp ** bsp -- a pointer to the size of obp; will be updated if ** the buffer needs to be replaced. ** ** Returns: ** The buffer pointer; may differ from obp if the expansion ** is larger then *bsp, in which case this will point to ** malloc()ed memory which must be free()d by the caller. */ char * translate_dollars(ibp, obp, bsp) char *ibp; char *obp; int *bsp; { register char *p; auto char *ep; char *bp; if (tTd(37, 53)) { sm_dprintf("translate_dollars("); xputs(sm_debug_file(), ibp); sm_dprintf(")\n"); } bp = quote_internal_chars(ibp, obp, bsp, NULL); for (p = bp; *p != '\0'; p++) { if (*p == '#' && p > bp && ConfigLevel >= 3) { register char *e; switch (*--p & 0377) { case MACROEXPAND: /* it's from $# -- let it go through */ p++; break; case '\\': /* it's backslash escaped */ (void) sm_strlcpy(p, p + 1, strlen(p)); break; default: /* delete leading white space */ while (SM_ISSPACE(*p) && *p != '\n' && p > bp) { p--; } if ((e = strchr(++p, '\n')) != NULL) (void) sm_strlcpy(p, e, strlen(p)); else *p-- = '\0'; break; } continue; } if (*p != '$' || p[1] == '\0') continue; if (p[1] == '$') { /* actual dollar sign.... */ (void) sm_strlcpy(p, p + 1, strlen(p)); continue; } /* convert to macro expansion character */ *p++ = MACROEXPAND; /* special handling for $=, $~, $&, and $? */ if (*p == '=' || *p == '~' || *p == '&' || *p == '?') p++; /* convert macro name to code */ *p = macid_parse(p, &ep); if (ep != p + 1) (void) sm_strlcpy(p + 1, ep, strlen(p + 1)); } /* strip trailing white space from the line */ while (--p > bp && SM_ISSPACE(*p)) *p = '\0'; if (tTd(37, 53)) { sm_dprintf(" translate_dollars => "); xputs(sm_debug_file(), bp); sm_dprintf("\n"); } return bp; } /* ** TOOMANY -- signal too many of some option ** ** Parameters: ** id -- the id of the error line ** maxcnt -- the maximum possible values ** ** Returns: ** none. ** ** Side Effects: ** gives a syserr. */ static void toomany(id, maxcnt) int id; int maxcnt; { syserr("too many %c lines, %d max", id, maxcnt); } /* ** FILECLASS -- read members of a class from a file, program, or map ** ** Parameters: ** class -- class to define. ** filename -- name of file to read/specification of map and key. ** fmt -- scanf string to use for match. ** ismap -- if set, this is a map lookup. ** safe -- if set, this is a safe read. ** optional -- if set, it is not an error for the file to ** not exist. ** ** Returns: ** none ** ** Side Effects: ** puts all entries retrieved from a file, program, or map ** into the named class: ** - file or |prg: all words in lines that match a scanf fmt ** - map: all words in value (rhs) of a map lookup of a key */ /* ** Break up the match into words and add to class. */ static void parse_class_words(class, line) int class; char *line; { while (line != NULL && *line != '\0') { register char *q; /* strip leading spaces */ while (SM_ISSPACE(*line)) line++; if (*line == '\0') break; /* find the end of the word */ q = line; while (*line != '\0' && !(SM_ISSPACE(*line))) line++; if (*line != '\0') *line++ = '\0'; /* enter the word in the symbol table */ setclass(class, q); } } static void fileclass(class, filename, fmt, ismap, safe, optional) int class; char *filename; char *fmt; bool ismap; bool safe; bool optional; { SM_FILE_T *f; long sff; pid_t pid; register char *p; char buf[MAXLINE]; if (tTd(37, 2)) sm_dprintf("fileclass(%s, fmt=%s)\n", filename, fmt); if (*filename == '\0') { syserr("fileclass: missing file name"); return; } else if (ismap) { int status = 0; char *key; char *mn; char *cl, *spec; STAB *mapclass; MAP map; mn = newstr(macname(class)); key = filename; /* skip past key */ if ((p = strchr(filename, '@')) == NULL) { /* should not happen */ syserr("fileclass: bogus map specification"); sm_free(mn); return; } /* skip past '@' */ *p++ = '\0'; cl = p; #if LDAPMAP if (strcmp(cl, "LDAP") == 0) { int n; char *lc; char jbuf[MAXHOSTNAMELEN]; char lcbuf[MAXLINE]; /* Get $j */ expand("\201j", jbuf, sizeof(jbuf), &BlankEnvelope); if (jbuf[0] == '\0') { (void) sm_strlcpy(jbuf, "localhost", sizeof(jbuf)); } /* impose the default schema */ lc = macvalue(macid("{sendmailMTACluster}"), CurEnv); if (lc == NULL) lc = ""; else { expand(lc, lcbuf, sizeof(lcbuf), CurEnv); lc = lcbuf; } cl = "ldap"; n = sm_snprintf(buf, sizeof(buf), "-k (&(objectClass=sendmailMTAClass)(sendmailMTAClassName=%s)(|(sendmailMTACluster=%s)(sendmailMTAHost=%s))) -v sendmailMTAClassValue,sendmailMTAClassSearch:FILTER:sendmailMTAClass,sendmailMTAClassURL:URL:sendmailMTAClass", mn, lc, jbuf); if (n >= sizeof(buf)) { syserr("fileclass: F{%s}: Default LDAP string too long", mn); sm_free(mn); return; } spec = buf; } else #endif /* LDAPMAP */ { if ((spec = strchr(cl, ':')) == NULL) { syserr("fileclass: F{%s}: missing map class", mn); sm_free(mn); return; } *spec++ ='\0'; } /* set up map structure */ mapclass = stab(cl, ST_MAPCLASS, ST_FIND); if (mapclass == NULL) { syserr("fileclass: F{%s}: class %s not available", mn, cl); sm_free(mn); return; } memset(&map, '\0', sizeof(map)); map.map_class = &mapclass->s_mapclass; map.map_mname = mn; map.map_mflags |= MF_FILECLASS; if (tTd(37, 5)) sm_dprintf("fileclass: F{%s}: map class %s, key %s, spec %s\n", mn, cl, key, spec); /* parse map spec */ if (!map.map_class->map_parse(&map, spec)) { /* map_parse() showed the error already */ sm_free(mn); return; } map.map_mflags |= MF_VALID; /* open map */ if (map.map_class->map_open(&map, O_RDONLY)) { map.map_mflags |= MF_OPEN; map.map_pid = getpid(); } else { if (!optional && !bitset(MF_OPTIONAL, map.map_mflags)) syserr("fileclass: F{%s}: map open failed", mn); sm_free(mn); return; } /* lookup */ p = (*map.map_class->map_lookup)(&map, key, NULL, &status); if (status != EX_OK && status != EX_NOTFOUND) { if (!optional) syserr("fileclass: F{%s}: map lookup failed", mn); p = NULL; } /* use the results */ if (p != NULL) parse_class_words(class, p); /* close map */ map.map_mflags |= MF_CLOSING; map.map_class->map_close(&map); map.map_mflags &= ~(MF_OPEN|MF_WRITABLE|MF_CLOSING); sm_free(mn); return; } else if (filename[0] == '|') { auto int fd; int i; char *argv[MAXPV + 1]; i = 0; for (p = strtok(&filename[1], " \t"); p != NULL && i < MAXPV; p = strtok(NULL, " \t")) argv[i++] = p; argv[i] = NULL; pid = prog_open(argv, &fd, CurEnv); if (pid < 0) f = NULL; else f = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &fd, SM_IO_RDONLY, NULL); } else { pid = -1; sff = SFF_REGONLY; if (!bitnset(DBS_CLASSFILEINUNSAFEDIRPATH, DontBlameSendmail)) sff |= SFF_SAFEDIRPATH; if (!bitnset(DBS_LINKEDCLASSFILEINWRITABLEDIR, DontBlameSendmail)) sff |= SFF_NOWLINK; if (safe) sff |= SFF_OPENASROOT; else if (RealUid == 0) sff |= SFF_ROOTOK; if (DontLockReadFiles) sff |= SFF_NOLOCK; f = safefopen(filename, O_RDONLY, 0, sff); } if (f == NULL) { if (!optional) syserr("fileclass: cannot open '%s'", filename); return; } while (sm_io_fgets(f, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { #if SCANF char wordbuf[MAXLINE + 1]; #endif if (buf[0] == '#') continue; #if SCANF if (sm_io_sscanf(buf, fmt, wordbuf) != 1) continue; p = wordbuf; #else /* SCANF */ p = buf; #endif /* SCANF */ parse_class_words(class, p); /* ** If anything else is added here, ** check if the '@' map case above ** needs the code as well. */ } (void) sm_io_close(f, SM_TIME_DEFAULT); if (pid > 0) (void) waitfor(pid); } #if _FFR_DYN_CLASS /* ** DYNCLASS -- open a dynamic class ** ** Parameters: ** class -- class to define. ** arg -- rest of class definition from cf. ** ** Returns: ** none */ static void dynclass(class, arg) int class; char *arg; { char *p; char *tag; char *mn; char *maptype, *spec; STAB *mapclass, *dynmap; mn = newstr(macname(class)); if (*arg == '\0') { syserr("dynamic class: A{%s}: missing class definition", mn); return; } tag = arg; dynmap = stab(mn, ST_DYNMAP, ST_FIND); if (NULL != dynmap) { syserr("dynamic class: A{%s}: already defined", mn); goto error; } /* skip past tag */ if ((p = strchr(arg, '@')) == NULL) { /* should not happen */ syserr("dynamic class: A{%s}: bogus map specification", mn); goto error; } /* skip past '@' */ *p++ = '\0'; maptype = p; if ((spec = strchr(maptype, ':')) == NULL) { syserr("dynamic class: A{%s}: missing map class", mn); goto error; } *spec++ ='\0'; /* set up map structure */ mapclass = stab(maptype, ST_MAPCLASS, ST_FIND); if (NULL == mapclass) { syserr("dynamic class: A{%s}: map type %s not available", mn, maptype); goto error; } if (tTd(37, 5)) sm_dprintf("dynamic class: A{%s}: type='%s', tag='%s', spec='%s'\n", mn, maptype, tag, spec); /* enter map in stab */ dynmap = stab(mn, ST_DYNMAP, ST_ENTER); if (NULL == dynmap) { syserr("dynamic class: A{%s}: cannot enter", mn); goto error2; } dynmap->s_dynclass.map_class = &mapclass->s_mapclass; dynmap->s_dynclass.map_mname = newstr(mn); /* parse map spec */ if (!dynmap->s_dynclass.map_class->map_parse(&dynmap->s_dynclass, spec)) { /* map_parse() showed the error already */ goto error; } /* open map */ if (dynmap->s_dynclass.map_class->map_open(&dynmap->s_dynclass, O_RDONLY)) { dynmap->s_dynclass.map_mflags |= MF_OPEN; dynmap->s_dynclass.map_pid = getpid(); } else { syserr("dynamic class: A{%s}: map open failed", mn); goto error; } dynmap->s_dynclass.map_mflags |= MF_VALID; dynmap->s_dynclass.map_tag = newstr(tag); #if 0 /* close map: where to do this? */ dynmap->s_dynclass.map_mflags |= MF_CLOSING; dynmap->s_dynclass.map_class->map_close(&map); dynmap->s_dynclass.map_mflags &= ~(MF_OPEN|MF_WRITABLE|MF_CLOSING); #endif sm_free(mn); return; error: dynmap->s_dynclass.map_mflags |= MF_OPENBOGUS; error2: sm_free(mn); return; } #endif #if _FFR_RCPTFLAGS /* first character for dynamically created mailers */ static char dynmailerp = ' '; /* list of first characters for cf defined mailers */ static char frst[MAXMAILERS + 1]; /* ** SETUPDYNMAILERS -- find a char that isn't used as first element of any ** mailer name. ** ** Parameters: ** none ** ** Returns: ** none ** ** Note: space is not valid in cf defined mailers hence the function ** will always find a char. It's not nice, but this is for ** internal names only. */ void setupdynmailers() { int i; char pp[] = "YXZ0123456789ABCDEFGHIJKLMNOPQRSTUVWyxzabcfghijkmnoqtuvw "; frst[MAXMAILERS] = '\0'; for (i = 0; i < strlen(pp); i++) { if (strchr(frst, pp[i]) == NULL) { dynmailerp = pp[i]; if (tTd(25, 8)) sm_dprintf("dynmailerp=%c\n", dynmailerp); return; } } /* NOTREACHED */ SM_ASSERT(0); } /* ** NEWMODMAILER -- Create a new mailer with modifications ** ** Parameters: ** rcpt -- current RCPT ** fl -- flag to set ** ** Returns: ** true iff successful. ** ** Note: this creates a copy of the mailer for the rcpt and ** modifies exactly one flag. It does not work ** for multiple flags! */ bool newmodmailer(rcpt, fl) ADDRESS *rcpt; int fl; { int idx; struct mailer *m; STAB *s; char mname[256]; SM_REQUIRE(rcpt != NULL); if (rcpt->q_mailer == NULL) return false; if (tTd(25, 8)) sm_dprintf("newmodmailer: rcpt=%s\n", rcpt->q_paddr); SM_REQUIRE(rcpt->q_mailer->m_name != NULL); SM_REQUIRE(rcpt->q_mailer->m_name[0] != '\0'); sm_strlcpy(mname, rcpt->q_mailer->m_name, sizeof(mname)); mname[0] = dynmailerp; if (tTd(25, 8)) sm_dprintf("newmodmailer: name=%s\n", mname); s = stab(mname, ST_MAILER, ST_ENTER); if (s->s_mailer != NULL) { idx = s->s_mailer->m_mno; if (tTd(25, 6)) sm_dprintf("newmodmailer: found idx=%d\n", idx); } else { idx = rcpt->q_mailer->m_mno; idx += MAXMAILERS; if (tTd(25, 6)) sm_dprintf("newmodmailer: idx=%d\n", idx); if (idx > SM_ARRAY_SIZE(Mailer)) return false; } m = Mailer[idx]; if (m == NULL) m = (struct mailer *) xalloc(sizeof(*m)); memset((char *) m, '\0', sizeof(*m)); STRUCTCOPY(*rcpt->q_mailer, *m); Mailer[idx] = m; /* "modify" the mailer */ setbitn(bitidx(fl), m->m_flags); rcpt->q_mailer = m; m->m_mno = idx; m->m_name = newstr(mname); if (tTd(25, 1)) sm_dprintf("newmodmailer: mailer[%d]=%s %p\n", idx, Mailer[idx]->m_name, Mailer[idx]); return true; } #endif /* _FFR_RCPTFLAGS */ /* ** MAKEMAILER -- define a new mailer. ** ** Parameters: ** line -- description of mailer. This is in labeled ** fields. The fields are: ** A -- the argv for this mailer ** C -- the character set for MIME conversions ** D -- the directory to run in ** E -- the eol string ** F -- the flags associated with the mailer ** L -- the maximum line length ** M -- the maximum message size ** N -- the niceness at which to run ** P -- the path to the mailer ** Q -- the queue group for the mailer ** R -- the recipient rewriting set ** S -- the sender rewriting set ** T -- the mailer type (for DSNs) ** U -- the uid to run as ** W -- the time to wait at the end ** m -- maximum messages per connection ** r -- maximum number of recipients per message ** / -- new root directory ** The first word is the canonical name of the mailer. ** ** Returns: ** none. ** ** Side Effects: ** enters the mailer into the mailer table. */ void makemailer(line) char *line; { register char *p; register struct mailer *m; register STAB *s; int i; char fcode; auto char *endp; static int nextmailer = 0; /* "free" index into Mailer struct */ /* allocate a mailer and set up defaults */ m = (struct mailer *) sm_malloc_tagged_x(sizeof(*m), "mailer", 0, 0); memset((char *) m, '\0', sizeof(*m)); errno = 0; /* avoid bogus error text */ /* collect the mailer name */ for (p = line; *p != '\0' && *p != ',' && !(SM_ISSPACE(*p)); p++) continue; if (*p != '\0') *p++ = '\0'; if (line[0] == '\0') { syserr("name required for mailer"); return; } m->m_name = newstr(line); #if _FFR_RCPTFLAGS frst[nextmailer] = line[0]; #endif m->m_qgrp = NOQGRP; m->m_uid = NO_UID; m->m_gid = NO_GID; /* now scan through and assign info from the fields */ while (*p != '\0') { auto char *delimptr; while (*p != '\0' && (*p == ',' || (SM_ISSPACE(*p)))) p++; /* p now points to field code */ fcode = *p; while (*p != '\0' && *p != '=' && *p != ',') p++; if (*p++ != '=') { syserr("mailer %s: `=' expected", m->m_name); return; } while (SM_ISSPACE(*p)) p++; /* p now points to the field body */ p = munchstring(p, &delimptr, ','); /* install the field into the mailer struct */ switch (fcode) { case 'P': /* pathname */ if (*p != '\0') /* error is issued below */ m->m_mailer = newstr(p); break; case 'F': /* flags */ for (; *p != '\0'; p++) { if (!(SM_ISSPACE(*p))) { if (*p == M_INTERNAL) sm_syslog(LOG_WARNING, NOQID, "WARNING: mailer=%s, flag=%c deprecated", m->m_name, *p); setbitn(bitidx(*p), m->m_flags); } } break; case 'S': /* sender rewriting ruleset */ case 'R': /* recipient rewriting ruleset */ i = strtorwset(p, &endp, ST_ENTER); if (i < 0) return; if (fcode == 'S') m->m_sh_rwset = m->m_se_rwset = i; else m->m_rh_rwset = m->m_re_rwset = i; p = endp; if (*p++ == '/') { i = strtorwset(p, NULL, ST_ENTER); if (i < 0) return; if (fcode == 'S') m->m_sh_rwset = i; else m->m_rh_rwset = i; } break; case 'E': /* end of line string */ if (*p == '\0') syserr("mailer %s: null end-of-line string", m->m_name); else m->m_eol = newstr(p); break; case 'A': /* argument vector */ if (*p != '\0') /* error is issued below */ m->m_argv = makeargv(p); break; case 'M': /* maximum message size */ m->m_maxsize = atol(p); break; case 'm': /* maximum messages per connection */ m->m_maxdeliveries = atoi(p); break; case 'r': /* max recipient per envelope */ m->m_maxrcpt = atoi(p); break; case 'L': /* maximum line length */ m->m_linelimit = atoi(p); if (m->m_linelimit < 0) m->m_linelimit = 0; break; case 'N': /* run niceness */ m->m_nice = atoi(p); break; case 'D': /* working directory */ if (*p == '\0') syserr("mailer %s: null working directory", m->m_name); else m->m_execdir = newstr(p); break; case 'C': /* default charset */ if (*p == '\0') syserr("mailer %s: null charset", m->m_name); else m->m_defcharset = newstr(p); break; case 'Q': /* queue for this mailer */ if (*p == '\0') { syserr("mailer %s: null queue", m->m_name); break; } s = stab(p, ST_QUEUE, ST_FIND); if (s == NULL) syserr("mailer %s: unknown queue %s", m->m_name, p); else m->m_qgrp = s->s_quegrp->qg_index; break; case 'T': /* MTA-Name/Address/Diagnostic types */ /* extract MTA name type; default to "dns" */ m->m_mtatype = newstr(p); p = strchr(m->m_mtatype, '/'); if (p != NULL) { *p++ = '\0'; if (*p == '\0') p = NULL; } if (*m->m_mtatype == '\0') m->m_mtatype = "dns"; /* extract address type; default to "rfc822" */ m->m_addrtype = p; if (p != NULL) p = strchr(p, '/'); if (p != NULL) { *p++ = '\0'; if (*p == '\0') p = NULL; } if (SM_IS_EMPTY(m->m_addrtype)) m->m_addrtype = "rfc822"; /* extract diagnostic type; default to "smtp" */ m->m_diagtype = p; if (SM_IS_EMPTY(m->m_diagtype)) m->m_diagtype = "smtp"; break; case 'U': /* user id */ if (isascii(*p) && !isdigit(*p)) { char *q = p; struct passwd *pw; while (*p != '\0' && isascii(*p) && #if _FFR_DOTTED_USERNAMES (isalnum(*p) || strchr(SM_PWN_CHARS, *p) != NULL)) #else (isalnum(*p) || strchr("-_", *p) != NULL)) #endif p++; while (SM_ISSPACE(*p)) *p++ = '\0'; if (*p != '\0') *p++ = '\0'; if (*q == '\0') { syserr("mailer %s: null user name", m->m_name); break; } pw = sm_getpwnam(q); if (pw == NULL) { syserr("readcf: mailer U= flag: unknown user %s", q); break; } else { m->m_uid = pw->pw_uid; m->m_gid = pw->pw_gid; } } else { auto char *q; m->m_uid = strtol(p, &q, 0); p = q; while (SM_ISSPACE(*p)) p++; if (*p != '\0') p++; } while (SM_ISSPACE(*p)) p++; if (*p == '\0') break; if (isascii(*p) && !isdigit(*p)) { char *q = p; struct group *gr; while (isascii(*p) && (isalnum(*p) || strchr(SM_PWN_CHARS, *p) != NULL)) p++; *p++ = '\0'; if (*q == '\0') { syserr("mailer %s: null group name", m->m_name); break; } gr = getgrnam(q); if (gr == NULL) { syserr("readcf: mailer U= flag: unknown group %s", q); break; } else m->m_gid = gr->gr_gid; } else { m->m_gid = strtol(p, NULL, 0); } break; case 'W': /* wait timeout */ m->m_wait = convtime(p, 's'); break; case '/': /* new root directory */ if (*p == '\0') syserr("mailer %s: null root directory", m->m_name); else m->m_rootdir = newstr(p); break; default: syserr("M%s: unknown mailer equate %c=", m->m_name, fcode); break; } p = delimptr; } #if !HASRRESVPORT if (bitnset(M_SECURE_PORT, m->m_flags)) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "M%s: Warning: F=%c set on system that doesn't support rresvport()\n", m->m_name, M_SECURE_PORT); } #endif /* !HASRRESVPORT */ #if !HASNICE if (m->m_nice != 0) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "M%s: Warning: N= set on system that doesn't support nice()\n", m->m_name); } #endif /* !HASNICE */ /* do some rationality checking */ if (m->m_argv == NULL) { syserr("M%s: A= argument required", m->m_name); return; } if (m->m_mailer == NULL) { syserr("M%s: P= argument required", m->m_name); return; } if (nextmailer >= MAXMAILERS) { syserr("too many mailers defined (%d max)", MAXMAILERS); return; } if (m->m_maxrcpt <= 0) m->m_maxrcpt = DEFAULT_MAX_RCPT; /* do some heuristic cleanup for back compatibility */ if (bitnset(M_LIMITS, m->m_flags)) { if (m->m_linelimit == 0) m->m_linelimit = SMTPLINELIM; if (ConfigLevel < 2) setbitn(M_7BITS, m->m_flags); } if (strcmp(m->m_mailer, "[TCP]") == 0) { syserr("M%s: P=[TCP] must be replaced by P=[IPC]", m->m_name); return; } if (strcmp(m->m_mailer, "[IPC]") == 0) { /* Use the second argument for host or path to socket */ if (m->m_argv[0] == NULL || m->m_argv[1] == NULL || m->m_argv[1][0] == '\0') { syserr("M%s: too few parameters for %s mailer", m->m_name, m->m_mailer); return; } if (strcmp(m->m_argv[0], "TCP") != 0 #if NETUNIX && strcmp(m->m_argv[0], "FILE") != 0 #endif ) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "M%s: Warning: first argument in %s mailer must be %s\n", m->m_name, m->m_mailer, #if NETUNIX "TCP or FILE" #else "TCP" #endif ); } if (m->m_mtatype == NULL) m->m_mtatype = "dns"; if (m->m_addrtype == NULL) m->m_addrtype = "rfc822"; if (m->m_diagtype == NULL) { if (m->m_argv[0] != NULL && strcmp(m->m_argv[0], "FILE") == 0) m->m_diagtype = "x-unix"; else m->m_diagtype = "smtp"; } } else if (strcmp(m->m_mailer, "[FILE]") == 0) { /* Use the second argument for filename */ if (m->m_argv[0] == NULL || m->m_argv[1] == NULL || m->m_argv[2] != NULL) { syserr("M%s: too %s parameters for [FILE] mailer", m->m_name, (m->m_argv[0] == NULL || m->m_argv[1] == NULL) ? "few" : "many"); return; } else if (strcmp(m->m_argv[0], "FILE") != 0) { syserr("M%s: first argument in [FILE] mailer must be FILE", m->m_name); return; } } if (m->m_eol == NULL) { char **pp; /* default for SMTP is \r\n; use \n for local delivery */ for (pp = m->m_argv; *pp != NULL; pp++) { for (p = *pp; *p != '\0'; ) { if ((*p++ & 0377) == MACROEXPAND && *p == 'u') break; } if (*p != '\0') break; } if (*pp == NULL) m->m_eol = "\r\n"; else m->m_eol = "\n"; } /* enter the mailer into the symbol table */ s = stab(m->m_name, ST_MAILER, ST_ENTER); if (s->s_mailer != NULL) { i = s->s_mailer->m_mno; sm_free(s->s_mailer); /* XXX */ } else { i = nextmailer++; } Mailer[i] = s->s_mailer = m; m->m_mno = i; } /* ** MUNCHSTRING -- translate a string into internal form. ** ** Parameters: ** p -- the string to munch. ** delimptr -- if non-NULL, set to the pointer of the ** field delimiter character. ** delim -- the delimiter for the field. ** ** Returns: ** the munched string. ** ** Side Effects: ** the munched string is a local static buffer. ** it must be copied before the function is called again. */ char * munchstring(p, delimptr, delim) register char *p; char **delimptr; int delim; { register char *q; bool backslash = false; bool quotemode = false; static char buf[MAXLINE]; for (q = buf; *p != '\0' && q < &buf[sizeof(buf) - 1]; p++) { if (backslash) { /* everything is roughly literal */ backslash = false; switch (*p) { case 'r': /* carriage return */ *q++ = '\r'; continue; case 'n': /* newline */ *q++ = '\n'; continue; case 'f': /* form feed */ *q++ = '\f'; continue; case 'b': /* backspace */ *q++ = '\b'; continue; } *q++ = *p; } else { if (*p == '\\') backslash = true; else if (*p == '"') quotemode = !quotemode; else if (quotemode || *p != delim) *q++ = *p; else break; } } if (delimptr != NULL) *delimptr = p; *q++ = '\0'; return buf; } /* ** EXTRQUOTSTR -- extract a (quoted) string. ** ** This routine deals with quoted (") strings and escaped ** spaces (\\ ). ** ** Parameters: ** p -- source string. ** delimptr -- if non-NULL, set to the pointer of the ** field delimiter character. ** delimbuf -- delimiters for the field. ** st -- if non-NULL, store the return value (whether the ** string was correctly quoted) here. ** ** Returns: ** the extracted string. ** ** Side Effects: ** the returned string is a local static buffer. ** it must be copied before the function is called again. */ static char * extrquotstr(p, delimptr, delimbuf, st) register char *p; char **delimptr; char *delimbuf; bool *st; { register char *q; bool backslash = false; bool quotemode = false; static char buf[MAXLINE]; for (q = buf; *p != '\0' && q < &buf[sizeof(buf) - 1]; p++) { if (backslash) { backslash = false; if (*p != ' ') *q++ = '\\'; } if (*p == '\\') backslash = true; else if (*p == '"') quotemode = !quotemode; else if (quotemode || strchr(delimbuf, (int) *p) == NULL) *q++ = *p; else break; } if (delimptr != NULL) *delimptr = p; *q++ = '\0'; if (st != NULL) *st = !(quotemode || backslash); return buf; } /* ** MAKEARGV -- break up a string into words ** ** Parameters: ** p -- the string to break up. ** ** Returns: ** a char **argv (dynamically allocated) ** ** Side Effects: ** munges p. */ static char ** makeargv(p) register char *p; { char *q; int i; char **avp; char *argv[MAXPV + 1]; /* take apart the words */ i = 0; while (*p != '\0' && i < MAXPV) { q = p; while (*p != '\0' && !(SM_ISSPACE(*p))) p++; while (SM_ISSPACE(*p)) *p++ = '\0'; argv[i++] = newstr(q); } argv[i++] = NULL; /* now make a copy of the argv */ avp = (char **) sm_malloc_tagged_x(sizeof(*avp) * i, "makeargv", 0, 0); memmove((char *) avp, (char *) argv, sizeof(*avp) * i); return avp; } /* ** PRINTRULES -- print rewrite rules (for debugging) ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** prints rewrite rules. */ void printrules() { register struct rewrite *rwp; register int ruleset; for (ruleset = 0; ruleset < 10; ruleset++) { if (RewriteRules[ruleset] == NULL) continue; sm_dprintf("\n----Rule Set %d:", ruleset); for (rwp = RewriteRules[ruleset]; rwp != NULL; rwp = rwp->r_next) { sm_dprintf("\nLHS:"); printav(sm_debug_file(), rwp->r_lhs); sm_dprintf("RHS:"); printav(sm_debug_file(), rwp->r_rhs); } } } /* ** PRINTMAILER -- print mailer structure (for debugging) ** ** Parameters: ** fp -- output file ** m -- the mailer to print ** ** Returns: ** none. */ void printmailer(fp, m) SM_FILE_T *fp; register MAILER *m; { int j; (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "mailer %d (%s): P=%s S=", m->m_mno, m->m_name, m->m_mailer); if (RuleSetNames[m->m_se_rwset] == NULL) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%d/", m->m_se_rwset); else (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s/", RuleSetNames[m->m_se_rwset]); if (RuleSetNames[m->m_sh_rwset] == NULL) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%d R=", m->m_sh_rwset); else (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s R=", RuleSetNames[m->m_sh_rwset]); if (RuleSetNames[m->m_re_rwset] == NULL) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%d/", m->m_re_rwset); else (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s/", RuleSetNames[m->m_re_rwset]); if (RuleSetNames[m->m_rh_rwset] == NULL) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%d ", m->m_rh_rwset); else (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s ", RuleSetNames[m->m_rh_rwset]); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "M=%ld U=%d:%d F=", m->m_maxsize, (int) m->m_uid, (int) m->m_gid); for (j = '\0'; j <= '\177'; j++) if (bitnset(j, m->m_flags)) (void) sm_io_putc(fp, SM_TIME_DEFAULT, j); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, " L=%d E=", m->m_linelimit); xputs(fp, m->m_eol); if (m->m_defcharset != NULL) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, " C=%s", m->m_defcharset); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, " T=%s/%s/%s", m->m_mtatype == NULL ? "" : m->m_mtatype, m->m_addrtype == NULL ? "" : m->m_addrtype, m->m_diagtype == NULL ? "" : m->m_diagtype); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, " r=%d", m->m_maxrcpt); if (m->m_argv != NULL) { char **a = m->m_argv; (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, " A="); while (*a != NULL) { if (a != m->m_argv) (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, " "); xputs(fp, *a++); } } (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\n"); } #if STARTTLS static struct ssl_options { const char *sslopt_name; /* name of the flag */ long sslopt_bits; /* bits to set/clear */ } SSL_Option[] = { /* Workaround for bugs are turned on by default (as well as some others) */ # ifdef SSL_OP_MICROSOFT_SESS_ID_BUG { "SSL_OP_MICROSOFT_SESS_ID_BUG", SSL_OP_MICROSOFT_SESS_ID_BUG }, # endif # ifdef SSL_OP_NETSCAPE_CHALLENGE_BUG { "SSL_OP_NETSCAPE_CHALLENGE_BUG", SSL_OP_NETSCAPE_CHALLENGE_BUG }, # endif # ifdef SSL_OP_LEGACY_SERVER_CONNECT { "SSL_OP_LEGACY_SERVER_CONNECT", SSL_OP_LEGACY_SERVER_CONNECT }, # endif # ifdef SSL_OP_NETSCAPE_REUSE_CIPHER_CHANGE_BUG { "SSL_OP_NETSCAPE_REUSE_CIPHER_CHANGE_BUG", SSL_OP_NETSCAPE_REUSE_CIPHER_CHANGE_BUG }, # endif # ifdef SSL_OP_SSLREF2_REUSE_CERT_TYPE_BUG { "SSL_OP_SSLREF2_REUSE_CERT_TYPE_BUG", SSL_OP_SSLREF2_REUSE_CERT_TYPE_BUG }, # endif # ifdef SSL_OP_MICROSOFT_BIG_SSLV3_BUFFER { "SSL_OP_MICROSOFT_BIG_SSLV3_BUFFER", SSL_OP_MICROSOFT_BIG_SSLV3_BUFFER }, # endif # ifdef SSL_OP_MSIE_SSLV2_RSA_PADDING { "SSL_OP_MSIE_SSLV2_RSA_PADDING", SSL_OP_MSIE_SSLV2_RSA_PADDING }, # endif # ifdef SSL_OP_SSLEAY_080_CLIENT_DH_BUG { "SSL_OP_SSLEAY_080_CLIENT_DH_BUG", SSL_OP_SSLEAY_080_CLIENT_DH_BUG }, # endif # ifdef SSL_OP_TLS_D5_BUG { "SSL_OP_TLS_D5_BUG", SSL_OP_TLS_D5_BUG }, # endif # ifdef SSL_OP_TLS_BLOCK_PADDING_BUG { "SSL_OP_TLS_BLOCK_PADDING_BUG", SSL_OP_TLS_BLOCK_PADDING_BUG }, # endif # ifdef SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS { "SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS", SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS }, # endif # ifdef SSL_OP_ALL { "SSL_OP_ALL", SSL_OP_ALL }, # endif # ifdef SSL_OP_NO_QUERY_MTU { "SSL_OP_NO_QUERY_MTU", SSL_OP_NO_QUERY_MTU }, # endif # ifdef SSL_OP_COOKIE_EXCHANGE { "SSL_OP_COOKIE_EXCHANGE", SSL_OP_COOKIE_EXCHANGE }, # endif # ifdef SSL_OP_NO_TICKET { "SSL_OP_NO_TICKET", SSL_OP_NO_TICKET }, # endif # ifdef SSL_OP_CISCO_ANYCONNECT { "SSL_OP_CISCO_ANYCONNECT", SSL_OP_CISCO_ANYCONNECT }, # endif # ifdef SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION { "SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION", SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION }, # endif # ifdef SSL_OP_NO_COMPRESSION { "SSL_OP_NO_COMPRESSION", SSL_OP_NO_COMPRESSION }, # endif # ifdef SSL_OP_ALLOW_UNSAFE_LEGACY_RENEGOTIATION { "SSL_OP_ALLOW_UNSAFE_LEGACY_RENEGOTIATION", SSL_OP_ALLOW_UNSAFE_LEGACY_RENEGOTIATION }, # endif # ifdef SSL_OP_SINGLE_ECDH_USE { "SSL_OP_SINGLE_ECDH_USE", SSL_OP_SINGLE_ECDH_USE }, # endif # ifdef SSL_OP_SINGLE_DH_USE { "SSL_OP_SINGLE_DH_USE", SSL_OP_SINGLE_DH_USE }, # endif # ifdef SSL_OP_EPHEMERAL_RSA { "SSL_OP_EPHEMERAL_RSA", SSL_OP_EPHEMERAL_RSA }, # endif # ifdef SSL_OP_CIPHER_SERVER_PREFERENCE { "SSL_OP_CIPHER_SERVER_PREFERENCE", SSL_OP_CIPHER_SERVER_PREFERENCE }, # endif # ifdef SSL_OP_TLS_ROLLBACK_BUG { "SSL_OP_TLS_ROLLBACK_BUG", SSL_OP_TLS_ROLLBACK_BUG }, # endif # ifdef SSL_OP_NO_SSLv2 { "SSL_OP_NO_SSLv2", SSL_OP_NO_SSLv2 }, # endif # ifdef SSL_OP_NO_SSLv3 { "SSL_OP_NO_SSLv3", SSL_OP_NO_SSLv3 }, # endif # ifdef SSL_OP_NO_TLSv1 { "SSL_OP_NO_TLSv1", SSL_OP_NO_TLSv1 }, # endif # ifdef SSL_OP_NO_TLSv1_3 { "SSL_OP_NO_TLSv1_3", SSL_OP_NO_TLSv1_3 }, # endif # ifdef SSL_OP_NO_TLSv1_2 { "SSL_OP_NO_TLSv1_2", SSL_OP_NO_TLSv1_2 }, # endif # ifdef SSL_OP_NO_TLSv1_1 { "SSL_OP_NO_TLSv1_1", SSL_OP_NO_TLSv1_1 }, # endif # ifdef SSL_OP_PKCS1_CHECK_1 { "SSL_OP_PKCS1_CHECK_1", SSL_OP_PKCS1_CHECK_1 }, # endif # ifdef SSL_OP_PKCS1_CHECK_2 { "SSL_OP_PKCS1_CHECK_2", SSL_OP_PKCS1_CHECK_2 }, # endif # ifdef SSL_OP_NETSCAPE_CA_DN_BUG { "SSL_OP_NETSCAPE_CA_DN_BUG", SSL_OP_NETSCAPE_CA_DN_BUG }, # endif # ifdef SSL_OP_NETSCAPE_DEMO_CIPHER_CHANGE_BUG { "SSL_OP_NETSCAPE_DEMO_CIPHER_CHANGE_BUG", SSL_OP_NETSCAPE_DEMO_CIPHER_CHANGE_BUG }, # endif # ifdef SSL_OP_CRYPTOPRO_TLSEXT_BUG { "SSL_OP_CRYPTOPRO_TLSEXT_BUG", SSL_OP_CRYPTOPRO_TLSEXT_BUG }, # endif # ifdef SSL_OP_TLSEXT_PADDING { "SSL_OP_TLSEXT_PADDING", SSL_OP_TLSEXT_PADDING }, # endif # ifdef SSL_OP_NO_RENEGOTIATION { "SSL_OP_NO_RENEGOTIATION", SSL_OP_NO_RENEGOTIATION }, # endif # ifdef SSL_OP_NO_ANTI_REPLAY { "SSL_OP_NO_ANTI_REPLAY", SSL_OP_NO_ANTI_REPLAY }, # endif # ifdef SSL_OP_ALLOW_NO_DHE_KEX { "SSL_OP_ALLOW_NO_DHE_KEX", SSL_OP_ALLOW_NO_DHE_KEX }, # endif # ifdef SSL_OP_NO_ENCRYPT_THEN_MAC { "SSL_OP_NO_ENCRYPT_THEN_MAC", SSL_OP_NO_ENCRYPT_THEN_MAC }, # endif # ifdef SSL_OP_ENABLE_MIDDLEBOX_COMPAT { "SSL_OP_ENABLE_MIDDLEBOX_COMPAT", SSL_OP_ENABLE_MIDDLEBOX_COMPAT }, # endif # ifdef SSL_OP_PRIORITIZE_CHACHA { "SSL_OP_PRIORITIZE_CHACHA", SSL_OP_PRIORITIZE_CHACHA }, # endif { NULL, 0 } }; /* ** READSSLOPTIONS -- read SSL_OP_* values ** ** Parameters: ** opt -- name of option (can be NULL) ** val -- string with SSL_OP_* values or hex value ** delim -- end of string (e.g., '\0' or ';') ** pssloptions -- return value (output) ** ** Returns: ** 0 on success. */ # define SSLOPERR_NAN 1 # define SSLOPERR_NOTFOUND 2 static int readssloptions __P((char *, char *, unsigned long *, int )); static int readssloptions(opt, val, pssloptions, delim) char *opt; char *val; unsigned long *pssloptions; int delim; { char *p; int ret; ret = 0; for (p = val; *p != '\0' && *p != delim; ) { bool clearmode; char *q; unsigned long sslopt_val; struct ssl_options *sslopts; while (*p == ' ') p++; if (*p == '\0') break; clearmode = false; if (*p == '-' || *p == '+') clearmode = *p++ == '-'; q = p; while (*p != '\0' && !(SM_ISSPACE(*p)) && *p != ',') p++; if (*p != '\0') *p++ = '\0'; sslopt_val = 0; if (isdigit(*q)) { char *end; sslopt_val = strtoul(q, &end, 0); /* not a complete "syntax" check but good enough */ if (end == q) { errno = 0; ret = SSLOPERR_NAN; if (opt != NULL) syserr("readcf: %s option value %s not a number", opt, q); sslopt_val = 0; } } else { for (sslopts = SSL_Option; sslopts->sslopt_name != NULL; sslopts++) { if (SM_STRCASEEQ(q, sslopts->sslopt_name)) { sslopt_val = sslopts->sslopt_bits; break; } } if (sslopts->sslopt_name == NULL) { errno = 0; ret = SSLOPERR_NOTFOUND; if (opt != NULL) syserr("readcf: %s option value %s unrecognized", opt, q); } } if (sslopt_val != 0) { if (clearmode) *pssloptions &= ~sslopt_val; else *pssloptions |= sslopt_val; } } return ret; } /* ** GET_TLS_SE_FEATURES -- get TLS session features (from ruleset) ** ** Parameters: ** e -- envelope ** ssl -- TLS session context ** tlsi_ctx -- TLS info context ** srv -- server? ** ** Returns: ** EX_OK on success. */ int get_tls_se_features(e, ssl, tlsi_ctx, srv) ENVELOPE *e; SSL *ssl; tlsi_ctx_T *tlsi_ctx; bool srv; { bool saveQuickAbort, saveSuprErrs; char *optionlist, *opt, *val; char *keyfile, *certfile; size_t len, i; int ret, rv; # define who (srv ? "server" : "client") # define NAME_C_S macvalue(macid(srv ? "{client_name}" : "{server_name}"), e) # define ADDR_C_S macvalue(macid(srv ? "{client_addr}" : "{server_addr}"), e) # define WHICH srv ? "srv" : "clt" SM_REQUIRE(ssl != NULL); rv = EX_OK; keyfile = certfile = opt = val = NULL; saveQuickAbort = QuickAbort; saveSuprErrs = SuprErrs; SuprErrs = true; QuickAbort = false; # if _FFR_MTA_STS SM_FREE(STS_SNI); # endif optionlist = NULL; rv = rscheck(srv ? "tls_srv_features" : "tls_clt_features", NAME_C_S, ADDR_C_S, e, RSF_RMCOMM|RSF_ADDR|RSF_STRING, 5, NULL, NOQID, NULL, &optionlist); if (EX_OK != rv && LogLevel > 8) { sm_syslog(LOG_NOTICE, NOQID, "rscheck(tls_%s_features)=failed, relay=%s [%s], errors=%d", WHICH, NAME_C_S, ADDR_C_S, Errors); } QuickAbort = saveQuickAbort; SuprErrs = saveSuprErrs; if (EX_OK == rv && LogLevel > 9) { sm_syslog(LOG_INFO, NOQID, "tls_%s_features=%s, relay=%s [%s]", WHICH, optionlist, NAME_C_S, ADDR_C_S); } if (EX_OK != rv || optionlist == NULL || (len = strlen(optionlist)) < 2) { if (LogLevel > 9) sm_syslog(LOG_INFO, NOQID, "tls_%s_features=empty, stat=%d, relay=%s [%s]", WHICH, rv, NAME_C_S, ADDR_C_S); return rv; } i = 0; if (optionlist[0] == '"' && optionlist[len - 1] == '"') { optionlist[0] = ' '; optionlist[--len] = '\0'; if (len <= 2) { if (LogLevel > 9 && len > 1) sm_syslog(LOG_INFO, NOQID, "tls_%s_features=too_short, relay=%s [%s]", WHICH, NAME_C_S, ADDR_C_S); /* this is not treated as error! */ return EX_OK; } i = 1; } # define INVALIDSYNTAX \ do { \ if (LogLevel > 7) \ sm_syslog(LOG_INFO, NOQID, \ "tls_%s_features=invalid_syntax, opt=%s, relay=%s [%s]", \ WHICH, opt, NAME_C_S, ADDR_C_S); \ goto fail; \ } while (0) # define CHECKLEN \ do { \ if (i >= len) \ INVALIDSYNTAX; \ } while (0) # define SKIPWS \ do { \ while (i < len && SM_ISSPACE(optionlist[i])) \ ++i; \ CHECKLEN; \ } while (0) /* parse and handle opt=val; */ do { char sep; SKIPWS; opt = optionlist + i; sep = '='; while (i < len && optionlist[i] != sep && optionlist[i] != '\0' && !SM_ISSPACE(optionlist[i])) ++i; CHECKLEN; while (i < len && SM_ISSPACE(optionlist[i])) optionlist[i++] = '\0'; CHECKLEN; if (optionlist[i] != sep) INVALIDSYNTAX; optionlist[i++] = '\0'; SKIPWS; val = optionlist + i; sep = ';'; while (i < len && optionlist[i] != sep && optionlist[i] != '\0') ++i; if (optionlist[i] != '\0') { CHECKLEN; optionlist[i++] = '\0'; } if (LogLevel > 13) sm_syslog(LOG_DEBUG, NOQID, "tls_%s_features=parsed, %s=%s, relay=%s [%s]", WHICH, opt, val, NAME_C_S, ADDR_C_S); if (SM_STRCASEEQ(opt, "options")) { unsigned long ssloptions; ssloptions = 0; ret = readssloptions(NULL, val, &ssloptions, ';'); if (ret == 0) (void) SSL_set_options(ssl, (long) ssloptions); else { if (LogLevel > 8) { sm_syslog(LOG_WARNING, NOQID, "tls_%s_features=%s, error=%s, relay=%s [%s]", WHICH, val, (ret == SSLOPERR_NAN) ? "not a number" : ((ret == SSLOPERR_NOTFOUND) ? "SSL_OP not found" : "unknown"), NAME_C_S, ADDR_C_S); } goto fail; } } else if (SM_STRCASEEQ(opt, "cipherlist")) { if (SSL_set_cipher_list(ssl, val) <= 0) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_set_cipher_list(%s) failed", who, val); tlslogerr(LOG_WARNING, 9, who); } goto fail; } } # if MTA_HAVE_TLSv1_3 else if (SM_STRCASEEQ(opt, "ciphersuites")) { if (SSL_set_ciphersuites(ssl, val) <= 0) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_set_ciphersuites(%s) failed", who, val); tlslogerr(LOG_WARNING, 9, who); } goto fail; } } # endif /* MTA_HAVE_TLSv1_3 */ else if (SM_STRCASEEQ(opt, "flags")) { char *p; for (p = val; *p != '\0'; p++) { if (isascii(*p) && isalnum(*p)) setbitn(bitidx(*p), tlsi_ctx->tlsi_flags); } } else if (SM_STRCASEEQ(opt, "keyfile")) keyfile = val; else if (SM_STRCASEEQ(opt, "certfile")) certfile = val; # if _FFR_MTA_STS else if (sm_strcasecmp(opt, "servername") == 0 && sm_strcasecmp(val, "hostname") == 0) { char *sn; sn = macvalue(macid("{server_name}"), e); if (sn == NULL) STS_SNI = NULL; else STS_SNI = sm_strdup(sn); } else if (sm_strcasecmp(opt, "servername") == 0) { if (LogLevel > 7) { sm_syslog(LOG_INFO, NOQID, "tls_%s_features=servername, invalid_value=%s, relay=%s [%s]", WHICH, val, NAME_C_S, ADDR_C_S); } goto fail; } else if (sm_strcasecmp(opt, "sts") == 0 && sm_strcasecmp(val, "secure") == 0) setbitn(bitidx(TLSI_FL_STS_NOFB2CLR), tlsi_ctx->tlsi_flags); # endif /* _FFR_MTA_STS */ else { if (LogLevel > 7) { sm_syslog(LOG_INFO, NOQID, "tls_%s_features=unknown_option, opt=%s, relay=%s [%s]", WHICH, opt, NAME_C_S, ADDR_C_S); } goto fail; } } while (optionlist[i] != '\0' && i < len); /* need cert and key before we can use the options */ /* does not implement the "," hack for 2nd cert/key pair */ if (keyfile != NULL && certfile != NULL) { load_certkey(ssl, srv, certfile, keyfile); keyfile = certfile = NULL; } else if (keyfile != NULL || certfile != NULL) { if (LogLevel > 7) { sm_syslog(LOG_INFO, NOQID, "tls_%s_features=only_one_of_CertFile/KeyFile_specified, relay=%s [%s]", WHICH, NAME_C_S, ADDR_C_S); } goto fail; } return rv; fail: return EX_CONFIG; # undef who # undef NAME_C_S # undef ADDR_C_S # undef WHICH } #endif /* STARTTLS */ /* ** SETOPTION -- set global processing option ** ** Parameters: ** opt -- option name. ** val -- option value (as a text string). ** safe -- set if this came from a configuration file. ** Some options (if set from the command line) will ** reset the user id to avoid security problems. ** sticky -- if set, don't let other setoptions override ** this value. ** e -- the main envelope. ** ** Returns: ** none. ** ** Side Effects: ** Sets options as implied by the arguments. */ static BITMAP256 StickyOpt; /* set if option is stuck */ #if NAMED_BIND static struct resolverflags { char *rf_name; /* name of the flag */ long rf_bits; /* bits to set/clear */ } ResolverFlags[] = { { "debug", RES_DEBUG }, { "aaonly", RES_AAONLY }, { "usevc", RES_USEVC }, { "primary", RES_PRIMARY }, { "igntc", RES_IGNTC }, { "recurse", RES_RECURSE }, { "defnames", RES_DEFNAMES }, { "stayopen", RES_STAYOPEN }, { "dnsrch", RES_DNSRCH }, # ifdef RES_USE_INET6 { "use_inet6", RES_USE_INET6 }, # endif # ifdef RES_USE_EDNS0 { "use_edns0", RES_USE_EDNS0 }, # endif # ifdef RES_USE_DNSSEC { "use_dnssec", RES_USE_DNSSEC }, # endif # if RES_TRUSTAD { "trustad", RES_TRUSTAD }, # endif { "true", 0 }, /* avoid error on old syntax */ { "true", 0 }, /* avoid error on old syntax */ { NULL, 0 } }; #endif /* NAMED_BIND */ #define OI_NONE 0 /* no special treatment */ #define OI_SAFE 0x0001 /* safe for random people to use */ #define OI_SUBOPT 0x0002 /* option has suboptions */ static struct optioninfo { char *o_name; /* long name of option */ unsigned char o_code; /* short name of option */ unsigned short o_flags; /* option flags */ } OptionTab[] = { #if defined(SUN_EXTENSIONS) && defined(REMOTE_MODE) { "RemoteMode", '>', OI_NONE }, #endif { "SevenBitInput", '7', OI_SAFE }, { "EightBitMode", '8', OI_SAFE }, { "AliasFile", 'A', OI_NONE }, { "AliasWait", 'a', OI_NONE }, { "BlankSub", 'B', OI_NONE }, { "MinFreeBlocks", 'b', OI_SAFE }, { "CheckpointInterval", 'C', OI_SAFE }, { "HoldExpensive", 'c', OI_NONE }, { "DeliveryMode", 'd', OI_SAFE }, { "ErrorHeader", 'E', OI_NONE }, { "ErrorMode", 'e', OI_SAFE }, { "TempFileMode", 'F', OI_NONE }, { "SaveFromLine", 'f', OI_NONE }, { "MatchGECOS", 'G', OI_NONE }, /* no long name, just here to avoid problems in setoption */ { "", 'g', OI_NONE }, { "HelpFile", 'H', OI_NONE }, { "MaxHopCount", 'h', OI_NONE }, { "ResolverOptions", 'I', OI_NONE }, { "IgnoreDots", 'i', OI_SAFE }, { "ForwardPath", 'J', OI_NONE }, { "SendMimeErrors", 'j', OI_SAFE }, { "ConnectionCacheSize", 'k', OI_NONE }, { "ConnectionCacheTimeout", 'K', OI_NONE }, { "UseErrorsTo", 'l', OI_NONE }, { "LogLevel", 'L', OI_SAFE }, { "MeToo", 'm', OI_SAFE }, /* no long name, just here to avoid problems in setoption */ { "", 'M', OI_NONE }, { "CheckAliases", 'n', OI_NONE }, { "OldStyleHeaders", 'o', OI_SAFE }, { "DaemonPortOptions", 'O', OI_NONE }, { "PrivacyOptions", 'p', OI_SAFE }, { "PostmasterCopy", 'P', OI_NONE }, { "QueueFactor", 'q', OI_NONE }, { "QueueDirectory", 'Q', OI_NONE }, { "DontPruneRoutes", 'R', OI_NONE }, { "Timeout", 'r', OI_SUBOPT }, { "StatusFile", 'S', OI_NONE }, { "SuperSafe", 's', OI_SAFE }, { "QueueTimeout", 'T', OI_NONE }, { "TimeZoneSpec", 't', OI_NONE }, { "UserDatabaseSpec", 'U', OI_NONE }, { "DefaultUser", 'u', OI_NONE }, { "FallbackMXhost", 'V', OI_NONE }, { "Verbose", 'v', OI_SAFE }, { "TryNullMXList", 'w', OI_NONE }, { "QueueLA", 'x', OI_NONE }, { "RefuseLA", 'X', OI_NONE }, { "RecipientFactor", 'y', OI_NONE }, { "ForkEachJob", 'Y', OI_NONE }, { "ClassFactor", 'z', OI_NONE }, { "RetryFactor", 'Z', OI_NONE }, #define O_QUEUESORTORD 0x81 { "QueueSortOrder", O_QUEUESORTORD, OI_SAFE }, #define O_HOSTSFILE 0x82 { "HostsFile", O_HOSTSFILE, OI_NONE }, #define O_MQA 0x83 { "MinQueueAge", O_MQA, OI_SAFE }, #define O_DEFCHARSET 0x85 { "DefaultCharSet", O_DEFCHARSET, OI_SAFE }, #define O_SSFILE 0x86 { "ServiceSwitchFile", O_SSFILE, OI_NONE }, #define O_DIALDELAY 0x87 { "DialDelay", O_DIALDELAY, OI_SAFE }, #define O_NORCPTACTION 0x88 { "NoRecipientAction", O_NORCPTACTION, OI_SAFE }, #define O_SAFEFILEENV 0x89 { "SafeFileEnvironment", O_SAFEFILEENV, OI_NONE }, #define O_MAXMSGSIZE 0x8a { "MaxMessageSize", O_MAXMSGSIZE, OI_NONE }, #define O_COLONOKINADDR 0x8b { "ColonOkInAddr", O_COLONOKINADDR, OI_SAFE }, #define O_MAXQUEUERUN 0x8c { "MaxQueueRunSize", O_MAXQUEUERUN, OI_SAFE }, #define O_MAXCHILDREN 0x8d { "MaxDaemonChildren", O_MAXCHILDREN, OI_NONE }, #define O_KEEPCNAMES 0x8e { "DontExpandCnames", O_KEEPCNAMES, OI_NONE }, #define O_MUSTQUOTE 0x8f { "MustQuoteChars", O_MUSTQUOTE, OI_NONE }, #define O_SMTPGREETING 0x90 { "SmtpGreetingMessage", O_SMTPGREETING, OI_NONE }, #define O_UNIXFROM 0x91 { "UnixFromLine", O_UNIXFROM, OI_NONE }, #define O_OPCHARS 0x92 { "OperatorChars", O_OPCHARS, OI_NONE }, #define O_DONTINITGRPS 0x93 { "DontInitGroups", O_DONTINITGRPS, OI_NONE }, #define O_SLFH 0x94 { "SingleLineFromHeader", O_SLFH, OI_SAFE }, #define O_ABH 0x95 { "AllowBogusHELO", O_ABH, OI_SAFE }, #define O_CONNTHROT 0x97 { "ConnectionRateThrottle", O_CONNTHROT, OI_NONE }, #define O_UGW 0x99 { "UnsafeGroupWrites", O_UGW, OI_NONE }, #define O_DBLBOUNCE 0x9a { "DoubleBounceAddress", O_DBLBOUNCE, OI_NONE }, #define O_HSDIR 0x9b { "HostStatusDirectory", O_HSDIR, OI_NONE }, #define O_SINGTHREAD 0x9c { "SingleThreadDelivery", O_SINGTHREAD, OI_NONE }, #define O_RUNASUSER 0x9d { "RunAsUser", O_RUNASUSER, OI_NONE }, #define O_DSN_RRT 0x9e { "RrtImpliesDsn", O_DSN_RRT, OI_NONE }, #define O_PIDFILE 0x9f { "PidFile", O_PIDFILE, OI_NONE }, #define O_DONTBLAMESENDMAIL 0xa0 { "DontBlameSendmail", O_DONTBLAMESENDMAIL, OI_NONE }, #define O_DPI 0xa1 { "DontProbeInterfaces", O_DPI, OI_NONE }, #define O_MAXRCPT 0xa2 { "MaxRecipientsPerMessage", O_MAXRCPT, OI_SAFE }, #define O_DEADLETTER 0xa3 { "DeadLetterDrop", O_DEADLETTER, OI_NONE }, #if _FFR_DONTLOCKFILESFORREAD_OPTION # define O_DONTLOCK 0xa4 { "DontLockFilesForRead", O_DONTLOCK, OI_NONE }, #endif #define O_MAXALIASRCSN 0xa5 { "MaxAliasRecursion", O_MAXALIASRCSN, OI_NONE }, #define O_CNCTONLYTO 0xa6 { "ConnectOnlyTo", O_CNCTONLYTO, OI_NONE }, #define O_TRUSTUSER 0xa7 { "TrustedUser", O_TRUSTUSER, OI_NONE }, #define O_MAXMIMEHDRLEN 0xa8 { "MaxMimeHeaderLength", O_MAXMIMEHDRLEN, OI_NONE }, #define O_CONTROLSOCKET 0xa9 { "ControlSocketName", O_CONTROLSOCKET, OI_NONE }, #define O_MAXHDRSLEN 0xaa { "MaxHeadersLength", O_MAXHDRSLEN, OI_NONE }, #if _FFR_MAX_FORWARD_ENTRIES # define O_MAXFORWARD 0xab { "MaxForwardEntries", O_MAXFORWARD, OI_NONE }, #endif #define O_PROCTITLEPREFIX 0xac { "ProcessTitlePrefix", O_PROCTITLEPREFIX, OI_NONE }, #define O_SASLINFO 0xad #if _FFR_ALLOW_SASLINFO { "DefaultAuthInfo", O_SASLINFO, OI_SAFE }, #else { "DefaultAuthInfo", O_SASLINFO, OI_NONE }, #endif #define O_SASLMECH 0xae { "AuthMechanisms", O_SASLMECH, OI_NONE }, #define O_CLIENTPORT 0xaf { "ClientPortOptions", O_CLIENTPORT, OI_NONE }, #define O_DF_BUFSIZE 0xb0 { "DataFileBufferSize", O_DF_BUFSIZE, OI_NONE }, #define O_XF_BUFSIZE 0xb1 { "XscriptFileBufferSize", O_XF_BUFSIZE, OI_NONE }, #define O_LDAPDEFAULTSPEC 0xb2 { "LDAPDefaultSpec", O_LDAPDEFAULTSPEC, OI_NONE }, #define O_SRVCERTFILE 0xb4 { "ServerCertFile", O_SRVCERTFILE, OI_NONE }, #define O_SRVKEYFILE 0xb5 { "ServerKeyFile", O_SRVKEYFILE, OI_NONE }, #define O_CLTCERTFILE 0xb6 { "ClientCertFile", O_CLTCERTFILE, OI_NONE }, #define O_CLTKEYFILE 0xb7 { "ClientKeyFile", O_CLTKEYFILE, OI_NONE }, #define O_CACERTFILE 0xb8 { "CACertFile", O_CACERTFILE, OI_NONE }, #define O_CACERTPATH 0xb9 { "CACertPath", O_CACERTPATH, OI_NONE }, #define O_DHPARAMS 0xba { "DHParameters", O_DHPARAMS, OI_NONE }, #define O_INPUTMILTER 0xbb { "InputMailFilters", O_INPUTMILTER, OI_NONE }, #define O_MILTER 0xbc { "Milter", O_MILTER, OI_SUBOPT }, #define O_SASLOPTS 0xbd { "AuthOptions", O_SASLOPTS, OI_NONE }, #define O_QUEUE_FILE_MODE 0xbe { "QueueFileMode", O_QUEUE_FILE_MODE, OI_NONE }, #define O_DIG_ALG 0xbf { "CertFingerprintAlgorithm", O_DIG_ALG, OI_NONE }, #define O_CIPHERLIST 0xc0 { "CipherList", O_CIPHERLIST, OI_NONE }, #define O_RANDFILE 0xc1 { "RandFile", O_RANDFILE, OI_NONE }, #define O_TLS_SRV_OPTS 0xc2 { "TLSSrvOptions", O_TLS_SRV_OPTS, OI_NONE }, #define O_RCPTTHROT 0xc3 { "BadRcptThrottle", O_RCPTTHROT, OI_SAFE }, #define O_DLVR_MIN 0xc4 { "DeliverByMin", O_DLVR_MIN, OI_NONE }, #define O_MAXQUEUECHILDREN 0xc5 { "MaxQueueChildren", O_MAXQUEUECHILDREN, OI_NONE }, #define O_MAXRUNNERSPERQUEUE 0xc6 { "MaxRunnersPerQueue", O_MAXRUNNERSPERQUEUE, OI_NONE }, #define O_DIRECTSUBMODIFIERS 0xc7 { "DirectSubmissionModifiers", O_DIRECTSUBMODIFIERS, OI_NONE }, #define O_NICEQUEUERUN 0xc8 { "NiceQueueRun", O_NICEQUEUERUN, OI_NONE }, #define O_SHMKEY 0xc9 { "SharedMemoryKey", O_SHMKEY, OI_NONE }, #define O_SASLBITS 0xca { "AuthMaxBits", O_SASLBITS, OI_NONE }, #define O_MBDB 0xcb { "MailboxDatabase", O_MBDB, OI_NONE }, #define O_MSQ 0xcc { "UseMSP", O_MSQ, OI_NONE }, #define O_DELAY_LA 0xcd { "DelayLA", O_DELAY_LA, OI_NONE }, #define O_FASTSPLIT 0xce { "FastSplit", O_FASTSPLIT, OI_NONE }, #define O_SOFTBOUNCE 0xcf { "SoftBounce", O_SOFTBOUNCE, OI_NONE }, #define O_SHMKEYFILE 0xd0 { "SharedMemoryKeyFile", O_SHMKEYFILE, OI_NONE }, #define O_REJECTLOGINTERVAL 0xd1 { "RejectLogInterval", O_REJECTLOGINTERVAL, OI_NONE }, #define O_REQUIRES_DIR_FSYNC 0xd2 { "RequiresDirfsync", O_REQUIRES_DIR_FSYNC, OI_NONE }, #define O_CONNECTION_RATE_WINDOW_SIZE 0xd3 { "ConnectionRateWindowSize", O_CONNECTION_RATE_WINDOW_SIZE, OI_NONE }, #define O_CRLFILE 0xd4 { "CRLFile", O_CRLFILE, OI_NONE }, #define O_FALLBACKSMARTHOST 0xd5 { "FallbackSmartHost", O_FALLBACKSMARTHOST, OI_NONE }, #define O_SASLREALM 0xd6 { "AuthRealm", O_SASLREALM, OI_NONE }, #define O_CRLPATH 0xd7 { "CRLPath", O_CRLPATH, OI_NONE }, #define O_HELONAME 0xd8 { "HeloName", O_HELONAME, OI_NONE }, #if _FFR_MEMSTAT # define O_REFUSELOWMEM 0xd9 { "RefuseLowMem", O_REFUSELOWMEM, OI_NONE }, # define O_QUEUELOWMEM 0xda { "QueueLowMem", O_QUEUELOWMEM, OI_NONE }, # define O_MEMRESOURCE 0xdb { "MemoryResource", O_MEMRESOURCE, OI_NONE }, #endif /* _FFR_MEMSTAT */ #define O_MAXNOOPCOMMANDS 0xdc { "MaxNOOPCommands", O_MAXNOOPCOMMANDS, OI_NONE }, #if _FFR_MSG_ACCEPT # define O_MSG_ACCEPT 0xdd { "MessageAccept", O_MSG_ACCEPT, OI_NONE }, #endif #if _FFR_QUEUE_RUN_PARANOIA # define O_CHK_Q_RUNNERS 0xde { "CheckQueueRunners", O_CHK_Q_RUNNERS, OI_NONE }, #endif #if _FFR_EIGHT_BIT_ADDR_OK # if !ALLOW_255 # error "_FFR_EIGHT_BIT_ADDR_OK requires ALLOW_255" # endif # define O_EIGHT_BIT_ADDR_OK 0xdf { "EightBitAddrOK", O_EIGHT_BIT_ADDR_OK, OI_NONE }, #endif /* _FFR_EIGHT_BIT_ADDR_OK */ #if _FFR_ADDR_TYPE_MODES # define O_ADDR_TYPE_MODES 0xe0 { "AddrTypeModes", O_ADDR_TYPE_MODES, OI_NONE }, #endif #if _FFR_BADRCPT_SHUTDOWN # define O_RCPTSHUTD 0xe1 { "BadRcptShutdown", O_RCPTSHUTD, OI_SAFE }, # define O_RCPTSHUTDG 0xe2 { "BadRcptShutdownGood", O_RCPTSHUTDG, OI_SAFE }, #endif /* _FFR_BADRCPT_SHUTDOWN */ #define O_SRV_SSL_OPTIONS 0xe3 { "ServerSSLOptions", O_SRV_SSL_OPTIONS, OI_NONE }, #define O_CLT_SSL_OPTIONS 0xe4 { "ClientSSLOptions", O_CLT_SSL_OPTIONS, OI_NONE }, #define O_MAX_QUEUE_AGE 0xe5 { "MaxQueueAge", O_MAX_QUEUE_AGE, OI_NONE }, #if _FFR_RCPTTHROTDELAY # define O_RCPTTHROTDELAY 0xe6 { "BadRcptThrottleDelay", O_RCPTTHROTDELAY, OI_SAFE }, #endif #if 0 && _FFR_QOS && defined(SOL_IP) && defined(IP_TOS) # define O_INETQOS 0xe7 /* reserved for FFR_QOS */ { "InetQoS", O_INETQOS, OI_NONE }, #endif #if STARTTLS && _FFR_FIPSMODE # define O_FIPSMODE 0xe8 { "FIPSMode", O_FIPSMODE, OI_NONE }, #endif #if _FFR_REJECT_NUL_BYTE # define O_REJECTNUL 0xe9 { "RejectNUL", O_REJECTNUL, OI_SAFE }, #endif #if _FFR_BOUNCE_QUEUE # define O_BOUNCEQUEUE 0xea { "BounceQueue", O_BOUNCEQUEUE, OI_NONE }, #endif #if _FFR_ADD_BCC # define O_ADDBCC 0xeb { "AddBcc", O_ADDBCC, OI_NONE }, #endif #define O_USECOMPRESSEDIPV6ADDRESSES 0xec { "UseCompressedIPv6Addresses", O_USECOMPRESSEDIPV6ADDRESSES, OI_NONE }, #if STARTTLS # define O_SSLENGINE 0xed { "SSLEngine", O_SSLENGINE, OI_NONE }, # define O_SSLENGINEPATH 0xee { "SSLEnginePath", O_SSLENGINEPATH, OI_NONE }, # define O_TLSFB2CLEAR 0xef { "TLSFallbacktoClear", O_TLSFB2CLEAR, OI_NONE }, #endif #if DNSSEC_TEST || _FFR_NAMESERVER # define O_NSPORTIP 0xf0 { "NameServer", O_NSPORTIP, OI_NONE }, #endif #if DANE # define O_DANE 0xf1 { "DANE", O_DANE, OI_NONE }, #endif #if DNSSEC_TEST || _FFR_NAMESERVER # define O_NSSRCHLIST 0xf2 { "NameSearchList", O_NSSRCHLIST, OI_NONE }, #endif #if _FFR_BLANKENV_MACV # define O_HACKS 0xf4 { "Hacks", O_HACKS, OI_NONE }, #endif #if _FFR_KEEPBCC # define O_KEEPBCC 0xf3 { "KeepBcc", O_KEEPBCC, OI_NONE }, #endif #if _FFR_CLIENTCA #define O_CLTCACERTFILE 0xf5 { "ClientCACertFile", O_CLTCACERTFILE, OI_NONE }, #define O_CLTCACERTPATH 0xf6 { "ClientCACertPath", O_CLTCACERTPATH, OI_NONE }, #endif #if _FFR_TLS_ALTNAMES # define O_CHECKALTNAMES 0xf7 { "SetCertAltnames", O_CHECKALTNAMES, OI_NONE }, #endif #define O_SMTPUTF8 0xf8 { "SmtpUTF8", O_SMTPUTF8, OI_NONE }, #if _FFR_MTA_STS # define O_MTASTS 0xf9 { "StrictTransportSecurity", O_MTASTS, OI_NONE }, #endif #if MTA_HAVE_TLSv1_3 #define O_CIPHERSUITES 0xfa { "CipherSuites", O_CIPHERSUITES, OI_NONE }, #endif { NULL, '\0', OI_NONE } }; # define CANONIFY(val) # define SET_OPT_DEFAULT(opt, val) opt = val /* set a string option by expanding the value and assigning it */ /* WARNING this belongs ONLY into a case statement! */ #define SET_STRING_EXP(str) \ expand(val, exbuf, sizeof(exbuf), e); \ newval = sm_pstrdup_x(exbuf); \ if (str != NULL) \ sm_free(str); \ CANONIFY(newval); \ str = newval; \ break #define OPTNAME o->o_name == NULL ? "" : o->o_name void setoption(opt, val, safe, sticky, e) int opt; char *val; bool safe; bool sticky; register ENVELOPE *e; { register char *p; register struct optioninfo *o; char *subopt; int i; bool can_setuid = RunAsUid == 0; auto char *ep; char buf[50]; extern bool Warn_Q_option; #if _FFR_ALLOW_SASLINFO extern unsigned int SubmitMode; #endif #if STARTTLS || SM_CONF_SHM char *newval; char exbuf[MAXLINE]; #endif #if STARTTLS unsigned long *pssloptions = NULL; #endif errno = 0; if (opt == ' ') { /* full word options */ struct optioninfo *sel; p = strchr(val, '='); if (p == NULL) p = &val[strlen(val)]; while (*--p == ' ') continue; while (*++p == ' ') *p = '\0'; if (p == val) { syserr("readcf: null option name"); return; } if (*p == '=') *p++ = '\0'; while (*p == ' ') p++; subopt = strchr(val, '.'); if (subopt != NULL) *subopt++ = '\0'; sel = NULL; for (o = OptionTab; o->o_name != NULL; o++) { if (sm_strncasecmp(o->o_name, val, strlen(val)) != 0) continue; if (strlen(o->o_name) == strlen(val)) { /* completely specified -- this must be it */ sel = NULL; break; } if (sel != NULL) break; sel = o; } if (sel != NULL && o->o_name == NULL) o = sel; else if (o->o_name == NULL) { syserr("readcf: unknown option name %s", val); return; } else if (sel != NULL) { syserr("readcf: ambiguous option name %s (matches %s and %s)", val, sel->o_name, o->o_name); return; } if (strlen(val) != strlen(o->o_name)) { int oldVerbose = Verbose; Verbose = 1; message("Option %s used as abbreviation for %s", val, o->o_name); Verbose = oldVerbose; } opt = o->o_code; val = p; } else { for (o = OptionTab; o->o_name != NULL; o++) { if (o->o_code == opt) break; } if (o->o_name == NULL) { syserr("readcf: unknown option name 0x%x", opt & 0xff); return; } subopt = NULL; } if (subopt != NULL && !bitset(OI_SUBOPT, o->o_flags)) { if (tTd(37, 1)) sm_dprintf("setoption: %s does not support suboptions, ignoring .%s\n", OPTNAME, subopt); subopt = NULL; } if (tTd(37, 1)) { sm_dprintf(isascii(opt) && isprint(opt) ? "setoption %s (%c)%s%s=" : "setoption %s (0x%x)%s%s=", OPTNAME, opt, subopt == NULL ? "" : ".", subopt == NULL ? "" : subopt); xputs(sm_debug_file(), val); } /* ** See if this option is preset for us. */ if (!sticky && bitnset(opt, StickyOpt)) { if (tTd(37, 1)) sm_dprintf(" (ignored)\n"); return; } /* ** Check to see if this option can be specified by this user. */ if (!safe && RealUid == 0) safe = true; if (!safe && !bitset(OI_SAFE, o->o_flags)) { if (opt != 'M' || (val[0] != 'r' && val[0] != 's')) { int dp; if (tTd(37, 1)) sm_dprintf(" (unsafe)"); dp = drop_privileges(true); setstat(dp); } } if (tTd(37, 1)) sm_dprintf("\n"); switch (opt & 0xff) { case '7': /* force seven-bit input */ SevenBitInput = atobool(val); break; case '8': /* handling of 8-bit input */ #if MIME8TO7 switch (*val) { case 'p': /* pass 8 bit, convert MIME */ MimeMode = MM_CVTMIME|MM_PASS8BIT; break; case 'm': /* convert 8-bit, convert MIME */ MimeMode = MM_CVTMIME|MM_MIME8BIT; break; case 's': /* strict adherence */ MimeMode = MM_CVTMIME; break; # if 0 case 'r': /* reject 8-bit, don't convert MIME */ MimeMode = 0; break; case 'j': /* "just send 8" */ MimeMode = MM_PASS8BIT; break; case 'a': /* encode 8 bit if available */ MimeMode = MM_MIME8BIT|MM_PASS8BIT|MM_CVTMIME; break; case 'c': /* convert 8 bit to MIME, never 7 bit */ MimeMode = MM_MIME8BIT; break; # endif /* 0 */ default: syserr("Unknown 8-bit mode %c", *val); finis(false, true, EX_USAGE); } #else /* MIME8TO7 */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s requires MIME8TO7 support\n", OPTNAME); #endif /* MIME8TO7 */ break; case 'A': /* set default alias file */ if (val[0] == '\0') { char *al; SET_OPT_DEFAULT(al, "aliases"); setalias(al); } else setalias(val); break; case 'a': /* look N minutes for "@:@" in alias file */ if (val[0] == '\0') SafeAlias = 5 MINUTES; else SafeAlias = convtime(val, 'm'); break; case 'B': /* substitution for blank character */ SpaceSub = val[0]; if (SpaceSub == '\0') SpaceSub = ' '; break; case 'b': /* min blocks free on queue fs/max msg size */ p = strchr(val, '/'); if (p != NULL) { *p++ = '\0'; MaxMessageSize = atol(p); } MinBlocksFree = atol(val); break; case 'c': /* don't connect to "expensive" mailers */ NoConnect = atobool(val); break; case 'C': /* checkpoint every N addresses */ if (safe || CheckpointInterval > atoi(val)) CheckpointInterval = atoi(val); break; case 'd': /* delivery mode */ switch (*val) { case '\0': set_delivery_mode(SM_DELIVER, e); break; case SM_QUEUE: /* queue only */ case SM_DEFER: /* queue only and defer map lookups */ case SM_DELIVER: /* do everything */ case SM_FORK: /* fork after verification */ #if _FFR_DM_ONE /* deliver first TA in background, then queue */ case SM_DM_ONE: #endif #if _FFR_DMTRIGGER case SM_TRIGGER: #endif set_delivery_mode(*val, e); break; #if _FFR_PROXY case SM_PROXY_REQ: set_delivery_mode(*val, e); break; #endif /* _FFR_PROXY */ default: syserr("Unknown delivery mode %c", *val); finis(false, true, EX_USAGE); } break; case 'E': /* error message header/header file */ if (*val != '\0') ErrMsgFile = newstr(val); break; case 'e': /* set error processing mode */ switch (*val) { case EM_QUIET: /* be silent about it */ case EM_MAIL: /* mail back */ case EM_BERKNET: /* do berknet error processing */ case EM_WRITE: /* write back (or mail) */ case EM_PRINT: /* print errors normally (default) */ e->e_errormode = *val; break; } break; case 'F': /* file mode */ FileMode = atooct(val) & 0777; break; case 'f': /* save Unix-style From lines on front */ SaveFrom = atobool(val); break; case 'G': /* match recipients against GECOS field */ MatchGecos = atobool(val); break; case 'g': /* default gid */ g_opt: if (isascii(*val) && isdigit(*val)) DefGid = atoi(val); else { register struct group *gr; DefGid = -1; gr = getgrnam(val); if (gr == NULL) syserr("readcf: option %c: unknown group %s", opt, val); else DefGid = gr->gr_gid; } break; case 'H': /* help file */ if (val[0] == '\0') { SET_OPT_DEFAULT(HelpFile, "helpfile"); } else { CANONIFY(val); HelpFile = newstr(val); } break; case 'h': /* maximum hop count */ MaxHopCount = atoi(val); break; case 'I': /* use internet domain name server */ #if NAMED_BIND for (p = val; *p != 0; ) { bool clearmode; char *q; struct resolverflags *rfp; while (*p == ' ') p++; if (*p == '\0') break; clearmode = false; if (*p == '-') clearmode = true; else if (*p != '+') p--; p++; q = p; while (*p != '\0' && !(SM_ISSPACE(*p))) p++; if (*p != '\0') *p++ = '\0'; if (SM_STRCASEEQ(q, "HasWildcardMX")) { HasWildcardMX = !clearmode; continue; } if (SM_STRCASEEQ(q, "WorkAroundBrokenAAAA")) { WorkAroundBrokenAAAA = !clearmode; continue; } for (rfp = ResolverFlags; rfp->rf_name != NULL; rfp++) { if (SM_STRCASEEQ(q, rfp->rf_name)) break; } if (rfp->rf_name == NULL) syserr("readcf: I option value %s unrecognized", q); else if (clearmode) _res.options &= ~rfp->rf_bits; else _res.options |= rfp->rf_bits; } if (tTd(8, 2)) sm_dprintf("_res.options = %x, HasWildcardMX = %d\n", (unsigned int) _res.options, HasWildcardMX); #else /* NAMED_BIND */ usrerr("name server (I option) specified but BIND not compiled in"); #endif /* NAMED_BIND */ break; case 'i': /* ignore dot lines in message */ IgnrDot = atobool(val); break; case 'j': /* send errors in MIME (RFC 1341) format */ SendMIMEErrors = atobool(val); break; case 'J': /* .forward search path */ CANONIFY(val); ForwardPath = newstr(val); break; case 'k': /* connection cache size */ MaxMciCache = atoi(val); if (MaxMciCache < 0) MaxMciCache = 0; break; case 'K': /* connection cache timeout */ MciCacheTimeout = convtime(val, 'm'); break; case 'l': /* use Errors-To: header */ UseErrorsTo = atobool(val); break; case 'L': /* log level */ if (safe || LogLevel < atoi(val)) LogLevel = atoi(val); break; case 'M': /* define macro */ sticky = false; i = macid_parse(val, &ep); if (i == 0) break; p = newstr(ep); if (!safe) cleanstrcpy(p, p, strlen(p) + 1); macdefine(&CurEnv->e_macro, A_TEMP, i, p); break; case 'm': /* send to me too */ MeToo = atobool(val); break; case 'n': /* validate RHS in newaliases */ CheckAliases = atobool(val); break; /* 'N' available -- was "net name" */ case 'O': /* daemon options */ if (!setdaemonoptions(val)) syserr("too many daemons defined (%d max)", MAXDAEMONS); break; case 'o': /* assume old style headers */ if (atobool(val)) CurEnv->e_flags |= EF_OLDSTYLE; else CurEnv->e_flags &= ~EF_OLDSTYLE; break; case 'p': /* select privacy level */ p = val; for (;;) { register struct prival *pv; extern struct prival PrivacyValues[]; while (isascii(*p) && (isspace(*p) || ispunct(*p))) p++; if (*p == '\0') break; val = p; while (isascii(*p) && isalnum(*p)) p++; if (*p != '\0') *p++ = '\0'; for (pv = PrivacyValues; pv->pv_name != NULL; pv++) { if (SM_STRCASEEQ(val, pv->pv_name)) break; } if (pv->pv_name == NULL) syserr("readcf: Op line: %s unrecognized", val); else PrivacyFlags |= pv->pv_flag; } sticky = false; break; case 'P': /* postmaster copy address for returned mail */ PostMasterCopy = newstr(val); break; case 'q': /* slope of queue only function */ QueueFactor = atoi(val); break; case 'Q': /* queue directory */ if (val[0] == '\0') { QueueDir = "mqueue"; } else { QueueDir = newstr(val); } if (RealUid != 0 && !safe) Warn_Q_option = true; break; case 'R': /* don't prune routes */ DontPruneRoutes = atobool(val); break; case 'r': /* read timeout */ if (subopt == NULL) inittimeouts(val, sticky); else settimeout(subopt, val, sticky); break; case 'S': /* status file */ if (val[0] == '\0') { SET_OPT_DEFAULT(StatFile, "statistics"); } else { CANONIFY(val); StatFile = newstr(val); } break; case 's': /* be super safe, even if expensive */ if (tolower(*val) == 'i') SuperSafe = SAFE_INTERACTIVE; else if (tolower(*val) == 'p') #if MILTER SuperSafe = SAFE_REALLY_POSTMILTER; #else /* MILTER */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: SuperSafe=PostMilter requires Milter support (-DMILTER)\n"); #endif /* MILTER */ else SuperSafe = atobool(val) ? SAFE_REALLY : SAFE_NO; break; case 'T': /* queue timeout */ p = strchr(val, '/'); if (p != NULL) { *p++ = '\0'; settimeout("queuewarn", p, sticky); } settimeout("queuereturn", val, sticky); break; case 't': /* time zone name */ TimeZoneSpec = newstr(val); break; case 'U': /* location of user database */ UdbSpec = newstr(val); break; case 'u': /* set default uid */ for (p = val; *p != '\0'; p++) { #if _FFR_DOTTED_USERNAMES if (*p == '/' || *p == ':') #else if (*p == '.' || *p == '/' || *p == ':') #endif { *p++ = '\0'; break; } } if (isascii(*val) && isdigit(*val)) { DefUid = atoi(val); setdefuser(); } else { register struct passwd *pw; DefUid = -1; pw = sm_getpwnam(val); if (pw == NULL) { syserr("readcf: option u: unknown user %s", val); break; } else { DefUid = pw->pw_uid; DefGid = pw->pw_gid; DefUser = newstr(pw->pw_name); } } #ifdef UID_MAX if (DefUid > UID_MAX) { syserr("readcf: option u: uid value (%ld) > UID_MAX (%ld); ignored", (long)DefUid, (long)UID_MAX); break; } #endif /* UID_MAX */ /* handle the group if it is there */ if (*p == '\0') break; val = p; goto g_opt; case 'V': /* fallback MX host */ if (val[0] != '\0') FallbackMX = newstr(val); break; case 'v': /* run in verbose mode */ Verbose = atobool(val) ? 1 : 0; break; case 'w': /* if we are best MX, try host directly */ TryNullMXList = atobool(val); break; /* 'W' available -- was wizard password */ case 'x': /* load avg at which to auto-queue msgs */ QueueLA = atoi(val); break; case 'X': /* load avg at which to auto-reject connections */ RefuseLA = atoi(val); break; case O_DELAY_LA: /* load avg at which to delay connections */ DelayLA = atoi(val); break; case 'y': /* work recipient factor */ WkRecipFact = atoi(val); break; case 'Y': /* fork jobs during queue runs */ ForkQueueRuns = atobool(val); break; case 'z': /* work message class factor */ WkClassFact = atoi(val); break; case 'Z': /* work time factor */ WkTimeFact = atoi(val); break; #if _FFR_QUEUE_GROUP_SORTORDER /* coordinate this with makequeue() */ #endif case O_QUEUESORTORD: /* queue sorting order */ switch (*val) { case 'f': /* File Name */ case 'F': QueueSortOrder = QSO_BYFILENAME; break; case 'h': /* Host first */ case 'H': QueueSortOrder = QSO_BYHOST; break; case 'm': /* Modification time */ case 'M': QueueSortOrder = QSO_BYMODTIME; break; case 'p': /* Priority order */ case 'P': QueueSortOrder = QSO_BYPRIORITY; break; case 't': /* Submission time */ case 'T': QueueSortOrder = QSO_BYTIME; break; case 'r': /* Random */ case 'R': QueueSortOrder = QSO_RANDOM; break; #if _FFR_RHS case 's': /* Shuffled host name */ case 'S': QueueSortOrder = QSO_BYSHUFFLE; break; #endif /* _FFR_RHS */ case 'n': /* none */ case 'N': QueueSortOrder = QSO_NONE; break; default: syserr("Invalid queue sort order \"%s\"", val); } break; case O_HOSTSFILE: /* pathname of /etc/hosts file */ CANONIFY(val); HostsFile = newstr(val); break; case O_MQA: /* minimum queue age between deliveries */ MinQueueAge = convtime(val, 'm'); break; case O_MAX_QUEUE_AGE: MaxQueueAge = convtime(val, 'm'); break; case O_DEFCHARSET: /* default character set for mimefying */ DefaultCharSet = newstr(denlstring(val, true, true)); break; case O_SSFILE: /* service switch file */ CANONIFY(val); ServiceSwitchFile = newstr(val); break; case O_DIALDELAY: /* delay for dial-on-demand operation */ DialDelay = convtime(val, 's'); break; case O_NORCPTACTION: /* what to do if no recipient */ if (SM_STRCASEEQ(val, "none")) NoRecipientAction = NRA_NO_ACTION; else if (SM_STRCASEEQ(val, "add-to")) NoRecipientAction = NRA_ADD_TO; else if (SM_STRCASEEQ(val, "add-apparently-to")) NoRecipientAction = NRA_ADD_APPARENTLY_TO; else if (SM_STRCASEEQ(val, "add-bcc")) NoRecipientAction = NRA_ADD_BCC; else if (SM_STRCASEEQ(val, "add-to-undisclosed")) NoRecipientAction = NRA_ADD_TO_UNDISCLOSED; else syserr("Invalid NoRecipientAction: %s", val); break; case O_SAFEFILEENV: /* chroot() environ for writing to files */ if (*val == '\0') break; /* strip trailing slashes */ p = val + strlen(val) - 1; while (p >= val && *p == '/') *p-- = '\0'; if (*val == '\0') break; SafeFileEnv = newstr(val); break; case O_MAXMSGSIZE: /* maximum message size */ MaxMessageSize = atol(val); break; case O_COLONOKINADDR: /* old style handling of colon addresses */ ColonOkInAddr = atobool(val); break; case O_MAXQUEUERUN: /* max # of jobs in a single queue run */ MaxQueueRun = atoi(val); break; case O_MAXCHILDREN: /* max # of children of daemon */ MaxChildren = atoi(val); break; case O_MAXQUEUECHILDREN: /* max # of children of daemon */ MaxQueueChildren = atoi(val); break; case O_MAXRUNNERSPERQUEUE: /* max # runners in a queue group */ MaxRunnersPerQueue = atoi(val); break; case O_NICEQUEUERUN: /* nice queue runs */ #if !HASNICE (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: NiceQueueRun set on system that doesn't support nice()\n"); #endif /* XXX do we want to check the range? > 0 ? */ NiceQueueRun = atoi(val); break; case O_SHMKEY: /* shared memory key */ #if SM_CONF_SHM ShmKey = atol(val); #else /* SM_CONF_SHM */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s requires shared memory support (-DSM_CONF_SHM)\n", OPTNAME); #endif /* SM_CONF_SHM */ break; case O_SHMKEYFILE: /* shared memory key file */ #if SM_CONF_SHM SET_STRING_EXP(ShmKeyFile); #else /* SM_CONF_SHM */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s requires shared memory support (-DSM_CONF_SHM)\n", OPTNAME); break; #endif /* SM_CONF_SHM */ #if _FFR_MAX_FORWARD_ENTRIES case O_MAXFORWARD: /* max # of forward entries */ MaxForwardEntries = atoi(val); break; #endif case O_KEEPCNAMES: /* don't expand CNAME records */ DontExpandCnames = atobool(val); break; case O_MUSTQUOTE: /* must quote these characters in phrases */ (void) sm_strlcpy(buf, "@,;:\\()[]", sizeof(buf)); if (strlen(val) < sizeof(buf) - 10) (void) sm_strlcat(buf, val, sizeof(buf)); else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: MustQuoteChars too long, ignored.\n"); MustQuoteChars = newstr(buf); break; case O_SMTPGREETING: /* SMTP greeting message (old $e macro) */ SmtpGreeting = newstr(munchstring(val, NULL, '\0')); break; case O_UNIXFROM: /* UNIX From_ line (old $l macro) */ UnixFromLine = newstr(munchstring(val, NULL, '\0')); break; case O_OPCHARS: /* operator characters (old $o macro) */ if (OperatorChars != NULL) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: OperatorChars is being redefined.\n It should only be set before ruleset definitions.\n"); OperatorChars = newstr(munchstring(val, NULL, '\0')); break; case O_DONTINITGRPS: /* don't call initgroups(3) */ DontInitGroups = atobool(val); break; case O_SLFH: /* make sure from fits on one line */ SingleLineFromHeader = atobool(val); break; case O_ABH: /* allow HELO commands with syntax errors */ AllowBogusHELO = atobool(val); break; case O_CONNTHROT: /* connection rate throttle */ ConnRateThrottle = atoi(val); break; case O_UGW: /* group writable files are unsafe */ if (!atobool(val)) { setbitn(DBS_GROUPWRITABLEFORWARDFILESAFE, DontBlameSendmail); setbitn(DBS_GROUPWRITABLEINCLUDEFILESAFE, DontBlameSendmail); } break; case O_DBLBOUNCE: /* address to which to send double bounces */ DoubleBounceAddr = newstr(val); break; case O_HSDIR: /* persistent host status directory */ if (val[0] != '\0') { CANONIFY(val); HostStatDir = newstr(val); } break; case O_SINGTHREAD: /* single thread deliveries (requires hsdir) */ SingleThreadDelivery = atobool(val); break; case O_RUNASUSER: /* run bulk of code as this user */ for (p = val; *p != '\0'; p++) { #if _FFR_DOTTED_USERNAMES if (*p == '/' || *p == ':') #else if (*p == '.' || *p == '/' || *p == ':') #endif { *p++ = '\0'; break; } } if (isascii(*val) && isdigit(*val)) { if (can_setuid) RunAsUid = atoi(val); } else { register struct passwd *pw; pw = sm_getpwnam(val); if (pw == NULL) { syserr("readcf: option RunAsUser: unknown user %s", val); break; } else if (can_setuid) { if (*p == '\0') RunAsUserName = newstr(val); RunAsUid = pw->pw_uid; RunAsGid = pw->pw_gid; } else if (EffGid == pw->pw_gid) RunAsGid = pw->pw_gid; else if (UseMSP && *p == '\0') (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "WARNING: RunAsUser for MSP ignored, check group ids (egid=%ld, want=%ld)\n", (long) EffGid, (long) pw->pw_gid); } #ifdef UID_MAX if (RunAsUid > UID_MAX) { syserr("readcf: option RunAsUser: uid value (%ld) > UID_MAX (%ld); ignored", (long) RunAsUid, (long) UID_MAX); break; } #endif /* UID_MAX */ if (*p != '\0') { if (isascii(*p) && isdigit(*p)) { gid_t runasgid; runasgid = (gid_t) atoi(p); if (can_setuid || EffGid == runasgid) RunAsGid = runasgid; else if (UseMSP) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "WARNING: RunAsUser for MSP ignored, check group ids (egid=%ld, want=%ld)\n", (long) EffGid, (long) runasgid); } else { register struct group *gr; gr = getgrnam(p); if (gr == NULL) syserr("readcf: option RunAsUser: unknown group %s", p); else if (can_setuid || EffGid == gr->gr_gid) RunAsGid = gr->gr_gid; else if (UseMSP) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "WARNING: RunAsUser for MSP ignored, check group ids (egid=%ld, want=%ld)\n", (long) EffGid, (long) gr->gr_gid); } } if (tTd(47, 5)) sm_dprintf("readcf: RunAsUser = %d:%d\n", (int) RunAsUid, (int) RunAsGid); break; case O_DSN_RRT: RrtImpliesDsn = atobool(val); break; case O_PIDFILE: PSTRSET(PidFile, val); break; case O_DONTBLAMESENDMAIL: p = val; for (;;) { register struct dbsval *dbs; extern struct dbsval DontBlameSendmailValues[]; while (isascii(*p) && (isspace(*p) || ispunct(*p))) p++; if (*p == '\0') break; val = p; while (isascii(*p) && isalnum(*p)) p++; if (*p != '\0') *p++ = '\0'; for (dbs = DontBlameSendmailValues; dbs->dbs_name != NULL; dbs++) { if (SM_STRCASEEQ(val, dbs->dbs_name)) break; } if (dbs->dbs_name == NULL) syserr("readcf: DontBlameSendmail option: %s unrecognized", val); else if (dbs->dbs_flag == DBS_SAFE) clrbitmap(DontBlameSendmail); else setbitn(dbs->dbs_flag, DontBlameSendmail); } sticky = false; break; case O_DPI: if (SM_STRCASEEQ(val, "loopback")) DontProbeInterfaces = DPI_SKIPLOOPBACK; else if (atobool(val)) DontProbeInterfaces = DPI_PROBENONE; else DontProbeInterfaces = DPI_PROBEALL; break; case O_MAXRCPT: MaxRcptPerMsg = atoi(val); break; case O_RCPTTHROT: BadRcptThrottle = atoi(val); break; #if _FFR_RCPTTHROTDELAY case O_RCPTTHROTDELAY: BadRcptThrottleDelay = atoi(val); break; #endif case O_DEADLETTER: CANONIFY(val); PSTRSET(DeadLetterDrop, val); break; #if _FFR_DONTLOCKFILESFORREAD_OPTION case O_DONTLOCK: DontLockReadFiles = atobool(val); break; #endif case O_MAXALIASRCSN: MaxAliasRecursion = atoi(val); break; case O_CNCTONLYTO: /* XXX should probably use gethostbyname */ #if NETINET || NETINET6 i = 0; if ((subopt = strchr(val, '@')) != NULL) { *subopt = '\0'; i = (int) strtoul(val, NULL, 0); /* stricter checks? probably not useful. */ if (i > USHRT_MAX) { syserr("readcf: option ConnectOnlyTo: invalid port %s", val); break; } val = subopt + 1; } ConnectOnlyTo.sa.sa_family = AF_UNSPEC; # if NETINET6 if (anynet_pton(AF_INET6, val, &ConnectOnlyTo.sin6.sin6_addr) == 1) { ConnectOnlyTo.sa.sa_family = AF_INET6; if (i != 0) ConnectOnlyTo.sin6.sin6_port = htons(i); } else # endif /* NETINET6 */ # if NETINET { ConnectOnlyTo.sin.sin_addr.s_addr = inet_addr(val); if (ConnectOnlyTo.sin.sin_addr.s_addr != INADDR_NONE) ConnectOnlyTo.sa.sa_family = AF_INET; if (i != 0) ConnectOnlyTo.sin.sin_port = htons(i); } # endif /* NETINET */ if (ConnectOnlyTo.sa.sa_family == AF_UNSPEC) { syserr("readcf: option ConnectOnlyTo: invalid IP address %s", val); break; } #endif /* NETINET || NETINET6 */ break; case O_TRUSTUSER: #if !HASFCHOWN && !defined(_FFR_DROP_TRUSTUSER_WARNING) if (!UseMSP) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "readcf: option TrustedUser may cause problems on systems\n which do not support fchown() if UseMSP is not set.\n"); #endif /* !HASFCHOWN && !defined(_FFR_DROP_TRUSTUSER_WARNING) */ if (isascii(*val) && isdigit(*val)) TrustedUid = atoi(val); else { register struct passwd *pw; TrustedUid = 0; pw = sm_getpwnam(val); if (pw == NULL) { syserr("readcf: option TrustedUser: unknown user %s", val); break; } else TrustedUid = pw->pw_uid; } #ifdef UID_MAX if (TrustedUid > UID_MAX) { syserr("readcf: option TrustedUser: uid value (%ld) > UID_MAX (%ld)", (long) TrustedUid, (long) UID_MAX); TrustedUid = 0; } #endif /* UID_MAX */ break; case O_MAXMIMEHDRLEN: p = strchr(val, '/'); if (p != NULL) *p++ = '\0'; MaxMimeHeaderLength = atoi(val); if (p != NULL && *p != '\0') MaxMimeFieldLength = atoi(p); else MaxMimeFieldLength = MaxMimeHeaderLength / 2; if (MaxMimeHeaderLength <= 0) MaxMimeHeaderLength = 0; else if (MaxMimeHeaderLength < 128) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: MaxMimeHeaderLength: header length limit set lower than 128\n"); if (MaxMimeFieldLength <= 0) MaxMimeFieldLength = 0; else if (MaxMimeFieldLength < 40) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: MaxMimeHeaderLength: field length limit set lower than 40\n"); /* ** Headers field values now include leading space, so let's ** adjust the values to be "backward compatible". */ if (MaxMimeHeaderLength > 0) MaxMimeHeaderLength++; if (MaxMimeFieldLength > 0) MaxMimeFieldLength++; break; case O_CONTROLSOCKET: PSTRSET(ControlSocketName, val); break; case O_MAXHDRSLEN: MaxHeadersLength = atoi(val); if (MaxHeadersLength > 0 && MaxHeadersLength < (MAXHDRSLEN / 2)) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: MaxHeadersLength: headers length limit set lower than %d\n", (MAXHDRSLEN / 2)); break; case O_PROCTITLEPREFIX: PSTRSET(ProcTitlePrefix, val); break; #if SASL case O_SASLINFO: # if _FFR_ALLOW_SASLINFO /* ** Allow users to select their own authinfo file ** under certain circumstances, otherwise just ignore ** the option. If the option isn't ignored, several ** commands don't work very well, e.g., mailq. ** However, this is not a "perfect" solution. ** If mail is queued, the authentication info ** will not be used in subsequent delivery attempts. ** If we really want to support this, then it has ** to be stored in the queue file. */ if (!bitset(SUBMIT_MSA, SubmitMode) && RealUid != 0 && RunAsUid != RealUid) break; # endif /* _FFR_ALLOW_SASLINFO */ PSTRSET(SASLInfo, val); break; case O_SASLMECH: if (AuthMechanisms != NULL) sm_free(AuthMechanisms); /* XXX */ if (*val != '\0') AuthMechanisms = newstr(val); else AuthMechanisms = NULL; break; case O_SASLREALM: if (AuthRealm != NULL) sm_free(AuthRealm); if (*val != '\0') AuthRealm = newstr(val); else AuthRealm = NULL; break; case O_SASLOPTS: while (val != NULL && *val != '\0') { switch (*val) { case 'A': SASLOpts |= SASL_AUTH_AUTH; break; case 'a': SASLOpts |= SASL_SEC_NOACTIVE; break; case 'c': SASLOpts |= SASL_SEC_PASS_CREDENTIALS; break; case 'd': SASLOpts |= SASL_SEC_NODICTIONARY; break; case 'f': SASLOpts |= SASL_SEC_FORWARD_SECRECY; break; # if SASL >= 20101 case 'm': SASLOpts |= SASL_SEC_MUTUAL_AUTH; break; # endif /* SASL >= 20101 */ case 'p': SASLOpts |= SASL_SEC_NOPLAINTEXT; break; case 'y': SASLOpts |= SASL_SEC_NOANONYMOUS; break; case ' ': /* ignore */ case '\t': /* ignore */ case ',': /* ignore */ break; default: (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s unknown parameter '%c'\n", OPTNAME, (isascii(*val) && isprint(*val)) ? *val : '?'); break; } ++val; val = strpbrk(val, ", \t"); if (val != NULL) ++val; } break; case O_SASLBITS: MaxSLBits = atoi(val); break; #else /* SASL */ case O_SASLINFO: case O_SASLMECH: case O_SASLREALM: case O_SASLOPTS: case O_SASLBITS: (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s requires SASL support (-DSASL)\n", OPTNAME); break; #endif /* SASL */ #if STARTTLS case O_TLSFB2CLEAR: TLSFallbacktoClear = atobool(val); break; case O_SRVCERTFILE: SET_STRING_EXP(SrvCertFile); case O_SRVKEYFILE: SET_STRING_EXP(SrvKeyFile); case O_CLTCERTFILE: SET_STRING_EXP(CltCertFile); case O_CLTKEYFILE: SET_STRING_EXP(CltKeyFile); case O_CACERTFILE: SET_STRING_EXP(CACertFile); case O_CACERTPATH: SET_STRING_EXP(CACertPath); # if _FFR_CLIENTCA case O_CLTCACERTFILE: SET_STRING_EXP(CltCACertFile); case O_CLTCACERTPATH: SET_STRING_EXP(CltCACertPath); # endif case O_DHPARAMS: SET_STRING_EXP(DHParams); case O_CIPHERLIST: SET_STRING_EXP(CipherList); # if MTA_HAVE_TLSv1_3 case O_CIPHERSUITES: SET_STRING_EXP(CipherSuites); # endif case O_DIG_ALG: SET_STRING_EXP(CertFingerprintAlgorithm); # if !defined(OPENSSL_NO_ENGINE) case O_SSLENGINEPATH: SET_STRING_EXP(SSLEnginePath); case O_SSLENGINE: newval = sm_pstrdup_x(val); if (SSLEngine != NULL) sm_free(SSLEngine); SSLEngine = newval; /* ** Which engines need to be initialized before fork()? ** XXX hack, should be an option? */ if (strcmp(SSLEngine, "chil") == 0) SSLEngineprefork = true; break; # else /* !defined(OPENSSL_NO_ENGINE) */ case O_SSLENGINEPATH: case O_SSLENGINE: (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s ignored -- not supported: OPENSSL_NO_ENGINE\n", OPTNAME); /* XXX fail? */ break; # endif /* !defined(OPENSSL_NO_ENGINE) */ case O_SRV_SSL_OPTIONS: pssloptions = &Srv_SSL_Options; case O_CLT_SSL_OPTIONS: if (pssloptions == NULL) pssloptions = &Clt_SSL_Options; (void) readssloptions(o->o_name, val, pssloptions, '\0'); if (tTd(37, 8)) sm_dprintf("ssloptions=%#lx\n", *pssloptions); pssloptions = NULL; break; case O_CRLFILE: SET_STRING_EXP(CRLFile); break; case O_CRLPATH: SET_STRING_EXP(CRLPath); break; /* ** XXX How about options per daemon/client instead of globally? ** This doesn't work well for some options, e.g., no server cert, ** but fine for others. ** ** XXX Some people may want different certs per server. ** ** See also srvfeatures() */ case O_TLS_SRV_OPTS: while (val != NULL && *val != '\0') { switch (*val) { case 'V': TLS_Srv_Opts |= TLS_I_NO_VRFY; break; /* ** Server without a cert? That works only if ** AnonDH is enabled as cipher, which is not in the ** default list. Hence the CipherList option must ** be available. Moreover: which clients support this ** besides sendmail with this setting? */ case 'C': TLS_Srv_Opts &= ~TLS_I_SRV_CERT; break; case ' ': /* ignore */ case '\t': /* ignore */ case ',': /* ignore */ break; default: (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s unknown parameter '%c'\n", OPTNAME, (isascii(*val) && isprint(*val)) ? *val : '?'); break; } ++val; val = strpbrk(val, ", \t"); if (val != NULL) ++val; } break; case O_RANDFILE: PSTRSET(RandFile, val); break; #else /* STARTTLS */ case O_SRVCERTFILE: case O_SRVKEYFILE: case O_CLTCERTFILE: case O_CLTKEYFILE: case O_CACERTFILE: case O_CACERTPATH: # if _FFR_CLIENTCA case O_CLTCACERTFILE: case O_CLTCACERTPATH: # endif case O_DHPARAMS: case O_SRV_SSL_OPTIONS: case O_CLT_SSL_OPTIONS: case O_CIPHERLIST: case O_DIG_ALG: case O_CRLFILE: case O_CRLPATH: case O_RANDFILE: (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s requires TLS support\n", OPTNAME); break; #endif /* STARTTLS */ #if STARTTLS && _FFR_FIPSMODE case O_FIPSMODE: FipsMode = atobool(val); break; #endif case O_CLIENTPORT: setclientoptions(val); break; case O_DF_BUFSIZE: DataFileBufferSize = atoi(val); break; case O_XF_BUFSIZE: XscriptFileBufferSize = atoi(val); break; case O_LDAPDEFAULTSPEC: #if LDAPMAP ldapmap_set_defaults(val); #else /* LDAPMAP */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s requires LDAP support (-DLDAPMAP)\n", OPTNAME); #endif /* LDAPMAP */ break; case O_INPUTMILTER: #if MILTER InputFilterList = newstr(val); #else /* MILTER */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s requires Milter support (-DMILTER)\n", OPTNAME); #endif /* MILTER */ break; case O_MILTER: #if MILTER milter_set_option(subopt, val, sticky); #else /* MILTER */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s requires Milter support (-DMILTER)\n", OPTNAME); #endif /* MILTER */ break; case O_QUEUE_FILE_MODE: /* queue file mode */ QueueFileMode = atooct(val) & 0777; break; case O_DLVR_MIN: /* deliver by minimum time */ DeliverByMin = convtime(val, 's'); break; /* modifiers {daemon_flags} for direct submissions */ case O_DIRECTSUBMODIFIERS: { BITMAP256 m; /* ignored */ extern ENVELOPE BlankEnvelope; macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_flags}"), getmodifiers(val, m)); } break; case O_FASTSPLIT: FastSplit = atoi(val); break; case O_MBDB: Mbdb = newstr(val); break; case O_MSQ: UseMSP = atobool(val); break; case O_SOFTBOUNCE: SoftBounce = atobool(val); break; case O_REJECTLOGINTERVAL: /* time btwn log msgs while refusing */ RejectLogInterval = convtime(val, 'h'); break; case O_REQUIRES_DIR_FSYNC: #if REQUIRES_DIR_FSYNC RequiresDirfsync = atobool(val); #else /* silently ignored... required for cf file option */ #endif break; case O_CONNECTION_RATE_WINDOW_SIZE: ConnectionRateWindowSize = convtime(val, 's'); break; case O_FALLBACKSMARTHOST: /* fallback smart host */ if (val[0] != '\0') FallbackSmartHost = newstr(val); break; case O_HELONAME: HeloName = newstr(val); break; #if _FFR_MEMSTAT case O_REFUSELOWMEM: RefuseLowMem = atoi(val); break; case O_QUEUELOWMEM: QueueLowMem = atoi(val); break; case O_MEMRESOURCE: MemoryResource = newstr(val); break; #endif /* _FFR_MEMSTAT */ case O_MAXNOOPCOMMANDS: MaxNOOPCommands = atoi(val); break; #if _FFR_MSG_ACCEPT case O_MSG_ACCEPT: MessageAccept = newstr(val); break; #endif #if _FFR_QUEUE_RUN_PARANOIA case O_CHK_Q_RUNNERS: CheckQueueRunners = atoi(val); break; #endif #if _FFR_EIGHT_BIT_ADDR_OK case O_EIGHT_BIT_ADDR_OK: EightBitAddrOK = atobool(val); break; #endif #if _FFR_ADDR_TYPE_MODES case O_ADDR_TYPE_MODES: AddrTypeModes = atobool(val); break; #endif #if _FFR_BADRCPT_SHUTDOWN case O_RCPTSHUTD: BadRcptShutdown = atoi(val); break; case O_RCPTSHUTDG: BadRcptShutdownGood = atoi(val); break; #endif /* _FFR_BADRCPT_SHUTDOWN */ #if _FFR_REJECT_NUL_BYTE case O_REJECTNUL: RejectNUL = atobool(val); break; #endif #if _FFR_BOUNCE_QUEUE case O_BOUNCEQUEUE: bouncequeue = newstr(val); break; #endif #if _FFR_ADD_BCC case O_ADDBCC: AddBcc = atobool(val); break; #endif case O_USECOMPRESSEDIPV6ADDRESSES: UseCompressedIPv6Addresses = atobool(val); break; #if DNSSEC_TEST || _FFR_NAMESERVER case O_NSPORTIP: nsportip(val); break; case O_NSSRCHLIST: NameSearchList = sm_strdup(val); break; #endif #if DANE case O_DANE: if (SM_STRCASEEQ(val, "always")) Dane = DANE_ALWAYS; else Dane = atobool(val) ? DANE_SECURE : DANE_NEVER; break; #endif #if _FFR_BLANKENV_MACV case O_HACKS: Hacks = (int) strtol(val, NULL, 0); break; #endif #if _FFR_KEEPBCC case O_KEEPBCC: KeepBcc = atobool(val); break; #endif #if _FFR_TLS_ALTNAMES case O_CHECKALTNAMES: SetCertAltnames = atobool(val); break; #endif case O_SMTPUTF8: #if USE_EAI /* hack for testing */ if (isascii(*val) && isdigit(*val)) SMTP_UTF8 = (int) strtol(val, NULL, 0); else SMTP_UTF8 = atobool(val); #else if (atobool(val)) syserr("readcf: option: %s set but no USE_EAI support", OPTNAME); else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Option: %s requires USE_EAI support\n", OPTNAME); #endif break; #if _FFR_MTA_STS case O_MTASTS: MTASTS = atobool(val); break; #endif default: if (tTd(37, 1)) { if (isascii(opt) && isprint(opt)) sm_dprintf("Warning: option %c unknown\n", opt); else sm_dprintf("Warning: option 0x%x unknown\n", opt); } break; } /* ** Options with suboptions are responsible for taking care ** of sticky-ness (e.g., that a command line setting is kept ** when reading in the sendmail.cf file). This has to be done ** when the suboptions are parsed since each suboption must be ** sticky, not the root option. */ if (sticky && !bitset(OI_SUBOPT, o->o_flags)) setbitn(opt, StickyOpt); } /* ** SETCLASS -- set a string into a class ** ** Parameters: ** class -- the class to put the string in. ** str -- the string to enter ** ** Returns: ** none. ** ** Side Effects: ** puts the word into the symbol table. */ void setclass(class, str) int class; char *str; { register STAB *s; if ((str[0] & 0377) == MATCHCLASS) { int mid; str++; mid = macid(str); if (mid == 0) return; if (tTd(37, 8)) sm_dprintf("setclass(%s, $=%s)\n", macname(class), macname(mid)); copy_class(mid, class); } else { if (tTd(37, 8)) sm_dprintf("setclass(%s, %s)\n", macname(class), str); s = stab(str, ST_CLASS, ST_ENTER); setbitn(bitidx(class), s->s_class); } } #if _FFR_CLASS_RM_ENTRY /* ** CLASSRMENTRY -- remove a string from a class ** ** Parameters: ** class -- the class from which to remove the string. ** str -- the string to remove ** ** Returns: ** none. ** ** Side Effects: ** removes the string from the class (if it was in there). */ static void classrmentry(class, str) int class; char *str; { STAB *s; s = stab(str, ST_CLASS, ST_FIND); if (NULL == s /* || ST_CLASS != s->s_symtype */) { if (tTd(37, 8)) sm_dprintf("classrmentry: entry=%s not in class %s\n", str, macname(class)); return; } clrbitn(bitidx(class), s->s_class); if (tTd(37, 8)) sm_dprintf("classrmentry(%s, %s)=%d\n", macname(class), str, bitnset(bitidx(class), s->s_class)); } #endif /* _FFR_CLASS_RM_ENTRY */ /* ** MAKEMAPENTRY -- create a map entry ** ** Parameters: ** line -- the config file line ** ** Returns: ** A pointer to the map that has been created. ** NULL if there was a syntax error. ** ** Side Effects: ** Enters the map into the dictionary. */ MAP * makemapentry(line) char *line; { register char *p; char *mapname; char *classname; register STAB *s; STAB *class; for (p = line; SM_ISSPACE(*p); p++) continue; if (!(isascii(*p) && isalnum(*p))) { syserr("readcf: config K line: no map name"); return NULL; } mapname = p; while ((isascii(*++p) && isalnum(*p)) || *p == '_' || *p == '.') continue; if (*p != '\0') *p++ = '\0'; while (SM_ISSPACE(*p)) p++; if (!(isascii(*p) && isalnum(*p))) { syserr("readcf: config K line, map %s: no map class", mapname); return NULL; } classname = p; while (isascii(*++p) && isalnum(*p)) continue; if (*p != '\0') *p++ = '\0'; while (SM_ISSPACE(*p)) p++; /* look up the class */ class = stab(classname, ST_MAPCLASS, ST_FIND); if (class == NULL) { syserr("readcf: map %s: class %s not available", mapname, classname); return NULL; } /* enter the map */ s = stab(mapname, ST_MAP, ST_ENTER); s->s_map.map_class = &class->s_mapclass; s->s_map.map_mname = newstr(mapname); if (class->s_mapclass.map_parse(&s->s_map, p)) s->s_map.map_mflags |= MF_VALID; if (tTd(37, 5)) { sm_dprintf("map %s, class %s, flags %lx, file %s,\n", s->s_map.map_mname, s->s_map.map_class->map_cname, s->s_map.map_mflags, s->s_map.map_file); sm_dprintf("\tapp %s, domain %s, rebuild %s\n", s->s_map.map_app, s->s_map.map_domain, s->s_map.map_rebuild); } return &s->s_map; } /* ** STRTORWSET -- convert string to rewriting set number ** ** Parameters: ** p -- the pointer to the string to decode. ** endp -- if set, store the trailing delimiter here. ** stabmode -- ST_ENTER to create this entry, ST_FIND if ** it must already exist. ** ** Returns: ** The appropriate ruleset number. ** -1 if it is not valid (error already printed) */ int strtorwset(p, endp, stabmode) char *p; char **endp; int stabmode; { int ruleset; static int nextruleset = MAXRWSETS; while (SM_ISSPACE(*p)) p++; if (!isascii(*p)) { syserr("invalid ruleset name: \"%.20s\"", p); return -1; } if (isdigit(*p)) { ruleset = strtol(p, endp, 10); if (ruleset >= MAXRWSETS / 2 || ruleset < 0) { syserr("bad ruleset %d (%d max)", ruleset, MAXRWSETS / 2); ruleset = -1; } } else { STAB *s; char delim; char *q = NULL; q = p; while (*p != '\0' && isascii(*p) && (isalnum(*p) || *p == '_')) p++; if (q == p || !(isascii(*q) && isalpha(*q))) { /* no valid characters */ syserr("invalid ruleset name: \"%.20s\"", q); return -1; } while (SM_ISSPACE(*p)) *p++ = '\0'; delim = *p; if (delim != '\0') *p = '\0'; s = stab(q, ST_RULESET, stabmode); if (delim != '\0') *p = delim; if (s == NULL) return -1; if (stabmode == ST_ENTER && delim == '=') { while (isascii(*++p) && isspace(*p)) continue; if (!(isascii(*p) && isdigit(*p))) { syserr("bad ruleset definition \"%s\" (number required after `=')", q); ruleset = -1; } else { ruleset = strtol(p, endp, 10); if (ruleset >= MAXRWSETS / 2 || ruleset < 0) { syserr("bad ruleset number %d in \"%s\" (%d max)", ruleset, q, MAXRWSETS / 2); ruleset = -1; } } } else { if (endp != NULL) *endp = p; if (s->s_ruleset >= 0) ruleset = s->s_ruleset; else if ((ruleset = --nextruleset) < MAXRWSETS / 2) { syserr("%s: too many named rulesets (%d max)", q, MAXRWSETS / 2); ruleset = -1; } } if (s->s_ruleset >= 0 && ruleset >= 0 && ruleset != s->s_ruleset) { syserr("%s: ruleset changed value (old %d, new %d)", q, s->s_ruleset, ruleset); ruleset = s->s_ruleset; } else if (ruleset >= 0) { s->s_ruleset = ruleset; } if (stabmode == ST_ENTER && ruleset >= 0) { char *h = NULL; if (RuleSetNames[ruleset] != NULL) sm_free(RuleSetNames[ruleset]); /* XXX */ if (delim != '\0' && (h = strchr(q, delim)) != NULL) *h = '\0'; RuleSetNames[ruleset] = newstr(q); if (delim == '/' && h != NULL) *h = delim; /* put back delim */ } } return ruleset; } /* ** SETTIMEOUT -- set an individual timeout ** ** Parameters: ** name -- the name of the timeout. ** val -- the value of the timeout. ** sticky -- if set, don't let other setoptions override ** this value. ** ** Returns: ** none. */ /* set if Timeout sub-option is stuck */ static BITMAP256 StickyTimeoutOpt; static struct timeoutinfo { char *to_name; /* long name of timeout */ unsigned char to_code; /* code for option */ } TimeOutTab[] = { #define TO_INITIAL 0x01 { "initial", TO_INITIAL }, #define TO_MAIL 0x02 { "mail", TO_MAIL }, #define TO_RCPT 0x03 { "rcpt", TO_RCPT }, #define TO_DATAINIT 0x04 { "datainit", TO_DATAINIT }, #define TO_DATABLOCK 0x05 { "datablock", TO_DATABLOCK }, #define TO_DATAFINAL 0x06 { "datafinal", TO_DATAFINAL }, #define TO_COMMAND 0x07 { "command", TO_COMMAND }, #define TO_RSET 0x08 { "rset", TO_RSET }, #define TO_HELO 0x09 { "helo", TO_HELO }, #define TO_QUIT 0x0A { "quit", TO_QUIT }, #define TO_MISC 0x0B { "misc", TO_MISC }, #define TO_IDENT 0x0C { "ident", TO_IDENT }, #define TO_FILEOPEN 0x0D { "fileopen", TO_FILEOPEN }, #define TO_CONNECT 0x0E { "connect", TO_CONNECT }, #define TO_ICONNECT 0x0F { "iconnect", TO_ICONNECT }, #define TO_QUEUEWARN 0x10 { "queuewarn", TO_QUEUEWARN }, { "queuewarn.*", TO_QUEUEWARN }, #define TO_QUEUEWARN_NORMAL 0x11 { "queuewarn.normal", TO_QUEUEWARN_NORMAL }, #define TO_QUEUEWARN_URGENT 0x12 { "queuewarn.urgent", TO_QUEUEWARN_URGENT }, #define TO_QUEUEWARN_NON_URGENT 0x13 { "queuewarn.non-urgent", TO_QUEUEWARN_NON_URGENT }, #define TO_QUEUERETURN 0x14 { "queuereturn", TO_QUEUERETURN }, { "queuereturn.*", TO_QUEUERETURN }, #define TO_QUEUERETURN_NORMAL 0x15 { "queuereturn.normal", TO_QUEUERETURN_NORMAL }, #define TO_QUEUERETURN_URGENT 0x16 { "queuereturn.urgent", TO_QUEUERETURN_URGENT }, #define TO_QUEUERETURN_NON_URGENT 0x17 { "queuereturn.non-urgent", TO_QUEUERETURN_NON_URGENT }, #define TO_HOSTSTATUS 0x18 { "hoststatus", TO_HOSTSTATUS }, #define TO_RESOLVER_RETRANS 0x19 { "resolver.retrans", TO_RESOLVER_RETRANS }, #define TO_RESOLVER_RETRANS_NORMAL 0x1A { "resolver.retrans.normal", TO_RESOLVER_RETRANS_NORMAL }, #define TO_RESOLVER_RETRANS_FIRST 0x1B { "resolver.retrans.first", TO_RESOLVER_RETRANS_FIRST }, #define TO_RESOLVER_RETRY 0x1C { "resolver.retry", TO_RESOLVER_RETRY }, #define TO_RESOLVER_RETRY_NORMAL 0x1D { "resolver.retry.normal", TO_RESOLVER_RETRY_NORMAL }, #define TO_RESOLVER_RETRY_FIRST 0x1E { "resolver.retry.first", TO_RESOLVER_RETRY_FIRST }, #define TO_CONTROL 0x1F { "control", TO_CONTROL }, #define TO_LHLO 0x20 { "lhlo", TO_LHLO }, #define TO_AUTH 0x21 { "auth", TO_AUTH }, #define TO_STARTTLS 0x22 { "starttls", TO_STARTTLS }, #define TO_ACONNECT 0x23 { "aconnect", TO_ACONNECT }, #define TO_QUEUEWARN_DSN 0x24 { "queuewarn.dsn", TO_QUEUEWARN_DSN }, #define TO_QUEUERETURN_DSN 0x25 { "queuereturn.dsn", TO_QUEUERETURN_DSN }, { NULL, 0 }, }; static void settimeout(name, val, sticky) char *name; char *val; bool sticky; { register struct timeoutinfo *to; int i, addopts; time_t toval; if (tTd(37, 2)) sm_dprintf("settimeout(%s = %s)", name, val); for (to = TimeOutTab; to->to_name != NULL; to++) { if (SM_STRCASEEQ(to->to_name, name)) break; } if (to->to_name == NULL) { errno = 0; /* avoid bogus error text */ syserr("settimeout: invalid timeout %s", name); return; } /* ** See if this option is preset for us. */ if (!sticky && bitnset(to->to_code, StickyTimeoutOpt)) { if (tTd(37, 2)) sm_dprintf(" (ignored)\n"); return; } if (tTd(37, 2)) sm_dprintf("\n"); toval = convtime(val, 'm'); addopts = 0; switch (to->to_code) { case TO_INITIAL: TimeOuts.to_initial = toval; break; case TO_MAIL: TimeOuts.to_mail = toval; break; case TO_RCPT: TimeOuts.to_rcpt = toval; break; case TO_DATAINIT: TimeOuts.to_datainit = toval; break; case TO_DATABLOCK: TimeOuts.to_datablock = toval; break; case TO_DATAFINAL: TimeOuts.to_datafinal = toval; break; case TO_COMMAND: TimeOuts.to_nextcommand = toval; break; case TO_RSET: TimeOuts.to_rset = toval; break; case TO_HELO: TimeOuts.to_helo = toval; break; case TO_QUIT: TimeOuts.to_quit = toval; break; case TO_MISC: TimeOuts.to_miscshort = toval; break; case TO_IDENT: TimeOuts.to_ident = toval; break; case TO_FILEOPEN: TimeOuts.to_fileopen = toval; break; case TO_CONNECT: TimeOuts.to_connect = toval; break; case TO_ICONNECT: TimeOuts.to_iconnect = toval; break; case TO_ACONNECT: TimeOuts.to_aconnect = toval; break; case TO_QUEUEWARN: toval = convtime(val, 'h'); TimeOuts.to_q_warning[TOC_NORMAL] = toval; TimeOuts.to_q_warning[TOC_URGENT] = toval; TimeOuts.to_q_warning[TOC_NONURGENT] = toval; TimeOuts.to_q_warning[TOC_DSN] = toval; addopts = 2; break; case TO_QUEUEWARN_NORMAL: toval = convtime(val, 'h'); TimeOuts.to_q_warning[TOC_NORMAL] = toval; break; case TO_QUEUEWARN_URGENT: toval = convtime(val, 'h'); TimeOuts.to_q_warning[TOC_URGENT] = toval; break; case TO_QUEUEWARN_NON_URGENT: toval = convtime(val, 'h'); TimeOuts.to_q_warning[TOC_NONURGENT] = toval; break; case TO_QUEUEWARN_DSN: toval = convtime(val, 'h'); TimeOuts.to_q_warning[TOC_DSN] = toval; break; case TO_QUEUERETURN: toval = convtime(val, 'd'); TimeOuts.to_q_return[TOC_NORMAL] = toval; TimeOuts.to_q_return[TOC_URGENT] = toval; TimeOuts.to_q_return[TOC_NONURGENT] = toval; TimeOuts.to_q_return[TOC_DSN] = toval; addopts = 2; break; case TO_QUEUERETURN_NORMAL: toval = convtime(val, 'd'); TimeOuts.to_q_return[TOC_NORMAL] = toval; break; case TO_QUEUERETURN_URGENT: toval = convtime(val, 'd'); TimeOuts.to_q_return[TOC_URGENT] = toval; break; case TO_QUEUERETURN_NON_URGENT: toval = convtime(val, 'd'); TimeOuts.to_q_return[TOC_NONURGENT] = toval; break; case TO_QUEUERETURN_DSN: toval = convtime(val, 'd'); TimeOuts.to_q_return[TOC_DSN] = toval; break; case TO_HOSTSTATUS: MciInfoTimeout = toval; break; case TO_RESOLVER_RETRANS: toval = convtime(val, 's'); TimeOuts.res_retrans[RES_TO_DEFAULT] = toval; TimeOuts.res_retrans[RES_TO_FIRST] = toval; TimeOuts.res_retrans[RES_TO_NORMAL] = toval; addopts = 2; break; case TO_RESOLVER_RETRY: i = atoi(val); TimeOuts.res_retry[RES_TO_DEFAULT] = i; TimeOuts.res_retry[RES_TO_FIRST] = i; TimeOuts.res_retry[RES_TO_NORMAL] = i; addopts = 2; break; case TO_RESOLVER_RETRANS_NORMAL: TimeOuts.res_retrans[RES_TO_NORMAL] = convtime(val, 's'); break; case TO_RESOLVER_RETRY_NORMAL: TimeOuts.res_retry[RES_TO_NORMAL] = atoi(val); break; case TO_RESOLVER_RETRANS_FIRST: TimeOuts.res_retrans[RES_TO_FIRST] = convtime(val, 's'); break; case TO_RESOLVER_RETRY_FIRST: TimeOuts.res_retry[RES_TO_FIRST] = atoi(val); break; case TO_CONTROL: TimeOuts.to_control = toval; break; case TO_LHLO: TimeOuts.to_lhlo = toval; break; #if SASL case TO_AUTH: TimeOuts.to_auth = toval; break; #endif #if STARTTLS case TO_STARTTLS: TimeOuts.to_starttls = toval; break; #endif default: syserr("settimeout: invalid timeout %s", name); break; } if (sticky) { for (i = 0; i <= addopts; i++) setbitn(to->to_code + i, StickyTimeoutOpt); } } /* ** INITTIMEOUTS -- parse and set timeout values ** ** Parameters: ** val -- a pointer to the values. If NULL, do initial ** settings. ** sticky -- if set, don't let other setoptions override ** this suboption value. ** ** Returns: ** none. ** ** Side Effects: ** Initializes the TimeOuts structure */ void inittimeouts(val, sticky) register char *val; bool sticky; { register char *p; if (tTd(37, 2)) sm_dprintf("inittimeouts(%s)\n", val == NULL ? "" : val); if (val == NULL) { TimeOuts.to_connect = (time_t) 0 SECONDS; TimeOuts.to_aconnect = (time_t) 0 SECONDS; TimeOuts.to_iconnect = (time_t) 0 SECONDS; TimeOuts.to_initial = (time_t) 5 MINUTES; TimeOuts.to_helo = (time_t) 5 MINUTES; TimeOuts.to_mail = (time_t) 10 MINUTES; TimeOuts.to_rcpt = (time_t) 1 HOUR; TimeOuts.to_datainit = (time_t) 5 MINUTES; TimeOuts.to_datablock = (time_t) 1 HOUR; TimeOuts.to_datafinal = (time_t) 1 HOUR; TimeOuts.to_rset = (time_t) 5 MINUTES; TimeOuts.to_quit = (time_t) 2 MINUTES; TimeOuts.to_nextcommand = (time_t) 1 HOUR; TimeOuts.to_miscshort = (time_t) 2 MINUTES; #if IDENTPROTO TimeOuts.to_ident = (time_t) 5 SECONDS; #else TimeOuts.to_ident = (time_t) 0 SECONDS; #endif TimeOuts.to_fileopen = (time_t) 60 SECONDS; TimeOuts.to_control = (time_t) 2 MINUTES; TimeOuts.to_lhlo = (time_t) 2 MINUTES; #if SASL TimeOuts.to_auth = (time_t) 10 MINUTES; #endif #if STARTTLS TimeOuts.to_starttls = (time_t) 1 HOUR; #endif if (tTd(37, 5)) { sm_dprintf("Timeouts:\n"); sm_dprintf(" connect = %ld\n", (long) TimeOuts.to_connect); sm_dprintf(" aconnect = %ld\n", (long) TimeOuts.to_aconnect); sm_dprintf(" initial = %ld\n", (long) TimeOuts.to_initial); sm_dprintf(" helo = %ld\n", (long) TimeOuts.to_helo); sm_dprintf(" mail = %ld\n", (long) TimeOuts.to_mail); sm_dprintf(" rcpt = %ld\n", (long) TimeOuts.to_rcpt); sm_dprintf(" datainit = %ld\n", (long) TimeOuts.to_datainit); sm_dprintf(" datablock = %ld\n", (long) TimeOuts.to_datablock); sm_dprintf(" datafinal = %ld\n", (long) TimeOuts.to_datafinal); sm_dprintf(" rset = %ld\n", (long) TimeOuts.to_rset); sm_dprintf(" quit = %ld\n", (long) TimeOuts.to_quit); sm_dprintf(" nextcommand = %ld\n", (long) TimeOuts.to_nextcommand); sm_dprintf(" miscshort = %ld\n", (long) TimeOuts.to_miscshort); sm_dprintf(" ident = %ld\n", (long) TimeOuts.to_ident); sm_dprintf(" fileopen = %ld\n", (long) TimeOuts.to_fileopen); sm_dprintf(" lhlo = %ld\n", (long) TimeOuts.to_lhlo); sm_dprintf(" control = %ld\n", (long) TimeOuts.to_control); } return; } for (;; val = p) { while (SM_ISSPACE(*val)) val++; if (*val == '\0') break; for (p = val; *p != '\0' && *p != ','; p++) continue; if (*p != '\0') *p++ = '\0'; if (isascii(*val) && isdigit(*val)) { /* old syntax -- set everything */ TimeOuts.to_mail = convtime(val, 'm'); TimeOuts.to_rcpt = TimeOuts.to_mail; TimeOuts.to_datainit = TimeOuts.to_mail; TimeOuts.to_datablock = TimeOuts.to_mail; TimeOuts.to_datafinal = TimeOuts.to_mail; TimeOuts.to_nextcommand = TimeOuts.to_mail; if (sticky) { setbitn(TO_MAIL, StickyTimeoutOpt); setbitn(TO_RCPT, StickyTimeoutOpt); setbitn(TO_DATAINIT, StickyTimeoutOpt); setbitn(TO_DATABLOCK, StickyTimeoutOpt); setbitn(TO_DATAFINAL, StickyTimeoutOpt); setbitn(TO_COMMAND, StickyTimeoutOpt); } continue; } else { register char *q = strchr(val, ':'); if (q == NULL && (q = strchr(val, '=')) == NULL) { /* syntax error */ continue; } *q++ = '\0'; settimeout(val, q, sticky); } } } /* ** SHOWCFOPTS -- show cf options ** ** Parameters: ** none ** ** Returns: ** none. */ void showcfopts() { struct optioninfo *o; for (o = OptionTab; o->o_name != NULL; o++) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s\n", o->o_name); } } sendmail-8.18.1/sendmail/err.c0000644000372400037240000006712314556365350015530 0ustar xbuildxbuild/* * Copyright (c) 1998-2003, 2010, 2015 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: err.c,v 8.206 2013-11-22 20:51:55 ca Exp $") #if LDAPMAP # include # include /* for LDAP error codes */ #endif #if _FFR_8BITENVADDR # include #endif static void putoutmsg __P((char *, bool, bool)); static void puterrmsg __P((char *)); static char *fmtmsg __P((char *, const char *, const char *, const char *, int, const char *, va_list)); /* ** FATAL_ERROR -- handle a fatal exception ** ** This function is installed as the default exception handler ** in the main sendmail process, and in all child processes ** that we create. Its job is to handle exceptions that are not ** handled at a lower level. ** ** The theory is that unhandled exceptions will be 'fatal' class ** exceptions (with an "F:" prefix), such as the out-of-memory ** exception "F:sm.heap". As such, they are handled by exiting ** the process in exactly the same way that xalloc() in Sendmail 8.10 ** exits the process when it fails due to lack of memory: ** we call syserr with a message beginning with "!". ** ** Parameters: ** exc -- exception which is terminating this process ** ** Returns: ** none */ void fatal_error(exc) SM_EXC_T *exc; { static char buf[256]; SM_FILE_T f; /* ** This function may be called when the heap is exhausted. ** The following code writes the message for 'exc' into our ** static buffer without allocating memory or raising exceptions. */ sm_strio_init(&f, buf, sizeof(buf)); sm_exc_write(exc, &f); (void) sm_io_flush(&f, SM_TIME_DEFAULT); /* ** Terminate the process after logging an error and cleaning up. ** Problems: ** - syserr decides what class of error this is by looking at errno. ** That's no good; we should look at the exc structure. ** - The cleanup code should be moved out of syserr ** and into individual exception handlers ** that are part of the module they clean up after. */ errno = ENOMEM; syserr("!%s", buf); } /* ** SYSERR -- Print error message. ** ** Prints an error message via sm_io_printf to the diagnostic output. ** ** If the first character of the syserr message is `!' it will ** log this as an ALERT message and exit immediately. This can ** leave queue files in an indeterminate state, so it should not ** be used lightly. ** ** If the first character of the syserr message is '!' or '@' ** then syserr knows that the process is about to be terminated, ** so the SMTP reply code defaults to 421. Otherwise, the ** reply code defaults to 451 or 554, depending on errno. ** ** Parameters: ** fmt -- the format string. An optional '!', '@', or '+', ** followed by an optional three-digit SMTP ** reply code, followed by message text. ** (others) -- parameters ** ** Returns: ** none ** Raises E:mta.quickabort if QuickAbort is set. ** ** Side Effects: ** increments Errors. ** sets ExitStat. */ char MsgBuf[BUFSIZ*2]; /* text of most recent message */ static char HeldMessageBuf[sizeof(MsgBuf)]; /* for held messages */ void /*VARARGS1*/ #ifdef __STDC__ syserr(const char *fmt, ...) #else /* __STDC__ */ syserr(fmt, va_alist) const char *fmt; va_dcl #endif /* __STDC__ */ { register char *p; int save_errno = errno; bool panic, exiting, keep; char *user; char *enhsc; char *errtxt; struct passwd *pw; char ubuf[80]; SM_VA_LOCAL_DECL panic = exiting = keep = false; switch (*fmt) { case '!': ++fmt; panic = exiting = true; break; case '@': ++fmt; exiting = true; break; case '+': ++fmt; keep = true; break; default: break; } /* format and output the error message */ if (exiting) { /* ** Since we are terminating the process, ** we are aborting the entire SMTP session, ** rather than just the current transaction. */ p = "421"; enhsc = "4.0.0"; } else if (save_errno == 0) { p = "554"; enhsc = "5.0.0"; } else { p = "451"; enhsc = "4.0.0"; } SM_VA_START(ap, fmt); errtxt = fmtmsg(MsgBuf, (char *) NULL, p, enhsc, save_errno, fmt, ap); SM_VA_END(ap); puterrmsg(MsgBuf); /* save this message for mailq printing */ if (!panic && CurEnv != NULL && (!keep || CurEnv->e_message == NULL)) { char *nmsg = sm_rpool_strdup_x(CurEnv->e_rpool, errtxt); if (CurEnv->e_rpool == NULL && CurEnv->e_message != NULL) sm_free(CurEnv->e_message); CurEnv->e_message = nmsg; } /* determine exit status if not already set */ if (ExitStat == EX_OK) { if (save_errno == 0) ExitStat = EX_SOFTWARE; else ExitStat = EX_OSERR; if (tTd(54, 1)) sm_dprintf("syserr: ExitStat = %d\n", ExitStat); } pw = sm_getpwuid(RealUid); if (pw != NULL) user = pw->pw_name; else { user = ubuf; (void) sm_snprintf(ubuf, sizeof(ubuf), "UID%d", (int) RealUid); } if (LogLevel > 0) sm_syslog(panic ? LOG_ALERT : LOG_CRIT, CurEnv == NULL ? NOQID : CurEnv->e_id, "SYSERR(%s): %.900s", user, errtxt); switch (save_errno) { case EBADF: case ENFILE: case EMFILE: case ENOTTY: #ifdef EFBIG case EFBIG: #endif #ifdef ESPIPE case ESPIPE: #endif #ifdef EPIPE case EPIPE: #endif #ifdef ENOBUFS case ENOBUFS: #endif #ifdef ESTALE case ESTALE: #endif printopenfds(true); mci_dump_all(smioout, true); break; } if (panic) { #if XLA xla_all_end(); #endif sync_queue_time(); if (tTd(0, 1)) abort(); exit(EX_OSERR); } errno = 0; if (QuickAbort) sm_exc_raisenew_x(&EtypeQuickAbort, 2); } /* ** USRERR -- Signal user error. ** ** This is much like syserr except it is for user errors. ** ** Parameters: ** fmt -- the format string. If it does not begin with ** a three-digit SMTP reply code, 550 is assumed. ** (others) -- sm_io_printf strings ** ** Returns: ** none ** Raises E:mta.quickabort if QuickAbort is set. ** ** Side Effects: ** increments Errors. */ /*VARARGS1*/ void #ifdef __STDC__ usrerr(const char *fmt, ...) #else /* __STDC__ */ usrerr(fmt, va_alist) const char *fmt; va_dcl #endif /* __STDC__ */ { char *enhsc; char *errtxt; SM_VA_LOCAL_DECL if (fmt[0] == '5' || fmt[0] == '6') enhsc = "5.0.0"; else if (fmt[0] == '4' || fmt[0] == '8') enhsc = "4.0.0"; else if (fmt[0] == '2') enhsc = "2.0.0"; else enhsc = NULL; SM_VA_START(ap, fmt); errtxt = fmtmsg(MsgBuf, CurEnv->e_to, "550", enhsc, 0, fmt, ap); SM_VA_END(ap); if (SuprErrs) return; /* save this message for mailq printing */ switch (MsgBuf[0]) { case '4': case '8': if (CurEnv->e_message != NULL) break; /* FALLTHROUGH */ case '5': case '6': if (CurEnv->e_rpool == NULL && CurEnv->e_message != NULL) sm_free(CurEnv->e_message); if (MsgBuf[0] == '6') { char buf[MAXLINE]; (void) sm_snprintf(buf, sizeof(buf), "Postmaster warning: %.*s", (int) sizeof(buf) - 22, errtxt); CurEnv->e_message = sm_rpool_strdup_x(CurEnv->e_rpool, buf); } else { CurEnv->e_message = sm_rpool_strdup_x(CurEnv->e_rpool, errtxt); } break; } puterrmsg(MsgBuf); if (LogLevel > 3 && LogUsrErrs) sm_syslog(LOG_NOTICE, CurEnv->e_id, "%.900s", errtxt); if (QuickAbort) sm_exc_raisenew_x(&EtypeQuickAbort, 1); } /* ** USRERRENH -- Signal user error. ** ** Same as usrerr but with enhanced status code. ** ** Parameters: ** enhsc -- the enhanced status code. ** fmt -- the format string. If it does not begin with ** a three-digit SMTP reply code, 550 is assumed. ** (others) -- sm_io_printf strings ** ** Returns: ** none ** Raises E:mta.quickabort if QuickAbort is set. ** ** Side Effects: ** increments Errors. */ /*VARARGS2*/ void #ifdef __STDC__ usrerrenh(char *enhsc, const char *fmt, ...) #else /* __STDC__ */ usrerrenh(enhsc, fmt, va_alist) char *enhsc; const char *fmt; va_dcl #endif /* __STDC__ */ { char *errtxt; SM_VA_LOCAL_DECL if (SM_IS_EMPTY(enhsc)) { if (fmt[0] == '5' || fmt[0] == '6') enhsc = "5.0.0"; else if (fmt[0] == '4' || fmt[0] == '8') enhsc = "4.0.0"; else if (fmt[0] == '2') enhsc = "2.0.0"; } SM_VA_START(ap, fmt); errtxt = fmtmsg(MsgBuf, CurEnv->e_to, "550", enhsc, 0, fmt, ap); SM_VA_END(ap); if (SuprErrs) return; /* save this message for mailq printing */ switch (MsgBuf[0]) { case '4': case '8': if (CurEnv->e_message != NULL) break; /* FALLTHROUGH */ case '5': case '6': if (CurEnv->e_rpool == NULL && CurEnv->e_message != NULL) sm_free(CurEnv->e_message); if (MsgBuf[0] == '6') { char buf[MAXLINE]; (void) sm_snprintf(buf, sizeof(buf), "Postmaster warning: %.*s", (int) sizeof(buf) - 22, errtxt); CurEnv->e_message = sm_rpool_strdup_x(CurEnv->e_rpool, buf); } else { CurEnv->e_message = sm_rpool_strdup_x(CurEnv->e_rpool, errtxt); } break; } puterrmsg(MsgBuf); if (LogLevel > 3 && LogUsrErrs) sm_syslog(LOG_NOTICE, CurEnv->e_id, "%.900s", errtxt); if (QuickAbort) sm_exc_raisenew_x(&EtypeQuickAbort, 1); } /* ** MESSAGE -- print message (not necessarily an error) ** ** Parameters: ** msg -- the message (sm_io_printf fmt) -- it can begin with ** an SMTP reply code. If not, 050 is assumed. ** (others) -- sm_io_printf arguments ** ** Returns: ** none */ /*VARARGS1*/ void #ifdef __STDC__ message(const char *msg, ...) #else /* __STDC__ */ message(msg, va_alist) const char *msg; va_dcl #endif /* __STDC__ */ { char *errtxt; SM_VA_LOCAL_DECL errno = 0; SM_VA_START(ap, msg); errtxt = fmtmsg(MsgBuf, CurEnv->e_to, "050", (char *) NULL, 0, msg, ap); SM_VA_END(ap); putoutmsg(MsgBuf, false, false); /* save this message for mailq printing */ switch (MsgBuf[0]) { case '4': case '8': if (CurEnv->e_message != NULL) break; /* FALLTHROUGH */ case '5': if (CurEnv->e_rpool == NULL && CurEnv->e_message != NULL) sm_free(CurEnv->e_message); CurEnv->e_message = sm_rpool_strdup_x(CurEnv->e_rpool, errtxt); break; } } #if _FFR_PROXY /* ** EMESSAGE -- print message (not necessarily an error) ** (same as message() but requires reply code and enhanced status code) ** ** Parameters: ** replycode -- SMTP reply code. ** enhsc -- enhanced status code. ** msg -- the message (sm_io_printf fmt) -- it can begin with ** an SMTP reply code. If not, 050 is assumed. ** (others) -- sm_io_printf arguments ** ** Returns: ** none */ /*VARARGS3*/ void # ifdef __STDC__ emessage(const char *replycode, const char *enhsc, const char *msg, ...) # else /* __STDC__ */ emessage(replycode, enhsc, msg, va_alist) const char *replycode; const char *enhsc; const char *msg; va_dcl # endif /* __STDC__ */ { char *errtxt; SM_VA_LOCAL_DECL errno = 0; SM_VA_START(ap, msg); errtxt = fmtmsg(MsgBuf, CurEnv->e_to, replycode, enhsc, 0, msg, ap); SM_VA_END(ap); putoutmsg(MsgBuf, false, false); /* save this message for mailq printing */ switch (MsgBuf[0]) { case '4': case '8': if (CurEnv->e_message != NULL) break; /* FALLTHROUGH */ case '5': if (CurEnv->e_rpool == NULL && CurEnv->e_message != NULL) sm_free(CurEnv->e_message); CurEnv->e_message = sm_rpool_strdup_x(CurEnv->e_rpool, errtxt); break; } } /* ** EXTSC -- check and extract a status codes ** ** Parameters: ** msg -- string with possible enhanced status code. ** delim -- delim for enhanced status code. ** replycode -- pointer to storage for SMTP reply code; ** must be != NULL and have space for at least ** 4 characters. ** enhsc -- pointer to storage for enhanced status code; ** must be != NULL and have space for at least ** 10 characters ([245].[0-9]{1,3}.[0-9]{1,3}) ** ** Returns: ** -1 -- no SMTP reply code. ** >=3 -- offset of error text in msg. ** (<=4 -- no enhanced status code) */ int extsc(msg, delim, replycode, enhsc) const char *msg; int delim; char *replycode; char *enhsc; { int offset; SM_REQUIRE(replycode != NULL); SM_REQUIRE(enhsc != NULL); replycode[0] = '\0'; enhsc[0] = '\0'; if (msg == NULL) return -1; if (!ISSMTPREPLY(msg)) return -1; sm_strlcpy(replycode, msg, 4); if (msg[3] == '\0') return 3; offset = 4; if (isenhsc(msg + 4, delim)) offset = extenhsc(msg + 4, delim, enhsc) + 4; return offset; } #endif /* _FFR_PROXY */ /* ** NMESSAGE -- print message (not necessarily an error) ** ** Just like "message" except it never puts the to... tag on. ** ** Parameters: ** msg -- the message (sm_io_printf fmt) -- if it begins ** with a three digit SMTP reply code, that is used, ** otherwise 050 is assumed. ** (others) -- sm_io_printf arguments ** ** Returns: ** none */ /*VARARGS1*/ void #ifdef __STDC__ nmessage(const char *msg, ...) #else /* __STDC__ */ nmessage(msg, va_alist) const char *msg; va_dcl #endif /* __STDC__ */ { char *errtxt; SM_VA_LOCAL_DECL errno = 0; SM_VA_START(ap, msg); errtxt = fmtmsg(MsgBuf, (char *) NULL, "050", (char *) NULL, 0, msg, ap); SM_VA_END(ap); putoutmsg(MsgBuf, false, false); /* save this message for mailq printing */ switch (MsgBuf[0]) { case '4': case '8': if (CurEnv->e_message != NULL) break; /* FALLTHROUGH */ case '5': if (CurEnv->e_rpool == NULL && CurEnv->e_message != NULL) sm_free(CurEnv->e_message); CurEnv->e_message = sm_rpool_strdup_x(CurEnv->e_rpool, errtxt); break; } } /* ** PUTOUTMSG -- output error message to transcript and channel ** ** Parameters: ** msg -- message to output (in SMTP format). ** holdmsg -- if true, don't output a copy of the message to ** our output channel. ** heldmsg -- if true, this is a previously held message; ** don't log it to the transcript file. ** ** Returns: ** none. ** ** Side Effects: ** Outputs msg to the transcript. ** If appropriate, outputs it to the channel. ** Deletes SMTP reply code number as appropriate. */ static void putoutmsg(msg, holdmsg, heldmsg) char *msg; bool holdmsg; bool heldmsg; { char msgcode = msg[0]; char *errtxt = msg; char *id; /* display for debugging */ if (tTd(54, 8)) sm_dprintf("--- %s%s%s\n", msg, holdmsg ? " (hold)" : "", heldmsg ? " (held)" : ""); /* map warnings to something SMTP can handle */ if (msgcode == '6') msg[0] = '5'; else if (msgcode == '8') msg[0] = '4'; id = (CurEnv != NULL) ? CurEnv->e_id : NULL; /* output to transcript if serious */ if (!heldmsg && CurEnv != NULL && CurEnv->e_xfp != NULL && strchr("45", msg[0]) != NULL) (void) sm_io_fprintf(CurEnv->e_xfp, SM_TIME_DEFAULT, "%s\n", msg); if (LogLevel > 14 && (OpMode == MD_SMTP || OpMode == MD_DAEMON)) sm_syslog(LOG_INFO, id, "--- %s%s%s", msg, holdmsg ? " (hold)" : "", heldmsg ? " (held)" : ""); if (msgcode == '8') msg[0] = '0'; /* output to channel if appropriate */ if (!Verbose && msg[0] == '0') return; if (holdmsg) { /* save for possible future display */ msg[0] = msgcode; if (HeldMessageBuf[0] == '5' && msgcode == '4') return; (void) sm_strlcpy(HeldMessageBuf, msg, sizeof(HeldMessageBuf)); return; } (void) sm_io_flush(smioout, SM_TIME_DEFAULT); if (OutChannel == NULL) return; /* find actual text of error (after SMTP status codes) */ if (ISSMTPREPLY(errtxt)) { int l; errtxt += 4; l = isenhsc(errtxt, ' '); if (l <= 0) l = isenhsc(errtxt, '\0'); if (l > 0) errtxt += l + 1; } /* if DisConnected, OutChannel now points to the transcript */ if (!DisConnected && (OpMode == MD_SMTP || OpMode == MD_DAEMON || OpMode == MD_ARPAFTP)) (void) sm_io_fprintf(OutChannel, SM_TIME_DEFAULT, "%s\r\n", msg); else (void) sm_io_fprintf(OutChannel, SM_TIME_DEFAULT, "%s\n", errtxt); if (TrafficLogFile != NULL) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d >>> %s\n", (int) CurrentPid, (OpMode == MD_SMTP || OpMode == MD_DAEMON) ? msg : errtxt); #if !PIPELINING /* ** Note: in case of an SMTP reply this should check ** that the last line of msg is not a continuation line ** but that's probably not worth the effort. */ if (ISSMTPREPLY(msg)) (void) sm_io_flush(OutChannel, SM_TIME_DEFAULT); if (!sm_io_error(OutChannel) || DisConnected) return; /* ** Error on output -- if reporting lost channel, just ignore it. ** Also, ignore errors from QUIT response (221 message) -- some ** rude servers don't read result. */ if (InChannel == NULL || sm_io_eof(InChannel) || sm_io_error(InChannel) || strncmp(msg, "221", 3) == 0) return; /* can't call syserr, 'cause we are using MsgBuf */ HoldErrs = true; if (LogLevel > 0) sm_syslog(LOG_CRIT, id, "SYSERR: putoutmsg (%s): error on output channel sending \"%s\": %s", CURHOSTNAME, shortenstring(msg, MAXSHORTSTR), sm_errstring(errno)); #endif /* !PIPELINING */ } /* ** PUTERRMSG -- like putoutmsg, but does special processing for error messages ** ** Parameters: ** msg -- the message to output. ** ** Returns: ** none. ** ** Side Effects: ** Sets the fatal error bit in the envelope as appropriate. */ static void puterrmsg(msg) char *msg; { char msgcode = msg[0]; /* output the message as usual */ putoutmsg(msg, HoldErrs, false); /* be careful about multiple error messages */ if (OnlyOneError) HoldErrs = true; /* signal the error */ Errors++; if (CurEnv == NULL) return; if (msgcode == '6') { /* notify the postmaster */ CurEnv->e_flags |= EF_PM_NOTIFY; } else if (msgcode == '5' && bitset(EF_GLOBALERRS, CurEnv->e_flags)) { /* mark long-term fatal errors */ CurEnv->e_flags |= EF_FATALERRS; } } /* ** ISENHSC -- check whether a string contains an enhanced status code ** ** Parameters: ** s -- string with possible enhanced status code. ** delim -- delim for enhanced status code. ** ** Returns: ** 0 -- no enhanced status code. ** >4 -- length of enhanced status code. */ int isenhsc(s, delim) const char *s; int delim; { int l, h; if (s == NULL) return 0; if (!((*s == '2' || *s == '4' || *s == '5') && s[1] == '.')) return 0; h = 0; l = 2; while (h < 3 && isascii(s[l + h]) && isdigit(s[l + h])) ++h; if (h == 0 || s[l + h] != '.') return 0; l += h + 1; h = 0; while (h < 3 && isascii(s[l + h]) && isdigit(s[l + h])) ++h; if (h == 0 || s[l + h] != delim) return 0; return l + h; } /* ** EXTENHSC -- check and extract an enhanced status code ** ** Parameters: ** s -- string with possible enhanced status code. ** delim -- delim for enhanced status code. ** e -- pointer to storage for enhanced status code. ** must be != NULL and have space for at least ** 10 characters ([245].[0-9]{1,3}.[0-9]{1,3}) ** ** Returns: ** 0 -- no enhanced status code. ** >4 -- length of enhanced status code. ** ** Side Effects: ** fills e with enhanced status code. */ int extenhsc(s, delim, e) const char *s; int delim; char *e; { int l, h; if (s == NULL) return 0; if (!((*s == '2' || *s == '4' || *s == '5') && s[1] == '.')) return 0; h = 0; l = 2; e[0] = s[0]; e[1] = '.'; while (h < 3 && isascii(s[l + h]) && isdigit(s[l + h])) { e[l + h] = s[l + h]; ++h; } if (h == 0 || s[l + h] != '.') return 0; e[l + h] = '.'; l += h + 1; h = 0; while (h < 3 && isascii(s[l + h]) && isdigit(s[l + h])) { e[l + h] = s[l + h]; ++h; } if (h == 0 || s[l + h] != delim) return 0; e[l + h] = '\0'; return l + h; } #if USE_EAI /* ** SKIPADDRHOST -- skip address and host in a message ** ** Parameters: ** s -- string with possible address and host ** skiphost -- skip also host? ** ** Returns: ** 0 -- no address and host ** >0 -- position after address (and host) */ int skipaddrhost(s, skiphost) const char *s; bool skiphost; { char *str; size_t len; #define SM_ADDR_DELIM "... " if (s == NULL) return 0; str = strstr(s, SM_ADDR_DELIM); if (str == NULL) return 0; str += sizeof(SM_ADDR_DELIM) + 1; len = strlen(s); if (str >= s + len) return 0; if (!skiphost) return str - s + 1; str = strchr(str, ' '); if (str >= s + len) return 0; return str - s + 1; } #endif /* USE_EAI */ /* ** FMTMSG -- format a message into buffer. ** ** Parameters: ** eb -- error buffer to get result -- MUST BE MsgBuf. ** to -- the recipient tag for this message. ** num -- default three digit SMTP reply code. ** enhsc -- enhanced status code. ** en -- the error number to display. ** fmt -- format of string: See NOTE below. ** ap -- arguments for fmt. ** ** Returns: ** pointer to error text beyond status codes. ** ** NOTE: ** Do NOT use "%s" as fmt if the argument starts with an SMTP ** reply code! */ static char * fmtmsg(eb, to, num, enhsc, eno, fmt, ap) register char *eb; const char *to; const char *num; const char *enhsc; int eno; const char *fmt; va_list ap; { char del; int l; int spaceleft = sizeof(MsgBuf); char *errtxt; /* output the reply code */ if (ISSMTPCODE(fmt)) { num = fmt; fmt += 4; } if (num[3] == '-') del = '-'; else del = ' '; if (SoftBounce && num[0] == '5') { /* replace 5 by 4 */ (void) sm_snprintf(eb, spaceleft, "4%2.2s%c", num + 1, del); } else (void) sm_snprintf(eb, spaceleft, "%3.3s%c", num, del); eb += 4; spaceleft -= 4; if ((l = isenhsc(fmt, ' ' )) > 0 && l < spaceleft - 4) { /* copy enh.status code including trailing blank */ l++; (void) sm_strlcpy(eb, fmt, l + 1); eb += l; spaceleft -= l; fmt += l; } else if ((l = isenhsc(enhsc, '\0')) > 0 && l < spaceleft - 4) { /* copy enh.status code */ (void) sm_strlcpy(eb, enhsc, l + 1); eb[l] = ' '; eb[++l] = '\0'; eb += l; spaceleft -= l; } if (SoftBounce && eb[-l] == '5') { /* replace 5 by 4 */ eb[-l] = '4'; } errtxt = eb; /* output the file name and line number */ if (FileName != NULL) { (void) sm_snprintf(eb, spaceleft, "%s: line %d: ", shortenstring(FileName, 83), LineNumber); eb += (l = strlen(eb)); spaceleft -= l; } /* ** output the "to" address only if it is defined and one of the ** following codes is used: ** 050 internal notices, e.g., alias expansion ** 250 Ok ** 252 Cannot VRFY user, but will accept message and attempt delivery ** 450 Requested mail action not taken: mailbox unavailable ** 550 Requested action not taken: mailbox unavailable ** 553 Requested action not taken: mailbox name not allowed ** ** Notice: this still isn't "the right thing", this code shouldn't ** (indirectly) depend on CurEnv->e_to. */ if (to != NULL && to[0] != '\0' && (strncmp(num, "050", 3) == 0 || strncmp(num, "250", 3) == 0 || strncmp(num, "252", 3) == 0 || strncmp(num, "450", 3) == 0 || strncmp(num, "550", 3) == 0 || strncmp(num, "553", 3) == 0)) { #if _FFR_8BITENVADDR char xbuf[MAXNAME + 1]; /* EAI:ok */ int len; len = sizeof(xbuf); (void) sm_strlcpy(xbuf, to, len); (void) dequote_internal_chars(xbuf, xbuf, len); (void) sm_strlcpyn(eb, spaceleft, 2, shortenstring(xbuf, MAXSHORTSTR), "... "); eb += strlen(eb); #else /* _FFR_8BITENVADDR */ (void) sm_strlcpyn(eb, spaceleft, 2, shortenstring(to, MAXSHORTSTR), "... "); while (*eb != '\0') *eb++ &= 0177; #endif /* _FFR_8BITENVADDR */ spaceleft -= strlen(eb); } /* output the message */ (void) sm_vsnprintf(eb, spaceleft, fmt, ap); spaceleft -= strlen(eb); #if USE_EAI eb += strlen(eb); #else while (*eb != '\0') *eb++ &= 0177; #endif /* output the error code, if any */ if (eno != 0) (void) sm_strlcpyn(eb, spaceleft, 2, ": ", sm_errstring(eno)); return errtxt; } /* ** BUFFER_ERRORS -- arrange to buffer future error messages ** ** Parameters: ** none ** ** Returns: ** none. */ void buffer_errors() { HeldMessageBuf[0] = '\0'; HoldErrs = true; } /* ** FLUSH_ERRORS -- flush the held error message buffer ** ** Parameters: ** print -- if set, print the message, otherwise just ** delete it. ** ** Returns: ** none. */ void flush_errors(print) bool print; { if (print && HeldMessageBuf[0] != '\0') putoutmsg(HeldMessageBuf, false, true); HeldMessageBuf[0] = '\0'; HoldErrs = false; } /* ** SM_ERRSTRING -- return string description of error code ** ** Parameters: ** errnum -- the error number to translate ** ** Returns: ** A string description of errnum. */ const char * sm_errstring(errnum) int errnum; { char *dnsmsg; char *bp; static char buf[MAXLINE]; #if HASSTRERROR char *err; char errbuf[30]; #endif #if !HASSTRERROR && !defined(ERRLIST_PREDEFINED) extern char *sys_errlist[]; extern int sys_nerr; #endif /* ** Handle special network error codes. ** ** These are 4.2/4.3bsd specific; they should be in daemon.c. */ dnsmsg = NULL; switch (errnum) { case ETIMEDOUT: case ECONNRESET: bp = buf; #if HASSTRERROR err = strerror(errnum); if (err == NULL) { (void) sm_snprintf(errbuf, sizeof(errbuf), "Error %d", errnum); err = errbuf; } (void) sm_strlcpy(bp, err, SPACELEFT(buf, bp)); #else /* HASSTRERROR */ if (errnum >= 0 && errnum < sys_nerr) (void) sm_strlcpy(bp, sys_errlist[errnum], SPACELEFT(buf, bp)); else (void) sm_snprintf(bp, SPACELEFT(buf, bp), "Error %d", errnum); #endif /* HASSTRERROR */ bp += strlen(bp); if (CurHostName != NULL) { if (errnum == ETIMEDOUT) { (void) sm_snprintf(bp, SPACELEFT(buf, bp), " with "); bp += strlen(bp); } else { bp = buf; (void) sm_snprintf(bp, SPACELEFT(buf, bp), "Connection reset by "); bp += strlen(bp); } (void) sm_strlcpy(bp, shortenstring(CurHostName, MAXSHORTSTR), SPACELEFT(buf, bp)); bp += strlen(buf); } if (SmtpPhase != NULL) { (void) sm_snprintf(bp, SPACELEFT(buf, bp), " during %s", SmtpPhase); } return buf; case EHOSTDOWN: if (CurHostName == NULL) break; (void) sm_snprintf(buf, sizeof(buf), "Host %s is down", shortenstring(CurHostName, MAXSHORTSTR)); return buf; case ECONNREFUSED: if (CurHostName == NULL) break; (void) sm_strlcpyn(buf, sizeof(buf), 2, "Connection refused by ", shortenstring(CurHostName, MAXSHORTSTR)); return buf; #if NAMED_BIND case HOST_NOT_FOUND + E_DNSBASE: dnsmsg = "host not found"; break; case TRY_AGAIN + E_DNSBASE: dnsmsg = "host name lookup failure"; break; case NO_RECOVERY + E_DNSBASE: dnsmsg = "non-recoverable error"; break; case NO_DATA + E_DNSBASE: dnsmsg = "no data known"; break; #endif /* NAMED_BIND */ case EPERM: /* SunOS gives "Not owner" -- this is the POSIX message */ return "Operation not permitted"; /* ** Error messages used internally in sendmail. */ case E_SM_OPENTIMEOUT: return "Timeout on file open"; case E_SM_NOSLINK: return "Symbolic links not allowed"; case E_SM_NOHLINK: return "Hard links not allowed"; case E_SM_REGONLY: return "Regular files only"; case E_SM_ISEXEC: return "Executable files not allowed"; case E_SM_WWDIR: return "World writable directory"; case E_SM_GWDIR: return "Group writable directory"; case E_SM_FILECHANGE: return "File changed after open"; case E_SM_WWFILE: return "World writable file"; case E_SM_GWFILE: return "Group writable file"; case E_SM_GRFILE: return "Group readable file"; case E_SM_WRFILE: return "World readable file"; } if (dnsmsg != NULL) { bp = buf; bp += sm_strlcpy(bp, "Name server: ", sizeof(buf)); if (CurHostName != NULL) { (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, shortenstring(CurHostName, MAXSHORTSTR), ": "); bp += strlen(bp); } (void) sm_strlcpy(bp, dnsmsg, SPACELEFT(buf, bp)); return buf; } #if LDAPMAP if (errnum >= E_LDAPBASE - E_LDAP_SHIM) return ldap_err2string(errnum - E_LDAPBASE); #endif #if HASSTRERROR err = strerror(errnum); if (err == NULL) { (void) sm_snprintf(buf, sizeof(buf), "Error %d", errnum); return buf; } return err; #else /* HASSTRERROR */ if (errnum > 0 && errnum < sys_nerr) return sys_errlist[errnum]; (void) sm_snprintf(buf, sizeof(buf), "Error %d", errnum); return buf; #endif /* HASSTRERROR */ } sendmail-8.18.1/sendmail/map.h0000644000372400037240000000771314556365350015521 0ustar xbuildxbuild/* * Copyright (c) 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: map.h,v 8.4 2013-11-22 20:51:56 ca Exp $ */ #ifndef _MAP_H # define _MAP_H 1 extern char *arith_map_lookup __P((MAP *, char *, char **, int *)); extern char *arpa_map_lookup __P((MAP *, char *, char **, int *)); extern char *bestmx_map_lookup __P((MAP *, char *, char **, int *)); extern char *bogus_map_lookup __P((MAP *, char *, char **, int *)); #if NEWDB extern bool bt_map_open __P((MAP *, int)); extern char *db_map_lookup __P((MAP *, char *, char **, int *)); extern void db_map_store __P((MAP *, char *, char *)); extern void db_map_close __P((MAP *)); #endif /* NEWDB */ extern bool dequote_init __P((MAP *, char *)); extern char *dequote_map __P((MAP *, char *, char **, int *)); extern bool dns_map_open __P((MAP *, int)); extern bool dns_map_parseargs __P((MAP *, char *)); extern char *dns_map_lookup __P((MAP *, char *, char **, int *)); extern bool dprintf_map_parseargs __P((MAP *, char *)); extern char *dprintf_map_lookup __P((MAP *, char *, char **, int *)); #if NEWDB extern bool hash_map_open __P((MAP *, int)); #endif extern bool host_map_init __P((MAP *, char *)); extern char *host_map_lookup __P((MAP *, char *, char **, int *)); extern char *impl_map_lookup __P((MAP *, char *, char **, int *)); extern void impl_map_store __P((MAP *, char *, char *)); extern bool impl_map_open __P((MAP *, int)); extern void impl_map_close __P((MAP *)); extern char *macro_map_lookup __P((MAP *, char *, char **, int *)); extern bool map_parseargs __P((MAP *, char *)); #if LDAPMAP extern bool ldapmap_parseargs __P((MAP *, char *)); #endif #if NDBM extern char *ndbm_map_lookup __P((MAP *, char *, char **, int *)); extern void ndbm_map_store __P((MAP *, char *, char *)); extern void ndbm_map_close __P((MAP *)); #endif /* NDBM */ extern bool nis_map_open __P((MAP *, int)); extern char *nis_map_lookup __P((MAP *, char *, char **, int *)); extern bool null_map_open __P((MAP *, int)); extern void null_map_close __P((MAP *)); extern char *null_map_lookup __P((MAP *, char *, char **, int *)); extern void null_map_store __P((MAP *, char *, char *)); #if PH_MAP extern bool ph_map_parseargs __P((MAP *, char *)); #endif extern char *prog_map_lookup __P((MAP *, char *, char **, int *)); extern bool regex_map_init __P((MAP *, char *)); extern char *regex_map_lookup __P((MAP *, char *, char **, int *)); extern char *seq_map_lookup __P((MAP *, char *, char **, int *)); extern void seq_map_store __P((MAP *, char *, char *)); extern bool seq_map_parse __P((MAP *, char *)); #if _FFR_SETDEBUG_MAP extern char *setdebug_map_lookup __P((MAP *, char *, char **, int *)); #endif #if _FFR_SETOPT_MAP extern char *setopt_map_lookup __P((MAP *, char *, char **, int *)); #endif #if SOCKETMAP extern bool socket_map_open __P((MAP *, int)); extern void socket_map_close __P((MAP *)); extern char *socket_map_lookup __P((MAP *, char *, char **, int *)); #endif extern char *stab_map_lookup __P((MAP *, char *, char **, int *)); extern void stab_map_store __P((MAP *, char *, char *)); extern bool stab_map_open __P((MAP *, int)); extern bool switch_map_open __P((MAP *, int)); extern bool syslog_map_parseargs __P((MAP *, char *)); extern char *syslog_map_lookup __P((MAP *, char *, char **, int *)); extern bool text_map_open __P((MAP *, int)); extern char *text_map_lookup __P((MAP *, char *, char **, int *)); extern char *udb_map_lookup __P((MAP *, char *, char **, int *)); extern bool user_map_open __P((MAP *, int)); extern char *user_map_lookup __P((MAP *, char *, char **, int *)); #if CDB extern bool cdb_map_open __P((MAP *, int)); extern char *cdb_map_lookup __P((MAP *, char *, char **, int *)); extern void cdb_map_store __P((MAP *, char *, char *)); extern void cdb_map_close __P((MAP *)); #endif /* CDB */ #endif /* ! _MAP_H */ sendmail-8.18.1/sendmail/control.c0000644000372400037240000002162014556365350016410 0ustar xbuildxbuild/* * Copyright (c) 1998-2004, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: control.c,v 8.130 2013-11-22 20:51:55 ca Exp $") #include #include /* values for cmd_code */ #define CMDERROR 0 /* bad command */ #define CMDRESTART 1 /* restart daemon */ #define CMDSHUTDOWN 2 /* end daemon */ #define CMDHELP 3 /* help */ #define CMDSTATUS 4 /* daemon status */ #define CMDMEMDUMP 5 /* dump memory, to find memory leaks */ #define CMDMSTAT 6 /* daemon status, more info, tagged data */ struct cmd { char *cmd_name; /* command name */ int cmd_code; /* internal code, see below */ }; static struct cmd CmdTab[] = { { "help", CMDHELP }, { "restart", CMDRESTART }, { "shutdown", CMDSHUTDOWN }, { "status", CMDSTATUS }, { "memdump", CMDMEMDUMP }, { "mstat", CMDMSTAT }, { NULL, CMDERROR } }; static void controltimeout __P((int)); int ControlSocket = -1; /* ** OPENCONTROLSOCKET -- create/open the daemon control named socket ** ** Creates and opens a named socket for external control over ** the sendmail daemon. ** ** Parameters: ** none. ** ** Returns: ** 0 if successful, -1 otherwise */ int opencontrolsocket() { #if NETUNIX int save_errno; int rval; long sff = SFF_SAFEDIRPATH|SFF_OPENASROOT|SFF_NOLINK|SFF_CREAT|SFF_MUSTOWN; struct sockaddr_un controladdr; if (SM_IS_EMPTY(ControlSocketName)) return 0; if (strlen(ControlSocketName) >= sizeof(controladdr.sun_path)) { errno = ENAMETOOLONG; return -1; } rval = safefile(ControlSocketName, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR|S_IWUSR, NULL); /* if not safe, don't create */ if (rval != 0) { errno = rval; return -1; } ControlSocket = socket(AF_UNIX, SOCK_STREAM, 0); if (ControlSocket < 0) return -1; if (SM_FD_SETSIZE > 0 && ControlSocket >= SM_FD_SETSIZE) { clrcontrol(); errno = EINVAL; return -1; } (void) unlink(ControlSocketName); memset(&controladdr, '\0', sizeof(controladdr)); controladdr.sun_family = AF_UNIX; (void) sm_strlcpy(controladdr.sun_path, ControlSocketName, sizeof(controladdr.sun_path)); if (bind(ControlSocket, (struct sockaddr *) &controladdr, sizeof(controladdr)) < 0) { save_errno = errno; clrcontrol(); errno = save_errno; return -1; } if (geteuid() == 0) { uid_t u = 0; if (RunAsUid != 0) u = RunAsUid; else if (TrustedUid != 0) u = TrustedUid; if (u != 0 && chown(ControlSocketName, u, -1) < 0) { save_errno = errno; sm_syslog(LOG_ALERT, NOQID, "ownership change on %s to uid %d failed: %s", ControlSocketName, (int) u, sm_errstring(save_errno)); message("050 ownership change on %s to uid %d failed: %s", ControlSocketName, (int) u, sm_errstring(save_errno)); closecontrolsocket(true); errno = save_errno; return -1; } } if (chmod(ControlSocketName, S_IRUSR|S_IWUSR) < 0) { save_errno = errno; closecontrolsocket(true); errno = save_errno; return -1; } if (listen(ControlSocket, 8) < 0) { save_errno = errno; closecontrolsocket(true); errno = save_errno; return -1; } #endif /* NETUNIX */ return 0; } /* ** CLOSECONTROLSOCKET -- close the daemon control named socket ** ** Close a named socket. ** ** Parameters: ** fullclose -- if set, close the socket and remove it; ** otherwise, just remove it ** ** Returns: ** none. */ void closecontrolsocket(fullclose) bool fullclose; { #if NETUNIX long sff = SFF_SAFEDIRPATH|SFF_OPENASROOT|SFF_NOLINK|SFF_CREAT|SFF_MUSTOWN; if (ControlSocket >= 0) { int rval; if (fullclose) { (void) close(ControlSocket); ControlSocket = -1; } rval = safefile(ControlSocketName, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR|S_IWUSR, NULL); /* if not safe, don't unlink */ if (rval != 0) return; if (unlink(ControlSocketName) < 0) { sm_syslog(LOG_WARNING, NOQID, "Could not remove control socket: %s", sm_errstring(errno)); return; } } #endif /* NETUNIX */ return; } /* ** CLRCONTROL -- reset the control connection ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** releases any resources used by the control interface. */ void clrcontrol() { #if NETUNIX if (ControlSocket >= 0) (void) close(ControlSocket); ControlSocket = -1; #endif /* NETUNIX */ } /* ** CONTROL_COMMAND -- read and process command from named socket ** ** Read and process the command from the opened socket. ** Exits when done since it is running in a forked child. ** ** Parameters: ** sock -- the opened socket from getrequests() ** e -- the current envelope ** ** Returns: ** none. */ static jmp_buf CtxControlTimeout; /* ARGSUSED0 */ static void controltimeout(timeout) int timeout; { /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ errno = ETIMEDOUT; longjmp(CtxControlTimeout, 1); } void control_command(sock, e) int sock; ENVELOPE *e; { volatile int exitstat = EX_OK; SM_FILE_T *s = NULL; SM_EVENT *ev = NULL; SM_FILE_T *traffic; SM_FILE_T *oldout; char *cmd; char *p; struct cmd *c; char cmdbuf[MAXLINE]; char inp[MAXLINE]; sm_setproctitle(false, e, "control cmd read"); if (TimeOuts.to_control > 0) { /* handle possible input timeout */ if (setjmp(CtxControlTimeout) != 0) { if (LogLevel > 2) sm_syslog(LOG_NOTICE, e->e_id, "timeout waiting for input during control command"); exit(EX_IOERR); } ev = sm_setevent(TimeOuts.to_control, controltimeout, TimeOuts.to_control); } s = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &sock, SM_IO_RDWR, NULL); if (s == NULL) { int save_errno = errno; (void) close(sock); errno = save_errno; exit(EX_IOERR); } (void) sm_io_setvbuf(s, SM_TIME_DEFAULT, NULL, SM_IO_NBF, SM_IO_BUFSIZ); if (sm_io_fgets(s, SM_TIME_DEFAULT, inp, sizeof(inp)) < 0) { (void) sm_io_close(s, SM_TIME_DEFAULT); exit(EX_IOERR); } (void) sm_io_flush(s, SM_TIME_DEFAULT); /* clean up end of line */ fixcrlf(inp, true); sm_setproctitle(false, e, "control: %s", inp); /* break off command */ for (p = inp; SM_ISSPACE(*p); p++) continue; cmd = cmdbuf; while (*p != '\0' && !(SM_ISSPACE(*p)) && cmd < &cmdbuf[sizeof(cmdbuf) - 2]) *cmd++ = *p++; *cmd = '\0'; /* throw away leading whitespace */ while (SM_ISSPACE(*p)) p++; /* decode command */ for (c = CmdTab; c->cmd_name != NULL; c++) { if (SM_STRCASEEQ(c->cmd_name, cmdbuf)) break; } switch (c->cmd_code) { case CMDHELP: /* get help */ traffic = TrafficLogFile; TrafficLogFile = NULL; oldout = OutChannel; OutChannel = s; help("control", e); TrafficLogFile = traffic; OutChannel = oldout; break; case CMDRESTART: /* restart the daemon */ (void) sm_io_fprintf(s, SM_TIME_DEFAULT, "OK\r\n"); exitstat = EX_RESTART; break; case CMDSHUTDOWN: /* kill the daemon */ (void) sm_io_fprintf(s, SM_TIME_DEFAULT, "OK\r\n"); exitstat = EX_SHUTDOWN; break; case CMDSTATUS: /* daemon status */ proc_list_probe(); { int qgrp; long bsize; long free; /* XXX need to deal with different partitions */ qgrp = e->e_qgrp; if (!ISVALIDQGRP(qgrp)) qgrp = 0; free = freediskspace(Queue[qgrp]->qg_qdir, &bsize); /* ** Prevent overflow and don't lose ** precision (if bsize == 512) */ if (free > 0) free = (long)((double) free * ((double) bsize / 1024)); (void) sm_io_fprintf(s, SM_TIME_DEFAULT, "%d/%d/%ld/%d\r\n", CurChildren, MaxChildren, free, getla()); } proc_list_display(s, ""); break; case CMDMSTAT: /* daemon status, extended, tagged format */ proc_list_probe(); (void) sm_io_fprintf(s, SM_TIME_DEFAULT, "C:%d\r\nM:%d\r\nL:%d\r\n", CurChildren, MaxChildren, getla()); printnqe(s, "Q:"); disk_status(s, "D:"); proc_list_display(s, "P:"); break; case CMDMEMDUMP: /* daemon memory dump, to find memory leaks */ #if SM_HEAP_CHECK /* dump the heap, if we are checking for memory leaks */ if (sm_debug_active(&SmHeapCheck, 2)) { sm_heap_report(s, sm_debug_level(&SmHeapCheck) - 1); } else { (void) sm_io_fprintf(s, SM_TIME_DEFAULT, "Memory dump unavailable.\r\n"); (void) sm_io_fprintf(s, SM_TIME_DEFAULT, "To fix, run sendmail with -dsm_check_heap.4\r\n"); } #else /* SM_HEAP_CHECK */ (void) sm_io_fprintf(s, SM_TIME_DEFAULT, "Memory dump unavailable.\r\n"); (void) sm_io_fprintf(s, SM_TIME_DEFAULT, "To fix, rebuild with -DSM_HEAP_CHECK\r\n"); #endif /* SM_HEAP_CHECK */ break; case CMDERROR: /* unknown command */ (void) sm_io_fprintf(s, SM_TIME_DEFAULT, "Bad command (%s)\r\n", cmdbuf); break; } (void) sm_io_close(s, SM_TIME_DEFAULT); if (ev != NULL) sm_clrevent(ev); exit(exitstat); } sendmail-8.18.1/sendmail/newaliases.10000644000372400037240000000242214556365350017000 0ustar xbuildxbuild.\" Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" Copyright (c) 1983, 1997 Eric P. Allman. All rights reserved. .\" Copyright (c) 1985, 1990, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: newaliases.1,v 8.20 2013-11-22 20:51:56 ca Exp $ .\" .TH NEWALIASES 1 "$Date: 2013-11-22 20:51:56 $" .SH NAME newaliases \- rebuild the data base for the mail aliases file .SH SYNOPSIS .B newaliases .SH DESCRIPTION .B Newaliases rebuilds the random access data base for the mail aliases file /etc/mail/aliases. It must be run each time this file is changed in order for the change to take effect. .PP .B Newaliases is identical to ``sendmail -bi''. .PP The .B newaliases utility exits 0 on success, and >0 if an error occurs. .PP Notice: do .B not use .B makemap to create the aliases data base, because .B newaliases puts a special token into the data base that is required by .B sendmail. .SH FILES .TP 2i /etc/mail/aliases The mail aliases file .SH SEE ALSO aliases(5), sendmail(8) .SH HISTORY The .B newaliases command appeared in 4.0BSD. sendmail-8.18.1/sendmail/map.c0000644000372400037240000055633014556365350015520 0ustar xbuildxbuild/* * Copyright (c) 1998-2008 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1992, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1992, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: map.c,v 8.713 2013-11-22 20:51:55 ca Exp $") #include #if LDAPMAP # include #endif #if NDBM # include # ifdef R_FIRST # error "README: You are running the Berkeley DB version of ndbm.h. See" # error "README: the README file about tweaking Berkeley DB so it can" # error "README: coexist with NDBM, or delete -DNDBM from the Makefile" # error "README: and use -DNEWDB instead." # endif /* R_FIRST */ #endif /* NDBM */ #if NEWDB # include "sm/bdb.h" #endif #if NIS struct dom_binding; /* forward reference needed on IRIX */ # include # if NDBM # define NDBM_YP_COMPAT /* create YP-compatible NDBM files */ # endif #endif /* NIS */ #if CDB # include #endif #include "map.h" #if NEWDB # if DB_VERSION_MAJOR < 2 static bool db_map_open __P((MAP *, int, char *, DBTYPE, const void *)); # endif # if DB_VERSION_MAJOR == 2 static bool db_map_open __P((MAP *, int, char *, DBTYPE, DB_INFO *)); # endif # if DB_VERSION_MAJOR > 2 static bool db_map_open __P((MAP *, int, char *, DBTYPE, void **)); # endif #endif /* NEWDB */ static bool extract_canonname __P((char *, char *, char *, char[], int)); static void map_close __P((STAB *, int)); static void map_init __P((STAB *, int)); #ifdef LDAPMAP static STAB *ldapmap_findconn __P((SM_LDAP_STRUCT *)); #endif #if NISPLUS static bool nisplus_getcanonname __P((char *, int, int *)); #endif #if NIS static bool nis_getcanonname __P((char *, int, int *)); #endif #if NETINFO static bool ni_getcanonname __P((char *, int, int *)); #endif static bool text_getcanonname __P((char *, int, int *)); #if SOCKETMAP static STAB *socket_map_findconn __P((const char*)); /* XXX arbitrary limit for sanity */ # define SOCKETMAP_MAXL 1000000 #endif /* SOCKETMAP */ /* default error message for trying to open a map in write mode */ #ifdef ENOSYS # define SM_EMAPCANTWRITE ENOSYS #else /* ENOSYS */ # ifdef EFTYPE # define SM_EMAPCANTWRITE EFTYPE # else # define SM_EMAPCANTWRITE ENXIO # endif #endif /* ENOSYS */ /* ** MAP_HAS_CHGED -- check whether fd was updated or fn refers to a different file ** ** Parameters: ** map -- map being checked ** fn -- (full) file name of map. ** fd -- fd of map. ** ** Returns: ** true iff file referenced by fd was updated ** or fn refers to a different file. */ static bool map_has_chged __P((MAP *, const char *, int)); static bool map_has_chged(map, fn, fd) MAP *map; const char *fn; int fd; { struct stat stbuf; #if _FFR_MAP_CHK_FILE struct stat nstbuf; #endif #if _FFR_MAP_CHK_FILE > 1 if (tTd(38, 8)) sm_dprintf("map_has_chged: fn=%s, fd=%d, checked=%d\n", fn, fd, bitset(MF_CHKED_CHGD, map->map_mflags)); if (fd < 0) return true; /* XXX check can be disabled via -d38.101 for testing */ if (bitset(MF_CHKED_CHGD, map->map_mflags) && !tTd(38, 101)) return false; map->map_mflags |= MF_CHKED_CHGD; #endif if (fd < 0 || fstat(fd, &stbuf) < 0 || stbuf.st_mtime > map->map_mtime) { if (tTd(38, 4)) sm_dprintf("reopen map: name=%s, fd=%d\n", map->map_mname, fd); return true; } #if _FFR_MAP_CHK_FILE if (stat(fn, &nstbuf) == 0 && (nstbuf.st_dev != stbuf.st_dev || nstbuf.st_ino != stbuf.st_ino)) { if (tTd(38, 4) && stat(fn, &nstbuf) == 0) sm_dprintf("reopen map: fn=%s, ndev=%d, dev=%d, nino=%d, ino=%d\n", fn, (int) nstbuf.st_dev, (int) stbuf.st_dev, (int) nstbuf.st_ino, (int) stbuf.st_ino); return true; } #endif return false; } #if _FFR_MAP_CHK_FILE > 1 /* ** MAP_RESET_CHGD -- reset MF_CHKED_CHGD in a map ** ** Parameters: ** s -- STAB entry: if map: reset MF_CHKED_CHGD ** unused -- unused variable ** ** Returns: ** none. */ static void map_reset_chged __P((STAB *, int)); /* ARGSUSED1 */ static void map_reset_chged(s, unused) STAB *s; int unused; { MAP *map; /* has to be a map */ if (ST_MAP != s->s_symtype #if _FFR_DYN_CLASS && ST_DYNMAP != s->s_symtype #endif ) return; map = &s->s_map; if (!bitset(MF_VALID, map->map_mflags)) return; if (tTd(38, 8)) sm_dprintf("map_reset_chged: name=%s, checked=%d\n", map->map_mname, bitset(MF_CHKED_CHGD, map->map_mflags)); map->map_mflags &= ~MF_CHKED_CHGD; } /* ** MAPS_RESET_CHGD -- reset MF_CHKED_CHGD in all maps ** ** Parameters: ** msg - caller (for debugging) ** ** Returns: ** none. */ void maps_reset_chged(msg) const char *msg; { if (tTd(38, 16)) sm_dprintf("maps_reset_chged: msg=%s\n", msg); stabapply(map_reset_chged, 0); } #endif /* _FFR_MAP_CHK_FILE > 1 */ #if NEWDB || CDB || (NDBM && _FFR_MAP_CHK_FILE) static bool smdb_add_extension __P((char *, int, char *, char *)); /* ** SMDB_ADD_EXTENSION -- Adds an extension to a file name. ** ** Just adds a . followed by a string to a db_name if there ** is room and the db_name does not already have that extension. ** ** Parameters: ** full_name -- The final file name. ** max_full_name_len -- The max length for full_name. ** db_name -- The name of the db. ** extension -- The extension to add. ** ** Returns: ** SMDBE_OK -- Success. ** Anything else is an error. Look up more info about the ** error in the comments for the specific open() used. */ static bool smdb_add_extension(full_name, max_full_name_len, db_name, extension) char *full_name; int max_full_name_len; char *db_name; char *extension; { int extension_len; int db_name_len; if (full_name == NULL || db_name == NULL || extension == NULL) return false; /* SMDBE_INVALID_PARAMETER; */ extension_len = strlen(extension); db_name_len = strlen(db_name); if (extension_len + db_name_len + 2 > max_full_name_len) return false; /* SMDBE_DB_NAME_TOO_LONG; */ if (db_name_len < extension_len + 1 || db_name[db_name_len - extension_len - 1] != '.' || strcmp(&db_name[db_name_len - extension_len], extension) != 0) (void) sm_snprintf(full_name, max_full_name_len, "%s.%s", db_name, extension); else (void) sm_strlcpy(full_name, db_name, max_full_name_len); return true; } #endif /* NEWDB || CDB || (NDBM && _FFR_MAP_CHK_FILE) */ /* ** MAP.C -- implementations for various map classes. ** ** Each map class implements a series of functions: ** ** bool map_parse(MAP *map, char *args) ** Parse the arguments from the config file. Return true ** if they were ok, false otherwise. Fill in map with the ** values. ** ** char *map_lookup(MAP *map, char *key, char **args, int *pstat) ** Look up the key in the given map. If found, do any ** rewriting the map wants (including "args" if desired) ** and return the value. Set *pstat to the appropriate status ** on error and return NULL. Args will be NULL if called ** from the alias routines, although this should probably ** not be relied upon. It is suggested you call map_rewrite ** to return the results -- it takes care of null termination ** and uses a dynamically expanded buffer as needed. ** ** void map_store(MAP *map, char *key, char *value) ** Store the key:value pair in the map. ** ** bool map_open(MAP *map, int mode) ** Open the map for the indicated mode. Mode should ** be either O_RDONLY or O_RDWR. Return true if it ** was opened successfully, false otherwise. If the open ** failed and the MF_OPTIONAL flag is not set, it should ** also print an error. If the MF_ALIAS bit is set ** and this map class understands the @:@ convention, it ** should call aliaswait() before returning. ** ** void map_close(MAP *map) ** Close the map. ** ** This file also includes the implementation for getcanonname. ** It is currently implemented in a pretty ad-hoc manner; it ought ** to be more properly integrated into the map structure. */ /* XREF: conf.c must use the same expression */ #if O_EXLOCK && HASFLOCK && !BOGUS_O_EXCL # define LOCK_ON_OPEN 1 /* we can open/create a locked file */ #else # define LOCK_ON_OPEN 0 /* no such luck -- bend over backwards */ #endif /* ** MAP_PARSEARGS -- parse config line arguments for database lookup ** ** This is a generic version of the map_parse method. ** ** Parameters: ** map -- the map being initialized. ** ap -- a pointer to the args on the config line. ** ** Returns: ** true -- if everything parsed OK. ** false -- otherwise. ** ** Side Effects: ** null terminates the filename; stores it in map */ bool map_parseargs(map, ap) MAP *map; char *ap; { register char *p = ap; /* ** There is no check whether there is really an argument, ** but that's not important enough to warrant extra code. */ map->map_mflags |= MF_TRY0NULL|MF_TRY1NULL; map->map_spacesub = SpaceSub; /* default value */ for (;;) { while (SM_ISSPACE(*p)) p++; if (*p != '-') break; switch (*++p) { case 'A': map->map_mflags |= MF_APPEND; break; case 'a': map->map_app = ++p; break; case 'D': map->map_mflags |= MF_DEFER; break; case 'd': { char *h; ++p; h = strchr(p, ' '); if (h != NULL) *h = '\0'; map->map_timeout = convtime(p, 's'); if (h != NULL) *h = ' '; } break; case 'f': map->map_mflags |= MF_NOFOLDCASE; break; case 'k': while (isascii(*++p) && isspace(*p)) continue; map->map_keycolnm = p; break; case 'm': map->map_mflags |= MF_MATCHONLY; break; case 'N': map->map_mflags |= MF_INCLNULL; map->map_mflags &= ~MF_TRY0NULL; break; case 'O': map->map_mflags &= ~MF_TRY1NULL; break; case 'o': map->map_mflags |= MF_OPTIONAL; break; case 'q': map->map_mflags |= MF_KEEPQUOTES; break; case 'S': map->map_spacesub = *++p; break; case 'T': map->map_tapp = ++p; break; case 't': map->map_mflags |= MF_NODEFER; break; case 'v': while (isascii(*++p) && isspace(*p)) continue; map->map_valcolnm = p; break; case 'z': if (*++p != '\\') map->map_coldelim = *p; else { switch (*++p) { case 'n': map->map_coldelim = '\n'; break; case 't': map->map_coldelim = '\t'; break; default: map->map_coldelim = '\\'; } } break; default: syserr("Illegal option %c map %s", *p, map->map_mname); break; } while (*p != '\0' && !(SM_ISSPACE(*p))) p++; if (*p != '\0') *p++ = '\0'; } if (map->map_app != NULL) map->map_app = newstr(map->map_app); if (map->map_tapp != NULL) map->map_tapp = newstr(map->map_tapp); if (map->map_keycolnm != NULL) map->map_keycolnm = newstr(map->map_keycolnm); if (map->map_valcolnm != NULL) map->map_valcolnm = newstr(map->map_valcolnm); if (*p != '\0') { map->map_file = p; while (*p != '\0' && !(SM_ISSPACE(*p))) p++; if (*p != '\0') *p++ = '\0'; map->map_file = newstr(map->map_file); } while (*p != '\0' && SM_ISSPACE(*p)) p++; if (*p != '\0') map->map_rebuild = newstr(p); if (map->map_file == NULL && !bitset(MCF_OPTFILE, map->map_class->map_cflags)) { syserr("No file name for %s map %s", map->map_class->map_cname, map->map_mname); return false; } return true; } /* ** MAP_REWRITE -- rewrite a database key, interpolating %n indications. ** ** It also adds the map_app string. It can be used as a utility ** in the map_lookup method. ** ** Parameters: ** map -- the map that causes this. ** s -- the string to rewrite, NOT necessarily null terminated. ** slen -- the length of s. ** av -- arguments to interpolate into buf. ** ** Returns: ** Pointer to rewritten result. This is static data that ** should be copied if it is to be saved! */ char * map_rewrite(map, s, slen, av) register MAP *map; register const char *s; size_t slen; char **av; { register char *bp; register char c; char **avp; register char *ap; size_t l; size_t len; static size_t buflen = 0; static char *buf = NULL; if (tTd(39, 1)) { sm_dprintf("map_rewrite(%.*s), av =", (int) slen, s); if (av == NULL) sm_dprintf(" (nullv)"); else { for (avp = av; *avp != NULL; avp++) sm_dprintf("\n\t%s", *avp); } sm_dprintf("\n"); } /* count expected size of output (can safely overestimate) */ l = len = slen; if (av != NULL) { const char *sp = s; while (l-- > 0 && (c = *sp++) != '\0') { if (c != '%') continue; if (l-- <= 0) break; c = *sp++; if (!(isascii(c) && isdigit(c))) continue; for (avp = av; --c >= '0' && *avp != NULL; avp++) continue; if (*avp == NULL) continue; len += strlen(*avp); } } if (map->map_app != NULL) len += strlen(map->map_app); if (buflen < ++len) { /* need to malloc additional space */ buflen = len; SM_FREE(buf); buf = sm_pmalloc_x(buflen); } bp = buf; if (av == NULL) { memmove(bp, s, slen); bp += slen; /* assert(len > slen); */ len -= slen; } else { while (slen-- > 0 && (c = *s++) != '\0') { if (c != '%') { pushc: if (len-- <= 1) break; *bp++ = c; continue; } if (slen-- <= 0 || (c = *s++) == '\0') c = '%'; if (c == '%') goto pushc; if (!(isascii(c) && isdigit(c))) { if (len-- <= 1) break; *bp++ = '%'; goto pushc; } for (avp = av; --c >= '0' && *avp != NULL; avp++) continue; if (*avp == NULL) continue; /* transliterate argument into output string */ for (ap = *avp; (c = *ap++) != '\0' && len > 0; --len) *bp++ = c; } } if (map->map_app != NULL && len > 0) (void) sm_strlcpy(bp, map->map_app, len); else *bp = '\0'; #if _FFR_8BITENVADDR if (!bitset(MF_KEEPXFMT, map->map_mflags)) { int newlen; char *quoted; newlen = 0; quoted = quote_internal_chars(buf, NULL, &newlen, NULL); if (newlen > buflen) { buflen = newlen; SM_FREE(buf); buf = sm_pmalloc_x(buflen); } (void) sm_strlcpy(buf, quoted, buflen); SM_FREE(quoted); } #endif if (tTd(39, 1)) sm_dprintf("map_rewrite => %s\n", buf); return buf; } /* ** MAPCHOWN -- if available fchown() the fds to TrustedUid ** ** Parameters: ** mapname - name of map (for error reporting) ** fd0 - first fd (must be valid) ** fd1 - second fd (<0: do not use) ** filename - name of file (for error reporting) ** ** Returns: ** none. */ static void mapchown __P((const char *, int, int, const char *)); static void mapchown(mapname, fd0, fd1, filename) const char *mapname; int fd0; int fd1; const char *filename; { if (!(geteuid() == 0 && TrustedUid != 0)) return; #if HASFCHOWN if (fchown(fd0, TrustedUid, -1) < 0 || (fd1 >= 0 && fchown(fd1, TrustedUid, -1) < 0)) { int err = errno; sm_syslog(LOG_ALERT, NOQID, "ownership change on %s failed: %s", filename, sm_errstring(err)); message("050 ownership change on %s failed: %s", filename, sm_errstring(err)); } #else /* HASFCHOWN */ sm_syslog(LOG_ALERT, NOQID, "no fchown(): cannot change ownership on %s", mapname); message("050 no fchown(): cannot change ownership on %s", mapname); #endif /* HASFCHOWN */ } /* ** INITMAPS -- rebuild alias maps ** ** Parameters: ** none. ** ** Returns: ** none. */ void initmaps() { checkfd012("entering initmaps"); stabapply(map_init, 0); checkfd012("exiting initmaps"); } /* ** MAP_INIT -- rebuild a map ** ** Parameters: ** s -- STAB entry: if map: try to rebuild ** unused -- unused variable ** ** Returns: ** none. ** ** Side Effects: ** will close already open rebuildable map. */ /* ARGSUSED1 */ static void map_init(s, unused) register STAB *s; int unused; { register MAP *map; /* has to be a map */ if (s->s_symtype != ST_MAP) return; map = &s->s_map; if (!bitset(MF_VALID, map->map_mflags)) return; if (tTd(38, 2)) sm_dprintf("map_init(%s:%s, %s)\n", map->map_class->map_cname == NULL ? "NULL" : map->map_class->map_cname, map->map_mname == NULL ? "NULL" : map->map_mname, map->map_file == NULL ? "NULL" : map->map_file); if (!bitset(MF_ALIAS, map->map_mflags) || !bitset(MCF_REBUILDABLE, map->map_class->map_cflags)) { if (tTd(38, 3)) sm_dprintf("\tnot rebuildable\n"); return; } /* if already open, close it (for nested open) */ if (bitset(MF_OPEN, map->map_mflags)) { map->map_mflags |= MF_CLOSING; map->map_class->map_close(map); map->map_mflags &= ~(MF_OPEN|MF_WRITABLE|MF_CLOSING); } (void) rebuildaliases(map); return; } /* ** OPENMAP -- open a map ** ** Parameters: ** map -- map to open (it must not be open). ** ** Returns: ** whether open succeeded. */ bool openmap(map) MAP *map; { bool restore = false; bool savehold = HoldErrs; bool savequick = QuickAbort; int saveerrors = Errors; if (!bitset(MF_VALID, map->map_mflags)) return false; /* better safe than sorry... */ if (bitset(MF_OPEN, map->map_mflags)) return true; /* Don't send a map open error out via SMTP */ if ((OnlyOneError || QuickAbort) && (OpMode == MD_SMTP || OpMode == MD_DAEMON)) { restore = true; HoldErrs = true; QuickAbort = false; } errno = 0; if (map->map_class->map_open(map, O_RDONLY)) { if (tTd(38, 4)) sm_dprintf("openmap()\t%s:%s %s: valid\n", map->map_class->map_cname == NULL ? "NULL" : map->map_class->map_cname, map->map_mname == NULL ? "NULL" : map->map_mname, map->map_file == NULL ? "NULL" : map->map_file); map->map_mflags |= MF_OPEN; map->map_pid = CurrentPid; } else { if (tTd(38, 4)) sm_dprintf("openmap()\t%s:%s %s: invalid%s%s\n", map->map_class->map_cname == NULL ? "NULL" : map->map_class->map_cname, map->map_mname == NULL ? "NULL" : map->map_mname, map->map_file == NULL ? "NULL" : map->map_file, errno == 0 ? "" : ": ", errno == 0 ? "" : sm_errstring(errno)); if (!bitset(MF_OPTIONAL, map->map_mflags)) { extern MAPCLASS BogusMapClass; map->map_orgclass = map->map_class; map->map_class = &BogusMapClass; map->map_mflags |= MF_OPEN|MF_OPENBOGUS; map->map_pid = CurrentPid; } else { /* don't try again */ map->map_mflags &= ~MF_VALID; } } if (restore) { Errors = saveerrors; HoldErrs = savehold; QuickAbort = savequick; } return bitset(MF_OPEN, map->map_mflags); } /* ** CLOSEMAPS -- close all open maps opened by the current pid. ** ** Parameters: ** bogus -- only close bogus maps. ** ** Returns: ** none. */ void closemaps(bogus) bool bogus; { stabapply(map_close, bogus); } /* ** MAP_CLOSE -- close a map opened by the current pid. ** ** Parameters: ** s -- STAB entry: if map: try to close ** bogus -- only close bogus maps or MCF_NOTPERSIST maps. ** ** Returns: ** none. */ static void map_close(s, bogus) register STAB *s; int bogus; /* int because of stabapply(), used as bool */ { MAP *map; extern MAPCLASS BogusMapClass; if (s->s_symtype != ST_MAP) return; map = &s->s_map; /* ** close the map iff: ** it is valid and open and opened by this process ** and (!bogus or it's a bogus map or it is not persistent) ** negate this: return iff ** it is not valid or it is not open or not opened by this process ** or (bogus and it's not a bogus map and it's not not-persistent) */ if (!bitset(MF_VALID, map->map_mflags) || !bitset(MF_OPEN, map->map_mflags) || bitset(MF_CLOSING, map->map_mflags) || map->map_pid != CurrentPid || (bogus && map->map_class != &BogusMapClass && !bitset(MCF_NOTPERSIST, map->map_class->map_cflags))) return; if (map->map_class == &BogusMapClass && map->map_orgclass != NULL && map->map_orgclass != &BogusMapClass) map->map_class = map->map_orgclass; if (tTd(38, 5)) sm_dprintf("closemaps: closing %s (%s)\n", map->map_mname == NULL ? "NULL" : map->map_mname, map->map_file == NULL ? "NULL" : map->map_file); if (!bitset(MF_OPENBOGUS, map->map_mflags)) { map->map_mflags |= MF_CLOSING; map->map_class->map_close(map); } map->map_mflags &= ~(MF_OPEN|MF_WRITABLE|MF_OPENBOGUS|MF_CLOSING|MF_CHKED_CHGD); } #if defined(SUN_EXTENSIONS) && defined(SUN_INIT_DOMAIN) extern int getdomainname(); /* this is mainly for backward compatibility in Sun environment */ static char * sun_init_domain() { /* ** Get the domain name from the kernel. ** If it does not start with a leading dot, then remove ** the first component. Since leading dots are funny Unix ** files, we treat a leading "+" the same as a leading dot. ** Finally, force there to be at least one dot in the domain name ** (i.e. top-level domains are not allowed, like "com", must be ** something like "sun.com"). */ char buf[MAXNAME]; /* EAI:ok (domainname) */ char *period, *autodomain; if (getdomainname(buf, sizeof buf) < 0) return NULL; if (buf[0] == '\0') return NULL; if (tTd(0, 20)) printf("domainname = %s\n", buf); if (buf[0] == '+') buf[0] = '.'; period = strchr(buf, '.'); if (period == NULL) autodomain = buf; else autodomain = period + 1; if (strchr(autodomain, '.') == NULL) return newstr(buf); else return newstr(autodomain); } #endif /* SUN_EXTENSIONS && SUN_INIT_DOMAIN */ /* ** GETCANONNAME -- look up name using service switch ** ** Parameters: ** host -- the host name to look up. ** hbsize -- the size of the host buffer. ** trymx -- if set, try MX records. ** pttl -- pointer to return TTL (can be NULL). ** ** Returns: ** >0 -- if the host was found. ** 0 -- otherwise. */ int getcanonname(host, hbsize, trymx, pttl) char *host; int hbsize; bool trymx; int *pttl; { int nmaps; int mapno; bool found = false; bool got_tempfail = false; auto int status = EX_UNAVAILABLE; char *maptype[MAXMAPSTACK]; short mapreturn[MAXMAPACTIONS]; #if defined(SUN_EXTENSIONS) && defined(SUN_INIT_DOMAIN) bool should_try_nis_domain = false; static char *nis_domain = NULL; #endif bool secure = true; /* consider all maps secure by default */ nmaps = switch_map_find("hosts", maptype, mapreturn); if (pttl != NULL) *pttl = SM_DEFAULT_TTL; for (mapno = 0; mapno < nmaps; mapno++) { int i; if (tTd(38, 20)) sm_dprintf("getcanonname(%s), trying %s\n", host, maptype[mapno]); if (strcmp("files", maptype[mapno]) == 0) { found = text_getcanonname(host, hbsize, &status); } #if NIS else if (strcmp("nis", maptype[mapno]) == 0) { found = nis_getcanonname(host, hbsize, &status); # if defined(SUN_EXTENSIONS) && defined(SUN_INIT_DOMAIN) if (nis_domain == NULL) nis_domain = sun_init_domain(); # endif } #endif /* NIS */ #if NISPLUS else if (strcmp("nisplus", maptype[mapno]) == 0) { found = nisplus_getcanonname(host, hbsize, &status); # if defined(SUN_EXTENSIONS) && defined(SUN_INIT_DOMAIN) if (nis_domain == NULL) nis_domain = sun_init_domain(); # endif } #endif /* NISPLUS */ #if NAMED_BIND else if (strcmp("dns", maptype[mapno]) == 0) { int r; r = dns_getcanonname(host, hbsize, trymx, &status, pttl); secure = HOST_SECURE == r; found = r > 0; } #endif /* NAMED_BIND */ #if NETINFO else if (strcmp("netinfo", maptype[mapno]) == 0) { found = ni_getcanonname(host, hbsize, &status); } #endif /* NETINFO */ else { found = false; status = EX_UNAVAILABLE; } /* ** Heuristic: if $m is not set, we are running during system ** startup. In this case, when a name is apparently found ** but has no dot, treat is as not found. This avoids ** problems if /etc/hosts has no FQDN but is listed first ** in the service switch. */ if (found && (macvalue('m', CurEnv) != NULL || strchr(host, '.') != NULL)) break; #if defined(SUN_EXTENSIONS) && defined(SUN_INIT_DOMAIN) if (found) should_try_nis_domain = true; /* but don't break, as we need to try all methods first */ #endif /* defined(SUN_EXTENSIONS) && defined(SUN_INIT_DOMAIN) */ /* see if we should continue */ if (status == EX_TEMPFAIL) { i = MA_TRYAGAIN; got_tempfail = true; } else if (status == EX_NOTFOUND) i = MA_NOTFOUND; else i = MA_UNAVAIL; if (bitset(1 << mapno, mapreturn[i])) break; } if (found) { char *d; if (tTd(38, 20)) sm_dprintf("getcanonname(%s), found, ad=%d\n", host, secure); /* ** If returned name is still single token, compensate ** by tagging on $m. This is because some sites set ** up their DNS or NIS databases wrong. */ if ((d = strchr(host, '.')) == NULL || d[1] == '\0') { d = macvalue('m', CurEnv); if (d != NULL && hbsize > (int) (strlen(host) + strlen(d) + 1)) { if (host[strlen(host) - 1] != '.') (void) sm_strlcat2(host, ".", d, hbsize); else (void) sm_strlcat(host, d, hbsize); } else { #if defined(SUN_EXTENSIONS) && defined(SUN_INIT_DOMAIN) if (VendorCode == VENDOR_SUN && should_try_nis_domain) { goto try_nis_domain; } #endif /* defined(SUN_EXTENSIONS) && defined(SUN_INIT_DOMAIN) */ return HOST_NOTFOUND; } } return secure ? HOST_SECURE : HOST_OK; } #if defined(SUN_EXTENSIONS) && defined(SUN_INIT_DOMAIN) if (VendorCode == VENDOR_SUN && should_try_nis_domain) { try_nis_domain: if (nis_domain != NULL && strlen(nis_domain) + strlen(host) + 1 < hbsize) { (void) sm_strlcat2(host, ".", nis_domain, hbsize); return HOST_OK; } } #endif /* defined(SUN_EXTENSIONS) && defined(SUN_INIT_DOMAIN) */ if (tTd(38, 20)) sm_dprintf("getcanonname(%s), failed, status=%d\n", host, status); if (got_tempfail) SM_SET_H_ERRNO(TRY_AGAIN); else SM_SET_H_ERRNO(HOST_NOT_FOUND); return HOST_NOTFOUND; } /* ** EXTRACT_CANONNAME -- extract canonical name from /etc/hosts entry ** ** Parameters: ** name -- the name against which to match. ** dot -- where to reinsert '.' to get FQDN ** line -- the /etc/hosts line. ** cbuf -- the location to store the result. ** cbuflen -- the size of cbuf. ** ** Returns: ** true -- if the line matched the desired name. ** false -- otherwise. */ static bool extract_canonname(name, dot, line, cbuf, cbuflen) char *name; char *dot; char *line; char cbuf[]; int cbuflen; { int i; char *p; bool found = false; cbuf[0] = '\0'; if (line[0] == '#') return false; for (i = 1; ; i++) { char nbuf[MAXNAME + 1]; /* EAI:hostname */ p = get_column(line, i, '\0', nbuf, sizeof(nbuf)); if (p == NULL) break; if (*p == '\0') continue; if (cbuf[0] == '\0' || (strchr(cbuf, '.') == NULL && strchr(p, '.') != NULL)) { (void) sm_strlcpy(cbuf, p, cbuflen); } if (SM_STRCASEEQ(name, p)) found = true; else if (dot != NULL) { /* try looking for the FQDN as well */ *dot = '.'; if (SM_STRCASEEQ(name, p)) found = true; *dot = '\0'; } } if (found && strchr(cbuf, '.') == NULL) { /* try to add a domain on the end of the name */ char *domain = macvalue('m', CurEnv); if (domain != NULL && strlen(domain) + (i = strlen(cbuf)) + 1 < (size_t) cbuflen) { p = &cbuf[i]; *p++ = '.'; (void) sm_strlcpy(p, domain, cbuflen - i - 1); } } return found; } /* ** DNS modules */ #if NAMED_BIND # if DNSMAP # include "sm_resolve.h" # if NETINET || NETINET6 # include # endif /* ** DNS_MAP_OPEN -- stub to check proper value for dns map type */ bool dns_map_open(map, mode) MAP *map; int mode; { if (tTd(38,2)) sm_dprintf("dns_map_open(%s, %d)\n", map->map_mname, mode); mode &= O_ACCMODE; if (mode != O_RDONLY) { /* issue a pseudo-error message */ errno = SM_EMAPCANTWRITE; return false; } return true; } /* ** DNS_MAP_PARSEARGS -- parse dns map definition args. ** ** Parameters: ** map -- pointer to MAP ** args -- pointer to the args on the config line. ** ** Returns: ** true -- if everything parsed OK. ** false -- otherwise. */ #define map_sizelimit map_lockfd /* overload field */ struct dns_map { int dns_m_type; unsigned int dns_m_options; }; bool dns_map_parseargs(map,args) MAP *map; char *args; { register char *p = args; struct dns_map *map_p; map_p = (struct dns_map *) xalloc(sizeof(*map_p)); memset(map_p, '\0', sizeof(*map_p)); map_p->dns_m_type = -1; map->map_mflags |= MF_TRY0NULL|MF_TRY1NULL; for (;;) { while (SM_ISSPACE(*p)) p++; if (*p != '-') break; switch (*++p) { # if DNSSEC_TEST || _FFR_NAMESERVER case '@': ++p; if (nsportip(p) < 0) syserr("dns map %s: nsportip(%s)=failed", map->map_mname, p); break; # endif /* DNSSEC_TEST || _FFR_NAMESERVER */ case 'A': map->map_mflags |= MF_APPEND; break; case 'a': map->map_app = ++p; break; case 'B': /* base domain */ { char *h; while (isascii(*++p) && isspace(*p)) continue; h = strchr(p, ' '); if (h != NULL) *h = '\0'; /* ** slight abuse of map->map_file; it isn't ** used otherwise in this map type. */ map->map_file = newstr(p); if (h != NULL) *h = ' '; } break; case 'd': { char *h; ++p; h = strchr(p, ' '); if (h != NULL) *h = '\0'; map->map_timeout = convtime(p, 's'); if (h != NULL) *h = ' '; } break; case 'f': map->map_mflags |= MF_NOFOLDCASE; break; case 'm': map->map_mflags |= MF_MATCHONLY; break; case 'N': map->map_mflags |= MF_INCLNULL; map->map_mflags &= ~MF_TRY0NULL; break; case 'O': map->map_mflags &= ~MF_TRY1NULL; break; case 'o': map->map_mflags |= MF_OPTIONAL; break; case 'q': map->map_mflags |= MF_KEEPQUOTES; break; case 'S': # if defined(RES_USE_EDNS0) && defined(RES_USE_DNSSEC) map_p->dns_m_options |= SM_RES_DNSSEC; # endif break; case 'r': while (isascii(*++p) && isspace(*p)) continue; map->map_retry = atoi(p); break; case 't': map->map_mflags |= MF_NODEFER; break; case 'T': map->map_tapp = ++p; break; case 'z': if (*++p != '\\') map->map_coldelim = *p; else { switch (*++p) { case 'n': map->map_coldelim = '\n'; break; case 't': map->map_coldelim = '\t'; break; default: map->map_coldelim = '\\'; } } break; case 'Z': while (isascii(*++p) && isspace(*p)) continue; map->map_sizelimit = atoi(p); break; /* Start of dns_map specific args */ case 'R': /* search field */ { char *h; while (isascii(*++p) && isspace(*p)) continue; h = strchr(p, ' '); if (h != NULL) *h = '\0'; map_p->dns_m_type = dns_string_to_type(p); if (h != NULL) *h = ' '; if (map_p->dns_m_type < 0) syserr("dns map %s: wrong type %s", map->map_mname, p); } break; } while (*p != '\0' && !(SM_ISSPACE(*p))) p++; if (*p != '\0') *p++ = '\0'; } if (map_p->dns_m_type < 0) syserr("dns map %s: missing -R type", map->map_mname); if (map->map_app != NULL) map->map_app = newstr(map->map_app); if (map->map_tapp != NULL) map->map_tapp = newstr(map->map_tapp); /* ** Assumption: assert(sizeof(int) <= sizeof(ARBPTR_T)); ** Even if this assumption is wrong, we use only one byte, ** so it doesn't really matter. */ map->map_db1 = (ARBPTR_T) map_p; return true; } /* ** DNS_MAP_LOOKUP -- perform dns map lookup. ** ** Parameters: ** map -- pointer to MAP ** name -- name to look up ** av -- arguments to interpolate into buf. ** statp -- pointer to status (EX_) ** ** Returns: ** result of lookup if succeeded. ** NULL -- otherwise. */ char * dns_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { int resnum = 0; char *vp = NULL, *result = NULL; size_t vsize; struct dns_map *map_p; RESOURCE_RECORD_T *rr = NULL; DNS_REPLY_T *r = NULL; unsigned int options; # if NETINET6 static char buf6[INET6_ADDRSTRLEN]; # endif if (tTd(38, 20)) sm_dprintf("dns_map_lookup(%s, %s)\n", map->map_mname, name); map_p = (struct dns_map *)(map->map_db1); options = map_p->dns_m_options; if (map->map_file != NULL && *map->map_file != '\0') { size_t len; char *appdomain; len = strlen(map->map_file) + strlen(name) + 2; appdomain = (char *) sm_malloc(len); if (appdomain == NULL) { *statp = EX_UNAVAILABLE; return NULL; } (void) sm_strlcpyn(appdomain, len, 3, name, ".", map->map_file); r = dns_lookup_map(appdomain, C_IN, map_p->dns_m_type, map->map_timeout, map->map_retry, options); sm_free(appdomain); } else { r = dns_lookup_map(name, C_IN, map_p->dns_m_type, map->map_timeout, map->map_retry, options); } if (r == NULL) { result = NULL; if (h_errno == TRY_AGAIN || transienterror(errno)) *statp = EX_TEMPFAIL; else *statp = EX_NOTFOUND; goto cleanup; } *statp = EX_OK; for (rr = r->dns_r_head; rr != NULL; rr = rr->rr_next) { char *type = NULL; char *value = NULL; switch (rr->rr_type) { case T_NS: type = "T_NS"; value = rr->rr_u.rr_txt; break; case T_CNAME: type = "T_CNAME"; value = rr->rr_u.rr_txt; break; case T_AFSDB: type = "T_AFSDB"; value = rr->rr_u.rr_mx->mx_r_domain; break; case T_SRV: type = "T_SRV"; value = rr->rr_u.rr_srv->srv_r_target; break; case T_PTR: type = "T_PTR"; value = rr->rr_u.rr_txt; break; case T_TXT: type = "T_TXT"; value = rr->rr_u.rr_txt; break; case T_MX: type = "T_MX"; value = rr->rr_u.rr_mx->mx_r_domain; break; # if NETINET case T_A: type = "T_A"; value = inet_ntoa(*(rr->rr_u.rr_a)); break; # endif /* NETINET */ # if NETINET6 case T_AAAA: type = "T_AAAA"; value = anynet_ntop(rr->rr_u.rr_aaaa, buf6, sizeof(buf6)); break; # endif /* NETINET6 */ # ifdef T_TLSA case T_TLSA: type = "T_TLSA"; value = rr->rr_u.rr_txt; break; # endif /* T_TLSA */ } (void) strreplnonprt(value, 'X'); if (map_p->dns_m_type != rr->rr_type) { if (tTd(38, 40)) sm_dprintf("\tskipping type %s (%d) value %s\n", type != NULL ? type : "", rr->rr_type, value != NULL ? value : ""); continue; } # if NETINET6 if (rr->rr_type == T_AAAA && value == NULL) { result = NULL; *statp = EX_DATAERR; if (tTd(38, 40)) sm_dprintf("\tbad T_AAAA conversion\n"); goto cleanup; } # endif /* NETINET6 */ if (tTd(38, 40)) sm_dprintf("\tfound type %s (%d) value %s\n", type != NULL ? type : "", rr->rr_type, value != NULL ? value : ""); if (value != NULL && (map->map_coldelim == '\0' || map->map_sizelimit == 1 || bitset(MF_MATCHONLY, map->map_mflags))) { /* Only care about the first match */ vp = newstr(value); break; } else if (vp == NULL) { /* First result */ vp = newstr(value); } else { /* concatenate the results */ int sz; char *new; sz = strlen(vp) + strlen(value) + 2; new = xalloc(sz); (void) sm_snprintf(new, sz, "%s%c%s", vp, map->map_coldelim, value); sm_free(vp); vp = new; if (map->map_sizelimit > 0 && ++resnum >= map->map_sizelimit) break; } } if (vp == NULL) { result = NULL; *statp = EX_NOTFOUND; if (tTd(38, 40)) sm_dprintf("\tno match found\n"); goto cleanup; } /* Cleanly truncate for rulesets */ truncate_at_delim(vp, PSBUFSIZE / 2, map->map_coldelim); vsize = strlen(vp); if (LogLevel > 9) sm_syslog(LOG_INFO, CurEnv->e_id, "dns %.100s => %s", name, vp); if (bitset(MF_MATCHONLY, map->map_mflags)) result = map_rewrite(map, name, strlen(name), NULL); else result = map_rewrite(map, vp, vsize, av); cleanup: SM_FREE(vp); dns_free_data(r); return result; } # endif /* DNSMAP */ #endif /* NAMED_BIND */ /* ** NDBM modules */ #if NDBM /* ** NDBM_MAP_OPEN -- DBM-style map open */ bool ndbm_map_open(map, mode) MAP *map; int mode; { register DBM *dbm; int save_errno; int dfd; int pfd; long sff; int ret; int smode = S_IREAD; char dirfile[MAXPATHLEN]; char pagfile[MAXPATHLEN]; struct stat st; struct stat std, stp; if (tTd(38, 2)) sm_dprintf("ndbm_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); map->map_lockfd = -1; mode &= O_ACCMODE; /* do initial file and directory checks */ if (sm_strlcpyn(dirfile, sizeof(dirfile), 2, map->map_file, ".dir") >= sizeof(dirfile) || sm_strlcpyn(pagfile, sizeof(pagfile), 2, map->map_file, ".pag") >= sizeof(pagfile)) { errno = 0; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("dbm map \"%s\": map file %s name too long", map->map_mname, map->map_file); return false; } sff = SFF_ROOTOK|SFF_REGONLY; if (mode == O_RDWR) { sff |= SFF_CREAT; if (!bitnset(DBS_WRITEMAPTOSYMLINK, DontBlameSendmail)) sff |= SFF_NOSLINK; if (!bitnset(DBS_WRITEMAPTOHARDLINK, DontBlameSendmail)) sff |= SFF_NOHLINK; smode = S_IWRITE; } else { if (!bitnset(DBS_LINKEDMAPINWRITABLEDIR, DontBlameSendmail)) sff |= SFF_NOWLINK; } if (!bitnset(DBS_MAPINUNSAFEDIRPATH, DontBlameSendmail)) sff |= SFF_SAFEDIRPATH; ret = safefile(dirfile, RunAsUid, RunAsGid, RunAsUserName, sff, smode, &std); if (ret == 0) ret = safefile(pagfile, RunAsUid, RunAsGid, RunAsUserName, sff, smode, &stp); if (ret != 0) { char *prob = "unsafe"; /* cannot open this map */ if (ret == ENOENT) prob = "missing"; if (tTd(38, 2)) sm_dprintf("\t%s map file: %d\n", prob, ret); if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("dbm map \"%s\": %s map file %s", map->map_mname, prob, map->map_file); return false; } if (std.st_mode == ST_MODE_NOFILE) mode |= O_CREAT|O_EXCL; # if LOCK_ON_OPEN if (mode == O_RDONLY) mode |= O_SHLOCK; else mode |= O_TRUNC|O_EXLOCK; # else /* LOCK_ON_OPEN */ if ((mode & O_ACCMODE) == O_RDWR) { # if NOFTRUNCATE /* ** Warning: race condition. Try to lock the file as ** quickly as possible after opening it. ** This may also have security problems on some systems, ** but there isn't anything we can do about it. */ mode |= O_TRUNC; # else /* NOFTRUNCATE */ /* ** This ugly code opens the map without truncating it, ** locks the file, then truncates it. Necessary to ** avoid race conditions. */ int dirfd; int pagfd; long sff = SFF_CREAT|SFF_OPENASROOT; if (!bitnset(DBS_WRITEMAPTOSYMLINK, DontBlameSendmail)) sff |= SFF_NOSLINK; if (!bitnset(DBS_WRITEMAPTOHARDLINK, DontBlameSendmail)) sff |= SFF_NOHLINK; dirfd = safeopen(dirfile, mode, DBMMODE, sff); pagfd = safeopen(pagfile, mode, DBMMODE, sff); if (dirfd < 0 || pagfd < 0) { save_errno = errno; if (dirfd >= 0) (void) close(dirfd); if (pagfd >= 0) (void) close(pagfd); errno = save_errno; syserr("ndbm_map_open: cannot create database %s", map->map_file); return false; } if (ftruncate(dirfd, (off_t) 0) < 0 || ftruncate(pagfd, (off_t) 0) < 0) { save_errno = errno; (void) close(dirfd); (void) close(pagfd); errno = save_errno; syserr("ndbm_map_open: cannot truncate %s.{dir,pag}", map->map_file); return false; } /* if new file, get "before" bits for later filechanged check */ if (std.st_mode == ST_MODE_NOFILE && (fstat(dirfd, &std) < 0 || fstat(pagfd, &stp) < 0)) { save_errno = errno; (void) close(dirfd); (void) close(pagfd); errno = save_errno; syserr("ndbm_map_open(%s.{dir,pag}): cannot fstat pre-opened file", map->map_file); return false; } /* have to save the lock for the duration (bletch) */ map->map_lockfd = dirfd; (void) close(pagfd); /* twiddle bits for dbm_open */ mode &= ~(O_CREAT|O_EXCL); # endif /* NOFTRUNCATE */ } # endif /* LOCK_ON_OPEN */ /* open the database */ dbm = dbm_open(map->map_file, mode, DBMMODE); if (dbm == NULL) { save_errno = errno; if (bitset(MF_ALIAS, map->map_mflags) && aliaswait(map, ".pag", false)) return true; # if !LOCK_ON_OPEN && !NOFTRUNCATE if (map->map_lockfd >= 0) (void) close(map->map_lockfd); # endif errno = save_errno; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("Cannot open DBM database %s", map->map_file); return false; } dfd = dbm_dirfno(dbm); pfd = dbm_pagfno(dbm); if (dfd == pfd) { /* heuristic: if files are linked, this is actually gdbm */ dbm_close(dbm); # if !LOCK_ON_OPEN && !NOFTRUNCATE if (map->map_lockfd >= 0) (void) close(map->map_lockfd); # endif errno = 0; syserr("dbm map \"%s\": cannot support GDBM", map->map_mname); return false; } if (filechanged(dirfile, dfd, &std) || filechanged(pagfile, pfd, &stp)) { save_errno = errno; dbm_close(dbm); # if !LOCK_ON_OPEN && !NOFTRUNCATE if (map->map_lockfd >= 0) (void) close(map->map_lockfd); # endif errno = save_errno; syserr("ndbm_map_open(%s): file changed after open", map->map_file); return false; } map->map_db1 = (ARBPTR_T) dbm; /* ** Need to set map_mtime before the call to aliaswait() ** as aliaswait() will call map_lookup() which requires ** map_mtime to be set */ if (fstat(pfd, &st) >= 0) map->map_mtime = st.st_mtime; if (mode == O_RDONLY) { # if LOCK_ON_OPEN if (dfd >= 0) (void) lockfile(dfd, map->map_file, ".dir", LOCK_UN); if (pfd >= 0) (void) lockfile(pfd, map->map_file, ".pag", LOCK_UN); # endif /* LOCK_ON_OPEN */ if (bitset(MF_ALIAS, map->map_mflags) && !aliaswait(map, ".pag", true)) return false; } else { map->map_mflags |= MF_LOCKED; mapchown(map->map_file, dfd, pfd, map->map_file); } return true; } /* ** NDBM_MAP_LOOKUP -- look up a datum in a DBM-type map */ char * ndbm_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { datum key, val; int dfd, pfd; char keybuf[MAXNAME + 1]; /* EAI:ok */ # if _FFR_MAP_CHK_FILE char buf[MAXPATHLEN]; # endif const char *fn = NULL; if (tTd(38, 20)) sm_dprintf("ndbm_map_lookup(%s, %s)\n", map->map_mname, name); key.dptr = name; key.dsize = strlen(name); if (!bitset(MF_NOFOLDCASE, map->map_mflags)) { if (key.dsize > sizeof(keybuf) - 1) key.dsize = sizeof(keybuf) - 1; memmove(keybuf, key.dptr, key.dsize); keybuf[key.dsize] = '\0'; makelower_buf(keybuf, keybuf, sizeof(keybuf)); key.dptr = keybuf; } # if _FFR_MAP_CHK_FILE if (!smdb_add_extension(buf, sizeof(buf), map->map_file, "pag")) { errno = 0; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("ndbm map \"%s\": map file %s name too long", map->map_mname, map->map_file); return NULL; } fn = buf; # endif lockdbm: dfd = dbm_dirfno((DBM *) map->map_db1); if (dfd >= 0 && !bitset(MF_LOCKED, map->map_mflags)) (void) lockfile(dfd, map->map_file, ".dir", LOCK_SH); pfd = dbm_pagfno((DBM *) map->map_db1); if (map_has_chged(map, fn, pfd)) { /* Reopen the database to sync the cache */ int omode = bitset(map->map_mflags, MF_WRITABLE) ? O_RDWR : O_RDONLY; if (dfd >= 0 && !bitset(MF_LOCKED, map->map_mflags)) (void) lockfile(dfd, map->map_file, ".dir", LOCK_UN); map->map_mflags |= MF_CLOSING; map->map_class->map_close(map); map->map_mflags &= ~(MF_OPEN|MF_WRITABLE|MF_CLOSING); if (map->map_class->map_open(map, omode)) { map->map_mflags |= MF_OPEN; map->map_pid = CurrentPid; if ((omode & O_ACCMODE) == O_RDWR) map->map_mflags |= MF_WRITABLE; goto lockdbm; } else { if (!bitset(MF_OPTIONAL, map->map_mflags)) { extern MAPCLASS BogusMapClass; *statp = EX_TEMPFAIL; map->map_orgclass = map->map_class; map->map_class = &BogusMapClass; map->map_mflags |= MF_OPEN; map->map_pid = CurrentPid; syserr("Cannot reopen NDBM database %s", map->map_file); } return NULL; } } val.dptr = NULL; if (bitset(MF_TRY0NULL, map->map_mflags)) { val = dbm_fetch((DBM *) map->map_db1, key); if (val.dptr != NULL) map->map_mflags &= ~MF_TRY1NULL; } if (val.dptr == NULL && bitset(MF_TRY1NULL, map->map_mflags)) { key.dsize++; val = dbm_fetch((DBM *) map->map_db1, key); if (val.dptr != NULL) map->map_mflags &= ~MF_TRY0NULL; } if (dfd >= 0 && !bitset(MF_LOCKED, map->map_mflags)) (void) lockfile(dfd, map->map_file, ".dir", LOCK_UN); if (val.dptr == NULL) return NULL; if (bitset(MF_MATCHONLY, map->map_mflags)) return map_rewrite(map, name, strlen(name), NULL); else return map_rewrite(map, val.dptr, val.dsize, av); } /* ** NDBM_MAP_STORE -- store a datum in the database */ void ndbm_map_store(map, lhs, rhs) register MAP *map; char *lhs; char *rhs; { datum key; datum data; int status; char keybuf[MAXNAME + 1]; /* EAI:ok */ if (tTd(38, 12)) sm_dprintf("ndbm_map_store(%s, %s, %s)\n", map->map_mname, lhs, rhs); key.dsize = strlen(lhs); key.dptr = lhs; if (!bitset(MF_NOFOLDCASE, map->map_mflags)) { if (key.dsize > sizeof(keybuf) - 1) key.dsize = sizeof(keybuf) - 1; memmove(keybuf, key.dptr, key.dsize); keybuf[key.dsize] = '\0'; makelower_buf(keybuf, keybuf, sizeof(keybuf)); key.dptr = keybuf; } data.dsize = strlen(rhs); data.dptr = rhs; if (bitset(MF_INCLNULL, map->map_mflags)) { key.dsize++; data.dsize++; } status = dbm_store((DBM *) map->map_db1, key, data, DBM_INSERT); if (status > 0) { if (!bitset(MF_APPEND, map->map_mflags)) message("050 Warning: duplicate alias name %s", lhs); else { static char *buf = NULL; static int bufsiz = 0; auto int xstat; datum old; old.dptr = ndbm_map_lookup(map, key.dptr, (char **) NULL, &xstat); if (old.dptr != NULL && *(char *) old.dptr != '\0') { old.dsize = strlen(old.dptr); if (data.dsize + old.dsize + 2 > bufsiz) { SM_FREE(buf); bufsiz = data.dsize + old.dsize + 2; buf = sm_pmalloc_x(bufsiz); } (void) sm_strlcpyn(buf, bufsiz, 3, data.dptr, ",", old.dptr); data.dsize = data.dsize + old.dsize + 1; data.dptr = buf; if (tTd(38, 9)) sm_dprintf("ndbm_map_store append=%s\n", data.dptr); } } status = dbm_store((DBM *) map->map_db1, key, data, DBM_REPLACE); } if (status != 0) syserr("readaliases: dbm put (%s): %d", lhs, status); } /* ** NDBM_MAP_CLOSE -- close the database */ void ndbm_map_close(map) register MAP *map; { if (tTd(38, 9)) sm_dprintf("ndbm_map_close(%s, %s, %lx)\n", map->map_mname, map->map_file, map->map_mflags); if (bitset(MF_WRITABLE, map->map_mflags)) { # ifdef NDBM_YP_COMPAT bool inclnull; char buf[MAXHOSTNAMELEN]; inclnull = bitset(MF_INCLNULL, map->map_mflags); map->map_mflags &= ~MF_INCLNULL; if (strstr(map->map_file, "/yp/") != NULL) { long save_mflags = map->map_mflags; map->map_mflags |= MF_NOFOLDCASE; (void) sm_snprintf(buf, sizeof(buf), "%010ld", curtime()); ndbm_map_store(map, "YP_LAST_MODIFIED", buf); (void) gethostname(buf, sizeof(buf)); ndbm_map_store(map, "YP_MASTER_NAME", buf); map->map_mflags = save_mflags; } if (inclnull) map->map_mflags |= MF_INCLNULL; # endif /* NDBM_YP_COMPAT */ /* write out the distinguished alias */ ndbm_map_store(map, "@", "@"); } dbm_close((DBM *) map->map_db1); /* release lock (if needed) */ # if !LOCK_ON_OPEN if (map->map_lockfd >= 0) (void) close(map->map_lockfd); # endif } #endif /* NDBM */ /* ** NEWDB (Hash and BTree) Modules */ #if NEWDB /* ** BT_MAP_OPEN, HASH_MAP_OPEN -- database open primitives. ** ** These do rather bizarre locking. If you can lock on open, ** do that to avoid the condition of opening a database that ** is being rebuilt. If you don't, we'll try to fake it, but ** there will be a race condition. If opening for read-only, ** we immediately release the lock to avoid freezing things up. ** We really ought to hold the lock, but guarantee that we won't ** be pokey about it. That's hard to do. */ /* these should be K line arguments */ # if DB_VERSION_MAJOR < 2 # define db_cachesize cachesize # define h_nelem nelem # ifndef DB_CACHE_SIZE # define DB_CACHE_SIZE (1024 * 1024) /* database memory cache size */ # endif # ifndef DB_HASH_NELEM # define DB_HASH_NELEM 4096 /* (starting) size of hash table */ # endif # endif /* DB_VERSION_MAJOR < 2 */ bool bt_map_open(map, mode) MAP *map; int mode; { # if DB_VERSION_MAJOR < 2 BTREEINFO btinfo; # endif # if DB_VERSION_MAJOR == 2 DB_INFO btinfo; # endif # if DB_VERSION_MAJOR > 2 void *btinfo = NULL; # endif if (tTd(38, 2)) sm_dprintf("bt_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); # if DB_VERSION_MAJOR < 3 memset(&btinfo, '\0', sizeof(btinfo)); # ifdef DB_CACHE_SIZE btinfo.db_cachesize = DB_CACHE_SIZE; # endif # endif /* DB_VERSION_MAJOR < 3 */ return db_map_open(map, mode, "btree", DB_BTREE, &btinfo); } bool hash_map_open(map, mode) MAP *map; int mode; { # if DB_VERSION_MAJOR < 2 HASHINFO hinfo; # endif # if DB_VERSION_MAJOR == 2 DB_INFO hinfo; # endif # if DB_VERSION_MAJOR > 2 void *hinfo = NULL; # endif if (tTd(38, 2)) sm_dprintf("hash_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); # if DB_VERSION_MAJOR < 3 memset(&hinfo, '\0', sizeof(hinfo)); # ifdef DB_HASH_NELEM hinfo.h_nelem = DB_HASH_NELEM; # endif # ifdef DB_CACHE_SIZE hinfo.db_cachesize = DB_CACHE_SIZE; # endif # endif /* DB_VERSION_MAJOR < 3 */ return db_map_open(map, mode, "hash", DB_HASH, &hinfo); } static bool db_map_open(map, mode, mapclassname, dbtype, openinfo) MAP *map; int mode; char *mapclassname; DBTYPE dbtype; # if DB_VERSION_MAJOR < 2 const void *openinfo; # endif # if DB_VERSION_MAJOR == 2 DB_INFO *openinfo; # endif # if DB_VERSION_MAJOR > 2 void **openinfo; # endif { DB *db = NULL; int i; int omode; int smode = S_IREAD; int fd; long sff; int save_errno; struct stat st; char buf[MAXPATHLEN]; /* do initial file and directory checks */ if (!smdb_add_extension(buf, sizeof(buf), map->map_file, "db")) { errno = 0; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("db map \"%s\": map file %s name too long", map->map_mname, map->map_file); return false; } mode &= O_ACCMODE; omode = mode; sff = SFF_ROOTOK|SFF_REGONLY; if (mode == O_RDWR) { sff |= SFF_CREAT; if (!bitnset(DBS_WRITEMAPTOSYMLINK, DontBlameSendmail)) sff |= SFF_NOSLINK; if (!bitnset(DBS_WRITEMAPTOHARDLINK, DontBlameSendmail)) sff |= SFF_NOHLINK; smode = S_IWRITE; } else { if (!bitnset(DBS_LINKEDMAPINWRITABLEDIR, DontBlameSendmail)) sff |= SFF_NOWLINK; } if (!bitnset(DBS_MAPINUNSAFEDIRPATH, DontBlameSendmail)) sff |= SFF_SAFEDIRPATH; i = safefile(buf, RunAsUid, RunAsGid, RunAsUserName, sff, smode, &st); if (i != 0) { char *prob = "unsafe"; /* cannot open this map */ if (i == ENOENT) prob = "missing"; if (tTd(38, 2)) sm_dprintf("\t%s map file %s: %s\n", prob, buf, sm_errstring(i)); errno = i; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("%s map \"%s\": %s map file %s", mapclassname, map->map_mname, prob, buf); return false; } if (st.st_mode == ST_MODE_NOFILE) omode |= O_CREAT|O_EXCL; map->map_lockfd = -1; # if LOCK_ON_OPEN if (mode == O_RDWR) omode |= O_TRUNC|O_EXLOCK; else omode |= O_SHLOCK; # else /* LOCK_ON_OPEN */ /* ** Pre-lock the file to avoid race conditions. In particular, ** since dbopen returns NULL if the file is zero length, we ** must have a locked instance around the dbopen. */ fd = open(buf, omode, DBMMODE); if (fd < 0) { if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("db_map_open: cannot pre-open database %s", buf); return false; } /* make sure no baddies slipped in just before the open... */ if (filechanged(buf, fd, &st)) { save_errno = errno; (void) close(fd); errno = save_errno; syserr("db_map_open(%s): file changed after pre-open", buf); return false; } /* if new file, get the "before" bits for later filechanged check */ if (st.st_mode == ST_MODE_NOFILE && fstat(fd, &st) < 0) { save_errno = errno; (void) close(fd); errno = save_errno; syserr("db_map_open(%s): cannot fstat pre-opened file", buf); return false; } /* actually lock the pre-opened file */ if (!lockfile(fd, buf, NULL, mode == O_RDONLY ? LOCK_SH : LOCK_EX)) syserr("db_map_open: cannot lock %s", buf); /* set up mode bits for dbopen */ if (mode == O_RDWR) omode |= O_TRUNC; omode &= ~(O_EXCL|O_CREAT); # endif /* LOCK_ON_OPEN */ # if DB_VERSION_MAJOR < 2 db = dbopen(buf, omode, DBMMODE, dbtype, openinfo); # else /* DB_VERSION_MAJOR < 2 */ { int flags = 0; # if DB_VERSION_MAJOR > 2 int ret; # endif if (mode == O_RDONLY) flags |= DB_RDONLY; if (bitset(O_CREAT, omode)) flags |= DB_CREATE; if (bitset(O_TRUNC, omode)) flags |= DB_TRUNCATE; SM_DB_FLAG_ADD(flags); # if DB_VERSION_MAJOR > 2 ret = db_create(&db, NULL, 0); # ifdef DB_CACHE_SIZE if (ret == 0 && db != NULL) { ret = db->set_cachesize(db, 0, DB_CACHE_SIZE, 0); if (ret != 0) { (void) db->close(db, 0); db = NULL; } } # endif /* DB_CACHE_SIZE */ # ifdef DB_HASH_NELEM if (dbtype == DB_HASH && ret == 0 && db != NULL) { ret = db->set_h_nelem(db, DB_HASH_NELEM); if (ret != 0) { (void) db->close(db, 0); db = NULL; } } # endif /* DB_HASH_NELEM */ if (ret == 0 && db != NULL) { ret = db->open(db, DBTXN /* transaction for DB 4.1 */ buf, NULL, dbtype, flags, DBMMODE); if (ret != 0) { # ifdef DB_OLD_VERSION if (ret == DB_OLD_VERSION) ret = EINVAL; # endif /* DB_OLD_VERSION */ (void) db->close(db, 0); db = NULL; } } errno = ret; # else /* DB_VERSION_MAJOR > 2 */ errno = db_open(buf, dbtype, flags, DBMMODE, NULL, openinfo, &db); # endif /* DB_VERSION_MAJOR > 2 */ } # endif /* DB_VERSION_MAJOR < 2 */ save_errno = errno; # if !LOCK_ON_OPEN if (mode == O_RDWR) map->map_lockfd = fd; else (void) close(fd); # endif /* !LOCK_ON_OPEN */ if (db == NULL) { if (mode == O_RDONLY && bitset(MF_ALIAS, map->map_mflags) && aliaswait(map, ".db", false)) return true; # if !LOCK_ON_OPEN if (map->map_lockfd >= 0) (void) close(map->map_lockfd); # endif errno = save_errno; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("Cannot open %s database %s", mapclassname, buf); return false; } # if DB_VERSION_MAJOR < 2 fd = db->fd(db); # else fd = -1; errno = db->fd(db, &fd); # endif /* DB_VERSION_MAJOR < 2 */ if (filechanged(buf, fd, &st)) { save_errno = errno; # if DB_VERSION_MAJOR < 2 (void) db->close(db); # else errno = db->close(db, 0); # endif /* DB_VERSION_MAJOR < 2 */ # if !LOCK_ON_OPEN if (map->map_lockfd >= 0) (void) close(map->map_lockfd); # endif errno = save_errno; syserr("db_map_open(%s): file changed after open", buf); return false; } if (mode == O_RDWR) map->map_mflags |= MF_LOCKED; # if LOCK_ON_OPEN if (fd >= 0 && mode == O_RDONLY) (void) lockfile(fd, buf, NULL, LOCK_UN); # endif /* try to make sure that at least the database header is on disk */ if (mode == O_RDWR) { (void) db->sync(db, 0); mapchown(map->map_file, fd, -1, buf); } map->map_db2 = (ARBPTR_T) db; /* ** Need to set map_mtime before the call to aliaswait() ** as aliaswait() will call map_lookup() which requires ** map_mtime to be set */ if (fd >= 0 && fstat(fd, &st) >= 0) map->map_mtime = st.st_mtime; # if _FFR_TESTS if (tTd(68, 101) && fd >= 0 && mode == O_RDONLY) { int sl; sl = tTdlevel(68) - 100; /* XXX test checks for map type!!! */ sm_dprintf("hash_map_open: sleep=%d\n", sl); sleep(sl); } # endif if (mode == O_RDONLY && bitset(MF_ALIAS, map->map_mflags) && !aliaswait(map, ".db", true)) return false; return true; } /* ** DB_MAP_LOOKUP -- look up a datum in a BTREE- or HASH-type map */ char * db_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { DBT key, val; register DB *db = (DB *) map->map_db2; int st; int save_errno; int fd; char keybuf[MAXNAME + 1]; /* EAI:ok */ char buf[MAXPATHLEN]; memset(&key, '\0', sizeof(key)); memset(&val, '\0', sizeof(val)); if (tTd(38, 20)) sm_dprintf("db_map_lookup(%s, %s)\n", map->map_mname, name); if (!smdb_add_extension(buf, sizeof(buf), map->map_file, "db")) { errno = 0; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("db map \"%s\": map file %s name too long", map->map_mname, map->map_file); return NULL; } key.size = strlen(name); if (key.size > sizeof(keybuf) - 1) key.size = sizeof(keybuf) - 1; key.data = keybuf; memmove(keybuf, name, key.size); keybuf[key.size] = '\0'; if (!bitset(MF_NOFOLDCASE, map->map_mflags)) makelower_buf(keybuf, keybuf, sizeof(keybuf)); lockdb: # if DB_VERSION_MAJOR < 2 fd = db->fd(db); # else fd = -1; errno = db->fd(db, &fd); # endif /* DB_VERSION_MAJOR < 2 */ if (fd >= 0 && !bitset(MF_LOCKED, map->map_mflags)) (void) lockfile(fd, buf, NULL, LOCK_SH); if (map_has_chged(map, buf, fd)) { /* Reopen the database to sync the cache */ int omode = bitset(map->map_mflags, MF_WRITABLE) ? O_RDWR : O_RDONLY; if (fd >= 0 && !bitset(MF_LOCKED, map->map_mflags)) (void) lockfile(fd, buf, NULL, LOCK_UN); map->map_mflags |= MF_CLOSING; map->map_class->map_close(map); map->map_mflags &= ~(MF_OPEN|MF_WRITABLE|MF_CLOSING); if (map->map_class->map_open(map, omode)) { map->map_mflags |= MF_OPEN; map->map_pid = CurrentPid; if ((omode & O_ACCMODE) == O_RDWR) map->map_mflags |= MF_WRITABLE; db = (DB *) map->map_db2; goto lockdb; } else { if (!bitset(MF_OPTIONAL, map->map_mflags)) { extern MAPCLASS BogusMapClass; *statp = EX_TEMPFAIL; map->map_orgclass = map->map_class; map->map_class = &BogusMapClass; map->map_mflags |= MF_OPEN; map->map_pid = CurrentPid; syserr("Cannot reopen DB database %s", map->map_file); } return NULL; } } st = 1; if (bitset(MF_TRY0NULL, map->map_mflags)) { # if DB_VERSION_MAJOR < 2 st = db->get(db, &key, &val, 0); # else /* DB_VERSION_MAJOR < 2 */ errno = db->get(db, NULL, &key, &val, 0); switch (errno) { case DB_NOTFOUND: case DB_KEYEMPTY: st = 1; break; case 0: st = 0; break; default: st = -1; break; } # endif /* DB_VERSION_MAJOR < 2 */ if (st == 0) map->map_mflags &= ~MF_TRY1NULL; } if (st != 0 && bitset(MF_TRY1NULL, map->map_mflags)) { key.size++; # if DB_VERSION_MAJOR < 2 st = db->get(db, &key, &val, 0); # else /* DB_VERSION_MAJOR < 2 */ errno = db->get(db, NULL, &key, &val, 0); switch (errno) { case DB_NOTFOUND: case DB_KEYEMPTY: st = 1; break; case 0: st = 0; break; default: st = -1; break; } # endif /* DB_VERSION_MAJOR < 2 */ if (st == 0) map->map_mflags &= ~MF_TRY0NULL; } save_errno = errno; if (fd >= 0 && !bitset(MF_LOCKED, map->map_mflags)) (void) lockfile(fd, buf, NULL, LOCK_UN); if (st != 0) { errno = save_errno; if (st < 0) syserr("db_map_lookup: get (%s)", name); return NULL; } if (bitset(MF_MATCHONLY, map->map_mflags)) return map_rewrite(map, name, strlen(name), NULL); else return map_rewrite(map, val.data, val.size, av); } /* ** DB_MAP_STORE -- store a datum in the NEWDB database */ void db_map_store(map, lhs, rhs) register MAP *map; char *lhs; char *rhs; { int status; DBT key; DBT data; register DB *db = map->map_db2; char keybuf[MAXNAME + 1]; /* EAI:ok */ memset(&key, '\0', sizeof(key)); memset(&data, '\0', sizeof(data)); if (tTd(38, 12)) sm_dprintf("db_map_store(%s, %s, %s)\n", map->map_mname, lhs, rhs); key.size = strlen(lhs); key.data = lhs; if (!bitset(MF_NOFOLDCASE, map->map_mflags)) { if (key.size > sizeof(keybuf) - 1) key.size = sizeof(keybuf) - 1; memmove(keybuf, key.data, key.size); keybuf[key.size] = '\0'; makelower_buf(keybuf, keybuf, sizeof(keybuf)); key.data = keybuf; } data.size = strlen(rhs); data.data = rhs; if (bitset(MF_INCLNULL, map->map_mflags)) { key.size++; data.size++; } # if DB_VERSION_MAJOR < 2 status = db->put(db, &key, &data, R_NOOVERWRITE); # else /* DB_VERSION_MAJOR < 2 */ errno = db->put(db, NULL, &key, &data, DB_NOOVERWRITE); switch (errno) { case DB_KEYEXIST: status = 1; break; case 0: status = 0; break; default: status = -1; break; } # endif /* DB_VERSION_MAJOR < 2 */ if (status > 0) { if (!bitset(MF_APPEND, map->map_mflags)) message("050 Warning: duplicate alias name %s", lhs); else { static char *buf = NULL; static int bufsiz = 0; DBT old; memset(&old, '\0', sizeof(old)); old.data = db_map_lookup(map, key.data, (char **) NULL, &status); if (old.data != NULL) { old.size = strlen(old.data); if (data.size + old.size + 2 > (size_t) bufsiz) { SM_FREE(buf); bufsiz = data.size + old.size + 2; buf = sm_pmalloc_x(bufsiz); } (void) sm_strlcpyn(buf, bufsiz, 3, (char *) data.data, ",", (char *) old.data); data.size = data.size + old.size + 1; data.data = buf; if (tTd(38, 9)) sm_dprintf("db_map_store append=%s\n", (char *) data.data); } } # if DB_VERSION_MAJOR < 2 status = db->put(db, &key, &data, 0); # else status = errno = db->put(db, NULL, &key, &data, 0); # endif /* DB_VERSION_MAJOR < 2 */ } if (status != 0) syserr("readaliases: db put (%s)", lhs); } /* ** DB_MAP_CLOSE -- add distinguished entries and close the database */ void db_map_close(map) MAP *map; { register DB *db = map->map_db2; if (tTd(38, 9)) sm_dprintf("db_map_close(%s, %s, %lx)\n", map->map_mname, map->map_file, map->map_mflags); if (bitset(MF_WRITABLE, map->map_mflags)) { /* write out the distinguished alias */ db_map_store(map, "@", "@"); } (void) db->sync(db, 0); # if !LOCK_ON_OPEN if (map->map_lockfd >= 0) (void) close(map->map_lockfd); # endif /* !LOCK_ON_OPEN */ # if DB_VERSION_MAJOR < 2 if (db->close(db) != 0) # else /* DB_VERSION_MAJOR < 2 */ /* ** Berkeley DB can use internal shared memory ** locking for its memory pool. Closing a map ** opened by another process will interfere ** with the shared memory and locks of the parent ** process leaving things in a bad state. */ /* ** If this map was not opened by the current ** process, do not close the map but recover ** the file descriptor. */ if (map->map_pid != CurrentPid) { int fd = -1; errno = db->fd(db, &fd); if (fd >= 0) (void) close(fd); return; } if ((errno = db->close(db, 0)) != 0) # endif /* DB_VERSION_MAJOR < 2 */ syserr("db_map_close(%s, %s, %lx): db close failure", map->map_mname, map->map_file, map->map_mflags); } #endif /* NEWDB */ #if CDB /* ** CDB Modules */ bool cdb_map_open(map, mode) MAP *map; int mode; { int fd, status, omode, smode; long sff; struct stat st; struct cdb *cdbp; char buf[MAXPATHLEN]; if (tTd(38, 2)) sm_dprintf("cdb_map_open(%s, %s, %s)\n", map->map_mname, map->map_file, O_RDWR == (mode & O_ACCMODE) ? "rdwr" : "rdonly"); map->map_db1 = (ARBPTR_T)NULL; map->map_db2 = (ARBPTR_T)NULL; mode &= O_ACCMODE; omode = mode; /* ** Note: ** The code to add the extension and to set up safefile() ** and open() should be in a common function ** (it would be nice to re-use libsmdb?) */ if (!smdb_add_extension(buf, sizeof(buf), map->map_file, CDBext)) { errno = 0; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("cdb map \"%s\": map file %s name too long", map->map_mname, map->map_file); return false; } sff = SFF_ROOTOK|SFF_REGONLY; if (mode == O_RDWR) { sff |= SFF_CREAT; if (!bitnset(DBS_WRITEMAPTOSYMLINK, DontBlameSendmail)) sff |= SFF_NOSLINK; if (!bitnset(DBS_WRITEMAPTOHARDLINK, DontBlameSendmail)) sff |= SFF_NOHLINK; smode = S_IWRITE; map->map_mflags |= MF_LOCKED; } else { smode = S_IREAD; if (!bitnset(DBS_LINKEDMAPINWRITABLEDIR, DontBlameSendmail)) sff |= SFF_NOWLINK; } if (!bitnset(DBS_MAPINUNSAFEDIRPATH, DontBlameSendmail)) sff |= SFF_SAFEDIRPATH; status = safefile(buf, RunAsUid, RunAsGid, RunAsUserName, sff, smode, &st); if (status != 0) { char *prob = "unsafe"; /* cannot open this map */ if (status == ENOENT) prob = "missing"; errno = status; if (tTd(38, 2)) sm_dprintf("\t%s map file: %s\n", prob, sm_errstring(status)); if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("%s map \"%s\": %s map file %s", map->map_mname, prob, buf, sm_errstring(status)); return false; } if (st.st_mode == ST_MODE_NOFILE) omode |= O_CREAT|O_EXCL; # if LOCK_ON_OPEN if (mode == O_RDWR) omode |= O_TRUNC|O_EXLOCK; else omode |= O_SHLOCK; # else if (mode == O_RDWR) omode |= O_TRUNC; # endif /* LOCK_ON_OPEN */ fd = open(buf, omode, DBMMODE); if (fd < 0) { if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("cdb_map_open: cannot open database %s", buf); return false; } # if !LOCK_ON_OPEN /* make sure no baddies slipped in just before the open... */ if (filechanged(buf, fd, &st)) { int save_errno; save_errno = errno; (void) close(fd); errno = save_errno; syserr("cdb_map_open(%s): file changed after open", buf); return false; } /* actually lock the opened file */ if (!lockfile(fd, buf, NULL, mode == O_RDONLY ? LOCK_SH : LOCK_EX)) syserr("cdb_map_open: cannot lock %s", buf); # else /* !LOCK_ON_OPEN */ if (tTd(55, 60)) sm_dprintf("lockopen(%s, fd=%d, action=nb, type=%s): SUCCESS\n", buf, fd, mode == O_RDONLY ? "rd" : "wr"); # endif /* !LOCK_ON_OPEN */ map->map_lockfd = fd; if (fd >= 0 && fstat(fd, &st) >= 0) map->map_mtime = st.st_mtime; /* only for aliases! */ if (mode == O_RDWR) { struct cdb_make *cdbmp; cdbmp = (struct cdb_make *) xalloc(sizeof(*cdbmp)); status = cdb_make_start(cdbmp, fd); if (status != 0) { close(fd); if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("initialization of cdb map (make) failed"); return false; } map->map_db2 = (ARBPTR_T)cdbmp; mapchown(map->map_file, fd, -1, buf); return true; } (void) lockfile(fd, buf, NULL, LOCK_UN); # if _FFR_TESTS if (tTd(68, 101)) { int sl; sl = tTdlevel(68) - 100; sm_dprintf("cdb_map_open: sleep=%d\n", sl); sleep(sl); } # endif cdbp = (struct cdb *) xalloc(sizeof(*cdbp)); status = cdb_init(cdbp, fd); if (status != 0) { close(fd); if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("initialization of cdb map failed"); return false; } map->map_db1 = (ARBPTR_T)cdbp; if (bitset(MF_ALIAS, map->map_mflags) && !aliaswait(map, CDBEXT, true)) { close(fd); /* XXX more error handling needed? */ return false; } return true; } char * cdb_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { char *data; struct cdb *cdbmap; unsigned int klen, dlen; int st, fd; char key[MAXNAME + 1]; /* EAI:ok */ char buf[MAXPATHLEN]; data = NULL; cdbmap = map->map_db1; if (tTd(38, 20)) sm_dprintf("cdb_map_lookup(%s, %s)\n", map->map_mname, name); if (!smdb_add_extension(buf, sizeof(buf), map->map_file, CDBext)) { errno = 0; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("cdb map \"%s\": map file %s name too long", map->map_mname, map->map_file); return NULL; } klen = strlen(name); if (klen > sizeof(key) - 1) klen = sizeof(key) - 1; memmove(key, name, klen); key[klen] = '\0'; if (!bitset(MF_NOFOLDCASE, map->map_mflags)) makelower_buf(key, key, sizeof(key)); lockdb: fd = map->map_lockfd; if (fd >= 0 && !bitset(MF_LOCKED, map->map_mflags)) (void) lockfile(fd, buf, NULL, LOCK_SH); if (map_has_chged(map, buf, fd)) { /* Reopen the database to sync the cache */ int omode = bitset(map->map_mflags, MF_WRITABLE) ? O_RDWR : O_RDONLY; if (fd >= 0 && !bitset(MF_LOCKED, map->map_mflags)) (void) lockfile(fd, buf, NULL, LOCK_UN); map->map_mflags |= MF_CLOSING; map->map_class->map_close(map); map->map_mflags &= ~(MF_OPEN|MF_WRITABLE|MF_CLOSING); if (map->map_class->map_open(map, omode)) { map->map_mflags |= MF_OPEN; if ((omode & O_ACCMODE) == O_RDWR) map->map_mflags |= MF_WRITABLE; cdbmap = map->map_db1; goto lockdb; } else { if (!bitset(MF_OPTIONAL, map->map_mflags)) { extern MAPCLASS BogusMapClass; *statp = EX_TEMPFAIL; map->map_orgclass = map->map_class; map->map_class = &BogusMapClass; map->map_mflags |= MF_OPEN; syserr("Cannot reopen CDB database %s", map->map_file); } return NULL; } } st = 0; if (bitset(MF_TRY0NULL, map->map_mflags)) { st = cdb_find(cdbmap, key, klen); if (st == 1) map->map_mflags &= ~MF_TRY1NULL; } if (st != 1 && bitset(MF_TRY1NULL, map->map_mflags)) { st = cdb_find(cdbmap, key, klen + 1); if (st == 1) map->map_mflags &= ~MF_TRY0NULL; } if (fd >= 0 && !bitset(MF_LOCKED, map->map_mflags)) (void) lockfile(fd, buf, NULL, LOCK_UN); if (st != 1) { if (st < 0) syserr("cdb_map_lookup: get (%s)", name); return NULL; } else { dlen = cdb_datalen(cdbmap); data = malloc(dlen + 1); cdb_read(cdbmap, data, dlen, cdb_datapos(cdbmap)); data[dlen] = '\0'; } if (bitset(MF_MATCHONLY, map->map_mflags)) return map_rewrite(map, name, strlen(name), NULL); else return map_rewrite(map, data, dlen, av); } /* ** CDB_MAP_STORE -- store a datum in the CDB database */ void cdb_map_store(map, lhs, rhs) MAP *map; char *lhs; char *rhs; { struct cdb_make *cdbmp; size_t klen; size_t vlen; int status; char keybuf[MAXNAME + 1]; /* EAI:ok */ cdbmp = map->map_db2; if (cdbmp == NULL) return; /* XXX */ klen = strlen(lhs); vlen = strlen(rhs); if (!bitset(MF_NOFOLDCASE, map->map_mflags)) { if (klen > sizeof(keybuf) - 1) klen = sizeof(keybuf) - 1; memmove(keybuf, lhs, klen); keybuf[klen] = '\0'; makelower_buf(keybuf, keybuf, sizeof(keybuf)); lhs = keybuf; } if (bitset(MF_INCLNULL, map->map_mflags)) { klen++; vlen++; } /* flags? */ status = cdb_make_put(cdbmp, lhs, klen, rhs, vlen, 0); /* and now? */ } void cdb_map_close(map) MAP * map; { struct cdb *cdbp; struct cdb_make *cdbmp; int fd; fd = -1; cdbp = map->map_db1; if (cdbp != NULL) { if (tTd(38, 20)) sm_dprintf("cdb_map_close(%p): cdbp\n", (void *)cdbp); fd = cdb_fileno(cdbp); cdb_free(cdbp); SM_FREE(cdbp); } cdbmp = map->map_db2; if (cdbmp != NULL) { if (tTd(38, 20)) sm_dprintf("cdb_map_close(%p): cdmbp\n", (void *)cdbmp); fd = cdb_fileno(cdbmp); /* write out the distinguished alias */ /* XXX Why isn't this in a common place? */ cdb_map_store(map, "@", "@"); if (cdb_make_finish(cdbmp) != 0) syserr("cdb: cdb_make_finish(%s) failed", map->map_file); if (fd >= 0) { if (fsync(fd) == -1) syserr("cdb: fsync(%s) failed", map->map_file); if (close(fd) == -1) syserr("cdb: close(%s) failed", map->map_file); fd = -1; } SM_FREE(cdbmp); } if (fd >=0) close(fd); } #endif /* CDB */ /* ** NIS Modules */ #if NIS # ifndef YPERR_BUSY # define YPERR_BUSY 16 # endif /* ** NIS_MAP_OPEN -- open NIS map */ bool nis_map_open(map, mode) MAP *map; int mode; { int yperr; register char *p; auto char *vp; auto int vsize; if (tTd(38, 2)) sm_dprintf("nis_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); mode &= O_ACCMODE; if (mode != O_RDONLY) { /* issue a pseudo-error message */ errno = SM_EMAPCANTWRITE; return false; } p = strchr(map->map_file, '@'); if (p != NULL) { *p++ = '\0'; if (*p != '\0') map->map_domain = p; } if (*map->map_file == '\0') map->map_file = "mail.aliases"; if (map->map_domain == NULL) { yperr = yp_get_default_domain(&map->map_domain); if (yperr != 0) { if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("451 4.3.5 NIS map %s specified, but NIS not running", map->map_file); return false; } } /* check to see if this map actually exists */ vp = NULL; yperr = yp_match(map->map_domain, map->map_file, "@", 1, &vp, &vsize); if (tTd(38, 10)) sm_dprintf("nis_map_open: yp_match(@, %s, %s) => %s\n", map->map_domain, map->map_file, yperr_string(yperr)); SM_FREE(vp); if (yperr == 0 || yperr == YPERR_KEY || yperr == YPERR_BUSY) { /* ** We ought to be calling aliaswait() here if this is an ** alias file, but powerful HP-UX NIS servers apparently ** don't insert the @:@ token into the alias map when it ** is rebuilt, so aliaswait() just hangs. I hate HP-UX. */ # if 0 if (!bitset(MF_ALIAS, map->map_mflags) || aliaswait(map, NULL, true)) # endif return true; } if (!bitset(MF_OPTIONAL, map->map_mflags)) { syserr("451 4.3.5 Cannot bind to map %s in domain %s: %s", map->map_file, map->map_domain, yperr_string(yperr)); } return false; } /* ** NIS_MAP_LOOKUP -- look up a datum in a NIS map */ /* ARGSUSED3 */ char * nis_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { char *vp; auto int vsize; int buflen; int yperr; char keybuf[MAXNAME + 1]; /* EAI:ok */ char *SM_NONVOLATILE result = NULL; if (tTd(38, 20)) sm_dprintf("nis_map_lookup(%s, %s)\n", map->map_mname, name); buflen = strlen(name); if (buflen > sizeof(keybuf) - 1) buflen = sizeof(keybuf) - 1; memmove(keybuf, name, buflen); keybuf[buflen] = '\0'; if (!bitset(MF_NOFOLDCASE, map->map_mflags)) makelower_buf(keybuf, keybuf, sizeof(keybuf)); yperr = YPERR_KEY; vp = NULL; if (bitset(MF_TRY0NULL, map->map_mflags)) { yperr = yp_match(map->map_domain, map->map_file, keybuf, buflen, &vp, &vsize); if (yperr == 0) map->map_mflags &= ~MF_TRY1NULL; } if (yperr == YPERR_KEY && bitset(MF_TRY1NULL, map->map_mflags)) { SM_FREE(vp); buflen++; yperr = yp_match(map->map_domain, map->map_file, keybuf, buflen, &vp, &vsize); if (yperr == 0) map->map_mflags &= ~MF_TRY0NULL; } if (yperr != 0) { if (yperr != YPERR_KEY && yperr != YPERR_BUSY) map->map_mflags &= ~(MF_VALID|MF_OPEN); SM_FREE(vp); return NULL; } SM_TRY if (bitset(MF_MATCHONLY, map->map_mflags)) result = map_rewrite(map, name, strlen(name), NULL); else result = map_rewrite(map, vp, vsize, av); SM_FINALLY SM_FREE(vp); SM_END_TRY return result; } /* ** NIS_GETCANONNAME -- look up canonical name in NIS */ static bool nis_getcanonname(name, hbsize, statp) char *name; int hbsize; int *statp; { char *vp; auto int vsize; int keylen; int yperr; static bool try0null = true; static bool try1null = true; static char *yp_domain = NULL; char host_record[MAXLINE]; char cbuf[MAXNAME]; /* EAI:hostname */ char nbuf[MAXNAME + 1]; /* EAI:hostname */ if (tTd(38, 20)) sm_dprintf("nis_getcanonname(%s)\n", name); if (sm_strlcpy(nbuf, name, sizeof(nbuf)) >= sizeof(nbuf)) { *statp = EX_UNAVAILABLE; return false; } (void) shorten_hostname(nbuf); keylen = strlen(nbuf); if (yp_domain == NULL) (void) yp_get_default_domain(&yp_domain); makelower_buf(nbuf, nbuf, sizeof(nbuf)); yperr = YPERR_KEY; vp = NULL; if (try0null) { yperr = yp_match(yp_domain, "hosts.byname", nbuf, keylen, &vp, &vsize); if (yperr == 0) try1null = false; } if (yperr == YPERR_KEY && try1null) { SM_FREE(vp); keylen++; yperr = yp_match(yp_domain, "hosts.byname", nbuf, keylen, &vp, &vsize); if (yperr == 0) try0null = false; } if (yperr != 0) { if (yperr == YPERR_KEY) *statp = EX_NOHOST; else if (yperr == YPERR_BUSY) *statp = EX_TEMPFAIL; else *statp = EX_UNAVAILABLE; SM_FREE(vp); return false; } (void) sm_strlcpy(host_record, vp, sizeof(host_record)); sm_free(vp); if (tTd(38, 44)) sm_dprintf("got record `%s'\n", host_record); vp = strpbrk(host_record, "#\n"); if (vp != NULL) *vp = '\0'; if (!extract_canonname(nbuf, NULL, host_record, cbuf, sizeof(cbuf))) { /* this should not happen, but.... */ *statp = EX_NOHOST; return false; } if (sm_strlcpy(name, cbuf, hbsize) >= hbsize) { *statp = EX_UNAVAILABLE; return false; } *statp = EX_OK; return true; } #endif /* NIS */ /* ** NISPLUS Modules ** ** This code donated by Sun Microsystems. */ #if NISPLUS # undef NIS /* symbol conflict in nis.h */ # undef T_UNSPEC /* symbol conflict in nis.h -> ... -> sys/tiuser.h */ # include # include # ifndef NIS_TABLE_OBJ # define NIS_TABLE_OBJ TABLE_OBJ # endif # define EN_col(col) zo_data.objdata_u.en_data.en_cols.en_cols_val[(col)].ec_value.ec_value_val # define COL_NAME(res,i) ((res->objects.objects_val)->TA_data.ta_cols.ta_cols_val)[i].tc_name # define COL_MAX(res) ((res->objects.objects_val)->TA_data.ta_cols.ta_cols_len) # define PARTIAL_NAME(x) ((x)[strlen(x) - 1] != '.') /* ** NISPLUS_MAP_OPEN -- open nisplus table */ bool nisplus_map_open(map, mode) MAP *map; int mode; { nis_result *res = NULL; int retry_cnt, max_col, i; char qbuf[MAXLINE + NIS_MAXNAMELEN]; if (tTd(38, 2)) sm_dprintf("nisplus_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); mode &= O_ACCMODE; if (mode != O_RDONLY) { errno = EPERM; return false; } if (*map->map_file == '\0') map->map_file = "mail_aliases.org_dir"; if (PARTIAL_NAME(map->map_file) && map->map_domain == NULL) { /* set default NISPLUS Domain to $m */ map->map_domain = newstr(nisplus_default_domain()); if (tTd(38, 2)) sm_dprintf("nisplus_map_open(%s): using domain %s\n", map->map_file, map->map_domain); } if (!PARTIAL_NAME(map->map_file)) { map->map_domain = newstr(""); (void) sm_strlcpy(qbuf, map->map_file, sizeof(qbuf)); } else { /* check to see if this map actually exists */ (void) sm_strlcpyn(qbuf, sizeof(qbuf), 3, map->map_file, ".", map->map_domain); } retry_cnt = 0; while (res == NULL || res->status != NIS_SUCCESS) { res = nis_lookup(qbuf, FOLLOW_LINKS); switch (res->status) { case NIS_SUCCESS: break; case NIS_TRYAGAIN: case NIS_RPCERROR: case NIS_NAMEUNREACHABLE: if (retry_cnt++ > 4) { errno = EAGAIN; return false; } /* try not to overwhelm hosed server */ sleep(2); break; default: /* all other nisplus errors */ # if 0 if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("451 4.3.5 Cannot find table %s.%s: %s", map->map_file, map->map_domain, nis_sperrno(res->status)); # endif /* 0 */ errno = EAGAIN; return false; } } if (NIS_RES_NUMOBJ(res) != 1 || (NIS_RES_OBJECT(res)->zo_data.zo_type != NIS_TABLE_OBJ)) { if (tTd(38, 10)) sm_dprintf("nisplus_map_open: %s is not a table\n", qbuf); # if 0 if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("451 4.3.5 %s.%s: %s is not a table", map->map_file, map->map_domain, nis_sperrno(res->status)); # endif /* 0 */ errno = EBADF; return false; } /* default key column is column 0 */ if (map->map_keycolnm == NULL) map->map_keycolnm = newstr(COL_NAME(res,0)); max_col = COL_MAX(res); /* verify the key column exist */ for (i = 0; i < max_col; i++) { if (strcmp(map->map_keycolnm, COL_NAME(res,i)) == 0) break; } if (i == max_col) { if (tTd(38, 2)) sm_dprintf("nisplus_map_open(%s): can not find key column %s\n", map->map_file, map->map_keycolnm); errno = ENOENT; return false; } /* default value column is the last column */ if (map->map_valcolnm == NULL) { map->map_valcolno = max_col - 1; return true; } for (i = 0; i< max_col; i++) { if (strcmp(map->map_valcolnm, COL_NAME(res,i)) == 0) { map->map_valcolno = i; return true; } } if (tTd(38, 2)) sm_dprintf("nisplus_map_open(%s): can not find column %s\n", map->map_file, map->map_keycolnm); errno = ENOENT; return false; } /* ** NISPLUS_MAP_LOOKUP -- look up a datum in a NISPLUS table */ char * nisplus_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { char *p; auto int vsize; char *skp; int skleft; char search_key[MAXNAME + 4]; /* EAI:ok */ char qbuf[MAXLINE + NIS_MAXNAMELEN]; nis_result *result; if (tTd(38, 20)) sm_dprintf("nisplus_map_lookup(%s, %s)\n", map->map_mname, name); if (!bitset(MF_OPEN, map->map_mflags)) { if (nisplus_map_open(map, O_RDONLY)) { map->map_mflags |= MF_OPEN; map->map_pid = CurrentPid; } else { *statp = EX_UNAVAILABLE; return NULL; } } /* ** Copy the name to the key buffer, escaping double quote characters ** by doubling them and quoting "]" and "," to avoid having the ** NIS+ parser choke on them. */ skleft = sizeof(search_key) - 4; skp = search_key; for (p = name; *p != '\0' && skleft > 0; p++) { switch (*p) { case ']': case ',': /* quote the character */ *skp++ = '"'; *skp++ = *p; *skp++ = '"'; skleft -= 3; break; case '"': /* double the quote */ *skp++ = '"'; skleft--; /* FALLTHROUGH */ default: *skp++ = *p; skleft--; break; } } *skp = '\0'; if (!bitset(MF_NOFOLDCASE, map->map_mflags)) makelower_buf(search_key, search_key, sizeof(search_key)); /* construct the query */ if (PARTIAL_NAME(map->map_file)) (void) sm_snprintf(qbuf, sizeof(qbuf), "[%s=%s],%s.%s", map->map_keycolnm, search_key, map->map_file, map->map_domain); else (void) sm_snprintf(qbuf, sizeof(qbuf), "[%s=%s],%s", map->map_keycolnm, search_key, map->map_file); if (tTd(38, 20)) sm_dprintf("qbuf=%s\n", qbuf); result = nis_list(qbuf, FOLLOW_LINKS | FOLLOW_PATH, NULL, NULL); if (result->status == NIS_SUCCESS) { int count; char *str; if ((count = NIS_RES_NUMOBJ(result)) != 1) { if (LogLevel > 10) sm_syslog(LOG_WARNING, CurEnv->e_id, "%s: lookup error, expected 1 entry, got %d", map->map_file, count); /* ignore second entry */ if (tTd(38, 20)) sm_dprintf("nisplus_map_lookup(%s), got %d entries, additional entries ignored\n", name, count); } p = ((NIS_RES_OBJECT(result))->EN_col(map->map_valcolno)); /* set the length of the result */ if (p == NULL) p = ""; vsize = strlen(p); if (tTd(38, 20)) sm_dprintf("nisplus_map_lookup(%s), found %s\n", name, p); if (bitset(MF_MATCHONLY, map->map_mflags)) str = map_rewrite(map, name, strlen(name), NULL); else str = map_rewrite(map, p, vsize, av); nis_freeresult(result); *statp = EX_OK; return str; } else { if (result->status == NIS_NOTFOUND) *statp = EX_NOTFOUND; else if (result->status == NIS_TRYAGAIN) *statp = EX_TEMPFAIL; else { *statp = EX_UNAVAILABLE; map->map_mflags &= ~(MF_VALID|MF_OPEN); } } if (tTd(38, 20)) sm_dprintf("nisplus_map_lookup(%s), failed\n", name); nis_freeresult(result); return NULL; } /* ** NISPLUS_GETCANONNAME -- look up canonical name in NIS+ */ static bool nisplus_getcanonname(name, hbsize, statp) char *name; int hbsize; int *statp; { char *vp; auto int vsize; nis_result *result; char *p; char nbuf[MAXNAME + 1]; /* EAI:hostname */ char qbuf[MAXLINE + NIS_MAXNAMELEN]; /* EAI:hostname */ if (sm_strlcpy(nbuf, name, sizeof(nbuf)) >= sizeof(nbuf)) { *statp = EX_UNAVAILABLE; return false; } (void) shorten_hostname(nbuf); p = strchr(nbuf, '.'); if (p == NULL) { /* single token */ (void) sm_snprintf(qbuf, sizeof(qbuf), "[name=%s],hosts.org_dir", nbuf); } else if (p[1] != '\0') { /* multi token -- take only first token in nbuf */ *p = '\0'; (void) sm_snprintf(qbuf, sizeof(qbuf), "[name=%s],hosts.org_dir.%s", nbuf, &p[1]); } else { *statp = EX_NOHOST; return false; } if (tTd(38, 20)) sm_dprintf("\nnisplus_getcanonname(%s), qbuf=%s\n", name, qbuf); result = nis_list(qbuf, EXPAND_NAME|FOLLOW_LINKS|FOLLOW_PATH, NULL, NULL); if (result->status == NIS_SUCCESS) { int count; char *domain; if ((count = NIS_RES_NUMOBJ(result)) != 1) { if (LogLevel > 10) sm_syslog(LOG_WARNING, CurEnv->e_id, "nisplus_getcanonname: lookup error, expected 1 entry, got %d", count); /* ignore second entry */ if (tTd(38, 20)) sm_dprintf("nisplus_getcanonname(%s), got %d entries, all but first ignored\n", name, count); } if (tTd(38, 20)) sm_dprintf("nisplus_getcanonname(%s), found in directory \"%s\"\n", name, (NIS_RES_OBJECT(result))->zo_domain); vp = ((NIS_RES_OBJECT(result))->EN_col(0)); vsize = strlen(vp); if (tTd(38, 20)) sm_dprintf("nisplus_getcanonname(%s), found %s\n", name, vp); if (strchr(vp, '.') != NULL) { domain = ""; } else { domain = macvalue('m', CurEnv); if (domain == NULL) domain = ""; } if (hbsize > vsize + (int) strlen(domain) + 1) { if (domain[0] == '\0') (void) sm_strlcpy(name, vp, hbsize); else (void) sm_snprintf(name, hbsize, "%s.%s", vp, domain); *statp = EX_OK; } else *statp = EX_NOHOST; nis_freeresult(result); return true; } else { if (result->status == NIS_NOTFOUND) *statp = EX_NOHOST; else if (result->status == NIS_TRYAGAIN) *statp = EX_TEMPFAIL; else *statp = EX_UNAVAILABLE; } if (tTd(38, 20)) sm_dprintf("nisplus_getcanonname(%s), failed, status=%d, nsw_stat=%d\n", name, result->status, *statp); nis_freeresult(result); return false; } char * nisplus_default_domain() { static char default_domain[MAXNAME + 1] = ""; /* EAI:hostname */ char *p; if (default_domain[0] != '\0') return default_domain; p = nis_local_directory(); (void) sm_strlcpy(default_domain, p, sizeof(default_domain)); return default_domain; } #endif /* NISPLUS */ /* ** LDAP Modules */ /* ** LDAPMAP_DEQUOTE - helper routine for ldapmap_parseargs */ #if defined(LDAPMAP) || defined(PH_MAP) # if PH_MAP # define ph_map_dequote ldapmap_dequote # endif static char *ldapmap_dequote __P((char *)); static char * ldapmap_dequote(str) char *str; { char *p; char *start; if (str == NULL) return NULL; p = str; if (*p == '"') { /* Should probably swallow initial whitespace here */ start = ++p; } else return str; while (*p != '"' && *p != '\0') p++; if (*p != '\0') *p = '\0'; return start; } #endif /* defined(LDAPMAP) || defined(PH_MAP) */ #if LDAPMAP static SM_LDAP_STRUCT *LDAPDefaults = NULL; /* ** LDAPMAP_OPEN -- open LDAP map ** ** Connect to the LDAP server. Re-use existing connections since a ** single server connection to a host (with the same host, port, ** bind DN, and secret) can answer queries for multiple maps. */ bool ldapmap_open(map, mode) MAP *map; int mode; { SM_LDAP_STRUCT *lmap; STAB *s; char *id; if (tTd(38, 2)) sm_dprintf("ldapmap_open(%s, %d): ", map->map_mname, mode); # if defined(SUN_EXTENSIONS) && defined(SUN_SIMPLIFIED_LDAP) && \ HASLDAPGETALIASBYNAME if (VendorCode == VENDOR_SUN && strcmp(map->map_mname, "aliases.ldap") == 0) { return true; } # endif /* defined(SUN_EXTENSIONS) && defined(SUN_SIMPLIFIED_LDAP) && ... */ mode &= O_ACCMODE; /* sendmail doesn't have the ability to write to LDAP (yet) */ if (mode != O_RDONLY) { /* issue a pseudo-error message */ errno = SM_EMAPCANTWRITE; return false; } lmap = (SM_LDAP_STRUCT *) map->map_db1; s = ldapmap_findconn(lmap); if (s->s_lmap != NULL) { /* Already have a connection open to this LDAP server */ lmap->ldap_ld = ((SM_LDAP_STRUCT *)s->s_lmap->map_db1)->ldap_ld; lmap->ldap_pid = ((SM_LDAP_STRUCT *)s->s_lmap->map_db1)->ldap_pid; /* Add this map as head of linked list */ lmap->ldap_next = s->s_lmap; s->s_lmap = map; if (tTd(38, 2)) sm_dprintf("using cached connection\n"); return true; } if (tTd(38, 2)) sm_dprintf("opening new connection\n"); if (lmap->ldap_host != NULL) id = lmap->ldap_host; else if (lmap->ldap_uri != NULL) id = lmap->ldap_uri; else id = "localhost"; if (tTd(74, 104)) { extern MAPCLASS NullMapClass; /* debug mode: don't actually open an LDAP connection */ map->map_orgclass = map->map_class; map->map_class = &NullMapClass; map->map_mflags |= MF_OPEN; map->map_pid = CurrentPid; return true; } /* No connection yet, connect */ if (!sm_ldap_start(map->map_mname, lmap)) { if (errno == ETIMEDOUT) { if (LogLevel > 1) sm_syslog(LOG_NOTICE, CurEnv->e_id, "timeout connecting to LDAP server %.100s", id); } if (!bitset(MF_OPTIONAL, map->map_mflags)) { if (bitset(MF_NODEFER, map->map_mflags)) { syserr("%s failed to %s in map %s", # if USE_LDAP_INIT "ldap_init/ldap_bind", # else "ldap_open", # endif id, map->map_mname); } else { syserr("451 4.3.5 %s failed to %s in map %s", # if USE_LDAP_INIT "ldap_init/ldap_bind", # else "ldap_open", # endif id, map->map_mname); } } return false; } /* Save connection for reuse */ s->s_lmap = map; return true; } /* ** LDAPMAP_CLOSE -- close ldap map */ void ldapmap_close(map) MAP *map; { SM_LDAP_STRUCT *lmap; STAB *s; if (tTd(38, 2)) sm_dprintf("ldapmap_close(%s)\n", map->map_mname); lmap = (SM_LDAP_STRUCT *) map->map_db1; /* Check if already closed */ if (lmap->ldap_ld == NULL) return; /* Close the LDAP connection */ sm_ldap_close(lmap); /* Mark all the maps that share the connection as closed */ s = ldapmap_findconn(lmap); while (s->s_lmap != NULL) { MAP *smap = s->s_lmap; if (tTd(38, 2) && smap != map) sm_dprintf("ldapmap_close(%s): closed %s (shared LDAP connection)\n", map->map_mname, smap->map_mname); smap->map_mflags &= ~(MF_OPEN|MF_WRITABLE); lmap = (SM_LDAP_STRUCT *) smap->map_db1; lmap->ldap_ld = NULL; s->s_lmap = lmap->ldap_next; lmap->ldap_next = NULL; } } # ifdef SUNET_ID /* ** SUNET_ID_HASH -- Convert a string to its Sunet_id canonical form ** This only makes sense at Stanford University. */ static char * sunet_id_hash(str) char *str; { char *p, *p_last; p = str; p_last = p; while (*p != '\0') { if (isascii(*p) && (islower(*p) || isdigit(*p))) { *p_last = *p; p_last++; } else if (isascii(*p) && isupper(*p)) { *p_last = tolower(*p); p_last++; } ++p; } if (*p_last != '\0') *p_last = '\0'; return str; } # define SM_CONVERT_ID(str) sunet_id_hash(str) # else /* SUNET_ID */ # define SM_CONVERT_ID(str) makelower(str) # endif /* SUNET_ID */ /* ** LDAPMAP_LOOKUP -- look up a datum in a LDAP map */ char * ldapmap_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { int flags; int i; int plen = 0; int psize = 0; int msgid; int save_errno; char *vp, *p; char *result = NULL; SM_RPOOL_T *rpool; SM_LDAP_STRUCT *lmap = NULL; char *argv[SM_LDAP_ARGS]; char keybuf[MAXKEY]; # if SM_LDAP_ARGS != MAX_MAP_ARGS # error "SM_LDAP_ARGS must be the same as MAX_MAP_ARGS" # endif # define AV_FREE(av) \ do \ { \ int ai; \ for (ai = 0; ai < SM_LDAP_ARGS && av[ai] != NULL; ai++) \ SM_FREE(av[ai]); \ } while (0) # if USE_EAI bool allascii; char *largv[SM_LDAP_ARGS]; char **largs; # define LARGV_FREE AV_FREE(largv) # else # define largs av # define LARGV_FREE # endif # if defined(SUN_EXTENSIONS) && defined(SUN_SIMPLIFIED_LDAP) && \ HASLDAPGETALIASBYNAME if (VendorCode == VENDOR_SUN && strcmp(map->map_mname, "aliases.ldap") == 0) { int rc; # if defined(GETLDAPALIASBYNAME_VERSION) && (GETLDAPALIASBYNAME_VERSION >= 2) extern char *__getldapaliasbyname(); char *answer; answer = __getldapaliasbyname(name, &rc); # else char answer[MAXNAME + 1]; /* EAI:Sun only, ignore */ rc = __getldapaliasbyname(name, answer, sizeof(answer)); # endif if (rc != 0) { if (tTd(38, 20)) sm_dprintf("getldapaliasbyname(%.100s) failed, errno=%d\n", name, errno); *statp = EX_NOTFOUND; return NULL; } *statp = EX_OK; if (tTd(38, 20)) sm_dprintf("getldapaliasbyname(%.100s) => %s\n", name, answer); if (bitset(MF_MATCHONLY, map->map_mflags)) result = map_rewrite(map, name, strlen(name), NULL); else result = map_rewrite(map, answer, strlen(answer), av); # if defined(GETLDAPALIASBYNAME_VERSION) && (GETLDAPALIASBYNAME_VERSION >= 2) free(answer); # endif return result; } # endif /* defined(SUN_EXTENSIONS) && defined(SUN_SIMPLIFIED_LDAP) && ... */ /* Get ldap struct pointer from map */ lmap = (SM_LDAP_STRUCT *) map->map_db1; sm_ldap_setopts(lmap->ldap_ld, lmap); /* initialize first element so AV_FREE can work */ argv[0] = NULL; # if USE_EAI largv[0] = NULL; # endif if (lmap->ldap_multi_args) { SM_REQUIRE(av != NULL); memset(argv, '\0', sizeof(argv)); # if USE_EAI largs = av; memset(largv, '\0', sizeof(largv)); /* this is ugly - can we merge it with the next loop? */ allascii = true; if (!bitset(MF_MATCHONLY, map->map_mflags)) { for (i = 0, allascii = true; i < SM_LDAP_ARGS && av[i] != NULL; i++) { if (!addr_is_ascii(av[i])) { allascii = false; largs = largv; break; } } } # endif /* USE_EAI */ for (i = 0; i < SM_LDAP_ARGS && av[i] != NULL; i++) { argv[i] = sm_strdup(av[i]); if (argv[i] == NULL) { *statp = EX_TEMPFAIL; goto none; } if (!bitset(MF_NOFOLDCASE, map->map_mflags)) /* && !bitset(MF_MATCHONLY, map->map_mflags)) */ /* see below: av[]/largs onluy used if !MF_MATCHONLY !? */ { # if USE_EAI if (!allascii) { char *lower; lower = makelower(av[i]); largv[i] = sm_strdup(lower); if (largv[i] == NULL) { *statp = EX_TEMPFAIL; goto none; } } else # endif /* USE_EAI */ /* NOTE: see else above! */ SM_CONVERT_ID(av[i]); } } } else { (void) sm_strlcpy(keybuf, name, sizeof(keybuf)); if (!bitset(MF_NOFOLDCASE, map->map_mflags)) SM_CONVERT_ID(keybuf); } if (tTd(38, 20)) { if (lmap->ldap_multi_args) { sm_dprintf("ldapmap_lookup(%s, argv)\n", map->map_mname); for (i = 0; i < SM_LDAP_ARGS; i++) { sm_dprintf(" argv[%d] = %s\n", i, argv[i] == NULL ? "NULL" : argv[i]); } } else { sm_dprintf("ldapmap_lookup(%s, %s)\n", map->map_mname, name); } } if (lmap->ldap_multi_args) { msgid = sm_ldap_search_m(lmap, argv); /* free the argv array and its content, no longer needed */ AV_FREE(argv); } else msgid = sm_ldap_search(lmap, keybuf); if (msgid == SM_LDAP_ERR) { errno = sm_ldap_geterrno(lmap->ldap_ld) + E_LDAPBASE; save_errno = errno; if (!bitset(MF_OPTIONAL, map->map_mflags)) { /* ** Do not include keybuf as this error may be shown ** to outsiders. */ if (bitset(MF_NODEFER, map->map_mflags)) syserr("Error in ldap_search in map %s", map->map_mname); else syserr("451 4.3.5 Error in ldap_search in map %s", map->map_mname); } *statp = EX_TEMPFAIL; switch (save_errno - E_LDAPBASE) { # ifdef LDAP_SERVER_DOWN case LDAP_SERVER_DOWN: # endif case LDAP_TIMEOUT: case LDAP_UNAVAILABLE: /* server disappeared, try reopen on next search */ ldapmap_close(map); break; } errno = save_errno; goto none; } # if SM_LDAP_ERROR_ON_MISSING_ARGS else if (msgid == SM_LDAP_ERR_ARG_MISS) { if (bitset(MF_NODEFER, map->map_mflags)) syserr("Error in ldap_search in map %s, too few arguments", map->map_mname); else syserr("554 5.3.5 Error in ldap_search in map %s, too few arguments", map->map_mname); *statp = EX_CONFIG; goto none; } # endif /* SM_LDAP_ERROR_ON_MISSING_ARGS */ *statp = EX_NOTFOUND; vp = NULL; flags = 0; if (bitset(MF_SINGLEMATCH, map->map_mflags)) flags |= SM_LDAP_SINGLEMATCH; if (bitset(MF_MATCHONLY, map->map_mflags)) flags |= SM_LDAP_MATCHONLY; # if _FFR_LDAP_SINGLEDN if (bitset(MF_SINGLEDN, map->map_mflags)) flags |= SM_LDAP_SINGLEDN; # endif /* Create an rpool for search related memory usage */ rpool = sm_rpool_new_x(NULL); p = NULL; *statp = sm_ldap_results(lmap, msgid, flags, map->map_coldelim, rpool, &p, &plen, &psize, NULL); save_errno = errno; /* Copy result so rpool can be freed */ if (*statp == EX_OK && p != NULL) vp = newstr(p); sm_rpool_free(rpool); /* need to restart LDAP connection? */ if (*statp == EX_RESTART) { *statp = EX_TEMPFAIL; ldapmap_close(map); } errno = save_errno; if (*statp != EX_OK && *statp != EX_NOTFOUND) { if (!bitset(MF_OPTIONAL, map->map_mflags)) { if (bitset(MF_NODEFER, map->map_mflags)) syserr("Error getting LDAP results, map=%s, name=%s", map->map_mname, name); else syserr("451 4.3.5 Error getting LDAP results, map=%s, name=%s", map->map_mname, name); } errno = save_errno; goto none; } /* Did we match anything? */ if (vp == NULL && !bitset(MF_MATCHONLY, map->map_mflags)) goto none; if (*statp == EX_OK) { if (LogLevel > 9) sm_syslog(LOG_INFO, CurEnv->e_id, "ldap=%s, %.100s=>%s", map->map_mname, name, vp == NULL ? "" : vp); if (bitset(MF_MATCHONLY, map->map_mflags)) result = map_rewrite(map, name, strlen(name), NULL); else { /* vp != NULL according to test above */ result = map_rewrite(map, vp, strlen(vp), largs); } SM_FREE(vp); /* XXX */ } LARGV_FREE; return result; none: /* other cleanup? */ save_errno = errno; AV_FREE(argv); LARGV_FREE; errno = save_errno; return NULL; } /* ** LDAPMAP_FINDCONN -- find an LDAP connection to the server ** ** Cache LDAP connections based on the host, port, bind DN, ** secret, and PID so we don't have multiple connections open to ** the same server for different maps. Need a separate connection ** per PID since a parent process may close the map before the ** child is done with it. ** ** Parameters: ** lmap -- LDAP map information ** ** Returns: ** Symbol table entry for the LDAP connection. */ static STAB * ldapmap_findconn(lmap) SM_LDAP_STRUCT *lmap; { char *format; char *nbuf; char *id; STAB *SM_NONVOLATILE s = NULL; if (lmap->ldap_host != NULL) id = lmap->ldap_host; else if (lmap->ldap_uri != NULL) id = lmap->ldap_uri; else id = "localhost"; format = "%s%c%d%c%d%c%s%c%s%d"; nbuf = sm_stringf_x(format, id, CONDELSE, lmap->ldap_port, CONDELSE, lmap->ldap_version, CONDELSE, (lmap->ldap_binddn == NULL ? "" : lmap->ldap_binddn), CONDELSE, (lmap->ldap_secret == NULL ? "" : lmap->ldap_secret), (int) CurrentPid); SM_TRY s = stab(nbuf, ST_LMAP, ST_ENTER); SM_FINALLY sm_free(nbuf); SM_END_TRY return s; } /* ** LDAPMAP_PARSEARGS -- parse ldap map definition args. */ static struct lamvalues LDAPAuthMethods[] = { { "none", LDAP_AUTH_NONE }, { "simple", LDAP_AUTH_SIMPLE }, # ifdef LDAP_AUTH_KRBV4 { "krbv4", LDAP_AUTH_KRBV4 }, # endif { NULL, 0 } }; static struct ladvalues LDAPAliasDereference[] = { { "never", LDAP_DEREF_NEVER }, { "always", LDAP_DEREF_ALWAYS }, { "search", LDAP_DEREF_SEARCHING }, { "find", LDAP_DEREF_FINDING }, { NULL, 0 } }; static struct lssvalues LDAPSearchScope[] = { { "base", LDAP_SCOPE_BASE }, { "one", LDAP_SCOPE_ONELEVEL }, { "sub", LDAP_SCOPE_SUBTREE }, { NULL, 0 } }; bool ldapmap_parseargs(map, args) MAP *map; char *args; { bool secretread = true; bool attrssetup = false; int i; register char *p = args; SM_LDAP_STRUCT *lmap; SM_LDAP_STRUCT *lmap_alloc; struct lamvalues *lam; struct ladvalues *lad; struct lssvalues *lss; char ldapfilt[MAXLINE]; char m_tmp[MAXPATHLEN + LDAPMAP_MAX_PASSWD]; /* Get ldap struct pointer from map */ lmap = (SM_LDAP_STRUCT *) map->map_db1; /* Check if setting the initial LDAP defaults */ if (lmap == NULL || lmap != LDAPDefaults) { /* We need to alloc an SM_LDAP_STRUCT struct */ lmap_alloc = lmap = (SM_LDAP_STRUCT *) xalloc(sizeof(*lmap)); if (LDAPDefaults == NULL) sm_ldap_clear(lmap); else STRUCTCOPY(*LDAPDefaults, *lmap); } else lmap_alloc = NULL; /* there is no check whether there is really an argument */ map->map_mflags |= MF_TRY0NULL|MF_TRY1NULL; map->map_spacesub = SpaceSub; /* default value */ /* Check if setting up an alias or file class LDAP map */ if (bitset(MF_ALIAS, map->map_mflags)) { /* Comma separate if used as an alias file */ map->map_coldelim = ','; if (*args == '\0') { int n; char *lc; char jbuf[MAXHOSTNAMELEN]; char lcbuf[MAXLINE]; /* Get $j */ expand("\201j", jbuf, sizeof(jbuf), &BlankEnvelope); if (jbuf[0] == '\0') { (void) sm_strlcpy(jbuf, "localhost", sizeof(jbuf)); } lc = macvalue(macid("{sendmailMTACluster}"), CurEnv); if (lc == NULL) lc = ""; else { expand(lc, lcbuf, sizeof(lcbuf), CurEnv); lc = lcbuf; } n = sm_snprintf(ldapfilt, sizeof(ldapfilt), "(&(objectClass=sendmailMTAAliasObject)(sendmailMTAAliasGrouping=aliases)(|(sendmailMTACluster=%s)(sendmailMTAHost=%s))(sendmailMTAKey=%%0))", lc, jbuf); if (n >= sizeof(ldapfilt)) { syserr("%s: Default LDAP string too long", map->map_mname); goto fail; } /* default args for an alias LDAP entry */ lmap->ldap_filter = ldapfilt; lmap->ldap_attr[0] = "objectClass"; lmap->ldap_attr_type[0] = SM_LDAP_ATTR_OBJCLASS; lmap->ldap_attr_needobjclass[0] = NULL; lmap->ldap_attr[1] = "sendmailMTAAliasValue"; lmap->ldap_attr_type[1] = SM_LDAP_ATTR_NORMAL; lmap->ldap_attr_needobjclass[1] = NULL; lmap->ldap_attr[2] = "sendmailMTAAliasSearch"; lmap->ldap_attr_type[2] = SM_LDAP_ATTR_FILTER; lmap->ldap_attr_needobjclass[2] = "sendmailMTAMapObject"; lmap->ldap_attr[3] = "sendmailMTAAliasURL"; lmap->ldap_attr_type[3] = SM_LDAP_ATTR_URL; lmap->ldap_attr_needobjclass[3] = "sendmailMTAMapObject"; lmap->ldap_attr[4] = NULL; lmap->ldap_attr_type[4] = SM_LDAP_ATTR_NONE; lmap->ldap_attr_needobjclass[4] = NULL; attrssetup = true; } } else if (bitset(MF_FILECLASS, map->map_mflags)) { /* Space separate if used as a file class file */ map->map_coldelim = ' '; } # if LDAP_NETWORK_TIMEOUT if (0 == lmap->ldap_networktmo) lmap->ldap_networktmo = (LDAP_NETWORK_TIMEOUT > 1) ? LDAP_NETWORK_TIMEOUT : 60; # endif for (;;) { while (SM_ISSPACE(*p)) p++; if (*p != '-') break; switch (*++p) { case 'A': map->map_mflags |= MF_APPEND; break; case 'a': map->map_app = ++p; break; case 'D': map->map_mflags |= MF_DEFER; break; case 'f': map->map_mflags |= MF_NOFOLDCASE; break; case 'm': map->map_mflags |= MF_MATCHONLY; break; case 'N': map->map_mflags |= MF_INCLNULL; map->map_mflags &= ~MF_TRY0NULL; break; case 'O': map->map_mflags &= ~MF_TRY1NULL; break; case 'o': map->map_mflags |= MF_OPTIONAL; break; case 'q': map->map_mflags |= MF_KEEPQUOTES; break; case 'S': map->map_spacesub = *++p; break; case 'T': map->map_tapp = ++p; break; case 't': map->map_mflags |= MF_NODEFER; break; case 'z': if (*++p != '\\') map->map_coldelim = *p; else { switch (*++p) { case 'n': map->map_coldelim = '\n'; break; case 't': map->map_coldelim = '\t'; break; default: map->map_coldelim = '\\'; } } break; /* Start of ldapmap specific args */ case '1': map->map_mflags |= MF_SINGLEMATCH; break; # if _FFR_LDAP_SINGLEDN case '2': map->map_mflags |= MF_SINGLEDN; break; # endif /* _FFR_LDAP_SINGLEDN */ case 'b': /* search base */ while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_base = p; break; # if LDAP_NETWORK_TIMEOUT case 'c': /* network (connect) timeout */ while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_networktmo = atoi(p); break; # endif /* LDAP_NETWORK_TIMEOUT */ case 'd': /* Dn to bind to server as */ while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_binddn = p; break; case 'H': /* Use LDAP URI */ # if !USE_LDAP_INIT syserr("Must compile with -DUSE_LDAP_INIT to use LDAP URIs (-H) in map %s", map->map_mname); goto fail; # else /* !USE_LDAP_INIT */ if (lmap->ldap_host != NULL) { syserr("Can not specify both an LDAP host and an LDAP URI in map %s", map->map_mname); goto fail; } while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_uri = p; break; # endif /* !USE_LDAP_INIT */ case 'h': /* ldap host */ while (isascii(*++p) && isspace(*p)) continue; if (lmap->ldap_uri != NULL) { syserr("Can not specify both an LDAP host and an LDAP URI in map %s", map->map_mname); goto fail; } lmap->ldap_host = p; break; case 'K': lmap->ldap_multi_args = true; break; case 'k': /* search field */ while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_filter = p; break; case 'l': /* time limit */ while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_timelimit = atoi(p); lmap->ldap_timeout.tv_sec = lmap->ldap_timelimit; break; case 'M': /* Method for binding */ while (isascii(*++p) && isspace(*p)) continue; if (sm_strncasecmp(p, "LDAP_AUTH_", 10) == 0) p += 10; for (lam = LDAPAuthMethods; lam != NULL && lam->lam_name != NULL; lam++) { if (sm_strncasecmp(p, lam->lam_name, strlen(lam->lam_name)) == 0) break; } if (lam->lam_name != NULL) lmap->ldap_method = lam->lam_code; else { /* bad config line */ if (!bitset(MCF_OPTFILE, map->map_class->map_cflags)) { char *ptr; if ((ptr = strchr(p, ' ')) != NULL) *ptr = '\0'; syserr("Method for binding must be [none|simple|krbv4] (not %s) in map %s", p, map->map_mname); if (ptr != NULL) *ptr = ' '; goto fail; } } break; case 'n': /* retrieve attribute names only */ lmap->ldap_attrsonly = LDAPMAP_TRUE; break; /* ** This is a string that is dependent on the ** method used defined by 'M'. */ case 'P': /* Secret password for binding */ while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_secret = p; secretread = false; break; case 'p': /* ldap port */ while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_port = atoi(p); break; /* args stolen from ldapsearch.c */ case 'R': /* don't auto chase referrals */ # ifdef LDAP_REFERRALS lmap->ldap_options &= ~LDAP_OPT_REFERRALS; # else syserr("compile with -DLDAP_REFERRALS for referral support"); # endif /* LDAP_REFERRALS */ break; case 'r': /* alias dereferencing */ while (isascii(*++p) && isspace(*p)) continue; if (sm_strncasecmp(p, "LDAP_DEREF_", 11) == 0) p += 11; for (lad = LDAPAliasDereference; lad != NULL && lad->lad_name != NULL; lad++) { if (sm_strncasecmp(p, lad->lad_name, strlen(lad->lad_name)) == 0) break; } if (lad->lad_name != NULL) lmap->ldap_deref = lad->lad_code; else { /* bad config line */ if (!bitset(MCF_OPTFILE, map->map_class->map_cflags)) { char *ptr; if ((ptr = strchr(p, ' ')) != NULL) *ptr = '\0'; syserr("Deref must be [never|always|search|find] (not %s) in map %s", p, map->map_mname); if (ptr != NULL) *ptr = ' '; goto fail; } } break; case 's': /* search scope */ while (isascii(*++p) && isspace(*p)) continue; if (sm_strncasecmp(p, "LDAP_SCOPE_", 11) == 0) p += 11; for (lss = LDAPSearchScope; lss != NULL && lss->lss_name != NULL; lss++) { if (sm_strncasecmp(p, lss->lss_name, strlen(lss->lss_name)) == 0) break; } if (lss->lss_name != NULL) lmap->ldap_scope = lss->lss_code; else { /* bad config line */ if (!bitset(MCF_OPTFILE, map->map_class->map_cflags)) { char *ptr; if ((ptr = strchr(p, ' ')) != NULL) *ptr = '\0'; syserr("Scope must be [base|one|sub] (not %s) in map %s", p, map->map_mname); if (ptr != NULL) *ptr = ' '; goto fail; } } break; case 'V': if (*++p != '\\') lmap->ldap_attrsep = *p; else { switch (*++p) { case 'n': lmap->ldap_attrsep = '\n'; break; case 't': lmap->ldap_attrsep = '\t'; break; default: lmap->ldap_attrsep = '\\'; } } break; case 'v': /* attr to return */ while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_attr[0] = p; lmap->ldap_attr[1] = NULL; break; case 'w': /* -w should be for passwd, -P should be for version */ while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_version = atoi(p); # ifdef LDAP_VERSION_MAX if (lmap->ldap_version > LDAP_VERSION_MAX) { syserr("LDAP version %d exceeds max of %d in map %s", lmap->ldap_version, LDAP_VERSION_MAX, map->map_mname); goto fail; } # endif /* LDAP_VERSION_MAX */ # ifdef LDAP_VERSION_MIN if (lmap->ldap_version < LDAP_VERSION_MIN) { syserr("LDAP version %d is lower than min of %d in map %s", lmap->ldap_version, LDAP_VERSION_MIN, map->map_mname); goto fail; } # endif /* LDAP_VERSION_MIN */ break; case 'x': # if _FFR_SM_LDAP_DBG while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_debug = atoi(p); # endif break; case 'Z': while (isascii(*++p) && isspace(*p)) continue; lmap->ldap_sizelimit = atoi(p); break; default: syserr("Illegal option %c map %s", *p, map->map_mname); break; } /* need to account for quoted strings here */ while (*p != '\0' && !(SM_ISSPACE(*p))) { if (*p == '"') { while (*++p != '"' && *p != '\0') continue; if (*p != '\0') p++; } else p++; } if (*p != '\0') *p++ = '\0'; } if (map->map_app != NULL) map->map_app = newstr(ldapmap_dequote(map->map_app)); if (map->map_tapp != NULL) map->map_tapp = newstr(ldapmap_dequote(map->map_tapp)); /* ** We need to swallow up all the stuff into a struct ** and dump it into map->map_dbptr1 */ if (lmap->ldap_host != NULL && (LDAPDefaults == NULL || LDAPDefaults == lmap || LDAPDefaults->ldap_host != lmap->ldap_host)) lmap->ldap_host = newstr(ldapmap_dequote(lmap->ldap_host)); map->map_domain = lmap->ldap_host; if (lmap->ldap_uri != NULL && (LDAPDefaults == NULL || LDAPDefaults == lmap || LDAPDefaults->ldap_uri != lmap->ldap_uri)) lmap->ldap_uri = newstr(ldapmap_dequote(lmap->ldap_uri)); map->map_domain = lmap->ldap_uri; if (lmap->ldap_binddn != NULL && (LDAPDefaults == NULL || LDAPDefaults == lmap || LDAPDefaults->ldap_binddn != lmap->ldap_binddn)) lmap->ldap_binddn = newstr(ldapmap_dequote(lmap->ldap_binddn)); if (lmap->ldap_secret != NULL && (LDAPDefaults == NULL || LDAPDefaults == lmap || LDAPDefaults->ldap_secret != lmap->ldap_secret)) { SM_FILE_T *sfd; long sff = SFF_OPENASROOT|SFF_ROOTOK|SFF_NOWLINK|SFF_NOWWFILES|SFF_NOGWFILES; if (DontLockReadFiles) sff |= SFF_NOLOCK; /* need to use method to map secret to passwd string */ switch (lmap->ldap_method) { case LDAP_AUTH_NONE: /* Do nothing */ break; case LDAP_AUTH_SIMPLE: /* ** Secret is the name of a file with ** the first line as the password. */ /* Already read in the secret? */ if (secretread) break; sfd = safefopen(ldapmap_dequote(lmap->ldap_secret), O_RDONLY, 0, sff); if (sfd == NULL) { syserr("LDAP map: cannot open secret %s", ldapmap_dequote(lmap->ldap_secret)); goto fail; } lmap->ldap_secret = sfgets(m_tmp, sizeof(m_tmp), sfd, TimeOuts.to_fileopen, "ldapmap_parseargs"); (void) sm_io_close(sfd, SM_TIME_DEFAULT); if (strlen(m_tmp) > LDAPMAP_MAX_PASSWD) { syserr("LDAP map: secret in %s too long", ldapmap_dequote(lmap->ldap_secret)); goto fail; } if (lmap->ldap_secret != NULL && strlen(m_tmp) > 0) { /* chomp newline */ if (m_tmp[strlen(m_tmp) - 1] == '\n') m_tmp[strlen(m_tmp) - 1] = '\0'; lmap->ldap_secret = m_tmp; } break; # ifdef LDAP_AUTH_KRBV4 case LDAP_AUTH_KRBV4: /* ** Secret is where the ticket file is ** stashed */ (void) sm_snprintf(m_tmp, sizeof(m_tmp), "KRBTKFILE=%s", ldapmap_dequote(lmap->ldap_secret)); lmap->ldap_secret = m_tmp; break; # endif /* LDAP_AUTH_KRBV4 */ default: /* Should NEVER get here */ syserr("LDAP map: Illegal value in lmap method"); goto fail; /* NOTREACHED */ break; } } if (lmap->ldap_secret != NULL && (LDAPDefaults == NULL || LDAPDefaults == lmap || LDAPDefaults->ldap_secret != lmap->ldap_secret)) lmap->ldap_secret = newstr(ldapmap_dequote(lmap->ldap_secret)); if (lmap->ldap_base != NULL && (LDAPDefaults == NULL || LDAPDefaults == lmap || LDAPDefaults->ldap_base != lmap->ldap_base)) lmap->ldap_base = newstr(ldapmap_dequote(lmap->ldap_base)); /* ** Save the server from extra work. If request is for a single ** match, tell the server to only return enough records to ** determine if there is a single match or not. This can not ** be one since the server would only return one and we wouldn't ** know if there were others available. */ if (bitset(MF_SINGLEMATCH, map->map_mflags)) lmap->ldap_sizelimit = 2; /* If setting defaults, don't process ldap_filter and ldap_attr */ if (lmap == LDAPDefaults) return true; if (lmap->ldap_filter != NULL) lmap->ldap_filter = newstr(ldapmap_dequote(lmap->ldap_filter)); else { if (!bitset(MCF_OPTFILE, map->map_class->map_cflags)) { syserr("No filter given in map %s", map->map_mname); goto fail; } } if (!attrssetup && lmap->ldap_attr[0] != NULL) { bool recurse = false; bool normalseen = false; i = 0; p = ldapmap_dequote(lmap->ldap_attr[0]); lmap->ldap_attr[0] = NULL; /* Prime the attr list with the objectClass attribute */ lmap->ldap_attr[i] = "objectClass"; lmap->ldap_attr_type[i] = SM_LDAP_ATTR_OBJCLASS; lmap->ldap_attr_needobjclass[i] = NULL; i++; while (p != NULL) { char *v; while (SM_ISSPACE(*p)) p++; if (*p == '\0') break; v = p; p = strchr(v, ','); if (p != NULL) *p++ = '\0'; if (i >= LDAPMAP_MAX_ATTR) { syserr("Too many return attributes in %s (max %d)", map->map_mname, LDAPMAP_MAX_ATTR); goto fail; } if (*v != '\0') { int j; int use; char *type; char *needobjclass; type = strchr(v, ':'); if (type != NULL) { *type++ = '\0'; needobjclass = strchr(type, ':'); if (needobjclass != NULL) *needobjclass++ = '\0'; } else { needobjclass = NULL; } use = i; /* allow override on "objectClass" type */ if (SM_STRCASEEQ(v, "objectClass") && lmap->ldap_attr_type[0] == SM_LDAP_ATTR_OBJCLASS) { use = 0; } else { /* ** Don't add something to attribute ** list twice. */ for (j = 1; j < i; j++) { if (SM_STRCASEEQ(v, lmap->ldap_attr[j])) { syserr("Duplicate attribute (%s) in %s", v, map->map_mname); goto fail; } } lmap->ldap_attr[use] = newstr(v); if (needobjclass != NULL && *needobjclass != '\0' && *needobjclass != '*') { lmap->ldap_attr_needobjclass[use] = newstr(needobjclass); } else { lmap->ldap_attr_needobjclass[use] = NULL; } } if (type != NULL && *type != '\0') { if (SM_STRCASEEQ(type, "dn")) { recurse = true; lmap->ldap_attr_type[use] = SM_LDAP_ATTR_DN; } else if (SM_STRCASEEQ(type, "filter")) { recurse = true; lmap->ldap_attr_type[use] = SM_LDAP_ATTR_FILTER; } else if (SM_STRCASEEQ(type, "url")) { recurse = true; lmap->ldap_attr_type[use] = SM_LDAP_ATTR_URL; } else if (SM_STRCASEEQ(type, "normal")) { lmap->ldap_attr_type[use] = SM_LDAP_ATTR_NORMAL; normalseen = true; } else { syserr("Unknown attribute type (%s) in %s", type, map->map_mname); goto fail; } } else { lmap->ldap_attr_type[use] = SM_LDAP_ATTR_NORMAL; normalseen = true; } i++; } } lmap->ldap_attr[i] = NULL; /* Set in case needed in future code */ attrssetup = true; if (recurse && !normalseen) { syserr("LDAP recursion requested in %s but no returnable attribute given", map->map_mname); goto fail; } if (recurse && lmap->ldap_attrsonly == LDAPMAP_TRUE) { syserr("LDAP recursion requested in %s can not be used with -n", map->map_mname); goto fail; } } map->map_db1 = (ARBPTR_T) lmap; return true; fail: SM_FREE(lmap_alloc); return false; } /* ** LDAPMAP_SET_DEFAULTS -- Read default map spec from LDAPDefaults in .cf ** ** Parameters: ** spec -- map argument string from LDAPDefaults option ** ** Returns: ** None. */ void ldapmap_set_defaults(spec) char *spec; { STAB *class; MAP map; /* Allocate and set the default values */ if (LDAPDefaults == NULL) LDAPDefaults = (SM_LDAP_STRUCT *) xalloc(sizeof(*LDAPDefaults)); sm_ldap_clear(LDAPDefaults); memset(&map, '\0', sizeof(map)); /* look up the class */ class = stab("ldap", ST_MAPCLASS, ST_FIND); if (class == NULL) { syserr("readcf: LDAPDefaultSpec: class ldap not available"); return; } map.map_class = &class->s_mapclass; map.map_db1 = (ARBPTR_T) LDAPDefaults; map.map_mname = "O LDAPDefaultSpec"; (void) ldapmap_parseargs(&map, spec); /* These should never be set in LDAPDefaults */ if (map.map_mflags != (MF_TRY0NULL|MF_TRY1NULL) || map.map_spacesub != SpaceSub || map.map_app != NULL || map.map_tapp != NULL) { syserr("readcf: option LDAPDefaultSpec: Do not set non-LDAP specific flags"); SM_FREE(map.map_app); SM_FREE(map.map_tapp); } if (LDAPDefaults->ldap_filter != NULL) { syserr("readcf: option LDAPDefaultSpec: Do not set the LDAP search filter"); /* don't free, it isn't malloc'ed in parseargs */ LDAPDefaults->ldap_filter = NULL; } if (LDAPDefaults->ldap_attr[0] != NULL) { syserr("readcf: option LDAPDefaultSpec: Do not set the requested LDAP attributes"); /* don't free, they aren't malloc'ed in parseargs */ LDAPDefaults->ldap_attr[0] = NULL; } } #endif /* LDAPMAP */ /* ** PH map */ #if PH_MAP /* ** Support for the CCSO Nameserver (ph/qi). ** This code is intended to replace the so-called "ph mailer". ** Contributed by Mark D. Roth. Contact him for support. */ /* what version of the ph map code we're running */ static char phmap_id[128]; /* sendmail version for phmap id string */ extern const char Version[]; /* assume we're using nph-1.2.x if not specified */ # ifndef NPH_VERSION # define NPH_VERSION 10200 # endif /* compatibility for versions older than nph-1.2.0 */ # if NPH_VERSION < 10200 # define PH_OPEN_ROUNDROBIN PH_ROUNDROBIN # define PH_OPEN_DONTID PH_DONTID # define PH_CLOSE_FAST PH_FASTCLOSE # define PH_ERR_DATAERR PH_DATAERR # define PH_ERR_NOMATCH PH_NOMATCH # endif /* NPH_VERSION < 10200 */ /* ** PH_MAP_PARSEARGS -- parse ph map definition args. */ bool ph_map_parseargs(map, args) MAP *map; char *args; { register bool done; register char *p = args; PH_MAP_STRUCT *pmap = NULL; /* initialize version string */ (void) sm_snprintf(phmap_id, sizeof(phmap_id), "sendmail-%s phmap-20010529 libphclient-%s", Version, libphclient_version); pmap = (PH_MAP_STRUCT *) xalloc(sizeof(*pmap)); /* defaults */ pmap->ph_servers = NULL; pmap->ph_field_list = NULL; pmap->ph = NULL; pmap->ph_timeout = 0; pmap->ph_fastclose = 0; map->map_mflags |= MF_TRY0NULL|MF_TRY1NULL; for (;;) { while (SM_ISSPACE(*p)) p++; if (*p != '-') break; switch (*++p) { case 'N': map->map_mflags |= MF_INCLNULL; map->map_mflags &= ~MF_TRY0NULL; break; case 'O': map->map_mflags &= ~MF_TRY1NULL; break; case 'o': map->map_mflags |= MF_OPTIONAL; break; case 'f': map->map_mflags |= MF_NOFOLDCASE; break; case 'm': map->map_mflags |= MF_MATCHONLY; break; case 'A': map->map_mflags |= MF_APPEND; break; case 'q': map->map_mflags |= MF_KEEPQUOTES; break; case 't': map->map_mflags |= MF_NODEFER; break; case 'a': map->map_app = ++p; break; case 'T': map->map_tapp = ++p; break; case 'l': while (isascii(*++p) && isspace(*p)) continue; pmap->ph_timeout = atoi(p); break; case 'S': map->map_spacesub = *++p; break; case 'D': map->map_mflags |= MF_DEFER; break; case 'h': /* PH server list */ while (isascii(*++p) && isspace(*p)) continue; pmap->ph_servers = p; break; case 'k': /* fields to search for */ while (isascii(*++p) && isspace(*p)) continue; pmap->ph_field_list = p; break; default: syserr("ph_map_parseargs: unknown option -%c", *p); } /* try to account for quoted strings */ done = SM_ISSPACE(*p); while (*p != '\0' && !done) { if (*p == '"') { while (*++p != '"' && *p != '\0') continue; if (*p != '\0') p++; } else p++; done = SM_ISSPACE(*p); } if (*p != '\0') *p++ = '\0'; } if (map->map_app != NULL) map->map_app = newstr(ph_map_dequote(map->map_app)); if (map->map_tapp != NULL) map->map_tapp = newstr(ph_map_dequote(map->map_tapp)); if (pmap->ph_field_list != NULL) pmap->ph_field_list = newstr(ph_map_dequote(pmap->ph_field_list)); if (pmap->ph_servers != NULL) pmap->ph_servers = newstr(ph_map_dequote(pmap->ph_servers)); else { syserr("ph_map_parseargs: -h flag is required"); return false; } map->map_db1 = (ARBPTR_T) pmap; return true; } /* ** PH_MAP_CLOSE -- close the connection to the ph server */ void ph_map_close(map) MAP *map; { PH_MAP_STRUCT *pmap; pmap = (PH_MAP_STRUCT *)map->map_db1; if (tTd(38, 9)) sm_dprintf("ph_map_close(%s): pmap->ph_fastclose=%d\n", map->map_mname, pmap->ph_fastclose); if (pmap->ph != NULL) { ph_set_sendhook(pmap->ph, NULL); ph_set_recvhook(pmap->ph, NULL); ph_close(pmap->ph, pmap->ph_fastclose); } map->map_mflags &= ~(MF_OPEN|MF_WRITABLE); } static jmp_buf PHTimeout; /* ARGSUSED */ static void ph_timeout(unused) int unused; { /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ errno = ETIMEDOUT; longjmp(PHTimeout, 1); } static void # if NPH_VERSION >= 10200 ph_map_send_debug(appdata, text) void *appdata; # else ph_map_send_debug(text) # endif char *text; { if (LogLevel > 9) sm_syslog(LOG_NOTICE, CurEnv->e_id, "ph_map_send_debug: ==> %s", text); if (tTd(38, 20)) sm_dprintf("ph_map_send_debug: ==> %s\n", text); } static void # if NPH_VERSION >= 10200 ph_map_recv_debug(appdata, text) void *appdata; # else ph_map_recv_debug(text) # endif char *text; { if (LogLevel > 10) sm_syslog(LOG_NOTICE, CurEnv->e_id, "ph_map_recv_debug: <== %s", text); if (tTd(38, 21)) sm_dprintf("ph_map_recv_debug: <== %s\n", text); } /* ** PH_MAP_OPEN -- sub for opening PH map */ bool ph_map_open(map, mode) MAP *map; int mode; { PH_MAP_STRUCT *pmap; register SM_EVENT *ev = NULL; int save_errno = 0; char *hostlist, *host; if (tTd(38, 2)) sm_dprintf("ph_map_open(%s)\n", map->map_mname); mode &= O_ACCMODE; if (mode != O_RDONLY) { /* issue a pseudo-error message */ errno = SM_EMAPCANTWRITE; return false; } if (CurEnv != NULL && CurEnv->e_sendmode == SM_DEFER && bitset(MF_DEFER, map->map_mflags)) { if (tTd(9, 1)) sm_dprintf("ph_map_open(%s) => DEFERRED\n", map->map_mname); /* ** Unset MF_DEFER here so that map_lookup() returns ** a temporary failure using the bogus map and ** map->map_tapp instead of the default permanent error. */ map->map_mflags &= ~MF_DEFER; return false; } pmap = (PH_MAP_STRUCT *)map->map_db1; pmap->ph_fastclose = 0; /* refresh field for reopen */ /* try each host in the list */ hostlist = newstr(pmap->ph_servers); for (host = strtok(hostlist, " "); host != NULL; host = strtok(NULL, " ")) { /* set timeout */ if (pmap->ph_timeout != 0) { if (setjmp(PHTimeout) != 0) { ev = NULL; if (LogLevel > 1) sm_syslog(LOG_NOTICE, CurEnv->e_id, "timeout connecting to PH server %.100s", host); errno = ETIMEDOUT; goto ph_map_open_abort; } ev = sm_setevent(pmap->ph_timeout, ph_timeout, 0); } /* open connection to server */ if (ph_open(&(pmap->ph), host, PH_OPEN_ROUNDROBIN|PH_OPEN_DONTID, ph_map_send_debug, ph_map_recv_debug # if NPH_VERSION >= 10200 , NULL # endif ) == 0 && ph_id(pmap->ph, phmap_id) == 0) { if (ev != NULL) sm_clrevent(ev); sm_free(hostlist); /* XXX */ return true; } ph_map_open_abort: save_errno = errno; if (ev != NULL) sm_clrevent(ev); pmap->ph_fastclose = PH_CLOSE_FAST; ph_map_close(map); errno = save_errno; } if (bitset(MF_NODEFER, map->map_mflags)) { if (errno == 0) errno = EAGAIN; syserr("ph_map_open: %s: cannot connect to PH server", map->map_mname); } else if (!bitset(MF_OPTIONAL, map->map_mflags) && LogLevel > 1) sm_syslog(LOG_NOTICE, CurEnv->e_id, "ph_map_open: %s: cannot connect to PH server", map->map_mname); sm_free(hostlist); /* XXX */ return false; } /* ** PH_MAP_LOOKUP -- look up key from ph server */ char * ph_map_lookup(map, key, args, pstat) MAP *map; char *key; char **args; int *pstat; { int i, save_errno = 0; register SM_EVENT *ev = NULL; PH_MAP_STRUCT *pmap; char *value = NULL; pmap = (PH_MAP_STRUCT *)map->map_db1; *pstat = EX_OK; /* set timeout */ if (pmap->ph_timeout != 0) { if (setjmp(PHTimeout) != 0) { ev = NULL; if (LogLevel > 1) sm_syslog(LOG_NOTICE, CurEnv->e_id, "timeout during PH lookup of %.100s", key); errno = ETIMEDOUT; *pstat = EX_TEMPFAIL; goto ph_map_lookup_abort; } ev = sm_setevent(pmap->ph_timeout, ph_timeout, 0); } /* perform lookup */ i = ph_email_resolve(pmap->ph, key, pmap->ph_field_list, &value); if (i == -1) *pstat = EX_TEMPFAIL; else if (i == PH_ERR_NOMATCH || i == PH_ERR_DATAERR) *pstat = EX_UNAVAILABLE; ph_map_lookup_abort: if (ev != NULL) sm_clrevent(ev); /* ** Close the connection if the timer popped ** or we got a temporary PH error */ if (*pstat == EX_TEMPFAIL) { save_errno = errno; pmap->ph_fastclose = PH_CLOSE_FAST; ph_map_close(map); errno = save_errno; } if (*pstat == EX_OK) { if (tTd(38,20)) sm_dprintf("ph_map_lookup: %s => %s\n", key, value); if (bitset(MF_MATCHONLY, map->map_mflags)) return map_rewrite(map, key, strlen(key), NULL); else return map_rewrite(map, value, strlen(value), args); } return NULL; } #endif /* PH_MAP */ /* ** syslog map */ #define map_prio map_lockfd /* overload field */ /* ** SYSLOG_MAP_PARSEARGS -- check for priority level to syslog messages. */ bool syslog_map_parseargs(map, args) MAP *map; char *args; { char *p = args; char *priority = NULL; /* there is no check whether there is really an argument */ while (*p != '\0') { while (SM_ISSPACE(*p)) p++; if (*p != '-') break; ++p; if (*p == 'D') { map->map_mflags |= MF_DEFER; ++p; } else if (*p == 'S') { map->map_spacesub = *++p; if (*p != '\0') p++; } else if (*p == 'L') { while (*++p != '\0' && SM_ISSPACE(*p)) continue; if (*p == '\0') break; priority = p; while (*p != '\0' && !(SM_ISSPACE(*p))) p++; if (*p != '\0') *p++ = '\0'; } else { syserr("Illegal option %c map syslog", *p); ++p; } } if (priority == NULL) map->map_prio = LOG_INFO; else { if (sm_strncasecmp("LOG_", priority, 4) == 0) priority += 4; #ifdef LOG_EMERG if (SM_STRCASEEQ("EMERG", priority)) map->map_prio = LOG_EMERG; else #endif #ifdef LOG_ALERT if (SM_STRCASEEQ("ALERT", priority)) map->map_prio = LOG_ALERT; else #endif #ifdef LOG_CRIT if (SM_STRCASEEQ("CRIT", priority)) map->map_prio = LOG_CRIT; else #endif #ifdef LOG_ERR if (SM_STRCASEEQ("ERR", priority)) map->map_prio = LOG_ERR; else #endif #ifdef LOG_WARNING if (SM_STRCASEEQ("WARNING", priority)) map->map_prio = LOG_WARNING; else #endif #ifdef LOG_NOTICE if (SM_STRCASEEQ("NOTICE", priority)) map->map_prio = LOG_NOTICE; else #endif #ifdef LOG_INFO if (SM_STRCASEEQ("INFO", priority)) map->map_prio = LOG_INFO; else #endif #ifdef LOG_DEBUG if (SM_STRCASEEQ("DEBUG", priority)) map->map_prio = LOG_DEBUG; else #endif { syserr("syslog_map_parseargs: Unknown priority %s", priority); return false; } } #if _FFR_8BITENVADDR map->map_mflags |= MF_KEEPXFMT; #endif return true; } /* ** SYSLOG_MAP_LOOKUP -- rewrite and syslog message. Always return empty string */ char * syslog_map_lookup(map, string, args, statp) MAP *map; char *string; char **args; int *statp; { char *ptr = map_rewrite(map, string, strlen(string), args); if (ptr != NULL) { if (tTd(38, 20)) sm_dprintf("syslog_map_lookup(%s (priority %d): %s\n", map->map_mname, map->map_prio, ptr); sm_syslog(map->map_prio, CurEnv->e_id, "%s", ptr); } *statp = EX_OK; return ""; } #if _FFR_DPRINTF_MAP /* ** dprintf map */ #define map_dbg_level map_lockfd /* overload field */ /* ** DPRINTF_MAP_PARSEARGS -- check for priority level to dprintf messages. */ bool dprintf_map_parseargs(map, args) MAP *map; char *args; { char *p = args; char *dbg_level = NULL; /* there is no check whether there is really an argument */ while (*p != '\0') { while (SM_ISSPACE(*p)) p++; if (*p != '-') break; ++p; if (*p == 'D') { map->map_mflags |= MF_DEFER; ++p; } else if (*p == 'S') { map->map_spacesub = *++p; if (*p != '\0') p++; } else if (*p == 'd') { while (*++p != '\0' && SM_ISSPACE(*p)) continue; if (*p == '\0') break; dbg_level = p; while (*p != '\0' && !(SM_ISSPACE(*p))) p++; if (*p != '\0') *p++ = '\0'; } else { syserr("Illegal option %c map dprintf", *p); ++p; } } if (dbg_level == NULL) map->map_dbg_level = 0; else { if (!(isascii(*dbg_level) && isdigit(*dbg_level))) { syserr("dprintf map \"%s\", file %s: -d should specify a number, not %s", map->map_mname, map->map_file, dbg_level); return false; } map->map_dbg_level = atoi(dbg_level); } # if _FFR_8BITENVADDR map->map_mflags |= MF_KEEPXFMT; # endif return true; } /* ** DPRINTF_MAP_LOOKUP -- rewrite and print message. Always return empty string */ char * dprintf_map_lookup(map, string, args, statp) MAP *map; char *string; char **args; int *statp; { char *ptr = map_rewrite(map, string, strlen(string), args); if (ptr != NULL && tTd(85, map->map_dbg_level)) sm_dprintf("%s\n", ptr); *statp = EX_OK; return ""; } #endif /* _FFR_DPRINTF_MAP */ /* ** HESIOD Modules */ #if HESIOD bool hes_map_open(map, mode) MAP *map; int mode; { if (tTd(38, 2)) sm_dprintf("hes_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); if (mode != O_RDONLY) { /* issue a pseudo-error message */ errno = SM_EMAPCANTWRITE; return false; } # ifdef HESIOD_INIT if (HesiodContext != NULL || hesiod_init(&HesiodContext) == 0) return true; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("451 4.3.5 cannot initialize Hesiod map (%s)", sm_errstring(errno)); return false; # else /* HESIOD_INIT */ if (hes_error() == HES_ER_UNINIT) hes_init(); switch (hes_error()) { case HES_ER_OK: case HES_ER_NOTFOUND: return true; } if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("451 4.3.5 cannot initialize Hesiod map (%d)", hes_error()); return false; # endif /* HESIOD_INIT */ } char * hes_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { char **hp; if (tTd(38, 20)) sm_dprintf("hes_map_lookup(%s, %s)\n", map->map_file, name); if (name[0] == '\\') { char *np; int nl; int save_errno; char nbuf[MAXNAME]; /* EAI:ok - larger buffer used if needed */ nl = strlen(name); if (nl < sizeof(nbuf) - 1) np = nbuf; else np = xalloc(nl + 2); np[0] = '\\'; (void) sm_strlcpy(&np[1], name, sizeof(nbuf) - 1); # ifdef HESIOD_INIT hp = hesiod_resolve(HesiodContext, np, map->map_file); # else hp = hes_resolve(np, map->map_file); # endif save_errno = errno; if (np != nbuf) SM_FREE(np); /* XXX */ errno = save_errno; } else { # ifdef HESIOD_INIT hp = hesiod_resolve(HesiodContext, name, map->map_file); # else hp = hes_resolve(name, map->map_file); # endif /* HESIOD_INIT */ } # ifdef HESIOD_INIT if (hp == NULL || *hp == NULL) { switch (errno) { case ENOENT: *statp = EX_NOTFOUND; break; case ECONNREFUSED: *statp = EX_TEMPFAIL; break; case EMSGSIZE: case ENOMEM: default: *statp = EX_UNAVAILABLE; break; } if (hp != NULL) hesiod_free_list(HesiodContext, hp); return NULL; } # else /* HESIOD_INIT */ if (hp == NULL || hp[0] == NULL) { switch (hes_error()) { case HES_ER_OK: *statp = EX_OK; break; case HES_ER_NOTFOUND: *statp = EX_NOTFOUND; break; case HES_ER_CONFIG: *statp = EX_UNAVAILABLE; break; case HES_ER_NET: *statp = EX_TEMPFAIL; break; } return NULL; } # endif /* HESIOD_INIT */ if (bitset(MF_MATCHONLY, map->map_mflags)) return map_rewrite(map, name, strlen(name), NULL); else return map_rewrite(map, hp[0], strlen(hp[0]), av); } /* ** HES_MAP_CLOSE -- free the Hesiod context */ void hes_map_close(map) MAP *map; { if (tTd(38, 20)) sm_dprintf("hes_map_close(%s)\n", map->map_file); # ifdef HESIOD_INIT /* Free the hesiod context */ if (HesiodContext != NULL) { hesiod_end(HesiodContext); HesiodContext = NULL; } # endif /* HESIOD_INIT */ } #endif /* HESIOD */ /* ** NeXT NETINFO Modules */ #if NETINFO # define NETINFO_DEFAULT_DIR "/aliases" # define NETINFO_DEFAULT_PROPERTY "members" /* ** NI_MAP_OPEN -- open NetInfo Aliases */ bool ni_map_open(map, mode) MAP *map; int mode; { if (tTd(38, 2)) sm_dprintf("ni_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); mode &= O_ACCMODE; if (*map->map_file == '\0') map->map_file = NETINFO_DEFAULT_DIR; if (map->map_valcolnm == NULL) map->map_valcolnm = NETINFO_DEFAULT_PROPERTY; if (map->map_coldelim == '\0') { if (bitset(MF_ALIAS, map->map_mflags)) map->map_coldelim = ','; else if (bitset(MF_FILECLASS, map->map_mflags)) map->map_coldelim = ' '; } return true; } /* ** NI_MAP_LOOKUP -- look up a datum in NetInfo */ char * ni_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { char *res; char *propval; if (tTd(38, 20)) sm_dprintf("ni_map_lookup(%s, %s)\n", map->map_mname, name); propval = ni_propval(map->map_file, map->map_keycolnm, name, map->map_valcolnm, map->map_coldelim); if (propval == NULL) return NULL; SM_TRY if (bitset(MF_MATCHONLY, map->map_mflags)) res = map_rewrite(map, name, strlen(name), NULL); else res = map_rewrite(map, propval, strlen(propval), av); SM_FINALLY sm_free(propval); SM_END_TRY return res; } static bool ni_getcanonname(name, hbsize, statp) char *name; int hbsize; int *statp; { char *vptr; char *ptr; char nbuf[MAXNAME + 1]; /* EAI:hostname */ if (tTd(38, 20)) sm_dprintf("ni_getcanonname(%s)\n", name); if (sm_strlcpy(nbuf, name, sizeof(nbuf)) >= sizeof(nbuf)) { *statp = EX_UNAVAILABLE; return false; } (void) shorten_hostname(nbuf); /* we only accept single token search key */ if (strchr(nbuf, '.')) { *statp = EX_NOHOST; return false; } /* Do the search */ vptr = ni_propval("/machines", NULL, nbuf, "name", '\n'); if (vptr == NULL) { *statp = EX_NOHOST; return false; } /* Only want the first machine name */ if ((ptr = strchr(vptr, '\n')) != NULL) *ptr = '\0'; if (sm_strlcpy(name, vptr, hbsize) >= hbsize) { sm_free(vptr); *statp = EX_UNAVAILABLE; return true; } sm_free(vptr); *statp = EX_OK; return false; } #endif /* NETINFO */ /* ** TEXT (unindexed text file) Modules ** ** This code donated by Sun Microsystems. */ #define map_sff map_lockfd /* overload field */ /* ** TEXT_MAP_OPEN -- open text table */ bool text_map_open(map, mode) MAP *map; int mode; { long sff; int i; if (tTd(38, 2)) sm_dprintf("text_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); mode &= O_ACCMODE; if (mode != O_RDONLY) { errno = EPERM; return false; } if (*map->map_file == '\0') { syserr("text map \"%s\": file name required", map->map_mname); return false; } if (map->map_file[0] != '/') { syserr("text map \"%s\": file name must be fully qualified", map->map_mname); return false; } sff = SFF_ROOTOK|SFF_REGONLY; if (!bitnset(DBS_LINKEDMAPINWRITABLEDIR, DontBlameSendmail)) sff |= SFF_NOWLINK; if (!bitnset(DBS_MAPINUNSAFEDIRPATH, DontBlameSendmail)) sff |= SFF_SAFEDIRPATH; if ((i = safefile(map->map_file, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR, NULL)) != 0) { int save_errno = errno; /* cannot open this map */ if (tTd(38, 2)) sm_dprintf("\tunsafe map file: %d\n", i); errno = save_errno; if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("text map \"%s\": unsafe map file %s", map->map_mname, map->map_file); return false; } if (map->map_keycolnm == NULL) map->map_keycolno = 0; else { if (!(isascii(*map->map_keycolnm) && isdigit(*map->map_keycolnm))) { syserr("text map \"%s\", file %s: -k should specify a number, not %s", map->map_mname, map->map_file, map->map_keycolnm); return false; } map->map_keycolno = atoi(map->map_keycolnm); } if (map->map_valcolnm == NULL) map->map_valcolno = 0; else { if (!(isascii(*map->map_valcolnm) && isdigit(*map->map_valcolnm))) { syserr("text map \"%s\", file %s: -v should specify a number, not %s", map->map_mname, map->map_file, map->map_valcolnm); return false; } map->map_valcolno = atoi(map->map_valcolnm); } if (tTd(38, 2)) { sm_dprintf("text_map_open(%s, %s): delimiter = ", map->map_mname, map->map_file); if (map->map_coldelim == '\0') sm_dprintf("(white space)\n"); else sm_dprintf("%c\n", map->map_coldelim); } map->map_sff = sff; return true; } /* ** TEXT_MAP_LOOKUP -- look up a datum in a TEXT table */ char * text_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { char *vp; auto int vsize; int buflen; SM_FILE_T *f; char delim; int key_idx; bool found_it; long sff = map->map_sff; char search_key[MAXNAME + 1]; /* EAI:ok */ char linebuf[MAXLINE]; char buf[MAXNAME + 1]; /* EAI:ok */ found_it = false; if (tTd(38, 20)) sm_dprintf("text_map_lookup(%s, %s)\n", map->map_mname, name); buflen = strlen(name); if (buflen > sizeof(search_key) - 1) buflen = sizeof(search_key) - 1; /* XXX just cut if off? */ memmove(search_key, name, buflen); search_key[buflen] = '\0'; if (!bitset(MF_NOFOLDCASE, map->map_mflags)) makelower_buf(search_key, search_key, sizeof(search_key)); f = safefopen(map->map_file, O_RDONLY, FileMode, sff); if (f == NULL) { map->map_mflags &= ~(MF_VALID|MF_OPEN); *statp = EX_UNAVAILABLE; return NULL; } key_idx = map->map_keycolno; delim = map->map_coldelim; while (sm_io_fgets(f, SM_TIME_DEFAULT, linebuf, sizeof(linebuf)) >= 0) { char *p; /* skip comment line */ if (linebuf[0] == '#') continue; p = strchr(linebuf, '\n'); if (p != NULL) *p = '\0'; p = get_column(linebuf, key_idx, delim, buf, sizeof(buf)); if (p != NULL && SM_STRCASEEQ(search_key, p)) { found_it = true; break; } } (void) sm_io_close(f, SM_TIME_DEFAULT); if (!found_it) { *statp = EX_NOTFOUND; return NULL; } vp = get_column(linebuf, map->map_valcolno, delim, buf, sizeof(buf)); if (vp == NULL) { *statp = EX_NOTFOUND; return NULL; } vsize = strlen(vp); *statp = EX_OK; if (bitset(MF_MATCHONLY, map->map_mflags)) return map_rewrite(map, name, strlen(name), NULL); else return map_rewrite(map, vp, vsize, av); } /* ** TEXT_GETCANONNAME -- look up canonical name in hosts file */ static bool text_getcanonname(name, hbsize, statp) char *name; int hbsize; int *statp; { bool found; char *dot; SM_FILE_T *f; char linebuf[MAXLINE]; char cbuf[MAXNAME + 1]; /* EAI:hostname */ char nbuf[MAXNAME + 1]; /* EAI:hostname */ if (tTd(38, 20)) sm_dprintf("text_getcanonname(%s)\n", name); if (sm_strlcpy(nbuf, name, sizeof(nbuf)) >= sizeof(nbuf)) { *statp = EX_UNAVAILABLE; return false; } dot = shorten_hostname(nbuf); f = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, HostsFile, SM_IO_RDONLY, NULL); if (f == NULL) { *statp = EX_UNAVAILABLE; return false; } found = false; while (!found && sm_io_fgets(f, SM_TIME_DEFAULT, linebuf, sizeof(linebuf)) >= 0) { char *p = strpbrk(linebuf, "#\n"); if (p != NULL) *p = '\0'; if (linebuf[0] != '\0') found = extract_canonname(nbuf, dot, linebuf, cbuf, sizeof(cbuf)); } (void) sm_io_close(f, SM_TIME_DEFAULT); if (!found) { *statp = EX_NOHOST; return false; } if (sm_strlcpy(name, cbuf, hbsize) >= hbsize) { *statp = EX_UNAVAILABLE; return false; } *statp = EX_OK; return true; } /* ** STAB (Symbol Table) Modules */ /* ** STAB_MAP_LOOKUP -- look up alias in symbol table */ /* ARGSUSED2 */ char * stab_map_lookup(map, name, av, pstat) register MAP *map; char *name; char **av; int *pstat; { register STAB *s; if (tTd(38, 20)) sm_dprintf("stab_lookup(%s, %s)\n", map->map_mname, name); s = stab(name, ST_ALIAS, ST_FIND); if (s == NULL) return NULL; if (bitset(MF_MATCHONLY, map->map_mflags)) return map_rewrite(map, name, strlen(name), NULL); else return map_rewrite(map, s->s_alias, strlen(s->s_alias), av); } /* ** STAB_MAP_STORE -- store in symtab (actually using during init, not rebuild) */ void stab_map_store(map, lhs, rhs) register MAP *map; char *lhs; char *rhs; { register STAB *s; s = stab(lhs, ST_ALIAS, ST_ENTER); s->s_alias = newstr(rhs); } /* ** STAB_MAP_OPEN -- initialize (reads data file) ** ** This is a weird case -- it is only intended as a fallback for ** aliases. For this reason, opens for write (only during a ** "newaliases") always fails, and opens for read open the ** actual underlying text file instead of the database. */ bool stab_map_open(map, mode) register MAP *map; int mode; { SM_FILE_T *af; long sff; struct stat st; if (tTd(38, 2)) sm_dprintf("stab_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); mode &= O_ACCMODE; if (mode != O_RDONLY) { errno = EPERM; return false; } sff = SFF_ROOTOK|SFF_REGONLY; if (!bitnset(DBS_LINKEDMAPINWRITABLEDIR, DontBlameSendmail)) sff |= SFF_NOWLINK; if (!bitnset(DBS_MAPINUNSAFEDIRPATH, DontBlameSendmail)) sff |= SFF_SAFEDIRPATH; af = safefopen(map->map_file, O_RDONLY, 0444, sff); if (af == NULL) return false; readaliases(map, af, false, false); if (fstat(sm_io_getinfo(af, SM_IO_WHAT_FD, NULL), &st) >= 0) map->map_mtime = st.st_mtime; (void) sm_io_close(af, SM_TIME_DEFAULT); return true; } /* ** Implicit Modules ** ** Tries several types. For back compatibility of aliases. */ /* ** IMPL_MAP_LOOKUP -- lookup in best open database */ char * impl_map_lookup(map, name, av, pstat) MAP *map; char *name; char **av; int *pstat; { if (tTd(38, 20)) sm_dprintf("impl_map_lookup(%s, %s)\n", map->map_mname, name); #if NEWDB if (bitset(MF_IMPL_HASH, map->map_mflags)) return db_map_lookup(map, name, av, pstat); #endif #if NDBM if (bitset(MF_IMPL_NDBM, map->map_mflags)) return ndbm_map_lookup(map, name, av, pstat); #endif #if CDB if (bitset(MF_IMPL_CDB, map->map_mflags)) return cdb_map_lookup(map, name, av, pstat); #endif return stab_map_lookup(map, name, av, pstat); } /* ** IMPL_MAP_STORE -- store in open databases */ void impl_map_store(map, lhs, rhs) MAP *map; char *lhs; char *rhs; { if (tTd(38, 12)) sm_dprintf("impl_map_store(%s, %s, %s)\n", map->map_mname, lhs, rhs); #if NEWDB if (bitset(MF_IMPL_HASH, map->map_mflags)) db_map_store(map, lhs, rhs); #endif #if NDBM if (bitset(MF_IMPL_NDBM, map->map_mflags)) ndbm_map_store(map, lhs, rhs); #endif #if CDB if (bitset(MF_IMPL_CDB, map->map_mflags)) cdb_map_store(map, lhs, rhs); #endif stab_map_store(map, lhs, rhs); } /* ** IMPL_MAP_OPEN -- implicit database open */ bool impl_map_open(map, mode) MAP *map; int mode; { bool wasopt; if (tTd(38, 2)) sm_dprintf("impl_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); mode &= O_ACCMODE; wasopt = bitset(MF_OPTIONAL, map->map_mflags); /* suppress error msgs */ map->map_mflags |= MF_OPTIONAL; #if NEWDB map->map_mflags |= MF_IMPL_HASH; if (hash_map_open(map, mode)) { # ifdef NDBM_YP_COMPAT if (mode == O_RDONLY || strstr(map->map_file, "/yp/") == NULL) # endif goto ok; } else map->map_mflags &= ~MF_IMPL_HASH; #endif /* NEWDB */ #if NDBM map->map_mflags |= MF_IMPL_NDBM; if (ndbm_map_open(map, mode)) goto ok; else map->map_mflags &= ~MF_IMPL_NDBM; #endif /* NDBM */ #if CDB map->map_mflags |= MF_IMPL_CDB; if (cdb_map_open(map, mode)) goto ok; else map->map_mflags &= ~MF_IMPL_CDB; #endif /* CDB */ if (!bitset(MF_ALIAS, map->map_mflags)) goto fail; #if NEWDB || NDBM || CDB if (Verbose) message("WARNING: cannot open alias database %s%s", map->map_file, mode == O_RDONLY ? "; reading text version" : ""); #else if (mode != O_RDONLY) usrerr("Cannot rebuild aliases: no database format defined"); #endif if (mode == O_RDONLY && stab_map_open(map, mode)) goto ok; fail: if (!wasopt) map->map_mflags &= ~MF_OPTIONAL; return false; ok: if (!wasopt) map->map_mflags &= ~MF_OPTIONAL; return true; } /* ** IMPL_MAP_CLOSE -- close any open database(s) */ void impl_map_close(map) MAP *map; { if (tTd(38, 9)) sm_dprintf("impl_map_close(%s, %s, %lx)\n", map->map_mname, map->map_file, map->map_mflags); #if NEWDB if (bitset(MF_IMPL_HASH, map->map_mflags)) { db_map_close(map); map->map_mflags &= ~MF_IMPL_HASH; } #endif /* NEWDB */ #if NDBM if (bitset(MF_IMPL_NDBM, map->map_mflags)) { ndbm_map_close(map); map->map_mflags &= ~MF_IMPL_NDBM; } #endif /* NDBM */ #if CDB if (bitset(MF_IMPL_CDB, map->map_mflags)) { cdb_map_close(map); map->map_mflags &= ~MF_IMPL_CDB; } #endif /* CDB */ } /* ** User map class. ** ** Provides access to the system password file. */ /* ** USER_MAP_OPEN -- open user map ** ** Really just binds field names to field numbers. */ bool user_map_open(map, mode) MAP *map; int mode; { if (tTd(38, 2)) sm_dprintf("user_map_open(%s, %d)\n", map->map_mname, mode); mode &= O_ACCMODE; if (mode != O_RDONLY) { /* issue a pseudo-error message */ errno = SM_EMAPCANTWRITE; return false; } if (map->map_valcolnm == NULL) /* EMPTY */ /* nothing */ ; else if (SM_STRCASEEQ(map->map_valcolnm, "name")) map->map_valcolno = 1; else if (SM_STRCASEEQ(map->map_valcolnm, "passwd")) map->map_valcolno = 2; else if (SM_STRCASEEQ(map->map_valcolnm, "uid")) map->map_valcolno = 3; else if (SM_STRCASEEQ(map->map_valcolnm, "gid")) map->map_valcolno = 4; else if (SM_STRCASEEQ(map->map_valcolnm, "gecos")) map->map_valcolno = 5; else if (SM_STRCASEEQ(map->map_valcolnm, "dir")) map->map_valcolno = 6; else if (SM_STRCASEEQ(map->map_valcolnm, "shell")) map->map_valcolno = 7; else { syserr("User map %s: unknown column name %s", map->map_mname, map->map_valcolnm); return false; } return true; } /* ** USER_MAP_LOOKUP -- look up a user in the passwd file. */ /* ARGSUSED3 */ char * user_map_lookup(map, key, av, statp) MAP *map; char *key; char **av; int *statp; { auto bool fuzzy; SM_MBDB_T user; if (tTd(38, 20)) sm_dprintf("user_map_lookup(%s, %s)\n", map->map_mname, key); *statp = finduser(key, &fuzzy, &user); if (*statp != EX_OK) return NULL; if (bitset(MF_MATCHONLY, map->map_mflags)) return map_rewrite(map, key, strlen(key), NULL); else { char *rwval = NULL; char buf[30]; switch (map->map_valcolno) { case 0: case 1: rwval = user.mbdb_name; break; case 2: rwval = "x"; /* passwd no longer supported */ break; case 3: (void) sm_snprintf(buf, sizeof(buf), "%d", (int) user.mbdb_uid); rwval = buf; break; case 4: (void) sm_snprintf(buf, sizeof(buf), "%d", (int) user.mbdb_gid); rwval = buf; break; case 5: rwval = user.mbdb_fullname; break; case 6: rwval = user.mbdb_homedir; break; case 7: rwval = user.mbdb_shell; break; default: syserr("user_map %s: bogus field %d", map->map_mname, map->map_valcolno); return NULL; } return map_rewrite(map, rwval, strlen(rwval), av); } } /* ** Program map type. ** ** This provides access to arbitrary programs. It should be used ** only very sparingly, since there is no way to bound the cost ** of invoking an arbitrary program. */ char * prog_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { int i; int save_errno; int fd; int status; auto pid_t pid; register char *p; char *rval; char *argv[MAXPV + 1]; char buf[MAXLINE]; if (tTd(38, 20)) sm_dprintf("prog_map_lookup(%s, %s) %s\n", map->map_mname, name, map->map_file); i = 0; argv[i++] = map->map_file; if (map->map_rebuild != NULL) { (void) sm_strlcpy(buf, map->map_rebuild, sizeof(buf)); for (p = strtok(buf, " \t"); p != NULL; p = strtok(NULL, " \t")) { if (i >= MAXPV - 1) break; argv[i++] = p; } } argv[i++] = name; argv[i] = NULL; if (tTd(38, 21)) { sm_dprintf("prog_open:"); for (i = 0; argv[i] != NULL; i++) sm_dprintf(" %s", argv[i]); sm_dprintf("\n"); } (void) sm_blocksignal(SIGCHLD); pid = prog_open(argv, &fd, CurEnv); if (pid < 0) { if (!bitset(MF_OPTIONAL, map->map_mflags)) syserr("prog_map_lookup(%s) failed (%s) -- closing", map->map_mname, sm_errstring(errno)); else if (tTd(38, 9)) sm_dprintf("prog_map_lookup(%s) failed (%s) -- closing", map->map_mname, sm_errstring(errno)); map->map_mflags &= ~(MF_VALID|MF_OPEN); *statp = EX_OSFILE; return NULL; } i = read(fd, buf, sizeof(buf) - 1); if (i < 0) { syserr("prog_map_lookup(%s): read error %s", map->map_mname, sm_errstring(errno)); rval = NULL; } else if (i == 0) { if (tTd(38, 20)) sm_dprintf("prog_map_lookup(%s): empty answer\n", map->map_mname); rval = NULL; } else { buf[i] = '\0'; p = strchr(buf, '\n'); if (p != NULL) *p = '\0'; /* collect the return value */ if (bitset(MF_MATCHONLY, map->map_mflags)) rval = map_rewrite(map, name, strlen(name), NULL); else rval = map_rewrite(map, buf, strlen(buf), av); /* now flush any additional output */ while ((i = read(fd, buf, sizeof(buf))) > 0) continue; } /* wait for the process to terminate */ (void) close(fd); status = waitfor(pid); save_errno = errno; (void) sm_releasesignal(SIGCHLD); errno = save_errno; if (status == -1) { syserr("prog_map_lookup(%s): wait error %s", map->map_mname, sm_errstring(errno)); *statp = EX_SOFTWARE; rval = NULL; } else if (WIFEXITED(status)) { if ((*statp = WEXITSTATUS(status)) != EX_OK) rval = NULL; } else { syserr("prog_map_lookup(%s): child died on signal %d", map->map_mname, status); *statp = EX_UNAVAILABLE; rval = NULL; } return rval; } /* ** Sequenced map type. ** ** Tries each map in order until something matches, much like ** implicit. Stores go to the first map in the list that can ** support storing. ** ** This is slightly unusual in that there are two interfaces. ** The "sequence" interface lets you stack maps arbitrarily. ** The "switch" interface builds a sequence map by looking ** at a system-dependent configuration file such as ** /etc/nsswitch.conf on Solaris or /etc/svc.conf on Ultrix. ** ** We don't need an explicit open, since all maps are ** opened on demand. */ /* ** SEQ_MAP_PARSE -- Sequenced map parsing */ bool seq_map_parse(map, ap) MAP *map; char *ap; { int maxmap; if (tTd(38, 2)) sm_dprintf("seq_map_parse(%s, %s)\n", map->map_mname, ap); maxmap = 0; while (*ap != '\0') { register char *p; STAB *s; /* find beginning of map name */ while (SM_ISSPACE(*ap)) ap++; for (p = ap; (isascii(*p) && isalnum(*p)) || *p == '_' || *p == '.'; p++) continue; if (*p != '\0') *p++ = '\0'; while (*p != '\0' && (!isascii(*p) || !isalnum(*p))) p++; if (*ap == '\0') { ap = p; continue; } s = stab(ap, ST_MAP, ST_FIND); if (s == NULL) { syserr("Sequence map %s: unknown member map %s", map->map_mname, ap); } else if (maxmap >= MAXMAPSTACK) { syserr("Sequence map %s: too many member maps (%d max)", map->map_mname, MAXMAPSTACK); maxmap++; } else if (maxmap < MAXMAPSTACK) { map->map_stack[maxmap++] = &s->s_map; } ap = p; } return true; } /* ** SWITCH_MAP_OPEN -- open a switched map ** ** This looks at the system-dependent configuration and builds ** a sequence map that does the same thing. ** ** Every system must define a switch_map_find routine in conf.c ** that will return the list of service types associated with a ** given service class. */ bool switch_map_open(map, mode) MAP *map; int mode; { int mapno; int nmaps; char *maptype[MAXMAPSTACK]; if (tTd(38, 2)) sm_dprintf("switch_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); mode &= O_ACCMODE; nmaps = switch_map_find(map->map_file, maptype, map->map_return); if (tTd(38, 19)) { sm_dprintf("\tswitch_map_find => %d\n", nmaps); for (mapno = 0; mapno < nmaps; mapno++) sm_dprintf("\t\t%s\n", maptype[mapno]); } if (nmaps <= 0 || nmaps > MAXMAPSTACK) return false; for (mapno = 0; mapno < nmaps; mapno++) { register STAB *s; char nbuf[MAXNAME + 1]; /* EAI:not relevant (map name) */ if (maptype[mapno] == NULL) continue; (void) sm_strlcpyn(nbuf, sizeof(nbuf), 3, map->map_mname, ".", maptype[mapno]); s = stab(nbuf, ST_MAP, ST_FIND); if (s == NULL) { syserr("Switch map %s: unknown member map %s", map->map_mname, nbuf); } else { map->map_stack[mapno] = &s->s_map; if (tTd(38, 4)) sm_dprintf("\tmap_stack[%d] = %s:%s\n", mapno, s->s_map.map_class->map_cname, nbuf); } } return true; } #if 0 /* ** SEQ_MAP_CLOSE -- close all underlying maps */ void seq_map_close(map) MAP *map; { int mapno; if (tTd(38, 9)) sm_dprintf("seq_map_close(%s)\n", map->map_mname); for (mapno = 0; mapno < MAXMAPSTACK; mapno++) { MAP *mm = map->map_stack[mapno]; if (mm == NULL || !bitset(MF_OPEN, mm->map_mflags)) continue; mm->map_mflags |= MF_CLOSING; mm->map_class->map_close(mm); mm->map_mflags &= ~(MF_OPEN|MF_WRITABLE|MF_CLOSING); } } #endif /* 0 */ /* ** SEQ_MAP_LOOKUP -- sequenced map lookup */ char * seq_map_lookup(map, key, args, pstat) MAP *map; char *key; char **args; int *pstat; { int mapno; int mapbit = 0x01; bool tempfail = false; if (tTd(38, 20)) sm_dprintf("seq_map_lookup(%s, %s)\n", map->map_mname, key); for (mapno = 0; mapno < MAXMAPSTACK; mapbit <<= 1, mapno++) { MAP *mm = map->map_stack[mapno]; char *rv; if (mm == NULL) continue; if (!bitset(MF_OPEN, mm->map_mflags) && !openmap(mm)) { if (bitset(mapbit, map->map_return[MA_UNAVAIL])) { *pstat = EX_UNAVAILABLE; return NULL; } continue; } *pstat = EX_OK; rv = mm->map_class->map_lookup(mm, key, args, pstat); if (rv != NULL) return rv; if (*pstat == EX_TEMPFAIL) { if (bitset(mapbit, map->map_return[MA_TRYAGAIN])) return NULL; tempfail = true; } else if (bitset(mapbit, map->map_return[MA_NOTFOUND])) break; } if (tempfail) *pstat = EX_TEMPFAIL; else if (*pstat == EX_OK) *pstat = EX_NOTFOUND; return NULL; } /* ** SEQ_MAP_STORE -- sequenced map store */ void seq_map_store(map, key, val) MAP *map; char *key; char *val; { int mapno; if (tTd(38, 12)) sm_dprintf("seq_map_store(%s, %s, %s)\n", map->map_mname, key, val); for (mapno = 0; mapno < MAXMAPSTACK; mapno++) { MAP *mm = map->map_stack[mapno]; if (mm == NULL || !bitset(MF_WRITABLE, mm->map_mflags)) continue; mm->map_class->map_store(mm, key, val); return; } syserr("seq_map_store(%s, %s, %s): no writable map", map->map_mname, key, val); } /* ** NULL stubs */ /* ARGSUSED */ bool null_map_open(map, mode) MAP *map; int mode; { return true; } /* ARGSUSED */ void null_map_close(map) MAP *map; { return; } char * null_map_lookup(map, key, args, pstat) MAP *map; char *key; char **args; int *pstat; { *pstat = EX_NOTFOUND; return NULL; } /* ARGSUSED */ void null_map_store(map, key, val) MAP *map; char *key; char *val; { return; } MAPCLASS NullMapClass = { "null-map", NULL, 0, NULL, null_map_lookup, null_map_store, null_map_open, null_map_close, }; /* ** BOGUS stubs */ char * bogus_map_lookup(map, key, args, pstat) MAP *map; char *key; char **args; int *pstat; { *pstat = EX_TEMPFAIL; return NULL; } MAPCLASS BogusMapClass = { "bogus-map", NULL, 0, NULL, bogus_map_lookup, null_map_store, null_map_open, null_map_close, }; /* ** MACRO modules */ char * macro_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { int mid; if (tTd(38, 20)) sm_dprintf("macro_map_lookup(%s, %s)\n", map->map_mname, name == NULL ? "NULL" : name); if (name == NULL || *name == '\0' || (mid = macid(name)) == 0) { *statp = EX_CONFIG; return NULL; } if (av[1] == NULL) macdefine(&CurEnv->e_macro, A_PERM, mid, NULL); else macdefine(&CurEnv->e_macro, A_TEMP, mid, av[1]); *statp = EX_OK; return ""; } /* ** REGEX modules */ #if MAP_REGEX # include # define DEFAULT_DELIM CONDELSE # define END_OF_FIELDS -1 # define ERRBUF_SIZE 80 # define MAX_MATCH 32 # define xnalloc(s) memset(xalloc(s), '\0', s); struct regex_map { regex_t *regex_pattern_buf; /* xalloc it */ int *regex_subfields; /* move to type MAP */ char *regex_delim; /* move to type MAP */ }; static int parse_fields __P((char *, int *, int, int)); static char *regex_map_rewrite __P((MAP *, const char*, size_t, char **)); static int parse_fields(s, ibuf, blen, nr_substrings) char *s; int *ibuf; /* array */ int blen; /* number of elements in ibuf */ int nr_substrings; /* number of substrings in the pattern */ { register char *cp; int i = 0; bool lastone = false; blen--; /* for terminating END_OF_FIELDS */ cp = s; do { for (;; cp++) { if (*cp == ',') { *cp = '\0'; break; } if (*cp == '\0') { lastone = true; break; } } if (i < blen) { int val = atoi(s); if (val < 0 || val >= nr_substrings) { syserr("field (%d) out of range, only %d substrings in pattern", val, nr_substrings); return -1; } ibuf[i++] = val; } else { syserr("too many fields, %d max", blen); return -1; } s = ++cp; } while (!lastone); ibuf[i] = END_OF_FIELDS; return i; } bool regex_map_init(map, ap) MAP *map; char *ap; { int regerr; struct regex_map *map_p; register char *p; char *sub_param = NULL; int pflags; static char defdstr[] = { (char) DEFAULT_DELIM, '\0' }; if (tTd(38, 2)) sm_dprintf("regex_map_init: mapname '%s', args '%s'\n", map->map_mname, ap); pflags = REG_ICASE | REG_EXTENDED | REG_NOSUB; p = ap; map_p = (struct regex_map *) xnalloc(sizeof(*map_p)); map_p->regex_pattern_buf = (regex_t *)xnalloc(sizeof(regex_t)); for (;;) { while (SM_ISSPACE(*p)) p++; if (*p != '-') break; switch (*++p) { case 'n': /* not */ map->map_mflags |= MF_REGEX_NOT; break; case 'f': /* case sensitive */ map->map_mflags |= MF_NOFOLDCASE; pflags &= ~REG_ICASE; break; case 'b': /* basic regular expressions */ pflags &= ~REG_EXTENDED; break; case 's': /* substring match () syntax */ sub_param = ++p; pflags &= ~REG_NOSUB; break; case 'd': /* delimiter */ map_p->regex_delim = ++p; break; case 'a': /* map append */ map->map_app = ++p; break; case 'm': /* matchonly */ map->map_mflags |= MF_MATCHONLY; break; case 'q': map->map_mflags |= MF_KEEPQUOTES; break; case 'S': map->map_spacesub = *++p; break; case 'D': map->map_mflags |= MF_DEFER; break; } while (*p != '\0' && !(SM_ISSPACE(*p))) p++; if (*p != '\0') *p++ = '\0'; } # if _FFR_8BITENVADDR (void) dequote_internal_chars(p, p, strlen(p) + 1); # endif if (tTd(38, 3)) sm_dprintf("regex_map_init: compile '%s' 0x%x\n", p, pflags); if ((regerr = regcomp(map_p->regex_pattern_buf, p, pflags)) != 0) { /* Errorhandling */ char errbuf[ERRBUF_SIZE]; (void) regerror(regerr, map_p->regex_pattern_buf, errbuf, sizeof(errbuf)); syserr("pattern-compile-error: %s", errbuf); sm_free(map_p->regex_pattern_buf); /* XXX */ sm_free(map_p); /* XXX */ return false; } if (map->map_app != NULL) map->map_app = newstr(map->map_app); if (map_p->regex_delim != NULL) map_p->regex_delim = newstr(map_p->regex_delim); else map_p->regex_delim = defdstr; if (!bitset(REG_NOSUB, pflags)) { /* substring matching */ int substrings; int *fields = (int *) xalloc(sizeof(int) * (MAX_MATCH + 1)); substrings = map_p->regex_pattern_buf->re_nsub + 1; if (tTd(38, 3)) sm_dprintf("regex_map_init: nr of substrings %d\n", substrings); if (substrings >= MAX_MATCH) { syserr("too many substrings, %d max", MAX_MATCH); SM_FREE(map_p->regex_pattern_buf); /* XXX */ SM_FREE(map_p); /* XXX */ SM_FREE(fields); return false; } if (sub_param != NULL && sub_param[0] != '\0') { /* optional parameter -sfields */ if (parse_fields(sub_param, fields, MAX_MATCH + 1, substrings) == -1) { SM_FREE(map_p->regex_pattern_buf); /* XXX */ SM_FREE(map_p); /* XXX */ SM_FREE(fields); return false; } } else { int i; /* set default fields */ for (i = 0; i < substrings; i++) fields[i] = i; fields[i] = END_OF_FIELDS; } map_p->regex_subfields = fields; if (tTd(38, 3)) { int *ip; sm_dprintf("regex_map_init: subfields"); for (ip = fields; *ip != END_OF_FIELDS; ip++) sm_dprintf(" %d", *ip); sm_dprintf("\n"); } } map->map_db1 = (ARBPTR_T) map_p; /* dirty hack */ return true; } static char * regex_map_rewrite(map, s, slen, av) MAP *map; const char *s; size_t slen; char **av; { if (bitset(MF_MATCHONLY, map->map_mflags)) return map_rewrite(map, av[0], strlen(av[0]), NULL); else return map_rewrite(map, s, slen, av); } char * regex_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { int reg_res; struct regex_map *map_p; regmatch_t pmatch[MAX_MATCH]; if (tTd(38, 20)) { char **cpp; sm_dprintf("regex_map_lookup: name=%s, key='%s'\n", map->map_mname, name); for (cpp = av; cpp != NULL && *cpp != NULL; cpp++) sm_dprintf("regex_map_lookup: arg '%s'\n", *cpp); } map_p = (struct regex_map *)(map->map_db1); reg_res = regexec(map_p->regex_pattern_buf, name, MAX_MATCH, pmatch, 0); if (bitset(MF_REGEX_NOT, map->map_mflags)) { /* option -n */ if (reg_res == REG_NOMATCH) return regex_map_rewrite(map, "", (size_t) 0, av); else return NULL; } if (reg_res == REG_NOMATCH) return NULL; if (map_p->regex_subfields != NULL) { /* option -s */ static char retbuf[MAXNAME]; /* EAI:not relevant */ int fields[MAX_MATCH + 1]; bool first = true; int anglecnt = 0, cmntcnt = 0, spacecnt = 0; bool quotemode = false, bslashmode = false; register char *dp, *sp; char *endp, *ldp; int *ip; dp = retbuf; ldp = retbuf + sizeof(retbuf) - 1; if (av[1] != NULL) { if (parse_fields(av[1], fields, MAX_MATCH + 1, (int) map_p->regex_pattern_buf->re_nsub + 1) == -1) { *statp = EX_CONFIG; return NULL; } ip = fields; } else ip = map_p->regex_subfields; for ( ; *ip != END_OF_FIELDS; ip++) { if (!first) { for (sp = map_p->regex_delim; *sp; sp++) { if (dp < ldp) *dp++ = *sp; } } else first = false; if (*ip >= MAX_MATCH || pmatch[*ip].rm_so < 0 || pmatch[*ip].rm_eo < 0) continue; sp = name + pmatch[*ip].rm_so; endp = name + pmatch[*ip].rm_eo; for (; endp > sp; sp++) { if (dp < ldp) { if (bslashmode) { *dp++ = *sp; bslashmode = false; } else if (quotemode && *sp != '"' && *sp != '\\') { *dp++ = *sp; } else switch (*dp++ = *sp) { case '\\': bslashmode = true; break; case '(': cmntcnt++; break; case ')': cmntcnt--; break; case '<': anglecnt++; break; case '>': anglecnt--; break; case ' ': spacecnt++; break; case '"': quotemode = !quotemode; break; } } } } if (anglecnt != 0 || cmntcnt != 0 || quotemode || bslashmode || spacecnt != 0) { sm_syslog(LOG_WARNING, NOQID, "Warning: regex may cause prescan() failure map=%s lookup=%s", map->map_mname, name); return NULL; } *dp = '\0'; return regex_map_rewrite(map, retbuf, strlen(retbuf), av); } return regex_map_rewrite(map, "", (size_t)0, av); } #endif /* MAP_REGEX */ /* ** NSD modules */ #if MAP_NSD # include # define _DATUM_DEFINED # include typedef struct ns_map_list { ns_map_t *map; /* XXX ns_ ? */ char *mapname; struct ns_map_list *next; } ns_map_list_t; static ns_map_t * ns_map_t_find(mapname) char *mapname; { static ns_map_list_t *ns_maps = NULL; ns_map_list_t *ns_map; /* walk the list of maps looking for the correctly named map */ for (ns_map = ns_maps; ns_map != NULL; ns_map = ns_map->next) { if (strcmp(ns_map->mapname, mapname) == 0) break; } /* if we are looking at a NULL ns_map_list_t, then create a new one */ if (ns_map == NULL) { ns_map = (ns_map_list_t *) xalloc(sizeof(*ns_map)); ns_map->mapname = newstr(mapname); ns_map->map = (ns_map_t *) xalloc(sizeof(*ns_map->map)); memset(ns_map->map, '\0', sizeof(*ns_map->map)); ns_map->next = ns_maps; ns_maps = ns_map; } return ns_map->map; } char * nsd_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { int buflen, r; char *p; ns_map_t *ns_map; char keybuf[MAXNAME + 1]; /* EAI:ok */ char buf[MAXLINE]; if (tTd(38, 20)) sm_dprintf("nsd_map_lookup(%s, %s)\n", map->map_mname, name); buflen = strlen(name); if (buflen > sizeof(keybuf) - 1) buflen = sizeof(keybuf) - 1; /* XXX simply cut off? */ memmove(keybuf, name, buflen); keybuf[buflen] = '\0'; if (!bitset(MF_NOFOLDCASE, map->map_mflags)) makelower_buf(keybuf, keybuf, sizeof(keybuf)); ns_map = ns_map_t_find(map->map_file); if (ns_map == NULL) { if (tTd(38, 20)) sm_dprintf("nsd_map_t_find failed\n"); *statp = EX_UNAVAILABLE; return NULL; } r = ns_lookup(ns_map, NULL, map->map_file, keybuf, NULL, buf, sizeof(buf)); if (r == NS_UNAVAIL || r == NS_TRYAGAIN) { *statp = EX_TEMPFAIL; return NULL; } if (r == NS_BADREQ # ifdef NS_NOPERM || r == NS_NOPERM # endif ) { *statp = EX_CONFIG; return NULL; } if (r != NS_SUCCESS) { *statp = EX_NOTFOUND; return NULL; } *statp = EX_OK; /* Null out trailing \n */ if ((p = strchr(buf, '\n')) != NULL) *p = '\0'; return map_rewrite(map, buf, strlen(buf), av); } #endif /* MAP_NSD */ char * arith_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { long r; long v[2]; bool res = false; bool boolres; static char result[16]; char **cpp; if (tTd(38, 2)) { sm_dprintf("arith_map_lookup: key '%s'\n", name); for (cpp = av; cpp != NULL && *cpp != NULL; cpp++) sm_dprintf("arith_map_lookup: arg '%s'\n", *cpp); } r = 0; boolres = false; cpp = av; *statp = EX_OK; /* ** read arguments for arith map ** - no check is made whether they are really numbers ** - just ignores args after the second */ for (++cpp; cpp != NULL && *cpp != NULL && r < 2; cpp++) v[r++] = strtol(*cpp, NULL, 0); /* operator and (at least) two operands given? */ if (name != NULL && r == 2) { switch (*name) { case '|': r = v[0] | v[1]; break; case '&': r = v[0] & v[1]; break; case '%': if (v[1] == 0) return NULL; r = v[0] % v[1]; break; case '+': r = v[0] + v[1]; break; case '-': r = v[0] - v[1]; break; case '*': r = v[0] * v[1]; break; case '/': if (v[1] == 0) return NULL; r = v[0] / v[1]; break; case 'l': res = v[0] < v[1]; boolres = true; break; case '=': res = v[0] == v[1]; boolres = true; break; case 'r': r = v[1] - v[0] + 1; if (r <= 0) return NULL; r = get_random() % r + v[0]; break; default: /* XXX */ *statp = EX_CONFIG; if (LogLevel > 10) sm_syslog(LOG_WARNING, NOQID, "arith_map: unknown operator %c", (isascii(*name) && isprint(*name)) ? *name : '?'); return NULL; } if (boolres) (void) sm_snprintf(result, sizeof(result), res ? "TRUE" : "FALSE"); else (void) sm_snprintf(result, sizeof(result), "%ld", r); return result; } *statp = EX_CONFIG; return NULL; } char * arpa_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { int r; char *rval; char result[128]; /* IPv6: 64 + 10 + 1 would be enough */ if (tTd(38, 2)) sm_dprintf("arpa_map_lookup: key '%s'\n", name); *statp = EX_DATAERR; r = 1; memset(result, '\0', sizeof(result)); rval = NULL; #if NETINET6 if (sm_strncasecmp(name, "IPv6:", 5) == 0) { struct in6_addr in6_addr; r = anynet_pton(AF_INET6, name, &in6_addr); if (r == 1) { static char hex_digits[] = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f' }; unsigned char *src; char *dst; int i; src = (unsigned char *) &in6_addr; dst = result; for (i = 15; i >= 0; i--) { *dst++ = hex_digits[src[i] & 0x0f]; *dst++ = '.'; *dst++ = hex_digits[(src[i] >> 4) & 0x0f]; if (i > 0) *dst++ = '.'; } *statp = EX_OK; } } else #endif /* NETINET6 */ #if NETINET { struct in_addr in_addr; r = inet_pton(AF_INET, name, &in_addr); if (r == 1) { unsigned char *src; src = (unsigned char *) &in_addr; (void) snprintf(result, sizeof(result), "%u.%u.%u.%u", src[3], src[2], src[1], src[0]); *statp = EX_OK; } } #endif /* NETINET */ if (r < 0) *statp = EX_UNAVAILABLE; if (tTd(38, 2)) sm_dprintf("arpa_map_lookup: r=%d, result='%s'\n", r, result); if (*statp == EX_OK) { if (bitset(MF_MATCHONLY, map->map_mflags)) rval = map_rewrite(map, name, strlen(name), NULL); else rval = map_rewrite(map, result, strlen(result), av); } return rval; } #if _FFR_SETDEBUG_MAP char * setdebug_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { if (tTd(38, 2)) { char **cpp; sm_dprintf("setdebug_map_lookup: key '%s'\n", name); for (cpp = av; cpp != NULL && *cpp != NULL; cpp++) sm_dprintf("setdebug_map_lookup: arg '%s'\n", *cpp); } *statp = EX_OK; tTflag(name); return NULL; } #endif #if _FFR_SETOPT_MAP char * setopt_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { # if !_FFR_SETANYOPT int val; # endif char **cpp; if (tTd(38, 2)) { sm_dprintf("setopt_map_lookup: key '%s'\n", name); for (cpp = av; cpp != NULL && *cpp != NULL; cpp++) sm_dprintf("setopt_map_lookup: arg '%s'\n", *cpp); } # if _FFR_SETANYOPT /* ** API screwed up... ** first arg is the "short" name and second is the entire string... */ sm_dprintf("setoption: name=%s\n", name); setoption(' ', name, true, false, CurEnv); *statp = EX_OK; return NULL; # else /* _FFR_SETANYOPT */ *statp = EX_CONFIG; cpp = av; if (cpp == NULL || ++cpp == NULL || *cpp == NULL) return NULL; *statp = EX_OK; errno = 0; val = strtol(*cpp, NULL, 0); /* check for valid number? */ /* use a table? */ if (SM_STRCASEEQ(name, "LogLevel")) { LogLevel = val; sm_dprintf("LogLevel=%d\n", val); return NULL; } # endif /* _FFR_SETANYOPT */ *statp = EX_CONFIG; return NULL; } #endif #if SOCKETMAP # if NETINET || NETINET6 # include # endif # define socket_map_next map_stack[0] /* ** SOCKET_MAP_OPEN -- open socket table */ bool socket_map_open(map, mode) MAP *map; int mode; { STAB *s; int sock = 0; int tmo; SOCKADDR_LEN_T addrlen = 0; int addrno = 0; int save_errno; char *p; char *colon; char *at; struct hostent *hp = NULL; SOCKADDR addr; if (tTd(38, 2)) sm_dprintf("socket_map_open(%s, %s, %d)\n", map->map_mname, map->map_file, mode); mode &= O_ACCMODE; /* sendmail doesn't have the ability to write to SOCKET (yet) */ if (mode != O_RDONLY) { /* issue a pseudo-error message */ errno = SM_EMAPCANTWRITE; return false; } if (*map->map_file == '\0') { syserr("socket map \"%s\": empty or missing socket information", map->map_mname); return false; } s = socket_map_findconn(map->map_file); if (s->s_socketmap != NULL) { /* Copy open connection */ map->map_db1 = s->s_socketmap->map_db1; /* Add this map as head of linked list */ map->socket_map_next = s->s_socketmap; s->s_socketmap = map; if (tTd(38, 2)) sm_dprintf("using cached connection\n"); return true; } if (tTd(38, 2)) sm_dprintf("opening new connection\n"); /* following code is ripped from milter.c */ /* XXX It should be put in a library... */ /* protocol:filename or protocol:port@host */ memset(&addr, '\0', sizeof(addr)); p = map->map_file; colon = strchr(p, ':'); if (colon != NULL) { *colon = '\0'; if (*p == '\0') { # if NETUNIX /* default to AF_UNIX */ addr.sa.sa_family = AF_UNIX; # else /* NETUNIX */ # if NETINET /* default to AF_INET */ addr.sa.sa_family = AF_INET; # else /* NETINET */ # if NETINET6 /* default to AF_INET6 */ addr.sa.sa_family = AF_INET6; # else /* NETINET6 */ /* no protocols available */ syserr("socket map \"%s\": no valid socket protocols available", map->map_mname); return false; # endif /* NETINET6 */ # endif /* NETINET */ # endif /* NETUNIX */ } # if NETUNIX else if (SM_STRCASEEQ(p, "unix") || SM_STRCASEEQ(p, "local")) addr.sa.sa_family = AF_UNIX; # endif /* NETUNIX */ # if NETINET else if (SM_STRCASEEQ(p, "inet")) addr.sa.sa_family = AF_INET; # endif /* NETINET */ # if NETINET6 else if (SM_STRCASEEQ(p, "inet6")) addr.sa.sa_family = AF_INET6; # endif /* NETINET6 */ else { # ifdef EPROTONOSUPPORT errno = EPROTONOSUPPORT; # else errno = EINVAL; # endif /* EPROTONOSUPPORT */ syserr("socket map \"%s\": unknown socket type %s", map->map_mname, p); return false; } *colon++ = ':'; } else { colon = p; # if NETUNIX /* default to AF_UNIX */ addr.sa.sa_family = AF_UNIX; # else /* NETUNIX */ # if NETINET /* default to AF_INET */ addr.sa.sa_family = AF_INET; # else /* NETINET */ # if NETINET6 /* default to AF_INET6 */ addr.sa.sa_family = AF_INET6; # else /* NETINET6 */ syserr("socket map \"%s\": unknown socket type %s", map->map_mname, p); return false; # endif /* NETINET6 */ # endif /* NETINET */ # endif /* NETUNIX */ } # if NETUNIX if (addr.sa.sa_family == AF_UNIX) { long sff = SFF_SAFEDIRPATH|SFF_OPENASROOT|SFF_NOLINK|SFF_EXECOK; at = colon; if (strlen(colon) >= sizeof(addr.sunix.sun_path)) { syserr("socket map \"%s\": local socket name %s too long", map->map_mname, colon); return false; } errno = safefile(colon, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR|S_IWUSR, NULL); if (errno != 0) { /* if not safe, don't create */ syserr("socket map \"%s\": local socket name %s unsafe", map->map_mname, colon); return false; } (void) sm_strlcpy(addr.sunix.sun_path, colon, sizeof(addr.sunix.sun_path)); addrlen = sizeof(struct sockaddr_un); } else # endif /* NETUNIX */ # if NETINET || NETINET6 if (false # if NETINET || addr.sa.sa_family == AF_INET # endif # if NETINET6 || addr.sa.sa_family == AF_INET6 # endif ) { unsigned short port; /* Parse port@host */ at = strchr(colon, '@'); if (at == NULL) { syserr("socket map \"%s\": bad address %s (expected port@host)", map->map_mname, colon); return false; } *at = '\0'; if (isascii(*colon) && isdigit(*colon)) port = htons((unsigned short) atoi(colon)); else { # ifdef NO_GETSERVBYNAME syserr("socket map \"%s\": invalid port number %s", map->map_mname, colon); return false; # else /* NO_GETSERVBYNAME */ register struct servent *sp; sp = getservbyname(colon, "tcp"); if (sp == NULL) { syserr("socket map \"%s\": unknown port name %s", map->map_mname, colon); return false; } port = sp->s_port; # endif /* NO_GETSERVBYNAME */ } *at++ = '@'; if (*at == '[') { char *end; end = strchr(at, ']'); if (end != NULL) { bool found = false; # if NETINET unsigned long hid = INADDR_NONE; # endif # if NETINET6 struct sockaddr_in6 hid6; # endif *end = '\0'; # if NETINET if (addr.sa.sa_family == AF_INET && (hid = inet_addr(&at[1])) != INADDR_NONE) { addr.sin.sin_addr.s_addr = hid; addr.sin.sin_port = port; found = true; } # endif /* NETINET */ # if NETINET6 (void) memset(&hid6, '\0', sizeof(hid6)); if (addr.sa.sa_family == AF_INET6 && anynet_pton(AF_INET6, &at[1], &hid6.sin6_addr) == 1) { addr.sin6.sin6_addr = hid6.sin6_addr; addr.sin6.sin6_port = port; found = true; } # endif /* NETINET6 */ *end = ']'; if (!found) { syserr("socket map \"%s\": Invalid numeric domain spec \"%s\"", map->map_mname, at); return false; } } else { syserr("socket map \"%s\": Invalid numeric domain spec \"%s\"", map->map_mname, at); return false; } } else { hp = sm_gethostbyname(at, addr.sa.sa_family); if (hp == NULL) { syserr("socket map \"%s\": Unknown host name %s", map->map_mname, at); return false; } addr.sa.sa_family = hp->h_addrtype; switch (hp->h_addrtype) { # if NETINET case AF_INET: memmove(&addr.sin.sin_addr, hp->h_addr, INADDRSZ); addr.sin.sin_port = port; addrlen = sizeof(struct sockaddr_in); addrno = 1; break; # endif /* NETINET */ # if NETINET6 case AF_INET6: memmove(&addr.sin6.sin6_addr, hp->h_addr, IN6ADDRSZ); addr.sin6.sin6_port = port; addrlen = sizeof(struct sockaddr_in6); addrno = 1; break; # endif /* NETINET6 */ default: syserr("socket map \"%s\": Unknown protocol for %s (%d)", map->map_mname, at, hp->h_addrtype); # if NETINET6 freehostent(hp); # endif return false; } } } else # endif /* NETINET || NETINET6 */ { syserr("socket map \"%s\": unknown socket protocol", map->map_mname); return false; } /* nope, actually connecting */ for (;;) { sock = socket(addr.sa.sa_family, SOCK_STREAM, 0); if (sock < 0) { save_errno = errno; if (tTd(38, 5)) sm_dprintf("socket map \"%s\": error creating socket: %s\n", map->map_mname, sm_errstring(save_errno)); # if NETINET6 if (hp != NULL) freehostent(hp); # endif /* NETINET6 */ return false; } if (connect(sock, (struct sockaddr *) &addr, addrlen) >= 0) break; /* couldn't connect.... try next address */ save_errno = errno; p = CurHostName; CurHostName = at; if (tTd(38, 5)) sm_dprintf("socket_open (%s): open %s failed: %s\n", map->map_mname, at, sm_errstring(save_errno)); CurHostName = p; (void) close(sock); /* try next address */ if (hp != NULL && hp->h_addr_list[addrno] != NULL) { switch (addr.sa.sa_family) { # if NETINET case AF_INET: memmove(&addr.sin.sin_addr, hp->h_addr_list[addrno++], INADDRSZ); break; # endif /* NETINET */ # if NETINET6 case AF_INET6: memmove(&addr.sin6.sin6_addr, hp->h_addr_list[addrno++], IN6ADDRSZ); break; # endif /* NETINET6 */ default: if (tTd(38, 5)) sm_dprintf("socket map \"%s\": Unknown protocol for %s (%d)\n", map->map_mname, at, hp->h_addrtype); # if NETINET6 freehostent(hp); # endif return false; } continue; } p = CurHostName; CurHostName = at; if (tTd(38, 5)) sm_dprintf("socket map \"%s\": error connecting to socket map: %s\n", map->map_mname, sm_errstring(save_errno)); CurHostName = p; # if NETINET6 if (hp != NULL) freehostent(hp); # endif return false; } # if NETINET6 if (hp != NULL) { freehostent(hp); hp = NULL; } # endif /* NETINET6 */ if ((map->map_db1 = (ARBPTR_T) sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &sock, SM_IO_RDWR, NULL)) == NULL) { close(sock); if (tTd(38, 2)) sm_dprintf("socket_open (%s): failed to create stream: %s\n", map->map_mname, sm_errstring(errno)); return false; } tmo = map->map_timeout; if (tmo == 0) tmo = 30000; /* default: 30s */ else tmo *= 1000; /* s -> ms */ sm_io_setinfo(map->map_db1, SM_IO_WHAT_TIMEOUT, &tmo); /* Save connection for reuse */ s->s_socketmap = map; return true; } /* ** SOCKET_MAP_FINDCONN -- find a SOCKET connection to the server ** ** Cache SOCKET connections based on the connection specifier ** and PID so we don't have multiple connections open to ** the same server for different maps. Need a separate connection ** per PID since a parent process may close the map before the ** child is done with it. ** ** Parameters: ** conn -- SOCKET map connection specifier ** ** Returns: ** Symbol table entry for the SOCKET connection. */ static STAB * socket_map_findconn(conn) const char *conn; { char *nbuf; STAB *SM_NONVOLATILE s = NULL; nbuf = sm_stringf_x("%s%c%d", conn, CONDELSE, (int) CurrentPid); SM_TRY s = stab(nbuf, ST_SOCKETMAP, ST_ENTER); SM_FINALLY sm_free(nbuf); SM_END_TRY return s; } /* ** SOCKET_MAP_CLOSE -- close the socket */ void socket_map_close(map) MAP *map; { STAB *s; MAP *smap; if (tTd(38, 20)) sm_dprintf("socket_map_close(%s), pid=%ld\n", map->map_file, (long) CurrentPid); /* Check if already closed */ if (map->map_db1 == NULL) { if (tTd(38, 20)) sm_dprintf("socket_map_close(%s) already closed\n", map->map_file); return; } sm_io_close((SM_FILE_T *)map->map_db1, SM_TIME_DEFAULT); /* Mark all the maps that share the connection as closed */ s = socket_map_findconn(map->map_file); smap = s->s_socketmap; while (smap != NULL) { MAP *next; if (tTd(38, 2) && smap != map) sm_dprintf("socket_map_close(%s): closed %s (shared SOCKET connection)\n", map->map_mname, smap->map_mname); smap->map_mflags &= ~(MF_OPEN|MF_WRITABLE); smap->map_db1 = NULL; next = smap->socket_map_next; smap->socket_map_next = NULL; smap = next; } s->s_socketmap = NULL; } /* ** SOCKET_MAP_LOOKUP -- look up a datum in a SOCKET table */ char * socket_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { unsigned int nettolen, replylen, recvlen; int ret; char *replybuf, *rval, *value, *status, *key; SM_FILE_T *f; char keybuf[MAXNAME + 1]; /* EAI:ok */ replybuf = NULL; rval = NULL; f = (SM_FILE_T *)map->map_db1; if (tTd(38, 20)) sm_dprintf("socket_map_lookup(%s, %s) %s\n", map->map_mname, name, map->map_file); if (!bitset(MF_NOFOLDCASE, map->map_mflags)) { nettolen = strlen(name); if (nettolen > sizeof(keybuf) - 1) nettolen = sizeof(keybuf) - 1; memmove(keybuf, name, nettolen); keybuf[nettolen] = '\0'; makelower_buf(keybuf, keybuf, sizeof(keybuf)); key = keybuf; } else key = name; nettolen = strlen(map->map_mname) + 1 + strlen(key); SM_ASSERT(nettolen > strlen(map->map_mname)); SM_ASSERT(nettolen > strlen(key)); if ((sm_io_fprintf(f, SM_TIME_DEFAULT, "%u:%s %s,", nettolen, map->map_mname, key) == SM_IO_EOF) || (sm_io_flush(f, SM_TIME_DEFAULT) != 0) || (sm_io_error(f))) { syserr("451 4.3.0 socket_map_lookup(%s): failed to send lookup request", map->map_mname); *statp = EX_TEMPFAIL; goto errcl; } if ((ret = sm_io_fscanf(f, SM_TIME_DEFAULT, "%9u", &replylen)) != 1) { if (errno == EAGAIN) { syserr("451 4.3.0 socket_map_lookup(%s): read timeout", map->map_mname); } else if (SM_IO_EOF == ret) { if (LogLevel > 9) sm_syslog(LOG_INFO, CurEnv->e_id, "socket_map_lookup(%s): EOF", map->map_mname); } else { syserr("451 4.3.0 socket_map_lookup(%s): failed to read length parameter of reply %d", map->map_mname, errno); } *statp = EX_TEMPFAIL; goto errcl; } if (replylen > SOCKETMAP_MAXL) { syserr("451 4.3.0 socket_map_lookup(%s): reply too long: %u", map->map_mname, replylen); *statp = EX_TEMPFAIL; goto errcl; } if (sm_io_getc(f, SM_TIME_DEFAULT) != ':') { syserr("451 4.3.0 socket_map_lookup(%s): missing ':' in reply", map->map_mname); *statp = EX_TEMPFAIL; goto error; } replybuf = (char *) sm_malloc(replylen + 1); if (replybuf == NULL) { syserr("451 4.3.0 socket_map_lookup(%s): can't allocate %u bytes", map->map_mname, replylen + 1); *statp = EX_OSERR; goto error; } recvlen = sm_io_read(f, SM_TIME_DEFAULT, replybuf, replylen); if (recvlen < replylen) { syserr("451 4.3.0 socket_map_lookup(%s): received only %u of %u reply characters", map->map_mname, recvlen, replylen); *statp = EX_TEMPFAIL; goto errcl; } if (sm_io_getc(f, SM_TIME_DEFAULT) != ',') { syserr("451 4.3.0 socket_map_lookup(%s): missing ',' in reply", map->map_mname); *statp = EX_TEMPFAIL; goto errcl; } status = replybuf; replybuf[recvlen] = '\0'; value = strchr(replybuf, ' '); if (value != NULL) { *value = '\0'; value++; } if (strcmp(status, "OK") == 0) { *statp = EX_OK; /* collect the return value */ if (bitset(MF_MATCHONLY, map->map_mflags)) rval = map_rewrite(map, key, strlen(key), NULL); else rval = map_rewrite(map, value, strlen(value), av); } else if (strcmp(status, "NOTFOUND") == 0) { *statp = EX_NOTFOUND; if (tTd(38, 20)) sm_dprintf("socket_map_lookup(%s): %s not found\n", map->map_mname, key); } else { if (tTd(38, 5)) sm_dprintf("socket_map_lookup(%s, %s): server returned error: type=%s, reason=%s\n", map->map_mname, key, status, value ? value : ""); if ((strcmp(status, "TEMP") == 0) || (strcmp(status, "TIMEOUT") == 0)) *statp = EX_TEMPFAIL; else if(strcmp(status, "PERM") == 0) *statp = EX_UNAVAILABLE; else *statp = EX_PROTOCOL; } SM_FREE(replybuf); return rval; errcl: socket_map_close(map); error: SM_FREE(replybuf); return rval; } #endif /* SOCKETMAP */ sendmail-8.18.1/sendmail/envelope.c0000644000372400037240000007667214556365350016566 0ustar xbuildxbuild/* * Copyright (c) 1998-2003, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include SM_RCSID("@(#)$Id: envelope.c,v 8.313 2013-11-22 20:51:55 ca Exp $") /* ** CLRSESSENVELOPE -- clear session oriented data in an envelope ** ** Parameters: ** e -- the envelope to clear. ** ** Returns: ** none. */ void clrsessenvelope(e) ENVELOPE *e; { #if SASL macdefine(&e->e_macro, A_PERM, macid("{auth_type}"), ""); macdefine(&e->e_macro, A_PERM, macid("{auth_authen}"), ""); macdefine(&e->e_macro, A_PERM, macid("{auth_author}"), ""); macdefine(&e->e_macro, A_PERM, macid("{auth_ssf}"), ""); #endif /* SASL */ #if STARTTLS macdefine(&e->e_macro, A_PERM, macid("{cert_issuer}"), ""); macdefine(&e->e_macro, A_PERM, macid("{cert_subject}"), ""); macdefine(&e->e_macro, A_PERM, macid("{cipher_bits}"), ""); macdefine(&e->e_macro, A_PERM, macid("{cipher}"), ""); macdefine(&e->e_macro, A_PERM, macid("{tls_version}"), ""); macdefine(&e->e_macro, A_PERM, macid("{verify}"), ""); macdefine(&e->e_macro, A_PERM, macid("{alg_bits}"), ""); macdefine(&e->e_macro, A_PERM, macid("{cn_issuer}"), ""); macdefine(&e->e_macro, A_PERM, macid("{cn_subject}"), ""); #endif /* STARTTLS */ } /* ** NEWENVELOPE -- fill in a new envelope ** ** Supports inheritance. ** ** Parameters: ** e -- the new envelope to fill in. ** parent -- the envelope to be the parent of e. ** rpool -- either NULL, or a pointer to a resource pool ** from which envelope memory is allocated, and ** to which envelope resources are attached. ** ** Returns: ** e. ** ** Side Effects: ** none. */ ENVELOPE * newenvelope(e, parent, rpool) register ENVELOPE *e; register ENVELOPE *parent; SM_RPOOL_T *rpool; { int sendmode; /* ** This code used to read: ** if (e == parent && e->e_parent != NULL) ** parent = e->e_parent; ** So if e == parent && e->e_parent == NULL then we would ** set e->e_parent = e, which creates a loop in the e_parent chain. ** This meant macvalue() could go into an infinite loop. */ if (parent != NULL) sendmode = parent->e_sendmode; else sendmode = DM_NOTSET; if (e == parent) parent = e->e_parent; clearenvelope(e, true, rpool); if (e == CurEnv) memmove((char *) &e->e_from, (char *) &NullAddress, sizeof(e->e_from)); else memmove((char *) &e->e_from, (char *) &CurEnv->e_from, sizeof(e->e_from)); e->e_parent = parent; assign_queueid(e); e->e_ctime = curtime(); #if _FFR_SESSID e->e_sessid = e->e_id; #endif if (parent != NULL) { e->e_msgpriority = parent->e_msgsize; #if _FFR_SESSID if (parent->e_sessid != NULL) e->e_sessid = sm_rpool_strdup_x(rpool, parent->e_sessid); #endif if (parent->e_quarmsg == NULL) { e->e_quarmsg = NULL; macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), ""); } else { e->e_quarmsg = sm_rpool_strdup_x(rpool, parent->e_quarmsg); macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), e->e_quarmsg); } } e->e_puthdr = putheader; e->e_putbody = putbody; if (CurEnv->e_xfp != NULL) (void) sm_io_flush(CurEnv->e_xfp, SM_TIME_DEFAULT); if (sendmode != DM_NOTSET) set_delivery_mode(sendmode, e); return e; } /* values for msg_timeout, see also IS_* below for usage (bit layout) */ #define MSG_T_O 0x01 /* normal timeout */ #define MSG_T_O_NOW 0x02 /* NOW timeout */ #define MSG_NOT_BY 0x04 /* Deliver-By time exceeded, mode R */ #define MSG_WARN 0x10 /* normal queue warning */ #define MSG_WARN_BY 0x20 /* Deliver-By time exceeded, mode N */ #define IS_MSG_ERR(x) (((x) & 0x0f) != 0) /* return an error */ /* immediate return */ #define IS_IMM_RET(x) (((x) & (MSG_T_O_NOW|MSG_NOT_BY)) != 0) #define IS_MSG_WARN(x) (((x) & 0xf0) != 0) /* return a warning */ /* ** DROPENVELOPE -- deallocate an envelope. ** ** Parameters: ** e -- the envelope to deallocate. ** fulldrop -- if set, do return receipts. ** split -- if true, split by recipient if message is queued up ** ** Returns: ** EX_* status (currently: 0: success, EX_IOERR on panic) ** ** Side Effects: ** housekeeping necessary to dispose of an envelope. ** Unlocks this queue file. */ int dropenvelope(e, fulldrop, split) register ENVELOPE *e; bool fulldrop; bool split; { bool panic = false; bool queueit = false; int msg_timeout = 0; bool failure_return = false; bool delay_return = false; bool success_return = false; bool pmnotify = bitset(EF_PM_NOTIFY, e->e_flags); bool done = false; register ADDRESS *q; char *id = e->e_id; time_t now; char buf[MAXLINE]; if (tTd(50, 1)) { sm_dprintf("dropenvelope %p: id=", (void *)e); xputs(sm_debug_file(), e->e_id); sm_dprintf(", flags="); printenvflags(e); if (tTd(50, 10)) { sm_dprintf("sendq="); printaddr(sm_debug_file(), e->e_sendqueue, true); } } if (LogLevel > 84) sm_syslog(LOG_DEBUG, id, "dropenvelope, e_flags=0x%lx, OpMode=%c, pid=%d", e->e_flags, OpMode, (int) CurrentPid); /* we must have an id to remove disk files */ if (id == NULL) return EX_OK; /* if verify-only mode, we can skip most of this */ if (OpMode == MD_VERIFY) goto simpledrop; if (tTd(92, 2)) sm_dprintf("dropenvelope: e_id=%s, EF_LOGSENDER=%d, LogLevel=%d\n", e->e_id, bitset(EF_LOGSENDER, e->e_flags), LogLevel); if (LogLevel > 4 && bitset(EF_LOGSENDER, e->e_flags)) logsender(e, NULL); e->e_flags &= ~EF_LOGSENDER; /* post statistics */ poststats(StatFile); /* ** Extract state information from dregs of send list. */ now = curtime(); if (now >= e->e_ctime + TimeOuts.to_q_return[e->e_timeoutclass]) msg_timeout = MSG_T_O; if (IS_DLVR_RETURN(e) && e->e_deliver_by > 0 && now >= e->e_ctime + e->e_deliver_by && !bitset(EF_RESPONSE, e->e_flags)) { msg_timeout = MSG_NOT_BY; e->e_flags |= EF_FATALERRS|EF_CLRQUEUE; } else if (TimeOuts.to_q_return[e->e_timeoutclass] == NOW && !bitset(EF_RESPONSE, e->e_flags)) { msg_timeout = MSG_T_O_NOW; e->e_flags |= EF_FATALERRS|EF_CLRQUEUE; } #if _FFR_PROXY if (tTd(87, 2)) { q = e->e_sendqueue; sm_dprintf("dropenvelope: mode=%c, e=%p, sibling=%p, nrcpts=%d, sendqueue=%p, next=%p, state=%d\n", e->e_sendmode, e, e->e_sibling, e->e_nrcpts, q, (q == NULL) ? (void *)0 : q->q_next, (q == NULL) ? -1 : q->q_state); } #endif /* _FFR_PROXY */ e->e_flags &= ~EF_QUEUERUN; for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_UNDELIVERED(q->q_state)) queueit = true; #if _FFR_PROXY if (queueit && e->e_sendmode == SM_PROXY) queueit = false; #endif /* see if a notification is needed */ if (bitset(QPINGONFAILURE, q->q_flags) && ((IS_MSG_ERR(msg_timeout) && QS_IS_UNDELIVERED(q->q_state)) || QS_IS_BADADDR(q->q_state) || IS_IMM_RET(msg_timeout))) { failure_return = true; if (!done && q->q_owner == NULL && !emptyaddr(&e->e_from)) { (void) sendtolist(e->e_from.q_paddr, NULLADDR, &e->e_errorqueue, 0, e); done = true; } } else if ((bitset(QPINGONSUCCESS, q->q_flags) && ((QS_IS_SENT(q->q_state) && bitnset(M_LOCALMAILER, q->q_mailer->m_flags)) || bitset(QRELAYED|QEXPANDED|QDELIVERED, q->q_flags))) || bitset(QBYTRACE, q->q_flags) || bitset(QBYNRELAY, q->q_flags)) { success_return = true; } } if (e->e_class < 0) e->e_flags |= EF_NO_BODY_RETN; /* ** See if the message timed out. */ if (!queueit) /* EMPTY */ /* nothing to do */ ; else if (IS_MSG_ERR(msg_timeout)) { if (failure_return) { if (msg_timeout == MSG_NOT_BY) { (void) sm_snprintf(buf, sizeof(buf), "delivery time expired %lds", e->e_deliver_by); } else { (void) sm_snprintf(buf, sizeof(buf), "Cannot send message for %s", pintvl(TimeOuts.to_q_return[e->e_timeoutclass], false)); } /* don't free, allocated from e_rpool */ e->e_message = sm_rpool_strdup_x(e->e_rpool, buf); message("%s", buf); e->e_flags |= EF_CLRQUEUE; } if (msg_timeout == MSG_NOT_BY) { (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "Delivery time (%lds) expired\n", e->e_deliver_by); } else (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "Message could not be delivered for %s\n", pintvl(TimeOuts.to_q_return[e->e_timeoutclass], false)); (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "Message will be deleted from queue\n"); for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_UNDELIVERED(q->q_state)) { q->q_state = QS_BADADDR; if (msg_timeout == MSG_NOT_BY) q->q_status = "5.4.7"; else q->q_status = "4.4.7"; } } } else { if (TimeOuts.to_q_warning[e->e_timeoutclass] > 0 && now >= e->e_ctime + TimeOuts.to_q_warning[e->e_timeoutclass]) msg_timeout = MSG_WARN; else if (IS_DLVR_NOTIFY(e) && e->e_deliver_by > 0 && now >= e->e_ctime + e->e_deliver_by) msg_timeout = MSG_WARN_BY; if (IS_MSG_WARN(msg_timeout)) { if (!bitset(EF_WARNING|EF_RESPONSE, e->e_flags) && e->e_class >= 0 && e->e_from.q_paddr != NULL && strcmp(e->e_from.q_paddr, "<>") != 0 && sm_strncasecmp(e->e_from.q_paddr, "owner-", 6) != 0 && (strlen(e->e_from.q_paddr) <= 8 || !SM_STRCASEEQ(&e->e_from.q_paddr[strlen(e->e_from.q_paddr) - 8], "-request"))) { for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_UNDELIVERED(q->q_state) #if _FFR_NODELAYDSN_ON_HOLD && !bitnset(M_HOLD, q->q_mailer->m_flags) #endif ) { if (msg_timeout == MSG_WARN_BY && (bitset(QPINGONDELAY, q->q_flags) || !bitset(QHASNOTIFY, q->q_flags)) ) { q->q_flags |= QBYNDELAY; delay_return = true; } if (bitset(QPINGONDELAY, q->q_flags)) { q->q_flags |= QDELAYED; delay_return = true; } } } } if (delay_return) { if (msg_timeout == MSG_WARN_BY) { (void) sm_snprintf(buf, sizeof(buf), "Warning: Delivery time (%lds) exceeded", e->e_deliver_by); } else (void) sm_snprintf(buf, sizeof(buf), "Warning: could not send message for past %s", pintvl(TimeOuts.to_q_warning[e->e_timeoutclass], false)); /* don't free, allocated from e_rpool */ e->e_message = sm_rpool_strdup_x(e->e_rpool, buf); message("%s", buf); e->e_flags |= EF_WARNING; } if (msg_timeout == MSG_WARN_BY) { (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "Warning: Delivery time (%lds) exceeded\n", e->e_deliver_by); } else (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "Warning: message still undelivered after %s\n", pintvl(TimeOuts.to_q_warning[e->e_timeoutclass], false)); (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "Will keep trying until message is %s old\n", pintvl(TimeOuts.to_q_return[e->e_timeoutclass], false)); } } if (tTd(50, 2)) sm_dprintf("failure_return=%d delay_return=%d success_return=%d queueit=%d\n", failure_return, delay_return, success_return, queueit); /* ** If we had some fatal error, but no addresses are marked as bad, ** mark all OK/VERIFIED addresses as bad (if QPINGONFAILURE). */ if (bitset(EF_FATALERRS, e->e_flags) && !failure_return) { for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if ((QS_IS_OK(q->q_state) || QS_IS_VERIFIED(q->q_state)) && bitset(QPINGONFAILURE, q->q_flags) /* ** do not mark an address as bad if ** - the address itself is stored in the queue ** - the DeliveryMode requires queueing ** - the envelope is queued */ && !(bitset(QQUEUED, q->q_flags) && WILL_BE_QUEUED(e->e_sendmode) && bitset(EF_INQUEUE, e->e_flags) ) ) { failure_return = true; q->q_state = QS_BADADDR; } } } /* ** Send back return receipts as requested. */ if (success_return && !failure_return && !delay_return && fulldrop && !bitset(PRIV_NORECEIPTS, PrivacyFlags) && strcmp(e->e_from.q_paddr, "<>") != 0) { auto ADDRESS *rlist = NULL; if (tTd(50, 8)) sm_dprintf("dropenvelope(%s): sending return receipt\n", id); e->e_flags |= EF_SENDRECEIPT; (void) sendtolist(e->e_from.q_paddr, NULLADDR, &rlist, 0, e); (void) returntosender("Return receipt", rlist, RTSF_NO_BODY, e); } e->e_flags &= ~EF_SENDRECEIPT; /* ** Arrange to send error messages if there are fatal errors. */ if ((failure_return || delay_return) && e->e_errormode != EM_QUIET) { if (tTd(50, 8)) sm_dprintf("dropenvelope(%s): saving mail\n", id); panic = savemail(e, !bitset(EF_NO_BODY_RETN, e->e_flags)); } /* ** Arrange to send warning messages to postmaster as requested. */ if ((failure_return || pmnotify) && PostMasterCopy != NULL && !bitset(EF_RESPONSE, e->e_flags) && e->e_class >= 0) { auto ADDRESS *rlist = NULL; char pcopy[MAXNAME_I]; if (failure_return) { expand(PostMasterCopy, pcopy, sizeof(pcopy), e); if (tTd(50, 8)) sm_dprintf("dropenvelope(%s): sending postmaster copy to %s\n", id, pcopy); (void) sendtolist(pcopy, NULLADDR, &rlist, 0, e); } if (pmnotify) (void) sendtolist("postmaster", NULLADDR, &rlist, 0, e); (void) returntosender(e->e_message, rlist, RTSF_PM_BOUNCE|RTSF_NO_BODY, e); } /* ** Instantiate or deinstantiate the queue. */ simpledrop: if (tTd(50, 8)) sm_dprintf("dropenvelope(%s): at simpledrop, queueit=%d\n", id, queueit); if (!queueit || bitset(EF_CLRQUEUE, e->e_flags)) { if (tTd(50, 1)) { sm_dprintf("\n===== Dropping queue files for %s... queueit=%d, e_flags=", e->e_id, queueit); printenvflags(e); } if (!panic) { SM_CLOSE_FP(e->e_dfp); (void) xunlink(queuename(e, DATAFL_LETTER)); } if (panic && QueueMode == QM_LOST) { /* ** leave the Qf file behind as ** the delivery attempt failed. */ /* EMPTY */ } else if (xunlink(queuename(e, ANYQFL_LETTER)) == 0) { /* add to available space in filesystem */ updfs(e, -1, panic ? 0 : -1, "dropenvelope"); } if (e->e_ntries > 0 && LogLevel > 9) sm_syslog(LOG_INFO, id, "done; delay=%s, ntries=%d", pintvl(curtime() - e->e_ctime, true), e->e_ntries); } else if (queueit || !bitset(EF_INQUEUE, e->e_flags)) { if (!split) queueup(e, QUP_FL_MSYNC); else { ENVELOPE *oldsib; ENVELOPE *ee; /* ** Save old sibling and set it to NULL to avoid ** queueing up the same envelopes again. ** This requires that envelopes in that list have ** been take care of before (or at some other place). */ oldsib = e->e_sibling; e->e_sibling = NULL; if (!split_by_recipient(e) && bitset(EF_FATALERRS, e->e_flags)) { syserr("!dropenvelope(%s): cannot commit data file %s, uid=%ld", e->e_id, queuename(e, DATAFL_LETTER), (long) geteuid()); } for (ee = e->e_sibling; ee != NULL; ee = ee->e_sibling) queueup(ee, QUP_FL_MSYNC); queueup(e, QUP_FL_MSYNC); /* clean up */ for (ee = e->e_sibling; ee != NULL; ee = ee->e_sibling) { /* now unlock the job */ if (tTd(50, 8)) sm_dprintf("dropenvelope(%s): unlocking job\n", ee->e_id); closexscript(ee); unlockqueue(ee); /* this envelope is marked unused */ SM_CLOSE_FP(ee->e_dfp); ee->e_id = NULL; ee->e_flags &= ~EF_HAS_DF; } e->e_sibling = oldsib; } } /* now unlock the job */ if (tTd(50, 8)) sm_dprintf("dropenvelope(%s): unlocking job\n", id); closexscript(e); unlockqueue(e); /* make sure that this envelope is marked unused */ SM_CLOSE_FP(e->e_dfp); e->e_id = NULL; e->e_flags &= ~EF_HAS_DF; if (panic) return EX_IOERR; return EX_OK; } /* ** CLEARENVELOPE -- clear an envelope without unlocking ** ** This is normally used by a child process to get a clean ** envelope without disturbing the parent. ** ** Parameters: ** e -- the envelope to clear. ** fullclear - if set, the current envelope is total ** garbage and should be ignored; otherwise, ** release any resources it may indicate. ** rpool -- either NULL, or a pointer to a resource pool ** from which envelope memory is allocated, and ** to which envelope resources are attached. ** ** Returns: ** none. ** ** Side Effects: ** Closes files associated with the envelope. ** Marks the envelope as unallocated. */ void clearenvelope(e, fullclear, rpool) register ENVELOPE *e; bool fullclear; SM_RPOOL_T *rpool; { register HDR *bh; register HDR **nhp; extern ENVELOPE BlankEnvelope; char **p; if (!fullclear) { /* clear out any file information */ SM_CLOSE_FP(e->e_xfp); SM_CLOSE_FP(e->e_dfp); } /* ** Copy BlankEnvelope into *e. ** It is not safe to simply copy pointers to strings; ** the strings themselves must be copied (or set to NULL). ** The problem is that when we assign a new string value to ** a member of BlankEnvelope, we free the old string. ** We did not need to do this copying in sendmail 8.11 :-( ** and it is a potential performance hit. Reference counted ** strings are one way out. */ *e = BlankEnvelope; e->e_message = NULL; e->e_qfletter = '\0'; e->e_quarmsg = NULL; macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), ""); /* ** Copy the macro table. ** We might be able to avoid this by zeroing the macro table ** and always searching BlankEnvelope.e_macro after e->e_macro ** in macvalue(). */ for (p = &e->e_macro.mac_table[0]; p <= &e->e_macro.mac_table[MAXMACROID]; ++p) { if (*p != NULL) *p = sm_rpool_strdup_x(rpool, *p); } /* ** XXX There are many strings in the envelope structure ** XXX that we are not attempting to copy here. ** XXX Investigate this further. */ e->e_rpool = rpool; e->e_macro.mac_rpool = rpool; if (Verbose) set_delivery_mode(SM_DELIVER, e); bh = BlankEnvelope.e_header; nhp = &e->e_header; while (bh != NULL) { *nhp = (HDR *) sm_rpool_malloc_x(rpool, sizeof(*bh)); memmove((char *) *nhp, (char *) bh, sizeof(*bh)); bh = bh->h_link; nhp = &(*nhp)->h_link; } #if _FFR_MILTER_ENHSC e->e_enhsc[0] = '\0'; #endif } /* ** INITSYS -- initialize instantiation of system ** ** In Daemon mode, this is done in the child. ** ** Parameters: ** e -- the envelope to use. ** ** Returns: ** none. ** ** Side Effects: ** Initializes the system macros, some global variables, ** etc. In particular, the current time in various ** forms is set. */ void initsys(e) register ENVELOPE *e; { char buf[10]; #ifdef TTYNAME static char ybuf[60]; /* holds tty id */ register char *p; extern char *ttyname(); #endif /* TTYNAME */ /* ** Give this envelope a reality. ** I.e., an id, a transcript, and a creation time. ** We don't select the queue until all of the recipients are known. */ openxscript(e); e->e_ctime = curtime(); e->e_qfletter = '\0'; /* ** Set OutChannel to something useful if stdout isn't it. ** This arranges that any extra stuff the mailer produces ** gets sent back to the user on error (because it is ** tucked away in the transcript). */ if (OpMode == MD_DAEMON && bitset(EF_QUEUERUN, e->e_flags) && e->e_xfp != NULL) OutChannel = e->e_xfp; /* ** Set up some basic system macros. */ /* process id */ (void) sm_snprintf(buf, sizeof(buf), "%d", (int) CurrentPid); macdefine(&e->e_macro, A_TEMP, 'p', buf); /* hop count */ (void) sm_snprintf(buf, sizeof(buf), "%d", e->e_hopcount); macdefine(&e->e_macro, A_TEMP, 'c', buf); /* time as integer, unix time, arpa time */ settime(e); /* Load average */ sm_getla(); #ifdef TTYNAME /* tty name */ if (macvalue('y', e) == NULL) { p = ttyname(2); if (p != NULL) { if (strrchr(p, '/') != NULL) p = strrchr(p, '/') + 1; (void) sm_strlcpy(ybuf, sizeof(ybuf), p); macdefine(&e->e_macro, A_PERM, 'y', ybuf); } } #endif /* TTYNAME */ } /* ** SETTIME -- set the current time. ** ** Parameters: ** e -- the envelope in which the macros should be set. ** ** Returns: ** none. ** ** Side Effects: ** Sets the various time macros -- $a, $b, $d, $t. */ void settime(e) register ENVELOPE *e; { register char *p; auto time_t now; char buf[30]; register struct tm *tm; now = curtime(); (void) sm_snprintf(buf, sizeof(buf), "%ld", (long) now); macdefine(&e->e_macro, A_TEMP, macid("{time}"), buf); tm = gmtime(&now); (void) sm_snprintf(buf, sizeof(buf), "%04d%02d%02d%02d%02d", tm->tm_year + 1900, tm->tm_mon + 1, tm->tm_mday, tm->tm_hour, tm->tm_min); macdefine(&e->e_macro, A_TEMP, 't', buf); (void) sm_strlcpy(buf, ctime(&now), sizeof(buf)); p = strchr(buf, '\n'); if (p != NULL) *p = '\0'; macdefine(&e->e_macro, A_TEMP, 'd', buf); macdefine(&e->e_macro, A_TEMP, 'b', arpadate(buf)); if (macvalue('a', e) == NULL) macdefine(&e->e_macro, A_PERM, 'a', macvalue('b', e)); } /* ** OPENXSCRIPT -- Open transcript file ** ** Creates a transcript file for possible eventual mailing or ** sending back. ** ** Parameters: ** e -- the envelope to create the transcript in/for. ** ** Returns: ** none ** ** Side Effects: ** Creates the transcript file. */ #ifndef O_APPEND # define O_APPEND 0 #endif void openxscript(e) register ENVELOPE *e; { register char *p; if (e->e_xfp != NULL) return; #if 0 if (e->e_lockfp == NULL && bitset(EF_INQUEUE, e->e_flags)) syserr("openxscript: job not locked"); #endif p = queuename(e, XSCRPT_LETTER); e->e_xfp = bfopen(p, FileMode, XscriptFileBufferSize, SFF_NOTEXCL|SFF_OPENASROOT); if (e->e_xfp == NULL) { syserr("Can't create transcript file %s", p); e->e_xfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, SM_PATH_DEVNULL, SM_IO_RDWR, NULL); if (e->e_xfp == NULL) syserr("!Can't open %s", SM_PATH_DEVNULL); } (void) sm_io_setvbuf(e->e_xfp, SM_TIME_DEFAULT, NULL, SM_IO_LBF, 0); if (tTd(46, 9)) { sm_dprintf("openxscript(%s):\n ", p); dumpfd(sm_io_getinfo(e->e_xfp, SM_IO_WHAT_FD, NULL), true, false); } } /* ** CLOSEXSCRIPT -- close the transcript file. ** ** Parameters: ** e -- the envelope containing the transcript to close. ** ** Returns: ** none. ** ** Side Effects: ** none. */ void closexscript(e) register ENVELOPE *e; { if (e->e_xfp == NULL) return; #if 0 if (e->e_lockfp == NULL) syserr("closexscript: job not locked"); #endif SM_CLOSE_FP(e->e_xfp); } /* ** SETSENDER -- set the person who this message is from ** ** Under certain circumstances allow the user to say who ** s/he is (using -f or -r). These are: ** 1. The user's uid is zero (root). ** 2. The user's login name is in an approved list (typically ** from a network server). ** 3. The address the user is trying to claim has a ** "!" character in it (since #2 doesn't do it for ** us if we are dialing out for UUCP). ** A better check to replace #3 would be if the ** effective uid is "UUCP" -- this would require me ** to rewrite getpwent to "grab" uucp as it went by, ** make getname more nasty, do another passwd file ** scan, or compile the UID of "UUCP" into the code, ** all of which are reprehensible. ** ** Assuming all of these fail, we figure out something ** ourselves. ** ** Parameters: ** from -- the person we would like to believe this message [i] ** is from, as specified on the command line. ** e -- the envelope in which we would like the sender set. ** delimptr -- if non-NULL, set to the location of the ** trailing delimiter. ** delimchar -- the character that will delimit the sender ** address. ** internal -- set if this address is coming from an internal ** source such as an owner alias. ** ** Returns: ** none. ** ** Side Effects: ** sets sendmail's notion of who the from person is. */ void setsender(from, e, delimptr, delimchar, internal) char *from; register ENVELOPE *e; char **delimptr; int delimchar; bool internal; { register char **pvp; char *realname = NULL; char *bp; char buf[MAXNAME_I + 2]; char pvpbuf[PSBUFSIZE]; extern char *FullName; if (tTd(45, 1)) sm_dprintf("setsender(%s)\n", from == NULL ? "" : from); /* may be set from earlier calls */ macdefine(&e->e_macro, A_PERM, 'x', ""); /* ** Figure out the real user executing us. ** Username can return errno != 0 on non-errors. */ if (bitset(EF_QUEUERUN, e->e_flags) || OpMode == MD_SMTP || OpMode == MD_ARPAFTP || OpMode == MD_DAEMON) realname = from; if (SM_IS_EMPTY(realname)) realname = username(); if (ConfigLevel < 2) SuprErrs = true; macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e s"); /* preset state for then clause in case from == NULL */ e->e_from.q_state = QS_BADADDR; e->e_from.q_flags = 0; if (from == NULL || parseaddr(from, &e->e_from, RF_COPYALL|RF_SENDERADDR, delimchar, delimptr, e, false) == NULL || QS_IS_BADADDR(e->e_from.q_state) || e->e_from.q_mailer == ProgMailer || e->e_from.q_mailer == FileMailer || e->e_from.q_mailer == InclMailer) { /* log garbage addresses for traceback */ if (from != NULL && LogLevel > 2) { char *p; char ebuf[MAXNAME * 2 + 2]; /* EAI:ok? */ p = macvalue('_', e); if (p == NULL) { char *host = RealHostName; if (host == NULL) host = MyHostName; (void) sm_snprintf(ebuf, sizeof(ebuf), "%.*s@%.*s", MAXNAME, realname, /* EAI: see above */ MAXNAME, host); /* EAI: see above */ p = ebuf; } sm_syslog(LOG_NOTICE, e->e_id, "setsender: %s: invalid or unparsable, received from %s", shortenstring(from, 83), p); } if (from != NULL) { if (!QS_IS_BADADDR(e->e_from.q_state)) { /* it was a bogus mailer in the from addr */ e->e_status = "5.1.7"; usrerrenh(e->e_status, "553 Invalid sender address"); } SuprErrs = true; } if (from == realname || /* XXX realname must be [i] */ parseaddr(from = realname, &e->e_from, RF_COPYALL|RF_SENDERADDR, ' ', NULL, e, false) == NULL) { char nbuf[100]; SuprErrs = true; expand("\201n", nbuf, sizeof(nbuf), e); from = sm_rpool_strdup_x(e->e_rpool, nbuf); /* XXX from must be [i] */ if (parseaddr(from, &e->e_from, RF_COPYALL, ' ', NULL, e, false) == NULL && parseaddr(from = "postmaster", &e->e_from, RF_COPYALL, ' ', NULL, e, false) == NULL) syserr("553 5.3.0 setsender: can't even parse postmaster!"); } } else FromFlag = true; e->e_from.q_state = QS_SENDER; if (tTd(45, 5)) { sm_dprintf("setsender: QS_SENDER "); printaddr(sm_debug_file(), &e->e_from, false); } SuprErrs = false; #if USERDB if (bitnset(M_CHECKUDB, e->e_from.q_mailer->m_flags)) { register char *p; p = udbsender(e->e_from.q_user, e->e_rpool); if (p != NULL) from = p; } #endif /* USERDB */ if (bitnset(M_HASPWENT, e->e_from.q_mailer->m_flags)) { SM_MBDB_T user; if (!internal) { /* if the user already given fullname don't redefine */ if (FullName == NULL) FullName = macvalue('x', e); if (FullName != NULL) { if (FullName[0] == '\0') FullName = NULL; else FullName = newstr(FullName); } } if (e->e_from.q_user[0] != '\0' && sm_mbdb_lookup(e->e_from.q_user, &user) == EX_OK) { /* ** Process passwd file entry. */ /* extract home directory */ if (*user.mbdb_homedir == '\0') e->e_from.q_home = NULL; else if (strcmp(user.mbdb_homedir, "/") == 0) e->e_from.q_home = ""; else e->e_from.q_home = sm_rpool_strdup_x(e->e_rpool, user.mbdb_homedir); macdefine(&e->e_macro, A_PERM, 'z', e->e_from.q_home); /* extract user and group id */ if (user.mbdb_uid != SM_NO_UID) { e->e_from.q_uid = user.mbdb_uid; e->e_from.q_gid = user.mbdb_gid; e->e_from.q_flags |= QGOODUID; } /* extract full name from passwd file */ if (FullName == NULL && !internal && user.mbdb_fullname[0] != '\0' && strcmp(user.mbdb_name, e->e_from.q_user) == 0) { FullName = newstr(user.mbdb_fullname); } } else { e->e_from.q_home = NULL; } if (FullName != NULL && !internal) macdefine(&e->e_macro, A_TEMP, 'x', FullName); } else if (!internal && OpMode != MD_DAEMON && OpMode != MD_SMTP) { if (e->e_from.q_home == NULL) { e->e_from.q_home = getenv("HOME"); if (e->e_from.q_home != NULL) { if (*e->e_from.q_home == '\0') e->e_from.q_home = NULL; else if (strcmp(e->e_from.q_home, "/") == 0) e->e_from.q_home++; } } e->e_from.q_uid = RealUid; e->e_from.q_gid = RealGid; e->e_from.q_flags |= QGOODUID; } /* ** Rewrite the from person to dispose of possible implicit ** links in the net. */ pvp = prescan(from, delimchar, pvpbuf, sizeof(pvpbuf), NULL, IntTokenTab, false); if (pvp == NULL) { /* don't need to give error -- prescan did that already */ if (LogLevel > 2) sm_syslog(LOG_NOTICE, e->e_id, "cannot prescan from (%s)", shortenstring(from, MAXSHORTSTR)); finis(true, true, ExitStat); } (void) REWRITE(pvp, 3, e); (void) REWRITE(pvp, 1, e); (void) REWRITE(pvp, 4, e); macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); bp = buf + 1; cataddr(pvp, NULL, bp, sizeof(buf) - 2, '\0', false); if (*bp == '@' && !bitnset(M_NOBRACKET, e->e_from.q_mailer->m_flags)) { /* heuristic: route-addr: add angle brackets */ (void) sm_strlcat(bp, ">", sizeof(buf) - 1); *--bp = '<'; } e->e_sender = sm_rpool_strdup_x(e->e_rpool, bp); macdefine(&e->e_macro, A_PERM, 'f', e->e_sender); /* save the domain spec if this mailer wants it */ if (e->e_from.q_mailer != NULL && bitnset(M_CANONICAL, e->e_from.q_mailer->m_flags)) { char **lastat; /* get rid of any pesky angle brackets */ macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e s"); (void) REWRITE(pvp, 3, e); (void) REWRITE(pvp, 1, e); (void) REWRITE(pvp, 4, e); macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); /* strip off to the last "@" sign */ for (lastat = NULL; *pvp != NULL; pvp++) { if (strcmp(*pvp, "@") == 0) lastat = pvp; } if (lastat != NULL) { e->e_fromdomain = copyplist(lastat, true, e->e_rpool); if (tTd(45, 3)) { sm_dprintf("Saving from domain: "); printav(sm_debug_file(), e->e_fromdomain); } } } } /* ** PRINTENVFLAGS -- print envelope flags for debugging ** ** Parameters: ** e -- the envelope with the flags to be printed. ** ** Returns: ** none. */ struct eflags { char *ef_name; unsigned long ef_bit; }; static struct eflags EnvelopeFlags[] = { { "OLDSTYLE", EF_OLDSTYLE }, { "INQUEUE", EF_INQUEUE }, { "NO_BODY_RETN", EF_NO_BODY_RETN }, { "CLRQUEUE", EF_CLRQUEUE }, { "SENDRECEIPT", EF_SENDRECEIPT }, { "FATALERRS", EF_FATALERRS }, { "DELETE_BCC", EF_DELETE_BCC }, { "RESPONSE", EF_RESPONSE }, { "RESENT", EF_RESENT }, { "VRFYONLY", EF_VRFYONLY }, { "WARNING", EF_WARNING }, { "QUEUERUN", EF_QUEUERUN }, { "GLOBALERRS", EF_GLOBALERRS }, { "PM_NOTIFY", EF_PM_NOTIFY }, { "METOO", EF_METOO }, { "LOGSENDER", EF_LOGSENDER }, { "NORECEIPT", EF_NORECEIPT }, { "HAS8BIT", EF_HAS8BIT }, { "RET_PARAM", EF_RET_PARAM }, { "HAS_DF", EF_HAS_DF }, { "IS_MIME", EF_IS_MIME }, { "DONT_MIME", EF_DONT_MIME }, { "DISCARD", EF_DISCARD }, { "TOOBIG", EF_TOOBIG }, { "SPLIT", EF_SPLIT }, { "UNSAFE", EF_UNSAFE }, { "TOODEEP", EF_TOODEEP }, { "SECURE", EF_SECURE }, { NULL, 0 } }; void printenvflags(e) register ENVELOPE *e; { register struct eflags *ef; bool first = true; sm_dprintf("%lx", e->e_flags); for (ef = EnvelopeFlags; ef->ef_name != NULL; ef++) { if (!bitset(ef->ef_bit, e->e_flags)) continue; if (first) sm_dprintf("<%s", ef->ef_name); else sm_dprintf(",%s", ef->ef_name); first = false; } if (!first) sm_dprintf(">\n"); } sendmail-8.18.1/sendmail/deliver.c0000644000372400037240000055120214556365350016366 0ustar xbuildxbuild/* * Copyright (c) 1998-2010, 2012, 2020-2023 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include SM_RCSID("@(#)$Id: deliver.c,v 8.1030 2013-11-22 20:51:55 ca Exp $") #include #if HASSETUSERCONTEXT # include #endif #if NETINET || NETINET6 # include #endif #if STARTTLS || SASL # include "sfsasl.h" # include "tls.h" #endif #if !_FFR_DMTRIGGER static int deliver __P((ENVELOPE *, ADDRESS *)); #endif static void dup_queue_file __P((ENVELOPE *, ENVELOPE *, int)); static void mailfiletimeout __P((int)); static void endwaittimeout __P((int)); static int parse_hostsignature __P((char *, char **, MAILER * #if DANE , BITMAP256 #endif )); static void sendenvelope __P((ENVELOPE *, int)); static int coloncmp __P((const char *, const char *)); #if STARTTLS # include # if DANE static int starttls __P((MAILER *, MCI *, ENVELOPE *, bool, dane_vrfy_ctx_P)); # define MXADS_ISSET(mxads, i) (0 != bitnset(bitidx(i), mxads)) # define MXADS_SET(mxads, i) setbitn(bitidx(i), mxads) /* use "marks" in hostsignature for "had ad"? (WIP) */ # ifndef HSMARKS # define HSMARKS 1 # endif # if HSMARKS # define HSM_AD '+' /* mark for hostsignature: ad flag */ # define DANE_SEC(dane) (DANE_SECURE == DANEMODE((dane))) # endif # else /* DANE */ static int starttls __P((MAILER *, MCI *, ENVELOPE *, bool)); # define MXADS_ISSET(mxads, i) 0 # endif /* DANE */ static int endtlsclt __P((MCI *)); #endif /* STARTTLS */ #if STARTTLS || SASL static bool iscltflgset __P((ENVELOPE *, int)); #endif #define SEP_MXHOSTS(endp, sep) \ if (endp != NULL) \ { \ sep = *endp; \ *endp = '\0'; \ } #if NETINET6 # define FIX_MXHOSTS(hp, endp, sep) \ do { \ if (*hp == '[') \ { \ endp = strchr(hp + 1, ']'); \ if (endp != NULL) \ endp = strpbrk(endp + 1, ":,"); \ } \ else \ endp = strpbrk(hp, ":,"); \ SEP_MXHOSTS(endp, sep); \ } while (0) #else /* NETINET6 */ # define FIX_MXHOSTS(hp, endp, sep) \ do { \ endp = strpbrk(hp, ":,"); \ SEP_MXHOSTS(endp, sep); \ } while (0) #endif /* NETINET6 */ #if _FFR_OCC # include #endif #define ESCNULLMXRCPT "5.1.10" #define ERRNULLMX "556 Host does not accept mail: MX 0 ." #if _FFR_LOG_FAILOVER /* ** These are not very useful to show the protocol stage, ** but it's better than nothing right now. ** XXX the actual values must be 0..N, otherwise a lookup ** table must be used! */ static char *mcis[] = { "CLOSED", "GREET", "OPEN", "MAIL", "RCPT", "DATA", "QUITING", "SSD", "ERROR", NULL }; #endif /* _FFR_LOG_FAILOVER */ #if _FFR_LOG_STAGE static char *xs_states[] = { "none", "STARTTLS", "AUTH", "GREET", "EHLO", "MAIL", "RCPT", "DATA", "EOM", "DATA2", "QUIT", NULL }; #endif /* _FFR_LOG_STAGE */ /* ** SENDALL -- actually send all the messages. ** ** Parameters: ** e -- the envelope to send. ** mode -- the delivery mode to use. If SM_DEFAULT, use ** the current e->e_sendmode. ** ** Returns: ** none. ** ** Side Effects: ** Scans the send lists and sends everything it finds. ** Delivers any appropriate error messages. ** If we are running in a non-interactive mode, takes the ** appropriate action. */ void sendall(e, mode) ENVELOPE *e; int mode; { register ADDRESS *q; char *owner; int otherowners; int save_errno; register ENVELOPE *ee; ENVELOPE *splitenv = NULL; int oldverbose = Verbose; bool somedeliveries = false, expensive = false; pid_t pid; /* ** If this message is to be discarded, don't bother sending ** the message at all. */ if (bitset(EF_DISCARD, e->e_flags)) { if (tTd(13, 1)) sm_dprintf("sendall: discarding id %s\n", e->e_id); e->e_flags |= EF_CLRQUEUE; if (LogLevel > 9) logundelrcpts(e, "discarded", 9, true); else if (LogLevel > 4) sm_syslog(LOG_INFO, e->e_id, "discarded"); markstats(e, NULL, STATS_REJECT); return; } /* ** If we have had global, fatal errors, don't bother sending ** the message at all if we are in SMTP mode. Local errors ** (e.g., a single address failing) will still cause the other ** addresses to be sent. */ if (bitset(EF_FATALERRS, e->e_flags) && (OpMode == MD_SMTP || OpMode == MD_DAEMON)) { e->e_flags |= EF_CLRQUEUE; return; } /* determine actual delivery mode */ if (mode == SM_DEFAULT) { mode = e->e_sendmode; if (mode != SM_VERIFY && mode != SM_DEFER && shouldqueue(e->e_msgpriority, e->e_ctime)) mode = SM_QUEUE; } if (tTd(13, 1)) { sm_dprintf("\n===== SENDALL: mode %c, id %s, e_from ", mode, e->e_id); printaddr(sm_debug_file(), &e->e_from, false); sm_dprintf("\te_flags = "); printenvflags(e); sm_dprintf("sendqueue:\n"); printaddr(sm_debug_file(), e->e_sendqueue, true); } /* ** Do any preprocessing necessary for the mode we are running. ** Check to make sure the hop count is reasonable. ** Delete sends to the sender in mailing lists. */ CurEnv = e; if (tTd(62, 1)) checkfds(NULL); if (e->e_hopcount > MaxHopCount) { char *recip; if (e->e_sendqueue != NULL && e->e_sendqueue->q_paddr != NULL) recip = e->e_sendqueue->q_paddr; else recip = "(nobody)"; errno = 0; queueup(e, WILL_BE_QUEUED(mode) ? QUP_FL_ANNOUNCE : QUP_FL_NONE); e->e_flags |= EF_FATALERRS|EF_PM_NOTIFY|EF_CLRQUEUE; ExitStat = EX_UNAVAILABLE; syserr("554 5.4.6 Too many hops %d (%d max): from %s via %s, to %s", e->e_hopcount, MaxHopCount, e->e_from.q_paddr, RealHostName == NULL ? "localhost" : RealHostName, recip); for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_DEAD(q->q_state)) continue; q->q_state = QS_BADADDR; q->q_status = "5.4.6"; q->q_rstatus = "554 5.4.6 Too many hops"; } return; } /* ** Do sender deletion. ** ** If the sender should be queued up, skip this. ** This can happen if the name server is hosed when you ** are trying to send mail. The result is that the sender ** is instantiated in the queue as a recipient. */ if (!bitset(EF_METOO, e->e_flags) && !QS_IS_QUEUEUP(e->e_from.q_state)) { if (tTd(13, 5)) { sm_dprintf("sendall: QS_SENDER "); printaddr(sm_debug_file(), &e->e_from, false); } e->e_from.q_state = QS_SENDER; (void) recipient(&e->e_from, &e->e_sendqueue, 0, e); } /* ** Handle alias owners. ** ** We scan up the q_alias chain looking for owners. ** We discard owners that are the same as the return path. */ for (q = e->e_sendqueue; q != NULL; q = q->q_next) { register struct address *a; for (a = q; a != NULL && a->q_owner == NULL; a = a->q_alias) continue; if (a != NULL) q->q_owner = a->q_owner; if (q->q_owner != NULL && !QS_IS_DEAD(q->q_state) && strcmp(q->q_owner, e->e_from.q_paddr) == 0) q->q_owner = NULL; } if (tTd(13, 25)) { sm_dprintf("\nAfter first owner pass, sendq =\n"); printaddr(sm_debug_file(), e->e_sendqueue, true); } owner = ""; otherowners = 1; while (owner != NULL && otherowners > 0) { if (tTd(13, 28)) sm_dprintf("owner = \"%s\", otherowners = %d\n", owner, otherowners); owner = NULL; otherowners = bitset(EF_SENDRECEIPT, e->e_flags) ? 1 : 0; for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if (tTd(13, 30)) { sm_dprintf("Checking "); printaddr(sm_debug_file(), q, false); } if (QS_IS_DEAD(q->q_state)) { if (tTd(13, 30)) sm_dprintf(" ... QS_IS_DEAD\n"); continue; } if (tTd(13, 29) && !tTd(13, 30)) { sm_dprintf("Checking "); printaddr(sm_debug_file(), q, false); } if (q->q_owner != NULL) { if (owner == NULL) { if (tTd(13, 40)) sm_dprintf(" ... First owner = \"%s\"\n", q->q_owner); owner = q->q_owner; } else if (owner != q->q_owner) { if (strcmp(owner, q->q_owner) == 0) { if (tTd(13, 40)) sm_dprintf(" ... Same owner = \"%s\"\n", owner); /* make future comparisons cheap */ q->q_owner = owner; } else { if (tTd(13, 40)) sm_dprintf(" ... Another owner \"%s\"\n", q->q_owner); otherowners++; } owner = q->q_owner; } else if (tTd(13, 40)) sm_dprintf(" ... Same owner = \"%s\"\n", owner); } else { if (tTd(13, 40)) sm_dprintf(" ... Null owner\n"); otherowners++; } if (QS_IS_BADADDR(q->q_state)) { if (tTd(13, 30)) sm_dprintf(" ... QS_IS_BADADDR\n"); continue; } if (QS_IS_QUEUEUP(q->q_state)) { MAILER *m = q->q_mailer; /* ** If we have temporary address failures ** (e.g., dns failure) and a fallback MX is ** set, send directly to the fallback MX host. */ if (FallbackMX != NULL && !wordinclass(FallbackMX, 'w') && mode != SM_VERIFY && !bitnset(M_NOMX, m->m_flags) && strcmp(m->m_mailer, "[IPC]") == 0 && m->m_argv[0] != NULL && strcmp(m->m_argv[0], "TCP") == 0) { int len; char *p; if (tTd(13, 30)) sm_dprintf(" ... FallbackMX\n"); len = strlen(FallbackMX) + 1; p = sm_rpool_malloc_x(e->e_rpool, len); (void) sm_strlcpy(p, FallbackMX, len); q->q_state = QS_OK; q->q_host = p; } else { if (tTd(13, 30)) sm_dprintf(" ... QS_IS_QUEUEUP\n"); continue; } } /* ** If this mailer is expensive, and if we don't ** want to make connections now, just mark these ** addresses and return. This is useful if we ** want to batch connections to reduce load. This ** will cause the messages to be queued up, and a ** daemon will come along to send the messages later. */ if (NoConnect && !Verbose && bitnset(M_EXPENSIVE, q->q_mailer->m_flags)) { if (tTd(13, 30)) sm_dprintf(" ... expensive\n"); q->q_state = QS_QUEUEUP; expensive = true; } else if (bitnset(M_HOLD, q->q_mailer->m_flags) && QueueLimitId == NULL && QueueLimitSender == NULL && QueueLimitRecipient == NULL) { if (tTd(13, 30)) sm_dprintf(" ... hold\n"); q->q_state = QS_QUEUEUP; expensive = true; } else if (QueueMode != QM_QUARANTINE && e->e_quarmsg != NULL) { if (tTd(13, 30)) sm_dprintf(" ... quarantine: %s\n", e->e_quarmsg); q->q_state = QS_QUEUEUP; expensive = true; } else { if (tTd(13, 30)) sm_dprintf(" ... deliverable\n"); somedeliveries = true; } } if (owner != NULL && otherowners > 0) { /* ** Split this envelope into two. */ ee = (ENVELOPE *) sm_rpool_malloc_x(e->e_rpool, sizeof(*ee)); STRUCTCOPY(*e, *ee); ee->e_message = NULL; ee->e_id = NULL; assign_queueid(ee); if (tTd(13, 1)) sm_dprintf("sendall: split %s into %s, owner = \"%s\", otherowners = %d\n", e->e_id, ee->e_id, owner, otherowners); ee->e_header = copyheader(e->e_header, ee->e_rpool); ee->e_sendqueue = copyqueue(e->e_sendqueue, ee->e_rpool); ee->e_errorqueue = copyqueue(e->e_errorqueue, ee->e_rpool); ee->e_flags = e->e_flags & ~(EF_INQUEUE|EF_CLRQUEUE|EF_FATALERRS|EF_SENDRECEIPT|EF_RET_PARAM); ee->e_flags |= EF_NORECEIPT; setsender(owner, ee, NULL, '\0', true); if (tTd(13, 5)) { sm_dprintf("sendall(split): QS_SENDER "); printaddr(sm_debug_file(), &ee->e_from, false); } ee->e_from.q_state = QS_SENDER; ee->e_dfp = NULL; ee->e_lockfp = NULL; ee->e_xfp = NULL; ee->e_qgrp = e->e_qgrp; ee->e_qdir = e->e_qdir; ee->e_errormode = EM_MAIL; ee->e_sibling = splitenv; ee->e_statmsg = NULL; if (e->e_quarmsg != NULL) ee->e_quarmsg = sm_rpool_strdup_x(ee->e_rpool, e->e_quarmsg); splitenv = ee; for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if (q->q_owner == owner) { q->q_state = QS_CLONED; if (tTd(13, 6)) sm_dprintf("\t... stripping %s from original envelope\n", q->q_paddr); } } for (q = ee->e_sendqueue; q != NULL; q = q->q_next) { if (q->q_owner != owner) { q->q_state = QS_CLONED; if (tTd(13, 6)) sm_dprintf("\t... dropping %s from cloned envelope\n", q->q_paddr); } else { /* clear DSN parameters */ q->q_flags &= ~(QHASNOTIFY|Q_PINGFLAGS); q->q_flags |= DefaultNotify & ~QPINGONSUCCESS; if (tTd(13, 6)) sm_dprintf("\t... moving %s to cloned envelope\n", q->q_paddr); } } if (mode != SM_VERIFY && bitset(EF_HAS_DF, e->e_flags)) dup_queue_file(e, ee, DATAFL_LETTER); /* ** Give the split envelope access to the parent ** transcript file for errors obtained while ** processing the recipients (done before the ** envelope splitting). */ if (e->e_xfp != NULL) ee->e_xfp = sm_io_dup(e->e_xfp); /* failed to dup e->e_xfp, start a new transcript */ if (ee->e_xfp == NULL) openxscript(ee); if (mode != SM_VERIFY && LogLevel > 4) sm_syslog(LOG_INFO, e->e_id, "%s: clone: owner=%s", ee->e_id, owner); } } if (owner != NULL) { setsender(owner, e, NULL, '\0', true); if (tTd(13, 5)) { sm_dprintf("sendall(owner): QS_SENDER "); printaddr(sm_debug_file(), &e->e_from, false); } e->e_from.q_state = QS_SENDER; e->e_errormode = EM_MAIL; e->e_flags |= EF_NORECEIPT; e->e_flags &= ~EF_FATALERRS; } /* if nothing to be delivered, just queue up everything */ if (!somedeliveries && !WILL_BE_QUEUED(mode) && mode != SM_VERIFY) { time_t now; if (tTd(13, 29)) sm_dprintf("No deliveries: auto-queueing\n"); mode = SM_QUEUE; now = curtime(); /* treat this as a delivery in terms of counting tries */ e->e_dtime = now; if (!expensive) e->e_ntries++; for (ee = splitenv; ee != NULL; ee = ee->e_sibling) { ee->e_dtime = now; if (!expensive) ee->e_ntries++; } } if ((WILL_BE_QUEUED(mode) || mode == SM_FORK || (mode != SM_VERIFY && (SuperSafe == SAFE_REALLY || SuperSafe == SAFE_REALLY_POSTMILTER))) && (!bitset(EF_INQUEUE, e->e_flags) || splitenv != NULL)) { unsigned int qup_flags; /* ** Be sure everything is instantiated in the queue. ** Split envelopes first in case the machine crashes. ** If the original were done first, we may lose ** recipients. */ if (WILL_BE_QUEUED(mode)) qup_flags = QUP_FL_ANNOUNCE; else qup_flags = QUP_FL_NONE; #if HASFLOCK if (mode == SM_FORK) qup_flags |= QUP_FL_MSYNC; #endif for (ee = splitenv; ee != NULL; ee = ee->e_sibling) queueup(ee, qup_flags); queueup(e, qup_flags); } if (tTd(62, 10)) checkfds("after envelope splitting"); /* ** If we belong in background, fork now. */ if (tTd(13, 20)) { sm_dprintf("sendall: final mode = %c\n", mode); if (tTd(13, 21)) { sm_dprintf("\n================ Final Send Queue(s) =====================\n"); sm_dprintf("\n *** Envelope %s, e_from=%s ***\n", e->e_id, e->e_from.q_paddr); printaddr(sm_debug_file(), e->e_sendqueue, true); for (ee = splitenv; ee != NULL; ee = ee->e_sibling) { sm_dprintf("\n *** Envelope %s, e_from=%s ***\n", ee->e_id, ee->e_from.q_paddr); printaddr(sm_debug_file(), ee->e_sendqueue, true); } sm_dprintf("==========================================================\n\n"); } } switch (mode) { case SM_VERIFY: Verbose = 2; break; case SM_QUEUE: case SM_DEFER: #if HASFLOCK queueonly: #endif if (e->e_nrcpts > 0) e->e_flags |= EF_INQUEUE; (void) dropenvelope(e, splitenv != NULL, true); for (ee = splitenv; ee != NULL; ee = ee->e_sibling) { if (ee->e_nrcpts > 0) ee->e_flags |= EF_INQUEUE; (void) dropenvelope(ee, false, true); } return; case SM_FORK: if (e->e_xfp != NULL) (void) sm_io_flush(e->e_xfp, SM_TIME_DEFAULT); #if !HASFLOCK /* ** Since fcntl locking has the interesting semantic that ** the lock is owned by a process, not by an open file ** descriptor, we have to flush this to the queue, and ** then restart from scratch in the child. */ { /* save id for future use */ char *qid = e->e_id; /* now drop the envelope in the parent */ e->e_flags |= EF_INQUEUE; (void) dropenvelope(e, splitenv != NULL, false); /* arrange to reacquire lock after fork */ e->e_id = qid; } for (ee = splitenv; ee != NULL; ee = ee->e_sibling) { /* save id for future use */ char *qid = ee->e_id; /* drop envelope in parent */ ee->e_flags |= EF_INQUEUE; (void) dropenvelope(ee, false, false); /* and save qid for reacquisition */ ee->e_id = qid; } #endif /* !HASFLOCK */ /* ** Since the delivery may happen in a child and the parent ** does not wait, the parent may close the maps thereby ** removing any shared memory used by the map. Therefore, ** close the maps now so the child will dynamically open ** them if necessary. */ closemaps(false); pid = fork(); if (pid < 0) { syserr("deliver: fork 1"); #if HASFLOCK goto queueonly; #else /* HASFLOCK */ e->e_id = NULL; for (ee = splitenv; ee != NULL; ee = ee->e_sibling) ee->e_id = NULL; return; #endif /* HASFLOCK */ } else if (pid > 0) { #if HASFLOCK /* be sure we leave the temp files to our child */ /* close any random open files in the envelope */ closexscript(e); SM_CLOSE_FP(e->e_dfp); e->e_flags &= ~EF_HAS_DF; /* can't call unlockqueue to avoid unlink of xfp */ if (e->e_lockfp != NULL) (void) sm_io_close(e->e_lockfp, SM_TIME_DEFAULT); else syserr("%s: sendall: null lockfp", e->e_id); e->e_lockfp = NULL; #endif /* HASFLOCK */ /* make sure the parent doesn't own the envelope */ e->e_id = NULL; #if USE_DOUBLE_FORK /* catch intermediate zombie */ (void) waitfor(pid); #endif return; } /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; /* ** Initialize exception stack and default exception ** handler for child process. */ sm_exc_newthread(fatal_error); /* ** Since we have accepted responsbility for the message, ** change the SIGTERM handler. intsig() (the old handler) ** would remove the envelope if this was a command line ** message submission. */ (void) sm_signal(SIGTERM, SIG_DFL); #if USE_DOUBLE_FORK /* double fork to avoid zombies */ pid = fork(); if (pid > 0) exit(EX_OK); save_errno = errno; #endif /* USE_DOUBLE_FORK */ CurrentPid = getpid(); /* be sure we are immune from the terminal */ disconnect(2, e); clearstats(); /* prevent parent from waiting if there was an error */ if (pid < 0) { errno = save_errno; syserr("deliver: fork 2"); #if HASFLOCK e->e_flags |= EF_INQUEUE; #else e->e_id = NULL; #endif finis(true, true, ExitStat); } /* be sure to give error messages in child */ QuickAbort = false; /* ** Close any cached connections. ** ** We don't send the QUIT protocol because the parent ** still knows about the connection. ** ** This should only happen when delivering an error ** message. */ mci_flush(false, NULL); #if HASFLOCK break; #else /* HASFLOCK */ /* ** Now reacquire and run the various queue files. */ for (ee = splitenv; ee != NULL; ee = ee->e_sibling) { ENVELOPE *sibling = ee->e_sibling; (void) dowork(ee->e_qgrp, ee->e_qdir, ee->e_id, false, false, ee); ee->e_sibling = sibling; } (void) dowork(e->e_qgrp, e->e_qdir, e->e_id, false, false, e); finis(true, true, ExitStat); #endif /* HASFLOCK */ } sendenvelope(e, mode); (void) dropenvelope(e, true, true); for (ee = splitenv; ee != NULL; ee = ee->e_sibling) { CurEnv = ee; if (mode != SM_VERIFY) openxscript(ee); sendenvelope(ee, mode); (void) dropenvelope(ee, true, true); } CurEnv = e; Verbose = oldverbose; if (mode == SM_FORK) finis(true, true, ExitStat); } static void sendenvelope(e, mode) register ENVELOPE *e; int mode; { register ADDRESS *q; bool didany; if (tTd(13, 10)) sm_dprintf("sendenvelope(%s) e_flags=0x%lx\n", e->e_id == NULL ? "[NOQUEUE]" : e->e_id, e->e_flags); if (LogLevel > 80) sm_syslog(LOG_DEBUG, e->e_id, "sendenvelope, flags=0x%lx", e->e_flags); /* ** If we have had global, fatal errors, don't bother sending ** the message at all if we are in SMTP mode. Local errors ** (e.g., a single address failing) will still cause the other ** addresses to be sent. */ if (bitset(EF_FATALERRS, e->e_flags) && (OpMode == MD_SMTP || OpMode == MD_DAEMON)) { e->e_flags |= EF_CLRQUEUE; return; } /* ** Don't attempt deliveries if we want to bounce now ** or if deliver-by time is exceeded. */ if (!bitset(EF_RESPONSE, e->e_flags) && (TimeOuts.to_q_return[e->e_timeoutclass] == NOW || (IS_DLVR_RETURN(e) && e->e_deliver_by > 0 && curtime() > e->e_ctime + e->e_deliver_by))) return; /* ** Run through the list and send everything. ** ** Set EF_GLOBALERRS so that error messages during delivery ** result in returned mail. */ e->e_nsent = 0; e->e_flags |= EF_GLOBALERRS; macdefine(&e->e_macro, A_PERM, macid("{envid}"), e->e_envid); macdefine(&e->e_macro, A_PERM, macid("{bodytype}"), e->e_bodytype); didany = false; if (!bitset(EF_SPLIT, e->e_flags)) { ENVELOPE *oldsib; ENVELOPE *ee; /* ** Save old sibling and set it to NULL to avoid ** queueing up the same envelopes again. ** This requires that envelopes in that list have ** been take care of before (or at some other place). */ oldsib = e->e_sibling; e->e_sibling = NULL; if (!split_by_recipient(e) && bitset(EF_FATALERRS, e->e_flags)) { if (OpMode == MD_SMTP || OpMode == MD_DAEMON) e->e_flags |= EF_CLRQUEUE; return; } for (ee = e->e_sibling; ee != NULL; ee = ee->e_sibling) queueup(ee, QUP_FL_MSYNC); /* clean up */ for (ee = e->e_sibling; ee != NULL; ee = ee->e_sibling) { /* now unlock the job */ closexscript(ee); unlockqueue(ee); /* this envelope is marked unused */ SM_CLOSE_FP(ee->e_dfp); ee->e_id = NULL; ee->e_flags &= ~EF_HAS_DF; } e->e_sibling = oldsib; } /* now run through the queue */ for (q = e->e_sendqueue; q != NULL; q = q->q_next) { #if XDEBUG char wbuf[MAXNAME + 20]; /* EAI: might be too short, but that's ok for debugging */ (void) sm_snprintf(wbuf, sizeof(wbuf), "sendall(%.*s)", MAXNAME, q->q_paddr); /* EAI: see above */ checkfd012(wbuf); #endif /* XDEBUG */ if (mode == SM_VERIFY) { e->e_to = q->q_paddr; if (QS_IS_SENDABLE(q->q_state)) { if (q->q_host != NULL && q->q_host[0] != '\0') message("deliverable: mailer %s, host %s, user %s", q->q_mailer->m_name, q->q_host, q->q_user); else message("deliverable: mailer %s, user %s", q->q_mailer->m_name, q->q_user); } } else if (QS_IS_OK(q->q_state)) { /* ** Checkpoint the send list every few addresses */ if (CheckpointInterval > 0 && e->e_nsent >= CheckpointInterval) { queueup(e, QUP_FL_NONE); e->e_nsent = 0; } (void) deliver(e, q); didany = true; } } if (didany) { e->e_dtime = curtime(); e->e_ntries++; } #if XDEBUG checkfd012("end of sendenvelope"); #endif } #if REQUIRES_DIR_FSYNC /* ** SYNC_DIR -- fsync a directory based on a filename ** ** Parameters: ** filename -- path of file ** panic -- panic? ** ** Returns: ** none */ void sync_dir(filename, panic) char *filename; bool panic; { int dirfd; char *dirp; char dir[MAXPATHLEN]; if (!RequiresDirfsync) return; /* filesystems which require the directory be synced */ dirp = strrchr(filename, '/'); if (dirp != NULL) { if (sm_strlcpy(dir, filename, sizeof(dir)) >= sizeof(dir)) return; dir[dirp - filename] = '\0'; dirp = dir; } else dirp = "."; dirfd = open(dirp, O_RDONLY, 0700); if (tTd(40,32)) sm_syslog(LOG_INFO, NOQID, "sync_dir: %s: fsync(%d)", dirp, dirfd); if (dirfd >= 0) { if (fsync(dirfd) < 0) { if (panic) syserr("!sync_dir: cannot fsync directory %s", dirp); else if (LogLevel > 1) sm_syslog(LOG_ERR, NOQID, "sync_dir: cannot fsync directory %s: %s", dirp, sm_errstring(errno)); } (void) close(dirfd); } } #endif /* REQUIRES_DIR_FSYNC */ /* ** DUP_QUEUE_FILE -- duplicate a queue file into a split queue ** ** Parameters: ** e -- the existing envelope ** ee -- the new envelope ** type -- the queue file type (e.g., DATAFL_LETTER) ** ** Returns: ** none */ static void dup_queue_file(e, ee, type) ENVELOPE *e, *ee; int type; { char f1buf[MAXPATHLEN], f2buf[MAXPATHLEN]; ee->e_dfp = NULL; ee->e_xfp = NULL; /* ** Make sure both are in the same directory. */ (void) sm_strlcpy(f1buf, queuename(e, type), sizeof(f1buf)); (void) sm_strlcpy(f2buf, queuename(ee, type), sizeof(f2buf)); /* Force the df to disk if it's not there yet */ if (type == DATAFL_LETTER && e->e_dfp != NULL && sm_io_setinfo(e->e_dfp, SM_BF_COMMIT, NULL) < 0 && errno != EINVAL) { syserr("!dup_queue_file: can't commit %s", f1buf); /* NOTREACHED */ } if (link(f1buf, f2buf) < 0) { int save_errno = errno; syserr("sendall: link(%s, %s)", f1buf, f2buf); if (save_errno == EEXIST) { if (unlink(f2buf) < 0) { syserr("!sendall: unlink(%s): permanent", f2buf); /* NOTREACHED */ } if (link(f1buf, f2buf) < 0) { syserr("!sendall: link(%s, %s): permanent", f1buf, f2buf); /* NOTREACHED */ } } } SYNC_DIR(f2buf, true); } /* ** DOFORK -- do a fork, retrying a couple of times on failure. ** ** This MUST be a macro, since after a vfork we are running ** two processes on the same stack!!! ** ** Parameters: ** none. ** ** Returns: ** From a macro??? You've got to be kidding! ** ** Side Effects: ** Modifies the ==> LOCAL <== variable 'pid', leaving: ** pid of child in parent, zero in child. ** -1 on unrecoverable error. ** ** Notes: ** I'm awfully sorry this looks so awful. That's ** vfork for you..... */ #define NFORKTRIES 5 #ifndef FORK # define FORK fork #endif #define DOFORK(fORKfN) \ {\ register int i;\ \ for (i = NFORKTRIES; --i >= 0; )\ {\ pid = fORKfN();\ if (pid >= 0)\ break;\ if (i > 0)\ (void) sleep((unsigned) NFORKTRIES - i);\ }\ } /* ** DOFORK -- simple fork interface to DOFORK. ** ** Parameters: ** none. ** ** Returns: ** pid of child in parent. ** zero in child. ** -1 on error. ** ** Side Effects: ** returns twice, once in parent and once in child. */ pid_t dofork() { register pid_t pid = -1; DOFORK(fork); return pid; } /* ** COLONCMP -- compare host-signatures up to first ':' or EOS ** ** This takes two strings which happen to be host-signatures and ** compares them. If the lowest preference portions of the MX-RR's ** match (up to ':' or EOS, whichever is first), then we have ** match. This is used for coattail-piggybacking messages during ** message delivery. ** If the signatures are the same up to the first ':' the remainder of ** the signatures are then compared with a normal strcmp(). This saves ** re-examining the first part of the signatures. ** ** Parameters: ** a - first host-signature ** b - second host-signature ** ** Returns: ** HS_MATCH_NO -- no "match". ** HS_MATCH_FIRST -- "match" for the first MX preference ** (up to the first colon (':')). ** HS_MATCH_FULL -- match for the entire MX record. ** HS_MATCH_SKIP -- match but only one of the entries has a "mark" ** ** Side Effects: ** none. */ #define HS_MATCH_NO 0 #define HS_MATCH_FIRST 1 #define HS_MATCH_FULL 2 #define HS_MATCH_SKIP 4 static int coloncmp(a, b) register const char *a; register const char *b; { int ret = HS_MATCH_NO; int braclev = 0; # if HSMARKS bool a_hsmark = false; bool b_hsmark = false; if (HSM_AD == *a) { a_hsmark = true; ++a; } if (HSM_AD == *b) { b_hsmark = true; ++b; } # endif while (*a == *b++) { /* Need to account for IPv6 bracketed addresses */ if (*a == '[') braclev++; else if (*a == ']' && braclev > 0) braclev--; else if (*a == ':' && braclev <= 0) { ret = HS_MATCH_FIRST; a++; break; } else if (*a == '\0') { # if HSMARKS /* exactly one mark */ if (a_hsmark != b_hsmark) return HS_MATCH_SKIP; # endif return HS_MATCH_FULL; /* a full match */ } a++; } if (ret == HS_MATCH_NO && braclev <= 0 && ((*a == '\0' && *(b - 1) == ':') || (*a == ':' && *(b - 1) == '\0'))) return HS_MATCH_FIRST; if (ret == HS_MATCH_FIRST && strcmp(a, b) == 0) { # if HSMARKS /* exactly one mark */ if (a_hsmark != b_hsmark) return HS_MATCH_SKIP; # endif return HS_MATCH_FULL; } return ret; } /* ** SHOULD_TRY_FBSH -- Should try FallbackSmartHost? ** ** Parameters: ** e -- envelope ** tried_fallbacksmarthost -- has been tried already? (in/out) ** hostbuf -- buffer for hostname (expand FallbackSmartHost) (out) ** hbsz -- size of hostbuf ** status -- current delivery status ** ** Returns: ** true iff FallbackSmartHost should be tried. */ static bool should_try_fbsh __P((ENVELOPE *, bool *, char *, size_t, int)); static bool should_try_fbsh(e, tried_fallbacksmarthost, hostbuf, hbsz, status) ENVELOPE *e; bool *tried_fallbacksmarthost; char *hostbuf; size_t hbsz; int status; { /* ** If the host was not found or a temporary failure occurred ** and a FallbackSmartHost is defined (and we have not yet ** tried it), then make one last try with it as the host. */ if ((status == EX_NOHOST || status == EX_TEMPFAIL) && FallbackSmartHost != NULL && !*tried_fallbacksmarthost) { *tried_fallbacksmarthost = true; expand(FallbackSmartHost, hostbuf, hbsz, e); if (!wordinclass(hostbuf, 'w')) { if (tTd(11, 1)) sm_dprintf("one last try with FallbackSmartHost %s\n", hostbuf); return true; } } return false; } #if STARTTLS || SASL /* ** CLTFEATURES -- Get features for SMTP client ** ** Parameters: ** e -- envelope ** servername -- name of server. ** ** Returns: ** EX_OK or EX_TEMPFAIL */ static int cltfeatures __P((ENVELOPE *, char *)); static int cltfeatures(e, servername) ENVELOPE *e; char *servername; { int r, i, idx; char **pvp, c; char pvpbuf[PSBUFSIZE]; char flags[64]; /* XXX */ SM_ASSERT(e != NULL); SM_ASSERT(e->e_mci != NULL); macdefine(&e->e_mci->mci_macro, A_PERM, macid("{client_flags}"), ""); pvp = NULL; r = rscap("clt_features", servername, NULL, e, &pvp, pvpbuf, sizeof(pvpbuf)); if (r != EX_OK) return EX_OK; if (pvp == NULL || pvp[0] == NULL || (pvp[0][0] & 0377) != CANONNET) return EX_OK; if (pvp[1] != NULL && sm_strncasecmp(pvp[1], "temp", 4) == 0) return EX_TEMPFAIL; /* XXX Note: this does not inherit defaults! */ for (idx = 0, i = 1; pvp[i] != NULL; i++) { c = pvp[i][0]; if (!(isascii(c) && !isspace(c) && isprint(c))) continue; if (idx >= sizeof(flags) - 4) break; flags[idx++] = c; if (isupper(c)) flags[idx++] = c; flags[idx++] = ' '; } flags[idx] = '\0'; macdefine(&e->e_mci->mci_macro, A_TEMP, macid("{client_flags}"), flags); if (tTd(10, 30)) sm_dprintf("cltfeatures: server=%s, mci=%p, flags=%s, {client_flags}=%s\n", servername, e->e_mci, flags, macvalue(macid("{client_flags}"), e)); return EX_OK; } #endif /* STARTTLS || SASL */ #if _FFR_LOG_FAILOVER /* ** LOGFAILOVER -- log reason why trying another host ** ** Parameters: ** e -- envelope ** m -- the mailer info for this mailer ** mci -- mailer connection information ** rcode -- the code signifying the particular failure ** rcpt -- current RCPT ** ** Returns: ** none. */ static void logfailover __P((ENVELOPE *, MAILER *, MCI *, int, ADDRESS *)); static void logfailover(e, m, mci, rcode, rcpt) ENVELOPE *e; MAILER *m; MCI *mci; int rcode; ADDRESS *rcpt; { char buf[MAXNAME]; char cbuf[SM_MAX(SYSLOG_BUFSIZE, MAXNAME)]; buf[0] = '\0'; cbuf[0] = '\0'; sm_strlcat(cbuf, "deliver: ", sizeof(cbuf)); if (m != NULL && m->m_name != NULL) { sm_snprintf(buf, sizeof(buf), "mailer=%s, ", m->m_name); sm_strlcat(cbuf, buf, sizeof(cbuf)); } if (mci != NULL && mci->mci_host != NULL) { extern SOCKADDR CurHostAddr; sm_snprintf(buf, sizeof(buf), "relay=%.100s", mci->mci_host); sm_strlcat(cbuf, buf, sizeof(cbuf)); if (CurHostAddr.sa.sa_family != 0) { sm_snprintf(buf, sizeof(buf), " [%.100s]", anynet_ntoa(&CurHostAddr)); sm_strlcat(cbuf, buf, sizeof(cbuf)); } sm_strlcat(cbuf, ", ", sizeof(cbuf)); } if (mci != NULL) { if (mci->mci_state >= 0 && mci->mci_state < SM_ARRAY_SIZE(mcis)) sm_snprintf(buf, sizeof(buf), "state=%s, ", mcis[mci->mci_state]); else sm_snprintf(buf, sizeof(buf), "state=%d, ", mci->mci_state); sm_strlcat(cbuf, buf, sizeof(cbuf)); } if (tTd(11, 64)) { sm_snprintf(buf, sizeof(buf), "rcode=%d, okrcpts=%d, retryrcpt=%d, e_rcode=%d, ", rcode, mci->mci_okrcpts, mci->mci_retryrcpt, e->e_rcode); sm_strlcat(cbuf, buf, sizeof(cbuf)); } if (rcode != EX_OK && rcpt != NULL && !SM_IS_EMPTY(rcpt->q_rstatus) && !bitset(QINTREPLY, rcpt->q_flags)) { sm_snprintf(buf, sizeof(buf), "q_rstatus=%s, ", rcpt->q_rstatus); sm_strlcat(cbuf, buf, sizeof(cbuf)); } else if (e->e_text != NULL) { sm_snprintf(buf, sizeof(buf), "reply=%d %s%s%s, ", e->e_rcode, e->e_renhsc, (e->e_renhsc[0] != '\0') ? " " : "", e->e_text); sm_strlcat(cbuf, buf, sizeof(cbuf)); } sm_strlcat(cbuf, "stat=tempfail: trying next host", sizeof(cbuf)); sm_syslog(LOG_INFO, e->e_id, "%s", cbuf); } #else /* _FFR_LOG_FAILOVER */ # define logfailover(e, m, mci, rcode, rcpt) ((void) 0) #endif /* _FFR_LOG_FAILOVER */ #if STARTTLS || SASL # define RM_TRAIL_DOT(name) \ do { \ dotpos = strlen(name) - 1; \ if (dotpos >= 0) \ { \ if (name[dotpos] == '.') \ name[dotpos] = '\0'; \ else \ dotpos = -1; \ } \ } while (0) # define FIX_TRAIL_DOT(name) \ do { \ if (dotpos >= 0) \ name[dotpos] = '.'; \ } while (0) /* ** SETSERVERMACROS -- set ${server_addr} and ${server_name} ** ** Parameters: ** mci -- mailer connection information ** pdotpos -- return pointer to former dot position in hostname ** ** Returns: ** server name */ static char *setservermacros __P((MCI *, int *)); static char * setservermacros(mci, pdotpos) MCI *mci; int *pdotpos; { char *srvname; int dotpos; extern SOCKADDR CurHostAddr; /* don't use CurHostName, it is changed in many places */ if (mci->mci_host != NULL) { srvname = mci->mci_host; RM_TRAIL_DOT(srvname); } else if (mci->mci_mailer != NULL) { srvname = mci->mci_mailer->m_name; dotpos = -1; } else { srvname = "local"; dotpos = -1; } /* don't set {server_name} to NULL or "": see getauth() */ macdefine(&mci->mci_macro, A_TEMP, macid("{server_name}"), srvname); /* CurHostAddr is set by makeconnection() and mci_get() */ if (CurHostAddr.sa.sa_family != 0) { macdefine(&mci->mci_macro, A_TEMP, macid("{server_addr}"), anynet_ntoa(&CurHostAddr)); } else if (mci->mci_mailer != NULL) { /* mailer name is unique, use it as address */ macdefine(&mci->mci_macro, A_PERM, macid("{server_addr}"), mci->mci_mailer->m_name); } else { /* don't set it to NULL or "": see getauth() */ macdefine(&mci->mci_macro, A_PERM, macid("{server_addr}"), "0"); } if (pdotpos != NULL) *pdotpos = dotpos; else FIX_TRAIL_DOT(srvname); return srvname; } #endif /* STARTTLS || SASL */ /* ** DELIVER -- Deliver a message to a list of addresses. ** ** This routine delivers to everyone on the same host as the ** user on the head of the list. It is clever about mailers ** that don't handle multiple users. It is NOT guaranteed ** that it will deliver to all these addresses however -- so ** deliver should be called once for each address on the list. ** Deliver tries to be as opportunistic as possible about piggybacking ** messages. Some definitions to make understanding easier follow below. ** Piggybacking occurs when an existing connection to a mail host can ** be used to send the same message to more than one recipient at the ** same time. So "no piggybacking" means one message for one recipient ** per connection. "Intentional piggybacking" happens when the ** recipients' host address (not the mail host address) is used to ** attempt piggybacking. Recipients with the same host address ** have the same mail host. "Coincidental piggybacking" relies on ** piggybacking based on all the mail host addresses in the MX-RR. This ** is "coincidental" in the fact it could not be predicted until the ** MX Resource Records for the hosts were obtained and examined. For ** example (preference order and equivalence is important, not values): ** domain1 IN MX 10 mxhost-A ** IN MX 20 mxhost-B ** domain2 IN MX 4 mxhost-A ** IN MX 8 mxhost-B ** Domain1 and domain2 can piggyback the same message to mxhost-A or ** mxhost-B (if mxhost-A cannot be reached). ** "Coattail piggybacking" relaxes the strictness of "coincidental ** piggybacking" in the hope that most significant (lowest value) ** MX preference host(s) can create more piggybacking. For example ** (again, preference order and equivalence is important, not values): ** domain3 IN MX 100 mxhost-C ** IN MX 100 mxhost-D ** IN MX 200 mxhost-E ** domain4 IN MX 50 mxhost-C ** IN MX 50 mxhost-D ** IN MX 80 mxhost-F ** A message for domain3 and domain4 can piggyback to mxhost-C if mxhost-C ** is available. Same with mxhost-D because in both RR's the preference ** value is the same as mxhost-C, respectively. ** So deliver attempts coattail piggybacking when possible. If the ** first MX preference level hosts cannot be used then the piggybacking ** reverts to coincidental piggybacking. Using the above example you ** cannot deliver to mxhost-F for domain3 regardless of preference value. ** ("Coattail" from "riding on the coattails of your predecessor" meaning ** gaining benefit from a predecessor effort with no or little addition ** effort. The predecessor here being the preceding MX RR). ** ** Parameters: ** e -- the envelope to deliver. ** firstto -- head of the address list to deliver to. ** ** Returns: ** zero -- successfully delivered. ** else -- some failure, see ExitStat for more info. ** ** Side Effects: ** The standard input is passed off to someone. */ #if !_FFR_DMTRIGGER static #endif int deliver(e, firstto) register ENVELOPE *e; ADDRESS *firstto; { char *host; /* host being sent to */ char *user; /* user being sent to */ char **pvp; register char **mvp; register char *p; register MAILER *m; /* mailer for this recipient */ ADDRESS *volatile ctladdr; #if HASSETUSERCONTEXT ADDRESS *volatile contextaddr = NULL; #endif register MCI *volatile mci; register ADDRESS *SM_NONVOLATILE to = firstto; volatile bool clever = false; /* running user smtp to this mailer */ ADDRESS *volatile tochain = NULL; /* users chain in this mailer call */ int rcode; /* response code */ SM_NONVOLATILE int lmtp_rcode = EX_OK; SM_NONVOLATILE int nummxhosts = 0; /* number of MX hosts available */ SM_NONVOLATILE int hostnum = 0; /* current MX host index */ char *firstsig; /* signature of firstto */ volatile pid_t pid = -1; char *volatile curhost; SM_NONVOLATILE unsigned short port = 0; SM_NONVOLATILE time_t enough = 0; #if NETUNIX char *SM_NONVOLATILE mux_path = NULL; /* path to UNIX domain socket */ #endif time_t xstart; bool suidwarn; bool anyok; /* at least one address was OK */ SM_NONVOLATILE bool goodmxfound = false; /* at least one MX was OK */ bool ovr; bool quarantine; #if STARTTLS bool implicittls = false; # if _FFR_SMTPS_CLIENT bool smtptls = false; # endif /* 0: try TLS, 1: try without TLS again, >1: don't try again */ int tlsstate; # if DANE dane_vrfy_ctx_T dane_vrfy_ctx; STAB *ste; char *vrfy; int dane_req; /* should this allow DANE_ALWAYS == DANEMODE(dane)? */ # define RCPT_MXSECURE(rcpt) (0 != ((rcpt)->q_flags & QMXSECURE)) # define STE_HAS_TLSA(ste) ((ste) != NULL && (ste)->s_tlsa != NULL) /* NOTE: the following macros use some local variables directly! */ # define RCPT_HAS_DANE(rcpt) (RCPT_MXSECURE(rcpt) \ && !iscltflgset(e, D_NODANE) \ && STE_HAS_TLSA(ste) \ && (0 == (dane_vrfy_ctx.dane_vrfy_chk & TLSAFLTEMPVRFY)) \ && (0 != (dane_vrfy_ctx.dane_vrfy_chk & TLSAFLADIP)) \ && CHK_DANE(dane_vrfy_ctx.dane_vrfy_chk) \ ) # define RCPT_REQ_DANE(rcpt) (RCPT_HAS_DANE(rcpt) \ && TLSA_IS_FL(ste->s_tlsa, TLSAFLSUP)) # define RCPT_REQ_TLS(rcpt) (RCPT_HAS_DANE(rcpt) \ && TLSA_IS_FL(ste->s_tlsa, TLSAFLUNS)) # define CHK_DANE_RCPT(dane, rcpt) (CHK_DANE(dane) && \ (RCPT_MXSECURE(rcpt) || DANE_ALWAYS == DANEMODE(dane))) BITMAP256 mxads; # endif /* DANE */ #endif /* STARTTLS */ int strsize; int rcptcount; int ret; static int tobufsize = 0; static char *tobuf = NULL; char *rpath; /* translated return path */ int mpvect[2]; int rpvect[2]; char *mxhosts[MAXMXHOSTS + 1]; char *pv[MAXPV + 1]; char buf[MAXNAME + 1]; /* EAI:ok */ char cbuf[MAXPATHLEN]; #if _FFR_8BITENVADDR char xbuf[SM_MAX(SYSLOG_BUFSIZE, MAXNAME)]; #endif errno = 0; SM_REQUIRE(firstto != NULL); /* same as to */ if (!QS_IS_OK(to->q_state)) return 0; suidwarn = geteuid() == 0; SM_REQUIRE(e != NULL); m = to->q_mailer; host = to->q_host; CurEnv = e; /* just in case */ e->e_statmsg = NULL; SmtpError[0] = '\0'; xstart = curtime(); #if STARTTLS tlsstate = 0; # if DANE memset(&dane_vrfy_ctx, '\0', sizeof(dane_vrfy_ctx)); ste = NULL; # endif #endif if (tTd(10, 1)) sm_dprintf("\n--deliver, id=%s, mailer=%s, host=`%s', first user=`%s'\n", e->e_id, m->m_name, host, to->q_user); if (tTd(10, 100)) printopenfds(false); maps_reset_chged("deliver"); /* ** Clear {client_*} macros if this is a bounce message to ** prevent rejection by check_compat ruleset. */ if (bitset(EF_RESPONSE, e->e_flags)) { macdefine(&e->e_macro, A_PERM, macid("{client_name}"), ""); macdefine(&e->e_macro, A_PERM, macid("{client_ptr}"), ""); macdefine(&e->e_macro, A_PERM, macid("{client_addr}"), ""); macdefine(&e->e_macro, A_PERM, macid("{client_port}"), ""); macdefine(&e->e_macro, A_PERM, macid("{client_resolve}"), ""); } SM_TRY { ADDRESS *skip_back = NULL; /* ** Do initial argv setup. ** Insert the mailer name. Notice that $x expansion is ** NOT done on the mailer name. Then, if the mailer has ** a picky -f flag, we insert it as appropriate. This ** code does not check for 'pv' overflow; this places a ** manifest lower limit of 4 for MAXPV. ** The from address rewrite is expected to make ** the address relative to the other end. */ /* rewrite from address, using rewriting rules */ rcode = EX_OK; SM_ASSERT(e->e_from.q_mailer != NULL); if (bitnset(M_UDBENVELOPE, e->e_from.q_mailer->m_flags)) p = e->e_sender; else p = e->e_from.q_paddr; rpath = remotename(p, m, RF_SENDERADDR|RF_CANONICAL, &rcode, e); if (rcode != EX_OK && bitnset(M_xSMTP, m->m_flags)) goto cleanup; /* need to check external format, not internal! */ if (strlen(rpath) > MAXNAME_I) { rpath = shortenstring(rpath, MAXSHORTSTR); /* avoid bogus errno */ errno = 0; syserr("remotename: huge return path %s", rpath); } rpath = sm_rpool_strdup_x(e->e_rpool, rpath); macdefine(&e->e_macro, A_PERM, 'g', rpath); #if _FFR_8BITENVADDR host = quote_internal_chars(host, NULL, &strsize, NULL); #endif macdefine(&e->e_macro, A_PERM, 'h', host); Errors = 0; pvp = pv; *pvp++ = m->m_argv[0]; /* ignore long term host status information if mailer flag W is set */ if (bitnset(M_NOHOSTSTAT, m->m_flags)) IgnoreHostStatus = true; /* insert -f or -r flag as appropriate */ if (FromFlag && (bitnset(M_FOPT, m->m_flags) || bitnset(M_ROPT, m->m_flags))) { if (bitnset(M_FOPT, m->m_flags)) *pvp++ = "-f"; else *pvp++ = "-r"; *pvp++ = rpath; } /* ** Append the other fixed parts of the argv. These run ** up to the first entry containing "$u". There can only ** be one of these, and there are only a few more slots ** in the pv after it. */ for (mvp = m->m_argv; (p = *++mvp) != NULL; ) { /* can't use strchr here because of sign extension problems */ while (*p != '\0') { if ((*p++ & 0377) == MACROEXPAND) { if (*p == 'u') break; } } if (*p != '\0') break; /* this entry is safe -- go ahead and process it */ expand(*mvp, buf, sizeof(buf), e); p = buf; #if _FFR_8BITENVADDR /* apply to all args? */ if (strcmp(m->m_mailer, "[IPC]") == 0 && ((*mvp)[0] & 0377) == MACROEXPAND /* for now only apply [i] -> [x] conversion to $h by default */ # ifndef _FFR_H2X_ONLY # define _FFR_H2X_ONLY 1 # endif # if _FFR_H2X_ONLY && 'h' == (*mvp)[1] && '\0' == (*mvp)[2] # endif ) { (void) dequote_internal_chars(buf, xbuf, sizeof(xbuf)); p = xbuf; if (tTd(10, 33)) sm_dprintf("expand(%s), dequoted=%s\n", *mvp, p); } #endif /* _FFR_8BITENVADDR */ *pvp++ = sm_rpool_strdup_x(e->e_rpool, p); if (pvp >= &pv[MAXPV - 3]) { syserr("554 5.3.5 Too many parameters to %s before $u", pv[0]); rcode = -1; goto cleanup; } } /* ** If we have no substitution for the user name in the argument ** list, we know that we must supply the names otherwise -- and ** SMTP is the answer!! */ if (*mvp == NULL) { /* running LMTP or SMTP */ clever = true; *pvp = NULL; setbitn(M_xSMTP, m->m_flags); } else if (bitnset(M_LMTP, m->m_flags)) { /* not running LMTP */ sm_syslog(LOG_ERR, NULL, "Warning: mailer %s: LMTP flag (F=z) turned off", m->m_name); clrbitn(M_LMTP, m->m_flags); } /* ** At this point *mvp points to the argument with $u. We ** run through our address list and append all the addresses ** we can. If we run out of space, do not fret! We can ** always send another copy later. */ e->e_to = NULL; strsize = 2; rcptcount = 0; ctladdr = NULL; if (firstto->q_signature == NULL) firstto->q_signature = hostsignature(firstto->q_mailer, firstto->q_host, QISSECURE(firstto), &firstto->q_flags); firstsig = firstto->q_signature; #if DANE # define NODANEREQYET (-1) dane_req = NODANEREQYET; #endif for (; to != NULL; to = to->q_next) { /* avoid sending multiple recipients to dumb mailers */ if (tochain != NULL && !bitnset(M_MUSER, m->m_flags)) break; /* if already sent or not for this host, don't send */ if (!QS_IS_OK(to->q_state)) /* already sent; look at next */ continue; /* ** Must be same mailer to keep grouping rcpts. ** If mailers don't match: continue; sendqueue is not ** sorted by mailers, so don't break; */ if (to->q_mailer != firstto->q_mailer) continue; if (to->q_signature == NULL) /* for safety */ to->q_signature = hostsignature(to->q_mailer, to->q_host, QISSECURE(to), &to->q_flags); /* ** This is for coincidental and tailcoat piggybacking messages ** to the same mail host. While the signatures are identical ** (that's the MX-RR's are identical) we can do coincidental ** piggybacking. We try hard for coattail piggybacking ** with the same mail host when the next recipient has the ** same host at lowest preference. It may be that this ** won't work out, so 'skip_back' is maintained if a backup ** to coincidental piggybacking or full signature must happen. */ ret = firstto == to ? HS_MATCH_FULL : coloncmp(to->q_signature, firstsig); if (ret == HS_MATCH_FULL) skip_back = to; else if (ret == HS_MATCH_NO) break; # if HSMARKS else if (ret == HS_MATCH_SKIP) continue; # endif if (!clever) { /* avoid overflowing tobuf */ strsize += strlen(to->q_paddr) + 1; if (strsize > TOBUFSIZE) break; } if (++rcptcount > to->q_mailer->m_maxrcpt) break; #if DANE if (TTD(10, 30)) { char sep = ':'; parse_hostsignature(to->q_signature, mxhosts, m, mxads); FIX_MXHOSTS(mxhosts[0], p, sep); # if HSMARKS if (MXADS_ISSET(mxads, 0)) to->q_flags |= QMXSECURE; else to->q_flags &= ~QMXSECURE; # endif gettlsa(mxhosts[0], NULL, &ste, RCPT_MXSECURE(to) ? TLSAFLADMX : 0, 0, m->m_port); sm_dprintf("tochain: to=%s, rcptcount=%d, QSECURE=%d, QMXSECURE=%d, MXADS[0]=%d, ste=%p\n", to->q_user, rcptcount, QISSECURE(to), RCPT_MXSECURE(to), MXADS_ISSET(mxads, 0), ste); sm_dprintf("tochain: hostsig=%s, mx=%s, tlsa_n=%d, tlsa_flags=%#lx, chk_dane=%d, dane_req=%d\n" , to->q_signature, mxhosts[0] , STE_HAS_TLSA(ste) ? ste->s_tlsa->dane_tlsa_n : -1 , STE_HAS_TLSA(ste) ? ste->s_tlsa->dane_tlsa_flags : -1 , CHK_DANE_RCPT(Dane, to) , dane_req ); if (p != NULL) *p = sep; } if (NODANEREQYET == dane_req) dane_req = CHK_DANE_RCPT(Dane, to); else if (dane_req != CHK_DANE_RCPT(Dane, to)) { if (tTd(10, 30)) sm_dprintf("tochain: to=%s, rcptcount=%d, status=skip\n", to->q_user, rcptcount); continue; } #endif /* DANE */ /* ** prepare envelope for new session to avoid leakage ** between delivery attempts. */ smtpclrse(e); if (tTd(10, 1)) { sm_dprintf("\nsend to "); printaddr(sm_debug_file(), to, false); } /* compute effective uid/gid when sending */ if (bitnset(M_RUNASRCPT, to->q_mailer->m_flags)) #if HASSETUSERCONTEXT contextaddr = ctladdr = getctladdr(to); #else ctladdr = getctladdr(to); #endif if (tTd(10, 2)) { sm_dprintf("ctladdr="); printaddr(sm_debug_file(), ctladdr, false); } user = to->q_user; e->e_to = to->q_paddr; /* ** Check to see that these people are allowed to ** talk to each other. ** Check also for overflow of e_msgsize. */ if (m->m_maxsize != 0 && (e->e_msgsize > m->m_maxsize || e->e_msgsize < 0)) { e->e_flags |= EF_NO_BODY_RETN; if (bitnset(M_LOCALMAILER, to->q_mailer->m_flags)) to->q_status = "5.2.3"; else to->q_status = "5.3.4"; /* set to->q_rstatus = NULL; or to the following? */ usrerrenh(to->q_status, "552 Message is too large; %ld bytes max", m->m_maxsize); markfailure(e, to, NULL, EX_UNAVAILABLE, false); giveresponse(EX_UNAVAILABLE, to->q_status, m, NULL, ctladdr, xstart, e, to); continue; } SM_SET_H_ERRNO(0); ovr = true; /* do config file checking of compatibility */ quarantine = (e->e_quarmsg != NULL); rcode = rscheck("check_compat", e->e_from.q_paddr, to->q_paddr, e, RSF_RMCOMM|RSF_COUNT, 3, NULL, e->e_id, NULL, NULL); if (rcode == EX_OK) { /* do in-code checking if not discarding */ if (!bitset(EF_DISCARD, e->e_flags)) { rcode = checkcompat(to, e); ovr = false; } } if (rcode != EX_OK) { markfailure(e, to, NULL, rcode, ovr); giveresponse(rcode, to->q_status, m, NULL, ctladdr, xstart, e, to); continue; } if (!quarantine && e->e_quarmsg != NULL) { /* ** check_compat or checkcompat() has tried ** to quarantine but that isn't supported. ** Revert the attempt. */ e->e_quarmsg = NULL; macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), ""); } if (bitset(EF_DISCARD, e->e_flags)) { if (tTd(10, 5)) { sm_dprintf("deliver: discarding recipient "); printaddr(sm_debug_file(), to, false); } /* pretend the message was sent */ /* XXX should we log something here? */ to->q_state = QS_DISCARDED; /* ** Remove discard bit to prevent discard of ** future recipients. This is safe because the ** true "global discard" has been handled before ** we get here. */ e->e_flags &= ~EF_DISCARD; continue; } /* ** Strip quote bits from names if the mailer is dumb ** about them. */ if (bitnset(M_STRIPQ, m->m_flags)) { stripquotes(user); stripquotes(host); } /* ** Strip all leading backslashes if requested and the ** next character is alphanumerical (the latter can ** probably relaxed a bit, see RFC2821). */ if (bitnset(M_STRIPBACKSL, m->m_flags) && user[0] == '\\') stripbackslash(user); /* hack attack -- delivermail compatibility */ if (m == ProgMailer && *user == '|') user++; /* ** If an error message has already been given, don't ** bother to send to this address. ** ** >>>>>>>>>> This clause assumes that the local mailer ** >> NOTE >> cannot do any further aliasing; that ** >>>>>>>>>> function is subsumed by sendmail. */ if (!QS_IS_OK(to->q_state)) continue; /* ** See if this user name is "special". ** If the user name has a slash in it, assume that this ** is a file -- send it off without further ado. Note ** that this type of addresses is not processed along ** with the others, so we fudge on the To person. */ if (strcmp(m->m_mailer, "[FILE]") == 0) { macdefine(&e->e_macro, A_PERM, 'u', user); p = to->q_home; if (p == NULL && ctladdr != NULL) p = ctladdr->q_home; macdefine(&e->e_macro, A_PERM, 'z', p); expand(m->m_argv[1], buf, sizeof(buf), e); if (strlen(buf) > 0) rcode = mailfile(buf, m, ctladdr, SFF_CREAT, e); else { syserr("empty filename specification for mailer %s", m->m_name); rcode = EX_CONFIG; } giveresponse(rcode, to->q_status, m, NULL, ctladdr, xstart, e, to); markfailure(e, to, NULL, rcode, true); e->e_nsent++; if (rcode == EX_OK) { to->q_state = QS_SENT; if (bitnset(M_LOCALMAILER, m->m_flags) && bitset(QPINGONSUCCESS, to->q_flags)) { to->q_flags |= QDELIVERED; to->q_status = "2.1.5"; (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "%s... Successfully delivered\n", to->q_paddr); } } to->q_statdate = curtime(); markstats(e, to, STATS_NORMAL); continue; } /* ** Address is verified -- add this user to mailer ** argv, and add it to the print list of recipients. */ /* link together the chain of recipients */ to->q_tchain = tochain; tochain = to; e->e_to = "[CHAIN]"; macdefine(&e->e_macro, A_PERM, 'u', user); /* to user */ p = to->q_home; if (p == NULL && ctladdr != NULL) p = ctladdr->q_home; macdefine(&e->e_macro, A_PERM, 'z', p); /* user's home */ /* set the ${dsn_notify} macro if applicable */ if (bitset(QHASNOTIFY, to->q_flags)) { char notify[MAXLINE]; notify[0] = '\0'; if (bitset(QPINGONSUCCESS, to->q_flags)) (void) sm_strlcat(notify, "SUCCESS,", sizeof(notify)); if (bitset(QPINGONFAILURE, to->q_flags)) (void) sm_strlcat(notify, "FAILURE,", sizeof(notify)); if (bitset(QPINGONDELAY, to->q_flags)) (void) sm_strlcat(notify, "DELAY,", sizeof(notify)); /* Set to NEVER or drop trailing comma */ if (notify[0] == '\0') (void) sm_strlcat(notify, "NEVER", sizeof(notify)); else notify[strlen(notify) - 1] = '\0'; macdefine(&e->e_macro, A_TEMP, macid("{dsn_notify}"), notify); } else macdefine(&e->e_macro, A_PERM, macid("{dsn_notify}"), NULL); /* ** Expand out this user into argument list. */ if (!clever) { expand(*mvp, buf, sizeof(buf), e); p = buf; #if _FFR_8BITENVADDR if (((*mvp)[0] & 0377) == MACROEXPAND) { (void) dequote_internal_chars(buf, xbuf, sizeof(xbuf)); p = xbuf; if (tTd(10, 33)) sm_dprintf("expand(%s), dequoted=%s\n", *mvp, p); } #endif *pvp++ = sm_rpool_strdup_x(e->e_rpool, p); if (pvp >= &pv[MAXPV - 2]) { /* allow some space for trailing parms */ break; } } } /* see if any addresses still exist */ if (tochain == NULL) { rcode = 0; goto cleanup; } /* print out messages as full list */ strsize = 1; for (to = tochain; to != NULL; to = to->q_tchain) strsize += strlen(to->q_paddr) + 1; if (strsize < TOBUFSIZE) strsize = TOBUFSIZE; if (strsize > tobufsize) { SM_FREE(tobuf); tobuf = sm_pmalloc_x(strsize); tobufsize = strsize; } p = tobuf; *p = '\0'; for (to = tochain; to != NULL; to = to->q_tchain) { (void) sm_strlcpyn(p, tobufsize - (p - tobuf), 2, ",", to->q_paddr); p += strlen(p); } e->e_to = tobuf + 1; /* ** Fill out any parameters after the $u parameter. */ if (!clever) { while (*++mvp != NULL) { expand(*mvp, buf, sizeof(buf), e); p = buf; #if _FFR_8BITENVADDR && 0 /* disabled for now - is there a use case for this? */ if (((*mvp)[0] & 0377) == MACROEXPAND) { (void) dequote_internal_chars(buf, xbuf, sizeof(xbuf)); p = xbuf; if (tTd(10, 33)) sm_dprintf("expand(%s), dequoted=%s\n", *mvp, p); } #endif *pvp++ = sm_rpool_strdup_x(e->e_rpool, p); if (pvp >= &pv[MAXPV]) syserr("554 5.3.0 deliver: pv overflow after $u for %s", pv[0]); } } *pvp++ = NULL; /* ** Call the mailer. ** The argument vector gets built, pipes ** are created as necessary, and we fork & exec as ** appropriate. ** If we are running SMTP, we just need to clean up. */ /* XXX this seems a bit weird */ if (ctladdr == NULL && m != ProgMailer && m != FileMailer && bitset(QGOODUID, e->e_from.q_flags)) ctladdr = &e->e_from; #if NAMED_BIND if (ConfigLevel < 2) _res.options &= ~(RES_DEFNAMES | RES_DNSRCH); /* XXX */ #endif if (tTd(11, 1)) { sm_dprintf("openmailer:"); printav(sm_debug_file(), pv); } errno = 0; SM_SET_H_ERRNO(0); CurHostName = NULL; /* ** Deal with the special case of mail handled through an IPC ** connection. ** In this case we don't actually fork. We must be ** running SMTP for this to work. We will return a ** zero pid to indicate that we are running IPC. ** We also handle a debug version that just talks to stdin/out. */ curhost = NULL; SmtpPhase = NULL; mci = NULL; #if XDEBUG { char wbuf[MAXLINE]; /* make absolutely certain 0, 1, and 2 are in use */ (void) sm_snprintf(wbuf, sizeof(wbuf), "%s... openmailer(%s)", shortenstring(e->e_to, MAXSHORTSTR), m->m_name); checkfd012(wbuf); } #endif /* XDEBUG */ /* check for 8-bit available */ if (bitset(EF_HAS8BIT, e->e_flags) && bitnset(M_7BITS, m->m_flags) && (bitset(EF_DONT_MIME, e->e_flags) || !(bitset(MM_MIME8BIT, MimeMode) || (bitset(EF_IS_MIME, e->e_flags) && bitset(MM_CVTMIME, MimeMode))))) { e->e_status = "5.6.3"; usrerrenh(e->e_status, "554 Cannot send 8-bit data to 7-bit destination"); rcode = EX_DATAERR; goto give_up; } if (tTd(62, 8)) checkfds("before delivery"); /* check for Local Person Communication -- not for mortals!!! */ if (strcmp(m->m_mailer, "[LPC]") == 0) { if (clever) { /* flush any expired connections */ (void) mci_scan(NULL); /* try to get a cached connection or just a slot */ mci = mci_get(m->m_name, m); if (mci->mci_host == NULL) mci->mci_host = m->m_name; CurHostName = mci->mci_host; if (mci->mci_state != MCIS_CLOSED) { message("Using cached SMTP/LPC connection for %s...", m->m_name); mci->mci_deliveries++; goto do_transfer; } } else { mci = mci_new(e->e_rpool); } mci->mci_in = smioin; mci->mci_out = smioout; mci->mci_mailer = m; mci->mci_host = m->m_name; if (clever) { mci->mci_state = MCIS_OPENING; mci_cache(mci); } else mci->mci_state = MCIS_OPEN; } else if (strcmp(m->m_mailer, "[IPC]") == 0) { register int i; if (pv[0] == NULL || pv[1] == NULL || pv[1][0] == '\0') { syserr("null destination for %s mailer", m->m_mailer); rcode = EX_CONFIG; goto give_up; } #if NETUNIX if (strcmp(pv[0], "FILE") == 0) { curhost = CurHostName = "localhost"; mux_path = pv[1]; } else #endif /* NETUNIX */ /* "else" in #if code above */ { CurHostName = pv[1]; /* XXX ??? */ curhost = hostsignature(m, pv[1], QISSECURE(firstto), &firstto->q_flags); } if (curhost == NULL || curhost[0] == '\0') { syserr("null host signature for %s", pv[1]); rcode = EX_CONFIG; goto give_up; } if (!clever) { syserr("554 5.3.5 non-clever IPC"); rcode = EX_CONFIG; goto give_up; } if (pv[2] != NULL #if NETUNIX && mux_path == NULL #endif ) { port = htons((unsigned short) atoi(pv[2])); if (port == 0) { #ifdef NO_GETSERVBYNAME syserr("Invalid port number: %s", pv[2]); #else /* NO_GETSERVBYNAME */ struct servent *sp = getservbyname(pv[2], "tcp"); if (sp == NULL) syserr("Service %s unknown", pv[2]); else port = sp->s_port; #endif /* NO_GETSERVBYNAME */ } } nummxhosts = parse_hostsignature(curhost, mxhosts, m #if DANE , mxads #endif ); if (TimeOuts.to_aconnect > 0) enough = curtime() + TimeOuts.to_aconnect; tryhost: while (hostnum < nummxhosts) { char sep = ':'; char *endp; static char hostbuf[MAXNAME_I + 1]; bool tried_fallbacksmarthost = false; #if DANE unsigned long tlsa_flags; # if HSMARKS bool mxsecure; # endif ste = NULL; tlsa_flags = 0; # if HSMARKS mxsecure = MXADS_ISSET(mxads, hostnum); # endif #endif /* DANE */ FIX_MXHOSTS(mxhosts[hostnum], endp, sep); if (hostnum == 1 && skip_back != NULL) { /* ** Coattail piggybacking is no longer an ** option with the mail host next to be tried ** no longer the lowest MX preference ** (hostnum == 1 meaning we're on the second ** preference). We do not try to coattail ** piggyback more than the first MX preference. ** Revert 'tochain' to last location for ** coincidental piggybacking. This works this ** easily because the q_tchain kept getting ** added to the top of the linked list. */ tochain = skip_back; } if (*mxhosts[hostnum] == '\0') { syserr("deliver: null host name in signature"); hostnum++; if (endp != NULL) *endp = sep; continue; } (void) sm_strlcpy(hostbuf, mxhosts[hostnum], sizeof(hostbuf)); hostnum++; if (endp != NULL) *endp = sep; #if STARTTLS tlsstate = 0; #endif one_last_try: /* see if we already know that this host is fried */ CurHostName = hostbuf; mci = mci_get(hostbuf, m); #if DANE tlsa_flags = 0; # if HSMARKS if (mxsecure) firstto->q_flags |= QMXSECURE; else firstto->q_flags &= ~QMXSECURE; # endif if (TTD(90, 30)) sm_dprintf("deliver: mci_get: 1: mci=%p, host=%s, mx=%s, ste=%p, dane=%#x, mci_state=%d, QMXSECURE=%d, reqdane=%d, chk_dane_rcpt=%d, firstto=%s, to=%s\n", mci, host, hostbuf, ste, Dane, mci->mci_state, RCPT_MXSECURE(firstto), RCPT_REQ_DANE(firstto), CHK_DANE_RCPT(Dane, firstto), firstto->q_user, e->e_to); if (CHK_DANE_RCPT(Dane, firstto)) { (void) gettlsa(hostbuf, NULL, &ste, RCPT_MXSECURE(firstto) ? TLSAFLADMX : 0, 0, m->m_port); } if (TTD(90, 30)) sm_dprintf("deliver: host=%s, mx=%s, ste=%p, chk_dane=%d\n", host, hostbuf, ste, CHK_DANE_RCPT(Dane, firstto)); /* XXX: check expiration! */ if (ste != NULL && TLSA_RR_TEMPFAIL(ste->s_tlsa)) { if (tTd(11, 1)) sm_dprintf("skip: host=%s, TLSA_RR_lookup=%d\n" , hostbuf , ste->s_tlsa->dane_tlsa_dnsrc); tlsa_flags |= TLSAFLTEMP; } else if (ste != NULL && TTD(90, 30)) { if (ste->s_tlsa != NULL) sm_dprintf("deliver: host=%s, mx=%s, tlsa_n=%d, tlsa_flags=%#lx, ssl=%p, chk=%#x, res=%d\n" , host, hostbuf , ste->s_tlsa->dane_tlsa_n , ste->s_tlsa->dane_tlsa_flags , mci->mci_ssl , mci->mci_tlsi.tlsi_dvc.dane_vrfy_chk , mci->mci_tlsi.tlsi_dvc.dane_vrfy_res ); else sm_dprintf("deliver: host=%s, mx=%s, notlsa\n", host, hostbuf); } if (mci->mci_state != MCIS_CLOSED) { bool dane_old, dane_new, new_session; /* CHK_DANE(Dane): implicit via ste != NULL */ dane_new = !iscltflgset(e, D_NODANE) && ste != NULL && ste->s_tlsa != NULL && TLSA_IS_FL(ste->s_tlsa, TLSAFLSUP); dane_old = CHK_DANE(mci->mci_tlsi.tlsi_dvc.dane_vrfy_chk); new_session = (dane_old != dane_new); vrfy = ""; if (dane_old && new_session) { vrfy = macget(&mci->mci_macro, macid("{verify}")); new_session = NULL == vrfy || strcmp("TRUSTED", vrfy) != 0; } if (TTD(11, 32)) sm_dprintf("deliver: host=%s, mx=%s, dane_old=%d, dane_new=%d, new_session=%d, vrfy=%s\n", host, hostbuf, dane_old, dane_new, new_session, vrfy); if (new_session) { if (TTD(11, 34)) sm_dprintf("deliver: host=%s, mx=%s, old_mci=%p, state=%d\n", host, hostbuf, mci, mci->mci_state); smtpquit(mci->mci_mailer, mci, e); if (TTD(11, 34)) sm_dprintf("deliver: host=%s, mx=%s, new_mci=%p, state=%d\n", host, hostbuf, mci, mci->mci_state); } else { /* are tlsa_flags the same as dane_vrfy_chk? */ tlsa_flags = mci->mci_tlsi.tlsi_dvc.dane_vrfy_chk; memcpy(&dane_vrfy_ctx, &mci->mci_tlsi.tlsi_dvc.dane_vrfy_chk, sizeof(dane_vrfy_ctx)); dane_vrfy_ctx.dane_vrfy_host = NULL; dane_vrfy_ctx.dane_vrfy_sni = NULL; if (TTD(90, 40)) sm_dprintf("deliver: host=%s, mx=%s, state=reuse, chk=%#x\n", host, hostbuf, mci->mci_tlsi.tlsi_dvc.dane_vrfy_chk); } } #endif /* DANE */ if (mci->mci_state != MCIS_CLOSED) { char *type; if (tTd(11, 1)) { sm_dprintf("openmailer: "); mci_dump(sm_debug_file(), mci, false); } CurHostName = mci->mci_host; if (bitnset(M_LMTP, m->m_flags)) type = "L"; else if (bitset(MCIF_ESMTP, mci->mci_flags)) type = "ES"; else type = "S"; message("Using cached %sMTP connection to %s via %s...", type, hostbuf, m->m_name); mci->mci_deliveries++; break; } mci->mci_mailer = m; if (mci->mci_exitstat != EX_OK) { if (mci->mci_exitstat == EX_TEMPFAIL) goodmxfound = true; /* Try FallbackSmartHost? */ if (should_try_fbsh(e, &tried_fallbacksmarthost, hostbuf, sizeof(hostbuf), mci->mci_exitstat)) goto one_last_try; continue; } if (mci_lock_host(mci) != EX_OK) { mci_setstat(mci, EX_TEMPFAIL, "4.4.5", NULL); goodmxfound = true; continue; } /* try the connection */ sm_setproctitle(true, e, "%s %s: %s", qid_printname(e), hostbuf, "user open"); i = EX_OK; e->e_mci = mci; #if STARTTLS || SASL if ((i = cltfeatures(e, hostbuf)) != EX_OK) { if (LogLevel > 8) sm_syslog(LOG_WARNING, e->e_id, "clt_features=TEMPFAIL, host=%s, status=skipped" , hostbuf); /* XXX handle error! */ (void) sm_strlcpy(SmtpError, "clt_features=TEMPFAIL", sizeof(SmtpError)); # if DANE tlsa_flags &= ~TLSAFLTEMP; # endif } # if DANE /* hack: disable DANE if requested */ if (iscltflgset(e, D_NODANE)) ste = NULL; tlsa_flags |= ste != NULL ? Dane : DANE_NEVER; dane_vrfy_ctx.dane_vrfy_chk = tlsa_flags; dane_vrfy_ctx.dane_vrfy_port = m->m_port; if (TTD(11, 11)) sm_dprintf("deliver: makeconnection=before, chk=%#x, tlsa_flags=%#lx, {client_flags}=%s, stat=%d, dane_enabled=%d\n", dane_vrfy_ctx.dane_vrfy_chk, tlsa_flags, macvalue(macid("{client_flags}"), e), i, dane_vrfy_ctx.dane_vrfy_dane_enabled); # endif /* DANE */ #endif /* STARTTLS || SASL */ #if NETUNIX if (mux_path != NULL) { message("Connecting to %s via %s...", mux_path, m->m_name); if (EX_OK == i) { i = makeconnection_ds((char *) mux_path, mci); #if DANE /* fake it: "IP is secure" */ tlsa_flags |= TLSAFLADIP; #endif } } else #endif /* NETUNIX */ /* "else" in #if code above */ { if (port == 0) message("Connecting to %s via %s...", hostbuf, m->m_name); else message("Connecting to %s port %d via %s...", hostbuf, ntohs(port), m->m_name); /* ** set the current connection information, ** required to set {client_flags} in e->e_mci */ if (EX_OK == i) i = makeconnection(hostbuf, port, mci, e, enough #if DANE , &tlsa_flags #endif ); } #if DANE if (TTD(11, 11)) sm_dprintf("deliver: makeconnection=after, chk=%#x, tlsa_flags=%#lx, stat=%d\n", dane_vrfy_ctx.dane_vrfy_chk, tlsa_flags, i); #if OLD_WAY_TLSA_FLAGS if (dane_vrfy_ctx.dane_vrfy_chk != DANE_ALWAYS) dane_vrfy_ctx.dane_vrfy_chk = DANEMODE(tlsa_flags); #else dane_vrfy_ctx.dane_vrfy_chk = tlsa_flags; #endif if (EX_TEMPFAIL == i && ((tlsa_flags & (TLSAFLTEMP|DANE_SECURE)) == (TLSAFLTEMP|DANE_SECURE))) { (void) sm_strlcpy(SmtpError, " for TLSA RR", sizeof(SmtpError)); # if NAMED_BIND SM_SET_H_ERRNO(TRY_AGAIN); # endif } #endif /* DANE */ mci->mci_errno = errno; mci->mci_lastuse = curtime(); mci->mci_deliveries = 0; mci->mci_exitstat = i; mci_clr_extensions(mci); #if NAMED_BIND mci->mci_herrno = h_errno; #endif /* ** Have we tried long enough to get a connection? ** If yes, skip to the fallback MX hosts ** (if existent). */ if (enough > 0 && mci->mci_lastuse >= enough) { int h; #if NAMED_BIND extern int NumFallbackMXHosts; #else const int NumFallbackMXHosts = 0; #endif if (hostnum < nummxhosts && LogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "Timeout.to_aconnect occurred before exhausting all addresses"); /* turn off timeout if fallback available */ if (NumFallbackMXHosts > 0) enough = 0; /* skip to a fallback MX host */ h = nummxhosts - NumFallbackMXHosts; if (hostnum < h) hostnum = h; } if (i == EX_OK) { goodmxfound = true; markstats(e, firstto, STATS_CONNECT); mci->mci_state = MCIS_OPENING; mci_cache(mci); if (TrafficLogFile != NULL) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d === CONNECT %s\n", (int) CurrentPid, hostbuf); break; } else { /* Try FallbackSmartHost? */ if (should_try_fbsh(e, &tried_fallbacksmarthost, hostbuf, sizeof(hostbuf), i)) goto one_last_try; if (tTd(11, 1)) sm_dprintf("openmailer: makeconnection(%s) => stat=%d, errno=%d\n", hostbuf, i, errno); if (i == EX_TEMPFAIL) goodmxfound = true; mci_unlock_host(mci); } /* enter status of this host */ setstat(i); /* should print some message here for -v mode */ } if (mci == NULL) { syserr("deliver: no host name"); rcode = EX_SOFTWARE; goto give_up; } mci->mci_pid = 0; } else { /* flush any expired connections */ (void) mci_scan(NULL); mci = NULL; if (bitnset(M_LMTP, m->m_flags)) { /* try to get a cached connection */ mci = mci_get(m->m_name, m); if (mci->mci_host == NULL) mci->mci_host = m->m_name; CurHostName = mci->mci_host; if (mci->mci_state != MCIS_CLOSED) { message("Using cached LMTP connection for %s...", m->m_name); mci->mci_deliveries++; goto do_transfer; } } /* announce the connection to verbose listeners */ if (host == NULL || host[0] == '\0') message("Connecting to %s...", m->m_name); else message("Connecting to %s via %s...", host, m->m_name); if (TrafficLogFile != NULL) { char **av; (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d === EXEC", (int) CurrentPid); for (av = pv; *av != NULL; av++) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, " %s", *av); (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "\n"); } checkfd012("before creating mail pipe"); /* create a pipe to shove the mail through */ if (pipe(mpvect) < 0) { syserr("%s... openmailer(%s): pipe (to mailer)", shortenstring(e->e_to, MAXSHORTSTR), m->m_name); if (tTd(11, 1)) sm_dprintf("openmailer: NULL\n"); rcode = EX_OSERR; goto give_up; } #if XDEBUG /* make sure we didn't get one of the standard I/O files */ if (mpvect[0] < 3 || mpvect[1] < 3) { syserr("%s... openmailer(%s): bogus mpvect %d %d", shortenstring(e->e_to, MAXSHORTSTR), m->m_name, mpvect[0], mpvect[1]); printopenfds(true); if (tTd(11, 1)) sm_dprintf("openmailer: NULL\n"); rcode = EX_OSERR; goto give_up; } /* make sure system call isn't dead meat */ checkfdopen(mpvect[0], "mpvect[0]"); checkfdopen(mpvect[1], "mpvect[1]"); if (mpvect[0] == mpvect[1] || (e->e_lockfp != NULL && (mpvect[0] == sm_io_getinfo(e->e_lockfp, SM_IO_WHAT_FD, NULL) || mpvect[1] == sm_io_getinfo(e->e_lockfp, SM_IO_WHAT_FD, NULL)))) { if (e->e_lockfp == NULL) syserr("%s... openmailer(%s): overlapping mpvect %d %d", shortenstring(e->e_to, MAXSHORTSTR), m->m_name, mpvect[0], mpvect[1]); else syserr("%s... openmailer(%s): overlapping mpvect %d %d, lockfp = %d", shortenstring(e->e_to, MAXSHORTSTR), m->m_name, mpvect[0], mpvect[1], sm_io_getinfo(e->e_lockfp, SM_IO_WHAT_FD, NULL)); } #endif /* XDEBUG */ /* create a return pipe */ if (pipe(rpvect) < 0) { syserr("%s... openmailer(%s): pipe (from mailer)", shortenstring(e->e_to, MAXSHORTSTR), m->m_name); (void) close(mpvect[0]); (void) close(mpvect[1]); if (tTd(11, 1)) sm_dprintf("openmailer: NULL\n"); rcode = EX_OSERR; goto give_up; } checkfdopen(rpvect[0], "rpvect[0]"); checkfdopen(rpvect[1], "rpvect[1]"); /* ** Actually fork the mailer process. ** DOFORK is clever about retrying. ** ** Dispose of SIGCHLD signal catchers that may be laying ** around so that endmailer will get it. */ if (e->e_xfp != NULL) /* for debugging */ (void) sm_io_flush(e->e_xfp, SM_TIME_DEFAULT); (void) sm_io_flush(smioout, SM_TIME_DEFAULT); (void) sm_signal(SIGCHLD, SIG_DFL); DOFORK(FORK); /* pid is set by DOFORK */ if (pid < 0) { /* failure */ syserr("%s... openmailer(%s): cannot fork", shortenstring(e->e_to, MAXSHORTSTR), m->m_name); (void) close(mpvect[0]); (void) close(mpvect[1]); (void) close(rpvect[0]); (void) close(rpvect[1]); if (tTd(11, 1)) sm_dprintf("openmailer: NULL\n"); rcode = EX_OSERR; goto give_up; } else if (pid == 0) { int save_errno; int sff; int new_euid = NO_UID; int new_ruid = NO_UID; int new_gid = NO_GID; char *user = NULL; struct stat stb; extern int DtableSize; CurrentPid = getpid(); /* clear the events to turn off SIGALRMs */ sm_clear_events(); /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; if (e->e_lockfp != NULL) (void) close(sm_io_getinfo(e->e_lockfp, SM_IO_WHAT_FD, NULL)); /* child -- set up input & exec mailer */ (void) sm_signal(SIGALRM, sm_signal_noop); (void) sm_signal(SIGCHLD, SIG_DFL); (void) sm_signal(SIGHUP, SIG_IGN); (void) sm_signal(SIGINT, SIG_IGN); (void) sm_signal(SIGTERM, SIG_DFL); #ifdef SIGUSR1 (void) sm_signal(SIGUSR1, sm_signal_noop); #endif if (m != FileMailer || stat(tochain->q_user, &stb) < 0) stb.st_mode = 0; #if HASSETUSERCONTEXT /* ** Set user resources. */ if (contextaddr != NULL) { int sucflags; struct passwd *pwd; if (contextaddr->q_ruser != NULL) pwd = sm_getpwnam(contextaddr->q_ruser); else pwd = sm_getpwnam(contextaddr->q_user); sucflags = LOGIN_SETRESOURCES|LOGIN_SETPRIORITY; # ifdef LOGIN_SETCPUMASK sucflags |= LOGIN_SETCPUMASK; # endif # ifdef LOGIN_SETLOGINCLASS sucflags |= LOGIN_SETLOGINCLASS; # endif # ifdef LOGIN_SETMAC sucflags |= LOGIN_SETMAC; # endif if (pwd != NULL && setusercontext(NULL, pwd, pwd->pw_uid, sucflags) == -1 && suidwarn) { syserr("openmailer: setusercontext() failed"); exit(EX_TEMPFAIL); } } #endif /* HASSETUSERCONTEXT */ #if HASNICE /* tweak niceness */ if (m->m_nice != 0) (void) nice(m->m_nice); #endif /* reset group id */ if (bitnset(M_SPECIFIC_UID, m->m_flags)) { if (m->m_gid == NO_GID) new_gid = RunAsGid; else new_gid = m->m_gid; } else if (bitset(S_ISGID, stb.st_mode)) new_gid = stb.st_gid; else if (ctladdr != NULL && ctladdr->q_gid != 0) { if (!DontInitGroups) { user = ctladdr->q_ruser; if (user == NULL) user = ctladdr->q_user; if (initgroups(user, ctladdr->q_gid) == -1 && suidwarn) { syserr("openmailer: initgroups(%s, %ld) failed", user, (long) ctladdr->q_gid); exit(EX_TEMPFAIL); } } else { GIDSET_T gidset[1]; gidset[0] = ctladdr->q_gid; if (setgroups(1, gidset) == -1 && suidwarn) { syserr("openmailer: setgroups() failed"); exit(EX_TEMPFAIL); } } new_gid = ctladdr->q_gid; } else { if (!DontInitGroups) { user = DefUser; if (initgroups(DefUser, DefGid) == -1 && suidwarn) { syserr("openmailer: initgroups(%s, %ld) failed", DefUser, (long) DefGid); exit(EX_TEMPFAIL); } } else { GIDSET_T gidset[1]; gidset[0] = DefGid; if (setgroups(1, gidset) == -1 && suidwarn) { syserr("openmailer: setgroups() failed"); exit(EX_TEMPFAIL); } } if (m->m_gid == NO_GID) new_gid = DefGid; else new_gid = m->m_gid; } if (new_gid != NO_GID) { if (RunAsUid != 0 && bitnset(M_SPECIFIC_UID, m->m_flags) && new_gid != getgid() && new_gid != getegid()) { /* Only root can change the gid */ syserr("openmailer: insufficient privileges to change gid, RunAsUid=%ld, new_gid=%ld, gid=%ld, egid=%ld", (long) RunAsUid, (long) new_gid, (long) getgid(), (long) getegid()); exit(EX_TEMPFAIL); } if (setgid(new_gid) < 0 && suidwarn) { syserr("openmailer: setgid(%ld) failed", (long) new_gid); exit(EX_TEMPFAIL); } } /* change root to some "safe" directory */ if (m->m_rootdir != NULL) { expand(m->m_rootdir, cbuf, sizeof(cbuf), e); if (tTd(11, 20)) sm_dprintf("openmailer: chroot %s\n", cbuf); if (chroot(cbuf) < 0) { syserr("openmailer: Cannot chroot(%s)", cbuf); exit(EX_TEMPFAIL); } if (chdir("/") < 0) { syserr("openmailer: cannot chdir(/)"); exit(EX_TEMPFAIL); } } /* reset user id */ endpwent(); sm_mbdb_terminate(); if (bitnset(M_SPECIFIC_UID, m->m_flags)) { if (m->m_uid == NO_UID) new_euid = RunAsUid; else new_euid = m->m_uid; /* ** Undo the effects of the uid change in main ** for signal handling. The real uid may ** be used by mailer in adding a "From " ** line. */ if (RealUid != 0 && RealUid != getuid()) { #if MAILER_SETUID_METHOD == USE_SETEUID # if HASSETREUID if (setreuid(RealUid, geteuid()) < 0) { syserr("openmailer: setreuid(%d, %d) failed", (int) RealUid, (int) geteuid()); exit(EX_OSERR); } # endif /* HASSETREUID */ #endif /* MAILER_SETUID_METHOD == USE_SETEUID */ #if MAILER_SETUID_METHOD == USE_SETREUID new_ruid = RealUid; #endif } } else if (bitset(S_ISUID, stb.st_mode)) new_ruid = stb.st_uid; else if (ctladdr != NULL && ctladdr->q_uid != 0) new_ruid = ctladdr->q_uid; else if (m->m_uid != NO_UID) new_ruid = m->m_uid; else new_ruid = DefUid; #if _FFR_USE_SETLOGIN /* run disconnected from terminal and set login name */ if (setsid() >= 0 && ctladdr != NULL && ctladdr->q_uid != 0 && new_euid == ctladdr->q_uid) { struct passwd *pwd; pwd = sm_getpwuid(ctladdr->q_uid); if (pwd != NULL && suidwarn) (void) setlogin(pwd->pw_name); endpwent(); } #endif /* _FFR_USE_SETLOGIN */ if (new_euid != NO_UID) { if (RunAsUid != 0 && new_euid != RunAsUid) { /* Only root can change the uid */ syserr("openmailer: insufficient privileges to change uid, new_euid=%ld, RunAsUid=%ld", (long) new_euid, (long) RunAsUid); exit(EX_TEMPFAIL); } vendor_set_uid(new_euid); #if MAILER_SETUID_METHOD == USE_SETEUID if (seteuid(new_euid) < 0 && suidwarn) { syserr("openmailer: seteuid(%ld) failed", (long) new_euid); exit(EX_TEMPFAIL); } #endif /* MAILER_SETUID_METHOD == USE_SETEUID */ #if MAILER_SETUID_METHOD == USE_SETREUID if (setreuid(new_ruid, new_euid) < 0 && suidwarn) { syserr("openmailer: setreuid(%ld, %ld) failed", (long) new_ruid, (long) new_euid); exit(EX_TEMPFAIL); } #endif /* MAILER_SETUID_METHOD == USE_SETREUID */ #if MAILER_SETUID_METHOD == USE_SETUID if (new_euid != geteuid() && setuid(new_euid) < 0 && suidwarn) { syserr("openmailer: setuid(%ld) failed", (long) new_euid); exit(EX_TEMPFAIL); } #endif /* MAILER_SETUID_METHOD == USE_SETUID */ } else if (new_ruid != NO_UID) { vendor_set_uid(new_ruid); if (setuid(new_ruid) < 0 && suidwarn) { syserr("openmailer: setuid(%ld) failed", (long) new_ruid); exit(EX_TEMPFAIL); } } if (tTd(11, 2)) sm_dprintf("openmailer: running as r/euid=%ld/%ld, r/egid=%ld/%ld\n", (long) getuid(), (long) geteuid(), (long) getgid(), (long) getegid()); /* move into some "safe" directory */ if (m->m_execdir != NULL) { char *q; for (p = m->m_execdir; p != NULL; p = q) { q = strchr(p, ':'); if (q != NULL) *q = '\0'; expand(p, cbuf, sizeof(cbuf), e); if (q != NULL) *q++ = ':'; if (tTd(11, 20)) sm_dprintf("openmailer: trydir %s\n", cbuf); if (cbuf[0] != '\0' && chdir(cbuf) >= 0) break; } } /* Check safety of program to be run */ sff = SFF_ROOTOK|SFF_EXECOK; if (!bitnset(DBS_RUNWRITABLEPROGRAM, DontBlameSendmail)) sff |= SFF_NOGWFILES|SFF_NOWWFILES; if (bitnset(DBS_RUNPROGRAMINUNSAFEDIRPATH, DontBlameSendmail)) sff |= SFF_NOPATHCHECK; else sff |= SFF_SAFEDIRPATH; ret = safefile(m->m_mailer, getuid(), getgid(), user, sff, 0, NULL); if (ret != 0) sm_syslog(LOG_INFO, e->e_id, "Warning: program %s unsafe: %s", m->m_mailer, sm_errstring(ret)); /* arrange to filter std & diag output of command */ (void) close(rpvect[0]); if (dup2(rpvect[1], STDOUT_FILENO) < 0) { syserr("%s... openmailer(%s): cannot dup pipe %d for stdout", shortenstring(e->e_to, MAXSHORTSTR), m->m_name, rpvect[1]); _exit(EX_OSERR); } (void) close(rpvect[1]); if (dup2(STDOUT_FILENO, STDERR_FILENO) < 0) { syserr("%s... openmailer(%s): cannot dup stdout for stderr", shortenstring(e->e_to, MAXSHORTSTR), m->m_name); _exit(EX_OSERR); } /* arrange to get standard input */ (void) close(mpvect[1]); if (dup2(mpvect[0], STDIN_FILENO) < 0) { syserr("%s... openmailer(%s): cannot dup pipe %d for stdin", shortenstring(e->e_to, MAXSHORTSTR), m->m_name, mpvect[0]); _exit(EX_OSERR); } (void) close(mpvect[0]); /* arrange for all the files to be closed */ sm_close_on_exec(STDERR_FILENO + 1, DtableSize); #if !_FFR_USE_SETLOGIN /* run disconnected from terminal */ (void) setsid(); #endif /* try to execute the mailer */ (void) execve(m->m_mailer, (ARGV_T) pv, (ARGV_T) UserEnviron); save_errno = errno; syserr("Cannot exec %s", m->m_mailer); if (bitnset(M_LOCALMAILER, m->m_flags) || transienterror(save_errno)) _exit(EX_OSERR); _exit(EX_UNAVAILABLE); } /* ** Set up return value. */ if (mci == NULL) { if (clever) { /* ** Allocate from general heap, not ** envelope rpool, because this mci ** is going to be cached. */ mci = mci_new(NULL); } else { /* ** Prevent a storage leak by allocating ** this from the envelope rpool. */ mci = mci_new(e->e_rpool); } } mci->mci_mailer = m; if (clever) { mci->mci_state = MCIS_OPENING; mci_cache(mci); } else { mci->mci_state = MCIS_OPEN; } mci->mci_pid = pid; (void) close(mpvect[0]); mci->mci_out = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &(mpvect[1]), SM_IO_WRONLY_B, NULL); if (mci->mci_out == NULL) { syserr("deliver: cannot create mailer output channel, fd=%d", mpvect[1]); (void) close(mpvect[1]); (void) close(rpvect[0]); (void) close(rpvect[1]); rcode = EX_OSERR; goto give_up; } (void) close(rpvect[1]); mci->mci_in = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &(rpvect[0]), SM_IO_RDONLY_B, NULL); if (mci->mci_in == NULL) { syserr("deliver: cannot create mailer input channel, fd=%d", mpvect[1]); (void) close(rpvect[0]); SM_CLOSE_FP(mci->mci_out); rcode = EX_OSERR; goto give_up; } } /* ** If we are in SMTP opening state, send initial protocol. */ if (bitnset(M_7BITS, m->m_flags) && (!clever || mci->mci_state == MCIS_OPENING)) mci->mci_flags |= MCIF_7BIT; if (clever && mci->mci_state != MCIS_CLOSED) { #if STARTTLS || SASL char *srvname; int dotpos; # if SASL # define DONE_AUTH(f) bitset(MCIF_AUTHACT, f) # endif # if STARTTLS # define DONE_STARTTLS(f) bitset(MCIF_TLSACT, f) # endif srvname = setservermacros(mci, &dotpos); # if DANE SM_FREE(dane_vrfy_ctx.dane_vrfy_host); SM_FREE(dane_vrfy_ctx.dane_vrfy_sni); dane_vrfy_ctx.dane_vrfy_fp[0] = '\0'; if (STE_HAS_TLSA(ste) && ste->s_tlsa->dane_tlsa_sni != NULL) dane_vrfy_ctx.dane_vrfy_sni = sm_strdup(ste->s_tlsa->dane_tlsa_sni); dane_vrfy_ctx.dane_vrfy_host = sm_strdup(srvname); # endif /* DANE */ /* undo change of srvname (== mci->mci_host) */ FIX_TRAIL_DOT(srvname); reconnect: /* after switching to an encrypted connection */ # if DANE if (DONE_STARTTLS(mci->mci_flags)) { /* use a "reset" function? */ /* when is it required to "reset" this data? */ SM_FREE(dane_vrfy_ctx.dane_vrfy_host); SM_FREE(dane_vrfy_ctx.dane_vrfy_sni); dane_vrfy_ctx.dane_vrfy_fp[0] = '\0'; dane_vrfy_ctx.dane_vrfy_res = DANE_VRFY_NONE; dane_vrfy_ctx.dane_vrfy_dane_enabled = false; if (TTD(90, 40)) sm_dprintf("deliver: reset: chk=%#x, dane_enabled=%d\n", dane_vrfy_ctx.dane_vrfy_chk, dane_vrfy_ctx.dane_vrfy_dane_enabled); } # endif /* DANE */ #endif /* STARTTLS || SASL */ /* set the current connection information */ e->e_mci = mci; #if SASL mci->mci_saslcap = NULL; #endif #if _FFR_MTA_STS # define USEMTASTS (MTASTS && !SM_TLSI_IS(&(mci->mci_tlsi), TLSI_FL_NOSTS) && !iscltflgset(e, D_NOSTS)) # if DANE # define CHKMTASTS (USEMTASTS && (ste == NULL || ste->s_tlsa == NULL || SM_TLSI_IS(&(mci->mci_tlsi), TLSI_FL_NODANE))) # else # define CHKMTASTS USEMTASTS # endif #endif /* _FFR_MTA_STS */ #if _FFR_MTA_STS if (!DONE_STARTTLS(mci->mci_flags)) { /* ** HACK: use the domain of the first valid RCPT for STS. ** It seems whoever wrote the specs did not consider ** SMTP sessions versus transactions. ** (but what would you expect from people who try ** to use https for "security" after relying on DNS?) */ macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), ""); # if DANE if (MTASTS && STE_HAS_TLSA(ste)) macdefine(&e->e_macro, A_PERM, macid("{sts_sni}"), "DANE"); else # endif macdefine(&e->e_macro, A_PERM, macid("{sts_sni}"), ""); if (USEMTASTS && firstto->q_user != NULL) { if (tTd(10, 64)) { sm_dprintf("firstto "); printaddr(sm_debug_file(), firstto, false); } macdefine(&e->e_macro, A_TEMP, macid("{rcpt_addr}"), firstto->q_user); } else if (USEMTASTS) { if (tTd(10, 64)) { sm_dprintf("tochain "); printaddr(sm_debug_file(), tochain, false); } for (to = tochain; to != NULL; to = to->q_tchain) { if (!QS_IS_UNMARKED(to->q_state)) continue; if (to->q_user == NULL) continue; macdefine(&e->e_macro, A_TEMP, macid("{rcpt_addr}"), to->q_user); break; } } } #endif /* _FFR_MTA_STS */ #if USE_EAI if (!addr_is_ascii(e->e_from.q_paddr) && !e->e_smtputf8) e->e_smtputf8 = true; for (to = tochain; to != NULL && !e->e_smtputf8; to = to->q_tchain) { if (!QS_IS_UNMARKED(to->q_state)) continue; if (!addr_is_ascii(to->q_user)) e->e_smtputf8 = true; } /* XXX reset e_smtputf8 to original state at the end? */ #endif /* USE_EAI */ #define ONLY_HELO(f) bitset(MCIF_ONLY_EHLO, f) #define SET_HELO(f) f |= MCIF_ONLY_EHLO #define CLR_HELO(f) f &= ~MCIF_ONLY_EHLO #if _FFR_SMTPS_CLIENT && STARTTLS /* ** For M_SMTPS_CLIENT, we do the STARTTLS code first, ** then jump back and start the SMTP conversation. */ implicittls = bitnset(M_SMTPS_CLIENT, mci->mci_mailer->m_flags); if (implicittls) goto dotls; backtosmtp: #endif /* _FFR_SMTPS_CLIENT && STARTTLS */ smtpinit(m, mci, e, ONLY_HELO(mci->mci_flags)); CLR_HELO(mci->mci_flags); if (IS_DLVR_RETURN(e)) { /* ** Check whether other side can deliver e-mail ** fast enough */ if (!bitset(MCIF_DLVR_BY, mci->mci_flags)) { e->e_status = "5.4.7"; usrerrenh(e->e_status, "554 Server does not support Deliver By"); rcode = EX_UNAVAILABLE; goto give_up; } if (e->e_deliver_by > 0 && e->e_deliver_by - (curtime() - e->e_ctime) < mci->mci_min_by) { e->e_status = "5.4.7"; usrerrenh(e->e_status, "554 Message can't be delivered in time; %ld < %ld", e->e_deliver_by - (long) (curtime() - e->e_ctime), mci->mci_min_by); rcode = EX_UNAVAILABLE; goto give_up; } } #if STARTTLS # if _FFR_SMTPS_CLIENT dotls: # endif /* first TLS then AUTH to provide a security layer */ if (mci->mci_state != MCIS_CLOSED && !DONE_STARTTLS(mci->mci_flags)) { int olderrors; bool usetls; bool saveQuickAbort = QuickAbort; bool saveSuprErrs = SuprErrs; char *srvname = NULL; rcode = EX_OK; usetls = bitset(MCIF_TLS, mci->mci_flags) || implicittls; if (usetls) usetls = !iscltflgset(e, D_NOTLS); if (usetls) usetls = tlsstate == 0; srvname = macvalue(macid("{server_name}"), e); if (usetls) { olderrors = Errors; QuickAbort = false; SuprErrs = true; if (rscheck("try_tls", srvname, NULL, e, RSF_RMCOMM|RSF_STATUS, 7, srvname, NOQID, NULL, NULL) != EX_OK || Errors > olderrors) { usetls = false; } SuprErrs = saveSuprErrs; QuickAbort = saveQuickAbort; } if (usetls) { if ((rcode = starttls(m, mci, e, implicittls # if DANE , &dane_vrfy_ctx # endif )) == EX_OK) { /* start again without STARTTLS */ mci->mci_flags |= MCIF_TLSACT; # if DANE && _FFR_MTA_STS /* if DANE is used (and STS should be used): disable STS */ /* also check MTASTS and NOSTS flag? */ if (STE_HAS_TLSA(ste) && !SM_TLSI_IS(&(mci->mci_tlsi), TLSI_FL_NODANE)) macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), ""); # endif } else { char *s; /* ** TLS negotiation failed, what to do? ** fall back to unencrypted connection ** or abort? How to decide? ** set a macro and call a ruleset. */ mci->mci_flags &= ~MCIF_TLS; switch (rcode) { case EX_TEMPFAIL: s = "TEMP"; break; #if 0 /* see starttls() */ case EX_USAGE: s = "USAGE"; break; #endif case EX_PROTOCOL: s = "PROTOCOL"; break; case EX_SOFTWARE: s = "SOFTWARE"; break; case EX_UNAVAILABLE: s = "NONE"; break; /* ** Possible return from ruleset ** tls_clt_features via ** get_tls_se_features(). */ case EX_CONFIG: s = "CONFIG"; break; /* everything else is a failure */ default: s = "FAILURE"; rcode = EX_TEMPFAIL; } # if DANE /* ** TLSA found but STARTTLS "failed"? ** What is the best way to "fail"? ** XXX: check expiration! */ if (!iscltflgset(e, D_NODANE) && STE_HAS_TLSA(ste) && TLSA_HAS_RRs(ste->s_tlsa)) { if (LogLevel > 8) sm_syslog(LOG_NOTICE, NOQID, "STARTTLS=client, relay=%.100s, warning=DANE configured in DNS but STARTTLS failed", srvname); /* XXX include TLSA RR from DNS? */ /* ** Only override codes which ** do not cause a failure ** in the default rules. */ if (EX_PROTOCOL != rcode && EX_SOFTWARE != rcode && EX_CONFIG != rcode) { /* s = "DANE_TEMP"; */ dane_vrfy_ctx.dane_vrfy_chk |= TLSAFLNOTLS; } } # endif /* DANE */ macdefine(&e->e_macro, A_PERM, macid("{verify}"), s); } } else { p = tlsstate == 0 ? "NONE": "CLEAR"; # if DANE /* ** TLSA found but STARTTLS not offered? ** What is the best way to "fail"? ** XXX: check expiration! */ if (!bitset(MCIF_TLS, mci->mci_flags) && !iscltflgset(e, D_NODANE) && STE_HAS_TLSA(ste) && TLSA_HAS_RRs(ste->s_tlsa)) { if (LogLevel > 8) sm_syslog(LOG_NOTICE, NOQID, "STARTTLS=client, relay=%.100s, warning=DANE configured in DNS but STARTTLS not offered", srvname); /* XXX include TLSA RR from DNS? */ } # endif /* DANE */ macdefine(&e->e_macro, A_PERM, macid("{verify}"), p); } olderrors = Errors; QuickAbort = false; SuprErrs = true; /* ** rcode == EX_SOFTWARE is special: ** the TLS negotiation failed ** we have to drop the connection no matter what. ** However, we call tls_server to give it the chance ** to log the problem and return an appropriate ** error code. */ if (rscheck("tls_server", macvalue(macid("{verify}"), e), NULL, e, RSF_RMCOMM|RSF_COUNT, 5, srvname, NOQID, NULL, NULL) != EX_OK || Errors > olderrors || rcode == EX_SOFTWARE) { char enhsc[ENHSCLEN]; extern char MsgBuf[]; if (ISSMTPCODE(MsgBuf) && extenhsc(MsgBuf + 4, ' ', enhsc) > 0) { p = sm_rpool_strdup_x(e->e_rpool, MsgBuf); } else { p = "403 4.7.0 server not authenticated."; (void) sm_strlcpy(enhsc, "4.7.0", sizeof(enhsc)); } SuprErrs = saveSuprErrs; QuickAbort = saveQuickAbort; if (rcode == EX_SOFTWARE) { /* drop the connection */ mci->mci_state = MCIS_ERROR; SM_CLOSE_FP(mci->mci_out); mci->mci_flags &= ~MCIF_TLSACT; (void) endmailer(mci, e, pv); if ((TLSFallbacktoClear || SM_TLSI_IS(&(mci->mci_tlsi), TLSI_FL_FB2CLR)) && !SM_TLSI_IS(&(mci->mci_tlsi), TLSI_FL_NOFB2CLR) # if DANE && dane_vrfy_ctx.dane_vrfy_chk != DANE_SECURE # endif # if _FFR_MTA_STS && !SM_TLSI_IS(&(mci->mci_tlsi), TLSI_FL_STS_NOFB2CLR) # endif ) { ++tlsstate; } } else { /* abort transfer */ smtpquit(m, mci, e); } /* avoid bogus error msg */ mci->mci_errno = 0; /* temp or permanent failure? */ rcode = (*p == '4') ? EX_TEMPFAIL : EX_UNAVAILABLE; mci_setstat(mci, rcode, enhsc, p); /* ** hack to get the error message into ** the envelope (done in giveresponse()) */ (void) sm_strlcpy(SmtpError, p, sizeof(SmtpError)); } else if (mci->mci_state == MCIS_CLOSED) { /* connection close caused by 421 */ mci->mci_errno = 0; rcode = EX_TEMPFAIL; mci_setstat(mci, rcode, NULL, "421"); } else rcode = 0; QuickAbort = saveQuickAbort; SuprErrs = saveSuprErrs; if (DONE_STARTTLS(mci->mci_flags) && mci->mci_state != MCIS_CLOSED # if _FFR_SMTPS_CLIENT && !implicittls && !smtptls # endif ) { SET_HELO(mci->mci_flags); mci_clr_extensions(mci); goto reconnect; } if (tlsstate == 1) { if (tTd(11, 1)) { sm_syslog(LOG_DEBUG, NOQID, "STARTTLS=client, relay=%.100s, tlsstate=%d, status=trying_again", mci->mci_host, tlsstate); mci_dump(NULL, mci, true); } ++tlsstate; /* ** Fake the status so a new connection is ** tried, otherwise the TLS error will ** "persist" during this delivery attempt. */ mci->mci_errno = 0; rcode = EX_OK; mci_setstat(mci, rcode, NULL, NULL); goto one_last_try; } } # if _FFR_SMTPS_CLIENT /* ** For M_SMTPS_CLIENT, we do the STARTTLS code first, ** then jump back and start the SMTP conversation. */ if (implicittls && !smtptls) { smtptls = true; if (!DONE_STARTTLS(mci->mci_flags)) { if (rcode == EX_TEMPFAIL) { e->e_status = "4.3.3"; usrerrenh(e->e_status, "454 TLS session initiation failed"); } else { e->e_status = "5.3.3"; usrerrenh(e->e_status, "554 TLS session initiation failed"); } goto give_up; } goto backtosmtp; } # endif /* _FFR_SMTPS_CLIENT */ #endif /* STARTTLS */ #if SASL /* if other server supports authentication let's authenticate */ if (mci->mci_state != MCIS_CLOSED && mci->mci_saslcap != NULL && !DONE_AUTH(mci->mci_flags) && !iscltflgset(e, D_NOAUTH)) { /* Should we require some minimum authentication? */ if ((ret = smtpauth(m, mci, e)) == EX_OK) { int result; sasl_ssf_t *ssf = NULL; /* Get security strength (features) */ result = sasl_getprop(mci->mci_conn, SASL_SSF, # if SASL >= 20000 (const void **) &ssf); # else (void **) &ssf); # endif /* XXX authid? */ if (LogLevel > 9) sm_syslog(LOG_INFO, NOQID, "AUTH=client, relay=%.100s, mech=%.16s, bits=%d", mci->mci_host, macvalue(macid("{auth_type}"), e), result == SASL_OK ? *ssf : 0); /* ** Only switch to encrypted connection ** if a security layer has been negotiated */ if (result == SASL_OK && *ssf > 0) { int tmo; /* ** Convert I/O layer to use SASL. ** If the call fails, the connection ** is aborted. */ tmo = DATA_PROGRESS_TIMEOUT * 1000; if (sfdcsasl(&mci->mci_in, &mci->mci_out, mci->mci_conn, tmo) == 0) { mci_clr_extensions(mci); mci->mci_flags |= MCIF_AUTHACT| MCIF_ONLY_EHLO; goto reconnect; } syserr("AUTH TLS switch failed in client"); } /* else? XXX */ mci->mci_flags |= MCIF_AUTHACT; } else if (ret == EX_TEMPFAIL) { if (LogLevel > 8) sm_syslog(LOG_ERR, NOQID, "AUTH=client, relay=%.100s, temporary failure, connection abort", mci->mci_host); smtpquit(m, mci, e); /* avoid bogus error msg */ mci->mci_errno = 0; rcode = EX_TEMPFAIL; mci_setstat(mci, rcode, "4.3.0", p); /* ** hack to get the error message into ** the envelope (done in giveresponse()) */ (void) sm_strlcpy(SmtpError, "Temporary AUTH failure", sizeof(SmtpError)); } } #endif /* SASL */ } do_transfer: /* clear out per-message flags from connection structure */ mci->mci_flags &= ~(MCIF_CVT7TO8|MCIF_CVT8TO7); if (bitset(EF_HAS8BIT, e->e_flags) && !bitset(EF_DONT_MIME, e->e_flags) && bitnset(M_7BITS, m->m_flags)) mci->mci_flags |= MCIF_CVT8TO7; #if MIME7TO8 if (bitnset(M_MAKE8BIT, m->m_flags) && !bitset(MCIF_7BIT, mci->mci_flags) && (p = hvalue("Content-Transfer-Encoding", e->e_header)) != NULL && (SM_STRCASEEQ(p, "quoted-printable") || SM_STRCASEEQ(p, "base64")) && (p = hvalue("Content-Type", e->e_header)) != NULL) { /* may want to convert 7 -> 8 */ /* XXX should really parse it here -- and use a class XXX */ if (sm_strncasecmp(p, "text/plain", 10) == 0 && (p[10] == '\0' || p[10] == ' ' || p[10] == ';')) mci->mci_flags |= MCIF_CVT7TO8; } #endif /* MIME7TO8 */ if (tTd(11, 1)) { sm_dprintf("openmailer: "); mci_dump(sm_debug_file(), mci, false); } #if _FFR_CLIENT_SIZE /* ** See if we know the maximum size and ** abort if the message is too big. ** ** NOTE: _FFR_CLIENT_SIZE is untested. */ if (bitset(MCIF_SIZE, mci->mci_flags) && mci->mci_maxsize > 0 && e->e_msgsize > mci->mci_maxsize) { e->e_flags |= EF_NO_BODY_RETN; if (bitnset(M_LOCALMAILER, m->m_flags)) e->e_status = "5.2.3"; else e->e_status = "5.3.4"; usrerrenh(e->e_status, "552 Message is too large; %ld bytes max", mci->mci_maxsize); rcode = EX_DATAERR; /* Need an e_message for error */ (void) sm_snprintf(SmtpError, sizeof(SmtpError), "Message is too large; %ld bytes max", mci->mci_maxsize); goto give_up; } #endif /* _FFR_CLIENT_SIZE */ if (mci->mci_state != MCIS_OPEN) { /* couldn't open the mailer */ rcode = mci->mci_exitstat; errno = mci->mci_errno; SM_SET_H_ERRNO(mci->mci_herrno); if (rcode == EX_OK) { /* shouldn't happen */ syserr("554 5.3.5 deliver: mci=%lx rcode=%d errno=%d state=%d sig=%s", (unsigned long) mci, rcode, errno, mci->mci_state, firstsig); mci_dump_all(smioout, true); rcode = EX_SOFTWARE; } else if (nummxhosts > hostnum) { logfailover(e, m, mci, rcode, NULL); /* try next MX site */ goto tryhost; } } else if (!clever) { bool ok; /* ** Format and send message. */ rcode = EX_OK; errno = 0; ok = putfromline(mci, e); if (ok) ok = (*e->e_puthdr)(mci, e->e_header, e, M87F_OUTER); if (ok) ok = (*e->e_putbody)(mci, e, NULL); if (ok && bitset(MCIF_INLONGLINE, mci->mci_flags)) ok = putline("", mci); /* ** Ignore an I/O error that was caused by EPIPE. ** Some broken mailers don't read the entire body ** but just exit() thus causing an I/O error. */ if (!ok && (sm_io_error(mci->mci_out) && errno == EPIPE)) ok = true; /* (always) get the exit status */ rcode = endmailer(mci, e, pv); if (!ok) rcode = EX_TEMPFAIL; if (rcode == EX_TEMPFAIL && SmtpError[0] == '\0') { /* ** Need an e_message for mailq display. ** We set SmtpError as */ (void) sm_snprintf(SmtpError, sizeof(SmtpError), "%s mailer (%s) exited with EX_TEMPFAIL", m->m_name, m->m_mailer); } } else { /* ** Send the MAIL FROM: protocol */ /* XXX this isn't pipelined... */ rcode = smtpmailfrom(m, mci, e); mci->mci_okrcpts = 0; mci->mci_retryrcpt = rcode == EX_TEMPFAIL; if (rcode == EX_OK) { register int rc; #if PIPELINING ADDRESS *volatile pchain; #endif #if STARTTLS ADDRESS addr; #endif /* send the recipient list */ rc = EX_OK; tobuf[0] = '\0'; mci->mci_retryrcpt = false; mci->mci_tolist = tobuf; #if PIPELINING pchain = NULL; mci->mci_nextaddr = NULL; #endif for (to = tochain; to != NULL; to = to->q_tchain) { if (!QS_IS_UNMARKED(to->q_state)) continue; /* mark recipient state as "ok so far" */ to->q_state = QS_OK; e->e_to = to->q_paddr; #if _FFR_MTA_STS if (CHKMTASTS && to->q_user != NULL) macdefine(&e->e_macro, A_TEMP, macid("{rcpt_addr}"), to->q_user); else macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), ""); #endif /* _FFR_MTA_STS */ #if STARTTLS # if DANE vrfy = macvalue(macid("{verify}"), e); if (NULL == vrfy) vrfy = "NONE"; vrfy = sm_strdup(vrfy); if (TTD(10, 32)) sm_dprintf("deliver: 0: vrfy=%s, to=%s, mx=%s, QMXSECURE=%d, secure=%d, ste=%p, dane=%#x\n", vrfy, to->q_user, CurHostName, RCPT_MXSECURE(to), RCPT_REQ_DANE(to), ste, Dane); if (NULL == ste && CHK_DANE_RCPT(Dane, to)) { (void) gettlsa(CurHostName, NULL, &ste, RCPT_MXSECURE(to) ? TLSAFLADMX : 0, 0, m->m_port); } if (TTD(10, 32)) sm_dprintf("deliver: 2: vrfy=%s, to=%s, QMXSECURE=%d, secure=%d, ste=%p, dane=%#x, SUP=%#x, !TEMP=%d, ADIP=%d, chk_dane=%d, vrfy_chk=%#x, mcif=%#lx\n", vrfy, to->q_user, RCPT_MXSECURE(to), RCPT_REQ_DANE(to), ste, Dane, STE_HAS_TLSA(ste) ? TLSA_IS_FL(ste->s_tlsa, TLSAFLSUP) : -1, (0 == (dane_vrfy_ctx.dane_vrfy_chk & TLSAFLTEMPVRFY)), (0 != (dane_vrfy_ctx.dane_vrfy_chk & TLSAFLADIP)), CHK_DANE(dane_vrfy_ctx.dane_vrfy_chk), dane_vrfy_ctx.dane_vrfy_chk, mci->mci_flags ); if (strcmp("DANE_FAIL", vrfy) == 0) { if (!RCPT_REQ_DANE(to)) macdefine(&mci->mci_macro, A_PERM, macid("{verify}"), "FAIL"); else SM_FREE(vrfy); } /* ** Note: MCIF_TLS should be reset when ** when starttls was successful because ** the server should not offer it anymore. */ else if (strcmp("TRUSTED", vrfy) != 0 && RCPT_REQ_DANE(to)) { macdefine(&mci->mci_macro, A_PERM, macid("{verify}"), (0 != (dane_vrfy_ctx.dane_vrfy_chk & TLSAFLNOTLS)) ? "DANE_TEMP" : (bitset(MCIF_TLS|MCIF_TLSACT, mci->mci_flags) ? "DANE_FAIL" : "DANE_NOTLS")); } /* DANE: unsupported types: require TLS but not available? */ else if (strcmp("TRUSTED", vrfy) != 0 && RCPT_REQ_TLS(to) && (!bitset(MCIF_TLS|MCIF_TLSACT, mci->mci_flags) || (0 != (dane_vrfy_ctx.dane_vrfy_chk & TLSAFLNOTLS)))) { macdefine(&mci->mci_macro, A_PERM, macid("{verify}"), (0 != (dane_vrfy_ctx.dane_vrfy_chk & TLSAFLNOTLS)) ? "DANE_TEMP" : "DANE_NOTLS"); } else SM_FREE(vrfy); if (TTD(10, 32)) sm_dprintf("deliver: 7: verify=%s, secure=%d\n", macvalue(macid("{verify}"), e), RCPT_REQ_DANE(to)); # endif /* DANE */ rc = rscheck("tls_rcpt", to->q_user, NULL, e, RSF_RMCOMM|RSF_COUNT, 3, mci->mci_host, e->e_id, &addr, NULL); # if DANE if (vrfy != NULL) { macdefine(&mci->mci_macro, A_PERM, macid("{verify}"), vrfy); SM_FREE(vrfy); } # endif if (TTD(10, 32)) sm_dprintf("deliver: 9: verify=%s, to=%s, tls_rcpt=%d\n", macvalue(macid("{verify}"), e), to->q_user, rc); if (rc != EX_OK) { char *dsn; to->q_flags |= QINTREPLY; markfailure(e, to, mci, rc, false); if (addr.q_host != NULL && isenhsc(addr.q_host, ' ') > 0) dsn = addr.q_host; else dsn = NULL; giveresponse(rc, dsn, m, mci, ctladdr, xstart, e, to); if (rc == EX_TEMPFAIL) { mci->mci_retryrcpt = true; to->q_state = QS_RETRY; } continue; } #endif /* STARTTLS */ rc = smtprcpt(to, m, mci, e, ctladdr, xstart); #if PIPELINING if (rc == EX_OK && bitset(MCIF_PIPELINED, mci->mci_flags)) { /* ** Add new element to list of ** recipients for pipelining. */ to->q_pchain = NULL; if (mci->mci_nextaddr == NULL) mci->mci_nextaddr = to; if (pchain == NULL) pchain = to; else { pchain->q_pchain = to; pchain = pchain->q_pchain; } } #endif /* PIPELINING */ if (rc != EX_OK) { markfailure(e, to, mci, rc, false); giveresponse(rc, to->q_status, m, mci, ctladdr, xstart, e, to); if (rc == EX_TEMPFAIL) to->q_state = QS_RETRY; } } /* No recipients in list and no missing responses? */ if (tobuf[0] == '\0' #if PIPELINING /* && bitset(MCIF_PIPELINED, mci->mci_flags) */ && mci->mci_nextaddr == NULL #endif ) { rcode = rc; e->e_to = NULL; if (bitset(MCIF_CACHED, mci->mci_flags)) smtprset(m, mci, e); } else { e->e_to = tobuf + 1; rcode = smtpdata(m, mci, e, ctladdr, xstart); } } if (rcode == EX_TEMPFAIL && nummxhosts > hostnum && (mci->mci_retryrcpt || mci->mci_okrcpts > 0) ) { logfailover(e, m, mci, rcode, to); /* try next MX site */ goto tryhost; } } #if NAMED_BIND if (ConfigLevel < 2) _res.options |= RES_DEFNAMES | RES_DNSRCH; /* XXX */ #endif if (tTd(62, 1)) checkfds("after delivery"); /* ** Do final status disposal. ** We check for something in tobuf for the SMTP case. ** If we got a temporary failure, arrange to queue the ** addressees. */ give_up: if (bitnset(M_LMTP, m->m_flags)) { lmtp_rcode = rcode; tobuf[0] = '\0'; anyok = false; strsize = 0; } else anyok = rcode == EX_OK; for (to = tochain; to != NULL; to = to->q_tchain) { /* see if address already marked */ if (!QS_IS_OK(to->q_state)) continue; /* if running LMTP, get the status for each address */ if (bitnset(M_LMTP, m->m_flags)) { if (lmtp_rcode == EX_OK) rcode = smtpgetstat(m, mci, e); if (rcode == EX_OK) { strsize += sm_strlcat2(tobuf + strsize, ",", to->q_paddr, tobufsize - strsize); SM_ASSERT(strsize < tobufsize); anyok = true; } else { e->e_to = to->q_paddr; markfailure(e, to, mci, rcode, true); giveresponse(rcode, to->q_status, m, mci, ctladdr, xstart, e, to); e->e_to = tobuf + 1; continue; } } else { /* mark bad addresses */ if (rcode != EX_OK) { if (goodmxfound && rcode == EX_NOHOST) rcode = EX_TEMPFAIL; markfailure(e, to, mci, rcode, true); continue; } } /* successful delivery */ to->q_state = QS_SENT; to->q_statdate = curtime(); e->e_nsent++; /* ** Checkpoint the send list every few addresses */ if (CheckpointInterval > 0 && e->e_nsent >= CheckpointInterval) { queueup(e, QUP_FL_NONE); e->e_nsent = 0; } if (bitnset(M_LOCALMAILER, m->m_flags) && bitset(QPINGONSUCCESS, to->q_flags)) { to->q_flags |= QDELIVERED; to->q_status = "2.1.5"; (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "%s... Successfully delivered\n", to->q_paddr); } else if (bitset(QPINGONSUCCESS, to->q_flags) && bitset(QPRIMARY, to->q_flags) && !bitset(MCIF_DSN, mci->mci_flags)) { to->q_flags |= QRELAYED; (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "%s... relayed; expect no further notifications\n", to->q_paddr); } else if (IS_DLVR_NOTIFY(e) && !bitset(MCIF_DLVR_BY, mci->mci_flags) && bitset(QPRIMARY, to->q_flags) && (!bitset(QHASNOTIFY, to->q_flags) || bitset(QPINGONSUCCESS, to->q_flags) || bitset(QPINGONFAILURE, to->q_flags) || bitset(QPINGONDELAY, to->q_flags))) { /* RFC 2852, 4.1.4.2: no NOTIFY, or not NEVER */ to->q_flags |= QBYNRELAY; (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "%s... Deliver-by notify: relayed\n", to->q_paddr); } else if (IS_DLVR_TRACE(e) && (!bitset(QHASNOTIFY, to->q_flags) || bitset(QPINGONSUCCESS, to->q_flags) || bitset(QPINGONFAILURE, to->q_flags) || bitset(QPINGONDELAY, to->q_flags)) && bitset(QPRIMARY, to->q_flags)) { /* RFC 2852, 4.1.4: no NOTIFY, or not NEVER */ to->q_flags |= QBYTRACE; (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "%s... Deliver-By trace: relayed\n", to->q_paddr); } } if (bitnset(M_LMTP, m->m_flags)) { /* ** Global information applies to the last recipient only; ** clear it out to avoid bogus errors. */ rcode = EX_OK; e->e_statmsg = NULL; /* reset the mci state for the next transaction */ if (mci != NULL && (mci->mci_state == MCIS_MAIL || mci->mci_state == MCIS_RCPT || mci->mci_state == MCIS_DATA)) { mci->mci_state = MCIS_OPEN; SmtpPhase = mci->mci_phase = "idle"; sm_setproctitle(true, e, "%s: %s", CurHostName, mci->mci_phase); } } if (tobuf[0] != '\0') { giveresponse(rcode, #if _FFR_NULLMX_STATUS (NULL == mci || SM_IS_EMPTY(mci->mci_status)) ? NULL : #endif mci->mci_status, m, mci, ctladdr, xstart, e, NULL); #if 0 /* ** This code is disabled for now because I am not ** sure that copying status from the first recipient ** to all non-status'ed recipients is a good idea. */ if (tochain->q_message != NULL && !bitnset(M_LMTP, m->m_flags) && rcode != EX_OK) { for (to = tochain->q_tchain; to != NULL; to = to->q_tchain) { /* see if address already marked */ if (QS_IS_QUEUEUP(to->q_state) && to->q_message == NULL) to->q_message = sm_rpool_strdup_x(e->e_rpool, tochain->q_message); } } #endif /* 0 */ } if (anyok) markstats(e, tochain, STATS_NORMAL); mci_store_persistent(mci); #if _FFR_OCC /* ** HACK: this is NOT the right place to "close" a connection! ** use smtpquit? ** add a flag to mci to indicate that rate/conc. was increased? */ if (clever) { extern SOCKADDR CurHostAddr; /* check family... {} */ /* r = anynet_pton(AF_INET, p, dst); */ occ_close(e, mci, host, &CurHostAddr); } #endif /* _FFR_OCC */ /* Some recipients were tempfailed, try them on the next host */ if (mci != NULL && mci->mci_retryrcpt && nummxhosts > hostnum) { logfailover(e, m, mci, rcode, to); /* try next MX site */ goto tryhost; } /* now close the connection */ if (clever && mci != NULL && mci->mci_state != MCIS_CLOSED && !bitset(MCIF_CACHED, mci->mci_flags)) smtpquit(m, mci, e); cleanup: ; } SM_FINALLY { /* ** Restore state and return. */ #if XDEBUG char wbuf[MAXLINE]; /* make absolutely certain 0, 1, and 2 are in use */ (void) sm_snprintf(wbuf, sizeof(wbuf), "%s... end of deliver(%s)", e->e_to == NULL ? "NO-TO-LIST" : shortenstring(e->e_to, MAXSHORTSTR), m->m_name); checkfd012(wbuf); #endif /* XDEBUG */ errno = 0; /* ** It was originally necessary to set macro 'g' to NULL ** because it previously pointed to an auto buffer. ** We don't do this any more, so this may be unnecessary. */ macdefine(&e->e_macro, A_PERM, 'g', (char *) NULL); e->e_to = NULL; } SM_END_TRY return rcode; } /* ** EX2ENHSC -- return proper enhanced status code for an EX_ code ** ** Parameters: ** xcode -- EX_* code ** ** Returns: ** enhanced status code if appropriate ** NULL otherwise */ static char *ex2enhsc __P((int)); static char * ex2enhsc(xcode) int xcode; { switch (xcode) { case EX_USAGE: return "5.5.4"; break; case EX_DATAERR: return "5.5.2"; break; case EX_NOUSER: return "5.1.1"; break; case EX_NOHOST: return "5.1.2"; break; case EX_NOINPUT: case EX_CANTCREAT: case EX_NOPERM: return "5.3.0"; break; case EX_UNAVAILABLE: case EX_SOFTWARE: case EX_OSFILE: case EX_PROTOCOL: case EX_CONFIG: return "5.5.0"; break; case EX_OSERR: case EX_IOERR: return "4.5.0"; break; case EX_TEMPFAIL: return "4.2.0"; break; } return NULL; } /* ** MARKFAILURE -- mark a failure on a specific address. ** ** Parameters: ** e -- the envelope we are sending. ** q -- the address to mark. ** mci -- mailer connection information. ** rcode -- the code signifying the particular failure. ** ovr -- override an existing code? ** ** Returns: ** none. ** ** Side Effects: ** marks the address (and possibly the envelope) with the ** failure so that an error will be returned or ** the message will be queued, as appropriate. */ void markfailure(e, q, mci, rcode, ovr) register ENVELOPE *e; register ADDRESS *q; register MCI *mci; int rcode; bool ovr; { int save_errno = errno; char *status = NULL; char *rstatus = NULL; switch (rcode) { case EX_OK: break; case EX_TEMPFAIL: case EX_IOERR: case EX_OSERR: q->q_state = QS_QUEUEUP; break; default: q->q_state = QS_BADADDR; break; } /* find most specific error code possible */ if (mci != NULL && mci->mci_status != NULL) { status = sm_rpool_strdup_x(e->e_rpool, mci->mci_status); if (mci->mci_rstatus != NULL) rstatus = sm_rpool_strdup_x(e->e_rpool, mci->mci_rstatus); } else if (e->e_status != NULL) status = e->e_status; else status = ex2enhsc(rcode); /* new status? */ if (status != NULL && *status != '\0' && (ovr || q->q_status == NULL || *q->q_status == '\0' || *q->q_status < *status)) { q->q_status = status; q->q_rstatus = rstatus; } if (rcode != EX_OK && q->q_rstatus == NULL && q->q_mailer != NULL && q->q_mailer->m_diagtype != NULL && SM_STRCASEEQ(q->q_mailer->m_diagtype, "X-UNIX")) { char buf[16]; (void) sm_snprintf(buf, sizeof(buf), "%d", rcode); q->q_rstatus = sm_rpool_strdup_x(e->e_rpool, buf); } q->q_statdate = curtime(); if (CurHostName != NULL && CurHostName[0] != '\0' && mci != NULL && !bitset(M_LOCALMAILER, mci->mci_flags)) q->q_statmta = sm_rpool_strdup_x(e->e_rpool, CurHostName); /* restore errno */ errno = save_errno; } /* ** ENDMAILER -- Wait for mailer to terminate. ** ** We should never get fatal errors (e.g., segmentation ** violation), so we report those specially. For other ** errors, we choose a status message (into statmsg), ** and if it represents an error, we print it. ** ** Parameters: ** mci -- the mailer connection info. ** e -- the current envelope. ** pv -- the parameter vector that invoked the mailer ** (for error messages). ** ** Returns: ** exit code of mailer. ** ** Side Effects: ** none. */ static jmp_buf EndWaitTimeout; static void endwaittimeout(ignore) int ignore; { /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ errno = ETIMEDOUT; longjmp(EndWaitTimeout, 1); } int endmailer(mci, e, pv) register MCI *mci; register ENVELOPE *e; char **pv; { int st; int save_errno = errno; char buf[MAXLINE]; SM_EVENT *ev = NULL; mci_unlock_host(mci); /* close output to mailer */ SM_CLOSE_FP(mci->mci_out); /* copy any remaining input to transcript */ if (mci->mci_in != NULL && mci->mci_state != MCIS_ERROR && e->e_xfp != NULL) { while (sfgets(buf, sizeof(buf), mci->mci_in, TimeOuts.to_quit, "Draining Input") != NULL) (void) sm_io_fputs(e->e_xfp, SM_TIME_DEFAULT, buf); } #if SASL /* close SASL connection */ if (bitset(MCIF_AUTHACT, mci->mci_flags)) { sasl_dispose(&mci->mci_conn); mci->mci_flags &= ~MCIF_AUTHACT; } #endif /* SASL */ #if STARTTLS /* shutdown TLS */ (void) endtlsclt(mci); #endif /* now close the input */ SM_CLOSE_FP(mci->mci_in); mci->mci_state = MCIS_CLOSED; errno = save_errno; /* in the IPC case there is nothing to wait for */ if (mci->mci_pid == 0) return EX_OK; /* put a timeout around the wait */ if (mci->mci_mailer->m_wait > 0) { if (setjmp(EndWaitTimeout) == 0) ev = sm_setevent(mci->mci_mailer->m_wait, endwaittimeout, 0); else { syserr("endmailer %s: wait timeout (%ld)", mci->mci_mailer->m_name, (long) mci->mci_mailer->m_wait); return EX_TEMPFAIL; } } /* wait for the mailer process, collect status */ st = waitfor(mci->mci_pid); save_errno = errno; if (ev != NULL) sm_clrevent(ev); errno = save_errno; if (st == -1) { syserr("endmailer %s: wait", mci->mci_mailer->m_name); return EX_SOFTWARE; } if (WIFEXITED(st)) { /* normal death -- return status */ return (WEXITSTATUS(st)); } /* it died a horrid death */ syserr("451 4.3.0 mailer %s died with signal %d%s", mci->mci_mailer->m_name, WTERMSIG(st), WCOREDUMP(st) ? " (core dumped)" : (WIFSTOPPED(st) ? " (stopped)" : "")); /* log the arguments */ if (pv != NULL && e->e_xfp != NULL) { register char **av; (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "Arguments:"); for (av = pv; *av != NULL; av++) (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, " %s", *av); (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "\n"); } ExitStat = EX_TEMPFAIL; return EX_TEMPFAIL; } /* ** GIVERESPONSE -- Interpret an error response from a mailer ** ** Parameters: ** status -- the status code from the mailer (high byte ** only; core dumps must have been taken care of ** already). ** dsn -- the DSN associated with the address, if any. ** m -- the mailer info for this mailer. ** mci -- the mailer connection info -- can be NULL if the ** response is given before the connection is made. ** ctladdr -- the controlling address for the recipient ** address(es). ** xstart -- the transaction start time, for computing ** transaction delays. ** e -- the current envelope. ** to -- the current recipient (NULL if none). ** ** Returns: ** none. ** ** Side Effects: ** Errors may be incremented. ** ExitStat may be set. */ void giveresponse(status, dsn, m, mci, ctladdr, xstart, e, to) int status; char *dsn; register MAILER *m; register MCI *mci; ADDRESS *ctladdr; time_t xstart; ENVELOPE *e; ADDRESS *to; { register const char *statmsg; int errnum = errno; int off = 4; bool usestat = false; char dsnbuf[ENHSCLEN]; char buf[MAXLINE]; char *exmsg; if (e == NULL) { syserr("giveresponse: null envelope"); /* NOTREACHED */ SM_ASSERT(0); } if (tTd(11, 4)) sm_dprintf("giveresponse: status=%d, e->e_message=%s, dsn=%s, SmtpError=%s\n", status, e->e_message, dsn, SmtpError); /* ** Compute status message from code. */ exmsg = sm_sysexmsg(status); if (status == 0) { statmsg = "250 2.0.0 Sent"; if (e->e_statmsg != NULL) { (void) sm_snprintf(buf, sizeof(buf), "%s (%s)", statmsg, shortenstring(e->e_statmsg, 403)); statmsg = buf; } } else if (exmsg == NULL) { (void) sm_snprintf(buf, sizeof(buf), "554 5.3.0 unknown mailer error %d", status); status = EX_UNAVAILABLE; statmsg = buf; usestat = true; } else if (status == EX_TEMPFAIL) { char *bp = buf; (void) sm_strlcpy(bp, exmsg + 1, SPACELEFT(buf, bp)); bp += strlen(bp); #if NAMED_BIND if (h_errno == TRY_AGAIN) statmsg = sm_errstring(h_errno + E_DNSBASE); else #endif { if (errnum != 0) statmsg = sm_errstring(errnum); else statmsg = SmtpError; } if (statmsg != NULL && statmsg[0] != '\0') { switch (errnum) { #ifdef ENETDOWN case ENETDOWN: /* Network is down */ #endif #ifdef ENETUNREACH case ENETUNREACH: /* Network is unreachable */ #endif #ifdef ENETRESET case ENETRESET: /* Network dropped connection on reset */ #endif #ifdef ECONNABORTED case ECONNABORTED: /* Software caused connection abort */ #endif #ifdef EHOSTDOWN case EHOSTDOWN: /* Host is down */ #endif #ifdef EHOSTUNREACH case EHOSTUNREACH: /* No route to host */ #endif if (mci != NULL && mci->mci_host != NULL) { (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, ": ", mci->mci_host); bp += strlen(bp); } break; } (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, ": ", statmsg); #if DANE if (errnum == 0 && SmtpError[0] != '\0' && h_errno == TRY_AGAIN && mci->mci_exitstat == EX_TEMPFAIL) { (void) sm_strlcat(bp, SmtpError, SPACELEFT(buf, bp)); bp += strlen(bp); } #endif /* DANE */ usestat = true; } statmsg = buf; } #if NAMED_BIND else if (status == EX_NOHOST && h_errno != 0) { statmsg = sm_errstring(h_errno + E_DNSBASE); (void) sm_snprintf(buf, sizeof(buf), "%s (%s)", exmsg + 1, statmsg); statmsg = buf; usestat = true; } #endif /* NAMED_BIND */ #if USE_EAI else if (errnum == 0 && status == EX_DATAERR && e->e_message != NULL && e->e_message[0] != '\0') { int m; /* XREF: 2nd arg must be coordinated with smtpmailfrom() */ m = skipaddrhost(e->e_message, false); /* ** XXX Why is the SMTP reply code needed here? ** How to avoid a hard-coded value? */ (void) sm_snprintf(buf, sizeof(buf), "550 %s", e->e_message + m); statmsg = buf; usestat = true; } #endif /* USE_EAI */ else { statmsg = exmsg; if (*statmsg++ == ':' && errnum != 0) { (void) sm_snprintf(buf, sizeof(buf), "%s: %s", statmsg, sm_errstring(errnum)); statmsg = buf; usestat = true; } else if (bitnset(M_LMTP, m->m_flags) && e->e_statmsg != NULL) { (void) sm_snprintf(buf, sizeof(buf), "%s (%s)", statmsg, shortenstring(e->e_statmsg, 403)); statmsg = buf; usestat = true; } } /* ** Print the message as appropriate */ if (status == EX_OK || status == EX_TEMPFAIL) { extern char MsgBuf[]; if ((off = isenhsc(statmsg + 4, ' ')) > 0) { if (dsn == NULL) { (void) sm_snprintf(dsnbuf, sizeof(dsnbuf), "%.*s", off, statmsg + 4); dsn = dsnbuf; } off += 5; } else { off = 4; } message("%s", statmsg + off); if (status == EX_TEMPFAIL && e->e_xfp != NULL) (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "%s\n", &MsgBuf[4]); } else { char mbuf[ENHSCLEN + 4]; Errors++; if ((off = isenhsc(statmsg + 4, ' ')) > 0 && off < sizeof(mbuf) - 4) { if (dsn == NULL) { (void) sm_snprintf(dsnbuf, sizeof(dsnbuf), "%.*s", off, statmsg + 4); dsn = dsnbuf; } off += 5; /* copy only part of statmsg to mbuf */ (void) sm_strlcpy(mbuf, statmsg, off); (void) sm_strlcat(mbuf, " %s", sizeof(mbuf)); } else { dsnbuf[0] = '\0'; (void) sm_snprintf(mbuf, sizeof(mbuf), "%.3s %%s", statmsg); off = 4; } usrerr(mbuf, &statmsg[off]); } /* ** Final cleanup. ** Log a record of the transaction. Compute the new ExitStat ** -- if we already had an error, stick with that. */ if (OpMode != MD_VERIFY && !bitset(EF_VRFYONLY, e->e_flags) && LogLevel > ((status == EX_TEMPFAIL) ? 8 : (status == EX_OK) ? 7 : 6)) logdelivery(m, mci, dsn, statmsg + off, ctladdr, xstart, e, to, status); if (tTd(11, 2)) sm_dprintf("giveresponse: status=%d, dsn=%s, e->e_message=%s, errnum=%d, statmsg=%s\n", status, dsn == NULL ? "" : dsn, e->e_message == NULL ? "" : e->e_message, errnum, statmsg); if (status != EX_TEMPFAIL) setstat(status); if (status != EX_OK && (status != EX_TEMPFAIL || e->e_message == NULL)) e->e_message = sm_rpool_strdup_x(e->e_rpool, statmsg + off); if (status != EX_OK && to != NULL && to->q_message == NULL) { if (!usestat && e->e_message != NULL) to->q_message = sm_rpool_strdup_x(e->e_rpool, e->e_message); else to->q_message = sm_rpool_strdup_x(e->e_rpool, statmsg + off); } errno = 0; SM_SET_H_ERRNO(0); } #if _FFR_8BITENVADDR # define GET_HOST_VALUE \ (void) dequote_internal_chars(p, xbuf, sizeof(xbuf)); \ p = xbuf; #else # define GET_HOST_VALUE #endif /* ** LOGDELIVERY -- log the delivery in the system log ** ** Care is taken to avoid logging lines that are too long, because ** some versions of syslog have an unfortunate proclivity for core ** dumping. This is a hack, to be sure, that is at best empirical. ** ** Parameters: ** m -- the mailer info. Can be NULL for initial queue. ** mci -- the mailer connection info -- can be NULL if the ** log is occurring when no connection is active. ** dsn -- the DSN attached to the status. ** status -- the message to print for the status. ** ctladdr -- the controlling address for the to list. ** xstart -- the transaction start time, used for ** computing transaction delay. ** e -- the current envelope. ** to -- the current recipient (NULL if none). ** rcode -- status code. ** ** Returns: ** none ** ** Side Effects: ** none */ void logdelivery(m, mci, dsn, status, ctladdr, xstart, e, to, rcode) MAILER *m; register MCI *mci; char *dsn; const char *status; ADDRESS *ctladdr; time_t xstart; register ENVELOPE *e; ADDRESS *to; int rcode; { register char *bp; register char *p; int l; time_t now = curtime(); char buf[1024]; #if _FFR_8BITENVADDR char xbuf[SM_MAX(SYSLOG_BUFSIZE, MAXNAME)]; /* EAI:ok */ #endif char *xstr; #if (SYSLOG_BUFSIZE) >= 256 int xtype, rtype; /* ctladdr: max 106 bytes */ bp = buf; if (ctladdr != NULL) { (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, ", ctladdr=", shortenstring(ctladdr->q_paddr, 83)); bp += strlen(bp); if (bitset(QGOODUID, ctladdr->q_flags)) { (void) sm_snprintf(bp, SPACELEFT(buf, bp), " (%d/%d)", (int) ctladdr->q_uid, (int) ctladdr->q_gid); bp += strlen(bp); } } /* delay & xdelay: max 41 bytes */ (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, ", delay=", pintvl(now - e->e_ctime, true)); bp += strlen(bp); if (xstart != (time_t) 0) { (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, ", xdelay=", pintvl(now - xstart, true)); bp += strlen(bp); } /* mailer: assume about 19 bytes (max 10 byte mailer name) */ if (m != NULL) { (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, ", mailer=", m->m_name); bp += strlen(bp); } # if _FFR_LOG_MORE2 LOG_MORE(buf, bp); # endif /* pri: changes with each delivery attempt */ (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", pri=%ld", PRT_NONNEGL(e->e_msgpriority)); bp += strlen(bp); /* relay: max 66 bytes for IPv4 addresses */ if (mci != NULL && mci->mci_host != NULL) { extern SOCKADDR CurHostAddr; (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, ", relay=", shortenstring(mci->mci_host, 40)); bp += strlen(bp); if (CurHostAddr.sa.sa_family != 0) { (void) sm_snprintf(bp, SPACELEFT(buf, bp), " [%s]", anynet_ntoa(&CurHostAddr)); } } else if (strcmp(status, "quarantined") == 0) { if (e->e_quarmsg != NULL) (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", quarantine=%s", shortenstring(e->e_quarmsg, 40)); } else if (strcmp(status, "queued") != 0) { p = macvalue('h', e); if (p != NULL && p[0] != '\0') { GET_HOST_VALUE; (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", relay=%s", shortenstring(p, 40)); } } bp += strlen(bp); p = ex2enhsc(rcode); if (p != NULL) xtype = p[0] - '0'; else xtype = 0; #ifndef WHERE2REPORT # define WHERE2REPORT "please see , " #endif /* dsn */ if (dsn != NULL && *dsn != '\0') { (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, ", dsn=", shortenstring(dsn, ENHSCLEN)); bp += strlen(bp); if (xtype > 0 && ISSMTPCODE(dsn) && (rtype = dsn[0] - '0') > 0 && rtype != xtype) sm_syslog(LOG_ERR, e->e_id, "ERROR: inconsistent dsn, %srcode=%d, dsn=%s", WHERE2REPORT, rcode, dsn); } # if _FFR_LOG_NTRIES /* ntries */ if (e->e_ntries >= 0) { (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", ntries=%d", e->e_ntries + 1); bp += strlen(bp); } # endif /* _FFR_LOG_NTRIES */ # define STATLEN (((SYSLOG_BUFSIZE) - 100) / 4) # if (STATLEN) < 63 # undef STATLEN # define STATLEN 63 # endif # if (STATLEN) > 203 # undef STATLEN # define STATLEN 203 # endif # if _FFR_LOG_STAGE /* only do this when reply= is logged? */ if (rcode != EX_OK && e->e_estate >= 0) { if (e->e_estate >= 0 && e->e_estate < SM_ARRAY_SIZE(xs_states)) (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", stage=%s", xs_states[e->e_estate]); else (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", stage=%d", e->e_estate); bp += strlen(bp); } # endif /* _FFR_LOG_STAGE */ /* ** Notes: ** per-rcpt status: to->q_rstatus ** global status: e->e_text ** ** We (re)use STATLEN here, is that a good choice? ** ** stat=Deferred: ... ** has sometimes the same text? ** ** Note: in some case the normal logging might show the same server ** reply - how to avoid that? */ /* only show errors from server */ if (rcode != EX_OK && (NULL == to || !bitset(QINTREPLY, to->q_flags))) { if (to != NULL && !SM_IS_EMPTY(to->q_rstatus)) { (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", reply=%s", shortenstring(to->q_rstatus, STATLEN)); bp += strlen(bp); if (ISSMTPCODE(to->q_rstatus) && (rtype = to->q_rstatus[0] - '0') > 0 && ((xtype > 0 && rtype != xtype) || rtype < 4)) sm_syslog(LOG_ERR, e->e_id, "ERROR: inconsistent reply, %srcode=%d, q_rstatus=%s", WHERE2REPORT, rcode, to->q_rstatus); } else if (e->e_text != NULL) { (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", reply=%d %s%s%s", e->e_rcode, e->e_renhsc, (e->e_renhsc[0] != '\0') ? " " : "", shortenstring(e->e_text, STATLEN)); bp += strlen(bp); rtype = REPLYTYPE(e->e_rcode); if (rtype > 0 && ((xtype > 0 && rtype != xtype) || rtype < 4)) sm_syslog(LOG_ERR, e->e_id, "ERROR: inconsistent reply, %srcode=%d, e_rcode=%d, e_text=%s", WHERE2REPORT, rcode, e->e_rcode, e->e_text); } #if _FFR_NULLMX_STATUS /* Hack for MX 0 . : how to make this general? */ else if (NULL == to && dsn != NULL && strcmp(dsn, ESCNULLMXRCPT) == 0) { (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", status=%s", ERRNULLMX); bp += strlen(bp); } #endif } /* stat: max 210 bytes */ if ((bp - buf) > (sizeof(buf) - ((STATLEN) + 20))) { /* desperation move -- truncate data */ bp = buf + sizeof(buf) - ((STATLEN) + 17); (void) sm_strlcpy(bp, "...", SPACELEFT(buf, bp)); bp += 3; } (void) sm_strlcpy(bp, ", stat=", SPACELEFT(buf, bp)); bp += strlen(bp); (void) sm_strlcpy(bp, shortenstring(status, STATLEN), SPACELEFT(buf, bp)); /* id, to: max 13 + TOBUFSIZE bytes */ l = SYSLOG_BUFSIZE - 100 - strlen(buf); if (l < 0) l = 0; p = e->e_to == NULL ? "NO-TO-LIST" : e->e_to; while (strlen(p) >= l) { register char *q; for (q = p + l; q > p; q--) { /* XXX a comma in an address will break this! */ if (*q == ',') break; } if (p == q) break; # if _FFR_8BITENVADDR /* XXX is this correct? dequote all of p? */ (void) dequote_internal_chars(p, xbuf, sizeof(xbuf)); xstr = xbuf; # else xstr = p; # endif sm_syslog(LOG_INFO, e->e_id, "to=%.*s [more]%s", (int) (++q - p), xstr, buf); p = q; } # if _FFR_8BITENVADDR (void) dequote_internal_chars(p, xbuf, sizeof(xbuf)); xstr = xbuf; # else xstr = p; # endif sm_syslog(LOG_INFO, e->e_id, "to=%.*s%s", l, xstr, buf); #else /* (SYSLOG_BUFSIZE) >= 256 */ l = SYSLOG_BUFSIZE - 85; if (l < 0) l = 0; p = e->e_to == NULL ? "NO-TO-LIST" : e->e_to; while (strlen(p) >= l) { register char *q; for (q = p + l; q > p; q--) { if (*q == ',') break; } if (p == q) break; sm_syslog(LOG_INFO, e->e_id, "to=%.*s [more]", (int) (++q - p), p); p = q; } sm_syslog(LOG_INFO, e->e_id, "to=%.*s", l, p); if (ctladdr != NULL) { bp = buf; (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, "ctladdr=", shortenstring(ctladdr->q_paddr, 83)); bp += strlen(bp); if (bitset(QGOODUID, ctladdr->q_flags)) { (void) sm_snprintf(bp, SPACELEFT(buf, bp), " (%d/%d)", ctladdr->q_uid, ctladdr->q_gid); bp += strlen(bp); } sm_syslog(LOG_INFO, e->e_id, "%s", buf); } bp = buf; (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, "delay=", pintvl(now - e->e_ctime, true)); bp += strlen(bp); if (xstart != (time_t) 0) { (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, ", xdelay=", pintvl(now - xstart, true)); bp += strlen(bp); } if (m != NULL) { (void) sm_strlcpyn(bp, SPACELEFT(buf, bp), 2, ", mailer=", m->m_name); bp += strlen(bp); } sm_syslog(LOG_INFO, e->e_id, "%.1000s", buf); buf[0] = '\0'; bp = buf; if (mci != NULL && mci->mci_host != NULL) { extern SOCKADDR CurHostAddr; (void) sm_snprintf(bp, SPACELEFT(buf, bp), "relay=%.100s", mci->mci_host); bp += strlen(bp); if (CurHostAddr.sa.sa_family != 0) (void) sm_snprintf(bp, SPACELEFT(buf, bp), " [%.100s]", anynet_ntoa(&CurHostAddr)); } else if (strcmp(status, "quarantined") == 0) { if (e->e_quarmsg != NULL) (void) sm_snprintf(bp, SPACELEFT(buf, bp), ", quarantine=%.100s", e->e_quarmsg); } else if (strcmp(status, "queued") != 0) { p = macvalue('h', e); if (p != NULL && p[0] != '\0') { GET_HOST_VALUE; (void) sm_snprintf(buf, sizeof(buf), "relay=%.100s", p); } } if (buf[0] != '\0') sm_syslog(LOG_INFO, e->e_id, "%.1000s", buf); sm_syslog(LOG_INFO, e->e_id, "stat=%s", shortenstring(status, 63)); #endif /* (SYSLOG_BUFSIZE) >= 256 */ } /* ** PUTFROMLINE -- output a UNIX-style from line (or whatever) ** ** This can be made an arbitrary message separator by changing $l ** ** One of the ugliest hacks seen by human eyes is contained herein: ** UUCP wants those stupid "remote from " lines. Why oh why ** does a well-meaning programmer such as myself have to deal with ** this kind of antique garbage???? ** ** Parameters: ** mci -- the connection information. ** e -- the envelope. ** ** Returns: ** true iff line was written successfully ** ** Side Effects: ** outputs some text to fp. */ bool putfromline(mci, e) register MCI *mci; ENVELOPE *e; { char *template = UnixFromLine; char buf[MAXLINE]; char xbuf[MAXLINE]; if (bitnset(M_NHDR, mci->mci_mailer->m_flags)) return true; mci->mci_flags |= MCIF_INHEADER; if (bitnset(M_UGLYUUCP, mci->mci_mailer->m_flags)) { char *bang; expand("\201g", buf, sizeof(buf), e); bang = strchr(buf, '!'); if (bang == NULL) { char *at; char hname[MAXNAME]; /* EAI:ok */ /* ** If we can construct a UUCP path, do so */ at = strrchr(buf, '@'); if (at == NULL) { expand("\201k", hname, sizeof(hname), e); at = hname; } else *at++ = '\0'; (void) sm_snprintf(xbuf, sizeof(xbuf), "From %.800s \201d remote from %.100s\n", buf, at); } else { *bang++ = '\0'; (void) sm_snprintf(xbuf, sizeof(xbuf), "From %.800s \201d remote from %.100s\n", bang, buf); template = xbuf; } } expand(template, buf, sizeof(buf), e); return putxline(buf, strlen(buf), mci, PXLF_HEADER); } /* ** PUTBODY -- put the body of a message. ** ** Parameters: ** mci -- the connection information. ** e -- the envelope to put out. ** separator -- if non-NULL, a message separator that must ** not be permitted in the resulting message. ** ** Returns: ** true iff message was written successfully ** ** Side Effects: ** The message is written onto fp. */ /* values for output state variable */ #define OSTATE_HEAD 0 /* at beginning of line */ #define OSTATE_CR 1 /* read a carriage return */ #define OSTATE_INLINE 2 /* putting rest of line */ bool putbody(mci, e, separator) register MCI *mci; register ENVELOPE *e; char *separator; { bool dead = false; bool ioerr = false; int save_errno; char buf[MAXLINE]; #if MIME8TO7 char *boundaries[MAXMIMENESTING + 1]; #endif /* ** Output the body of the message */ if (e->e_dfp == NULL && bitset(EF_HAS_DF, e->e_flags)) { char *df = queuename(e, DATAFL_LETTER); e->e_dfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, df, SM_IO_RDONLY_B, NULL); if (e->e_dfp == NULL) { char *msg = "!putbody: Cannot open %s for %s from %s"; if (errno == ENOENT) msg++; syserr(msg, df, e->e_to, e->e_from.q_paddr); } } if (e->e_dfp == NULL) { if (bitset(MCIF_INHEADER, mci->mci_flags)) { if (!putline("", mci)) goto writeerr; mci->mci_flags &= ~MCIF_INHEADER; } if (!putline("<<< No Message Collected >>>", mci)) goto writeerr; goto endofmessage; } if (e->e_dfino == (ino_t) 0) { struct stat stbuf; if (fstat(sm_io_getinfo(e->e_dfp, SM_IO_WHAT_FD, NULL), &stbuf) < 0) e->e_dfino = -1; else { e->e_dfdev = stbuf.st_dev; e->e_dfino = stbuf.st_ino; } } /* paranoia: the data file should always be in a rewound state */ (void) bfrewind(e->e_dfp); /* simulate an I/O timeout when used as source */ if (tTd(84, 101)) sleep(319); #if MIME8TO7 if (bitset(MCIF_CVT8TO7, mci->mci_flags)) { /* ** Do 8 to 7 bit MIME conversion. */ /* make sure it looks like a MIME message */ if (hvalue("MIME-Version", e->e_header) == NULL && !putline("MIME-Version: 1.0", mci)) goto writeerr; if (hvalue("Content-Type", e->e_header) == NULL) { (void) sm_snprintf(buf, sizeof(buf), "Content-Type: text/plain; charset=%s", defcharset(e)); if (!putline(buf, mci)) goto writeerr; } /* now do the hard work */ boundaries[0] = NULL; mci->mci_flags |= MCIF_INHEADER; if (mime8to7(mci, e->e_header, e, boundaries, M87F_OUTER, 0) == SM_IO_EOF) goto writeerr; } # if MIME7TO8 else if (bitset(MCIF_CVT7TO8, mci->mci_flags)) { if (!mime7to8(mci, e->e_header, e)) goto writeerr; } # endif /* MIME7TO8 */ else if (MaxMimeHeaderLength > 0 || MaxMimeFieldLength > 0) { bool oldsuprerrs = SuprErrs; /* Use mime8to7 to check multipart for MIME header overflows */ boundaries[0] = NULL; mci->mci_flags |= MCIF_INHEADER; /* ** If EF_DONT_MIME is set, we have a broken MIME message ** and don't want to generate a new bounce message whose ** body propagates the broken MIME. We can't just not call ** mime8to7() as is done above since we need the security ** checks. The best we can do is suppress the errors. */ if (bitset(EF_DONT_MIME, e->e_flags)) SuprErrs = true; if (mime8to7(mci, e->e_header, e, boundaries, M87F_OUTER|M87F_NO8TO7, 0) == SM_IO_EOF) goto writeerr; /* restore SuprErrs */ SuprErrs = oldsuprerrs; } else #endif /* MIME8TO7 */ { int ostate; register char *bp; register char *pbp; register int c; register char *xp; int padc; char *buflim; int pos = 0; char peekbuf[12]; if (bitset(MCIF_INHEADER, mci->mci_flags)) { if (!putline("", mci)) goto writeerr; mci->mci_flags &= ~MCIF_INHEADER; } /* determine end of buffer; allow for short mailer lines */ buflim = &buf[sizeof(buf) - 1]; if (mci->mci_mailer->m_linelimit > 0 && mci->mci_mailer->m_linelimit < sizeof(buf) - 1) buflim = &buf[mci->mci_mailer->m_linelimit - 1]; /* copy temp file to output with mapping */ ostate = OSTATE_HEAD; bp = buf; pbp = peekbuf; while (!sm_io_error(mci->mci_out) && !dead) { if (pbp > peekbuf) c = *--pbp; else if ((c = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT)) == SM_IO_EOF) break; if (bitset(MCIF_7BIT, mci->mci_flags)) c &= 0x7f; switch (ostate) { case OSTATE_HEAD: if (c == '\0' && bitnset(M_NONULLS, mci->mci_mailer->m_flags)) break; if (c != '\r' && c != '\n' && bp < buflim) { *bp++ = c; break; } /* check beginning of line for special cases */ *bp = '\0'; pos = 0; padc = SM_IO_EOF; if (buf[0] == 'F' && bitnset(M_ESCFROM, mci->mci_mailer->m_flags) && strncmp(buf, "From ", 5) == 0) { padc = '>'; } if (buf[0] == '-' && buf[1] == '-' && separator != NULL) { /* possible separator */ int sl = strlen(separator); if (strncmp(&buf[2], separator, sl) == 0) padc = ' '; } if (buf[0] == '.' && bitnset(M_XDOT, mci->mci_mailer->m_flags)) { padc = '.'; } /* now copy out saved line */ if (TrafficLogFile != NULL) { (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d >>> ", (int) CurrentPid); if (padc != SM_IO_EOF) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, padc); for (xp = buf; xp < bp; xp++) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, (unsigned char) *xp); if (c == '\n') (void) sm_io_fputs(TrafficLogFile, SM_TIME_DEFAULT, mci->mci_mailer->m_eol); } if (padc != SM_IO_EOF) { if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, padc) == SM_IO_EOF) { dead = true; continue; } pos++; } for (xp = buf; xp < bp; xp++) { if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, (unsigned char) *xp) == SM_IO_EOF) { dead = true; break; } } if (dead) continue; if (c == '\n') { if (sm_io_fputs(mci->mci_out, SM_TIME_DEFAULT, mci->mci_mailer->m_eol) == SM_IO_EOF) break; pos = 0; } else { pos += bp - buf; if (c != '\r') { SM_ASSERT(pbp < peekbuf + sizeof(peekbuf)); *pbp++ = c; } } bp = buf; /* determine next state */ if (c == '\n') ostate = OSTATE_HEAD; else if (c == '\r') ostate = OSTATE_CR; else ostate = OSTATE_INLINE; continue; case OSTATE_CR: if (c == '\n') { /* got CRLF */ if (sm_io_fputs(mci->mci_out, SM_TIME_DEFAULT, mci->mci_mailer->m_eol) == SM_IO_EOF) continue; if (TrafficLogFile != NULL) { (void) sm_io_fputs(TrafficLogFile, SM_TIME_DEFAULT, mci->mci_mailer->m_eol); } pos = 0; ostate = OSTATE_HEAD; continue; } /* had a naked carriage return */ SM_ASSERT(pbp < peekbuf + sizeof(peekbuf)); *pbp++ = c; c = '\r'; ostate = OSTATE_INLINE; goto putch; case OSTATE_INLINE: if (c == '\r') { ostate = OSTATE_CR; continue; } if (c == '\0' && bitnset(M_NONULLS, mci->mci_mailer->m_flags)) break; putch: if (mci->mci_mailer->m_linelimit > 0 && pos >= mci->mci_mailer->m_linelimit - 1 && c != '\n') { int d; /* check next character for EOL */ if (pbp > peekbuf) d = *(pbp - 1); else if ((d = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT)) != SM_IO_EOF) { SM_ASSERT(pbp < peekbuf + sizeof(peekbuf)); *pbp++ = d; } if (d == '\n' || d == SM_IO_EOF) { if (TrafficLogFile != NULL) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, (unsigned char) c); if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, (unsigned char) c) == SM_IO_EOF) { dead = true; continue; } pos++; continue; } if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, '!') == SM_IO_EOF || sm_io_fputs(mci->mci_out, SM_TIME_DEFAULT, mci->mci_mailer->m_eol) == SM_IO_EOF) { dead = true; continue; } if (TrafficLogFile != NULL) { (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "!%s", mci->mci_mailer->m_eol); } ostate = OSTATE_HEAD; SM_ASSERT(pbp < peekbuf + sizeof(peekbuf)); *pbp++ = c; continue; } if (c == '\n') { if (TrafficLogFile != NULL) (void) sm_io_fputs(TrafficLogFile, SM_TIME_DEFAULT, mci->mci_mailer->m_eol); if (sm_io_fputs(mci->mci_out, SM_TIME_DEFAULT, mci->mci_mailer->m_eol) == SM_IO_EOF) continue; pos = 0; ostate = OSTATE_HEAD; } else { if (TrafficLogFile != NULL) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, (unsigned char) c); if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, (unsigned char) c) == SM_IO_EOF) { dead = true; continue; } pos++; ostate = OSTATE_INLINE; } break; } } /* make sure we are at the beginning of a line */ if (bp > buf) { if (TrafficLogFile != NULL) { for (xp = buf; xp < bp; xp++) (void) sm_io_putc(TrafficLogFile, SM_TIME_DEFAULT, (unsigned char) *xp); } for (xp = buf; xp < bp; xp++) { if (sm_io_putc(mci->mci_out, SM_TIME_DEFAULT, (unsigned char) *xp) == SM_IO_EOF) { dead = true; break; } } pos += bp - buf; } if (!dead && pos > 0) { if (TrafficLogFile != NULL) (void) sm_io_fputs(TrafficLogFile, SM_TIME_DEFAULT, mci->mci_mailer->m_eol); if (sm_io_fputs(mci->mci_out, SM_TIME_DEFAULT, mci->mci_mailer->m_eol) == SM_IO_EOF) goto writeerr; } } if (sm_io_error(e->e_dfp)) { syserr("putbody: %s/%cf%s: read error", qid_printqueue(e->e_dfqgrp, e->e_dfqdir), DATAFL_LETTER, e->e_id); ExitStat = EX_IOERR; ioerr = true; } endofmessage: /* ** Since mailfile() uses e_dfp in a child process, ** the file offset in the stdio library for the ** parent process will not agree with the in-kernel ** file offset since the file descriptor is shared ** between the processes. Therefore, it is vital ** that the file always be rewound. This forces the ** kernel offset (lseek) and stdio library (ftell) ** offset to match. */ save_errno = errno; if (e->e_dfp != NULL) (void) bfrewind(e->e_dfp); /* some mailers want extra blank line at end of message */ if (!dead && bitnset(M_BLANKEND, mci->mci_mailer->m_flags) && buf[0] != '\0' && buf[0] != '\n') { if (!putline("", mci)) goto writeerr; } if (!dead && (sm_io_flush(mci->mci_out, SM_TIME_DEFAULT) == SM_IO_EOF || (sm_io_error(mci->mci_out) && errno != EPIPE))) { save_errno = errno; syserr("putbody: write error"); ExitStat = EX_IOERR; ioerr = true; } errno = save_errno; return !dead && !ioerr; writeerr: return false; } /* ** MAILFILE -- Send a message to a file. ** ** If the file has the set-user-ID/set-group-ID bits set, but NO ** execute bits, sendmail will try to become the owner of that file ** rather than the real user. Obviously, this only works if ** sendmail runs as root. ** ** This could be done as a subordinate mailer, except that it ** is used implicitly to save messages in ~/dead.letter. We ** view this as being sufficiently important as to include it ** here. For example, if the system is dying, we shouldn't have ** to create another process plus some pipes to save the message. ** ** Parameters: ** filename -- the name of the file to send to. ** mailer -- mailer definition for recipient -- if NULL, ** use FileMailer. ** ctladdr -- the controlling address header -- includes ** the userid/groupid to be when sending. ** sfflags -- flags for opening. ** e -- the current envelope. ** ** Returns: ** The exit code associated with the operation. ** ** Side Effects: ** none. */ # define RETURN(st) exit(st); static jmp_buf CtxMailfileTimeout; int mailfile(filename, mailer, ctladdr, sfflags, e) char *volatile filename; MAILER *volatile mailer; ADDRESS *ctladdr; volatile long sfflags; register ENVELOPE *e; { register SM_FILE_T *f; register pid_t pid = -1; volatile int mode; int len; off_t curoff; bool suidwarn = geteuid() == 0; char *p; char *volatile realfile; SM_EVENT *ev; char buf[MAXPATHLEN]; char targetfile[MAXPATHLEN]; if (tTd(11, 1)) { sm_dprintf("mailfile %s\n ctladdr=", filename); printaddr(sm_debug_file(), ctladdr, false); } if (mailer == NULL) mailer = FileMailer; if (e->e_xfp != NULL) (void) sm_io_flush(e->e_xfp, SM_TIME_DEFAULT); /* ** Special case /dev/null. This allows us to restrict file ** delivery to regular files only. */ if (sm_path_isdevnull(filename)) return EX_OK; /* check for 8-bit available */ if (bitset(EF_HAS8BIT, e->e_flags) && bitnset(M_7BITS, mailer->m_flags) && (bitset(EF_DONT_MIME, e->e_flags) || !(bitset(MM_MIME8BIT, MimeMode) || (bitset(EF_IS_MIME, e->e_flags) && bitset(MM_CVTMIME, MimeMode))))) { e->e_status = "5.6.3"; usrerrenh(e->e_status, "554 Cannot send 8-bit data to 7-bit destination"); errno = 0; return EX_DATAERR; } /* Find the actual file */ if (SafeFileEnv != NULL && SafeFileEnv[0] != '\0') { len = strlen(SafeFileEnv); if (strncmp(SafeFileEnv, filename, len) == 0) filename += len; if (len + strlen(filename) + 1 >= sizeof(targetfile)) { syserr("mailfile: filename too long (%s/%s)", SafeFileEnv, filename); return EX_CANTCREAT; } (void) sm_strlcpy(targetfile, SafeFileEnv, sizeof(targetfile)); realfile = targetfile + len; if (*filename == '/') filename++; if (*filename != '\0') { /* paranoia: trailing / should be removed in readcf */ if (targetfile[len - 1] != '/') (void) sm_strlcat(targetfile, "/", sizeof(targetfile)); (void) sm_strlcat(targetfile, filename, sizeof(targetfile)); } } else if (mailer->m_rootdir != NULL) { expand(mailer->m_rootdir, targetfile, sizeof(targetfile), e); len = strlen(targetfile); if (strncmp(targetfile, filename, len) == 0) filename += len; if (len + strlen(filename) + 1 >= sizeof(targetfile)) { syserr("mailfile: filename too long (%s/%s)", targetfile, filename); return EX_CANTCREAT; } realfile = targetfile + len; if (targetfile[len - 1] != '/') (void) sm_strlcat(targetfile, "/", sizeof(targetfile)); if (*filename == '/') (void) sm_strlcat(targetfile, filename + 1, sizeof(targetfile)); else (void) sm_strlcat(targetfile, filename, sizeof(targetfile)); } else { if (sm_strlcpy(targetfile, filename, sizeof(targetfile)) >= sizeof(targetfile)) { syserr("mailfile: filename too long (%s)", filename); return EX_CANTCREAT; } realfile = targetfile; } /* ** Fork so we can change permissions here. ** Note that we MUST use fork, not vfork, because of ** the complications of calling subroutines, etc. */ /* ** Dispose of SIGCHLD signal catchers that may be laying ** around so that the waitfor() below will get it. */ (void) sm_signal(SIGCHLD, SIG_DFL); DOFORK(fork); if (pid < 0) return EX_OSERR; else if (pid == 0) { /* child -- actually write to file */ struct stat stb; MCI mcibuf; int err; volatile int oflags = O_WRONLY|O_APPEND; /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; CurrentPid = getpid(); if (e->e_lockfp != NULL) { int fd; fd = sm_io_getinfo(e->e_lockfp, SM_IO_WHAT_FD, NULL); /* SM_ASSERT(fd >= 0); */ if (fd >= 0) (void) close(fd); } (void) sm_signal(SIGINT, SIG_DFL); (void) sm_signal(SIGHUP, SIG_DFL); (void) sm_signal(SIGTERM, SIG_DFL); (void) umask(OldUmask); e->e_to = filename; ExitStat = EX_OK; if (setjmp(CtxMailfileTimeout) != 0) { RETURN(EX_TEMPFAIL); } if (TimeOuts.to_fileopen > 0) ev = sm_setevent(TimeOuts.to_fileopen, mailfiletimeout, 0); else ev = NULL; /* check file mode to see if set-user-ID */ if (stat(targetfile, &stb) < 0) mode = FileMode; else mode = stb.st_mode; /* limit the errors to those actually caused in the child */ errno = 0; ExitStat = EX_OK; /* Allow alias expansions to use the S_IS{U,G}ID bits */ if ((ctladdr != NULL && !bitset(QALIAS, ctladdr->q_flags)) || bitset(SFF_RUNASREALUID, sfflags)) { /* ignore set-user-ID and set-group-ID bits */ mode &= ~(S_ISGID|S_ISUID); if (tTd(11, 20)) sm_dprintf("mailfile: ignoring set-user-ID/set-group-ID bits\n"); } /* we have to open the data file BEFORE setuid() */ if (e->e_dfp == NULL && bitset(EF_HAS_DF, e->e_flags)) { char *df = queuename(e, DATAFL_LETTER); e->e_dfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, df, SM_IO_RDONLY_B, NULL); if (e->e_dfp == NULL) { syserr("mailfile: Cannot open %s for %s from %s", df, e->e_to, e->e_from.q_paddr); } } /* select a new user to run as */ if (!bitset(SFF_RUNASREALUID, sfflags)) { if (bitnset(M_SPECIFIC_UID, mailer->m_flags)) { RealUserName = NULL; if (mailer->m_uid == NO_UID) RealUid = RunAsUid; else RealUid = mailer->m_uid; if (RunAsUid != 0 && RealUid != RunAsUid) { /* Only root can change the uid */ syserr("mailfile: insufficient privileges to change uid, RunAsUid=%ld, RealUid=%ld", (long) RunAsUid, (long) RealUid); RETURN(EX_TEMPFAIL); } } else if (bitset(S_ISUID, mode)) { RealUserName = NULL; RealUid = stb.st_uid; } else if (ctladdr != NULL && ctladdr->q_uid != 0) { if (ctladdr->q_ruser != NULL) RealUserName = ctladdr->q_ruser; else RealUserName = ctladdr->q_user; RealUid = ctladdr->q_uid; } else if (mailer != NULL && mailer->m_uid != NO_UID) { RealUserName = DefUser; RealUid = mailer->m_uid; } else { RealUserName = DefUser; RealUid = DefUid; } /* select a new group to run as */ if (bitnset(M_SPECIFIC_UID, mailer->m_flags)) { if (mailer->m_gid == NO_GID) RealGid = RunAsGid; else RealGid = mailer->m_gid; if (RunAsUid != 0 && (RealGid != getgid() || RealGid != getegid())) { /* Only root can change the gid */ syserr("mailfile: insufficient privileges to change gid, RealGid=%ld, RunAsUid=%ld, gid=%ld, egid=%ld", (long) RealGid, (long) RunAsUid, (long) getgid(), (long) getegid()); RETURN(EX_TEMPFAIL); } } else if (bitset(S_ISGID, mode)) RealGid = stb.st_gid; else if (ctladdr != NULL && ctladdr->q_uid == DefUid && ctladdr->q_gid == 0) { /* ** Special case: This means it is an ** alias and we should act as DefaultUser. ** See alias()'s comments. */ RealGid = DefGid; RealUserName = DefUser; } else if (ctladdr != NULL && ctladdr->q_uid != 0) RealGid = ctladdr->q_gid; else if (mailer != NULL && mailer->m_gid != NO_GID) RealGid = mailer->m_gid; else RealGid = DefGid; } /* last ditch */ if (!bitset(SFF_ROOTOK, sfflags)) { if (RealUid == 0) RealUid = DefUid; if (RealGid == 0) RealGid = DefGid; } /* set group id list (needs /etc/group access) */ if (RealUserName != NULL && !DontInitGroups) { if (initgroups(RealUserName, RealGid) == -1 && suidwarn) { syserr("mailfile: initgroups(%s, %ld) failed", RealUserName, (long) RealGid); RETURN(EX_TEMPFAIL); } } else { GIDSET_T gidset[1]; gidset[0] = RealGid; if (setgroups(1, gidset) == -1 && suidwarn) { syserr("mailfile: setgroups() failed"); RETURN(EX_TEMPFAIL); } } /* ** If you have a safe environment, go into it. */ if (realfile != targetfile) { char save; save = *realfile; *realfile = '\0'; if (tTd(11, 20)) sm_dprintf("mailfile: chroot %s\n", targetfile); if (chroot(targetfile) < 0) { syserr("mailfile: Cannot chroot(%s)", targetfile); RETURN(EX_CANTCREAT); } *realfile = save; } if (tTd(11, 40)) sm_dprintf("mailfile: deliver to %s\n", realfile); if (chdir("/") < 0) { syserr("mailfile: cannot chdir(/)"); RETURN(EX_CANTCREAT); } /* now reset the group and user ids */ endpwent(); sm_mbdb_terminate(); if (setgid(RealGid) < 0 && suidwarn) { syserr("mailfile: setgid(%ld) failed", (long) RealGid); RETURN(EX_TEMPFAIL); } vendor_set_uid(RealUid); if (setuid(RealUid) < 0 && suidwarn) { syserr("mailfile: setuid(%ld) failed", (long) RealUid); RETURN(EX_TEMPFAIL); } if (tTd(11, 2)) sm_dprintf("mailfile: running as r/euid=%ld/%ld, r/egid=%ld/%ld\n", (long) getuid(), (long) geteuid(), (long) getgid(), (long) getegid()); /* move into some "safe" directory */ if (mailer->m_execdir != NULL) { char *q; for (p = mailer->m_execdir; p != NULL; p = q) { q = strchr(p, ':'); if (q != NULL) *q = '\0'; expand(p, buf, sizeof(buf), e); if (q != NULL) *q++ = ':'; if (tTd(11, 20)) sm_dprintf("mailfile: trydir %s\n", buf); if (buf[0] != '\0' && chdir(buf) >= 0) break; } } /* ** Recheck the file after we have assumed the ID of the ** delivery user to make sure we can deliver to it as ** that user. This is necessary if sendmail is running ** as root and the file is on an NFS mount which treats ** root as nobody. */ #if HASLSTAT if (bitnset(DBS_FILEDELIVERYTOSYMLINK, DontBlameSendmail)) err = stat(realfile, &stb); else err = lstat(realfile, &stb); #else /* HASLSTAT */ err = stat(realfile, &stb); #endif /* HASLSTAT */ if (err < 0) { stb.st_mode = ST_MODE_NOFILE; mode = FileMode; oflags |= O_CREAT|O_EXCL; } else if (bitset(S_IXUSR|S_IXGRP|S_IXOTH, mode) || (!bitnset(DBS_FILEDELIVERYTOHARDLINK, DontBlameSendmail) && stb.st_nlink != 1) || (realfile != targetfile && !S_ISREG(mode))) exit(EX_CANTCREAT); else mode = stb.st_mode; if (!bitnset(DBS_FILEDELIVERYTOSYMLINK, DontBlameSendmail)) sfflags |= SFF_NOSLINK; if (!bitnset(DBS_FILEDELIVERYTOHARDLINK, DontBlameSendmail)) sfflags |= SFF_NOHLINK; sfflags &= ~SFF_OPENASROOT; f = safefopen(realfile, oflags, mode, sfflags); if (f == NULL) { if (transienterror(errno)) { usrerr("454 4.3.0 cannot open %s: %s", shortenstring(realfile, MAXSHORTSTR), sm_errstring(errno)); RETURN(EX_TEMPFAIL); } else { usrerr("554 5.3.0 cannot open %s: %s", shortenstring(realfile, MAXSHORTSTR), sm_errstring(errno)); RETURN(EX_CANTCREAT); } } if (filechanged(realfile, sm_io_getinfo(f, SM_IO_WHAT_FD, NULL), &stb)) { syserr("554 5.3.0 file changed after open"); RETURN(EX_CANTCREAT); } if (fstat(sm_io_getinfo(f, SM_IO_WHAT_FD, NULL), &stb) < 0) { syserr("554 5.3.0 cannot fstat %s", sm_errstring(errno)); RETURN(EX_CANTCREAT); } curoff = stb.st_size; if (ev != NULL) sm_clrevent(ev); memset(&mcibuf, '\0', sizeof(mcibuf)); mcibuf.mci_mailer = mailer; mcibuf.mci_out = f; if (bitnset(M_7BITS, mailer->m_flags)) mcibuf.mci_flags |= MCIF_7BIT; /* clear out per-message flags from connection structure */ mcibuf.mci_flags &= ~(MCIF_CVT7TO8|MCIF_CVT8TO7); if (bitset(EF_HAS8BIT, e->e_flags) && !bitset(EF_DONT_MIME, e->e_flags) && bitnset(M_7BITS, mailer->m_flags)) mcibuf.mci_flags |= MCIF_CVT8TO7; #if MIME7TO8 if (bitnset(M_MAKE8BIT, mailer->m_flags) && !bitset(MCIF_7BIT, mcibuf.mci_flags) && (p = hvalue("Content-Transfer-Encoding", e->e_header)) != NULL && (SM_STRCASEEQ(p, "quoted-printable") || SM_STRCASEEQ(p, "base64")) && (p = hvalue("Content-Type", e->e_header)) != NULL) { /* may want to convert 7 -> 8 */ /* XXX should really parse it here -- and use a class XXX */ if (sm_strncasecmp(p, "text/plain", 10) == 0 && (p[10] == '\0' || p[10] == ' ' || p[10] == ';')) mcibuf.mci_flags |= MCIF_CVT7TO8; } #endif /* MIME7TO8 */ if (!putfromline(&mcibuf, e) || !(*e->e_puthdr)(&mcibuf, e->e_header, e, M87F_OUTER) || !(*e->e_putbody)(&mcibuf, e, NULL) || !putline("\n", &mcibuf) || (sm_io_flush(f, SM_TIME_DEFAULT) != 0 || (SuperSafe != SAFE_NO && fsync(sm_io_getinfo(f, SM_IO_WHAT_FD, NULL)) < 0) || sm_io_error(f))) { setstat(EX_IOERR); #if !NOFTRUNCATE (void) ftruncate(sm_io_getinfo(f, SM_IO_WHAT_FD, NULL), curoff); #endif } /* reset ISUID & ISGID bits for paranoid systems */ #if HASFCHMOD (void) fchmod(sm_io_getinfo(f, SM_IO_WHAT_FD, NULL), (MODE_T) mode); #else (void) chmod(filename, (MODE_T) mode); #endif if (sm_io_close(f, SM_TIME_DEFAULT) < 0) setstat(EX_IOERR); (void) sm_io_flush(smioout, SM_TIME_DEFAULT); (void) setuid(RealUid); exit(ExitStat); /* NOTREACHED */ } else { /* parent -- wait for exit status */ int st; st = waitfor(pid); if (st == -1) { syserr("mailfile: %s: wait", mailer->m_name); return EX_SOFTWARE; } if (WIFEXITED(st)) { errno = 0; return (WEXITSTATUS(st)); } else { syserr("mailfile: %s: child died on signal %d", mailer->m_name, st); return EX_UNAVAILABLE; } /* NOTREACHED */ } return EX_UNAVAILABLE; /* avoid compiler warning on IRIX */ } static void mailfiletimeout(ignore) int ignore; { /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ errno = ETIMEDOUT; longjmp(CtxMailfileTimeout, 1); } #if DANE /* ** GETMPORT -- return the port of a mailer ** ** Parameters: ** m -- the mailer describing this host. ** ** Returns: ** the port of the mailer if defined. ** 0 otherwise ** <0 error */ static int getmport __P((MAILER *)); static int getmport(m) MAILER *m; { unsigned long ulval; char *buf, *ep; if (m->m_port > 0) return m->m_port; if (NULL == m->m_argv[0] ||NULL == m->m_argv[1]) return -1; buf = m->m_argv[2]; if (NULL == buf) return 0; errno = 0; ulval = strtoul(buf, &ep, 0); if (buf[0] == '\0' || *ep != '\0') return -1; if (errno == ERANGE && ulval == ULONG_MAX) return -1; if (ulval > USHRT_MAX) return -1; m->m_port = (unsigned short) ulval; if (tTd(17, 30)) sm_dprintf("getmport: mailer=%s, port=%d\n", m->m_name, m->m_port); return m->m_port; } # define GETMPORT(m) getmport(m) #else /* DANE */ # define GETMPORT(m) 25 #endif /* DANE */ /* ** HOSTSIGNATURE -- return the "signature" for a host (list). ** ** The signature describes how we are going to send this -- it ** can be just the hostname (for non-Internet hosts) or can be ** an ordered list of MX hosts. ** ** Parameters: ** m -- the mailer describing this host. ** host -- the host name (can be a list). ** ad -- DNSSEC: ad flag for lookup of host. ** pqflags -- (pointer to) q_flags (can be NULL) ** ** Returns: ** The signature for this host. ** ** Side Effects: ** Can tweak the symbol table. */ #define MAXHOSTSIGNATURE 8192 /* max len of hostsignature */ char * hostsignature(m, host, ad, pqflags) register MAILER *m; char *host; bool ad; unsigned long *pqflags; { register char *p; register STAB *s; time_t now; #if NAMED_BIND char sep = ':'; char prevsep = ':'; int i; int len; int nmx; int hl; char *hp; char *endp; char *lstr; int oldoptions = _res.options; char *mxhosts[MAXMXHOSTS + 1]; unsigned short mxprefs[MAXMXHOSTS + 1]; #endif /* NAMED_BIND */ int admx; if (tTd(17, 3)) sm_dprintf("hostsignature: host=%s, ad=%d\n", host, ad); if (pqflags != NULL && !ad) *pqflags &= ~QMXSECURE; /* ** If local delivery (and not remote), just return a constant. */ if (bitnset(M_LOCALMAILER, m->m_flags) && strcmp(m->m_mailer, "[IPC]") != 0 && !(m->m_argv[0] != NULL && strcmp(m->m_argv[0], "TCP") == 0)) return "localhost"; /* an empty host does not have MX records */ if (*host == '\0') return "_empty_"; /* ** Check to see if this uses IPC -- if not, it can't have MX records. */ if (strcmp(m->m_mailer, "[IPC]") != 0 || CurEnv->e_sendmode == SM_DEFER) { /* just an ordinary mailer or deferred mode */ return host; } #if NETUNIX else if (m->m_argv[0] != NULL && strcmp(m->m_argv[0], "FILE") == 0) { /* rendezvous in the file system, no MX records */ return host; } #endif /* NETUNIX */ /* ** Look it up in the symbol table. */ now = curtime(); s = stab(host, ST_HOSTSIG, ST_ENTER); if (s->s_hostsig.hs_sig != NULL) { if (s->s_hostsig.hs_exp >= now) { if (tTd(17, 3)) sm_dprintf("hostsignature: stab(%s) found %s\n", host, s->s_hostsig.hs_sig); return s->s_hostsig.hs_sig; } /* signature is expired: clear it */ sm_free(s->s_hostsig.hs_sig); s->s_hostsig.hs_sig = NULL; } /* set default TTL */ s->s_hostsig.hs_exp = now + SM_DEFAULT_TTL; /* ** Not already there or expired -- create a signature. */ #if NAMED_BIND if (ConfigLevel < 2) _res.options &= ~(RES_DEFNAMES | RES_DNSRCH); /* XXX */ for (hp = host; hp != NULL; hp = endp) { # if NETINET6 if (*hp == '[') { endp = strchr(hp + 1, ']'); if (endp != NULL) endp = strpbrk(endp + 1, ":,"); } else endp = strpbrk(hp, ":,"); # else /* NETINET6 */ endp = strpbrk(hp, ":,"); # endif /* NETINET6 */ if (endp != NULL) { sep = *endp; *endp = '\0'; } if (bitnset(M_NOMX, m->m_flags)) { /* skip MX lookups */ nmx = 1; mxhosts[0] = hp; } else { auto int rcode; int ttl; admx = 0; nmx = getmxrr(hp, mxhosts, mxprefs, DROPLOCALHOST|(ad ? ISAD :0)| ((NULL == endp) ? TRYFALLBACK : 0), &rcode, &ttl, GETMPORT(m), &admx); if (nmx <= 0) { int save_errno; register MCI *mci; /* update the connection info for this host */ save_errno = errno; mci = mci_get(hp, m); mci->mci_errno = save_errno; mci->mci_herrno = h_errno; mci->mci_lastuse = now; if (nmx == NULLMX) mci_setstat(mci, rcode, ESCNULLMXRCPT, ERRNULLMX); else if (rcode == EX_NOHOST) mci_setstat(mci, rcode, "5.1.2", "550 Host unknown"); else mci_setstat(mci, rcode, NULL, NULL); /* use the original host name as signature */ nmx = 1; mxhosts[0] = hp; } /* ** NOTE: this sets QMXSECURE if the ad flags is set ** for at least one host in the host list. XXX */ if (pqflags != NULL && admx) *pqflags |= QMXSECURE; if (tTd(17, 3)) sm_dprintf("hostsignature: host=%s, getmxrr=%d, mxhosts[0]=%s, admx=%d\n", hp, nmx, mxhosts[0], admx); /* ** Set new TTL: we use only one! ** We could try to use the minimum instead. */ s->s_hostsig.hs_exp = now + SM_MIN(ttl, SM_DEFAULT_TTL); } len = 0; for (i = 0; i < nmx; i++) len += strlen(mxhosts[i]) + 1; if (s->s_hostsig.hs_sig != NULL) len += strlen(s->s_hostsig.hs_sig) + 1; # if DANE && HSMARKS if (admx && DANE_SEC(Dane)) len += nmx; # endif if (len < 0 || len >= MAXHOSTSIGNATURE) { sm_syslog(LOG_WARNING, NOQID, "hostsignature for host '%s' exceeds maxlen (%d): %d", host, MAXHOSTSIGNATURE, len); len = MAXHOSTSIGNATURE; } p = sm_pmalloc_x(len); if (s->s_hostsig.hs_sig != NULL) { (void) sm_strlcpy(p, s->s_hostsig.hs_sig, len); sm_free(s->s_hostsig.hs_sig); /* XXX */ s->s_hostsig.hs_sig = p; hl = strlen(p); p += hl; *p++ = prevsep; len -= hl + 1; } else s->s_hostsig.hs_sig = p; for (i = 0; i < nmx; i++) { hl = strlen(mxhosts[i]); if (len <= 1 || # if DANE && HSMARKS len - 1 < (hl + ((admx && DANE_SEC(Dane)) ? 1 : 0)) # else len - 1 < hl # endif ) { /* force to drop out of outer loop */ len = -1; break; } if (i != 0) { if (mxprefs[i] == mxprefs[i - 1]) *p++ = ','; else *p++ = ':'; len--; } # if DANE && HSMARKS if (admx && DANE_SEC(Dane)) { *p++ = HSM_AD; len--; } # endif (void) sm_strlcpy(p, mxhosts[i], len); p += hl; len -= hl; } /* ** break out of loop if len exceeded MAXHOSTSIGNATURE ** because we won't have more space for further hosts ** anyway (separated by : in the .cf file). */ if (len < 0) break; if (endp != NULL) *endp++ = sep; prevsep = sep; } lstr = makelower_a(&s->s_hostsig.hs_sig, NULL); ASSIGN_IFDIFF(s->s_hostsig.hs_sig, lstr); if (ConfigLevel < 2) _res.options = oldoptions; #else /* NAMED_BIND */ /* not using BIND -- the signature is just the host name */ /* ** 'host' points to storage that will be freed after we are ** done processing the current envelope, so we copy it. */ s->s_hostsig.hs_sig = sm_pstrdup_x(host); #endif /* NAMED_BIND */ if (tTd(17, 1)) sm_dprintf("hostsignature: host=%s, result=%s\n", host, s->s_hostsig.hs_sig); return s->s_hostsig.hs_sig; } /* ** PARSE_HOSTSIGNATURE -- parse the "signature" and return MX host array. ** ** The signature describes how we are going to send this -- it ** can be just the hostname (for non-Internet hosts) or can be ** an ordered list of MX hosts which must be randomized for equal ** MX preference values. ** ** Parameters: ** sig -- the host signature. ** mxhosts -- array to populate. ** mailer -- mailer. ** ** Returns: ** The number of hosts inserted into mxhosts array. ** ** NOTES: ** mxhosts must have at least MAXMXHOSTS entries ** mxhosts[] will point to elements in sig -- ** hence any changes to mxhosts[] will modify sig! ** ** Side Effects: ** Randomizes equal MX preference hosts in mxhosts. */ static int parse_hostsignature(sig, mxhosts, mailer #if DANE , mxads #endif ) char *sig; char **mxhosts; MAILER *mailer; #if DANE BITMAP256 mxads; #endif { unsigned short curpref = 0; int nmx = 0, i, j; /* NOTE: i, j, and nmx must have same type */ char *hp, *endp; unsigned short prefer[MAXMXHOSTS]; long rndm[MAXMXHOSTS]; #if DANE clrbitmap(mxads); #endif for (hp = sig; hp != NULL; hp = endp) { char sep = ':'; FIX_MXHOSTS(hp, endp, sep); #if HSMARKS if (HSM_AD == *hp) { MXADS_SET(mxads, nmx); mxhosts[nmx] = hp + 1; } else #endif mxhosts[nmx] = hp; prefer[nmx] = curpref; if (mci_match(hp, mailer)) rndm[nmx] = 0; else rndm[nmx] = get_random(); if (endp != NULL) { /* ** Since we don't have the original MX prefs, ** make our own. If the separator is a ':', that ** means the preference for the next host will be ** higher than this one, so simply increment curpref. */ if (sep == ':') curpref++; *endp++ = sep; } if (++nmx >= MAXMXHOSTS) break; } /* sort the records using the random factor for equal preferences */ for (i = 0; i < nmx; i++) { for (j = i + 1; j < nmx; j++) { /* ** List is already sorted by MX preference, only ** need to look for equal preference MX records */ if (prefer[i] < prefer[j]) break; if (prefer[i] > prefer[j] || (prefer[i] == prefer[j] && rndm[i] > rndm[j])) { register unsigned short tempp; register long tempr; register char *temp1; tempp = prefer[i]; prefer[i] = prefer[j]; prefer[j] = tempp; temp1 = mxhosts[i]; mxhosts[i] = mxhosts[j]; mxhosts[j] = temp1; tempr = rndm[i]; rndm[i] = rndm[j]; rndm[j] = tempr; } } } return nmx; } #if STARTTLS static SSL_CTX *clt_ctx = NULL; static bool tls_ok_clt = true; # if DANE static bool ctx_dane_enabled = false; # endif /* ** SETCLTTLS -- client side TLS: allow/disallow. ** ** Parameters: ** tls_ok -- should tls be done? ** ** Returns: ** none. ** ** Side Effects: ** sets tls_ok_clt (static variable in this module) */ void setclttls(tls_ok) bool tls_ok; { tls_ok_clt = tls_ok; return; } /* ** INITCLTTLS -- initialize client side TLS ** ** Parameters: ** tls_ok -- should TLS initialization be done? ** ** Returns: ** succeeded? ** ** Side Effects: ** sets tls_ok_clt, ctx_dane_enabled (static variables ** in this module) */ bool initclttls(tls_ok) bool tls_ok; { if (!tls_ok_clt) return false; tls_ok_clt = tls_ok; if (!tls_ok_clt) return false; if (clt_ctx != NULL) return true; /* already done */ tls_ok_clt = inittls(&clt_ctx, TLS_I_CLT, Clt_SSL_Options, false, CltCertFile, CltKeyFile, # if _FFR_CLIENTCA (CltCACertPath != NULL) ? CltCACertPath : # endif CACertPath, # if _FFR_CLIENTCA (CltCACertFile != NULL) ? CltCACertFile : # endif CACertFile, DHParams); # if _FFR_TESTS if (tls_ok_clt && tTd(90, 104)) { sm_dprintf("test=simulate initclttls error\n"); tls_ok_clt = false; } # endif /* _FFR_TESTS */ # if DANE if (tls_ok_clt && CHK_DANE(Dane)) { # if HAVE_SSL_CTX_dane_enable int r; r = SSL_CTX_dane_enable(clt_ctx); # if _FFR_TESTS if (tTd(90, 103)) { sm_dprintf("test=simulate SSL_CTX_dane_enable error\n"); # if defined(SSL_F_DANE_CTX_ENABLE) SSLerr(SSL_F_DANE_CTX_ENABLE, ERR_R_MALLOC_FAILURE); # endif r = -1; } # endif /* _FFR_TESTS */ ctx_dane_enabled = (r > 0); if (r <= 0) { if (LogLevel > 1) sm_syslog(LOG_ERR, NOQID, "SSL_CTX_dane_enable=%d", r); tlslogerr(LOG_ERR, 7, "init_client"); } else if (LogLevel > 13) sm_syslog(LOG_DEBUG, NOQID, "SSL_CTX_dane_enable=%d", r); # else ctx_dane_enabled = false; # endif /* HAVE_SSL_CTX_dane_enable */ } if (tTd(90, 90)) sm_dprintf("func=initclttls, ctx_dane_enabled=%d\n", ctx_dane_enabled); # endif /* DANE */ return tls_ok_clt; } /* ** STARTTLS -- try to start secure connection (client side) ** ** Parameters: ** m -- the mailer. ** mci -- the mailer connection info. ** e -- the envelope. ** implicit -- implicit TLS (SMTP over TLS, no STARTTLS command) ** ** Returns: ** success? ** (maybe this should be some other code than EX_ ** that denotes which stage failed.) */ static int starttls(m, mci, e, implicit # if DANE , dane_vrfy_ctx # endif ) MAILER *m; MCI *mci; ENVELOPE *e; bool implicit; # if DANE dane_vrfy_ctx_P dane_vrfy_ctx; # endif { int smtpresult; int result = 0; int ret = EX_OK; int rfd, wfd; SSL *clt_ssl = NULL; time_t tlsstart; extern int TLSsslidx; # if DANE if (TTD(90, 60)) sm_dprintf("starttls=client: Dane=%d, dane_vrfy_chk=%#x\n", Dane,dane_vrfy_ctx->dane_vrfy_chk); # endif if (clt_ctx == NULL && !initclttls(true)) return EX_TEMPFAIL; if (!TLS_set_engine(SSLEngine, false)) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=client, engine=%s, TLS_set_engine=failed", SSLEngine); return EX_TEMPFAIL; } /* clt_ssl needed for get_tls_se_features() hence create here */ if ((clt_ssl = SSL_new(clt_ctx)) == NULL) { if (LogLevel > 5) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=client, error: SSL_new failed"); tlslogerr(LOG_WARNING, 9, "client"); } return EX_TEMPFAIL; } ret = get_tls_se_features(e, clt_ssl, &mci->mci_tlsi, false); if (EX_OK != ret) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=client, get_tls_se_features=failed, ret=%d", ret); goto fail; } if (!implicit) { smtpmessage("STARTTLS", m, mci); /* get the reply */ smtpresult = reply(m, mci, e, TimeOuts.to_starttls, NULL, NULL, XS_STARTTLS, NULL); /* check return code from server */ if (REPLYTYPE(smtpresult) == 4) { ret = EX_TEMPFAIL; goto fail; } #if 0 /* ** RFC 3207 says ** 501 Syntax error (no parameters allowed) ** since sendmail does not use arguments, that's basically ** a "cannot happen", hence treat it as any other 5xy, ** which means it is also properly handled by the rules. */ if (smtpresult == 501) { ret = EX_USAGE; goto fail; } #endif /* 0 */ if (smtpresult == -1) { ret = smtpresult; goto fail; } /* not an expected reply but we have to deal with it */ if (REPLYTYPE(smtpresult) == 5) { ret = EX_UNAVAILABLE; goto fail; } if (smtpresult != 220) { ret = EX_PROTOCOL; goto fail; } } if (LogLevel > 13) sm_syslog(LOG_INFO, NOQID, "STARTTLS=client, start=ok"); /* SSL_clear(clt_ssl); ? */ result = SSL_set_ex_data(clt_ssl, TLSsslidx, &mci->mci_tlsi); if (0 == result) { if (LogLevel > 5) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=client, error: SSL_set_ex_data failed=%d, idx=%d", result, TLSsslidx); tlslogerr(LOG_WARNING, 9, "client"); } goto fail; } # if DANE if (SM_TLSI_IS(&(mci->mci_tlsi), TLSI_FL_NODANE)) dane_vrfy_ctx->dane_vrfy_chk = DANE_NEVER; if (TTD(90, 60)) sm_dprintf("starttls=client: 2: dane_vrfy_chk=%#x CHK_DANE=%d\n", dane_vrfy_ctx->dane_vrfy_chk, CHK_DANE(dane_vrfy_ctx->dane_vrfy_chk)); if (CHK_DANE(dane_vrfy_ctx->dane_vrfy_chk)) { int r; /* set SNI only if there is a TLSA RR */ if (tTd(90, 40)) sm_dprintf("dane_get_tlsa=%p, dane_vrfy_host=%s, dane_vrfy_sni=%s, ctx_dane_enabled=%d, dane_enabled=%d\n", dane_get_tlsa(dane_vrfy_ctx), dane_vrfy_ctx->dane_vrfy_host, dane_vrfy_ctx->dane_vrfy_sni, ctx_dane_enabled, dane_vrfy_ctx->dane_vrfy_dane_enabled); if (dane_get_tlsa(dane_vrfy_ctx) != NULL && !(SM_IS_EMPTY(dane_vrfy_ctx->dane_vrfy_host) && SM_IS_EMPTY(dane_vrfy_ctx->dane_vrfy_sni))) { # if _FFR_MTA_STS SM_FREE(STS_SNI); # endif dane_vrfy_ctx->dane_vrfy_dane_enabled = ctx_dane_enabled; if ((r = ssl_dane_enable(dane_vrfy_ctx, clt_ssl)) < 0) { dane_vrfy_ctx->dane_vrfy_dane_enabled = false; if (LogLevel > 5) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=client, host=%s, ssl_dane_enable=%d", dane_vrfy_ctx->dane_vrfy_host, r); } } if (SM_NOTDONE == r) dane_vrfy_ctx->dane_vrfy_dane_enabled = false; if (tTd(90, 40)) sm_dprintf("ssl_dane_enable=%d, chk=%#x, dane_enabled=%d\n", r, dane_vrfy_ctx->dane_vrfy_chk, dane_vrfy_ctx->dane_vrfy_dane_enabled); if ((r = SSL_set_tlsext_host_name(clt_ssl, (!SM_IS_EMPTY(dane_vrfy_ctx->dane_vrfy_sni) ? dane_vrfy_ctx->dane_vrfy_sni : dane_vrfy_ctx->dane_vrfy_host))) <= 0) { if (LogLevel > 5) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=client, host=%s, SSL_set_tlsext_host_name=%d", dane_vrfy_ctx->dane_vrfy_host, r); } tlslogerr(LOG_ERR, 5, "client"); /* return EX_SOFTWARE; */ } } } memcpy(&mci->mci_tlsi.tlsi_dvc, dane_vrfy_ctx, sizeof(*dane_vrfy_ctx)); # endif /* DANE */ # if _FFR_MTA_STS if (STS_SNI != NULL) { int r; if ((r = SSL_set_tlsext_host_name(clt_ssl, STS_SNI)) <= 0) { if (LogLevel > 5) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=client, host=%s, SSL_set_tlsext_host_name=%d", STS_SNI, r); } tlslogerr(LOG_ERR, 5, "client"); /* return EX_SOFTWARE; */ } } # endif /* _FFR_MTA_STS */ rfd = sm_io_getinfo(mci->mci_in, SM_IO_WHAT_FD, NULL); wfd = sm_io_getinfo(mci->mci_out, SM_IO_WHAT_FD, NULL); if (rfd < 0 || wfd < 0 || (result = SSL_set_rfd(clt_ssl, rfd)) != 1 || (result = SSL_set_wfd(clt_ssl, wfd)) != 1) { if (LogLevel > 5) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=client, error: SSL_set_xfd failed=%d", result); tlslogerr(LOG_WARNING, 9, "client"); } goto fail; } SSL_set_connect_state(clt_ssl); tlsstart = curtime(); ssl_retry: if ((result = SSL_connect(clt_ssl)) <= 0) { int i, ssl_err; int save_errno = errno; ssl_err = SSL_get_error(clt_ssl, result); i = tls_retry(clt_ssl, rfd, wfd, tlsstart, TimeOuts.to_starttls, ssl_err, "client"); if (i > 0) goto ssl_retry; if (LogLevel > 5) { unsigned long l; const char *sr; l = ERR_peek_error(); sr = ERR_reason_error_string(l); sm_syslog(LOG_WARNING, NOQID, "STARTTLS=client, error: connect failed=%d, reason=%s, SSL_error=%d, errno=%d, retry=%d", result, sr == NULL ? "unknown" : sr, ssl_err, save_errno, i); tlslogerr(LOG_WARNING, 9, "client"); } goto fail; } mci->mci_ssl = clt_ssl; result = tls_get_info(mci->mci_ssl, false, mci->mci_host, &mci->mci_macro, true); /* switch to use TLS... */ if (sfdctls(&mci->mci_in, &mci->mci_out, mci->mci_ssl) == 0) return EX_OK; fail: /* failure */ SM_SSL_FREE(clt_ssl); return (EX_OK == ret) ? EX_SOFTWARE : ret; } /* ** ENDTLSCLT -- shutdown secure connection (client side) ** ** Parameters: ** mci -- the mailer connection info. ** ** Returns: ** success? */ static int endtlsclt(mci) MCI *mci; { int r; if (!bitset(MCIF_TLSACT, mci->mci_flags)) return EX_OK; r = endtls(&mci->mci_ssl, "client"); mci->mci_flags &= ~MCIF_TLSACT; return r; } #endif /* STARTTLS */ #if STARTTLS || SASL /* ** ISCLTFLGSET -- check whether client flag is set. ** ** Parameters: ** e -- envelope. ** flag -- flag to check in {client_flags} ** ** Returns: ** true iff flag is set. */ static bool iscltflgset(e, flag) ENVELOPE *e; int flag; { char *p; p = macvalue(macid("{client_flags}"), e); if (p == NULL) return false; for (; *p != '\0'; p++) { /* look for just this one flag */ if (*p == (char) flag) return true; } return false; } #endif /* STARTTLS || SASL */ #if _FFR_TESTS void t_parsehostsig(hs, mailer) char *hs; MAILER *mailer; { int nummxhosts, i; char *mxhosts[MAXMXHOSTS + 1]; #if DANE BITMAP256 mxads; #endif if (NULL == mailer) mailer = LocalMailer; nummxhosts = parse_hostsignature(hs, mxhosts, mailer #if DANE , mxads #endif ); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "nummxhosts=%d\n", nummxhosts); for (i = 0; i < nummxhosts; i++) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "mx[%d]=%s, ad=%d\n", i, mxhosts[i], MXADS_ISSET(mxads, 0)); } void t_hostsig(a, hs, mailer) ADDRESS *a; char *hs; MAILER *mailer; { char *q; if (NULL != a) q = hostsignature(a->q_mailer, a->q_host, true, &a->q_flags); else if (NULL != hs) { SM_REQUIRE(NULL != mailer); q = hostsignature(mailer, hs, true, NULL); } else SM_REQUIRE(NULL != hs); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "hostsig %s\n", q); t_parsehostsig(q, (NULL != a) ? a->q_mailer : mailer); } #endif /* _FFR_TESTS */ sendmail-8.18.1/sendmail/aliases0000644000372400037240000000267214556365350016136 0ustar xbuildxbuild# # $Id: aliases,v 8.5 2002-06-05 22:54:26 gshapiro Exp $ # @(#)aliases 8.2 (Berkeley) 3/5/94 # # Aliases in this file will NOT be expanded in the header from # Mail, but WILL be visible over networks. # # >>>>>>>>>> The program "newaliases" must be run after # >> NOTE >> this file is updated for any changes to # >>>>>>>>>> show through to sendmail. # # # See also RFC 2142, `MAILBOX NAMES FOR COMMON SERVICES, ROLES # AND FUNCTIONS', May 1997 # Pretty much everything else in this file points to "root", so # you should forward root's email to the system administrator. # Delivering mail to root's mailbox or reading mail as root is # inadvisable. # Uncomment and *CHANGE* this! # root: insert-human-being-here # Basic system aliases -- these MUST be present MAILER-DAEMON: postmaster postmaster: root # General redirections for pseudo accounts bin: root daemon: root games: root mailnull: postmaster smmsp: postmaster ingres: root nobody: root system: root toor: root # Well-known aliases manager: root dumper: root operator: root # RFC 2142: BUSINESS-RELATED MAILBOX NAMES # info: root # marketing: root # sales: root # support: root # RFC 2142: NETWORK OPERATIONS MAILBOX NAMES abuse: root noc: root security: root # RFC 2142: SUPPORT MAILBOX NAMES FOR SPECIFIC INTERNET SERVICES hostmaster: root usenet: root news: usenet webmaster: root www: webmaster uucp: root ftp: root # Trap decode to catch security attacks decode: root sendmail-8.18.1/sendmail/queue.c0000644000372400037240000064033314556365350016064 0ustar xbuildxbuild/* * Copyright (c) 1998-2009, 2011, 2012, 2014 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include SM_RCSID("@(#)$Id: queue.c,v 8.1000 2013-11-22 20:51:56 ca Exp $") #include #include #if _FFR_DMTRIGGER # include #endif #if USE_EAI # include #endif #define RELEASE_QUEUE (void) 0 #define ST_INODE(st) (st).st_ino #define sm_file_exists(errno) ((errno) == EEXIST) #if HASFLOCK && defined(O_EXLOCK) # define SM_OPEN_EXLOCK 1 # define TF_OPEN_FLAGS (O_CREAT|O_WRONLY|O_EXCL|O_EXLOCK) #else # define TF_OPEN_FLAGS (O_CREAT|O_WRONLY|O_EXCL) #endif #ifndef SM_OPEN_EXLOCK # define SM_OPEN_EXLOCK 0 #endif /* ** Historical notes: ** QF_VERSION == 4 was sendmail 8.10/8.11 without _FFR_QUEUEDELAY ** QF_VERSION == 5 was sendmail 8.10/8.11 with _FFR_QUEUEDELAY ** QF_VERSION == 6 was sendmail 8.12 without _FFR_QUEUEDELAY ** QF_VERSION == 7 was sendmail 8.12 with _FFR_QUEUEDELAY ** QF_VERSION == 8 is sendmail 8.13 */ /* XREF: op.me: QUEUE FILE FORMAT: V */ #define QF_VERSION 8 /* version number of this queue format */ static char queue_letter __P((ENVELOPE *, int)); static bool quarantine_queue_item __P((int, int, ENVELOPE *, char *)); /* Naming convention: qgrp: index of queue group, qg: QUEUEGROUP */ /* ** Work queue. */ struct work { char *w_name; /* name of control file */ char *w_host; /* name of recipient host */ bool w_lock; /* is message locked? */ bool w_tooyoung; /* is it too young to run? */ long w_pri; /* priority of message, see below */ time_t w_ctime; /* creation time */ time_t w_mtime; /* modification time */ int w_qgrp; /* queue group located in */ int w_qdir; /* queue directory located in */ struct work *w_next; /* next in queue */ }; typedef struct work WORK; static WORK *WorkQ; /* queue of things to be done */ static int NumWorkGroups; /* number of work groups */ static time_t Current_LA_time = 0; /* Get new load average every 30 seconds. */ #define GET_NEW_LA_TIME 30 #define SM_GET_LA(now) \ do \ { \ now = curtime(); \ if (Current_LA_time < now - GET_NEW_LA_TIME) \ { \ sm_getla(); \ Current_LA_time = now; \ } \ } while (0) /* ** DoQueueRun indicates that a queue run is needed. ** Notice: DoQueueRun is modified in a signal handler! */ static bool volatile DoQueueRun; /* non-interrupt time queue run needed */ /* ** Work group definition structure. ** Each work group contains one or more queue groups. This is done ** to manage the number of queue group runners active at the same time ** to be within the constraints of MaxQueueChildren (if it is set). ** The number of queue groups that can be run on the next work run ** is kept track of. The queue groups are run in a round robin. */ struct workgrp { int wg_numqgrp; /* number of queue groups in work grp */ int wg_runners; /* total runners */ int wg_curqgrp; /* current queue group */ QUEUEGRP **wg_qgs; /* array of queue groups */ int wg_maxact; /* max # of active runners */ time_t wg_lowqintvl; /* lowest queue interval */ int wg_restart; /* needs restarting? */ int wg_restartcnt; /* count of times restarted */ }; typedef struct workgrp WORKGRP; static WORKGRP volatile WorkGrp[MAXWORKGROUPS + 1]; /* work groups */ #if SM_HEAP_CHECK static SM_DEBUG_T DebugLeakQ = SM_DEBUG_INITIALIZER("leak_q", "@(#)$Debug: leak_q - trace memory leaks during queue processing $"); #endif static void grow_wlist __P((int, int)); static int multiqueue_cache __P((char *, int, QUEUEGRP *, int, unsigned int *)); static int gatherq __P((int, int, bool, bool *, bool *, int *)); static int sortq __P((int)); static void printctladdr __P((ADDRESS *, SM_FILE_T *)); static bool readqf __P((ENVELOPE *, bool)); static void restart_work_group __P((int)); static void runner_work __P((ENVELOPE *, int, bool, int, int)); static void schedule_queue_runs __P((bool, int, bool)); static char *strrev __P((char *)); static ADDRESS *setctluser __P((char *, int, ENVELOPE *)); #if _FFR_RHS static int sm_strshufflecmp __P((char *, char *)); static void init_shuffle_alphabet __P(()); #endif static int workcmpf0 __P((const void *, const void *)); static int workcmpf1 __P((const void *, const void *)); static int workcmpf2 __P((const void *, const void *)); static int workcmpf3 __P((const void *, const void *)); static int workcmpf4 __P((const void *, const void *)); static int randi = 3; /* index for workcmpf5() */ static int workcmpf5 __P((const void *, const void *)); static int workcmpf6 __P((const void *, const void *)); #if _FFR_RHS static int workcmpf7 __P((const void *, const void *)); #endif #if RANDOMSHIFT # define get_rand_mod(m) ((get_random() >> RANDOMSHIFT) % (m)) #else # define get_rand_mod(m) (get_random() % (m)) #endif /* ** File system definition. ** Used to keep track of how much free space is available ** on a file system in which one or more queue directories reside. */ typedef struct filesys_shared FILESYS; struct filesys_shared { dev_t fs_dev; /* unique device id */ long fs_avail; /* number of free blocks available */ long fs_blksize; /* block size, in bytes */ }; /* probably kept in shared memory */ static FILESYS FileSys[MAXFILESYS]; /* queue file systems */ static const char *FSPath[MAXFILESYS]; /* pathnames for file systems */ #if SM_CONF_SHM # include /* ** Shared memory data ** ** Current layout: ** size -- size of shared memory segment ** pid -- pid of owner, should be a unique id to avoid misinterpretations ** by other processes. ** tag -- should be a unique id to avoid misinterpretations by others. ** idea: hash over configuration data that will be stored here. ** NumFileSys -- number of file systems. ** FileSys -- (array of) structure for used file systems. ** RSATmpCnt -- counter for number of uses of ephemeral RSA key. ** [OCC -- ...] ** QShm -- (array of) structure for information about queue directories. ** this must be last as the size is depending on the config. */ /* ** Queue data in shared memory */ typedef struct queue_shared QUEUE_SHM_T; struct queue_shared { int qs_entries; /* number of entries */ /* XXX more to follow? */ }; static void *Pshm; /* pointer to shared memory */ static FILESYS *PtrFileSys; /* pointer to queue file system array */ int ShmId = SM_SHM_NO_ID; /* shared memory id */ static QUEUE_SHM_T *QShm; /* pointer to shared queue data */ static size_t shms; # define SHM_OFF_PID(p) (((char *) (p)) + sizeof(int)) # define SHM_OFF_TAG(p) (((char *) (p)) + sizeof(pid_t) + sizeof(int)) # define SHM_OFF_HEAD (sizeof(pid_t) + sizeof(int) * 2) /* how to access FileSys */ # define FILE_SYS(i) (PtrFileSys[i]) /* first entry is a tag, for now just the size */ # define OFF_FILE_SYS(p) (((char *) (p)) + SHM_OFF_HEAD) /* offset for PNumFileSys */ # define OFF_NUM_FILE_SYS(p) (((char *) (p)) + SHM_OFF_HEAD + sizeof(FileSys)) /* offset for PRSATmpCnt */ # define OFF_RSA_TMP_CNT(p) (((char *) (p)) + SHM_OFF_HEAD + sizeof(FileSys) + sizeof(int)) int *PRSATmpCnt; # if _FFR_OCC # define OFF_OCC_SHM(p) (((char *) (p)) + SHM_OFF_HEAD + sizeof(FileSys) + sizeof(int) * 2) # define OCC_SIZE (sizeof(CHash_T) * CPMHSIZE) static CHash_T *occ = NULL; # else # define OCC_SIZE 0 # endif /* offset for queue_shm */ # define OFF_QUEUE_SHM(p) (((char *) (p)) + SHM_OFF_HEAD + sizeof(FileSys) + sizeof(int) * 2 + OCC_SIZE) # define QSHM_ENTRIES(i) QShm[i].qs_entries /* basic size of shared memory segment */ # define SM_T_SIZE (SHM_OFF_HEAD + sizeof(FileSys) + sizeof(int) * 2 + OCC_SIZE) static unsigned int hash_q __P((char *, unsigned int)); /* ** HASH_Q -- simple hash function ** ** Parameters: ** p -- string to hash. ** h -- hash start value (from previous run). ** ** Returns: ** hash value. */ static unsigned int hash_q(p, h) char *p; unsigned int h; { int c, d; while (*p != '\0') { d = *p++; c = d; c ^= c<<6; h += (c<<11) ^ (c>>1); h ^= (d<<14) + (d<<7) + (d<<4) + d; } return h; } #else /* SM_CONF_SHM */ # define FILE_SYS(i) FileSys[i] #endif /* SM_CONF_SHM */ /* access to the various components of file system data */ #define FILE_SYS_NAME(i) FSPath[i] #define FILE_SYS_AVAIL(i) FILE_SYS(i).fs_avail #define FILE_SYS_BLKSIZE(i) FILE_SYS(i).fs_blksize #define FILE_SYS_DEV(i) FILE_SYS(i).fs_dev /* ** Current qf file field assignments: ** ** A AUTH= parameter ** B body type ** C controlling user ** D data file name (obsolete) ** d data file directory name (added in 8.12) ** E error recipient ** F flag bits ** H header ** I data file's inode number ** K time of last delivery attempt ** L Solaris Content-Length: header (obsolete) ** M message ** N number of delivery attempts ** P message priority ** q quarantine reason ** Q original recipient (ORCPT=) ** r final recipient (Final-Recipient: DSN field) ** R recipient ** S sender ** T init time ** V queue file version ** X free (was: character set if _FFR_SAVE_CHARSET) ** Z original envelope id from ESMTP ** ! deliver by (added in 8.12) ** $ define macro ** . terminate file */ /* ** QUEUEUP -- queue a message up for future transmission. ** ** Parameters: ** e -- the envelope to queue up. ** flags -- QUP_FL_*: ** QUP_FL_ANNOUNCE -- tell when queueing up. ** QUP_FL_MSYNC -- fsync() if SuperSafe interactive mode. ** QUP_FL_UNLOCK -- invoke unlockqueue(). ** ** Returns: ** none. ** ** Side Effects: ** The current request is saved in a control file. ** The queue file is left locked. */ void queueup(e, flags) register ENVELOPE *e; unsigned int flags; { register SM_FILE_T *tfp; register HDR *h; register ADDRESS *q; int tfd = -1; int i; bool newid; register char *p; MAILER nullmailer; MCI mcibuf; char qf[MAXPATHLEN]; char tf[MAXPATHLEN]; char df[MAXPATHLEN]; char buf[MAXLINE]; /* ** Create control file. */ #define OPEN_TF do \ { \ MODE_T oldumask = 0; \ \ if (bitset(S_IWGRP, QueueFileMode)) \ oldumask = umask(002); \ tfd = open(tf, TF_OPEN_FLAGS, QueueFileMode); \ if (bitset(S_IWGRP, QueueFileMode)) \ (void) umask(oldumask); \ } while (0) #define QUP_ANNOUNCE bitset(QUP_FL_ANNOUNCE, flags) #define QUP_MSYNC bitset(QUP_FL_MSYNC, flags) #define QUP_UNLOCK bitset(QUP_FL_UNLOCK, flags) newid = (e->e_id == NULL) || !bitset(EF_INQUEUE, e->e_flags); (void) sm_strlcpy(tf, queuename(e, NEWQFL_LETTER), sizeof(tf)); tfp = e->e_lockfp; if (tfp == NULL && newid) { /* ** open qf file directly: this will give an error if the file ** already exists and hence prevent problems if a queue-id ** is reused (e.g., because the clock is set back). */ (void) sm_strlcpy(tf, queuename(e, ANYQFL_LETTER), sizeof(tf)); OPEN_TF; if (tfd < 0 || #if !SM_OPEN_EXLOCK !lockfile(tfd, tf, NULL, LOCK_EX|LOCK_NB) || #endif (tfp = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &tfd, SM_IO_WRONLY, NULL)) == NULL) { int save_errno = errno; printopenfds(true); errno = save_errno; syserr("!queueup: cannot create queue file %s, euid=%ld, fd=%d, fp=%p", tf, (long) geteuid(), tfd, (void *)tfp); /* NOTREACHED */ } e->e_lockfp = tfp; upd_qs(e, 1, 0, "queueup"); } /* if newid, write the queue file directly (instead of temp file) */ if (!newid) { /* get a locked tf file */ for (i = 0; i < 128; i++) { if (tfd < 0) { OPEN_TF; if (tfd < 0) { if (errno != EEXIST) break; if (LogLevel > 0 && (i % 32) == 0) sm_syslog(LOG_ALERT, e->e_id, "queueup: cannot create %s, euid=%ld: %s", tf, (long) geteuid(), sm_errstring(errno)); } #if SM_OPEN_EXLOCK else break; #endif } if (tfd >= 0) { #if SM_OPEN_EXLOCK /* file is locked by open() */ break; #else if (lockfile(tfd, tf, NULL, LOCK_EX|LOCK_NB)) break; else #endif if (LogLevel > 0 && (i % 32) == 0) sm_syslog(LOG_ALERT, e->e_id, "queueup: cannot lock %s: %s", tf, sm_errstring(errno)); if ((i % 32) == 31) { (void) close(tfd); tfd = -1; } } if ((i % 32) == 31) { /* save the old temp file away */ (void) rename(tf, queuename(e, TEMPQF_LETTER)); } else (void) sleep(i % 32); } if (tfd < 0 || (tfp = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &tfd, SM_IO_WRONLY_B, NULL)) == NULL) { int save_errno = errno; printopenfds(true); errno = save_errno; syserr("!queueup: cannot create queue temp file %s, uid=%ld", tf, (long) geteuid()); } } if (tTd(40, 1)) sm_dprintf("\n>>>>> queueing %s/%s%s >>>>>\n", qid_printqueue(e->e_qgrp, e->e_qdir), queuename(e, ANYQFL_LETTER), newid ? " (new id)" : ""); if (tTd(40, 3)) { sm_dprintf(" e_flags="); printenvflags(e); } if (tTd(40, 32)) { sm_dprintf(" sendq="); printaddr(sm_debug_file(), e->e_sendqueue, true); } if (tTd(40, 9)) { sm_dprintf(" tfp="); dumpfd(sm_io_getinfo(tfp, SM_IO_WHAT_FD, NULL), true, false); sm_dprintf(" lockfp="); if (e->e_lockfp == NULL) sm_dprintf("NULL\n"); else dumpfd(sm_io_getinfo(e->e_lockfp, SM_IO_WHAT_FD, NULL), true, false); } /* ** If there is no data file yet, create one. */ (void) sm_strlcpy(df, queuename(e, DATAFL_LETTER), sizeof(df)); if (bitset(EF_HAS_DF, e->e_flags)) { if (e->e_dfp != NULL && SuperSafe != SAFE_REALLY && SuperSafe != SAFE_REALLY_POSTMILTER && sm_io_setinfo(e->e_dfp, SM_BF_COMMIT, NULL) < 0 && errno != EINVAL) { syserr("!queueup: cannot commit data file %s, uid=%ld", queuename(e, DATAFL_LETTER), (long) geteuid()); } if (e->e_dfp != NULL && SuperSafe == SAFE_INTERACTIVE && QUP_MSYNC) { if (tTd(40,32)) sm_syslog(LOG_INFO, e->e_id, "queueup: fsync(e->e_dfp)"); if (fsync(sm_io_getinfo(e->e_dfp, SM_IO_WHAT_FD, NULL)) < 0) { if (newid) syserr("!552 Error writing data file %s", df); else syserr("!452 Error writing data file %s", df); } } } else { int dfd; MODE_T oldumask = 0; register SM_FILE_T *dfp = NULL; struct stat stbuf; if (e->e_dfp != NULL && sm_io_getinfo(e->e_dfp, SM_IO_WHAT_ISTYPE, BF_FILE_TYPE)) syserr("committing over bf file"); if (bitset(S_IWGRP, QueueFileMode)) oldumask = umask(002); dfd = open(df, O_WRONLY|O_CREAT|O_TRUNC|QF_O_EXTRA, QueueFileMode); if (bitset(S_IWGRP, QueueFileMode)) (void) umask(oldumask); if (dfd < 0 || (dfp = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &dfd, SM_IO_WRONLY_B, NULL)) == NULL) syserr("!queueup: cannot create data temp file %s, uid=%ld", df, (long) geteuid()); if (fstat(dfd, &stbuf) < 0) e->e_dfino = -1; else { e->e_dfdev = stbuf.st_dev; e->e_dfino = ST_INODE(stbuf); } e->e_flags |= EF_HAS_DF; memset(&mcibuf, '\0', sizeof(mcibuf)); mcibuf.mci_out = dfp; mcibuf.mci_mailer = FileMailer; (*e->e_putbody)(&mcibuf, e, NULL); if (SuperSafe == SAFE_REALLY || SuperSafe == SAFE_REALLY_POSTMILTER || (SuperSafe == SAFE_INTERACTIVE && QUP_MSYNC)) { if (tTd(40,32)) sm_syslog(LOG_INFO, e->e_id, "queueup: fsync(dfp)"); if (fsync(sm_io_getinfo(dfp, SM_IO_WHAT_FD, NULL)) < 0) { if (newid) syserr("!552 Error writing data file %s", df); else syserr("!452 Error writing data file %s", df); } } if (sm_io_close(dfp, SM_TIME_DEFAULT) < 0) syserr("!queueup: cannot save data temp file %s, uid=%ld", df, (long) geteuid()); e->e_putbody = putbody; } /* ** Output future work requests. ** Priority and creation time should be first, since ** they are required by gatherq. */ /* output queue version number (must be first!) */ (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "V%d\n", QF_VERSION); /* output creation time */ (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "T%ld\n", (long) e->e_ctime); /* output last delivery time */ (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "K%ld\n", (long) e->e_dtime); /* output number of delivery attempts */ (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "N%d\n", e->e_ntries); /* output message priority */ (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "P%ld\n", e->e_msgpriority); /* ** If data file is in a different directory than the queue file, ** output a "d" record naming the directory of the data file. */ if (e->e_dfqgrp != e->e_qgrp) { (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "d%s\n", Queue[e->e_dfqgrp]->qg_qpaths[e->e_dfqdir].qp_name); } /* output inode number of data file */ if (e->e_dfino != -1) { (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "I%ld/%ld/%llu\n", (long) major(e->e_dfdev), (long) minor(e->e_dfdev), (ULONGLONG_T) e->e_dfino); } /* output body type */ if (e->e_bodytype != NULL) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "B%s\n", denlstring(e->e_bodytype, true, false)); /* quarantine reason */ if (e->e_quarmsg != NULL) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "q%s\n", denlstring(e->e_quarmsg, true, false)); /* message from envelope, if it exists */ if (e->e_message != NULL) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "M%s\n", denlstring(e->e_message, true, false)); /* send various flag bits through */ p = buf; if (bitset(EF_WARNING, e->e_flags)) *p++ = 'w'; if (bitset(EF_RESPONSE, e->e_flags)) *p++ = 'r'; if (bitset(EF_HAS8BIT, e->e_flags)) *p++ = '8'; if (bitset(EF_DELETE_BCC, e->e_flags)) *p++ = 'b'; if (bitset(EF_RET_PARAM, e->e_flags)) *p++ = 'd'; if (bitset(EF_NO_BODY_RETN, e->e_flags)) *p++ = 'n'; if (bitset(EF_SPLIT, e->e_flags)) *p++ = 's'; #if USE_EAI if (e->e_smtputf8) *p++ = 'e'; #endif *p++ = '\0'; if (buf[0] != '\0') (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "F%s\n", buf); /* save $={persistentMacros} macro values */ queueup_macros(macid("{persistentMacros}"), tfp, e); /* output name of sender */ if (bitnset(M_UDBENVELOPE, e->e_from.q_mailer->m_flags)) p = e->e_sender; else p = e->e_from.q_paddr; (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "S%s\n", denlstring(p, true, false)); /* output ESMTP-supplied "original" information */ if (e->e_envid != NULL) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "Z%s\n", denlstring(e->e_envid, true, false)); /* output AUTH= parameter */ if (e->e_auth_param != NULL) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "A%s\n", denlstring(e->e_auth_param, true, false)); if (e->e_dlvr_flag != 0) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "!%c %ld\n", (char) e->e_dlvr_flag, e->e_deliver_by); /* output list of recipient addresses */ printctladdr(NULL, NULL); for (q = e->e_sendqueue; q != NULL; q = q->q_next) { q->q_flags &= ~QQUEUED; if (!QS_IS_UNDELIVERED(q->q_state)) continue; /* message for this recipient, if it exists */ if (q->q_message != NULL) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "M%s\n", denlstring(q->q_message, true, false)); printctladdr(q, tfp); if (q->q_orcpt != NULL) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "Q%s\n", denlstring(q->q_orcpt, true, false)); if (q->q_finalrcpt != NULL) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "r%s\n", denlstring(q->q_finalrcpt, true, false)); (void) sm_io_putc(tfp, SM_TIME_DEFAULT, 'R'); if (bitset(QPRIMARY, q->q_flags)) (void) sm_io_putc(tfp, SM_TIME_DEFAULT, 'P'); if (bitset(QHASNOTIFY, q->q_flags)) (void) sm_io_putc(tfp, SM_TIME_DEFAULT, 'N'); if (bitset(QPINGONSUCCESS, q->q_flags)) (void) sm_io_putc(tfp, SM_TIME_DEFAULT, 'S'); if (bitset(QPINGONFAILURE, q->q_flags)) (void) sm_io_putc(tfp, SM_TIME_DEFAULT, 'F'); if (bitset(QPINGONDELAY, q->q_flags)) (void) sm_io_putc(tfp, SM_TIME_DEFAULT, 'D'); if (bitset(QINTBCC, q->q_flags)) (void) sm_io_putc(tfp, SM_TIME_DEFAULT, 'B'); if (bitset(QMXSECURE, q->q_flags)) (void) sm_io_putc(tfp, SM_TIME_DEFAULT, 'X'); if (q->q_alias != NULL && bitset(QALIAS, q->q_alias->q_flags)) (void) sm_io_putc(tfp, SM_TIME_DEFAULT, 'A'); /* _FFR_RCPTFLAGS */ if (bitset(QDYNMAILER, q->q_flags)) (void) sm_io_putc(tfp, SM_TIME_DEFAULT, QDYNMAILFLG); (void) sm_io_putc(tfp, SM_TIME_DEFAULT, ':'); (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "%s\n", denlstring(q->q_paddr, true, false)); if (QUP_ANNOUNCE) { char *tag = "queued"; if (e->e_quarmsg != NULL) tag = "quarantined"; e->e_to = q->q_paddr; message("%s", tag); if (LogLevel > 8) logdelivery(q->q_mailer, NULL, q->q_status, tag, NULL, (time_t) 0, e, q, EX_OK); e->e_to = NULL; } /* ** This is only "valid" when the msg is safely in the queue, ** i.e., EF_INQUEUE needs to be set. */ q->q_flags |= QQUEUED; if (tTd(40, 1)) { sm_dprintf("queueing "); printaddr(sm_debug_file(), q, false); } } /* ** Output headers for this message. ** Expand macros completely here. Queue run will deal with ** everything as absolute headers. ** All headers that must be relative to the recipient ** can be cracked later. ** We set up a "null mailer" -- i.e., a mailer that will have ** no effect on the addresses as they are output. */ memset((char *) &nullmailer, '\0', sizeof(nullmailer)); nullmailer.m_re_rwset = nullmailer.m_rh_rwset = nullmailer.m_se_rwset = nullmailer.m_sh_rwset = -1; nullmailer.m_eol = "\n"; memset(&mcibuf, '\0', sizeof(mcibuf)); mcibuf.mci_mailer = &nullmailer; mcibuf.mci_out = tfp; macdefine(&e->e_macro, A_PERM, 'g', "\201f"); for (h = e->e_header; h != NULL; h = h->h_link) { if (h->h_value == NULL) continue; /* don't output resent headers on non-resent messages */ if (bitset(H_RESENT, h->h_flags) && !bitset(EF_RESENT, e->e_flags)) continue; /* expand macros; if null, don't output header at all */ if (bitset(H_DEFAULT, h->h_flags)) { (void) expand(h->h_value, buf, sizeof(buf), e); if (buf[0] == '\0') continue; if (buf[0] == ' ' && buf[1] == '\0') continue; } /* output this header */ (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "H?"); /* output conditional macro if present */ if (h->h_macro != '\0') { if (bitset(0200, h->h_macro)) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "${%s}", macname(bitidx(h->h_macro))); else (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "$%c", h->h_macro); } else if (!bitzerop(h->h_mflags) && bitset(H_CHECK|H_ACHECK, h->h_flags)) { int j; /* if conditional, output the set of conditions */ for (j = '\0'; j <= '\177'; j++) if (bitnset(j, h->h_mflags)) (void) sm_io_putc(tfp, SM_TIME_DEFAULT, j); } (void) sm_io_putc(tfp, SM_TIME_DEFAULT, '?'); /* output the header: expand macros, convert addresses */ if (bitset(H_DEFAULT, h->h_flags) && !bitset(H_BINDLATE, h->h_flags)) { (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "%s:%s\n", h->h_field, denlstring(buf, false, true)); } else if (bitset(H_FROM|H_RCPT, h->h_flags) && !bitset(H_BINDLATE, h->h_flags)) { bool oldstyle = bitset(EF_OLDSTYLE, e->e_flags); SM_FILE_T *savetrace = TrafficLogFile; TrafficLogFile = NULL; if (bitset(H_FROM, h->h_flags)) oldstyle = false; commaize(h, h->h_value, oldstyle, &mcibuf, e, PXLF_HEADER); TrafficLogFile = savetrace; } else { (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "%s:%s\n", h->h_field, denlstring(h->h_value, false, true)); } } /* ** Clean up. ** ** Write a terminator record -- this is to prevent ** scurrilous crackers from appending any data. */ (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, ".\n"); if (sm_io_flush(tfp, SM_TIME_DEFAULT) != 0 || ((SuperSafe == SAFE_REALLY || SuperSafe == SAFE_REALLY_POSTMILTER || (SuperSafe == SAFE_INTERACTIVE && QUP_MSYNC)) && fsync(sm_io_getinfo(tfp, SM_IO_WHAT_FD, NULL)) < 0) || sm_io_error(tfp)) { if (newid) syserr("!552 Error writing control file %s", tf); else syserr("!452 Error writing control file %s", tf); } if (!newid) { char new = queue_letter(e, ANYQFL_LETTER); /* rename (locked) tf to be (locked) [qh]f */ (void) sm_strlcpy(qf, queuename(e, ANYQFL_LETTER), sizeof(qf)); if (rename(tf, qf) < 0) syserr("cannot rename(%s, %s), uid=%ld", tf, qf, (long) geteuid()); else { /* ** Check if type has changed and only ** remove the old item if the rename above ** succeeded. */ if (e->e_qfletter != '\0' && e->e_qfletter != new) { if (tTd(40, 5)) { sm_dprintf("type changed from %c to %c\n", e->e_qfletter, new); } if (unlink(queuename(e, e->e_qfletter)) < 0) { /* XXX: something more drastic? */ if (LogLevel > 0) sm_syslog(LOG_ERR, e->e_id, "queueup: unlink(%s) failed: %s", queuename(e, e->e_qfletter), sm_errstring(errno)); } } } e->e_qfletter = new; /* ** fsync() after renaming to make sure metadata is ** written to disk on filesystems in which renames are ** not guaranteed. */ if (SuperSafe != SAFE_NO) { /* for softupdates */ if (tfd >= 0 && fsync(tfd) < 0) { syserr("!queueup: cannot fsync queue temp file %s", tf); } SYNC_DIR(qf, true); } /* close and unlock old (locked) queue file */ if (e->e_lockfp != NULL) (void) sm_io_close(e->e_lockfp, SM_TIME_DEFAULT); e->e_lockfp = tfp; /* save log info */ if (LogLevel > 79) sm_syslog(LOG_DEBUG, e->e_id, "queueup %s", qf); } else { /* save log info */ if (LogLevel > 79) sm_syslog(LOG_DEBUG, e->e_id, "queueup %s", tf); e->e_qfletter = queue_letter(e, ANYQFL_LETTER); } errno = 0; e->e_flags |= EF_INQUEUE; if (tTd(40, 1)) sm_dprintf("<<<<< done queueing %s <<<<<\n\n", e->e_id); #if _FFR_DMTRIGGER if (SM_TRIGGER == e->e_sendmode && !SM_IS_EMPTY(e->e_id)) { char buf[64]; if (QUP_UNLOCK) unlockqueue(e); (void) sm_snprintf(buf, sizeof(buf), "N:%d:%d:%s", e->e_qgrp, e->e_qdir, e->e_id); i = sm_notify_snd(buf, strlen(buf)); sm_syslog(LOG_DEBUG, e->e_id, "queueup: mode=%c, id=%s, unlock=%d, snd=%d", e->e_sendmode, e->e_id, QUP_UNLOCK, i); if (i < 0) { /* ** What to do about this? ** Notify caller (change return type)? ** A queue runner will eventually pick it up. */ sm_syslog(LOG_ERR, e->e_id, "queueup: notify_snd=%d", i); } } #endif /* _FFR_DMTRIGGER */ return; #undef QUP_ANNOUNCE #undef QUP_MSYNC #undef QUP_UNLOCK } /* ** PRINTCTLADDR -- print control address to file. ** ** Parameters: ** a -- address. ** tfp -- file pointer. ** ** Returns: ** none. ** ** Side Effects: ** The control address (if changed) is printed to the file. ** The last control address and uid are saved. */ static void printctladdr(a, tfp) register ADDRESS *a; SM_FILE_T *tfp; { char *user; register ADDRESS *q; uid_t uid; gid_t gid; static ADDRESS *lastctladdr = NULL; static uid_t lastuid; /* initialization */ if (a == NULL || a->q_alias == NULL || tfp == NULL) { if (lastctladdr != NULL && tfp != NULL) (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "C\n"); lastctladdr = NULL; lastuid = 0; return; } /* find the active uid */ q = getctladdr(a); if (q == NULL) { user = NULL; uid = 0; gid = 0; } else { user = q->q_ruser != NULL ? q->q_ruser : q->q_user; uid = q->q_uid; gid = q->q_gid; } a = a->q_alias; /* check to see if this is the same as last time */ if (lastctladdr != NULL && uid == lastuid && strcmp(lastctladdr->q_paddr, a->q_paddr) == 0) return; lastuid = uid; lastctladdr = a; if (uid == 0 || user == NULL || user[0] == '\0') (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "C"); else (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, "C%s:%ld:%ld", denlstring(user, true, false), (long) uid, (long) gid); (void) sm_io_fprintf(tfp, SM_TIME_DEFAULT, ":%s\n", denlstring(a->q_paddr, true, false)); } /* ** RUNNERS_SIGTERM -- propagate a SIGTERM to queue runner process ** ** This propagates the signal to the child processes that are queue ** runners. This is for a queue runner "cleanup". After all of the ** child queue runner processes are signaled (it should be SIGTERM ** being the sig) then the old signal handler (Oldsh) is called ** to handle any cleanup set for this process (provided it is not ** SIG_DFL or SIG_IGN). The signal may not be handled immediately ** if the BlockOldsh flag is set. If the current process doesn't ** have a parent then handle the signal immediately, regardless of ** BlockOldsh. ** ** Parameters: ** sig -- the signal number being sent ** ** Returns: ** none. ** ** Side Effects: ** Sets the NoMoreRunners boolean to true to stop more runners ** from being started in runqueue(). ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ static bool volatile NoMoreRunners = false; static sigfunc_t Oldsh_term = SIG_DFL; static sigfunc_t Oldsh_hup = SIG_DFL; static sigfunc_t volatile Oldsh = SIG_DFL; static bool BlockOldsh = false; static int volatile Oldsig = 0; static SIGFUNC_DECL runners_sigterm __P((int)); static SIGFUNC_DECL runners_sighup __P((int)); static SIGFUNC_DECL runners_sigterm(sig) int sig; { int save_errno = errno; FIX_SYSV_SIGNAL(sig, runners_sigterm); errno = save_errno; CHECK_CRITICAL(sig); NoMoreRunners = true; Oldsh = Oldsh_term; Oldsig = sig; proc_list_signal(PROC_QUEUE, sig); if (!BlockOldsh || getppid() <= 1) { /* Check that a valid 'old signal handler' is callable */ if (Oldsh_term != SIG_DFL && Oldsh_term != SIG_IGN && Oldsh_term != runners_sigterm) (*Oldsh_term)(sig); } errno = save_errno; return SIGFUNC_RETURN; } /* ** RUNNERS_SIGHUP -- propagate a SIGHUP to queue runner process ** ** This propagates the signal to the child processes that are queue ** runners. This is for a queue runner "cleanup". After all of the ** child queue runner processes are signaled (it should be SIGHUP ** being the sig) then the old signal handler (Oldsh) is called to ** handle any cleanup set for this process (provided it is not SIG_DFL ** or SIG_IGN). The signal may not be handled immediately if the ** BlockOldsh flag is set. If the current process doesn't have ** a parent then handle the signal immediately, regardless of ** BlockOldsh. ** ** Parameters: ** sig -- the signal number being sent ** ** Returns: ** none. ** ** Side Effects: ** Sets the NoMoreRunners boolean to true to stop more runners ** from being started in runqueue(). ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ static SIGFUNC_DECL runners_sighup(sig) int sig; { int save_errno = errno; FIX_SYSV_SIGNAL(sig, runners_sighup); errno = save_errno; CHECK_CRITICAL(sig); NoMoreRunners = true; Oldsh = Oldsh_hup; Oldsig = sig; proc_list_signal(PROC_QUEUE, sig); if (!BlockOldsh || getppid() <= 1) { /* Check that a valid 'old signal handler' is callable */ if (Oldsh_hup != SIG_DFL && Oldsh_hup != SIG_IGN && Oldsh_hup != runners_sighup) (*Oldsh_hup)(sig); } errno = save_errno; return SIGFUNC_RETURN; } /* ** MARK_WORK_GROUP_RESTART -- mark a work group as needing a restart ** ** Sets a workgroup for restarting. ** ** Parameters: ** wgrp -- the work group id to restart. ** reason -- why (signal?), -1 to turn off restart ** ** Returns: ** none. ** ** Side effects: ** May set global RestartWorkGroup to true. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ void mark_work_group_restart(wgrp, reason) int wgrp; int reason; { if (wgrp < 0 || wgrp > NumWorkGroups) return; WorkGrp[wgrp].wg_restart = reason; if (reason >= 0) RestartWorkGroup = true; } /* ** RESTART_MARKED_WORK_GROUPS -- restart work groups marked as needing restart ** ** Restart any workgroup marked as needing a restart provided more ** runners are allowed. ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side effects: ** Sets global RestartWorkGroup to false. */ void restart_marked_work_groups() { int i; int wasblocked; if (NoMoreRunners) return; /* Block SIGCHLD so reapchild() doesn't mess with us */ wasblocked = sm_blocksignal(SIGCHLD); for (i = 0; i < NumWorkGroups; i++) { if (WorkGrp[i].wg_restart >= 0) { if (LogLevel > 8) sm_syslog(LOG_ERR, NOQID, "restart queue runner=%d due to signal 0x%x", i, WorkGrp[i].wg_restart); restart_work_group(i); } } RestartWorkGroup = false; if (wasblocked == 0) (void) sm_releasesignal(SIGCHLD); } /* ** RESTART_WORK_GROUP -- restart a specific work group ** ** Restart a specific workgroup provided more runners are allowed. ** If the requested work group has been restarted too many times log ** this and refuse to restart. ** ** Parameters: ** wgrp -- the work group id to restart ** ** Returns: ** none. ** ** Side Effects: ** starts another process doing the work of wgrp */ #define MAX_PERSIST_RESTART 10 /* max allowed number of restarts */ static void restart_work_group(wgrp) int wgrp; { if (NoMoreRunners || wgrp < 0 || wgrp > NumWorkGroups) return; WorkGrp[wgrp].wg_restart = -1; if (WorkGrp[wgrp].wg_restartcnt < MAX_PERSIST_RESTART) { /* avoid overflow; increment here */ WorkGrp[wgrp].wg_restartcnt++; (void) run_work_group(wgrp, RWG_FORK|RWG_PERSISTENT|RWG_RUNALL); } else { sm_syslog(LOG_ERR, NOQID, "ERROR: persistent queue runner=%d restarted too many times, queue runner lost", wgrp); } } /* ** SCHEDULE_QUEUE_RUNS -- schedule the next queue run for a work group. ** ** Parameters: ** runall -- schedule even if individual bit is not set. ** wgrp -- the work group id to schedule. ** didit -- the queue run was performed for this work group. ** ** Returns: ** nothing */ #define INCR_MOD(v, m) if (++v >= m) \ v = 0; \ else static void schedule_queue_runs(runall, wgrp, didit) bool runall; int wgrp; bool didit; { int qgrp, cgrp, endgrp; #if _FFR_QUEUE_SCHED_DBG time_t lastsched; bool sched; #endif time_t now; time_t minqintvl; /* ** This is a bit ugly since we have to duplicate the ** code that "walks" through a work queue group. */ now = curtime(); minqintvl = 0; cgrp = endgrp = WorkGrp[wgrp].wg_curqgrp; do { time_t qintvl; #if _FFR_QUEUE_SCHED_DBG lastsched = 0; sched = false; #endif qgrp = WorkGrp[wgrp].wg_qgs[cgrp]->qg_index; if (Queue[qgrp]->qg_queueintvl > 0) qintvl = Queue[qgrp]->qg_queueintvl; else if (QueueIntvl > 0) qintvl = QueueIntvl; else qintvl = (time_t) 0; #if _FFR_QUEUE_SCHED_DBG lastsched = Queue[qgrp]->qg_nextrun; #endif if ((runall || Queue[qgrp]->qg_nextrun <= now) && qintvl > 0) { #if _FFR_QUEUE_SCHED_DBG sched = true; #endif if (minqintvl == 0 || qintvl < minqintvl) minqintvl = qintvl; /* ** Only set a new time if a queue run was performed ** for this queue group. If the queue was not run, ** we could starve it by setting a new time on each ** call. */ if (didit) Queue[qgrp]->qg_nextrun += qintvl; } #if _FFR_QUEUE_SCHED_DBG if (tTd(69, 10)) sm_syslog(LOG_INFO, NOQID, "sqr: wgrp=%d, cgrp=%d, qgrp=%d, intvl=%ld, QI=%ld, runall=%d, lastrun=%ld, nextrun=%ld, sched=%d", wgrp, cgrp, qgrp, (long) Queue[qgrp]->qg_queueintvl, (long) QueueIntvl, runall, (long) lastsched, (long) Queue[qgrp]->qg_nextrun, sched); #endif /* _FFR_QUEUE_SCHED_DBG */ INCR_MOD(cgrp, WorkGrp[wgrp].wg_numqgrp); } while (endgrp != cgrp); if (minqintvl > 0) (void) sm_setevent(minqintvl, runqueueevent, 0); } #if _FFR_QUEUE_RUN_PARANOIA /* ** CHECKQUEUERUNNER -- check whether a queue group hasn't been run. ** ** Use this if events may get lost and hence queue runners may not ** be started and mail will pile up in a queue. ** ** Parameters: ** none. ** ** Returns: ** true if a queue run is necessary. ** ** Side Effects: ** may schedule a queue run. */ bool checkqueuerunner() { int qgrp; time_t now, minqintvl; now = curtime(); minqintvl = 0; for (qgrp = 0; qgrp < NumQueue && Queue[qgrp] != NULL; qgrp++) { time_t qintvl; if (Queue[qgrp]->qg_queueintvl > 0) qintvl = Queue[qgrp]->qg_queueintvl; else if (QueueIntvl > 0) qintvl = QueueIntvl; else qintvl = (time_t) 0; if (Queue[qgrp]->qg_nextrun <= now - qintvl) { if (minqintvl == 0 || qintvl < minqintvl) minqintvl = qintvl; if (LogLevel > 1) sm_syslog(LOG_WARNING, NOQID, "checkqueuerunner: queue %d should have been run at %s, queue interval %ld", qgrp, arpadate(ctime(&Queue[qgrp]->qg_nextrun)), (long) qintvl); } } if (minqintvl > 0) { (void) sm_setevent(minqintvl, runqueueevent, 0); return true; } return false; } #endif /* _FFR_QUEUE_RUN_PARANOIA */ /* ** RUNQUEUE -- run the jobs in the queue. ** ** Gets the stuff out of the queue in some presumably logical ** order and processes them. ** ** Parameters: ** forkflag -- true if the queue scanning should be done in ** a child process. We double-fork so it is not our ** child and we don't have to clean up after it. ** false can be ignored if we have multiple queues. ** verbose -- if true, print out status information. ** persistent -- persistent queue runner? ** runall -- run all groups or only a subset (DoQueueRun)? ** ** Returns: ** true if the queue run successfully began. ** ** Side Effects: ** runs things in the mail queue using run_work_group(). ** maybe schedules next queue run. */ static ENVELOPE QueueEnvelope; /* the queue run envelope */ static time_t LastQueueTime = 0; /* last time a queue ID assigned */ static pid_t LastQueuePid = -1; /* last PID which had a queue ID */ /* values for qp_supdirs */ #define QP_NOSUB 0x0000 /* No subdirectories */ #define QP_SUBDF 0x0001 /* "df" subdirectory */ #define QP_SUBQF 0x0002 /* "qf" subdirectory */ #define QP_SUBXF 0x0004 /* "xf" subdirectory */ bool runqueue(forkflag, verbose, persistent, runall) bool forkflag; bool verbose; bool persistent; bool runall; { int i; bool ret = true; static int curnum = 0; sigfunc_t cursh; #if SM_HEAP_CHECK SM_NONVOLATILE int oldgroup = 0; if (sm_debug_active(&DebugLeakQ, 1)) { oldgroup = sm_heap_group(); sm_heap_newgroup(); sm_dprintf("runqueue() heap group #%d\n", sm_heap_group()); } #endif /* SM_HEAP_CHECK */ /* queue run has been started, don't do any more this time */ DoQueueRun = false; /* more than one queue or more than one directory per queue */ if (!forkflag && !verbose && (WorkGrp[0].wg_qgs[0]->qg_numqueues > 1 || NumWorkGroups > 1 || WorkGrp[0].wg_numqgrp > 1)) forkflag = true; /* ** For controlling queue runners via signals sent to this process. ** Oldsh* will get called too by runners_sig* (if it is not SIG_IGN ** or SIG_DFL) to preserve cleanup behavior. Now that this process ** will have children (and perhaps grandchildren) this handler will ** be left in place. This is because this process, once it has ** finished spinning off queue runners, may go back to doing something ** else (like being a daemon). And we still want on a SIG{TERM,HUP} to ** clean up the child queue runners. Only install 'runners_sig*' once ** else we'll get stuck looping forever. */ cursh = sm_signal(SIGTERM, runners_sigterm); if (cursh != runners_sigterm) Oldsh_term = cursh; cursh = sm_signal(SIGHUP, runners_sighup); if (cursh != runners_sighup) Oldsh_hup = cursh; for (i = 0; i < NumWorkGroups && !NoMoreRunners; i++) { int rwgflags = RWG_NONE; int wasblocked; /* ** If MaxQueueChildren is active then test whether the start ** of the next queue group's additional queue runners (maximum) ** will result in MaxQueueChildren being exceeded. ** ** Note: do not use continue; even though another workgroup ** may have fewer queue runners, this would be "unfair", ** i.e., this work group might "starve" then. */ #if _FFR_QUEUE_SCHED_DBG if (tTd(69, 10)) sm_syslog(LOG_INFO, NOQID, "rq: i=%d, curnum=%d, MaxQueueChildren=%d, CurRunners=%d, WorkGrp[curnum].wg_maxact=%d, skip=%d", i, curnum, MaxQueueChildren, CurRunners, WorkGrp[curnum].wg_maxact, MaxQueueChildren > 0 && CurRunners + WorkGrp[curnum].wg_maxact > MaxQueueChildren ); #endif /* _FFR_QUEUE_SCHED_DBG */ if (MaxQueueChildren > 0 && CurRunners + WorkGrp[curnum].wg_maxact > MaxQueueChildren) break; /* ** Pick up where we left off (curnum), in case we ** used up all the children last time without finishing. ** This give a round-robin fairness to queue runs. ** ** Increment CurRunners before calling run_work_group() ** to avoid a "race condition" with proc_list_drop() which ** decrements CurRunners if the queue runners terminate. ** Notice: CurRunners is an upper limit, in some cases ** (too few jobs in the queue) this value is larger than ** the actual number of queue runners. The discrepancy can ** increase if some queue runners "hang" for a long time. */ /* don't let proc_list_drop() change CurRunners */ wasblocked = sm_blocksignal(SIGCHLD); CurRunners += WorkGrp[curnum].wg_maxact; if (wasblocked == 0) (void) sm_releasesignal(SIGCHLD); if (forkflag) rwgflags |= RWG_FORK; if (verbose) rwgflags |= RWG_VERBOSE; if (persistent) rwgflags |= RWG_PERSISTENT; if (runall) rwgflags |= RWG_RUNALL; ret = run_work_group(curnum, rwgflags); /* ** Failure means a message was printed for ETRN ** and subsequent queues are likely to fail as well. ** Decrement CurRunners in that case because ** none have been started. */ if (!ret) { /* don't let proc_list_drop() change CurRunners */ wasblocked = sm_blocksignal(SIGCHLD); CurRunners -= WorkGrp[curnum].wg_maxact; CHK_CUR_RUNNERS("runqueue", curnum, WorkGrp[curnum].wg_maxact); if (wasblocked == 0) (void) sm_releasesignal(SIGCHLD); break; } if (!persistent) schedule_queue_runs(runall, curnum, true); INCR_MOD(curnum, NumWorkGroups); } /* schedule left over queue runs */ if (i < NumWorkGroups && !NoMoreRunners && !persistent) { int h; for (h = curnum; i < NumWorkGroups; i++) { schedule_queue_runs(runall, h, false); INCR_MOD(h, NumWorkGroups); } } #if SM_HEAP_CHECK if (sm_debug_active(&DebugLeakQ, 1)) sm_heap_setgroup(oldgroup); #endif return ret; } #if _FFR_SKIP_DOMAINS /* ** SKIP_DOMAINS -- Skip 'skip' number of domains in the WorkQ. ** ** Added by Stephen Frost to support ** having each runner process every N'th domain instead of ** every N'th message. ** ** Parameters: ** skip -- number of domains in WorkQ to skip. ** ** Returns: ** total number of messages skipped. ** ** Side Effects: ** may change WorkQ */ static int skip_domains(skip) int skip; { int n, seqjump; for (n = 0, seqjump = 0; n < skip && WorkQ != NULL; seqjump++) { if (WorkQ->w_next != NULL) { if (WorkQ->w_host != NULL && WorkQ->w_next->w_host != NULL) { if (!SM_STRCASEEQ(WorkQ->w_host, WorkQ->w_next->w_host)) n++; } else { if ((WorkQ->w_host != NULL && WorkQ->w_next->w_host == NULL) || (WorkQ->w_host == NULL && WorkQ->w_next->w_host != NULL)) n++; } } WorkQ = WorkQ->w_next; } return seqjump; } #endif /* _FFR_SKIP_DOMAINS */ /* ** RUNNER_WORK -- have a queue runner do its work ** ** Have a queue runner do its work on a list of entries (WorkQ). ** When work isn't directly being done then this process can take a signal ** and terminate immediately (in a clean fashion of course). ** When work is directly being done, it's not to be interrupted ** immediately: the work should be allowed to finish at a clean point ** before termination (in a clean fashion of course). ** ** Parameters: ** e -- envelope. ** sequenceno -- 'th process to run WorkQ. ** didfork -- did the calling process fork()? ** skip -- process only each skip'th item. ** njobs -- number of jobs in WorkQ. ** ** Returns: ** none. ** ** Side Effects: ** runs things in the mail queue. */ static void runner_work(e, sequenceno, didfork, skip, njobs) register ENVELOPE *e; int sequenceno; bool didfork; int skip; int njobs; { int n, seqjump; WORK *w; time_t now; SM_GET_LA(now); /* ** Here we temporarily block the second calling of the handlers. ** This allows us to handle the signal without terminating in the ** middle of direct work. If a signal does come, the test for ** NoMoreRunners will find it. */ BlockOldsh = true; seqjump = skip; /* process them once at a time */ while (WorkQ != NULL) { #if SM_HEAP_CHECK SM_NONVOLATILE int oldgroup = 0; if (sm_debug_active(&DebugLeakQ, 1)) { oldgroup = sm_heap_group(); sm_heap_newgroup(); sm_dprintf("runner_work(): heap group #%d\n", sm_heap_group()); } #endif /* SM_HEAP_CHECK */ /* do no more work */ if (NoMoreRunners) { /* Check that a valid signal handler is callable */ if (Oldsh != SIG_DFL && Oldsh != SIG_IGN && Oldsh != runners_sighup && Oldsh != runners_sigterm) (*Oldsh)(Oldsig); break; } w = WorkQ; /* assign current work item */ /* ** Set the head of the WorkQ to the next work item. ** It is set 'skip' ahead (the number of parallel queue ** runners working on WorkQ together) since each runner ** works on every 'skip'th (N-th) item. #if _FFR_SKIP_DOMAINS ** In the case of the BYHOST Queue Sort Order, the 'item' ** is a domain, so we work on every 'skip'th (N-th) domain. #endif */ #if _FFR_SKIP_DOMAINS if (QueueSortOrder == QSO_BYHOST) { seqjump = 1; if (WorkQ->w_next != NULL) { if (WorkQ->w_host != NULL && WorkQ->w_next->w_host != NULL) { if (!SM_STRCASEEQ(WorkQ->w_host, WorkQ->w_next->w_host)) seqjump = skip_domains(skip); else WorkQ = WorkQ->w_next; } else { if ((WorkQ->w_host != NULL && WorkQ->w_next->w_host == NULL) || (WorkQ->w_host == NULL && WorkQ->w_next->w_host != NULL)) seqjump = skip_domains(skip); else WorkQ = WorkQ->w_next; } } else WorkQ = WorkQ->w_next; } else #endif /* _FFR_SKIP_DOMAINS */ /* "else" in #if code above */ { for (n = 0; n < skip && WorkQ != NULL; n++) WorkQ = WorkQ->w_next; } e->e_to = NULL; /* ** Ignore jobs that are too expensive for the moment. ** ** Get new load average every GET_NEW_LA_TIME seconds. */ SM_GET_LA(now); if (shouldqueue(WkRecipFact, Current_LA_time)) { char *msg = "Aborting queue run: load average too high"; if (Verbose) message("%s", msg); if (LogLevel > 8) sm_syslog(LOG_INFO, NOQID, "runqueue: %s", msg); break; } if (shouldqueue(w->w_pri, w->w_ctime)) { if (Verbose) message("%s", ""); if (QueueSortOrder == QSO_BYPRIORITY) { if (Verbose) message("Skipping %s/%s (sequence %d of %d) and flushing rest of queue", qid_printqueue(w->w_qgrp, w->w_qdir), w->w_name + 2, sequenceno, njobs); if (LogLevel > 8) sm_syslog(LOG_INFO, NOQID, "runqueue: Flushing queue from %s/%s (pri %ld, LA %d, %d of %d)", qid_printqueue(w->w_qgrp, w->w_qdir), w->w_name + 2, w->w_pri, CurrentLA, sequenceno, njobs); break; } else if (Verbose) message("Skipping %s/%s (sequence %d of %d)", qid_printqueue(w->w_qgrp, w->w_qdir), w->w_name + 2, sequenceno, njobs); } else { if (Verbose) { message("%s", ""); message("Running %s/%s (sequence %d of %d)", qid_printqueue(w->w_qgrp, w->w_qdir), w->w_name + 2, sequenceno, njobs); } if (didfork && MaxQueueChildren > 0) { sm_blocksignal(SIGCHLD); (void) sm_signal(SIGCHLD, reapchild); } if (tTd(63, 100)) sm_syslog(LOG_DEBUG, NOQID, "runqueue %s dowork(%s) pid=%d", qid_printqueue(w->w_qgrp, w->w_qdir), w->w_name + 2, (int) CurrentPid); (void) dowork(w->w_qgrp, w->w_qdir, w->w_name + 2, ForkQueueRuns, false, e); errno = 0; } sm_free(w->w_name); /* XXX */ if (w->w_host != NULL) sm_free(w->w_host); /* XXX */ sm_free((char *) w); /* XXX */ sequenceno += seqjump; /* next sequence number */ #if SM_HEAP_CHECK if (sm_debug_active(&DebugLeakQ, 1)) sm_heap_setgroup(oldgroup); #endif #if _FFR_TESTS if (tTd(76, 101)) { int sl; sl = tTdlevel(76) - 100; sm_dprintf("runner_work(): sleep=%d\n", sl); sleep(sl); } #endif } BlockOldsh = false; /* check the signals didn't happen during the revert */ if (NoMoreRunners) { /* Check that a valid signal handler is callable */ if (Oldsh != SIG_DFL && Oldsh != SIG_IGN && Oldsh != runners_sighup && Oldsh != runners_sigterm) (*Oldsh)(Oldsig); } Oldsh = SIG_DFL; /* after the NoMoreRunners check */ } /* ** RUN_WORK_GROUP -- run the jobs in a queue group from a work group. ** ** Gets the stuff out of the queue in some presumably logical ** order and processes them. ** ** Parameters: ** wgrp -- work group to process. ** flags -- RWG_* flags ** ** Returns: ** true if the queue run successfully began. ** ** Side Effects: ** runs things in the mail queue. */ /* Minimum sleep time for persistent queue runners */ #define MIN_SLEEP_TIME 5 bool run_work_group(wgrp, flags) int wgrp; int flags; { register ENVELOPE *e; int njobs, qdir; int sequenceno = 1; int qgrp, endgrp, h, i; time_t now; bool full, more; SM_RPOOL_T *rpool; extern ENVELOPE BlankEnvelope; extern SIGFUNC_DECL reapchild __P((int)); if (wgrp < 0) return false; /* ** If no work will ever be selected, don't even bother reading ** the queue. */ SM_GET_LA(now); if (!bitset(RWG_PERSISTENT, flags) && shouldqueue(WkRecipFact, Current_LA_time)) { char *msg = "Skipping queue run -- load average too high"; if (bitset(RWG_VERBOSE, flags)) message("458 %s\n", msg); if (LogLevel > 8) sm_syslog(LOG_INFO, NOQID, "runqueue: %s", msg); return false; } /* ** See if we already have too many children. */ if (bitset(RWG_FORK, flags) && WorkGrp[wgrp].wg_lowqintvl > 0 && !bitset(RWG_PERSISTENT, flags) && MaxChildren > 0 && CurChildren >= MaxChildren) { char *msg = "Skipping queue run -- too many children"; if (bitset(RWG_VERBOSE, flags)) message("458 %s (%d)\n", msg, CurChildren); if (LogLevel > 8) sm_syslog(LOG_INFO, NOQID, "runqueue: %s (%d)", msg, CurChildren); return false; } /* ** See if we want to go off and do other useful work. */ if (bitset(RWG_FORK, flags)) { pid_t pid; (void) sm_blocksignal(SIGCHLD); (void) sm_signal(SIGCHLD, reapchild); pid = dofork(); if (pid == -1) { const char *msg = "Skipping queue run -- fork() failed"; const char *err = sm_errstring(errno); if (bitset(RWG_VERBOSE, flags)) message("458 %s: %s\n", msg, err); if (LogLevel > 8) sm_syslog(LOG_INFO, NOQID, "runqueue: %s: %s", msg, err); (void) sm_releasesignal(SIGCHLD); return false; } if (pid != 0) { /* parent -- pick up intermediate zombie */ (void) sm_blocksignal(SIGALRM); /* wgrp only used when queue runners are persistent */ proc_list_add(pid, "Queue runner", PROC_QUEUE, WorkGrp[wgrp].wg_maxact, bitset(RWG_PERSISTENT, flags) ? wgrp : -1, NULL); (void) sm_releasesignal(SIGALRM); (void) sm_releasesignal(SIGCHLD); return true; } /* child -- clean up signals */ /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; CurrentPid = getpid(); close_sendmail_pid(); /* ** Initialize exception stack and default exception ** handler for child process. */ sm_exc_newthread(fatal_error); clrcontrol(); proc_list_clear(); /* Add parent process as first child item */ proc_list_add(CurrentPid, "Queue runner child process", PROC_QUEUE_CHILD, 0, -1, NULL); (void) sm_releasesignal(SIGCHLD); (void) sm_signal(SIGCHLD, SIG_DFL); (void) sm_signal(SIGHUP, SIG_DFL); (void) sm_signal(SIGTERM, intsig); } /* ** Release any resources used by the daemon code. */ clrdaemon(); /* force it to run expensive jobs */ NoConnect = false; /* drop privileges */ if (geteuid() == (uid_t) 0) (void) drop_privileges(false); /* ** Create ourselves an envelope */ CurEnv = &QueueEnvelope; rpool = sm_rpool_new_x(NULL); e = newenvelope(&QueueEnvelope, CurEnv, rpool); e->e_flags = BlankEnvelope.e_flags; e->e_parent = NULL; /* make sure we have disconnected from parent */ if (bitset(RWG_FORK, flags)) { disconnect(1, e); QuickAbort = false; } /* ** If we are running part of the queue, always ignore stored ** host status. */ if (QueueLimitId != NULL || QueueLimitSender != NULL || QueueLimitQuarantine != NULL || QueueLimitRecipient != NULL) { IgnoreHostStatus = true; MinQueueAge = 0; MaxQueueAge = 0; } /* ** Here is where we choose the queue group from the work group. ** The caller of the "domorework" label must set up a new envelope. */ endgrp = WorkGrp[wgrp].wg_curqgrp; /* to not spin endlessly */ domorework: /* ** Run a queue group if: ** RWG_RUNALL bit is set or the bit for this group is set. */ now = curtime(); for (;;) { /* ** Find the next queue group within the work group that ** has been marked as needing a run. */ qgrp = WorkGrp[wgrp].wg_qgs[WorkGrp[wgrp].wg_curqgrp]->qg_index; WorkGrp[wgrp].wg_curqgrp++; /* advance */ WorkGrp[wgrp].wg_curqgrp %= WorkGrp[wgrp].wg_numqgrp; /* wrap */ if (bitset(RWG_RUNALL, flags) || (Queue[qgrp]->qg_nextrun <= now && Queue[qgrp]->qg_nextrun != (time_t) -1)) break; if (endgrp == WorkGrp[wgrp].wg_curqgrp) { e->e_id = NULL; if (bitset(RWG_FORK, flags)) finis(true, true, ExitStat); return true; /* we're done */ } } qdir = Queue[qgrp]->qg_curnum; /* round-robin init of queue position */ #if _FFR_QUEUE_SCHED_DBG if (tTd(69, 12)) sm_syslog(LOG_INFO, NOQID, "rwg: wgrp=%d, qgrp=%d, qdir=%d, name=%s, curqgrp=%d, numgrps=%d", wgrp, qgrp, qdir, qid_printqueue(qgrp, qdir), WorkGrp[wgrp].wg_curqgrp, WorkGrp[wgrp].wg_numqgrp); #endif /* _FFR_QUEUE_SCHED_DBG */ #if HASNICE /* tweak niceness of queue runs */ if (Queue[qgrp]->qg_nice > 0) (void) nice(Queue[qgrp]->qg_nice); #endif /* XXX running queue group... */ sm_setproctitle(true, CurEnv, "running queue: %s", qid_printqueue(qgrp, qdir)); if (LogLevel > 69 || tTd(63, 99)) sm_syslog(LOG_DEBUG, NOQID, "runqueue %s, pid=%d, forkflag=%d", qid_printqueue(qgrp, qdir), (int) CurrentPid, bitset(RWG_FORK, flags)); /* ** Start making passes through the queue. ** First, read and sort the entire queue. ** Then, process the work in that order. */ for (i = 0; i < Queue[qgrp]->qg_numqueues; i++) { (void) gatherq(qgrp, qdir, false, &full, &more, &h); #if SM_CONF_SHM if (ShmId != SM_SHM_NO_ID) QSHM_ENTRIES(Queue[qgrp]->qg_qpaths[qdir].qp_idx) = h; #endif /* If there are no more items in this queue advance */ if (!more) { /* A round-robin advance */ qdir++; qdir %= Queue[qgrp]->qg_numqueues; } /* Has the WorkList reached the limit? */ if (full) break; /* don't try to gather more */ } /* order the existing work requests */ njobs = sortq(Queue[qgrp]->qg_maxlist); Queue[qgrp]->qg_curnum = qdir; /* update */ if (!Verbose && bitnset(QD_FORK, Queue[qgrp]->qg_flags)) { int loop, maxrunners; pid_t pid; /* ** For this WorkQ we want to fork off N children (maxrunners) ** at this point. Each child has a copy of WorkQ. Each child ** will process every N-th item. The parent will wait for all ** of the children to finish before moving on to the next ** queue group within the work group. This saves us forking ** a new runner-child for each work item. ** It's valid for qg_maxqrun == 0 since this may be an ** explicit "don't run this queue" setting. */ maxrunners = Queue[qgrp]->qg_maxqrun; /* ** If no runners are configured for this group but ** the queue is "forced" then lets use 1 runner. */ if (maxrunners == 0 && bitset(RWG_FORCE, flags)) maxrunners = 1; /* No need to have more runners then there are jobs */ if (maxrunners > njobs) maxrunners = njobs; for (loop = 0; loop < maxrunners; loop++) { /* ** Since the delivery may happen in a child and the ** parent does not wait, the parent may close the ** maps thereby removing any shared memory used by ** the map. Therefore, close the maps now so the ** child will dynamically open them if necessary. */ closemaps(false); pid = fork(); if (pid < 0) { syserr("run_work_group: cannot fork"); return false; } else if (pid > 0) { /* parent -- clean out connection cache */ mci_flush(false, NULL); #if _FFR_SKIP_DOMAINS if (QueueSortOrder == QSO_BYHOST) sequenceno += skip_domains(1); else #endif /* _FFR_SKIP_DOMAINS */ /* "else" in #if code above */ { /* for the skip */ WorkQ = WorkQ->w_next; sequenceno++; } proc_list_add(pid, "Queue child runner process", PROC_QUEUE_CHILD, 0, -1, NULL); /* No additional work, no additional runners */ if (WorkQ == NULL) break; } else { /* child -- Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; CurrentPid = getpid(); close_sendmail_pid(); /* ** Initialize exception stack and default ** exception handler for child process. ** When fork()'d the child now has a private ** copy of WorkQ at its current position. */ sm_exc_newthread(fatal_error); /* ** SMTP processes (whether -bd or -bs) set ** SIGCHLD to reapchild to collect ** children status. However, at delivery ** time, that status must be collected ** by sm_wait() to be dealt with properly ** (check success of delivery based ** on status code, etc). Therefore, if we ** are an SMTP process, reset SIGCHLD ** back to the default so reapchild ** doesn't collect status before ** sm_wait(). */ if (OpMode == MD_SMTP || OpMode == MD_DAEMON || MaxQueueChildren > 0) { proc_list_clear(); sm_releasesignal(SIGCHLD); (void) sm_signal(SIGCHLD, SIG_DFL); } /* child -- error messages to the transcript */ QuickAbort = OnlyOneError = false; runner_work(e, sequenceno, true, maxrunners, njobs); /* This child is done */ finis(true, true, ExitStat); /* NOTREACHED */ } } sm_releasesignal(SIGCHLD); /* ** Wait until all of the runners have completed before ** seeing if there is another queue group in the ** work group to process. ** XXX Future enhancement: don't wait() for all children ** here, just go ahead and make sure that overall the number ** of children is not exceeded. */ while (CurChildren > 0) { int status; pid_t ret; while ((ret = sm_wait(&status)) <= 0) continue; proc_list_drop(ret, status, NULL); } } else if (Queue[qgrp]->qg_maxqrun > 0 || bitset(RWG_FORCE, flags)) { /* ** When current process will not fork children to do the work, ** it will do the work itself. The 'skip' will be 1 since ** there are no child runners to divide the work across. */ runner_work(e, sequenceno, false, 1, njobs); } /* free memory allocated by newenvelope() above */ sm_rpool_free(rpool); QueueEnvelope.e_rpool = NULL; QueueEnvelope.e_id = NULL; /* might be allocated from rpool */ /* Are there still more queues in the work group to process? */ if (endgrp != WorkGrp[wgrp].wg_curqgrp) { rpool = sm_rpool_new_x(NULL); e = newenvelope(&QueueEnvelope, CurEnv, rpool); e->e_flags = BlankEnvelope.e_flags; goto domorework; } /* No more queues in work group to process. Now check persistent. */ if (bitset(RWG_PERSISTENT, flags)) { sequenceno = 1; sm_setproctitle(true, NULL, "running queue: %s", qid_printqueue(qgrp, qdir)); /* ** close bogus maps, i.e., maps which caused a tempfail, ** so we get fresh map connections on the next lookup. ** closemaps() is also called when children are started. */ closemaps(true); /* Close any cached connections. */ mci_flush(true, NULL); /* Clean out expired related entries. */ rmexpstab(); #if NAMED_BIND /* Update MX records for FallbackMX. */ if (FallbackMX != NULL) (void) getfallbackmxrr(FallbackMX); #endif #if USERDB /* close UserDatabase */ _udbx_close(); #endif #if SM_HEAP_CHECK if (sm_debug_active(&SmHeapCheck, 2) && access("memdump", F_OK) == 0 ) { SM_FILE_T *out; remove("memdump"); out = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, "memdump.out", SM_IO_APPEND, NULL); if (out != NULL) { (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "----------------------\n"); sm_heap_report(out, sm_debug_level(&SmHeapCheck) - 1); (void) sm_io_close(out, SM_TIME_DEFAULT); } } #endif /* SM_HEAP_CHECK */ /* let me rest for a second to catch my breath */ if (njobs == 0 && WorkGrp[wgrp].wg_lowqintvl < MIN_SLEEP_TIME) sleep(MIN_SLEEP_TIME); else if (WorkGrp[wgrp].wg_lowqintvl <= 0) sleep(QueueIntvl > 0 ? QueueIntvl : MIN_SLEEP_TIME); else sleep(WorkGrp[wgrp].wg_lowqintvl); /* ** Get the LA outside the WorkQ loop if necessary. ** In a persistent queue runner the code is repeated over ** and over but gatherq() may ignore entries due to ** shouldqueue() (do we really have to do this twice?). ** Hence the queue runners would just idle around when once ** CurrentLA caused all entries in a queue to be ignored. */ if (njobs == 0) SM_GET_LA(now); rpool = sm_rpool_new_x(NULL); e = newenvelope(&QueueEnvelope, CurEnv, rpool); e->e_flags = BlankEnvelope.e_flags; goto domorework; } /* exit without the usual cleanup */ e->e_id = NULL; if (bitset(RWG_FORK, flags)) finis(true, true, ExitStat); /* NOTREACHED */ return true; } /* ** DOQUEUERUN -- do a queue run? */ bool doqueuerun() { return DoQueueRun; } /* ** RUNQUEUEEVENT -- Sets a flag to indicate that a queue run should be done. ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** The invocation of this function via an alarm may interrupt ** a set of actions. Thus errno may be set in that context. ** We need to restore errno at the end of this function to ensure ** that any work done here that sets errno doesn't return a ** misleading/false errno value. Errno may be EINTR upon entry to ** this function because of non-restartable/continuable system ** API was active. Iff this is true we will override errno as ** a timeout (as a more accurate error message). ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ void runqueueevent(ignore) int ignore; { int save_errno = errno; /* ** Set the general bit that we want a queue run, ** tested in doqueuerun() */ DoQueueRun = true; #if _FFR_QUEUE_SCHED_DBG if (tTd(69, 10)) sm_syslog(LOG_INFO, NOQID, "rqe: done"); #endif errno = save_errno; if (errno == EINTR) errno = ETIMEDOUT; } /* ** GATHERQ -- gather messages from the message queue(s) the work queue. ** ** Parameters: ** qgrp -- the index of the queue group. ** qdir -- the index of the queue directory. ** doall -- if set, include everything in the queue (even ** the jobs that cannot be run because the load ** average is too high, or MaxQueueRun is reached). ** Otherwise, exclude those jobs. ** full -- (optional) to be set 'true' if WorkList is full ** more -- (optional) to be set 'true' if there are still more ** messages in this queue not added to WorkList ** pnentries -- (optional) total number of entries in queue ** ** Returns: ** The number of request in the queue (not necessarily ** the number of requests in WorkList however). ** ** Side Effects: ** prepares available work into WorkList */ #define NEED_P 0001 /* 'P': priority */ #define NEED_T 0002 /* 'T': time */ #define NEED_R 0004 /* 'R': recipient */ #define NEED_S 0010 /* 'S': sender */ #define NEED_H 0020 /* host */ #define HAS_QUARANTINE 0040 /* has an unexpected 'q' line */ #define NEED_QUARANTINE 0100 /* 'q': reason */ static WORK *WorkList = NULL; /* list of unsort work */ static int WorkListSize = 0; /* current max size of WorkList */ static int WorkListCount = 0; /* # of work items in WorkList */ static int gatherq(qgrp, qdir, doall, full, more, pnentries) int qgrp; int qdir; bool doall; bool *full; bool *more; int *pnentries; { register struct dirent *d; register WORK *w; register char *p; DIR *f; int i, num_ent, wn, nentries; QUEUE_CHAR *check; char qd[MAXPATHLEN]; char qf[MAXPATHLEN]; wn = WorkListCount - 1; num_ent = 0; nentries = 0; if (qdir == NOQDIR) (void) sm_strlcpy(qd, ".", sizeof(qd)); else (void) sm_strlcpyn(qd, sizeof(qd), 2, Queue[qgrp]->qg_qpaths[qdir].qp_name, (bitset(QP_SUBQF, Queue[qgrp]->qg_qpaths[qdir].qp_subdirs) ? "/qf" : "")); if (tTd(41, 1)) { sm_dprintf("gatherq: %s\n", qd); check = QueueLimitId; while (check != NULL) { sm_dprintf("\tQueueLimitId = %s%s\n", check->queue_negate ? "!" : "", check->queue_match); check = check->queue_next; } check = QueueLimitSender; while (check != NULL) { sm_dprintf("\tQueueLimitSender = %s%s\n", check->queue_negate ? "!" : "", check->queue_match); check = check->queue_next; } check = QueueLimitRecipient; while (check != NULL) { sm_dprintf("\tQueueLimitRecipient = %s%s\n", check->queue_negate ? "!" : "", check->queue_match); check = check->queue_next; } if (QueueMode == QM_QUARANTINE) { check = QueueLimitQuarantine; while (check != NULL) { sm_dprintf("\tQueueLimitQuarantine = %s%s\n", check->queue_negate ? "!" : "", check->queue_match); check = check->queue_next; } } } /* open the queue directory */ f = opendir(qd); if (f == NULL) { syserr("gatherq: cannot open \"%s\"", qid_printqueue(qgrp, qdir)); if (full != NULL) *full = WorkListCount >= MaxQueueRun && MaxQueueRun > 0; if (more != NULL) *more = false; return 0; } /* ** Read the work directory. */ while ((d = readdir(f)) != NULL) { SM_FILE_T *cf; int qfver = 0; char lbuf[MAXNAME_I + 1]; struct stat sbuf; if (tTd(41, 50)) sm_dprintf("gatherq: checking %s..", d->d_name); /* is this an interesting entry? */ if (!(((QueueMode == QM_NORMAL && d->d_name[0] == NORMQF_LETTER) || (QueueMode == QM_QUARANTINE && d->d_name[0] == QUARQF_LETTER) || (QueueMode == QM_LOST && d->d_name[0] == LOSEQF_LETTER)) && d->d_name[1] == 'f')) { if (tTd(41, 50)) sm_dprintf(" skipping\n"); continue; } if (tTd(41, 50)) sm_dprintf("\n"); if (strlen(d->d_name) >= MAXQFNAME) { if (Verbose) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "gatherq: %s too long, %d max characters\n", d->d_name, MAXQFNAME); if (LogLevel > 0) sm_syslog(LOG_ALERT, NOQID, "gatherq: %s too long, %d max characters", d->d_name, MAXQFNAME); continue; } ++nentries; check = QueueLimitId; while (check != NULL) { if (strcontainedin(false, check->queue_match, d->d_name) != check->queue_negate) break; else check = check->queue_next; } if (QueueLimitId != NULL && check == NULL) continue; /* grow work list if necessary */ if (++wn >= MaxQueueRun && MaxQueueRun > 0) { if (wn == MaxQueueRun && LogLevel > 0) sm_syslog(LOG_WARNING, NOQID, "WorkList for %s maxed out at %d", qid_printqueue(qgrp, qdir), MaxQueueRun); if (doall) continue; /* just count entries */ break; } if (wn >= WorkListSize) { grow_wlist(qgrp, qdir); if (wn >= WorkListSize) continue; } SM_ASSERT(wn >= 0); w = &WorkList[wn]; (void) sm_strlcpyn(qf, sizeof(qf), 3, qd, "/", d->d_name); if (stat(qf, &sbuf) < 0) { if (errno != ENOENT) sm_syslog(LOG_INFO, NOQID, "gatherq: can't stat %s/%s", qid_printqueue(qgrp, qdir), d->d_name); wn--; continue; } if (!bitset(S_IFREG, sbuf.st_mode)) { /* Yikes! Skip it or we will hang on open! */ if (!((d->d_name[0] == DATAFL_LETTER || d->d_name[0] == NORMQF_LETTER || d->d_name[0] == QUARQF_LETTER || d->d_name[0] == LOSEQF_LETTER || d->d_name[0] == XSCRPT_LETTER) && d->d_name[1] == 'f' && d->d_name[2] == '\0')) syserr("gatherq: %s/%s is not a regular file", qid_printqueue(qgrp, qdir), d->d_name); wn--; continue; } /* avoid work if possible */ if ((QueueSortOrder == QSO_BYFILENAME || QueueSortOrder == QSO_BYMODTIME || QueueSortOrder == QSO_NONE || QueueSortOrder == QSO_RANDOM) && QueueLimitQuarantine == NULL && QueueLimitSender == NULL && QueueLimitRecipient == NULL) { w->w_qgrp = qgrp; w->w_qdir = qdir; w->w_name = newstr(d->d_name); w->w_host = NULL; w->w_lock = w->w_tooyoung = false; w->w_pri = 0; w->w_ctime = 0; w->w_mtime = sbuf.st_mtime; ++num_ent; continue; } /* open control file */ cf = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, qf, SM_IO_RDONLY_B, NULL); if (cf == NULL && OpMode != MD_PRINT) { /* this may be some random person sending hir msgs */ if (tTd(41, 2)) sm_dprintf("gatherq: cannot open %s: %s\n", d->d_name, sm_errstring(errno)); errno = 0; wn--; continue; } w->w_qgrp = qgrp; w->w_qdir = qdir; w->w_name = newstr(d->d_name); w->w_host = NULL; if (cf != NULL) { w->w_lock = !lockfile(sm_io_getinfo(cf, SM_IO_WHAT_FD, NULL), w->w_name, NULL, LOCK_SH|LOCK_NB); } w->w_tooyoung = false; /* make sure jobs in creation don't clog queue */ w->w_pri = 0x7fffffff; w->w_ctime = 0; w->w_mtime = sbuf.st_mtime; /* extract useful information */ i = NEED_P|NEED_T; if (QueueSortOrder == QSO_BYHOST #if _FFR_RHS || QueueSortOrder == QSO_BYSHUFFLE #endif ) { /* need w_host set for host sort order */ i |= NEED_H; } if (QueueLimitSender != NULL) i |= NEED_S; if (QueueLimitRecipient != NULL) i |= NEED_R; if (QueueLimitQuarantine != NULL) i |= NEED_QUARANTINE; while (cf != NULL && i != 0 && sm_io_fgets(cf, SM_TIME_DEFAULT, lbuf, sizeof(lbuf)) >= 0) { int c; time_t age; p = strchr(lbuf, '\n'); if (p != NULL) *p = '\0'; else { /* flush rest of overly long line */ while ((c = sm_io_getc(cf, SM_TIME_DEFAULT)) != SM_IO_EOF && c != '\n') continue; } switch (lbuf[0]) { case 'V': qfver = atoi(&lbuf[1]); break; case 'P': w->w_pri = atol(&lbuf[1]); i &= ~NEED_P; break; case 'T': w->w_ctime = atol(&lbuf[1]); i &= ~NEED_T; break; case 'q': if (QueueMode != QM_QUARANTINE && QueueMode != QM_LOST) { if (tTd(41, 49)) sm_dprintf("%s not marked as quarantined but has a 'q' line\n", w->w_name); i |= HAS_QUARANTINE; } else if (QueueMode == QM_QUARANTINE) { if (QueueLimitQuarantine == NULL) { i &= ~NEED_QUARANTINE; break; } p = &lbuf[1]; check = QueueLimitQuarantine; while (check != NULL) { if (strcontainedin(false, check->queue_match, p) != check->queue_negate) break; else check = check->queue_next; } if (check != NULL) i &= ~NEED_QUARANTINE; } break; case 'R': if (w->w_host == NULL && (p = strrchr(&lbuf[1], '@')) != NULL) { char *str; #if _FFR_RHS if (QueueSortOrder == QSO_BYSHUFFLE) w->w_host = newstr(&p[1]); else #endif w->w_host = strrev(&p[1]); str = makelower_a(&w->w_host, NULL); ASSIGN_IFDIFF(w->w_host, str); i &= ~NEED_H; } if (QueueLimitRecipient == NULL) { i &= ~NEED_R; break; } if (qfver > 0) { p = strchr(&lbuf[1], ':'); if (p == NULL) p = &lbuf[1]; else ++p; /* skip over ':' */ } else p = &lbuf[1]; check = QueueLimitRecipient; while (check != NULL) { if (strcontainedin(true, check->queue_match, p) != check->queue_negate) break; else check = check->queue_next; } if (check != NULL) i &= ~NEED_R; break; case 'S': check = QueueLimitSender; while (check != NULL) { if (strcontainedin(true, check->queue_match, &lbuf[1]) != check->queue_negate) break; else check = check->queue_next; } if (check != NULL) i &= ~NEED_S; break; case 'K': if (MaxQueueAge > 0) { time_t lasttry, delay; lasttry = (time_t) atol(&lbuf[1]); delay = MIN(lasttry - w->w_ctime, MaxQueueAge); age = curtime() - lasttry; if (age < delay) w->w_tooyoung = true; break; } age = curtime() - (time_t) atol(&lbuf[1]); if (age >= 0 && MinQueueAge > 0 && age < MinQueueAge) w->w_tooyoung = true; break; case 'N': if (atol(&lbuf[1]) == 0) w->w_tooyoung = false; break; } } if (cf != NULL) (void) sm_io_close(cf, SM_TIME_DEFAULT); if ((!doall && (shouldqueue(w->w_pri, w->w_ctime) || w->w_tooyoung)) || bitset(HAS_QUARANTINE, i) || bitset(NEED_QUARANTINE, i) || bitset(NEED_R|NEED_S, i)) { /* don't even bother sorting this job in */ if (tTd(41, 49)) sm_dprintf("skipping %s (%x)\n", w->w_name, i); sm_free(w->w_name); /* XXX */ if (w->w_host != NULL) sm_free(w->w_host); /* XXX */ wn--; } else ++num_ent; } (void) closedir(f); wn++; i = wn - WorkListCount; WorkListCount += SM_MIN(num_ent, WorkListSize); if (more != NULL) *more = WorkListCount < wn; if (full != NULL) *full = (wn >= MaxQueueRun && MaxQueueRun > 0) || (WorkList == NULL && wn > 0); if (pnentries != NULL) *pnentries = nentries; if (tTd(41, 2)) sm_dprintf("gatherq: %s=%d\n", qd, i); return i; } /* ** SORTQ -- sort the work list ** ** First the old WorkQ is cleared away. Then the WorkList is sorted ** for all items so that important (higher sorting value) items are not ** truncated off. Then the most important items are moved from ** WorkList to WorkQ. The lower count of 'max' or MaxListCount items ** are moved. ** ** Parameters: ** max -- maximum number of items to be placed in WorkQ ** ** Returns: ** the number of items in WorkQ ** ** Side Effects: ** WorkQ gets released and filled with new work. WorkList ** gets released. Work items get sorted in order. */ static int sortq(max) int max; { register int i; /* local counter */ register WORK *w; /* tmp item pointer */ int wc = WorkListCount; /* trim size for WorkQ */ if (WorkQ != NULL) { WORK *nw; /* Clear out old WorkQ. */ for (w = WorkQ; w != NULL; w = nw) { nw = w->w_next; sm_free(w->w_name); /* XXX */ if (w->w_host != NULL) sm_free(w->w_host); /* XXX */ sm_free((char *) w); /* XXX */ } WorkQ = NULL; } if (WorkList == NULL || wc <= 0) return 0; /* ** The sort now takes place using all of the items in WorkList. ** The list gets trimmed to the most important items after the sort. ** If the trim were to happen before the sort then one or more ** important items might get truncated off -- not what we want. */ if (QueueSortOrder == QSO_BYHOST) { /* ** Sort the work directory for the first time, ** based on host name, lock status, and priority. */ qsort((char *) WorkList, wc, sizeof(*WorkList), workcmpf1); /* ** If one message to host is locked, "lock" all messages ** to that host. */ i = 0; while (i < wc) { if (!WorkList[i].w_lock) { i++; continue; } w = &WorkList[i]; while (++i < wc) { if (WorkList[i].w_host == NULL && w->w_host == NULL) WorkList[i].w_lock = true; else if (WorkList[i].w_host != NULL && w->w_host != NULL && SM_STRCASEEQ(WorkList[i].w_host, w->w_host)) WorkList[i].w_lock = true; else break; } } /* ** Sort the work directory for the second time, ** based on lock status, host name, and priority. */ qsort((char *) WorkList, wc, sizeof(*WorkList), workcmpf2); } else if (QueueSortOrder == QSO_BYTIME) { /* ** Simple sort based on submission time only. */ qsort((char *) WorkList, wc, sizeof(*WorkList), workcmpf3); } else if (QueueSortOrder == QSO_BYFILENAME) { /* ** Sort based on queue filename. */ qsort((char *) WorkList, wc, sizeof(*WorkList), workcmpf4); } else if (QueueSortOrder == QSO_RANDOM) { /* ** Sort randomly. To avoid problems with an instable sort, ** use a random index into the queue file name to start ** comparison. */ randi = get_rand_mod(MAXQFNAME); if (randi < 2) randi = 3; qsort((char *) WorkList, wc, sizeof(*WorkList), workcmpf5); } else if (QueueSortOrder == QSO_BYMODTIME) { /* ** Simple sort based on modification time of queue file. ** This puts the oldest items first. */ qsort((char *) WorkList, wc, sizeof(*WorkList), workcmpf6); } #if _FFR_RHS else if (QueueSortOrder == QSO_BYSHUFFLE) { /* ** Simple sort based on shuffled host name. */ init_shuffle_alphabet(); qsort((char *) WorkList, wc, sizeof(*WorkList), workcmpf7); } #endif /* _FFR_RHS */ else if (QueueSortOrder == QSO_BYPRIORITY) { /* ** Simple sort based on queue priority only. */ qsort((char *) WorkList, wc, sizeof(*WorkList), workcmpf0); } /* else don't sort at all */ /* Check if the per queue group item limit will be exceeded */ if (wc > max && max > 0) wc = max; /* ** Convert the work list into canonical form. ** Should be turning it into a list of envelopes here perhaps. ** Only take the most important items up to the per queue group ** maximum. */ for (i = wc; --i >= 0; ) { w = (WORK *) xalloc(sizeof(*w)); w->w_qgrp = WorkList[i].w_qgrp; w->w_qdir = WorkList[i].w_qdir; w->w_name = WorkList[i].w_name; w->w_host = WorkList[i].w_host; w->w_lock = WorkList[i].w_lock; w->w_tooyoung = WorkList[i].w_tooyoung; w->w_pri = WorkList[i].w_pri; w->w_ctime = WorkList[i].w_ctime; w->w_mtime = WorkList[i].w_mtime; w->w_next = WorkQ; WorkQ = w; } /* free the rest of the list */ for (i = WorkListCount; --i >= wc; ) { sm_free(WorkList[i].w_name); if (WorkList[i].w_host != NULL) sm_free(WorkList[i].w_host); } if (WorkList != NULL) sm_free(WorkList); /* XXX */ WorkList = NULL; WorkListSize = 0; WorkListCount = 0; if (tTd(40, 1)) { for (w = WorkQ; w != NULL; w = w->w_next) { if (w->w_host != NULL) sm_dprintf("%22s: pri=%ld %s\n", w->w_name, w->w_pri, w->w_host); else sm_dprintf("%32s: pri=%ld\n", w->w_name, w->w_pri); } } return wc; /* return number of WorkQ items */ } /* ** GROW_WLIST -- make the work list larger ** ** Parameters: ** qgrp -- the index for the queue group. ** qdir -- the index for the queue directory. ** ** Returns: ** none. ** ** Side Effects: ** Adds another QUEUESEGSIZE entries to WorkList if possible. ** It can fail if there isn't enough memory, so WorkListSize ** should be checked again upon return. */ static void grow_wlist(qgrp, qdir) int qgrp; int qdir; { if (tTd(41, 1)) sm_dprintf("grow_wlist: WorkListSize=%d\n", WorkListSize); if (WorkList == NULL) { WorkList = (WORK *) xalloc((sizeof(*WorkList)) * (QUEUESEGSIZE + 1)); WorkListSize = QUEUESEGSIZE; } else { int newsize = WorkListSize + QUEUESEGSIZE; WORK *newlist = (WORK *) sm_realloc((char *) WorkList, (unsigned) sizeof(WORK) * (newsize + 1)); if (newlist != NULL) { WorkListSize = newsize; WorkList = newlist; if (LogLevel > 1) { sm_syslog(LOG_INFO, NOQID, "grew WorkList for %s to %d", qid_printqueue(qgrp, qdir), WorkListSize); } } else if (LogLevel > 0) { sm_syslog(LOG_ALERT, NOQID, "FAILED to grow WorkList for %s to %d", qid_printqueue(qgrp, qdir), newsize); } } if (tTd(41, 1)) sm_dprintf("grow_wlist: WorkListSize now %d\n", WorkListSize); } /* ** WORKCMPF0 -- simple priority-only compare function. ** ** Parameters: ** av -- the first argument. ** bv -- the second argument. ** ** Returns: ** -1 if av < bv ** 0 if av == bv ** +1 if av > bv */ static int workcmpf0(av, bv) const void *av; const void *bv; { long pa = ((WORK *)av)->w_pri; long pb = ((WORK *)bv)->w_pri; if (pa == pb) return 0; else if (pa > pb) return 1; else return -1; } /* ** WORKCMPF1 -- first compare function for ordering work based on host name. ** ** Sorts on host name, lock status, and priority in that order. ** ** Parameters: ** av -- the first argument. ** bv -- the second argument. ** ** Returns: ** <0 if av < bv ** 0 if av == bv ** >0 if av > bv */ static int workcmpf1(av, bv) const void *av; const void *bv; { int i; WORK *a = (WORK *)av; WORK *b = (WORK *)bv; /* host name */ if (a->w_host != NULL && b->w_host == NULL) return 1; else if (a->w_host == NULL && b->w_host != NULL) return -1; if (a->w_host != NULL && b->w_host != NULL && (i = sm_strcasecmp(a->w_host, b->w_host)) != 0) return i; /* lock status */ if (a->w_lock != b->w_lock) return b->w_lock - a->w_lock; /* job priority */ return workcmpf0(a, b); } /* ** WORKCMPF2 -- second compare function for ordering work based on host name. ** ** Sorts on lock status, host name, and priority in that order. ** ** Parameters: ** av -- the first argument. ** bv -- the second argument. ** ** Returns: ** <0 if av < bv ** 0 if av == bv ** >0 if av > bv */ static int workcmpf2(av, bv) const void *av; const void *bv; { int i; WORK *a = (WORK *)av; WORK *b = (WORK *)bv; /* lock status */ if (a->w_lock != b->w_lock) return a->w_lock - b->w_lock; /* host name */ if (a->w_host != NULL && b->w_host == NULL) return 1; else if (a->w_host == NULL && b->w_host != NULL) return -1; if (a->w_host != NULL && b->w_host != NULL && (i = sm_strcasecmp(a->w_host, b->w_host)) != 0) return i; /* job priority */ return workcmpf0(a, b); } /* ** WORKCMPF3 -- simple submission-time-only compare function. ** ** Parameters: ** av -- the first argument. ** bv -- the second argument. ** ** Returns: ** -1 if av < bv ** 0 if av == bv ** +1 if av > bv */ static int workcmpf3(av, bv) const void *av; const void *bv; { WORK *a = (WORK *)av; WORK *b = (WORK *)bv; if (a->w_ctime > b->w_ctime) return 1; else if (a->w_ctime < b->w_ctime) return -1; else return 0; } /* ** WORKCMPF4 -- compare based on file name ** ** Parameters: ** av -- the first argument. ** bv -- the second argument. ** ** Returns: ** -1 if av < bv ** 0 if av == bv ** +1 if av > bv */ static int workcmpf4(av, bv) const void *av; const void *bv; { WORK *a = (WORK *)av; WORK *b = (WORK *)bv; return strcmp(a->w_name, b->w_name); } /* ** WORKCMPF5 -- compare based on assigned random number ** ** Parameters: ** av -- the first argument. ** bv -- the second argument. ** ** Returns: ** randomly 1/-1 */ /* ARGSUSED0 */ static int workcmpf5(av, bv) const void *av; const void *bv; { WORK *a = (WORK *)av; WORK *b = (WORK *)bv; if (strlen(a->w_name) < randi || strlen(b->w_name) < randi) return -1; return a->w_name[randi] - b->w_name[randi]; } /* ** WORKCMPF6 -- simple modification-time-only compare function. ** ** Parameters: ** av -- the first argument. ** bv -- the second argument. ** ** Returns: ** -1 if av < bv ** 0 if av == bv ** +1 if av > bv */ static int workcmpf6(av, bv) const void *av; const void *bv; { WORK *a = (WORK *)av; WORK *b = (WORK *)bv; if (a->w_mtime > b->w_mtime) return 1; else if (a->w_mtime < b->w_mtime) return -1; else return 0; } #if _FFR_RHS /* ** WORKCMPF7 -- compare function for ordering work based on shuffled host name. ** ** Sorts on lock status, host name, and priority in that order. ** ** Parameters: ** av -- the first argument. ** bv -- the second argument. ** ** Returns: ** <0 if av < bv ** 0 if av == bv ** >0 if av > bv */ static int workcmpf7(av, bv) const void *av; const void *bv; { int i; WORK *a = (WORK *)av; WORK *b = (WORK *)bv; /* lock status */ if (a->w_lock != b->w_lock) return a->w_lock - b->w_lock; /* host name */ if (a->w_host != NULL && b->w_host == NULL) return 1; else if (a->w_host == NULL && b->w_host != NULL) return -1; if (a->w_host != NULL && b->w_host != NULL && (i = sm_strshufflecmp(a->w_host, b->w_host)) != 0) return i; /* job priority */ return workcmpf0(a, b); } #endif /* _FFR_RHS */ /* ** STRREV -- reverse string ** ** Returns a pointer to a new string that is the reverse of ** the string pointed to by fwd. The space for the new ** string is obtained using xalloc(). ** ** Parameters: ** fwd -- the string to reverse. ** ** Returns: ** the reversed string. */ static char * strrev(fwd) char *fwd; { char *rev = NULL; int len, cnt; len = strlen(fwd); rev = xalloc(len + 1); for (cnt = 0; cnt < len; ++cnt) rev[cnt] = fwd[len - cnt - 1]; rev[len] = '\0'; return rev; } #if _FFR_RHS # define NASCII 128 # define NCHAR 256 static unsigned char ShuffledAlphabet[NCHAR]; void init_shuffle_alphabet() { static bool init = false; int i; if (init) return; /* fill the ShuffledAlphabet */ for (i = 0; i < NASCII; i++) ShuffledAlphabet[i] = i; /* mix it */ for (i = 1; i < NASCII; i++) { register int j = get_random() % NASCII; register int tmp; tmp = ShuffledAlphabet[j]; ShuffledAlphabet[j] = ShuffledAlphabet[i]; ShuffledAlphabet[i] = tmp; } /* make it case insensitive */ for (i = 'A'; i <= 'Z'; i++) ShuffledAlphabet[i] = ShuffledAlphabet[i + 'a' - 'A']; /* fill the upper part */ for (i = 0; i < NASCII; i++) ShuffledAlphabet[i + NASCII] = ShuffledAlphabet[i]; init = true; } static int sm_strshufflecmp(a, b) char *a; char *b; { const unsigned char *us1 = (const unsigned char *) a; const unsigned char *us2 = (const unsigned char *) b; while (ShuffledAlphabet[*us1] == ShuffledAlphabet[*us2++]) { if (*us1++ == '\0') return 0; } return (ShuffledAlphabet[*us1] - ShuffledAlphabet[*--us2]); } #endif /* _FFR_RHS */ /* ** DOWORK -- do a work request. ** ** Parameters: ** qgrp -- the index of the queue group for the job. ** qdir -- the index of the queue directory for the job. ** id -- the ID of the job to run. ** forkflag -- if set, run this in background. ** requeueflag -- if set, reinstantiate the queue quickly. ** This is used when expanding aliases in the queue. ** If forkflag is also set, it doesn't wait for the ** child. ** e - the envelope in which to run it. ** ** Returns: ** process id of process that is running the queue job. ** ** Side Effects: ** The work request is satisfied if possible. */ pid_t dowork(qgrp, qdir, id, forkflag, requeueflag, e) int qgrp; int qdir; char *id; bool forkflag; bool requeueflag; register ENVELOPE *e; { register pid_t pid; SM_RPOOL_T *rpool; if (tTd(40, 1)) sm_dprintf("dowork(%s/%s), forkflag=%d\n", qid_printqueue(qgrp, qdir), id, forkflag); /* ** Fork for work. */ if (forkflag) { /* ** Since the delivery may happen in a child and the ** parent does not wait, the parent may close the ** maps thereby removing any shared memory used by ** the map. Therefore, close the maps now so the ** child will dynamically open them if necessary. */ closemaps(false); pid = fork(); if (pid < 0) { syserr("dowork: cannot fork"); return 0; } else if (pid > 0) { /* parent -- clean out connection cache */ mci_flush(false, NULL); } else { /* ** Initialize exception stack and default exception ** handler for child process. */ /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; CurrentPid = getpid(); sm_exc_newthread(fatal_error); /* ** See note above about SMTP processes and SIGCHLD. */ if (OpMode == MD_SMTP || OpMode == MD_DAEMON || MaxQueueChildren > 0) { proc_list_clear(); sm_releasesignal(SIGCHLD); (void) sm_signal(SIGCHLD, SIG_DFL); } /* child -- error messages to the transcript */ QuickAbort = OnlyOneError = false; } } else { pid = 0; maps_reset_chged("dowork"); } if (pid == 0) { /* ** CHILD ** Lock the control file to avoid duplicate deliveries. ** Then run the file as though we had just read it. ** We save an idea of the temporary name so we ** can recover on interrupt. */ if (forkflag) { /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; } /* set basic modes, etc. */ sm_clear_events(); clearstats(); rpool = sm_rpool_new_x(NULL); clearenvelope(e, false, rpool); e->e_flags |= EF_QUEUERUN|EF_GLOBALERRS; set_delivery_mode(SM_DELIVER, e); e->e_errormode = EM_MAIL; e->e_id = id; e->e_qgrp = qgrp; e->e_qdir = qdir; GrabTo = UseErrorsTo = false; ExitStat = EX_OK; if (forkflag) { disconnect(1, e); set_op_mode(MD_QUEUERUN); } sm_setproctitle(true, e, "%s from queue", qid_printname(e)); if (LogLevel > 76) sm_syslog(LOG_DEBUG, e->e_id, "dowork, pid=%d", (int) CurrentPid); /* don't use the headers from sendmail.cf... */ e->e_header = NULL; /* read the queue control file -- return if locked */ if (!readqf(e, false)) { if (tTd(40, 4) && e->e_id != NULL) sm_dprintf("readqf(%s) failed\n", qid_printname(e)); e->e_id = NULL; if (forkflag) finis(false, true, EX_OK); else { /* adding this frees 8 bytes */ clearenvelope(e, false, rpool); /* adding this frees 12 bytes */ sm_rpool_free(rpool); e->e_rpool = NULL; return 0; } } e->e_flags |= EF_INQUEUE; eatheader(e, requeueflag, true); if (requeueflag) queueup(e, QUP_FL_NONE); if (tTd(40, 9)) sm_dprintf("dowork(%s/%s), forkflag=%d, pid=%d, CurRunners=%d\n", qid_printqueue(qgrp, qdir), id, forkflag, (int) CurrentPid, CurRunners); /* do the delivery */ sendall(e, SM_DELIVER); /* finish up and exit */ if (forkflag) finis(true, true, ExitStat); else { (void) dropenvelope(e, true, false); sm_rpool_free(rpool); e->e_rpool = NULL; e->e_message = NULL; } } e->e_id = NULL; return pid; } /* ** DOWORKLIST -- process a list of envelopes as work requests ** ** Similar to dowork(), except that after forking, it processes an ** envelope and its siblings, treating each envelope as a work request. ** ** Parameters: ** el -- envelope to be processed including its siblings. ** forkflag -- if set, run this in background. ** requeueflag -- if set, reinstantiate the queue quickly. ** This is used when expanding aliases in the queue. ** If forkflag is also set, it doesn't wait for the ** child. ** ** Returns: ** process id of process that is running the queue job. ** ** Side Effects: ** The work request is satisfied if possible. */ pid_t doworklist(el, forkflag, requeueflag) ENVELOPE *el; bool forkflag; bool requeueflag; { register pid_t pid; ENVELOPE *ei; if (tTd(40, 1)) sm_dprintf("doworklist()\n"); /* ** Fork for work. */ if (forkflag) { /* ** Since the delivery may happen in a child and the ** parent does not wait, the parent may close the ** maps thereby removing any shared memory used by ** the map. Therefore, close the maps now so the ** child will dynamically open them if necessary. */ closemaps(false); pid = fork(); if (pid < 0) { syserr("doworklist: cannot fork"); return 0; } else if (pid > 0) { /* parent -- clean out connection cache */ mci_flush(false, NULL); } else { /* ** Initialize exception stack and default exception ** handler for child process. */ /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; CurrentPid = getpid(); sm_exc_newthread(fatal_error); /* ** See note above about SMTP processes and SIGCHLD. */ if (OpMode == MD_SMTP || OpMode == MD_DAEMON || MaxQueueChildren > 0) { proc_list_clear(); sm_releasesignal(SIGCHLD); (void) sm_signal(SIGCHLD, SIG_DFL); } /* child -- error messages to the transcript */ QuickAbort = OnlyOneError = false; } } else { pid = 0; } if (pid != 0) return pid; /* ** IN CHILD ** Lock the control file to avoid duplicate deliveries. ** Then run the file as though we had just read it. ** We save an idea of the temporary name so we ** can recover on interrupt. */ if (forkflag) { /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; } /* set basic modes, etc. */ sm_clear_events(); clearstats(); GrabTo = UseErrorsTo = false; ExitStat = EX_OK; if (forkflag) { disconnect(1, el); set_op_mode(MD_QUEUERUN); } if (LogLevel > 76) sm_syslog(LOG_DEBUG, el->e_id, "doworklist, pid=%d", (int) CurrentPid); for (ei = el; ei != NULL; ei = ei->e_sibling) { ENVELOPE e; SM_RPOOL_T *rpool; if (WILL_BE_QUEUED(ei->e_sendmode)) continue; else if (QueueMode != QM_QUARANTINE && ei->e_quarmsg != NULL) continue; maps_reset_chged("doworklist"); rpool = sm_rpool_new_x(NULL); clearenvelope(&e, true, rpool); e.e_flags |= EF_QUEUERUN|EF_GLOBALERRS; set_delivery_mode(SM_DELIVER, &e); e.e_errormode = EM_MAIL; e.e_id = ei->e_id; e.e_qgrp = ei->e_qgrp; e.e_qdir = ei->e_qdir; openxscript(&e); sm_setproctitle(true, &e, "%s from queue", qid_printname(&e)); /* don't use the headers from sendmail.cf... */ e.e_header = NULL; CurEnv = &e; /* read the queue control file -- return if locked */ if (readqf(&e, false)) { e.e_flags |= EF_INQUEUE; eatheader(&e, requeueflag, true); if (requeueflag) queueup(&e, QUP_FL_NONE); /* do the delivery */ sendall(&e, SM_DELIVER); (void) dropenvelope(&e, true, false); } else { if (tTd(40, 4) && e.e_id != NULL) sm_dprintf("readqf(%s) failed\n", qid_printname(&e)); } sm_rpool_free(rpool); ei->e_id = NULL; } /* restore CurEnv */ CurEnv = el; /* finish up and exit */ if (forkflag) finis(true, true, ExitStat); return 0; } /* ** READQF -- read queue file and set up environment. ** ** Parameters: ** e -- the envelope of the job to run. ** openonly -- only open the qf (returned as e_lockfp) ** ** Returns: ** true if it successfully read the queue file. ** false otherwise. ** ** Side Effects: ** The queue file is returned locked. */ static bool readqf(e, openonly) register ENVELOPE *e; bool openonly; { register SM_FILE_T *qfp; ADDRESS *ctladdr; struct stat st, stf; char *bp; int qfver = 0; long hdrsize = 0; register char *p; char *frcpt = NULL; char *orcpt = NULL; bool nomore = false; bool bogus = false; MODE_T qsafe; char *err; char qf[MAXPATHLEN]; char buf[MAXLINE]; int bufsize; /* ** Read and process the file. */ SM_REQUIRE(e != NULL); bp = NULL; (void) sm_strlcpy(qf, queuename(e, ANYQFL_LETTER), sizeof(qf)); qfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, qf, SM_IO_RDWR_B, NULL); if (qfp == NULL) { int save_errno = errno; if (tTd(40, 8)) sm_dprintf("readqf(%s): sm_io_open failure (%s)\n", qf, sm_errstring(errno)); errno = save_errno; if (errno != ENOENT ) syserr("readqf: no control file %s", qf); RELEASE_QUEUE; return false; } if (!lockfile(sm_io_getinfo(qfp, SM_IO_WHAT_FD, NULL), qf, NULL, LOCK_EX|LOCK_NB)) { /* being processed by another queuer */ if (Verbose) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s: locked\n", e->e_id); if (tTd(40, 8)) sm_dprintf("%s: locked\n", e->e_id); if (LogLevel > 19) sm_syslog(LOG_DEBUG, e->e_id, "queueup: locked"); (void) sm_io_close(qfp, SM_TIME_DEFAULT); RELEASE_QUEUE; return false; } RELEASE_QUEUE; /* ** Prevent locking race condition. ** ** Process A: readqf(): qfp = fopen(qffile) ** Process B: queueup(): rename(tf, qf) ** Process B: unlocks(tf) ** Process A: lockfile(qf); ** ** Process A (us) has the old qf file (before the rename deleted ** the directory entry) and will be delivering based on old data. ** This can lead to multiple deliveries of the same recipients. ** ** Catch this by checking if the underlying qf file has changed ** *after* acquiring our lock and if so, act as though the file ** was still locked (i.e., just return like the lockfile() case ** above. */ if (stat(qf, &stf) < 0 || fstat(sm_io_getinfo(qfp, SM_IO_WHAT_FD, NULL), &st) < 0) { /* must have been being processed by someone else */ if (tTd(40, 8)) sm_dprintf("readqf(%s): [f]stat failure (%s)\n", qf, sm_errstring(errno)); (void) sm_io_close(qfp, SM_TIME_DEFAULT); return false; } if (st.st_nlink != stf.st_nlink || st.st_dev != stf.st_dev || ST_INODE(st) != ST_INODE(stf) || #if HAS_ST_GEN && 0 /* AFS returns garbage in st_gen */ st.st_gen != stf.st_gen || #endif st.st_uid != stf.st_uid || st.st_gid != stf.st_gid || st.st_size != stf.st_size) { /* changed after opened */ if (Verbose) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s: changed\n", e->e_id); if (tTd(40, 8)) sm_dprintf("%s: changed\n", e->e_id); if (LogLevel > 19) sm_syslog(LOG_DEBUG, e->e_id, "changed"); (void) sm_io_close(qfp, SM_TIME_DEFAULT); return false; } /* ** Check the queue file for plausibility to avoid attacks. */ qsafe = S_IWOTH|S_IWGRP; if (bitset(S_IWGRP, QueueFileMode)) qsafe &= ~S_IWGRP; bogus = st.st_uid != geteuid() && st.st_uid != TrustedUid && geteuid() != RealUid; /* ** If this qf file results from a set-group-ID binary, then ** we check whether the directory is group-writable, ** the queue file mode contains the group-writable bit, and ** the groups are the same. ** Notice: this requires that the set-group-ID binary is used to ** run the queue! */ if (bogus && st.st_gid == getegid() && UseMSP) { char delim; struct stat dst; bp = SM_LAST_DIR_DELIM(qf); if (bp == NULL) delim = '\0'; else { delim = *bp; *bp = '\0'; } if (stat(delim == '\0' ? "." : qf, &dst) < 0) syserr("readqf: cannot stat directory %s", delim == '\0' ? "." : qf); else { bogus = !(bitset(S_IWGRP, QueueFileMode) && bitset(S_IWGRP, dst.st_mode) && dst.st_gid == st.st_gid); } if (delim != '\0') *bp = delim; bp = NULL; } if (!bogus) bogus = bitset(qsafe, st.st_mode); if (bogus) { if (LogLevel > 0) { sm_syslog(LOG_ALERT, e->e_id, "bogus queue file, uid=%ld, gid=%ld, mode=%o", (long) st.st_uid, (long) st.st_gid, (unsigned int) st.st_mode); } if (tTd(40, 8)) sm_dprintf("readqf(%s): bogus file\n", qf); e->e_flags |= EF_INQUEUE; if (!openonly) loseqfile(e, "bogus file uid/gid in mqueue"); (void) sm_io_close(qfp, SM_TIME_DEFAULT); return false; } if (st.st_size == 0) { /* must be a bogus file -- if also old, just remove it */ if (!openonly && st.st_ctime + 10 * 60 < curtime()) { (void) xunlink(queuename(e, DATAFL_LETTER)); (void) xunlink(queuename(e, ANYQFL_LETTER)); } (void) sm_io_close(qfp, SM_TIME_DEFAULT); return false; } if (st.st_nlink == 0) { /* ** Race condition -- we got a file just as it was being ** unlinked. Just assume it is zero length. */ (void) sm_io_close(qfp, SM_TIME_DEFAULT); return false; } #if _FFR_TRUSTED_QF /* ** If we don't own the file mark it as unsafe. ** However, allow TrustedUser to own it as well ** in case TrustedUser manipulates the queue. */ if (st.st_uid != geteuid() && st.st_uid != TrustedUid) e->e_flags |= EF_UNSAFE; #else /* _FFR_TRUSTED_QF */ /* If we don't own the file mark it as unsafe */ if (st.st_uid != geteuid()) e->e_flags |= EF_UNSAFE; #endif /* _FFR_TRUSTED_QF */ /* good file -- save this lock */ e->e_lockfp = qfp; /* Just wanted the open file */ if (openonly) return true; /* do basic system initialization */ initsys(e); macdefine(&e->e_macro, A_PERM, 'i', e->e_id); LineNumber = 0; e->e_flags |= EF_GLOBALERRS; set_op_mode(MD_QUEUERUN); ctladdr = NULL; e->e_qfletter = queue_letter(e, ANYQFL_LETTER); e->e_dfqgrp = e->e_qgrp; e->e_dfqdir = e->e_qdir; #if _FFR_QUEUE_MACRO macdefine(&e->e_macro, A_TEMP, macid("{queue}"), qid_printqueue(e->e_qgrp, e->e_qdir)); #endif e->e_dfino = -1; e->e_msgsize = -1; while (bufsize = sizeof(buf), (bp = fgetfolded(buf, &bufsize, qfp)) != NULL) { unsigned long qflags; ADDRESS *q; int r; time_t now; auto char *ep; if (tTd(40, 4)) sm_dprintf("+++++ %s\n", bp); if (nomore) { /* hack attack */ hackattack: syserr("SECURITY ALERT: extra or bogus data in queue file: %s", bp); err = "bogus queue line"; goto fail; } switch (bp[0]) { case 'A': /* AUTH= parameter */ if (!xtextok(&bp[1])) goto hackattack; e->e_auth_param = sm_rpool_strdup_x(e->e_rpool, &bp[1]); break; case 'B': /* body type */ r = check_bodytype(&bp[1]); if (!BODYTYPE_VALID(r)) goto hackattack; e->e_bodytype = sm_rpool_strdup_x(e->e_rpool, &bp[1]); break; case 'C': /* specify controlling user */ ctladdr = setctluser(&bp[1], qfver, e); break; case 'D': /* data file name */ /* obsolete -- ignore */ break; case 'd': /* data file directory name */ { int qgrp, qdir; #if _FFR_MSP_PARANOIA /* forbid queue groups in MSP? */ if (UseMSP) goto hackattack; #endif for (qgrp = 0; qgrp < NumQueue && Queue[qgrp] != NULL; ++qgrp) { for (qdir = 0; qdir < Queue[qgrp]->qg_numqueues; ++qdir) { if (strcmp(&bp[1], Queue[qgrp]->qg_qpaths[qdir].qp_name) == 0) { e->e_dfqgrp = qgrp; e->e_dfqdir = qdir; goto done; } } } err = "bogus queue file directory"; goto fail; done: break; } case 'E': /* specify error recipient */ /* no longer used */ break; case 'F': /* flag bits */ if (strncmp(bp, "From ", 5) == 0) { /* we are being spoofed! */ syserr("SECURITY ALERT: bogus qf line %s", bp); err = "bogus queue line"; goto fail; } for (p = &bp[1]; *p != '\0'; p++) { switch (*p) { case '8': /* has 8 bit data */ e->e_flags |= EF_HAS8BIT; break; case 'b': /* delete Bcc: header */ e->e_flags |= EF_DELETE_BCC; break; case 'd': /* envelope has DSN RET= */ e->e_flags |= EF_RET_PARAM; break; case 'n': /* don't return body */ e->e_flags |= EF_NO_BODY_RETN; break; case 'r': /* response */ e->e_flags |= EF_RESPONSE; break; case 's': /* split */ e->e_flags |= EF_SPLIT; break; case 'w': /* warning sent */ e->e_flags |= EF_WARNING; break; #if USE_EAI case 'e': /* message requires EAI */ e->e_smtputf8 = true; break; #endif /* USE_EAI */ } } break; case 'q': /* quarantine reason */ e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool, &bp[1]); macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), e->e_quarmsg); break; case 'H': /* header */ /* ** count size before chompheader() destroys the line. ** this isn't accurate due to macro expansion, but ** better than before. "-3" to skip H?? at least. */ hdrsize += strlen(bp) - 3; (void) chompheader(&bp[1], CHHDR_QUEUE, NULL, e); break; case 'I': /* data file's inode number */ /* regenerated below */ break; case 'K': /* time of last delivery attempt */ e->e_dtime = atol(&buf[1]); break; case 'L': /* Solaris Content-Length: */ case 'M': /* message */ /* ignore this; we want a new message next time */ break; case 'N': /* number of delivery attempts */ e->e_ntries = atoi(&buf[1]); /* if this has been tried recently, let it be */ now = curtime(); if (e->e_ntries > 0 && e->e_dtime <= now && now < e->e_dtime + MinQueueAge) { char *howlong; howlong = pintvl(now - e->e_dtime, true); if (Verbose) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s: too young (%s)\n", e->e_id, howlong); if (tTd(40, 8)) sm_dprintf("%s: too young (%s)\n", e->e_id, howlong); if (LogLevel > 19) sm_syslog(LOG_DEBUG, e->e_id, "too young (%s)", howlong); e->e_id = NULL; unlockqueue(e); if (bp != buf) sm_free(bp); return false; } macdefine(&e->e_macro, A_TEMP, macid("{ntries}"), &buf[1]); #if NAMED_BIND /* adjust BIND parameters immediately */ if (e->e_ntries == 0) { _res.retry = TimeOuts.res_retry[RES_TO_FIRST]; _res.retrans = TimeOuts.res_retrans[RES_TO_FIRST]; } else { _res.retry = TimeOuts.res_retry[RES_TO_NORMAL]; _res.retrans = TimeOuts.res_retrans[RES_TO_NORMAL]; } #endif /* NAMED_BIND */ break; case 'P': /* message priority */ e->e_msgpriority = atol(&bp[1]) + WkTimeFact; break; case 'Q': /* original recipient */ orcpt = sm_rpool_strdup_x(e->e_rpool, &bp[1]); break; case 'r': /* final recipient */ frcpt = sm_rpool_strdup_x(e->e_rpool, &bp[1]); break; case 'R': /* specify recipient */ p = bp; qflags = 0; if (qfver >= 1) { /* get flag bits */ while (*++p != '\0' && *p != ':') { switch (*p) { case 'N': qflags |= QHASNOTIFY; break; case 'S': qflags |= QPINGONSUCCESS; break; case 'F': qflags |= QPINGONFAILURE; break; case 'D': qflags |= QPINGONDELAY; break; case 'P': qflags |= QPRIMARY; break; case 'A': if (ctladdr != NULL) ctladdr->q_flags |= QALIAS; break; case 'B': qflags |= QINTBCC; break; case 'X': qflags |= QMXSECURE; break; case QDYNMAILFLG: qflags |= QDYNMAILER; break; default: /* ignore or complain? */ break; } } } else qflags |= QPRIMARY; macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), ((qflags & QINTBCC) != 0) ? "e b" : "e r"); /* XXX p must be [i] */ if (*p != '\0') q = parseaddr(++p, NULLADDR, RF_COPYALL, '\0', NULL, e, true); else q = NULL; if (q != NULL) { /* make sure we keep the current qgrp */ if (ISVALIDQGRP(e->e_qgrp)) q->q_qgrp = e->e_qgrp; q->q_alias = ctladdr; if (qfver >= 1) q->q_flags &= ~Q_PINGFLAGS; q->q_flags |= qflags; q->q_finalrcpt = frcpt; q->q_orcpt = orcpt; #if _FFR_RCPTFLAGS if (bitset(QDYNMAILER, qflags)) newmodmailer(q, QDYNMAILFLG); #endif (void) recipient(q, &e->e_sendqueue, 0, e); } frcpt = NULL; orcpt = NULL; macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); break; case 'S': /* sender */ setsender(sm_rpool_strdup_x(e->e_rpool, &bp[1]), e, NULL, '\0', true); break; case 'T': /* init time */ e->e_ctime = atol(&bp[1]); break; case 'V': /* queue file version number */ qfver = atoi(&bp[1]); if (qfver <= QF_VERSION) break; syserr("Version number in queue file (%d) greater than max (%d)", qfver, QF_VERSION); err = "unsupported queue file version"; goto fail; /* NOTREACHED */ break; case 'Z': /* original envelope id from ESMTP */ e->e_envid = sm_rpool_strdup_x(e->e_rpool, &bp[1]); macdefine(&e->e_macro, A_PERM, macid("{dsn_envid}"), e->e_envid); break; case '!': /* deliver by */ /* format: flag (1 char) space long-integer */ e->e_dlvr_flag = buf[1]; e->e_deliver_by = strtol(&buf[3], NULL, 10); case '$': /* define macro */ { r = macid_parse(&bp[1], &ep); if (r == 0) break; macdefine(&e->e_macro, A_PERM, r, sm_rpool_strdup_x(e->e_rpool, ep)); } break; case '.': /* terminate file */ nomore = true; break; default: syserr("readqf: %s: line %d: bad line \"%s\"", qf, LineNumber, shortenstring(bp, MAXSHORTSTR)); err = "unrecognized line"; goto fail; } if (bp != buf) SM_FREE(bp); } /* ** If we haven't read any lines, this queue file is empty. ** Arrange to remove it without referencing any null pointers. */ if (LineNumber == 0) { errno = 0; e->e_flags |= EF_CLRQUEUE|EF_FATALERRS|EF_RESPONSE; return true; } /* Check to make sure we have a complete queue file read */ if (!nomore) { syserr("readqf: %s: incomplete queue file read", qf); (void) sm_io_close(qfp, SM_TIME_DEFAULT); return false; } #if _FFR_QF_PARANOIA /* Check to make sure key fields were read */ if (e->e_from.q_mailer == NULL) { syserr("readqf: %s: sender not specified in queue file", qf); (void) sm_io_close(qfp, SM_TIME_DEFAULT); return false; } /* other checks? */ #endif /* _FFR_QF_PARANOIA */ /* possibly set ${dsn_ret} macro */ if (bitset(EF_RET_PARAM, e->e_flags)) { if (bitset(EF_NO_BODY_RETN, e->e_flags)) macdefine(&e->e_macro, A_PERM, macid("{dsn_ret}"), "hdrs"); else macdefine(&e->e_macro, A_PERM, macid("{dsn_ret}"), "full"); } /* ** Arrange to read the data file. */ p = queuename(e, DATAFL_LETTER); e->e_dfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, p, SM_IO_RDONLY_B, NULL); if (e->e_dfp == NULL) { syserr("readqf: cannot open %s", p); } else { e->e_flags |= EF_HAS_DF; if (fstat(sm_io_getinfo(e->e_dfp, SM_IO_WHAT_FD, NULL), &st) >= 0) { e->e_msgsize = st.st_size + hdrsize; e->e_dfdev = st.st_dev; e->e_dfino = ST_INODE(st); (void) sm_snprintf(buf, sizeof(buf), "%ld", PRT_NONNEGL(e->e_msgsize)); macdefine(&e->e_macro, A_TEMP, macid("{msg_size}"), buf); } } return true; fail: /* ** There was some error reading the qf file (reason is in err var.) ** Cleanup: ** close file; clear e_lockfp since it is the same as qfp, ** hence it is invalid (as file) after qfp is closed; ** the qf file is on disk, so set the flag to avoid calling ** queueup() with bogus data. */ if (bp != buf) SM_FREE(bp); if (qfp != NULL) (void) sm_io_close(qfp, SM_TIME_DEFAULT); e->e_lockfp = NULL; e->e_flags |= EF_INQUEUE; loseqfile(e, err); return false; } /* ** PRTSTR -- print a string, "unprintable" characters are shown as \oct ** ** Parameters: ** s -- string to print ** ml -- maximum length of output ** ** Returns: ** number of entries ** ** Side Effects: ** Prints a string on stdout. */ static void prtstr __P((char *, int)); #if _FFR_BOUNCE_QUEUE # define IS_BOUNCE_QUEUE(i) ((i) == BounceQueue) # define SKIP_BOUNCE_QUEUE(i) \ if (IS_BOUNCE_QUEUE(i)) \ continue; #else # define IS_BOUNCE_QUEUE(i) false # define SKIP_BOUNCE_QUEUE(i) #endif static void prtstr(s, ml) char *s; int ml; { int c; if (s == NULL) return; while (ml-- > 0 && ((c = *s++) != '\0')) { if (c == '\\') { if (ml-- > 0) { (void) sm_io_putc(smioout, SM_TIME_DEFAULT, c); (void) sm_io_putc(smioout, SM_TIME_DEFAULT, c); } } else if (isascii(c) && isprint(c)) (void) sm_io_putc(smioout, SM_TIME_DEFAULT, c); else { if ((ml -= 3) > 0) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\\%03o", c & 0xFF); } } } /* ** PRINTNQE -- print out number of entries in the mail queue ** ** Parameters: ** out -- output file pointer. ** prefix -- string to output in front of each line. ** ** Returns: ** none. */ void printnqe(out, prefix) SM_FILE_T *out; char *prefix; { #if SM_CONF_SHM int i, k = 0, nrequests = 0; bool unknown = false; if (ShmId == SM_SHM_NO_ID) { if (prefix == NULL) (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "Data unavailable: shared memory not updated\n"); else (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "%sNOTCONFIGURED:-1\r\n", prefix); return; } for (i = 0; i < NumQueue && Queue[i] != NULL; i++) { int j; SKIP_BOUNCE_QUEUE(i) k++; for (j = 0; j < Queue[i]->qg_numqueues; j++) { int n; if (StopRequest) stop_sendmail(); n = QSHM_ENTRIES(Queue[i]->qg_qpaths[j].qp_idx); if (prefix != NULL) (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "%s%s:%d\r\n", prefix, qid_printqueue(i, j), n); else if (n < 0) { (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "%s: unknown number of entries\n", qid_printqueue(i, j)); unknown = true; } else if (n == 0) { (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "%s is empty\n", qid_printqueue(i, j)); } else if (n > 0) { (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "%s: entries=%d\n", qid_printqueue(i, j), n); nrequests += n; k++; } } } if (prefix == NULL && k > 1) (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "\t\tTotal requests: %d%s\n", nrequests, unknown ? " (about)" : ""); #else /* SM_CONF_SHM */ if (prefix == NULL) (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "Data unavailable without shared memory support\n"); else (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "%sNOTAVAILABLE:-1\r\n", prefix); #endif /* SM_CONF_SHM */ } /* ** PRINTQUEUE -- print out a representation of the mail queue ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** Prints a listing of the mail queue on the standard output. */ void printqueue() { int i, k = 0, nrequests = 0; for (i = 0; i < NumQueue && Queue[i] != NULL; i++) { int j; k++; for (j = 0; j < Queue[i]->qg_numqueues; j++) { if (StopRequest) stop_sendmail(); nrequests += print_single_queue(i, j); k++; } } if (k > 1) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\t\tTotal requests: %d\n", nrequests); } /* ** PRINT_SINGLE_QUEUE -- print out a representation of a single mail queue ** ** Parameters: ** qgrp -- the index of the queue group. ** qdir -- the queue directory. ** ** Returns: ** number of requests in mail queue. ** ** Side Effects: ** Prints a listing of the mail queue on the standard output. */ #if USE_EAI # define PRINTADDR(addr, len) \ do \ { \ if (smtputf8) \ { \ char xbuf[MAXNAME]; \ (void) dequote_internal_chars(addr, xbuf, sizeof(xbuf));\ if (utf8_valid(xbuf, strlen(xbuf))) \ { \ (void) sm_io_fprintf(smioout, \ SM_TIME_DEFAULT, \ "%.*s ", len, xbuf); \ break; \ } \ } \ prtstr(addr, len); \ } while (0) #else # define PRINTADDR(addr, len) prtstr(addr, len) #endif /* USE_EAI */ int print_single_queue(qgrp, qdir) int qgrp; int qdir; { register WORK *w; SM_FILE_T *f; int nrequests; char qd[MAXPATHLEN]; char qddf[MAXPATHLEN]; char buf[MAXLINE]; if (qdir == NOQDIR) { (void) sm_strlcpy(qd, ".", sizeof(qd)); (void) sm_strlcpy(qddf, ".", sizeof(qddf)); } else { (void) sm_strlcpyn(qd, sizeof(qd), 2, Queue[qgrp]->qg_qpaths[qdir].qp_name, (bitset(QP_SUBQF, Queue[qgrp]->qg_qpaths[qdir].qp_subdirs) ? "/qf" : "")); (void) sm_strlcpyn(qddf, sizeof(qddf), 2, Queue[qgrp]->qg_qpaths[qdir].qp_name, (bitset(QP_SUBDF, Queue[qgrp]->qg_qpaths[qdir].qp_subdirs) ? "/df" : "")); } /* ** Check for permission to print the queue */ if (bitset(PRIV_RESTRICTMAILQ, PrivacyFlags) && RealUid != 0) { struct stat st; #ifdef NGROUPS_MAX int n; extern GIDSET_T InitialGidSet[NGROUPS_MAX]; #endif if (stat(qd, &st) < 0) { syserr("Cannot stat %s", qid_printqueue(qgrp, qdir)); return 0; } #ifdef NGROUPS_MAX n = NGROUPS_MAX; while (--n >= 0) { if (InitialGidSet[n] == st.st_gid) break; } if (n < 0 && RealGid != st.st_gid) #else /* NGROUPS_MAX */ if (RealGid != st.st_gid) #endif /* NGROUPS_MAX */ { usrerr("510 You are not permitted to see the queue"); setstat(EX_NOPERM); return 0; } } /* ** Read and order the queue. */ nrequests = gatherq(qgrp, qdir, true, NULL, NULL, NULL); (void) sortq(Queue[qgrp]->qg_maxlist); /* ** Print the work list that we have read. */ /* first see if there is anything */ if (nrequests <= 0) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s is empty\n", qid_printqueue(qgrp, qdir)); return 0; } sm_getla(); /* get load average */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\t\t%s (%d request%s", qid_printqueue(qgrp, qdir), nrequests, nrequests == 1 ? "" : "s"); if (MaxQueueRun > 0 && nrequests > MaxQueueRun) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, ", only %d printed", MaxQueueRun); if (Verbose) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, ")\n-----Q-ID----- --Size-- -Priority- ---Q-Time--- --------Sender/Recipient--------\n"); else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, ")\n-----Q-ID----- --Size-- -----Q-Time----- ------------Sender/Recipient-----------\n"); for (w = WorkQ; w != NULL; w = w->w_next) { struct stat st; auto time_t submittime = 0; long dfsize; int flags = 0; int qfver; char quarmsg[MAXLINE]; char statmsg[MAXLINE]; char bodytype[MAXNAME + 1]; /* EAI:ok */ char qf[MAXPATHLEN]; #if USE_EAI bool smtputf8 = false; #endif if (StopRequest) stop_sendmail(); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%13s", w->w_name + 2); (void) sm_strlcpyn(qf, sizeof(qf), 3, qd, "/", w->w_name); f = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, qf, SM_IO_RDONLY_B, NULL); if (f == NULL) { if (errno == EPERM) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " (permission denied)\n"); else if (errno == ENOENT) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " (job completed)\n"); else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " (%s)\n", sm_errstring(errno)); errno = 0; continue; } w->w_name[0] = DATAFL_LETTER; (void) sm_strlcpyn(qf, sizeof(qf), 3, qddf, "/", w->w_name); if (stat(qf, &st) >= 0) dfsize = st.st_size; else { ENVELOPE e; /* ** Maybe the df file can't be statted because ** it is in a different directory than the qf file. ** In order to find out, we must read the qf file. */ newenvelope(&e, &BlankEnvelope, sm_rpool_new_x(NULL)); e.e_id = w->w_name + 2; e.e_qgrp = qgrp; e.e_qdir = qdir; dfsize = -1; if (readqf(&e, false)) { char *df = queuename(&e, DATAFL_LETTER); if (stat(df, &st) >= 0) dfsize = st.st_size; } SM_CLOSE_FP(e.e_lockfp); clearenvelope(&e, false, e.e_rpool); sm_rpool_free(e.e_rpool); } if (w->w_lock) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "*"); else if (QueueMode == QM_LOST) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "?"); else if (w->w_tooyoung) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "-"); else if (shouldqueue(w->w_pri, w->w_ctime)) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "X"); else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " "); errno = 0; quarmsg[0] = '\0'; statmsg[0] = bodytype[0] = '\0'; qfver = 0; while (sm_io_fgets(f, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { register int i; register char *p; if (StopRequest) stop_sendmail(); fixcrlf(buf, true); switch (buf[0]) { case 'V': /* queue file version */ qfver = atoi(&buf[1]); break; case 'M': /* error message */ if ((i = strlen(&buf[1])) >= sizeof(statmsg)) i = sizeof(statmsg) - 1; memmove(statmsg, &buf[1], i); statmsg[i] = '\0'; break; case 'q': /* quarantine reason */ if ((i = strlen(&buf[1])) >= sizeof(quarmsg)) i = sizeof(quarmsg) - 1; memmove(quarmsg, &buf[1], i); quarmsg[i] = '\0'; break; case 'B': /* body type */ if ((i = strlen(&buf[1])) >= sizeof(bodytype)) i = sizeof(bodytype) - 1; memmove(bodytype, &buf[1], i); bodytype[i] = '\0'; break; case 'S': /* sender name */ if (Verbose) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%8ld %10ld%c%.12s ", dfsize, w->w_pri, bitset(EF_WARNING, flags) ? '+' : ' ', ctime(&submittime) + 4); PRINTADDR(buf+1, 78); } else { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%8ld %.16s ", dfsize, ctime(&submittime)); PRINTADDR(buf+1, 39); } if (quarmsg[0] != '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n QUARANTINE: %.*s", Verbose ? 100 : 60, quarmsg); quarmsg[0] = '\0'; } if (statmsg[0] != '\0' || bodytype[0] != '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n %10.10s", bodytype); if (statmsg[0] != '\0') (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " (%.*s)", Verbose ? 100 : 60, statmsg); statmsg[0] = '\0'; } break; case 'C': /* controlling user */ if (Verbose) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n\t\t\t\t\t\t(---%.64s---)", &buf[1]); break; case 'R': /* recipient name */ p = &buf[1]; if (qfver >= 1) { p = strchr(p, ':'); if (p == NULL) break; p++; } if (Verbose) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n\t\t\t\t\t\t"); PRINTADDR(p, 71); } else { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n\t\t\t\t\t "); PRINTADDR(p, 38); } if (Verbose && statmsg[0] != '\0') { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n\t\t (%.100s)", statmsg); statmsg[0] = '\0'; } break; case 'T': /* creation time */ submittime = atol(&buf[1]); break; case 'F': /* flag bits */ for (p = &buf[1]; *p != '\0'; p++) { switch (*p) { #if USE_EAI case 'e': smtputf8 = true; break; #endif /* USE_EAI */ case 'w': flags |= EF_WARNING; break; } } } } if (submittime == (time_t) 0) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " (no control file)"); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n"); (void) sm_io_close(f, SM_TIME_DEFAULT); } return nrequests; } /* ** QUEUE_LETTER -- get the proper queue letter for the current QueueMode. ** ** Parameters: ** e -- envelope to build it in/from. ** type -- the file type, used as the first character ** of the file name. ** ** Returns: ** the letter to use */ static char queue_letter(e, type) ENVELOPE *e; int type; { /* Change type according to QueueMode */ if (type == ANYQFL_LETTER) { if (e->e_quarmsg != NULL) type = QUARQF_LETTER; else { switch (QueueMode) { case QM_NORMAL: type = NORMQF_LETTER; break; case QM_QUARANTINE: type = QUARQF_LETTER; break; case QM_LOST: type = LOSEQF_LETTER; break; default: /* should never happen */ abort(); /* NOTREACHED */ } } } return type; } /* ** QUEUENAME -- build a file name in the queue directory for this envelope. ** ** Parameters: ** e -- envelope to build it in/from. ** type -- the file type, used as the first character ** of the file name. ** ** Returns: ** a pointer to the queue name (in a static buffer). ** ** Side Effects: ** If no id code is already assigned, queuename() will ** assign an id code with assign_queueid(). If no queue ** directory is assigned, one will be set with setnewqueue(). */ char * queuename(e, type) register ENVELOPE *e; int type; { int qd, qg; char *sub = "/"; char pref[3]; static char buf[MAXPATHLEN]; /* Assign an ID if needed */ if (e->e_id == NULL) { if (IntSig) return NULL; assign_queueid(e); } type = queue_letter(e, type); /* begin of filename */ pref[0] = (char) type; pref[1] = 'f'; pref[2] = '\0'; /* Assign a queue group/directory if needed */ if (type == XSCRPT_LETTER) { /* ** We don't want to call setnewqueue() if we are fetching ** the pathname of the transcript file, because setnewqueue ** chooses a queue, and sometimes we need to write to the ** transcript file before we have gathered enough information ** to choose a queue. */ if (e->e_xfqgrp == NOQGRP || e->e_xfqdir == NOQDIR) { if (e->e_qgrp != NOQGRP && e->e_qdir != NOQDIR) { e->e_xfqgrp = e->e_qgrp; e->e_xfqdir = e->e_qdir; } else { e->e_xfqgrp = 0; if (Queue[e->e_xfqgrp]->qg_numqueues <= 1) e->e_xfqdir = 0; else { e->e_xfqdir = get_rand_mod( Queue[e->e_xfqgrp]->qg_numqueues); } } } qd = e->e_xfqdir; qg = e->e_xfqgrp; } else { if (e->e_qgrp == NOQGRP || e->e_qdir == NOQDIR) { if (IntSig) return NULL; (void) setnewqueue(e); } if (type == DATAFL_LETTER) { qd = e->e_dfqdir; qg = e->e_dfqgrp; } else { qd = e->e_qdir; qg = e->e_qgrp; } } /* xf files always have a valid qd and qg picked above */ if ((qd == NOQDIR || qg == NOQGRP) && type != XSCRPT_LETTER) (void) sm_strlcpyn(buf, sizeof(buf), 2, pref, e->e_id); else { switch (type) { case DATAFL_LETTER: if (bitset(QP_SUBDF, Queue[qg]->qg_qpaths[qd].qp_subdirs)) sub = "/df/"; break; case QUARQF_LETTER: case TEMPQF_LETTER: case NEWQFL_LETTER: case LOSEQF_LETTER: case NORMQF_LETTER: if (bitset(QP_SUBQF, Queue[qg]->qg_qpaths[qd].qp_subdirs)) sub = "/qf/"; break; case XSCRPT_LETTER: if (bitset(QP_SUBXF, Queue[qg]->qg_qpaths[qd].qp_subdirs)) sub = "/xf/"; break; default: if (IntSig) return NULL; sm_abort("queuename: bad queue file type %d", type); } (void) sm_strlcpyn(buf, sizeof(buf), 4, Queue[qg]->qg_qpaths[qd].qp_name, sub, pref, e->e_id); } if (tTd(7, 2)) sm_dprintf("queuename: %s\n", buf); return buf; } /* ** INIT_QID_ALG -- Initialize the (static) parameters that are used to ** generate a queue ID. ** ** This function is called by the daemon to reset ** LastQueueTime and LastQueuePid which are used by assign_queueid(). ** Otherwise the algorithm may cause problems because ** LastQueueTime and LastQueuePid are set indirectly by main() ** before the daemon process is started, hence LastQueuePid is not ** the pid of the daemon and therefore a child of the daemon can ** actually have the same pid as LastQueuePid which means the section ** in assign_queueid(): ** * see if we need to get a new base time/pid * ** is NOT triggered which will cause the same queue id to be generated. ** ** Parameters: ** none ** ** Returns: ** none. */ void init_qid_alg() { LastQueueTime = 0; LastQueuePid = -1; } /* ** ASSIGN_QUEUEID -- assign a queue ID for this envelope. ** ** Assigns an id code if one does not already exist. ** This code assumes that nothing will remain in the queue for ** longer than 60 years. It is critical that files with the given ** name do not already exist in the queue. ** [No longer initializes e_qdir to NOQDIR.] ** ** Parameters: ** e -- envelope to set it in. ** ** Returns: ** none. */ static const char QueueIdChars[] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"; # define QIC_LEN 60 # define QIC_LEN_R 62 /* ** Note: the length is "officially" 60 because minutes and seconds are ** usually only 0-59. However (Linux): ** tm_sec The number of seconds after the minute, normally in ** the range 0 to 59, but can be up to 61 to allow for ** leap seconds. ** Hence the real length of the string is 62 to take this into account. ** Alternatively % QIC_LEN can (should) be used for access everywhere. */ # define queuenextid() CurrentPid #define QIC_LEN_SQR (QIC_LEN * QIC_LEN) void assign_queueid(e) register ENVELOPE *e; { pid_t pid = queuenextid(); static unsigned int cX = 0; static unsigned int random_offset; struct tm *tm; char idbuf[MAXQFNAME - 2]; unsigned int seq; if (e->e_id != NULL) return; /* see if we need to get a new base time/pid */ if (cX >= QIC_LEN_SQR || LastQueueTime == 0 || LastQueuePid != pid) { time_t then = LastQueueTime; /* if the first time through, pick a random offset */ if (LastQueueTime == 0) random_offset = ((unsigned int)get_random()) % QIC_LEN_SQR; while ((LastQueueTime = curtime()) == then && LastQueuePid == pid) { (void) sleep(1); } LastQueuePid = queuenextid(); cX = 0; } /* ** Generate a new sequence number between 0 and QIC_LEN_SQR-1. ** This lets us generate up to QIC_LEN_SQR unique queue ids ** per second, per process. With envelope splitting, ** a single message can consume many queue ids. */ seq = (cX + random_offset) % QIC_LEN_SQR; ++cX; if (tTd(7, 50)) sm_dprintf("assign_queueid: random_offset=%u (%u)\n", random_offset, seq); tm = gmtime(&LastQueueTime); idbuf[0] = QueueIdChars[tm->tm_year % QIC_LEN]; idbuf[1] = QueueIdChars[tm->tm_mon]; idbuf[2] = QueueIdChars[tm->tm_mday]; idbuf[3] = QueueIdChars[tm->tm_hour]; idbuf[4] = QueueIdChars[tm->tm_min % QIC_LEN_R]; idbuf[5] = QueueIdChars[tm->tm_sec % QIC_LEN_R]; idbuf[6] = QueueIdChars[seq / QIC_LEN]; idbuf[7] = QueueIdChars[seq % QIC_LEN]; if (tTd(78, 100)) (void) sm_snprintf(&idbuf[8], sizeof(idbuf) - 8, "%07d", (int) LastQueuePid); else (void) sm_snprintf(&idbuf[8], sizeof(idbuf) - 8, "%06d", (int) LastQueuePid); e->e_id = sm_rpool_strdup_x(e->e_rpool, idbuf); macdefine(&e->e_macro, A_PERM, 'i', e->e_id); #if 0 /* XXX: inherited from MainEnvelope */ e->e_qgrp = NOQGRP; /* too early to do anything else */ e->e_qdir = NOQDIR; e->e_xfqgrp = NOQGRP; #endif /* 0 */ /* New ID means it's not on disk yet */ e->e_qfletter = '\0'; if (tTd(7, 1)) sm_dprintf("assign_queueid: assigned id %s, e=%p\n", e->e_id, (void *)e); if (LogLevel > 93) sm_syslog(LOG_DEBUG, e->e_id, "assigned id"); } /* ** SYNC_QUEUE_TIME -- Assure exclusive PID in any given second ** ** Make sure one PID can't be used by two processes in any one second. ** ** If the system rotates PIDs fast enough, may get the ** same pid in the same second for two distinct processes. ** This will interfere with the queue file naming system. ** ** Parameters: ** none ** ** Returns: ** none */ void sync_queue_time() { #if FAST_PID_RECYCLE if (OpMode != MD_TEST && OpMode != MD_CHECKCONFIG && OpMode != MD_VERIFY && LastQueueTime > 0 && LastQueuePid == CurrentPid && curtime() == LastQueueTime) (void) sleep(1); #endif /* FAST_PID_RECYCLE */ } /* ** UNLOCKQUEUE -- unlock the queue entry for a specified envelope ** ** Parameters: ** e -- the envelope to unlock. ** ** Returns: ** none ** ** Side Effects: ** unlocks the queue for `e'. */ void unlockqueue(e) ENVELOPE *e; { if (tTd(51, 4)) sm_dprintf("unlockqueue(%s)\n", e->e_id == NULL ? "NOQUEUE" : e->e_id); /* if there is a lock file in the envelope, close it */ SM_CLOSE_FP(e->e_lockfp); /* don't create a queue id if we don't already have one */ if (e->e_id == NULL) return; /* remove the transcript */ if (LogLevel > 87) sm_syslog(LOG_DEBUG, e->e_id, "unlock"); if (!tTd(51, 104)) (void) xunlink(queuename(e, XSCRPT_LETTER)); } /* ** SETCTLUSER -- create a controlling address ** ** Create a fake "address" given only a local login name; this is ** used as a "controlling user" for future recipient addresses. ** ** Parameters: ** user -- the user name of the controlling user. ** qfver -- the version stamp of this queue file. ** e -- envelope ** ** Returns: ** An address descriptor for the controlling user, ** using storage allocated from e->e_rpool. ** */ static ADDRESS * setctluser(user, qfver, e) char *user; int qfver; ENVELOPE *e; { register ADDRESS *a; struct passwd *pw; char *p; /* ** See if this clears our concept of controlling user. */ if (SM_IS_EMPTY(user)) return NULL; /* ** Set up addr fields for controlling user. */ a = (ADDRESS *) sm_rpool_malloc_x(e->e_rpool, sizeof(*a)); memset((char *) a, '\0', sizeof(*a)); if (*user == ':') { p = &user[1]; a->q_user = sm_rpool_strdup_x(e->e_rpool, p); } else { p = strtok(user, ":"); a->q_user = sm_rpool_strdup_x(e->e_rpool, user); if (qfver >= 2) { if ((p = strtok(NULL, ":")) != NULL) a->q_uid = atoi(p); if ((p = strtok(NULL, ":")) != NULL) a->q_gid = atoi(p); if ((p = strtok(NULL, ":")) != NULL) { char *o; a->q_flags |= QGOODUID; /* if there is another ':': restore it */ if ((o = strtok(NULL, ":")) != NULL && o > p) o[-1] = ':'; } } else if ((pw = sm_getpwnam(user)) != NULL) { if (*pw->pw_dir == '\0') a->q_home = NULL; else if (strcmp(pw->pw_dir, "/") == 0) a->q_home = ""; else a->q_home = sm_rpool_strdup_x(e->e_rpool, pw->pw_dir); a->q_uid = pw->pw_uid; a->q_gid = pw->pw_gid; a->q_flags |= QGOODUID; } } a->q_flags |= QPRIMARY; /* flag as a "ctladdr" */ a->q_mailer = LocalMailer; if (p == NULL) a->q_paddr = sm_rpool_strdup_x(e->e_rpool, a->q_user); else a->q_paddr = sm_rpool_strdup_x(e->e_rpool, p); return a; } /* ** LOSEQFILE -- rename queue file with LOSEQF_LETTER & try to let someone know ** ** Parameters: ** e -- the envelope (e->e_id will be used). ** why -- reported to whomever can hear. ** ** Returns: ** none. */ void loseqfile(e, why) register ENVELOPE *e; char *why; { bool loseit = true; char *p; char buf[MAXPATHLEN]; if (e == NULL || e->e_id == NULL) return; p = queuename(e, ANYQFL_LETTER); if (sm_strlcpy(buf, p, sizeof(buf)) >= sizeof(buf)) return; if (!bitset(EF_INQUEUE, e->e_flags)) queueup(e, QUP_FL_MSYNC); else if (QueueMode == QM_LOST) loseit = false; /* if already lost, no need to re-lose */ if (loseit) { p = queuename(e, LOSEQF_LETTER); if (rename(buf, p) < 0) syserr("cannot rename(%s, %s), uid=%ld", buf, p, (long) geteuid()); else if (LogLevel > 0) sm_syslog(LOG_ALERT, e->e_id, "Losing %s: %s", buf, why); } SM_CLOSE_FP(e->e_dfp); e->e_flags &= ~EF_HAS_DF; } /* ** NAME2QID -- translate a queue group name to a queue group id ** ** Parameters: ** queuename -- name of queue group. ** ** Returns: ** queue group id if found. ** NOQGRP otherwise. */ int name2qid(queuename) char *queuename; { register STAB *s; s = stab(queuename, ST_QUEUE, ST_FIND); if (s == NULL) return NOQGRP; return s->s_quegrp->qg_index; } /* ** QID_PRINTNAME -- create externally printable version of queue id ** ** Parameters: ** e -- the envelope. ** ** Returns: ** a printable version */ char * qid_printname(e) ENVELOPE *e; { char *id; static char idbuf[MAXQFNAME + 34]; if (e == NULL) return ""; if (e->e_id == NULL) id = ""; else id = e->e_id; if (e->e_qdir == NOQDIR) return id; (void) sm_snprintf(idbuf, sizeof(idbuf), "%.32s/%s", Queue[e->e_qgrp]->qg_qpaths[e->e_qdir].qp_name, id); return idbuf; } /* ** QID_PRINTQUEUE -- create full version of queue directory for data files ** ** Parameters: ** qgrp -- index in queue group. ** qdir -- the short version of the queue directory ** ** Returns: ** the full pathname to the queue (might point to a static var) */ char * qid_printqueue(qgrp, qdir) int qgrp; int qdir; { char *subdir; static char dir[MAXPATHLEN]; if (qdir == NOQDIR) return Queue[qgrp]->qg_qdir; if (strcmp(Queue[qgrp]->qg_qpaths[qdir].qp_name, ".") == 0) subdir = NULL; else subdir = Queue[qgrp]->qg_qpaths[qdir].qp_name; (void) sm_strlcpyn(dir, sizeof(dir), 4, Queue[qgrp]->qg_qdir, subdir == NULL ? "" : "/", subdir == NULL ? "" : subdir, (bitset(QP_SUBDF, Queue[qgrp]->qg_qpaths[qdir].qp_subdirs) ? "/df" : "")); return dir; } /* ** PICKQDIR -- Pick a queue directory from a queue group ** ** Parameters: ** qg -- queue group ** fsize -- file size in bytes ** e -- envelope, or NULL ** ** Returns: ** NOQDIR if no queue directory in qg has enough free space to ** hold a file of size 'fsize', otherwise the index of ** a randomly selected queue directory which resides on a ** file system with enough disk space. ** XXX This could be extended to select a queuedir with ** a few (the fewest?) number of entries. That data ** is available if shared memory is used. ** ** Side Effects: ** If the request fails and e != NULL then sm_syslog is called. */ int pickqdir(qg, fsize, e) QUEUEGRP *qg; long fsize; ENVELOPE *e; { int qdir; int i; long avail = 0; /* Pick a random directory, as a starting point. */ if (qg->qg_numqueues <= 1) qdir = 0; else qdir = get_rand_mod(qg->qg_numqueues); #if _FFR_TESTS if (tTd(4, 101)) return NOQDIR; #endif if (MinBlocksFree <= 0 && fsize <= 0) return qdir; /* ** Now iterate over the queue directories, ** looking for a directory with enough space for this message. */ i = qdir; do { QPATHS *qp = &qg->qg_qpaths[i]; long needed = 0; long fsavail = 0; if (fsize > 0) needed += fsize / FILE_SYS_BLKSIZE(qp->qp_fsysidx) + ((fsize % FILE_SYS_BLKSIZE(qp->qp_fsysidx) > 0) ? 1 : 0); if (MinBlocksFree > 0) needed += MinBlocksFree; fsavail = FILE_SYS_AVAIL(qp->qp_fsysidx); #if SM_CONF_SHM if (fsavail <= 0) { long blksize; /* ** might be not correctly updated, ** let's try to get the info directly. */ fsavail = freediskspace(FILE_SYS_NAME(qp->qp_fsysidx), &blksize); if (fsavail < 0) fsavail = 0; } #endif /* SM_CONF_SHM */ if (needed <= fsavail) return i; if (avail < fsavail) avail = fsavail; if (qg->qg_numqueues > 0) i = (i + 1) % qg->qg_numqueues; } while (i != qdir); if (e != NULL && LogLevel > 0) sm_syslog(LOG_ALERT, e->e_id, "low on space (%s needs %ld bytes + %ld blocks in %s), max avail: %ld", CurHostName == NULL ? "SMTP-DAEMON" : CurHostName, fsize, MinBlocksFree, qg->qg_qdir, avail); return NOQDIR; } /* ** SETNEWQUEUE -- Sets a new queue group and directory ** ** Assign a queue group and directory to an envelope and store the ** directory in e->e_qdir. ** ** Parameters: ** e -- envelope to assign a queue for. ** ** Returns: ** true if successful ** false otherwise ** ** Side Effects: ** On success, e->e_qgrp and e->e_qdir are non-negative. ** On failure (not enough disk space), ** e->qgrp = NOQGRP, e->e_qdir = NOQDIR ** and usrerr() is invoked (which could raise an exception). */ bool setnewqueue(e) ENVELOPE *e; { if (tTd(41, 20)) sm_dprintf("setnewqueue: called\n"); /* not set somewhere else */ if (e->e_qgrp == NOQGRP) { ADDRESS *q; /* ** Use the queue group of the "first" recipient, as set by ** the "queuegroup" rule set. If that is not defined, then ** use the queue group of the mailer of the first recipient. ** If that is not defined either, then use the default ** queue group. ** Notice: "first" depends on the sorting of sendqueue ** in recipient(). ** To avoid problems with "bad" recipients look ** for a valid address first. */ q = e->e_sendqueue; while (q != NULL && (QS_IS_BADADDR(q->q_state) || QS_IS_DEAD(q->q_state))) { q = q->q_next; } if (q == NULL) e->e_qgrp = 0; else if (q->q_qgrp >= 0) e->e_qgrp = q->q_qgrp; else if (q->q_mailer != NULL && ISVALIDQGRP(q->q_mailer->m_qgrp)) e->e_qgrp = q->q_mailer->m_qgrp; else e->e_qgrp = 0; e->e_dfqgrp = e->e_qgrp; } if (ISVALIDQDIR(e->e_qdir) && ISVALIDQDIR(e->e_dfqdir)) { if (tTd(41, 20)) sm_dprintf("setnewqueue: e_qdir already assigned (%s)\n", qid_printqueue(e->e_qgrp, e->e_qdir)); return true; } filesys_update(); e->e_qdir = pickqdir(Queue[e->e_qgrp], e->e_msgsize, e); if (e->e_qdir == NOQDIR) { e->e_qgrp = NOQGRP; if (!bitset(EF_FATALERRS, e->e_flags)) usrerr("452 4.4.5 Insufficient disk space; try again later"); e->e_flags |= EF_FATALERRS; return false; } if (tTd(41, 3)) sm_dprintf("setnewqueue: Assigned queue directory %s\n", qid_printqueue(e->e_qgrp, e->e_qdir)); if (e->e_xfqgrp == NOQGRP || e->e_xfqdir == NOQDIR) { e->e_xfqgrp = e->e_qgrp; e->e_xfqdir = e->e_qdir; } e->e_dfqdir = e->e_qdir; return true; } /* ** CHKQDIR -- check a queue directory ** ** Parameters: ** name -- name of queue directory ** sff -- flags for safefile() ** ** Returns: ** is it a queue directory? */ static bool chkqdir __P((char *, long)); static bool chkqdir(name, sff) char *name; long sff; { struct stat statb; int i; /* skip over . and .. directories */ if (name[0] == '.' && (name[1] == '\0' || (name[1] == '.' && name[2] == '\0'))) return false; #if HASLSTAT if (lstat(name, &statb) < 0) #else if (stat(name, &statb) < 0) #endif { if (tTd(41, 2)) sm_dprintf("chkqdir: stat(\"%s\"): %s\n", name, sm_errstring(errno)); return false; } #if HASLSTAT if (S_ISLNK(statb.st_mode)) { /* ** For a symlink we need to make sure the ** target is a directory */ if (stat(name, &statb) < 0) { if (tTd(41, 2)) sm_dprintf("chkqdir: stat(\"%s\"): %s\n", name, sm_errstring(errno)); return false; } } #endif /* HASLSTAT */ if (!S_ISDIR(statb.st_mode)) { if (tTd(41, 2)) sm_dprintf("chkqdir: \"%s\": Not a directory\n", name); return false; } /* Print a warning if unsafe (but still use it) */ /* XXX do this only if we want the warning? */ i = safedirpath(name, RunAsUid, RunAsGid, NULL, sff, 0, 0); if (i != 0) { if (tTd(41, 2)) sm_dprintf("chkqdir: \"%s\": Not safe: %s\n", name, sm_errstring(i)); #if _FFR_CHK_QUEUE if (LogLevel > 8) sm_syslog(LOG_WARNING, NOQID, "queue directory \"%s\": Not safe: %s", name, sm_errstring(i)); #endif /* _FFR_CHK_QUEUE */ } return true; } /* ** MULTIQUEUE_CACHE -- cache a list of paths to queues. ** ** Each potential queue is checked as the cache is built. ** Thereafter, each is blindly trusted. ** Note that we can be called again after a timeout to rebuild ** (although code for that is not ready yet). ** ** Parameters: ** basedir -- base of all queue directories. ** blen -- strlen(basedir). ** qg -- queue group. ** qn -- number of queue directories already cached. ** phash -- pointer to hash value over queue dirs. #if SM_CONF_SHM ** only used if shared memory is active. #endif * SM_CONF_SHM * ** ** Returns: ** new number of queue directories. */ #define INITIAL_SLOTS 20 #define ADD_SLOTS 10 static int multiqueue_cache(basedir, blen, qg, qn, phash) char *basedir; int blen; QUEUEGRP *qg; int qn; unsigned int *phash; { char *cp; int i, len; int slotsleft = 0; long sff = SFF_ANYFILE; char qpath[MAXPATHLEN]; char subdir[MAXPATHLEN]; char prefix[MAXPATHLEN]; /* dir relative to basedir */ if (tTd(41, 20)) sm_dprintf("multiqueue_cache: called\n"); /* Initialize to current directory */ prefix[0] = '.'; prefix[1] = '\0'; if (qg->qg_numqueues != 0 && qg->qg_qpaths != NULL) { for (i = 0; i < qg->qg_numqueues; i++) { if (qg->qg_qpaths[i].qp_name != NULL) (void) sm_free(qg->qg_qpaths[i].qp_name); /* XXX */ } (void) sm_free((char *) qg->qg_qpaths); /* XXX */ qg->qg_qpaths = NULL; qg->qg_numqueues = 0; } /* If running as root, allow safedirpath() checks to use privs */ if (RunAsUid == 0) sff |= SFF_ROOTOK; #if _FFR_CHK_QUEUE sff |= SFF_SAFEDIRPATH|SFF_NOWWFILES; if (!UseMSP) sff |= SFF_NOGWFILES; #endif if (!SM_IS_DIR_START(qg->qg_qdir)) { /* ** XXX we could add basedir, but then we have to realloc() ** the string... Maybe another time. */ syserr("QueuePath %s not absolute", qg->qg_qdir); ExitStat = EX_CONFIG; return qn; } /* qpath: directory of current workgroup */ len = sm_strlcpy(qpath, qg->qg_qdir, sizeof(qpath)); if (len >= sizeof(qpath)) { syserr("QueuePath %.256s too long (%d max)", qg->qg_qdir, (int) sizeof(qpath)); ExitStat = EX_CONFIG; return qn; } /* begin of qpath must be same as basedir */ if (strncmp(basedir, qpath, blen) != 0 && (strncmp(basedir, qpath, blen - 1) != 0 || len != blen - 1)) { syserr("QueuePath %s not subpath of QueueDirectory %s", qpath, basedir); ExitStat = EX_CONFIG; return qn; } /* Do we have a nested subdirectory? */ if (blen < len && SM_FIRST_DIR_DELIM(qg->qg_qdir + blen) != NULL) { /* Copy subdirectory into prefix for later use */ if (sm_strlcpy(prefix, qg->qg_qdir + blen, sizeof(prefix)) >= sizeof(prefix)) { syserr("QueuePath %.256s too long (%d max)", qg->qg_qdir, (int) sizeof(qpath)); ExitStat = EX_CONFIG; return qn; } cp = SM_LAST_DIR_DELIM(prefix); SM_ASSERT(cp != NULL); *cp = '\0'; /* cut off trailing / */ } /* This is guaranteed by the basedir check above */ SM_ASSERT(len >= blen - 1); cp = &qpath[len - 1]; if (*cp == '*') { register DIR *dp; register struct dirent *d; int off; char *delim; char relpath[MAXPATHLEN]; *cp = '\0'; /* Overwrite wildcard */ if ((cp = SM_LAST_DIR_DELIM(qpath)) == NULL) { syserr("QueueDirectory: can not wildcard relative path"); if (tTd(41, 2)) sm_dprintf("multiqueue_cache: \"%s*\": Can not wildcard relative path.\n", qpath); ExitStat = EX_CONFIG; return qn; } if (cp == qpath) { /* ** Special case of top level wildcard, like /foo* ** Change to //foo* */ (void) sm_strlcpy(qpath + 1, qpath, sizeof(qpath) - 1); ++cp; } delim = cp; *(cp++) = '\0'; /* Replace / with \0 */ len = strlen(cp); /* Last component of queue directory */ /* ** Path relative to basedir, with trailing / ** It will be modified below to specify the subdirectories ** so they can be opened without chdir(). */ off = sm_strlcpyn(relpath, sizeof(relpath), 2, prefix, "/"); SM_ASSERT(off < sizeof(relpath)); if (tTd(41, 2)) sm_dprintf("multiqueue_cache: prefix=\"%s%s\"\n", relpath, cp); /* It is always basedir: we don't need to store it per group */ /* XXX: optimize this! -> one more global? */ qg->qg_qdir = newstr(basedir); qg->qg_qdir[blen - 1] = '\0'; /* cut off trailing / */ /* ** XXX Should probably wrap this whole loop in a timeout ** in case some wag decides to NFS mount the queues. */ /* Test path to get warning messages. */ if (qn == 0) { /* XXX qg_runasuid and qg_runasgid for specials? */ i = safedirpath(basedir, RunAsUid, RunAsGid, NULL, sff, 0, 0); if (i != 0 && tTd(41, 2)) sm_dprintf("multiqueue_cache: \"%s\": Not safe: %s\n", basedir, sm_errstring(i)); } if ((dp = opendir(prefix)) == NULL) { syserr("can not opendir(%s/%s)", qg->qg_qdir, prefix); if (tTd(41, 2)) sm_dprintf("multiqueue_cache: opendir(\"%s/%s\"): %s\n", qg->qg_qdir, prefix, sm_errstring(errno)); ExitStat = EX_CONFIG; return qn; } while ((d = readdir(dp)) != NULL) { /* Skip . and .. directories */ if (strcmp(d->d_name, ".") == 0 || strcmp(d->d_name, "..") == 0) continue; i = strlen(d->d_name); if (i < len || strncmp(d->d_name, cp, len) != 0) { if (tTd(41, 5)) sm_dprintf("multiqueue_cache: \"%s\", skipped\n", d->d_name); continue; } /* Create relative pathname: prefix + local directory */ i = sizeof(relpath) - off; if (sm_strlcpy(relpath + off, d->d_name, i) >= i) continue; /* way too long */ if (!chkqdir(relpath, sff)) continue; if (qg->qg_qpaths == NULL) { slotsleft = INITIAL_SLOTS; qg->qg_qpaths = (QPATHS *)xalloc((sizeof(*qg->qg_qpaths)) * slotsleft); qg->qg_numqueues = 0; } else if (slotsleft < 1) { qg->qg_qpaths = (QPATHS *)sm_realloc((char *)qg->qg_qpaths, (sizeof(*qg->qg_qpaths)) * (qg->qg_numqueues + ADD_SLOTS)); if (qg->qg_qpaths == NULL) { (void) closedir(dp); return qn; } slotsleft += ADD_SLOTS; } /* check subdirs */ qg->qg_qpaths[qg->qg_numqueues].qp_subdirs = QP_NOSUB; #define CHKRSUBDIR(name, flag) \ (void) sm_strlcpyn(subdir, sizeof(subdir), 3, relpath, "/", name); \ if (chkqdir(subdir, sff)) \ qg->qg_qpaths[qg->qg_numqueues].qp_subdirs |= flag; \ else CHKRSUBDIR("qf", QP_SUBQF); CHKRSUBDIR("df", QP_SUBDF); CHKRSUBDIR("xf", QP_SUBXF); /* assert(strlen(d->d_name) < MAXPATHLEN - 14) */ /* maybe even - 17 (subdirs) */ if (prefix[0] != '.') qg->qg_qpaths[qg->qg_numqueues].qp_name = newstr(relpath); else qg->qg_qpaths[qg->qg_numqueues].qp_name = newstr(d->d_name); if (tTd(41, 2)) sm_dprintf("multiqueue_cache: %d: \"%s\" cached (%x).\n", qg->qg_numqueues, relpath, qg->qg_qpaths[qg->qg_numqueues].qp_subdirs); #if SM_CONF_SHM qg->qg_qpaths[qg->qg_numqueues].qp_idx = qn; *phash = hash_q(relpath, *phash); #endif qg->qg_numqueues++; ++qn; slotsleft--; } (void) closedir(dp); /* undo damage */ *delim = '/'; } if (qg->qg_numqueues == 0) { qg->qg_qpaths = (QPATHS *) xalloc(sizeof(*qg->qg_qpaths)); /* test path to get warning messages */ i = safedirpath(qpath, RunAsUid, RunAsGid, NULL, sff, 0, 0); if (i == ENOENT) { syserr("can not opendir(%s)", qpath); if (tTd(41, 2)) sm_dprintf("multiqueue_cache: opendir(\"%s\"): %s\n", qpath, sm_errstring(i)); ExitStat = EX_CONFIG; return qn; } qg->qg_qpaths[0].qp_subdirs = QP_NOSUB; qg->qg_numqueues = 1; /* check subdirs */ #define CHKSUBDIR(name, flag) \ (void) sm_strlcpyn(subdir, sizeof(subdir), 3, qg->qg_qdir, "/", name); \ if (chkqdir(subdir, sff)) \ qg->qg_qpaths[0].qp_subdirs |= flag; \ else CHKSUBDIR("qf", QP_SUBQF); CHKSUBDIR("df", QP_SUBDF); CHKSUBDIR("xf", QP_SUBXF); if (qg->qg_qdir[blen - 1] != '\0' && qg->qg_qdir[blen] != '\0') { /* ** Copy the last component into qpaths and ** cut off qdir */ qg->qg_qpaths[0].qp_name = newstr(qg->qg_qdir + blen); qg->qg_qdir[blen - 1] = '\0'; } else qg->qg_qpaths[0].qp_name = newstr("."); #if SM_CONF_SHM qg->qg_qpaths[0].qp_idx = qn; *phash = hash_q(qg->qg_qpaths[0].qp_name, *phash); #endif ++qn; } return qn; } /* ** FILESYS_FIND -- find entry in FileSys table, or add new one ** ** Given the pathname of a directory, determine the file system ** in which that directory resides, and return a pointer to the ** entry in the FileSys table that describes the file system. ** A new entry is added if necessary (and requested). ** If the directory does not exist, -1 is returned. ** ** Parameters: ** name -- name of directory (must be persistent!) ** path -- pathname of directory (name plus maybe "/df") ** add -- add to structure if not found. ** ** Returns: ** >=0: found: index in file system table ** <0: some error, i.e., ** FSF_TOO_MANY: too many filesystems (-> syserr()) ** FSF_STAT_FAIL: can't stat() filesystem (-> syserr()) ** FSF_NOT_FOUND: not in list */ static short filesys_find __P((const char *, const char *, bool)); #define FSF_NOT_FOUND (-1) #define FSF_STAT_FAIL (-2) #define FSF_TOO_MANY (-3) static short filesys_find(name, path, add) const char *name; const char *path; bool add; { struct stat st; short i; if (stat(path, &st) < 0) { syserr("cannot stat queue directory %s", path); return FSF_STAT_FAIL; } for (i = 0; i < NumFileSys; ++i) { if (FILE_SYS_DEV(i) == st.st_dev) { /* ** Make sure the file system (FS) name is set: ** even though the source code indicates that ** FILE_SYS_DEV() is only set below, it could be ** set via shared memory, hence we need to perform ** this check/assignment here. */ if (NULL == FILE_SYS_NAME(i)) FILE_SYS_NAME(i) = name; return i; } } if (i >= MAXFILESYS) { syserr("too many queue file systems (%d max)", MAXFILESYS); return FSF_TOO_MANY; } if (!add) return FSF_NOT_FOUND; ++NumFileSys; FILE_SYS_NAME(i) = name; FILE_SYS_DEV(i) = st.st_dev; FILE_SYS_AVAIL(i) = 0; FILE_SYS_BLKSIZE(i) = 1024; /* avoid divide by zero */ return i; } /* ** FILESYS_SETUP -- set up mapping from queue directories to file systems ** ** This data structure is used to efficiently check the amount of ** free space available in a set of queue directories. ** ** Parameters: ** add -- initialize structure if necessary. ** ** Returns: ** 0: success ** <0: some error, i.e., ** FSF_NOT_FOUND: not in list ** FSF_STAT_FAIL: can't stat() filesystem (-> syserr()) ** FSF_TOO_MANY: too many filesystems (-> syserr()) */ static int filesys_setup __P((bool)); static int filesys_setup(add) bool add; { int i, j; short fs; int ret; ret = 0; for (i = 0; i < NumQueue && Queue[i] != NULL; i++) { for (j = 0; j < Queue[i]->qg_numqueues; ++j) { QPATHS *qp = &Queue[i]->qg_qpaths[j]; char qddf[MAXPATHLEN]; (void) sm_strlcpyn(qddf, sizeof(qddf), 2, qp->qp_name, (bitset(QP_SUBDF, qp->qp_subdirs) ? "/df" : "")); fs = filesys_find(qp->qp_name, qddf, add); if (fs >= 0) qp->qp_fsysidx = fs; else qp->qp_fsysidx = 0; if (fs < ret) ret = fs; } } return ret; } /* ** FILESYS_UPDATE -- update amount of free space on all file systems ** ** The FileSys table is used to cache the amount of free space ** available on all queue directory file systems. ** This function updates the cached information if it has expired. ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** Updates FileSys table. */ void filesys_update() { int i; long avail, blksize; time_t now; static time_t nextupdate = 0; #if SM_CONF_SHM /* ** Only the daemon updates the shared memory, i.e., ** if shared memory is available but the pid is not the ** one of the daemon, then don't do anything. */ if (ShmId != SM_SHM_NO_ID && DaemonPid != CurrentPid) return; #endif /* SM_CONF_SHM */ now = curtime(); if (now < nextupdate) return; nextupdate = now + FILESYS_UPDATE_INTERVAL; for (i = 0; i < NumFileSys; ++i) { FILESYS *fs = &FILE_SYS(i); avail = freediskspace(FILE_SYS_NAME(i), &blksize); if (avail < 0 || blksize <= 0) { if (LogLevel > 5) sm_syslog(LOG_ERR, NOQID, "filesys_update failed: %s, fs=%s, avail=%ld, blocksize=%ld", sm_errstring(errno), FILE_SYS_NAME(i), avail, blksize); fs->fs_avail = 0; fs->fs_blksize = 1024; /* avoid divide by zero */ nextupdate = now + 2; /* let's do this soon again */ } else { fs->fs_avail = avail; fs->fs_blksize = blksize; } } } #if _FFR_ANY_FREE_FS /* ** FILESYS_FREE -- check whether there is at least one fs with enough space. ** ** Parameters: ** fsize -- file size in bytes ** ** Returns: ** true iff there is one fs with more than fsize bytes free. */ bool filesys_free(fsize) long fsize; { int i; if (fsize <= 0) return true; for (i = 0; i < NumFileSys; ++i) { long needed = 0; if (FILE_SYS_AVAIL(i) < 0 || FILE_SYS_BLKSIZE(i) <= 0) continue; needed += fsize / FILE_SYS_BLKSIZE(i) + ((fsize % FILE_SYS_BLKSIZE(i) > 0) ? 1 : 0) + MinBlocksFree; if (needed <= FILE_SYS_AVAIL(i)) return true; } return false; } #endif /* _FFR_ANY_FREE_FS */ /* ** DISK_STATUS -- show amount of free space in queue directories ** ** Parameters: ** out -- output file pointer. ** prefix -- string to output in front of each line. ** ** Returns: ** none. */ void disk_status(out, prefix) SM_FILE_T *out; char *prefix; { int i; long avail, blksize; long free; for (i = 0; i < NumFileSys; ++i) { avail = freediskspace(FILE_SYS_NAME(i), &blksize); if (avail >= 0 && blksize > 0) { free = (long)((double) avail * ((double) blksize / 1024)); } else free = -1; (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "%s%d/%s/%ld\r\n", prefix, i, FILE_SYS_NAME(i), free); } } #if SM_CONF_SHM /* ** INIT_SEM -- initialize semaphore system ** ** Parameters: ** owner -- is this the owner of semaphores? ** ** Returns: ** none. */ # if _FFR_USE_SEM_LOCKING && SM_CONF_SEM static int SemId = -1; /* Semaphore Id */ int SemKey = SM_SEM_KEY; # define SEM_LOCK(r) \ do \ { \ if (SemId >= 0) \ r = sm_sem_acq(SemId, 0, 1); \ } while (0) # define SEM_UNLOCK(r) \ do \ { \ if (SemId >= 0 && r >= 0) \ r = sm_sem_rel(SemId, 0, 1); \ } while (0) # else /* _FFR_USE_SEM_LOCKING && SM_CONF_SEM */ # define SEM_LOCK(r) # define SEM_UNLOCK(r) # endif /* _FFR_USE_SEM_LOCKING && SM_CONF_SEM */ static void init_sem __P((bool)); static void init_sem(owner) bool owner; { # if _FFR_USE_SEM_LOCKING # if SM_CONF_SEM SemId = sm_sem_start(SemKey, 1, 0, owner); if (SemId < 0) { sm_syslog(LOG_ERR, NOQID, "func=init_sem, sem_key=%ld, sm_sem_start=%d, error=%s", (long) SemKey, SemId, sm_errstring(-SemId)); return; } if (owner && RunAsUid != 0) { int r; r = sm_semsetowner(SemId, RunAsUid, RunAsGid, 0660); if (r != 0) sm_syslog(LOG_ERR, NOQID, "key=%ld, sm_semsetowner=%d, RunAsUid=%ld, RunAsGid=%ld", (long) SemKey, r, (long) RunAsUid, (long) RunAsGid); } # endif /* SM_CONF_SEM */ # endif /* _FFR_USE_SEM_LOCKING */ return; } /* ** STOP_SEM -- stop semaphore system ** ** Parameters: ** owner -- is this the owner of semaphores? ** ** Returns: ** none. */ static void stop_sem __P((bool)); static void stop_sem(owner) bool owner; { # if _FFR_USE_SEM_LOCKING # if SM_CONF_SEM if (owner && SemId >= 0) sm_sem_stop(SemId); # endif # endif /* _FFR_USE_SEM_LOCKING */ return; } # if _FFR_OCC /* ** Todo: call occ_close() ** when closing a connection to decrease #open connections (and rate!) ** (currently done as hack in deliver()) ** must also be done if connection couldn't be opened (see daemon.c: OCC_CLOSE) */ /* ** OCC_EXCEEDED -- is an outgoing connection limit exceeded? ** ** Parameters: ** e -- envelope ** mci -- mail connection information ** host -- name of host ** addr -- address of host ** ** Returns: ** true iff an outgoing connection limit is exceeded */ bool occ_exceeded(e, mci, host, addr) ENVELOPE *e; MCI *mci; const char *host; SOCKADDR *addr; { time_t now; bool exc; int r, ratelimit, conclimit; char *limit; /* allocated from e_rpool by rscheck(), no need to free() */ /* if necessary, some error checking for a number could be done here */ #define STR2INT(r, limit, val) \ do \ { \ if ((r) == EX_OK && (limit) != NULL) \ (val) = atoi((limit)); \ } while (0); if (occ == NULL || e == NULL) return false; ratelimit = conclimit = 0; limit = NULL; r = rscheck("oc_rate", host, anynet_ntoa(addr), e, RSF_ADDR, 12, NULL, NOQID, NULL, &limit); STR2INT(r, limit, ratelimit); limit = NULL; r = rscheck("oc_conc", host, anynet_ntoa(addr), e, RSF_ADDR, 12, NULL, NOQID, NULL, &limit); STR2INT(r, limit, conclimit); now = curtime(); /* lock occ: lock entire shared memory segment */ SEM_LOCK(r); exc = (bool) conn_limits(e, now, addr, SM_CLFL_EXC, occ, ratelimit, conclimit); SEM_UNLOCK(r); if (!exc && mci != NULL) mci->mci_flags |= MCIF_OCC_INCR; return exc; } /* ** OCC_CLOSE -- "close" an outgoing connection: update connection status ** ** Parameters: ** e -- envelope ** mci -- mail connection information ** host -- name of host ** addr -- address of host ** ** Returns: ** true after successful update */ bool occ_close(e, mci, host, addr) ENVELOPE *e; MCI *mci; const char *host; SOCKADDR *addr; { time_t now; # if _FFR_USE_SEM_LOCKING && SM_CONF_SEM int r; # endif if (occ == NULL || e == NULL) return false; if (mci == NULL || mci->mci_state == MCIS_CLOSED || bitset(MCIF_CACHED, mci->mci_flags) || !bitset(MCIF_OCC_INCR, mci->mci_flags)) return false; mci->mci_flags &= ~MCIF_OCC_INCR; now = curtime(); /* lock occ: lock entire shared memory segment */ SEM_LOCK(r); (void) conn_limits(e, now, addr, SM_CLFL_EXC, occ, -1, -1); SEM_UNLOCK(r); return true; } # endif /* _FFR_OCC */ /* ** UPD_QS -- update information about queue when adding/deleting an entry ** ** Parameters: ** e -- envelope. ** count -- add/remove entry (+1/0/-1: add/no change/remove) ** space -- update the space available as well. ** (>0/0/<0: add/no change/remove) ** where -- caller (for logging) ** ** Returns: ** none. ** ** Side Effects: ** Modifies available space in filesystem. ** Changes number of entries in queue directory. */ void upd_qs(e, count, space, where) ENVELOPE *e; int count; int space; char *where; { short fidx; int idx; # if _FFR_USE_SEM_LOCKING int r; # endif long s; if (ShmId == SM_SHM_NO_ID || e == NULL) return; if (e->e_qgrp == NOQGRP || e->e_qdir == NOQDIR) return; idx = Queue[e->e_qgrp]->qg_qpaths[e->e_qdir].qp_idx; if (tTd(73,2)) sm_dprintf("func=upd_qs, count=%d, space=%d, where=%s, idx=%d, entries=%d\n", count, space, where, idx, QSHM_ENTRIES(idx)); /* XXX in theory this needs to be protected with a mutex */ if (QSHM_ENTRIES(idx) >= 0 && count != 0) { SEM_LOCK(r); QSHM_ENTRIES(idx) += count; SEM_UNLOCK(r); } fidx = Queue[e->e_qgrp]->qg_qpaths[e->e_qdir].qp_fsysidx; if (fidx < 0) return; /* update available space also? (might be loseqfile) */ if (space == 0) return; /* convert size to blocks; this causes rounding errors */ s = e->e_msgsize / FILE_SYS_BLKSIZE(fidx); if (s == 0) return; /* XXX in theory this needs to be protected with a mutex */ if (space > 0) FILE_SYS_AVAIL(fidx) += s; else FILE_SYS_AVAIL(fidx) -= s; } static bool write_key_file __P((char *, long)); static long read_key_file __P((char *, long)); /* ** WRITE_KEY_FILE -- record some key into a file. ** ** Parameters: ** keypath -- file name. ** key -- key to write. ** ** Returns: ** true iff file could be written. ** ** Side Effects: ** writes file. */ static bool write_key_file(keypath, key) char *keypath; long key; { bool ok; long sff; SM_FILE_T *keyf; ok = false; if (SM_IS_EMPTY(keypath)) return ok; sff = SFF_NOLINK|SFF_ROOTOK|SFF_REGONLY|SFF_CREAT; if (TrustedUid != 0 && RealUid == TrustedUid) sff |= SFF_OPENASROOT; keyf = safefopen(keypath, O_WRONLY|O_TRUNC, FileMode, sff); if (keyf == NULL) { sm_syslog(LOG_ERR, NOQID, "unable to write %s: %s", keypath, sm_errstring(errno)); } else { if (geteuid() == 0 && RunAsUid != 0) { # if HASFCHOWN int fd; fd = keyf->f_file; if (fd >= 0 && fchown(fd, RunAsUid, -1) < 0) { int err = errno; sm_syslog(LOG_ALERT, NOQID, "ownership change on %s to %ld failed: %s", keypath, (long) RunAsUid, sm_errstring(err)); } # endif /* HASFCHOWN */ } ok = sm_io_fprintf(keyf, SM_TIME_DEFAULT, "%ld\n", key) != SM_IO_EOF; ok = (sm_io_close(keyf, SM_TIME_DEFAULT) != SM_IO_EOF) && ok; } return ok; } /* ** READ_KEY_FILE -- read a key from a file. ** ** Parameters: ** keypath -- file name. ** key -- default key. ** ** Returns: ** key. */ static long read_key_file(keypath, key) char *keypath; long key; { int r; long sff, n; SM_FILE_T *keyf; if (SM_IS_EMPTY(keypath)) return key; sff = SFF_NOLINK|SFF_ROOTOK|SFF_REGONLY; if (RealUid == 0 || (TrustedUid != 0 && RealUid == TrustedUid)) sff |= SFF_OPENASROOT; keyf = safefopen(keypath, O_RDONLY, FileMode, sff); if (keyf == NULL) { sm_syslog(LOG_ERR, NOQID, "unable to read %s: %s", keypath, sm_errstring(errno)); } else { r = sm_io_fscanf(keyf, SM_TIME_DEFAULT, "%ld", &n); if (r == 1) key = n; (void) sm_io_close(keyf, SM_TIME_DEFAULT); } return key; } /* ** INIT_SHM -- initialize shared memory structure ** ** Initialize or attach to shared memory segment. ** Currently it is not a fatal error if this doesn't work. ** However, it causes us to have a "fallback" storage location ** for everything that is supposed to be in the shared memory, ** which makes the code slightly ugly. ** ** Parameters: ** qn -- number of queue directories. ** owner -- owner of shared memory. ** hash -- identifies data that is stored in shared memory. ** ** Returns: ** none. */ static void init_shm __P((int, bool, unsigned int)); static void init_shm(qn, owner, hash) int qn; bool owner; unsigned int hash; { int i; int count; int save_errno; bool keyselect; PtrFileSys = &FileSys[0]; PNumFileSys = &Numfilesys; /* if this "key" is specified: select one yourself */ #define SEL_SHM_KEY ((key_t) -1) #define FIRST_SHM_KEY 25 /* This allows us to disable shared memory at runtime. */ if (ShmKey == 0) return; count = 0; shms = SM_T_SIZE + qn * sizeof(QUEUE_SHM_T); keyselect = ShmKey == SEL_SHM_KEY; if (keyselect) { if (owner) ShmKey = FIRST_SHM_KEY; else { errno = 0; ShmKey = read_key_file(ShmKeyFile, ShmKey); keyselect = false; if (ShmKey == SEL_SHM_KEY) { save_errno = (errno != 0) ? errno : EINVAL; goto error; } } } for (;;) { /* allow read/write access for group? */ Pshm = sm_shmstart(ShmKey, shms, SHM_R|SHM_W|(SHM_R>>3)|(SHM_W>>3), &ShmId, owner); save_errno = errno; if (Pshm != NULL || !sm_file_exists(save_errno)) break; if (++count >= 3) { if (keyselect) { ++ShmKey; /* back where we started? */ if (ShmKey == SEL_SHM_KEY) break; continue; } break; } /* only sleep if we are at the first key */ if (!keyselect || ShmKey == SEL_SHM_KEY) sleep(count); } if (Pshm != NULL) { int *p; if (keyselect) (void) write_key_file(ShmKeyFile, (long) ShmKey); if (owner && RunAsUid != 0) { i = sm_shmsetowner(ShmId, RunAsUid, RunAsGid, 0660); if (i != 0) sm_syslog(LOG_ERR, NOQID, "key=%ld, sm_shmsetowner=%d, RunAsUid=%ld, RunAsGid=%ld", (long) ShmKey, i, (long) RunAsUid, (long) RunAsGid); } p = (int *) Pshm; if (owner) { *p = (int) shms; *((pid_t *) SHM_OFF_PID(Pshm)) = CurrentPid; p = (int *) SHM_OFF_TAG(Pshm); *p = hash; } else { if (*p != (int) shms) { save_errno = EINVAL; cleanup_shm(false); goto error; } p = (int *) SHM_OFF_TAG(Pshm); if (*p != (int) hash) { save_errno = EINVAL; cleanup_shm(false); goto error; } /* ** XXX how to check the pid? ** Read it from the pid-file? That does ** not need to exist. ** We could disable shm if we can't confirm ** that it is the right one. */ } PtrFileSys = (FILESYS *) OFF_FILE_SYS(Pshm); PNumFileSys = (int *) OFF_NUM_FILE_SYS(Pshm); QShm = (QUEUE_SHM_T *) OFF_QUEUE_SHM(Pshm); PRSATmpCnt = (int *) OFF_RSA_TMP_CNT(Pshm); *PRSATmpCnt = 0; # if _FFR_OCC occ = (CHash_T *) OFF_OCC_SHM(Pshm); # endif if (owner) { /* initialize values in shared memory */ NumFileSys = 0; for (i = 0; i < qn; i++) QShm[i].qs_entries = -1; # if _FFR_OCC memset(occ, 0, OCC_SIZE); # endif } init_sem(owner); return; } error: if (LogLevel > (owner ? 8 : 11)) { sm_syslog(owner ? LOG_ERR : LOG_NOTICE, NOQID, "can't %s shared memory, key=%ld: %s", owner ? "initialize" : "attach to", (long) ShmKey, sm_errstring(save_errno)); } } #endif /* SM_CONF_SHM */ /* ** SETUP_QUEUES -- set up all queue groups ** ** Parameters: ** owner -- owner of shared memory? ** ** Returns: ** none. ** #if SM_CONF_SHM ** Side Effects: ** attaches shared memory. #endif * SM_CONF_SHM * */ void setup_queues(owner) bool owner; { int i, qn, len; unsigned int hashval; time_t now; char basedir[MAXPATHLEN]; struct stat st; /* ** Determine basedir for all queue directories. ** All queue directories must be (first level) subdirectories ** of the basedir. The basedir is the QueueDir ** without wildcards, but with trailing / */ hashval = 0; errno = 0; len = sm_strlcpy(basedir, QueueDir, sizeof(basedir)); /* Provide space for trailing '/' */ if (len >= sizeof(basedir) - 1) { syserr("QueueDirectory: path too long: %d, max %d", len, (int) sizeof(basedir) - 1); ExitStat = EX_CONFIG; return; } SM_ASSERT(len > 0); if (basedir[len - 1] == '*') { char *cp; cp = SM_LAST_DIR_DELIM(basedir); if (cp == NULL) { syserr("QueueDirectory: can not wildcard relative path \"%s\"", QueueDir); if (tTd(41, 2)) sm_dprintf("setup_queues: \"%s\": Can not wildcard relative path.\n", QueueDir); ExitStat = EX_CONFIG; return; } /* cut off wildcard pattern */ *++cp = '\0'; len = cp - basedir; } else if (!SM_IS_DIR_DELIM(basedir[len - 1])) { /* append trailing slash since it is a directory */ basedir[len] = '/'; basedir[++len] = '\0'; } /* len counts up to the last directory delimiter */ SM_ASSERT(basedir[len - 1] == '/'); if (chdir(basedir) < 0) { int save_errno = errno; syserr("can not chdir(%s)", basedir); if (save_errno == EACCES) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "Program mode requires special privileges, e.g., root or TrustedUser.\n"); if (tTd(41, 2)) sm_dprintf("setup_queues: \"%s\": %s\n", basedir, sm_errstring(errno)); ExitStat = EX_CONFIG; return; } #if SM_CONF_SHM hashval = hash_q(basedir, hashval); #endif /* initialize for queue runs */ DoQueueRun = false; now = curtime(); for (i = 0; i < NumQueue && Queue[i] != NULL; i++) Queue[i]->qg_nextrun = now; if (UseMSP && OpMode != MD_TEST) { long sff = SFF_CREAT; if (stat(".", &st) < 0) { syserr("can not stat(%s)", basedir); if (tTd(41, 2)) sm_dprintf("setup_queues: \"%s\": %s\n", basedir, sm_errstring(errno)); ExitStat = EX_CONFIG; return; } if (RunAsUid == 0) sff |= SFF_ROOTOK; /* ** Check queue directory permissions. ** Can we write to a group writable queue directory? */ if (bitset(S_IWGRP, QueueFileMode) && bitset(S_IWGRP, st.st_mode) && safefile(" ", RunAsUid, RunAsGid, RunAsUserName, sff, QueueFileMode, NULL) != 0) { syserr("can not write to queue directory %s (RunAsGid=%ld, required=%ld)", basedir, (long) RunAsGid, (long) st.st_gid); } if (bitset(S_IWOTH|S_IXOTH, st.st_mode)) { #if _FFR_MSP_PARANOIA syserr("dangerous permissions=%o on queue directory %s", (unsigned int) st.st_mode, basedir); #else if (LogLevel > 0) sm_syslog(LOG_ERR, NOQID, "dangerous permissions=%o on queue directory %s", (unsigned int) st.st_mode, basedir); #endif /* _FFR_MSP_PARANOIA */ } #if _FFR_MSP_PARANOIA if (NumQueue > 1) syserr("can not use multiple queues for MSP"); #endif } /* initial number of queue directories */ qn = 0; for (i = 0; i < NumQueue && Queue[i] != NULL; i++) qn = multiqueue_cache(basedir, len, Queue[i], qn, &hashval); #if SM_CONF_SHM init_shm(qn, owner, hashval); i = filesys_setup(owner || ShmId == SM_SHM_NO_ID); if (i == FSF_NOT_FOUND) { /* ** We didn't get the right filesystem data ** This may happen if we don't have the right shared memory. ** So let's do this without shared memory. */ SM_ASSERT(!owner); cleanup_shm(false); /* release shared memory */ i = filesys_setup(false); if (i < 0) syserr("filesys_setup failed twice, result=%d", i); else if (LogLevel > 8) sm_syslog(LOG_WARNING, NOQID, "shared memory does not contain expected data, ignored"); } #else /* SM_CONF_SHM */ i = filesys_setup(true); #endif /* SM_CONF_SHM */ if (i < 0) ExitStat = EX_CONFIG; } #if SM_CONF_SHM /* ** CLEANUP_SHM -- do some cleanup work for shared memory etc ** ** Parameters: ** owner -- owner of shared memory? ** ** Returns: ** none. ** ** Side Effects: ** detaches shared memory. */ void cleanup_shm(owner) bool owner; { if (ShmId != SM_SHM_NO_ID) { if (sm_shmstop(Pshm, ShmId, owner) < 0 && LogLevel > 8) sm_syslog(LOG_INFO, NOQID, "sm_shmstop failed=%s", sm_errstring(errno)); Pshm = NULL; ShmId = SM_SHM_NO_ID; } stop_sem(owner); } #endif /* SM_CONF_SHM */ /* ** CLEANUP_QUEUES -- do some cleanup work for queues ** ** Parameters: ** none. ** ** Returns: ** none. ** */ void cleanup_queues() { sync_queue_time(); } /* ** SET_DEF_QUEUEVAL -- set default values for a queue group. ** ** Parameters: ** qg -- queue group ** all -- set all values (true for default group)? ** ** Returns: ** none. ** ** Side Effects: ** sets default values for the queue group. */ void set_def_queueval(qg, all) QUEUEGRP *qg; bool all; { if (bitnset(QD_DEFINED, qg->qg_flags)) return; if (all) qg->qg_qdir = QueueDir; #if _FFR_QUEUE_GROUP_SORTORDER qg->qg_sortorder = QueueSortOrder; #endif qg->qg_maxqrun = all ? MaxRunnersPerQueue : -1; qg->qg_nice = NiceQueueRun; } /* ** MAKEQUEUE -- define a new queue. ** ** Parameters: ** line -- description of queue. This is in labeled fields. ** The fields are: ** F -- the flags associated with the queue ** I -- the interval between running the queue ** J -- the maximum # of jobs in work list ** [M -- the maximum # of jobs in a queue run] ** N -- the niceness at which to run ** P -- the path to the queue ** S -- the queue sorting order ** R -- number of parallel queue runners ** r -- max recipients per envelope ** The first word is the canonical name of the queue. ** qdef -- this is a 'Q' definition from .cf ** ** Returns: ** none. ** ** Side Effects: ** enters the queue into the queue table. */ void makequeue(line, qdef) char *line; bool qdef; { register char *p; register QUEUEGRP *qg; register STAB *s; int i; char fcode; /* allocate a queue and set up defaults */ qg = (QUEUEGRP *) xalloc(sizeof(*qg)); memset((char *) qg, '\0', sizeof(*qg)); if (line[0] == '\0') { syserr("name required for queue"); return; } /* collect the queue name */ for (p = line; *p != '\0' && *p != ',' && !(SM_ISSPACE(*p)); p++) continue; if (*p != '\0') *p++ = '\0'; qg->qg_name = newstr(line); /* set default values, can be overridden below */ set_def_queueval(qg, false); /* now scan through and assign info from the fields */ while (*p != '\0') { auto char *delimptr; while (*p != '\0' && (*p == ',' || (SM_ISSPACE(*p)))) p++; /* p now points to field code */ fcode = *p; while (*p != '\0' && *p != '=' && *p != ',') p++; if (*p++ != '=') { syserr("queue %s: `=' expected", qg->qg_name); return; } while (SM_ISSPACE(*p)) p++; /* p now points to the field body */ p = munchstring(p, &delimptr, ','); /* install the field into the queue struct */ switch (fcode) { case 'P': /* pathname */ if (*p == '\0') syserr("queue %s: empty path name", qg->qg_name); else qg->qg_qdir = newstr(p); break; case 'F': /* flags */ for (; *p != '\0'; p++) if (!(SM_ISSPACE(*p))) setbitn(*p, qg->qg_flags); break; /* ** Do we need two intervals here: ** One for persistent queue runners, ** one for "normal" queue runs? */ case 'I': /* interval between running the queue */ qg->qg_queueintvl = convtime(p, 'm'); break; case 'N': /* run niceness */ qg->qg_nice = atoi(p); break; case 'R': /* maximum # of runners for the group */ i = atoi(p); /* can't have more runners than allowed total */ if (MaxQueueChildren > 0 && i > MaxQueueChildren) { qg->qg_maxqrun = MaxQueueChildren; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Q=%s: R=%d exceeds MaxQueueChildren=%d, set to MaxQueueChildren\n", qg->qg_name, i, MaxQueueChildren); } else qg->qg_maxqrun = i; break; case 'J': /* maximum # of jobs in work list */ qg->qg_maxlist = atoi(p); break; case 'r': /* max recipients per envelope */ qg->qg_maxrcpt = atoi(p); break; #if _FFR_QUEUE_GROUP_SORTORDER case 'S': /* queue sorting order */ switch (*p) { case 'h': /* Host first */ case 'H': qg->qg_sortorder = QSO_BYHOST; break; case 'p': /* Priority order */ case 'P': qg->qg_sortorder = QSO_BYPRIORITY; break; case 't': /* Submission time */ case 'T': qg->qg_sortorder = QSO_BYTIME; break; case 'f': /* File name */ case 'F': qg->qg_sortorder = QSO_BYFILENAME; break; case 'm': /* Modification time */ case 'M': qg->qg_sortorder = QSO_BYMODTIME; break; case 'r': /* Random */ case 'R': qg->qg_sortorder = QSO_RANDOM; break; # if _FFR_RHS case 's': /* Shuffled host name */ case 'S': qg->qg_sortorder = QSO_BYSHUFFLE; break; # endif /* _FFR_RHS */ case 'n': /* none */ case 'N': qg->qg_sortorder = QSO_NONE; break; default: syserr("Invalid queue sort order \"%s\"", p); } break; #endif /* _FFR_QUEUE_GROUP_SORTORDER */ default: syserr("Q%s: unknown queue equate %c=", qg->qg_name, fcode); break; } p = delimptr; } #if !HASNICE if (qg->qg_nice != NiceQueueRun) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Q%s: Warning: N= set on system that doesn't support nice()\n", qg->qg_name); } #endif /* !HASNICE */ /* do some rationality checking */ if (NumQueue >= MAXQUEUEGROUPS) { syserr("too many queue groups defined (%d max)", MAXQUEUEGROUPS); return; } if (qg->qg_qdir == NULL) { if (SM_IS_EMPTY(QueueDir)) { syserr("QueueDir must be defined before queue groups"); return; } qg->qg_qdir = newstr(QueueDir); } if (qg->qg_maxqrun > 1 && !bitnset(QD_FORK, qg->qg_flags)) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: Q=%s: R=%d: multiple queue runners specified\n\tbut flag '%c' is not set\n", qg->qg_name, qg->qg_maxqrun, QD_FORK); } /* enter the queue into the symbol table */ if (tTd(37, 8)) sm_syslog(LOG_INFO, NOQID, "Adding %s to stab, path: %s", qg->qg_name, qg->qg_qdir); s = stab(qg->qg_name, ST_QUEUE, ST_ENTER); if (s->s_quegrp != NULL) { i = s->s_quegrp->qg_index; /* XXX what about the pointers inside this struct? */ sm_free(s->s_quegrp); /* XXX */ } else i = NumQueue++; Queue[i] = s->s_quegrp = qg; qg->qg_index = i; /* set default value for max queue runners */ if (qg->qg_maxqrun < 0) { if (MaxRunnersPerQueue > 0) qg->qg_maxqrun = MaxRunnersPerQueue; else qg->qg_maxqrun = 1; } if (qdef) setbitn(QD_DEFINED, qg->qg_flags); } #if 0 /* ** HASHFQN -- calculate a hash value for a fully qualified host name ** ** Arguments: ** fqn -- an all lower-case host.domain string ** buckets -- the number of buckets (queue directories) ** ** Returns: ** a bucket number (signed integer) ** -1 on error ** ** Contributed by Exactis.com, Inc. */ int hashfqn(fqn, buckets) register char *fqn; int buckets; { register char *p; register int h = 0, hash, cnt; if (fqn == NULL) return -1; /* ** A variation on the gdb hash ** This is the best as of Feb 19, 1996 --bcx */ p = fqn; h = 0x238F13AF * strlen(p); for (cnt = 0; *p != 0; ++p, cnt++) { h = (h + (*p << (cnt * 5 % 24))) & 0x7FFFFFFF; } h = (1103515243 * h + 12345) & 0x7FFFFFFF; if (buckets < 2) hash = 0; else hash = (h % buckets); return hash; } #endif /* 0 */ /* ** A structure for sorting Queue according to maxqrun without ** screwing up Queue itself. */ struct sortqgrp { int sg_idx; /* original index */ int sg_maxqrun; /* max queue runners */ }; typedef struct sortqgrp SORTQGRP_T; static int cmpidx __P((const void *, const void *)); static int cmpidx(a, b) const void *a; const void *b; { /* The sort is highest to lowest, so the comparison is reversed */ if (((SORTQGRP_T *)a)->sg_maxqrun < ((SORTQGRP_T *)b)->sg_maxqrun) return 1; else if (((SORTQGRP_T *)a)->sg_maxqrun > ((SORTQGRP_T *)b)->sg_maxqrun) return -1; else return 0; } /* ** MAKEWORKGROUPS -- balance queue groups into work groups per MaxQueueChildren ** ** Take the now defined queue groups and assign them to work groups. ** This is done to balance out the number of concurrently active ** queue runners such that MaxQueueChildren is not exceeded. This may ** result in more than one queue group per work group. In such a case ** the number of running queue groups in that work group will have no ** more than the work group maximum number of runners (a "fair" portion ** of MaxQueueRun). All queue groups within a work group will get a ** chance at running. ** ** Parameters: ** none. ** ** Returns: ** nothing. ** ** Side Effects: ** Sets up WorkGrp structure. */ void makeworkgroups() { int i, j, total_runners, dir, h; SORTQGRP_T si[MAXQUEUEGROUPS + 1]; total_runners = 0; if (NumQueue == 1 && strcmp(Queue[0]->qg_name, "mqueue") == 0) { /* ** There is only the "mqueue" queue group (a default) ** containing all of the queues. We want to provide to ** this queue group the maximum allowable queue runners. ** To match older behavior (8.10/8.11) we'll try for ** 1 runner per queue capping it at MaxQueueChildren. ** So if there are N queues, then there will be N runners ** for the "mqueue" queue group (where N is kept less than ** MaxQueueChildren). */ NumWorkGroups = 1; WorkGrp[0].wg_numqgrp = 1; WorkGrp[0].wg_qgs = (QUEUEGRP **) xalloc(sizeof(QUEUEGRP *)); WorkGrp[0].wg_qgs[0] = Queue[0]; if (MaxQueueChildren > 0 && Queue[0]->qg_numqueues > MaxQueueChildren) WorkGrp[0].wg_runners = MaxQueueChildren; else WorkGrp[0].wg_runners = Queue[0]->qg_numqueues; Queue[0]->qg_wgrp = 0; /* can't have more runners than allowed total */ if (MaxQueueChildren > 0 && Queue[0]->qg_maxqrun > MaxQueueChildren) Queue[0]->qg_maxqrun = MaxQueueChildren; WorkGrp[0].wg_maxact = Queue[0]->qg_maxqrun; WorkGrp[0].wg_lowqintvl = Queue[0]->qg_queueintvl; return; } for (i = 0; i < NumQueue; i++) { si[i].sg_maxqrun = Queue[i]->qg_maxqrun; si[i].sg_idx = i; /* Hack to make sure BounceQueue ends up last */ if (IS_BOUNCE_QUEUE(i)) si[i].sg_maxqrun = INT_MIN; } qsort(si, NumQueue, sizeof(si[0]), cmpidx); NumWorkGroups = 0; for (i = 0; i < NumQueue; i++) { SKIP_BOUNCE_QUEUE(i) total_runners += si[i].sg_maxqrun; if (MaxQueueChildren <= 0 || total_runners <= MaxQueueChildren) NumWorkGroups++; else break; } if (NumWorkGroups < 1) NumWorkGroups = 1; /* gotta have one at least */ else if (NumWorkGroups > MAXWORKGROUPS) NumWorkGroups = MAXWORKGROUPS; /* the limit */ /* ** We now know the number of work groups to pack the queue groups ** into. The queue groups in 'Queue' are sorted from highest ** to lowest for the number of runners per queue group. ** We put the queue groups with the largest number of runners ** into work groups first. Then the smaller ones are fitted in ** where it looks best. */ j = 0; dir = 1; for (i = 0; i < NumQueue; i++) { h = si[i].sg_idx; if (tTd(41, 49)) sm_dprintf("sortqg: i=%d, j=%d, h=%d, runners=%d, skip=%d\n", i, j, h, Queue[h]->qg_maxqrun, IS_BOUNCE_QUEUE(h)); SKIP_BOUNCE_QUEUE(h); /* a to-and-fro packing scheme, continue from last position */ if (j >= NumWorkGroups) { dir = -1; j = NumWorkGroups - 1; } else if (j < 0) { j = 0; dir = 1; } if (WorkGrp[j].wg_qgs == NULL) WorkGrp[j].wg_qgs = (QUEUEGRP **)sm_malloc(sizeof(QUEUEGRP *) * (WorkGrp[j].wg_numqgrp + 1)); else WorkGrp[j].wg_qgs = (QUEUEGRP **)sm_realloc(WorkGrp[j].wg_qgs, sizeof(QUEUEGRP *) * (WorkGrp[j].wg_numqgrp + 1)); if (WorkGrp[j].wg_qgs == NULL) { syserr("!cannot allocate memory for work queues, need %d bytes", (int) (sizeof(QUEUEGRP *) * (WorkGrp[j].wg_numqgrp + 1))); } WorkGrp[j].wg_qgs[WorkGrp[j].wg_numqgrp] = Queue[h]; WorkGrp[j].wg_numqgrp++; WorkGrp[j].wg_runners += Queue[h]->qg_maxqrun; Queue[h]->qg_wgrp = j; if (WorkGrp[j].wg_maxact == 0) { /* can't have more runners than allowed total */ if (MaxQueueChildren > 0 && Queue[h]->qg_maxqrun > MaxQueueChildren) Queue[h]->qg_maxqrun = MaxQueueChildren; WorkGrp[j].wg_maxact = Queue[h]->qg_maxqrun; } /* ** XXX: must wg_lowqintvl be the GCD? ** qg1: 2m, qg2: 3m, minimum: 2m, when do queue runs for ** qg2 occur? */ /* keep track of the lowest interval for a persistent runner */ if (Queue[h]->qg_queueintvl > 0 && WorkGrp[j].wg_lowqintvl < Queue[h]->qg_queueintvl) WorkGrp[j].wg_lowqintvl = Queue[h]->qg_queueintvl; j += dir; } if (tTd(41, 9)) { for (i = 0; i < NumWorkGroups; i++) { sm_dprintf("Workgroup[%d]=", i); for (j = 0; j < WorkGrp[i].wg_numqgrp; j++) { sm_dprintf("%s, ", WorkGrp[i].wg_qgs[j]->qg_name); } if (tTd(41, 12)) sm_dprintf("lowqintvl=%d", (int) WorkGrp[i].wg_lowqintvl); sm_dprintf("\n"); } } } /* ** DUP_DF -- duplicate envelope data file ** ** Copy the data file from the 'old' envelope to the 'new' envelope ** in the most efficient way possible. ** ** Create a hard link from the 'old' data file to the 'new' data file. ** If the old and new queue directories are on different file systems, ** then the new data file link is created in the old queue directory, ** and the new queue file will contain a 'd' record pointing to the ** directory containing the new data file. ** ** Parameters: ** old -- old envelope. ** new -- new envelope. ** ** Returns: ** Returns true on success, false on failure. ** ** Side Effects: ** On success, the new data file is created. ** On fatal failure, EF_FATALERRS is set in old->e_flags. */ static bool dup_df __P((ENVELOPE *, ENVELOPE *)); static bool dup_df(old, new) ENVELOPE *old; ENVELOPE *new; { int ofs, nfs, r; char opath[MAXPATHLEN]; char npath[MAXPATHLEN]; if (!bitset(EF_HAS_DF, old->e_flags)) { /* ** this can happen if: SuperSafe != True ** and a bounce mail is sent that is split. */ queueup(old, QUP_FL_MSYNC); } SM_REQUIRE(ISVALIDQGRP(old->e_qgrp) && ISVALIDQDIR(old->e_qdir)); SM_REQUIRE(ISVALIDQGRP(new->e_qgrp) && ISVALIDQDIR(new->e_qdir)); (void) sm_strlcpy(opath, queuename(old, DATAFL_LETTER), sizeof(opath)); (void) sm_strlcpy(npath, queuename(new, DATAFL_LETTER), sizeof(npath)); if (old->e_dfp != NULL) { r = sm_io_setinfo(old->e_dfp, SM_BF_COMMIT, NULL); if (r < 0 && errno != EINVAL) { syserr("@can't commit %s", opath); old->e_flags |= EF_FATALERRS; return false; } } /* ** Attempt to create a hard link, if we think both old and new ** are on the same file system, otherwise copy the file. ** ** Don't waste time attempting a hard link unless old and new ** are on the same file system. */ SM_REQUIRE(ISVALIDQGRP(old->e_dfqgrp) && ISVALIDQDIR(old->e_dfqdir)); SM_REQUIRE(ISVALIDQGRP(new->e_dfqgrp) && ISVALIDQDIR(new->e_dfqdir)); ofs = Queue[old->e_dfqgrp]->qg_qpaths[old->e_dfqdir].qp_fsysidx; nfs = Queue[new->e_dfqgrp]->qg_qpaths[new->e_dfqdir].qp_fsysidx; if (FILE_SYS_DEV(ofs) == FILE_SYS_DEV(nfs)) { if (link(opath, npath) == 0) { new->e_flags |= EF_HAS_DF; SYNC_DIR(npath, true); return true; } goto error; } /* ** Can't link across queue directories, so try to create a hard ** link in the same queue directory as the old df file. ** The qf file will refer to the new df file using a 'd' record. */ new->e_dfqgrp = old->e_dfqgrp; new->e_dfqdir = old->e_dfqdir; (void) sm_strlcpy(npath, queuename(new, DATAFL_LETTER), sizeof(npath)); if (link(opath, npath) == 0) { new->e_flags |= EF_HAS_DF; SYNC_DIR(npath, true); return true; } error: if (LogLevel > 0) sm_syslog(LOG_ERR, old->e_id, "dup_df: can't link %s to %s, error=%s, envelope splitting failed", opath, npath, sm_errstring(errno)); return false; } /* ** SPLIT_ENV -- Allocate a new envelope based on a given envelope. ** ** Parameters: ** e -- envelope. ** sendqueue -- sendqueue for new envelope. ** qgrp -- index of queue group. ** qdir -- queue directory. ** ** Returns: ** new envelope. ** */ static ENVELOPE *split_env __P((ENVELOPE *, ADDRESS *, int, int)); static ENVELOPE * split_env(e, sendqueue, qgrp, qdir) ENVELOPE *e; ADDRESS *sendqueue; int qgrp; int qdir; { ENVELOPE *ee; ee = (ENVELOPE *) sm_rpool_malloc_x(e->e_rpool, sizeof(*ee)); STRUCTCOPY(*e, *ee); ee->e_message = NULL; /* XXX use original message? */ ee->e_id = NULL; assign_queueid(ee); ee->e_sendqueue = sendqueue; ee->e_flags &= ~(EF_INQUEUE|EF_CLRQUEUE|EF_FATALERRS |EF_SENDRECEIPT|EF_RET_PARAM|EF_HAS_DF); ee->e_flags |= EF_NORECEIPT; /* XXX really? */ ee->e_from.q_state = QS_SENDER; ee->e_dfp = NULL; ee->e_lockfp = NULL; if (e->e_xfp != NULL) ee->e_xfp = sm_io_dup(e->e_xfp); /* failed to dup e->e_xfp, start a new transcript */ if (ee->e_xfp == NULL) openxscript(ee); ee->e_qgrp = ee->e_dfqgrp = qgrp; ee->e_qdir = ee->e_dfqdir = qdir; ee->e_errormode = EM_MAIL; ee->e_statmsg = NULL; if (e->e_quarmsg != NULL) ee->e_quarmsg = sm_rpool_strdup_x(ee->e_rpool, e->e_quarmsg); /* ** XXX Not sure if this copying is necessary. ** sendall() does this copying, but I (dm) don't know if that is ** because of the storage management discipline we were using ** before rpools were introduced, or if it is because these lists ** can be modified later. */ ee->e_header = copyheader(e->e_header, ee->e_rpool); ee->e_errorqueue = copyqueue(e->e_errorqueue, ee->e_rpool); return ee; } /* return values from split functions, check also below! */ #define SM_SPLIT_FAIL (0) #define SM_SPLIT_NONE (1) #define SM_SPLIT_NEW(n) (1 + (n)) /* ** SPLIT_ACROSS_QUEUE_GROUPS ** ** This function splits an envelope across multiple queue groups ** based on the queue group of each recipient. ** ** Parameters: ** e -- envelope. ** ** Returns: ** SM_SPLIT_FAIL on failure ** SM_SPLIT_NONE if no splitting occurred, ** or 1 + the number of additional envelopes created. ** ** Side Effects: ** On success, e->e_sibling points to a list of zero or more ** additional envelopes, and the associated data files exist ** on disk. But the queue files are not created. ** ** On failure, e->e_sibling is not changed. ** The order of recipients in e->e_sendqueue is permuted. ** Abandoned data files for additional envelopes that failed ** to be created may exist on disk. */ static int q_qgrp_compare __P((const void *, const void *)); static int e_filesys_compare __P((const void *, const void *)); static int q_qgrp_compare(p1, p2) const void *p1; const void *p2; { ADDRESS **pq1 = (ADDRESS **) p1; ADDRESS **pq2 = (ADDRESS **) p2; return (*pq1)->q_qgrp - (*pq2)->q_qgrp; } static int e_filesys_compare(p1, p2) const void *p1; const void *p2; { ENVELOPE **pe1 = (ENVELOPE **) p1; ENVELOPE **pe2 = (ENVELOPE **) p2; int fs1, fs2; fs1 = Queue[(*pe1)->e_qgrp]->qg_qpaths[(*pe1)->e_qdir].qp_fsysidx; fs2 = Queue[(*pe2)->e_qgrp]->qg_qpaths[(*pe2)->e_qdir].qp_fsysidx; if (FILE_SYS_DEV(fs1) < FILE_SYS_DEV(fs2)) return -1; if (FILE_SYS_DEV(fs1) > FILE_SYS_DEV(fs2)) return 1; return 0; } static int split_across_queue_groups __P((ENVELOPE *)); static int split_across_queue_groups(e) ENVELOPE *e; { int naddrs, nsplits, i; bool changed; char **pvp; ADDRESS *q, **addrs; ENVELOPE *ee, *es; ENVELOPE *splits[MAXQUEUEGROUPS]; char pvpbuf[PSBUFSIZE]; SM_REQUIRE(ISVALIDQGRP(e->e_qgrp)); /* Count addresses and assign queue groups. */ naddrs = 0; changed = false; for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_DEAD(q->q_state)) continue; ++naddrs; /* bad addresses and those already sent stay put */ if (QS_IS_BADADDR(q->q_state) || QS_IS_SENT(q->q_state)) q->q_qgrp = e->e_qgrp; else if (!ISVALIDQGRP(q->q_qgrp)) { /* call ruleset which should return a queue group */ i = rscap(RS_QUEUEGROUP, q->q_user, NULL, e, &pvp, pvpbuf, sizeof(pvpbuf)); if (i == EX_OK && pvp != NULL && pvp[0] != NULL && (pvp[0][0] & 0377) == CANONNET && pvp[1] != NULL && pvp[1][0] != '\0') { i = name2qid(pvp[1]); if (ISVALIDQGRP(i)) { q->q_qgrp = i; changed = true; if (tTd(20, 4)) sm_syslog(LOG_INFO, NOQID, "queue group name %s -> %d", pvp[1], i); continue; } else if (LogLevel > 10) sm_syslog(LOG_INFO, NOQID, "can't find queue group name %s, selection ignored", pvp[1]); } if (q->q_mailer != NULL && ISVALIDQGRP(q->q_mailer->m_qgrp)) { changed = true; q->q_qgrp = q->q_mailer->m_qgrp; } else if (ISVALIDQGRP(e->e_qgrp)) q->q_qgrp = e->e_qgrp; else q->q_qgrp = 0; } } /* only one address? nothing to split. */ if (naddrs <= 1 && !changed) return SM_SPLIT_NONE; /* sort the addresses by queue group */ addrs = sm_rpool_malloc_x(e->e_rpool, naddrs * sizeof(ADDRESS *)); for (i = 0, q = e->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_DEAD(q->q_state)) continue; addrs[i++] = q; } qsort(addrs, naddrs, sizeof(ADDRESS *), q_qgrp_compare); /* split into multiple envelopes, by queue group */ nsplits = 0; es = NULL; e->e_sendqueue = NULL; for (i = 0; i < naddrs; ++i) { if (i == naddrs - 1 || addrs[i]->q_qgrp != addrs[i + 1]->q_qgrp) addrs[i]->q_next = NULL; else addrs[i]->q_next = addrs[i + 1]; /* same queue group as original envelope? */ if (addrs[i]->q_qgrp == e->e_qgrp) { if (e->e_sendqueue == NULL) e->e_sendqueue = addrs[i]; continue; } /* different queue group than original envelope */ if (es == NULL || addrs[i]->q_qgrp != es->e_qgrp) { ee = split_env(e, addrs[i], addrs[i]->q_qgrp, NOQDIR); es = ee; splits[nsplits++] = ee; } } /* no splits? return right now. */ if (nsplits <= 0) return SM_SPLIT_NONE; /* assign a queue directory to each additional envelope */ for (i = 0; i < nsplits; ++i) { es = splits[i]; #if 0 es->e_qdir = pickqdir(Queue[es->e_qgrp], es->e_msgsize, es); #endif if (!setnewqueue(es)) goto failure; } /* sort the additional envelopes by queue file system */ qsort(splits, nsplits, sizeof(ENVELOPE *), e_filesys_compare); /* create data files for each additional envelope */ if (!dup_df(e, splits[0])) { i = 0; goto failure; } for (i = 1; i < nsplits; ++i) { /* copy or link to the previous data file */ if (!dup_df(splits[i - 1], splits[i])) goto failure; } /* success: prepend the new envelopes to the e->e_sibling list */ for (i = 0; i < nsplits; ++i) { es = splits[i]; es->e_sibling = e->e_sibling; e->e_sibling = es; } return SM_SPLIT_NEW(nsplits); /* failure: clean up */ failure: if (i > 0) { int j; for (j = 0; j < i; j++) (void) unlink(queuename(splits[j], DATAFL_LETTER)); } e->e_sendqueue = addrs[0]; for (i = 0; i < naddrs - 1; ++i) addrs[i]->q_next = addrs[i + 1]; addrs[naddrs - 1]->q_next = NULL; return SM_SPLIT_FAIL; } /* ** SPLIT_WITHIN_QUEUE ** ** Split an envelope with multiple recipients into several ** envelopes within the same queue directory, if the number of ** recipients exceeds the limit for the queue group. ** ** Parameters: ** e -- envelope. ** ** Returns: ** SM_SPLIT_FAIL on failure ** SM_SPLIT_NONE if no splitting occurred, ** or 1 + the number of additional envelopes created. */ #define SPLIT_LOG_LEVEL 8 static int split_within_queue __P((ENVELOPE *)); static int split_within_queue(e) ENVELOPE *e; { int maxrcpt, nrcpt, ndead, nsplit, i; int j, l; char *lsplits; ADDRESS *q, **addrs; ENVELOPE *ee, *firstsibling; if (!ISVALIDQGRP(e->e_qgrp) || bitset(EF_SPLIT, e->e_flags)) return SM_SPLIT_NONE; /* don't bother if there is no recipient limit */ maxrcpt = Queue[e->e_qgrp]->qg_maxrcpt; if (maxrcpt <= 0) return SM_SPLIT_NONE; /* count recipients */ nrcpt = 0; for (q = e->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_DEAD(q->q_state)) continue; ++nrcpt; } if (nrcpt <= maxrcpt) return SM_SPLIT_NONE; /* ** Preserve the recipient list ** so that we can restore it in case of error. ** (But we discard dead addresses.) */ addrs = sm_rpool_malloc_x(e->e_rpool, nrcpt * sizeof(ADDRESS *)); for (i = 0, q = e->e_sendqueue; q != NULL; q = q->q_next) { if (QS_IS_DEAD(q->q_state)) continue; addrs[i++] = q; } /* ** Partition the recipient list so that bad and sent addresses ** come first. These will go with the original envelope, and ** do not count towards the maxrcpt limit. ** addrs[] does not contain QS_IS_DEAD() addresses. */ ndead = 0; for (i = 0; i < nrcpt; ++i) { if (QS_IS_BADADDR(addrs[i]->q_state) || QS_IS_SENT(addrs[i]->q_state) || QS_IS_DEAD(addrs[i]->q_state)) /* for paranoia's sake */ { if (i > ndead) { ADDRESS *tmp = addrs[i]; addrs[i] = addrs[ndead]; addrs[ndead] = tmp; } ++ndead; } } /* Check if no splitting required. */ if (nrcpt - ndead <= maxrcpt) return SM_SPLIT_NONE; /* fix links */ for (i = 0; i < nrcpt - 1; ++i) addrs[i]->q_next = addrs[i + 1]; addrs[nrcpt - 1]->q_next = NULL; e->e_sendqueue = addrs[0]; /* prepare buffer for logging */ if (LogLevel > SPLIT_LOG_LEVEL) { l = MAXLINE; lsplits = sm_malloc(l); if (lsplits != NULL) *lsplits = '\0'; j = 0; } else { /* get rid of stupid compiler warnings */ lsplits = NULL; j = l = 0; } /* split the envelope */ firstsibling = e->e_sibling; i = maxrcpt + ndead; nsplit = 0; for (;;) { addrs[i - 1]->q_next = NULL; ee = split_env(e, addrs[i], e->e_qgrp, e->e_qdir); if (!dup_df(e, ee)) { ee = firstsibling; while (ee != NULL) { (void) unlink(queuename(ee, DATAFL_LETTER)); ee = ee->e_sibling; } /* Error. Restore e's sibling & recipient lists. */ e->e_sibling = firstsibling; for (i = 0; i < nrcpt - 1; ++i) addrs[i]->q_next = addrs[i + 1]; if (lsplits != NULL) sm_free(lsplits); return SM_SPLIT_FAIL; } /* prepend the new envelope to e->e_sibling */ ee->e_sibling = e->e_sibling; e->e_sibling = ee; ++nsplit; if (LogLevel > SPLIT_LOG_LEVEL && lsplits != NULL) { if (j >= l - strlen(ee->e_id) - 3) { char *p; l += MAXLINE; p = sm_realloc(lsplits, l); if (p == NULL) { /* let's try to get this done */ sm_free(lsplits); lsplits = NULL; } else lsplits = p; } if (lsplits != NULL) { if (j == 0) j += sm_strlcat(lsplits + j, ee->e_id, l - j); else j += sm_strlcat2(lsplits + j, "; ", ee->e_id, l - j); SM_ASSERT(j < l); } } if (nrcpt - i <= maxrcpt) break; i += maxrcpt; } if (LogLevel > SPLIT_LOG_LEVEL && lsplits != NULL) { if (nsplit > 0) { sm_syslog(LOG_NOTICE, e->e_id, "split: maxrcpts=%d, rcpts=%d, count=%d, id%s=%s", maxrcpt, nrcpt - ndead, nsplit, nsplit > 1 ? "s" : "", lsplits); } sm_free(lsplits); } return SM_SPLIT_NEW(nsplit); } /* ** SPLIT_BY_RECIPIENT ** ** Split an envelope with multiple recipients into multiple ** envelopes as required by the sendmail configuration. ** ** Parameters: ** e -- envelope. ** ** Returns: ** Returns true on success, false on failure. ** ** Side Effects: ** see split_across_queue_groups(), split_within_queue(e) */ bool split_by_recipient(e) ENVELOPE *e; { int split, n, i, j, l; char *lsplits; ENVELOPE *ee, *next, *firstsibling; if (OpMode == SM_VERIFY || !ISVALIDQGRP(e->e_qgrp) || bitset(EF_SPLIT, e->e_flags)) return true; n = split_across_queue_groups(e); if (n == SM_SPLIT_FAIL) return false; firstsibling = ee = e->e_sibling; if (n > 1 && LogLevel > SPLIT_LOG_LEVEL) { l = MAXLINE; lsplits = sm_malloc(l); if (lsplits != NULL) *lsplits = '\0'; j = 0; } else { /* get rid of stupid compiler warnings */ lsplits = NULL; j = l = 0; } for (i = 1; i < n; ++i) { next = ee->e_sibling; if (split_within_queue(ee) == SM_SPLIT_FAIL) { e->e_sibling = firstsibling; SM_FREE(lsplits); return false; } ee->e_flags |= EF_SPLIT; if (LogLevel > SPLIT_LOG_LEVEL && lsplits != NULL) { if (j >= l - strlen(ee->e_id) - 3) { char *p; l += MAXLINE; p = sm_realloc(lsplits, l); if (p == NULL) { /* let's try to get this done */ SM_FREE(lsplits); } else lsplits = p; } if (lsplits != NULL) { if (j == 0) j += sm_strlcat(lsplits + j, ee->e_id, l - j); else j += sm_strlcat2(lsplits + j, "; ", ee->e_id, l - j); SM_ASSERT(j < l); } } ee = next; } if (LogLevel > SPLIT_LOG_LEVEL && lsplits != NULL && n > 1) { sm_syslog(LOG_NOTICE, e->e_id, "split: count=%d, id%s=%s", n - 1, n > 2 ? "s" : "", lsplits); SM_FREE(lsplits); } split = split_within_queue(e) != SM_SPLIT_FAIL; if (split) e->e_flags |= EF_SPLIT; return split; } /* ** QUARANTINE_QUEUE_ITEM -- {un,}quarantine a single envelope ** ** Add/remove quarantine reason and requeue appropriately. ** ** Parameters: ** qgrp -- queue group for the item ** qdir -- queue directory in the given queue group ** e -- envelope information for the item ** reason -- quarantine reason, NULL means unquarantine. ** ** Returns: ** true if item changed, false otherwise ** ** Side Effects: ** Changes quarantine tag in queue file and renames it. */ static bool quarantine_queue_item(qgrp, qdir, e, reason) int qgrp; int qdir; ENVELOPE *e; char *reason; { bool dirty = false; bool failing = false; bool foundq = false; bool finished = false; int fd; int flags; int oldtype; int newtype; int save_errno; MODE_T oldumask = 0; SM_FILE_T *oldqfp, *tempqfp; char *bp; int bufsize; char oldqf[MAXPATHLEN]; char tempqf[MAXPATHLEN]; char newqf[MAXPATHLEN]; char buf[MAXLINE]; oldtype = queue_letter(e, ANYQFL_LETTER); (void) sm_strlcpy(oldqf, queuename(e, ANYQFL_LETTER), sizeof(oldqf)); (void) sm_strlcpy(tempqf, queuename(e, NEWQFL_LETTER), sizeof(tempqf)); /* ** Instead of duplicating all the open ** and lock code here, tell readqf() to ** do that work and return the open ** file pointer in e_lockfp. Note that ** we must release the locks properly when ** we are done. */ if (!readqf(e, true)) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Skipping %s\n", qid_printname(e)); return false; } oldqfp = e->e_lockfp; /* open the new queue file */ flags = O_CREAT|O_WRONLY|O_EXCL; if (bitset(S_IWGRP, QueueFileMode)) oldumask = umask(002); fd = open(tempqf, flags, QueueFileMode); if (bitset(S_IWGRP, QueueFileMode)) (void) umask(oldumask); RELEASE_QUEUE; if (fd < 0) { save_errno = errno; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Skipping %s: Could not open %s: %s\n", qid_printname(e), tempqf, sm_errstring(save_errno)); (void) sm_io_close(oldqfp, SM_TIME_DEFAULT); return false; } if (!lockfile(fd, tempqf, NULL, LOCK_EX|LOCK_NB)) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Skipping %s: Could not lock %s\n", qid_printname(e), tempqf); (void) close(fd); (void) sm_io_close(oldqfp, SM_TIME_DEFAULT); return false; } tempqfp = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &fd, SM_IO_WRONLY_B, NULL); if (tempqfp == NULL) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Skipping %s: Could not lock %s\n", qid_printname(e), tempqf); (void) close(fd); (void) sm_io_close(oldqfp, SM_TIME_DEFAULT); return false; } /* Copy the data over, changing the quarantine reason */ while (bufsize = sizeof(buf), (bp = fgetfolded(buf, &bufsize, oldqfp)) != NULL) { if (tTd(40, 4)) sm_dprintf("+++++ %s\n", bp); switch (bp[0]) { case 'q': /* quarantine reason */ foundq = true; if (reason == NULL) { if (Verbose) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s: Removed quarantine of \"%s\"\n", e->e_id, &bp[1]); } sm_syslog(LOG_INFO, e->e_id, "unquarantine"); dirty = true; } else if (strcmp(reason, &bp[1]) == 0) { if (Verbose) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s: Already quarantined with \"%s\"\n", e->e_id, reason); } (void) sm_io_fprintf(tempqfp, SM_TIME_DEFAULT, "q%s\n", reason); } else { if (Verbose) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s: Quarantine changed from \"%s\" to \"%s\"\n", e->e_id, &bp[1], reason); } (void) sm_io_fprintf(tempqfp, SM_TIME_DEFAULT, "q%s\n", reason); sm_syslog(LOG_INFO, e->e_id, "quarantine=%s", reason); dirty = true; } break; case 'S': /* ** If we are quarantining an unquarantined item, ** need to put in a new 'q' line before it's ** too late. */ if (!foundq && reason != NULL) { if (Verbose) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s: Quarantined with \"%s\"\n", e->e_id, reason); } (void) sm_io_fprintf(tempqfp, SM_TIME_DEFAULT, "q%s\n", reason); sm_syslog(LOG_INFO, e->e_id, "quarantine=%s", reason); foundq = true; dirty = true; } /* Copy the line to the new file */ (void) sm_io_fprintf(tempqfp, SM_TIME_DEFAULT, "%s\n", bp); break; case '.': finished = true; /* FALLTHROUGH */ default: /* Copy the line to the new file */ (void) sm_io_fprintf(tempqfp, SM_TIME_DEFAULT, "%s\n", bp); break; } if (bp != buf) sm_free(bp); } /* Make sure we read the whole old file */ errno = sm_io_error(tempqfp); if (errno != 0 && errno != SM_IO_EOF) { save_errno = errno; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Skipping %s: Error reading %s: %s\n", qid_printname(e), oldqf, sm_errstring(save_errno)); failing = true; } if (!failing && !finished) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Skipping %s: Incomplete file: %s\n", qid_printname(e), oldqf); failing = true; } /* Check if we actually changed anything or we can just bail now */ if (!dirty) { /* pretend we failed, even though we technically didn't */ failing = true; } /* Make sure we wrote things out safely */ if (!failing && (sm_io_flush(tempqfp, SM_TIME_DEFAULT) != 0 || ((SuperSafe == SAFE_REALLY || SuperSafe == SAFE_REALLY_POSTMILTER || SuperSafe == SAFE_INTERACTIVE) && fsync(sm_io_getinfo(tempqfp, SM_IO_WHAT_FD, NULL)) < 0) || ((errno = sm_io_error(tempqfp)) != 0))) { save_errno = errno; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Skipping %s: Error writing %s: %s\n", qid_printname(e), tempqf, sm_errstring(save_errno)); failing = true; } /* Figure out the new filename */ newtype = (reason == NULL ? NORMQF_LETTER : QUARQF_LETTER); if (oldtype == newtype) { /* going to rename tempqf to oldqf */ (void) sm_strlcpy(newqf, oldqf, sizeof(newqf)); } else { /* going to rename tempqf to new name based on newtype */ (void) sm_strlcpy(newqf, queuename(e, newtype), sizeof(newqf)); } save_errno = 0; /* rename tempqf to newqf */ if (!failing && rename(tempqf, newqf) < 0) save_errno = (errno == 0) ? EINVAL : errno; /* Check rename() success */ if (!failing && save_errno != 0) { sm_syslog(LOG_DEBUG, e->e_id, "quarantine_queue_item: rename(%s, %s): %s", tempqf, newqf, sm_errstring(save_errno)); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Error renaming %s to %s: %s\n", tempqf, newqf, sm_errstring(save_errno)); if (oldtype == newtype) { /* ** Bail here since we don't know the state of ** the filesystem and may need to keep tempqf ** for the user to rescue us. */ RELEASE_QUEUE; errno = save_errno; syserr("!452 Error renaming control file %s", tempqf); /* NOTREACHED */ } else { /* remove new file (if rename() half completed) */ if (xunlink(newqf) < 0) { save_errno = errno; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Error removing %s: %s\n", newqf, sm_errstring(save_errno)); } /* tempqf removed below */ failing = true; } } /* If changing file types, need to remove old type */ if (!failing && oldtype != newtype) { if (xunlink(oldqf) < 0) { save_errno = errno; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Error removing %s: %s\n", oldqf, sm_errstring(save_errno)); } } /* see if anything above failed */ if (failing) { /* Something failed: remove new file, old file still there */ (void) xunlink(tempqf); } /* ** fsync() after file operations to make sure metadata is ** written to disk on filesystems in which renames are ** not guaranteed. It's ok if they fail, mail won't be lost. */ if (SuperSafe != SAFE_NO) { /* for soft-updates */ (void) fsync(sm_io_getinfo(tempqfp, SM_IO_WHAT_FD, NULL)); if (!failing) { /* for soft-updates */ (void) fsync(sm_io_getinfo(oldqfp, SM_IO_WHAT_FD, NULL)); } /* for other odd filesystems */ SYNC_DIR(tempqf, false); } /* Close up shop */ RELEASE_QUEUE; if (tempqfp != NULL) (void) sm_io_close(tempqfp, SM_TIME_DEFAULT); if (oldqfp != NULL) (void) sm_io_close(oldqfp, SM_TIME_DEFAULT); /* All went well */ return !failing; } /* ** QUARANTINE_QUEUE -- {un,}quarantine matching items in the queue ** ** Read all matching queue items, add/remove quarantine ** reason, and requeue appropriately. ** ** Parameters: ** reason -- quarantine reason, "." means unquarantine. ** qgrplimit -- limit to single queue group unless NOQGRP ** ** Returns: ** none. ** ** Side Effects: ** Lots of changes to the queue. */ void quarantine_queue(reason, qgrplimit) char *reason; int qgrplimit; { int changed = 0; int qgrp; /* Convert internal representation of unquarantine */ if (reason != NULL && reason[0] == '.' && reason[1] == '\0') reason = NULL; if (reason != NULL) { /* clean it; leak does not matter: one time invocation */ reason = newstr(denlstring(reason, true, true)); } for (qgrp = 0; qgrp < NumQueue && Queue[qgrp] != NULL; qgrp++) { int qdir; if (qgrplimit != NOQGRP && qgrplimit != qgrp) continue; for (qdir = 0; qdir < Queue[qgrp]->qg_numqueues; qdir++) { int i; int nrequests; if (StopRequest) stop_sendmail(); nrequests = gatherq(qgrp, qdir, true, NULL, NULL, NULL); /* first see if there is anything */ if (nrequests <= 0) { if (Verbose) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s: no matches\n", qid_printqueue(qgrp, qdir)); } continue; } if (Verbose) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Processing %s:\n", qid_printqueue(qgrp, qdir)); } for (i = 0; i < WorkListCount; i++) { ENVELOPE e; if (StopRequest) stop_sendmail(); /* set up envelope */ clearenvelope(&e, true, sm_rpool_new_x(NULL)); e.e_id = WorkList[i].w_name + 2; e.e_qgrp = qgrp; e.e_qdir = qdir; if (tTd(70, 101)) { sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Would do %s\n", e.e_id); changed++; } else if (quarantine_queue_item(qgrp, qdir, &e, reason)) changed++; /* clean up */ sm_rpool_free(e.e_rpool); e.e_rpool = NULL; } if (WorkList != NULL) sm_free(WorkList); /* XXX */ WorkList = NULL; WorkListSize = 0; WorkListCount = 0; } } if (Verbose) { if (changed == 0) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "No changes\n"); else (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%d change%s\n", changed, changed == 1 ? "" : "s"); } } sendmail-8.18.1/sendmail/ratectrl.h0000644000372400037240000000770214556365350016562 0ustar xbuildxbuild/* * Copyright (c) 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * Contributed by Jose Marcio Martins da Cruz - Ecole des Mines de Paris * Jose-Marcio.Martins@ensmp.fr */ /* a part of this code is based on inetd.c for which this copyright applies: */ /* * Copyright (c) 1983, 1991, 1993, 1994 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #ifndef RATECTRL_H #define RATECTRL_H 1 #include /* ** stuff included - given some warnings (inet_ntoa) ** - surely not everything is needed */ #if NETINET || NETINET6 # include #endif #include #ifndef HASH_ALG # define HASH_ALG 2 #endif #ifndef RATECTL_DEBUG # define RATECTL_DEBUG 0 #endif /* this should be a power of 2, otherwise CPMHMASK doesn't work well */ #ifndef CPMHSIZE # define CPMHSIZE 1024 #endif #define CPMHMASK (CPMHSIZE-1) #define CHTSIZE 6 /* Number of connections for a certain "tick" */ typedef struct CTime { unsigned long ct_Ticks; int ct_Count; } CTime_T; typedef struct CHash { #if NETINET6 && NETINET union { struct in_addr c4_Addr; struct in6_addr c6_Addr; } cu_Addr; # define ch_Addr4 cu_Addr.c4_Addr # define ch_Addr6 cu_Addr.c6_Addr #else /* NETINET6 && NETINET */ # if NETINET6 struct in6_addr ch_Addr; # define ch_Addr6 ch_Addr # else /* NETINET6 */ struct in_addr ch_Addr; # define ch_Addr4 ch_Addr # endif /* NETINET6 */ #endif /* NETINET6 && NETINET */ int ch_Family; time_t ch_LTime; unsigned long ch_colls; /* 6 buckets for ticks: 60s */ CTime_T ch_Times[CHTSIZE]; #if _FFR_OCC int ch_oc; /* open connections */ #endif } CHash_T; #define SM_CLFL_NONE 0x00 #define SM_CLFL_UPDATE 0x01 #define SM_CLFL_EXC 0x02 /* check if limit is exceeded */ extern void connection_rate_check __P((SOCKADDR *, ENVELOPE *)); extern int conn_limits __P((ENVELOPE *, time_t, SOCKADDR *, int, CHash_T *, int, int)); extern bool occ_exceeded __P((ENVELOPE *, MCI *, const char *, SOCKADDR *)); extern bool occ_close __P((ENVELOPE *, MCI *, const char *, SOCKADDR *)); extern void dump_ch __P((SM_FILE_T *)); #endif /* ! RATECTRL_H */ sendmail-8.18.1/sendmail/macro.c0000644000372400037240000003750014556365350016035 0ustar xbuildxbuild/* * Copyright (c) 1998-2001, 2003, 2006, 2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: macro.c,v 8.108 2013-11-22 20:51:55 ca Exp $") #include #if MAXMACROID != (BITMAPBITS - 1) ERROR Read the comment in conf.h #endif static char *MacroName[MAXMACROID + 1]; /* macro id to name table */ /* ** Codes for long named macros. ** See also macname(): * if not ASCII printable, look up the name * if (n <= 0x20 || n > 0x7f) ** First use 1 to NEXTMACROID_L, then use NEXTMACROID_H to MAXMACROID. */ #define NEXTMACROID_L 037 #define NEXTMACROID_H 0240 #if _FFR_MORE_MACROS /* table for next id in non-printable ASCII range: disallow some value */ static int NextMIdTable[] = { /* 0 nul */ 1, /* 1 soh */ 2, /* 2 stx */ 3, /* 3 etx */ 4, /* 4 eot */ 5, /* 5 enq */ 6, /* 6 ack */ 7, /* 7 bel */ 8, /* 8 bs */ 14, /* 9 ht */ -1, /* 10 nl */ -1, /* 11 vt */ -1, /* 12 np */ -1, /* 13 cr */ -1, /* 14 so */ 15, /* 15 si */ 16, /* 16 dle */ 17, /* 17 dc1 */ 18, /* 18 dc2 */ 19, /* 19 dc3 */ 20, /* 20 dc4 */ 21, /* 21 nak */ 22, /* 22 syn */ 23, /* 23 etb */ 24, /* 24 can */ 25, /* 25 em */ 26, /* 26 sub */ 27, /* 27 esc */ 28, /* 28 fs */ 29, /* 29 gs */ 30, /* 30 rs */ 31, /* 31 us */ 32, /* 32 sp */ -1, }; #define NEXTMACROID(mid) ( \ (mid < NEXTMACROID_L) ? (NextMIdTable[mid]) : \ ((mid < NEXTMACROID_H) ? NEXTMACROID_H : (mid + 1))) int NextMacroId = 1; /* codes for long named macros */ /* see sendmail.h: Special characters in rewriting rules. */ #else /* _FFR_MORE_MACROS */ int NextMacroId = 0240; /* codes for long named macros */ #define NEXTMACROID(mid) ((mid) + 1) #endif /* _FFR_MORE_MACROS */ /* ** INITMACROS -- initialize the macro system ** ** This just involves defining some macros that are actually ** used internally as metasymbols to be themselves. ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** initializes several macros to be themselves. */ struct metamac MetaMacros[] = { /* LHS pattern matching characters */ { '*', MATCHZANY }, { '+', MATCHANY }, { '-', MATCHONE }, { '=', MATCHCLASS }, { '~', MATCHNCLASS }, /* these are RHS metasymbols */ { '#', CANONNET }, { '@', CANONHOST }, { ':', CANONUSER }, { '>', CALLSUBR }, /* the conditional operations */ { '?', CONDIF }, { '|', CONDELSE }, { '.', CONDFI }, /* the hostname lookup characters */ { '[', HOSTBEGIN }, { ']', HOSTEND }, { '(', LOOKUPBEGIN }, { ')', LOOKUPEND }, /* miscellaneous control characters */ { '&', MACRODEXPAND }, { '\0', '\0' } }; #define MACBINDING(name, mid) \ stab(name, ST_MACRO, ST_ENTER)->s_macro = mid; \ MacroName[mid] = name; void initmacros(e) ENVELOPE *e; { struct metamac *m; int c; char buf[5]; for (m = MetaMacros; m->metaname != '\0'; m++) { buf[0] = m->metaval; buf[1] = '\0'; macdefine(&e->e_macro, A_TEMP, m->metaname, buf); } buf[0] = MATCHREPL; buf[2] = '\0'; for (c = '0'; c <= '9'; c++) { buf[1] = c; macdefine(&e->e_macro, A_TEMP, c, buf); } /* set defaults for some macros sendmail will use later */ macdefine(&e->e_macro, A_PERM, 'n', "MAILER-DAEMON"); /* set up external names for some internal macros */ MACBINDING("opMode", MID_OPMODE); /*XXX should probably add equivalents for all short macros here XXX*/ } /* ** EXPAND/DOEXPAND -- macro expand a string using $x escapes. ** (including conditionals, e.g., $?x Y $| N $.) ** ** Parameters: ** s -- the string to expand. [i] ** buf -- the place to put the expansion. [i] ** bufsize -- the size of the buffer. ** explevel -- the depth of expansion (doexpand only) ** e -- envelope in which to work. ** ** Returns: ** none. */ static void doexpand __P(( char *, char *, size_t, int, ENVELOPE *)); static void doexpand(s, buf, bufsize, explevel, e) char *s; char *buf; size_t bufsize; int explevel; ENVELOPE *e; { char *xp; char *q; bool skipping; /* set if conditionally skipping output */ bool recurse; /* set if recursion required */ size_t i; int skiplev; /* skipping nesting level */ int iflev; /* if nesting level */ bool quotenext; /* quote the following character */ char xbuf[MACBUFSIZE]; if (tTd(35, 24)) { sm_dprintf("expand("); xputs(sm_debug_file(), s); sm_dprintf(")\n"); } recurse = false; skipping = false; skiplev = 0; iflev = 0; quotenext = false; if (s == NULL) s = ""; for (xp = xbuf; *s != '\0'; s++) { int c; /* ** Check for non-ordinary (special?) character. ** 'q' will be the interpolated quantity. */ q = NULL; c = *s & 0377; if (quotenext) { quotenext = false; goto simpleinterpolate; } switch (c) { case CONDIF: /* see if var set */ iflev++; c = *++s & 0377; if (skipping) skiplev++; else { char *mv; mv = macvalue(c, e); skipping = (mv == NULL || *mv == '\0'); } continue; case CONDELSE: /* change state of skipping */ if (iflev == 0) break; /* XXX: error */ if (skiplev == 0) skipping = !skipping; continue; case CONDFI: /* stop skipping */ if (iflev == 0) break; /* XXX: error */ iflev--; if (skiplev == 0) skipping = false; if (skipping) skiplev--; continue; case MACROEXPAND: /* macro interpolation */ c = bitidx(*++s); if (c != '\0') q = macvalue(c, e); else { s--; q = NULL; } if (q == NULL) continue; break; case METAQUOTE: /* next octet completely quoted */ quotenext = true; break; } /* ** Interpolate q or output one character */ simpleinterpolate: if (skipping || xp >= &xbuf[sizeof(xbuf) - 1]) continue; if (q == NULL) *xp++ = c; else { /* copy to end of q or max space remaining in buf */ bool hiderecurse = false; while ((c = *q++) != '\0' && xp < &xbuf[sizeof(xbuf) - 1]) { /* check for any sendmail metacharacters */ if (!hiderecurse && (c & 0340) == 0200) recurse = true; *xp++ = c; /* give quoted characters a free ride */ hiderecurse = (c & 0377) == METAQUOTE; } } } *xp = '\0'; if (tTd(35, 28)) { sm_dprintf("expand(%d) ==> ", explevel); xputs(sm_debug_file(), xbuf); sm_dprintf("\n"); } /* recurse as appropriate */ if (recurse) { if (explevel < MaxMacroRecursion) { doexpand(xbuf, buf, bufsize, explevel + 1, e); return; } syserr("expand: recursion too deep (%d max)", MaxMacroRecursion); } /* copy results out */ if (explevel == 0) (void) sm_strlcpy(buf, xbuf, bufsize); else { /* leave in internal form */ i = xp - xbuf; if (i >= bufsize) i = bufsize - 1; memmove(buf, xbuf, i); buf[i] = '\0'; } if (tTd(35, 24)) { sm_dprintf("expand ==> "); xputs(sm_debug_file(), buf); sm_dprintf("\n"); } } void expand(s, buf, bufsize, e) char *s; char *buf; size_t bufsize; ENVELOPE *e; { doexpand(s, buf, bufsize, 0, e); } /* ** MACTABCLEAR -- clear entire macro table ** ** Parameters: ** mac -- Macro table. ** ** Returns: ** none. ** ** Side Effects: ** clears entire mac structure including rpool pointer! */ void mactabclear(mac) MACROS_T *mac; { int i; if (mac->mac_rpool == NULL) { for (i = 0; i < MAXMACROID; i++) SM_FREE(mac->mac_table[i]); } memset((char *) mac, '\0', sizeof(*mac)); } /* ** MACDEFINE -- bind a macro name to a value ** ** Set a macro to a value, with fancy storage management. ** macdefine will make a copy of the value, if required, ** and will ensure that the storage for the previous value ** is not leaked. ** ** Parameters: ** mac -- Macro table. ** vclass -- storage class of 'value', ignored if value==NULL. ** A_HEAP means that the value was allocated by ** malloc, and that macdefine owns the storage. ** A_TEMP means that value points to temporary storage, ** and thus macdefine needs to make a copy. ** A_PERM means that value points to storage that ** will remain allocated and unchanged for ** at least the lifetime of mac. Use A_PERM if: ** -- value == NULL, ** -- value points to a string literal, ** -- value was allocated from mac->mac_rpool ** or (in the case of an envelope macro) ** from e->e_rpool, ** -- in the case of an envelope macro, ** value is a string member of the envelope ** such as e->e_sender. ** id -- Macro id. This is a single character macro name ** such as 'g', or a value returned by macid(). ** value -- Macro value: either NULL, or a string. ** ** Returns: ** none. */ void #if SM_HEAP_CHECK macdefine_tagged(mac, vclass, id, value, file, line, grp) #else macdefine(mac, vclass, id, value) #endif MACROS_T *mac; ARGCLASS_T vclass; int id; char *value; #if SM_HEAP_CHECK char *file; int line; int grp; #endif { char *newvalue; if (id < 0 || id > MAXMACROID) return; if (tTd(35, 9)) { sm_dprintf("%sdefine(%s as ", mac->mac_table[id] == NULL ? "" : "re", macname(id)); xputs(sm_debug_file(), value); sm_dprintf(")\n"); } #if USE_EAI && 0 // if (('j' == id || 'm' == id) && !addr_is_ascii(value)) // return an error/warning to caller and let them handle it. #endif if (mac->mac_rpool == NULL) { char *freeit = NULL; if (mac->mac_table[id] != NULL && bitnset(id, mac->mac_allocated)) freeit = mac->mac_table[id]; if (value == NULL || vclass == A_HEAP) { sm_heap_checkptr_tagged(value, file, line); newvalue = value; clrbitn(id, mac->mac_allocated); } else { #if SM_HEAP_CHECK newvalue = sm_strdup_tagged_x(value, file, line, 0); #else newvalue = sm_strdup_x(value); #endif setbitn(id, mac->mac_allocated); } mac->mac_table[id] = newvalue; if (freeit != NULL) sm_free(freeit); } else { if (value == NULL || vclass == A_PERM) newvalue = value; else newvalue = sm_rpool_strdup_x(mac->mac_rpool, value); mac->mac_table[id] = newvalue; if (vclass == A_HEAP) sm_free(value); } #if _FFR_RESET_MACRO_GLOBALS switch (id) { case 'j': PSTRSET(MyHostName, value); break; } #endif /* _FFR_RESET_MACRO_GLOBALS */ } /* ** MACSET -- set a named macro to a value (low level) ** ** No fancy storage management; the caller takes full responsibility. ** Often used with macget; see also macdefine. ** ** Parameters: ** mac -- Macro table. ** i -- Macro name, specified as an integer offset. ** value -- Macro value: either NULL, or a string. ** ** Returns: ** none. */ void macset(mac, i, value) MACROS_T *mac; int i; char *value; { if (i < 0 || i > MAXMACROID) return; if (tTd(35, 9)) { sm_dprintf("macset(%s as ", macname(i)); xputs(sm_debug_file(), value); sm_dprintf(")\n"); } mac->mac_table[i] = value; } /* ** MACVALUE -- return uninterpreted value of a macro. ** ** Does fancy path searching. ** The low level counterpart is macget. ** ** Parameters: ** n -- the name of the macro. ** e -- envelope in which to start looking for the macro. ** ** Returns: ** The value of n. ** ** Side Effects: ** none. */ char * macvalue(n, e) int n; ENVELOPE *e; { n = bitidx(n); if (e != NULL && e->e_mci != NULL) { char *p = e->e_mci->mci_macro.mac_table[n]; if (p != NULL) return p; } while (e != NULL) { char *p = e->e_macro.mac_table[n]; if (p != NULL) return p; if (e == e->e_parent) break; e = e->e_parent; } #if _FFR_BLANKENV_MACV if (LOOKUP_MACRO_IN_BLANKENV && e != &BlankEnvelope) { char *p = BlankEnvelope.e_macro.mac_table[n]; if (p != NULL) return p; } #endif return GlobalMacros.mac_table[n]; } /* ** MACNAME -- return the name of a macro given its internal id ** ** Parameter: ** n -- the id of the macro ** ** Returns: ** The name of n. ** ** Side Effects: ** none. ** ** WARNING: ** Not thread-safe. */ char * macname(n) int n; { static char mbuf[2]; n = (int)(unsigned char)n; if (n > MAXMACROID) return "***OUT OF RANGE MACRO***"; /* if not ASCII printable, look up the name */ if (n <= 0x20 || n > 0x7f) { char *p = MacroName[n]; if (p != NULL) return p; return "***UNDEFINED MACRO***"; } /* if in the ASCII graphic range, just return the id directly */ mbuf[0] = n; mbuf[1] = '\0'; return mbuf; } /* ** MACID_PARSE -- return id of macro identified by its name ** ** Parameters: ** p -- pointer to name string -- either a single ** character or {name}. ** ep -- filled in with the pointer to the byte ** after the name. ** ** Returns: ** 0 -- An error was detected. ** 1..MAXMACROID -- The internal id code for this macro. ** ** Side Effects: ** If this is a new macro name, a new id is allocated. ** On error, syserr is called. */ int macid_parse(p, ep) char *p; char **ep; { int mid; char *bp; char mbuf[MAXMACNAMELEN + 1]; if (tTd(35, 14)) { sm_dprintf("macid("); xputs(sm_debug_file(), p); sm_dprintf(") => "); } if (*p == '\0' || (p[0] == '{' && p[1] == '}')) { syserr("Name required for macro/class"); if (ep != NULL) *ep = p; if (tTd(35, 14)) sm_dprintf("NULL\n"); return 0; } if (*p != '{') { /* the macro is its own code */ if (ep != NULL) *ep = p + 1; if (tTd(35, 14)) { char buf[2]; buf[0] = *p; buf[1] = '\0'; xputs(sm_debug_file(), buf); sm_dprintf("\n"); } return bitidx(*p); } bp = mbuf; while (*++p != '\0' && *p != '}' && bp < &mbuf[sizeof(mbuf) - 1]) { if (isascii(*p) && (isalnum(*p) || *p == '_')) *bp++ = *p; else syserr("Invalid macro/class character %c", *p); } *bp = '\0'; mid = -1; if (*p == '\0') { syserr("Unbalanced { on %s", mbuf); /* missing } */ } else if (*p != '}') { syserr("Macro/class name ({%s}) too long (%d chars max)", mbuf, (int) (sizeof(mbuf) - 1)); } else if (mbuf[1] == '\0' && mbuf[0] >= 0x20) { /* ${x} == $x */ mid = bitidx(mbuf[0]); p++; } else { STAB *s; s = stab(mbuf, ST_MACRO, ST_ENTER); if (s->s_macro != 0) mid = s->s_macro; else { if (NextMacroId > MAXMACROID) { syserr("Macro/class {%s}: too many long names", mbuf); s->s_macro = -1; } else { MacroName[NextMacroId] = s->s_name; s->s_macro = mid = NextMacroId; NextMacroId = NEXTMACROID(NextMacroId); } } p++; } if (ep != NULL) *ep = p; if (mid < 0 || mid > MAXMACROID) { syserr("Unable to assign macro/class ID (mid = 0x%x)", mid); if (tTd(35, 14)) sm_dprintf("NULL\n"); return 0; } if (tTd(35, 14)) sm_dprintf("0x%x\n", mid); return mid; } /* ** WORDINCLASS -- tell if a word is in a specific class ** ** Parameters: ** str -- the name of the word to look up. ** cl -- the class name. ** ** Returns: ** true if str can be found in cl. ** false otherwise. */ bool wordinclass(str, cl) char *str; int cl; { STAB *s; #if _FFR_DYN_CLASS MAP *map; int status; char *p; char key[MAXLINE]; p = macname(cl); s = stab(p, ST_DYNMAP, ST_FIND); if (NULL == s) { #endif s = stab(str, ST_CLASS, ST_FIND); return s != NULL && bitnset(bitidx(cl), s->s_class); #if _FFR_DYN_CLASS } map = &s->s_dynclass; SM_REQUIRE(NULL != map); SM_REQUIRE(!SM_IS_EMPTY(str)); if (bitset(MF_OPENBOGUS, map->map_mflags)) { /* need to set some error! */ return false; } key[0] = '\0'; if (!SM_IS_EMPTY(map->map_tag)) { sm_strlcpy(key, map->map_tag, sizeof(key)); sm_strlcat(key, ":", sizeof(key)); } sm_strlcat(key, str, sizeof(key)); status = EX_OK; p = (map->map_class->map_lookup)(map, key, NULL, &status); if (NULL != p) return true; if ((EX_OK == status && NULL == p) || EX_NOTFOUND == status) return false; sm_syslog(LOG_WARNING, CurEnv->e_id, "dynamic class: A{%s}: map lookup failed: key=%s, status=%d", map->map_mname, key, status); /* Note: this error is shown to the client, so do not "leak" info */ usrerr("451 4.3.1 temporary error"); return false; #endif } sendmail-8.18.1/sendmail/convtime.c0000644000372400037240000000711414556365350016556 0ustar xbuildxbuild/* * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: convtime.c,v 8.40 2013-11-22 20:51:55 ca Exp $") #include /* ** CONVTIME -- convert time ** ** Takes a time as an ascii string with a trailing character ** giving units: ** s -- seconds ** m -- minutes ** h -- hours ** d -- days (default) ** w -- weeks ** For example, "3d12h" is three and a half days. ** ** Parameters: ** p -- pointer to ascii time. ** units -- default units if none specified. ** ** Returns: ** time in seconds. ** ** Side Effects: ** none. */ time_t convtime(p, units) char *p; int units; { register time_t t, r; register char c; bool pos = true; r = 0; if (SM_STRCASEEQ(p, "now")) return NOW; if (*p == '-') { pos = false; ++p; } while (*p != '\0') { t = 0; while ((c = *p++) != '\0' && isascii(c) && isdigit(c)) t = t * 10 + (c - '0'); if (c == '\0') { c = units; p--; } else if (strchr("wdhms", c) == NULL) { usrerr("Invalid time unit `%c'", c); c = units; } switch (c) { case 'w': /* weeks */ t *= 7; /* FALLTHROUGH */ case 'd': /* days */ /* FALLTHROUGH */ default: t *= 24; /* FALLTHROUGH */ case 'h': /* hours */ t *= 60; /* FALLTHROUGH */ case 'm': /* minutes */ t *= 60; /* FALLTHROUGH */ case 's': /* seconds */ break; } r += t; } return pos ? r : -r; } /* ** PINTVL -- produce printable version of a time interval ** ** Parameters: ** intvl -- the interval to be converted ** brief -- if true, print this in an extremely compact form ** (basically used for logging). ** ** Returns: ** A pointer to a string version of intvl suitable for ** printing or framing. ** ** Side Effects: ** none. ** ** Warning: ** The string returned is in a static buffer. */ #define PLURAL(n) ((n) == 1 ? "" : "s") char * pintvl(intvl, brief) time_t intvl; bool brief; { static char buf[256]; register char *p; int wk, dy, hr, mi, se; if (intvl == 0 && !brief) return "zero seconds"; if (intvl == NOW) return "too long"; /* decode the interval into weeks, days, hours, minutes, seconds */ se = intvl % 60; intvl /= 60; mi = intvl % 60; intvl /= 60; hr = intvl % 24; intvl /= 24; if (brief) { dy = intvl; wk = 0; } else { dy = intvl % 7; intvl /= 7; wk = intvl; } /* now turn it into a sexy form */ p = buf; if (brief) { if (dy > 0) { (void) sm_snprintf(p, SPACELEFT(buf, p), "%d+", dy); p += strlen(p); } (void) sm_snprintf(p, SPACELEFT(buf, p), "%02d:%02d:%02d", hr, mi, se); return buf; } /* use the verbose form */ if (wk > 0) { (void) sm_snprintf(p, SPACELEFT(buf, p), ", %d week%s", wk, PLURAL(wk)); p += strlen(p); } if (dy > 0) { (void) sm_snprintf(p, SPACELEFT(buf, p), ", %d day%s", dy, PLURAL(dy)); p += strlen(p); } if (hr > 0) { (void) sm_snprintf(p, SPACELEFT(buf, p), ", %d hour%s", hr, PLURAL(hr)); p += strlen(p); } if (mi > 0) { (void) sm_snprintf(p, SPACELEFT(buf, p), ", %d minute%s", mi, PLURAL(mi)); p += strlen(p); } if (se > 0) { (void) sm_snprintf(p, SPACELEFT(buf, p), ", %d second%s", se, PLURAL(se)); p += strlen(p); } return (buf + 2); } sendmail-8.18.1/sendmail/version.c0000644000372400037240000000103314556365350016411 0ustar xbuildxbuild/* * Copyright (c) 1998-2016 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: version.c,v 8.250 2014-01-27 12:55:16 ca Exp $") char Version[] = "8.18.1"; sendmail-8.18.1/sendmail/tls.c0000644000372400037240000022410714556365350015537 0ustar xbuildxbuild/* * Copyright (c) 2000-2006, 2008, 2009, 2011, 2013-2016 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: tls.c,v 8.127 2013-11-27 02:51:11 gshapiro Exp $") #if STARTTLS # include # include # include # ifndef HASURANDOMDEV # include # endif # include # if _FFR_TLS_ALTNAMES # include # endif # include # if defined(OPENSSL_VERSION_NUMBER) && OPENSSL_VERSION_NUMBER <= 0x00907000L # error "OpenSSL versions <= 0x00907000L are unsupported." # endif # if DANE && OPENSSL_VERSION_NUMBER == 0x30200000L # error OpenSSL 3.2.0 has a bug related to DANE # error see https://github.com/openssl/openssl/pull/22821 # endif /* ** *SSL version numbers: ** OpenSSL 0.9 - 1.1 (so far), 3.[012] ** LibreSSL 2.0 (0x20000000L - part of "These will never change") */ # if (OPENSSL_VERSION_NUMBER >= 0x10100000L && OPENSSL_VERSION_NUMBER < 0x20000000L) || OPENSSL_VERSION_NUMBER >= 0x30000000L || (defined(LIBRESSL_VERSION_NUMBER) && LIBRESSL_VERSION_NUMBER >= 0x2070000fL) # define MTA_HAVE_DH_set0_pqg 1 # define MTA_HAVE_DSA_GENERATE_EX 1 # define MTA_HAVE_OPENSSL_init_ssl 1 # define MTA_ASN1_STRING_data ASN1_STRING_get0_data # include # include # else # define X509_STORE_CTX_get0_cert(ctx) (ctx)->cert # define MTA_RSA_TMP_CB 1 # define MTA_ASN1_STRING_data ASN1_STRING_data # endif /* Is this ok or use HAVE_SSL_get1_peer_certificate instead? */ #if OPENSSL_VERSION_NUMBER >= 0x30000000L # define MTA_SSL_get_peer_certificate SSL_get1_peer_certificate # ifndef HAVE_ERR_get_error_all # define HAVE_ERR_get_error_all 1 # endif /* use SSL_CTX_set_dh_auto()? which versions provide it? */ # define MTA_DH_AUTO 1 #else # define MTA_SSL_get_peer_certificate SSL_get_peer_certificate # define MTA_DH_AUTO 0 #endif #if HAVE_ERR_get_error_all # define MTA_SSL_ERR_get(f, l, d, fl, fct) ERR_get_error_all(f, l, fct, d, fl) #else /* if HAVE_ERR_get_error_line_data ? */ # define MTA_SSL_ERR_get(f, l, d, fl, fct) ERR_get_error_line_data(f, l, d, fl) #endif # if !TLS_NO_RSA && MTA_RSA_TMP_CB static RSA *rsa_tmp = NULL; /* temporary RSA key */ static RSA *tmp_rsa_key __P((SSL *, int, int)); # endif static int tls_verify_cb __P((X509_STORE_CTX *, void *)); static int x509_verify_cb __P((int, X509_STORE_CTX *)); static void apps_ssl_info_cb __P((const SSL *, int, int)); static bool tls_ok_f __P((char *, char *, int)); static bool tls_safe_f __P((char *, long, bool)); static int tls_verify_log __P((int, X509_STORE_CTX *, const char *)); int TLSsslidx = -1; # if !NO_DH # include static DH *get_dh512 __P((void)); static unsigned char dh512_p[] = { 0xDA,0x58,0x3C,0x16,0xD9,0x85,0x22,0x89,0xD0,0xE4,0xAF,0x75, 0x6F,0x4C,0xCA,0x92,0xDD,0x4B,0xE5,0x33,0xB8,0x04,0xFB,0x0F, 0xED,0x94,0xEF,0x9C,0x8A,0x44,0x03,0xED,0x57,0x46,0x50,0xD3, 0x69,0x99,0xDB,0x29,0xD7,0x76,0x27,0x6B,0xA2,0xD3,0xD4,0x12, 0xE2,0x18,0xF4,0xDD,0x1E,0x08,0x4C,0xF6,0xD8,0x00,0x3E,0x7C, 0x47,0x74,0xE8,0x33 }; static unsigned char dh512_g[] = { 0x02 }; static DH * get_dh512() { DH *dh = NULL; # if MTA_HAVE_DH_set0_pqg BIGNUM *dhp_bn, *dhg_bn; # endif if ((dh = DH_new()) == NULL) return NULL; # if MTA_HAVE_DH_set0_pqg dhp_bn = BN_bin2bn(dh512_p, sizeof (dh512_p), NULL); dhg_bn = BN_bin2bn(dh512_g, sizeof (dh512_g), NULL); if (dhp_bn == NULL || dhg_bn == NULL || !DH_set0_pqg(dh, dhp_bn, NULL, dhg_bn)) { DH_free(dh); BN_free(dhp_bn); BN_free(dhg_bn); return NULL; } # else dh->p = BN_bin2bn(dh512_p, sizeof(dh512_p), NULL); dh->g = BN_bin2bn(dh512_g, sizeof(dh512_g), NULL); if ((dh->p == NULL) || (dh->g == NULL)) { DH_free(dh); return NULL; } # endif return dh; } # if 0 This is the data from which the C code has been generated: -----BEGIN DH PARAMETERS----- MIIBCAKCAQEArDcgcLpxEksQHPlolRKCUJ2szKRziseWV9cUSQNZGxoGw7KkROz4 HF9QSbg5axyNIG+QbZYtx0jp3l6/GWq1dLOj27yZkgYgaYgFrvKPiZ2jJ5xETQVH UpZwbjRcyjyWkWYJVsx1aF4F/iY4kT0n/+iGEoimI3C9V3KXTJ2S6jIkyJ6M/CrN EtrDynMlUMGlc7S1ouXVOTrtKeqy3S2L9eBLxVI+sChEijGIfELupdVeXihK006p MgnABPDbkTx6OOtYmSZaGQX+OLW2FPmwvcrzgCz9t9cAsuUcBZv1LeHEqZZttyLU oK0jjSXgFyeU4/NfyA+zuNeWzUL6bHmigwIBAg== -----END DH PARAMETERS----- # endif /* 0 */ static DH * get_dh2048() { static unsigned char dh2048_p[]={ 0xAC,0x37,0x20,0x70,0xBA,0x71,0x12,0x4B,0x10,0x1C,0xF9,0x68, 0x95,0x12,0x82,0x50,0x9D,0xAC,0xCC,0xA4,0x73,0x8A,0xC7,0x96, 0x57,0xD7,0x14,0x49,0x03,0x59,0x1B,0x1A,0x06,0xC3,0xB2,0xA4, 0x44,0xEC,0xF8,0x1C,0x5F,0x50,0x49,0xB8,0x39,0x6B,0x1C,0x8D, 0x20,0x6F,0x90,0x6D,0x96,0x2D,0xC7,0x48,0xE9,0xDE,0x5E,0xBF, 0x19,0x6A,0xB5,0x74,0xB3,0xA3,0xDB,0xBC,0x99,0x92,0x06,0x20, 0x69,0x88,0x05,0xAE,0xF2,0x8F,0x89,0x9D,0xA3,0x27,0x9C,0x44, 0x4D,0x05,0x47,0x52,0x96,0x70,0x6E,0x34,0x5C,0xCA,0x3C,0x96, 0x91,0x66,0x09,0x56,0xCC,0x75,0x68,0x5E,0x05,0xFE,0x26,0x38, 0x91,0x3D,0x27,0xFF,0xE8,0x86,0x12,0x88,0xA6,0x23,0x70,0xBD, 0x57,0x72,0x97,0x4C,0x9D,0x92,0xEA,0x32,0x24,0xC8,0x9E,0x8C, 0xFC,0x2A,0xCD,0x12,0xDA,0xC3,0xCA,0x73,0x25,0x50,0xC1,0xA5, 0x73,0xB4,0xB5,0xA2,0xE5,0xD5,0x39,0x3A,0xED,0x29,0xEA,0xB2, 0xDD,0x2D,0x8B,0xF5,0xE0,0x4B,0xC5,0x52,0x3E,0xB0,0x28,0x44, 0x8A,0x31,0x88,0x7C,0x42,0xEE,0xA5,0xD5,0x5E,0x5E,0x28,0x4A, 0xD3,0x4E,0xA9,0x32,0x09,0xC0,0x04,0xF0,0xDB,0x91,0x3C,0x7A, 0x38,0xEB,0x58,0x99,0x26,0x5A,0x19,0x05,0xFE,0x38,0xB5,0xB6, 0x14,0xF9,0xB0,0xBD,0xCA,0xF3,0x80,0x2C,0xFD,0xB7,0xD7,0x00, 0xB2,0xE5,0x1C,0x05,0x9B,0xF5,0x2D,0xE1,0xC4,0xA9,0x96,0x6D, 0xB7,0x22,0xD4,0xA0,0xAD,0x23,0x8D,0x25,0xE0,0x17,0x27,0x94, 0xE3,0xF3,0x5F,0xC8,0x0F,0xB3,0xB8,0xD7,0x96,0xCD,0x42,0xFA, 0x6C,0x79,0xA2,0x83, }; static unsigned char dh2048_g[]={ 0x02, }; DH *dh; # if MTA_HAVE_DH_set0_pqg BIGNUM *dhp_bn, *dhg_bn; # endif if ((dh=DH_new()) == NULL) return(NULL); # if MTA_HAVE_DH_set0_pqg dhp_bn = BN_bin2bn(dh2048_p, sizeof (dh2048_p), NULL); dhg_bn = BN_bin2bn(dh2048_g, sizeof (dh2048_g), NULL); if (dhp_bn == NULL || dhg_bn == NULL || !DH_set0_pqg(dh, dhp_bn, NULL, dhg_bn)) { DH_free(dh); BN_free(dhp_bn); BN_free(dhg_bn); return NULL; } # else dh->p=BN_bin2bn(dh2048_p,sizeof(dh2048_p),NULL); dh->g=BN_bin2bn(dh2048_g,sizeof(dh2048_g),NULL); if ((dh->p == NULL) || (dh->g == NULL)) { DH_free(dh); return(NULL); } # endif return(dh); } # endif /* !NO_DH */ /* ** TLS_RAND_INIT -- initialize STARTTLS random generator ** ** Parameters: ** randfile -- name of file with random data ** logl -- loglevel ** ** Returns: ** success/failure ** ** Side Effects: ** initializes PRNG for tls library. */ # define MIN_RAND_BYTES 128 /* 1024 bits */ # define RF_OK 0 /* randfile OK */ # define RF_MISS 1 /* randfile == NULL || *randfile == '\0' */ # define RF_UNKNOWN 2 /* unknown prefix for randfile */ # define RI_NONE 0 /* no init yet */ # define RI_SUCCESS 1 /* init was successful */ # define RI_FAIL 2 /* init failed */ static bool tls_rand_init __P((char *, int)); static bool tls_rand_init(randfile, logl) char *randfile; int logl; { # ifndef HASURANDOMDEV /* not required if /dev/urandom exists, OpenSSL does it internally */ bool ok; int randdef; static int done = RI_NONE; /* ** initialize PRNG */ /* did we try this before? if yes: return old value */ if (done != RI_NONE) return done == RI_SUCCESS; /* set default values */ ok = false; done = RI_FAIL; randdef = (SM_IS_EMPTY(randfile)) ? RF_MISS : RF_OK; # if EGD if (randdef == RF_OK && sm_strncasecmp(randfile, "egd:", 4) == 0) { randfile += 4; if (RAND_egd(randfile) < 0) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS: RAND_egd(%s) failed: random number generator not seeded", randfile); } else ok = true; } else # endif /* EGD */ /* "else" in #if code above */ if (randdef == RF_OK && sm_strncasecmp(randfile, "file:", 5) == 0) { int fd; long sff; struct stat st; randfile += 5; sff = SFF_SAFEDIRPATH | SFF_NOWLINK | SFF_NOGWFILES | SFF_NOWWFILES | SFF_NOGRFILES | SFF_NOWRFILES | SFF_MUSTOWN | SFF_ROOTOK | SFF_OPENASROOT; if (DontLockReadFiles) sff |= SFF_NOLOCK; if ((fd = safeopen(randfile, O_RDONLY, 0, sff)) >= 0) { if (fstat(fd, &st) < 0) { if (LogLevel > logl) sm_syslog(LOG_ERR, NOQID, "STARTTLS: can't fstat(%s)", randfile); } else { bool use, problem; use = true; problem = false; /* max. age of file: 10 minutes */ if (st.st_mtime + 600 < curtime()) { use = bitnset(DBS_INSUFFICIENTENTROPY, DontBlameSendmail); problem = true; if (LogLevel > logl) sm_syslog(LOG_ERR, NOQID, "STARTTLS: RandFile %s too old: %s", randfile, use ? "unsafe" : "unusable"); } if (use && st.st_size < MIN_RAND_BYTES) { use = bitnset(DBS_INSUFFICIENTENTROPY, DontBlameSendmail); problem = true; if (LogLevel > logl) sm_syslog(LOG_ERR, NOQID, "STARTTLS: size(%s) < %d: %s", randfile, MIN_RAND_BYTES, use ? "unsafe" : "unusable"); } if (use) ok = RAND_load_file(randfile, -1) >= MIN_RAND_BYTES; if (use && !ok) { if (LogLevel > logl) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: RAND_load_file(%s) failed: random number generator not seeded", randfile); } if (problem) ok = false; } if (ok || bitnset(DBS_INSUFFICIENTENTROPY, DontBlameSendmail)) { /* add this even if fstat() failed */ RAND_seed((void *) &st, sizeof(st)); } (void) close(fd); } else { if (LogLevel > logl) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: Warning: safeopen(%s) failed", randfile); } } else if (randdef == RF_OK) { if (LogLevel > logl) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: Error: no proper random file definition %s", randfile); randdef = RF_UNKNOWN; } if (randdef == RF_MISS) { if (LogLevel > logl) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: Error: missing random file definition"); } if (!ok && bitnset(DBS_INSUFFICIENTENTROPY, DontBlameSendmail)) { int i; long r; unsigned char buf[MIN_RAND_BYTES]; /* assert((MIN_RAND_BYTES % sizeof(long)) == 0); */ for (i = 0; i <= sizeof(buf) - sizeof(long); i += sizeof(long)) { r = get_random(); (void) memcpy(buf + i, (void *) &r, sizeof(long)); } RAND_seed(buf, sizeof(buf)); if (LogLevel > logl) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: Warning: random number generator not properly seeded"); ok = true; } done = ok ? RI_SUCCESS : RI_FAIL; return ok; # else /* ! HASURANDOMDEV */ return true; # endif /* ! HASURANDOMDEV */ } /* ** INIT_TLS_LIBRARY -- Calls functions which set up TLS library for global use. ** ** Parameters: ** fipsmode -- use FIPS? ** ** Returns: ** 0: OK ** <0: perm.fail ** >0: fail but can continue */ int init_tls_library(fipsmode) bool fipsmode; { bool bv; # if _FFR_FIPSMODE if (fipsmode && CertFingerprintAlgorithm == NULL) CertFingerprintAlgorithm = "sha1"; # if OPENSSL_VERSION_NUMBER >= 0x30000000L if (LogLevel > 12) sm_syslog(LOG_DEBUG, NOQID, "fipsmode=%d, evp_is_FIPS=%d", fipsmode, EVP_default_properties_is_fips_enabled(NULL)); # endif # endif /* _FFR_FIPSMODE */ /* ** OPENSSL_init_ssl(3): "As of version 1.1.0 OpenSSL will ** automatically allocate all resources that it needs ** so no explicit initialisation is required." */ # if !MTA_HAVE_OPENSSL_init_ssl /* basic TLS initialization, ignore result for now */ SSL_library_init(); SSL_load_error_strings(); OpenSSL_add_all_algorithms(); # endif bv = true; if (TLSsslidx < 0) { TLSsslidx = SSL_get_ex_new_index(0, 0, 0, 0, 0); if (TLSsslidx < 0) { if (LogLevel > 0) sm_syslog(LOG_ERR, NOQID, "STARTTLS=init, SSL_get_ex_new_index=%d", TLSsslidx); bv = false; } } if (bv) bv = tls_rand_init(RandFile, 7); # if _FFR_FIPSMODE && OPENSSL_VERSION_NUMBER < 0x30000000L if (bv && fipsmode) { if (!FIPS_mode_set(1)) { unsigned long err; err = ERR_get_error(); if (LogLevel > 0) sm_syslog(LOG_ERR, NOQID, "STARTTLS=init, FIPSMode=%s", ERR_error_string(err, NULL)); return -1; } else if (LogLevel > 9) { sm_syslog(LOG_INFO, NOQID, "STARTTLS=init, FIPSMode=ok"); } } # endif /* _FFR_FIPSMODE && OPENSSL_VERSION_NUMBER < 0x30000000L */ if (!TLS_set_engine(SSLEngine, true)) { if (LogLevel > 0) sm_syslog(LOG_ERR, NOQID, "STARTTLS=init, engine=%s, TLS_set_engine=failed", SSLEngine); return -1; } if (bv && CertFingerprintAlgorithm != NULL) { const EVP_MD *md; md = EVP_get_digestbyname(CertFingerprintAlgorithm); if (NULL == md) { bv = false; if (LogLevel > 0) sm_syslog(LOG_ERR, NOQID, "STARTTLS=init, CertFingerprintAlgorithm=%s, status=invalid" , CertFingerprintAlgorithm); } else EVP_digest = md; } return bv ? 0 : 1; } /* ** TLS_SET_VERIFY -- request client certificate? ** ** Parameters: ** ctx -- TLS context ** ssl -- TLS session context ** vrfy -- request certificate? ** ** Returns: ** none. ** ** Side Effects: ** Sets verification state for TLS ** # if TLS_VRFY_PER_CTX ** Notice: ** This is per TLS context, not per TLS structure; ** the former is global, the latter per connection. ** It would be nice to do this per connection, but this ** doesn't work in the current TLS libraries :-( # endif * TLS_VRFY_PER_CTX * */ void tls_set_verify(ctx, ssl, vrfy) SSL_CTX *ctx; SSL *ssl; bool vrfy; { # if !TLS_VRFY_PER_CTX SSL_set_verify(ssl, vrfy ? SSL_VERIFY_PEER : SSL_VERIFY_NONE, NULL); # else SSL_CTX_set_verify(ctx, vrfy ? SSL_VERIFY_PEER : SSL_VERIFY_NONE, NULL); # endif } /* ** status in initialization ** these flags keep track of the status of the initialization ** i.e., whether a file exists (_EX) and whether it can be used (_OK) ** [due to permissions] */ # define TLS_S_NONE 0x00000000 /* none yet */ # define TLS_S_CERT_EX 0x00000001 /* cert file exists */ # define TLS_S_CERT_OK 0x00000002 /* cert file is ok */ # define TLS_S_KEY_EX 0x00000004 /* key file exists */ # define TLS_S_KEY_OK 0x00000008 /* key file is ok */ # define TLS_S_CERTP_EX 0x00000010 /* CA cert path exists */ # define TLS_S_CERTP_OK 0x00000020 /* CA cert path is ok */ # define TLS_S_CERTF_EX 0x00000040 /* CA cert file exists */ # define TLS_S_CERTF_OK 0x00000080 /* CA cert file is ok */ # define TLS_S_CRLF_EX 0x00000100 /* CRL file exists */ # define TLS_S_CRLF_OK 0x00000200 /* CRL file is ok */ # define TLS_S_CERT2_EX 0x00001000 /* 2nd cert file exists */ # define TLS_S_CERT2_OK 0x00002000 /* 2nd cert file is ok */ # define TLS_S_KEY2_EX 0x00004000 /* 2nd key file exists */ # define TLS_S_KEY2_OK 0x00008000 /* 2nd key file is ok */ # define TLS_S_DH_OK 0x00200000 /* DH cert is ok */ # define TLS_S_DHPAR_EX 0x00400000 /* DH param file exists */ # define TLS_S_DHPAR_OK 0x00800000 /* DH param file is ok to use */ /* Type of variable */ # define TLS_T_OTHER 0 # define TLS_T_SRV 1 # define TLS_T_CLT 2 /* ** TLS_OK_F -- can var be an absolute filename? ** ** Parameters: ** var -- filename ** fn -- what is the filename used for? ** type -- type of variable ** ** Returns: ** ok? */ static bool tls_ok_f(var, fn, type) char *var; char *fn; int type; { /* must be absolute pathname */ if (var != NULL && *var == '/') return true; if (LogLevel > 12) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: %s%s missing", type == TLS_T_SRV ? "Server" : (type == TLS_T_CLT ? "Client" : ""), fn); return false; } /* ** TLS_SAFE_F -- is a file safe to use? ** ** Parameters: ** var -- filename ** sff -- flags for safefile() ** srv -- server side? ** ** Returns: ** ok? */ static bool tls_safe_f(var, sff, srv) char *var; long sff; bool srv; { int ret; if ((ret = safefile(var, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR, NULL)) == 0) return true; if (LogLevel > 7) sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s: file %s unsafe: %s", srv ? "server" : "client", var, sm_errstring(ret)); return false; } /* ** TLS_OK_F -- macro to simplify calls to tls_ok_f ** ** Parameters: ** var -- filename ** fn -- what is the filename used for? ** req -- is the file required? ** st -- status bit to set if ok ** type -- type of variable ** ** Side Effects: ** uses r, ok; may change ok and status. ** */ # define TLS_OK_F(var, fn, req, st, type) if (ok) \ { \ r = tls_ok_f(var, fn, type); \ if (r) \ status |= st; \ else if (req) \ ok = false; \ } /* ** TLS_UNR -- macro to return whether a file should be unreadable ** ** Parameters: ** bit -- flag to test ** req -- flags ** ** Returns: ** 0/SFF_NORFILES */ # define TLS_UNR(bit, req) (bitset(bit, req) ? SFF_NORFILES : 0) # define TLS_OUNR(bit, req) (bitset(bit, req) ? SFF_NOWRFILES : 0) # define TLS_KEYSFF(req) \ (bitnset(DBS_GROUPREADABLEKEYFILE, DontBlameSendmail) ? \ TLS_OUNR(TLS_I_KEY_OUNR, req) : \ TLS_UNR(TLS_I_KEY_UNR, req)) /* ** TLS_SAFE_F -- macro to simplify calls to tls_safe_f ** ** Parameters: ** var -- filename ** sff -- flags for safefile() ** req -- is the file required? ** ex -- does the file exist? ** st -- status bit to set if ok ** srv -- server side? ** ** Side Effects: ** uses r, ok, ex; may change ok and status. ** */ # define TLS_SAFE_F(var, sff, req, ex, st, srv) if (ex && ok) \ { \ r = tls_safe_f(var, sff, srv); \ if (r) \ status |= st; \ else if (req) \ ok = false; \ } /* ** LOAD_CERTKEY -- load cert/key for TLS session ** ** Parameters: ** ssl -- TLS session context ** srv -- server side? ** certfile -- filename of certificate ** keyfile -- filename of private key ** ** Returns: ** succeeded? */ bool load_certkey(ssl, srv, certfile, keyfile) SSL *ssl; bool srv; char *certfile; char *keyfile; { bool ok; int r; long sff, status; unsigned long req; char *who; ok = true; who = srv ? "server" : "client"; status = TLS_S_NONE; req = TLS_I_CERT_EX|TLS_I_KEY_EX; TLS_OK_F(certfile, "CertFile", bitset(TLS_I_CERT_EX, req), TLS_S_CERT_EX, srv ? TLS_T_SRV : TLS_T_CLT); TLS_OK_F(keyfile, "KeyFile", bitset(TLS_I_KEY_EX, req), TLS_S_KEY_EX, srv ? TLS_T_SRV : TLS_T_CLT); /* certfile etc. must be "safe". */ sff = SFF_REGONLY | SFF_SAFEDIRPATH | SFF_NOWLINK | SFF_NOGWFILES | SFF_NOWWFILES | SFF_ROOTOK | SFF_OPENASROOT; if (!bitnset(DBS_CERTOWNER, DontBlameSendmail)) sff |= SFF_MUSTOWN; if (DontLockReadFiles) sff |= SFF_NOLOCK; TLS_SAFE_F(certfile, sff | TLS_UNR(TLS_I_CERT_UNR, req), bitset(TLS_I_CERT_EX, req), bitset(TLS_S_CERT_EX, status), TLS_S_CERT_OK, srv); TLS_SAFE_F(keyfile, sff | TLS_KEYSFF(req), bitset(TLS_I_KEY_EX, req), bitset(TLS_S_KEY_EX, status), TLS_S_KEY_OK, srv); # define SSL_use_cert(ssl, certfile) \ SSL_use_certificate_file(ssl, certfile, SSL_FILETYPE_PEM) # define SSL_USE_CERT "SSL_use_certificate_file" if (bitset(TLS_S_CERT_OK, status) && SSL_use_cert(ssl, certfile) <= 0) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: %s(%s) failed", who, SSL_USE_CERT, certfile); tlslogerr(LOG_WARNING, 9, who); } if (bitset(TLS_I_USE_CERT, req)) return false; } if (bitset(TLS_S_KEY_OK, status) && SSL_use_PrivateKey_file(ssl, keyfile, SSL_FILETYPE_PEM) <= 0) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_use_PrivateKey_file(%s) failed", who, keyfile); tlslogerr(LOG_WARNING, 9, who); } if (bitset(TLS_I_USE_KEY, req)) return false; } /* check the private key */ if (bitset(TLS_S_KEY_OK, status) && (r = SSL_check_private_key(ssl)) <= 0) { /* Private key does not match the certificate public key */ if (LogLevel > 5) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_check_private_key failed(%s): %d", who, keyfile, r); tlslogerr(LOG_WARNING, 9, who); } if (bitset(TLS_I_USE_KEY, req)) return false; } return true; } /* ** LOAD_CRLFILE -- load a file holding a CRL into the TLS context ** ** Parameters: ** ctx -- TLS context ** srv -- server side? ** filename -- filename of CRL ** ** Returns: ** succeeded? */ static bool load_crlfile __P((SSL_CTX *, bool, char *)); static bool load_crlfile(ctx, srv, filename) SSL_CTX *ctx; bool srv; char *filename; { char *who; BIO *crl_file; X509_CRL *crl; X509_STORE *store; who = srv ? "server" : "client"; crl_file = BIO_new(BIO_s_file()); if (crl_file == NULL) { if (LogLevel > 9) sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: BIO_new=failed", who); return false; } if (BIO_read_filename(crl_file, filename) < 0) { if (LogLevel > 9) sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: BIO_read_filename(%s)=failed", who, filename); /* avoid memory leaks */ BIO_free(crl_file); return false; } crl = PEM_read_bio_X509_CRL(crl_file, NULL, NULL, NULL); if (crl == NULL) { if (LogLevel > 9) sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: PEM_read_bio_X509_CRL(%s)=failed", who, filename); BIO_free(crl_file); return true; /* XXX should probably be 'false' */ } BIO_free(crl_file); /* get a pointer to the current certificate validation store */ store = SSL_CTX_get_cert_store(ctx); /* does not fail */ if (X509_STORE_add_crl(store, crl) == 0) { if (LogLevel > 9) sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: X509_STORE_add_crl=failed", who); X509_CRL_free(crl); return false; } X509_CRL_free(crl); X509_STORE_set_flags(store, X509_V_FLAG_CRL_CHECK|X509_V_FLAG_CRL_CHECK_ALL); X509_STORE_set_verify_cb_func(store, x509_verify_cb); return true; } /* ** LOAD_CRLPATH -- configure the TLS context to lookup CRLs in a directory ** ** Parameters: ** ctx -- TLS context ** srv -- server side? ** path -- path of hashed directory of CRLs ** ** Returns: ** succeeded? */ static bool load_crlpath __P((SSL_CTX *, bool, char *)); static bool load_crlpath(ctx, srv, path) SSL_CTX *ctx; bool srv; char *path; { char *who; X509_STORE *store; X509_LOOKUP *lookup; who = srv ? "server" : "client"; /* get a pointer to the current certificate validation store */ store = SSL_CTX_get_cert_store(ctx); /* does not fail */ lookup = X509_STORE_add_lookup(store, X509_LOOKUP_hash_dir()); if (lookup == NULL) { if (LogLevel > 9) sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: X509_STORE_add_lookup(hash)=failed", who); return false; } if (X509_LOOKUP_add_dir(lookup, path, X509_FILETYPE_PEM) == 0) { if (LogLevel > 9) sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: X509_LOOKUP_add_dir(%s)=failed", who, path); return false; } X509_STORE_set_flags(store, X509_V_FLAG_CRL_CHECK|X509_V_FLAG_CRL_CHECK_ALL); X509_STORE_set_verify_cb_func(store, x509_verify_cb); return true; } /* ** INITTLS -- initialize TLS ** ** Parameters: ** ctx -- pointer to context ** req -- requirements for initialization (see sendmail.h) ** options -- options ** srv -- server side? ** certfile -- filename of certificate ** keyfile -- filename of private key ** cacertpath -- path to CAs ** cacertfile -- file with CA(s) ** dhparam -- parameters for DH ** ** Returns: ** succeeded? */ /* ** The session_id_context identifies the service that created a session. ** This information is used to distinguish between multiple TLS-based ** servers running on the same server. We use the name of the mail system. ** Note: the session cache is not persistent. */ static char server_session_id_context[] = "sendmail8"; /* 0.9.8a and b have a problem with SSL_OP_TLS_BLOCK_PADDING_BUG */ # if (OPENSSL_VERSION_NUMBER >= 0x0090800fL) # define SM_SSL_OP_TLS_BLOCK_PADDING_BUG 1 # else # define SM_SSL_OP_TLS_BLOCK_PADDING_BUG 0 # endif bool inittls(ctx, req, options, srv, certfile, keyfile, cacertpath, cacertfile, dhparam) SSL_CTX **ctx; unsigned long req; unsigned long options; bool srv; char *certfile, *keyfile, *cacertpath, *cacertfile, *dhparam; { # if !NO_DH static DH *dh = NULL; # endif int r; bool ok; long sff, status; char *who; char *cf2, *kf2; # if SM_CONF_SHM && !TLS_NO_RSA && MTA_RSA_TMP_CB extern int ShmId; # endif # if SM_SSL_OP_TLS_BLOCK_PADDING_BUG long rt_version; STACK_OF(SSL_COMP) *comp_methods; # endif status = TLS_S_NONE; who = srv ? "server" : "client"; if (ctx == NULL) { syserr("STARTTLS=%s, inittls: ctx == NULL", who); /* NOTREACHED */ SM_ASSERT(ctx != NULL); } /* already initialized? (we could re-init...) */ if (*ctx != NULL) return true; ok = true; /* ** look for a second filename: it must be separated by a ',' ** no blanks allowed (they won't be skipped). ** we change a global variable here! this change will be undone ** before return from the function but only if it returns true. ** this isn't a problem since in a failure case this function ** won't be called again with the same (overwritten) values. ** otherwise each return must be replaced with a goto endinittls. */ cf2 = NULL; kf2 = NULL; if (certfile != NULL && (cf2 = strchr(certfile, ',')) != NULL) { *cf2++ = '\0'; if (keyfile != NULL && (kf2 = strchr(keyfile, ',')) != NULL) *kf2++ = '\0'; } /* ** Check whether files/paths are defined */ TLS_OK_F(certfile, "CertFile", bitset(TLS_I_CERT_EX, req), TLS_S_CERT_EX, srv ? TLS_T_SRV : TLS_T_CLT); TLS_OK_F(keyfile, "KeyFile", bitset(TLS_I_KEY_EX, req), TLS_S_KEY_EX, srv ? TLS_T_SRV : TLS_T_CLT); TLS_OK_F(cacertpath, "CACertPath", bitset(TLS_I_CERTP_EX, req), TLS_S_CERTP_EX, TLS_T_OTHER); TLS_OK_F(cacertfile, "CACertFile", bitset(TLS_I_CERTF_EX, req), TLS_S_CERTF_EX, TLS_T_OTHER); TLS_OK_F(CRLFile, "CRLFile", bitset(TLS_I_CRLF_EX, req), TLS_S_CRLF_EX, TLS_T_OTHER); /* ** if the second file is specified it must exist ** XXX: it is possible here to define only one of those files */ if (cf2 != NULL) { TLS_OK_F(cf2, "CertFile", bitset(TLS_I_CERT_EX, req), TLS_S_CERT2_EX, srv ? TLS_T_SRV : TLS_T_CLT); } if (kf2 != NULL) { TLS_OK_F(kf2, "KeyFile", bitset(TLS_I_KEY_EX, req), TLS_S_KEY2_EX, srv ? TLS_T_SRV : TLS_T_CLT); } /* ** valid values for dhparam are (only the first char is checked) ** none no parameters: don't use DH ** i use precomputed 2048 bit parameters ** 512 use precomputed 512 bit parameters ** 1024 generate 1024 bit parameters ** 2048 generate 2048 bit parameters ** /file/name read parameters from /file/name */ # if MTA_DH_AUTO # define SET_DH_DFL \ do { \ dhparam = "a"; \ req |= TLS_I_DHAUTO; \ } while (0) # else # define SET_DH_DFL \ do { \ dhparam = "I"; \ req |= TLS_I_DHFIXED; \ } while (0) # endif if (bitset(TLS_I_TRY_DH, req)) { if (dhparam != NULL) { char c = *dhparam; # if MTA_DH_AUTO if (c == 'a') req |= TLS_I_DHAUTO; else # endif if (c == '1') req |= TLS_I_DH1024; else if (c == 'I' || c == 'i') req |= TLS_I_DHFIXED; else if (c == '2') req |= TLS_I_DH2048; else if (c == '5') req |= TLS_I_DH512; else if (c == 'n' || c == 'N') req &= ~TLS_I_TRY_DH; else if (c != '/') { if (LogLevel > 12) sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: illegal value '%s' for DHParameters", who, dhparam); dhparam = NULL; } } if (dhparam == NULL) SET_DH_DFL; else if (*dhparam == '/') { TLS_OK_F(dhparam, "DHParameters", bitset(TLS_I_DHPAR_EX, req), TLS_S_DHPAR_EX, TLS_T_OTHER); } } if (!ok) return ok; /* certfile etc. must be "safe". */ sff = SFF_REGONLY | SFF_SAFEDIRPATH | SFF_NOWLINK | SFF_NOGWFILES | SFF_NOWWFILES | SFF_ROOTOK | SFF_OPENASROOT; if (!bitnset(DBS_CERTOWNER, DontBlameSendmail)) sff |= SFF_MUSTOWN; if (DontLockReadFiles) sff |= SFF_NOLOCK; TLS_SAFE_F(certfile, sff | TLS_UNR(TLS_I_CERT_UNR, req), bitset(TLS_I_CERT_EX, req), bitset(TLS_S_CERT_EX, status), TLS_S_CERT_OK, srv); TLS_SAFE_F(keyfile, sff | TLS_KEYSFF(req), bitset(TLS_I_KEY_EX, req), bitset(TLS_S_KEY_EX, status), TLS_S_KEY_OK, srv); TLS_SAFE_F(cacertfile, sff | TLS_UNR(TLS_I_CERTF_UNR, req), bitset(TLS_I_CERTF_EX, req), bitset(TLS_S_CERTF_EX, status), TLS_S_CERTF_OK, srv); if (dhparam != NULL && *dhparam == '/') { TLS_SAFE_F(dhparam, sff | TLS_UNR(TLS_I_DHPAR_UNR, req), bitset(TLS_I_DHPAR_EX, req), bitset(TLS_S_DHPAR_EX, status), TLS_S_DHPAR_OK, srv); if (!bitset(TLS_S_DHPAR_OK, status)) SET_DH_DFL; } TLS_SAFE_F(CRLFile, sff | TLS_UNR(TLS_I_CRLF_UNR, req), bitset(TLS_I_CRLF_EX, req), bitset(TLS_S_CRLF_EX, status), TLS_S_CRLF_OK, srv); if (!ok) return ok; if (cf2 != NULL) { TLS_SAFE_F(cf2, sff | TLS_UNR(TLS_I_CERT_UNR, req), bitset(TLS_I_CERT_EX, req), bitset(TLS_S_CERT2_EX, status), TLS_S_CERT2_OK, srv); } if (kf2 != NULL) { TLS_SAFE_F(kf2, sff | TLS_KEYSFF(req), bitset(TLS_I_KEY_EX, req), bitset(TLS_S_KEY2_EX, status), TLS_S_KEY2_OK, srv); } /* create a method and a new context */ if ((*ctx = SSL_CTX_new(srv ? SSLv23_server_method() : SSLv23_client_method())) == NULL) { if (LogLevel > 7) sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_CTX_new(SSLv23_%s_method()) failed", who, who); tlslogerr(LOG_WARNING, 9, who); return false; } # if _FFR_VRFY_TRUSTED_FIRST if (!tTd(88, 101)) { X509_STORE *store; /* get a pointer to the current certificate validation store */ store = SSL_CTX_get_cert_store(*ctx); /* does not fail */ SM_ASSERT(store != NULL); X509_STORE_set_flags(store, X509_V_FLAG_TRUSTED_FIRST); } # endif if (CRLFile != NULL && !load_crlfile(*ctx, srv, CRLFile)) return false; if (CRLPath != NULL && !load_crlpath(*ctx, srv, CRLPath)) return false; # if defined(SSL_MODE_AUTO_RETRY) && OPENSSL_VERSION_NUMBER >= 0x10100000L && OPENSSL_VERSION_NUMBER < 0x20000000L /* * Turn off blocking I/O handling in OpenSSL: someone turned * this on by default in 1.1? should we check first? */ # if _FFR_TESTS if (LogLevel > 9) { sff = SSL_CTX_get_mode(*ctx); if (sff & SSL_MODE_AUTO_RETRY) sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, SSL_MODE_AUTO_RETRY=set, mode=%#lx", who, sff); } /* hack for testing! */ if (tTd(96, 101) || getenv("SSL_MODE_AUTO_RETRY") != NULL) SSL_CTX_set_mode(*ctx, SSL_MODE_AUTO_RETRY); else # endif /* _FFR_TESTS */ /* "else" in #if code above */ SSL_CTX_clear_mode(*ctx, SSL_MODE_AUTO_RETRY); # endif /* defined(SSL_MODE_AUTO_RETRY) && OPENSSL_VERSION_NUMBER >= 0x10100000L && OPENSSL_VERSION_NUMBER < 0x20000000L */ # if TLS_NO_RSA /* turn off backward compatibility, required for no-rsa */ SSL_CTX_set_options(*ctx, SSL_OP_NO_SSLv2); # endif # if !TLS_NO_RSA && MTA_RSA_TMP_CB /* ** Create a temporary RSA key ** XXX Maybe we shouldn't create this always (even though it ** is only at startup). ** It is a time-consuming operation and it is not always necessary. ** maybe we should do it only on demand... */ if (bitset(TLS_I_RSA_TMP, req) # if SM_CONF_SHM && ShmId != SM_SHM_NO_ID && (rsa_tmp = RSA_generate_key(RSA_KEYLENGTH, RSA_F4, NULL, NULL)) == NULL # else /* SM_CONF_SHM */ && 0 /* no shared memory: no need to generate key now */ # endif /* SM_CONF_SHM */ ) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: RSA_generate_key failed", who); tlslogerr(LOG_WARNING, 9, who); } return false; } # endif /* !TLS_NO_RSA && MTA_RSA_TMP_CB */ /* ** load private key ** XXX change this for DSA-only version */ if (bitset(TLS_S_KEY_OK, status) && SSL_CTX_use_PrivateKey_file(*ctx, keyfile, SSL_FILETYPE_PEM) <= 0) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_CTX_use_PrivateKey_file(%s) failed", who, keyfile); tlslogerr(LOG_WARNING, 9, who); } if (bitset(TLS_I_USE_KEY, req)) return false; } # if _FFR_TLS_USE_CERTIFICATE_CHAIN_FILE # define SSL_CTX_use_cert(ssl_ctx, certfile) \ SSL_CTX_use_certificate_chain_file(ssl_ctx, certfile) # define SSL_CTX_USE_CERT "SSL_CTX_use_certificate_chain_file" # else # define SSL_CTX_use_cert(ssl_ctx, certfile) \ SSL_CTX_use_certificate_file(ssl_ctx, certfile, SSL_FILETYPE_PEM) # define SSL_CTX_USE_CERT "SSL_CTX_use_certificate_file" # endif /* get the certificate file */ if (bitset(TLS_S_CERT_OK, status) && SSL_CTX_use_cert(*ctx, certfile) <= 0) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: %s(%s) failed", who, SSL_CTX_USE_CERT, certfile); tlslogerr(LOG_WARNING, 9, who); } if (bitset(TLS_I_USE_CERT, req)) return false; } /* check the private key */ if (bitset(TLS_S_KEY_OK, status) && (r = SSL_CTX_check_private_key(*ctx)) <= 0) { /* Private key does not match the certificate public key */ if (LogLevel > 5) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_CTX_check_private_key failed(%s): %d", who, keyfile, r); tlslogerr(LOG_WARNING, 9, who); } if (bitset(TLS_I_USE_KEY, req)) return false; } /* XXX this code is pretty much duplicated from above! */ /* load private key */ if (bitset(TLS_S_KEY2_OK, status) && SSL_CTX_use_PrivateKey_file(*ctx, kf2, SSL_FILETYPE_PEM) <= 0) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_CTX_use_PrivateKey_file(%s) failed", who, kf2); tlslogerr(LOG_WARNING, 9, who); } } /* get the certificate file */ if (bitset(TLS_S_CERT2_OK, status) && SSL_CTX_use_cert(*ctx, cf2) <= 0) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: %s(%s) failed", who, SSL_CTX_USE_CERT, cf2); tlslogerr(LOG_WARNING, 9, who); } } /* also check the private key */ if (bitset(TLS_S_KEY2_OK, status) && (r = SSL_CTX_check_private_key(*ctx)) <= 0) { /* Private key does not match the certificate public key */ if (LogLevel > 5) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_CTX_check_private_key 2 failed: %d", who, r); tlslogerr(LOG_WARNING, 9, who); } } /* SSL_CTX_set_quiet_shutdown(*ctx, 1); violation of standard? */ # if SM_SSL_OP_TLS_BLOCK_PADDING_BUG /* ** In OpenSSL 0.9.8[ab], enabling zlib compression breaks the ** padding bug work-around, leading to false positives and ** failed connections. We may not interoperate with systems ** with the bug, but this is better than breaking on all 0.9.8[ab] ** systems that have zlib support enabled. ** Note: this checks the runtime version of the library, not ** just the compile time version. */ rt_version = TLS_version_num(); if (rt_version >= 0x00908000L && rt_version <= 0x0090802fL) { comp_methods = SSL_COMP_get_compression_methods(); if (comp_methods != NULL && sk_SSL_COMP_num(comp_methods) > 0) options &= ~SSL_OP_TLS_BLOCK_PADDING_BUG; } # endif SSL_CTX_set_options(*ctx, (long) options); # if !NO_DH /* Diffie-Hellman initialization */ if (bitset(TLS_I_TRY_DH, req)) { # if TLS_EC == 1 EC_KEY *ecdh; # endif if (tTd(96, 81)) sm_dprintf("inittls: where=try_dh, req=%#lx, status=%#lx\n", req, status); if (bitset(TLS_S_DHPAR_OK, status)) { BIO *bio; if ((bio = BIO_new_file(dhparam, "r")) != NULL) { dh = PEM_read_bio_DHparams(bio, NULL, NULL, NULL); BIO_free(bio); if (dh == NULL && LogLevel > 7) { unsigned long err; err = ERR_get_error(); sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: cannot read DH parameters(%s): %s", who, dhparam, ERR_error_string(err, NULL)); tlslogerr(LOG_WARNING, 9, who); SET_DH_DFL; } } else { if (LogLevel > 5) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: BIO_new_file(%s) failed", who, dhparam); tlslogerr(LOG_WARNING, 9, who); } } } # if MTA_DH_AUTO if (dh == NULL && bitset(TLS_I_DHAUTO, req)) SSL_CTX_set_dh_auto(*ctx, 1); else # endif if (dh == NULL && bitset(TLS_I_DH1024|TLS_I_DH2048, req)) { int bits; DSA *dsa; bits = bitset(TLS_I_DH2048, req) ? 2048 : 1024; if (tTd(96, 2)) sm_dprintf("inittls: Generating %d bit DH parameters\n", bits); # if MTA_HAVE_DSA_GENERATE_EX dsa = DSA_new(); if (dsa != NULL) { r = DSA_generate_parameters_ex(dsa, bits, NULL, 0, NULL, NULL, NULL); if (r != 0) dh = DSA_dup_DH(dsa); } # else /* this takes a while! */ dsa = DSA_generate_parameters(bits, NULL, 0, NULL, NULL, 0, NULL); dh = DSA_dup_DH(dsa); # endif DSA_free(dsa); } else if (dh == NULL && bitset(TLS_I_DHFIXED, req)) { if (tTd(96, 2)) sm_dprintf("inittls: Using precomputed 2048 bit DH parameters\n"); dh = get_dh2048(); } else if (dh == NULL && bitset(TLS_I_DH512, req)) { if (tTd(96, 2)) sm_dprintf("inittls: Using precomputed 512 bit DH parameters\n"); dh = get_dh512(); } if (dh == NULL && !bitset(TLS_I_DHAUTO, req)) { if (LogLevel > 9) { unsigned long err; err = ERR_get_error(); sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: cannot read or set DH parameters(%s): %s", who, dhparam, ERR_error_string(err, NULL)); } if (bitset(TLS_I_REQ_DH, req)) return false; } else if (dh != NULL) { /* important to avoid small subgroup attacks */ SSL_CTX_set_options(*ctx, SSL_OP_SINGLE_DH_USE); SSL_CTX_set_tmp_dh(*ctx, dh); if (LogLevel > 13) sm_syslog(LOG_INFO, NOQID, "STARTTLS=%s, Diffie-Hellman init, key=%d bit (%c)", who, 8 * DH_size(dh), *dhparam); DH_free(dh); } # if TLS_EC == 2 SSL_CTX_set_options(*ctx, SSL_OP_SINGLE_ECDH_USE); SSL_CTX_set_ecdh_auto(*ctx, 1); # elif TLS_EC == 1 ecdh = EC_KEY_new_by_curve_name(NID_X9_62_prime256v1); if (ecdh != NULL) { SSL_CTX_set_options(*ctx, SSL_OP_SINGLE_ECDH_USE); SSL_CTX_set_tmp_ecdh(*ctx, ecdh); EC_KEY_free(ecdh); } else if (LogLevel > 9) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, EC_KEY_new_by_curve_name(NID_X9_62_prime256v1)=failed, error=%s", who, ERR_error_string(ERR_get_error(), NULL)); } # endif /* TLS_EC */ } # endif /* !NO_DH */ /* XXX do we need this cache here? */ if (bitset(TLS_I_CACHE, req)) { SSL_CTX_sess_set_cache_size(*ctx, 1); SSL_CTX_set_timeout(*ctx, 1); SSL_CTX_set_session_id_context(*ctx, (void *) &server_session_id_context, sizeof(server_session_id_context)); (void) SSL_CTX_set_session_cache_mode(*ctx, SSL_SESS_CACHE_SERVER); } else { (void) SSL_CTX_set_session_cache_mode(*ctx, SSL_SESS_CACHE_OFF); } /* load certificate locations and default CA paths */ if (bitset(TLS_S_CERTP_EX, status) && bitset(TLS_S_CERTF_EX, status)) { if ((r = SSL_CTX_load_verify_locations(*ctx, cacertfile, cacertpath)) == 1) { # if !TLS_NO_RSA && MTA_RSA_TMP_CB if (bitset(TLS_I_RSA_TMP, req)) SSL_CTX_set_tmp_rsa_callback(*ctx, tmp_rsa_key); # endif if (srv) { SSL_CTX_set_client_CA_list(*ctx, SSL_load_client_CA_file(cacertfile)); } } else { /* ** can't load CA data; do we care? ** the data is necessary to authenticate the client, ** which in turn would be necessary ** if we want to allow relaying based on it. */ if (LogLevel > 5) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: load verify locs %s, %s failed: %d", who, cacertpath, cacertfile, r); tlslogerr(LOG_WARNING, bitset(TLS_I_VRFY_LOC, req) ? 8 : 9, who); } if (bitset(TLS_I_VRFY_LOC, req)) return false; } } /* ** XXX currently we could call tls_set_verify() ** but we hope that that function will later on ** only set the mode per connection. */ SSL_CTX_set_verify(*ctx, bitset(TLS_I_NO_VRFY, req) ? SSL_VERIFY_NONE : SSL_VERIFY_PEER, NULL); /* ** Always use our callback instead of the builtin version. ** We have to install our own verify callback: ** SSL_VERIFY_PEER requests a client cert but even ** though *FAIL_IF* isn't set, the connection ** will be aborted if the client presents a cert ** that is not "liked" (can't be verified?) by ** the TLS library :-( */ SSL_CTX_set_cert_verify_callback(*ctx, tls_verify_cb, NULL); /* XXX: make this dependent on an option? */ if (tTd(96, 9)) SSL_CTX_set_info_callback(*ctx, apps_ssl_info_cb); /* install our own cipher list */ if (CipherList != NULL && *CipherList != '\0') { if (SSL_CTX_set_cipher_list(*ctx, CipherList) <= 0) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_CTX_set_cipher_list(%s) failed, list ignored", who, CipherList); tlslogerr(LOG_WARNING, 9, who); } /* failure if setting to this list is required? */ } } # if MTA_HAVE_TLSv1_3 /* install our own cipher suites */ if (!SM_IS_EMPTY(CipherSuites)) { if (SSL_CTX_set_ciphersuites(*ctx, CipherSuites) <= 0) { if (LogLevel > 7) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, error: SSL_CTX_set_ciphersuites(%s) failed, suites ignored", who, CipherSuites); tlslogerr(LOG_WARNING, 9, who); } /* failure if setting to this suites is required? */ } } # endif /* MTA_HAVE_TLSv1_3 */ if (LogLevel > 12) sm_syslog(LOG_INFO, NOQID, "STARTTLS=%s, init=%d", who, ok); # if 0 /* ** this label is required if we want to have a "clean" exit ** see the comments above at the initialization of cf2 */ endinittls: # endif /* 0 */ /* undo damage to global variables */ if (cf2 != NULL) *--cf2 = ','; if (kf2 != NULL) *--kf2 = ','; return ok; } /* ** CERT_FP -- get cert fingerprint ** ** Parameters: ** cert -- TLS cert ** evp_digest -- digest algorithm ** mac -- macro storage ** macro -- where to store cert fp ** ** Returns: ** <=0: cert fp calculation failed ** >0: cert fp calculation ok */ static int cert_fp(cert, evp_digest, mac, macro) X509 *cert; const EVP_MD *evp_digest; MACROS_T *mac; char *macro; { unsigned int n; int r; unsigned char md[EVP_MAX_MD_SIZE]; char md5h[EVP_MAX_MD_SIZE * 3]; static const char hexcodes[] = "0123456789ABCDEF"; n = 0; if ((r = X509_digest(cert, evp_digest, md, &n)) == 0 || n <= 0) { macdefine(mac, A_TEMP, macid(macro), ""); return (0 == r) ? 0 : n; } SM_ASSERT((n * 3) + 2 < sizeof(md5h)); for (r = 0; r < (int) n; r++) { md5h[r * 3] = hexcodes[(md[r] & 0xf0) >> 4]; md5h[(r * 3) + 1] = hexcodes[(md[r] & 0x0f)]; md5h[(r * 3) + 2] = ':'; } md5h[(n * 3) - 1] = '\0'; macdefine(mac, A_TEMP, macid(macro), md5h); return 1; } /* host for logging */ #define whichhost host == NULL ? "local" : host # if _FFR_TLS_ALTNAMES /* ** CLEARCLASS -- clear the specified class (called from stabapply) ** ** Parameters: ** s -- STAB ** id -- class id ** ** Returns: ** none. */ static void clearclass(s, id) STAB *s; int id; { if (s->s_symtype != ST_CLASS) return; if (bitnset(bitidx(id), s->s_class)) clrbitn(bitidx(id), s->s_class); } /* ** GETALTNAMES -- set subject_alt_name ** ** Parameters: ** cert -- cert ** srv -- server side? ** host -- hostname of other side ** ** Returns: ** none. */ static void getaltnames(cert, srv, host) X509 *cert; bool srv; const char *host; { STACK_OF(GENERAL_NAME) *gens; int i, j, len, r; const GENERAL_NAME *gn; char *dnsname, *who; if (!SetCertAltnames) return; who = srv ? "server" : "client"; gens = X509_get_ext_d2i(cert, NID_subject_alt_name, 0, 0); if (gens == NULL) return; r = sk_GENERAL_NAME_num(gens); for (i = 0; i < r; i++) { gn = sk_GENERAL_NAME_value(gens, i); if (gn == NULL || gn->type != GEN_DNS) continue; /* Ensure data is IA5 */ if (ASN1_STRING_type(gn->d.ia5) != V_ASN1_IA5STRING) { if (LogLevel > 6) sm_syslog(LOG_INFO, NOQID, "STARTTLS=%s, relay=%.100s, field=AltName, status=value contains non IA5", who, whichhost); continue; } dnsname = (char *) MTA_ASN1_STRING_data(gn->d.ia5); if (dnsname == NULL) continue; len = ASN1_STRING_length(gn->d.ia5); /* ** "remove" trailing NULs (except for one of course), ** those can happen and are OK (not a sign of an attack) */ while (len > 0 && '\0' == dnsname[len - 1]) len--; #define ISPRINT(c) (isascii(c) && isprint(c)) /* just check for printable char for now */ for (j = 0; j < len && ISPRINT(dnsname[j]); j++) ; if (dnsname[j] != '\0' || len != j) continue; setclass(macid("{cert_altnames}"), xtextify(dnsname, "<>\")")); if (LogLevel > 14) sm_syslog(LOG_DEBUG, NOQID, "STARTTLS=%s, relay=%.100s, AltName=%s", who, whichhost, xtextify(dnsname, "<>\")")); } } # else # define getaltnames(cert, srv, host) # endif /* _FFR_TLS_ALTNAMES */ # if DANE /* ** DANE_RES -- get DANE result if possible ** ** Parameters: ** ssl -- TLS connection structure ** dane_vrfy_ctx -- dane verify context ** ** Returns: ** SM_SUCCESS: DANE result dane_vrfy_res is valid ** SM_NOTDONE: DANE checking not enabled ** <0: some error */ static int dane_res __P((SSL *, dane_vrfy_ctx_P)); static int dane_res(ssl, dane_vrfy_ctx) SSL *ssl; dane_vrfy_ctx_P dane_vrfy_ctx; { # if HAVE_SSL_CTX_dane_enable int depth, r; EVP_PKEY *mspki; uint8_t usage, selector, mtype; unsigned const char *rr; size_t rrlen; # endif if (NULL == dane_vrfy_ctx) { /* can this happen? should it be logged? */ if (tTd(96, 20)) sm_dprintf("ERROR: dane_res: dane_vrfy_ctx=NULL\n"); return SM_NOTDONE; } if (tTd(96, 20)) sm_dprintf("dane_res: dane_vrfy_dane_enabled=%d, chk=%#x, res=%d\n", dane_vrfy_ctx->dane_vrfy_dane_enabled, dane_vrfy_ctx->dane_vrfy_chk, dane_vrfy_ctx->dane_vrfy_res); if (!VRFY_DANE(dane_vrfy_ctx->dane_vrfy_chk)) { dane_vrfy_ctx->dane_vrfy_res = DANE_VRFY_NONE; return SM_NOTDONE; } if (dane_vrfy_ctx->dane_vrfy_chk & TLSAFLTEMPVRFY) { dane_vrfy_ctx->dane_vrfy_res = DANE_VRFY_TEMP; return SM_SUCCESS; } if (!dane_vrfy_ctx->dane_vrfy_dane_enabled) { if (DANE_VRFY_NONE == dane_vrfy_ctx->dane_vrfy_res) return SM_NOTDONE; return SM_SUCCESS; } # if HAVE_SSL_CTX_dane_enable mspki = NULL; depth = SSL_get0_dane_authority(ssl, NULL, &mspki); if (tTd(96, 20)) sm_dprintf("dane_res: SSL_get0_dane_authority() depth=%d\n", depth); if (depth < 0) { dane_vrfy_ctx->dane_vrfy_res = DANE_VRFY_FAIL; return SM_SUCCESS; } dane_vrfy_ctx->dane_vrfy_res = DANE_VRFY_OK; r = SSL_get0_dane_tlsa(ssl, &usage, &selector, &mtype, &rr, &rrlen); if (tTd(96, 20)) sm_dprintf("dane_res: SSL_get0_dane_tlsa=%d, status=%s\n", r, (mspki != NULL) ? "TA_public_key_verified_certificate" : (depth > 0) ? "matched_TA_certificate" : "matched_EE_certificate"); if (LogLevel > 11) { /* just for logging */ if (r >= 0 && rr != NULL && rrlen > 0) { (void) data2hex((unsigned char *)rr, rrlen, (unsigned char *)dane_vrfy_ctx->dane_vrfy_fp, sizeof(dane_vrfy_ctx->dane_vrfy_fp)); } sm_syslog(LOG_DEBUG, NOQID, "DANE_depth=%d, DANE_res=%d, SSL_get0_dane_tlsa=%d, fp=%s, status=%s", depth, dane_vrfy_ctx->dane_vrfy_res, r, dane_vrfy_ctx->dane_vrfy_fp, (mspki != NULL) ? "TA_public_key_verified_certificate" : (depth > 0) ? "matched_TA_certificate" : "matched_EE_certificate" ); } # else SM_ASSERT(!dane_vrfy_ctx->dane_vrfy_dane_enabled); # endif /* HAVE_SSL_CTX_dane_enable */ return SM_SUCCESS; } # endif /* DANE */ /* ** TLS_GET_INFO -- get information about TLS connection ** ** Parameters: ** ssl -- TLS session context ** srv -- server side? ** host -- hostname of other side ** mac -- macro storage ** certreq -- did we ask for a cert? ** ** Returns: ** result of authentication. ** ** Side Effects: ** sets various TLS related macros. */ int tls_get_info(ssl, srv, host, mac, certreq) SSL *ssl; bool srv; char *host; MACROS_T *mac; bool certreq; { const SSL_CIPHER *c; int b, r; long verifyok; char *s, *who; char bitstr[16]; X509 *cert; # if DANE dane_vrfy_ctx_P dane_vrfy_ctx; dane_tlsa_P dane_tlsa; # endif c = SSL_get_current_cipher(ssl); /* cast is just workaround for compiler warning */ macdefine(mac, A_TEMP, macid("{cipher}"), (char *) SSL_CIPHER_get_name(c)); b = SSL_CIPHER_get_bits(c, &r); (void) sm_snprintf(bitstr, sizeof(bitstr), "%d", b); macdefine(mac, A_TEMP, macid("{cipher_bits}"), bitstr); (void) sm_snprintf(bitstr, sizeof(bitstr), "%d", r); macdefine(mac, A_TEMP, macid("{alg_bits}"), bitstr); s = (char *) SSL_get_version(ssl); if (s == NULL) s = "UNKNOWN"; macdefine(mac, A_TEMP, macid("{tls_version}"), s); who = srv ? "server" : "client"; cert = MTA_SSL_get_peer_certificate(ssl); verifyok = SSL_get_verify_result(ssl); if (LogLevel > 14) sm_syslog(LOG_INFO, NOQID, "STARTTLS=%s, get_verify: %ld get_peer: 0x%lx", who, verifyok, (unsigned long) cert); # if _FFR_TLS_ALTNAMES stabapply(clearclass, macid("{cert_altnames}")); # endif if (cert != NULL) { X509_NAME *subj, *issuer; char buf[MAXNAME]; /* EAI: not affected */ subj = X509_get_subject_name(cert); issuer = X509_get_issuer_name(cert); X509_NAME_oneline(subj, buf, sizeof(buf)); macdefine(mac, A_TEMP, macid("{cert_subject}"), xtextify(buf, "<>\")")); X509_NAME_oneline(issuer, buf, sizeof(buf)); macdefine(mac, A_TEMP, macid("{cert_issuer}"), xtextify(buf, "<>\")")); # define LL_BADCERT 8 #define CERTFPMACRO (CertFingerprintAlgorithm != NULL ? "{cert_fp}" : "{cert_md5}") #define CHECK_X509_NAME(which) \ do { \ if (r == -1) \ { \ sm_strlcpy(buf, "BadCertificateUnknown", sizeof(buf)); \ if (LogLevel > LL_BADCERT) \ sm_syslog(LOG_INFO, NOQID, \ "STARTTLS=%s, relay=%.100s, field=%s, status=failed to extract CN", \ who, whichhost, which); \ } \ else if ((size_t)r >= sizeof(buf) - 1) \ { \ sm_strlcpy(buf, "BadCertificateTooLong", sizeof(buf)); \ if (LogLevel > 7) \ sm_syslog(LOG_INFO, NOQID, \ "STARTTLS=%s, relay=%.100s, field=%s, status=CN too long", \ who, whichhost, which); \ } \ else if ((size_t)r > strlen(buf)) \ { \ sm_strlcpy(buf, "BadCertificateContainsNUL", \ sizeof(buf)); \ if (LogLevel > 7) \ sm_syslog(LOG_INFO, NOQID, \ "STARTTLS=%s, relay=%.100s, field=%s, status=CN contains NUL", \ who, whichhost, which); \ } \ } while (0) r = X509_NAME_get_text_by_NID(subj, NID_commonName, buf, sizeof buf); CHECK_X509_NAME("cn_subject"); macdefine(mac, A_TEMP, macid("{cn_subject}"), xtextify(buf, "<>\")")); r = X509_NAME_get_text_by_NID(issuer, NID_commonName, buf, sizeof buf); CHECK_X509_NAME("cn_issuer"); macdefine(mac, A_TEMP, macid("{cn_issuer}"), xtextify(buf, "<>\")")); r = cert_fp(cert, EVP_digest, mac, CERTFPMACRO); if (r <= 0 && LogLevel > 8) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, relay=%.100s, X509_digest=%d, CertFingerprintAlgorithm=%s", who, whichhost, r, (NULL == CertFingerprintAlgorithm) ? "md5" : CertFingerprintAlgorithm); tlslogerr(LOG_WARNING, 8, who); } getaltnames(cert, srv, host); } else { macdefine(mac, A_PERM, macid("{cert_subject}"), ""); macdefine(mac, A_PERM, macid("{cert_issuer}"), ""); macdefine(mac, A_PERM, macid("{cn_subject}"), ""); macdefine(mac, A_PERM, macid("{cn_issuer}"), ""); macdefine(mac, A_TEMP, macid(CERTFPMACRO), ""); } # if DANE dane_vrfy_ctx = NULL; dane_tlsa = NULL; if (TLSsslidx >= 0) { tlsi_ctx_T *tlsi_ctx; tlsi_ctx = (tlsi_ctx_P) SSL_get_ex_data(ssl, TLSsslidx); if (tlsi_ctx != NULL) { dane_vrfy_ctx = &(tlsi_ctx->tlsi_dvc); dane_tlsa = dane_get_tlsa(dane_vrfy_ctx); } } # define DANE_VRFY_RES_IS(r) \ ((dane_vrfy_ctx != NULL) && dane_vrfy_ctx->dane_vrfy_res == (r)) if (tTd(96, 10)) sm_dprintf("tls_get_info: verifyok=%d, dane_vrfy_res=%d\n", (int)verifyok, (dane_vrfy_ctx != NULL) ? dane_vrfy_ctx->dane_vrfy_res : -999); if (SM_SUCCESS == dane_res(ssl, dane_vrfy_ctx)) { if (DANE_VRFY_RES_IS(DANE_VRFY_OK)) { s = "TRUSTED"; r = TLS_AUTH_OK; } else if (DANE_VRFY_RES_IS(DANE_VRFY_TEMP)) { s = "DANE_TEMP"; r = TLS_AUTH_TEMP; } else if (DANE_VRFY_RES_IS(DANE_VRFY_FAIL)) { if (dane_tlsa != NULL && TLSA_IS_FL(dane_tlsa, TLSAFL2MANY)) { s = "DANE_TEMP"; r = TLS_AUTH_TEMP; } else { s = "DANE_FAIL"; r = TLS_AUTH_FAIL; } } else { s = "BOGUS_DANE_RES"; r = TLS_AUTH_FAIL; } } else # endif /* if DANE */ /* "else" in #if code above */ switch (verifyok) { case X509_V_OK: if (cert != NULL) { s = "OK"; r = TLS_AUTH_OK; } else { s = certreq ? "NO" : "NOT", r = TLS_AUTH_NO; } break; default: s = "FAIL"; r = TLS_AUTH_FAIL; break; } macdefine(mac, A_PERM, macid("{verify}"), s); if (cert != NULL) X509_free(cert); /* do some logging */ if (LogLevel > 8) { char *vers, *s1, *s2, *cbits, *algbits; vers = macget(mac, macid("{tls_version}")); cbits = macget(mac, macid("{cipher_bits}")); algbits = macget(mac, macid("{alg_bits}")); /* XXX: use s directly? */ s1 = macget(mac, macid("{verify}")); s2 = macget(mac, macid("{cipher}")); # if DANE # define LOG_DANE_FP \ ('\0' != dane_vrfy_ctx->dane_vrfy_fp[0] && DANE_VRFY_RES_IS(DANE_VRFY_FAIL)) # endif /* XXX: maybe cut off ident info? */ sm_syslog(LOG_INFO, NOQID, "STARTTLS=%s, relay=%.100s, version=%.16s, verify=%.16s, cipher=%.64s, bits=%.6s/%.6s%s%s%s%s", who, host == NULL ? "local" : host, vers, s1, s2, /* sm_snprintf() can deal with NULL */ algbits == NULL ? "0" : algbits, cbits == NULL ? "0" : cbits # if DANE , LOG_DANE_FP ? ", pubkey_fp=" : "" , LOG_DANE_FP ? dane_vrfy_ctx->dane_vrfy_fp : "" , (dane_tlsa != NULL && TLSA_IS_FL(dane_tlsa, TLSAFLUNS) && !TLSA_IS_FL(dane_tlsa, TLSAFLSUP) && DANE_VRFY_RES_IS(DANE_VRFY_NONE)) ? ONLYUNSUPTLSARR : "" , (dane_tlsa != NULL && TLSA_IS_FL(dane_tlsa, TLSAFL2MANY)) && DANE_VRFY_RES_IS(DANE_VRFY_FAIL) ? ", note=too many TLSA RRs" : "" # else , "", "", "", "" # endif ); if (LogLevel > 11) { /* ** Maybe run xuntextify on the strings? ** That is easier to read but makes it maybe a bit ** more complicated to figure out the right values ** for the access map... */ s1 = macget(mac, macid("{cert_subject}")); s2 = macget(mac, macid("{cert_issuer}")); sm_syslog(LOG_INFO, NOQID, "STARTTLS=%s, cert-subject=%.256s, cert-issuer=%.256s, verifymsg=%s", who, s1, s2, X509_verify_cert_error_string(verifyok)); } } return r; } /* ** ENDTLS -- shut down secure connection ** ** Parameters: ** pssl -- pointer to TLS session context ** who -- server/client (for logging). ** ** Returns: ** success? (EX_* code) */ int endtls(pssl, who) SSL **pssl; const char *who; { SSL *ssl; int ret, r; SM_REQUIRE(pssl != NULL); ret = EX_OK; ssl = *pssl; if (ssl == NULL) return ret; if ((r = SSL_shutdown(ssl)) < 0) { if (LogLevel > 11) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, SSL_shutdown failed: %d", who, r); tlslogerr(LOG_WARNING, 11, who); } ret = EX_SOFTWARE; } /* ** Bug in OpenSSL (at least up to 0.9.6b): ** From: Lutz.Jaenicke@aet.TU-Cottbus.DE ** Message-ID: <20010723152244.A13122@serv01.aet.tu-cottbus.de> ** To: openssl-users@openssl.org ** Subject: Re: SSL_shutdown() woes (fwd) ** ** The side sending the shutdown alert first will ** not care about the answer of the peer but will ** immediately return with a return value of "0" ** (ssl/s3_lib.c:ssl3_shutdown()). SSL_get_error will evaluate ** the value of "0" and as the shutdown alert of the peer was ** not received (actually, the program did not even wait for ** the answer), an SSL_ERROR_SYSCALL is flagged, because this ** is the default rule in case everything else does not apply. ** ** For your server the problem is different, because it ** receives the shutdown first (setting SSL_RECEIVED_SHUTDOWN), ** then sends its response (SSL_SENT_SHUTDOWN), so for the ** server the shutdown was successful. ** ** As is by know, you would have to call SSL_shutdown() once ** and ignore an SSL_ERROR_SYSCALL returned. Then call ** SSL_shutdown() again to actually get the server's response. ** ** In the last discussion, Bodo Moeller concluded that a ** rewrite of the shutdown code would be necessary, but ** probably with another API, as the change would not be ** compatible to the way it is now. Things do not become ** easier as other programs do not follow the shutdown ** guidelines anyway, so that a lot error conditions and ** compitibility issues would have to be caught. ** ** For now the recommondation is to ignore the error message. */ else if (r == 0) { if (LogLevel > 15) { sm_syslog(LOG_WARNING, NOQID, "STARTTLS=%s, SSL_shutdown not done", who); tlslogerr(LOG_WARNING, 15, who); } ret = EX_SOFTWARE; } SM_SSL_FREE(*pssl); return ret; } # if !TLS_NO_RSA && MTA_RSA_TMP_CB /* ** TMP_RSA_KEY -- return temporary RSA key ** ** Parameters: ** ssl -- TLS session context ** export -- ** keylength -- ** ** Returns: ** temporary RSA key. */ # ifndef MAX_RSA_TMP_CNT # define MAX_RSA_TMP_CNT 1000 /* XXX better value? */ # endif /* ARGUSED0 */ static RSA * tmp_rsa_key(s, export, keylength) SSL *s; int export; int keylength; { # if SM_CONF_SHM extern int ShmId; extern int *PRSATmpCnt; if (ShmId != SM_SHM_NO_ID && rsa_tmp != NULL && ++(*PRSATmpCnt) < MAX_RSA_TMP_CNT) return rsa_tmp; # endif /* SM_CONF_SHM */ if (rsa_tmp != NULL) RSA_free(rsa_tmp); rsa_tmp = RSA_generate_key(RSA_KEYLENGTH, RSA_F4, NULL, NULL); if (rsa_tmp == NULL) { if (LogLevel > 0) sm_syslog(LOG_ERR, NOQID, "STARTTLS=server, tmp_rsa_key: RSA_generate_key failed!"); } else { # if SM_CONF_SHM # if 0 /* ** XXX we can't (yet) share the new key... ** The RSA structure contains pointers hence it can't be ** easily kept in shared memory. It must be transformed ** into a continuous memory region first, then stored, ** and later read out again (each time re-transformed). */ if (ShmId != SM_SHM_NO_ID) *PRSATmpCnt = 0; # endif /* 0 */ # endif /* SM_CONF_SHM */ if (LogLevel > 9) sm_syslog(LOG_ERR, NOQID, "STARTTLS=server, tmp_rsa_key: new temp RSA key"); } return rsa_tmp; } # endif /* !TLS_NO_RSA && MTA_RSA_TMP_CB */ /* ** APPS_SSL_INFO_CB -- info callback for TLS connections ** ** Parameters: ** ssl -- TLS session context ** where -- state in handshake ** ret -- return code of last operation ** ** Returns: ** none. */ static void apps_ssl_info_cb(ssl, where, ret) const SSL *ssl; int where; int ret; { int w; char *str; BIO *bio_err = NULL; if (LogLevel > 14) sm_syslog(LOG_INFO, NOQID, "STARTTLS: info_callback where=0x%x, ret=%d", where, ret); w = where & ~SSL_ST_MASK; if (bio_err == NULL) bio_err = BIO_new_fp(stderr, BIO_NOCLOSE); if (bitset(SSL_ST_CONNECT, w)) str = "SSL_connect"; else if (bitset(SSL_ST_ACCEPT, w)) str = "SSL_accept"; else str = "undefined"; if (bitset(SSL_CB_LOOP, where)) { if (LogLevel > 12) sm_syslog(LOG_NOTICE, NOQID, "STARTTLS: %s:%s", str, SSL_state_string_long(ssl)); } else if (bitset(SSL_CB_ALERT, where)) { str = bitset(SSL_CB_READ, where) ? "read" : "write"; if (LogLevel > 12) sm_syslog(LOG_NOTICE, NOQID, "STARTTLS: SSL3 alert %s:%s:%s", str, SSL_alert_type_string_long(ret), SSL_alert_desc_string_long(ret)); } else if (bitset(SSL_CB_EXIT, where)) { if (ret == 0) { if (LogLevel > 7) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: %s:failed in %s", str, SSL_state_string_long(ssl)); } else if (ret < 0) { if (LogLevel > 7) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: %s:error in %s", str, SSL_state_string_long(ssl)); } } } /* ** TLS_VERIFY_LOG -- log verify error for TLS certificates ** ** Parameters: ** ok -- verify ok? ** ctx -- X509 context ** name -- from where is this called? ** ** Returns: ** 1 -- ok */ static int tls_verify_log(ok, ctx, name) int ok; X509_STORE_CTX *ctx; const char *name; { X509 *cert; int reason, depth; char buf[512]; cert = X509_STORE_CTX_get_current_cert(ctx); reason = X509_STORE_CTX_get_error(ctx); depth = X509_STORE_CTX_get_error_depth(ctx); X509_NAME_oneline(X509_get_subject_name(cert), buf, sizeof(buf)); sm_syslog(LOG_INFO, NOQID, "STARTTLS: %s cert verify: depth=%d %s, state=%d, reason=%s", name, depth, buf, ok, X509_verify_cert_error_string(reason)); return 1; } /* ** Declaration and access to tlsi_ctx in callbacks. */ #define SM_DECTLSI \ tlsi_ctx_T *tlsi_ctx; \ SSL *ssl #define SM_GETTLSI \ do { \ tlsi_ctx = NULL; \ if (TLSsslidx >= 0) \ { \ ssl = (SSL *) X509_STORE_CTX_get_ex_data(ctx, \ SSL_get_ex_data_X509_STORE_CTX_idx()); \ if (ssl != NULL) \ tlsi_ctx = (tlsi_ctx_P) SSL_get_ex_data(ssl, TLSsslidx); \ } \ } \ while (0) # if DANE /* ** DANE_GET_TLSA -- Retrieve TLSA RR for DANE ** ** Parameters: ** dane_vrfy_ctx -- dane verify context ** ** Returns: ** dane_tlsa if TLSA RR is available ** NULL otherwise */ dane_tlsa_P dane_get_tlsa(dane_vrfy_ctx) dane_vrfy_ctx_P dane_vrfy_ctx; { STAB *s; dane_tlsa_P dane_tlsa; dane_tlsa = NULL; if (NULL == dane_vrfy_ctx) return NULL; if (!CHK_DANE(dane_vrfy_ctx->dane_vrfy_chk) || dane_vrfy_ctx->dane_vrfy_host == NULL) return NULL; gettlsa(dane_vrfy_ctx->dane_vrfy_host, NULL, &s, TLSAFLNOEXP, 0, dane_vrfy_ctx->dane_vrfy_port); if (NULL == s) goto notfound; dane_tlsa = s->s_tlsa; if (NULL == dane_tlsa) goto notfound; if (!TLSA_HAS_RRs(dane_tlsa)) goto notfound; if (tTd(96, 4)) sm_dprintf("dane_get_tlsa: chk=%#x, host=%s, n=%d, stat=entry found\n", dane_vrfy_ctx->dane_vrfy_chk, dane_vrfy_ctx->dane_vrfy_host, dane_tlsa->dane_tlsa_n); return dane_tlsa; notfound: if (tTd(96, 4)) sm_dprintf("dane_get_tlsa: chk=%#x, host=%s, stat=no valid entry found\n", dane_vrfy_ctx->dane_vrfy_chk, dane_vrfy_ctx->dane_vrfy_host); return NULL; } /* ** DANE_VERIFY -- verify callback for TLS certificates ** ** Parameters: ** ctx -- X509 context ** dane_vrfy_ctx -- callback context ** ** Returns: ** DANE_VRFY_{OK,NONE,FAIL} */ /* NOTE: this only works because the "matching type" is 0, 1, 2 for these! */ static const char *dane_mdalgs[] = { "", "sha256", "sha512" }; static int dane_verify(ctx, dane_vrfy_ctx) X509_STORE_CTX *ctx; dane_vrfy_ctx_P dane_vrfy_ctx; { int r, i, ok, mdalg; X509 *cert; dane_tlsa_P dane_tlsa; unsigned char *fp; dane_tlsa = dane_get_tlsa(dane_vrfy_ctx); if (dane_tlsa == NULL) return DANE_VRFY_NONE; dane_vrfy_ctx->dane_vrfy_fp[0] = '\0'; cert = X509_STORE_CTX_get0_cert(ctx); if (tTd(96, 8)) sm_dprintf("dane_verify: cert=%p, supported=%d\n", (void *)cert, TLSA_IS_FL(dane_tlsa, TLSAFLSUP)); if (cert == NULL) return DANE_VRFY_FAIL; ok = DANE_VRFY_NONE; fp = NULL; /* ** If the TLSA RRs would be sorted the two loops below could ** be merged into one and simply change mdalg when it changes ** in dane_tlsa->dane_tlsa_rr. */ /* use a different order? */ for (mdalg = 0; mdalg < SM_ARRAY_SIZE(dane_mdalgs); mdalg++) { SM_FREE(fp); r = 0; for (i = 0; i < dane_tlsa->dane_tlsa_n; i++) { unsigned char *p; int alg; p = dane_tlsa->dane_tlsa_rr[i]; /* ignore bogus/unsupported TLSA RRs */ alg = dane_tlsa_chk(p, dane_tlsa->dane_tlsa_len[i], dane_vrfy_ctx->dane_vrfy_host, false); if (tTd(96, 8)) sm_dprintf("dane_verify: alg=%d, mdalg=%d\n", alg, mdalg); if (alg != mdalg) continue; if (NULL == fp) { r = pubkey_fp(cert, dane_mdalgs[mdalg], &fp); if (NULL == fp) return DANE_VRFY_FAIL; /* or continue? */ } /* just for logging */ if (r > 0 && fp != NULL) { (void) data2hex((unsigned char *)fp, r, (unsigned char *)dane_vrfy_ctx->dane_vrfy_fp, sizeof(dane_vrfy_ctx->dane_vrfy_fp)); } if (tTd(96, 4)) sm_dprintf("dane_verify: alg=%d, r=%d, len=%d\n", alg, r, dane_tlsa->dane_tlsa_len[i]); if (r != dane_tlsa->dane_tlsa_len[i] - 3) continue; ok = DANE_VRFY_FAIL; /* ** Note: Type is NOT checked because only 3-1-x ** is supported. */ if (memcmp(p + 3, fp, r) == 0) { if (tTd(96, 2)) sm_dprintf("dane_verify: status=match\n"); if (tTd(96, 8)) { unsigned char hex[DANE_FP_DBG_LEN]; data2hex((unsigned char *)p, dane_tlsa->dane_tlsa_len[i], hex, sizeof(hex)); sm_dprintf("dane_verify: pubkey_fp=%s\n" , hex); } dane_vrfy_ctx->dane_vrfy_res = DANE_VRFY_OK; SM_FREE(fp); return DANE_VRFY_OK; } } } SM_FREE(fp); dane_vrfy_ctx->dane_vrfy_res = ok; return ok; } /* ** SSL_DANE_ENABLE -- enable using OpenSSL DANE functions for a session ** ** Parameters: ** dane_vrfy_ctx -- dane verify context ** ssl -- TLS connection structure ** ** Returns: ** SM_SUCCESS: OpenSSL DANE checking enabled ** SM_NOTDONE: OpenSSL DANE checking not enabled ** <0: some error */ int ssl_dane_enable(dane_vrfy_ctx, ssl) dane_vrfy_ctx_P dane_vrfy_ctx; SSL *ssl; { # if HAVE_SSL_CTX_dane_enable const char *dane_tlsa_domain; int r, i, usable; # endif dane_tlsa_P dane_tlsa; if (tTd(96, 20)) sm_dprintf("ssl_dane_enable: dane_vrfy_ctx=%p, dane_vrfy_dane_enabled=%d, dane_vrfy_chk=%#x\n", dane_vrfy_ctx, dane_vrfy_ctx->dane_vrfy_dane_enabled, dane_vrfy_ctx->dane_vrfy_chk); dane_tlsa = dane_get_tlsa(dane_vrfy_ctx); if (tTd(96, 20)) sm_dprintf("ssl_dane_enable: dane_tlsa=%p, n=%d, supported=%d\n", dane_tlsa, dane_tlsa != NULL ? dane_tlsa->dane_tlsa_n : -999, dane_tlsa != NULL ? TLSA_IS_FL(dane_tlsa, TLSAFLSUP) : -1); if (NULL == dane_tlsa || !TLSA_IS_FL(dane_tlsa, TLSAFLSUP)) { /* no DANE verification possible */ dane_vrfy_ctx->dane_vrfy_chk |= TLSAFLNOVRFY; return SM_SUCCESS; } if (0 == (dane_vrfy_ctx->dane_vrfy_chk & TLSAFLADIP)) { /* no DANE verification possible */ dane_vrfy_ctx->dane_vrfy_chk |= TLSAFLNOVRFY; return SM_SUCCESS; } if (!dane_vrfy_ctx->dane_vrfy_dane_enabled) { # if HAVE_SSL_CTX_dane_enable dane_vrfy_ctx->dane_vrfy_chk |= TLSAFLTEMPVRFY; # endif return SM_NOTDONE; } # if HAVE_SSL_CTX_dane_enable dane_tlsa_domain = !SM_IS_EMPTY(dane_vrfy_ctx->dane_vrfy_sni) ? dane_vrfy_ctx->dane_vrfy_sni : dane_vrfy_ctx->dane_vrfy_host; r = SSL_dane_enable(ssl, dane_tlsa_domain); # if _FFR_TESTS if (tTd(90, 102)) { sm_dprintf("ssl_dane_enable: test=simulate SSL_dane_enable error\n"); # ifdef SSL_F_SSL_DANE_ENABLE SSLerr(SSL_F_SSL_DANE_ENABLE, ERR_R_MALLOC_FAILURE); # endif r = -1; /* -ENOMEM; */ } # endif /* _FFR_TESTS */ if (r <= 0) { # if HAVE_SSL_CTX_dane_enable dane_vrfy_ctx->dane_vrfy_chk |= TLSAFLTEMPVRFY; # endif if (LogLevel > 1) sm_syslog(LOG_ERR, NOQID, "STARTTLS=client, SSL_dane_enable=%d", r); tlslogerr(LOG_ERR, 7, "client"); /* XXX need better error code */ return (r < 0) ? r : -EINVAL; } if (LogLevel > 13) sm_syslog(LOG_DEBUG, NOQID, "STARTTLS=client, SSL_dane_enable=%d, domain=%s", r, dane_tlsa_domain); (void) SSL_dane_set_flags(ssl, DANE_FLAG_NO_DANE_EE_NAMECHECKS); usable = 0; for (i = 0; i < dane_tlsa->dane_tlsa_n; i++) { const unsigned char *rr; const char *chk; rr = (const unsigned char *)dane_tlsa->dane_tlsa_rr[i]; if (NULL == rr) continue; /* ** only DANE-TA(2) or DANE-EE(3) ** use dane_tlsa_chk() instead? */ # if _FFR_TESTS if (tTd(90, 101) && 3 == rr[0] && 1 == rr[1]) { sm_dprintf("TLSA, type=%d-%d-%d:%02x, status=unsupported_due_to_test", (int)rr[0], (int)rr[1], (int)rr[2], (int)rr[3]); r = 0; chk = "tlsa_test"; } else # endif /* _FFR_TESTS */ if (!(2 == rr[0] || 3 == rr[0])) { r = 0; chk = "tlsa_chk"; } else { r = SSL_dane_tlsa_add(ssl, rr[0], rr[1], rr[2], rr + 3, (size_t) (dane_tlsa->dane_tlsa_len[i] - 3)); chk = "SSL_dane_tlsa_add"; } if (r > 0) usable++; # if HAVE_SSL_CTX_dane_enable && 0 /* should an error be ignored or cause a temporary failure? */ if (r < 0) dane_vrfy_ctx->dane_vrfy_chk |= TLSAFLTEMPVRFY; # endif else if (LogLevel > ((r < 0) ? 10 : 13)) { unsigned char hex[DANE_FP_LOG_LEN]; (void) data2hex((unsigned char *)rr + 3, dane_tlsa->dane_tlsa_len[i] - 3, hex, sizeof(hex)); sm_syslog(LOG_DEBUG, NOQID, "STARTTLS=client, %s=%d, type=%d-%d-%d, fp=%s" , chk, r, rr[0], rr[1], rr[2], hex); tlslogerr(LOG_DEBUG, (r < 0) ? 13 : 10, "client"); } if (tTd(96, 20)) { unsigned char hex[DANE_FP_DBG_LEN]; (void) data2hex((unsigned char *)rr + 3, dane_tlsa->dane_tlsa_len[i] - 3, hex, sizeof(hex)); sm_dprintf("ssl_dane_enable: SSL_dane_tlsa_add=%d, u=%d, s=%d, d=%d, len=%d, fp=%s\n" , r, rr[0], rr[1], rr[2] , dane_tlsa->dane_tlsa_len[i]-3, hex ); } } if (tTd(96, 20)) sm_dprintf("ssl_dane_enable: usable=%d\n", usable); if (0 == usable) { /* shouldn't happen - checked above! */ if (LogLevel > 1) sm_syslog(LOG_CRIT, NOQID, "ERROR: ssl_dane_enable() INCONSISTENY: %d usable TLSA RRs found but \"supported\" flag is set (%d)\n", usable, TLSA_IS_FL(dane_tlsa, TLSAFLSUP)); dane_vrfy_ctx->dane_vrfy_chk |= TLSAFLNOVRFY; return SM_SUCCESS; } # endif /* HAVE_SSL_CTX_dane_enable */ return SM_SUCCESS; } # endif /* DANE */ /* ** TLS_VERIFY_CB -- verify callback for TLS certificates ** ** Parameters: ** ctx -- X509 context ** cb_ctx -- callback context ** ** Returns: ** accept connection? ** currently: always yes. */ static int tls_verify_cb(ctx, cb_ctx) X509_STORE_CTX *ctx; void *cb_ctx; { int ok; # if DANE SM_DECTLSI; dane_vrfy_ctx_P dane_vrfy_ctx; # endif /* ** SSL_CTX_set_cert_verify_callback(3): ** callback should return 1 to indicate verification success ** and 0 to indicate verification failure. */ # if DANE SM_GETTLSI; if (tTd(96, 40)) sm_dprintf("tls_verify_cb: tlsi_ctx=%p, vrfy_chk=%#x\n", tlsi_ctx, (tlsi_ctx != NULL && (dane_vrfy_ctx = &(tlsi_ctx->tlsi_dvc)) != NULL) ? dane_vrfy_ctx->dane_vrfy_chk : -1); if (tlsi_ctx != NULL && (dane_vrfy_ctx = &(tlsi_ctx->tlsi_dvc)) != NULL && !dane_vrfy_ctx->dane_vrfy_dane_enabled && (0 == (dane_vrfy_ctx->dane_vrfy_chk & TLSAFLTEMPVRFY)) && VRFY_DANE(dane_vrfy_ctx->dane_vrfy_chk) ) { int depth; depth = X509_STORE_CTX_get_error_depth(ctx); if (tTd(96, 20)) sm_dprintf("tls_verify_cb: enabled=%d, chk=%#x, depth=%d\n", dane_vrfy_ctx->dane_vrfy_dane_enabled, dane_vrfy_ctx->dane_vrfy_chk, depth); if (0 == depth) { ok = dane_verify(ctx, dane_vrfy_ctx); if (tTd(96, 2)) sm_dprintf("tls_verify_cb: dane_verify=%d, res=%d\n", ok, dane_vrfy_ctx->dane_vrfy_res); if (ok != DANE_VRFY_NONE) return 1; } } if (tTd(96, 10)) sm_dprintf("tls_verify_cb: basic check? enabled=%d, chk=%#x\n", (tlsi_ctx != NULL && dane_vrfy_ctx != NULL) ? dane_vrfy_ctx->dane_vrfy_dane_enabled : -1, (tlsi_ctx != NULL && dane_vrfy_ctx != NULL) ? dane_vrfy_ctx->dane_vrfy_chk : -1); # endif /* DANE */ ok = X509_verify_cert(ctx); if ((LogLevel > 13 && ok <= 0) || LogLevel > 14) (void) tls_verify_log(ok, ctx, "TLS"); return 1; } /* ** TLSLOGERR -- log the errors from the TLS error stack ** ** Parameters: ** priority -- syslog priority ** ll -- loglevel ** who -- server/client (for logging). ** ** Returns: ** none. */ void tlslogerr(priority, ll, who) int priority; int ll; const char *who; { unsigned long l; int line, flags; char *file, *data; char buf[256]; if (LogLevel <= ll) return; while ((l = MTA_SSL_ERR_get((const char **) &file, &line, (const char **) &data, &flags, NULL)) != 0) { sm_syslog(priority, NOQID, "STARTTLS=%s: %s:%s:%d:%s", who, ERR_error_string(l, buf), file, line, bitset(ERR_TXT_STRING, flags) ? data : ""); } } /* ** X509_VERIFY_CB -- verify callback ** ** Parameters: ** ok -- current result ** ctx -- X509 context ** ** Returns: ** accept connection? ** currently: always yes. */ static int x509_verify_cb(ok, ctx) int ok; X509_STORE_CTX *ctx; { SM_DECTLSI; if (ok != 0) return ok; SM_GETTLSI; if (LogLevel > 13) tls_verify_log(ok, ctx, "X509"); if (X509_STORE_CTX_get_error(ctx) == X509_V_ERR_UNABLE_TO_GET_CRL && !SM_TLSI_IS(tlsi_ctx, TLSI_FL_CRLREQ)) { X509_STORE_CTX_set_error(ctx, 0); return 1; /* override it */ } return ok; } # if !USE_OPENSSL_ENGINE && !defined(OPENSSL_NO_ENGINE) /* ** TLS_SET_ENGINE -- set up ENGINE if needed ** ** Parameters: ** id -- id for ENGINE ** isprefork -- called before fork()? ** ** Returns: (OpenSSL "semantics", reverse it to allow returning error codes) ** 0: failure ** !=0: ok */ int TLS_set_engine(id, isprefork) const char *id; bool isprefork; { static bool TLSEngineInitialized = false; ENGINE *e; char enginepath[MAXPATHLEN]; /* ** Todo: put error for logging into a string and log it in error: */ if (LogLevel > 13) sm_syslog(LOG_DEBUG, NOQID, "engine=%s, path=%s, ispre=%d, pre=%d, initialized=%d", id, SSLEnginePath, isprefork, SSLEngineprefork, TLSEngineInitialized); if (TLSEngineInitialized) return 1; if (SM_IS_EMPTY(id)) return 1; # if !defined(ENGINE_METHOD_ALL) if (LogLevel > 9) sm_syslog(LOG_NOTICE, NOQID, "engine=%s, status=engines_not_support", id) goto error; # endif /* is this the "right time" to initialize the engine? */ if (isprefork != SSLEngineprefork) return 1; e = NULL; ENGINE_load_builtin_engines(); if (SSLEnginePath != NULL && *SSLEnginePath != '\0') { if ((e = ENGINE_by_id("dynamic")) == NULL) { if (LogLevel > 1) sm_syslog(LOG_ERR, NOQID, "engine=%s, by_id=failed", "dynamic"); goto error; } (void) sm_snprintf(enginepath, sizeof(enginepath), "%s/lib%s.so", SSLEnginePath, id); if (!ENGINE_ctrl_cmd_string(e, "SO_PATH", enginepath, 0)) { if (LogLevel > 1) sm_syslog(LOG_ERR, NOQID, "engine=%s, SO_PATH=%s, status=failed", id, enginepath); goto error; } if (!ENGINE_ctrl_cmd_string(e, "ID", id, 0)) { if (LogLevel > 1) sm_syslog(LOG_ERR, NOQID, "engine=%s, ID=failed", id); goto error; } if (!ENGINE_ctrl_cmd_string(e, "LOAD", NULL, 0)) { if (LogLevel > 1) sm_syslog(LOG_ERR, NOQID, "engine=%s, LOAD=failed", id); goto error; } } else if ((e = ENGINE_by_id(id)) == NULL) { if (LogLevel > 1) sm_syslog(LOG_ERR, NOQID, "engine=%s, by_id=failed", id); return 0; } if (!ENGINE_init(e)) { if (LogLevel > 1) sm_syslog(LOG_ERR, NOQID, "engine=%s, init=failed", id); goto error; } if (!ENGINE_set_default(e, ENGINE_METHOD_ALL)) { if (LogLevel > 1) sm_syslog(LOG_ERR, NOQID, "engine=%s, set_default=failed", id); goto error; } # ifdef ENGINE_CTRL_CHIL_SET_FORKCHECK if (strcmp(id, "chil") == 0) ENGINE_ctrl(e, ENGINE_CTRL_CHIL_SET_FORKCHECK, 1, 0, 0); # endif /* Free our "structural" reference. */ ENGINE_free(e); if (LogLevel > 10) sm_syslog(LOG_INFO, NOQID, "engine=%s, loaded=ok", id); TLSEngineInitialized = true; return 1; error: tlslogerr(LOG_WARNING, 7, "init"); if (e != NULL) ENGINE_free(e); return 0; } # endif /* !USE_OPENSSL_ENGINE && !defined(OPENSSL_NO_ENGINE) */ #endif /* STARTTLS */ sendmail-8.18.1/sendmail/sm_resolve.c0000644000372400037240000010437014556365350017112 0ustar xbuildxbuild/* * Copyright (c) 2000-2004, 2010, 2015, 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ /* * Copyright (c) 1995, 1996, 1997, 1998, 1999 Kungliga Tekniska Hgskolan * (Royal Institute of Technology, Stockholm, Sweden). * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * 3. Neither the name of the Institute nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #include #if NAMED_BIND # if NETINET # include # include # endif # if DNSSEC_TEST || _FFR_NAMESERVER # define _DEFINE_SMR_GLOBALS 1 # endif # include "sm_resolve.h" # if DNSMAP || DANE #include SM_RCSID("$Id: sm_resolve.c,v 8.40 2013-11-22 20:51:56 ca Exp $") static struct stot { const char *st_name; int st_type; } stot[] = { # if NETINET { "A", T_A }, # endif # if NETINET6 { "AAAA", T_AAAA }, # endif { "NS", T_NS }, { "CNAME", T_CNAME }, { "PTR", T_PTR }, { "MX", T_MX }, { "TXT", T_TXT }, { "AFSDB", T_AFSDB }, { "SRV", T_SRV }, # ifdef T_DS { "DS", T_DS }, # endif { "RRSIG", T_RRSIG }, # ifdef T_NSEC { "NSEC", T_NSEC }, # endif # ifdef T_DNSKEY { "DNSKEY", T_DNSKEY }, # endif { "TLSA", T_TLSA }, { NULL, 0 } }; static DNS_REPLY_T *parse_dns_reply __P((unsigned char *, int, unsigned int)); # if DNSSEC_TEST && defined(T_TLSA) static char *hex2bin __P((const char *, int)); # endif /* ** DNS_STRING_TO_TYPE -- convert resource record name into type ** ** Parameters: ** name -- name of resource record type ** ** Returns: ** type if succeeded. ** -1 otherwise. */ int dns_string_to_type(name) const char *name; { struct stot *p = stot; for (p = stot; p->st_name != NULL; p++) if (SM_STRCASEEQ(name, p->st_name)) return p->st_type; return -1; } /* ** DNS_TYPE_TO_STRING -- convert resource record type into name ** ** Parameters: ** type -- resource record type ** ** Returns: ** name if succeeded. ** NULL otherwise. */ const char * dns_type_to_string(type) int type; { struct stot *p = stot; for (p = stot; p->st_name != NULL; p++) if (type == p->st_type) return p->st_name; return NULL; } /* ** DNS_FREE_DATA -- free all components of a DNS_REPLY_T ** ** Parameters: ** dr -- pointer to DNS_REPLY_T ** ** Returns: ** none. */ void dns_free_data(dr) DNS_REPLY_T *dr; { RESOURCE_RECORD_T *rr; if (dr == NULL) return; if (dr->dns_r_q.dns_q_domain != NULL) sm_free(dr->dns_r_q.dns_q_domain); for (rr = dr->dns_r_head; rr != NULL; ) { RESOURCE_RECORD_T *tmp = rr; if (rr->rr_domain != NULL) sm_free(rr->rr_domain); if (rr->rr_u.rr_data != NULL) sm_free(rr->rr_u.rr_data); rr = rr->rr_next; sm_free(tmp); } sm_free(dr); } /* ** BIN2HEX -- convert binary TLSA RR to hex string ** ** Parameters: ** tlsa -- pointer to result (allocated here) ** p -- binary data (TLSA RR) ** size -- length of p ** min_size -- minimum expected size ** ** Returns: ** >0: length of string (*tlsa) ** -1: error */ static int bin2hex __P((char **, unsigned char *, int, int)); static int bin2hex(tlsa, p, size, min_size) char **tlsa; unsigned char *p; int size; int min_size; { int i, pos, txtlen; txtlen = size * 3; if (txtlen <= size || size < min_size) { if (LogLevel > 5) sm_syslog(LOG_WARNING, NOQID, "ERROR: bin2hex: size %d wrong", size); return -1; } *tlsa = (char *) sm_malloc(txtlen); if (*tlsa == NULL) { if (tTd(8, 17)) sm_dprintf("len=%d, rr_data=NULL\n", txtlen); return -1; } snprintf(*tlsa, txtlen, "%02X %02X %02X", p[0], p[1], p[2]); pos = strlen(*tlsa); /* why isn't there a print function like strlcat? */ for (i = 3; i < size && pos < txtlen; i++, pos += 3) snprintf(*tlsa + pos, txtlen - pos, "%c%02X", (i == 3) ? ' ' : ':', p[i]); return i; } /* ** PARSE_DNS_REPLY -- parse DNS reply data. ** ** Parameters: ** data -- pointer to dns data ** len -- len of data ** flags -- flags (RR_*) ** ** Returns: ** pointer to DNS_REPLY_T if succeeded. ** NULL otherwise. ** ** Note: ** use dns_free_data() to free() the result when no longer needed. */ static DNS_REPLY_T * parse_dns_reply(data, len, flags) unsigned char *data; int len; unsigned int flags; { unsigned char *p; unsigned short ans_cnt, ui; int status; size_t l; char host[MAXHOSTNAMELEN]; DNS_REPLY_T *dr; RESOURCE_RECORD_T **rr; if (tTd(8, 90)) { FILE *fp; fp = fopen("dns.buffer", "w"); if (fp != NULL) { fwrite(data, 1, len, fp); fclose(fp); fp = NULL; } else sm_dprintf("parse_dns_reply: fp=%p, e=%d\n", (void *)fp, errno); } dr = (DNS_REPLY_T *) sm_malloc(sizeof(*dr)); if (dr == NULL) return NULL; memset(dr, 0, sizeof(*dr)); p = data; /* doesn't work on Crays? */ memcpy(&dr->dns_r_h, p, sizeof(dr->dns_r_h)); p += sizeof(dr->dns_r_h); status = dn_expand(data, data + len, p, host, sizeof(host)); if (status < 0) goto error; dr->dns_r_q.dns_q_domain = sm_strdup(host); if (dr->dns_r_q.dns_q_domain == NULL) goto error; ans_cnt = ntohs((unsigned short) dr->dns_r_h.ancount); if (tTd(8, 17)) sm_dprintf("parse_dns_reply: ac=%d, ad=%d\n", ans_cnt, dr->dns_r_h.ad); p += status; GETSHORT(dr->dns_r_q.dns_q_type, p); GETSHORT(dr->dns_r_q.dns_q_class, p); rr = &dr->dns_r_head; ui = 0; while (p < data + len && ui < ans_cnt) { int type, class, ttl, size, txtlen; status = dn_expand(data, data + len, p, host, sizeof(host)); if (status < 0) goto error; ++ui; p += status; GETSHORT(type, p); GETSHORT(class, p); GETLONG(ttl, p); GETSHORT(size, p); if (p + size > data + len) { /* ** announced size of data exceeds length of ** data paket: someone is cheating. */ if (LogLevel > 5) sm_syslog(LOG_WARNING, NOQID, "ERROR: DNS RDLENGTH=%d > data len=%d", size, len - (int)(p - data)); goto error; } *rr = (RESOURCE_RECORD_T *) sm_malloc(sizeof(**rr)); if (*rr == NULL) goto error; memset(*rr, 0, sizeof(**rr)); (*rr)->rr_domain = sm_strdup(host); if ((*rr)->rr_domain == NULL) goto error; (*rr)->rr_type = type; (*rr)->rr_class = class; (*rr)->rr_ttl = ttl; (*rr)->rr_size = size; switch (type) { case T_NS: case T_CNAME: case T_PTR: status = dn_expand(data, data + len, p, host, sizeof(host)); if (status < 0) goto error; if (tTd(8, 50)) sm_dprintf("parse_dns_reply: type=%s, host=%s\n", dns_type_to_string(type), host); (*rr)->rr_u.rr_txt = sm_strdup(host); if ((*rr)->rr_u.rr_txt == NULL) goto error; break; case T_MX: case T_AFSDB: status = dn_expand(data, data + len, p + 2, host, sizeof(host)); if (status < 0) goto error; l = strlen(host) + 1; (*rr)->rr_u.rr_mx = (MX_RECORD_T *) sm_malloc(sizeof(*((*rr)->rr_u.rr_mx)) + l); if ((*rr)->rr_u.rr_mx == NULL) goto error; (*rr)->rr_u.rr_mx->mx_r_preference = (p[0] << 8) | p[1]; (void) sm_strlcpy((*rr)->rr_u.rr_mx->mx_r_domain, host, l); if (tTd(8, 50)) sm_dprintf("mx=%s, pref=%d\n", host, (*rr)->rr_u.rr_mx->mx_r_preference); break; case T_SRV: status = dn_expand(data, data + len, p + 6, host, sizeof(host)); if (status < 0) goto error; l = strlen(host) + 1; (*rr)->rr_u.rr_srv = (SRV_RECORDT_T*) sm_malloc(sizeof(*((*rr)->rr_u.rr_srv)) + l); if ((*rr)->rr_u.rr_srv == NULL) goto error; (*rr)->rr_u.rr_srv->srv_r_priority = (p[0] << 8) | p[1]; (*rr)->rr_u.rr_srv->srv_r_weight = (p[2] << 8) | p[3]; (*rr)->rr_u.rr_srv->srv_r_port = (p[4] << 8) | p[5]; (void) sm_strlcpy((*rr)->rr_u.rr_srv->srv_r_target, host, l); break; case T_TXT: /* ** The TXT record contains the length as ** leading byte, hence the value is restricted ** to 255, which is less than the maximum value ** of RDLENGTH (size). Nevertheless, txtlen ** must be less than size because the latter ** specifies the length of the entire TXT ** record. */ txtlen = *p; if (txtlen >= size) { if (LogLevel > 5) sm_syslog(LOG_WARNING, NOQID, "ERROR: DNS TXT record size=%d <= text len=%d", size, txtlen); goto error; } (*rr)->rr_u.rr_txt = (char *) sm_malloc(txtlen + 1); if ((*rr)->rr_u.rr_txt == NULL) goto error; (void) sm_strlcpy((*rr)->rr_u.rr_txt, (char*) p + 1, txtlen + 1); break; # ifdef T_TLSA case T_TLSA: if (tTd(8, 61)) sm_dprintf("parse_dns_reply: TLSA, size=%d, flags=%X\n", size, flags); if ((flags & RR_AS_TEXT) != 0) { txtlen = bin2hex((char **)&((*rr)->rr_u.rr_data), p, size, 4); if (txtlen <= 0) goto error; break; } /* FALLTHROUGH */ /* return "raw" data for caller to use as it pleases */ # endif /* T_TLSA */ default: (*rr)->rr_u.rr_data = (unsigned char*) sm_malloc(size); if ((*rr)->rr_u.rr_data == NULL) goto error; (void) memcpy((*rr)->rr_u.rr_data, p, size); if (tTd(8, 61) && type == T_A) { SOCKADDR addr; (void) memcpy((void *)&addr.sin.sin_addr.s_addr, p, size); sm_dprintf("parse_dns_reply: IPv4=%s\n", inet_ntoa(addr.sin.sin_addr)); } break; } p += size; rr = &(*rr)->rr_next; } *rr = NULL; return dr; error: dns_free_data(dr); return NULL; } # if DNSSEC_TEST # include # if _FFR_8BITENVADDR # include # endif static int gen_dns_reply __P((unsigned char *, int, unsigned char *, const char *, int, const char *, int, int, int, int, const char *, int, int, int)); static int dnscrtrr __P((const char *, const char *, int, char *, int, unsigned int, int *, int *, unsigned char *, int, unsigned char *)); /* ** HERRNO2TXT -- return error text for h_errno ** ** Parameters: ** e -- h_errno ** ** Returns: ** DNS error text if available */ const char * herrno2txt(e) int e; { switch (e) { case NETDB_INTERNAL: return "see errno"; case NETDB_SUCCESS: return "OK"; case HOST_NOT_FOUND: return "HOST_NOT_FOUND"; case TRY_AGAIN: return "TRY_AGAIN"; case NO_RECOVERY: return "NO_RECOVERY"; case NO_DATA: return "NO_DATA"; } return "bogus h_errno"; } /* ** GEN_DNS_REPLY -- generate DNS reply data. ** ** Parameters: ** buf -- buffer to which DNS data is written ** buflen -- length of buffer ** bufpos -- position in buffer where DNS RRs are appended ** query -- name of query ** qtype -- resource record type of query ** domain -- name of domain which has been "found" ** class -- resource record class ** type -- resource record type ** ttl -- TTL ** size -- size of data ** data -- data ** txtlen -- length of text ** pref -- MX preference ** ad -- ad flag ** ** Returns: ** >0 length of buffer that has been used. ** <0 error */ static int gen_dns_reply(buf, buflen, bufpos, query, qtype, domain, class, type, ttl, size, data, txtlen, pref, ad) unsigned char *buf; int buflen; unsigned char *bufpos; const char *query; int qtype; const char *domain; int class; int type; int ttl; int size; const char *data; int txtlen; int pref; int ad; { unsigned short ans_cnt; HEADER *hp; unsigned char *cp, *ep; int n; static unsigned char *dnptrs[20], **dpp, **lastdnptr; #define DN_COMP_CHK do \ { \ if (n < 0) \ { \ if (tTd(8, 91)) \ sm_dprintf("gen_dns_reply: dn_comp=%d\n", n); \ return n; \ } \ } while (0) SM_REQUIRE(NULL != buf); SM_REQUIRE(buflen >= HFIXEDSZ); SM_REQUIRE(query != NULL); hp = (HEADER *) buf; ep = buf + buflen; cp = buf + HFIXEDSZ; if (bufpos != NULL) cp = bufpos; else { sm_dprintf("gen_dns_reply: query=%s, domain=%s, type=%s, size=%d, ad=%d\n", query, domain, dns_type_to_string(type), size, ad); dpp = dnptrs; *dpp++ = buf; *dpp++ = NULL; lastdnptr = dnptrs + sizeof dnptrs / sizeof dnptrs[0]; memset(buf, 0, HFIXEDSZ); hp->id = 0xdead; /* HACK */ hp->qr = 1; hp->opcode = QUERY; hp->rd = 0; /* recursion desired? */ hp->rcode = 0; /* !!! */ /* hp->aa = ?; * !!! */ /* hp->tc = ?; * !!! */ /* hp->ra = ?; * !!! */ hp->qdcount = htons(1); hp->ancount = 0; n = dn_comp(query, cp, ep - cp - QFIXEDSZ, dnptrs, lastdnptr); DN_COMP_CHK; cp += n; PUTSHORT(qtype, cp); PUTSHORT(class, cp); } hp->ad = ad; if (ep - cp < QFIXEDSZ) { if (tTd(8, 91)) sm_dprintf("gen_dns_reply: ep-cp=%ld\n", (long) (ep - cp)); return (-1); } n = dn_comp(domain, cp, ep - cp - QFIXEDSZ, dnptrs, lastdnptr); DN_COMP_CHK; cp += n; PUTSHORT(type, cp); PUTSHORT(class, cp); PUTLONG(ttl, cp); ans_cnt = ntohs((unsigned short) hp->ancount); ++ans_cnt; hp->ancount = htons((unsigned short) ans_cnt); switch (type) { case T_MX: n = dn_comp(data, cp + 4, ep - cp - QFIXEDSZ, dnptrs, lastdnptr); DN_COMP_CHK; PUTSHORT(n + 2, cp); PUTSHORT(pref, cp); cp += n; break; case T_TXT: if (txtlen >= size) return -1; PUTSHORT(txtlen, cp); (void) sm_strlcpy((char *)cp, data, txtlen + 1); cp += txtlen; break; case T_CNAME: n = dn_comp(data, cp + 2, ep - cp - QFIXEDSZ, dnptrs, lastdnptr); DN_COMP_CHK; PUTSHORT(n, cp); cp += n; break; # if defined(T_TLSA) case T_TLSA: { char *tlsa; tlsa = hex2bin(data, size); if (tlsa == NULL) return (-1); n = size / 2; PUTSHORT(n, cp); (void) memcpy(cp, tlsa, n); cp += n; } break; # endif /* T_TLSA */ default: PUTSHORT(size, cp); (void) memcpy(cp, data, size); cp += size; break; } return (cp - buf); } /* ** SETHERRNOFROMSTRING -- set h_errno based on text ** ** Parameters: ** str -- string which might contain h_errno text ** prc -- pointer to rcode (EX_*) ** ** Returns: ** h_errno if found ** 0 otherwise */ int setherrnofromstring(str, prc) const char *str; int *prc; { SM_SET_H_ERRNO(0); if (SM_IS_EMPTY(str)) return 0; if (strstr(str, "herrno:") == NULL) return 0; if (prc != NULL) *prc = EX_NOHOST; if (strstr(str, "host_not_found")) SM_SET_H_ERRNO(HOST_NOT_FOUND); else if (strstr(str, "try_again")) { SM_SET_H_ERRNO(TRY_AGAIN); if (prc != NULL) *prc = EX_TEMPFAIL; } else if (strstr(str, "no_recovery")) SM_SET_H_ERRNO(NO_RECOVERY); else if (strstr(str, "no_data")) SM_SET_H_ERRNO(NO_DATA); else SM_SET_H_ERRNO(NETDB_INTERNAL); return h_errno; } /* ** GETTTLFROMSTRING -- extract ttl from a string ** ** Parameters: ** str -- string which might contain ttl ** ** Returns: ** ttl if found ** 0 otherwise */ int getttlfromstring(str) const char *str; { if (SM_IS_EMPTY(str)) return 0; #define TTL_PRE "ttl=" if (strstr(str, TTL_PRE) == NULL) return 0; return strtoul(str + strlen(TTL_PRE), NULL, 10); } # if defined(T_TLSA) /* ** HEX2BIN -- convert hex string to binary TLSA RR ** ** Parameters: ** p -- hex representation of TLSA RR ** size -- length of p ** ** Returns: ** pointer to binary TLSA RR ** NULL: error */ static char * hex2bin(p, size) const char *p; int size; { int i, pos, txtlen; char *tlsa; txtlen = size / 2; if (txtlen * 2 == size) { if (LogLevel > 5) sm_syslog(LOG_WARNING, NOQID, "ERROR: hex2bin: size %d wrong", size); return NULL; } tlsa = sm_malloc(txtlen + 1); if (tlsa == NULL) { if (tTd(8, 17)) sm_dprintf("len=%d, tlsa=NULL\n", txtlen); return NULL; } #define CHAR2INT(c) (((c) <= '9') ? ((c) - '0') : (toupper(c) - 'A' + 10)) for (i = 0, pos = 0; i + 1 < size && pos < txtlen; i += 2, pos++) tlsa[pos] = CHAR2INT(p[i]) * 16 + CHAR2INT(p[i+1]); return tlsa; } # endif /* T_TLSA */ const char * rr_type2tag(rr_type) int rr_type; { switch (rr_type) { case T_A: return "ipv4"; # if NETINET6 case T_AAAA: return "ipv6"; # endif case T_CNAME: return "cname"; case T_MX: return "mx"; # ifdef T_TLSA case T_TLSA: return "tlsa"; # endif } return NULL; } /* ** DNSCRTRR -- create DNS RR ** ** Parameters: ** domain -- original query domain ** query -- name of query ** qtype -- resource record type of query ** value -- (list of) data to set ** rr_type -- resource record type ** flags -- flags how to handle various lookups ** herr -- (pointer to) h_errno (output if non-NULL) ** adp -- (pointer to) ad flag ** answer -- buffer for RRs ** anslen -- size of answer ** anspos -- current position in answer ** ** Returns: ** >0: length of data in answer ** <0: error, check *herr */ static int dnscrtrr(domain, query, qtype, value, rr_type, flags, herr, adp, answer, anslen, anspos) const char *domain; const char *query; int qtype; char *value; int rr_type; unsigned int flags; int *herr; int *adp; unsigned char *answer; int anslen; unsigned char *anspos; { SOCKADDR addr; int ttl, ad, rlen; char *p, *token; char data[IN6ADDRSZ]; char rhs[MAXLINE]; rlen = -1; if (SM_IS_EMPTY(value)) return rlen; SM_REQUIRE(adp != NULL); (void) sm_strlcpy(rhs, value, sizeof(rhs)); p = rhs; if (setherrnofromstring(p, NULL) != 0) { if (herr != NULL) *herr = h_errno; if (tTd(8, 16)) sm_dprintf("dnscrtrr rhs=%s h_errno=%d (%s)\n", p, h_errno, herrno2txt(h_errno)); return rlen; } ttl = 0; ad = 0; for (token = p; token != NULL && *token != '\0'; token = p) { rlen = 0; while (p != NULL && *p != '\0' && !SM_ISSPACE(*p)) ++p; if (SM_ISSPACE(*p)) *p++ = '\0'; sm_dprintf("dnscrtrr: token=%s\n", token); if (strcmp(token, "ad") == 0) { bool adflag; adflag = (_res.options & RES_USE_DNSSEC) != 0; /* maybe print this only for the final RR? */ if (tTd(8, 61)) sm_dprintf("dnscrtrr: ad=1, adp=%d, adflag=%d\n", *adp, adflag); if (*adp != 0 && adflag) { *adp = 1; ad = 1; } continue; } if (ttl == 0 && (ttl = getttlfromstring(token)) > 0) { if (tTd(8, 61)) sm_dprintf("dnscrtrr: ttl=%d\n", ttl); continue; } if (rr_type == T_A) { addr.sin.sin_addr.s_addr = inet_addr(token); (void) memmove(data, (void *)&addr.sin.sin_addr.s_addr, INADDRSZ); rlen = gen_dns_reply(answer, anslen, anspos, query, qtype, domain, C_IN, rr_type, ttl, INADDRSZ, data, 0, 0, ad); } # if NETINET6 if (rr_type == T_AAAA) { anynet_pton(AF_INET6, token, &addr.sin6.sin6_addr); memmove(data, (void *)&addr.sin6.sin6_addr, IN6ADDRSZ); rlen = gen_dns_reply(answer, anslen, anspos, query, qtype, domain, C_IN, rr_type, ttl, IN6ADDRSZ, data, 0, 0, ad); } # endif /* NETINET6 */ if (rr_type == T_MX) { char *endptr; int pref; pref = (int) strtoul(token, &endptr, 10); if (endptr == NULL || *endptr != ':') goto error; token = endptr + 1; rlen = gen_dns_reply(answer, anslen, anspos, query, qtype, domain, C_IN, rr_type, ttl, strlen(token) + 1, token, 0, pref, ad); if (tTd(8, 50)) sm_dprintf("dnscrtrr: mx=%s, pref=%d, rlen=%d\n", token, pref, rlen); } # ifdef T_TLSA if (rr_type == T_TLSA) rlen = gen_dns_reply(answer, anslen, anspos, query, qtype, domain, C_IN, rr_type, ttl, strlen(token) + 1, token, 0, 0, ad); # endif if (rr_type == T_CNAME) rlen = gen_dns_reply(answer, anslen, anspos, query, qtype, domain, C_IN, rr_type, ttl, strlen(token), token, 0, 0, ad); if (rlen < 0) goto error; if (rlen > 0) anspos = answer + rlen; } if (ad != 1) *adp = 0; return rlen; error: if (herr != NULL && 0 == *herr) *herr = NO_RECOVERY; return -1; } /* ** TSTDNS_SEARCH -- replacement for res_search() for testing ** ** Parameters: ** domain -- query domain ** class -- class ** type -- resource record type ** answer -- buffer for RRs ** anslen -- size of answer ** ** Returns: ** >0: length of data in answer ** <0: error, check h_errno */ int tstdns_search(domain, class, type, answer, anslen) const char *domain; int class; int type; unsigned char *answer; int anslen; { int rlen, ad, maprcode, cnt, flags, herr; bool found_cname; const char *query; char *p; const char *tag; char *av[2]; STAB *map; # if _FFR_8BITENVADDR char qbuf[MAXNAME_I]; char *qdomain; # else # define qdomain domain # endif char key[MAXNAME_I + 16]; char rhs[MAXLINE]; unsigned char *anspos; rlen = -1; herr = 0; if (class != C_IN) goto error; if (SM_IS_EMPTY(domain)) goto error; tag = rr_type2tag(type); if (tag == NULL) goto error; maprcode = EX_OK; ad = -1; flags = 0; # if _FFR_8BITENVADDR if (tTd(8, 62)) sm_dprintf("domain=%s\n", domain); (void) dequote_internal_chars((char *)domain, qbuf, sizeof(qbuf)); query = qbuf; qdomain = qbuf; if (tTd(8, 63)) sm_dprintf("qdomain=%s\n", qdomain); # else query = domain; # endif /* _FFR_8BITENVADDR */ anspos = NULL; map = stab("access", ST_MAP, ST_FIND); if (NULL == map) { sm_dprintf("access map not found\n"); goto error; } if (!bitset(MF_OPEN, map->s_map.map_mflags) && !openmap(&(map->s_map))) { sm_dprintf("access map open failed\n"); goto error; } /* ** Look up tag:domain, if not found and domain does not end with a dot ** (and the proper debug level is selected), also try with trailing dot. */ #define SM_LOOKUP2(tag) \ do { \ int len; \ \ len = strlen(qdomain); \ av[0] = key; \ av[1] = NULL; \ snprintf(key, sizeof(key), "%s:%s", tag, qdomain); \ p = (*map->s_map.map_class->map_lookup)(&map->s_map, key, av, \ &maprcode); \ if (p != NULL) \ break; \ if (!tTd(8, 112) || (len > 0 && '.' == qdomain[len - 1])) \ break; \ snprintf(key, sizeof(key), "%s:%s.", tag, qdomain); \ p = (*map->s_map.map_class->map_lookup)(&map->s_map, key, av, \ &maprcode); \ } while (0) cnt = 0; found_cname = false; while (cnt < 6) { char *last; /* Should this try with/without trailing dot? */ SM_LOOKUP2(tag); if (p != NULL) { sm_dprintf("access map lookup key=%s, value=%s\n", key, p); break; } if (NULL == p && (flags & RR_NO_CNAME) == 0) { sm_dprintf("access map lookup failed key=%s, try cname\n", key); SM_LOOKUP2("cname"); if (p != NULL) { sm_dprintf("cname lookup key=%s, value=%s, ad=%d\n", key, p, ad); rlen = dnscrtrr(qdomain, query, type, p, T_CNAME, flags, &herr, &ad, answer, anslen, anspos); if (rlen < 0) goto error; if (rlen > 0) anspos = answer + rlen; found_cname = true; } } if (NULL == p) break; (void) sm_strlcpy(rhs, p, sizeof(rhs)); p = rhs; /* skip (leading) ad/ttl: look for last ' ' */ if ((last = strrchr(p, ' ')) != NULL && last[1] != '\0') qdomain = last + 1; else qdomain = p; ++cnt; } if (NULL == p) { int t; char *tags[] = { "ipv4", "mx", "tlsa", # if NETINET6 "ipv6", # endif NULL }; for (t = 0; tags[t] != NULL; t++) { if (strcmp(tag, tags[t]) == 0) continue; SM_LOOKUP2(tags[t]); if (p != NULL) { sm_dprintf("access map lookup failed key=%s:%s, but found key=%s\n", tag, qdomain, key); herr = NO_DATA; goto error; } } sm_dprintf("access map lookup failed key=%s\n", key); herr = HOST_NOT_FOUND; goto error; } if (found_cname && (flags & RR_ONLY_CNAME) != 0) return rlen; rlen = dnscrtrr(qdomain, query, type, p, type, flags, &herr, &ad, answer, anslen, anspos); if (rlen < 0) goto error; return rlen; error: if (0 == herr) herr = NO_RECOVERY; SM_SET_H_ERRNO(herr); sm_dprintf("rlen=%d, herr=%d\n", rlen, herr); return -1; } /* ** TSTDNS_QUERYDOMAIN -- replacement for res_querydomain() for testing ** ** Parameters: ** name -- query name ** domain -- query domain ** class -- class ** type -- resource record type ** answer -- buffer for RRs ** anslen -- size of answer ** ** Returns: ** >0: length of data in answer ** <0: error, check h_errno */ int tstdns_querydomain(name, domain, class, type, answer, anslen) const char *name; const char *domain; int class; int type; unsigned char *answer; int anslen; { char query[MAXNAME_I]; int len; if (NULL == name) goto error; if (SM_IS_EMPTY(domain)) return tstdns_search(name, class, type, answer, anslen); len = snprintf(query, sizeof(query), "%s.%s", name, domain); if (len >= (int)sizeof(query)) goto error; return tstdns_search(query, class, type, answer, anslen); error: SM_SET_H_ERRNO(NO_RECOVERY); return -1; } # endif /* DNSSEC_TEST */ /* ** DNS_LOOKUP_INT -- perform DNS lookup ** ** Parameters: ** domain -- name to look up ** rr_class -- resource record class ** rr_type -- resource record type ** retrans -- retransmission timeout ** retry -- number of retries ** options -- DNS resolver options ** flags -- currently only passed to parse_dns_reply() ** err -- (pointer to) errno (output if non-NULL) ** herr -- (pointer to) h_errno (output if non-NULL) ** ** Returns: ** result of lookup if succeeded. ** NULL otherwise. */ DNS_REPLY_T * dns_lookup_int(domain, rr_class, rr_type, retrans, retry, options, flags, err, herr) const char *domain; int rr_class; int rr_type; time_t retrans; int retry; unsigned int options; unsigned int flags; int *err; int *herr; { int len; unsigned long old_options = 0; time_t save_retrans = 0; int save_retry = 0; DNS_REPLY_T *dr = NULL; querybuf reply_buf; unsigned char *reply; int (*resfunc) __P((const char *, int, int, u_char *, int)); # define SMRBSIZE ((int) sizeof(reply_buf)) # ifndef IP_MAXPACKET # define IP_MAXPACKET 65535 # endif resfunc = res_search; # if DNSSEC_TEST if (tTd(8, 110)) resfunc = tstdns_search; # endif old_options = _res.options; _res.options |= options; if (err != NULL) *err = 0; if (herr != NULL) *herr = 0; if (tTd(8, 16)) { _res.options |= RES_DEBUG; sm_dprintf("dns_lookup_int(%s, %d, %s, %x)\n", domain, rr_class, dns_type_to_string(rr_type), options); } # if DNSSEC_TEST if (tTd(8, 15)) sm_dprintf("NS=%s, port=%d\n", inet_ntoa(_res.nsaddr_list[0].sin_addr), ntohs(_res.nsaddr_list[0].sin_port)); # endif if (retrans > 0) { save_retrans = _res.retrans; _res.retrans = retrans; } if (retry > 0) { save_retry = _res.retry; _res.retry = retry; } errno = 0; SM_SET_H_ERRNO(0); reply = (unsigned char *)&reply_buf; len = (*resfunc)(domain, rr_class, rr_type, reply, SMRBSIZE); if (len >= SMRBSIZE) { if (len >= IP_MAXPACKET) { if (tTd(8, 4)) sm_dprintf("dns_lookup: domain=%s, length=%d, default_size=%d, max=%d, status=response too long\n", domain, len, SMRBSIZE, IP_MAXPACKET); } else { if (tTd(8, 6)) sm_dprintf("dns_lookup: domain=%s, length=%d, default_size=%d, max=%d, status=response longer than default size, resizing\n", domain, len, SMRBSIZE, IP_MAXPACKET); reply = (unsigned char *)sm_malloc(IP_MAXPACKET); if (reply == NULL) SM_SET_H_ERRNO(TRY_AGAIN); else { SM_SET_H_ERRNO(0); len = (*resfunc)(domain, rr_class, rr_type, reply, IP_MAXPACKET); } } } _res.options = old_options; if (len < 0) { if (err != NULL) *err = errno; if (herr != NULL) *herr = h_errno; if (tTd(8, 16)) { sm_dprintf("dns_lookup_int(%s, %d, %s, %x)=%d, errno=%d, h_errno=%d" # if DNSSEC_TEST " (%s)" # endif "\n", domain, rr_class, dns_type_to_string(rr_type), options, len, errno, h_errno # if DNSSEC_TEST , herrno2txt(h_errno) # endif ); } } else if (tTd(8, 16)) { sm_dprintf("dns_lookup_int(%s, %d, %s, %x)=%d\n", domain, rr_class, dns_type_to_string(rr_type), options, len); } if (len >= 0 && len < IP_MAXPACKET && reply != NULL) dr = parse_dns_reply(reply, len, flags); if (reply != (unsigned char *)&reply_buf && reply != NULL) { sm_free(reply); reply = NULL; } if (retrans > 0) _res.retrans = save_retrans; if (retry > 0) _res.retry = save_retry; return dr; } /* ** DNS_LOOKUP_MAP -- perform DNS map lookup ** ** Parameters: ** domain -- name to look up ** rr_class -- resource record class ** rr_type -- resource record type ** retrans -- retransmission timeout ** retry -- number of retries ** options -- DNS resolver options ** ** Returns: ** result of lookup if succeeded. ** NULL otherwise. */ DNS_REPLY_T * dns_lookup_map(domain, rr_class, rr_type, retrans, retry, options) const char *domain; int rr_class; int rr_type; time_t retrans; int retry; unsigned int options; { return dns_lookup_int(domain, rr_class, rr_type, retrans, retry, options, RR_AS_TEXT, NULL, NULL); } # if DANE /* ** DNS2HE -- convert DNS_REPLY_T list to hostent struct ** ** Parameters: ** dr -- DNS lookup result ** family -- address family ** ** Returns: ** hostent struct if succeeded. ** NULL otherwise. ** ** Note: ** this returns a pointer to a static struct! */ struct hostent * dns2he(dr, family) DNS_REPLY_T *dr; int family; { # define SM_MAX_ADDRS 256 static struct hostent he; static char *he_aliases[1]; static char *he_addr_list[SM_MAX_ADDRS]; # ifdef IN6ADDRSZ # define IN_ADDRSZ IN6ADDRSZ # else # define IN_ADDRSZ INADDRSZ # endif static char he_addrs[SM_MAX_ADDRS * IN_ADDRSZ]; static char he_name[MAXNAME_I]; static bool he_init = false; struct hostent *h; int i; size_t sz; # if NETINET6 && DNSSEC_TEST struct in6_addr ia6; char buf6[INET6_ADDRSTRLEN]; # endif RESOURCE_RECORD_T *rr; if (dr == NULL) return NULL; h = &he; if (!he_init) { he_aliases[0] = NULL; he.h_aliases = he_aliases; he.h_addr_list = he_addr_list; he.h_name = he_name; he_init = true; } h->h_addrtype = family; if (tTd(8, 17)) sm_dprintf("dns2he: ad=%d\n", dr->dns_r_h.ad); /* do we want/need to copy the name? */ rr = dr->dns_r_head; if (rr != NULL && rr->rr_domain != NULL) sm_strlcpy(h->h_name, rr->rr_domain, sizeof(he_name)); else h->h_name[0] = '\0'; sz = 0; # if NETINET if (family == AF_INET) sz = INADDRSZ; # endif # if NETINET6 if (family == AF_INET6) sz = IN6ADDRSZ; # endif if (sz == 0) return NULL; h->h_length = sz; for (rr = dr->dns_r_head, i = 0; rr != NULL && i < SM_MAX_ADDRS - 1; rr = rr->rr_next) { h->h_addr_list[i] = he_addrs + i * h->h_length; switch (rr->rr_type) { # if NETINET case T_A: if (family != AF_INET) continue; memmove(h->h_addr_list[i], rr->rr_u.rr_a, INADDRSZ); ++i; break; # endif /* NETINET */ # if NETINET6 case T_AAAA: if (family != AF_INET6) continue; memmove(h->h_addr_list[i], rr->rr_u.rr_aaaa, IN6ADDRSZ); ++i; break; # endif /* NETINET6 */ case T_CNAME: # if DNSSEC_TEST if (tTd(8, 16)) sm_dprintf("dns2he: cname: %s ttl=%d\n", rr->rr_u.rr_txt, rr->rr_ttl); # endif break; case T_MX: # if DNSSEC_TEST if (tTd(8, 16)) sm_dprintf("dns2he: mx: %d %s ttl=%d\n", rr->rr_u.rr_mx->mx_r_preference, rr->rr_u.rr_mx->mx_r_domain, rr->rr_ttl); # endif break; # if defined(T_TLSA) case T_TLSA: # if DNSSEC_TEST if (tTd(8, 16)) { char *tlsa; int len; len = bin2hex(&tlsa, rr->rr_u.rr_data, rr->rr_size, 4); if (len > 0) sm_dprintf("dns2he: tlsa: %s ttl=%d\n", tlsa, rr->rr_ttl); } # endif break; # endif /* T_TLSA */ } } /* complain if list is too long! */ SM_ASSERT(i < SM_MAX_ADDRS); h->h_addr_list[i] = NULL; # if DNSSEC_TEST if (tTd(8, 16)) { struct in_addr ia; for (i = 0; h->h_addr_list[i] != NULL && i < SM_MAX_ADDRS; i++) { char *addr; addr = NULL; # if NETINET6 if (h->h_addrtype == AF_INET6) { memmove(&ia6, h->h_addr_list[i], IN6ADDRSZ); addr = anynet_ntop(&ia6, buf6, sizeof(buf6)); } else # endif /* NETINET6 */ /* "else" in #if code above */ { memmove(&ia, h->h_addr_list[i], INADDRSZ); addr = (char *) inet_ntoa(ia); } if (addr != NULL) sm_dprintf("dns2he: addr[%d]: %s\n", i, addr); } } # endif /* DNSSEC_TEST */ return h; } # endif /* DANE */ # endif /* DNSMAP || DANE */ # if DNSSEC_TEST || _FFR_NAMESERVER /* ** DNS_ADDNS -- add one NS in resolver context ** ** Parameters: ** ns -- (IPv4 address of) nameserver ** port -- nameserver port (host order) ** ** Returns: ** None. */ static void dns_addns __P((struct in_addr *, unsigned int)); static int nsidx = 0; #ifndef MAXNS # define MAXNS 3 #endif static void dns_addns(ns, port) struct in_addr *ns; unsigned int port; { if (nsidx >= MAXNS) syserr("too many NameServers defined (%d max)", MAXNS); _res.nsaddr_list[nsidx].sin_family = AF_INET; _res.nsaddr_list[nsidx].sin_addr = *ns; if (port != 0) _res.nsaddr_list[nsidx].sin_port = htons(port); _res.nscount = ++nsidx; if (tTd(8, 61)) sm_dprintf("dns_addns: nsidx=%d, ns=%s:%u\n", nsidx - 1, inet_ntoa(*ns), port); } /* ** NSPORTIP -- parse port@IPv4 and set NS accordingly ** ** Parameters: ** p -- port@IPv4 ** ** Returns: ** <0: error ** >=0: ok ** ** Side Effects: ** sets NS for DNS lookups */ /* ** There should be a generic function for this... ** milter_open(), socket_map_open(), others? */ int nsportip(p) char *p; { char *h; int r; unsigned short port; struct in_addr nsip; if (SM_IS_EMPTY(p)) return -1; port = 0; while (SM_ISSPACE(*p)) p++; if (*p == '\0') return -1; h = strchr(p, '@'); if (h != NULL) { *h = '\0'; if (isascii(*p) && isdigit(*p)) port = atoi(p); *h = '@'; p = h + 1; } h = strchr(p, ' '); if (h != NULL) *h = '\0'; r = inet_pton(AF_INET, p, &nsip); if (r > 0) { if ((_res.options & RES_INIT) == 0) (void) res_init(); dns_addns(&nsip, port); } if (h != NULL) *h = ' '; return r > 0 ? 0 : -1; } # endif /* DNSSEC_TEST || _FFR_NAMESERVER */ #endif /* NAMED_BIND */ sendmail-8.18.1/sendmail/tls.h0000644000372400037240000002345714556365350015551 0ustar xbuildxbuild/* * Copyright (c) 2015, 2020-2023 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #ifndef _TLS_H # define _TLS_H 1 #if STARTTLS # include # if !TLS_NO_RSA # if _FFR_FIPSMODE # define RSA_KEYLENGTH 1024 # else # define RSA_KEYLENGTH 512 # endif # endif /* !TLS_NO_RSA */ # if (OPENSSL_VERSION_NUMBER >= 0x10100000L && OPENSSL_VERSION_NUMBER < 0x20000000L) || OPENSSL_VERSION_NUMBER >= 0x30000000L # define TLS_version_num OpenSSL_version_num # else # define TLS_version_num SSLeay # endif #ifndef MTA_HAVE_TLSv1_3 /* ** HACK: if openssl can disable TLSv1_3 then "assume" it supports all ** related functions! */ # ifdef SSL_OP_NO_TLSv1_3 # define MTA_HAVE_TLSv1_3 1 # endif #endif #ifdef _DEFINE # define EXTERN #else # define EXTERN extern #endif #if _FFR_TLS_EC && !defined(TLS_EC) # define TLS_EC _FFR_TLS_EC #endif #if DANE # ifndef HAVE_SSL_CTX_dane_enable # if (OPENSSL_VERSION_NUMBER >= 0x10101000L && OPENSSL_VERSION_NUMBER < 0x20000000L) || OPENSSL_VERSION_NUMBER >= 0x30000000L # define HAVE_SSL_CTX_dane_enable 1 # endif # endif extern int ssl_dane_enable __P((dane_vrfy_ctx_P, SSL *)); # define SM_NOTDONE 1 # define SM_FULL 2 extern int gettlsa __P((char *, char *, STAB **, unsigned long, unsigned int, unsigned int)); # ifndef MAX_TLSA_RR # if HAVE_SSL_CTX_dane_enable # define MAX_TLSA_RR 64 # else # define MAX_TLSA_RR 16 # endif # endif # define DANE_VRFY_NONE 0 /* no DANE */ /* # define DANE_VRFY_NO 1 * no TLSAs */ # define DANE_VRFY_FAIL 2 /* TLSA check failed */ # define DANE_VRFY_OK 3 /* TLSA check was ok */ # define DANE_VRFY_TEMP 4 /* TLSA check failed temporarily */ /* return values for dane_tlsa_chk() */ # define TLSA_BOGUS (-10) # define TLSA_UNSUPP (-1) /* note: anything >= 0 is ok and refers to the hash algorithm */ # define TLSA_IS_SUPPORTED(r) ((r) >= 0) # define TLSA_IS_VALID(r) ((r) >= TLSA_UNSUPP) struct dane_tlsa_S { time_t dane_tlsa_exp; int dane_tlsa_n; int dane_tlsa_dnsrc; unsigned long dane_tlsa_flags; /* ** Note: all "valid" TLSA RRs are stored, ** not just those which are "supported" */ unsigned char *dane_tlsa_rr[MAX_TLSA_RR]; int dane_tlsa_len[MAX_TLSA_RR]; char *dane_tlsa_sni; }; # define TLSAFLNONE 0x00000000 /* Dane Mode */ # define TLSAFLALWAYS 0x00000001 # define TLSAFLSECURE 0x00000002 # define DANEMODE(fl) ((fl) & 0x3) # define TLSAFLNOEXP 0x00000010 /* do not check expiration */ # define TLSAFLNEW 0x00000020 # define TLSAFLADMX 0x00000100 # define TLSAFLADIP 0x00000200 /* changes with each IP lookup! */ # define TLSAFLNOTLS 0x00000400 /* starttls() failed */ /* treat IPv4 and IPv6 the same - the ad flag should be identical */ /* # define TLSAFLADTLSA * currently unused */ /* NOTE: "flags" >= TLSAFLTEMP are stored, see TLSA_STORE_FL()! */ /* could be used to replace DNSRC */ # define TLSAFLTEMP 0x00001000 /* TLSA RR lookup tempfailed */ # define TLSAFL2MANY 0x00004000 /* too many TLSA RRs */ /* ** Do not use this record, and do not look up new TLSA RRs because ** the MX/host lookup was not secure. ** XXX: host->MX lookup info can NOT be stored in dane_tlsa! ** XXX: to determine: interaction with DANE=always */ /* # define TLSAFLNOADMX 0x00010000 */ /* # define TLSAFLNOADTLSA 0x00020000 * TLSA: no AD - for DANE=always? */ # define TLSAFLTEMPVRFY 0x00008000 /* temporary DANE verification failure */ # define TLSAFLNOVRFY 0x00080000 /* do NOT perform DANE verification */ # define TLSAFLUNS 0x00100000 /* has unsupported TLSA RRs */ # define TLSAFLSUP 0x00200000 /* has supported TLSA RRs */ # define TLSA_SET_FL(dane_tlsa, fl) (dane_tlsa)->dane_tlsa_flags |= (fl) # define TLSA_CLR_FL(dane_tlsa, fl) (dane_tlsa)->dane_tlsa_flags &= ~(fl) # define TLSA_IS_FL(dane_tlsa, fl) (((dane_tlsa)->dane_tlsa_flags & (fl)) != 0) /* any TLSA RRs? */ # define TLSA_HAS_RRs(dane_tlsa) TLSA_IS_FL(dane_tlsa, TLSAFLUNS|TLSAFLSUP) # define TLSA_STORE_FL(fl) ((fl) >= TLSAFLTEMP) /* values for DANE option and dane_vrfy_chk */ # define DANE_NEVER TLSAFLNONE /* XREF: see sendmail.h: #define Dane */ # define DANE_ALWAYS TLSAFLALWAYS /* NOT documented, testing... */ # define DANE_SECURE TLSAFLSECURE # define CHK_DANE(dane) (DANEMODE((dane)) != DANE_NEVER) # define VRFY_DANE(dane_vrfy_chk) (0 == ((dane_vrfy_chk) & TLSAFLNOVRFY)) /* temp fails? others? */ # define TLSA_RR_TEMPFAIL(dane_tlsa) (((dane_tlsa) != NULL) && (dane_tlsa)->dane_tlsa_dnsrc == TRY_AGAIN) # define ONLYUNSUPTLSARR ", status=all TLSA RRs are unsupported" #endif /* DANE */ /* ** TLS */ /* what to do in the TLS initialization */ #define TLS_I_NONE 0x00000000 /* no requirements... */ #define TLS_I_CERT_EX 0x00000001 /* cert must exist */ #define TLS_I_CERT_UNR 0x00000002 /* cert must be g/o unreadable */ #define TLS_I_KEY_EX 0x00000004 /* key must exist */ #define TLS_I_KEY_UNR 0x00000008 /* key must be g/o unreadable */ #define TLS_I_CERTP_EX 0x00000010 /* CA cert path must exist */ #define TLS_I_CERTP_UNR 0x00000020 /* CA cert path must be g/o unreadable */ #define TLS_I_CERTF_EX 0x00000040 /* CA cert file must exist */ #define TLS_I_CERTF_UNR 0x00000080 /* CA cert file must be g/o unreadable */ #define TLS_I_RSA_TMP 0x00000100 /* RSA TMP must be generated */ #define TLS_I_USE_KEY 0x00000200 /* private key must usable */ #define TLS_I_USE_CERT 0x00000400 /* certificate must be usable */ /* not "read" anywhere #define TLS_I_VRFY_PATH 0x00000800 * load verify path must succeed * */ #define TLS_I_VRFY_LOC 0x00001000 /* load verify default must succeed */ #define TLS_I_CACHE 0x00002000 /* require cache */ #define TLS_I_TRY_DH 0x00004000 /* try DH certificate */ #define TLS_I_REQ_DH 0x00008000 /* require DH certificate */ #define TLS_I_DHPAR_EX 0x00010000 /* require DH parameters */ #define TLS_I_DHPAR_UNR 0x00020000 /* DH param. must be g/o unreadable */ #define TLS_I_DH512 0x00040000 /* generate 512bit DH param */ #define TLS_I_DH1024 0x00080000 /* generate 1024bit DH param */ #define TLS_I_DH2048 0x00100000 /* generate 2048bit DH param */ #define TLS_I_NO_VRFY 0x00200000 /* do not require authentication */ #define TLS_I_KEY_OUNR 0x00400000 /* Key must be other unreadable */ #define TLS_I_CRLF_EX 0x00800000 /* CRL file must exist */ #define TLS_I_CRLF_UNR 0x01000000 /* CRL file must be g/o unreadable */ #define TLS_I_DHFIXED 0x02000000 /* use fixed DH param */ #define TLS_I_DHAUTO 0x04000000 /* */ /* require server cert */ #define TLS_I_SRV_CERT (TLS_I_CERT_EX | TLS_I_KEY_EX | \ TLS_I_KEY_UNR | TLS_I_KEY_OUNR | \ TLS_I_CERTP_EX | TLS_I_CERTF_EX | \ TLS_I_USE_KEY | TLS_I_USE_CERT | TLS_I_CACHE) /* server requirements */ #define TLS_I_SRV (TLS_I_SRV_CERT | TLS_I_RSA_TMP | /*TLS_I_VRFY_PATH|*/ \ TLS_I_VRFY_LOC | TLS_I_TRY_DH | TLS_I_CACHE) /* client requirements */ #define TLS_I_CLT (TLS_I_KEY_UNR | TLS_I_KEY_OUNR) #define TLS_AUTH_OK 0 #define TLS_AUTH_NO 1 #define TLS_AUTH_TEMP 2 #define TLS_AUTH_FAIL (-1) # ifndef TLS_VRFY_PER_CTX # define TLS_VRFY_PER_CTX 1 # endif #define SM_SSL_FREE(ssl) \ do { \ if (ssl != NULL) \ { \ SSL_free(ssl); \ ssl = NULL; \ } \ } while (0) /* functions */ extern int endtls __P((SSL **, const char *)); extern int get_tls_se_features __P((ENVELOPE *, SSL *, tlsi_ctx_T *, bool)); extern int init_tls_library __P((bool _fipsmode)); extern bool inittls __P((SSL_CTX **, unsigned long, unsigned long, bool, char *, char *, char *, char *, char *)); extern bool initclttls __P((bool)); extern bool initsrvtls __P((bool)); extern bool load_certkey __P((SSL *, bool, char *, char *)); /* extern bool load_crlpath __P((SSL_CTX *, bool , char *)); */ extern void setclttls __P((bool)); extern int tls_get_info __P((SSL *, bool, char *, MACROS_T *, bool)); extern void tlslogerr __P((int, int, const char *)); extern void tls_set_verify __P((SSL_CTX *, SSL *, bool)); # if DANE extern int dane_tlsa_chk __P((const unsigned char *, int, const char *, bool)); extern int dane_tlsa_clr __P((dane_tlsa_P)); extern int dane_tlsa_free __P((dane_tlsa_P)); # endif EXTERN char *CACertPath; /* path to CA certificates (dir. with hashes) */ EXTERN char *CACertFile; /* file with CA certificate */ #if _FFR_CLIENTCA EXTERN char *CltCACertPath; /* path to CA certificates (dir. with hashes) */ EXTERN char *CltCACertFile; /* file with CA certificate */ #endif EXTERN char *CltCertFile; /* file with client certificate */ EXTERN char *CltKeyFile; /* file with client private key */ EXTERN char *CipherList; /* list of ciphers */ #if MTA_HAVE_TLSv1_3 EXTERN char *CipherSuites; /* cipher suites */ #endif EXTERN char *CertFingerprintAlgorithm; /* name of fingerprint alg */ EXTERN const EVP_MD *EVP_digest; /* digest for cert fp */ EXTERN char *DHParams; /* file with DH parameters */ EXTERN char *RandFile; /* source of random data */ EXTERN char *SrvCertFile; /* file with server certificate */ EXTERN char *SrvKeyFile; /* file with server private key */ EXTERN char *CRLFile; /* file CRLs */ EXTERN char *CRLPath; /* path to CRLs (dir. with hashes) */ EXTERN unsigned long TLS_Srv_Opts; /* TLS server options */ EXTERN unsigned long Srv_SSL_Options, Clt_SSL_Options; /* SSL options */ EXTERN bool TLSFallbacktoClear; EXTERN char *SSLEngine; EXTERN char *SSLEnginePath; EXTERN bool SSLEngineprefork; # if USE_OPENSSL_ENGINE #define TLS_set_engine(id, prefork) SSL_set_engine(id) # else # if !defined(OPENSSL_NO_ENGINE) int TLS_set_engine __P((const char *, bool)); # else #define TLS_set_engine(id, prefork) 1 # endif # endif extern int set_tls_rd_tmo __P((int)); extern int data2hex __P((unsigned char *, int, unsigned char *, int)); # if DANE extern int pubkey_fp __P((X509 *, const char*, unsigned char **)); extern dane_tlsa_P dane_get_tlsa __P((dane_vrfy_ctx_P)); # endif #else /* STARTTLS */ # define set_tls_rd_tmo(rd_tmo) 0 #endif /* STARTTLS */ #undef EXTERN #endif /* ! _TLS_H */ sendmail-8.18.1/sendmail/README0000644000372400037240000024570214556365350015455 0ustar xbuildxbuild# Copyright (c) 1998-2004 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. # Copyright (c) 1988 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # This directory contains the source files for sendmail(TM). ******************************************************************* !! Read sendmail/SECURITY for important installation information !! ******************************************************************* ********************************************************** ** Read below for more details on building sendmail. ** ********************************************************** ************************************************************************** ** IMPORTANT: Read the appropriate paragraphs in the section on ** ** ``Operating System and Compile Quirks''. ** ************************************************************************** For detailed instructions, please read the document ../doc/op/op.me: cd ../doc/op ; make op.ps op.txt Sendmail is a trademark of Proofpoint, Inc. US Patent Numbers 6865671, 6986037. +-------------------+ | BUILDING SENDMAIL | +-------------------+ By far, the easiest way to compile sendmail is to use the "Build" script: sh ./Build This uses the "uname" command to figure out what architecture you are on and creates a proper Makefile accordingly. It also creates a subdirectory per object format, so that multiarchitecture support is easy. In general this should be all you need. IRIX 6.x users should read the note below in the OPERATING SYSTEM AND COMPILE QUIRKS section. If you need to look at other include or library directories, use the -I or -L flags on the command line, e.g., sh ./Build -I/usr/sww/include -L/usr/sww/lib It's also possible to create local site configuration in the file site.config.m4 (or another file settable with the -f flag). This file contains M4 definitions for various compilation values; the most useful are: confMAPDEF -D flags to specify database types to be included (see below) confENVDEF -D flags to specify other environment information confINCDIRS -I flags for finding include files during compilation confLIBDIRS -L flags for finding libraries during linking confLIBS -l flags for selecting libraries during linking confLDOPTS other ld(1) linker options Others can be found by examining Makefile.m4. Please read ../devtools/README for more information about the site.config.m4 file. You can recompile from scratch using the -c flag with the Build command. This removes the existing compilation directory for the current platform and builds a new one. The -c flag must also be used if any site.*.m4 file in devtools/Site/ is changed. Porting to a new Unix-based system should be a matter of creating an appropriate configuration file in the devtools/OS/ directory. +----------------------+ | DATABASE DEFINITIONS | +----------------------+ There are several database formats that can be used for the alias files and for general maps. When used for alias files they interact in an attempt to be backward compatible. The options are: CDB Constant DataBase, requires tinycdb (0.75), see http://www.corpit.ru/mjt/tinycdb.html CDB is included automatically if the Build script can find a library named libcdb.a or libcdb.so. By default, .cdb is used as extension for cdb maps, however, if CDB is set to 2, then .db is used to make transition from hash maps easier. Note: this usually requires to exclude cdb from confLIBSEARCH, see devtools/README. NEWDB The new Berkeley DB package. Some systems (e.g., BSD/OS and Digital UNIX 4.0) have some version of this package pre-installed. If your system does not have Berkeley DB pre-installed, or the version installed is not version 2.0 or greater (e.g., is Berkeley DB 1.85 or 1.86), get the current version from http://www.sleepycat.com/. DO NOT use a version from any of the University of California, Berkeley "Net" or other distributions. If you are still running BSD/386 1.x, you will need to upgrade the included Berkeley DB library to a current version. NEWDB is included automatically if the Build script can find a library named libdb.a or libdb.so. See also OPERATING SYSTEM AND COMPILE QUIRKS about Berkeley DB versions, e.g., DB 4.1.x. NDBM The older NDBM implementation -- the very old V7 DBM implementation is no longer supported. NIS Network Information Services. To use this you must have NIS support on your system. NISPLUS NIS+ (the revised NIS released with Solaris 2). You must have NIS+ support on your system to use this flag. HESIOD Support for Hesiod (from the DEC/Athena distribution). You must already have Hesiod support on your system for this to work. You may be able to get this to work with the MIT/Athena version of Hesiod, but that's likely to be a lot of work. BIND 8.X also includes Hesiod support. LDAPMAP Lightweight Directory Access Protocol support. You will have to install the UMich or OpenLDAP (http://www.openldap.org/) ldap and lber libraries to use this flag. MAP_REGEX Regular Expression support. You will need to use an operating system which comes with the POSIX regex() routines or install a regexp library such as libregex from the Free Software Foundation. DNSMAP DNS map support. Requires NAMED_BIND. PH_MAP PH map support. MAP_NSD nsd map support (IRIX 6.5 and later). SOCKETMAP Support for a trivial query protocol over UNIX domain or TCP sockets. >>> NOTE WELL for NEWDB support: If you want to get ndbm support, for >>> Berkeley DB versions under 2.0, it is CRITICAL that you remove >>> ndbm.o from libdb.a before you install it and DO NOT install ndbm.h; >>> for Berkeley DB versions 2.0 through 2.3.14, remove dbm.o from libdb.a >>> before you install it. If you don't delete these, there is absolutely >>> no point to including -DNDBM, since it will just get you another >>> (inferior) API to the same format database. These files OVERRIDE >>> calls to ndbm routines -- in particular, if you leave ndbm.h in, >>> you can find yourself using the new db package even if you don't >>> define NEWDB. Berkeley DB versions later than 2.3.14 do not need >>> to be modified. Please also consult the README in the top level >>> directory of the sendmail distribution for other important information. >>> >>> Further note: DO NOT remove your existing /usr/include/ndbm.h -- >>> you need that one. But do not install an updated ndbm.h in >>> /usr/include, /usr/local/include, or anywhere else. If NEWDB and NDBM are defined (but not NIS), then sendmail will read NDBM format alias files, but the next time a newaliases is run the format will be converted to NEWDB; that format will be used forever more. This is intended as a transition feature. If NEWDB, NDBM, and NIS are all defined and the name of the file includes the string "/yp/", sendmail will rebuild BOTH the NEWDB and NDBM format alias files. However, it will only read the NEWDB file; the NDBM format file is used only by the NIS subsystem. This is needed because the NIS maps on an NIS server are built directly from the NDBM files. If NDBM and NIS are defined (regardless of the definition of NEWDB), and the filename includes the string "/yp/", sendmail adds the special tokens "YP_LAST_MODIFIED" and "YP_MASTER_NAME", both of which are required if the NDBM file is to be used as an NIS map. All of these flags are normally defined in a confMAPDEF setting in your site.config.m4. If you define NEWDB or HESIOD you get the User Database (USERDB) automatically. Generally you do want to have NEWDB for it to do anything interesting. See above for getting the Berkeley DB package (i.e., NEWDB). There is no separate "user database" package -- don't bother searching for it on the net. Hesiod and LDAP require libraries that may not be installed with your system. These are outside of my ability to provide support. See the "Quirks" section for more information. The regex map can be used to see if an address matches a certain regular expression. For example, all-numerics local parts are common spam addresses, so "^[0-9]+$" would match this. By using such a map in a check_* rule-set, you can block a certain range of addresses that would otherwise be considered valid. The socket map uses a simple request/reply protocol over TCP or UNIX domain sockets to query an external server. Both requests and replies are text based and encoded as netstrings. The socket map uses the same syntax as milters the specify the remote endpoint, e.g.: KmySocketMap socket inet:12345@127.0.0.1 See doc/op/op.me for details. +---------------+ | COMPILE FLAGS | +---------------+ Wherever possible, I try to make sendmail pull in the correct compilation options needed to compile on various environments based on automatically defined symbols. Some machines don't seem to have useful symbols available, requiring that a compilation flag be defined in the Makefile; see the devtools/OS subdirectory for the supported architectures. If you are a system to which sendmail has already been ported you should not have to touch the following symbols. But if you are porting, you may have to tweak the following compilation flags in conf.h in order to get it to compile and link properly: SYSTEM5 Adjust for System V (not necessarily Release 4). SYS5SIGNALS Use System V signal semantics -- the signal handler is automatically dropped when the signal is caught. If this is not set, use POSIX/BSD semantics, where the signal handler stays in force until an exec or an explicit delete. Implied by SYSTEM5. SYS5SETPGRP Use System V setpgrp() semantics. Implied by SYSTEM5. HASNICE Define this to zero if you lack the nice(2) system call. HASRRESVPORT Define this to zero if you lack the rresvport(3) system call. HASFCHMOD Define this to one if you have the fchmod(2) system call. This improves security. HASFCHOWN Define this to one if you have the fchown(2) system call. This is required for the TrustedUser option if sendmail must rebuild an (alias) map. HASFLOCK Set this if you prefer to use the flock(2) system call rather than using fcntl-based locking. Fcntl locking has some semantic gotchas, but many vendor systems also interface it to lockd(8) to do NFS-style locking. Unfortunately, many vendor implementations of fcntl locking are just plain broken (e.g., locks are never released, causing your sendmail to deadlock; when the kernel runs out of locks your system crashes). For this reason, I recommend always defining this unless you are absolutely certain that your fcntl locking implementation really works. HASUNAME Set if you have the "uname" system call. Implied by SYSTEM5. HASUNSETENV Define this if your system library has the "unsetenv" subroutine. HASSETSID Define this if you have the setsid(2) system call. This is implied if your system appears to be POSIX compliant. HASINITGROUPS Define this if you have the initgroups(3) routine. HASSETVBUF Define this if you have the setvbuf(3) library call. If you don't, setlinebuf will be used instead. This defaults on if your compiler defines __STDC__. HASSETREUID Define this if you have setreuid(2) ***AND*** root can use setreuid to change to an arbitrary user. This second condition is not satisfied on AIX 3.x. You may find that your system has setresuid(2), (for example, on HP-UX) in which case you will also have to #define setreuid(r, e) to be the appropriate call. Some systems (such as Solaris) have a compatibility routine that doesn't work properly, but may have "saved user ids" properly implemented so you can ``#define setreuid(r, e) seteuid(e)'' and have it work. The important thing is that you have a call that will set the effective uid independently of the real or saved uid and be able to set the effective uid back again when done. There's a test program in ../test/t_setreuid.c that will try things on your system. Setting this improves the security, since sendmail doesn't have to read .forward and :include: files as root. There are certain attacks that may be unpreventable without this call. USESETEUID Define this to 1 if you have a seteuid(2) system call that will allow root to set only the effective user id to an arbitrary value ***AND*** you have saved user ids. This is preferable to HASSETREUID if these conditions are fulfilled. These are the semantics of the to-be-released revision of Posix.1. The test program ../test/t_seteuid.c will try this out on your system. If you define both HASSETREUID and USESETEUID, the former is ignored. HASSETEGID Define this if you have setegid(2) and it can be used to set the saved gid. Please run t_dropgid in test/ if you are not sure whether the call works. HASSETREGID Define this if you have setregid(2) and it can be used to set the saved gid. Please run t_dropgid in test/ if you are not sure whether the call works. HASSETRESGID Define this if you have setresgid(2) and it can be used to set the saved gid. Please run t_dropgid in test/ if you are not sure whether the call works. HASLSTAT Define this if you have symbolic links (and thus the lstat(2) system call). This improves security. Unlike most other options, this one is on by default, so you need to #undef it in conf.h if you don't have symbolic links (these days everyone does). HASSETRLIMIT Define this to 1 if you have the setrlimit(2) syscall. You can define it to 0 to force it off. It is assumed if you are running a BSD-like system. HASULIMIT Define this if you have the ulimit(2) syscall (System V style systems). HASSETRLIMIT overrides, as it is more general. HASWAITPID Define this if you have the waitpid(2) syscall. HASGETDTABLESIZE Define this if you have the getdtablesize(2) syscall. HAS_GETHOSTBYNAME2 Define this to 1 if your system supports gethostbyname2(2). HAS_ST_GEN Define this to 1 if your system has the st_gen field in the stat structure (see stat(2)). HASSRANDOMDEV Define this if your system has the srandomdev(3) function call. HASURANDOMDEV Define this if your system has /dev/urandom(4). HASSTRERROR Define this if you have the libc strerror(3) function (which should be declared in ), and it should be used instead of sys_errlist. HASCLOSEFROM Define this if your system has closefrom(3). HASFDWALK Define this if your system has fdwalk(3). SM_CONF_GETOPT Define this as 0 if you need a reimplementation of getopt(3). On some systems, getopt() does very odd things if called to scan the arguments twice. This flag will ask sendmail to compile in a local version of getopt() that works properly. You may also need this if you build with another library that introduces a non-standard getopt(3). NEEDSTRTOL Define this if your standard C library does not define strtol(3). This will compile in a local version. NEEDFSYNC Define this if your standard C library does not define fsync(2). This will try to simulate the operation using fcntl(2); if that is not available it does nothing, which isn't great, but at least it compiles and runs. HASGETUSERSHELL Define this to 1 if you have getusershell(3) in your standard C library. If this is not defined, or is defined to be 0, sendmail will scan the /etc/shells file (no NIS-style support, defaults to /bin/sh and /bin/csh if that file does not exist) to get a list of unrestricted user shells. This is used to determine whether users are allowed to forward their mail to a program or a file. NEEDPUTENV Define this if your system needs am emulation of the putenv(3) call. Define to 1 to implement it in terms of setenv(3) or to 2 to do it in terms of primitives. NOFTRUNCATE Define this if you don't have the ftruncate(2) syscall. If you don't have this system call, there is an unavoidable race condition that occurs when creating alias databases. NO_EOH_FIELDS Define this to disable the special handling of the headers Message: and Text: to denote the end of the message header. GIDSET_T The type of entries in a gidset passed as the second argument to getgroups(2). Historically this has been an int, so this is the default, but some systems (such as IRIX) pass it as a gid_t, which is an unsigned short. This will make a difference, so it is important to get this right! However, it is only an issue if you have group sets. SLEEP_T The type returned by the system sleep() function. Defaults to "unsigned int". Don't worry about this if you don't have compilation problems. ARBPTR_T The type of an arbitrary pointer -- defaults to "void *". If you are an very old compiler you may need to define this to be "char *". SOCKADDR_LEN_T The type used for the third parameter to accept(2), getsockname(2), and getpeername(2), representing the length of a struct sockaddr. Defaults to int. SOCKOPT_LEN_T The type used for the fifth parameter to getsockopt(2) and setsockopt(2), representing the length of the option buffer. Defaults to int. LA_TYPE The type of load average your kernel supports. These can be one of: LA_ZERO (1) -- it always returns the load average as "zero" (and does so on all architectures). LA_INT (2) to read /dev/kmem for the symbol avenrun and interpret as a long integer. LA_FLOAT (3) same, but interpret the result as a floating point number. LA_SHORT (6) to interpret as a short integer. LA_SUBR (4) if you have the getloadavg(3) routine in your system library. LA_MACH (5) to use MACH-style load averages (calls processor_set_info()), LA_PROCSTR (7) to read /proc/loadavg and interpret it as a string representing a floating-point number (Linux-style). LA_READKSYM (8) is an implementation suitable for some versions of SVr4 that uses the MIOC_READKSYM ioctl call to read /dev/kmem. LA_DGUX (9) is a special implementation for DG/UX that uses the dg_sys_info system call. LA_HPUX (10) is an HP-UX specific version that uses the pstat_getdynamic system call. LA_IRIX6 (11) is an IRIX 6.x specific version that adapts to 32 or 64 bit kernels; it is otherwise very similar to LA_INT. LA_KSTAT (12) uses the (Solaris-specific) kstat(3k) implementation. LA_DEVSHORT (13) reads a short from a system file (default: /dev/table/avenrun) and scales it in the same manner as LA_SHORT. LA_LONGLONG (17) to read /dev/kmem for the symbol avenrun and interpret as a long long integer (e.g., for 64 bit systems). LA_INT, LA_SHORT, LA_FLOAT, and LA_READKSYM have several other parameters that they try to divine: the name of your kernel, the name of the variable in the kernel to examine, the number of bits of precision in a fixed point load average, and so forth. LA_DEVSHORT uses _PATH_AVENRUN to find the device to be read to find the load average. In desperation, use LA_ZERO. The actual code is in conf.c -- it can be tweaked if you are brave. FSHIFT For LA_INT, LA_SHORT, and LA_READKSYM, this is the number of bits of load average after the binary point -- i.e., the number of bits to shift right in order to scale the integer to get the true integer load average. Defaults to 8. _PATH_UNIX The path to your kernel. Needed only for LA_INT, LA_SHORT, and LA_FLOAT. Defaults to "/unix" on System V, "/vmunix" everywhere else. LA_AVENRUN For LA_INT, LA_SHORT, and LA_FLOAT, the name of the kernel variable that holds the load average. Defaults to "avenrun" on System V, "_avenrun" everywhere else. SFS_TYPE Encodes how your kernel can locate the amount of free space on a disk partition. This can be set to SFS_NONE (0) if you have no way of getting this information, SFS_USTAT (1) if you have the ustat(2) system call, SFS_4ARGS (2) if you have a four-argument statfs(2) system call (and the include file is ), SFS_VFS (3), SFS_MOUNT (4), SFS_STATFS (5) if you have the two-argument statfs(2) system call with includes in , , or respectively, or SFS_STATVFS (6) if you have the two-argument statvfs(2) call. The default if nothing is defined is SFS_NONE. SFS_BAVAIL with SFS_4ARGS you can also set SFS_BAVAIL to the field name in the statfs structure that holds the useful information; this defaults to f_bavail. SPT_TYPE Encodes how your system can display what a process is doing on a ps(1) command (SPT stands for Set Process Title). Can be set to: SPT_NONE (0) -- Don't try to set the process title at all. SPT_REUSEARGV (1) -- Pad out your argv with the information; this is the default if none specified. SPT_BUILTIN (2) -- The system library has setproctitle. SPT_PSTAT (3) -- Use the PSTAT_SETCMD option to pstat(2) to set the process title; this is used by HP-UX. SPT_PSSTRINGS (4) -- Use the magic PS_STRINGS pointer (4.4BSD). SPT_SYSMIPS (5) -- Use sysmips() supported by NEWS-OS 6. SPT_SCO (6) -- Write kernel u. area. SPT_CHANGEARGV (7) -- Write pointers to our own strings into the existing argv vector. SPT_PADCHAR Character used to pad the process title; if undefined, the space character (0x20) is used. This is ignored if SPT_TYPE != SPT_REUSEARGV ERRLIST_PREDEFINED If set, assumes that some header file defines sys_errlist. This may be needed if you get type conflicts on this variable -- otherwise don't worry about it. WAITUNION The wait(2) routine takes a "union wait" argument instead of an integer argument. This is for compatibility with old versions of BSD. SCANF You can set this to extend the F command to accept a scanf string -- this gives you a primitive parser for class definitions -- BUT it can make you vulnerable to core dumps if the target file is poorly formed. SYSLOG_BUFSIZE You can define this to be the size of the buffer that syslog accepts. If it is not defined, it assumes a 1024-byte buffer. If the buffer is very small (under 256 bytes) the log message format changes -- each e-mail message will log many more messages, since it will log each piece of information as a separate line in syslog. BROKEN_RES_SEARCH On Ultrix (and maybe other systems?) if you use the res_search routine with an unknown host name, it returns -1 but sets h_errno to 0 instead of HOST_NOT_FOUND. If you set this, sendmail considers 0 to be the same as HOST_NOT_FOUND. NAMELISTMASK If defined, values returned by nlist(3) are masked against this value before use -- a common value is 0x7fffffff to strip off the top bit. BSD4_4_SOCKADDR If defined, socket addresses have an sa_len field that defines the length of this address. SAFENFSPATHCONF Set this to 1 if and only if you have verified that a pathconf(2) call with _PC_CHOWN_RESTRICTED argument on an NFS filesystem where the underlying system allows users to give away files to other users returns <= 0. Be sure you try both on NFS V2 and V3. Some systems assume that their local policy apply to NFS servers -- this is a bad assumption! The test/t_pathconf.c program will try this for you -- you have to run it in a directory that is mounted from a server that allows file giveaway. SIOCGIFCONF_IS_BROKEN Set this if your system has an SIOCGIFCONF ioctl defined, but it doesn't behave the same way as "most" systems (BSD, Solaris, SunOS, HP-UX, etc.) SIOCGIFNUM_IS_BROKEN Set this if your system has an SIOCGIFNUM ioctl defined, but it doesn't behave the same way as "most" systems (Solaris, HP-UX). FAST_PID_RECYCLE Set this if your system can reuse the same PID in the same second. SO_REUSEADDR_IS_BROKEN Set this if your system has a setsockopt() SO_REUSEADDR flag but doesn't pay attention to it when trying to bind a socket to a recently closed port. NEEDSGETIPNODE Set this if your system supports IPv6 but doesn't include the getipnodeby{name,addr}() functions. Set automatically for Linux's glibc. PIPELINING Support SMTP PIPELINING (set by default). USING_NETSCAPE_LDAP Deprecated in favor of SM_CONF_LDAP_MEMFREE. See libsm/README. NEEDLINK Set this if your system doesn't have a link() call. It will create a copy of the file instead of a hardlink. USE_ENVIRON Set this to 1 to access process environment variables from the external variable environ instead of the third parameter of main(). USE_DOUBLE_FORK By default this is on (1). Set it to 0 to suppress the extra fork() used to avoid intermediate zombies. ALLOW_255 Do not convert (char)0xff to (char)0x7f in headers etc. This can also be done at runtime with the command line option -d82.101. NEEDINTERRNO Set this if does not declare errno, i.e., if an application needs to use extern int errno; USE_TTYPATH Set this to 1 to enable ErrorMode=write. USESYSCTL Use sysctl(3) to determine the number of CPUs in a system. HASSNPRINTF Set this to 1 if your OS has a working snprintf(3), i.e., it properly obeys the size of the buffer and returns the number of characters that would have been printed if the size were unlimited. LDAP_REFERRALS Set this if you want to use the -R flag (do not auto chase referrals) for LDAP maps (requires -DLDAPMAP). MILTER_NO_NAGLE Turn off Nagle algorithm for communication with libmilter ("cork" on Linux). On some operating systems this may improve the interprocess communication performance. +-----------------------+ | COMPILE-TIME FEATURES | +-----------------------+ There are a bunch of features that you can decide to compile in, such as selecting various database packages and special protocol support. Several are assumed based on other compilation flags -- if you want to "un-assume" something, you probably need to edit conf.h. Compilation flags that add support for special features include: CDB Include support for tinycdb. NDBM Include support for "new" DBM library for aliases and maps. Normally defined in the Makefile. NEWDB Include support for Berkeley DB package (hash & btree) for aliases and maps. Normally defined in the Makefile. If the version of NEWDB you have is the old one that does not include the "fd" call (this call was added in version 1.5 of the Berkeley DB code), you must upgrade to the current version of Berkeley DB. NIS Define this to get NIS (YP) support for aliases and maps. Normally defined in the Makefile. NISPLUS Define this to get NIS+ support for aliases and maps. Normally defined in the Makefile. HESIOD Define this to get Hesiod support for aliases and maps. Normally defined in the Makefile. NETINFO Define this to get NeXT NetInfo support for aliases and maps. Normally defined in the Makefile. LDAPMAP Define this to get LDAP support for maps. PH_MAP Define this to get PH support for maps. MAP_NSD Define this to get nsd support for maps. USERDB Define this to 1 to include support for the User Information Database. Implied by NEWDB or HESIOD. You can use -DUSERDB=0 to explicitly turn it off. IDENTPROTO Define this as 1 to get IDENT (RFC 1413) protocol support. This is assumed unless you are running on Ultrix or HP-UX, both of which have a problem in the UDP implementation. You can define it to be 0 to explicitly turn off IDENT protocol support. If defined off, the code is actually still compiled in, but it defaults off; you can turn it on by setting the IDENT timeout in the configuration file. IP_SRCROUTE Define this to 1 to get IP source routing information displayed in the Received: header. This is assumed on most systems, but some (e.g., Ultrix) apparently have a broken version of getsockopt that doesn't properly support the IP_OPTIONS call. You probably want this if your OS can cope with it. Symptoms of failure will be that it won't compile properly (that is, no support for fetching IP_OPTIONs), or it compiles but source-routed TCP connections either refuse to open or open and hang for no apparent reason. Ultrix and AIX3 are known to fail this way. LOG Set this to get syslog(3) support. Defined by default in conf.h. You want this if at all possible. NETINET Set this to get TCP/IP support. Defined by default in conf.h. You probably want this. NETINET6 Set this to get IPv6 support. Other configuration may be needed in conf.h for your particular operating system. Also, DaemonPortOptions must be set appropriately for sendmail to accept IPv6 connections. NETISO Define this to get ISO networking support. NETUNIX Define this to get Unix domain networking support. Defined by default. A few bizarre systems (SCO, ISC, Altos) don't support this networking domain. NETNS Define this to get NS networking support. NETX25 Define this to get X.25 networking support. NAMED_BIND If non-zero, include DNS (name daemon) support, including MX support. The specs say you must use this if you run SMTP. You don't have to be running a name server daemon on your machine to need this -- any use of the DNS resolver, including remote access to another machine, requires this option. Defined by default in conf.h. Define it to zero ONLY on machines that do not use DNS in any way. MATCHGECOS Permit fuzzy matching of user names against the full name (GECOS) field in the /etc/passwd file. This should probably be on, since you can disable it from the config file if you want to. Defined by default in conf.h. MIME8TO7 If non-zero, include 8 to 7 bit MIME conversions. This also controls advertisement of 8BITMIME in the ESMTP startup dialogue. MIME7TO8_OLD If 0 then use an algorithm for MIME 7-bit quoted-printable or base64 encoding to 8-bit text that has been introduced in 8.12.3. There are some examples where that code fails, but the old code works. If you have an example of improper 7 to 8 bit conversion please send it to sendmail-bugs. MIME7TO8 If non-zero, include 7 to 8 bit MIME conversions. HES_GETMAILHOST Define this to 1 if you are using Hesiod with the hes_getmailhost() routine. This is included with the MIT Hesiod distribution, but not with the DEC Hesiod distribution. XDEBUG Do additional internal checking. These don't cost too much; you might as well leave this on. TCPWRAPPERS Turns on support for the TCP wrappers library (-lwrap). See below for further information. SECUREWARE Enable calls to the SecureWare luid enabling/changing routines. SecureWare is a C2 security package added to several UNIX's (notably ConvexOS) to get a C2 Secure system. This option causes mail delivery to be done with the luid of the recipient. SHARE_V1 Support for the fair share scheduler, version 1. Setting to 1 causes final delivery to be done using the recipients resource limitations. So far as I know, this is only supported on ConvexOS. SASL Enables SMTP AUTH (RFC 2554). This requires the Cyrus SASL library (https://github.com/cyrusimap/cyrus-sasl). Please install at least version 1.5.13. See below for further information: SASL COMPILATION AND CONFIGURATION. If your SASL library is older than 1.5.10, you have to set this to its version number using a simple conversion: a.b.c -> c + b*100 + a*10000, e.g. for 1.5.9 define SASL=10509. Note: Using an older version than 1.5.5 of Cyrus SASL is not supported. Starting with version 1.5.10, setting SASL=1 is sufficient. Any value other than 1 (or 0) will be compared with the actual version found and if there is a mismatch, compilation will fail. EGD Define this if your system has EGD installed, see http://egd.sourceforge.net/ . It should be used to seed the PRNG for STARTTLS if HASURANDOMDEV is not defined. STARTTLS Enables SMTP STARTTLS (RFC 2487). This requires OpenSSL (http://www.OpenSSL.org/); use an OpenSSL version which is supported by sendmail and preferably your OS distribution or OpenSSL. See STARTTLS COMPILATION AND CONFIGURATION for further information. TLS_EC Enable use of elliptic curve cryptography in STARTTLS. If set to 2 sendmail uses SSL_CTX_set_ecdh_auto(), if set to 1 it selects the NID_X9_62_prime256v1 curve (created via EC_KEY_new_by_curve_name()) and uses SSL_CTX_set_tmp_ecdh(). Support offered by different TLS libraries varies greatly: some old versions do not support elliptic curve cryptography at all, some new versions have it enabled by default (i.e., no need to set TLS_EC at all), while others may require one of the above settings. TLS_NO_RSA Turn off support for RSA algorithms in STARTTLS. MILTER Turn on support for external filters using the Milter API; this option is set by default, to turn it off use APPENDDEF(`conf_sendmail_ENVDEF', `-DMILTER=0') in devtools/Site/site.config.m4 (see devtools/README). See libmilter/README for more information about milter. REQUIRES_DIR_FSYNC Turn on support for file systems that require to call fsync() for a directory if the meta-data in it has been changed. This should be turned on at least for older versions of ReiserFS; it is enabled by default for Linux. According to some information this flag is not needed anymore for kernel 2.4.16 and newer. We would appreciate feedback about the semantics of the various file systems available for Linux. An alternative to this compile time flag is to mount the queue directory without the -async option, or using chattr +S on Linux. DBMMODE The default file permissions to use when creating new database files for maps and aliases. Defaults to 0640. IPV6_FULL Use uncompressed IPv6 addresses (set by default). This permits a zero subnet to have a more specific match, such as different map entries for IPv6:0:0 vs IPv6:0. Generic notice: If you enable a compile time option that needs libraries or include files that don't come with sendmail or are installed in a location that your C compiler doesn't use by default you should set confINCDIRS and confLIBDIRS as explained in the first section: BUILDING SENDMAIL. +---------------------+ | DNS/RESOLVER ISSUES | +---------------------+ Many systems have old versions of the resolver library. At a minimum, you should be running BIND 4.8.3; older versions may compile, but they have known bugs that should give you pause. Common problems in old versions include "undefined" errors for dn_skipname. Some people have had a problem with BIND 4.9; it uses some routines that it expects to be externally defined such as strerror(). It may help to link with "-l44bsd" to solve this problem. This has apparently been fixed in later versions of BIND, starting around 4.9.3. In other words, if you use 4.9.0 through 4.9.2, you need -l44bsd; for earlier or later versions, you do not. !PLEASE! be sure to link with the same version of the resolver as the header files you used -- some people have used the 4.9 headers and linked with BIND 4.8 or vice versa, and it doesn't work. Unfortunately, it doesn't fail in an obvious way -- things just subtly don't work. WILDCARD MX RECORDS ARE A BAD IDEA! The only situation in which they work reliably is if you have two versions of DNS, one in the real world which has a wildcard pointing to your firewall, and a completely different version of the database internally that does not include wildcard MX records that match your domain. ANYTHING ELSE WILL GIVE YOU HEADACHES! When attempting to canonify a hostname, some broken name servers will return SERVFAIL (a temporary failure) on T_AAAA (IPv6) lookups. If you want to excuse this behavior, include WorkAroundBrokenAAAA in ResolverOptions. However, instead, we recommend catching the problem and reporting it to the name server administrator so we can rid the world of broken name servers. +----------------------------------------+ | STARTTLS COMPILATION AND CONFIGURATION | +----------------------------------------+ Please read the documentation accompanying the OpenSSL library. You have to compile and install the OpenSSL libraries before you can compile sendmail. See devtools/README how to set the correct compile time parameters; you should at least set the following variables: APPENDDEF(`conf_sendmail_ENVDEF', `-DSTARTTLS') APPENDDEF(`conf_sendmail_LIBS', `-lssl -lcrypto') If you have installed the OpenSSL libraries and include files in a location that your C compiler doesn't use by default you should set confINCDIRS and confLIBDIRS as explained in the first section: BUILDING SENDMAIL. Configuration information can be found in doc/op/op.me (required certificates) and cf/README (how to tell sendmail about certificates). To perform an initial test, connect to your sendmail daemon (telnet localhost 25) and issue a EHLO localhost and see whether 250-STARTTLS is in the response. If it isn't, run the daemon with -O LogLevel=14 and try again. Then take a look at the logfile and see whether there are any problems listed about permissions (unsafe files) or the validity of X.509 certificates. From: Garrett Wollman If your certificate authority is hierarchical, and you only include the top-level CA certificate in the CACertFile file, some mail clients may be unable to infer the proper certificate chain when selecting a client certificate. Including the bottom-level CA certificate(s) in the CACertFile file will allow these clients to work properly. This is not necessary if you are not using client certificates for authentication, or if all your clients are running Sendmail or other programs using the OpenSSL library (which get it right automatically). In addition, some mail clients are totally incapable of using certificate authentication -- even some of those which already support SSL/TLS for confidentiality. OpenSSL 3 deprecated a lot of functionality which sendmail uses by default. However, the code can be disabled via compile time options if needed: -DNO_DH: related to DH and DSA. +------------------------------------+ | SASL COMPILATION AND CONFIGURATION | +------------------------------------+ Please read the documentation accompanying the Cyrus SASL library (INSTALL and README, especially about Sendmail.conf). If you use Berkeley DB for Cyrus SASL then you must compile sendmail with the same version of Berkeley DB. See devtools/README for how to set the correct compile time parameters; you should at least set the following variables: APPENDDEF(`conf_sendmail_ENVDEF', `-DSASL=2') APPENDDEF(`conf_sendmail_LIBS', `-lsasl2') If you have installed the Cyrus SASL library and include files in a location which your C compiler doesn't use by default you should set confINCDIRS and confLIBDIRS as explained in the first section: BUILDING SENDMAIL. You have to select and install authentication mechanisms and tell sendmail where to find the sasl library and the include files (see devtools/README for the parameters to set). Set up the required users and passwords as explained in the SASL documentation. See also cf/README for authentication related options (especially "Providing SMTP AUTH Data when sendmail acts as Client" if you want authentication between MTAs). To perform an initial test, connect to your sendmail daemon (telnet localhost 25) and issue a EHLO localhost and see whether 250-AUTH .... is in the response. If it isn't, run the daemon with -O LogLevel=14 and try again. Then take a look at the logfile and see whether there are any security related problems listed (unsafe files). +-------------------------------------+ | OPERATING SYSTEM AND COMPILE QUIRKS | +-------------------------------------+ GCC problems When compiling with "gcc -O -Wall" specify "-DSM_OMIT_BOGUS_WARNINGS" too (see include/sm/cdefs.h for more info). ***************************************************************** ** IMPORTANT: DO NOT USE OPTIMIZATION (``-O'') IF YOU ARE ** ** RUNNING GCC 2.4.x or 2.5.x. THERE IS A BUG IN THE GCC ** ** OPTIMIZER THAT CAUSES SENDMAIL COMPILES TO FAIL MISERABLY. ** ***************************************************************** Jim Wilson of Cygnus believes he has found the problem -- it will probably be fixed in GCC 2.5.6 -- but until this is verified, be very suspicious of gcc -O. This problem is reported to have been fixed in gcc 2.6. A bug in gcc 2.5.5 caused problems compiling sendmail 8.6.5 with optimization on a Sparc. If you are using gcc 2.5.5, youi should upgrade to the latest version of gcc. Apparently GCC 2.7.0 on the Pentium processor has optimization problems. I recommend against using -O on that architecture. This has been seen on FreeBSD 2.0.5 RELEASE. Solaris 2.X users should use version 2.7.2.3 over 2.7.2. We have been told there are problems with gcc 2.8.0. If you are using this version, you should upgrade to 2.8.1 or later. Berkeley DB Berkeley DB 4.1.x with x <= 24 does not work with sendmail. You need at least 4.1.25. GDBM GDBM does not work with sendmail because the additional security checks and file locking cause problems. Unfortunately, gdbm does not provide a compile flag in its version of ndbm.h so the code can adapt. Until the GDBM authors can fix these problems, GDBM will not be supported. Please use Berkeley DB instead. Configuration file location Up to 8.6, sendmail tried to find the sendmail.cf file in the same place as the vendors had put it, even when this was obviously stupid. As of 8.7, sendmail ALWAYS looks for /etc/sendmail.cf. Beginning with 8.10, sendmail uses /etc/mail/sendmail.cf. You can get sendmail to use the stupid vendor .cf location by adding -DUSE_VENDOR_CF_PATH during compilation, but this may break support programs and scripts that need to find sendmail.cf. You are STRONGLY urged to use symbolic links if you want to use the vendor location rather than changing the location in the sendmail binary. NETINFO systems use NETINFO to determine the location of sendmail.cf. The full path to sendmail.cf is stored as the value of the "sendmail.cf" property in the "/locations/sendmail" subdirectory of NETINFO. Set the value of this property to "/etc/mail/sendmail.cf" (without the quotes) to use this new default location for Sendmail 8.10.0 and higher. ControlSocket permissions Paraphrased from BIND 8.2.1's README: Solaris and other pre-4.4BSD kernels do not respect ownership or protections on UNIX-domain sockets. The short term fix for this is to override the default path and put such control sockets into root- owned directories which do not permit non-root to r/w/x through them. The long term fix is for all kernels to upgrade to 4.4BSD semantics. HP MPE/iX The MPE-specific code within sendmail emulates a set-user-id root environment for the sendmail binary. But there is no root uid 0 on MPE, nor is there any support for set-user-id programs. Even when sendmail thinks it is running as uid 0, it will still have the file access rights of the underlying non-zero uid, but because sendmail is an MPE priv-mode program it will still be able to call setuid() to successfully switch to a new uid. MPE setgid() semantics don't quite work the way sendmail expects, so special emulation is done here also. This uid/gid emulation is enabled via the setuid/setgid file mode bits which are not currently used by MPE. Code in libsm/mpeix.c examines these bits and enables emulation if they have been set, i.e., chmod u+s,g+s /SENDMAIL/CURRENT/SENDMAIL. SunOS 4.x (Solaris 1.x) You may have to use -lresolv on SunOS. However, beware that this links in a new version of gethostbyname that does not understand NIS, so you must have all of your hosts in DNS. Some people have reported problems with the SunOS version of -lresolv and/or in.named, and suggest that you get a newer version. The symptoms are delays when you connect to the SMTP server on a SunOS machine or having your domain added to addresses inappropriately. There is a version of BIND version 4.9 on gatekeeper.DEC.COM in pub/BSD/bind/4.9. There is substantial disagreement about whether you can make this work with resolv+, which allows you to specify a search-path of services. Some people report that it works fine, others claim it doesn't work at all (including causing sendmail to drop core when it tries to do multiple resolv+ lookups for a single job). I haven't tried resolv+, as we use DNS exclusively. Should you want to try resolv+, it is on ftp.uu.net in /networking/ip/dns. Apparently getservbyname() can fail under moderate to high load under some circumstances. This will exhibit itself as the message ``554 makeconnection: service "smtp" unknown''. The problem has been traced to one or more blank lines in /etc/services on the NIS server machine. Delete these and it should work. This info is thanks to Brian Bartholomew of I-Kinetics, Inc. NOTE: The SunOS 4.X linker uses library paths specified during compilation using -L for run-time shared library searches. Therefore, it is vital that relative and unsafe directory paths not be used when compiling sendmail. SunOS 4.0.2 (Sun 386i) Date: Fri, 25 Aug 1995 11:13:58 +0200 (MET DST) From: teus@oce.nl Sendmail 8.7.Beta.12 compiles and runs nearly out of the box with the following changes: * Don't use /usr/5bin in your PATH, but make /usr/5bin/uname available as "uname" command. * Use the defines "-DBSD4_3 -DNAMED_BIND=0" in devtools/OS/SunOS.4.0, which is selected via the "uname" command. I recommend to make available the db-library on the system first (and change the Makefile to use this library). Note that the sendmail.cf and aliases files are found in /etc. SunOS 4.1.3, 4.1.3_U1 Sendmail causes crashes on SunOS 4.1.3 and 4.1.3_U1. According to Sun bug number 1077939: If an application does a getsockopt() on a SOCK_STREAM (TCP) socket after the other side of the connection has sent a TCP RESET for the stream, the kernel gets a Bus Trap in the tcp_ctloutput() or ip_ctloutput() routine. For 4.1.3, this is fixed in patch 100584-08, available on the Sunsolve 2.7.1 or later CDs. For 4.1.3_U1, this was fixed in patch 101790-01 (SunOS 4.1.3_U1: TCP socket and reset problems), later obsoleted by patch 102010-05. Sun patch 100584-08 is not currently publicly available on their ftp site but a user has reported it can be found at other sites using a web search engine. Solaris 2.x (SunOS 5.x) To compile for Solaris, the Makefile built by Build must include a SOLARIS definition which reflects the Solaris version (i.e. -DSOLARIS=20400 for 2.4 or -DSOLARIS=20501 for 2.5.1). If you are using gcc, make sure -I/usr/include is not used (or it might complain about TopFrame). If you are using Sun's cc, make sure /opt/SUNWspro/bin/cc is used instead of /usr/ucb/cc (or it might complain about tm_zone). The Solaris 2.x (x <= 3) "syslog" function is apparently limited to something about 90 characters because of a kernel limitation. If you have source code, you can probably up this number. You can get patches that fix this problem: the patch ids are: Solaris 2.1 100834 Solaris 2.2 100999 Solaris 2.3 101318 Be sure you have the appropriate patch installed or you won't see system logging. Solaris 2.4 (SunOS 5.4) If you include /usr/lib at the end of your LD_LIBRARY_PATH you run the risk of getting the wrong libraries under some circumstances. This is because of a new feature in Solaris 2.4, described by Rod.Evans@Eng.Sun.COM: >> Prior to SunOS 5.4, any LD_LIBRARY_PATH setting was ignored by the >> runtime linker if the application was setxid (secure), thus your >> applications search path would be: >> >> /usr/local/lib LD_LIBRARY_PATH component - IGNORED >> /usr/lib LD_LIBRARY_PATH component - IGNORED >> /usr/local/lib RPATH - honored >> /usr/lib RPATH - honored >> >> the effect is that path 3 would be the first used, and this would >> satisfy your resolv.so lookup. >> >> In SunOS 5.4 we made the LD_LIBRARY_PATH a little more flexible. >> People who developed setxid applications wanted to be able to alter >> the library search path to some degree to allow for their own >> testing and debugging mechanisms. It was decided that the only >> secure way to do this was to allow a `trusted' path to be used in >> LD_LIBRARY_PATH. The only trusted directory we presently define >> is /usr/lib. Thus a set-user-ID root developer could play with some >> alternative shared object implementations and place them in >> /usr/lib (being root we assume they'ed have access to write in this >> directory). This change was made as part of 1155380 - after a >> *huge* amount of discussion regarding the security aspect of things. >> >> So, in SunOS 5.4 your applications search path would be: >> >> /usr/local/lib from LD_LIBRARY_PATH - IGNORED (untrustworthy) >> /usr/lib from LD_LIBRARY_PATH - honored (trustworthy) >> /usr/local/lib from RPATH - honored >> /usr/lib from RPATH - honored >> >> here, path 2 would be the first used. Solaris 2.5.1 (SunOS 5.5.1) and 2.6 (SunOS 5.6) Apparently Solaris 2.5.1 patch 103663-01 installs a new /usr/include/resolv.h file that defines the __P macro without checking to see if it is already defined. This new resolv.h is also included in the Solaris 2.6 distribution. This causes compile warnings such as: In file included from daemon.c:51: /usr/include/resolv.h:208: warning: `__P' redefined cdefs.h:58: warning: this is the location of the previous definition These warnings can be safely ignored or you can create a resolv.h file in the obj.SunOS.5.5.1.* or obj.SunOS.5.6.* directory that reads: #undef __P #include "/usr/include/resolv.h" This problem was fixed in Solaris 7 (Sun bug ID 4081053). Solaris 7 (SunOS 5.7) Solaris 7 includes LDAP libraries but the implementation was lacking a few things. The following settings can be placed in devtools/Site/site.SunOS.5.7.m4 if you plan on using those libraries. APPENDDEF(`confMAPDEF', `-DLDAPMAP') APPENDDEF(`confENVDEF', `-DLDAP_VERSION_MAX=3') APPENDDEF(`confLIBS', `-lldap') Also, Sun's patch 107555 is needed to prevent a crash in the call to ldap_set_option for LDAP_OPT_REFERRALS in ldapmap_setopts if LDAP support is compiled in sendmail. Solaris 8 and later (SunOS 5.8 and later) Solaris 8 and later can optionally install LDAP support. If you have installed the Entire Distribution meta-cluster, you can use the following in devtools/Site/site.SunOS.5.8.m4 (or other appropriately versioned file) to enable LDAP: APPENDDEF(`confMAPDEF', `-DLDAPMAP') APPENDDEF(`confLIBS', `-lldap') Solaris 9 and later (SunOS 5.9 and later) Solaris 9 and later have a revised LDAP library, libldap.so.5, which is derived from a Netscape implementation, thus requiring that SM_CONF_LDAP_MEMFREE be defined in conjunction with LDAPMAP: APPENDDEF(`confMAPDEF', `-DLDAPMAP') APPENDDEF(`confENVDEF', `-DSM_CONF_LDAP_MEMFREE') APPENDDEF(`confLIBS', `-lldap') Solaris If you are using dns for hostname resolution on Solaris, make sure that the 'dns' entry is last on the hosts line in '/etc/nsswitch.conf'. For example, use: hosts: nisplus files dns Do not use: hosts: nisplus dns [NOTFOUND=return] files Note that 'nisplus' above is an illustration. The same comment applies no matter what naming services you are using. If you have anything other than dns last, even after "[NOTFOUND=return]", sendmail may not be able to determine whether an error was temporary or permanent. The error returned by the solaris gethostbyname() is the error for the last lookup used, and other naming services do not have the same concept of temporary failure. Ultrix By default, the IDENT protocol is turned off on Ultrix. If you are running Ultrix 4.4 or later, or if you have included patch CXO-8919 for Ultrix 4.2 or 4.3 to fix the TCP problem, you can turn IDENT on in the configuration file by setting the "ident" timeout. The Ultrix 4.5 Y2K patch (ULTV45-022-1) has changed the resolver included in libc.a. Unfortunately, the __RES symbol hasn't changed and therefore, sendmail can no longer automatically detect the newer version. If you get a compiler error: /lib/libc.a(gethostent.o): local_hostname_length: multiply defined Then rebuild with this in devtools/Site/site.ULTRIX.m4: APPENDDEF(`conf_sendmail_ENVDEF', `-DNEEDLOCAL_HOSTNAME_LENGTH=0') Digital UNIX (formerly DEC OSF/1) If you are compiling on OSF/1 (DEC Alpha), you must use -L/usr/shlib (otherwise it core dumps on startup). You may also need -mld to get the nlist() function, although some versions apparently don't need this. Also, the enclosed makefile removed /usr/sbin/smtpd; if you need it, just create the link to the sendmail binary. On DEC OSF/1 3.2 or earlier, the MatchGECOS option doesn't work properly due to a bug in the getpw* routines. If you want to use this, use -DDEC_OSF_BROKEN_GETPWENT=1. The problem is fixed in 3.2C. Digital's mail delivery agent, /bin/mail (aka /bin/binmail), will only preserve the envelope sender in the "From " header if DefaultUserID is set to daemon. Setting this to mailnull will cause all mail to have the header "From mailnull ...". To use a different DefaultUserID, you will need to use a different mail delivery agent (such as mail.local found in the sendmail distribution). On Digital UNIX 4.0 and later, Berkeley DB 1.85 is included with the operating system and already has the ndbm.o module removed. However, Digital has modified the original Berkeley DB db.h include file. This results in the following warning while compiling map.c and udb.c: cc: Warning: /usr/include/db.h, line 74: The redefinition of the macro "__signed" conflicts with a current definition because the replacement lists differ. The redefinition is now in effect. #define __signed signed ------------------------^ This warning can be ignored. Digital UNIX's linker checks /usr/ccs/lib/ before /usr/lib/. If you have installed a new version of BIND in /usr/include and /usr/lib, you will experience difficulties as Digital ships libresolv.a in /usr/ccs/lib/ as well. Be sure to replace both copies of libresolv.a. IRIX The header files on SGI IRIX are completely prototyped, and as a result you can sometimes get some warning messages during compilation. These can be ignored. There are two errors in deliver only if you are using gcc, both of the form ``warning: passing arg N of `execve' from incompatible pointer type''. Also, if you compile with -DNIS, you will get a complaint about a declaration of struct dom_binding in a prototype when compiling map.c; this is not important because the function being prototyped is not used in that file. In order to compile sendmail you will have had to install the developers' option in order to get the necessary include files. If you compile with -lmalloc (the fast memory allocator), you may get warning messages such as the following: ld32: WARNING 85: definition of _calloc in /usr/lib32/libmalloc.so preempts that definition in /usr/lib32/mips3/libc.so. ld32: WARNING 85: definition of _malloc in /usr/lib32/libmalloc.so preempts that definition in /usr/lib32/mips3/libc.so. ld32: WARNING 85: definition of _realloc in /usr/lib32/libmalloc.so preempts that definition in /usr/lib32/mips3/libc.so. ld32: WARNING 85: definition of _free in /usr/lib32/libmalloc.so preempts that definition in /usr/lib32/mips3/libc.so. ld32: WARNING 85: definition of _cfree in /usr/lib32/libmalloc.so preempts that definition in /usr/lib32/mips3/libc.so. These are unavoidable and innocuous -- just ignore them. IRIX 6.x If you are using XFS filesystem, avoid using the -32 ABI switch to the cc compiler if possible. Broken inet_aton and inet_ntoa on IRIX using gcc: There's a problem with gcc on IRIX, i.e., gcc can't pass structs less than 16 bits long unless they are 8 bits; IRIX 6.2 has some other sized structs. See http://www.bitmechanic.com/mail-archives/mysql/current/0418.html This problem seems to be fixed by gcc v2.95.2, gcc v2.8.1 is reported as broken. Check your gcc version for this bug before installing sendmail. IRIX 6.4 The IRIX 6.5.4 version of /bin/m4 does not work properly with sendmail. Either install fw_m4.sw.m4 off the Freeware_May99 CD and use /usr/freeware/bin/m4 or install and use GNU m4. NeXT or NEXTSTEP NEXTSTEP 3.3 and earlier ship with the old DBM library. Also, Berkeley DB does not currently run on NEXTSTEP. If you are compiling on NEXTSTEP, you will have to create an empty file "unistd.h" and create a file "dirent.h" containing: #include #define dirent direct (devtools/OS/NeXT should try to do both of these for you.) Apparently, there is a bug in getservbyname on Nextstep 3.0 that causes it to fail under some circumstances with the message "SYSERR: service "smtp" unknown" logged. You should be able to work around this by including the line: OOPort=25 in your .cf file. BSDI (BSD/386) 1.0, NetBSD 0.9, FreeBSD 1.0 The "m4" from BSDI won't handle the config files properly. I haven't had a chance to test this myself. The M4 shipped in FreeBSD and NetBSD 0.9 don't handle the config files properly. One must use either GNU m4 1.1 or the PD-M4 recently posted in comp.os.386bsd.bugs (and maybe others). NetBSD-current includes the PD-M4 (as stated in the NetBSD file CHANGES). FreeBSD 1.0 RELEASE has uname(2) now. Use -DUSEUNAME in order to use it (look into devtools/OS/FreeBSD). NetBSD-current may have it too but it has not been verified. The latest version of Berkeley DB uses a different naming scheme than the version that is supplied with your release. This means you will be able to use the current version of Berkeley DB with sendmail as long you use the new db.h when compiling sendmail and link it against the new libdb.a or libdb.so. You should probably keep the original db.h in /usr/include and the new db.h in /usr/local/include. 4.3BSD If you are running a "virgin" version of 4.3BSD, you'll have a very old resolver and be missing some header files. The header files are simple -- create empty versions and everything will work fine. For the resolver you should really port a new version (4.8.3 or later) of the resolver; 4.9 is available on gatekeeper.DEC.COM in pub/BSD/bind/4.9. If you are really determined to continue to use your old, buggy version (or as a shortcut to get sendmail working -- I'm sure you have the best intentions to port a modern version of BIND), you can copy ../contrib/oldbind.compat.c into sendmail and add the following to devtools/Site/site.config.m4: APPENDDEF(`confOBJADD', `oldbind.compat.o') OpenBSD (up to 2.9 Release), NetBSD, FreeBSD (up to 4.3-RELEASE) m4 from *BSD won't handle libsm/Makefile.m4 properly, since the maximum length for strings is too short. You need to use GNU m4 or patch m4, see for example: http://FreeBSD.org/cgi/cvsweb.cgi/src/usr.bin/m4/eval.c.diff?r1=1.11&r2=1.12 A/UX Date: Tue, 12 Oct 1993 18:28:28 -0400 (EDT) From: "Eric C. Hagberg" Subject: Fix for A/UX ndbm I guess this isn't really a sendmail bug, however, it is something that A/UX users should be aware of when compiling sendmail 8.6. Apparently, the calls that sendmail is using to the ndbm routines in A/UX 3.0.x contain calls to "broken" routines, in that the aliases database will break when it gets "just a little big" (sorry I don't have exact numbers here, but it broke somewhere around 20-25 aliases for me.), making all aliases non-functional after exceeding this point. What I did was to get the gnu-dbm-1.6 package, compile it, and then re-compile sendmail with "-lgdbm", "-DNDBM", and using the ndbm.h header file that comes with the gnu-package. This makes things behave properly. [NOTE: see comment above about GDBM] I suppose porting the New Berkeley DB package is another route, however, I made a quick attempt at it, and found it difficult (not easy at least); the gnu-dbm package "configured" and compiled easily. [NOTE: Berkeley DB version 2.X runs on A/UX and can be used for database maps.] SCO Unix From: Thomas Essebier Organisation: Stallion Technologies Pty Ltd. It will probably help those who are trying to configure sendmail 8.6.9 to know that if they are on SCO, they had better set OI-dnsrch or they will core dump as soon as they try to use the resolver. i.e., although SCO has _res.dnsrch defined, and is kinda BIND 4.8.3, it does not inititialise it, nor does it understand 'search' in /etc/named.boot. - sigh - According to SCO, the m4 which ships with UnixWare 2.1.2 is broken. We recommend installing GNU m4 before attempting to build sendmail. On some versions a bogus error value is listed if connections time out (large negative number). To avoid this explicitly set Timeout.connect to a reasonable value (several minutes). DG/UX Doug Anderson has successfully run V8 on the DG/UX 5.4.2 and 5.4R3.x platforms under heavy usage. Originally, the DG /bin/mail program wasn't compatible with the V8 sendmail, since the DG /bin/mail requires the environment variable "_FORCE_MAIL_LOCAL_=yes" be set. Version 8.7 now includes this in the environment before invoking the local mailer. Some have used procmail to avoid this problem in the past. It works but some have experienced file locking problems with their DG/UX ports of procmail. Apollo DomainOS If you are compiling on Apollo, you will have to create an empty file "unistd.h" (for DomainOS 10.3 and earlier) and create a file "dirent.h" containing: #include #define dirent direct (devtools/OS/DomainOS will attempt to do both of these for you.) HP-UX 8.00 Date: Mon, 24 Jan 1994 13:25:45 +0200 From: Kimmo Suominen Subject: 8.6.5 w/ HP-UX 8.00 on s300 Just compiled and fought with sendmail 8.6.5 on a HP9000/360 (i.e., a series 300 machine) running HP-UX 8.00. I was getting segmentation fault when delivering to a local user. With debugging I saw it was faulting when doing _free@libc... *sigh* It seems the new implementation of malloc on s300 is buggy as of 8.0, so I tried out the one in -lmalloc (malloc(3X)). With that it seems to work just dandy. When linking, you will get the following error: ld: multiply defined symbol _freespace in file /usr/lib/libmalloc.a but you can just ignore it. You might want to add this info to the README file for the future... Linux Something broke between versions 0.99.13 and 0.99.14 of Linux: the flock() system call gives errors. If you are running .14, you must not use flock. You can do this with -DHASFLOCK=0. We have also been getting complaints since version 2.4.X was released. sendmail 8.13 has changed the default locking method to fcntl() for Linux kernel version 2.4 and later. Be sure to update other sendmail related programs to match locking techniques (some examples, besides makemap and mail.local, include procmail, mailx, mutt, elm, etc). Around the inclusion of bind-4.9.3 & Linux libc-4.6.20, the initialization of the _res structure changed. If /etc/hosts.conf was configured as "hosts, bind" the resolver code could return "Name server failure" errors. This is supposedly fixed in later versions of libc (>= 4.6.29?), and later versions of sendmail (> 8.6.10) try to work around the problem. Some older versions (< 4.6.20?) of the libc/include files conflict with sendmail's version of cdefs.h. Deleting sendmail's version on those systems should be non-harmful, and new versions don't care. NOTE ON LINUX & BIND: By default, the Makefile generated for Linux includes header files in /usr/local/include and libraries in /usr/local/lib. If you've installed BIND on your system, the header files typically end up in the search path and you need to add "-lresolv" to the LIBS line in your Makefile. Really old versions may need to include "-l44bsd" as well (particularly if the link phase complains about missing strcasecmp, strncasecmp or strpbrk). Complaints about an undefined reference to `__dn_skipname' in domain.o are a sure sign that you need to add -lresolv to LIBS. Newer versions of Linux are basically threaded BIND, so you may or may not see complaints if you accidentally mix BIND headers/libraries with virginal libc. If you have BIND headers in /usr/local/include (resolv.h, etc) you *should* be adding -lresolv to LIBS. Data structures may change and you'd be asking for a core dump. A number of problems have been reported regarding the Linux 2.2.0 kernel. So far, these problems have been tracked down to syslog() and DNS resolution. We believe the problem is with the poll() implementation in the Linux 2.2.0 kernel and poll()-aware versions of glib (at least up to 2.0.111). glibc glibc 2.2.1 (and possibly other versions) changed the value of __RES in resolv.h but failed to actually provide the IPv6 API changes that the change implied. Therefore, compiling with -DNETINET6 fails. Workarounds: 1) Compile without -DNETINET6 2) Build against a real BIND 8.2.2 include/lib tree 3) Wait for glibc to fix it AIX 4.X The AIX 4.X linker uses library paths specified during compilation using -L for run-time shared library searches. Therefore, it is vital that relative and unsafe directory paths not be using when compiling sendmail. Because of this danger, by default, compiles on AIX use the -blibpath option to limit shared libraries to /usr/lib and /lib. If you need to allow more directories, such as /usr/local/lib, modify your devtools/Site/site.AIX.4.2.m4, site.AIX.4.3.m4, and/or site.AIX.4.x.m4 file(s) and set confLDOPTS appropriately. For example: define(`confLDOPTS', `-blibpath:/usr/lib:/lib:/usr/local/lib') Be sure to only add (safe) system directories. The AIX version of GNU ld also exhibits this problem. If you are using that version, instead of -blibpath, use its -rpath option. For example: gcc -Wl,-rpath /usr/lib -Wl,-rpath /lib -Wl,-rpath /usr/local/lib AIX 4.X If the test program t-event (and most others) in libsm fails, check your compiler settings. It seems that the flags -qnoro or -qnoroconst on some AIX versions trigger a compiler bug. Check your compiler settings or use cc instead of xlc. AIX 4.0-4.2, maybe some AIX 4.3 versions The AIX m4 implements a different mechanism for ifdef which is inconsistent with other versions of m4. Therefore, it will not work properly with the sendmail Build architecture or m4 configuration method. To work around this problem, please use GNU m4 from ftp://ftp.gnu.org/pub/gnu/. The problem seems to be solved in AIX 4.3.3 at least. AIX 4.3.3 From: Valdis.Kletnieks@vt.edu Date: Sun, 02 Jul 2000 03:58:02 -0400 Under AIX 4.3.3, after applying bos.adt.include 4.3.3.12 to close the BIND 8.2.2 security holes, you can no longer build with -DNETINET6 because they changed the value of __RES in resolv.h but failed to actually provide the API changes that the change implied. Workarounds: 1) Compile without -DNETINET6 2) Build against a real BIND 8.2.2 include/lib tree 3) Wait for IBM to fix it AIX 3.x This version of sendmail does not support MB, MG, and MR resource records, which are supported by AIX sendmail. Several people have reported that the IBM-supplied named returns fairly random results -- the named should be replaced. It is not necessary to replace the resolver, which will simplify installation. A new BIND resolver can be found at http://www.isc.org/isc/. AIX 3.1.x The supplied load average code only works correctly for AIX 3.2.x. For 3.1, use -DLA_TYPE=LA_SUBR and get the latest ``monitor'' package by Jussi Maki from ftp.funet.fi in the directory pub/unix/AIX/rs6000/monitor-1.12.tar.Z; use the loadavgd daemon, and the getloadavg subroutine supplied with that package. If you don't care about load average throttling, just turn off load average checking using -DLA_TYPE=LA_ZERO. RISC/os RISC/os from MIPS is a merged AT&T/Berkeley system. When you compile on that platform you will get duplicate definitions on many files. You can ignore these. System V Release 4 Based Systems There is a single devtools OS that is intended for all SVR4-based systems (built from devtools/OS/SVR4). It defines __svr4__, which is predefined by some compilers. If your compiler already defines this compile variable, you can delete the definition from the generated Makefile or create a devtools/Site/site.config.m4 file. It's been tested on Dell Issue 2.2. DELL SVR4 Date: Mon, 06 Dec 1993 10:42:29 EST From: "Kimmo Suominen" Message-ID: <2d0352f9.lento29@lento29.UUCP> To: eric@cs.berkeley.edu Cc: sendmail@cs.berkeley.edu Subject: Notes for DELL SVR4 Eric, Here are some notes for compiling Sendmail 8.6.4 on DELL SVR4. I ran across these things when helping out some people who contacted me by e-mail. 1) Use gcc 2.4.5 (or later?). Dell distributes gcc 2.1 with their Issue 2.2 Unix. It is too old, and gives you problems with clock.c, because sigset_t won't get defined in . This is due to a problematic protection rule in there, and is fixed with gcc 2.4.5. 2) If you don't use the new Berkeley DB (-DNEWDB), then you need to add "-lc -lucb" to the libraries to link with. This is because the -ldbm distributed by Dell needs the bcopy, bcmp and bzero functions. It is important that you specify both libraries in the given order to be sure you only get the BSTRING functions from the UCB library (and not the signal routines etc.). 3) Don't leave out "-lelf" even if compiling with "-lc -lucb". The UCB library also has another copy of the nlist routines, but we do want the ones from "-lelf". If anyone needs a compiled gcc 2.4.5 and/or a ported DB library, they can use anonymous ftp to fetch them from lut.fi in the /kim directory. They are copies of what I use on grendel.lut.fi, and offering them does not imply that I would also support them. I have sent the DB port for SVR4 back to Keith Bostic for inclusion in the official distribution, but I haven't heard anything from him as of today. - gcc-2.4.5-svr4.tar.gz (gcc 2.4.5 and the corresponding libg++) - db-1.72.tar.gz (with source, objects and a installed copy) Cheers + Kim -- * Kimmo.Suominen@lut.fi * SysVr4 enthusiast at GRENDEL.LUT.FI * * KIM@FINFILES.BITNET * Postmaster and Hostmaster at LUT.FI * * + 358 200 865 718 * Unix area moderator at NIC.FUNET.FI * ConvexOS 10.1 and below In order to use the name server, you must create the file /etc/use_nameserver. If this file does not exist, the call to res_init() will fail and you will have absolutely no access to DNS, including MX records. Amdahl UTS 2.1.5 In order to get UTS to work, you will have to port BIND 4.9. The vendor's BIND is reported to be ``totally inadequate.'' See sendmail/contrib/AmdahlUTS.patch for the patches necessary to get BIND 4.9 compiled for UTS. UnixWare According to Alexander Kolbasov , the m4 on UnixWare 2.0 (still in Beta) will core dump on the config files. GNU m4 and the m4 from UnixWare 1.x both work. According to Larry Rosenman : UnixWare 2.1.[23]'s m4 chokes (not obviously) when processing the 8.9.0 cf files. I had a LOCAL_RULE_0 that wound up AFTER the SBasic_check_rcpt rules using the SCO supplied M4. GNU M4 works fine. UNICOS 8.0.3.4 Some people have reported that the -O flag on UNICOS can cause problems. You may want to turn this off if you have problems running sendmail. Reported by Jerry G. DeLapp . Darwin/Mac OS X (10.X.X) The linker errors produced regarding getopt() and its associated variables can safely be ignored. From Mike Zimmerman : From scratch here is what Darwin users need to do to the standard 10.0.0, 10.0.1 install to get sendmail working. 1. chmod g-w / /private /private/etc 2. Properly set HOSTNAME in /etc/hostconfig to your FQDN: HOSTNAME=-my.domain.com- 3. Edit /etc/rc.boot: hostname my.domain.com domainname domain.com 4. Edit /System/Library/StartupItems/Sendmail/Sendmail: Remove the "&" after the sendmail command: /usr/sbin/sendmail -bd -q1h From Carsten Klapp : The easiest workaround is to remove the group-writable permission for the root directory and the symbolic /etc inherits this change. While this does fix sendmail, the unfortunate side-effect is the OS X admin will no longer be able to manipulate icons in the top level of the Startup disk unless logged into the GUI as the superuser. In applying the alternate workaround, care must be taken while swapping the symlink /etc with the directory /private/etc. In all likelihood any admin who is concerned with this sendmail error has enough experience to not accidentally harm anything in the process. a. Swap the /etc symlink with /private/etc (as superuser): rm /etc mv /private/etc /etc ln -s /etc /private/etc b. Set / to group unwritable (as superuser): chmod g-w / Darwin/Mac OS X (10.1.5) Apple's upgrade to sendmail 8.12 is incorrectly configured. You will need to manually fix it up by doing the following: 1. chown smmsp:smmsp /var/spool/clientmqueue 2. chmod 2770 /var/spool/clientmqueue 3. chgrp smmsp /usr/sbin/sendmail 4. chmod g+s /usr/sbin/sendmail From Daniel J. Luke : It appears that setting the sendmail.cf property in /locations/sendmail in NetInfo on Mac OS X 10.1.5 with sendmail 8.12.4 causes 'bad things' to happen. Specifically sendmail instances that should be getting their config from /etc/mail/submit.cf don't (so mail/mutt/perl scripts which open pipes to sendmail stop working as sendmail tries to write to /var/spool/mqueue and cannot as sendmail is no longer suid root). Removing the entry from NetInfo fixes this problem. GNU getopt I'm told that GNU getopt has a problem in that it gets confused by the double call. Use the version in conf.c instead. BIND 4.9.2 and Ultrix If you are running on Ultrix, be sure you read conf/Info.Ultrix in the BIND distribution very carefully -- there is information in there that you need to know in order to avoid errors of the form: /lib/libc.a(gethostent.o): sethostent: multiply defined /lib/libc.a(gethostent.o): endhostent: multiply defined /lib/libc.a(gethostent.o): gethostbyname: multiply defined /lib/libc.a(gethostent.o): gethostbyaddr: multiply defined during the link stage. BIND 8.X BIND 8.X returns HOST_NOT_FOUND instead of TRY_AGAIN on temporary DNS failures when trying to find the hostname associated with an IP address (gethostbyaddr()). This can cause problems as $&{client_name} based lookups in class R ($=R) and the access database won't succeed. This will be fixed in BIND 8.2.1. For earlier versions, this can be fixed by making "dns" the last name service queried for host resolution in /etc/irs.conf: hosts local continue hosts dns strtoul Some compilers (notably gcc) claim to be ANSI C but do not include the ANSI-required routine "strtoul". If your compiler has this problem, you will get an error in srvrsmtp.c on the code: # ifdef defined(__STDC__) && !defined(BROKEN_ANSI_LIBRARY) e->e_msgsize = strtoul(vp, (char **) NULL, 10); # else e->e_msgsize = strtol(vp, (char **) NULL, 10); # endif You can use -DBROKEN_ANSI_LIBRARY to get around this problem. Listproc 6.0c Date: 23 Sep 1995 23:56:07 GMT Message-ID: <95925101334.~INN-AUMa00187.comp-news@dl.ac.uk> From: alansz@mellers1.psych.berkeley.edu (Alan Schwartz) Subject: Listproc 6.0c + Sendmail 8.7 [Helpful hint] Just upgraded to sendmail 8.7, and discovered that listproc 6.0c breaks, because it, by default, sends a blank "HELO" rather than a "HELO hostname" when using the 'system' or 'telnet' mail method. The fix is to include -DZMAILER in the compilation, which will cause it to use "HELO hostname" (which Z-mail apparently requires as well. :) PH PH support is provided by Mark Roth . NOTE: The "spacedname" pseudo-field which was used by earlier versions of the PH map code is no longer supported! See the URL listed above for more information. Please contact Mark Roth for support and questions regarding the map. TCP Wrappers If you are using -DTCPWRAPPERS to get TCP Wrappers support you will also need to install libwrap.a and modify your site.config.m4 file or the generated Makefile to include -lwrap in the LIBS line (make sure that INCDIRS and LIBDIRS point to where the tcpd.h and libwrap.a can be found). TCP Wrappers is available at ftp://ftp.porcupine.org/pub/security/. If you have alternate MX sites for your site, be sure that all of your MX sites reject the same set of hosts. If not, a bad guy whom you reject will connect to your site, fail, and move on to the next MX site, which will accept the mail for you and forward it on to you. Regular Expressions (MAP_REGEX) If sendmail linking fails with: undefined reference to 'regcomp' or sendmail gives an error about a regular expression with: pattern-compile-error: : Operation not applicable Your libc does not include a running version of POSIX-regex. Use librx or regex.o from the GNU Free Software Foundation, ftp://ftp.gnu.org/pub/gnu/rx-?.?.tar.gz or ftp://ftp.gnu.org/pub/gnu/regex-?.?.tar.gz. You can also use the regex-lib by Henry Spencer, ftp://ftp.funet.fi/pub/languages/C/spencer/regex.shar.gz Make sure, your compiler reads regex.h from the distribution, not from /usr/include, otherwise sendmail will dump a core. Fedora Core 5, 64 bit version If the ld stage fails with undefined functions like __res_querydomain, __dn_expand then add these lines to devtools/Site/site.config.m4 APPENDDEF(`confLIBDIRS', `-L/usr/lib64') APPENDDEF(`confINCDIRS', `-I/usr/include/bind9') and rebuild (sh ./Build -c). Problem noted by Daniel Krones, solution suggested by Anthony Howe. +--------------+ | MANUAL PAGES | +--------------+ The manual pages have been written against the -man macros, and should format correctly with any reasonable *roff. +-----------------+ | DEBUGGING HOOKS | +-----------------+ As of 8.6.5, sendmail daemons will catch a SIGUSR1 signal and log some debugging output (logged at LOG_DEBUG severity). The information dumped is: * The value of the $j macro. * A warning if $j is not in the set $=w. * A list of the open file descriptors. * The contents of the connection cache. * If ruleset 89 is defined, it is evaluated and the results printed. This allows you to get information regarding the runtime state of the daemon on the fly. This should not be done too frequently, since the process of rewriting may lose memory which will not be recovered. Also, ruleset 89 may call non-reentrant routines, so there is a small non-zero probability that this will cause other problems. It is really only for debugging serious problems. A typical formulation of ruleset 89 would be: R$* $@ $>0 some test address +-----------------------------+ | DESCRIPTION OF SOURCE FILES | +-----------------------------+ The following list describes the files in this directory: Build Shell script for building sendmail. Makefile A convenience for calling ./Build. Makefile.m4 A template for constructing a makefile based on the information in the devtools directory. README This file. TRACEFLAGS My own personal list of the trace flags -- not guaranteed to be particularly up to date. alias.c Does name aliasing in all forms. aliases.5 Man page describing the format of the aliases file. arpadate.c A subroutine which creates ARPANET standard dates. bf.c Routines to implement memory-buffered file system using hooks provided by libsm now (formerly Torek stdio library). bf.h Buffered file I/O function declarations and data structure and function declarations for bf.c. collect.c The routine that actually reads the mail into a temp file. It also does a certain amount of parsing of the header, etc. conf.c The configuration file. This contains information that is presumed to be quite static and non- controversial, or code compiled in for efficiency reasons. Most of the configuration is in sendmail.cf. conf.h Configuration that must be known everywhere. control.c Routines to implement control socket. convtime.c A routine to sanely process times. daemon.c Routines to implement daemon mode. daemon.h Header file for daemon.c. deliver.c Routines to deliver mail. domain.c Routines that interface with DNS (the Domain Name System). envelope.c Routines to manipulate the envelope structure. err.c Routines to print error messages. headers.c Routines to process message headers. helpfile An example helpfile for the SMTP HELP command and -bt mode. macro.c The macro expander. This is used internally to insert information from the configuration file. mailq.1 Man page for the mailq command. main.c The main routine to sendmail. This file also contains some miscellaneous routines. makesendmail A convenience for calling ./Build. map.c Support for database maps. map.h Header file for map.c. mci.c Routines that handle mail connection information caching. milter.c MTA portions of the mail filter API. mime.c MIME conversion routines. newaliases.1 Man page for the newaliases command. parseaddr.c The routines which do address parsing. queue.c Routines to implement message queueing. ratectrl.c Routines for rate/connnection control. ratectrl.h Header file for rate/connnection control. readcf.c The routine that reads the configuration file and translates it to internal form. recipient.c Routines that manipulate the recipient list. sasl.c Routines to interact with Cyrys-SASL. savemail.c Routines which save the letter on processing errors. sched.c Routines for scheduling queue management. sendmail.8 Man page for the sendmail command. sendmail.h Main header file for sendmail. sfsasl.c I/O interface between SASL/TLS and the MTA. sfsasl.h Header file for sfsasl.c. shmticklib.c Routines for shared memory counters. sm_resolve.c Routines for DNS lookups (for DNS map type). sm_resolve.h Header file for sm_resolve.c. srvrsmtp.c Routines to implement server SMTP. stab.c Routines to manage the symbol table. stats.c Routines to collect and post the statistics. statusd_shm.h Data structure and function declarations for shmticklib.c. sysexits.c List of error messages associated with error codes in sysexits.h. sysexits.h List of error codes for systems that lack their own. timers.c Routines to provide microtimers. timers.h Data structure and function declarations for timers.h. tls.c Routines for TLS. tls.h Header file for tls*.c tlsh.c Helper routines for TLS, mostly DANE. trace.c The trace package. These routines allow setting and testing of trace flags with a high granularity. udb.c The user database interface module. usersmtp.c Routines to implement user SMTP. util.c Some general purpose routines used by sendmail. version.c The version number and information about this version of sendmail. +---------------------------+ | SOME NOTES ABOUT THE CODE | +---------------------------+ Some things are not easy to understand by just reading the source code, so this section has some notes which might be interesting for those who want to enhance sendmail. These notes are not exhaustive but just cover some things which might be interesting. Address format: sendmail uses a range of 8 bit characters for its internal purposes as noted in sendmail.h: ** Special characters in rewriting rules. ** These are used internally only. To handle all 8 bit characters, sendmail uses two address formats: internal and external -- for details see the comments in cataddr() as well as the functions quote_internal_chars() and dequote_internal_chars() in libsm/util.c. These formats are marked in many places with [i] and [x] respectively. Some functions only work on one kind of those formats, so it is important to mark the strings accordingly. In some cases the marker [A] is used to denote that the string format does not matter (which is the default) -- this is only used in cases where there might be some confusion about any format requirements. sendmail-8.18.1/sendmail/sfsasl.c0000644000372400037240000005163214556365350016231 0ustar xbuildxbuild/* * Copyright (c) 1999-2006, 2008 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: sfsasl.c,v 8.121 2013-11-22 20:51:56 ca Exp $") #include #include #include #include #include /* allow to disable error handling code just in case... */ #ifndef DEAL_WITH_ERROR_SSL # define DEAL_WITH_ERROR_SSL 1 #endif #if SASL # include "sfsasl.h" /* Structure used by the "sasl" file type */ struct sasl_obj { SM_FILE_T *fp; sasl_conn_t *conn; }; struct sasl_info { SM_FILE_T *fp; sasl_conn_t *conn; }; /* ** SASL_GETINFO - returns requested information about a "sasl" file ** descriptor. ** ** Parameters: ** fp -- the file descriptor ** what -- the type of information requested ** valp -- the thang to return the information in ** ** Returns: ** -1 for unknown requests ** >=0 on success with valp filled in (if possible). */ static int sasl_getinfo __P((SM_FILE_T *, int, void *)); static int sasl_getinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { struct sasl_obj *so = (struct sasl_obj *) fp->f_cookie; switch (what) { case SM_IO_WHAT_FD: if (so->fp == NULL) return -1; return so->fp->f_file; /* for stdio fileno() compatibility */ case SM_IO_IS_READABLE: if (so->fp == NULL) return 0; /* get info from underlying file */ return sm_io_getinfo(so->fp, what, valp); default: return -1; } } /* ** SASL_OPEN -- creates the sasl specific information for opening a ** file of the sasl type. ** ** Parameters: ** fp -- the file pointer associated with the new open ** info -- contains the sasl connection information pointer and ** the original SM_FILE_T that holds the open ** flags -- ignored ** rpool -- ignored ** ** Returns: ** 0 on success */ static int sasl_open __P((SM_FILE_T *, const void *, int, const void *)); /* ARGSUSED2 */ static int sasl_open(fp, info, flags, rpool) SM_FILE_T *fp; const void *info; int flags; const void *rpool; { struct sasl_obj *so; struct sasl_info *si = (struct sasl_info *) info; so = (struct sasl_obj *) sm_malloc(sizeof(struct sasl_obj)); if (so == NULL) { errno = ENOMEM; return -1; } so->fp = si->fp; so->conn = si->conn; /* ** The underlying 'fp' is set to SM_IO_NOW so that the entire ** encoded string is written in one chunk. Otherwise there is ** the possibility that it may appear illegal, bogus or ** mangled to the other side of the connection. ** We will read or write through 'fp' since it is the opaque ** connection for the communications. We need to treat it this ** way in case the encoded string is to be sent down a TLS ** connection rather than, say, sm_io's stdio. */ (void) sm_io_setvbuf(so->fp, SM_TIME_DEFAULT, NULL, SM_IO_NOW, 0); fp->f_cookie = so; return 0; } /* ** SASL_CLOSE -- close the sasl specific parts of the sasl file pointer ** ** Parameters: ** fp -- the file pointer to close ** ** Returns: ** 0 on success */ static int sasl_close __P((SM_FILE_T *)); static int sasl_close(fp) SM_FILE_T *fp; { struct sasl_obj *so; so = (struct sasl_obj *) fp->f_cookie; if (so == NULL) return 0; SM_CLOSE_FP(so->fp); sm_free(so); so = NULL; return 0; } /* how to deallocate a buffer allocated by SASL */ extern void sm_sasl_free __P((void *)); # define SASL_DEALLOC(b) sm_sasl_free(b) /* ** SASL_READ -- read encrypted information and decrypt it for the caller ** ** Parameters: ** fp -- the file pointer ** buf -- the location to place the decrypted information ** size -- the number of bytes to read after decryption ** ** Returns: ** -1 on error ** otherwise the number of bytes read */ static ssize_t sasl_read __P((SM_FILE_T *, char *, size_t)); static ssize_t sasl_read(fp, buf, size) SM_FILE_T *fp; char *buf; size_t size; { int result; ssize_t len; # if SASL >= 20000 static const char *outbuf = NULL; # else static char *outbuf = NULL; # endif static unsigned int outlen = 0; static unsigned int offset = 0; struct sasl_obj *so = (struct sasl_obj *) fp->f_cookie; /* ** sasl_decode() may require more data than a single read() returns. ** Hence we have to put a loop around the decoding. ** This also requires that we may have to split up the returned ** data since it might be larger than the allowed size. ** Therefore we use a static pointer and return portions of it ** if necessary. ** XXX Note: This function is not thread-safe nor can it be used ** on more than one file. A correct implementation would store ** this data in fp->f_cookie. */ # if SASL >= 20000 while (outlen == 0) # else while (outbuf == NULL && outlen == 0) # endif { len = sm_io_read(so->fp, SM_TIME_DEFAULT, buf, size); if (len <= 0) return len; result = sasl_decode(so->conn, buf, (unsigned int) len, &outbuf, &outlen); if (result != SASL_OK) { if (LogLevel > 7) sm_syslog(LOG_WARNING, NOQID, "AUTH: sasl_decode error=%d", result); outbuf = NULL; offset = 0; outlen = 0; return -1; } } if (outbuf == NULL) { /* be paranoid: outbuf == NULL but outlen != 0 */ syserr("@sasl_read failure: outbuf == NULL but outlen != 0"); /* NOTREACHED */ } if (outlen - offset > size) { /* return another part of the buffer */ (void) memcpy(buf, outbuf + offset, size); offset += size; len = size; } else { /* return the rest of the buffer */ len = outlen - offset; (void) memcpy(buf, outbuf + offset, (size_t) len); # if SASL < 20000 SASL_DEALLOC(outbuf); # endif outbuf = NULL; offset = 0; outlen = 0; } return len; } /* ** SASL_WRITE -- write information out after encrypting it ** ** Parameters: ** fp -- the file pointer ** buf -- holds the data to be encrypted and written ** size -- the number of bytes to have encrypted and written ** ** Returns: ** -1 on error ** otherwise number of bytes written */ static ssize_t sasl_write __P((SM_FILE_T *, const char *, size_t)); static ssize_t sasl_write(fp, buf, size) SM_FILE_T *fp; const char *buf; size_t size; { int result; # if SASL >= 20000 const char *outbuf; # else char *outbuf; # endif unsigned int outlen, *maxencode; size_t ret = 0, total = 0; struct sasl_obj *so = (struct sasl_obj *) fp->f_cookie; /* ** Fetch the maximum input buffer size for sasl_encode(). ** This can be less than the size set in attemptauth() ** due to a negotiation with the other side, e.g., ** Cyrus IMAP lmtp program sets maxbuf=4096, ** digestmd5 subtracts 25 and hence we'll get 4071 ** instead of 8192 (MAXOUTLEN). ** Hack (for now): simply reduce the size, callers are (must be) ** able to deal with that and invoke sasl_write() again with ** the rest of the data. ** Note: it would be better to store this value in the context ** after the negotiation. */ result = sasl_getprop(so->conn, SASL_MAXOUTBUF, (const void **) &maxencode); if (result == SASL_OK && size > *maxencode && *maxencode > 0) size = *maxencode; result = sasl_encode(so->conn, buf, (unsigned int) size, &outbuf, &outlen); if (result != SASL_OK) { if (LogLevel > 7) sm_syslog(LOG_WARNING, NOQID, "AUTH: sasl_encode error=%d", result); return -1; } if (outbuf != NULL) { while (outlen > 0) { errno = 0; /* XXX result == 0? */ ret = sm_io_write(so->fp, SM_TIME_DEFAULT, &outbuf[total], outlen); if (ret <= 0) return ret; outlen -= ret; total += ret; } # if SASL < 20000 SASL_DEALLOC(outbuf); # endif } return size; } /* ** SFDCSASL -- create sasl file type and open in and out file pointers ** for sendmail to read from and write to. ** ** Parameters: ** fin -- the sm_io file encrypted data to be read from ** fout -- the sm_io file encrypted data to be written to ** conn -- the sasl connection pointer ** tmo -- timeout ** ** Returns: ** -1 on error ** 0 on success ** ** Side effects: ** The arguments "fin" and "fout" are replaced with the new ** SM_FILE_T pointers. */ int sfdcsasl(fin, fout, conn, tmo) SM_FILE_T **fin; SM_FILE_T **fout; sasl_conn_t *conn; int tmo; { SM_FILE_T *newin, *newout; SM_FILE_T SM_IO_SET_TYPE(sasl_vector, "sasl", sasl_open, sasl_close, sasl_read, sasl_write, NULL, sasl_getinfo, NULL, SM_TIME_DEFAULT); struct sasl_info info; if (conn == NULL) { /* no need to do anything */ return 0; } SM_IO_INIT_TYPE(sasl_vector, "sasl", sasl_open, sasl_close, sasl_read, sasl_write, NULL, sasl_getinfo, NULL, SM_TIME_DEFAULT); info.fp = *fin; info.conn = conn; newin = sm_io_open(&sasl_vector, SM_TIME_DEFAULT, &info, SM_IO_RDONLY_B, NULL); if (newin == NULL) return -1; info.fp = *fout; info.conn = conn; newout = sm_io_open(&sasl_vector, SM_TIME_DEFAULT, &info, SM_IO_WRONLY_B, NULL); if (newout == NULL) { (void) sm_io_close(newin, SM_TIME_DEFAULT); return -1; } sm_io_automode(newin, newout); sm_io_setinfo(*fin, SM_IO_WHAT_TIMEOUT, &tmo); sm_io_setinfo(*fout, SM_IO_WHAT_TIMEOUT, &tmo); *fin = newin; *fout = newout; return 0; } #endif /* SASL */ #if STARTTLS # include "sfsasl.h" # include # include /* Structure used by the "tls" file type */ struct tls_obj { SM_FILE_T *fp; SSL *con; }; struct tls_info { SM_FILE_T *fp; SSL *con; }; /* ** TLS_GETINFO - returns requested information about a "tls" file ** descriptor. ** ** Parameters: ** fp -- the file descriptor ** what -- the type of information requested ** valp -- the thang to return the information in (unused) ** ** Returns: ** -1 for unknown requests ** >=0 on success with valp filled in (if possible). */ static int tls_getinfo __P((SM_FILE_T *, int, void *)); /* ARGSUSED2 */ static int tls_getinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { struct tls_obj *so = (struct tls_obj *) fp->f_cookie; switch (what) { case SM_IO_WHAT_FD: if (so->fp == NULL) return -1; return so->fp->f_file; /* for stdio fileno() compatibility */ case SM_IO_IS_READABLE: return SSL_pending(so->con) > 0; default: return -1; } } /* ** TLS_OPEN -- creates the tls specific information for opening a ** file of the tls type. ** ** Parameters: ** fp -- the file pointer associated with the new open ** info -- the sm_io file pointer holding the open and the ** TLS encryption connection to be read from or written to ** flags -- ignored ** rpool -- ignored ** ** Returns: ** 0 on success */ static int tls_open __P((SM_FILE_T *, const void *, int, const void *)); /* ARGSUSED2 */ static int tls_open(fp, info, flags, rpool) SM_FILE_T *fp; const void *info; int flags; const void *rpool; { struct tls_obj *so; struct tls_info *ti = (struct tls_info *) info; so = (struct tls_obj *) sm_malloc(sizeof(struct tls_obj)); if (so == NULL) { errno = ENOMEM; return -1; } so->fp = ti->fp; so->con = ti->con; /* ** We try to get the "raw" file descriptor that TLS uses to ** do the actual read/write with. This is to allow us control ** over the file descriptor being a blocking or non-blocking type. ** Under the covers TLS handles the change and this allows us ** to do timeouts with sm_io. */ fp->f_file = sm_io_getinfo(so->fp, SM_IO_WHAT_FD, NULL); (void) sm_io_setvbuf(so->fp, SM_TIME_DEFAULT, NULL, SM_IO_NOW, 0); fp->f_cookie = so; return 0; } /* ** TLS_CLOSE -- close the tls specific parts of the tls file pointer ** ** Parameters: ** fp -- the file pointer to close ** ** Returns: ** 0 on success */ static int tls_close __P((SM_FILE_T *)); static int tls_close(fp) SM_FILE_T *fp; { struct tls_obj *so; so = (struct tls_obj *) fp->f_cookie; if (so == NULL) return 0; SM_CLOSE_FP(so->fp); sm_free(so); so = NULL; return 0; } /* maximum number of retries for TLS related I/O due to handshakes */ # define MAX_TLS_IOS 4 /* ** TLS_RETRY -- check whether a failed SSL operation can be retried ** ** Parameters: ** ssl -- TLS structure ** rfd -- read fd ** wfd -- write fd ** tlsstart -- start time of TLS operation ** timeout -- timeout for TLS operation ** err -- SSL error ** where -- description of operation ** ** Returns: ** >0 on success ** 0 on timeout ** <0 on error */ int tls_retry(ssl, rfd, wfd, tlsstart, timeout, err, where) SSL *ssl; int rfd; int wfd; time_t tlsstart; int timeout; int err; const char *where; { int ret; time_t left; time_t now = curtime(); struct timeval tv; ret = -1; /* ** For SSL_ERROR_WANT_{READ,WRITE}: ** There is not a complete SSL record available yet ** or there is only a partial SSL record removed from ** the network (socket) buffer into the SSL buffer. ** The SSL_connect will only succeed when a full ** SSL record is available (assuming a "real" error ** doesn't happen). To handle when a "real" error ** does happen the select is set for exceptions too. ** The connection may be re-negotiated during this time ** so both read and write "want errors" need to be handled. ** A select() exception loops back so that a proper SSL ** error message can be gotten. */ left = timeout - (now - tlsstart); if (left <= 0) return 0; /* timeout */ tv.tv_sec = left; tv.tv_usec = 0; if (LogLevel > 14) { sm_syslog(LOG_INFO, NOQID, "STARTTLS=%s, info: fds=%d/%d, err=%d", where, rfd, wfd, err); } if ((err == SSL_ERROR_WANT_READ && !SM_FD_OK_SELECT(rfd)) || (err == SSL_ERROR_WANT_WRITE && !SM_FD_OK_SELECT(wfd))) { if (LogLevel > 5) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=%s, error: fd %d/%d too large", where, rfd, wfd); tlslogerr(LOG_WARNING, 8, where); } errno = EINVAL; } else if (err == SSL_ERROR_WANT_READ) { fd_set ssl_maskr, ssl_maskx; int save_errno = errno; FD_ZERO(&ssl_maskr); FD_SET(rfd, &ssl_maskr); FD_ZERO(&ssl_maskx); FD_SET(rfd, &ssl_maskx); do { ret = select(rfd + 1, &ssl_maskr, NULL, &ssl_maskx, &tv); } while (ret < 0 && errno == EINTR); if (ret < 0 && errno > 0) ret = -errno; errno = save_errno; } else if (err == SSL_ERROR_WANT_WRITE) { fd_set ssl_maskw, ssl_maskx; int save_errno = errno; FD_ZERO(&ssl_maskw); FD_SET(wfd, &ssl_maskw); FD_ZERO(&ssl_maskx); FD_SET(rfd, &ssl_maskx); do { ret = select(wfd + 1, NULL, &ssl_maskw, &ssl_maskx, &tv); } while (ret < 0 && errno == EINTR); if (ret < 0 && errno > 0) ret = -errno; errno = save_errno; } return ret; } /* errno to force refill() etc to stop (see IS_IO_ERROR()) */ # ifdef ETIMEDOUT # define SM_ERR_TIMEOUT ETIMEDOUT # else # define SM_ERR_TIMEOUT EIO # endif /* ** SET_TLS_RD_TMO -- read secured information for the caller ** ** Parameters: ** rd_tmo -- read timeout ** ** Returns: ** previous read timeout ** This is a hack: there is no way to pass it in */ static int tls_rd_tmo = -1; int set_tls_rd_tmo(rd_tmo) int rd_tmo; { int old_rd_tmo; old_rd_tmo = tls_rd_tmo; tls_rd_tmo = rd_tmo; return old_rd_tmo; } /* ** TLS_READ -- read secured information for the caller ** ** Parameters: ** fp -- the file pointer ** buf -- the location to place the data ** size -- the number of bytes to read from connection ** ** Returns: ** -1 on error ** otherwise the number of bytes read */ static ssize_t tls_read __P((SM_FILE_T *, char *, size_t)); static ssize_t tls_read(fp, buf, size) SM_FILE_T *fp; char *buf; size_t size; { int r, rfd, wfd, try, ssl_err; struct tls_obj *so = (struct tls_obj *) fp->f_cookie; time_t tlsstart; char *err; try = 99; err = NULL; tlsstart = curtime(); retry: r = SSL_read(so->con, (char *) buf, size); if (r > 0) return r; err = NULL; switch (ssl_err = SSL_get_error(so->con, r)) { case SSL_ERROR_NONE: case SSL_ERROR_ZERO_RETURN: break; case SSL_ERROR_WANT_WRITE: err = "read W BLOCK"; /* FALLTHROUGH */ case SSL_ERROR_WANT_READ: if (err == NULL) err = "read R BLOCK"; rfd = SSL_get_rfd(so->con); wfd = SSL_get_wfd(so->con); try = tls_retry(so->con, rfd, wfd, tlsstart, (tls_rd_tmo < 0) ? TimeOuts.to_datablock : tls_rd_tmo, ssl_err, "read"); if (try > 0) goto retry; errno = SM_ERR_TIMEOUT; break; case SSL_ERROR_WANT_X509_LOOKUP: err = "write X BLOCK"; break; case SSL_ERROR_SYSCALL: if (r == 0 && errno == 0) /* out of protocol EOF found */ break; err = "syscall error"; break; case SSL_ERROR_SSL: # if DEAL_WITH_ERROR_SSL if (r == 0 && errno == 0) /* out of protocol EOF found */ break; # endif err = "generic SSL error"; if (LogLevel > 9) { int pri; if (errno == EAGAIN && try > 0) pri = LOG_DEBUG; else pri = LOG_WARNING; tlslogerr(pri, 9, "read"); } # if DEAL_WITH_ERROR_SSL /* avoid repeated calls? */ if (r == 0) r = -1; # endif break; } if (err != NULL) { int save_errno; save_errno = (errno == 0) ? EIO : errno; if (try == 0 && save_errno == SM_ERR_TIMEOUT) { if (LogLevel > 7) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: read error=timeout"); } else if (LogLevel > 8) { int pri; if (save_errno == EAGAIN && try > 0) pri = LOG_DEBUG; else pri = LOG_WARNING; sm_syslog(pri, NOQID, "STARTTLS: read error=%s (%d), errno=%d, get_error=%s, retry=%d, ssl_err=%d", err, r, errno, ERR_error_string(ERR_get_error(), NULL), try, ssl_err); } else if (LogLevel > 7) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: read error=%s (%d), errno=%d, retry=%d, ssl_err=%d", err, r, errno, try, ssl_err); errno = save_errno; } return r; } /* ** TLS_WRITE -- write information out through secure connection ** ** Parameters: ** fp -- the file pointer ** buf -- holds the data to be securely written ** size -- the number of bytes to write ** ** Returns: ** -1 on error ** otherwise number of bytes written */ static ssize_t tls_write __P((SM_FILE_T *, const char *, size_t)); static ssize_t tls_write(fp, buf, size) SM_FILE_T *fp; const char *buf; size_t size; { int r, rfd, wfd, try, ssl_err; struct tls_obj *so = (struct tls_obj *) fp->f_cookie; time_t tlsstart; char *err; try = 99; err = NULL; tlsstart = curtime(); retry: r = SSL_write(so->con, (char *) buf, size); if (r > 0) return r; err = NULL; switch (ssl_err = SSL_get_error(so->con, r)) { case SSL_ERROR_NONE: case SSL_ERROR_ZERO_RETURN: break; case SSL_ERROR_WANT_WRITE: err = "read W BLOCK"; /* FALLTHROUGH */ case SSL_ERROR_WANT_READ: if (err == NULL) err = "read R BLOCK"; rfd = SSL_get_rfd(so->con); wfd = SSL_get_wfd(so->con); try = tls_retry(so->con, rfd, wfd, tlsstart, DATA_PROGRESS_TIMEOUT, ssl_err, "write"); if (try > 0) goto retry; errno = SM_ERR_TIMEOUT; break; case SSL_ERROR_WANT_X509_LOOKUP: err = "write X BLOCK"; break; case SSL_ERROR_SYSCALL: if (r == 0 && errno == 0) /* out of protocol EOF found */ break; err = "syscall error"; break; case SSL_ERROR_SSL: err = "generic SSL error"; /* ERR_GET_REASON(ERR_peek_error())); */ tlslogerr(LOG_WARNING, 9, "write"); # if DEAL_WITH_ERROR_SSL /* avoid repeated calls? */ if (r == 0) r = -1; # endif break; } if (err != NULL) { int save_errno; save_errno = (errno == 0) ? EIO : errno; if (try == 0 && save_errno == SM_ERR_TIMEOUT) { if (LogLevel > 7) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: write error=timeout"); } else if (LogLevel > 8) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: write error=%s (%d), errno=%d, get_error=%s, retry=%d, ssl_err=%d", err, r, errno, ERR_error_string(ERR_get_error(), NULL), try, ssl_err); else if (LogLevel > 7) sm_syslog(LOG_WARNING, NOQID, "STARTTLS: write error=%s (%d), errno=%d, retry=%d, ssl_err=%d", err, r, errno, try, ssl_err); errno = save_errno; } return r; } /* ** SFDCTLS -- create tls file type and open in and out file pointers ** for sendmail to read from and write to. ** ** Parameters: ** fin -- data input source being replaced ** fout -- data output source being replaced ** con -- the tls connection pointer ** ** Returns: ** -1 on error ** 0 on success ** ** Side effects: ** The arguments "fin" and "fout" are replaced with the new ** SM_FILE_T pointers. ** The original "fin" and "fout" are preserved in the tls file ** type but are not actually used because of the design of TLS. */ int sfdctls(fin, fout, con) SM_FILE_T **fin; SM_FILE_T **fout; SSL *con; { SM_FILE_T *tlsin, *tlsout; SM_FILE_T SM_IO_SET_TYPE(tls_vector, "tls", tls_open, tls_close, tls_read, tls_write, NULL, tls_getinfo, NULL, SM_TIME_FOREVER); struct tls_info info; SM_ASSERT(con != NULL); SM_IO_INIT_TYPE(tls_vector, "tls", tls_open, tls_close, tls_read, tls_write, NULL, tls_getinfo, NULL, SM_TIME_FOREVER); info.fp = *fin; info.con = con; tlsin = sm_io_open(&tls_vector, SM_TIME_DEFAULT, &info, SM_IO_RDONLY_B, NULL); if (tlsin == NULL) return -1; info.fp = *fout; tlsout = sm_io_open(&tls_vector, SM_TIME_DEFAULT, &info, SM_IO_WRONLY_B, NULL); if (tlsout == NULL) { (void) sm_io_close(tlsin, SM_TIME_DEFAULT); return -1; } sm_io_automode(tlsin, tlsout); *fin = tlsin; *fout = tlsout; return 0; } #endif /* STARTTLS */ sendmail-8.18.1/sendmail/srvrsmtp.c0000644000372400037240000043471314556365350016643 0ustar xbuildxbuild/* * Copyright (c) 1998-2010, 2012-2014,2021-2024 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #if MILTER # include # include #endif SM_RCSID("@(#)$Id: srvrsmtp.c,v 8.1016 2013-11-22 20:51:56 ca Exp $") #include #if _FFR_8BITENVADDR # include #endif #include #include #if SASL || STARTTLS # include # include "sfsasl.h" #endif #if SASL # define ENC64LEN(l) (((l) + 2) * 4 / 3 + 1) static int saslmechs __P((sasl_conn_t *, char **)); #endif #if STARTTLS # include static SSL_CTX *srv_ctx = NULL; /* TLS server context */ static SSL *srv_ssl = NULL; /* per connection context */ static tlsi_ctx_T tlsi_ctx; /* TLS information context */ static bool tls_ok_srv = false; # define TLS_VERIFY_CLIENT() tls_set_verify(srv_ctx, srv_ssl, \ bitset(SRV_VRFY_CLT, features)) #endif /* STARTTLS */ #if _FFR_DM_ONE static bool NotFirstDelivery = false; #endif /* server features */ #define SRV_NONE 0x00000000 /* none... */ #define SRV_OFFER_TLS 0x00000001 /* offer STARTTLS */ #define SRV_VRFY_CLT 0x00000002 /* request a cert */ #define SRV_OFFER_AUTH 0x00000004 /* offer AUTH */ #define SRV_OFFER_ETRN 0x00000008 /* offer ETRN */ #define SRV_OFFER_VRFY 0x00000010 /* offer VRFY (not yet used) */ #define SRV_OFFER_EXPN 0x00000020 /* offer EXPN */ #define SRV_OFFER_VERB 0x00000040 /* offer VERB */ #define SRV_OFFER_DSN 0x00000080 /* offer DSN */ #if PIPELINING # define SRV_OFFER_PIPE 0x00000100 /* offer PIPELINING */ # if _FFR_NO_PIPE # define SRV_NO_PIPE 0x00000200 /* disable PIPELINING, sleep if used */ # endif #endif /* PIPELINING */ #define SRV_REQ_AUTH 0x00000400 /* require AUTH */ #define SRV_REQ_SEC 0x00000800 /* require security - equiv to AuthOptions=p */ #define SRV_TMP_FAIL 0x00001000 /* ruleset caused a temporary failure */ #if USE_EAI # define SRV_OFFER_EAI 0x00002000 /* offer SMTPUTF8 */ #endif #define SRV_NO_HTTP_CMD 0x00004000 /* always reject HTTP commands */ #define SRV_BAD_PIPELINE 0x00008000 /* reject bad pipelining (see comment below) */ #define SRV_REQ_CRLF 0x00010000 /* require CRLF as EOL */ #define SRV_BARE_LF_421 0x00020000 /* bare LF - drop connection */ #define SRV_BARE_CR_421 0x00040000 /* bare CR - drop connection */ #define SRV_BARE_LF_SP 0x00080000 #define SRV_BARE_CR_SP 0x00100000 static unsigned long srvfeatures __P((ENVELOPE *, char *, unsigned long)); #define STOP_ATTACK ((time_t) -1) static time_t checksmtpattack __P((volatile unsigned int *, unsigned int, bool, char *, ENVELOPE *)); static void printvrfyaddr __P((ADDRESS *, bool, bool)); static char *skipword __P((char *volatile, char *)); static void setup_smtpd_io __P((void)); static struct timeval *channel_readable __P((SM_FILE_T *, int)); #if SASL # ifndef MAX_AUTH_USER_LEN # define MAX_AUTH_USER_LEN 256 # endif # ifndef MAX_AUTH_LOG_LEN # define MAX_AUTH_LOG_LEN 64 # endif static void get_sasl_user __P((char *, unsigned int, const char *, char *out, size_t)); # define RESET_AUTH_FAIL_LOG_USER \ do \ { \ (void) memset(auth_user, 0, sizeof(auth_user)); \ (void) memset(auth_user_tmp, 0, sizeof(auth_user_tmp)); \ auth_user_len = 0; \ } while (0) # define SET_AUTH_USER_TMP(s, len) \ do \ { \ auth_user_len = SM_MIN(len, MAX_AUTH_USER_LEN-1); \ (void) memcpy(auth_user_tmp, s, auth_user_len); \ } while (0) # define SET_AUTH_USER \ get_sasl_user(auth_user_tmp, auth_user_len, auth_type, auth_user, sizeof(auth_user)) # define SET_AUTH_USER_CONDITIONALLY \ if ('\0' == auth_user[0]) \ SET_AUTH_USER; # define LOG_AUTH_FAIL_USER ", user=", (int)MAX_AUTH_LOG_LEN, auth_user # if SASL >= 20000 static int reset_saslconn __P((sasl_conn_t **_conn, char *_hostname, char *_remoteip, char *_localip, char *_auth_id, sasl_ssf_t *_ext_ssf)); # define RESET_SASLCONN \ do \ { \ RESET_AUTH_FAIL_LOG_USER; \ result = reset_saslconn(&conn, AuthRealm, remoteip, \ localip, auth_id, &ext_ssf); \ if (result != SASL_OK) \ sasl_ok = false; \ } while (0) # else /* SASL >= 20000 */ static int reset_saslconn __P((sasl_conn_t **_conn, char *_hostname, struct sockaddr_in *_saddr_r, struct sockaddr_in *_saddr_l, sasl_external_properties_t *_ext_ssf)); # define RESET_SASLCONN \ do \ { \ RESET_AUTH_FAIL_LOG_USER; \ result = reset_saslconn(&conn, AuthRealm, &saddr_r, \ &saddr_l, &ext_ssf); \ if (result != SASL_OK) \ sasl_ok = false; \ } while (0) # endif /* SASL >= 20000 */ #endif /* SASL */ #if !defined(RESET_AUTH_FAIL_LOG_USER) # define RESET_AUTH_FAIL_LOG_USER #endif extern ENVELOPE BlankEnvelope; #define NBADRCPTS \ do \ { \ char buf[16]; \ (void) sm_snprintf(buf, sizeof(buf), "%d", \ BadRcptThrottle > 0 && n_badrcpts > BadRcptThrottle \ ? n_badrcpts - 1 : n_badrcpts); \ macdefine(&e->e_macro, A_TEMP, macid("{nbadrcpts}"), buf); \ } while (0) #define SKIP_SPACE(s) while (SM_ISSPACE(*s)) \ (s)++ #if USE_EAI /* ** ADDR_IS_ASCII -- check whether a string (address) is ASCII ** ** Parameters: ** str -- a string ** ** Returns: ** TRUE iff str is non-NULL and points to only ASCII */ bool addr_is_ascii(str) const char *str; { while (str != NULL && *str != '\0' && isascii((unsigned char)*str)) str++; return (str != NULL && *str == '\0'); } /* ** STR_IS_PRINT -- check whether a string is printable ASCII ** ** Parameters: ** str -- a string ** ** Returns: ** TRUE iff str is non-NULL and points to only printable ASCII */ bool str_is_print(str) const char *str; { while (str != NULL && *str != '\0' && *str >= ' ' && (unsigned char)*str < 127) str++; return (str != NULL && *str == '\0'); } # define CHECK_UTF8_ADDR(a, q) \ do \ { \ q = NULL; \ if (addr_is_ascii(a)) \ break; \ if (!SMTP_UTF8) \ break; \ if (!e->e_smtputf8) \ q = "553 5.6.7 Address requires SMTPUTF8"; \ else \ { \ char str[MAXNAME]; \ dequote_internal_chars(a, str, sizeof(str)); \ if (!utf8_valid(str, strlen(str)) && SMTP_UTF8 <= 1) \ q = "553 5.6.7 Address not valid UTF8"; \ } \ } while (0) #endif /* USE_EAI */ /* ** PARSE_ESMTP_ARGS -- parse ESMTP arguments (for MAIL, RCPT) ** ** Parameters: ** e -- the envelope ** addr_st -- address (RCPT only) ** p -- read buffer ** delimptr -- current position in read buffer ** which -- MAIL/RCPT ** args -- arguments (output) ** esmtp_args -- function to process a single ESMTP argument ** ** Returns: ** none */ void parse_esmtp_args(e, addr_st, p, delimptr, which, args, esmtp_args) ENVELOPE *e; ADDRESS *addr_st; char *p; char *delimptr; char *which; char *args[]; esmtp_args_F esmtp_args; { int argno; argno = 0; if (args != NULL) args[argno++] = p; p = delimptr; while (p != NULL && *p != '\0') { char *kp; char *vp = NULL; char *equal = NULL; /* locate the beginning of the keyword */ SKIP_SPACE(p); if (*p == '\0') break; kp = p; /* skip to the value portion */ while ((isascii(*p) && isalnum(*p)) || *p == '-') p++; if (*p == '=') { equal = p; *p++ = '\0'; vp = p; /* skip to the end of the value */ while (*p != '\0' && *p != ' ' && !(isascii(*p) && iscntrl(*p)) && *p != '=') p++; } if (*p != '\0') *p++ = '\0'; if (tTd(19, 1)) sm_dprintf("%s: got arg %s=\"%s\"\n", which, kp, vp == NULL ? "" : vp); esmtp_args(addr_st, kp, vp, e); if (equal != NULL) *equal = '='; if (args != NULL) args[argno] = kp; argno++; if (argno >= MAXSMTPARGS - 1) usrerr("501 5.5.4 Too many parameters"); if (Errors > 0) break; } if (args != NULL) args[argno] = NULL; } #if _FFR_ADD_BCC /* ** ADDRCPT -- Add a rcpt to sendq list ** ** Parameters: ** rcpt -- rcpt [i] ** sendq -- a pointer to the head of a queue to put ** these people into. ** e -- the envelope in which to add these recipients. ** ** Returns: ** The number of addresses added to the list. */ static int addrcpt(rcpt, sendq, e) char *rcpt; ADDRESS **sendq; ENVELOPE *e; { int r; char *oldto; ADDRESS *a; SM_REQUIRE(rcpt != NULL); SM_REQUIRE(sendq != NULL); SM_REQUIRE(e != NULL); oldto = e->e_to; if (tTd(25, 1)) sm_dprintf("addrcpt: rcpt=%s\n", rcpt); r = Errors; a = NULL; SM_TRY { macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e b"); /* XXX rcpt must be [i] */ a = parseaddr(rcpt, NULLADDR, RF_COPYALL, ' ', NULL, e, true); if (a == NULL) return 0; a->q_flags &= ~Q_PINGFLAGS; a->q_flags |= QINTBCC; a->q_owner = "<>"; /* disable alias expansion? */ a = recipient(a, sendq, 0, e); } SM_FINALLY { e->e_to = oldto; macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); } SM_END_TRY if (tTd(25, 1)) sm_dprintf("addrcpt: rcpt=%s, flags=%#lx\n", rcpt, a != NULL ? a->q_flags : 0); Errors = r; return 1; } /* ** ADDBCC -- Maybe create a copy of an e-mail ** ** Parameters: ** a -- current RCPT ** e -- the envelope. ** ** Returns: ** nothing ** ** Side Effects: ** rscheck() can trigger an "exception" */ static void addbcc(a, e) ADDRESS *a; ENVELOPE *e; { int nobcc; char *newrcpt, empty[1]; if (!AddBcc) return; nobcc = false; empty[0] = '\0'; newrcpt = empty; nobcc = rscheck("bcc", a->q_paddr, NULL, e, RSF_ADDR, 12, NULL, NOQID, NULL, &newrcpt); if (tTd(25, 1)) sm_dprintf("addbcc: nobcc=%d, Errors=%d, newrcpt=<%s>\n", nobcc, Errors, newrcpt); if (nobcc != EX_OK || Errors > 0 || *newrcpt == '\0') return; (void) addrcpt(newrcpt, &e->e_sendqueue, e); return; } #else /* _FFR_ADD_BCC */ # define addbcc(a, e) #endif /* _FFR_ADD_BCC */ #if _FFR_RCPTFLAGS /* ** RCPTMODS -- Perform rcpt modifications if requested ** ** Parameters: ** rcpt -- current RCPT ** e -- the envelope. ** ** Returns: ** nothing. */ void rcptmods(rcpt, e) ADDRESS *rcpt; ENVELOPE *e; { char *fl; SM_REQUIRE(rcpt != NULL); SM_REQUIRE(e != NULL); fl = macvalue(macid("{rcpt_flags}"), e); if (SM_IS_EMPTY(fl)) return; if (tTd(25, 1)) sm_dprintf("rcptmods: rcpt=%s, flags=%s\n", rcpt->q_paddr, fl); /* parse flags */ for ( ; *fl != '\0'; ++fl) { switch (*fl) { case 'n': rcpt->q_flags &= ~Q_PINGFLAGS; rcpt->q_flags |= QINTBCC; rcpt->q_owner = "<>"; break; case 'N': rcpt->q_flags &= ~Q_PINGFLAGS; rcpt->q_owner = "<>"; break; case QDYNMAILFLG: rcpt->q_flags |= QDYNMAILER; newmodmailer(rcpt, *fl); break; default: sm_syslog(LOG_INFO, e->e_id, "rcpt=%s, rcpt_flags=%s, status=unknown", rcpt->q_paddr, fl); break; } } /* reset macro to avoid confusion later on */ macdefine(&e->e_macro, A_PERM, macid("{rcpt_flags}"), NULL); } #else /* _FFR_RCPTFLAGS */ # define rcptmods(a, e) #endif /* _FFR_RCPTFLAGS */ #if _FFR_8BITENVADDR /* ** SEP_ARGS -- separate address and argument string for MAIL/RCPT command ** ** Parameters: ** args -- arguments (converted to and from internal format) ** orig -- string after command (original data) ** id -- envelope id (for logging only) ** addr -- for logging only: address (original data) ** ** Returns: ** nothing */ static void sep_args __P((char *, char *, const char *, const char *)); static void sep_args(args, orig, id, addr) char *args; char *orig; const char *id; const char *addr; { int lr, lo; char *q; lr = strlen(args); lo = strlen(orig); if (lr >= lo) { sm_syslog(LOG_ERR, id, "ERROR=ARGS_NOT_FOUND, address='%s', rest='%s', orig='%s', strlen(rest)=%d, strlen(orig)=%d", addr, args, orig, lr, lo); return; } q = orig + (lo - lr); if (!(q > orig && *--q == ' ')) { sm_syslog(LOG_INFO, id, "ERROR=ARGS_DO_NOT_MATCH, address='%s', rest='%s', orig='%s', q='%s', strlen(rest)=%d, strlen(orig)=%d, cmp=%d", addr, args, orig, q, lr, lo, strcmp(args, q)); return; } for (; q > orig && *q == ' '; q--) *q = '\0'; } #endif /* _FFR_8BITENVADDR */ /* ** CHANNEL_READBLE -- determine if data is readable from the SMTP channel ** ** Parameters: ** channel -- connect channel for reading ** timeout -- how long to pause for data in milliseconds ** ** Returns: ** timeval contained how long we waited if data detected, ** NULL otherwise */ static struct timeval * channel_readable(channel, timeout) SM_FILE_T *channel; int timeout; { struct timeval bp, ep; /* {begin,end} pause */ static struct timeval tp; /* total pause */ int eoftest; /* check if data is on the channel during the pause */ gettimeofday(&bp, NULL); if ((eoftest = sm_io_getc(channel, timeout)) != SM_IO_EOF) { gettimeofday(&ep, NULL); sm_io_ungetc(channel, SM_TIME_DEFAULT, eoftest); timersub(&ep, &bp, &tp); return &tp; } return NULL; } /* ** SMTP -- run the SMTP protocol. ** ** Parameters: ** nullserver -- if non-NULL, rejection message for ** (almost) all SMTP commands. ** d_flags -- daemon flags ** e -- the envelope. ** ** Returns: ** never. ** ** Side Effects: ** Reads commands from the input channel and processes them. */ /* ** Notice: The smtp server doesn't have a session context like the client ** side has (mci). Therefore some data (session oriented) is allocated ** or assigned to the "wrong" structure (esp. STARTTLS, AUTH). ** This should be fixed in a successor version. */ struct cmd { char *cmd_name; /* command name */ int cmd_code; /* internal code, see below */ }; /* values for cmd_code */ #define CMDERROR 0 /* bad command */ #define CMDMAIL 1 /* mail -- designate sender */ #define CMDRCPT 2 /* rcpt -- designate recipient */ #define CMDDATA 3 /* data -- send message text */ #define CMDRSET 4 /* rset -- reset state */ #define CMDVRFY 5 /* vrfy -- verify address */ #define CMDEXPN 6 /* expn -- expand address */ #define CMDNOOP 7 /* noop -- do nothing */ #define CMDQUIT 8 /* quit -- close connection and die */ #define CMDHELO 9 /* helo -- be polite */ #define CMDHELP 10 /* help -- give usage info */ #define CMDEHLO 11 /* ehlo -- extended helo (RFC 1425) */ #define CMDETRN 12 /* etrn -- flush queue */ #if SASL # define CMDAUTH 13 /* auth -- SASL authenticate */ #endif #if STARTTLS # define CMDSTLS 14 /* STARTTLS -- start TLS session */ #endif /* non-standard commands */ #define CMDVERB 17 /* verb -- go into verbose mode */ /* unimplemented commands from RFC 821 */ #define CMDUNIMPL 19 /* unimplemented rfc821 commands */ /* use this to catch and log "door handle" attempts on your system */ #define CMDLOGBOGUS 23 /* bogus command that should be logged */ /* debugging-only commands, only enabled if SMTPDEBUG is defined */ #define CMDDBGQSHOW 24 /* showq -- show send queue */ #define CMDDBGDEBUG 25 /* debug -- set debug mode */ /* ** Note: If you change this list, remember to update 'helpfile' */ static struct cmd CmdTab[] = { { "mail", CMDMAIL }, { "rcpt", CMDRCPT }, { "data", CMDDATA }, { "rset", CMDRSET }, { "vrfy", CMDVRFY }, { "expn", CMDEXPN }, { "help", CMDHELP }, { "noop", CMDNOOP }, { "quit", CMDQUIT }, { "helo", CMDHELO }, { "ehlo", CMDEHLO }, { "etrn", CMDETRN }, { "verb", CMDVERB }, { "send", CMDUNIMPL }, { "saml", CMDUNIMPL }, { "soml", CMDUNIMPL }, { "turn", CMDUNIMPL }, #if SASL { "auth", CMDAUTH, }, #endif #if STARTTLS { "starttls", CMDSTLS, }, #endif /* remaining commands are here only to trap and log attempts to use them */ { "showq", CMDDBGQSHOW }, { "debug", CMDDBGDEBUG }, { "wiz", CMDLOGBOGUS }, { NULL, CMDERROR } }; static char *CurSmtpClient; /* who's at the other end of channel */ #ifndef MAXBADCOMMANDS # define MAXBADCOMMANDS 25 /* maximum number of bad commands */ #endif #ifndef MAXHELOCOMMANDS # define MAXHELOCOMMANDS 3 /* max HELO/EHLO commands before slowdown */ #endif #ifndef MAXVRFYCOMMANDS # define MAXVRFYCOMMANDS 6 /* max VRFY/EXPN commands before slowdown */ #endif #ifndef MAXETRNCOMMANDS # define MAXETRNCOMMANDS 8 /* max ETRN commands before slowdown */ #endif #ifndef MAXTIMEOUT # define MAXTIMEOUT (4 * 60) /* max timeout for bad commands */ #endif /* ** Maximum shift value to compute timeout for bad commands. ** This introduces an upper limit of 2^MAXSHIFT for the timeout. */ #ifndef MAXSHIFT # define MAXSHIFT 8 #endif #if MAXSHIFT > 31 # error "MAXSHIFT > 31 is invalid" #endif #if MAXBADCOMMANDS > 0 # define STOP_IF_ATTACK(r) do \ { \ if ((r) == STOP_ATTACK) \ goto stopattack; \ } while (0) #else /* MAXBADCOMMANDS > 0 */ # define STOP_IF_ATTACK(r) r #endif /* MAXBADCOMMANDS > 0 */ #if SM_HEAP_CHECK static SM_DEBUG_T DebugLeakSmtp = SM_DEBUG_INITIALIZER("leak_smtp", "@(#)$Debug: leak_smtp - trace memory leaks during SMTP processing $"); #endif typedef struct { bool sm_gotmail; /* mail command received */ unsigned int sm_nrcpts; /* number of successful RCPT commands */ bool sm_discard; #if MILTER bool sm_milterize; bool sm_milterlist; /* any filters in the list? */ milters_T sm_milters; /* e_nrcpts from envelope before recipient() call */ unsigned int sm_e_nrcpts_orig; #endif /* MILTER */ char *sm_quarmsg; /* carry quarantining across messages */ } SMTP_T; static bool smtp_data __P((SMTP_T *, ENVELOPE *, bool)); #define MSG_TEMPFAIL "451 4.3.2 Please try again later" #if MILTER # define MILTER_ABORT(e) milter_abort((e)) # define MILTER_REPLY(str) \ { \ int savelogusrerrs = LogUsrErrs; \ \ milter_cmd_fail = true; \ switch (state) \ { \ case SMFIR_SHUTDOWN: \ if (MilterLogLevel > 3) \ { \ sm_syslog(LOG_INFO, e->e_id, \ "Milter: %s=%s, reject=421, errormode=4", \ str, addr); \ LogUsrErrs = false; \ } \ { \ bool tsave = QuickAbort; \ \ QuickAbort = false; \ usrerr("421 4.3.0 closing connection"); \ QuickAbort = tsave; \ e->e_sendqueue = NULL; \ goto doquit; \ } \ break; \ case SMFIR_REPLYCODE: \ if (MilterLogLevel > 3) \ { \ sm_syslog(LOG_INFO, e->e_id, \ "Milter: %s=%s, reject=%s", \ str, addr, response); \ LogUsrErrs = false; \ } \ if (strncmp(response, "421 ", 4) == 0 \ || strncmp(response, "421-", 4) == 0) \ { \ bool tsave = QuickAbort; \ \ QuickAbort = false; \ usrerr(response); \ QuickAbort = tsave; \ e->e_sendqueue = NULL; \ goto doquit; \ } \ else \ usrerr(response); \ break; \ \ case SMFIR_REJECT: \ if (MilterLogLevel > 3) \ { \ sm_syslog(LOG_INFO, e->e_id, \ "Milter: %s=%s, reject=550 5.7.1 Command rejected", \ str, addr); \ LogUsrErrs = false; \ } \ usrerr("550 5.7.1 Command rejected"); \ break; \ \ case SMFIR_DISCARD: \ if (MilterLogLevel > 3) \ sm_syslog(LOG_INFO, e->e_id, \ "Milter: %s=%s, discard", \ str, addr); \ e->e_flags |= EF_DISCARD; \ milter_cmd_fail = false; \ break; \ \ case SMFIR_TEMPFAIL: \ if (MilterLogLevel > 3) \ { \ sm_syslog(LOG_INFO, e->e_id, \ "Milter: %s=%s, reject=%s", \ str, addr, MSG_TEMPFAIL); \ LogUsrErrs = false; \ } \ usrerr(MSG_TEMPFAIL); \ break; \ default: \ milter_cmd_fail = false; \ break; \ } \ LogUsrErrs = savelogusrerrs; \ if (response != NULL) \ sm_free(response); /* XXX */ \ } #else /* MILTER */ # define MILTER_ABORT(e) #endif /* MILTER */ /* clear all SMTP state (for HELO/EHLO/RSET) */ #define CLEAR_STATE(cmd) \ do \ { \ /* abort milter filters */ \ MILTER_ABORT(e); \ \ if (smtp.sm_nrcpts > 0) \ { \ logundelrcpts(e, cmd, 10, false); \ smtp.sm_nrcpts = 0; \ macdefine(&e->e_macro, A_PERM, \ macid("{nrcpts}"), "0"); \ } \ \ e->e_sendqueue = NULL; \ e->e_flags |= EF_CLRQUEUE; \ \ if (tTd(92, 2)) \ sm_dprintf("CLEAR_STATE: e_id=%s, EF_LOGSENDER=%d, LogLevel=%d\n",\ e->e_id, bitset(EF_LOGSENDER, e->e_flags), LogLevel);\ if (LogLevel > 4 && bitset(EF_LOGSENDER, e->e_flags)) \ logsender(e, NULL); \ e->e_flags &= ~EF_LOGSENDER; \ \ /* clean up a bit */ \ smtp.sm_gotmail = false; \ SuprErrs = true; \ (void) dropenvelope(e, true, false); \ sm_rpool_free(e->e_rpool); \ e = newenvelope(e, CurEnv, sm_rpool_new_x(NULL)); \ CurEnv = e; \ e->e_features = features; \ \ /* put back discard bit */ \ if (smtp.sm_discard) \ e->e_flags |= EF_DISCARD; \ \ /* restore connection quarantining */ \ if (smtp.sm_quarmsg == NULL) \ { \ e->e_quarmsg = NULL; \ macdefine(&e->e_macro, A_PERM, \ macid("{quarantine}"), ""); \ } \ else \ { \ e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool, \ smtp.sm_quarmsg); \ macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), \ e->e_quarmsg); \ } \ } while (0) /* sleep to flatten out connection load */ #define MIN_DELAY_LOG 15 /* wait before logging this again */ /* is it worth setting the process title for 1s? */ #define DELAY_CONN(cmd) \ if (DelayLA > 0 && (CurrentLA = getla()) >= DelayLA) \ { \ time_t dnow; \ \ sm_setproctitle(true, e, \ "%s: %s: delaying %s: load average: %d", \ qid_printname(e), CurSmtpClient, \ cmd, DelayLA); \ if (LogLevel > 8 && (dnow = curtime()) > log_delay) \ { \ sm_syslog(LOG_INFO, e->e_id, \ "delaying=%s, load average=%d >= %d", \ cmd, CurrentLA, DelayLA); \ log_delay = dnow + MIN_DELAY_LOG; \ } \ (void) sleep(1); \ sm_setproctitle(true, e, "%s %s: %.80s", \ qid_printname(e), CurSmtpClient, inp); \ } /* ** Determine the correct protocol keyword to use in the ** Received: header, following RFC 3848. */ #if !STARTTLS # define tls_active false #endif #if SASL # define auth_active (authenticating == SASL_IS_AUTH) #else # define auth_active false #endif #if USE_EAI #define GET_PROTOCOL() \ (e->e_smtputf8 \ ? (auth_active \ ? (tls_active ? "UTF8SMTPSA" : "UTF8SMTPA") \ : (tls_active ? "UTF8SMTPS" : "UTF8SMTP")) \ : (auth_active \ ? (tls_active ? "ESMTPSA" : "ESMTPA") \ : (tls_active ? "ESMTPS" : "ESMTP"))) #else /* USE_EAI */ #define GET_PROTOCOL() \ (auth_active \ ? (tls_active ? "ESMTPSA" : "ESMTPA") \ : (tls_active ? "ESMTPS" : "ESMTP")) #endif /* USE_EAI */ #if _FFR_NOREFLECT # define SHOWCMDINREPLY(inp) (bitset(PRIV_NOREFLECTION, PrivacyFlags) ? \ "(suppressed)" : inp) # define SHOWSHRTCMDINREPLY(inp) (bitset(PRIV_NOREFLECTION, PrivacyFlags) ? \ "(suppressed)" : shortenstring(inp, MAXSHORTSTR)) #else # define SHOWCMDINREPLY(inp) inp # define SHOWSHRTCMDINREPLY(inp) shortenstring(inp, MAXSHORTSTR) #endif void smtp(nullserver, d_flags, e) char *volatile nullserver; BITMAP256 d_flags; register ENVELOPE *volatile e; { register char *volatile p; register struct cmd *volatile c = NULL; char *cmd; auto ADDRESS *vrfyqueue; ADDRESS *a; volatile bool gothello; /* helo command received */ bool vrfy; /* set if this is a vrfy command */ char *volatile protocol; /* sending protocol */ char *volatile sendinghost; /* sending hostname */ char *volatile peerhostname; /* name of SMTP peer or "localhost" */ auto char *delimptr; char *id; volatile unsigned int n_badcmds = 0; /* count of bad commands */ volatile unsigned int n_badrcpts = 0; /* number of rejected RCPT */ volatile unsigned int n_verifies = 0; /* count of VRFY/EXPN */ volatile unsigned int n_etrn = 0; /* count of ETRN */ volatile unsigned int n_noop = 0; /* count of NOOP/VERB/etc */ volatile unsigned int n_helo = 0; /* count of HELO/EHLO */ bool ok; volatile bool first; volatile bool tempfail = false; volatile time_t wt; /* timeout after too many commands */ volatile time_t previous; /* time after checksmtpattack() */ volatile bool lognullconnection = true; register char *q; SMTP_T smtp; char *addr; char *greetcode = "220"; const char *greetmsg = "not accepting messages"; char *hostname; /* my hostname ($j) */ QUEUE_CHAR *new; char *args[MAXSMTPARGS]; char inp[MAXINPLINE]; #if MAXINPLINE < MAXLINE # error "MAXINPLINE must NOT be less than MAXLINE" #endif char cmdbuf[MAXLINE]; #if SASL sasl_conn_t *conn; volatile bool sasl_ok; volatile unsigned int n_auth = 0; /* count of AUTH commands */ bool ismore; int result; volatile int authenticating; char *user; char *in, *out2; char auth_user[MAX_AUTH_USER_LEN], auth_user_tmp[MAX_AUTH_USER_LEN]; unsigned int auth_user_len; # if SASL >= 20000 char *auth_id = NULL; const char *out; sasl_ssf_t ext_ssf; char localip[60], remoteip[60]; # else /* SASL >= 20000 */ char *out; const char *errstr; sasl_external_properties_t ext_ssf; struct sockaddr_in saddr_l; struct sockaddr_in saddr_r; # endif /* SASL >= 20000 */ sasl_security_properties_t ssp; sasl_ssf_t *ssf; unsigned int inlen, out2len; unsigned int outlen; char *volatile auth_type; char *mechlist; volatile unsigned int n_mechs; unsigned int len; #endif /* SASL */ int r; #if STARTTLS int rfd, wfd; volatile bool tls_active = false; volatile bool smtps = bitnset(D_SMTPS, d_flags); bool gotostarttls = false; bool saveQuickAbort; bool saveSuprErrs; time_t tlsstart; int ssl_err, tlsret; int save_errno; extern int TLSsslidx; #endif /* STARTTLS */ volatile unsigned long features; #if PIPELINING && _FFR_NO_PIPE int np_log = 0; #endif volatile time_t log_delay = (time_t) 0; #if MILTER volatile bool milter_cmd_done, milter_cmd_safe; volatile bool milter_rcpt_added, milter_cmd_fail; ADDRESS addr_st; # define p_addr_st &addr_st #else /* MILTER */ # define p_addr_st NULL #endif /* MILTER */ size_t inplen; #if _FFR_BADRCPT_SHUTDOWN int n_badrcpts_adj; #endif bool gotodoquit = false; RESET_AUTH_FAIL_LOG_USER; smtp.sm_nrcpts = 0; #if MILTER smtp.sm_milterize = (nullserver == NULL); smtp.sm_milterlist = false; addr = NULL; #endif /* setup I/O fd correctly for the SMTP server */ setup_smtpd_io(); #if SM_HEAP_CHECK if (sm_debug_active(&DebugLeakSmtp, 1)) { sm_heap_newgroup(); sm_dprintf("smtp() heap group #%d\n", sm_heap_group()); } #endif /* SM_HEAP_CHECK */ /* XXX the rpool should be set when e is initialized in main() */ e->e_rpool = sm_rpool_new_x(NULL); e->e_macro.mac_rpool = e->e_rpool; settime(e); sm_getla(); peerhostname = RealHostName; if (peerhostname == NULL) peerhostname = "localhost"; CurHostName = peerhostname; CurSmtpClient = macvalue('_', e); if (CurSmtpClient == NULL) CurSmtpClient = CurHostName; /* check_relay may have set discard bit, save for later */ smtp.sm_discard = bitset(EF_DISCARD, e->e_flags); #if PIPELINING /* auto-flush output when reading input */ (void) sm_io_autoflush(InChannel, OutChannel); #endif sm_setproctitle(true, e, "server %s startup", CurSmtpClient); maps_reset_chged("server:smtp"); /* ** Set default features for server. ** ** Changing SRV_BARE_LF_421 | SRV_BARE_CR_421 below also ** requires changing srvfeatures() variant code. */ features = ((bitset(PRIV_NOETRN, PrivacyFlags) || bitnset(D_NOETRN, d_flags)) ? SRV_NONE : SRV_OFFER_ETRN) | (bitnset(D_AUTHREQ, d_flags) ? SRV_REQ_AUTH : SRV_NONE) | (bitset(PRIV_NOEXPN, PrivacyFlags) ? SRV_NONE : (SRV_OFFER_EXPN | (bitset(PRIV_NOVERB, PrivacyFlags) ? SRV_NONE : SRV_OFFER_VERB))) | ((bitset(PRIV_NORECEIPTS, PrivacyFlags) || !SendMIMEErrors) ? SRV_NONE : SRV_OFFER_DSN) #if SASL | (bitnset(D_NOAUTH, d_flags) ? SRV_NONE : SRV_OFFER_AUTH) | (bitset(SASL_SEC_NOPLAINTEXT, SASLOpts) ? SRV_REQ_SEC : SRV_NONE) #endif /* SASL */ #if PIPELINING | SRV_OFFER_PIPE #endif | SRV_BAD_PIPELINE #if STARTTLS | (bitnset(D_NOTLS, d_flags) ? SRV_NONE : SRV_OFFER_TLS) | (bitset(TLS_I_NO_VRFY, TLS_Srv_Opts) ? SRV_NONE : SRV_VRFY_CLT) #endif #if USE_EAI | (SMTP_UTF8 ? SRV_OFFER_EAI : 0) #endif | SRV_REQ_CRLF | SRV_BARE_LF_421 | SRV_BARE_CR_421 ; if (nullserver == NULL) { features = srvfeatures(e, CurSmtpClient, features); if (bitset(SRV_TMP_FAIL, features)) { if (LogLevel > 4) sm_syslog(LOG_ERR, NOQID, "ERROR: srv_features=tempfail, relay=%.100s, access temporarily disabled", CurSmtpClient); nullserver = "450 4.3.0 Please try again later."; } else { #if PIPELINING && _FFR_NO_PIPE if (bitset(SRV_NO_PIPE, features)) { /* for consistency */ features &= ~SRV_OFFER_PIPE; } #endif /* PIPELINING && _FFR_NO_PIPE */ #if SASL if (bitset(SRV_REQ_SEC, features)) SASLOpts |= SASL_SEC_NOPLAINTEXT; else SASLOpts &= ~SASL_SEC_NOPLAINTEXT; #endif /* SASL */ } } else if (strncmp(nullserver, "421 ", 4) == 0) { /* Can't use ("%s", ...) due to message() requirements */ message(nullserver); gotodoquit = true; goto cmdloop; } e->e_features = features; hostname = macvalue('j', e); #if SASL if (AuthRealm == NULL) AuthRealm = hostname; sasl_ok = bitset(SRV_OFFER_AUTH, features); n_mechs = 0; authenticating = SASL_NOT_AUTH; /* SASL server new connection */ if (sasl_ok) { # if SASL >= 20000 result = sasl_server_new("smtp", AuthRealm, NULL, NULL, NULL, NULL, 0, &conn); # elif SASL > 10505 /* use empty realm: only works in SASL > 1.5.5 */ result = sasl_server_new("smtp", AuthRealm, "", NULL, 0, &conn); # else /* SASL >= 20000 */ /* use no realm -> realm is set to hostname by SASL lib */ result = sasl_server_new("smtp", AuthRealm, NULL, NULL, 0, &conn); # endif /* SASL >= 20000 */ sasl_ok = result == SASL_OK; if (!sasl_ok) { if (LogLevel > 9) sm_syslog(LOG_WARNING, NOQID, "AUTH error: sasl_server_new failed=%d", result); } } if (sasl_ok) { /* ** SASL set properties for sasl ** set local/remote IP ** XXX Cyrus SASL v1 only supports IPv4 ** ** XXX where exactly are these used/required? ** Kerberos_v4 */ # if SASL >= 20000 localip[0] = remoteip[0] = '\0'; # if NETINET || NETINET6 in = macvalue(macid("{daemon_family}"), e); if (in != NULL && ( # if NETINET6 strcmp(in, "inet6") == 0 || # endif strcmp(in, "inet") == 0)) { SOCKADDR_LEN_T addrsize; SOCKADDR saddr_l; SOCKADDR saddr_r; addrsize = sizeof(saddr_r); if (getpeername(sm_io_getinfo(InChannel, SM_IO_WHAT_FD, NULL), (struct sockaddr *) &saddr_r, &addrsize) == 0) { if (iptostring(&saddr_r, addrsize, remoteip, sizeof(remoteip))) { sasl_setprop(conn, SASL_IPREMOTEPORT, remoteip); } addrsize = sizeof(saddr_l); if (getsockname(sm_io_getinfo(InChannel, SM_IO_WHAT_FD, NULL), (struct sockaddr *) &saddr_l, &addrsize) == 0) { if (iptostring(&saddr_l, addrsize, localip, sizeof(localip))) { sasl_setprop(conn, SASL_IPLOCALPORT, localip); } } } } # endif /* NETINET || NETINET6 */ # else /* SASL >= 20000 */ # if NETINET in = macvalue(macid("{daemon_family}"), e); if (in != NULL && strcmp(in, "inet") == 0) { SOCKADDR_LEN_T addrsize; addrsize = sizeof(struct sockaddr_in); if (getpeername(sm_io_getinfo(InChannel, SM_IO_WHAT_FD, NULL), (struct sockaddr *)&saddr_r, &addrsize) == 0) { sasl_setprop(conn, SASL_IP_REMOTE, &saddr_r); addrsize = sizeof(struct sockaddr_in); if (getsockname(sm_io_getinfo(InChannel, SM_IO_WHAT_FD, NULL), (struct sockaddr *)&saddr_l, &addrsize) == 0) sasl_setprop(conn, SASL_IP_LOCAL, &saddr_l); } } # endif /* NETINET */ # endif /* SASL >= 20000 */ auth_type = NULL; mechlist = NULL; user = NULL; # if 0 macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{auth_author}"), NULL); # endif /* set properties */ (void) memset(&ssp, '\0', sizeof(ssp)); /* XXX should these be options settable via .cf ? */ /* ssp.min_ssf = 0; is default due to memset() */ ssp.max_ssf = MaxSLBits; ssp.maxbufsize = MAXOUTLEN; ssp.security_flags = SASLOpts & SASL_SEC_MASK; sasl_ok = sasl_setprop(conn, SASL_SEC_PROPS, &ssp) == SASL_OK; if (sasl_ok) { /* ** external security strength factor; ** currently we have none so zero */ # if SASL >= 20000 ext_ssf = 0; auth_id = NULL; sasl_ok = ((sasl_setprop(conn, SASL_SSF_EXTERNAL, &ext_ssf) == SASL_OK) && (sasl_setprop(conn, SASL_AUTH_EXTERNAL, auth_id) == SASL_OK)); # else /* SASL >= 20000 */ ext_ssf.ssf = 0; ext_ssf.auth_id = NULL; sasl_ok = sasl_setprop(conn, SASL_SSF_EXTERNAL, &ext_ssf) == SASL_OK; # endif /* SASL >= 20000 */ } if (sasl_ok) n_mechs = saslmechs(conn, &mechlist); } #endif /* SASL */ (void) set_tls_rd_tmo(TimeOuts.to_nextcommand); #if MILTER if (smtp.sm_milterize) { char state; /* initialize mail filter connection */ smtp.sm_milterlist = milter_init(e, &state, &smtp.sm_milters); switch (state) { case SMFIR_REJECT: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: initialization failed, rejecting commands"); greetcode = "554"; nullserver = "Command rejected"; smtp.sm_milterize = false; break; case SMFIR_TEMPFAIL: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: initialization failed, temp failing commands"); tempfail = true; smtp.sm_milterize = false; break; case SMFIR_SHUTDOWN: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: initialization failed, closing connection"); tempfail = true; smtp.sm_milterize = false; message("421 4.7.0 %s closing connection", MyHostName); /* arrange to ignore send list */ e->e_sendqueue = NULL; lognullconnection = false; gotodoquit = true; goto cmdloop; } } if (smtp.sm_milterlist && smtp.sm_milterize && !bitset(EF_DISCARD, e->e_flags)) { char state; char *response; q = macvalue(macid("{client_name}"), e); SM_ASSERT(q != NULL || OpMode == MD_SMTP); if (q == NULL) q = "localhost"; response = milter_connect(q, RealHostAddr, e, &state); switch (state) { # if _FFR_MILTER_CONNECT_REPLYCODE case SMFIR_REPLYCODE: if (*response == '5') { if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: connect: host=%s, addr=%s, reject=%s", peerhostname, anynet_ntoa(&RealHostAddr), response); greetcode = "554"; /* Required by 2821 3.1 */ nullserver = newstr(response); if (strlen(nullserver) > 4) { int skip; greetmsg = nullserver + 4; /* skip over enhanced status code */ skip = isenhsc(greetmsg, ' '); if (skip > 0) greetmsg += skip + 1; } smtp.sm_milterize = false; break; } else if (strncmp(response, "421 ", 4) == 0) { int skip; const char *msg = response + 4; if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: connect: host=%s, addr=%s, shutdown=%s", peerhostname, anynet_ntoa(&RealHostAddr), response); tempfail = true; smtp.sm_milterize = false; /* skip over enhanced status code */ skip = isenhsc(msg, ' '); if (skip > 0) msg += skip + 1; message("421 %s %s", MyHostName, msg); /* arrange to ignore send list */ e->e_sendqueue = NULL; gotodoquit = true; goto cmdloop; } else { if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: connect: host=%s, addr=%s, temp failing commands=%s", peerhostname, anynet_ntoa(&RealHostAddr), response); /*tempfail = true;*/ smtp.sm_milterize = false; nullserver = newstr(response); break; } # else /* _FFR_MILTER_CONNECT_REPLYCODE */ case SMFIR_REPLYCODE: /* REPLYCODE shouldn't happen */ # endif /* _FFR_MILTER_CONNECT_REPLYCODE */ case SMFIR_REJECT: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: connect: host=%s, addr=%s, rejecting commands", peerhostname, anynet_ntoa(&RealHostAddr)); greetcode = "554"; nullserver = "Command rejected"; smtp.sm_milterize = false; break; case SMFIR_TEMPFAIL: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: connect: host=%s, addr=%s, temp failing commands", peerhostname, anynet_ntoa(&RealHostAddr)); tempfail = true; smtp.sm_milterize = false; break; case SMFIR_SHUTDOWN: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: connect: host=%s, addr=%s, shutdown", peerhostname, anynet_ntoa(&RealHostAddr)); tempfail = true; smtp.sm_milterize = false; message("421 4.7.0 %s closing connection", MyHostName); /* arrange to ignore send list */ e->e_sendqueue = NULL; gotodoquit = true; goto cmdloop; } if (response != NULL) sm_free(response); } #endif /* MILTER */ /* ** Broken proxies and SMTP slammers ** push data without waiting, catch them */ if ( #if STARTTLS !smtps && #endif *greetcode == '2' && nullserver == NULL) { time_t msecs = 0; char **pvp; char pvpbuf[PSBUFSIZE]; /* Ask the rulesets how long to pause */ pvp = NULL; r = rscap("greet_pause", peerhostname, anynet_ntoa(&RealHostAddr), e, &pvp, pvpbuf, sizeof(pvpbuf)); if (r == EX_OK && pvp != NULL && pvp[0] != NULL && (pvp[0][0] & 0377) == CANONNET && pvp[1] != NULL) { msecs = strtol(pvp[1], NULL, 10); } if (msecs > 0) { struct timeval *tp; /* total pause */ /* Obey RFC 2821: 4.5.3.2: 220 timeout of 5 minutes (300 seconds) */ if (msecs >= 300000) msecs = 300000; /* check if data is on the socket during the pause */ if ((tp = channel_readable(InChannel, msecs)) != NULL) { greetcode = "554"; nullserver = "Command rejected"; sm_syslog(LOG_INFO, e->e_id, "rejecting commands from %s [%s] due to pre-greeting traffic after %d seconds", peerhostname, anynet_ntoa(&RealHostAddr), (int) tp->tv_sec + (tp->tv_usec >= 500000 ? 1 : 0) ); } } } #if STARTTLS /* If this an smtps connection, start TLS now */ if (smtps) { if (!tls_ok_srv || srv_ctx == NULL) { sm_syslog(LOG_ERR, e->e_id, "smtps: TLS not available, exiting"); exit(EX_CONFIG); } Errors = 0; first = true; gothello = false; smtp.sm_gotmail = false; gotostarttls = true; goto cmdloop; } greeting: #endif /* STARTTLS */ /* output the first line, inserting "ESMTP" as second word */ if (*greetcode == '5') (void) sm_snprintf(inp, sizeof(inp), "%s %s", hostname, greetmsg); else expand(SmtpGreeting, inp, sizeof(inp), e); p = strchr(inp, '\n'); if (p != NULL) *p++ = '\0'; id = strchr(inp, ' '); if (id == NULL) id = &inp[strlen(inp)]; if (p == NULL) (void) sm_snprintf(cmdbuf, sizeof(cmdbuf), "%s %%.*s ESMTP%%s", greetcode); else (void) sm_snprintf(cmdbuf, sizeof(cmdbuf), "%s-%%.*s ESMTP%%s", greetcode); message(cmdbuf, (int) (id - inp), inp, id); /* output remaining lines */ while ((id = p) != NULL && (p = strchr(id, '\n')) != NULL) { *p++ = '\0'; if (SM_ISSPACE(*id)) id++; (void) sm_strlcpyn(cmdbuf, sizeof(cmdbuf), 2, greetcode, "-%s"); message(cmdbuf, id); } if (id != NULL) { if (SM_ISSPACE(*id)) id++; (void) sm_strlcpyn(cmdbuf, sizeof(cmdbuf), 2, greetcode, " %s"); message(cmdbuf, id); } protocol = NULL; sendinghost = macvalue('s', e); /* If quarantining by a connect/ehlo action, save between messages */ if (e->e_quarmsg == NULL) smtp.sm_quarmsg = NULL; else smtp.sm_quarmsg = newstr(e->e_quarmsg); /* sendinghost's storage must outlive the current envelope */ if (sendinghost != NULL) sendinghost = sm_strdup_x(sendinghost); first = true; gothello = false; smtp.sm_gotmail = false; for (;;) { cmdloop: SM_TRY { QuickAbort = false; HoldErrs = false; SuprErrs = false; LogUsrErrs = false; OnlyOneError = true; e->e_flags &= ~(EF_VRFYONLY|EF_GLOBALERRS); #if MILTER milter_cmd_fail = false; #endif /* setup for the read */ e->e_to = NULL; Errors = 0; FileName = NULL; (void) sm_io_flush(smioout, SM_TIME_DEFAULT); if (gotodoquit) { gotodoquit = false; goto doquit; } #if STARTTLS if (gotostarttls) { gotostarttls = false; goto starttls; } #endif /* read the input line */ SmtpPhase = "server cmd read"; sm_setproctitle(true, e, "server %s cmd read", CurSmtpClient); /* handle errors */ if (sm_io_error(OutChannel) || (p = sfgets(inp, sizeof(inp), InChannel, TimeOuts.to_nextcommand, SmtpPhase)) == NULL) { char *d; d = macvalue(macid("{daemon_name}"), e); if (d == NULL) d = "stdin"; /* end of file, just die */ disconnect(1, e); #if MILTER /* close out milter filters */ milter_quit(e); #endif message("421 4.4.1 %s Lost input channel from %s", MyHostName, CurSmtpClient); if (LogLevel > (smtp.sm_gotmail ? 1 : 19)) sm_syslog(LOG_NOTICE, e->e_id, "lost input channel from %s to %s after %s", CurSmtpClient, d, (c == NULL || c->cmd_name == NULL) ? "startup" : c->cmd_name); /* ** If have not accepted mail (DATA), do not bounce ** bad addresses back to sender. */ if (bitset(EF_CLRQUEUE, e->e_flags)) e->e_sendqueue = NULL; goto doquit; } /* also used by "proxy" check below */ inplen = strlen(inp); #if SASL /* ** SMTP AUTH requires accepting any length, ** at least for challenge/response. However, not imposing ** a limit is a bad idea (denial of service). */ if (authenticating != SASL_PROC_AUTH && sm_strncasecmp(inp, "AUTH ", 5) != 0 && inplen > MAXLINE) { message("421 4.7.0 %s Command too long, possible attack %s", MyHostName, CurSmtpClient); sm_syslog(LOG_INFO, e->e_id, "%s: SMTP violation, input too long: %lu", CurSmtpClient, (unsigned long) inplen); goto doquit; } #endif /* SASL */ if (first || bitset(SRV_NO_HTTP_CMD, features)) { size_t cmdlen; int idx; char *http_cmd; static char *http_cmds[] = { "GET", "POST", "CONNECT", "USER", NULL }; for (idx = 0; (http_cmd = http_cmds[idx]) != NULL; idx++) { cmdlen = strlen(http_cmd); if (cmdlen < inplen && sm_strncasecmp(inp, http_cmd, cmdlen) == 0 && SM_ISSPACE(inp[cmdlen])) { /* Open proxy, drop it */ message("421 4.7.0 %s %s %s", MyHostName, first ? "Rejecting open proxy" : "HTTP command", CurSmtpClient); sm_syslog(LOG_INFO, e->e_id, "%s: probable open proxy: command=%.40s", CurSmtpClient, inp); goto doquit; } } first = false; } /* clean up end of line */ fixcrlf(inp, true); #if PIPELINING && _FFR_NO_PIPE /* ** if there is more input and pipelining is disabled: ** delay ... (and maybe discard the input?) */ if (bitset(SRV_NO_PIPE, features) && sm_io_getinfo(InChannel, SM_IO_IS_READABLE, NULL) > 0) { if (++np_log < 3) sm_syslog(LOG_INFO, NOQID, "unauthorized PIPELINING, sleeping, relay=%.100s", CurSmtpClient); sleep(1); } #endif /* PIPELINING && _FFR_NO_PIPE */ #if SASL if (authenticating == SASL_PROC_AUTH) { # if 0 if (*inp == '\0') { authenticating = SASL_NOT_AUTH; message("501 5.5.2 missing input"); RESET_SASLCONN; continue; } # endif /* 0 */ if (*inp == '*' && *(inp + 1) == '\0') { authenticating = SASL_NOT_AUTH; /* RFC 2554 4. */ message("501 5.0.0 AUTH aborted"); RESET_SASLCONN; continue; } /* could this be shorter? XXX */ # if SASL >= 20000 in = xalloc(strlen(inp) + 1); result = sasl_decode64(inp, strlen(inp), in, strlen(inp), &inlen); # else /* SASL >= 20000 */ out = xalloc(strlen(inp)); result = sasl_decode64(inp, strlen(inp), out, &outlen); # endif /* SASL >= 20000 */ if (result != SASL_OK) { authenticating = SASL_NOT_AUTH; /* RFC 2554 4. */ message("501 5.5.4 cannot decode AUTH parameter %s", inp); # if SASL >= 20000 sm_free(in); # endif RESET_SASLCONN; continue; } # if SASL >= 20000 SET_AUTH_USER_TMP(in, inlen); result = sasl_server_step(conn, in, inlen, &out, &outlen); sm_free(in); # else /* SASL >= 20000 */ SET_AUTH_USER_TMP(out, outlen); result = sasl_server_step(conn, out, outlen, &out, &outlen, &errstr); # endif /* SASL >= 20000 */ /* get an OK if we're done */ if (result == SASL_OK) { authenticated: message("235 2.0.0 OK Authenticated"); authenticating = SASL_IS_AUTH; macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{auth_type}"), auth_type); # if SASL >= 20000 user = macvalue(macid("{auth_authen}"), e); /* get security strength (features) */ result = sasl_getprop(conn, SASL_SSF, (const void **) &ssf); # else /* SASL >= 20000 */ result = sasl_getprop(conn, SASL_USERNAME, (void **)&user); if (result != SASL_OK) { user = ""; macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{auth_authen}"), NULL); } else { macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{auth_authen}"), xtextify(user, "<>\")")); } # if 0 /* get realm? */ sasl_getprop(conn, SASL_REALM, (void **) &data); # endif /* get security strength (features) */ result = sasl_getprop(conn, SASL_SSF, (void **) &ssf); # endif /* SASL >= 20000 */ if (result != SASL_OK) { macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{auth_ssf}"), "0"); ssf = NULL; } else { char pbuf[8]; (void) sm_snprintf(pbuf, sizeof(pbuf), "%u", *ssf); macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{auth_ssf}"), pbuf); if (tTd(95, 8)) sm_dprintf("AUTH auth_ssf: %u\n", *ssf); } protocol = GET_PROTOCOL(); /* ** Only switch to encrypted connection ** if a security layer has been negotiated */ if (ssf != NULL && *ssf > 0) { int tmo; /* ** Convert I/O layer to use SASL. ** If the call fails, the connection ** is aborted. */ tmo = TimeOuts.to_datablock * 1000; if (sfdcsasl(&InChannel, &OutChannel, conn, tmo) == 0) { /* restart dialogue */ n_helo = 0; # if PIPELINING (void) sm_io_autoflush(InChannel, OutChannel); # endif /* PIPELINING */ } else syserr("503 5.3.3 SASL TLS failed"); } /* NULL pointer ok since it's our function */ if (LogLevel > 8) sm_syslog(LOG_INFO, NOQID, "AUTH=server, relay=%s, authid=%.128s, mech=%.16s, bits=%d", CurSmtpClient, shortenstring(user, 128), auth_type, *ssf); } else if (result == SASL_CONTINUE) { SET_AUTH_USER; len = ENC64LEN(outlen); out2 = xalloc(len); result = sasl_encode64(out, outlen, out2, len, &out2len); if (result != SASL_OK) { /* correct code? XXX */ /* 454 Temp. authentication failure */ message("454 4.5.4 Internal error: unable to encode64"); if (LogLevel > 5) sm_syslog(LOG_WARNING, e->e_id, "AUTH encode64 error [%d for \"%s\"], relay=%.100s", result, out, CurSmtpClient); /* start over? */ authenticating = SASL_NOT_AUTH; } else { message("334 %s", out2); if (tTd(95, 2)) sm_dprintf("AUTH continue: msg='%s' len=%u\n", out2, out2len); } # if SASL >= 20000 sm_free(out2); # endif } else { # if SASL >= 20000 # define SASLERR sasl_errdetail(conn) # else # define SASLERR errstr == NULL ? "" : errstr # endif #define LOGAUTHFAIL \ do \ { \ SET_AUTH_USER_CONDITIONALLY \ message("535 5.7.0 authentication failed"); \ if (LogLevel >= 9) \ sm_syslog(LOG_WARNING, e->e_id, \ "AUTH failure (%s): %s (%d) %s%s%.*s, relay=%.100s", \ (auth_type != NULL) ? auth_type : "unknown", \ sasl_errstring(result, NULL, NULL), \ result, \ SASLERR, \ LOG_AUTH_FAIL_USER, \ CurSmtpClient); \ RESET_SASLCONN; \ } while (0) LOGAUTHFAIL; authenticating = SASL_NOT_AUTH; } } else { /* don't want to do any of this if authenticating */ #endif /* SASL */ /* echo command to transcript */ if (e->e_xfp != NULL) (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "<<< %s\n", inp); if (LogLevel > 14) sm_syslog(LOG_INFO, e->e_id, "<-- %s", inp); /* break off command */ for (p = inp; SM_ISSPACE(*p); p++) continue; cmd = cmdbuf; while (*p != '\0' && !(SM_ISSPACE(*p)) && cmd < &cmdbuf[sizeof(cmdbuf) - 2]) *cmd++ = *p++; *cmd = '\0'; /* throw away leading whitespace */ SKIP_SPACE(p); /* decode command */ for (c = CmdTab; c->cmd_name != NULL; c++) { if (SM_STRCASEEQ(c->cmd_name, cmdbuf)) break; } /* reset errors */ errno = 0; /* check whether a "non-null" command has been used */ switch (c->cmd_code) { #if SASL case CMDAUTH: /* avoid information leak; take first two words? */ q = "AUTH"; break; #endif /* SASL */ case CMDMAIL: case CMDEXPN: case CMDVRFY: case CMDETRN: lognullconnection = false; /* FALLTHROUGH */ default: q = inp; break; } if (e->e_id == NULL) sm_setproctitle(true, e, "%s: %.80s", CurSmtpClient, q); else sm_setproctitle(true, e, "%s %s: %.80s", qid_printname(e), CurSmtpClient, q); /* ** Process command. ** ** If we are running as a null server, return 550 ** to almost everything. */ if (nullserver != NULL || bitnset(D_ETRNONLY, d_flags)) { switch (c->cmd_code) { case CMDQUIT: case CMDHELO: case CMDEHLO: case CMDNOOP: case CMDRSET: case CMDERROR: /* process normally */ break; case CMDETRN: if (bitnset(D_ETRNONLY, d_flags) && nullserver == NULL) break; DELAY_CONN("ETRN"); /* FALLTHROUGH */ default: #if MAXBADCOMMANDS > 0 /* theoretically this could overflow */ if (nullserver != NULL && ++n_badcmds > MAXBADCOMMANDS) { message("421 4.7.0 %s Too many bad commands; closing connection", MyHostName); /* arrange to ignore send list */ e->e_sendqueue = NULL; goto doquit; } #endif /* MAXBADCOMMANDS > 0 */ if (nullserver != NULL) { if (ISSMTPREPLY(nullserver)) { /* Can't use ("%s", ...) due to usrerr() requirements */ usrerr(nullserver); } else { usrerr("550 5.0.0 %s", nullserver); } } else usrerr("452 4.4.5 Insufficient disk space; try again later"); continue; } } switch (c->cmd_code) { #if SASL case CMDAUTH: /* sasl */ DELAY_CONN("AUTH"); if (!sasl_ok || n_mechs <= 0) { message("503 5.3.3 AUTH not available"); break; } if (auth_active) { message("503 5.5.0 Already Authenticated"); break; } if (smtp.sm_gotmail) { message("503 5.5.0 AUTH not permitted during a mail transaction"); break; } if (tempfail) { if (LogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "SMTP AUTH command (%.100s) from %s tempfailed (due to previous checks)", p, CurSmtpClient); usrerr("454 4.3.0 Please try again later"); break; } ismore = false; /* crude way to avoid crack attempts */ STOP_IF_ATTACK(checksmtpattack(&n_auth, n_mechs + 1, true, "AUTH", e)); /* make sure mechanism (p) is a valid string */ for (q = p; *q != '\0' && isascii(*q); q++) { if (isspace(*q)) { *q = '\0'; while (*++q != '\0' && SM_ISSPACE(*q)) continue; *(q - 1) = '\0'; ismore = (*q != '\0'); break; } } if (*p == '\0') { message("501 5.5.2 AUTH mechanism must be specified"); break; } /* check whether mechanism is available */ if (iteminlist(p, mechlist, " ") == NULL) { message("504 5.3.3 AUTH mechanism %.32s not available", p); break; } /* ** RFC 2554 4. ** Unlike a zero-length client answer to a ** 334 reply, a zero- length initial response ** is sent as a single equals sign ("="). */ if (ismore && *q == '=' && *(q + 1) == '\0') { /* will be free()d, don't use in=""; */ in = xalloc(1); *in = '\0'; inlen = 0; } else if (ismore) { /* could this be shorter? XXX */ # if SASL >= 20000 in = xalloc(strlen(q) + 1); result = sasl_decode64(q, strlen(q), in, strlen(q), &inlen); # else /* SASL >= 20000 */ in = sm_rpool_malloc(e->e_rpool, strlen(q)); result = sasl_decode64(q, strlen(q), in, &inlen); # endif /* SASL >= 20000 */ if (result != SASL_OK) { message("501 5.5.4 cannot BASE64 decode '%s'", q); if (LogLevel > 5) sm_syslog(LOG_WARNING, e->e_id, "AUTH decode64 error [%d for \"%s\"], relay=%.100s", result, q, CurSmtpClient); /* start over? */ authenticating = SASL_NOT_AUTH; # if SASL >= 20000 sm_free(in); # endif in = NULL; inlen = 0; break; } SET_AUTH_USER_TMP(in, inlen); } else { in = NULL; inlen = 0; } /* see if that auth type exists */ # if SASL >= 20000 result = sasl_server_start(conn, p, in, inlen, &out, &outlen); SM_FREE(in); # else /* SASL >= 20000 */ result = sasl_server_start(conn, p, in, inlen, &out, &outlen, &errstr); # endif /* SASL >= 20000 */ if (p != NULL) auth_type = newstr(p); if (result != SASL_OK && result != SASL_CONTINUE) { LOGAUTHFAIL; break; } if (result == SASL_OK) { /* ugly, but same code */ goto authenticated; /* authenticated by the initial response */ } SET_AUTH_USER; /* len is at least 2 */ len = ENC64LEN(outlen); out2 = xalloc(len); result = sasl_encode64(out, outlen, out2, len, &out2len); if (result != SASL_OK) { message("454 4.5.4 Temporary authentication failure"); if (LogLevel > 5) sm_syslog(LOG_WARNING, e->e_id, "AUTH encode64 error [%d for \"%s\"]", result, out); /* start over? */ authenticating = SASL_NOT_AUTH; RESET_SASLCONN; } else { message("334 %s", out2); authenticating = SASL_PROC_AUTH; } # if SASL >= 20000 sm_free(out2); # endif break; #endif /* SASL */ #if STARTTLS case CMDSTLS: /* starttls */ DELAY_CONN("STARTTLS"); if (*p != '\0') { message("501 5.5.2 Syntax error (no parameters allowed)"); break; } if (!bitset(SRV_OFFER_TLS, features)) { message("503 5.5.0 TLS not available"); break; } starttls: if (!tls_ok_srv) { message("454 4.3.3 TLS not available after start"); break; } if (smtp.sm_gotmail) { message("503 5.5.0 TLS not permitted during a mail transaction"); break; } if (tempfail) { if (LogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "SMTP STARTTLS command (%.100s) from %s tempfailed (due to previous checks)", p, CurSmtpClient); usrerr("454 4.7.0 Please try again later"); break; } if (!TLS_set_engine(SSLEngine, false)) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=server, engine=%s, TLS_set_engine=failed", SSLEngine); tls_ok_srv = false; message("454 4.3.3 TLS not available right now"); break; } # if TLS_NO_RSA /* ** XXX do we need a temp key ? */ # endif # if TLS_VRFY_PER_CTX /* ** Note: this sets the verification globally ** (per SSL_CTX) ** it's ok since it applies only to one transaction */ TLS_VERIFY_CLIENT(); # endif /* TLS_VRFY_PER_CTX */ #define SMTLSFAILED \ do { \ SM_SSL_FREE(srv_ssl); \ goto tls_done; \ } while (0) if (srv_ssl != NULL) SSL_clear(srv_ssl); else if ((srv_ssl = SSL_new(srv_ctx)) == NULL) { message("454 4.3.3 TLS not available: error generating SSL handle"); tlslogerr(LOG_WARNING, 8, "server"); goto tls_done; } # if DANE tlsi_ctx.tlsi_dvc.dane_vrfy_dane_enabled = false; tlsi_ctx.tlsi_dvc.dane_vrfy_chk = DANE_NEVER; # endif if (get_tls_se_features(e, srv_ssl, &tlsi_ctx, true) != EX_OK) { /* do not offer too much info to client */ message("454 4.3.3 TLS currently not available"); SMTLSFAILED; } r = SSL_set_ex_data(srv_ssl, TLSsslidx, &tlsi_ctx); if (0 == r) { if (LogLevel > 5) { sm_syslog(LOG_ERR, NOQID, "STARTTLS=server, error: SSL_set_ex_data failed=%d, TLSsslidx=%d", r, TLSsslidx); tlslogerr(LOG_WARNING, 9, "server"); } SMTLSFAILED; } # if !TLS_VRFY_PER_CTX /* ** this could be used if it were possible to set ** verification per SSL (connection) ** not just per SSL_CTX (global) */ TLS_VERIFY_CLIENT(); # endif /* !TLS_VRFY_PER_CTX */ rfd = sm_io_getinfo(InChannel, SM_IO_WHAT_FD, NULL); wfd = sm_io_getinfo(OutChannel, SM_IO_WHAT_FD, NULL); if (rfd < 0 || wfd < 0 || SSL_set_rfd(srv_ssl, rfd) <= 0 || SSL_set_wfd(srv_ssl, wfd) <= 0) { message("454 4.3.3 TLS not available: error set fd"); SMTLSFAILED; } if (!smtps) message("220 2.0.0 Ready to start TLS"); # if PIPELINING (void) sm_io_flush(OutChannel, SM_TIME_DEFAULT); # endif SSL_set_accept_state(srv_ssl); tlsstart = curtime(); ssl_err = SSL_ERROR_WANT_READ; save_errno = 0; do { tlsret = tls_retry(srv_ssl, rfd, wfd, tlsstart, TimeOuts.to_starttls, ssl_err, "server"); if (tlsret <= 0) { if (LogLevel > 5) { unsigned long l; const char *sr; l = ERR_peek_error(); sr = ERR_reason_error_string(l); sm_syslog(LOG_WARNING, NOQID, "STARTTLS=server, error: accept failed=%d, reason=%s, SSL_error=%d, errno=%d, retry=%d, relay=%.100s", r, sr == NULL ? "unknown" : sr, ssl_err, save_errno, tlsret, CurSmtpClient); tlslogerr(LOG_WARNING, 9, "server"); } tls_ok_srv = false; SM_SSL_FREE(srv_ssl); /* ** according to the next draft of ** RFC 2487 the connection should ** be dropped ** ** arrange to ignore any current ** send list */ e->e_sendqueue = NULL; goto doquit; } r = SSL_accept(srv_ssl); save_errno = 0; if (r <= 0) ssl_err = SSL_get_error(srv_ssl, r); } while (r <= 0); /* ignore return code for now, it's in {verify} */ (void) tls_get_info(srv_ssl, true, CurSmtpClient, &BlankEnvelope.e_macro, bitset(SRV_VRFY_CLT, features)); /* ** call Stls_client to find out whether ** to accept the connection from the client */ saveQuickAbort = QuickAbort; saveSuprErrs = SuprErrs; SuprErrs = true; QuickAbort = false; if (rscheck("tls_client", macvalue(macid("{verify}"), e), "STARTTLS", e, RSF_RMCOMM|RSF_COUNT, 5, NULL, NOQID, NULL, NULL) != EX_OK || Errors > 0) { extern char MsgBuf[]; if (MsgBuf[0] != '\0' && ISSMTPREPLY(MsgBuf)) nullserver = newstr(MsgBuf); else nullserver = "503 5.7.0 Authentication required."; } QuickAbort = saveQuickAbort; SuprErrs = saveSuprErrs; tls_ok_srv = false; /* don't offer STARTTLS again */ first = true; n_helo = 0; # if SASL if (sasl_ok) { int cipher_bits; bool verified; char *s, *v, *c; s = macvalue(macid("{cipher_bits}"), e); v = macvalue(macid("{verify}"), e); c = macvalue(macid("{cert_subject}"), e); verified = (v != NULL && strcmp(v, "OK") == 0); if (s != NULL && (cipher_bits = atoi(s)) > 0) { # if SASL >= 20000 ext_ssf = cipher_bits; auth_id = verified ? c : NULL; sasl_ok = ((sasl_setprop(conn, SASL_SSF_EXTERNAL, &ext_ssf) == SASL_OK) && (sasl_setprop(conn, SASL_AUTH_EXTERNAL, auth_id) == SASL_OK)); # else /* SASL >= 20000 */ ext_ssf.ssf = cipher_bits; ext_ssf.auth_id = verified ? c : NULL; sasl_ok = sasl_setprop(conn, SASL_SSF_EXTERNAL, &ext_ssf) == SASL_OK; # endif /* SASL >= 20000 */ mechlist = NULL; if (sasl_ok) n_mechs = saslmechs(conn, &mechlist); } } # endif /* SASL */ /* switch to secure connection */ if (sfdctls(&InChannel, &OutChannel, srv_ssl) == 0) { tls_active = true; # if PIPELINING (void) sm_io_autoflush(InChannel, OutChannel); # endif } else { /* ** XXX this is an internal error ** how to deal with it? ** we can't generate an error message ** since the other side switched to an ** encrypted layer, but we could not... ** just "hang up"? */ nullserver = "454 4.3.3 TLS not available: can't switch to encrypted layer"; syserr("STARTTLS: can't switch to encrypted layer"); } tls_done: if (smtps) { if (tls_active) goto greeting; else goto doquit; } break; #endif /* STARTTLS */ case CMDHELO: /* hello -- introduce yourself */ case CMDEHLO: /* extended hello */ DELAY_CONN("EHLO"); if (c->cmd_code == CMDEHLO) { protocol = GET_PROTOCOL(); SmtpPhase = "server EHLO"; } else { protocol = "SMTP"; SmtpPhase = "server HELO"; } /* avoid denial-of-service */ STOP_IF_ATTACK(checksmtpattack(&n_helo, MAXHELOCOMMANDS, true, "HELO/EHLO", e)); /* ** Despite the fact that the name indicates this ** a PIPELINE related feature, do not enclose ** it in #if PIPELINING so we can protect SMTP ** servers not compiled with PIPELINE support ** from transaction stuffing. */ /* check if data is on the socket before the EHLO reply */ if (bitset(SRV_BAD_PIPELINE, features) && sm_io_getinfo(InChannel, SM_IO_IS_READABLE, NULL) > 0) { sm_syslog(LOG_INFO, e->e_id, "rejecting %s from %s [%s] due to traffic before response", SmtpPhase, CurHostName, anynet_ntoa(&RealHostAddr)); usrerr("554 5.5.0 SMTP protocol error"); nullserver = "Command rejected"; #if MILTER smtp.sm_milterize = false; #endif break; } #if 0 /* RFC2821 4.1.4 allows duplicate HELO/EHLO */ /* check for duplicate HELO/EHLO per RFC 1651 4.2 */ if (gothello) { usrerr("503 %s Duplicate HELO/EHLO", MyHostName); break; } #endif /* 0 */ /* check for valid domain name (re 1123 5.2.5) */ if (*p == '\0' && !AllowBogusHELO) { usrerr("501 %s requires domain address", cmdbuf); break; } /* check for long domain name (hides Received: info) */ if (strlen(p) > MAXNAME) /* EAI:ok:EHLO name must be ASCII */ { usrerr("501 Invalid domain name"); if (LogLevel > 9) sm_syslog(LOG_INFO, CurEnv->e_id, "invalid domain name (too long) from %s", CurSmtpClient); break; } ok = true; for (q = p; *q != '\0'; q++) { if (!isascii(*q)) break; if (isalnum(*q)) continue; if (isspace(*q)) { *q = '\0'; /* only complain if strict check */ ok = AllowBogusHELO; /* allow trailing whitespace */ while (!ok && *++q != '\0' && isspace(*q)) ; if (*q == '\0') ok = true; break; } if (strchr("[].-_#:", *q) == NULL) break; } if (*q == '\0' && ok) { q = "pleased to meet you"; sendinghost = sm_strdup_x(p); } else if (!AllowBogusHELO) { usrerr("501 Invalid domain name"); if (LogLevel > 9) sm_syslog(LOG_INFO, CurEnv->e_id, "invalid domain name (%s) from %.100s", p, CurSmtpClient); break; } else { q = "accepting invalid domain name"; } if (gothello || smtp.sm_gotmail) CLEAR_STATE(cmdbuf); #if MILTER if (smtp.sm_milterlist && smtp.sm_milterize && !bitset(EF_DISCARD, e->e_flags)) { char state; char *response; response = milter_helo(p, e, &state); switch (state) { case SMFIR_REJECT: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: helo=%s, reject=Command rejected", p); nullserver = "Command rejected"; smtp.sm_milterize = false; break; case SMFIR_TEMPFAIL: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: helo=%s, reject=%s", p, MSG_TEMPFAIL); tempfail = true; smtp.sm_milterize = false; break; case SMFIR_REPLYCODE: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: helo=%s, reject=%s", p, response); if (strncmp(response, "421 ", 4) != 0 && strncmp(response, "421-", 4) != 0) { nullserver = newstr(response); smtp.sm_milterize = false; break; } /* FALLTHROUGH */ case SMFIR_SHUTDOWN: if (MilterLogLevel > 3 && response == NULL) sm_syslog(LOG_INFO, e->e_id, "Milter: helo=%s, reject=421 4.7.0 %s closing connection", p, MyHostName); tempfail = true; smtp.sm_milterize = false; if (response != NULL) { /* Can't use ("%s", ...) due to usrerr() requirements */ usrerr(response); } else { message("421 4.7.0 %s closing connection", MyHostName); } /* arrange to ignore send list */ e->e_sendqueue = NULL; lognullconnection = false; goto doquit; } if (response != NULL) sm_free(response); /* ** If quarantining by a connect/ehlo action, ** save between messages */ if (smtp.sm_quarmsg == NULL && e->e_quarmsg != NULL) smtp.sm_quarmsg = newstr(e->e_quarmsg); } #endif /* MILTER */ gothello = true; /* print HELO response message */ if (c->cmd_code != CMDEHLO) { message("250 %s Hello %s, %s", MyHostName, CurSmtpClient, q); break; } message("250-%s Hello %s, %s", MyHostName, CurSmtpClient, q); /* offer ENHSC even for nullserver */ if (nullserver != NULL) { message("250 ENHANCEDSTATUSCODES"); break; } /* ** print EHLO features list ** ** Note: If you change this list, ** remember to update 'helpfile' */ message("250-ENHANCEDSTATUSCODES"); #if PIPELINING if (bitset(SRV_OFFER_PIPE, features)) message("250-PIPELINING"); #endif if (bitset(SRV_OFFER_EXPN, features)) { message("250-EXPN"); if (bitset(SRV_OFFER_VERB, features)) message("250-VERB"); } #if MIME8TO7 message("250-8BITMIME"); #endif if (MaxMessageSize > 0) message("250-SIZE %ld", MaxMessageSize); else message("250-SIZE"); #if DSN if (SendMIMEErrors && bitset(SRV_OFFER_DSN, features)) message("250-DSN"); #endif #if USE_EAI if (bitset(SRV_OFFER_EAI, features)) message("250-SMTPUTF8"); #endif if (bitset(SRV_OFFER_ETRN, features)) message("250-ETRN"); #if SASL if (sasl_ok && mechlist != NULL && *mechlist != '\0') message("250-AUTH %s", mechlist); #endif #if STARTTLS if (tls_ok_srv && bitset(SRV_OFFER_TLS, features)) message("250-STARTTLS"); #endif if (DeliverByMin > 0) message("250-DELIVERBY %ld", (long) DeliverByMin); else if (DeliverByMin == 0) message("250-DELIVERBY"); /* < 0: no deliver-by */ message("250 HELP"); break; case CMDMAIL: /* mail -- designate sender */ SmtpPhase = "server MAIL"; DELAY_CONN("MAIL"); /* check for validity of this command */ if (!gothello && bitset(PRIV_NEEDMAILHELO, PrivacyFlags)) { usrerr("503 5.0.0 Polite people say HELO first"); break; } if (smtp.sm_gotmail) { usrerr("503 5.5.0 Sender already specified"); break; } #if SASL if (bitset(SRV_REQ_AUTH, features) && authenticating != SASL_IS_AUTH) { usrerr("530 5.7.0 Authentication required"); break; } #endif /* SASL */ p = skipword(p, "from"); if (p == NULL) break; maps_reset_chged("server:MAIL"); if (tempfail) { if (LogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "SMTP MAIL command (%.100s) from %s tempfailed (due to previous checks)", p, CurSmtpClient); /* Can't use ("%s", ...) due to usrerr() requirements */ usrerr(MSG_TEMPFAIL); break; } /* make sure we know who the sending host is */ if (sendinghost == NULL) sendinghost = peerhostname; #if SM_HEAP_CHECK if (sm_debug_active(&DebugLeakSmtp, 1)) { sm_heap_newgroup(); sm_dprintf("smtp() heap group #%d\n", sm_heap_group()); } #endif /* SM_HEAP_CHECK */ if (Errors > 0) goto undo_no_pm; if (!gothello) { auth_warning(e, "%s didn't use HELO protocol", CurSmtpClient); } #ifdef PICKY_HELO_CHECK if (sm_strcasecmp(sendinghost, peerhostname) != 0 && (sm_strcasecmp(peerhostname, "localhost") != 0 || sm_strcasecmp(sendinghost, MyHostName) != 0)) { auth_warning(e, "Host %s claimed to be %s", CurSmtpClient, sendinghost); } #endif /* PICKY_HELO_CHECK */ if (protocol == NULL) protocol = "SMTP"; macdefine(&e->e_macro, A_PERM, 'r', protocol); macdefine(&e->e_macro, A_PERM, 's', sendinghost); if (Errors > 0) goto undo_no_pm; smtp.sm_nrcpts = 0; n_badrcpts = 0; macdefine(&e->e_macro, A_PERM, macid("{ntries}"), "0"); macdefine(&e->e_macro, A_PERM, macid("{nrcpts}"), "0"); macdefine(&e->e_macro, A_PERM, macid("{nbadrcpts}"), "0"); e->e_flags |= EF_CLRQUEUE; sm_setproctitle(true, e, "%s %s: %.80s", qid_printname(e), CurSmtpClient, inp); /* do the processing */ SM_TRY { extern char *FullName; #if _FFR_8BITENVADDR char *origp; char iaddr[MAXLINE * 2]; int len; #else # define origp p #endif QuickAbort = true; SM_FREE(FullName); #if _FFR_8BITENVADDR len = sizeof(iaddr); origp = p; /* HACK!!!! p is more than the address! */ p = quote_internal_chars(p, iaddr, &len, NULL); #endif /* must parse sender first */ delimptr = NULL; setsender(p, e, &delimptr, ' ', false); if (delimptr != NULL && *delimptr != '\0') { *delimptr++ = '\0'; #if _FFR_8BITENVADDR len = sizeof(iaddr) - (delimptr - iaddr); (void) dequote_internal_chars(delimptr, delimptr, len); sep_args(delimptr, origp, e->e_id, p); #endif } if (Errors > 0) sm_exc_raisenew_x(&EtypeQuickAbort, 1); /* Successfully set e_from, allow logging */ e->e_flags |= EF_LOGSENDER; /* put resulting triple from parseaddr() into macros */ if (e->e_from.q_mailer != NULL) macdefine(&e->e_macro, A_PERM, macid("{mail_mailer}"), e->e_from.q_mailer->m_name); else macdefine(&e->e_macro, A_PERM, macid("{mail_mailer}"), NULL); if (e->e_from.q_host != NULL) macdefine(&e->e_macro, A_PERM, macid("{mail_host}"), e->e_from.q_host); else macdefine(&e->e_macro, A_PERM, macid("{mail_host}"), "localhost"); if (e->e_from.q_user != NULL) macdefine(&e->e_macro, A_PERM, macid("{mail_addr}"), e->e_from.q_user); else macdefine(&e->e_macro, A_PERM, macid("{mail_addr}"), NULL); if (Errors > 0) sm_exc_raisenew_x(&EtypeQuickAbort, 1); /* check for possible spoofing */ if (RealUid != 0 && OpMode == MD_SMTP && !wordinclass(RealUserName, 't') && (!bitnset(M_LOCALMAILER, e->e_from.q_mailer->m_flags) || strcmp(e->e_from.q_user, RealUserName) != 0)) { auth_warning(e, "%s owned process doing -bs", RealUserName); } /* reset to default value */ e->e_flags &= ~EF_7BITBODY; /* now parse ESMTP arguments */ e->e_msgsize = 0; addr = p; parse_esmtp_args(e, NULL, origp, delimptr, "MAIL", args, mail_esmtp_args); if (Errors > 0) sm_exc_raisenew_x(&EtypeQuickAbort, 1); #if USE_EAI if (e->e_smtputf8) { protocol = GET_PROTOCOL(); macdefine(&e->e_macro, A_PERM, 'r', protocol); } /* UTF8 addresses are only legal with SMTPUTF8 */ /* XXX different error if SMTPUTF8 is not enabled? */ CHECK_UTF8_ADDR(e->e_from.q_paddr, q); if (q != NULL) { usrerr(q); sm_exc_raisenew_x(&EtypeQuickAbort, 1); } #endif #if SASL # if _FFR_AUTH_PASSING /* set the default AUTH= if the sender didn't */ if (e->e_auth_param == NULL) { /* XXX only do this for an MSA? */ e->e_auth_param = macvalue(macid("{auth_authen}"), e); if (e->e_auth_param == NULL) e->e_auth_param = "<>"; /* ** XXX should we invoke Strust_auth now? ** authorizing as the client that just ** authenticated, so we'll trust implicitly */ } # endif /* _FFR_AUTH_PASSING */ #endif /* SASL */ /* do config file checking of the sender */ macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e s"); #if _FFR_MAIL_MACRO /* make the "real" sender address available */ macdefine(&e->e_macro, A_TEMP, macid("{mail_from}"), e->e_from.q_paddr); #endif if (rscheck("check_mail", addr, NULL, e, RSF_RMCOMM|RSF_COUNT, 3, NULL, e->e_id, NULL, NULL) != EX_OK || Errors > 0) sm_exc_raisenew_x(&EtypeQuickAbort, 1); macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); if (MaxMessageSize > 0 && (e->e_msgsize > MaxMessageSize || e->e_msgsize < 0)) { usrerr("552 5.2.3 Message size exceeds fixed maximum message size (%ld)", MaxMessageSize); sm_exc_raisenew_x(&EtypeQuickAbort, 1); } /* ** XXX always check whether there is at least one fs ** with enough space? ** However, this may not help much: the queue group ** selection may later on select a FS that hasn't ** enough space. */ if ((NumFileSys == 1 || NumQueue == 1) && !enoughdiskspace(e->e_msgsize, e) #if _FFR_ANY_FREE_FS && !filesys_free(e->e_msgsize) #endif ) { /* ** We perform this test again when the ** queue directory is selected, in collect. */ usrerr("452 4.4.5 Insufficient disk space; try again later"); sm_exc_raisenew_x(&EtypeQuickAbort, 1); } if (Errors > 0) sm_exc_raisenew_x(&EtypeQuickAbort, 1); LogUsrErrs = true; #if MILTER if (smtp.sm_milterlist && smtp.sm_milterize && !bitset(EF_DISCARD, e->e_flags)) { char state; char *response; response = milter_envfrom(args, e, &state); MILTER_REPLY("from"); } #endif /* MILTER */ if (Errors > 0) sm_exc_raisenew_x(&EtypeQuickAbort, 1); message("250 2.1.0 Sender ok"); smtp.sm_gotmail = true; } SM_EXCEPT(exc, "[!F]*") { /* ** An error occurred while processing a MAIL command. ** Jump to the common error handling code. */ sm_exc_free(exc); goto undo_no_pm; } SM_END_TRY break; undo_no_pm: e->e_flags &= ~EF_PM_NOTIFY; undo: break; case CMDRCPT: /* rcpt -- designate recipient */ DELAY_CONN("RCPT"); macdefine(&e->e_macro, A_PERM, macid("{rcpt_mailer}"), NULL); macdefine(&e->e_macro, A_PERM, macid("{rcpt_host}"), NULL); macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), NULL); #if MILTER (void) memset(&addr_st, '\0', sizeof(addr_st)); a = NULL; milter_rcpt_added = false; smtp.sm_e_nrcpts_orig = e->e_nrcpts; #endif #if _FFR_BADRCPT_SHUTDOWN /* ** hack to deal with hack, see below: ** n_badrcpts is increased if limit is reached. */ n_badrcpts_adj = (BadRcptThrottle > 0 && n_badrcpts > BadRcptThrottle && LogLevel > 5) ? n_badrcpts - 1 : n_badrcpts; if (BadRcptShutdown > 0 && n_badrcpts_adj >= BadRcptShutdown && (BadRcptShutdownGood == 0 || smtp.sm_nrcpts == 0 || (n_badrcpts_adj * 100 / (smtp.sm_nrcpts + n_badrcpts) >= BadRcptShutdownGood))) { if (LogLevel > 5) sm_syslog(LOG_INFO, e->e_id, "%s: Possible SMTP RCPT flood, shutting down connection.", CurSmtpClient); message("421 4.7.0 %s Too many bad recipients; closing connection", MyHostName); /* arrange to ignore any current send list */ e->e_sendqueue = NULL; goto doquit; } #endif /* _FFR_BADRCPT_SHUTDOWN */ if (BadRcptThrottle > 0 && n_badrcpts >= BadRcptThrottle) { if (LogLevel > 5 && n_badrcpts == BadRcptThrottle) { sm_syslog(LOG_INFO, e->e_id, "%s: Possible SMTP RCPT flood, throttling.", CurSmtpClient); /* To avoid duplicated message */ n_badrcpts++; } NBADRCPTS; /* ** Don't use exponential backoff for now. ** Some systems will open more connections ** and actually overload the receiver even ** more. */ (void) sleep(BadRcptThrottleDelay); } if (!smtp.sm_gotmail) { usrerr("503 5.0.0 Need MAIL before RCPT"); break; } SmtpPhase = "server RCPT"; SM_TRY { #if _FFR_8BITENVADDR char iaddr[MAXLINE * 2]; int len; char *origp; #endif QuickAbort = true; LogUsrErrs = true; /* limit flooding of our machine */ if (MaxRcptPerMsg > 0 && smtp.sm_nrcpts >= MaxRcptPerMsg) { /* sleep(1); / * slow down? */ usrerr("452 4.5.3 Too many recipients"); goto rcpt_done; } if (!SM_IS_INTERACTIVE(e->e_sendmode) #if _FFR_DM_ONE && (NotFirstDelivery || SM_DM_ONE != e->e_sendmode) #endif ) e->e_flags |= EF_VRFYONLY; #if MILTER /* ** Do not expand recipients at RCPT time (in the call ** to recipient()) if a milter can delete or reject ** a RCPT. If they are expanded, it is impossible ** for removefromlist() to figure out the expanded ** members of the original recipient and mark them ** as QS_DONTSEND. */ if (smtp.sm_milterlist && smtp.sm_milterize && !bitset(EF_DISCARD, e->e_flags) && (smtp.sm_milters.mis_flags & (MIS_FL_DEL_RCPT|MIS_FL_REJ_RCPT)) != 0) e->e_flags |= EF_VRFYONLY; milter_cmd_done = false; milter_cmd_safe = false; #endif /* MILTER */ p = skipword(p, "to"); if (p == NULL) goto rcpt_done; macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e r"); #if _FFR_8BITENVADDR len = sizeof(iaddr); origp = p; /* HACK!!!! p is more than the address! */ p = quote_internal_chars(p, iaddr, &len, NULL); #endif a = parseaddr(p, NULLADDR, RF_COPYALL, ' ', &delimptr, e, true); macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); if (Errors > 0) goto rcpt_done; if (a == NULL) { usrerr("501 5.0.0 Missing recipient"); goto rcpt_done; } #if USE_EAI CHECK_UTF8_ADDR(a->q_paddr, q); if (q != NULL) { usrerr(q); goto rcpt_done; } #endif if (delimptr != NULL && *delimptr != '\0') { *delimptr++ = '\0'; #if _FFR_8BITENVADDR len = sizeof(iaddr) - (delimptr - iaddr); (void) dequote_internal_chars(delimptr, delimptr, len); sep_args(delimptr, origp, e->e_id, p); #endif } /* put resulting triple from parseaddr() into macros */ if (a->q_mailer != NULL) macdefine(&e->e_macro, A_PERM, macid("{rcpt_mailer}"), a->q_mailer->m_name); else macdefine(&e->e_macro, A_PERM, macid("{rcpt_mailer}"), NULL); if (a->q_host != NULL) macdefine(&e->e_macro, A_PERM, macid("{rcpt_host}"), a->q_host); else macdefine(&e->e_macro, A_PERM, macid("{rcpt_host}"), "localhost"); if (a->q_user != NULL) macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), a->q_user); else macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), NULL); if (Errors > 0) goto rcpt_done; /* now parse ESMTP arguments */ addr = sm_rpool_strdup_x(e->e_rpool, p); parse_esmtp_args(e, a, origp, delimptr, "RCPT", args, rcpt_esmtp_args); if (Errors > 0) goto rcpt_done; #if MILTER /* ** rscheck() can trigger an "exception" ** in which case the execution continues at ** SM_EXCEPT(exc, "[!F]*") ** This means milter_cmd_safe is not set ** and hence milter is not invoked. ** Would it be "safe" to change that, i.e., use ** milter_cmd_safe = true; ** here so a milter is informed (if requested) ** about RCPTs that are rejected by check_rcpt? */ # if _FFR_MILTER_CHECK_REJECTIONS_TOO milter_cmd_safe = true; # endif #endif /* do config file checking of the recipient */ macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e r"); if (rscheck("check_rcpt", addr, NULL, e, RSF_RMCOMM|RSF_COUNT, 3, NULL, e->e_id, p_addr_st, NULL) != EX_OK || Errors > 0) goto rcpt_done; macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); /* If discarding, don't bother to verify user */ if (bitset(EF_DISCARD, e->e_flags)) a->q_state = QS_VERIFIED; #if MILTER milter_cmd_safe = true; #endif addbcc(a, e); rcptmods(a, e); /* save in recipient list after ESMTP mods */ a = recipient(a, &e->e_sendqueue, 0, e); /* may trigger exception... */ #if MILTER milter_rcpt_added = true; #endif if(!(Errors > 0) && QS_IS_BADADDR(a->q_state)) { /* punt -- should keep message in ADDRESS.... */ usrerr("550 5.1.1 Addressee unknown"); } #if MILTER rcpt_done: if (smtp.sm_milterlist && smtp.sm_milterize && !bitset(EF_DISCARD, e->e_flags)) { char state; char *response; /* how to get the error codes? */ if (Errors > 0) { macdefine(&e->e_macro, A_PERM, macid("{rcpt_mailer}"), "error"); if (a != NULL && a->q_status != NULL && a->q_rstatus != NULL) { macdefine(&e->e_macro, A_PERM, macid("{rcpt_host}"), a->q_status); macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), a->q_rstatus); } else { if (addr_st.q_host != NULL) macdefine(&e->e_macro, A_PERM, macid("{rcpt_host}"), addr_st.q_host); if (addr_st.q_user != NULL) macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), addr_st.q_user); } } response = milter_envrcpt(args, e, &state, Errors > 0); milter_cmd_done = true; MILTER_REPLY("to"); } #endif /* MILTER */ /* no errors during parsing, but might be a duplicate */ e->e_to = a->q_paddr; if (!(Errors > 0) && !QS_IS_BADADDR(a->q_state)) { if (smtp.sm_nrcpts == 0) initsys(e); message("250 2.1.5 Recipient ok%s", QS_IS_QUEUEUP(a->q_state) ? " (will queue)" : ""); smtp.sm_nrcpts++; } /* Is this needed? */ #if !MILTER rcpt_done: #endif macdefine(&e->e_macro, A_PERM, macid("{rcpt_mailer}"), NULL); macdefine(&e->e_macro, A_PERM, macid("{rcpt_host}"), NULL); macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), NULL); macdefine(&e->e_macro, A_PERM, macid("{dsn_notify}"), NULL); if (Errors > 0) { ++n_badrcpts; NBADRCPTS; } } SM_EXCEPT(exc, "[!F]*") { /* An exception occurred while processing RCPT */ e->e_flags &= ~(EF_FATALERRS|EF_PM_NOTIFY); ++n_badrcpts; NBADRCPTS; #if MILTER if (smtp.sm_milterlist && smtp.sm_milterize && !bitset(EF_DISCARD, e->e_flags) && !milter_cmd_done && milter_cmd_safe) { char state; char *response; macdefine(&e->e_macro, A_PERM, macid("{rcpt_mailer}"), "error"); /* how to get the error codes? */ if (addr_st.q_host != NULL) macdefine(&e->e_macro, A_PERM, macid("{rcpt_host}"), addr_st.q_host); else if (a != NULL && a->q_status != NULL) macdefine(&e->e_macro, A_PERM, macid("{rcpt_host}"), a->q_status); if (addr_st.q_user != NULL) macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), addr_st.q_user); else if (a != NULL && a->q_rstatus != NULL) macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), a->q_rstatus); response = milter_envrcpt(args, e, &state, true); milter_cmd_done = true; MILTER_REPLY("to"); macdefine(&e->e_macro, A_PERM, macid("{rcpt_mailer}"), NULL); macdefine(&e->e_macro, A_PERM, macid("{rcpt_host}"), NULL); macdefine(&e->e_macro, A_PERM, macid("{rcpt_addr}"), NULL); } if (smtp.sm_milterlist && smtp.sm_milterize && milter_rcpt_added && milter_cmd_done && milter_cmd_fail) { (void) removefromlist(addr, &e->e_sendqueue, e); milter_cmd_fail = false; if (smtp.sm_e_nrcpts_orig < e->e_nrcpts) e->e_nrcpts = smtp.sm_e_nrcpts_orig; } #endif /* MILTER */ } SM_END_TRY break; case CMDDATA: /* data -- text of mail */ DELAY_CONN("DATA"); if (!smtp_data(&smtp, e, bitset(SRV_BAD_PIPELINE, features))) goto doquit; break; case CMDRSET: /* rset -- reset state */ if (tTd(94, 100)) message("451 4.0.0 Test failure"); else message("250 2.0.0 Reset state"); CLEAR_STATE(cmdbuf); break; case CMDVRFY: /* vrfy -- verify address */ case CMDEXPN: /* expn -- expand address */ vrfy = c->cmd_code == CMDVRFY; DELAY_CONN(vrfy ? "VRFY" : "EXPN"); if (tempfail) { if (LogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "SMTP %s command (%.100s) from %s tempfailed (due to previous checks)", vrfy ? "VRFY" : "EXPN", p, CurSmtpClient); /* RFC 821 doesn't allow 4xy reply code */ usrerr("550 5.7.1 Please try again later"); break; } wt = checksmtpattack(&n_verifies, MAXVRFYCOMMANDS, false, vrfy ? "VRFY" : "EXPN", e); STOP_IF_ATTACK(wt); previous = curtime(); if ((vrfy && bitset(PRIV_NOVRFY, PrivacyFlags)) || (!vrfy && !bitset(SRV_OFFER_EXPN, features))) { if (vrfy) message("252 2.5.2 Cannot VRFY user; try RCPT to attempt delivery (or try finger)"); else message("502 5.7.0 Sorry, we do not allow this operation"); if (LogLevel > 5) sm_syslog(LOG_INFO, e->e_id, "%s: %s [rejected]", CurSmtpClient, shortenstring(inp, MAXSHORTSTR)); break; } else if (!gothello && bitset(vrfy ? PRIV_NEEDVRFYHELO : PRIV_NEEDEXPNHELO, PrivacyFlags)) { usrerr("503 5.0.0 I demand that you introduce yourself first"); break; } if (Errors > 0) break; if (LogLevel > 5) sm_syslog(LOG_INFO, e->e_id, "%s: %s", CurSmtpClient, shortenstring(inp, MAXSHORTSTR)); SM_TRY { QuickAbort = true; vrfyqueue = NULL; if (vrfy) e->e_flags |= EF_VRFYONLY; while (*p != '\0' && SM_ISSPACE(*p)) p++; if (*p == '\0') { usrerr("501 5.5.2 Argument required"); } else { /* do config file checking of the address */ if (rscheck(vrfy ? "check_vrfy" : "check_expn", p, NULL, e, RSF_RMCOMM, 3, NULL, NOQID, NULL, NULL) != EX_OK || Errors > 0) sm_exc_raisenew_x(&EtypeQuickAbort, 1); (void) sendtolist(p, NULLADDR, &vrfyqueue, 0, e); } if (wt > 0) { time_t t; t = wt - (curtime() - previous); if (t > 0) (void) sleep(t); } if (Errors > 0) sm_exc_raisenew_x(&EtypeQuickAbort, 1); if (vrfyqueue == NULL) { usrerr("554 5.5.2 Nothing to %s", vrfy ? "VRFY" : "EXPN"); } while (vrfyqueue != NULL) { if (!QS_IS_UNDELIVERED(vrfyqueue->q_state)) { vrfyqueue = vrfyqueue->q_next; continue; } /* see if there is more in the vrfy list */ a = vrfyqueue; while ((a = a->q_next) != NULL && (!QS_IS_UNDELIVERED(a->q_state))) continue; printvrfyaddr(vrfyqueue, a == NULL, vrfy); vrfyqueue = a; } } SM_EXCEPT(exc, "[!F]*") { /* ** An exception occurred while processing VRFY/EXPN */ sm_exc_free(exc); goto undo; } SM_END_TRY break; case CMDETRN: /* etrn -- force queue flush */ DELAY_CONN("ETRN"); /* Don't leak queue information via debug flags */ if (!bitset(SRV_OFFER_ETRN, features) || UseMSP || (RealUid != 0 && RealUid != TrustedUid && OpMode == MD_SMTP)) { /* different message for MSA ? */ message("502 5.7.0 Sorry, we do not allow this operation"); if (LogLevel > 5) sm_syslog(LOG_INFO, e->e_id, "%s: %s [rejected]", CurSmtpClient, shortenstring(inp, MAXSHORTSTR)); break; } if (tempfail) { if (LogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "SMTP ETRN command (%.100s) from %s tempfailed (due to previous checks)", p, CurSmtpClient); /* Can't use ("%s", ...) due to usrerr() requirements */ usrerr(MSG_TEMPFAIL); break; } if (strlen(p) <= 0) { usrerr("500 5.5.2 Parameter required"); break; } /* crude way to avoid denial-of-service attacks */ STOP_IF_ATTACK(checksmtpattack(&n_etrn, MAXETRNCOMMANDS, true, "ETRN", e)); /* ** Do config file checking of the parameter. ** Even though we have srv_features now, we still ** need this ruleset because the former is called ** when the connection has been established, while ** this ruleset is called when the command is ** actually issued and therefore has all information ** available to make a decision. */ if (rscheck("check_etrn", p, NULL, e, RSF_RMCOMM, 3, NULL, NOQID, NULL, NULL) != EX_OK || Errors > 0) break; if (LogLevel > 5) sm_syslog(LOG_INFO, e->e_id, "%s: ETRN %s", CurSmtpClient, shortenstring(p, MAXSHORTSTR)); id = p; if (*id == '#') { int i, qgrp; id++; qgrp = name2qid(id); if (!ISVALIDQGRP(qgrp)) { usrerr("459 4.5.4 Queue %s unknown", id); break; } for (i = 0; i < NumQueue && Queue[i] != NULL; i++) Queue[i]->qg_nextrun = (time_t) -1; Queue[qgrp]->qg_nextrun = 0; ok = run_work_group(Queue[qgrp]->qg_wgrp, RWG_FORK|RWG_FORCE); if (ok && Errors == 0) message("250 2.0.0 Queuing for queue group %s started", id); break; } if (*id == '@') id++; else *--id = '@'; new = (QUEUE_CHAR *) sm_malloc(sizeof(QUEUE_CHAR)); if (new == NULL) { syserr("500 5.5.0 ETRN out of memory"); break; } new->queue_match = id; new->queue_negate = false; new->queue_next = NULL; QueueLimitRecipient = new; ok = runqueue(true, false, false, true); sm_free(QueueLimitRecipient); /* XXX */ QueueLimitRecipient = NULL; if (ok && Errors == 0) message("250 2.0.0 Queuing for node %s started", p); break; case CMDHELP: /* help -- give user info */ DELAY_CONN("HELP"); help(p, e); break; #define CHECK_OTHER(type) do \ { \ bool saveQuickAbort = QuickAbort; \ extern char MsgBuf[]; \ int rsc; \ QuickAbort = false; \ if ((rsc = rscheck("check_other", inp, type, e, \ RSF_UNSTRUCTURED, 3, NULL, NOQID, NULL, NULL)) \ != EX_OK || \ Errors > 0) \ { \ if (strncmp(MsgBuf, "421 ", 4) == 0) \ { \ e->e_sendqueue = NULL; \ goto doquit; \ } \ } \ QuickAbort = saveQuickAbort; \ } while (0) case CMDNOOP: /* noop -- do nothing */ DELAY_CONN("NOOP"); STOP_IF_ATTACK(checksmtpattack(&n_noop, MaxNOOPCommands, true, "NOOP", e)); CHECK_OTHER("2"); message("250 2.0.0 OK"); break; case CMDQUIT: /* quit -- leave mail */ message("221 2.0.0 %s closing connection", MyHostName); #if PIPELINING (void) sm_io_flush(OutChannel, SM_TIME_DEFAULT); #endif if (smtp.sm_nrcpts > 0) logundelrcpts(e, "aborted by sender", 9, false); /* arrange to ignore any current send list */ e->e_sendqueue = NULL; #if STARTTLS /* shutdown TLS connection */ if (tls_active) { (void) endtls(&srv_ssl, "server"); tls_active = false; } #endif /* STARTTLS */ #if SASL if (auth_active) { sasl_dispose(&conn); authenticating = SASL_NOT_AUTH; /* XXX sasl_done(); this is a child */ } #endif /* SASL */ doquit: /* avoid future 050 messages */ disconnect(1, e); #if MILTER /* close out milter filters */ milter_quit(e); #endif if (tTd(92, 2)) sm_dprintf("QUIT: e_id=%s, EF_LOGSENDER=%d, LogLevel=%d\n", e->e_id, bitset(EF_LOGSENDER, e->e_flags), LogLevel); if (LogLevel > 4 && bitset(EF_LOGSENDER, e->e_flags)) logsender(e, NULL); e->e_flags &= ~EF_LOGSENDER; if (lognullconnection && LogLevel > 5 && nullserver == NULL) { char *d; d = macvalue(macid("{daemon_name}"), e); if (d == NULL) d = "stdin"; /* ** even though this id is "bogus", it makes ** it simpler to "grep" related events, e.g., ** timeouts for the same connection. */ sm_syslog(LOG_INFO, e->e_id, "%s did not issue MAIL/EXPN/VRFY/ETRN during connection to %s", CurSmtpClient, d); } if (tTd(93, 100)) { /* return to handle next connection */ #if SM_HEAP_CHECK # define SM_HC_TRIGGER "heapdump" if (sm_debug_active(&SmHeapCheck, 2) && access(SM_HC_TRIGGER, F_OK) == 0 ) { SM_FILE_T *out; remove(SM_HC_TRIGGER); out = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, SM_HC_TRIGGER ".heap", SM_IO_APPEND, NULL); if (out != NULL) { (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "----------------------\n"); sm_heap_report(out, sm_debug_level(&SmHeapCheck) - 1); (void) sm_io_close(out, SM_TIME_DEFAULT); } } #endif /* SM_HEAP_CHECK */ return; } finis(true, true, ExitStat); /* NOTREACHED */ /* just to avoid bogus warning from some compilers */ exit(EX_OSERR); case CMDVERB: /* set verbose mode */ DELAY_CONN("VERB"); if (!bitset(SRV_OFFER_EXPN, features) || !bitset(SRV_OFFER_VERB, features)) { /* this would give out the same info */ message("502 5.7.0 Verbose unavailable"); break; } STOP_IF_ATTACK(checksmtpattack(&n_noop, MaxNOOPCommands, true, "VERB", e)); CHECK_OTHER("2"); Verbose = 1; set_delivery_mode(SM_DELIVER, e); message("250 2.0.0 Verbose mode"); break; #if SMTPDEBUG case CMDDBGQSHOW: /* show queues */ CHECK_OTHER("2"); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Send Queue="); printaddr(smioout, e->e_sendqueue, true); break; case CMDDBGDEBUG: /* set debug mode */ CHECK_OTHER("2"); tTsetup(tTdvect, sizeof(tTdvect), "0-99.1"); tTflag(p); message("200 2.0.0 Debug set"); break; #else /* SMTPDEBUG */ case CMDDBGQSHOW: /* show queues */ case CMDDBGDEBUG: /* set debug mode */ #endif /* SMTPDEBUG */ case CMDLOGBOGUS: /* bogus command */ DELAY_CONN("Bogus"); if (LogLevel > 0) sm_syslog(LOG_CRIT, e->e_id, "\"%s\" command from %s (%.100s)", c->cmd_name, CurSmtpClient, anynet_ntoa(&RealHostAddr)); /* FALLTHROUGH */ case CMDERROR: /* unknown command */ #if MAXBADCOMMANDS > 0 if (++n_badcmds > MAXBADCOMMANDS) { stopattack: message("421 4.7.0 %s Too many bad commands; closing connection", MyHostName); /* arrange to ignore any current send list */ e->e_sendqueue = NULL; goto doquit; } #endif /* MAXBADCOMMANDS > 0 */ #if MILTER && SMFI_VERSION > 2 if (smtp.sm_milterlist && smtp.sm_milterize && !bitset(EF_DISCARD, e->e_flags)) { char state; char *response; if (MilterLogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "Sending \"%s\" to Milter", inp); response = milter_unknown(inp, e, &state); MILTER_REPLY("unknown"); if (state == SMFIR_REPLYCODE || state == SMFIR_REJECT || state == SMFIR_TEMPFAIL || state == SMFIR_SHUTDOWN) { /* MILTER_REPLY already gave an error */ break; } } #endif /* MILTER && SMFI_VERSION > 2 */ CHECK_OTHER("5"); usrerr("500 5.5.1 Command unrecognized: \"%s\"", SHOWSHRTCMDINREPLY(inp)); break; case CMDUNIMPL: DELAY_CONN("Unimpl"); CHECK_OTHER("5"); usrerr("502 5.5.1 Command not implemented: \"%s\"", SHOWSHRTCMDINREPLY(inp)); break; default: DELAY_CONN("default"); CHECK_OTHER("5"); errno = 0; syserr("500 5.5.0 smtp: unknown code %d", c->cmd_code); break; } #if SASL } #endif } SM_EXCEPT(exc, "[!F]*") { /* ** The only possible exception is "E:mta.quickabort". ** There is nothing to do except fall through and loop. */ } SM_END_TRY } } /* ** SMTP_DATA -- implement the SMTP DATA command. ** ** Parameters: ** smtp -- status of SMTP connection. ** e -- envelope. ** check_stuffing -- check for transaction stuffing. ** ** Returns: ** true iff SMTP session can continue. ** ** Side Effects: ** possibly sends message. */ static bool smtp_data(smtp, e, check_stuffing) SMTP_T *smtp; ENVELOPE *e; bool check_stuffing; { #if MILTER bool milteraccept; #endif bool aborting; bool doublequeue; bool rv = true; ADDRESS *a; ENVELOPE *ee; char *id; char *oldid; unsigned long features; char buf[32]; SmtpPhase = "server DATA"; if (!smtp->sm_gotmail) { usrerr("503 5.0.0 Need MAIL command"); return true; } else if (smtp->sm_nrcpts <= 0) { usrerr("503 5.0.0 Need RCPT (recipient)"); return true; } /* check if data is on the socket before the DATA reply */ if (check_stuffing && sm_io_getinfo(InChannel, SM_IO_IS_READABLE, NULL) > 0) { sm_syslog(LOG_INFO, e->e_id, "rejecting %s from %s [%s] due to traffic before response", SmtpPhase, CurHostName, anynet_ntoa(&RealHostAddr)); usrerr("554 5.5.0 SMTP protocol error"); return false; } (void) sm_snprintf(buf, sizeof(buf), "%u", smtp->sm_nrcpts); if (rscheck("check_data", buf, NULL, e, RSF_RMCOMM|RSF_UNSTRUCTURED|RSF_COUNT, 3, NULL, e->e_id, NULL, NULL) != EX_OK) return true; #if MILTER && SMFI_VERSION > 3 if (smtp->sm_milterlist && smtp->sm_milterize && !bitset(EF_DISCARD, e->e_flags)) { char state; char *response; int savelogusrerrs = LogUsrErrs; response = milter_data_cmd(e, &state); switch (state) { case SMFIR_REPLYCODE: if (MilterLogLevel > 3) { sm_syslog(LOG_INFO, e->e_id, "Milter: cmd=data, reject=%s", response); LogUsrErrs = false; } # if _FFR_MILTER_ENHSC if (ISSMTPCODE(response)) (void) extenhsc(response + 4, ' ', e->e_enhsc); # endif /* Can't use ("%s", ...) due to usrerr() requirements */ usrerr(response); if (strncmp(response, "421 ", 4) == 0 || strncmp(response, "421-", 4) == 0) { e->e_sendqueue = NULL; return false; } return true; case SMFIR_REJECT: if (MilterLogLevel > 3) { sm_syslog(LOG_INFO, e->e_id, "Milter: cmd=data, reject=550 5.7.1 Command rejected"); LogUsrErrs = false; } # if _FFR_MILTER_ENHSC (void) sm_strlcpy(e->e_enhsc, "5.7.1", sizeof(e->e_enhsc)); # endif usrerr("550 5.7.1 Command rejected"); return true; case SMFIR_DISCARD: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: cmd=data, discard"); e->e_flags |= EF_DISCARD; break; case SMFIR_TEMPFAIL: if (MilterLogLevel > 3) { sm_syslog(LOG_INFO, e->e_id, "Milter: cmd=data, reject=%s", MSG_TEMPFAIL); LogUsrErrs = false; } # if _FFR_MILTER_ENHSC (void) extenhsc(MSG_TEMPFAIL + 4, ' ', e->e_enhsc); # endif /* Can't use ("%s", ...) due to usrerr() requirements */ usrerr(MSG_TEMPFAIL); return true; case SMFIR_SHUTDOWN: if (MilterLogLevel > 3) { sm_syslog(LOG_INFO, e->e_id, "Milter: cmd=data, reject=421 4.7.0 %s closing connection", MyHostName); LogUsrErrs = false; } usrerr("421 4.7.0 %s closing connection", MyHostName); e->e_sendqueue = NULL; return false; } LogUsrErrs = savelogusrerrs; if (response != NULL) sm_free(response); /* XXX */ } #endif /* MILTER && SMFI_VERSION > 3 */ /* put back discard bit */ if (smtp->sm_discard) e->e_flags |= EF_DISCARD; /* check to see if we need to re-expand aliases */ /* also reset QS_BADADDR on already-diagnosted addrs */ doublequeue = false; for (a = e->e_sendqueue; a != NULL; a = a->q_next) { if (QS_IS_VERIFIED(a->q_state) && !bitset(EF_DISCARD, e->e_flags)) { /* need to re-expand aliases */ doublequeue = true; } if (QS_IS_BADADDR(a->q_state)) { /* make this "go away" */ a->q_state = QS_DONTSEND; } } /* collect the text of the message */ SmtpPhase = "collect"; buffer_errors(); collect(InChannel, SMTPMODE_LAX | (bitset(SRV_BARE_LF_421, e->e_features) ? SMTPMODE_LF_421 : 0) | (bitset(SRV_BARE_CR_421, e->e_features) ? SMTPMODE_CR_421 : 0) | (bitset(SRV_BARE_LF_SP, e->e_features) ? SMTPMODE_LF_SP : 0) | (bitset(SRV_BARE_CR_SP, e->e_features) ? SMTPMODE_CR_SP : 0) | (bitset(SRV_REQ_CRLF, e->e_features) ? SMTPMODE_CRLF : 0), NULL, e, true); /* redefine message size */ (void) sm_snprintf(buf, sizeof(buf), "%ld", PRT_NONNEGL(e->e_msgsize)); macdefine(&e->e_macro, A_TEMP, macid("{msg_size}"), buf); /* rscheck() will set Errors or EF_DISCARD if it trips */ (void) rscheck("check_eom", buf, NULL, e, RSF_UNSTRUCTURED|RSF_COUNT, 3, NULL, e->e_id, NULL, NULL); #if MILTER milteraccept = true; if (smtp->sm_milterlist && smtp->sm_milterize && Errors <= 0 && !bitset(EF_DISCARD, e->e_flags)) { char state; char *response; response = milter_data(e, &state); switch (state) { case SMFIR_REPLYCODE: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: data, reject=%s", response); milteraccept = false; # if _FFR_MILTER_ENHSC if (ISSMTPCODE(response)) (void) extenhsc(response + 4, ' ', e->e_enhsc); # endif /* Can't use ("%s", ...) due to usrerr() requirements */ usrerr(response); if (strncmp(response, "421 ", 4) == 0 || strncmp(response, "421-", 4) == 0) rv = false; break; case SMFIR_REJECT: milteraccept = false; if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: data, reject=554 5.7.1 Command rejected"); usrerr("554 5.7.1 Command rejected"); break; case SMFIR_DISCARD: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: data, discard"); milteraccept = false; e->e_flags |= EF_DISCARD; break; case SMFIR_TEMPFAIL: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: data, reject=%s", MSG_TEMPFAIL); milteraccept = false; # if _FFR_MILTER_ENHSC (void) extenhsc(MSG_TEMPFAIL + 4, ' ', e->e_enhsc); # endif /* Can't use ("%s", ...) due to usrerr() requirements */ usrerr(MSG_TEMPFAIL); break; case SMFIR_SHUTDOWN: if (MilterLogLevel > 3) sm_syslog(LOG_INFO, e->e_id, "Milter: data, reject=421 4.7.0 %s closing connection", MyHostName); milteraccept = false; usrerr("421 4.7.0 %s closing connection", MyHostName); rv = false; break; } if (response != NULL) sm_free(response); } /* Milter may have changed message size */ (void) sm_snprintf(buf, sizeof(buf), "%ld", PRT_NONNEGL(e->e_msgsize)); macdefine(&e->e_macro, A_TEMP, macid("{msg_size}"), buf); /* abort message filters that didn't get the body & log msg is OK */ if (smtp->sm_milterlist && smtp->sm_milterize) { milter_abort(e); if (milteraccept && MilterLogLevel > 9) sm_syslog(LOG_INFO, e->e_id, "Milter accept: message"); } /* ** If SuperSafe is SAFE_REALLY_POSTMILTER, and we don't have milter or ** milter accepted message, sync it now ** ** XXX This is almost a copy of the code in collect(): put it into ** a function that is called from both places? */ if (milteraccept && SuperSafe == SAFE_REALLY_POSTMILTER) { int afd; SM_FILE_T *volatile df; char *dfname; df = e->e_dfp; dfname = queuename(e, DATAFL_LETTER); if (sm_io_setinfo(df, SM_BF_COMMIT, NULL) < 0 && errno != EINVAL) { int save_errno; save_errno = errno; if (save_errno == EEXIST) { struct stat st; int dfd; if (stat(dfname, &st) < 0) st.st_size = -1; errno = EEXIST; syserr("@collect: bfcommit(%s): already on disk, size=%ld", dfname, (long) st.st_size); dfd = sm_io_getinfo(df, SM_IO_WHAT_FD, NULL); if (dfd >= 0) dumpfd(dfd, true, true); } errno = save_errno; dferror(df, "bfcommit", e); flush_errors(true); finis(save_errno != EEXIST, true, ExitStat); } else if ((afd = sm_io_getinfo(df, SM_IO_WHAT_FD, NULL)) < 0) { dferror(df, "sm_io_getinfo", e); flush_errors(true); finis(true, true, ExitStat); /* NOTREACHED */ } else if (fsync(afd) < 0) { dferror(df, "fsync", e); flush_errors(true); finis(true, true, ExitStat); /* NOTREACHED */ } else if (sm_io_close(df, SM_TIME_DEFAULT) < 0) { dferror(df, "sm_io_close", e); flush_errors(true); finis(true, true, ExitStat); /* NOTREACHED */ } /* Now reopen the df file */ e->e_dfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, dfname, SM_IO_RDONLY, NULL); if (e->e_dfp == NULL) { /* we haven't acked receipt yet, so just chuck this */ syserr("@Cannot reopen %s", dfname); finis(true, true, ExitStat); /* NOTREACHED */ } } #endif /* MILTER */ /* Check if quarantining stats should be updated */ if (e->e_quarmsg != NULL) markstats(e, NULL, STATS_QUARANTINE); /* ** If a header/body check (header checks or milter) ** set EF_DISCARD, don't queueup the message -- ** that would lose the EF_DISCARD bit and deliver ** the message. */ if (bitset(EF_DISCARD, e->e_flags)) doublequeue = false; aborting = Errors > 0; if (!(aborting || bitset(EF_DISCARD, e->e_flags)) && (QueueMode == QM_QUARANTINE || e->e_quarmsg == NULL) && !split_by_recipient(e)) aborting = bitset(EF_FATALERRS, e->e_flags); if (aborting) { ADDRESS *q; /* Log who the mail would have gone to */ logundelrcpts(e, e->e_message, 8, false); /* ** If something above refused the message, we still haven't ** accepted responsibility for it. Don't send DSNs. */ for (q = e->e_sendqueue; q != NULL; q = q->q_next) q->q_flags &= ~Q_PINGFLAGS; flush_errors(true); buffer_errors(); goto abortmessage; } /* from now on, we have to operate silently */ buffer_errors(); #if 0 /* ** Clear message, it may contain an error from the SMTP dialogue. ** This error must not show up in the queue. ** Some error message should show up, e.g., alias database ** not available, but others shouldn't, e.g., from check_rcpt. */ e->e_message = NULL; #endif /* 0 */ /* ** Arrange to send to everyone. ** If sending to multiple people, mail back ** errors rather than reporting directly. ** In any case, don't mail back errors for ** anything that has happened up to ** now (the other end will do this). ** Truncate our transcript -- the mail has gotten ** to us successfully, and if we have ** to mail this back, it will be easier ** on the reader. ** Then send to everyone. ** Finally give a reply code. If an error has ** already been given, don't mail a ** message back. ** We goose error returns by clearing error bit. */ SmtpPhase = "delivery"; (void) sm_io_setinfo(e->e_xfp, SM_BF_TRUNCATE, NULL); id = e->e_id; #if NAMED_BIND _res.retry = TimeOuts.res_retry[RES_TO_FIRST]; _res.retrans = TimeOuts.res_retrans[RES_TO_FIRST]; #endif #if _FFR_PROXY if (SM_PROXY_REQ == e->e_sendmode) { /* is proxy mode possible? */ if (e->e_sibling == NULL && e->e_nrcpts == 1 && smtp->sm_nrcpts == 1 && (a = e->e_sendqueue) != NULL && a->q_next == NULL) { a->q_flags &= ~(QPINGONFAILURE|QPINGONSUCCESS| QPINGONDELAY); e->e_errormode = EM_QUIET; e->e_sendmode = SM_PROXY; } else { if (tTd(87, 2)) { a = e->e_sendqueue; sm_dprintf("srv: mode=%c, e=%p, sibling=%p, nrcpts=%d, sm_nrcpts=%d, sendqueue=%p, next=%p\n", e->e_sendmode, e, e->e_sibling, e->e_nrcpts, smtp->sm_nrcpts, a, (a == NULL) ? (void *)0 : a->q_next); } /* switch to interactive mode */ e->e_sendmode = SM_DELIVER; if (LogLevel > 9) sm_syslog(LOG_DEBUG, e->e_id, "proxy mode requested but not possible"); } } #endif /* _FFR_PROXY */ #if _FFR_DMTRIGGER if (SM_TRIGGER == e->e_sendmode) doublequeue = true; #endif for (ee = e; ee != NULL; ee = ee->e_sibling) { /* make sure we actually do delivery */ ee->e_flags &= ~EF_CLRQUEUE; /* from now on, operate silently */ ee->e_errormode = EM_MAIL; if (doublequeue) { unsigned int qup_flags; qup_flags = QUP_FL_MSYNC; #if _FFR_DMTRIGGER if (IS_SM_TRIGGER(ee->e_sendmode)) qup_flags |= QUP_FL_UNLOCK; #endif /* make sure it is in the queue */ queueup(ee, qup_flags); } else { int mode; /* send to all recipients */ mode = SM_DEFAULT; #if _FFR_DM_ONE if (SM_DM_ONE == e->e_sendmode) { if (NotFirstDelivery) { mode = SM_QUEUE; e->e_sendmode = SM_QUEUE; } else { mode = SM_FORK; NotFirstDelivery = true; } } #endif /* _FFR_DM_ONE */ sendall(ee, mode); } ee->e_to = NULL; } /* put back id for SMTP logging in putoutmsg() */ oldid = CurEnv->e_id; CurEnv->e_id = id; #if _FFR_PROXY a = e->e_sendqueue; if (tTd(87, 1)) { sm_dprintf("srv: mode=%c, e=%p, sibling=%p, nrcpts=%d, msg=%s, sendqueue=%p, next=%p, state=%d, SmtpError=%s, rcode=%d, renhsc=%s, text=%s\n", e->e_sendmode, e, e->e_sibling, e->e_nrcpts, e->e_message, a, (a == NULL) ? (void *)0 : a->q_next, (a == NULL) ? -1 : a->q_state, SmtpError, e->e_rcode, e->e_renhsc, e->e_text); } if (SM_PROXY == e->e_sendmode && a->q_state != QS_SENT && a->q_state != QS_VERIFIED) /* discarded! */ { char *m, *errtext; char replycode[4]; char enhsc[10]; int offset; #define NN_MSG(e) (((e)->e_message != NULL) ? (e)->e_message : "") m = e->e_message; #define SM_MSG_DEFERRED "Deferred: " if (m != NULL && strncmp(SM_MSG_DEFERRED, m, sizeof(SM_MSG_DEFERRED) - 1) == 0) m += sizeof(SM_MSG_DEFERRED) - 1; offset = extsc(m, ' ', replycode, enhsc); if (tTd(87, 2)) { sm_dprintf("srv: SmtpError=%s, rcode=%d, renhsc=%s, replycode=%s, enhsc=%s, offset=%d\n", SmtpError, e->e_rcode, e->e_renhsc, replycode, enhsc, offset); } #define DIG2CHAR(d) ((d) + '0') if (e->e_rcode != 0 && (replycode[0] == '\0' || replycode[0] == DIG2CHAR(REPLYTYPE(e->e_rcode)))) { replycode[0] = DIG2CHAR(REPLYTYPE(e->e_rcode)); replycode[1] = DIG2CHAR(REPLYCLASS(e->e_rcode)); replycode[2] = DIG2CHAR(REPLYMINOR(e->e_rcode)); replycode[3] = '\0'; if (e->e_renhsc[0] == replycode[0]) sm_strlcpy(enhsc, e->e_renhsc, sizeof(enhsc)); if (offset < 0) offset = 0; } if (e->e_text != NULL) { (void) strreplnonprt(e->e_text, '_'); errtext = e->e_text; } else errtext = m + offset; if (replycode[0] != '\0' && enhsc[0] != '\0') emessage(replycode, enhsc, "%s", errtext); else if (replycode[0] != '\0') emessage(replycode, smtptodsn(atoi(replycode)), "%s", errtext); else if (QS_IS_TEMPFAIL(a->q_state)) { if (m != NULL) message("450 4.5.1 %s", m); else message("450 4.5.1 Temporary error"); } else { if (m != NULL) message("550 5.5.1 %s", m); else message("550 5.0.0 Permanent error"); } } else { #endif /* _FFR_PROXY */ /* issue success message */ #if _FFR_MSG_ACCEPT if (MessageAccept != NULL && *MessageAccept != '\0') { char msg[MAXLINE]; expand(MessageAccept, msg, sizeof(msg), e); message("250 2.0.0 %s", msg); } else #endif /* _FFR_MSG_ACCEPT */ /* "else" in #if code above */ message("250 2.0.0 %s Message accepted for delivery", id); #if _FFR_PROXY } #endif CurEnv->e_id = oldid; /* if we just queued, poke it */ if (doublequeue) { bool anything_to_send = false; sm_getla(); for (ee = e; ee != NULL; ee = ee->e_sibling) { #if _FFR_DMTRIGGER if (SM_TRIGGER == ee->e_sendmode) { sm_syslog(LOG_DEBUG, ee->e_id, "smtp: doublequeue, mode=%c", ee->e_sendmode); ee->e_sendmode = SM_DELIVER; /* close all the queue files */ /* almost the same as below */ closexscript(ee); SM_CLOSE_FP(ee->e_dfp); continue; } #endif /* _FFR_DMTRIGGER */ if (WILL_BE_QUEUED(ee->e_sendmode)) continue; if (shouldqueue(ee->e_msgpriority, ee->e_ctime)) { ee->e_sendmode = SM_QUEUE; continue; } else if (QueueMode != QM_QUARANTINE && ee->e_quarmsg != NULL) { ee->e_sendmode = SM_QUEUE; continue; } anything_to_send = true; /* close all the queue files */ closexscript(ee); SM_CLOSE_FP(ee->e_dfp); unlockqueue(ee); } if (anything_to_send) { #if PIPELINING /* ** XXX if we don't do this, we get 250 twice ** because it is also flushed in the child. */ (void) sm_io_flush(OutChannel, SM_TIME_DEFAULT); #endif /* PIPELINING */ #if _FFR_DMTRIGGER sm_syslog(LOG_DEBUG, e->e_id, "smtp: doublequeue=send"); #endif (void) doworklist(e, true, true); } } abortmessage: if (tTd(92, 2)) sm_dprintf("abortmessage: e_id=%s, EF_LOGSENDER=%d, LogLevel=%d\n", e->e_id, bitset(EF_LOGSENDER, e->e_flags), LogLevel); if (LogLevel > 4 && bitset(EF_LOGSENDER, e->e_flags)) logsender(e, NULL); e->e_flags &= ~EF_LOGSENDER; /* clean up a bit */ smtp->sm_gotmail = false; /* ** Call dropenvelope if and only if the envelope is *not* ** being processed by the child process forked by doworklist(). */ if (aborting || bitset(EF_DISCARD, e->e_flags)) (void) dropenvelope(e, true, false); else { for (ee = e; ee != NULL; ee = ee->e_sibling) { if (!doublequeue && QueueMode != QM_QUARANTINE && ee->e_quarmsg != NULL) { (void) dropenvelope(ee, true, false); continue; } if (WILL_BE_QUEUED(ee->e_sendmode)) (void) dropenvelope(ee, true, false); } } CurEnv = e; features = e->e_features; sm_rpool_free(e->e_rpool); newenvelope(e, e, sm_rpool_new_x(NULL)); e->e_flags = BlankEnvelope.e_flags; e->e_features = features; /* restore connection quarantining */ if (smtp->sm_quarmsg == NULL) { e->e_quarmsg = NULL; macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), ""); } else { e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool, smtp->sm_quarmsg); macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), e->e_quarmsg); } return rv; } /* ** LOGUNDELRCPTS -- log undelivered (or all) recipients. ** ** Parameters: ** e -- envelope. ** msg -- message for Stat= ** level -- log level. ** all -- log all recipients. ** ** Returns: ** none. ** ** Side Effects: ** logs undelivered (or all) recipients */ void logundelrcpts(e, msg, level, all) ENVELOPE *e; char *msg; int level; bool all; { ADDRESS *a; if (LogLevel <= level || msg == NULL || *msg == '\0') return; /* Clear $h so relay= doesn't get mislogged by logdelivery() */ macdefine(&e->e_macro, A_PERM, 'h', NULL); /* Log who the mail would have gone to */ for (a = e->e_sendqueue; a != NULL; a = a->q_next) { if (!QS_IS_UNDELIVERED(a->q_state) && !all) continue; e->e_to = a->q_paddr; logdelivery(NULL, NULL, #if _FFR_MILTER_ENHSC (a->q_status == NULL && e->e_enhsc[0] != '\0') ? e->e_enhsc : #endif /* not yet documented or tested */ #if _FFR_USE_E_STATUS (NULL == a->q_status) ? e->e_status : #endif a->q_status, msg, NULL, (time_t) 0, e, a, EX_OK /* ??? */); } e->e_to = NULL; } /* ** CHECKSMTPATTACK -- check for denial-of-service attack by repetition ** ** Parameters: ** pcounter -- pointer to a counter for this command. ** maxcount -- maximum value for this counter before we ** slow down. ** waitnow -- sleep now (in this routine)? ** cname -- command name for logging. ** e -- the current envelope. ** ** Returns: ** time to wait, ** STOP_ATTACK if twice as many commands as allowed and ** MaxChildren > 0. ** ** Side Effects: ** Slows down if we seem to be under attack. */ static time_t checksmtpattack(pcounter, maxcount, waitnow, cname, e) volatile unsigned int *pcounter; unsigned int maxcount; bool waitnow; char *cname; ENVELOPE *e; { if (maxcount <= 0) /* no limit */ return (time_t) 0; if (++(*pcounter) >= maxcount) { unsigned int shift; time_t s; if (*pcounter == maxcount && LogLevel > 5) { sm_syslog(LOG_INFO, e->e_id, "%s: possible SMTP attack: command=%.40s, count=%u", CurSmtpClient, cname, *pcounter); } shift = *pcounter - maxcount; s = 1 << shift; if (shift > MAXSHIFT || s >= MAXTIMEOUT || s <= 0) s = MAXTIMEOUT; #define IS_ATTACK(s) ((MaxChildren > 0 && *pcounter >= maxcount * 2) \ ? STOP_ATTACK : (time_t) s) /* sleep at least 1 second before returning */ (void) sleep(*pcounter / maxcount); s -= *pcounter / maxcount; if (s >= MAXTIMEOUT || s < 0) s = MAXTIMEOUT; if (waitnow && s > 0) { (void) sleep(s); return IS_ATTACK(0); } return IS_ATTACK(s); } return (time_t) 0; } /* ** SETUP_SMTPD_IO -- setup I/O fd correctly for the SMTP server ** ** Parameters: ** none. ** ** Returns: ** nothing. ** ** Side Effects: ** may change I/O fd. */ static void setup_smtpd_io() { int inchfd, outchfd, outfd; inchfd = sm_io_getinfo(InChannel, SM_IO_WHAT_FD, NULL); outchfd = sm_io_getinfo(OutChannel, SM_IO_WHAT_FD, NULL); outfd = sm_io_getinfo(smioout, SM_IO_WHAT_FD, NULL); if (outchfd != outfd) { /* arrange for debugging output to go to remote host */ (void) dup2(outchfd, outfd); } /* ** if InChannel and OutChannel are stdin/stdout ** and connected to ttys ** and fcntl(STDIN, F_SETFL, O_NONBLOCKING) also changes STDOUT, ** then "chain" them together. */ if (inchfd == STDIN_FILENO && outchfd == STDOUT_FILENO && isatty(inchfd) && isatty(outchfd)) { int inmode, outmode; inmode = fcntl(inchfd, F_GETFL, 0); if (inmode == -1) { if (LogLevel > 11) sm_syslog(LOG_INFO, NOQID, "fcntl(inchfd, F_GETFL) failed: %s", sm_errstring(errno)); return; } outmode = fcntl(outchfd, F_GETFL, 0); if (outmode == -1) { if (LogLevel > 11) sm_syslog(LOG_INFO, NOQID, "fcntl(outchfd, F_GETFL) failed: %s", sm_errstring(errno)); return; } if (bitset(O_NONBLOCK, inmode) || bitset(O_NONBLOCK, outmode) || fcntl(inchfd, F_SETFL, inmode | O_NONBLOCK) == -1) return; outmode = fcntl(outchfd, F_GETFL, 0); if (outmode != -1 && bitset(O_NONBLOCK, outmode)) { /* changing InChannel also changes OutChannel */ sm_io_automode(OutChannel, InChannel); if (tTd(97, 4) && LogLevel > 9) sm_syslog(LOG_INFO, NOQID, "set automode for I (%d)/O (%d) in SMTP server", inchfd, outchfd); } /* undo change of inchfd */ (void) fcntl(inchfd, F_SETFL, inmode); } } /* ** SKIPWORD -- skip a fixed word. ** ** Parameters: ** p -- place to start looking. ** w -- word to skip. ** ** Returns: ** p following w. ** NULL on error. ** ** Side Effects: ** clobbers the p data area. */ static char * skipword(p, w) register char *volatile p; char *w; { register char *q; char *firstp = p; /* find beginning of word */ SKIP_SPACE(p); q = p; /* find end of word */ while (*p != '\0' && *p != ':' && !(SM_ISSPACE(*p))) p++; while (SM_ISSPACE(*p)) *p++ = '\0'; if (*p != ':') { syntax: usrerr("501 5.5.2 Syntax error in parameters scanning \"%s\"", SHOWSHRTCMDINREPLY(firstp)); return NULL; } *p++ = '\0'; SKIP_SPACE(p); if (*p == '\0') goto syntax; /* see if the input word matches desired word */ if (sm_strcasecmp(q, w)) goto syntax; return p; } /* ** RESET_MAIL_ESMTP_ARGS -- reset ESMTP arguments for MAIL ** ** Parameters: ** e -- the envelope. ** ** Returns: ** none. */ void reset_mail_esmtp_args(e) ENVELOPE *e; { /* "size": no reset */ /* "body" */ e->e_flags &= ~EF_7BITBODY; e->e_bodytype = NULL; /* "envid" */ e->e_envid = NULL; macdefine(&e->e_macro, A_PERM, macid("{dsn_envid}"), NULL); /* "ret" */ e->e_flags &= ~(EF_RET_PARAM|EF_NO_BODY_RETN); macdefine(&e->e_macro, A_TEMP, macid("{dsn_ret}"), NULL); #if SASL /* "auth" */ macdefine(&e->e_macro, A_TEMP, macid("{auth_author}"), NULL); e->e_auth_param = ""; # if _FFR_AUTH_PASSING macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{auth_author}"), NULL); # endif #endif /* SASL */ /* "by" */ e->e_deliver_by = 0; e->e_dlvr_flag = 0; } /* ** MAIL_ESMTP_ARGS -- process ESMTP arguments from MAIL line ** ** Parameters: ** a -- address (unused, for compatibility with rcpt_esmtp_args) ** kp -- the parameter key. ** vp -- the value of that parameter. ** e -- the envelope. ** ** Returns: ** none. */ void mail_esmtp_args(a, kp, vp, e) ADDRESS *a; char *kp; char *vp; ENVELOPE *e; { if (SM_STRCASEEQ(kp, "size")) { if (vp == NULL) { usrerr("501 5.5.2 SIZE requires a value"); /* NOTREACHED */ } macdefine(&e->e_macro, A_TEMP, macid("{msg_size}"), vp); errno = 0; e->e_msgsize = strtol(vp, (char **) NULL, 10); if (e->e_msgsize == LONG_MAX && errno == ERANGE) { usrerr("552 5.2.3 Message size exceeds maximum value"); /* NOTREACHED */ } if (e->e_msgsize < 0) { usrerr("552 5.2.3 Message size invalid"); /* NOTREACHED */ } } else if (SM_STRCASEEQ(kp, "body")) { if (vp == NULL) { usrerr("501 5.5.2 BODY requires a value"); /* NOTREACHED */ } else if (SM_STRCASEEQ(vp, "8bitmime")) ; else if (SM_STRCASEEQ(vp, "7bit")) e->e_flags |= EF_7BITBODY; else { usrerr("501 5.5.4 Unknown BODY type %s", SHOWCMDINREPLY(vp)); /* NOTREACHED */ } e->e_bodytype = sm_rpool_strdup_x(e->e_rpool, vp); } else if (SM_STRCASEEQ(kp, "envid")) { if (!bitset(SRV_OFFER_DSN, e->e_features)) { usrerr("504 5.7.0 Sorry, ENVID not supported, we do not allow DSN"); /* NOTREACHED */ } if (vp == NULL) { usrerr("501 5.5.2 ENVID requires a value"); /* NOTREACHED */ } if (!xtextok(vp)) { usrerr("501 5.5.4 Syntax error in ENVID parameter value"); /* NOTREACHED */ } if (e->e_envid != NULL) { usrerr("501 5.5.0 Duplicate ENVID parameter"); /* NOTREACHED */ } e->e_envid = sm_rpool_strdup_x(e->e_rpool, vp); macdefine(&e->e_macro, A_PERM, macid("{dsn_envid}"), e->e_envid); } else if (SM_STRCASEEQ(kp, "ret")) { if (!bitset(SRV_OFFER_DSN, e->e_features)) { usrerr("504 5.7.0 Sorry, RET not supported, we do not allow DSN"); /* NOTREACHED */ } if (vp == NULL) { usrerr("501 5.5.2 RET requires a value"); /* NOTREACHED */ } if (bitset(EF_RET_PARAM, e->e_flags)) { usrerr("501 5.5.0 Duplicate RET parameter"); /* NOTREACHED */ } e->e_flags |= EF_RET_PARAM; if (SM_STRCASEEQ(vp, "hdrs")) e->e_flags |= EF_NO_BODY_RETN; else if (sm_strcasecmp(vp, "full") != 0) { usrerr("501 5.5.2 Bad argument \"%s\" to RET", SHOWCMDINREPLY(vp)); /* NOTREACHED */ } macdefine(&e->e_macro, A_TEMP, macid("{dsn_ret}"), vp); } #if SASL else if (SM_STRCASEEQ(kp, "auth")) { int len; char *q; char *auth_param; /* the value of the AUTH=x */ bool saveQuickAbort = QuickAbort; bool saveSuprErrs = SuprErrs; bool saveExitStat = ExitStat; if (vp == NULL) { usrerr("501 5.5.2 AUTH= requires a value"); /* NOTREACHED */ } if (e->e_auth_param != NULL) { usrerr("501 5.5.0 Duplicate AUTH parameter"); /* NOTREACHED */ } if ((q = strchr(vp, ' ')) != NULL) len = q - vp + 1; else len = strlen(vp) + 1; auth_param = xalloc(len); (void) sm_strlcpy(auth_param, vp, len); if (!xtextok(auth_param)) { usrerr("501 5.5.4 Syntax error in AUTH parameter value"); /* just a warning? */ /* NOTREACHED */ } /* XXX define this always or only if trusted? */ macdefine(&e->e_macro, A_TEMP, macid("{auth_author}"), auth_param); /* ** call Strust_auth to find out whether ** auth_param is acceptable (trusted) ** we shouldn't trust it if not authenticated ** (required by RFC, leave it to ruleset?) */ SuprErrs = true; QuickAbort = false; if (strcmp(auth_param, "<>") != 0 && (rscheck("trust_auth", auth_param, NULL, e, RSF_RMCOMM, 9, NULL, NOQID, NULL, NULL) != EX_OK || Errors > 0)) { if (tTd(95, 8)) { q = e->e_auth_param; sm_dprintf("auth=\"%.100s\" not trusted user=\"%.100s\"\n", auth_param, (q == NULL) ? "" : q); } /* not trusted */ e->e_auth_param = "<>"; # if _FFR_AUTH_PASSING macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{auth_author}"), NULL); # endif } else { if (tTd(95, 8)) sm_dprintf("auth=\"%.100s\" trusted\n", auth_param); e->e_auth_param = sm_rpool_strdup_x(e->e_rpool, auth_param); } sm_free(auth_param); /* XXX */ /* reset values */ Errors = 0; QuickAbort = saveQuickAbort; SuprErrs = saveSuprErrs; ExitStat = saveExitStat; } #endif /* SASL */ #define PRTCHAR(c) ((isascii(c) && isprint(c)) ? (c) : '?') /* ** "by" is only accepted if DeliverByMin >= 0. ** We maybe could add this to the list of server_features. */ else if (SM_STRCASEEQ(kp, "by") && DeliverByMin >= 0) { char *s; if (vp == NULL) { usrerr("501 5.5.2 BY= requires a value"); /* NOTREACHED */ } errno = 0; e->e_deliver_by = strtol(vp, &s, 10); if (e->e_deliver_by == LONG_MIN || e->e_deliver_by == LONG_MAX || e->e_deliver_by > 999999999l || e->e_deliver_by < -999999999l) { usrerr("501 5.5.2 BY=%s out of range", SHOWCMDINREPLY(vp)); /* NOTREACHED */ } if (s == NULL || *s != ';') { usrerr("501 5.5.2 BY= missing ';'"); /* NOTREACHED */ } e->e_dlvr_flag = 0; ++s; /* XXX: spaces allowed? */ SKIP_SPACE(s); switch (tolower(*s)) { case 'n': e->e_dlvr_flag = DLVR_NOTIFY; break; case 'r': e->e_dlvr_flag = DLVR_RETURN; if (e->e_deliver_by <= 0) { usrerr("501 5.5.4 mode R requires BY time > 0"); /* NOTREACHED */ } if (DeliverByMin > 0 && e->e_deliver_by > 0 && e->e_deliver_by < DeliverByMin) { usrerr("555 5.5.2 time %ld less than %ld", e->e_deliver_by, (long) DeliverByMin); /* NOTREACHED */ } break; default: usrerr("501 5.5.2 illegal by-mode '%c'", PRTCHAR(*s)); /* NOTREACHED */ } ++s; /* XXX: spaces allowed? */ SKIP_SPACE(s); switch (tolower(*s)) { case 't': e->e_dlvr_flag |= DLVR_TRACE; break; case '\0': break; default: usrerr("501 5.5.2 illegal by-trace '%c'", PRTCHAR(*s)); /* NOTREACHED */ } /* XXX: check whether more characters follow? */ } #if USE_EAI else if (SM_STRCASEEQ(kp, "smtputf8")) { if (!bitset(SRV_OFFER_EAI, e->e_features)) { usrerr("504 5.7.0 Sorry, SMTPUTF8 not supported"); /* NOTREACHED */ } e->e_smtputf8 = true; } #endif else { usrerr("555 5.5.4 %s parameter unrecognized", SHOWCMDINREPLY(kp)); /* NOTREACHED */ } } /* ** RCPT_ESMTP_ARGS -- process ESMTP arguments from RCPT line ** ** Parameters: ** a -- the address corresponding to the To: parameter. ** kp -- the parameter key. ** vp -- the value of that parameter. ** e -- the envelope. ** ** Returns: ** none. */ void rcpt_esmtp_args(a, kp, vp, e) ADDRESS *a; char *kp; char *vp; ENVELOPE *e; { if (SM_STRCASEEQ(kp, "notify")) { char *p; if (!bitset(SRV_OFFER_DSN, e->e_features)) { usrerr("504 5.7.0 Sorry, NOTIFY not supported, we do not allow DSN"); /* NOTREACHED */ } if (vp == NULL) { usrerr("501 5.5.2 NOTIFY requires a value"); /* NOTREACHED */ } a->q_flags &= ~(QPINGONSUCCESS|QPINGONFAILURE|QPINGONDELAY); a->q_flags |= QHASNOTIFY; macdefine(&e->e_macro, A_TEMP, macid("{dsn_notify}"), vp); if (SM_STRCASEEQ(vp, "never")) return; for (p = vp; p != NULL; vp = p) { char *s; s = p = strchr(p, ','); if (p != NULL) *p++ = '\0'; if (SM_STRCASEEQ(vp, "success")) a->q_flags |= QPINGONSUCCESS; else if (SM_STRCASEEQ(vp, "failure")) a->q_flags |= QPINGONFAILURE; else if (SM_STRCASEEQ(vp, "delay")) a->q_flags |= QPINGONDELAY; else { usrerr("501 5.5.4 Bad argument \"%s\" to NOTIFY", SHOWCMDINREPLY(vp)); /* NOTREACHED */ } if (s != NULL) *s = ','; } } else if (SM_STRCASEEQ(kp, "orcpt")) { char *p; if (!bitset(SRV_OFFER_DSN, e->e_features)) { usrerr("504 5.7.0 Sorry, ORCPT not supported, we do not allow DSN"); /* NOTREACHED */ } if (vp == NULL) { usrerr("501 5.5.2 ORCPT requires a value"); /* NOTREACHED */ } if (a->q_orcpt != NULL) { usrerr("501 5.5.0 Duplicate ORCPT parameter"); /* NOTREACHED */ } p = strchr(vp, ';'); if (p == NULL) { usrerr("501 5.5.4 Syntax error in ORCPT parameter value"); /* NOTREACHED */ } *p = '\0'; #if USE_EAI if (SM_STRCASEEQ(vp, "utf-8")) { /* XXX check syntax of p+1 ! */ if (!xtextok(p + 1) && uxtext_unquote(p + 1, NULL, MAXNAME_I) <= 0) { *p = ';'; usrerr("501 5.5.4 Syntax error in UTF-8 ORCPT parameter value"); /* NOTREACHED */ } # if 0 complicated... see grammar! RFC 6533 Internationalized Delivery Status and Disposition Notifications utf-8-enc-addr = utf-8-addr-xtext / utf-8-addr-unitext / utf-8-address # endif } else #endif /* USE_EAI */ /* "else" in #if code above */ if (!isatom(vp) || !xtextok(p + 1)) { *p = ';'; usrerr("501 5.5.4 Syntax error in ORCPT parameter value"); /* NOTREACHED */ } *p = ';'; a->q_orcpt = sm_rpool_strdup_x(e->e_rpool, vp); } else { usrerr("555 5.5.4 %s parameter unrecognized", SHOWCMDINREPLY(kp)); /* NOTREACHED */ } } /* ** PRINTVRFYADDR -- print an entry in the verify queue ** ** Parameters: ** a -- the address to print. ** last -- set if this is the last one. ** vrfy -- set if this is a VRFY command. ** ** Returns: ** none. ** ** Side Effects: ** Prints the appropriate 250 codes. */ #define OFFF (3 + 1 + 5 + 1) /* offset in fmt: SMTP reply + enh. code */ static void printvrfyaddr(a, last, vrfy) register ADDRESS *a; bool last; bool vrfy; { char fmtbuf[30]; if (vrfy && a->q_mailer != NULL && !bitnset(M_VRFY250, a->q_mailer->m_flags)) (void) sm_strlcpy(fmtbuf, "252", sizeof(fmtbuf)); else (void) sm_strlcpy(fmtbuf, "250", sizeof(fmtbuf)); fmtbuf[3] = last ? ' ' : '-'; (void) sm_strlcpy(&fmtbuf[4], "2.1.5 ", sizeof(fmtbuf) - 4); if (a->q_fullname == NULL) { if ((a->q_mailer == NULL || a->q_mailer->m_addrtype == NULL || SM_STRCASEEQ(a->q_mailer->m_addrtype, "rfc822")) && strchr(a->q_user, '@') == NULL) (void) sm_strlcpy(&fmtbuf[OFFF], "<%s@%s>", sizeof(fmtbuf) - OFFF); else (void) sm_strlcpy(&fmtbuf[OFFF], "<%s>", sizeof(fmtbuf) - OFFF); message(fmtbuf, a->q_user, MyHostName); } else { if ((a->q_mailer == NULL || a->q_mailer->m_addrtype == NULL || SM_STRCASEEQ(a->q_mailer->m_addrtype, "rfc822")) && strchr(a->q_user, '@') == NULL) (void) sm_strlcpy(&fmtbuf[OFFF], "%s <%s@%s>", sizeof(fmtbuf) - OFFF); else (void) sm_strlcpy(&fmtbuf[OFFF], "%s <%s>", sizeof(fmtbuf) - OFFF); message(fmtbuf, a->q_fullname, a->q_user, MyHostName); } } #if SASL /* ** SASLMECHS -- get list of possible AUTH mechanisms ** ** Parameters: ** conn -- SASL connection info. ** mechlist -- output parameter for list of mechanisms. ** ** Returns: ** number of mechs. */ static int saslmechs(conn, mechlist) sasl_conn_t *conn; char **mechlist; { int len, num, result; /* "user" is currently unused */ # if SASL >= 20000 result = sasl_listmech(conn, NULL, "", " ", "", (const char **) mechlist, (unsigned int *)&len, &num); # else /* SASL >= 20000 */ result = sasl_listmech(conn, "user", /* XXX */ "", " ", "", mechlist, (unsigned int *)&len, (unsigned int *)&num); # endif /* SASL >= 20000 */ if (result != SASL_OK) { if (LogLevel > 9) sm_syslog(LOG_WARNING, NOQID, "AUTH error: listmech=%d, num=%d", result, num); num = 0; } if (num > 0) { if (LogLevel > 11) sm_syslog(LOG_INFO, NOQID, "AUTH: available mech=%s, allowed mech=%s", *mechlist, AuthMechanisms); *mechlist = intersect(AuthMechanisms, *mechlist, NULL); } else { *mechlist = NULL; /* be paranoid... */ if (result == SASL_OK && LogLevel > 9) sm_syslog(LOG_WARNING, NOQID, "AUTH warning: no mechanisms"); } return num; } # if SASL >= 20000 /* ** PROXY_POLICY -- define proxy policy for AUTH ** ** Parameters: ** conn -- unused. ** context -- unused. ** requested_user -- authorization identity. ** rlen -- authorization identity length. ** auth_identity -- authentication identity. ** alen -- authentication identity length. ** def_realm -- default user realm. ** urlen -- user realm length. ** propctx -- unused. ** ** Returns: ** ok? ** ** Side Effects: ** sets {auth_authen} macro. */ int proxy_policy(conn, context, requested_user, rlen, auth_identity, alen, def_realm, urlen, propctx) sasl_conn_t *conn; void *context; const char *requested_user; unsigned rlen; const char *auth_identity; unsigned alen; const char *def_realm; unsigned urlen; struct propctx *propctx; { if (auth_identity == NULL) return SASL_FAIL; macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{auth_authen}"), xtextify((char *) auth_identity, "=<>\")")); return SASL_OK; } # else /* SASL >= 20000 */ /* ** PROXY_POLICY -- define proxy policy for AUTH ** ** Parameters: ** context -- unused. ** auth_identity -- authentication identity. ** requested_user -- authorization identity. ** user -- allowed user (output). ** errstr -- possible error string (output). ** ** Returns: ** ok? */ int proxy_policy(context, auth_identity, requested_user, user, errstr) void *context; const char *auth_identity; const char *requested_user; const char **user; const char **errstr; { if (user == NULL || auth_identity == NULL) return SASL_FAIL; *user = newstr(auth_identity); return SASL_OK; } # endif /* SASL >= 20000 */ #endif /* SASL */ #if STARTTLS /* ** INITSRVTLS -- initialize server side TLS ** ** Parameters: ** tls_ok -- should tls initialization be done? ** ** Returns: ** succeeded? ** ** Side Effects: ** sets tls_ok_srv which is a static variable in this module. ** Do NOT remove assignments to it! */ bool initsrvtls(tls_ok) bool tls_ok; { if (!tls_ok) return false; /* do NOT remove assignment */ tls_ok_srv = inittls(&srv_ctx, TLS_Srv_Opts, Srv_SSL_Options, true, SrvCertFile, SrvKeyFile, CACertPath, CACertFile, DHParams); return tls_ok_srv; } #endif /* STARTTLS */ /* ** SRVFEATURES -- get features for SMTP server ** ** Parameters: ** e -- envelope (should be session context). ** clientname -- name of client. ** features -- default features for this invocation. ** ** Returns: ** server features. */ /* table with options: it uses just one character, how about strings? */ static struct { char srvf_opt; unsigned long srvf_flag; unsigned long srvf_flag2; } srv_feat_table[] = { { 'A', SRV_OFFER_AUTH , 0 }, { 'B', SRV_OFFER_VERB , 0 }, { 'C', SRV_REQ_SEC , 0 }, { 'D', SRV_OFFER_DSN , 0 }, { 'E', SRV_OFFER_ETRN , 0 }, { 'F', SRV_BAD_PIPELINE , 0 }, { 'G', SRV_BARE_LF_421 , SRV_BARE_LF_SP }, { 'H', SRV_NO_HTTP_CMD , 0 }, #if USE_EAI { 'I', SRV_OFFER_EAI , 0 }, #endif /* { 'J', 0 , 0 }, */ /* { 'K', 0 , 0 }, */ { 'L', SRV_REQ_AUTH , 0 }, /* { 'M', 0 , 0 }, */ #if PIPELINING && _FFR_NO_PIPE { 'N', SRV_NO_PIPE , 0 }, #endif { 'O', SRV_REQ_CRLF , 0 }, /* eOl */ #if PIPELINING { 'P', SRV_OFFER_PIPE , 0 }, #endif /* { 'Q', 0 , 0 }, */ { 'R', SRV_VRFY_CLT , 0 }, /* same as V; not documented */ { 'S', SRV_OFFER_TLS , 0 }, /* { 'T', SRV_TMP_FAIL , 0 }, */ { 'U', SRV_BARE_CR_421 , SRV_BARE_CR_SP }, { 'V', SRV_VRFY_CLT , 0 }, /* { 'W', 0 , 0 }, */ { 'X', SRV_OFFER_EXPN , 0 }, /* { 'Y', SRV_OFFER_VRFY , 0 }, */ /* { 'Z', 0 , 0 }, */ { '\0', SRV_NONE , 0 } }; static unsigned long srvfeatures(e, clientname, features) ENVELOPE *e; char *clientname; unsigned long features; { int r, i, j; char **pvp, c, opt; char pvpbuf[PSBUFSIZE]; pvp = NULL; r = rscap("srv_features", clientname, "", e, &pvp, pvpbuf, sizeof(pvpbuf)); if (r != EX_OK) return features; if (pvp == NULL || pvp[0] == NULL || (pvp[0][0] & 0377) != CANONNET) return features; if (pvp[1] != NULL && sm_strncasecmp(pvp[1], "temp", 4) == 0) return SRV_TMP_FAIL; /* ** General rule (see sendmail.h, d_flags): ** lower case: required/offered, upper case: Not required/available ** ** Since we can change some features per daemon, we have both ** cases here: turn on/off a feature. */ for (i = 1; pvp[i] != NULL; i++) { c = pvp[i][0]; j = 0; for (;;) { if ((opt = srv_feat_table[j].srvf_opt) == '\0') { if (LogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "srv_features: unknown feature %s", pvp[i]); break; } if (c == opt) { features &= ~(srv_feat_table[j].srvf_flag); break; } /* ** Note: the "noflag" code below works ONLY for ** the current situation: ** - _flag itself is set by default ** (drop session if bare CR or LF is found) ** - _flag2 is only "effective" if _flag is not set, ** hence using it turns off _flag. ** If that situation changes, the code must be changed! */ if (c == tolower(opt)) { unsigned long flag, noflag; c = pvp[i][1]; flag = noflag = 0; if ('2' == c) { flag = srv_feat_table[j].srvf_flag2; noflag = srv_feat_table[j].srvf_flag; } else if ('\0' == c) flag = srv_feat_table[j].srvf_flag; if (0 != flag) { features |= flag; if (0 != noflag) features &= ~noflag; } else if (LogLevel > 9) sm_syslog(LOG_WARNING, e->e_id, "srv_features: unknown variant %s", pvp[i]); break; } ++j; } } return features; } /* ** HELP -- implement the HELP command. ** ** Parameters: ** topic -- the topic we want help for. ** e -- envelope. ** ** Returns: ** none. ** ** Side Effects: ** outputs the help file to message output. */ #define HELPVSTR "#vers " #define HELPVERSION 2 void help(topic, e) char *topic; ENVELOPE *e; { register SM_FILE_T *hf; register char *p; char *lstr; int len; bool noinfo; bool first = true; long sff = SFF_OPENASROOT|SFF_REGONLY; char buf[MAXLINE]; char inp[MAXLINE]; static int foundvers = -1; extern char Version[]; if (DontLockReadFiles) sff |= SFF_NOLOCK; if (!bitnset(DBS_HELPFILEINUNSAFEDIRPATH, DontBlameSendmail)) sff |= SFF_SAFEDIRPATH; if (HelpFile == NULL || (hf = safefopen(HelpFile, O_RDONLY, 0444, sff)) == NULL) { /* no help */ errno = 0; message("502 5.3.0 Sendmail %s -- HELP not implemented", Version); return; } lstr = NULL; if (SM_IS_EMPTY(topic)) { topic = "smtp"; noinfo = false; } else { lstr = makelower_a(&topic, NULL); if (lstr != topic) topic = lstr; else lstr = NULL; noinfo = true; } len = strlen(topic); while (sm_io_fgets(hf, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { if (buf[0] == '#') { if (foundvers < 0 && strncmp(buf, HELPVSTR, strlen(HELPVSTR)) == 0) { int h; if (sm_io_sscanf(buf + strlen(HELPVSTR), "%d", &h) == 1) foundvers = h; } continue; } if (strncmp(buf, topic, len) == 0) { if (first) { first = false; /* print version if no/old vers# in file */ if (foundvers < 2 && !noinfo) message("214-2.0.0 This is Sendmail version %s", Version); } p = strpbrk(buf, " \t"); if (p == NULL) p = buf + strlen(buf) - 1; else p++; fixcrlf(p, true); if (foundvers >= 2) { char *lbp; int lbs = sizeof(buf) - (p - buf); lbp = translate_dollars(p, p, &lbs); expand(lbp, inp, sizeof(inp), e); if (p != lbp) sm_free(lbp); p = inp; } message("214-2.0.0 %s", p); noinfo = false; } } if (noinfo) message("504 5.3.0 HELP topic \"%.10s\" unknown", topic); else message("214 2.0.0 End of HELP info"); if (foundvers != 0 && foundvers < HELPVERSION) { if (LogLevel > 1) sm_syslog(LOG_WARNING, e->e_id, "%s too old (require version %d)", HelpFile, HELPVERSION); /* avoid log next time */ foundvers = 0; } (void) sm_io_close(hf, SM_TIME_DEFAULT); SM_FREE(lstr); } #if SASL /* ** RESET_SASLCONN -- reset SASL connection data ** ** Parameters: ** conn -- SASL connection context ** hostname -- host name ** various connection data ** ** Returns: ** SASL result */ #ifdef __STDC__ static int reset_saslconn(sasl_conn_t **conn, char *hostname, # if SASL >= 20000 char *remoteip, char *localip, char *auth_id, sasl_ssf_t * ext_ssf) # else /* SASL >= 20000 */ struct sockaddr_in *saddr_r, struct sockaddr_in *saddr_l, sasl_external_properties_t * ext_ssf) # endif /* SASL >= 20000 */ #else /* __STDC__ */ # error "SASL requires __STDC__" #endif /* __STDC__ */ { int result; sasl_dispose(conn); # if SASL >= 20000 result = sasl_server_new("smtp", hostname, NULL, NULL, NULL, NULL, 0, conn); # elif SASL > 10505 /* use empty realm: only works in SASL > 1.5.5 */ result = sasl_server_new("smtp", hostname, "", NULL, 0, conn); # else /* SASL >= 20000 */ /* use no realm -> realm is set to hostname by SASL lib */ result = sasl_server_new("smtp", hostname, NULL, NULL, 0, conn); # endif /* SASL >= 20000 */ if (result != SASL_OK) return result; # if SASL >= 20000 # if NETINET || NETINET6 if (remoteip != NULL && *remoteip != '\0') result = sasl_setprop(*conn, SASL_IPREMOTEPORT, remoteip); if (result != SASL_OK) return result; if (localip != NULL && *localip != '\0') result = sasl_setprop(*conn, SASL_IPLOCALPORT, localip); if (result != SASL_OK) return result; # endif /* NETINET || NETINET6 */ result = sasl_setprop(*conn, SASL_SSF_EXTERNAL, ext_ssf); if (result != SASL_OK) return result; result = sasl_setprop(*conn, SASL_AUTH_EXTERNAL, auth_id); if (result != SASL_OK) return result; # else /* SASL >= 20000 */ # if NETINET if (saddr_r != NULL) result = sasl_setprop(*conn, SASL_IP_REMOTE, saddr_r); if (result != SASL_OK) return result; if (saddr_l != NULL) result = sasl_setprop(*conn, SASL_IP_LOCAL, saddr_l); if (result != SASL_OK) return result; # endif /* NETINET */ result = sasl_setprop(*conn, SASL_SSF_EXTERNAL, ext_ssf); if (result != SASL_OK) return result; # endif /* SASL >= 20000 */ return SASL_OK; } /* ** GET_SASL_USER -- extract user part from SASL reply ** ** Parameters: ** val -- sasl reply (may contain NUL) ** len -- length of val ** auth_type -- auth_type (can be NULL) ** user -- output buffer for extract user ** user_len -- length of output buffer (user) ** ** Returns: ** none. ** ** Note: val is supplied by the client and hence may contain "bad" ** (non-printable) characters, but the returned value (user) ** is only used for logging which converts those characters. */ static void get_sasl_user(val, len, auth_type, user, user_len) char *val; unsigned int len; const char *auth_type; char *user; size_t user_len; { unsigned int u; SM_ASSERT(val != NULL); SM_ASSERT(user != NULL); SM_ASSERT(user_len > 0); *user = '\0'; if (SM_IS_EMPTY(auth_type)) return; if (0 == len) return; # define DIGMD5U "username=\"" # define DIGMD5U_L (sizeof(DIGMD5U) - 1) if (SM_STRCASEEQ(auth_type, "digest-md5") && strncmp(val, DIGMD5U, DIGMD5U_L) == 0) { char *s; val += DIGMD5U_L; if (len <= DIGMD5U_L) return; len -= DIGMD5U_L; /* format? could there be a quoted '"'? */ for (s = val, u = 0; *s != '\0' && u < len; s++) { if ('"' == *s) { *s = '\0'; break; } if ('\\' == *s) { ++s; if ('\0' == *s) break; } } } else if (SM_STRCASEEQ(auth_type, "cram-md5")) { char *s; for (s = val, u = 0; *s != '\0' && u < len; s++) { if (' ' == *s) { *s = '\0'; break; } } } else if (SM_STRCASEEQ(auth_type, "plain") || SM_STRCASEEQ(auth_type, "login")) { /* ** RFC 4616: The PLAIN Simple Authentication and ** Security Layer (SASL) Mechanism ** message = [authzid] UTF8NUL authcid UTF8NUL passwd ** each part: 1*SAFE ; MUST accept up to 255 octets ** UTF8NUL = %x00 ; UTF-8 encoded NUL character ** ** draft-murchison-sasl-login: it's just username by its own */ for (u = 0; u < len; u++) { if (val[u] == '\0') { val[u] = '/'; (void) sm_strlcpy(user, val + ((0 == u) ? 1 : 0), user_len); return; } } } else { /* ** Extracting the "user" from other mechanisms ** is currently not supported. */ return; } /* ** Does the input buffer has an NUL in it so it can be treated ** as a C string? */ /* SM_ASSERT(len > 0); see above */ u = len - 1; if (val[u] != '\0') { for (u = 0; u < len; u++) { if (val[u] == '\0') break; } } if (val[u] != '\0') user_len = SM_MIN(len, user_len); (void) sm_strlcpy(user, val, user_len); } #endif /* SASL */ sendmail-8.18.1/sendmail/daemon.c0000644000372400037240000031311614556365350016177 0ustar xbuildxbuild/* * Copyright (c) 1998-2007, 2009, 2010 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include "map.h" SM_RCSID("@(#)$Id: daemon.c,v 8.698 2013-11-22 20:51:55 ca Exp $") #include #if defined(SOCK_STREAM) || defined(__GNU_LIBRARY__) # define USE_SOCK_STREAM 1 #endif #if defined(USE_SOCK_STREAM) # if NETINET || NETINET6 # include # endif #endif #if STARTTLS # include # if DANE # include "tls.h" # include "sm_resolve.h" # endif #endif #if _FFR_DMTRIGGER # include #endif #if NETINET6 # define FREEHOSTENT(h, s) \ do \ { \ if ((h) != (s) && (h) != NULL) \ { \ freehostent((h)); \ (h) = NULL; \ } \ } while (0) #else # define FREEHOSTENT(h, s) #endif #include #if IP_SRCROUTE && NETINET # include # include # if HAS_IN_H # include # ifndef IPOPTION # define IPOPTION ip_opts # define IP_LIST ip_opts # define IP_DST ip_dst # endif /* ! IPOPTION */ # else /* HAS_IN_H */ # include # ifndef IPOPTION # define IPOPTION ipoption # define IP_LIST ipopt_list # define IP_DST ipopt_dst # endif /* ! IPOPTION */ # endif /* HAS_IN_H */ #endif /* IP_SRCROUTE && NETINET */ #include #include #define DAEMON_C 1 #include static void connecttimeout __P((int)); static int opendaemonsocket __P((DAEMON_T *, bool)); static unsigned short setupdaemon __P((SOCKADDR *)); static void getrequests_checkdiskspace __P((ENVELOPE *e)); static void setsockaddroptions __P((char *, DAEMON_T *)); static void printdaemonflags __P((DAEMON_T *)); static int addr_family __P((char *)); static int addrcmp __P((struct hostent *, char *, SOCKADDR *)); static void authtimeout __P((int)); /* ** DAEMON.C -- routines to use when running as a daemon. ** ** This entire file is highly dependent on the 4.2 BSD ** interprocess communication primitives. No attempt has ** been made to make this file portable to Version 7, ** Version 6, MPX files, etc. If you should try such a ** thing yourself, I recommend chucking the entire file ** and starting from scratch. Basic semantics are: ** ** getrequests(e) ** Opens a port and initiates a connection. ** Returns in a child. Must set InChannel and ** OutChannel appropriately. ** clrdaemon() ** Close any open files associated with getting ** the connection; this is used when running the queue, ** etc., to avoid having extra file descriptors during ** the queue run and to avoid confusing the network ** code (if it cares). ** makeconnection(host, port, mci, e, enough) ** Make a connection to the named host on the given ** port. Returns zero on success, else an exit status ** describing the error. ** host_map_lookup(map, hbuf, avp, pstat) ** Convert the entry in hbuf into a canonical form. */ static int NDaemons = 0; /* actual number of daemons */ static time_t NextDiskSpaceCheck = 0; /* ** GETREQUESTS -- open mail IPC port and get requests. ** ** Parameters: ** e -- the current envelope. ** ** Returns: ** pointer to flags. ** ** Side Effects: ** Waits until some interesting activity occurs. When ** it does, a child is created to process it, and the ** parent waits for completion. Return from this ** routine is always in the child. The file pointers ** "InChannel" and "OutChannel" should be set to point ** to the communication channel. ** May restart persistent queue runners if they have ended ** for some reason. */ BITMAP256 * getrequests(e) ENVELOPE *e; { int t; int idx, curdaemon = -1; int i, olddaemon = 0; #if XDEBUG bool j_has_dot; #endif char status[MAXLINE]; SOCKADDR sa; SOCKADDR_LEN_T len = sizeof(sa); #if _FFR_QUEUE_RUN_PARANOIA time_t lastrun; #endif #if NETUNIX extern int ControlSocket; #endif extern ENVELOPE BlankEnvelope; /* initialize data for function that generates queue ids */ init_qid_alg(); for (idx = 0; idx < NDaemons; idx++) { Daemons[idx].d_port = setupdaemon(&(Daemons[idx].d_addr)); Daemons[idx].d_firsttime = true; Daemons[idx].d_refuse_connections_until = (time_t) 0; } /* ** Try to actually open the connection. */ if (tTd(15, 1)) { for (idx = 0; idx < NDaemons; idx++) { sm_dprintf("getrequests: daemon %s: port %d\n", Daemons[idx].d_name, ntohs(Daemons[idx].d_port)); } } /* get a socket for the SMTP connection */ for (idx = 0; idx < NDaemons; idx++) Daemons[idx].d_socksize = opendaemonsocket(&Daemons[idx], true); if (opencontrolsocket() < 0) sm_syslog(LOG_WARNING, NOQID, "daemon could not open control socket %s: %s", ControlSocketName, sm_errstring(errno)); /* If there are any queue runners released reapchild() co-ord's */ (void) sm_signal(SIGCHLD, reapchild); /* write the pid to file, command line args to syslog */ log_sendmail_pid(e); #if XDEBUG { char jbuf[MAXHOSTNAMELEN]; expand("\201j", jbuf, sizeof(jbuf), e); j_has_dot = strchr(jbuf, '.') != NULL; } #endif /* XDEBUG */ /* Add parent process as first item */ proc_list_add(CurrentPid, "Sendmail daemon", PROC_DAEMON, 0, -1, NULL); if (tTd(15, 1)) { for (idx = 0; idx < NDaemons; idx++) sm_dprintf("getrequests: daemon %s: socket %d\n", Daemons[idx].d_name, Daemons[idx].d_socket); } for (;;) { register pid_t pid; auto SOCKADDR_LEN_T lotherend; bool timedout = false; bool control = false; int save_errno; int pipefd[2]; time_t now; #if STARTTLS long seed; #endif /* see if we are rejecting connections */ (void) sm_blocksignal(SIGALRM); CHECK_RESTART; for (idx = 0; idx < NDaemons; idx++) { /* ** XXX do this call outside the loop? ** no: refuse_connections may sleep(). */ now = curtime(); if (now < Daemons[idx].d_refuse_connections_until) continue; if (bitnset(D_DISABLE, Daemons[idx].d_flags)) continue; if (refuseconnections(e, idx, curdaemon == idx)) { if (Daemons[idx].d_socket >= 0) { /* close socket so peer fails quickly */ (void) close(Daemons[idx].d_socket); Daemons[idx].d_socket = -1; } /* refuse connections for next 15 seconds */ Daemons[idx].d_refuse_connections_until = now + 15; } else if (Daemons[idx].d_socket < 0 || Daemons[idx].d_firsttime) { if (!Daemons[idx].d_firsttime && LogLevel > 8) sm_syslog(LOG_INFO, NOQID, "accepting connections again for daemon %s", Daemons[idx].d_name); /* arrange to (re)open the socket if needed */ (void) opendaemonsocket(&Daemons[idx], false); Daemons[idx].d_firsttime = false; } } /* May have been sleeping above, check again */ CHECK_RESTART; getrequests_checkdiskspace(e); #if XDEBUG /* check for disaster */ { char jbuf[MAXHOSTNAMELEN]; expand("\201j", jbuf, sizeof(jbuf), e); if (!wordinclass(jbuf, 'w')) { dumpstate("daemon lost $j"); sm_syslog(LOG_ALERT, NOQID, "daemon process doesn't have $j in $=w; see syslog"); abort(); } else if (j_has_dot && strchr(jbuf, '.') == NULL) { dumpstate("daemon $j lost dot"); sm_syslog(LOG_ALERT, NOQID, "daemon process $j lost dot; see syslog"); abort(); } } #endif /* XDEBUG */ #if 0 /* ** Andrew Sun claims that this will ** fix the SVr4 problem. But it seems to have gone away, ** so is it worth doing this? */ if (DaemonSocket >= 0 && SetNonBlocking(DaemonSocket, false) < 0) log an error here; #endif /* 0 */ (void) sm_releasesignal(SIGALRM); for (;;) { bool setproc = false; int highest = -1; fd_set readfds; struct timeval timeout; CHECK_RESTART; FD_ZERO(&readfds); for (idx = 0; idx < NDaemons; idx++) { /* wait for a connection */ if (Daemons[idx].d_socket >= 0) { if (!setproc && !bitnset(D_ETRNONLY, Daemons[idx].d_flags)) { sm_setproctitle(true, e, "accepting connections"); setproc = true; } if (Daemons[idx].d_socket > highest) highest = Daemons[idx].d_socket; SM_FD_SET(Daemons[idx].d_socket, &readfds); } } #if NETUNIX if (ControlSocket >= 0) { if (ControlSocket > highest) highest = ControlSocket; SM_FD_SET(ControlSocket, &readfds); } #endif /* NETUNIX */ timeout.tv_sec = 5; timeout.tv_usec = 0; t = select(highest + 1, FDSET_CAST &readfds, NULL, NULL, &timeout); /* Did someone signal while waiting? */ CHECK_RESTART; curdaemon = -1; if (doqueuerun()) { (void) runqueue(true, false, false, false); #if _FFR_QUEUE_RUN_PARANOIA lastrun = now; #endif } #if _FFR_QUEUE_RUN_PARANOIA else if (CheckQueueRunners > 0 && QueueIntvl > 0 && lastrun + QueueIntvl + CheckQueueRunners < now) { /* ** set lastrun unconditionally to avoid ** calling checkqueuerunner() all the time. ** That's also why we currently ignore the ** result of the function call. */ (void) checkqueuerunner(); lastrun = now; } #endif /* _FFR_QUEUE_RUN_PARANOIA */ if (t <= 0) { timedout = true; break; } control = false; errno = 0; /* look "round-robin" for an active socket */ if ((idx = olddaemon + 1) >= NDaemons) idx = 0; for (i = 0; i < NDaemons; i++) { if (Daemons[idx].d_socket >= 0 && SM_FD_ISSET(Daemons[idx].d_socket, &readfds)) { lotherend = Daemons[idx].d_socksize; memset(&RealHostAddr, '\0', sizeof(RealHostAddr)); t = accept(Daemons[idx].d_socket, (struct sockaddr *)&RealHostAddr, &lotherend); /* ** If remote side closes before ** accept() finishes, sockaddr ** might not be fully filled in. */ if (t >= 0 && (lotherend == 0 || #ifdef BSD4_4_SOCKADDR RealHostAddr.sa.sa_len == 0 || #endif RealHostAddr.sa.sa_family != Daemons[idx].d_addr.sa.sa_family)) { (void) close(t); t = -1; errno = EINVAL; } olddaemon = curdaemon = idx; break; } if (++idx >= NDaemons) idx = 0; } #if NETUNIX if (curdaemon == -1 && ControlSocket >= 0 && SM_FD_ISSET(ControlSocket, &readfds)) { struct sockaddr_un sa_un; lotherend = sizeof(sa_un); memset(&sa_un, '\0', sizeof(sa_un)); t = accept(ControlSocket, (struct sockaddr *)&sa_un, &lotherend); /* ** If remote side closes before ** accept() finishes, sockaddr ** might not be fully filled in. */ if (t >= 0 && (lotherend == 0 || # ifdef BSD4_4_SOCKADDR sa_un.sun_len == 0 || # endif sa_un.sun_family != AF_UNIX)) { (void) close(t); t = -1; errno = EINVAL; } if (t >= 0) control = true; } #else /* NETUNIX */ if (curdaemon == -1) { /* No daemon to service */ continue; } #endif /* NETUNIX */ if (t >= 0 || errno != EINTR) break; } if (timedout) { timedout = false; continue; } save_errno = errno; (void) sm_blocksignal(SIGALRM); if (t < 0) { errno = save_errno; /* let's ignore these temporary errors */ if (save_errno == EINTR #ifdef EAGAIN || save_errno == EAGAIN #endif #ifdef ECONNABORTED || save_errno == ECONNABORTED #endif #ifdef EWOULDBLOCK || save_errno == EWOULDBLOCK #endif ) continue; syserr("getrequests: accept"); if (curdaemon >= 0) { /* arrange to re-open socket next time around */ (void) close(Daemons[curdaemon].d_socket); Daemons[curdaemon].d_socket = -1; #if SO_REUSEADDR_IS_BROKEN /* ** Give time for bound socket to be released. ** This creates a denial-of-service if you can ** force accept() to fail on affected systems. */ Daemons[curdaemon].d_refuse_connections_until = curtime() + 15; #endif /* SO_REUSEADDR_IS_BROKEN */ } continue; } if (!control) { /* set some daemon related macros */ switch (Daemons[curdaemon].d_addr.sa.sa_family) { case AF_UNSPEC: macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_family}"), "unspec"); break; #if NETUNIX case AF_UNIX: macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_family}"), "local"); break; #endif #if NETINET case AF_INET: macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_family}"), "inet"); break; #endif #if NETINET6 case AF_INET6: macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_family}"), "inet6"); break; #endif #if NETISO case AF_ISO: macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_family}"), "iso"); break; #endif #if NETNS case AF_NS: macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_family}"), "ns"); break; #endif #if NETX25 case AF_CCITT: macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_family}"), "x.25"); break; #endif } macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_name}"), Daemons[curdaemon].d_name); if (Daemons[curdaemon].d_mflags != NULL) macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_flags}"), Daemons[curdaemon].d_mflags); else macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{daemon_flags}"), ""); } /* ** If connection rate is exceeded here, connection shall be ** refused later by a new call after fork() by the ** validate_connection() function. Closing the connection ** at this point violates RFC 2821. ** Do NOT remove this call, its side effects are needed. */ connection_rate_check(&RealHostAddr, NULL); /* ** Create a subprocess to process the mail. */ if (tTd(15, 2)) sm_dprintf("getrequests: forking (fd = %d)\n", t); /* ** Advance state of PRNG. ** This is necessary because otherwise all child processes ** will produce the same PRN sequence and hence the selection ** of a queue directory (and other things, e.g., MX selection) ** are not "really" random. */ #if STARTTLS /* XXX get some better "random" data? */ seed = get_random(); RAND_seed((void *) &NextDiskSpaceCheck, sizeof(NextDiskSpaceCheck)); RAND_seed((void *) &now, sizeof(now)); RAND_seed((void *) &seed, sizeof(seed)); #else /* STARTTLS */ (void) get_random(); #endif /* STARTTLS */ #if NAMED_BIND /* ** Update MX records for FallbackMX. ** Let's hope this is fast otherwise we screw up the ** response time. */ if (FallbackMX != NULL) (void) getfallbackmxrr(FallbackMX); #endif /* NAMED_BIND */ if (tTd(93, 100)) { /* don't fork, handle connection in this process */ pid = 0; pipefd[0] = pipefd[1] = -1; } else { /* ** Create a pipe to keep the child from writing to ** the socket until after the parent has closed ** it. Otherwise the parent may hang if the child ** has closed it first. */ if (pipe(pipefd) < 0) pipefd[0] = pipefd[1] = -1; (void) sm_blocksignal(SIGCHLD); pid = fork(); if (pid < 0) { syserr("daemon: cannot fork"); if (pipefd[0] != -1) { (void) close(pipefd[0]); (void) close(pipefd[1]); } (void) sm_releasesignal(SIGCHLD); (void) sleep(10); (void) close(t); continue; } } if (pid == 0) { char *p; SM_FILE_T *inchannel, *outchannel = NULL; /* ** CHILD -- return to caller. ** Collect verified idea of sending host. ** Verify calling user id if possible here. */ /* Reset global flags */ RestartRequest = NULL; RestartWorkGroup = false; ShutdownRequest = NULL; PendingSignal = 0; CurrentPid = getpid(); close_sendmail_pid(); (void) sm_releasesignal(SIGALRM); (void) sm_releasesignal(SIGCHLD); (void) sm_signal(SIGCHLD, SIG_DFL); (void) sm_signal(SIGHUP, SIG_DFL); (void) sm_signal(SIGTERM, intsig); /* turn on profiling */ /* SM_PROF(0); */ #if _FFR_DMTRIGGER if (SM_TRIGGER == e->e_sendmode) { i = sm_notify_start(false, 0); if (i != 0) syserr("sm_notify_start(false) failed=%d", i); } #endif /* ** Initialize exception stack and default exception ** handler for child process. */ sm_exc_newthread(fatal_error); if (!control) { macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{daemon_addr}"), anynet_ntoa(&Daemons[curdaemon].d_addr)); (void) sm_snprintf(status, sizeof(status), "%d", ntohs(Daemons[curdaemon].d_port)); macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{daemon_port}"), status); } for (idx = 0; idx < NDaemons; idx++) { if (Daemons[idx].d_socket >= 0) (void) close(Daemons[idx].d_socket); Daemons[idx].d_socket = -1; } clrcontrol(); /* Avoid SMTP daemon actions if control command */ if (control) { /* Add control socket process */ proc_list_add(CurrentPid, "console socket child", PROC_CONTROL_CHILD, 0, -1, NULL); } else { proc_list_clear(); /* clean up background delivery children */ (void) sm_signal(SIGCHLD, reapchild); /* Add parent process as first child item */ proc_list_add(CurrentPid, "daemon child", PROC_DAEMON_CHILD, 0, -1, NULL); /* don't schedule queue runs if ETRN */ QueueIntvl = 0; /* ** Hack: override global variables if ** the corresponding DaemonPortOption ** is set. */ #if _FFR_SS_PER_DAEMON if (Daemons[curdaemon].d_supersafe != DPO_NOTSET) SuperSafe = Daemons[curdaemon]. d_supersafe; #endif /* _FFR_SS_PER_DAEMON */ if (Daemons[curdaemon].d_dm != DM_NOTSET) set_delivery_mode( Daemons[curdaemon].d_dm, e); if (Daemons[curdaemon].d_refuseLA != DPO_NOTSET) RefuseLA = Daemons[curdaemon]. d_refuseLA; if (Daemons[curdaemon].d_queueLA != DPO_NOTSET) QueueLA = Daemons[curdaemon].d_queueLA; if (Daemons[curdaemon].d_delayLA != DPO_NOTSET) DelayLA = Daemons[curdaemon].d_delayLA; if (Daemons[curdaemon].d_maxchildren != DPO_NOTSET) MaxChildren = Daemons[curdaemon]. d_maxchildren; sm_setproctitle(true, e, "startup with %s", anynet_ntoa(&RealHostAddr)); } if (pipefd[0] != -1) { auto char c; /* ** Wait for the parent to close the write end ** of the pipe, which we will see as an EOF. ** This guarantees that we won't write to the ** socket until after the parent has closed ** the pipe. */ /* close the write end of the pipe */ (void) close(pipefd[1]); /* we shouldn't be interrupted, but ... */ while (read(pipefd[0], &c, 1) < 0 && errno == EINTR) continue; (void) close(pipefd[0]); } /* control socket processing */ if (control) { control_command(t, e); /* NOTREACHED */ exit(EX_SOFTWARE); } /* determine host name */ p = hostnamebyanyaddr(&RealHostAddr); if (strlen(p) > MAXNAME) /* XXX - 1 ? */ p[MAXNAME] = '\0'; RealHostName = newstr(p); if (RealHostName[0] == '[') { macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{client_resolve}"), h_errno == TRY_AGAIN ? "TEMP" : "FAIL"); } else { macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{client_resolve}"), "OK"); } sm_setproctitle(true, e, "startup with %s", p); markstats(e, NULL, STATS_CONNECT); if ((inchannel = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &t, SM_IO_RDONLY_B, NULL)) == NULL || (t = dup(t)) < 0 || (outchannel = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &t, SM_IO_WRONLY_B, NULL)) == NULL) { syserr("cannot open SMTP server channel, fd=%d", t); finis(false, true, EX_OK); } sm_io_automode(inchannel, outchannel); InChannel = inchannel; OutChannel = outchannel; DisConnected = false; #if _FFR_XCNCT t = xconnect(inchannel); if (t <= 0) { clrbitn(D_XCNCT, Daemons[curdaemon].d_flags); clrbitn(D_XCNCT_M, Daemons[curdaemon].d_flags); } else setbitn(t, Daemons[curdaemon].d_flags); #endif /* _FFR_XCNCT */ #if XLA if (!xla_host_ok(RealHostName)) { message("421 4.4.5 Too many SMTP sessions for this host"); finis(false, true, EX_OK); } #endif /* XLA */ /* find out name for interface of connection */ if (getsockname(sm_io_getinfo(InChannel, SM_IO_WHAT_FD, NULL), &sa.sa, &len) == 0) { p = hostnamebyanyaddr(&sa); if (tTd(15, 9)) sm_dprintf("getreq: got name %s\n", p); macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{if_name}"), p); /* ** Do this only if it is not the loopback ** interface. */ if (!isloopback(sa)) { char *addr; char family[5]; addr = anynet_ntoa(&sa); (void) sm_snprintf(family, sizeof(family), "%d", sa.sa.sa_family); macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{if_addr}"), addr); macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{if_family}"), family); if (tTd(15, 7)) sm_dprintf("getreq: got addr %s and family %s\n", addr, family); } else { macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{if_addr}"), NULL); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{if_family}"), NULL); } } else { if (tTd(15, 7)) sm_dprintf("getreq: getsockname failed\n"); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{if_name}"), NULL); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{if_addr}"), NULL); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{if_family}"), NULL); } break; } /* parent -- keep track of children */ if (control) { (void) sm_snprintf(status, sizeof(status), "control socket server child"); proc_list_add(pid, status, PROC_CONTROL, 0, -1, NULL); } else { (void) sm_snprintf(status, sizeof(status), "SMTP server child for %s", anynet_ntoa(&RealHostAddr)); proc_list_add(pid, status, PROC_DAEMON, 0, -1, &RealHostAddr); } (void) sm_releasesignal(SIGCHLD); /* close the read end of the synchronization pipe */ if (pipefd[0] != -1) { (void) close(pipefd[0]); pipefd[0] = -1; } /* close the port so that others will hang (for a while) */ (void) close(t); /* release the child by closing the read end of the sync pipe */ if (pipefd[1] != -1) { (void) close(pipefd[1]); pipefd[1] = -1; } } if (tTd(15, 2)) sm_dprintf("getrequests: returning\n"); #if MILTER /* set the filters for this daemon */ if (Daemons[curdaemon].d_inputfilterlist != NULL) { for (i = 0; (i < MAXFILTERS && Daemons[curdaemon].d_inputfilters[i] != NULL); i++) { InputFilters[i] = Daemons[curdaemon].d_inputfilters[i]; } if (i < MAXFILTERS) InputFilters[i] = NULL; } #endif /* MILTER */ return &Daemons[curdaemon].d_flags; } /* ** GETREQUESTS_CHECKDISKSPACE -- check available diskspace. ** ** Parameters: ** e -- envelope. ** ** Returns: ** none. ** ** Side Effects: ** Modifies Daemon flags (D_ETRNONLY) if not enough disk space. */ static void getrequests_checkdiskspace(e) ENVELOPE *e; { bool logged = false; int idx; time_t now; now = curtime(); if (now < NextDiskSpaceCheck) return; /* Check if there is available disk space in all queue groups. */ if (!enoughdiskspace(0, NULL)) { for (idx = 0; idx < NDaemons; ++idx) { if (bitnset(D_ETRNONLY, Daemons[idx].d_flags)) continue; /* log only if not logged before */ if (!logged) { if (LogLevel > 8) sm_syslog(LOG_INFO, NOQID, "rejecting new messages: min free: %ld", MinBlocksFree); sm_setproctitle(true, e, "rejecting new messages: min free: %ld", MinBlocksFree); logged = true; } setbitn(D_ETRNONLY, Daemons[idx].d_flags); } } else { for (idx = 0; idx < NDaemons; ++idx) { if (!bitnset(D_ETRNONLY, Daemons[idx].d_flags)) continue; /* log only if not logged before */ if (!logged) { if (LogLevel > 8) sm_syslog(LOG_INFO, NOQID, "accepting new messages (again)"); logged = true; } /* title will be set later */ clrbitn(D_ETRNONLY, Daemons[idx].d_flags); } } /* only check disk space once a minute */ NextDiskSpaceCheck = now + 60; } /* ** OPENDAEMONSOCKET -- open SMTP socket ** ** Deals with setting all appropriate options. ** ** Parameters: ** d -- the structure for the daemon to open. ** firsttime -- set if this is the initial open. ** ** Returns: ** Size in bytes of the daemon socket addr. ** ** Side Effects: ** Leaves DaemonSocket set to the open socket. ** Exits if the socket cannot be created. */ #define MAXOPENTRIES 10 /* maximum number of tries to open connection */ static int opendaemonsocket(d, firsttime) DAEMON_T *d; bool firsttime; { int on = 1; int fdflags; SOCKADDR_LEN_T socksize = 0; int ntries = 0; int save_errno; if (tTd(15, 2)) sm_dprintf("opendaemonsocket(%s)\n", d->d_name); do { if (ntries > 0) (void) sleep(5); if (firsttime || d->d_socket < 0) { #if NETUNIX if (d->d_addr.sa.sa_family == AF_UNIX) { int rval; long sff = SFF_SAFEDIRPATH|SFF_OPENASROOT|SFF_NOLINK|SFF_ROOTOK|SFF_EXECOK|SFF_CREAT; /* if not safe, don't use it */ rval = safefile(d->d_addr.sunix.sun_path, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR|S_IWUSR, NULL); if (rval != 0) { save_errno = errno; syserr("opendaemonsocket: daemon %s: unsafe domain socket %s", d->d_name, d->d_addr.sunix.sun_path); goto fail; } /* Don't try to overtake an existing socket */ (void) unlink(d->d_addr.sunix.sun_path); } #endif /* NETUNIX */ d->d_socket = socket(d->d_addr.sa.sa_family, SOCK_STREAM, 0); if (d->d_socket < 0) { save_errno = errno; syserr("opendaemonsocket: daemon %s: can't create server SMTP socket", d->d_name); fail: if (bitnset(D_OPTIONAL, d->d_flags) && (!transienterror(save_errno) || ntries >= MAXOPENTRIES - 1)) { syserr("opendaemonsocket: daemon %s: optional socket disabled", d->d_name); setbitn(D_DISABLE, d->d_flags); d->d_socket = -1; return -1; } severe: if (LogLevel > 0) sm_syslog(LOG_ALERT, NOQID, "daemon %s: problem creating SMTP socket", d->d_name); d->d_socket = -1; continue; } if (!SM_FD_OK_SELECT(d->d_socket)) { save_errno = EINVAL; syserr("opendaemonsocket: daemon %s: server SMTP socket (%d) too large", d->d_name, d->d_socket); goto fail; } /* turn on network debugging? */ if (tTd(15, 101)) (void) setsockopt(d->d_socket, SOL_SOCKET, SO_DEBUG, (char *)&on, sizeof(on)); (void) setsockopt(d->d_socket, SOL_SOCKET, SO_REUSEADDR, (char *)&on, sizeof(on)); (void) setsockopt(d->d_socket, SOL_SOCKET, SO_KEEPALIVE, (char *)&on, sizeof(on)); #ifdef SO_RCVBUF if (d->d_tcprcvbufsize > 0) { if (setsockopt(d->d_socket, SOL_SOCKET, SO_RCVBUF, (char *) &d->d_tcprcvbufsize, sizeof(d->d_tcprcvbufsize)) < 0) syserr("opendaemonsocket: daemon %s: setsockopt(SO_RCVBUF)", d->d_name); } #endif /* SO_RCVBUF */ #ifdef SO_SNDBUF if (d->d_tcpsndbufsize > 0) { if (setsockopt(d->d_socket, SOL_SOCKET, SO_SNDBUF, (char *) &d->d_tcpsndbufsize, sizeof(d->d_tcpsndbufsize)) < 0) syserr("opendaemonsocket: daemon %s: setsockopt(SO_SNDBUF)", d->d_name); } #endif /* SO_SNDBUF */ if ((fdflags = fcntl(d->d_socket, F_GETFD, 0)) == -1 || fcntl(d->d_socket, F_SETFD, fdflags | FD_CLOEXEC) == -1) { save_errno = errno; syserr("opendaemonsocket: daemon %s: failed to %s close-on-exec flag: %s", d->d_name, fdflags == -1 ? "get" : "set", sm_errstring(save_errno)); (void) close(d->d_socket); goto severe; } switch (d->d_addr.sa.sa_family) { #ifdef NETUNIX case AF_UNIX: socksize = sizeof(d->d_addr.sunix); break; #endif #if NETINET case AF_INET: socksize = sizeof(d->d_addr.sin); break; #endif #if NETINET6 case AF_INET6: socksize = sizeof(d->d_addr.sin6); break; #endif #if NETISO case AF_ISO: socksize = sizeof(d->d_addr.siso); break; #endif default: socksize = sizeof(d->d_addr); break; } if (bind(d->d_socket, &d->d_addr.sa, socksize) < 0) { /* probably another daemon already */ save_errno = errno; syserr("opendaemonsocket: daemon %s: cannot bind", d->d_name); (void) close(d->d_socket); goto fail; } } if (!firsttime && listen(d->d_socket, d->d_listenqueue) < 0) { save_errno = errno; syserr("opendaemonsocket: daemon %s: cannot listen", d->d_name); (void) close(d->d_socket); goto severe; } return socksize; } while (ntries++ < MAXOPENTRIES && transienterror(save_errno)); syserr("!opendaemonsocket: daemon %s: server SMTP socket wedged: exiting", d->d_name); /* NOTREACHED */ return -1; /* avoid compiler warning on IRIX */ } /* ** SETUPDAEMON -- setup socket for daemon ** ** Parameters: ** daemonaddr -- socket for daemon ** ** Returns: ** port number on which daemon should run ** */ static unsigned short setupdaemon(daemonaddr) SOCKADDR *daemonaddr; { unsigned short port; /* ** Set up the address for the mailer. */ if (daemonaddr->sa.sa_family == AF_UNSPEC) { memset(daemonaddr, '\0', sizeof(*daemonaddr)); #if NETINET daemonaddr->sa.sa_family = AF_INET; #endif } switch (daemonaddr->sa.sa_family) { #if NETINET case AF_INET: if (daemonaddr->sin.sin_addr.s_addr == 0) daemonaddr->sin.sin_addr.s_addr = LocalDaemon ? htonl(INADDR_LOOPBACK) : INADDR_ANY; port = daemonaddr->sin.sin_port; break; #endif /* NETINET */ #if NETINET6 case AF_INET6: if (IN6_IS_ADDR_UNSPECIFIED(&daemonaddr->sin6.sin6_addr)) daemonaddr->sin6.sin6_addr = (LocalDaemon && V6LoopbackAddrFound) ? in6addr_loopback : in6addr_any; port = daemonaddr->sin6.sin6_port; break; #endif /* NETINET6 */ default: /* unknown protocol */ port = 0; break; } if (port == 0) { #ifdef NO_GETSERVBYNAME port = htons(25); #else /* NO_GETSERVBYNAME */ { register struct servent *sp; sp = getservbyname("smtp", "tcp"); if (sp == NULL) { syserr("554 5.3.5 service \"smtp\" unknown"); port = htons(25); } else port = sp->s_port; } #endif /* NO_GETSERVBYNAME */ } switch (daemonaddr->sa.sa_family) { #if NETINET case AF_INET: daemonaddr->sin.sin_port = port; break; #endif #if NETINET6 case AF_INET6: daemonaddr->sin6.sin6_port = port; break; #endif default: /* unknown protocol */ break; } return port; } /* ** CLRDAEMON -- reset the daemon connection ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** releases any resources used by the passive daemon. */ void clrdaemon() { int i; for (i = 0; i < NDaemons; i++) { if (Daemons[i].d_socket >= 0) (void) close(Daemons[i].d_socket); Daemons[i].d_socket = -1; } } /* ** GETMODIFIERS -- get modifier flags ** ** Parameters: ** v -- the modifiers (input text line). ** modifiers -- pointer to flag field to represent modifiers. ** ** Returns: ** (xallocat()ed) string representation of modifiers. ** ** Side Effects: ** fills in modifiers. */ char * getmodifiers(v, modifiers) char *v; BITMAP256 modifiers; { int l; char *h, *f, *flags; /* maximum length of flags: upper case Option -> "OO " */ l = 3 * strlen(v) + 3; /* is someone joking? */ if (l < 0 || l > 256) { if (LogLevel > 2) sm_syslog(LOG_ERR, NOQID, "getmodifiers too long, ignored"); return NULL; } flags = xalloc(l); f = flags; clrbitmap(modifiers); for (h = v; *h != '\0'; h++) { if (isascii(*h) && !isspace(*h) && isprint(*h)) { setbitn(*h, modifiers); if (flags != f) *flags++ = ' '; *flags++ = *h; if (isupper(*h)) *flags++ = *h; } } *flags++ = '\0'; return f; } /* ** CHKDAEMONMODIFIERS -- check whether all daemons have set a flag. ** ** Parameters: ** flag -- the flag to test. ** ** Returns: ** true iff all daemons have set flag. */ bool chkdaemonmodifiers(flag) int flag; { int i; for (i = 0; i < NDaemons; i++) if (!bitnset((char) flag, Daemons[i].d_flags)) return false; return true; } /* ** SETSOCKADDROPTIONS -- set options for SOCKADDR (daemon or client) ** ** Parameters: ** p -- the options line. ** d -- the daemon structure to fill in. ** ** Returns: ** none. */ static void setsockaddroptions(p, d) char *p; DAEMON_T *d; { #if NETISO short portno; #endif char *port = NULL; char *addr = NULL; #if NETINET if (d->d_addr.sa.sa_family == AF_UNSPEC) d->d_addr.sa.sa_family = AF_INET; #endif #if _FFR_SS_PER_DAEMON d->d_supersafe = DPO_NOTSET; #endif d->d_dm = DM_NOTSET; d->d_refuseLA = DPO_NOTSET; d->d_queueLA = DPO_NOTSET; d->d_delayLA = DPO_NOTSET; d->d_maxchildren = DPO_NOTSET; while (p != NULL) { register char *f; register char *v; while (SM_ISSPACE(*p)) p++; if (*p == '\0') break; f = p; p = strchr(p, ','); if (p != NULL) *p++ = '\0'; v = strchr(f, '='); if (v == NULL) continue; while (isascii(*++v) && isspace(*v)) continue; switch (*f) { case 'A': /* address */ #if !_FFR_DPO_CS case 'a': #endif addr = v; break; case 'c': d->d_maxchildren = atoi(v); break; case 'D': /* DeliveryMode */ switch (*v) { case SM_QUEUE: case SM_DEFER: case SM_DELIVER: case SM_FORK: #if _FFR_PROXY case SM_PROXY_REQ: #endif d->d_dm = *v; break; default: syserr("554 5.3.5 Unknown delivery mode %c", *v); break; } break; case 'd': /* delayLA */ d->d_delayLA = atoi(v); break; case 'F': /* address family */ #if !_FFR_DPO_CS case 'f': #endif if (isascii(*v) && isdigit(*v)) d->d_addr.sa.sa_family = atoi(v); #ifdef NETUNIX else if (SM_STRCASEEQ(v, "unix") || SM_STRCASEEQ(v, "local")) d->d_addr.sa.sa_family = AF_UNIX; #endif #if NETINET else if (SM_STRCASEEQ(v, "inet")) d->d_addr.sa.sa_family = AF_INET; #endif #if NETINET6 else if (SM_STRCASEEQ(v, "inet6")) d->d_addr.sa.sa_family = AF_INET6; #endif #if NETISO else if (SM_STRCASEEQ(v, "iso")) d->d_addr.sa.sa_family = AF_ISO; #endif #if NETNS else if (SM_STRCASEEQ(v, "ns")) d->d_addr.sa.sa_family = AF_NS; #endif #if NETX25 else if (SM_STRCASEEQ(v, "x.25")) d->d_addr.sa.sa_family = AF_CCITT; #endif else syserr("554 5.3.5 Unknown address family %s in Family=option", v); break; #if MILTER case 'I': # if !_FFR_DPO_CS case 'i': # endif d->d_inputfilterlist = v; break; #endif /* MILTER */ case 'L': /* listen queue size */ #if !_FFR_DPO_CS case 'l': #endif d->d_listenqueue = atoi(v); break; case 'M': /* modifiers (flags) */ #if !_FFR_DPO_CS case 'm': #endif d->d_mflags = getmodifiers(v, d->d_flags); break; case 'N': /* name */ #if !_FFR_DPO_CS case 'n': #endif d->d_name = v; break; case 'P': /* port */ #if !_FFR_DPO_CS case 'p': #endif port = v; break; case 'q': d->d_queueLA = atoi(v); break; case 'R': /* receive buffer size */ d->d_tcprcvbufsize = atoi(v); break; case 'r': d->d_refuseLA = atoi(v); break; case 'S': /* send buffer size */ #if !_FFR_DPO_CS case 's': #endif d->d_tcpsndbufsize = atoi(v); break; #if _FFR_SS_PER_DAEMON case 'T': /* SuperSafe */ if (tolower(*v) == 'i') d->d_supersafe = SAFE_INTERACTIVE; else if (tolower(*v) == 'p') # if MILTER d->d_supersafe = SAFE_REALLY_POSTMILTER; # else /* MILTER */ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Warning: SuperSafe=PostMilter requires Milter support (-DMILTER)\n"); # endif /* MILTER */ else d->d_supersafe = atobool(v) ? SAFE_REALLY : SAFE_NO; break; #endif /* _FFR_SS_PER_DAEMON */ default: syserr("554 5.3.5 PortOptions parameter \"%s\" unknown", f); } } /* Check addr and port after finding family */ if (addr != NULL) { switch (d->d_addr.sa.sa_family) { #if NETUNIX case AF_UNIX: if (strlen(addr) >= sizeof(d->d_addr.sunix.sun_path)) { errno = ENAMETOOLONG; syserr("setsockaddroptions: domain socket name too long: %s > %ld", addr, (long) sizeof(d->d_addr.sunix.sun_path)); break; } /* file safety check done in opendaemonsocket() */ (void) memset(&d->d_addr.sunix.sun_path, '\0', sizeof(d->d_addr.sunix.sun_path)); (void) sm_strlcpy((char *)&d->d_addr.sunix.sun_path, addr, sizeof(d->d_addr.sunix.sun_path)); break; #endif /* NETUNIX */ #if NETINET case AF_INET: if (!isascii(*addr) || !isdigit(*addr) || ((d->d_addr.sin.sin_addr.s_addr = inet_addr(addr)) == INADDR_NONE)) { register struct hostent *hp; hp = sm_gethostbyname(addr, AF_INET); if (hp == NULL) syserr("554 5.3.0 host \"%s\" unknown", addr); else { while (*(hp->h_addr_list) != NULL && hp->h_addrtype != AF_INET) hp->h_addr_list++; if (*(hp->h_addr_list) == NULL) syserr("554 5.3.0 host \"%s\" unknown", addr); else memmove(&d->d_addr.sin.sin_addr, *(hp->h_addr_list), INADDRSZ); FREEHOSTENT(hp, NULL); } } break; #endif /* NETINET */ #if NETINET6 case AF_INET6: if (anynet_pton(AF_INET6, addr, &d->d_addr.sin6.sin6_addr) != 1) { register struct hostent *hp; hp = sm_gethostbyname(addr, AF_INET6); if (hp == NULL) syserr("554 5.3.0 host \"%s\" unknown", addr); else { while (*(hp->h_addr_list) != NULL && hp->h_addrtype != AF_INET6) hp->h_addr_list++; if (*(hp->h_addr_list) == NULL) syserr("554 5.3.0 host \"%s\" unknown", addr); else memmove(&d->d_addr.sin6.sin6_addr, *(hp->h_addr_list), IN6ADDRSZ); FREEHOSTENT(hp, NULL); } } break; #endif /* NETINET6 */ default: syserr("554 5.3.5 address= option unsupported for family %d", d->d_addr.sa.sa_family); break; } } if (port != NULL) { switch (d->d_addr.sa.sa_family) { #if NETINET case AF_INET: if (isascii(*port) && isdigit(*port)) d->d_addr.sin.sin_port = htons((unsigned short) atoi((const char *) port)); else { # ifdef NO_GETSERVBYNAME syserr("554 5.3.5 invalid port number: %s", port); # else /* NO_GETSERVBYNAME */ register struct servent *sp; sp = getservbyname(port, "tcp"); if (sp == NULL) syserr("554 5.3.5 service \"%s\" unknown", port); else d->d_addr.sin.sin_port = sp->s_port; # endif /* NO_GETSERVBYNAME */ } break; #endif /* NETINET */ #if NETINET6 case AF_INET6: if (isascii(*port) && isdigit(*port)) d->d_addr.sin6.sin6_port = htons((unsigned short) atoi(port)); else { # ifdef NO_GETSERVBYNAME syserr("554 5.3.5 invalid port number: %s", port); # else /* NO_GETSERVBYNAME */ register struct servent *sp; sp = getservbyname(port, "tcp"); if (sp == NULL) syserr("554 5.3.5 service \"%s\" unknown", port); else d->d_addr.sin6.sin6_port = sp->s_port; # endif /* NO_GETSERVBYNAME */ } break; #endif /* NETINET6 */ #if NETISO case AF_ISO: /* assume two byte transport selector */ if (isascii(*port) && isdigit(*port)) portno = htons((unsigned short) atoi(port)); else { # ifdef NO_GETSERVBYNAME syserr("554 5.3.5 invalid port number: %s", port); # else /* NO_GETSERVBYNAME */ register struct servent *sp; sp = getservbyname(port, "tcp"); if (sp == NULL) syserr("554 5.3.5 service \"%s\" unknown", port); else portno = sp->s_port; # endif /* NO_GETSERVBYNAME */ } memmove(TSEL(&d->d_addr.siso), (char *) &portno, 2); break; #endif /* NETISO */ default: syserr("554 5.3.5 Port= option unsupported for family %d", d->d_addr.sa.sa_family); break; } } } /* ** SETDAEMONOPTIONS -- set options for running the MTA daemon ** ** Parameters: ** p -- the options line. ** ** Returns: ** true if successful, false otherwise. ** ** Side Effects: ** increments number of daemons. */ #define DEF_LISTENQUEUE 10 struct dflags { char *d_name; int d_flag; }; static struct dflags DaemonFlags[] = { { "AUTHREQ", D_AUTHREQ }, { "BINDIF", D_BINDIF }, { "CANONREQ", D_CANONREQ }, { "IFNHELO", D_IFNHELO }, { "FQMAIL", D_FQMAIL }, { "FQRCPT", D_FQRCPT }, { "SMTPS", D_SMTPS }, { "UNQUALOK", D_UNQUALOK }, { "NOAUTH", D_NOAUTH }, { "NOCANON", D_NOCANON }, { "NODANE", D_NODANE }, { "NOETRN", D_NOETRN }, { "NOSTS", D_NOSTS }, { "NOTLS", D_NOTLS }, { "ETRNONLY", D_ETRNONLY }, { "OPTIONAL", D_OPTIONAL }, { "DISABLE", D_DISABLE }, { "ISSET", D_ISSET }, #if _FFR_XCNCT { "XCNCT", D_XCNCT }, { "XCNCT_M", D_XCNCT_M }, #endif { NULL, 0 } }; static void printdaemonflags(d) DAEMON_T *d; { register struct dflags *df; bool first = true; for (df = DaemonFlags; df->d_name != NULL; df++) { if (!bitnset(df->d_flag, d->d_flags)) continue; if (first) sm_dprintf("<%s", df->d_name); else sm_dprintf(",%s", df->d_name); first = false; } if (!first) sm_dprintf(">"); } bool setdaemonoptions(p) register char *p; { if (NDaemons >= MAXDAEMONS) return false; Daemons[NDaemons].d_socket = -1; Daemons[NDaemons].d_listenqueue = DEF_LISTENQUEUE; clrbitmap(Daemons[NDaemons].d_flags); setsockaddroptions(p, &Daemons[NDaemons]); #if MILTER if (Daemons[NDaemons].d_inputfilterlist != NULL) Daemons[NDaemons].d_inputfilterlist = newstr(Daemons[NDaemons].d_inputfilterlist); #endif if (Daemons[NDaemons].d_name != NULL) Daemons[NDaemons].d_name = newstr(Daemons[NDaemons].d_name); else { char num[30]; (void) sm_snprintf(num, sizeof(num), "Daemon%d", NDaemons); Daemons[NDaemons].d_name = newstr(num); } if (tTd(37, 1)) { sm_dprintf("Daemon %s flags: ", Daemons[NDaemons].d_name); printdaemonflags(&Daemons[NDaemons]); sm_dprintf("\n"); } ++NDaemons; return true; } /* ** INITDAEMON -- initialize daemon if not yet done. ** ** Parameters: ** none ** ** Returns: ** none ** ** Side Effects: ** initializes structure for one daemon. */ void initdaemon() { if (NDaemons == 0) { Daemons[NDaemons].d_socket = -1; Daemons[NDaemons].d_listenqueue = DEF_LISTENQUEUE; Daemons[NDaemons].d_name = "Daemon0"; NDaemons = 1; } } /* ** SETCLIENTOPTIONS -- set options for running the client ** ** Parameters: ** p -- the options line. ** ** Returns: ** none. */ static DAEMON_T ClientSettings[AF_MAX + 1]; void setclientoptions(p) register char *p; { int family; DAEMON_T d; memset(&d, '\0', sizeof(d)); setsockaddroptions(p, &d); /* grab what we need */ family = d.d_addr.sa.sa_family; STRUCTCOPY(d, ClientSettings[family]); setbitn(D_ISSET, ClientSettings[family].d_flags); /* mark as set */ if (d.d_name != NULL) ClientSettings[family].d_name = newstr(d.d_name); else { char num[30]; (void) sm_snprintf(num, sizeof(num), "Client%d", family); ClientSettings[family].d_name = newstr(num); } } /* ** ADDR_FAMILY -- determine address family from address ** ** Parameters: ** addr -- the string representation of the address ** ** Returns: ** AF_INET, AF_INET6 or AF_UNSPEC ** ** Side Effects: ** none. */ static int addr_family(addr) char *addr; { #if NETINET6 SOCKADDR clt_addr; #endif #if NETINET if (inet_addr(addr) != INADDR_NONE) { if (tTd(16, 9)) sm_dprintf("addr_family(%s): INET\n", addr); return AF_INET; } #endif /* NETINET */ #if NETINET6 if (anynet_pton(AF_INET6, addr, &clt_addr.sin6.sin6_addr) == 1) { if (tTd(16, 9)) sm_dprintf("addr_family(%s): INET6\n", addr); return AF_INET6; } #endif /* NETINET6 */ #if NETUNIX if (*addr == '/') { if (tTd(16, 9)) sm_dprintf("addr_family(%s): LOCAL\n", addr); return AF_UNIX; } #endif /* NETUNIX */ if (tTd(16, 9)) sm_dprintf("addr_family(%s): UNSPEC\n", addr); return AF_UNSPEC; } /* ** CHKCLIENTMODIFIERS -- check whether all clients have set a flag. ** ** Parameters: ** flag -- the flag to test. ** ** Returns: ** true iff all configured clients have set the flag. */ bool chkclientmodifiers(flag) int flag; { int i; bool flagisset; flagisset = false; for (i = 0; i < AF_MAX; i++) { if (bitnset(D_ISSET, ClientSettings[i].d_flags)) { if (!bitnset((char) flag, ClientSettings[i].d_flags)) return false; flagisset = true; } } return flagisset; } #if MILTER /* ** SETUP_DAEMON_MILTERS -- Parse per-socket filters ** ** Parameters: ** none ** ** Returns: ** none */ void setup_daemon_milters() { int idx; if (OpMode == MD_SMTP) { /* no need to configure the daemons */ return; } for (idx = 0; idx < NDaemons; idx++) { if (Daemons[idx].d_inputfilterlist != NULL) { milter_config(Daemons[idx].d_inputfilterlist, Daemons[idx].d_inputfilters, MAXFILTERS); } } } #endif /* MILTER */ /* ** MAKECONNECTION -- make a connection to an SMTP socket on a machine. ** ** Parameters: ** host -- the name of the host. ** port -- the port number to connect to. ** mci -- a pointer to the mail connection information ** structure to be filled in. ** e -- the current envelope. ** enough -- time at which to stop further connection attempts. ** (0 means no limit) ** ** Returns: ** An exit code telling whether the connection could be ** made and if not why not. ** ** Side Effects: ** none. */ static jmp_buf CtxConnectTimeout; SOCKADDR CurHostAddr; /* address of current host */ int makeconnection(host, port, mci, e, enough #if DANE , ptlsa_flags #endif ) char *host; volatile unsigned int port; register MCI *mci; ENVELOPE *e; time_t enough; #if DANE unsigned long *ptlsa_flags; #endif { register volatile int addrno = 0; volatile int s; register struct hostent *volatile hp = (struct hostent *) NULL; SOCKADDR addr; SOCKADDR clt_addr; int save_errno = 0; volatile SOCKADDR_LEN_T addrlen; volatile bool firstconnect = true; SM_EVENT *volatile ev = NULL; #if NETINET6 volatile bool v6found = false; #endif volatile int family; SOCKADDR_LEN_T len; volatile SOCKADDR_LEN_T socksize = 0; volatile bool clt_bind; BITMAP256 d_flags; char *p; extern ENVELOPE BlankEnvelope; #if DANE unsigned long tlsa_flags; #endif #if DANE && NETINET6 struct hostent *volatile hs = (struct hostent *) NULL; #else # define hs ((struct hostent *) NULL) #endif #if DANE SM_REQUIRE(ptlsa_flags != NULL); tlsa_flags = *ptlsa_flags; *ptlsa_flags &= ~TLSAFLADIP; #endif #if _FFR_M_ONLY_IPV4 if (bitnset(M_ONLY_IPV4, mci->mci_mailer->m_flags)) family = AF_INET; else #endif family = InetMode; /* retranslate {daemon_flags} into bitmap */ clrbitmap(d_flags); if ((p = macvalue(macid("{daemon_flags}"), e)) != NULL) { for (; *p != '\0'; p++) { if (!(SM_ISSPACE(*p))) setbitn(bitidx(*p), d_flags); } } #if NETINET6 v4retry: #endif clt_bind = false; /* Set up the address for outgoing connection. */ if (bitnset(D_BINDIF, d_flags) && (p = macvalue(macid("{if_addr}"), e)) != NULL && *p != '\0') { #if NETINET6 char p6[INET6_ADDRSTRLEN]; #endif memset(&clt_addr, '\0', sizeof(clt_addr)); /* infer the address family from the address itself */ clt_addr.sa.sa_family = addr_family(p); switch (clt_addr.sa.sa_family) { #if NETINET case AF_INET: clt_addr.sin.sin_addr.s_addr = inet_addr(p); if (clt_addr.sin.sin_addr.s_addr != INADDR_NONE && clt_addr.sin.sin_addr.s_addr != htonl(INADDR_LOOPBACK)) { clt_bind = true; socksize = sizeof(struct sockaddr_in); } break; #endif /* NETINET */ #if NETINET6 case AF_INET6: if (inet_addr(p) != INADDR_NONE) (void) sm_snprintf(p6, sizeof(p6), "IPv6:::ffff:%s", p); else (void) sm_strlcpy(p6, p, sizeof(p6)); if (anynet_pton(AF_INET6, p6, &clt_addr.sin6.sin6_addr) == 1 && !IN6_IS_ADDR_LOOPBACK(&clt_addr.sin6.sin6_addr)) { clt_bind = true; socksize = sizeof(struct sockaddr_in6); } break; #endif /* NETINET6 */ #if 0 default: syserr("554 5.3.5 Address= option unsupported for family %d", clt_addr.sa.sa_family); break; #endif /* 0 */ } if (clt_bind) family = clt_addr.sa.sa_family; } /* D_BINDIF not set or not available, fallback to ClientPortOptions */ if (!clt_bind) { STRUCTCOPY(ClientSettings[family].d_addr, clt_addr); switch (clt_addr.sa.sa_family) { #if NETINET case AF_INET: if (clt_addr.sin.sin_addr.s_addr == 0) clt_addr.sin.sin_addr.s_addr = LocalDaemon ? htonl(INADDR_LOOPBACK) : INADDR_ANY; else clt_bind = true; if (clt_addr.sin.sin_port != 0) clt_bind = true; socksize = sizeof(struct sockaddr_in); break; #endif /* NETINET */ #if NETINET6 case AF_INET6: if (IN6_IS_ADDR_UNSPECIFIED(&clt_addr.sin6.sin6_addr)) clt_addr.sin6.sin6_addr = (LocalDaemon && V6LoopbackAddrFound) ? in6addr_loopback : in6addr_any; else clt_bind = true; socksize = sizeof(struct sockaddr_in6); if (clt_addr.sin6.sin6_port != 0) clt_bind = true; break; #endif /* NETINET6 */ #if NETISO case AF_ISO: socksize = sizeof(clt_addr.siso); clt_bind = true; break; #endif /* NETISO */ default: break; } } /* ** Set up the address for the mailer. ** Accept "[a.b.c.d]" syntax for host name. */ SM_SET_H_ERRNO(0); errno = 0; memset(&CurHostAddr, '\0', sizeof(CurHostAddr)); memset(&addr, '\0', sizeof(addr)); SmtpPhase = mci->mci_phase = "initial connection"; CurHostName = host; if (host[0] == '[') { p = strchr(host, ']'); if (p != NULL) { #if NETINET unsigned long hid = INADDR_NONE; #endif #if NETINET6 struct sockaddr_in6 hid6; #endif *p = '\0'; #if NETINET6 memset(&hid6, '\0', sizeof(hid6)); #endif #if NETINET if (family == AF_INET && (hid = inet_addr(&host[1])) != INADDR_NONE) { addr.sin.sin_family = AF_INET; addr.sin.sin_addr.s_addr = hid; } else #endif /* NETINET */ #if NETINET6 if (family == AF_INET6 && anynet_pton(AF_INET6, &host[1], &hid6.sin6_addr) == 1) { addr.sin6.sin6_family = AF_INET6; addr.sin6.sin6_addr = hid6.sin6_addr; } else #endif /* NETINET6 */ { /* try it as a host name (avoid MX lookup) */ hp = sm_gethostbyname(&host[1], family); if (hp == NULL && p[-1] == '.') { #if NAMED_BIND int oldopts = _res.options; _res.options &= ~(RES_DEFNAMES|RES_DNSRCH); #endif /* NAMED_BIND */ p[-1] = '\0'; hp = sm_gethostbyname(&host[1], family); p[-1] = '.'; #if NAMED_BIND _res.options = oldopts; #endif } *p = ']'; goto gothostent; } *p = ']'; } if (p == NULL) { extern char MsgBuf[]; usrerrenh("5.1.2", "553 Invalid numeric domain spec \"%s\"", host); mci_setstat(mci, EX_NOHOST, "5.1.2", MsgBuf); errno = EINVAL; return EX_NOHOST; } } else { /* contortion to get around SGI cc complaints */ { p = &host[strlen(host) - 1]; #if DANE if (tTd(16, 40)) sm_dprintf("makeconnection: tlsa_flags=%#lx, host=%s\n", tlsa_flags, host); if (DANEMODE(tlsa_flags) == DANE_SECURE # if DNSSEC_TEST || tTd(8, 120) # endif ) { DNS_REPLY_T *rr; int err, herr; rr = dns_lookup_int(host, C_IN, FAM2T_(family), 0, 0, SM_RES_DNSSEC, 0, &err, &herr); /* ** Check for errors! ** If no ad: turn off TLSA. ** permfail: use "normal" method? ** tempfail: delay or use "normal" method? */ if (rr != NULL && rr->dns_r_h.ad == 1) { *ptlsa_flags |= TLSAFLADIP; if ((TLSAFLTEMP & *ptlsa_flags) != 0) { dns_free_data(rr); rr = NULL; return EX_TEMPFAIL; } } if (rr != NULL) { hp = dns2he(rr, family); # if NETINET6 hs = hp; # endif } /* other possible "tempfails"? */ if (rr == NULL && h_errno == TRY_AGAIN) goto gothostent; dns_free_data(rr); rr = NULL; } #endif /* DANE */ if (hp == NULL) hp = sm_gethostbyname(host, family); if (hp == NULL && *p == '.') { #if NAMED_BIND int oldopts = _res.options; _res.options &= ~(RES_DEFNAMES|RES_DNSRCH); #endif *p = '\0'; hp = sm_gethostbyname(host, family); *p = '.'; #if NAMED_BIND _res.options = oldopts; #endif } } gothostent: if (hp == NULL || hp->h_addr == NULL) { #if NAMED_BIND /* check for name server timeouts */ # if NETINET6 if (WorkAroundBrokenAAAA && family == AF_INET6 && (h_errno == TRY_AGAIN || errno == ETIMEDOUT)) { /* ** An attempt with family AF_INET may ** succeed. By skipping the next section ** of code, we will try AF_INET before ** failing. */ if (tTd(16, 10)) sm_dprintf("makeconnection: WorkAroundBrokenAAAA: Trying AF_INET lookup (AF_INET6 failed)\n"); } else # endif /* NETINET6 */ /* "else" in #if code above */ { if (errno == ETIMEDOUT || # if _FFR_GETHBN_ExFILE # ifdef EMFILE errno == EMFILE || # endif # ifdef ENFILE errno == ENFILE || # endif # endif /* _FFR_GETHBN_ExFILE */ h_errno == TRY_AGAIN || (errno == ECONNREFUSED && UseNameServer)) { save_errno = errno; mci_setstat(mci, EX_TEMPFAIL, "4.4.3", NULL); errno = save_errno; return EX_TEMPFAIL; } } #endif /* NAMED_BIND */ #if NETINET6 /* ** Try v6 first, then fall back to v4. ** If we found a v6 address, but no v4 ** addresses, then TEMPFAIL. */ if (family == AF_INET6) { family = AF_INET; goto v4retry; } if (v6found) goto v6tempfail; #endif /* NETINET6 */ save_errno = errno; mci_setstat(mci, EX_NOHOST, "5.1.2", NULL); errno = save_errno; return EX_NOHOST; } addr.sa.sa_family = hp->h_addrtype; switch (hp->h_addrtype) { #if NETINET case AF_INET: memmove(&addr.sin.sin_addr, hp->h_addr, INADDRSZ); break; #endif /* NETINET */ #if NETINET6 case AF_INET6: memmove(&addr.sin6.sin6_addr, hp->h_addr, IN6ADDRSZ); break; #endif /* NETINET6 */ default: if (hp->h_length > sizeof(addr.sa.sa_data)) { syserr("makeconnection: long sa_data: family %d len %d", hp->h_addrtype, hp->h_length); mci_setstat(mci, EX_NOHOST, "5.1.2", NULL); errno = EINVAL; return EX_NOHOST; } memmove(addr.sa.sa_data, hp->h_addr, hp->h_length); break; } addrno = 1; } #if _FFR_TESTS /* ** Hack for testing. ** Hardcoded: ** 10.1.1.12: see meta1.tns XREF IP address ** 8754: see common.sh XREF SNKPORT2 */ if (tTd(77, 101) && hp != NULL && hp->h_addrtype == AF_INET && addr.sin.sin_addr.s_addr == inet_addr("10.1.1.12")) { addr.sin.sin_addr.s_addr = inet_addr("127.0.0.1"); port = htons(8754); sm_dprintf("hack host=%s addr=[%s].%d\n", host, anynet_ntoa(&addr), ntohs(port)); } #endif /* ** Determine the port number. */ if (port == 0) { #ifdef NO_GETSERVBYNAME # if _FFR_SMTPS_CLIENT if (bitnset(M_SMTPS_CLIENT, mci->mci_mailer->m_flags)) port = htons(465); else # endif /* _FFR_SMTPS_CLIENT */ port = htons(25); #else /* NO_GETSERVBYNAME */ register struct servent *sp; # if _FFR_SMTPS_CLIENT if (bitnset(M_SMTPS_CLIENT, mci->mci_mailer->m_flags)) p = "smtps"; else # endif /* _FFR_SMTPS_CLIENT */ p = "smtp"; sp = getservbyname(p, "tcp"); if (sp == NULL) { if (LogLevel > 2) sm_syslog(LOG_ERR, NOQID, "makeconnection: service \"%s\" unknown", p); # if _FFR_SMTPS_CLIENT if (bitnset(M_SMTPS_CLIENT, mci->mci_mailer->m_flags)) port = htons(465); else # endif /* _FFR_SMTPS_CLIENT */ port = htons(25); } else port = sp->s_port; #endif /* NO_GETSERVBYNAME */ } #if NETINET6 if (addr.sa.sa_family == AF_INET6 && IN6_IS_ADDR_V4MAPPED(&addr.sin6.sin6_addr) && ClientSettings[AF_INET].d_addr.sa.sa_family != 0) { /* ** Ignore mapped IPv4 address since ** there is a ClientPortOptions setting ** for IPv4. */ goto nextaddr; } #endif /* NETINET6 */ switch (addr.sa.sa_family) { #if NETINET case AF_INET: addr.sin.sin_port = port; addrlen = sizeof(struct sockaddr_in); break; #endif /* NETINET */ #if NETINET6 case AF_INET6: addr.sin6.sin6_port = port; addrlen = sizeof(struct sockaddr_in6); break; #endif /* NETINET6 */ #if NETISO case AF_ISO: /* assume two byte transport selector */ memmove(TSEL((struct sockaddr_iso *) &addr), (char *) &port, 2); addrlen = sizeof(struct sockaddr_iso); break; #endif /* NETISO */ default: syserr("Can't connect to address family %d", addr.sa.sa_family); mci_setstat(mci, EX_NOHOST, "5.1.2", NULL); errno = EINVAL; FREEHOSTENT(hp, hs); return EX_NOHOST; } /* ** Try to actually open the connection. */ #if XLA /* if too many connections, don't bother trying */ if (!xla_noqueue_ok(host)) { FREEHOSTENT(hp, hs); return EX_TEMPFAIL; } #endif /* XLA */ #if _FFR_OCC # define OCC_CLOSE occ_close(e, mci, host, &addr) /* HACK!!!! just to see if this can work at all... */ if (occ_exceeded(e, mci, host, &addr)) { FREEHOSTENT(hp, hs); sm_syslog(LOG_DEBUG, e->e_id, "stat=occ_exceeded, host=%s, addr=%s", host, anynet_ntoa(&addr)); /* ** to get a more specific stat= message set errno ** or make up one in sm, see sm_errstring() */ mci_setstat(mci, EX_TEMPFAIL, "4.4.5", "450 occ_exceeded"); /* check D.S.N */ errno = EAGAIN; return EX_TEMPFAIL; } #else /* _FFR_OCC */ # define OCC_CLOSE #endif /* _FFR_OCC */ for (;;) { if (tTd(16, 1)) sm_dprintf("makeconnection (%s [%s].%d (%d))\n", host, anynet_ntoa(&addr), ntohs(port), (int) addr.sa.sa_family); /* save for logging */ CurHostAddr = addr; #if HASRRESVPORT if (bitnset(M_SECURE_PORT, mci->mci_mailer->m_flags)) { int rport = IPPORT_RESERVED - 1; s = rresvport(&rport); } else #endif /* HASRRESVPORT */ /* "else" in #if code above */ { s = socket(addr.sa.sa_family, SOCK_STREAM, 0); } if (s < 0) { save_errno = errno; syserr("makeconnection: cannot create socket"); #if XLA xla_host_end(host); #endif mci_setstat(mci, EX_TEMPFAIL, "4.4.5", NULL); FREEHOSTENT(hp, hs); errno = save_errno; OCC_CLOSE; return EX_TEMPFAIL; } #ifdef SO_SNDBUF if (ClientSettings[family].d_tcpsndbufsize > 0) { if (setsockopt(s, SOL_SOCKET, SO_SNDBUF, (char *) &ClientSettings[family].d_tcpsndbufsize, sizeof(ClientSettings[family].d_tcpsndbufsize)) < 0) syserr("makeconnection: setsockopt(SO_SNDBUF)"); } #endif /* SO_SNDBUF */ #ifdef SO_RCVBUF if (ClientSettings[family].d_tcprcvbufsize > 0) { if (setsockopt(s, SOL_SOCKET, SO_RCVBUF, (char *) &ClientSettings[family].d_tcprcvbufsize, sizeof(ClientSettings[family].d_tcprcvbufsize)) < 0) syserr("makeconnection: setsockopt(SO_RCVBUF)"); } #endif /* SO_RCVBUF */ if (tTd(16, 1)) sm_dprintf("makeconnection: fd=%d\n", s); /* turn on network debugging? */ if (tTd(16, 101)) { int on = 1; (void) setsockopt(s, SOL_SOCKET, SO_DEBUG, (char *)&on, sizeof(on)); } if (e->e_xfp != NULL) /* for debugging */ (void) sm_io_flush(e->e_xfp, SM_TIME_DEFAULT); errno = 0; /* for debugging */ if (clt_bind) { int on = 1; switch (clt_addr.sa.sa_family) { #if NETINET case AF_INET: if (clt_addr.sin.sin_port != 0) (void) setsockopt(s, SOL_SOCKET, SO_REUSEADDR, (char *) &on, sizeof(on)); break; #endif /* NETINET */ #if NETINET6 case AF_INET6: if (clt_addr.sin6.sin6_port != 0) (void) setsockopt(s, SOL_SOCKET, SO_REUSEADDR, (char *) &on, sizeof(on)); break; #endif /* NETINET6 */ } if (bind(s, &clt_addr.sa, socksize) < 0) { save_errno = errno; (void) close(s); errno = save_errno; syserr("makeconnection: cannot bind socket [%s]", anynet_ntoa(&clt_addr)); FREEHOSTENT(hp, hs); errno = save_errno; OCC_CLOSE; return EX_TEMPFAIL; } } /* ** Linux seems to hang in connect for 90 minutes (!!!). ** Time out the connect to avoid this problem. */ if (setjmp(CtxConnectTimeout) == 0) { int i; #if _FFR_TESTS int c_errno; #endif if (e->e_ntries <= 0 && TimeOuts.to_iconnect != 0) ev = sm_setevent(TimeOuts.to_iconnect, connecttimeout, 0); else if (TimeOuts.to_connect != 0) ev = sm_setevent(TimeOuts.to_connect, connecttimeout, 0); else ev = NULL; #if _FFR_TESTS i = 0; c_errno = 0; if (tTd(77, 101) /* && AF_INET == addr.sin.sin_family */ && ntohl(addr.sin.sin_addr.s_addr) >= ntohl(inet_addr("255.255.255.1")) && ntohl(addr.sin.sin_addr.s_addr) <= ntohl(inet_addr("255.255.255.255")) ) { i = -1; c_errno = ntohl(addr.sin.sin_addr.s_addr) - ntohl(inet_addr("255.255.255.0")); sm_dprintf("hack: fail connection=%d, ip=%#x, lower=%#x\n", c_errno , ntohl(addr.sin.sin_addr.s_addr) , ntohl(inet_addr("255.255.255.0"))); } else #endif /* _FFR_TESTS */ /* "else" in #if code above */ switch (ConnectOnlyTo.sa.sa_family) { #if NETINET case AF_INET: addr.sin.sin_addr.s_addr = ConnectOnlyTo.sin.sin_addr.s_addr; addr.sa.sa_family = ConnectOnlyTo.sa.sa_family; if (ConnectOnlyTo.sin.sin_port != 0) { port = ConnectOnlyTo.sin.sin_port; addr.sin.sin_port = port; } break; #endif /* NETINET */ #if NETINET6 case AF_INET6: memmove(&addr.sin6.sin6_addr, &ConnectOnlyTo.sin6.sin6_addr, IN6ADDRSZ); if (ConnectOnlyTo.sin6.sin6_port != 0) { port = ConnectOnlyTo.sin6.sin6_port; addr.sin6.sin6_port = port; } break; #endif /* NETINET6 */ } if (tTd(16, 1)) sm_dprintf("Connecting to [%s].%d...\n", anynet_ntoa(&addr), ntohs(port)); #if _FFR_TESTS if (-1 == i) errno = c_errno; else #endif /* "else" in #if code above */ i = connect(s, (struct sockaddr *) &addr, addrlen); save_errno = errno; if (ev != NULL) sm_clrevent(ev); if (i >= 0) break; } else save_errno = errno; /* couldn't connect.... figure out why */ (void) close(s); /* if running demand-dialed connection, try again */ if (DialDelay > 0 && firstconnect && bitnset(M_DIALDELAY, mci->mci_mailer->m_flags)) { if (tTd(16, 1)) sm_dprintf("Connect failed (%s); trying again...\n", sm_errstring(save_errno)); firstconnect = false; (void) sleep(DialDelay); continue; } if (LogLevel > 13) sm_syslog(LOG_INFO, e->e_id, "makeconnection (%s [%s].%d (%d)) failed: %s", host, anynet_ntoa(&addr), ntohs(port), (int) addr.sa.sa_family, sm_errstring(save_errno)); #if NETINET6 nextaddr: #endif /* NETINET6 */ if (hp != NULL && hp->h_addr_list[addrno] != NULL && (enough == 0 || curtime() < enough)) { if (tTd(16, 1)) sm_dprintf("Connect failed (%s); trying new address....\n", sm_errstring(save_errno)); switch (addr.sa.sa_family) { #if NETINET case AF_INET: memmove(&addr.sin.sin_addr, hp->h_addr_list[addrno++], INADDRSZ); break; #endif /* NETINET */ #if NETINET6 case AF_INET6: memmove(&addr.sin6.sin6_addr, hp->h_addr_list[addrno++], IN6ADDRSZ); break; #endif /* NETINET6 */ default: memmove(addr.sa.sa_data, hp->h_addr_list[addrno++], hp->h_length); break; } continue; } errno = save_errno; #if NETINET6 if (family == AF_INET6) { if (tTd(16, 1)) sm_dprintf("Connect failed (%s); retrying with AF_INET....\n", sm_errstring(save_errno)); v6found = true; family = AF_INET; FREEHOSTENT(hp, hs); goto v4retry; } v6tempfail: #endif /* NETINET6 */ /* couldn't open connection */ #if NETINET6 /* Don't clobber an already saved errno from v4retry */ if (errno > 0) #endif save_errno = errno; if (tTd(16, 1)) sm_dprintf("Connect failed (%s)\n", sm_errstring(save_errno)); #if XLA xla_host_end(host); #endif mci_setstat(mci, EX_TEMPFAIL, "4.4.1", NULL); FREEHOSTENT(hp, hs); errno = save_errno; OCC_CLOSE; return EX_TEMPFAIL; } FREEHOSTENT(hp, hs); /* connection ok, put it into canonical form */ mci->mci_out = NULL; if ((mci->mci_out = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &s, SM_IO_WRONLY_B, NULL)) == NULL || (s = dup(s)) < 0 || (mci->mci_in = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &s, SM_IO_RDONLY_B, NULL)) == NULL) { save_errno = errno; syserr("cannot open SMTP client channel, fd=%d", s); mci_setstat(mci, EX_TEMPFAIL, "4.4.5", NULL); SM_CLOSE_FP(mci->mci_out); (void) close(s); errno = save_errno; OCC_CLOSE; return EX_TEMPFAIL; } sm_io_automode(mci->mci_out, mci->mci_in); /* set {client_flags} */ if (ClientSettings[addr.sa.sa_family].d_mflags != NULL) { char flags[64]; /* XXX */ /* ** For now just concatenate the flags as there is no ** overlap yet. */ p = macvalue(macid("{client_flags}"), e); flags[0] = '\0'; if (!SM_IS_EMPTY(p)) { (void) sm_strlcpy(flags, p, sizeof(flags)); (void) sm_strlcat(flags, " ", sizeof(flags)); } (void) sm_strlcat(flags, ClientSettings[addr.sa.sa_family].d_mflags, sizeof(flags)); macdefine(&mci->mci_macro, A_PERM, macid("{client_flags}"), flags); } /* "add" {client_flags} to bitmap */ if (bitnset(D_IFNHELO, ClientSettings[addr.sa.sa_family].d_flags)) { /* look for just this one flag */ setbitn(D_IFNHELO, d_flags); } /* find out name for Interface through which we connect */ len = sizeof(addr); if (getsockname(s, &addr.sa, &len) == 0) { char *name; if (!isloopback(addr)) { char familystr[5]; macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{if_addr_out}"), anynet_ntoa(&addr)); (void) sm_snprintf(familystr, sizeof(familystr), "%d", addr.sa.sa_family); macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{if_family_out}"), familystr); } else { macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{if_addr_out}"), NULL); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{if_family_out}"), NULL); } name = hostnamebyanyaddr(&addr); macdefine(&BlankEnvelope.e_macro, A_TEMP, macid("{if_name_out}"), name); if (LogLevel > 11) { /* log connection information */ sm_syslog(LOG_INFO, e->e_id, "SMTP outgoing connect on %.40s", name); } if (bitnset(D_IFNHELO, d_flags)) { if (name[0] != '[' && strchr(name, '.') != NULL) mci->mci_heloname = newstr(name); } } else { macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{if_name_out}"), NULL); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{if_addr_out}"), NULL); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{if_family_out}"), NULL); } /* Use the configured HeloName as appropriate */ if (HeloName != NULL && HeloName[0] != '\0') { SM_FREE(mci->mci_heloname); mci->mci_heloname = newstr(HeloName); } mci_setstat(mci, EX_OK, NULL, NULL); return EX_OK; } static void connecttimeout(ignore) int ignore; { /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ errno = ETIMEDOUT; longjmp(CtxConnectTimeout, 1); } /* ** MAKECONNECTION_DS -- make a connection to a domain socket. ** ** Parameters: ** mux_path -- the path of the socket to connect to. ** mci -- a pointer to the mail connection information ** structure to be filled in. ** ** Returns: ** An exit code telling whether the connection could be ** made and if not why not. ** ** Side Effects: ** none. */ #if NETUNIX int makeconnection_ds(mux_path, mci) char *mux_path; register MCI *mci; { int sock; int rval, save_errno; long sff = SFF_SAFEDIRPATH|SFF_OPENASROOT|SFF_NOLINK|SFF_ROOTOK|SFF_EXECOK; struct sockaddr_un unix_addr; /* if not safe, don't connect */ rval = safefile(mux_path, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR|S_IWUSR, NULL); if (rval != 0) { syserr("makeconnection_ds: unsafe domain socket %s", mux_path); mci_setstat(mci, EX_TEMPFAIL, "4.3.5", NULL); errno = rval; return EX_TEMPFAIL; } /* prepare address structure */ memset(&unix_addr, '\0', sizeof(unix_addr)); unix_addr.sun_family = AF_UNIX; if (strlen(mux_path) >= sizeof(unix_addr.sun_path)) { syserr("makeconnection_ds: domain socket name %s too long", mux_path); /* XXX why TEMPFAIL but 5.x.y ? */ mci_setstat(mci, EX_TEMPFAIL, "5.3.5", NULL); errno = ENAMETOOLONG; return EX_UNAVAILABLE; } (void) sm_strlcpy(unix_addr.sun_path, mux_path, sizeof(unix_addr.sun_path)); /* initialize domain socket */ sock = socket(AF_UNIX, SOCK_STREAM, 0); if (sock == -1) { save_errno = errno; syserr("makeconnection_ds: could not create domain socket %s", mux_path); mci_setstat(mci, EX_TEMPFAIL, "4.4.5", NULL); errno = save_errno; return EX_TEMPFAIL; } /* connect to server */ if (connect(sock, (struct sockaddr *) &unix_addr, sizeof(unix_addr)) == -1) { save_errno = errno; syserr("Could not connect to socket %s", mux_path); mci_setstat(mci, EX_TEMPFAIL, "4.4.1", NULL); (void) close(sock); errno = save_errno; return EX_TEMPFAIL; } /* connection ok, put it into canonical form */ mci->mci_out = NULL; if ((mci->mci_out = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &sock, SM_IO_WRONLY_B, NULL)) == NULL || (sock = dup(sock)) < 0 || (mci->mci_in = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &sock, SM_IO_RDONLY_B, NULL)) == NULL) { save_errno = errno; syserr("cannot open SMTP client channel, fd=%d", sock); mci_setstat(mci, EX_TEMPFAIL, "4.4.5", NULL); SM_CLOSE_FP(mci->mci_out); (void) close(sock); errno = save_errno; return EX_TEMPFAIL; } sm_io_automode(mci->mci_out, mci->mci_in); mci_setstat(mci, EX_OK, NULL, NULL); errno = 0; return EX_OK; } #endif /* NETUNIX */ /* ** SHUTDOWN_DAEMON -- Performs a clean shutdown of the daemon ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** closes control socket, exits. */ void shutdown_daemon() { int i; char *reason; sm_allsignals(true); reason = ShutdownRequest; ShutdownRequest = NULL; PendingSignal = 0; if (LogLevel > 9) sm_syslog(LOG_INFO, CurEnv->e_id, "stopping daemon, reason=%s", reason == NULL ? "implicit call" : reason); FileName = NULL; closecontrolsocket(true); #if XLA xla_all_end(); #endif for (i = 0; i < NDaemons; i++) { if (Daemons[i].d_socket >= 0) { (void) close(Daemons[i].d_socket); Daemons[i].d_socket = -1; #if NETUNIX /* Remove named sockets */ if (Daemons[i].d_addr.sa.sa_family == AF_UNIX) { int rval; long sff = SFF_SAFEDIRPATH|SFF_OPENASROOT|SFF_NOLINK|SFF_MUSTOWN|SFF_EXECOK|SFF_CREAT; /* if not safe, don't use it */ rval = safefile(Daemons[i].d_addr.sunix.sun_path, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR|S_IWUSR, NULL); if (rval == 0 && unlink(Daemons[i].d_addr.sunix.sun_path) < 0) { sm_syslog(LOG_WARNING, NOQID, "Could not remove daemon %s socket: %s: %s", Daemons[i].d_name, Daemons[i].d_addr.sunix.sun_path, sm_errstring(errno)); } } #endif /* NETUNIX */ } } finis(false, true, EX_OK); } /* ** RESTART_DAEMON -- Performs a clean restart of the daemon ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** restarts the daemon or exits if restart fails. */ /* Make a non-DFL/IGN signal a noop */ #define SM_NOOP_SIGNAL(sig, old) \ do \ { \ (old) = sm_signal((sig), sm_signal_noop); \ if ((old) == SIG_IGN || (old) == SIG_DFL) \ (void) sm_signal((sig), (old)); \ } while (0) void restart_daemon() { bool drop; int save_errno; char *reason; sigfunc_t ignore, oalrm, ousr1; extern int DtableSize; /* clear the events to turn off SIGALRMs */ sm_clear_events(); sm_allsignals(true); reason = RestartRequest; RestartRequest = NULL; PendingSignal = 0; if (SaveArgv[0][0] != '/') { if (LogLevel > 3) sm_syslog(LOG_INFO, NOQID, "could not restart: need full path"); finis(false, true, EX_OSFILE); /* NOTREACHED */ } if (LogLevel > 3) sm_syslog(LOG_INFO, NOQID, "restarting %s due to %s", SaveArgv[0], reason == NULL ? "implicit call" : reason); closecontrolsocket(true); #if SM_CONF_SHM cleanup_shm(DaemonPid == getpid()); #endif /* close locked pid file */ close_sendmail_pid(); /* ** Want to drop to the user who started the process in all cases ** *but* when running as "smmsp" for the clientmqueue queue run ** daemon. In that case, UseMSP will be true, RunAsUid should not ** be root, and RealUid should be either 0 or RunAsUid. */ drop = !(UseMSP && RunAsUid != 0 && (RealUid == 0 || RealUid == RunAsUid)); if (drop_privileges(drop) != EX_OK) { if (LogLevel > 0) sm_syslog(LOG_ALERT, NOQID, "could not drop privileges: %s", sm_errstring(errno)); finis(false, true, EX_OSERR); /* NOTREACHED */ } sm_close_on_exec(STDERR_FILENO + 1, DtableSize); /* ** Need to allow signals before execve() to make them "harmless". ** However, the default action can be "terminate", so it isn't ** really harmless. Setting signals to IGN will cause them to be ** ignored in the new process to, so that isn't a good alternative. */ SM_NOOP_SIGNAL(SIGALRM, oalrm); SM_NOOP_SIGNAL(SIGCHLD, ignore); SM_NOOP_SIGNAL(SIGHUP, ignore); SM_NOOP_SIGNAL(SIGINT, ignore); SM_NOOP_SIGNAL(SIGPIPE, ignore); SM_NOOP_SIGNAL(SIGTERM, ignore); #ifdef SIGUSR1 SM_NOOP_SIGNAL(SIGUSR1, ousr1); #endif /* Turn back on signals */ sm_allsignals(false); (void) execve(SaveArgv[0], (ARGV_T) SaveArgv, (ARGV_T) ExternalEnviron); save_errno = errno; /* block signals again and restore needed signals */ sm_allsignals(true); /* For finis() events */ (void) sm_signal(SIGALRM, oalrm); #ifdef SIGUSR1 /* For debugging finis() */ (void) sm_signal(SIGUSR1, ousr1); #endif errno = save_errno; if (LogLevel > 0) sm_syslog(LOG_ALERT, NOQID, "could not exec %s: %s", SaveArgv[0], sm_errstring(errno)); finis(false, true, EX_OSFILE); /* NOTREACHED */ } /* ** MYHOSTNAME -- return the name of this host. ** ** Parameters: ** hostbuf -- a place to return the name of this host. ** size -- the size of hostbuf. ** ** Returns: ** A list of aliases for this host. ** ** Side Effects: ** Adds numeric codes to $=w. */ struct hostent * myhostname(hostbuf, size) char hostbuf[]; int size; { register struct hostent *hp; if (gethostname(hostbuf, size) < 0 || hostbuf[0] == '\0') (void) sm_strlcpy(hostbuf, "localhost", size); hp = sm_gethostbyname(hostbuf, InetMode); #if NETINET && NETINET6 if (hp == NULL && InetMode == AF_INET6) { /* ** It's possible that this IPv6 enabled machine doesn't ** actually have any IPv6 interfaces and, therefore, no ** IPv6 addresses. Fall back to AF_INET. */ hp = sm_gethostbyname(hostbuf, AF_INET); } #endif /* NETINET && NETINET6 */ if (hp == NULL) return NULL; if (strchr(hp->h_name, '.') != NULL || strchr(hostbuf, '.') == NULL) (void) cleanstrcpy(hostbuf, hp->h_name, size); #if NETINFO if (strchr(hostbuf, '.') == NULL) { char *domainname; domainname = ni_propval("/locations", NULL, "resolver", "domain", '\0'); if (domainname != NULL && strlen(domainname) + strlen(hostbuf) + 1 < size) (void) sm_strlcat2(hostbuf, ".", domainname, size); } #endif /* NETINFO */ /* ** If there is still no dot in the name, try looking for a ** dotted alias. */ if (strchr(hostbuf, '.') == NULL) { char **ha; for (ha = hp->h_aliases; ha != NULL && *ha != NULL; ha++) { if (strchr(*ha, '.') != NULL) { (void) cleanstrcpy(hostbuf, *ha, size - 1); hostbuf[size - 1] = '\0'; break; } } } /* ** If _still_ no dot, wait for a while and try again -- it is ** possible that some service is starting up. This can result ** in excessive delays if the system is badly configured, but ** there really isn't a way around that, particularly given that ** the config file hasn't been read at this point. ** All in all, a bit of a mess. */ if (strchr(hostbuf, '.') == NULL && getcanonname(hostbuf, size, true, NULL) == HOST_NOTFOUND) { sm_syslog(LocalDaemon ? LOG_WARNING : LOG_CRIT, NOQID, "My unqualified host name (%s) unknown; sleeping for retry", hostbuf); message("My unqualified host name (%s) unknown; sleeping for retry", hostbuf); (void) sleep(60); if (getcanonname(hostbuf, size, true, NULL) == HOST_NOTFOUND) { sm_syslog(LocalDaemon ? LOG_WARNING : LOG_ALERT, NOQID, "unable to qualify my own domain name (%s) -- using short name", hostbuf); message("WARNING: unable to qualify my own domain name (%s) -- using short name", hostbuf); } } return hp; } /* ** ADDRCMP -- compare two host addresses ** ** Parameters: ** hp -- hostent structure for the first address ** ha -- actual first address ** sa -- second address ** ** Returns: ** 0 -- if ha and sa match ** else -- they don't match */ static int addrcmp(hp, ha, sa) struct hostent *hp; char *ha; SOCKADDR *sa; { #if NETINET6 unsigned char *a; #endif switch (sa->sa.sa_family) { #if NETINET case AF_INET: if (hp->h_addrtype == AF_INET) return memcmp(ha, (char *) &sa->sin.sin_addr, INADDRSZ); break; #endif #if NETINET6 case AF_INET6: a = (unsigned char *) &sa->sin6.sin6_addr; /* Straight binary comparison */ if (hp->h_addrtype == AF_INET6) return memcmp(ha, a, IN6ADDRSZ); /* If IPv4-mapped IPv6 address, compare the IPv4 section */ if (hp->h_addrtype == AF_INET && IN6_IS_ADDR_V4MAPPED(&sa->sin6.sin6_addr)) return memcmp(a + IN6ADDRSZ - INADDRSZ, ha, INADDRSZ); break; #endif /* NETINET6 */ } return -1; } /* ** GETAUTHINFO -- get the real host name associated with a file descriptor ** ** Uses RFC1413 protocol to try to get info from the other end. ** ** Parameters: ** fd -- the descriptor ** may_be_forged -- an outage that is set to true if the ** forward lookup of RealHostName does not match ** RealHostAddr; set to false if they do match. ** ** Returns: ** The user@host information associated with this descriptor. */ static jmp_buf CtxAuthTimeout; static void authtimeout(ignore) int ignore; { /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ errno = ETIMEDOUT; longjmp(CtxAuthTimeout, 1); } char * getauthinfo(fd, may_be_forged) int fd; bool *may_be_forged; { unsigned short SM_NONVOLATILE port = 0; SOCKADDR_LEN_T falen; register char *volatile p = NULL; SOCKADDR la; SOCKADDR_LEN_T lalen; #ifndef NO_GETSERVBYNAME register struct servent *sp; # if NETINET static unsigned short port4 = 0; # endif # if NETINET6 static unsigned short port6 = 0; # endif #endif /* ! NO_GETSERVBYNAME */ volatile int s; int i = 0; size_t len; SM_EVENT *ev; int nleft; struct hostent *hp; char *ostype = NULL; char **ha; char ibuf[MAXNAME + 1]; /* EAI:ok? it's a hostname from OS */ static char hbuf[MAXNAME + MAXAUTHINFO + 11]; /* EAI:ok? (as above)*/ *may_be_forged = true; falen = sizeof(RealHostAddr); if (isatty(fd) || (i = getpeername(fd, &RealHostAddr.sa, &falen)) < 0 || falen <= 0 || RealHostAddr.sa.sa_family == 0) { if (i < 0) { /* ** ENOTSOCK is OK: bail on anything else, but reset ** errno in this case, so a mis-report doesn't ** happen later. */ if (errno != ENOTSOCK) return NULL; errno = 0; } *may_be_forged = false; (void) sm_strlcpyn(hbuf, sizeof(hbuf), 2, RealUserName, "@localhost"); if (tTd(9, 1)) sm_dprintf("getauthinfo: %s\n", hbuf); return hbuf; } if (RealHostName == NULL) { /* translate that to a host name */ RealHostName = newstr(hostnamebyanyaddr(&RealHostAddr)); if (strlen(RealHostName) > MAXNAME) RealHostName[MAXNAME] = '\0'; /* XXX - 1 ? */ } /* cross check RealHostName with forward DNS lookup */ if (anynet_ntoa(&RealHostAddr)[0] == '[' || RealHostName[0] == '[') *may_be_forged = false; else { int family; family = RealHostAddr.sa.sa_family; #if NETINET6 && NEEDSGETIPNODE /* ** If RealHostAddr is an IPv6 connection with an ** IPv4-mapped address, we need RealHostName's IPv4 ** address(es) for addrcmp() to compare against ** RealHostAddr. ** ** Actually, we only need to do this for systems ** which NEEDSGETIPNODE since the real getipnodebyname() ** already does V4MAPPED address via the AI_V4MAPPEDCFG ** flag. A better fix to this problem is to add this ** functionality to our stub getipnodebyname(). */ if (family == AF_INET6 && IN6_IS_ADDR_V4MAPPED(&RealHostAddr.sin6.sin6_addr)) family = AF_INET; #endif /* NETINET6 && NEEDSGETIPNODE */ /* try to match the reverse against the forward lookup */ hp = sm_gethostbyname(RealHostName, family); if (hp != NULL) { for (ha = hp->h_addr_list; *ha != NULL; ha++) { if (addrcmp(hp, *ha, &RealHostAddr) == 0) { *may_be_forged = false; break; } } FREEHOSTENT(hp, NULL); } } if (TimeOuts.to_ident == 0) goto noident; lalen = sizeof(la); switch (RealHostAddr.sa.sa_family) { #if NETINET case AF_INET: if (getsockname(fd, &la.sa, &lalen) < 0 || lalen <= 0 || la.sa.sa_family != AF_INET) { /* no ident info */ goto noident; } port = RealHostAddr.sin.sin_port; /* create ident query */ (void) sm_snprintf(ibuf, sizeof(ibuf), "%d,%d\r\n", ntohs(RealHostAddr.sin.sin_port), ntohs(la.sin.sin_port)); /* create local address */ la.sin.sin_port = 0; /* create foreign address */ # ifdef NO_GETSERVBYNAME RealHostAddr.sin.sin_port = htons(113); # else /* NO_GETSERVBYNAME */ /* ** getservbyname() consumes about 5% of the time ** when receiving a small message (almost all of the time ** spent in this routine). ** Hence we store the port in a static variable ** to save this time. ** The portnumber shouldn't change very often... ** This code makes the assumption that the port number ** is not 0. */ if (port4 == 0) { sp = getservbyname("auth", "tcp"); if (sp != NULL) port4 = sp->s_port; else port4 = htons(113); } RealHostAddr.sin.sin_port = port4; break; # endif /* NO_GETSERVBYNAME */ #endif /* NETINET */ #if NETINET6 case AF_INET6: if (getsockname(fd, &la.sa, &lalen) < 0 || lalen <= 0 || la.sa.sa_family != AF_INET6) { /* no ident info */ goto noident; } port = RealHostAddr.sin6.sin6_port; /* create ident query */ (void) sm_snprintf(ibuf, sizeof(ibuf), "%d,%d\r\n", ntohs(RealHostAddr.sin6.sin6_port), ntohs(la.sin6.sin6_port)); /* create local address */ la.sin6.sin6_port = 0; /* create foreign address */ # ifdef NO_GETSERVBYNAME RealHostAddr.sin6.sin6_port = htons(113); # else /* NO_GETSERVBYNAME */ if (port6 == 0) { sp = getservbyname("auth", "tcp"); if (sp != NULL) port6 = sp->s_port; else port6 = htons(113); } RealHostAddr.sin6.sin6_port = port6; break; # endif /* NO_GETSERVBYNAME */ #endif /* NETINET6 */ default: /* no ident info */ goto noident; } s = -1; if (setjmp(CtxAuthTimeout) != 0) { if (s >= 0) (void) close(s); goto noident; } /* put a timeout around the whole thing */ ev = sm_setevent(TimeOuts.to_ident, authtimeout, 0); /* connect to foreign IDENT server using same address as SMTP socket */ s = socket(la.sa.sa_family, SOCK_STREAM, 0); if (s < 0) { sm_clrevent(ev); goto noident; } if (bind(s, &la.sa, lalen) < 0 || connect(s, &RealHostAddr.sa, lalen) < 0) goto closeident; if (tTd(9, 10)) sm_dprintf("getauthinfo: sent %s", ibuf); /* send query */ if (write(s, ibuf, strlen(ibuf)) < 0) goto closeident; /* get result */ p = &ibuf[0]; nleft = sizeof(ibuf) - 1; while ((i = read(s, p, nleft)) > 0) { char *s; p += i; nleft -= i; *p = '\0'; if ((s = strchr(ibuf, '\n')) != NULL) { if (p > s + 1) { p = s + 1; *p = '\0'; } break; } if (nleft <= 0) break; } (void) close(s); sm_clrevent(ev); if (i < 0 || p == &ibuf[0]) goto noident; if (p >= &ibuf[2] && *--p == '\n' && *--p == '\r') p--; *++p = '\0'; if (tTd(9, 3)) sm_dprintf("getauthinfo: got %s\n", ibuf); /* parse result */ p = strchr(ibuf, ':'); if (p == NULL) { /* malformed response */ goto noident; } while (isascii(*++p) && isspace(*p)) continue; if (sm_strncasecmp(p, "userid", 6) != 0) { /* presumably an error string */ goto noident; } p += 6; while (SM_ISSPACE(*p)) p++; if (*p++ != ':') { /* either useridxx or malformed response */ goto noident; } /* p now points to the OSTYPE field */ while (SM_ISSPACE(*p)) p++; ostype = p; p = strchr(p, ':'); if (p == NULL) { /* malformed response */ goto noident; } else { char *charset; *p = '\0'; charset = strchr(ostype, ','); if (charset != NULL) *charset = '\0'; } /* 1413 says don't do this -- but it's broken otherwise */ while (isascii(*++p) && isspace(*p)) continue; /* p now points to the authenticated name -- copy carefully */ if (sm_strncasecmp(ostype, "other", 5) == 0 && (ostype[5] == ' ' || ostype[5] == '\0')) { (void) sm_strlcpy(hbuf, "IDENT:", sizeof(hbuf)); cleanstrcpy(&hbuf[6], p, MAXAUTHINFO); } else cleanstrcpy(hbuf, p, MAXAUTHINFO); len = strlen(hbuf); (void) sm_strlcpyn(&hbuf[len], sizeof(hbuf) - len, 2, "@", RealHostName == NULL ? "localhost" : RealHostName); goto postident; closeident: (void) close(s); sm_clrevent(ev); noident: /* put back the original incoming port */ switch (RealHostAddr.sa.sa_family) { #if NETINET case AF_INET: if (port > 0) RealHostAddr.sin.sin_port = port; break; #endif /* NETINET */ #if NETINET6 case AF_INET6: if (port > 0) RealHostAddr.sin6.sin6_port = port; break; #endif /* NETINET6 */ } if (RealHostName == NULL) { if (tTd(9, 1)) sm_dprintf("getauthinfo: NULL\n"); return NULL; } (void) sm_strlcpy(hbuf, RealHostName, sizeof(hbuf)); postident: #if IP_SRCROUTE # ifndef GET_IPOPT_DST # define GET_IPOPT_DST(dst) (dst) # endif /* ** Extract IP source routing information. ** ** Format of output for a connection from site a through b ** through c to d: ** loose: @site-c@site-b:site-a ** strict: !@site-c@site-b:site-a ** ** o - pointer within ipopt_list structure. ** q - pointer within ls/ss rr route data ** p - pointer to hbuf */ if (RealHostAddr.sa.sa_family == AF_INET) { SOCKOPT_LEN_T ipoptlen; int j; unsigned char *q; unsigned char *o; int l; struct IPOPTION ipopt; ipoptlen = sizeof(ipopt); if (getsockopt(fd, IPPROTO_IP, IP_OPTIONS, (char *) &ipopt, &ipoptlen) < 0) goto noipsr; if (ipoptlen == 0) goto noipsr; o = (unsigned char *) ipopt.IP_LIST; while (o != NULL && o < (unsigned char *) &ipopt + ipoptlen) { switch (*o) { case IPOPT_EOL: o = NULL; break; case IPOPT_NOP: o++; break; case IPOPT_SSRR: case IPOPT_LSRR: /* ** Source routing. ** o[0] is the option type (loose/strict). ** o[1] is the length of this option, ** including option type and ** length. ** o[2] is the pointer into the route ** data. ** o[3] begins the route data. */ p = &hbuf[strlen(hbuf)]; l = sizeof(hbuf) - (hbuf - p) - 6; (void) sm_snprintf(p, SPACELEFT(hbuf, p), " [%s@%.*s", *o == IPOPT_SSRR ? "!" : "", l > 240 ? 120 : l / 2, inet_ntoa(GET_IPOPT_DST(ipopt.IP_DST))); i = strlen(p); p += i; l -= strlen(p); j = o[1] / sizeof(struct in_addr) - 1; /* q skips length and router pointer to data */ q = &o[3]; for ( ; j >= 0; j--) { struct in_addr addr; memcpy(&addr, q, sizeof(addr)); (void) sm_snprintf(p, SPACELEFT(hbuf, p), "%c%.*s", j != 0 ? '@' : ':', l > 240 ? 120 : j == 0 ? l : l / 2, inet_ntoa(addr)); i = strlen(p); p += i; l -= i + 1; q += sizeof(struct in_addr); } o += o[1]; break; default: /* Skip over option */ o += o[1]; break; } } (void) sm_snprintf(p, SPACELEFT(hbuf, p), "]"); goto postipsr; } noipsr: #endif /* IP_SRCROUTE */ if (RealHostName != NULL && RealHostName[0] != '[') { p = &hbuf[strlen(hbuf)]; (void) sm_snprintf(p, SPACELEFT(hbuf, p), " [%.100s]", anynet_ntoa(&RealHostAddr)); } if (*may_be_forged) { p = &hbuf[strlen(hbuf)]; (void) sm_strlcpy(p, " (may be forged)", SPACELEFT(hbuf, p)); macdefine(&BlankEnvelope.e_macro, A_PERM, macid("{client_resolve}"), "FORGED"); } #if IP_SRCROUTE postipsr: #endif /* IP_SRCROUTE */ /* put back the original incoming port */ switch (RealHostAddr.sa.sa_family) { #if NETINET case AF_INET: if (port > 0) RealHostAddr.sin.sin_port = port; break; #endif /* NETINET */ #if NETINET6 case AF_INET6: if (port > 0) RealHostAddr.sin6.sin6_port = port; break; #endif /* NETINET6 */ } if (tTd(9, 1)) sm_dprintf("getauthinfo: %s\n", hbuf); return hbuf; } /* ** HOST_MAP_LOOKUP -- turn a hostname into canonical form ** ** Parameters: ** map -- a pointer to this map. ** name -- the (presumably unqualified) hostname. ** av -- unused -- for compatibility with other mapping ** functions. ** statp -- an exit status (out parameter) -- set to ** EX_TEMPFAIL if the name server is unavailable. ** ** Returns: ** The mapping, if found. ** NULL if no mapping found. ** ** Side Effects: ** Looks up the host specified in hbuf. If it is not ** the canonical name for that host, return the canonical ** name (unless MF_MATCHONLY is set, which will cause the ** status only to be returned). */ char * host_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { register struct hostent *hp; #if NETINET struct in_addr in_addr; #endif #if NETINET6 struct in6_addr in6_addr; #endif char *cp, *ans = NULL; register STAB *s; time_t now; #if NAMED_BIND time_t SM_NONVOLATILE retrans = 0; int SM_NONVOLATILE retry = 0; #endif char hbuf[MAXNAME + 1]; /* is (host)name in 'x' format? */ /* ** See if we have already looked up this name. If so, just ** return it (unless expired). */ now = curtime(); s = stab(name, ST_NAMECANON, ST_ENTER); if (bitset(NCF_VALID, s->s_namecanon.nc_flags) && s->s_namecanon.nc_exp >= now) { if (tTd(9, 1)) sm_dprintf("host_map_lookup(%s) => CACHE %s\n", name, s->s_namecanon.nc_cname == NULL ? "NULL" : s->s_namecanon.nc_cname); errno = s->s_namecanon.nc_errno; SM_SET_H_ERRNO(s->s_namecanon.nc_herrno); *statp = s->s_namecanon.nc_stat; if (*statp == EX_TEMPFAIL) { CurEnv->e_status = "4.4.3"; message("851 %s: Name server timeout", shortenstring(name, 33)); } if (*statp != EX_OK) return NULL; if (s->s_namecanon.nc_cname == NULL) { syserr("host_map_lookup(%s): bogus NULL cache entry, errno=%d, h_errno=%d", name, s->s_namecanon.nc_errno, s->s_namecanon.nc_herrno); return NULL; } if (bitset(NCF_SECURE, s->s_namecanon.nc_flags)) map->map_mflags |= MF_SECURE; else map->map_mflags &= ~MF_SECURE; if (bitset(MF_MATCHONLY, map->map_mflags)) cp = map_rewrite(map, name, strlen(name), NULL); else cp = map_rewrite(map, s->s_namecanon.nc_cname, strlen(s->s_namecanon.nc_cname), av); return cp; } /* ** If we are running without a regular network connection (usually ** dial-on-demand) and we are just queueing, we want to avoid DNS ** lookups because those could try to connect to a server. */ if (CurEnv->e_sendmode == SM_DEFER && bitset(MF_DEFER, map->map_mflags)) { if (tTd(9, 1)) sm_dprintf("host_map_lookup(%s) => DEFERRED\n", name); *statp = EX_TEMPFAIL; return NULL; } /* ** If first character is a bracket, then it is an address ** lookup. Address is copied into a temporary buffer to ** strip the brackets and to preserve name if address is ** unknown. */ if (tTd(9, 1)) sm_dprintf("host_map_lookup(%s) => ", name); #if NAMED_BIND if (map->map_timeout > 0) { retrans = _res.retrans; _res.retrans = map->map_timeout; } if (map->map_retry > 0) { retry = _res.retry; _res.retry = map->map_retry; } #endif /* NAMED_BIND */ /* set default TTL */ s->s_namecanon.nc_exp = now + SM_DEFAULT_TTL; if (*name != '[') { int ttl, r; #if USE_EAI bool utf8; utf8 = !str_is_print(name); if (utf8) { (void) sm_strlcpy(hbuf, hn2alabel(name), sizeof(hbuf)); /* if this is not a FQHN then do not restore it */ utf8 = strchr(hbuf, '.') != NULL; } else #endif /* USE_EAI */ /* "else" in #if code above */ { (void) sm_strlcpy(hbuf, name, sizeof(hbuf)); } r = getcanonname(hbuf, sizeof(hbuf) - 1, !HasWildcardMX, &ttl); if (r != HOST_NOTFOUND) { #if USE_EAI /* ** Restore original. XXX Check if modified? ** If so, convert it via hn2ulabel() ** (not available yet)? */ if (utf8) (void) sm_strlcpy(hbuf, name, sizeof(hbuf)); #endif ans = hbuf; if (ttl > 0) s->s_namecanon.nc_exp = now + SM_MIN(ttl, SM_DEFAULT_TTL); if (HOST_SECURE == r) { s->s_namecanon.nc_flags |= NCF_SECURE; map->map_mflags |= MF_SECURE; } else { s->s_namecanon.nc_flags &= ~NCF_SECURE; map->map_mflags &= ~MF_SECURE; } } } else { if ((cp = strchr(name, ']')) == NULL) { if (tTd(9, 1)) sm_dprintf("FAILED\n"); return NULL; } *cp = '\0'; hp = NULL; /* should this be considered secure? */ map->map_mflags &= ~MF_SECURE; #if NETINET if ((in_addr.s_addr = inet_addr(&name[1])) != INADDR_NONE) hp = sm_gethostbyaddr((char *)&in_addr, INADDRSZ, AF_INET); #endif /* NETINET */ #if NETINET6 if (hp == NULL && anynet_pton(AF_INET6, &name[1], &in6_addr) == 1) hp = sm_gethostbyaddr((char *)&in6_addr, IN6ADDRSZ, AF_INET6); #endif /* NETINET6 */ *cp = ']'; if (hp != NULL) { /* found a match -- copy out */ ans = denlstring((char *) hp->h_name, true, true); #if NETINET6 if (ans == hp->h_name) { static char n[MAXNAME + 1]; /* EAI:ok */ /* hp->h_name is about to disappear */ (void) sm_strlcpy(n, ans, sizeof(n)); ans = n; } FREEHOSTENT(hp, NULL); #endif /* NETINET6 */ } } #if NAMED_BIND if (map->map_timeout > 0) _res.retrans = retrans; if (map->map_retry > 0) _res.retry = retry; #endif /* NAMED_BIND */ s->s_namecanon.nc_flags |= NCF_VALID; /* will be soon */ /* Found an answer */ if (ans != NULL) { s->s_namecanon.nc_stat = *statp = EX_OK; if (s->s_namecanon.nc_cname != NULL) sm_free(s->s_namecanon.nc_cname); s->s_namecanon.nc_cname = sm_strdup_x(ans); if (bitset(MF_MATCHONLY, map->map_mflags)) cp = map_rewrite(map, name, strlen(name), NULL); else cp = map_rewrite(map, ans, strlen(ans), av); if (tTd(9, 1)) sm_dprintf("FOUND %s\n", ans); return cp; } /* No match found */ s->s_namecanon.nc_errno = errno; #if NAMED_BIND s->s_namecanon.nc_herrno = h_errno; if (tTd(9, 1)) sm_dprintf("FAIL (%d)\n", h_errno); switch (h_errno) { case TRY_AGAIN: if (UseNameServer) { CurEnv->e_status = "4.4.3"; message("851 %s: Name server timeout", shortenstring(name, 33)); } *statp = EX_TEMPFAIL; break; case HOST_NOT_FOUND: case NO_DATA: *statp = EX_NOHOST; break; case NO_RECOVERY: *statp = EX_SOFTWARE; break; default: *statp = EX_UNAVAILABLE; break; } #else /* NAMED_BIND */ if (tTd(9, 1)) sm_dprintf("FAIL\n"); *statp = EX_NOHOST; #endif /* NAMED_BIND */ s->s_namecanon.nc_stat = *statp; return NULL; } /* ** HOST_MAP_INIT -- initialize host class structures ** ** Parameters: ** map -- a pointer to this map. ** args -- argument string. ** ** Returns: ** true. */ bool host_map_init(map, args) MAP *map; char *args; { register char *p = args; for (;;) { while (SM_ISSPACE(*p)) p++; if (*p != '-') break; switch (*++p) { case 'a': map->map_app = ++p; break; case 'T': map->map_tapp = ++p; break; case 'm': map->map_mflags |= MF_MATCHONLY; break; case 't': map->map_mflags |= MF_NODEFER; break; case 'S': /* only for consistency */ map->map_spacesub = *++p; break; case 'D': map->map_mflags |= MF_DEFER; break; case 'd': { char *h; while (isascii(*++p) && isspace(*p)) continue; h = strchr(p, ' '); if (h != NULL) *h = '\0'; map->map_timeout = convtime(p, 's'); if (h != NULL) *h = ' '; } break; case 'r': while (isascii(*++p) && isspace(*p)) continue; map->map_retry = atoi(p); break; } while (*p != '\0' && !(SM_ISSPACE(*p))) p++; if (*p != '\0') *p++ = '\0'; } if (map->map_app != NULL) map->map_app = newstr(map->map_app); if (map->map_tapp != NULL) map->map_tapp = newstr(map->map_tapp); return true; } #if NETINET6 /* ** ANYNET_NTOP -- convert an IPv6 network address to printable form. ** ** Parameters: ** s6a -- a pointer to an in6_addr structure. ** dst -- buffer to store result in ** dst_len -- size of dst buffer ** ** Returns: ** A printable version of that structure. */ char * anynet_ntop(s6a, dst, dst_len) struct in6_addr *s6a; char *dst; size_t dst_len; { register char *ap; if (IN6_IS_ADDR_V4MAPPED(s6a)) ap = (char *) inet_ntop(AF_INET, &s6a->s6_addr[IN6ADDRSZ - INADDRSZ], dst, dst_len); else { char *d; size_t sz; /* Save pointer to beginning of string */ d = dst; /* Add IPv6: protocol tag */ sz = sm_strlcpy(dst, "IPv6:", dst_len); if (sz >= dst_len) return NULL; dst += sz; dst_len -= sz; if (UseCompressedIPv6Addresses) ap = (char *) inet_ntop(AF_INET6, s6a, dst, dst_len); else ap = sm_inet6_ntop(s6a, dst, dst_len); /* Restore pointer to beginning of string */ if (ap != NULL) ap = d; } return ap; } /* ** ANYNET_PTON -- convert printed form to network address. ** ** Wrapper for inet_pton() which handles IPv6: labels. ** ** Parameters: ** family -- address family ** src -- string ** dst -- destination address structure ** ** Returns: ** 1 if the address was valid ** 0 if the address wasn't parsable ** -1 if error */ int anynet_pton(family, src, dst) int family; const char *src; void *dst; { if (family == AF_INET6 && sm_strncasecmp(src, "IPv6:", 5) == 0) src += 5; return inet_pton(family, src, dst); } #endif /* NETINET6 */ /* ** ANYNET_NTOA -- convert a network address to printable form. ** ** Parameters: ** sap -- a pointer to a sockaddr structure. ** ** Returns: ** A printable version of that sockaddr. */ #ifdef USE_SOCK_STREAM # if NETLINK # include # endif char * anynet_ntoa(sap) register SOCKADDR *sap; { register char *bp; register char *ap; int l; static char buf[100]; /* check for null/zero family */ if (sap == NULL) return "NULLADDR"; if (sap->sa.sa_family == 0) return "0"; switch (sap->sa.sa_family) { # if NETUNIX case AF_UNIX: if (sap->sunix.sun_path[0] != '\0') (void) sm_snprintf(buf, sizeof(buf), "[UNIX: %.64s]", sap->sunix.sun_path); else (void) sm_strlcpy(buf, "[UNIX: localhost]", sizeof(buf)); return buf; # endif /* NETUNIX */ # if NETINET case AF_INET: return (char *) inet_ntoa(sap->sin.sin_addr); # endif # if NETINET6 case AF_INET6: ap = anynet_ntop(&sap->sin6.sin6_addr, buf, sizeof(buf)); if (ap != NULL) return ap; break; # endif /* NETINET6 */ # if NETLINK case AF_LINK: (void) sm_snprintf(buf, sizeof(buf), "[LINK: %s]", link_ntoa((struct sockaddr_dl *) &sap->sa)); return buf; # endif /* NETLINK */ default: /* this case is needed when nothing is #defined */ /* in order to keep the switch syntactically correct */ break; } /* unknown family -- just dump bytes */ (void) sm_snprintf(buf, sizeof(buf), "Family %d: ", sap->sa.sa_family); bp = &buf[strlen(buf)]; ap = sap->sa.sa_data; for (l = sizeof(sap->sa.sa_data); --l >= 0 && SPACELEFT(buf, bp) > 3; ) { (void) sm_snprintf(bp, SPACELEFT(buf, bp), "%02x:", *ap++ & 0377); bp += 3; } SM_ASSERT(bp > buf); SM_ASSERT(bp <= buf + sizeof(buf)); *--bp = '\0'; return buf; } /* ** HOSTNAMEBYANYADDR -- return name of host based on address ** ** Parameters: ** sap -- SOCKADDR pointer ** ** Returns: ** text representation of host name. ** ** Side Effects: ** none. */ char * hostnamebyanyaddr(sap) register SOCKADDR *sap; { register struct hostent *hp; # if NAMED_BIND int saveretry; # endif # if NETINET6 struct in6_addr in6_addr; # endif /* NETINET6 */ # if NAMED_BIND /* shorten name server timeout to avoid higher level timeouts */ saveretry = _res.retry; if (_res.retry * _res.retrans > 20) _res.retry = 20 / _res.retrans; if (_res.retry == 0) _res.retry = 1; # endif /* NAMED_BIND */ switch (sap->sa.sa_family) { # if NETINET case AF_INET: hp = sm_gethostbyaddr((char *) &sap->sin.sin_addr, INADDRSZ, AF_INET); break; # endif /* NETINET */ # if NETINET6 case AF_INET6: hp = sm_gethostbyaddr((char *) &sap->sin6.sin6_addr, IN6ADDRSZ, AF_INET6); break; # endif /* NETINET6 */ # if NETISO case AF_ISO: hp = sm_gethostbyaddr((char *) &sap->siso.siso_addr, sizeof(sap->siso.siso_addr), AF_ISO); break; # endif /* NETISO */ # if NETUNIX case AF_UNIX: hp = NULL; break; # endif /* NETUNIX */ default: hp = sm_gethostbyaddr(sap->sa.sa_data, sizeof(sap->sa.sa_data), sap->sa.sa_family); break; } # if NAMED_BIND _res.retry = saveretry; # endif # if NETINET || NETINET6 if (hp != NULL && hp->h_name[0] != '[' # if NETINET6 && inet_pton(AF_INET6, hp->h_name, &in6_addr) != 1 # endif /* NETINET6 */ # if NETINET && inet_addr(hp->h_name) == INADDR_NONE # endif ) { char *name; name = denlstring((char *) hp->h_name, true, true); # if NETINET6 if (name == hp->h_name) { static char n[MAXNAME + 1]; /* EAI:ok */ /* Copy the string, hp->h_name is about to disappear */ (void) sm_strlcpy(n, name, sizeof(n)); name = n; } FREEHOSTENT(hp, NULL); # endif /* NETINET6 */ return name; } # endif /* NETINET || NETINET6 */ FREEHOSTENT(hp, NULL); # if NETUNIX if (sap->sa.sa_family == AF_UNIX && sap->sunix.sun_path[0] == '\0') return "localhost"; # endif { static char buf[203]; (void) sm_snprintf(buf, sizeof(buf), "[%.200s]", anynet_ntoa(sap)); return buf; } } #endif /* USE_SOCK_STREAM */ sendmail-8.18.1/sendmail/usersmtp.c0000644000372400037240000023760214556365350016623 0ustar xbuildxbuild/* * Copyright (c) 1998-2006, 2008-2010, 2014 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: usersmtp.c,v 8.488 2013-11-22 20:51:57 ca Exp $") #include static void esmtp_check __P((char *, bool, MAILER *, MCI *, ENVELOPE *)); static void helo_options __P((char *, bool, MAILER *, MCI *, ENVELOPE *)); static int smtprcptstat __P((ADDRESS *, MAILER *, MCI *, ENVELOPE *)); #if SASL extern void *sm_sasl_malloc __P((unsigned long)); extern void sm_sasl_free __P((void *)); #endif /* ** USERSMTP -- run SMTP protocol from the user end. ** ** This protocol is described in RFC821. */ #define SMTPCLOSING 421 /* "Service Shutting Down" */ #define ENHSCN(e, d) ((e) == NULL ? (d) : (e)) #define ENHSCN_RPOOL(e, d, rpool) \ ((e) == NULL ? (d) : sm_rpool_strdup_x(rpool, e)) static char SmtpMsgBuffer[MAXLINE]; /* buffer for commands */ static char SmtpReplyBuffer[MAXLINE]; /* buffer for replies */ static bool SmtpNeedIntro; /* need "while talking" in transcript */ /* ** SMTPCCLRSE -- clear session related data in envelope ** ** Parameters: ** e -- the envelope. ** ** Returns: ** none. */ void smtpclrse(e) ENVELOPE *e; { SmtpError[0] = '\0'; e->e_rcode = 0; e->e_renhsc[0] = '\0'; e->e_text = NULL; #if _FFR_LOG_STAGE e->e_estate = -1; #endif /* ** Reset to avoid access to potentially dangling pointer ** via macvalue(). */ e->e_mci = NULL; } /* ** SMTPINIT -- initialize SMTP. ** ** Opens the connection and sends the initial protocol. ** ** Parameters: ** m -- mailer to create connection to. ** mci -- the mailer connection info. ** e -- the envelope. ** onlyhelo -- send only helo command? ** ** Returns: ** none. ** ** Side Effects: ** creates connection and sends initial protocol. */ void smtpinit(m, mci, e, onlyhelo) MAILER *m; register MCI *mci; ENVELOPE *e; bool onlyhelo; { register int r; int state; register char *p; register char *hn; #if _FFR_EXPAND_HELONAME char hnbuf[MAXNAME + 1]; /* EAI:ok:EHLO name must be ASCII */ #endif char *enhsc; enhsc = NULL; if (tTd(18, 1)) { sm_dprintf("smtpinit "); mci_dump(sm_debug_file(), mci, false); } /* ** Open the connection to the mailer. */ SmtpError[0] = '\0'; SmtpMsgBuffer[0] = '\0'; CurHostName = mci->mci_host; /* XXX UGLY XXX */ if (CurHostName == NULL) CurHostName = MyHostName; SmtpNeedIntro = true; state = mci->mci_state; e->e_rcode = 0; e->e_renhsc[0] = '\0'; e->e_text = NULL; maps_reset_chged("client:smtpinit"); switch (state) { case MCIS_MAIL: case MCIS_RCPT: case MCIS_DATA: /* need to clear old information */ smtprset(m, mci, e); /* FALLTHROUGH */ case MCIS_OPEN: if (!onlyhelo) return; break; case MCIS_ERROR: case MCIS_QUITING: case MCIS_SSD: /* shouldn't happen */ smtpquit(m, mci, e); /* FALLTHROUGH */ case MCIS_CLOSED: syserr("451 4.4.0 smtpinit: state CLOSED (was %d)", state); return; case MCIS_OPENING: break; } if (onlyhelo) goto helo; mci->mci_state = MCIS_OPENING; clrsessenvelope(e); /* ** Get the greeting message. ** This should appear spontaneously. Give it five minutes to ** happen. */ SmtpPhase = mci->mci_phase = "client greeting"; sm_setproctitle(true, e, "%s %s: %s", qid_printname(e), CurHostName, mci->mci_phase); r = reply(m, mci, e, TimeOuts.to_initial, esmtp_check, NULL, XS_GREET, NULL); if (r < 0) goto tempfail1; if (REPLYTYPE(r) == 4) goto tempfail2; if (REPLYTYPE(r) != 2) goto unavailable; /* ** Send the HELO command. ** My mother taught me to always introduce myself. */ helo: if (bitnset(M_ESMTP, m->m_flags) || bitnset(M_LMTP, m->m_flags)) mci->mci_flags |= MCIF_ESMTP; if (mci->mci_heloname != NULL) { #if _FFR_EXPAND_HELONAME expand(mci->mci_heloname, hnbuf, sizeof(hnbuf), e); hn = hnbuf; #else hn = mci->mci_heloname; #endif } else hn = MyHostName; tryhelo: #if _FFR_IGNORE_EXT_ON_HELO mci->mci_flags &= ~MCIF_HELO; #endif if (bitnset(M_LMTP, m->m_flags)) { smtpmessage("LHLO %s", m, mci, hn); SmtpPhase = mci->mci_phase = "client LHLO"; } else if (bitset(MCIF_ESMTP, mci->mci_flags) && !bitnset(M_FSMTP, m->m_flags)) { smtpmessage("EHLO %s", m, mci, hn); SmtpPhase = mci->mci_phase = "client EHLO"; } else { smtpmessage("HELO %s", m, mci, hn); SmtpPhase = mci->mci_phase = "client HELO"; #if _FFR_IGNORE_EXT_ON_HELO mci->mci_flags |= MCIF_HELO; #endif } sm_setproctitle(true, e, "%s %s: %s", qid_printname(e), CurHostName, mci->mci_phase); r = reply(m, mci, e, bitnset(M_LMTP, m->m_flags) ? TimeOuts.to_lhlo : TimeOuts.to_helo, helo_options, NULL, XS_EHLO, NULL); if (r < 0) goto tempfail1; else if (REPLYTYPE(r) == 5) { if (bitset(MCIF_ESMTP, mci->mci_flags) && !bitnset(M_LMTP, m->m_flags)) { /* try old SMTP instead */ mci->mci_flags &= ~MCIF_ESMTP; goto tryhelo; } goto unavailable; } else if (REPLYTYPE(r) != 2) goto tempfail2; /* ** Check to see if we actually ended up talking to ourself. ** This means we didn't know about an alias or MX, or we managed ** to connect to an echo server. */ p = strchr(&SmtpReplyBuffer[4], ' '); if (p != NULL) *p = '\0'; if (!bitnset(M_NOLOOPCHECK, m->m_flags) && !bitnset(M_LMTP, m->m_flags) && SM_STRCASEEQ(&SmtpReplyBuffer[4], MyHostName)) { syserr("553 5.3.5 %s config error: mail loops back to me (MX problem?)", CurHostName); mci_setstat(mci, EX_CONFIG, "5.3.5", "553 5.3.5 system config error"); mci->mci_errno = 0; smtpquit(m, mci, e); return; } /* ** If this is expected to be another sendmail, send some internal ** commands. ** If we're running as MSP, "propagate" -v flag if possible. */ if ((UseMSP && Verbose && bitset(MCIF_VERB, mci->mci_flags)) || bitnset(M_INTERNAL, m->m_flags)) { /* tell it to be verbose */ smtpmessage("VERB", m, mci); r = reply(m, mci, e, TimeOuts.to_miscshort, NULL, &enhsc, XS_DEFAULT, NULL); if (r < 0) goto tempfail1; } if (mci->mci_state != MCIS_CLOSED) { mci->mci_state = MCIS_OPEN; return; } /* got a 421 error code during startup */ tempfail1: mci_setstat(mci, EX_TEMPFAIL, ENHSCN(enhsc, "4.4.2"), NULL); if (mci->mci_state != MCIS_CLOSED) smtpquit(m, mci, e); return; tempfail2: /* XXX should use code from other end iff ENHANCEDSTATUSCODES */ mci_setstat(mci, EX_TEMPFAIL, ENHSCN(enhsc, "4.5.0"), SmtpReplyBuffer); if (mci->mci_state != MCIS_CLOSED) smtpquit(m, mci, e); return; unavailable: mci_setstat(mci, EX_UNAVAILABLE, "5.5.0", SmtpReplyBuffer); smtpquit(m, mci, e); return; } /* ** ESMTP_CHECK -- check to see if this implementation likes ESMTP protocol ** ** Parameters: ** line -- the response line. ** firstline -- set if this is the first line of the reply. ** m -- the mailer. ** mci -- the mailer connection info. ** e -- the envelope. ** ** Returns: ** none. */ static void esmtp_check(line, firstline, m, mci, e) char *line; bool firstline; MAILER *m; register MCI *mci; ENVELOPE *e; { if (strstr(line, "ESMTP") != NULL) mci->mci_flags |= MCIF_ESMTP; /* ** Dirty hack below. Quoting the author: ** This was a response to people who wanted SMTP transmission to be ** just-send-8 by default. Essentially, you could put this tag into ** your greeting message to behave as though the F=8 flag was set on ** the mailer. */ if (strstr(line, "8BIT-OK") != NULL) mci->mci_flags |= MCIF_8BITOK; } #if SASL /* specify prototype so compiler can check calls */ static char *str_union __P((char *, char *, SM_RPOOL_T *)); /* ** STR_UNION -- create the union of two lists ** ** Parameters: ** s1, s2 -- lists of items (separated by single blanks). ** rpool -- resource pool from which result is allocated. ** ** Returns: ** the union of both lists. */ static char * str_union(s1, s2, rpool) char *s1, *s2; SM_RPOOL_T *rpool; { char *hr, *h1, *h, *res; int l1, l2, rl; if (SM_IS_EMPTY(s1)) return s2; if (SM_IS_EMPTY(s2)) return s1; l1 = strlen(s1); l2 = strlen(s2); rl = l1 + l2; if (rl <= 0) { sm_syslog(LOG_WARNING, NOQID, "str_union: stringlen1=%d, stringlen2=%d, sum=%d, status=overflow", l1, l2, rl); res = NULL; } else res = (char *) sm_rpool_malloc(rpool, rl + 2); if (res == NULL) { if (l1 > l2) return s1; return s2; } (void) sm_strlcpy(res, s1, rl); hr = res + l1; h1 = s2; h = s2; /* walk through s2 */ while (h != NULL && *h1 != '\0') { /* is there something after the current word? */ if ((h = strchr(h1, ' ')) != NULL) *h = '\0'; l1 = strlen(h1); /* does the current word appear in s1 ? */ if (iteminlist(h1, s1, " ") == NULL) { /* add space as delimiter */ *hr++ = ' '; /* copy the item */ memcpy(hr, h1, l1); /* advance pointer in result list */ hr += l1; *hr = '\0'; } if (h != NULL) { /* there are more items */ *h = ' '; h1 = h + 1; } } return res; } #endif /* SASL */ /* ** HELO_OPTIONS -- process the options on a HELO line. ** ** Parameters: ** line -- the response line. ** firstline -- set if this is the first line of the reply. ** m -- the mailer. ** mci -- the mailer connection info. ** e -- the envelope (unused). ** ** Returns: ** none. */ static void helo_options(line, firstline, m, mci, e) char *line; bool firstline; MAILER *m; register MCI *mci; ENVELOPE *e; { register char *p; #if _FFR_IGNORE_EXT_ON_HELO static bool logged = false; #endif if (firstline) { mci_clr_extensions(mci); #if _FFR_IGNORE_EXT_ON_HELO logged = false; #endif return; } #if _FFR_IGNORE_EXT_ON_HELO else if (bitset(MCIF_HELO, mci->mci_flags)) { if (LogLevel > 8 && !logged) { sm_syslog(LOG_WARNING, NOQID, "server=%s [%s] returned extensions despite HELO command", macvalue(macid("{server_name}"), e), macvalue(macid("{server_addr}"), e)); logged = true; } return; } #endif /* _FFR_IGNORE_EXT_ON_HELO */ if (strlen(line) < 5) return; line += 4; p = strpbrk(line, " ="); if (p != NULL) *p++ = '\0'; if (SM_STRCASEEQ(line, "size")) { mci->mci_flags |= MCIF_SIZE; if (p != NULL) mci->mci_maxsize = atol(p); } else if (SM_STRCASEEQ(line, "8bitmime")) { mci->mci_flags |= MCIF_8BITMIME; mci->mci_flags &= ~MCIF_7BIT; } else if (SM_STRCASEEQ(line, "expn")) mci->mci_flags |= MCIF_EXPN; else if (SM_STRCASEEQ(line, "dsn")) mci->mci_flags |= MCIF_DSN; else if (SM_STRCASEEQ(line, "enhancedstatuscodes")) mci->mci_flags |= MCIF_ENHSTAT; else if (SM_STRCASEEQ(line, "pipelining")) mci->mci_flags |= MCIF_PIPELINED; else if (SM_STRCASEEQ(line, "verb")) mci->mci_flags |= MCIF_VERB; #if USE_EAI else if (SM_STRCASEEQ(line, "smtputf8")) mci->mci_flags |= MCIF_EAI; #endif #if STARTTLS else if (SM_STRCASEEQ(line, "starttls")) mci->mci_flags |= MCIF_TLS; #endif else if (SM_STRCASEEQ(line, "deliverby")) { mci->mci_flags |= MCIF_DLVR_BY; if (p != NULL) mci->mci_min_by = atol(p); } #if SASL else if (SM_STRCASEEQ(line, "auth")) { if (p != NULL && *p != '\0' && !bitset(MCIF_AUTH2, mci->mci_flags)) { if (mci->mci_saslcap != NULL) { /* ** Create the union with previous auth ** offerings because we recognize "auth " ** and "auth=" (old format). */ mci->mci_saslcap = str_union(mci->mci_saslcap, p, mci->mci_rpool); mci->mci_flags |= MCIF_AUTH2; } else { int l; l = strlen(p) + 1; mci->mci_saslcap = (char *) sm_rpool_malloc(mci->mci_rpool, l); if (mci->mci_saslcap != NULL) { (void) sm_strlcpy(mci->mci_saslcap, p, l); mci->mci_flags |= MCIF_AUTH; } } } if (tTd(95, 5)) sm_syslog(LOG_DEBUG, NOQID, "AUTH flags=%lx, mechs=%s", mci->mci_flags, mci->mci_saslcap); } #endif /* SASL */ } #if SASL static int getsimple __P((void *, int, const char **, unsigned *)); static int getsecret __P((sasl_conn_t *, void *, int, sasl_secret_t **)); static int saslgetrealm __P((void *, int, const char **, const char **)); static int readauth __P((char *, bool, SASL_AI_T *m, SM_RPOOL_T *)); static int getauth __P((MCI *, ENVELOPE *, SASL_AI_T *)); static char *removemech __P((char *, char *, SM_RPOOL_T *)); static int attemptauth __P((MAILER *, MCI *, ENVELOPE *, SASL_AI_T *)); static sasl_callback_t callbacks[] = { { SASL_CB_GETREALM, (sasl_callback_ft)&saslgetrealm, NULL }, #define CB_GETREALM_IDX 0 { SASL_CB_PASS, (sasl_callback_ft)&getsecret, NULL }, #define CB_PASS_IDX 1 { SASL_CB_USER, (sasl_callback_ft)&getsimple, NULL }, #define CB_USER_IDX 2 { SASL_CB_AUTHNAME, (sasl_callback_ft)&getsimple, NULL }, #define CB_AUTHNAME_IDX 3 { SASL_CB_VERIFYFILE, (sasl_callback_ft)&safesaslfile, NULL }, #define CB_SAFESASL_IDX 4 { SASL_CB_LIST_END, NULL, NULL } }; /* ** INIT_SASL_CLIENT -- initialize client side of Cyrus-SASL ** ** Parameters: ** none. ** ** Returns: ** SASL_OK -- if successful. ** SASL error code -- otherwise. ** ** Side Effects: ** checks/sets sasl_clt_init. ** ** Note: ** Callbacks are ignored if sasl_client_init() has ** been called before (by a library such as libnss_ldap) */ static bool sasl_clt_init = false; static int init_sasl_client() { int result; if (sasl_clt_init) return SASL_OK; result = sasl_client_init(callbacks); /* should we retry later again or just remember that it failed? */ if (result == SASL_OK) sasl_clt_init = true; return result; } /* ** STOP_SASL_CLIENT -- shutdown client side of Cyrus-SASL ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** checks/sets sasl_clt_init. */ void stop_sasl_client() { if (!sasl_clt_init) return; sasl_clt_init = false; sasl_done(); } /* ** GETSASLDATA -- process the challenges from the SASL protocol ** ** This gets the relevant sasl response data out of the reply ** from the server. ** ** Parameters: ** line -- the response line. ** firstline -- set if this is the first line of the reply. ** m -- the mailer. ** mci -- the mailer connection info. ** e -- the envelope (unused). ** ** Returns: ** none. */ static void getsasldata __P((char *, bool, MAILER *, MCI *, ENVELOPE *)); static void getsasldata(line, firstline, m, mci, e) char *line; bool firstline; MAILER *m; register MCI *mci; ENVELOPE *e; { int len; int result; # if SASL < 20000 char *out; # endif /* if not a continue we don't care about it */ len = strlen(line); if ((len <= 4) || (line[0] != '3') || !isascii(line[1]) || !isdigit(line[1]) || !isascii(line[2]) || !isdigit(line[2])) { SM_FREE(mci->mci_sasl_string); return; } /* forget about "334 " */ line += 4; len -= 4; # if SASL >= 20000 /* XXX put this into a macro/function? It's duplicated below */ if (mci->mci_sasl_string != NULL) { if (mci->mci_sasl_string_len <= len) { sm_free(mci->mci_sasl_string); /* XXX */ mci->mci_sasl_string = xalloc(len + 1); } } else mci->mci_sasl_string = xalloc(len + 1); result = sasl_decode64(line, len, mci->mci_sasl_string, len + 1, (unsigned int *) &mci->mci_sasl_string_len); if (result != SASL_OK) { mci->mci_sasl_string_len = 0; *mci->mci_sasl_string = '\0'; } # else /* SASL >= 20000 */ out = (char *) sm_rpool_malloc_x(mci->mci_rpool, len + 1); result = sasl_decode64(line, len, out, (unsigned int *) &len); if (result != SASL_OK) { len = 0; *out = '\0'; } /* ** mci_sasl_string is "shared" with Cyrus-SASL library; hence ** it can't be in an rpool unless we use the same memory ** management mechanism (with same rpool!) for Cyrus SASL. */ if (mci->mci_sasl_string != NULL) { if (mci->mci_sasl_string_len <= len) { sm_free(mci->mci_sasl_string); /* XXX */ mci->mci_sasl_string = xalloc(len + 1); } } else mci->mci_sasl_string = xalloc(len + 1); memcpy(mci->mci_sasl_string, out, len); mci->mci_sasl_string[len] = '\0'; mci->mci_sasl_string_len = len; # endif /* SASL >= 20000 */ return; } /* ** READAUTH -- read auth values from a file ** ** Parameters: ** filename -- name of file to read. ** safe -- if set, this is a safe read. ** sai -- where to store auth_info. ** rpool -- resource pool for sai. ** ** Returns: ** EX_OK -- data successfully read. ** EX_UNAVAILABLE -- no valid filename. ** EX_TEMPFAIL -- temporary failure. */ static char *sasl_info_name[] = { "user id", "authentication id", "password", "realm", "mechlist" }; static int readauth(filename, safe, sai, rpool) char *filename; bool safe; SASL_AI_T *sai; SM_RPOOL_T *rpool; { SM_FILE_T *f; long sff; pid_t pid; int lc; char *s; char buf[MAXLINE]; if (SM_IS_EMPTY(filename)) return EX_UNAVAILABLE; # if !_FFR_ALLOW_SASLINFO /* ** make sure we don't use a program that is not ** accessible to the user who specified a different authinfo file. ** However, currently we don't pass this info (authinfo file ** specified by user) around, so we just turn off program access. */ if (filename[0] == '|') { auto int fd; int i; char *p; char *argv[MAXPV + 1]; i = 0; for (p = strtok(&filename[1], " \t"); p != NULL; p = strtok(NULL, " \t")) { if (i >= MAXPV) break; argv[i++] = p; } argv[i] = NULL; pid = prog_open(argv, &fd, CurEnv); if (pid < 0) f = NULL; else f = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &fd, SM_IO_RDONLY, NULL); } else # endif /* !_FFR_ALLOW_SASLINFO */ /* "else" in #if code above */ { pid = -1; sff = SFF_REGONLY|SFF_SAFEDIRPATH|SFF_NOWLINK |SFF_NOGWFILES|SFF_NOWWFILES|SFF_NOWRFILES; if (!bitnset(DBS_GROUPREADABLEAUTHINFOFILE, DontBlameSendmail)) sff |= SFF_NOGRFILES; if (DontLockReadFiles) sff |= SFF_NOLOCK; # if _FFR_ALLOW_SASLINFO /* ** XXX: make sure we don't read or open files that are not ** accessible to the user who specified a different authinfo ** file. */ sff |= SFF_MUSTOWN; # else /* _FFR_ALLOW_SASLINFO */ if (safe) sff |= SFF_OPENASROOT; # endif /* _FFR_ALLOW_SASLINFO */ f = safefopen(filename, O_RDONLY, 0, sff); } if (f == NULL) { if (LogLevel > 5) sm_syslog(LOG_ERR, NOQID, "AUTH=client, error: can't open %s: %s", filename, sm_errstring(errno)); return EX_TEMPFAIL; } lc = 0; while (lc <= SASL_MECHLIST && sm_io_fgets(f, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { if (buf[0] != '#') { (*sai)[lc] = sm_rpool_strdup_x(rpool, buf); if ((s = strchr((*sai)[lc], '\n')) != NULL) *s = '\0'; lc++; } } (void) sm_io_close(f, SM_TIME_DEFAULT); if (pid > 0) (void) waitfor(pid); if (lc < SASL_PASSWORD) { if (LogLevel > 8) sm_syslog(LOG_ERR, NOQID, "AUTH=client, error: can't read %s from %s", sasl_info_name[lc + 1], filename); return EX_TEMPFAIL; } return EX_OK; } /* ** GETAUTH -- get authinfo from ruleset call ** ** {server_name}, {server_addr} must be set ** ** Parameters: ** mci -- the mailer connection structure. ** e -- the envelope (including the sender to specify). ** sai -- pointer to authinfo (result). ** ** Returns: ** EX_OK -- ruleset was successfully called, data may not ** be available, sai must be checked. ** EX_UNAVAILABLE -- ruleset unavailable (or failed). ** EX_TEMPFAIL -- temporary failure (from ruleset). ** ** Side Effects: ** Fills in sai if successful. */ static int getauth(mci, e, sai) MCI *mci; ENVELOPE *e; SASL_AI_T *sai; { int i, r, l, got, ret; char **pvp; char pvpbuf[PSBUFSIZE]; r = rscap("authinfo", macvalue(macid("{server_name}"), e), macvalue(macid("{server_addr}"), e), e, &pvp, pvpbuf, sizeof(pvpbuf)); if (r != EX_OK) return EX_UNAVAILABLE; /* other than expected return value: ok (i.e., no auth) */ if (pvp == NULL || pvp[0] == NULL || (pvp[0][0] & 0377) != CANONNET) return EX_OK; if (pvp[1] != NULL && sm_strncasecmp(pvp[1], "temp", 4) == 0) return EX_TEMPFAIL; /* ** parse the data, put it into sai ** format: "TDstring" (including the '"' !) ** where T is a tag: 'U', ... ** D is a delimiter: ':' or '=' */ ret = EX_OK; /* default return value */ i = 0; got = 0; while (i < SASL_ENTRIES) { if (pvp[i + 1] == NULL) break; if (pvp[i + 1][0] != '"') break; switch (pvp[i + 1][1]) { case 'U': case 'u': r = SASL_USER; break; case 'I': case 'i': r = SASL_AUTHID; break; case 'P': case 'p': r = SASL_PASSWORD; break; case 'R': case 'r': r = SASL_DEFREALM; break; case 'M': case 'm': r = SASL_MECHLIST; break; default: goto fail; } l = strlen(pvp[i + 1]); /* check syntax */ if (l <= 3 || pvp[i + 1][l - 1] != '"') goto fail; /* remove closing quote */ pvp[i + 1][l - 1] = '\0'; /* remove "TD and " */ l -= 4; (*sai)[r] = (char *) sm_rpool_malloc(mci->mci_rpool, l + 1); if ((*sai)[r] == NULL) goto tempfail; if (pvp[i + 1][2] == ':') { /* ':text' (just copy) */ (void) sm_strlcpy((*sai)[r], pvp[i + 1] + 3, l + 1); got |= 1 << r; } else if (pvp[i + 1][2] == '=') { unsigned int len; /* '=base64' (decode) */ # if SASL >= 20000 ret = sasl_decode64(pvp[i + 1] + 3, (unsigned int) l, (*sai)[r], (unsigned int) l + 1, &len); # else /* SASL >= 20000 */ ret = sasl_decode64(pvp[i + 1] + 3, (unsigned int) l, (*sai)[r], &len); # endif /* SASL >= 20000 */ if (ret != SASL_OK) goto fail; got |= 1 << r; } else goto fail; if (tTd(95, 5)) sm_syslog(LOG_DEBUG, NOQID, "getauth %s=%s", sasl_info_name[r], (*sai)[r]); ++i; } /* did we get the expected data? */ /* XXX: EXTERNAL mechanism only requires (and only uses) SASL_USER */ if (!(bitset(SASL_USER_BIT|SASL_AUTHID_BIT, got) && bitset(SASL_PASSWORD_BIT, got))) goto fail; /* no authid? copy uid */ if (!bitset(SASL_AUTHID_BIT, got)) { l = strlen((*sai)[SASL_USER]) + 1; (*sai)[SASL_AUTHID] = (char *) sm_rpool_malloc(mci->mci_rpool, l + 1); if ((*sai)[SASL_AUTHID] == NULL) goto tempfail; (void) sm_strlcpy((*sai)[SASL_AUTHID], (*sai)[SASL_USER], l); } /* no uid? copy authid */ if (!bitset(SASL_USER_BIT, got)) { l = strlen((*sai)[SASL_AUTHID]) + 1; (*sai)[SASL_USER] = (char *) sm_rpool_malloc(mci->mci_rpool, l + 1); if ((*sai)[SASL_USER] == NULL) goto tempfail; (void) sm_strlcpy((*sai)[SASL_USER], (*sai)[SASL_AUTHID], l); } return EX_OK; tempfail: ret = EX_TEMPFAIL; fail: if (LogLevel > 8) sm_syslog(LOG_WARNING, NOQID, "AUTH=client, relay=%.64s [%.16s], authinfo %sfailed", macvalue(macid("{server_name}"), e), macvalue(macid("{server_addr}"), e), ret == EX_TEMPFAIL ? "temp" : ""); for (i = 0; i <= SASL_MECHLIST; i++) (*sai)[i] = NULL; /* just clear; rpool */ return ret; } # if SASL >= 20000 /* ** GETSIMPLE -- callback to get userid or authid ** ** Parameters: ** context -- sai ** id -- what to do ** result -- (pointer to) result ** len -- (pointer to) length of result ** ** Returns: ** OK/failure values */ static int getsimple(context, id, result, len) void *context; int id; const char **result; unsigned *len; { SASL_AI_T *sai; if (result == NULL || context == NULL) return SASL_BADPARAM; sai = (SASL_AI_T *) context; switch (id) { case SASL_CB_USER: *result = (*sai)[SASL_USER]; if (tTd(95, 5)) sm_syslog(LOG_DEBUG, NOQID, "AUTH username '%s'", *result); if (len != NULL) *len = *result != NULL ? strlen(*result) : 0; break; case SASL_CB_AUTHNAME: *result = (*sai)[SASL_AUTHID]; if (tTd(95, 5)) sm_syslog(LOG_DEBUG, NOQID, "AUTH authid '%s'", *result); if (len != NULL) *len = *result != NULL ? strlen(*result) : 0; break; case SASL_CB_LANGUAGE: *result = NULL; if (len != NULL) *len = 0; break; default: return SASL_BADPARAM; } return SASL_OK; } /* ** GETSECRET -- callback to get password ** ** Parameters: ** conn -- connection information ** context -- sai ** id -- what to do ** psecret -- (pointer to) result ** ** Returns: ** OK/failure values */ static int getsecret(conn, context, id, psecret) sasl_conn_t *conn; SM_UNUSED(void *context); int id; sasl_secret_t **psecret; { int len; char *authpass; MCI *mci; if (conn == NULL || psecret == NULL || id != SASL_CB_PASS) return SASL_BADPARAM; mci = (MCI *) context; authpass = mci->mci_sai[SASL_PASSWORD]; len = strlen(authpass); /* ** use an rpool because we are responsible for free()ing the secret, ** but we can't free() it until after the auth completes */ *psecret = (sasl_secret_t *) sm_rpool_malloc(mci->mci_rpool, sizeof(sasl_secret_t) + len + 1); if (*psecret == NULL) return SASL_FAIL; (void) sm_strlcpy((char *) (*psecret)->data, authpass, len + 1); (*psecret)->len = (unsigned long) len; return SASL_OK; } # else /* SASL >= 20000 */ /* ** GETSIMPLE -- callback to get userid or authid ** ** Parameters: ** context -- sai ** id -- what to do ** result -- (pointer to) result ** len -- (pointer to) length of result ** ** Returns: ** OK/failure values */ static int getsimple(context, id, result, len) void *context; int id; const char **result; unsigned *len; { char *h, *s; # if SASL > 10509 bool addrealm; # endif size_t l; SASL_AI_T *sai; char *authid = NULL; if (result == NULL || context == NULL) return SASL_BADPARAM; sai = (SASL_AI_T *) context; /* ** Unfortunately it is not clear whether this routine should ** return a copy of a string or just a pointer to a string. ** The Cyrus-SASL plugins treat these return values differently, e.g., ** plugins/cram.c free()s authid, plugings/digestmd5.c does not. ** The best solution to this problem is to fix Cyrus-SASL, but it ** seems there is nobody who creates patches... Hello CMU!? ** The second best solution is to have flags that tell this routine ** whether to return an malloc()ed copy. ** The next best solution is to always return an malloc()ed copy, ** and suffer from some memory leak, which is ugly for persistent ** queue runners. ** For now we go with the last solution... ** We can't use rpools (which would avoid this particular problem) ** as explained in sasl.c. */ switch (id) { case SASL_CB_USER: l = strlen((*sai)[SASL_USER]) + 1; s = sm_sasl_malloc(l); if (s == NULL) { if (len != NULL) *len = 0; *result = NULL; return SASL_NOMEM; } (void) sm_strlcpy(s, (*sai)[SASL_USER], l); *result = s; if (tTd(95, 5)) sm_syslog(LOG_DEBUG, NOQID, "AUTH username '%s'", *result); if (len != NULL) *len = *result != NULL ? strlen(*result) : 0; break; case SASL_CB_AUTHNAME: h = (*sai)[SASL_AUTHID]; # if SASL > 10509 /* XXX maybe other mechanisms too?! */ addrealm = (*sai)[SASL_MECH] != NULL && SM_STRCASEEQ((*sai)[SASL_MECH], "cram-md5"); /* ** Add realm to authentication id unless authid contains ** '@' (i.e., a realm) or the default realm is empty. */ if (addrealm && h != NULL && strchr(h, '@') == NULL) { /* has this been done before? */ if ((*sai)[SASL_ID_REALM] == NULL) { char *realm; realm = (*sai)[SASL_DEFREALM]; /* do not add an empty realm */ if (*realm == '\0') { authid = h; (*sai)[SASL_ID_REALM] = NULL; } else { l = strlen(h) + strlen(realm) + 2; /* should use rpool, but from where? */ authid = sm_sasl_malloc(l); if (authid != NULL) { (void) sm_snprintf(authid, l, "%s@%s", h, realm); (*sai)[SASL_ID_REALM] = authid; } else { authid = h; (*sai)[SASL_ID_REALM] = NULL; } } } else authid = (*sai)[SASL_ID_REALM]; } else # endif /* SASL > 10509 */ authid = h; l = strlen(authid) + 1; s = sm_sasl_malloc(l); if (s == NULL) { if (len != NULL) *len = 0; *result = NULL; return SASL_NOMEM; } (void) sm_strlcpy(s, authid, l); *result = s; if (tTd(95, 5)) sm_syslog(LOG_DEBUG, NOQID, "AUTH authid '%s'", *result); if (len != NULL) *len = authid ? strlen(authid) : 0; break; case SASL_CB_LANGUAGE: *result = NULL; if (len != NULL) *len = 0; break; default: return SASL_BADPARAM; } return SASL_OK; } /* ** GETSECRET -- callback to get password ** ** Parameters: ** conn -- connection information ** context -- sai ** id -- what to do ** psecret -- (pointer to) result ** ** Returns: ** OK/failure values */ static int getsecret(conn, context, id, psecret) sasl_conn_t *conn; SM_UNUSED(void *context); int id; sasl_secret_t **psecret; { int len; char *authpass; SASL_AI_T *sai; if (conn == NULL || psecret == NULL || id != SASL_CB_PASS) return SASL_BADPARAM; sai = (SASL_AI_T *) context; authpass = (*sai)[SASL_PASSWORD]; len = strlen(authpass); *psecret = (sasl_secret_t *) sm_sasl_malloc(sizeof(sasl_secret_t) + len + 1); if (*psecret == NULL) return SASL_FAIL; (void) sm_strlcpy((*psecret)->data, authpass, len + 1); (*psecret)->len = (unsigned long) len; return SASL_OK; } # endif /* SASL >= 20000 */ /* ** SAFESASLFILE -- callback for sasl: is file safe? ** ** Parameters: ** context -- pointer to context between invocations (unused) ** file -- name of file to check ** type -- type of file to check ** ** Returns: ** SASL_OK -- file can be used ** SASL_CONTINUE -- don't use file ** SASL_FAIL -- failure (not used here) ** */ int # if SASL > 10515 safesaslfile(context, file, type) # else safesaslfile(context, file) # endif void *context; # if SASL >= 20000 const char *file; # else char *file; # endif # if SASL > 10515 # if SASL >= 20000 sasl_verify_type_t type; # else int type; # endif # endif { long sff; int r; # if SASL <= 10515 size_t len; # endif char *p; if (SM_IS_EMPTY(file)) return SASL_OK; if (tTd(95, 16)) sm_dprintf("safesaslfile=%s\n", file); sff = SFF_SAFEDIRPATH|SFF_NOWLINK|SFF_NOWWFILES|SFF_ROOTOK; # if SASL <= 10515 if ((p = strrchr(file, '/')) == NULL) p = file; else ++p; /* everything beside libs and .conf files must not be readable */ len = strlen(p); if ((len <= 3 || strncmp(p, "lib", 3) != 0) && (len <= 5 || strncmp(p + len - 5, ".conf", 5) != 0)) { if (!bitnset(DBS_GROUPREADABLESASLDBFILE, DontBlameSendmail)) sff |= SFF_NORFILES; if (!bitnset(DBS_GROUPWRITABLESASLDBFILE, DontBlameSendmail)) sff |= SFF_NOGWFILES; } # else /* SASL <= 10515 */ /* files containing passwords should be not readable */ if (type == SASL_VRFY_PASSWD) { if (bitnset(DBS_GROUPREADABLESASLDBFILE, DontBlameSendmail)) sff |= SFF_NOWRFILES; else sff |= SFF_NORFILES; if (!bitnset(DBS_GROUPWRITABLESASLDBFILE, DontBlameSendmail)) sff |= SFF_NOGWFILES; } # endif /* SASL <= 10515 */ p = (char *) file; if ((r = safefile(p, RunAsUid, RunAsGid, RunAsUserName, sff, S_IRUSR, NULL)) == 0) return SASL_OK; if (LogLevel > (r != ENOENT ? 8 : 10)) sm_syslog(LOG_WARNING, NOQID, "error: safesasl(%s) failed: %s", p, sm_errstring(r)); return SASL_CONTINUE; } /* ** SASLGETREALM -- return the realm for SASL ** ** return the realm for the client ** ** Parameters: ** context -- context shared between invocations ** availrealms -- list of available realms ** {realm, realm, ...} ** result -- pointer to result ** ** Returns: ** failure/success */ static int saslgetrealm(context, id, availrealms, result) void *context; int id; const char **availrealms; const char **result; { char *r; SASL_AI_T *sai; sai = (SASL_AI_T *) context; if (sai == NULL) return SASL_FAIL; r = (*sai)[SASL_DEFREALM]; if (LogLevel > 12) sm_syslog(LOG_INFO, NOQID, "AUTH=client, realm=%s, available realms=%s", r == NULL ? "" : r, (NULL == availrealms || SM_IS_EMPTY(*availrealms)) ? "" : *availrealms); /* check whether context is in list */ if (availrealms != NULL && *availrealms != NULL) { if (iteminlist(context, (char *)(*availrealms + 1), " ,}") == NULL) { if (LogLevel > 8) sm_syslog(LOG_ERR, NOQID, "AUTH=client, realm=%s not in list=%s", r, *availrealms); return SASL_FAIL; } } *result = r; return SASL_OK; } /* ** ITEMINLIST -- does item appear in list? ** ** Check whether item appears in list (which must be separated by a ** character in delim) as a "word", i.e. it must appear at the begin ** of the list or after a space, and it must end with a space or the ** end of the list. ** ** Parameters: ** item -- item to search. ** list -- list of items. ** delim -- list of delimiters. ** ** Returns: ** pointer to occurrence (NULL if not found). */ char * iteminlist(item, list, delim) char *item; char *list; char *delim; { char *s; int len; if (SM_IS_EMPTY(list)) return NULL; if (SM_IS_EMPTY(item)) return NULL; s = list; len = strlen(item); while (s != NULL && *s != '\0') { if (sm_strncasecmp(s, item, len) == 0 && (s[len] == '\0' || strchr(delim, s[len]) != NULL)) return s; s = strpbrk(s, delim); if (s != NULL) while (*++s == ' ') continue; } return NULL; } /* ** REMOVEMECH -- remove item [rem] from list [list] ** ** Parameters: ** rem -- item to remove ** list -- list of items ** rpool -- resource pool from which result is allocated. ** ** Returns: ** pointer to new list (NULL in case of error). */ static char * removemech(rem, list, rpool) char *rem; char *list; SM_RPOOL_T *rpool; { char *ret; char *needle; int len; if (list == NULL) return NULL; if (SM_IS_EMPTY(rem)) { /* take out what? */ return NULL; } /* find the item in the list */ if ((needle = iteminlist(rem, list, " ")) == NULL) { /* not in there: return original */ return list; } /* length of string without rem */ len = strlen(list) - strlen(rem); if (len <= 0) { ret = (char *) sm_rpool_malloc_x(rpool, 1); *ret = '\0'; return ret; } ret = (char *) sm_rpool_malloc_x(rpool, len); memset(ret, '\0', len); /* copy from start to removed item */ memcpy(ret, list, needle - list); /* length of rest of string past removed item */ len = strlen(needle) - strlen(rem) - 1; if (len > 0) { /* not last item -- copy into string */ memcpy(ret + (needle - list), list + (needle - list) + strlen(rem) + 1, len); } else ret[(needle - list) - 1] = '\0'; return ret; } /* ** ATTEMPTAUTH -- try to AUTHenticate using one mechanism ** ** Parameters: ** m -- the mailer. ** mci -- the mailer connection structure. ** e -- the envelope (including the sender to specify). ** sai - sasl authinfo ** ** Returns: ** EX_OK -- authentication was successful. ** EX_NOPERM -- authentication failed. ** EX_IOERR -- authentication dialogue failed (I/O problem?). ** EX_TEMPFAIL -- temporary failure. ** */ static int attemptauth(m, mci, e, sai) MAILER *m; MCI *mci; ENVELOPE *e; SASL_AI_T *sai; { int saslresult, smtpresult; # if SASL >= 20000 sasl_ssf_t ssf; const char *auth_id; const char *out; # else /* SASL >= 20000 */ sasl_external_properties_t ssf; char *out; # endif /* SASL >= 20000 */ unsigned int outlen; sasl_interact_t *client_interact = NULL; char *mechusing; sasl_security_properties_t ssp; /* MUST NOT be a multiple of 4: bug in some sasl_encode64() versions */ char in64[MAXOUTLEN + 1]; # if NETINET || (NETINET6 && SASL >= 20000) extern SOCKADDR CurHostAddr; # endif /* no mechanism selected (yet) */ (*sai)[SASL_MECH] = NULL; /* dispose old connection */ if (mci->mci_conn != NULL) sasl_dispose(&(mci->mci_conn)); /* make a new client sasl connection */ # if SASL >= 20000 /* ** We provide the callbacks again because global callbacks in ** sasl_client_init() are ignored if SASL has been initialized ** before, for example, by a library such as libnss-ldap. */ saslresult = sasl_client_new(bitnset(M_LMTP, m->m_flags) ? "lmtp" : "smtp", CurHostName, NULL, NULL, callbacks, 0, &mci->mci_conn); # else /* SASL >= 20000 */ saslresult = sasl_client_new(bitnset(M_LMTP, m->m_flags) ? "lmtp" : "smtp", CurHostName, NULL, 0, &mci->mci_conn); # endif /* SASL >= 20000 */ if (saslresult != SASL_OK) return EX_TEMPFAIL; /* set properties */ (void) memset(&ssp, '\0', sizeof(ssp)); /* XXX should these be options settable via .cf ? */ ssp.max_ssf = MaxSLBits; ssp.maxbufsize = MAXOUTLEN; # if 0 ssp.security_flags = SASL_SEC_NOPLAINTEXT; # endif saslresult = sasl_setprop(mci->mci_conn, SASL_SEC_PROPS, &ssp); if (saslresult != SASL_OK) return EX_TEMPFAIL; # if SASL >= 20000 /* external security strength factor, authentication id */ ssf = 0; auth_id = NULL; # if STARTTLS out = macvalue(macid("{cert_subject}"), e); if (out != NULL && *out != '\0') auth_id = out; out = macvalue(macid("{cipher_bits}"), e); if (out != NULL && *out != '\0') ssf = atoi(out); # endif /* STARTTLS */ saslresult = sasl_setprop(mci->mci_conn, SASL_SSF_EXTERNAL, &ssf); if (saslresult != SASL_OK) return EX_TEMPFAIL; saslresult = sasl_setprop(mci->mci_conn, SASL_AUTH_EXTERNAL, auth_id); if (saslresult != SASL_OK) return EX_TEMPFAIL; # if NETINET || NETINET6 /* set local/remote ipv4 addresses */ if (mci->mci_out != NULL && ( # if NETINET6 CurHostAddr.sa.sa_family == AF_INET6 || # endif CurHostAddr.sa.sa_family == AF_INET)) { SOCKADDR_LEN_T addrsize; SOCKADDR saddr_l; char localip[60], remoteip[60]; switch (CurHostAddr.sa.sa_family) { case AF_INET: addrsize = sizeof(struct sockaddr_in); break; # if NETINET6 case AF_INET6: addrsize = sizeof(struct sockaddr_in6); break; # endif default: break; } if (iptostring(&CurHostAddr, addrsize, remoteip, sizeof(remoteip))) { if (sasl_setprop(mci->mci_conn, SASL_IPREMOTEPORT, remoteip) != SASL_OK) return EX_TEMPFAIL; } addrsize = sizeof(saddr_l); if (getsockname(sm_io_getinfo(mci->mci_out, SM_IO_WHAT_FD, NULL), (struct sockaddr *) &saddr_l, &addrsize) == 0) { if (iptostring(&saddr_l, addrsize, localip, sizeof(localip))) { if (sasl_setprop(mci->mci_conn, SASL_IPLOCALPORT, localip) != SASL_OK) return EX_TEMPFAIL; } } } # endif /* NETINET || NETINET6 */ /* start client side of sasl */ saslresult = sasl_client_start(mci->mci_conn, mci->mci_saslcap, &client_interact, &out, &outlen, (const char **) &mechusing); # else /* SASL >= 20000 */ /* external security strength factor, authentication id */ ssf.ssf = 0; ssf.auth_id = NULL; # if STARTTLS out = macvalue(macid("{cert_subject}"), e); if (out != NULL && *out != '\0') ssf.auth_id = out; out = macvalue(macid("{cipher_bits}"), e); if (out != NULL && *out != '\0') ssf.ssf = atoi(out); # endif /* STARTTLS */ saslresult = sasl_setprop(mci->mci_conn, SASL_SSF_EXTERNAL, &ssf); if (saslresult != SASL_OK) return EX_TEMPFAIL; # if NETINET /* set local/remote ipv4 addresses */ if (mci->mci_out != NULL && CurHostAddr.sa.sa_family == AF_INET) { SOCKADDR_LEN_T addrsize; struct sockaddr_in saddr_l; if (sasl_setprop(mci->mci_conn, SASL_IP_REMOTE, (struct sockaddr_in *) &CurHostAddr) != SASL_OK) return EX_TEMPFAIL; addrsize = sizeof(struct sockaddr_in); if (getsockname(sm_io_getinfo(mci->mci_out, SM_IO_WHAT_FD, NULL), (struct sockaddr *) &saddr_l, &addrsize) == 0) { if (sasl_setprop(mci->mci_conn, SASL_IP_LOCAL, &saddr_l) != SASL_OK) return EX_TEMPFAIL; } } # endif /* NETINET */ /* start client side of sasl */ saslresult = sasl_client_start(mci->mci_conn, mci->mci_saslcap, NULL, &client_interact, &out, &outlen, (const char **) &mechusing); # endif /* SASL >= 20000 */ if (saslresult != SASL_OK && saslresult != SASL_CONTINUE) { if (saslresult == SASL_NOMECH && LogLevel > 8) { sm_syslog(LOG_NOTICE, e->e_id, "AUTH=client, available mechanisms=%s do not fulfill requirements", mci->mci_saslcap); } return EX_TEMPFAIL; } /* just point current mechanism to the data in the sasl library */ (*sai)[SASL_MECH] = mechusing; /* send the info across the wire */ if (out == NULL /* login and digest-md5 up to 1.5.28 set out="" */ || (outlen == 0 && (SM_STRCASEEQ(mechusing, "login") || SM_STRCASEEQ(mechusing, "digest-md5"))) ) { /* no initial response */ smtpmessage("AUTH %s", m, mci, mechusing); } else if (outlen == 0) { /* ** zero-length initial response, per RFC 2554 4.: ** "Unlike a zero-length client answer to a 334 reply, a zero- ** length initial response is sent as a single equals sign" */ smtpmessage("AUTH %s =", m, mci, mechusing); } else { saslresult = sasl_encode64(out, outlen, in64, sizeof(in64), NULL); if (saslresult != SASL_OK) /* internal error */ { if (LogLevel > 8) sm_syslog(LOG_ERR, e->e_id, "encode64 for AUTH failed"); return EX_TEMPFAIL; } smtpmessage("AUTH %s %s", m, mci, mechusing, in64); } # if SASL < 20000 sm_sasl_free(out); /* XXX only if no rpool is used */ # endif /* get the reply */ smtpresult = reply(m, mci, e, TimeOuts.to_auth, getsasldata, NULL, XS_AUTH, NULL); for (;;) { /* check return code from server */ if (smtpresult == 235) { macdefine(&mci->mci_macro, A_TEMP, macid("{auth_type}"), mechusing); return EX_OK; } if (smtpresult == -1) return EX_IOERR; if (REPLYTYPE(smtpresult) == 5) return EX_NOPERM; /* ugly, but ... */ if (REPLYTYPE(smtpresult) != 3) { /* should we fail deliberately, see RFC 2554 4. ? */ /* smtpmessage("*", m, mci); */ return EX_TEMPFAIL; } saslresult = sasl_client_step(mci->mci_conn, mci->mci_sasl_string, mci->mci_sasl_string_len, &client_interact, &out, &outlen); if (saslresult != SASL_OK && saslresult != SASL_CONTINUE) { if (tTd(95, 5)) sm_dprintf("AUTH FAIL=%s (%d)\n", sasl_errstring(saslresult, NULL, NULL), saslresult); /* fail deliberately, see RFC 2554 4. */ smtpmessage("*", m, mci); /* ** but we should only fail for this authentication ** mechanism; how to do that? */ smtpresult = reply(m, mci, e, TimeOuts.to_auth, getsasldata, NULL, XS_AUTH, NULL); return EX_NOPERM; } if (outlen > 0) { saslresult = sasl_encode64(out, outlen, in64, sizeof(in64), NULL); if (saslresult != SASL_OK) { /* give an error reply to the other side! */ smtpmessage("*", m, mci); return EX_TEMPFAIL; } } else in64[0] = '\0'; # if SASL < 20000 sm_sasl_free(out); /* XXX only if no rpool is used */ # endif smtpmessage("%s", m, mci, in64); smtpresult = reply(m, mci, e, TimeOuts.to_auth, getsasldata, NULL, XS_AUTH, NULL); } /* NOTREACHED */ } /* ** SMTPAUTH -- try to AUTHenticate ** ** This will try mechanisms in the order the sasl library decided until: ** - there are no more mechanisms ** - a mechanism succeeds ** - the sasl library fails initializing ** ** Parameters: ** m -- the mailer. ** mci -- the mailer connection info. ** e -- the envelope. ** ** Returns: ** EX_OK -- authentication was successful ** EX_UNAVAILABLE -- authentication not possible, e.g., ** no data available. ** EX_NOPERM -- authentication failed. ** EX_TEMPFAIL -- temporary failure. ** ** Notice: AuthInfo is used for all connections, hence we must ** return EX_TEMPFAIL only if we really want to retry, i.e., ** iff getauth() tempfailed or getauth() was used and ** authentication tempfailed. */ int smtpauth(m, mci, e) MAILER *m; MCI *mci; ENVELOPE *e; { int result; int i; bool usedgetauth; mci->mci_sasl_auth = false; for (i = 0; i < SASL_MECH ; i++) mci->mci_sai[i] = NULL; result = getauth(mci, e, &(mci->mci_sai)); if (result == EX_TEMPFAIL) return result; usedgetauth = true; /* no data available: don't try to authenticate */ if (result == EX_OK && mci->mci_sai[SASL_AUTHID] == NULL) return result; if (result != EX_OK) { if (SASLInfo == NULL) return EX_UNAVAILABLE; /* read authinfo from file */ result = readauth(SASLInfo, true, &(mci->mci_sai), mci->mci_rpool); if (result != EX_OK) return result; usedgetauth = false; } /* check whether sufficient data is available */ if (mci->mci_sai[SASL_PASSWORD] == NULL || *(mci->mci_sai)[SASL_PASSWORD] == '\0') return EX_UNAVAILABLE; if ((mci->mci_sai[SASL_AUTHID] == NULL || *(mci->mci_sai)[SASL_AUTHID] == '\0') && (mci->mci_sai[SASL_USER] == NULL || *(mci->mci_sai)[SASL_USER] == '\0')) return EX_UNAVAILABLE; /* set the context for the callback function to sai */ # if SASL >= 20000 callbacks[CB_PASS_IDX].context = (void *) mci; # else callbacks[CB_PASS_IDX].context = (void *) &mci->mci_sai; # endif callbacks[CB_USER_IDX].context = (void *) &mci->mci_sai; callbacks[CB_AUTHNAME_IDX].context = (void *) &mci->mci_sai; callbacks[CB_GETREALM_IDX].context = (void *) &mci->mci_sai; # if 0 callbacks[CB_SAFESASL_IDX].context = (void *) &mci->mci_sai; # endif /* set default value for realm */ if ((mci->mci_sai)[SASL_DEFREALM] == NULL) (mci->mci_sai)[SASL_DEFREALM] = sm_rpool_strdup_x(e->e_rpool, macvalue('j', CurEnv)); /* set default value for list of mechanism to use */ if ((mci->mci_sai)[SASL_MECHLIST] == NULL || *(mci->mci_sai)[SASL_MECHLIST] == '\0') (mci->mci_sai)[SASL_MECHLIST] = AuthMechanisms; /* create list of mechanisms to try */ mci->mci_saslcap = intersect((mci->mci_sai)[SASL_MECHLIST], mci->mci_saslcap, mci->mci_rpool); /* initialize sasl client library */ result = init_sasl_client(); if (result != SASL_OK) return usedgetauth ? EX_TEMPFAIL : EX_UNAVAILABLE; do { result = attemptauth(m, mci, e, &(mci->mci_sai)); if (result == EX_OK) mci->mci_sasl_auth = true; else if (result == EX_TEMPFAIL || result == EX_NOPERM) { mci->mci_saslcap = removemech((mci->mci_sai)[SASL_MECH], mci->mci_saslcap, mci->mci_rpool); if (mci->mci_saslcap == NULL || *(mci->mci_saslcap) == '\0') return usedgetauth ? result : EX_UNAVAILABLE; } else return result; } while (result != EX_OK); return result; } #endif /* SASL */ /* ** SMTPMAILFROM -- send MAIL command ** ** Parameters: ** m -- the mailer. ** mci -- the mailer connection structure. ** e -- the envelope (including the sender to specify). ** ** Returns: ** exit status corresponding to mail status. */ int smtpmailfrom(m, mci, e) MAILER *m; MCI *mci; ENVELOPE *e; { int r; char *bufp; char *bodytype; char *enhsc; char buf[MAXNAME_I + 1]; char optbuf[MAXLINE]; #if _FFR_8BITENVADDR int len, nlen; #endif if (tTd(18, 2)) sm_dprintf("smtpmailfrom: CurHost=%s\n", CurHostName); enhsc = NULL; /* ** Check if connection is gone, if so ** it's a tempfail and we use mci_errno ** for the reason. */ if (mci->mci_state == MCIS_CLOSED) { errno = mci->mci_errno; return EX_TEMPFAIL; } #if USE_EAI if (bitset(EF_RESPONSE, e->e_flags) && !bitnset(M_NO_NULL_FROM, m->m_flags)) buf[0] = '\0'; else { expand("\201g", buf, sizeof(buf), e); if (!addr_is_ascii(buf) && !e->e_smtputf8) e->e_smtputf8 = true; } if (e->e_smtputf8 && !SMTP_UTF8) { extern char MsgBuf[]; /* XREF: format must be coordinated with giveresponse() */ usrerrenh("5.6.7", "504 SMTPUTF8 required but not enabled"); mci_setstat(mci, EX_NOTSTICKY, "5.6.7", MsgBuf); return EX_DATAERR; } /* ** Abort right away if the message needs SMTPUTF8 ** but the server does not advertise it. */ if (e->e_smtputf8 && !bitset(MCIF_EAI, mci->mci_flags)) { extern char MsgBuf[]; /* XREF: format must be coordinated with giveresponse() */ usrerrenh("5.6.7", "504 SMTPUTF8 required but not offered"); mci_setstat(mci, EX_NOTSTICKY, "5.6.7", MsgBuf); return EX_DATAERR; } #endif /* USE_EAI */ /* set up appropriate options to include */ if (bitset(MCIF_SIZE, mci->mci_flags) && e->e_msgsize > 0) { (void) sm_snprintf(optbuf, sizeof(optbuf), " SIZE=%ld", e->e_msgsize); bufp = &optbuf[strlen(optbuf)]; } else { optbuf[0] = '\0'; bufp = optbuf; } #if USE_EAI if (e->e_smtputf8) { (void) sm_snprintf(bufp, SPACELEFT(optbuf, bufp), " SMTPUTF8"); bufp += strlen(bufp); } #endif /* USE_EAI */ bodytype = e->e_bodytype; if (bitset(MCIF_8BITMIME, mci->mci_flags)) { if (bodytype == NULL && bitset(MM_MIME8BIT, MimeMode) && bitset(EF_HAS8BIT, e->e_flags) && !bitset(EF_DONT_MIME, e->e_flags) && !bitnset(M_8BITS, m->m_flags)) bodytype = "8BITMIME"; if (bodytype != NULL && SPACELEFT(optbuf, bufp) > strlen(bodytype) + 7) { (void) sm_snprintf(bufp, SPACELEFT(optbuf, bufp), " BODY=%s", bodytype); bufp += strlen(bufp); } } else if (bitnset(M_8BITS, m->m_flags) || !bitset(EF_HAS8BIT, e->e_flags) || bitset(MCIF_8BITOK, mci->mci_flags)) { /* EMPTY */ /* just pass it through */ } #if MIME8TO7 else if (bitset(MM_CVTMIME, MimeMode) && !bitset(EF_DONT_MIME, e->e_flags) && (!bitset(MM_PASS8BIT, MimeMode) || bitset(EF_IS_MIME, e->e_flags))) { /* must convert from 8bit MIME format to 7bit encoded */ mci->mci_flags |= MCIF_CVT8TO7; } #endif /* MIME8TO7 */ else if (!bitset(MM_PASS8BIT, MimeMode)) { /* cannot just send a 8-bit version */ extern char MsgBuf[]; usrerrenh("5.6.3", "%s does not support 8BITMIME", CurHostName); mci_setstat(mci, EX_NOTSTICKY, "5.6.3", MsgBuf); return EX_DATAERR; } if (bitset(MCIF_DSN, mci->mci_flags)) { if (e->e_envid != NULL && SPACELEFT(optbuf, bufp) > strlen(e->e_envid) + 7) { (void) sm_snprintf(bufp, SPACELEFT(optbuf, bufp), " ENVID=%s", e->e_envid); bufp += strlen(bufp); } /* RET= parameter */ if (bitset(EF_RET_PARAM, e->e_flags) && SPACELEFT(optbuf, bufp) > 9) { (void) sm_snprintf(bufp, SPACELEFT(optbuf, bufp), " RET=%s", bitset(EF_NO_BODY_RETN, e->e_flags) ? "HDRS" : "FULL"); bufp += strlen(bufp); } } if (bitset(MCIF_AUTH, mci->mci_flags) && e->e_auth_param != NULL && SPACELEFT(optbuf, bufp) > strlen(e->e_auth_param) + 7 #if SASL && (!bitset(SASL_AUTH_AUTH, SASLOpts) || mci->mci_sasl_auth) #endif ) { (void) sm_snprintf(bufp, SPACELEFT(optbuf, bufp), " AUTH=%s", e->e_auth_param); bufp += strlen(bufp); } /* ** 17 is the max length required, we could use log() to compute ** the exact length (and check IS_DLVR_TRACE()) */ if (bitset(MCIF_DLVR_BY, mci->mci_flags) && IS_DLVR_BY(e) && SPACELEFT(optbuf, bufp) > 17) { long dby; /* ** Avoid problems with delays (for R) since the check ** in deliver() whether min-deliver-time is sufficient. ** Alternatively we could pass the computed time to this ** function. */ dby = e->e_deliver_by - (curtime() - e->e_ctime); if (dby <= 0 && IS_DLVR_RETURN(e)) dby = mci->mci_min_by <= 0 ? 1 : mci->mci_min_by; (void) sm_snprintf(bufp, SPACELEFT(optbuf, bufp), " BY=%ld;%c%s", dby, IS_DLVR_RETURN(e) ? 'R' : 'N', IS_DLVR_TRACE(e) ? "T" : ""); bufp += strlen(bufp); } /* ** Send the MAIL command. ** Designates the sender. */ maps_reset_chged("client:MAIL"); mci->mci_state = MCIS_MAIL; #if !USE_EAI if (bitset(EF_RESPONSE, e->e_flags) && !bitnset(M_NO_NULL_FROM, m->m_flags)) buf[0] = '\0'; else expand("\201g", buf, sizeof(buf), e); #endif /* !USE_EAI */ #if _FFR_8BITENVADDR if (tTd(18, 11)) sm_dprintf("mail_expand=%s\n", buf); len = sizeof(buf); nlen = dequote_internal_chars(buf, buf, len); /* check length! but that's a bit late... */ if (nlen > MAXNAME) sm_syslog(LOG_ERR, e->e_id, "MAIL too long: %d", nlen); if (tTd(18, 11)) sm_dprintf("mail2=%s\n", buf); #endif /* _FFR_8BITENVADDR */ if (buf[0] == '<') { /* strip off (put back on below) */ bufp = &buf[strlen(buf) - 1]; if (*bufp == '>') *bufp = '\0'; bufp = &buf[1]; } else bufp = buf; if (bitnset(M_LOCALMAILER, e->e_from.q_mailer->m_flags) || !bitnset(M_FROMPATH, m->m_flags)) { smtpmessage("MAIL From:<%s>%s", m, mci, bufp, optbuf); } else { smtpmessage("MAIL From:<@%s%c%s>%s", m, mci, MyHostName, *bufp == '@' ? ',' : ':', bufp, optbuf); } SmtpPhase = mci->mci_phase = "client MAIL"; sm_setproctitle(true, e, "%s %s: %s", qid_printname(e), CurHostName, mci->mci_phase); r = reply(m, mci, e, TimeOuts.to_mail, NULL, &enhsc, XS_MAIL, NULL); if (r < 0) { /* communications failure */ mci_setstat(mci, EX_TEMPFAIL, "4.4.2", NULL); return EX_TEMPFAIL; } else if (r == SMTPCLOSING) { /* service shutting down: handled by reply() */ return EX_TEMPFAIL; } else if (REPLYTYPE(r) == 4) { mci_setstat(mci, EX_NOTSTICKY, ENHSCN(enhsc, smtptodsn(r)), SmtpReplyBuffer); return EX_TEMPFAIL; } else if (REPLYTYPE(r) == 2) { return EX_OK; } else if (r == 501) { /* syntax error in arguments */ mci_setstat(mci, EX_NOTSTICKY, ENHSCN(enhsc, "5.5.2"), SmtpReplyBuffer); return EX_DATAERR; } else if (r == 553) { /* mailbox name not allowed */ mci_setstat(mci, EX_NOTSTICKY, ENHSCN(enhsc, "5.1.3"), SmtpReplyBuffer); return EX_DATAERR; } else if (r == 552) { /* exceeded storage allocation */ mci_setstat(mci, EX_NOTSTICKY, ENHSCN(enhsc, "5.3.4"), SmtpReplyBuffer); if (bitset(MCIF_SIZE, mci->mci_flags)) e->e_flags |= EF_NO_BODY_RETN; return EX_UNAVAILABLE; } else if (REPLYTYPE(r) == 5) { /* unknown error */ mci_setstat(mci, EX_NOTSTICKY, ENHSCN(enhsc, "5.0.0"), SmtpReplyBuffer); return EX_UNAVAILABLE; } if (LogLevel > 1) { sm_syslog(LOG_CRIT, e->e_id, "%.100s: SMTP MAIL protocol error: %s", CurHostName, shortenstring(SmtpReplyBuffer, 403)); } /* protocol error -- close up */ mci_setstat(mci, EX_PROTOCOL, ENHSCN(enhsc, "5.5.1"), SmtpReplyBuffer); smtpquit(m, mci, e); return EX_PROTOCOL; } /* ** SMTPRCPT -- designate recipient. ** ** Parameters: ** to -- address of recipient. ** m -- the mailer we are sending to. ** mci -- the connection info for this transaction. ** e -- the envelope for this transaction. ** ** Returns: ** exit status corresponding to recipient status. ** ** Side Effects: ** Sends the mail via SMTP. */ int smtprcpt(to, m, mci, e, ctladdr, xstart) ADDRESS *to; register MAILER *m; MCI *mci; ENVELOPE *e; ADDRESS *ctladdr; time_t xstart; { char *bufp; char optbuf[MAXLINE]; char *rcpt; #if _FFR_8BITENVADDR char buf[MAXNAME + 1]; /* EAI:ok */ int len, nlen; #endif #if PIPELINING char *oldto; #endif #if PIPELINING /* ** If there is status waiting from the other end, read it. ** This should normally happen because of SMTP pipelining. */ oldto = e->e_to; while (mci->mci_nextaddr != NULL && sm_io_getinfo(mci->mci_in, SM_IO_IS_READABLE, NULL) > 0) { int r; e->e_to = mci->mci_nextaddr->q_paddr; r = smtprcptstat(mci->mci_nextaddr, m, mci, e); if (r != EX_OK) { markfailure(e, mci->mci_nextaddr, mci, r, false); giveresponse(r, mci->mci_nextaddr->q_status, m, mci, ctladdr, xstart, e, mci->mci_nextaddr); } mci->mci_nextaddr = mci->mci_nextaddr->q_pchain; e->e_to = oldto; } e->e_to = oldto; #endif /* PIPELINING */ /* ** Check if connection is gone, if so ** it's a tempfail and we use mci_errno ** for the reason. */ if (mci->mci_state == MCIS_CLOSED) { errno = mci->mci_errno; return EX_TEMPFAIL; } optbuf[0] = '\0'; bufp = optbuf; /* ** Warning: in the following it is assumed that the free space ** in bufp is sizeof(optbuf) */ if (bitset(MCIF_DSN, mci->mci_flags)) { if (IS_DLVR_NOTIFY(e) && !bitset(MCIF_DLVR_BY, mci->mci_flags)) { /* RFC 2852: 4.1.4.2 */ if (!bitset(QHASNOTIFY, to->q_flags)) to->q_flags |= QPINGONFAILURE|QPINGONDELAY|QHASNOTIFY; else if (bitset(QPINGONSUCCESS, to->q_flags) || bitset(QPINGONFAILURE, to->q_flags) || bitset(QPINGONDELAY, to->q_flags)) to->q_flags |= QPINGONDELAY; } /* NOTIFY= parameter */ if (bitset(QHASNOTIFY, to->q_flags) && bitset(QPRIMARY, to->q_flags) && !bitnset(M_LOCALMAILER, m->m_flags)) { bool firstone = true; (void) sm_strlcat(bufp, " NOTIFY=", sizeof(optbuf)); if (bitset(QPINGONSUCCESS, to->q_flags)) { (void) sm_strlcat(bufp, "SUCCESS", sizeof(optbuf)); firstone = false; } if (bitset(QPINGONFAILURE, to->q_flags)) { if (!firstone) (void) sm_strlcat(bufp, ",", sizeof(optbuf)); (void) sm_strlcat(bufp, "FAILURE", sizeof(optbuf)); firstone = false; } if (bitset(QPINGONDELAY, to->q_flags)) { if (!firstone) (void) sm_strlcat(bufp, ",", sizeof(optbuf)); (void) sm_strlcat(bufp, "DELAY", sizeof(optbuf)); firstone = false; } if (firstone) (void) sm_strlcat(bufp, "NEVER", sizeof(optbuf)); bufp += strlen(bufp); } /* ORCPT= parameter */ if (to->q_orcpt != NULL && SPACELEFT(optbuf, bufp) > strlen(to->q_orcpt) + 7) { (void) sm_snprintf(bufp, SPACELEFT(optbuf, bufp), " ORCPT=%s", to->q_orcpt); bufp += strlen(bufp); } } rcpt = to->q_user; #if _FFR_8BITENVADDR if (tTd(18, 11)) sm_dprintf("rcpt=%s\n", rcpt); len = sizeof(buf); nlen = dequote_internal_chars(rcpt, buf, len); rcpt = buf; /* check length! but that's a bit late... */ if (nlen > MAXNAME) sm_syslog(LOG_ERR, e->e_id, "RCPT too long: %d", nlen); if (tTd(18, 11)) sm_dprintf("rcpt2=%s\n", rcpt); #endif /* _FFR_8BITENVADDR */ smtpmessage("RCPT To:<%s>%s", m, mci, rcpt, optbuf); mci->mci_state = MCIS_RCPT; SmtpPhase = mci->mci_phase = "client RCPT"; sm_setproctitle(true, e, "%s %s: %s", qid_printname(e), CurHostName, mci->mci_phase); #if PIPELINING /* ** If running SMTP pipelining, we will pick up status later */ if (bitset(MCIF_PIPELINED, mci->mci_flags)) return EX_OK; #endif /* PIPELINING */ return smtprcptstat(to, m, mci, e); } /* ** SMTPRCPTSTAT -- get recipient status ** ** This is only called during SMTP pipelining ** ** Parameters: ** to -- address of recipient. ** m -- mailer being sent to. ** mci -- the mailer connection information. ** e -- the envelope for this message. ** ** Returns: ** EX_* -- protocol status */ static int smtprcptstat(to, m, mci, e) ADDRESS *to; MAILER *m; register MCI *mci; register ENVELOPE *e; { int r; int save_errno; char *enhsc; /* ** Check if connection is gone, if so ** it's a tempfail and we use mci_errno ** for the reason. */ if (mci->mci_state == MCIS_CLOSED) { errno = mci->mci_errno; return EX_TEMPFAIL; } enhsc = NULL; r = reply(m, mci, e, TimeOuts.to_rcpt, NULL, &enhsc, XS_RCPT, &to->q_rstatus); save_errno = errno; to->q_status = ENHSCN_RPOOL(enhsc, smtptodsn(r), e->e_rpool); if (!bitnset(M_LMTP, m->m_flags)) to->q_statmta = mci->mci_host; if (r < 0 || REPLYTYPE(r) == 4) { mci->mci_retryrcpt = true; errno = save_errno; return EX_TEMPFAIL; } else if (REPLYTYPE(r) == 2) { char *t; if ((t = mci->mci_tolist) != NULL) { char *p; *t++ = ','; for (p = to->q_paddr; *p != '\0'; *t++ = *p++) continue; *t = '\0'; mci->mci_tolist = t; } mci->mci_okrcpts++; return EX_OK; } else if (r == 550) { to->q_status = ENHSCN_RPOOL(enhsc, "5.1.1", e->e_rpool); return EX_NOUSER; } else if (r == 551) { to->q_status = ENHSCN_RPOOL(enhsc, "5.1.6", e->e_rpool); return EX_NOUSER; } else if (r == 553) { to->q_status = ENHSCN_RPOOL(enhsc, "5.1.3", e->e_rpool); return EX_NOUSER; } else if (REPLYTYPE(r) == 5) { return EX_UNAVAILABLE; } if (LogLevel > 1) { sm_syslog(LOG_CRIT, e->e_id, "%.100s: SMTP RCPT protocol error: %s", CurHostName, shortenstring(SmtpReplyBuffer, 403)); } mci_setstat(mci, EX_PROTOCOL, ENHSCN(enhsc, "5.5.1"), SmtpReplyBuffer); return EX_PROTOCOL; } /* ** SMTPDATA -- send the data and clean up the transaction. ** ** Parameters: ** m -- mailer being sent to. ** mci -- the mailer connection information. ** e -- the envelope for this message. ** ** Returns: ** exit status corresponding to DATA command. */ int smtpdata(m, mci, e, ctladdr, xstart) MAILER *m; register MCI *mci; register ENVELOPE *e; ADDRESS *ctladdr; time_t xstart; { register int r; int rstat; int xstat; int timeout; char *enhsc; /* ** Check if connection is gone, if so ** it's a tempfail and we use mci_errno ** for the reason. */ if (mci->mci_state == MCIS_CLOSED) { errno = mci->mci_errno; return EX_TEMPFAIL; } enhsc = NULL; /* ** Send the data. ** First send the command and check that it is ok. ** Then send the data (if there are valid recipients). ** Follow it up with a dot to terminate. ** Finally get the results of the transaction. */ /* send the command and check ok to proceed */ smtpmessage("DATA", m, mci); #if PIPELINING if (mci->mci_nextaddr != NULL) { char *oldto = e->e_to; /* pick up any pending RCPT responses for SMTP pipelining */ while (mci->mci_nextaddr != NULL) { e->e_to = mci->mci_nextaddr->q_paddr; r = smtprcptstat(mci->mci_nextaddr, m, mci, e); if (r != EX_OK) { markfailure(e, mci->mci_nextaddr, mci, r, false); giveresponse(r, mci->mci_nextaddr->q_status, m, mci, ctladdr, xstart, e, mci->mci_nextaddr); if (r == EX_TEMPFAIL) mci->mci_nextaddr->q_state = QS_RETRY; } mci->mci_nextaddr = mci->mci_nextaddr->q_pchain; } e->e_to = oldto; /* ** Connection might be closed in response to a RCPT command, ** i.e., the server responded with 421. In that case (at ** least) one RCPT has a temporary failure, hence we don't ** need to check mci_okrcpts (as it is done below) to figure ** out which error to return. */ if (mci->mci_state == MCIS_CLOSED) { errno = mci->mci_errno; return EX_TEMPFAIL; } } #endif /* PIPELINING */ /* now proceed with DATA phase */ SmtpPhase = mci->mci_phase = "client DATA 354"; mci->mci_state = MCIS_DATA; sm_setproctitle(true, e, "%s %s: %s", qid_printname(e), CurHostName, mci->mci_phase); r = reply(m, mci, e, TimeOuts.to_datainit, NULL, &enhsc, XS_DATA, NULL); if (r < 0 || REPLYTYPE(r) == 4) { if (r >= 0) smtpquit(m, mci, e); errno = mci->mci_errno; return EX_TEMPFAIL; } else if (REPLYTYPE(r) == 5) { smtprset(m, mci, e); if (mci->mci_okrcpts <= 0 && mci->mci_retryrcpt) return EX_TEMPFAIL; return EX_UNAVAILABLE; } else if (REPLYTYPE(r) != 3) { if (LogLevel > 1) { sm_syslog(LOG_CRIT, e->e_id, "%.100s: SMTP DATA-1 protocol error: %s", CurHostName, shortenstring(SmtpReplyBuffer, 403)); } smtprset(m, mci, e); mci_setstat(mci, EX_PROTOCOL, ENHSCN(enhsc, "5.5.1"), SmtpReplyBuffer); if (mci->mci_okrcpts <= 0 && mci->mci_retryrcpt) return EX_TEMPFAIL; return EX_PROTOCOL; } if (mci->mci_okrcpts > 0) { /* ** Set timeout around data writes. Make it at least ** large enough for DNS timeouts on all recipients ** plus some fudge factor. The main thing is ** that it should not be infinite. */ if (tTd(18, 101)) { /* simulate a DATA timeout */ timeout = 10; } else timeout = DATA_PROGRESS_TIMEOUT * 1000; sm_io_setinfo(mci->mci_out, SM_IO_WHAT_TIMEOUT, &timeout); /* ** Output the actual message. */ if (!(*e->e_puthdr)(mci, e->e_header, e, M87F_OUTER)) goto writeerr; if (tTd(18, 101)) { /* simulate a DATA timeout */ (void) sleep(2); } if (!(*e->e_putbody)(mci, e, NULL)) goto writeerr; /* ** Cleanup after sending message. */ } #if _FFR_CATCH_BROKEN_MTAS if (sm_io_getinfo(mci->mci_in, SM_IO_IS_READABLE, NULL) > 0) { /* terminate the message */ (void) sm_io_fprintf(mci->mci_out, SM_TIME_DEFAULT, ".%s", m->m_eol); if (TrafficLogFile != NULL) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d >>> .\n", (int) CurrentPid); if (Verbose) nmessage(">>> ."); sm_syslog(LOG_CRIT, e->e_id, "%.100s: SMTP DATA-1 protocol error: remote server returned response before final dot", CurHostName); mci->mci_errno = EIO; mci->mci_state = MCIS_ERROR; mci_setstat(mci, EX_PROTOCOL, "5.5.0", NULL); smtpquit(m, mci, e); return EX_PROTOCOL; } #endif /* _FFR_CATCH_BROKEN_MTAS */ if (sm_io_error(mci->mci_out)) { /* error during processing -- don't send the dot */ mci->mci_errno = EIO; mci->mci_state = MCIS_ERROR; mci_setstat(mci, EX_IOERR, "4.4.2", NULL); smtpquit(m, mci, e); return EX_IOERR; } /* terminate the message */ if (sm_io_fprintf(mci->mci_out, SM_TIME_DEFAULT, "%s.%s", bitset(MCIF_INLONGLINE, mci->mci_flags) ? m->m_eol : "", m->m_eol) == SM_IO_EOF) goto writeerr; if (TrafficLogFile != NULL) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d >>> .\n", (int) CurrentPid); if (Verbose) nmessage(">>> ."); /* check for the results of the transaction */ SmtpPhase = mci->mci_phase = "client DATA status"; sm_setproctitle(true, e, "%s %s: %s", qid_printname(e), CurHostName, mci->mci_phase); if (bitnset(M_LMTP, m->m_flags)) return EX_OK; r = reply(m, mci, e, TimeOuts.to_datafinal, NULL, &enhsc, XS_EOM, NULL); if (r < 0) return EX_TEMPFAIL; if (mci->mci_state == MCIS_DATA) mci->mci_state = MCIS_OPEN; xstat = EX_NOTSTICKY; if (r == 452) rstat = EX_TEMPFAIL; else if (REPLYTYPE(r) == 4) rstat = xstat = EX_TEMPFAIL; else if (REPLYTYPE(r) == 2) rstat = xstat = EX_OK; else if (REPLYCLASS(r) != 5) rstat = xstat = EX_PROTOCOL; else if (REPLYTYPE(r) == 5) rstat = EX_UNAVAILABLE; else rstat = EX_PROTOCOL; mci_setstat(mci, xstat, ENHSCN(enhsc, smtptodsn(r)), SmtpReplyBuffer); if (bitset(MCIF_ENHSTAT, mci->mci_flags) && (r = isenhsc(SmtpReplyBuffer + 4, ' ')) > 0) r += 5; else r = 4; e->e_statmsg = sm_rpool_strdup_x(e->e_rpool, &SmtpReplyBuffer[r]); SmtpPhase = mci->mci_phase = "idle"; sm_setproctitle(true, e, "%s: %s", CurHostName, mci->mci_phase); if (rstat != EX_PROTOCOL) return rstat; if (LogLevel > 1) { sm_syslog(LOG_CRIT, e->e_id, "%.100s: SMTP DATA-2 protocol error: %s", CurHostName, shortenstring(SmtpReplyBuffer, 403)); } return rstat; writeerr: mci->mci_errno = errno; mci->mci_state = MCIS_ERROR; mci_setstat(mci, bitset(MCIF_NOTSTICKY, mci->mci_flags) ? EX_NOTSTICKY: EX_TEMPFAIL, "4.4.2", NULL); mci->mci_flags &= ~MCIF_NOTSTICKY; /* ** If putbody() couldn't finish due to a timeout, ** rewind it here in the timeout handler. See ** comments at the end of putbody() for reasoning. */ if (e->e_dfp != NULL) (void) bfrewind(e->e_dfp); errno = mci->mci_errno; syserr("+451 4.4.1 timeout writing message to %s", CurHostName); smtpquit(m, mci, e); return EX_TEMPFAIL; } /* ** SMTPGETSTAT -- get status code from DATA in LMTP ** ** Parameters: ** m -- the mailer to which we are sending the message. ** mci -- the mailer connection structure. ** e -- the current envelope. ** ** Returns: ** The exit status corresponding to the reply code. */ int smtpgetstat(m, mci, e) MAILER *m; MCI *mci; ENVELOPE *e; { int r; int off; int status, xstat; char *enhsc; enhsc = NULL; /* check for the results of the transaction */ r = reply(m, mci, e, TimeOuts.to_datafinal, NULL, &enhsc, XS_DATA2, NULL); if (r < 0) return EX_TEMPFAIL; xstat = EX_NOTSTICKY; if (REPLYTYPE(r) == 4) status = EX_TEMPFAIL; else if (REPLYTYPE(r) == 2) status = xstat = EX_OK; else if (REPLYCLASS(r) != 5) status = xstat = EX_PROTOCOL; else if (REPLYTYPE(r) == 5) status = EX_UNAVAILABLE; else status = EX_PROTOCOL; if (bitset(MCIF_ENHSTAT, mci->mci_flags) && (off = isenhsc(SmtpReplyBuffer + 4, ' ')) > 0) off += 5; else off = 4; e->e_statmsg = sm_rpool_strdup_x(e->e_rpool, &SmtpReplyBuffer[off]); mci_setstat(mci, xstat, ENHSCN(enhsc, smtptodsn(r)), SmtpReplyBuffer); if (LogLevel > 1 && status == EX_PROTOCOL) { sm_syslog(LOG_CRIT, e->e_id, "%.100s: SMTP DATA-3 protocol error: %s", CurHostName, shortenstring(SmtpReplyBuffer, 403)); } return status; } /* ** SMTPQUIT -- close the SMTP connection. ** ** Parameters: ** m -- a pointer to the mailer. ** mci -- the mailer connection information. ** e -- the current envelope. ** ** Returns: ** none. ** ** Side Effects: ** sends the final protocol and closes the connection. */ void smtpquit(m, mci, e) register MAILER *m; register MCI *mci; ENVELOPE *e; { bool oldSuprErrs = SuprErrs; int rcode; char *oldcurhost; if (mci->mci_state == MCIS_CLOSED) { mci_close(mci, "smtpquit:1"); return; } oldcurhost = CurHostName; CurHostName = mci->mci_host; /* XXX UGLY XXX */ if (CurHostName == NULL) CurHostName = MyHostName; /* ** Suppress errors here -- we may be processing a different ** job when we do the quit connection, and we don't want the ** new job to be penalized for something that isn't it's ** problem. */ SuprErrs = true; /* send the quit message if we haven't gotten I/O error */ if (mci->mci_state != MCIS_ERROR && mci->mci_state != MCIS_QUITING) { SmtpPhase = "client QUIT"; mci->mci_state = MCIS_QUITING; smtpmessage("QUIT", m, mci); (void) reply(m, mci, e, TimeOuts.to_quit, NULL, NULL, XS_QUIT, NULL); SuprErrs = oldSuprErrs; if (mci->mci_state == MCIS_CLOSED) goto end; } /* now actually close the connection and pick up the zombie */ rcode = endmailer(mci, e, NULL); if (rcode != EX_OK) { char *mailer = NULL; if (mci->mci_mailer != NULL && mci->mci_mailer->m_name != NULL) mailer = mci->mci_mailer->m_name; /* look for naughty mailers */ sm_syslog(LOG_ERR, e->e_id, "smtpquit: mailer%s%s exited with exit value %d", mailer == NULL ? "" : " ", mailer == NULL ? "" : mailer, rcode); } SuprErrs = oldSuprErrs; end: CurHostName = oldcurhost; return; } /* ** SMTPRSET -- send a RSET (reset) command ** ** Parameters: ** m -- a pointer to the mailer. ** mci -- the mailer connection information. ** e -- the current envelope. ** ** Returns: ** none. ** ** Side Effects: ** closes the connection if there is no reply to RSET. */ void smtprset(m, mci, e) register MAILER *m; register MCI *mci; ENVELOPE *e; { int r; CurHostName = mci->mci_host; /* XXX UGLY XXX */ if (CurHostName == NULL) CurHostName = MyHostName; /* ** Check if connection is gone, if so ** it's a tempfail and we use mci_errno ** for the reason. */ if (mci->mci_state == MCIS_CLOSED) { errno = mci->mci_errno; return; } SmtpPhase = "client RSET"; smtpmessage("RSET", m, mci); r = reply(m, mci, e, TimeOuts.to_rset, NULL, NULL, XS_DEFAULT, NULL); if (r < 0) return; /* ** Any response is deemed to be acceptable. ** The standard does not state the proper action ** to take when a value other than 250 is received. ** ** However, if 421 is returned for the RSET, leave ** mci_state alone (MCIS_SSD can be set in reply() ** and MCIS_CLOSED can be set in smtpquit() if ** reply() gets a 421 and calls smtpquit()). */ if (mci->mci_state != MCIS_SSD && mci->mci_state != MCIS_CLOSED) mci->mci_state = MCIS_OPEN; else if (mci->mci_exitstat == EX_OK) mci_setstat(mci, EX_TEMPFAIL, "4.5.0", NULL); } /* ** SMTPPROBE -- check the connection state ** ** Parameters: ** mci -- the mailer connection information. ** ** Returns: ** none. ** ** Side Effects: ** closes the connection if there is no reply to RSET. */ int smtpprobe(mci) register MCI *mci; { int r; MAILER *m = mci->mci_mailer; ENVELOPE *e; extern ENVELOPE BlankEnvelope; CurHostName = mci->mci_host; /* XXX UGLY XXX */ if (CurHostName == NULL) CurHostName = MyHostName; e = &BlankEnvelope; SmtpPhase = "client probe"; smtpmessage("RSET", m, mci); r = reply(m, mci, e, TimeOuts.to_miscshort, NULL, NULL, XS_DEFAULT, NULL); if (REPLYTYPE(r) != 2) smtpquit(m, mci, e); return r; } /* ** REPLY -- read arpanet reply ** ** Parameters: ** m -- the mailer we are reading the reply from. ** mci -- the mailer connection info structure. ** e -- the current envelope. ** timeout -- the timeout for reads. ** pfunc -- processing function called on each line of response. ** If null, no special processing is done. ** enhstat -- optional, returns enhanced error code string (if set) ** rtype -- type of SmtpMsgBuffer: does it contains secret data? ** rtext -- pointer to where to save first line of reply (if set) ** ** Returns: ** reply code it reads. ** -1 on I/O errors etc. ** ** Side Effects: ** flushes the mail file. */ int reply(m, mci, e, timeout, pfunc, enhstat, rtype, rtext) MAILER *m; MCI *mci; ENVELOPE *e; time_t timeout; void (*pfunc) __P((char *, bool, MAILER *, MCI *, ENVELOPE *)); char **enhstat; int rtype; char **rtext; { register char *bufp; register int r; bool firstline = true; char junkbuf[MAXLINE]; static char enhstatcode[ENHSCLEN]; int save_errno; /* ** Flush the output before reading response. ** ** For SMTP pipelining, it would be better if we didn't do ** this if there was already data waiting to be read. But ** to do it properly means pushing it to the I/O library, ** since it really needs to be done below the buffer layer. */ if (mci->mci_out != NULL) (void) sm_io_flush(mci->mci_out, SM_TIME_DEFAULT); if (tTd(18, 1)) { char *what; if (SmtpMsgBuffer[0] != '\0') what = SmtpMsgBuffer; else if (SmtpPhase != NULL && SmtpPhase[0] != '\0') what = SmtpPhase; else if (XS_GREET == rtype) what = "greeting"; else what = "unknown"; #if PIPELINING if (mci->mci_flags & MCIF_PIPELINED) sm_dprintf("reply to %s:%d [but PIPELINED]\n", what, rtype); else #endif /* "else" in #if code above */ sm_dprintf("reply to %s:%d\n", what, rtype); } /* ** Read the input line, being careful not to hang. */ bufp = SmtpReplyBuffer; (void) set_tls_rd_tmo(timeout); for (;;) { register char *p; /* actually do the read */ if (e->e_xfp != NULL) /* for debugging */ (void) sm_io_flush(e->e_xfp, SM_TIME_DEFAULT); /* if we are in the process of closing just give the code */ if (mci->mci_state == MCIS_CLOSED) return SMTPCLOSING; /* don't try to read from a non-existent fd */ if (mci->mci_in == NULL) { if (mci->mci_errno == 0) mci->mci_errno = EBADF; /* errors on QUIT should be ignored */ if (strncmp(SmtpMsgBuffer, "QUIT", 4) == 0) { errno = mci->mci_errno; mci_close(mci, "reply:1"); return -1; } mci->mci_state = MCIS_ERROR; smtpquit(m, mci, e); errno = mci->mci_errno; return -1; } if (mci->mci_out != NULL) (void) sm_io_flush(mci->mci_out, SM_TIME_DEFAULT); /* get the line from the other side */ p = sfgets(bufp, MAXLINE, mci->mci_in, timeout, SmtpPhase); save_errno = errno; mci->mci_lastuse = curtime(); if (p == NULL) { bool oldholderrs; extern char MsgBuf[]; /* errors on QUIT should be ignored */ if (strncmp(SmtpMsgBuffer, "QUIT", 4) == 0) { mci_close(mci, "reply:2"); return -1; } /* if the remote end closed early, fake an error */ errno = save_errno; if (errno == 0) { (void) sm_snprintf(SmtpReplyBuffer, sizeof(SmtpReplyBuffer), "421 4.4.1 Connection reset by %s", CURHOSTNAME); #ifdef ECONNRESET errno = ECONNRESET; #else errno = EPIPE; #endif } mci->mci_errno = errno; oldholderrs = HoldErrs; HoldErrs = true; usrerr("451 4.4.2 reply: read error from %s", CURHOSTNAME); mci_setstat(mci, EX_TEMPFAIL, "4.4.2", MsgBuf); /* if debugging, pause so we can see state */ if (tTd(18, 100)) (void) pause(); mci->mci_state = MCIS_ERROR; smtpquit(m, mci, e); #if XDEBUG { char wbuf[MAXLINE]; p = wbuf; if (e->e_to != NULL) { (void) sm_snprintf(p, SPACELEFT(wbuf, p), "%s... ", shortenstring(e->e_to, MAXSHORTSTR)); p += strlen(p); } (void) sm_snprintf(p, SPACELEFT(wbuf, p), "reply(%.100s) during %s", CURHOSTNAME, SmtpPhase); checkfd012(wbuf); } #endif /* XDEBUG */ HoldErrs = oldholderrs; errno = save_errno; return -1; } fixcrlf(bufp, true); if (tTd(18, 4)) sm_dprintf("received=%s\n", bufp); /* EHLO failure is not a real error */ if (e->e_xfp != NULL && (bufp[0] == '4' || (bufp[0] == '5' && strncmp(SmtpMsgBuffer, "EHLO", 4) != 0))) { /* serious error -- log the previous command */ if (SmtpNeedIntro) { /* inform user who we are chatting with */ (void) sm_io_fprintf(CurEnv->e_xfp, SM_TIME_DEFAULT, "... while talking to %s:\n", CURHOSTNAME); SmtpNeedIntro = false; } if (SmtpMsgBuffer[0] != '\0') { (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, ">>> %s\n", (rtype == XS_STARTTLS) ? "STARTTLS dialogue" : ((rtype == XS_AUTH) ? "AUTH dialogue" : SmtpMsgBuffer)); SmtpMsgBuffer[0] = '\0'; } /* now log the message as from the other side */ (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "<<< %s\n", bufp); } /* display the input for verbose mode */ if (Verbose) nmessage("050 %s", bufp); /* ignore improperly formatted input */ if (!ISSMTPREPLY(bufp)) continue; if (NULL != rtext && firstline) *rtext = sm_rpool_strdup_x(e->e_rpool, SmtpReplyBuffer); if (bitset(MCIF_ENHSTAT, mci->mci_flags) && enhstat != NULL && extenhsc(bufp + 4, ' ', enhstatcode) > 0) *enhstat = enhstatcode; /* process the line */ if (pfunc != NULL) (*pfunc)(bufp, firstline, m, mci, e); /* decode the reply code */ r = atoi(bufp); /* extra semantics: 0xx codes are "informational" */ if (r < 100) { firstline = false; continue; } if (REPLYTYPE(r) > 3 && firstline #if _FFR_PROXY && (e->e_sendmode != SM_PROXY || (e->e_sendmode == SM_PROXY && (e->e_rcode == 0 || REPLYTYPE(e->e_rcode) < 5)) ) #endif ) { int o = -1; /* ** ignore error iff: DATA, 5xy error, but we had ** "retryable" recipients. XREF: smtpdata() */ if (!(rtype == XS_DATA && REPLYTYPE(r) == 5 && mci->mci_okrcpts <= 0 && mci->mci_retryrcpt)) { o = extenhsc(bufp + 4, ' ', enhstatcode); if (o > 0) { sm_strlcpy(e->e_renhsc, enhstatcode, sizeof(e->e_renhsc)); /* skip SMTP reply code, delimiters */ o += 5; } else o = 4; /* ** Don't use this for reply= logging ** if it was for QUIT. ** (Note: use the debug option to ** reproduce the original error.) */ if (rtype != XS_QUIT || tTd(87, 101)) { e->e_rcode = r; e->e_text = sm_rpool_strdup_x( e->e_rpool, bufp + o); #if _FFR_LOG_STAGE e->e_estate = rtype; #endif } } if (tTd(87, 2)) { sm_dprintf("user: e=%p, offset=%d, bufp=%s, rcode=%d, enhstat=%s, rtype=%d, text=%s\n" , (void *)e, o, bufp, r, e->e_renhsc , rtype, e->e_text); } } #if _FFR_REPLY_MULTILINE # if _FFR_REPLY_MULTILINE > 200 # define MLLIMIT _FFR_REPLY_MULTILINE # else # define MLLIMIT 1024 # endif if ((REPLYTYPE(r) > 3 && !firstline && e->e_text != NULL && rtype != XS_QUIT) || tTd(87, 101)) { int len; char *new; /* skip the same stuff or use o? */ /* but o is a local variable in the block above */ len = strlen(e->e_text) + strlen(bufp) + 3; if (len < MLLIMIT && (new = (char *) sm_rpool_malloc(e->e_rpool, len)) != NULL) { sm_strlcpyn(new, len, 3, e->e_text, "; ", bufp /* + o */); e->e_text = new; } } #endif /* _FFR_REPLY_MULTILINE */ firstline = false; /* if no continuation lines, return this line */ if (bufp[3] != '-') break; /* first line of real reply -- ignore rest */ bufp = junkbuf; } /* ** Now look at SmtpReplyBuffer -- only care about the first ** line of the response from here on out. */ /* save temporary failure messages for posterity */ if (SmtpReplyBuffer[0] == '4') (void) sm_strlcpy(SmtpError, SmtpReplyBuffer, sizeof(SmtpError)); /* reply code 421 is "Service Shutting Down" */ if (r == SMTPCLOSING && mci->mci_state != MCIS_SSD && mci->mci_state != MCIS_QUITING) { /* send the quit protocol */ mci->mci_state = MCIS_SSD; smtpquit(m, mci, e); } return r; } /* ** SMTPMESSAGE -- send message to server ** ** Parameters: ** f -- format ** m -- the mailer to control formatting. ** a, b, c -- parameters ** ** Returns: ** none. ** ** Side Effects: ** writes message to mci->mci_out. */ /*VARARGS1*/ void #ifdef __STDC__ smtpmessage(char *f, MAILER *m, MCI *mci, ...) #else /* __STDC__ */ smtpmessage(f, m, mci, va_alist) char *f; MAILER *m; MCI *mci; va_dcl #endif /* __STDC__ */ { SM_VA_LOCAL_DECL SM_VA_START(ap, mci); (void) sm_vsnprintf(SmtpMsgBuffer, sizeof(SmtpMsgBuffer), f, ap); SM_VA_END(ap); if (tTd(18, 1) || Verbose) nmessage(">>> %s", SmtpMsgBuffer); if (TrafficLogFile != NULL) (void) sm_io_fprintf(TrafficLogFile, SM_TIME_DEFAULT, "%05d >>> %s\n", (int) CurrentPid, SmtpMsgBuffer); if (mci->mci_out != NULL) { (void) sm_io_fprintf(mci->mci_out, SM_TIME_DEFAULT, "%s%s", SmtpMsgBuffer, m == NULL ? "\r\n" : m->m_eol); } else if (tTd(18, 1)) sm_dprintf("smtpmessage: NULL mci_out\n"); } sendmail-8.18.1/sendmail/timers.h0000644000372400037240000000144014556365350016236 0ustar xbuildxbuild/* * Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: timers.h,v 8.7 2013-11-22 20:51:57 ca Exp $ * * Contributed by Exactis.com, Inc. * */ #ifndef TIMERS_H #define TIMERS_H 1 #define MAXTIMERSTACK 20 /* maximum timer depth */ #define TIMER struct _timer TIMER { long ti_wall_sec; /* wall clock seconds */ long ti_wall_usec; /* ... microseconds */ long ti_cpu_sec; /* cpu time seconds */ long ti_cpu_usec; /* ... microseconds */ }; extern void pushtimer __P((TIMER *)); extern void poptimer __P((TIMER *)); extern char *strtimer __P((TIMER *)); #endif /* ! TIMERS_H */ sendmail-8.18.1/sendmail/bf.h0000644000372400037240000000175714556365350015335 0ustar xbuildxbuild/* * Copyright (c) 1999-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: bf.h,v 8.17 2013-11-22 20:51:55 ca Exp $ * * Contributed by Exactis.com, Inc. * */ #ifndef BF_H # define BF_H 1 extern SM_FILE_T *bfopen __P((char *, MODE_T, size_t, long)); extern int bfcommit __P((SM_FILE_T *)); extern int bfrewind __P((SM_FILE_T *)); extern int bftruncate __P((SM_FILE_T *)); extern int bfclose __P((SM_FILE_T *)); extern bool bftest __P((SM_FILE_T *)); /* "what" flags for sm_io_setinfo() for the SM_FILE_TYPE file type */ # define SM_BF_SETBUFSIZE 1000 /* set buffer size */ # define SM_BF_COMMIT 1001 /* commit file to disk */ # define SM_BF_TRUNCATE 1002 /* truncate the file */ # define SM_BF_TEST 1003 /* historical support; temp */ # define BF_FILE_TYPE "SendmailBufferedFile" #endif /* ! BF_H */ sendmail-8.18.1/sendmail/udb.c0000644000372400037240000007221714556365350015512 0ustar xbuildxbuild/* * Copyright (c) 1998-2003, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include "map.h" #if USERDB SM_RCSID("@(#)$Id: udb.c,v 8.166 2013-11-22 20:51:57 ca Exp $ (with USERDB)") #else SM_RCSID("@(#)$Id: udb.c,v 8.166 2013-11-22 20:51:57 ca Exp $ (without USERDB)") #endif #if USERDB #include # if NEWDB # include "sm/bdb.h" # else /* NEWDB */ # define DBT struct _data_base_thang_ DBT { void *data; /* pointer to data */ size_t size; /* length of data */ }; # endif /* NEWDB */ /* ** UDB.C -- interface between sendmail and Berkeley User Data Base. ** ** This depends on the 4.4BSD db package. */ struct udbent { char *udb_spec; /* string version of spec */ int udb_type; /* type of entry */ pid_t udb_pid; /* PID of process which opened db */ char *udb_default; /* default host for outgoing mail */ union { # if NETINET || NETINET6 /* type UE_REMOTE -- do remote call for lookup */ struct { SOCKADDR _udb_addr; /* address */ int _udb_timeout; /* timeout */ } udb_remote; # define udb_addr udb_u.udb_remote._udb_addr # define udb_timeout udb_u.udb_remote._udb_timeout # endif /* NETINET || NETINET6 */ /* type UE_FORWARD -- forward message to remote */ struct { char *_udb_fwdhost; /* name of forward host */ } udb_forward; # define udb_fwdhost udb_u.udb_forward._udb_fwdhost # if NEWDB /* type UE_FETCH -- look up in local database */ struct { char *_udb_dbname; /* pathname of database */ DB *_udb_dbp; /* open database ptr */ } udb_lookup; # define udb_dbname udb_u.udb_lookup._udb_dbname # define udb_dbp udb_u.udb_lookup._udb_dbp # endif /* NEWDB */ } udb_u; }; # define UDB_EOLIST 0 /* end of list */ # define UDB_SKIP 1 /* skip this entry */ # define UDB_REMOTE 2 /* look up in remote database */ # define UDB_DBFETCH 3 /* look up in local database */ # define UDB_FORWARD 4 /* forward to remote host */ # define UDB_HESIOD 5 /* look up via hesiod */ # define MAXUDBENT 10 /* maximum number of UDB entries */ struct udb_option { char *udbo_name; char *udbo_val; }; # if HESIOD static int hes_udb_get __P((DBT *, DBT *)); # endif static char *udbmatch __P((char *, char *, SM_RPOOL_T *)); static int _udbx_init __P((ENVELOPE *)); static int _udb_parsespec __P((char *, struct udb_option [], int)); /* ** UDBEXPAND -- look up user in database and expand ** ** Parameters: ** a -- address to expand. ** sendq -- pointer to head of sendq to put the expansions in. ** aliaslevel -- the current alias nesting depth. ** e -- the current envelope. ** ** Returns: ** EX_TEMPFAIL -- if something "odd" happened -- probably due ** to accessing a file on an NFS server that is down. ** EX_OK -- otherwise. ** ** Side Effects: ** Modifies sendq. */ static struct udbent UdbEnts[MAXUDBENT + 1]; static bool UdbInitialized = false; int udbexpand(a, sendq, aliaslevel, e) register ADDRESS *a; ADDRESS **sendq; int aliaslevel; register ENVELOPE *e; { int i; DBT key; DBT info; bool breakout; register struct udbent *up; int keylen; int naddrs; char *user; char keybuf[MAXUDBKEY]; memset(&key, '\0', sizeof(key)); memset(&info, '\0', sizeof(info)); if (tTd(28, 1)) sm_dprintf("udbexpand(%s)\n", a->q_paddr); /* make certain we are supposed to send to this address */ if (!QS_IS_SENDABLE(a->q_state)) return EX_OK; e->e_to = a->q_paddr; /* on first call, locate the database */ if (!UdbInitialized) { if (_udbx_init(e) == EX_TEMPFAIL) return EX_TEMPFAIL; } /* short circuit the process if no chance of a match */ if (SM_IS_EMPTY(UdbSpec)) return EX_OK; /* extract user to do userdb matching on */ user = a->q_user; /* short circuit name begins with '\\' since it can't possibly match */ /* (might want to treat this as unquoted instead) */ if (user[0] == '\\') return EX_OK; /* if name begins with a colon, it indicates our metadata */ if (user[0] == ':') return EX_OK; keylen = sm_strlcpyn(keybuf, sizeof(keybuf), 2, user, ":maildrop"); /* if name is too long, assume it won't match */ if (keylen >= sizeof(keybuf)) return EX_OK; /* build actual database key */ breakout = false; for (up = UdbEnts; !breakout; up++) { int usersize; # if NEWDB int userleft; # endif char userbuf[MEMCHUNKSIZE]; # if HESIOD && HES_GETMAILHOST char pobuf[MAXNAME]; /* EAI:should be ok, no UTF8? */ # endif # if defined(NEWDB) && DB_VERSION_MAJOR > 1 DBC *dbc = NULL; # endif user = userbuf; userbuf[0] = '\0'; usersize = sizeof(userbuf); # if NEWDB userleft = sizeof(userbuf) - 1; # endif /* ** Select action based on entry type. ** ** On dropping out of this switch, "class" should ** explain the type of the data, and "user" should ** contain the user information. */ switch (up->udb_type) { # if NEWDB case UDB_DBFETCH: key.data = keybuf; key.size = keylen; if (tTd(28, 80)) sm_dprintf("udbexpand: trying %s (%d) via db\n", keybuf, keylen); # if DB_VERSION_MAJOR < 2 i = (*up->udb_dbp->seq)(up->udb_dbp, &key, &info, R_CURSOR); # else /* DB_VERSION_MAJOR < 2 */ i = 0; if (dbc == NULL && # if DB_VERSION_MAJOR > 2 || DB_VERSION_MINOR >= 6 (errno = (*up->udb_dbp->cursor)(up->udb_dbp, NULL, &dbc, 0)) != 0) # else /* DB_VERSION_MAJOR > 2 || DB_VERSION_MINOR >= 6 */ (errno = (*up->udb_dbp->cursor)(up->udb_dbp, NULL, &dbc)) != 0) # endif /* DB_VERSION_MAJOR > 2 || DB_VERSION_MINOR >= 6 */ i = -1; if (i != 0 || dbc == NULL || (errno = dbc->c_get(dbc, &key, &info, DB_SET)) != 0) i = 1; # endif /* DB_VERSION_MAJOR < 2 */ if (i > 0 || info.size <= 0) { if (tTd(28, 2)) sm_dprintf("udbexpand: no match on %s (%d)\n", keybuf, keylen); # if DB_VERSION_MAJOR > 1 if (dbc != NULL) { (void) dbc->c_close(dbc); dbc = NULL; } # endif /* DB_VERSION_MAJOR > 1 */ break; } if (tTd(28, 80)) sm_dprintf("udbexpand: match %.*s: %.*s\n", (int) key.size, (char *) key.data, (int) info.size, (char *) info.data); a->q_flags &= ~QSELFREF; while (i == 0 && key.size == keylen && memcmp(key.data, keybuf, keylen) == 0) { char *p; if (bitset(EF_VRFYONLY, e->e_flags)) { a->q_state = QS_VERIFIED; # if DB_VERSION_MAJOR > 1 if (dbc != NULL) { (void) dbc->c_close(dbc); dbc = NULL; } # endif /* DB_VERSION_MAJOR > 1 */ return EX_OK; } breakout = true; if (info.size >= userleft - 1) { char *nuser; int size = MEMCHUNKSIZE; if (info.size > MEMCHUNKSIZE) size = info.size; nuser = sm_malloc_x(usersize + size); memmove(nuser, user, usersize); if (user != userbuf) sm_free(user); /* XXX */ user = nuser; usersize += size; userleft += size; } p = &user[strlen(user)]; if (p != user) { *p++ = ','; userleft--; } memmove(p, info.data, info.size); p[info.size] = '\0'; userleft -= info.size; /* get the next record */ # if DB_VERSION_MAJOR < 2 i = (*up->udb_dbp->seq)(up->udb_dbp, &key, &info, R_NEXT); # else /* DB_VERSION_MAJOR < 2 */ i = 0; if ((errno = dbc->c_get(dbc, &key, &info, DB_NEXT)) != 0) i = 1; # endif /* DB_VERSION_MAJOR < 2 */ } # if DB_VERSION_MAJOR > 1 if (dbc != NULL) { (void) dbc->c_close(dbc); dbc = NULL; } # endif /* DB_VERSION_MAJOR > 1 */ /* if nothing ever matched, try next database */ if (!breakout) break; message("expanded to %s", user); if (LogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "expand %.100s => %s", e->e_to, shortenstring(user, MAXSHORTSTR)); naddrs = sendtolist(user, a, sendq, aliaslevel + 1, e); if (naddrs > 0 && !bitset(QSELFREF, a->q_flags)) { if (tTd(28, 5)) { sm_dprintf("udbexpand: QS_EXPANDED "); printaddr(sm_debug_file(), a, false); } a->q_state = QS_EXPANDED; } if (i < 0) { syserr("udbexpand: db-get %.*s stat %d", (int) key.size, (char *) key.data, i); return EX_TEMPFAIL; } /* ** If this address has a -request address, reflect ** it into the envelope. */ memset(&key, '\0', sizeof(key)); memset(&info, '\0', sizeof(info)); (void) sm_strlcpyn(keybuf, sizeof(keybuf), 2, a->q_user, ":mailsender"); keylen = strlen(keybuf); key.data = keybuf; key.size = keylen; # if DB_VERSION_MAJOR < 2 i = (*up->udb_dbp->get)(up->udb_dbp, &key, &info, 0); # else i = errno = (*up->udb_dbp->get)(up->udb_dbp, NULL, &key, &info, 0); # endif if (i != 0 || info.size <= 0) break; a->q_owner = sm_rpool_malloc_x(e->e_rpool, info.size + 1); memmove(a->q_owner, info.data, info.size); a->q_owner[info.size] = '\0'; /* announce delivery; NORECEIPT bit set later */ if (e->e_xfp != NULL) { (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, "Message delivered to mailing list %s\n", a->q_paddr); } e->e_flags |= EF_SENDRECEIPT; a->q_flags |= QDELIVERED|QEXPANDED; break; # endif /* NEWDB */ # if HESIOD case UDB_HESIOD: key.data = keybuf; key.size = keylen; if (tTd(28, 80)) sm_dprintf("udbexpand: trying %s (%d) via hesiod\n", keybuf, keylen); /* look up the key via hesiod */ i = hes_udb_get(&key, &info); if (i < 0) { syserr("udbexpand: hesiod-get %.*s stat %d", (int) key.size, (char *) key.data, i); return EX_TEMPFAIL; } else if (i > 0 || info.size <= 0) { # if HES_GETMAILHOST struct hes_postoffice *hp; # endif if (tTd(28, 2)) sm_dprintf("udbexpand: no match on %s (%d)\n", (char *) keybuf, (int) keylen); # if HES_GETMAILHOST if (tTd(28, 8)) sm_dprintf(" ... trying hes_getmailhost(%s)\n", a->q_user); hp = hes_getmailhost(a->q_user); if (hp == NULL) { if (hes_error() == HES_ER_NET) { syserr("udbexpand: hesiod-getmail %s stat %d", a->q_user, hes_error()); return EX_TEMPFAIL; } if (tTd(28, 2)) sm_dprintf("hes_getmailhost(%s): %d\n", a->q_user, hes_error()); break; } if (strlen(hp->po_name) + strlen(hp->po_host) > sizeof(pobuf) - 2) { if (tTd(28, 2)) sm_dprintf("hes_getmailhost(%s): expansion too long: %.30s@%.30s\n", a->q_user, hp->po_name, hp->po_host); break; } info.data = pobuf; (void) sm_snprintf(pobuf, sizeof(pobuf), "%s@%s", hp->po_name, hp->po_host); info.size = strlen(info.data); # else /* HES_GETMAILHOST */ break; # endif /* HES_GETMAILHOST */ } if (tTd(28, 80)) sm_dprintf("udbexpand: match %.*s: %.*s\n", (int) key.size, (char *) key.data, (int) info.size, (char *) info.data); a->q_flags &= ~QSELFREF; if (bitset(EF_VRFYONLY, e->e_flags)) { a->q_state = QS_VERIFIED; return EX_OK; } breakout = true; if (info.size >= usersize) user = sm_malloc_x(info.size + 1); memmove(user, info.data, info.size); user[info.size] = '\0'; message("hesioded to %s", user); if (LogLevel > 10) sm_syslog(LOG_INFO, e->e_id, "hesiod %.100s => %s", e->e_to, shortenstring(user, MAXSHORTSTR)); naddrs = sendtolist(user, a, sendq, aliaslevel + 1, e); if (naddrs > 0 && !bitset(QSELFREF, a->q_flags)) { if (tTd(28, 5)) { sm_dprintf("udbexpand: QS_EXPANDED "); printaddr(sm_debug_file(), a, false); } a->q_state = QS_EXPANDED; } /* ** If this address has a -request address, reflect ** it into the envelope. */ (void) sm_strlcpyn(keybuf, sizeof(keybuf), 2, a->q_user, ":mailsender"); keylen = strlen(keybuf); key.data = keybuf; key.size = keylen; i = hes_udb_get(&key, &info); if (i != 0 || info.size <= 0) break; a->q_owner = sm_rpool_malloc_x(e->e_rpool, info.size + 1); memmove(a->q_owner, info.data, info.size); a->q_owner[info.size] = '\0'; break; # endif /* HESIOD */ case UDB_REMOTE: /* not yet implemented */ break; case UDB_FORWARD: if (bitset(EF_VRFYONLY, e->e_flags)) { a->q_state = QS_VERIFIED; return EX_OK; } i = strlen(up->udb_fwdhost) + strlen(a->q_user) + 1; if (i >= usersize) { usersize = i + 1; user = sm_malloc_x(usersize); } (void) sm_strlcpyn(user, usersize, 3, a->q_user, "@", up->udb_fwdhost); message("expanded to %s", user); a->q_flags &= ~QSELFREF; naddrs = sendtolist(user, a, sendq, aliaslevel + 1, e); if (naddrs > 0 && !bitset(QSELFREF, a->q_flags)) { if (tTd(28, 5)) { sm_dprintf("udbexpand: QS_EXPANDED "); printaddr(sm_debug_file(), a, false); } a->q_state = QS_EXPANDED; } breakout = true; break; case UDB_EOLIST: breakout = true; break; default: /* unknown entry type */ break; } /* XXX if an exception occurs, there is a storage leak */ if (user != userbuf) sm_free(user); /* XXX */ } return EX_OK; } /* ** UDBSENDER -- return canonical external name of sender, given local name ** ** Parameters: ** sender -- the name of the sender on the local machine. ** rpool -- resource pool from which to allocate result ** ** Returns: ** The external name for this sender, if derivable from the ** database. Storage allocated from rpool. ** NULL -- if nothing is changed from the database. ** ** Side Effects: ** none. */ char * udbsender(sender, rpool) char *sender; SM_RPOOL_T *rpool; { return udbmatch(sender, "mailname", rpool); } /* ** UDBMATCH -- match user in field, return result of lookup. ** ** Parameters: ** user -- the name of the user. ** field -- the field to look up. ** rpool -- resource pool from which to allocate result ** ** Returns: ** The external name for this sender, if derivable from the ** database. Storage allocated from rpool. ** NULL -- if nothing is changed from the database. ** ** Side Effects: ** none. */ static char * udbmatch(user, field, rpool) char *user; char *field; SM_RPOOL_T *rpool; { register struct udbent *up; # if NEWDB || HESIOD register char *p; int keylen; DBT key, info; # endif int i; char keybuf[MAXUDBKEY]; if (tTd(28, 1)) sm_dprintf("udbmatch(%s, %s)\n", user, field); if (!UdbInitialized) { if (_udbx_init(CurEnv) == EX_TEMPFAIL) return NULL; } /* short circuit if no spec */ if (SM_IS_EMPTY(UdbSpec)) return NULL; /* short circuit name begins with '\\' since it can't possibly match */ if (user[0] == '\\') return NULL; /* long names can never match and are a pain to deal with */ i = strlen(field); if (i < sizeof("maildrop")) i = sizeof("maildrop"); if ((strlen(user) + i) > sizeof(keybuf) - 4) return NULL; /* names beginning with colons indicate metadata */ if (user[0] == ':') return NULL; /* build database key */ (void) sm_strlcpyn(keybuf, sizeof(keybuf), 3, user, ":", field); # if NEWDB || HESIOD keylen = strlen(keybuf); # endif for (up = UdbEnts; up->udb_type != UDB_EOLIST; up++) { /* ** Select action based on entry type. */ switch (up->udb_type) { # if NEWDB case UDB_DBFETCH: memset(&key, '\0', sizeof(key)); memset(&info, '\0', sizeof(info)); key.data = keybuf; key.size = keylen; # if DB_VERSION_MAJOR < 2 i = (*up->udb_dbp->get)(up->udb_dbp, &key, &info, 0); # else i = errno = (*up->udb_dbp->get)(up->udb_dbp, NULL, &key, &info, 0); # endif if (i != 0 || info.size <= 0) { if (tTd(28, 2)) sm_dprintf("udbmatch: no match on %s (%d) via db\n", keybuf, keylen); continue; } p = sm_rpool_malloc_x(rpool, info.size + 1); memmove(p, info.data, info.size); p[info.size] = '\0'; if (tTd(28, 1)) sm_dprintf("udbmatch ==> %s\n", p); return p; # endif /* NEWDB */ # if HESIOD case UDB_HESIOD: key.data = keybuf; key.size = keylen; i = hes_udb_get(&key, &info); if (i != 0 || info.size <= 0) { if (tTd(28, 2)) sm_dprintf("udbmatch: no match on %s (%d) via hesiod\n", keybuf, keylen); continue; } p = sm_rpool_malloc_x(rpool, info.size + 1); memmove(p, info.data, info.size); p[info.size] = '\0'; if (tTd(28, 1)) sm_dprintf("udbmatch ==> %s\n", p); return p; # endif /* HESIOD */ } } if (strcmp(field, "mailname") != 0) return NULL; /* ** Nothing yet. Search again for a default case. But only ** use it if we also have a forward (:maildrop) pointer already ** in the database. */ /* build database key */ (void) sm_strlcpyn(keybuf, sizeof(keybuf), 2, user, ":maildrop"); # if NEWDB || HESIOD keylen = strlen(keybuf); # endif for (up = UdbEnts; up->udb_type != UDB_EOLIST; up++) { switch (up->udb_type) { # if NEWDB case UDB_DBFETCH: /* get the default case for this database */ if (up->udb_default == NULL) { memset(&key, '\0', sizeof(key)); memset(&info, '\0', sizeof(info)); key.data = ":default:mailname"; key.size = strlen(key.data); # if DB_VERSION_MAJOR < 2 i = (*up->udb_dbp->get)(up->udb_dbp, &key, &info, 0); # else /* DB_VERSION_MAJOR < 2 */ i = errno = (*up->udb_dbp->get)(up->udb_dbp, NULL, &key, &info, 0); # endif /* DB_VERSION_MAJOR < 2 */ if (i != 0 || info.size <= 0) { /* no default case */ up->udb_default = ""; continue; } /* save the default case */ up->udb_default = sm_pmalloc_x(info.size + 1); memmove(up->udb_default, info.data, info.size); up->udb_default[info.size] = '\0'; } else if (up->udb_default[0] == '\0') continue; /* we have a default case -- verify user:maildrop */ memset(&key, '\0', sizeof(key)); memset(&info, '\0', sizeof(info)); key.data = keybuf; key.size = keylen; # if DB_VERSION_MAJOR < 2 i = (*up->udb_dbp->get)(up->udb_dbp, &key, &info, 0); # else i = errno = (*up->udb_dbp->get)(up->udb_dbp, NULL, &key, &info, 0); # endif if (i != 0 || info.size <= 0) { /* nope -- no aliasing for this user */ continue; } /* they exist -- build the actual address */ i = strlen(user) + strlen(up->udb_default) + 2; p = sm_rpool_malloc_x(rpool, i); (void) sm_strlcpyn(p, i, 3, user, "@", up->udb_default); if (tTd(28, 1)) sm_dprintf("udbmatch ==> %s\n", p); return p; # endif /* NEWDB */ # if HESIOD case UDB_HESIOD: /* get the default case for this database */ if (up->udb_default == NULL) { key.data = ":default:mailname"; key.size = strlen(key.data); i = hes_udb_get(&key, &info); if (i != 0 || info.size <= 0) { /* no default case */ up->udb_default = ""; continue; } /* save the default case */ up->udb_default = sm_pmalloc_x(info.size + 1); memmove(up->udb_default, info.data, info.size); up->udb_default[info.size] = '\0'; } else if (up->udb_default[0] == '\0') continue; /* we have a default case -- verify user:maildrop */ key.data = keybuf; key.size = keylen; i = hes_udb_get(&key, &info); if (i != 0 || info.size <= 0) { /* nope -- no aliasing for this user */ continue; } /* they exist -- build the actual address */ i = strlen(user) + strlen(up->udb_default) + 2; p = sm_rpool_malloc_x(rpool, i); (void) sm_strlcpyn(p, i, 3, user, "@", up->udb_default); if (tTd(28, 1)) sm_dprintf("udbmatch ==> %s\n", p); return p; break; # endif /* HESIOD */ } } /* still nothing.... too bad */ return NULL; } /* ** UDB_MAP_LOOKUP -- look up arbitrary entry in user database map ** ** Parameters: ** map -- the map being queried. ** name -- the name to look up. ** av -- arguments to the map lookup. ** statp -- to get any error status. ** ** Returns: ** NULL if name not found in map. ** The rewritten name otherwise. */ /* ARGSUSED3 */ char * udb_map_lookup(map, name, av, statp) MAP *map; char *name; char **av; int *statp; { char *val; char *key; char *SM_NONVOLATILE result = NULL; char keybuf[MAXNAME + 1]; /* EAI:ok */ if (tTd(28, 20) || tTd(38, 20)) sm_dprintf("udb_map_lookup(%s, %s)\n", map->map_mname, name); if (bitset(MF_NOFOLDCASE, map->map_mflags)) key = name; else { int keysize = strlen(name); if (keysize > sizeof(keybuf) - 1) keysize = sizeof(keybuf) - 1; memmove(keybuf, name, keysize); keybuf[keysize] = '\0'; makelower_buf(keybuf, keybuf, sizeof(keybuf)); key = keybuf; } val = udbmatch(key, map->map_file, NULL); if (val == NULL) return NULL; SM_TRY if (bitset(MF_MATCHONLY, map->map_mflags)) result = map_rewrite(map, name, strlen(name), NULL); else result = map_rewrite(map, val, strlen(val), av); SM_FINALLY sm_free(val); SM_END_TRY if (key != name && key != keybuf) SM_FREE(key); return result; } /* ** _UDBX_INIT -- parse the UDB specification, opening any valid entries. ** ** Parameters: ** e -- the current envelope. ** ** Returns: ** EX_TEMPFAIL -- if it appeared it couldn't get hold of a ** database due to a host being down or some similar ** (recoverable) situation. ** EX_OK -- otherwise. ** ** Side Effects: ** Fills in the UdbEnts structure from UdbSpec. */ # define MAXUDBOPTS 27 static int _udbx_init(e) ENVELOPE *e; { int ents = 0; register char *p; register struct udbent *up; if (UdbInitialized) return EX_OK; # ifdef UDB_DEFAULT_SPEC if (UdbSpec == NULL) UdbSpec = UDB_DEFAULT_SPEC; # endif p = UdbSpec; up = UdbEnts; while (p != NULL) { char *spec; # if NEWDB int l; # endif struct udb_option opts[MAXUDBOPTS + 1]; while (*p == ' ' || *p == '\t' || *p == ',') p++; if (*p == '\0') break; spec = p; p = strchr(p, ','); if (p != NULL) *p++ = '\0'; if (ents >= MAXUDBENT) { syserr("Maximum number of UDB entries exceeded"); break; } /* extract options */ (void) _udb_parsespec(spec, opts, MAXUDBOPTS); /* ** Decode database specification. ** ** In the sendmail tradition, the leading character ** defines the semantics of the rest of the entry. ** ** @hostname -- forward email to the indicated host. ** This should be the last in the list, ** since it always matches the input. ** /dbname -- search the named database on the local ** host using the Berkeley db package. ** Hesiod -- search the named database with BIND ** using the MIT Hesiod package. */ switch (*spec) { case '@': /* forward to remote host */ up->udb_type = UDB_FORWARD; up->udb_pid = CurrentPid; up->udb_fwdhost = spec + 1; ents++; up++; break; # if HESIOD case 'h': /* use hesiod */ case 'H': if (!SM_STRCASEEQ(spec, "hesiod")) goto badspec; up->udb_type = UDB_HESIOD; up->udb_pid = CurrentPid; ents++; up++; break; # endif /* HESIOD */ # if NEWDB case '/': /* look up remote name */ l = strlen(spec); if (l > 3 && strcmp(&spec[l - 3], ".db") == 0) { up->udb_dbname = spec; } else { up->udb_dbname = sm_pmalloc_x(l + 4); (void) sm_strlcpyn(up->udb_dbname, l + 4, 2, spec, ".db"); } errno = 0; # if DB_VERSION_MAJOR < 2 up->udb_dbp = dbopen(up->udb_dbname, O_RDONLY, 0644, DB_BTREE, NULL); # else /* DB_VERSION_MAJOR < 2 */ { int flags = DB_RDONLY; # if DB_VERSION_MAJOR > 2 int ret; # endif /* DB_VERSION_MAJOR > 2 */ SM_DB_FLAG_ADD(flags); up->udb_dbp = NULL; # if DB_VERSION_MAJOR > 2 ret = db_create(&up->udb_dbp, NULL, 0); if (ret != 0) { (void) up->udb_dbp->close(up->udb_dbp, 0); up->udb_dbp = NULL; } else { ret = up->udb_dbp->open(up->udb_dbp, DBTXN up->udb_dbname, NULL, DB_BTREE, flags, 0644); if (ret != 0) { # ifdef DB_OLD_VERSION if (ret == DB_OLD_VERSION) ret = EINVAL; # endif (void) up->udb_dbp->close(up->udb_dbp, 0); up->udb_dbp = NULL; } } errno = ret; # else /* DB_VERSION_MAJOR > 2 */ errno = db_open(up->udb_dbname, DB_BTREE, flags, 0644, NULL, NULL, &up->udb_dbp); # endif /* DB_VERSION_MAJOR > 2 */ } # endif /* DB_VERSION_MAJOR < 2 */ if (up->udb_dbp == NULL) { if (tTd(28, 1)) { int save_errno = errno; # if DB_VERSION_MAJOR < 2 sm_dprintf("dbopen(%s): %s\n", # else /* DB_VERSION_MAJOR < 2 */ sm_dprintf("db_open(%s): %s\n", # endif /* DB_VERSION_MAJOR < 2 */ up->udb_dbname, sm_errstring(errno)); errno = save_errno; } if (errno != ENOENT && errno != EACCES) { if (LogLevel > 2) sm_syslog(LOG_ERR, e->e_id, # if DB_VERSION_MAJOR < 2 "dbopen(%s): %s", # else /* DB_VERSION_MAJOR < 2 */ "db_open(%s): %s", # endif /* DB_VERSION_MAJOR < 2 */ up->udb_dbname, sm_errstring(errno)); up->udb_type = UDB_EOLIST; if (up->udb_dbname != spec) sm_free(up->udb_dbname); /* XXX */ goto tempfail; } if (up->udb_dbname != spec) sm_free(up->udb_dbname); /* XXX */ break; } if (tTd(28, 1)) { # if DB_VERSION_MAJOR < 2 sm_dprintf("_udbx_init: dbopen(%s)\n", # else /* DB_VERSION_MAJOR < 2 */ sm_dprintf("_udbx_init: db_open(%s)\n", # endif /* DB_VERSION_MAJOR < 2 */ up->udb_dbname); } up->udb_type = UDB_DBFETCH; up->udb_pid = CurrentPid; ents++; up++; break; # endif /* NEWDB */ default: # if HESIOD badspec: # endif syserr("Unknown UDB spec %s", spec); break; } } up->udb_type = UDB_EOLIST; if (tTd(28, 4)) { for (up = UdbEnts; up->udb_type != UDB_EOLIST; up++) { switch (up->udb_type) { case UDB_REMOTE: sm_dprintf("REMOTE: addr %s, timeo %d\n", anynet_ntoa((SOCKADDR *) &up->udb_addr), up->udb_timeout); break; case UDB_DBFETCH: # if NEWDB sm_dprintf("FETCH: file %s\n", up->udb_dbname); # else sm_dprintf("FETCH\n"); # endif break; case UDB_FORWARD: sm_dprintf("FORWARD: host %s\n", up->udb_fwdhost); break; case UDB_HESIOD: sm_dprintf("HESIOD\n"); break; default: sm_dprintf("UNKNOWN\n"); break; } } } UdbInitialized = true; errno = 0; return EX_OK; /* ** On temporary failure, back out anything we've already done */ # if NEWDB tempfail: for (up = UdbEnts; up->udb_type != UDB_EOLIST; up++) { if (up->udb_type == UDB_DBFETCH) { # if DB_VERSION_MAJOR < 2 (*up->udb_dbp->close)(up->udb_dbp); # else errno = (*up->udb_dbp->close)(up->udb_dbp, 0); # endif if (tTd(28, 1)) sm_dprintf("_udbx_init: db->close(%s)\n", up->udb_dbname); } } # endif /* NEWDB */ return EX_TEMPFAIL; } static int _udb_parsespec(udbspec, opt, maxopts) char *udbspec; struct udb_option opt[]; int maxopts; { register char *spec; register char *spec_end; register int optnum; spec_end = strchr(udbspec, ':'); for (optnum = 0; optnum < maxopts && (spec = spec_end) != NULL; optnum++) { register char *p; while (SM_ISSPACE(*spec)) spec++; spec_end = strchr(spec, ':'); if (spec_end != NULL) *spec_end++ = '\0'; opt[optnum].udbo_name = spec; opt[optnum].udbo_val = NULL; p = strchr(spec, '='); if (p != NULL) opt[optnum].udbo_val = ++p; } return optnum; } /* ** _UDBX_CLOSE -- close all file based UDB entries. ** ** Parameters: ** none ** ** Returns: ** none */ void _udbx_close() { struct udbent *up; if (!UdbInitialized) return; for (up = UdbEnts; up->udb_type != UDB_EOLIST; up++) { if (up->udb_pid != CurrentPid) continue; # if NEWDB if (up->udb_type == UDB_DBFETCH) { # if DB_VERSION_MAJOR < 2 (*up->udb_dbp->close)(up->udb_dbp); # else errno = (*up->udb_dbp->close)(up->udb_dbp, 0); # endif } if (tTd(28, 1)) sm_dprintf("_udbx_close: db->close(%s)\n", up->udb_dbname); # endif /* NEWDB */ } } # if HESIOD static int hes_udb_get(key, info) DBT *key; DBT *info; { char *name, *type; char **hp; char kbuf[MAXUDBKEY + 1]; if (sm_strlcpy(kbuf, key->data, sizeof(kbuf)) >= sizeof(kbuf)) return 0; name = kbuf; type = strrchr(name, ':'); if (type == NULL) return 1; *type++ = '\0'; if (strchr(name, '@') != NULL) return 1; if (tTd(28, 1)) sm_dprintf("hes_udb_get(%s, %s)\n", name, type); /* make the hesiod query */ # ifdef HESIOD_INIT if (HesiodContext == NULL && hesiod_init(&HesiodContext) != 0) return -1; hp = hesiod_resolve(HesiodContext, name, type); # else hp = hes_resolve(name, type); # endif *--type = ':'; # ifdef HESIOD_INIT if (hp == NULL) return 1; if (*hp == NULL) { hesiod_free_list(HesiodContext, hp); if (errno == ECONNREFUSED || errno == EMSGSIZE) return -1; return 1; } # else /* HESIOD_INIT */ if (SM_IS_EMPTY(hp)) { /* network problem or timeout */ if (hes_error() == HES_ER_NET) return -1; return 1; } # endif /* HESIOD_INIT */ else { /* ** If there are multiple matches, just return the ** first one. ** ** XXX These should really be returned; for example, ** XXX it is legal for :maildrop to be multi-valued. */ info->data = hp[0]; info->size = (size_t) strlen(info->data); } if (tTd(28, 80)) sm_dprintf("hes_udb_get => %s\n", *hp); return 0; } # endif /* HESIOD */ #else /* USERDB */ int udbexpand(a, sendq, aliaslevel, e) ADDRESS *a; ADDRESS **sendq; int aliaslevel; ENVELOPE *e; { return EX_OK; } #endif /* USERDB */ sendmail-8.18.1/sendmail/TUNING0000644000372400037240000002434314556365350015520 0ustar xbuildxbuild# Copyright (c) 2001-2003, 2014 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # $Id: TUNING,v 1.22 2013-11-22 20:51:54 ca Exp $ # ******************************************** ** This is a DRAFT, comments are welcome! ** ******************************************** If the default configuration of sendmail does not achieve the required performance, there are several configuration options that can be changed to accomplish higher performance. However, before those options are changed it is necessary to understand why the performance is not as good as desired. This may also involve hardware and software (OS) configurations which are not extensively explored in this document. We assume that your system is not limited by network bandwidth because optimizing for this situation is beyond the scope of this guide. In almost all other cases performance will be limited by disk I/O. This text assumes that all options which are mentioned here are familiar to the reader, they are explained in the Sendmail Installation and Operations Guide; doc/op/op.txt. There are basically three different scenarios which are treated in the following: * Mailing Lists and Large Aliases (1-n Mailing) * 1-1 Mass Mailing * High Volume Mail Depending on your requirements, these may need different options to optimize sendmail for the particular purpose. It is also possible to configure sendmail to achieve good performance in all cases, but it will not be optimal for any specific purpose. For example, it is non-trivial to combine low latency (fast delivery of incoming mail) with high overall throughput. Before we explore the different scenarios, a basic discussion about disk I/O, delivery modes, and queue control is required. * Disk I/O ----------------------------------------------- In general mail will be written to disk before a delivery attempt is made. This is required for reliability and should only be changed in a few specific cases that are mentioned later on. To achieve better disk I/O performance the queue directories can be spread over several disks to distribute the load. This is some basic tuning that should be done in all cases where the I/O speed of a single disk is exceeded, which is true for almost every high-volume situation except if a special disk subsystem with large (NV)RAM buffer is used. Depending on your OS there might be ways to speed up I/O, e.g., using softupdates or turning on the noatime mount option. If this is done make sure the filesystem is still reliable, i.e., if fsync() returns without an error, the file has really been committed to disk. * Queueing Strategies and DeliveryMode ----------------------------------------------- There are basically three delivery modes: background: incoming mail will be immediately delivered by a new process interactive: incoming mail will be immediately delivered by the same process queue: incoming mail will be queued and delivered by a queue runner later on The first offers the lowest latency without the disadvantage of the second, which keeps the connection from the sender open until the delivery to the next hop succeeded or failed. However, it does not allow for a good control over the number of delivery processes other than limiting the total number of direct children of the daemon processes (MaxChildren) or by load control options (RefuseLA, DelayLA). Moreover, it can't make as good use as 'queue' mode can for connection caching. Interactive DeliveryMode should only be used in rare cases, e.g., if the delivery time to the next hop is a known quantity or if the sender is under local control and it does not matter if it has to wait for delivery. Queueing up e-mail before delivery is done by a queue runner allows the best load control but does not achieve as low latency as the other two modes. However, this mode is probably also best for concurrent delivery since the number of queue runners can be specified on a queue group basis. Persistent queue runners (-qp) can be used to minimize the overhead for creating processes because they just sleep for the specified interval (which should be short) instead of exiting after a queue run. * Queue Groups ----------------------------------------------- In most situations disk I/O is a bottleneck which can be mitigated by spreading the load over several disks. This can easily be achieved with different queue directories. sendmail 8.12 introduces queue groups which are collections of queue directories with similar properties, i.e., number of processes to run the queues in the group, maximum number of recipients within an e-mail (envelope), etc. Queue groups allow control over the behaviour of different queues. Depending on the setup, it is usually possible to have several queue runners delivering mails concurrently which should increase throughput. The number of queue runners can be controlled per queue group (Runner=) and overall (MaxQueueChildren). * DNS Lookups ----------------------------------------------- sendmail performs by default host name canonifications by using host name lookups. This process is meant to replace unqualified host name with qualified host names, and CNAMEs with the non-aliased name. However, these lookups can take a while for large address lists, e.g., mailing lists. If you can assure by other means that host names are canonical, you should use FEATURE(`nocanonify', `canonify_hosts') in your .mc file. For further information on this feature and additional options see cf/README. If sendmail is invoked directly to send e-mail then either the -G option should be used or define(`confDIRECT_SUBMISSION_MODIFIERS', `C') should be added to the .mc file. Note: starting with 8.15, sendmail will not ignore temporary map lookup failures during header rewriting, which means that DNS lookup problems even for headers will cause messages to stay in the queue. Hence it is strongly suggested to use the nocanonify feature; at least turning it on for the MTA, but maybe disabling it for the MSA, i.e., use Modifiers for DaemonPortOptions accordingly. As a last resort, it is possible to override the host map to ignore temporary failures, e.g., Khost host -t However, this can cause inconsistent header rewriting. * Mailing Lists and Large Aliases (1-n Mailing) ----------------------------------------------- Before 8.12 sendmail would deliver an e-mail sequentially to all its recipients. For mailing lists or large aliases the overall delivery time can be substantial, especially if some of the recipients are located at hosts that are slow to accept e-mail. Some mailing list software therefore "split" up e-mails into smaller pieces with fewer recipients. sendmail 8.12 can do this itself, either across queue groups or within a queue directory. The latter is controlled by the 'r=' field of a queue group declaration. Let's assume a simple example: a mailing list where most of the recipients are at three domains: the local one (local.domain) and two remotes (one.domain, two.domain) and the rest is splittered over several other domains. For this case it is useful to specify three queue groups: QUEUE_GROUP(`local', `P=/var/spool/mqueue/local, F=f, R=2, I=1m')dnl QUEUE_GROUP(`one', `P=/var/spool/mqueue/one, F=f, r=50, R=3')dnl QUEUE_GROUP(`two', `P=/var/spool/mqueue/two, F=f, r=30, R=4')dnl QUEUE_GROUP(`remote', `P=/var/spool/mqueue/remote, F=f, r=5, R=8, I=2m')dnl define(`ESMTP_MAILER_QGRP', `remote')dnl define(`confDELIVERY_MODE', `q')dnl define(`confMAX_QUEUE_CHILDREN', `50')dnl define(`confMIN_QUEUE_AGE', `27m')dnl and specify the queuegroup ruleset as follows: LOCAL_RULESETS Squeuegroup R$* @ local.domain $# local R$* @ $* one.domain $# one R$* @ $* two.domain $# two R$* @ $* $# remote R$* $# mqueue Now it is necessary to control the number of queue runners, which is done by MaxQueueChildren. Starting the daemon with the option -q5m assures that the first delivery attempt for each e-mail is done within 5 minutes, however, there are also individual queue intervals for the queue groups as specified above. MinQueueAge is set to 27 minutes to avoid that entries are run too often. Notice: if envelope splitting happens due to alias expansion, and DeliveryMode is not 'i'nteractive, then only one envelope is sent immediately. The rest (after splitting) are queued up and queue runners must come along and take care of them. Hence it is essential that the queue interval is very short. * 1-1 Mass Mailing ----------------------------------------------- In this case some program generates e-mails which are sent to individual recipients (or at most very few per e-mail). A simple way to achieve high throughput is to set the delivery mode to 'interactive', turn off the SuperSafe option and make sure that the program that generates the mails can deal with mail losses if the server loses power. In no other case should SuperSafe be set to 'false'. If these conditions are met, sendmail does not need to commit mails to disk but can buffer them in memory which will greatly enhance performance, especially compared to normal disk subsystems, e.g., non solid-state disks. * High Volume Mail ----------------------------------------------- For high volume mail it is necessary to be able to control the load on the system. Therefore the 'queue' delivery mode should be used, and all options related to number of processes and the load should be set to reasonable values. It is important not to accept mail faster than it can be delivered; otherwise the system will be overwhelmed. Hence RefuseLA should be lower than QueueLA, the number of daemon children should probably be lower than the number of queue runners (MaxChildren vs. MaxQueueChildren). DelayLA is a new option in 8.12 which allows delaying connections instead of rejecting them. This may result in a smoother load distribution depending on how the mails are submitted to sendmail. * Miscellaneous ----------------------------------------------- Other options that are interesting to tweak performance are (in no particular order): SuperSafe: if interactive DeliveryMode is used, then this can be set to the new value "interactive" in 8.12 to save some disk synchronizations which are not really necessary in that mode. sendmail-8.18.1/makemap/0000755000372400037240000000000014556365433014404 5ustar xbuildxbuildsendmail-8.18.1/makemap/Makefile.m40000644000372400037240000000124214556365350016360 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.44 2006-06-28 21:08:03 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_LIBSM', `true') define(`confREQUIRE_SM_OS_H', `true') # sendmail dir SMSRCDIR= ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confENVDEF', `confMAPDEF') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`executable', `makemap') define(`bldSOURCES', `makemap.c ') define(`bldINSTALL_DIR', `S') bldPUSH_SMLIB(`sm') bldPUSH_SMLIB(`smutil') bldPUSH_SMLIB(`smdb') APPENDDEF(`confENVDEF', `-DNOT_SENDMAIL') bldPRODUCT_END bldPRODUCT_START(`manpage', `makemap') define(`bldSOURCES', `makemap.8') bldPRODUCT_END bldFINISH sendmail-8.18.1/makemap/makemap.80000644000372400037240000000764614556365350016123 0ustar xbuildxbuild.\" Copyright (c) 1998-2002 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" Copyright (c) 1988, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: makemap.8,v 8.32 2013-11-22 20:51:52 ca Exp $ .\" .TH MAKEMAP 8 "$Date: 2013-11-22 20:51:52 $" .SH NAME makemap \- create database maps for sendmail .SH SYNOPSIS .B makemap .RB [ \-C .IR file ] .RB [ \-N ] .RB [ \-c .IR cachesize ] .RB [ \-d ] .RB [ \-D .IR commentchar ] .RB [ \-e ] .RB [ \-f ] .RB [ \-i .IR type ] .RB [ \-l ] .RB [ \-o ] .RB [ \-r ] .RB [ \-s ] .RB [ \-t .IR delim ] .RB [ \-u ] .RB [ \-v ] .I maptype mapnam .SH DESCRIPTION .B Makemap creates the database maps used by the keyed map lookups in sendmail(8). It reads input from the standard input and outputs them to the indicated .I mapname. .PP Depending on how it is compiled, .B makemap handles different database formats, selected using the .I maptype parameter. They may be .TP dbm DBM format maps. This requires the ndbm(3) library. .TP btree B-Tree format maps. This requires the new Berkeley DB library. .TP hash Hash format maps. This also requires the Berkeley DB library. .TP cdb CDB (Constant DataBase) format maps. This requires the tinycdb library. .TP implicit The first available format in the following order: hash, dbm, and cdb. .PP In all cases, .B makemap reads lines from the standard input consisting of two words separated by white space. The first is the database key, the second is the value. The value may contain ``%\fIn\fP'' strings to indicate parameter substitution. Literal percents should be doubled (``%%''). Blank lines and lines beginning with ``#'' are ignored. .PP Notice: do .B not use .B makemap to create the aliases data base, but .B newaliases which puts a special token into the data base that is required by .B sendmail. .PP If the .I TrustedUser option is set in the sendmail configuration file and .B makemap is invoked as root, the generated files will be owned by the specified .IR TrustedUser. .SS Flags .TP .B \-C Use the specified .B sendmail configuration file for looking up the TrustedUser option. .TP .B \-N Include the null byte that terminates strings in the map. This must match the \-N flag in the sendmail.cf ``K'' line. .TP .B \-c Use the specified hash and B-Tree cache size. .TP .B \-D Use to specify the character to use to indicate a comment (which is ignored) instead of the default of '#'. .TP .B \-d Allow duplicate keys in the map. This is only allowed on B-Tree format maps. If two identical keys are read, they will both be inserted into the map. .TP .B \-e Allow empty value (right hand side). .TP .B \-f Normally all upper case letters in the key are folded to lower case. This flag disables that behaviour. This is intended to mesh with the \-f flag in the .B K line in sendmail.cf. The value is never case folded. .TP .B \-i Use the specified type as fallback if the given .I maptype is not available. .TP .B \-l List supported map types. .TP .B \-o Append to an old file. This allows you to augment an existing file. Note: this might not be supported by all database types, e.g., cdb. .TP .B \-r Allow replacement of existing keys. Normally .B makemap complains if you repeat a key, and does not do the insert. .TP .B \-s Ignore safety checks on maps being created. This includes checking for hard or symbolic links in world writable directories. .TP .B \-t Use the specified delimiter instead of white space (also for dumping a map). .TP .B \-u dump (unmap) the content of the database to standard output. .TP .B \-v Verbosely print what it is doing. .P .SH Example makemap hash /etc/mail/access < /etc/mail/access .SH SEE ALSO sendmail(8), newaliases(1) .SH HISTORY The .B makemap command appeared in 4.4BSD. sendmail-8.18.1/makemap/Makefile0000644000372400037240000000053214556365350016042 0ustar xbuildxbuild# $Id: Makefile,v 8.7 1999-09-23 22:36:37 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/makemap/Build0000755000372400037240000000052014556365350015364 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.5 2013-11-22 20:51:52 ca Exp $ exec ../devtools/bin/Build $* sendmail-8.18.1/makemap/makemap.00000644000372400037240000001071614556365431016103 0ustar xbuildxbuildMAKEMAP(8) MAKEMAP(8) NNAAMMEE makemap - create database maps for sendmail SSYYNNOOPPSSIISS mmaakkeemmaapp [--CC _f_i_l_e] [--NN] [--cc _c_a_c_h_e_s_i_z_e] [--dd] [--DD _c_o_m_m_e_n_t_c_h_a_r] [--ee] [--ff] [--ii _t_y_p_e] [--ll] [--oo] [--rr] [--ss] [--tt _d_e_l_i_m] [--uu] [--vv] _m_a_p_t_y_p_e _m_a_p_n_a_m DDEESSCCRRIIPPTTIIOONN MMaakkeemmaapp creates the database maps used by the keyed map lookups in sendmail(8). It reads input from the standard input and outputs them to the indicated _m_a_p_n_a_m_e_. Depending on how it is compiled, mmaakkeemmaapp handles different database formats, selected using the _m_a_p_t_y_p_e parameter. They may be dbm DBM format maps. This requires the ndbm(3) library. btree B-Tree format maps. This requires the new Berkeley DB library. hash Hash format maps. This also requires the Berkeley DB library. cdb CDB (Constant DataBase) format maps. This requires the tinycdb library. implicit The first available format in the following order: hash, dbm, and cdb. In all cases, mmaakkeemmaapp reads lines from the standard input consisting of two words separated by white space. The first is the database key, the second is the value. The value may contain ``%_n'' strings to indicate parameter substitution. Literal percents should be doubled (``%%''). Blank lines and lines beginning with ``#'' are ignored. Notice: do nnoott use mmaakkeemmaapp to create the aliases data base, but nneewwaalliiaasseess which puts a special token into the data base that is required by sseennddmmaaiill.. If the _T_r_u_s_t_e_d_U_s_e_r option is set in the sendmail configuration file and mmaakkeemmaapp is invoked as root, the generated files will be owned by the specified _T_r_u_s_t_e_d_U_s_e_r_. FFllaaggss --CC Use the specified sseennddmmaaiill configuration file for looking up the TrustedUser option. --NN Include the null byte that terminates strings in the map. This must match the -N flag in the sendmail.cf ``K'' line. --cc Use the specified hash and B-Tree cache size. --DD Use to specify the character to use to indicate a comment (which is ignored) instead of the default of '#'. --dd Allow duplicate keys in the map. This is only allowed on B-Tree format maps. If two identical keys are read, they will both be inserted into the map. --ee Allow empty value (right hand side). --ff Normally all upper case letters in the key are folded to lower case. This flag disables that behaviour. This is intended to mesh with the -f flag in the KK line in sendmail.cf. The value is never case folded. --ii Use the specified type as fallback if the given _m_a_p_t_y_p_e is not available. --ll List supported map types. --oo Append to an old file. This allows you to augment an existing file. Note: this might not be supported by all database types, e.g., cdb. --rr Allow replacement of existing keys. Normally mmaakkeemmaapp complains if you repeat a key, and does not do the insert. --ss Ignore safety checks on maps being created. This includes checking for hard or symbolic links in world writable directo- ries. --tt Use the specified delimiter instead of white space (also for dumping a map). --uu dump (unmap) the content of the database to standard output. --vv Verbosely print what it is doing. EExxaammppllee makemap hash /etc/mail/access < /etc/mail/access SSEEEE AALLSSOO sendmail(8), newaliases(1) HHIISSTTOORRYY The mmaakkeemmaapp command appeared in 4.4BSD. $Date: 2013-11-22 20:51:52 $ MAKEMAP(8) sendmail-8.18.1/makemap/makemap.c0000644000372400037240000004337014556365350016170 0ustar xbuildxbuild/* * Copyright (c) 1998-2002, 2004, 2008, 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1992 Eric P. Allman. All rights reserved. * Copyright (c) 1992, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_IDSTR(copyright, "@(#) Copyright (c) 1998-2002, 2004 Proofpoint, Inc. and its suppliers.\n\ All rights reserved.\n\ Copyright (c) 1992 Eric P. Allman. All rights reserved.\n\ Copyright (c) 1992, 1993\n\ The Regents of the University of California. All rights reserved.\n") SM_IDSTR(id, "@(#)$Id: makemap.c,v 8.183 2013-11-22 20:51:52 ca Exp $") #include #ifndef ISC_UNIX # include #endif #include #include #include #ifdef EX_OK # undef EX_OK /* unistd.h may have another use for this */ #endif #include #include #include #include #include #if USE_EAI # include #endif uid_t RealUid; gid_t RealGid; char *RealUserName; uid_t RunAsUid; gid_t RunAsGid; char *RunAsUserName; int Verbose = 2; bool DontInitGroups = false; uid_t TrustedUid = 0; BITMAP256 DontBlameSendmail; static bool verbose = false; static int exitstat; #define BUFSIZE 1024 #define ISASCII(c) isascii((unsigned char)(c)) #define ISSPACE(c) (ISASCII(c) && isspace(c)) #define ISSEP(c) (sep == '\0' ? ISASCII(c) && isspace(c) : (c) == sep) static void usage __P((const char *)); static char *readcf __P((const char *, char *, bool)); static void db_put __P((SMDB_DATABASE *, SMDB_DBENT, SMDB_DBENT, int, const char *, int, const char *)); static void usage(progname) const char *progname; { sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "Usage: %s [-C cffile] [-N] [-c cachesize] [-D commentchar]\n", progname); sm_io_fprintf(smioerr, SM_TIME_DEFAULT, " %*s [-d] [-e] [-f] [-i type] [-l] [-o] [-r] [-s] [-t delimiter]\n", (int) strlen(progname), ""); #if _FFR_TESTS sm_io_fprintf(smioerr, SM_TIME_DEFAULT, " %*s [-S n]\n", (int) strlen(progname), ""); #endif sm_io_fprintf(smioerr, SM_TIME_DEFAULT, " %*s [-u] [-v] type mapname\n", (int) strlen(progname), ""); exit(EX_USAGE); } /* ** DB_PUT -- do the DB insert ** ** Parameters: ** database -- DB to use ** db_key -- key ** db_val -- value ** putflags -- flags for smdb_put() ** mapname -- name of map (for error reporting) ** lineno -- line number (for error reporting) ** progname -- name of program (for error reporting) ** ** Returns: ** none. ** ** Side effects: ** Sets exitstat so makemap exits with error if put fails */ static void db_put(database, db_key, db_val, putflags, mapname, lineno, progname) SMDB_DATABASE *database; SMDB_DBENT db_key, db_val; int putflags; const char *mapname; int lineno; const char *progname; { int errcode; if (verbose) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "key=`%s', val=`%s'\n", (char *) db_key.data, (char *) db_val.data); } errcode = database->smdb_put(database, &db_key, &db_val, putflags); if (0 == errcode) return; (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: %s: ", progname, mapname); if (lineno >= 0) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "line %u: ", lineno); (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "key %s: ", (char *) db_key.data); if (SMDBE_KEY_EXIST == errcode) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "duplicate key\n"); exitstat = EX_DATAERR; } else { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "put error: %s\n", sm_errstring(errcode)); exitstat = EX_IOERR; } } /* ** READCF -- read some settings from configuration file. ** ** Parameters: ** cfile -- configuration file name. ** mapfile -- file name of map to look up (if not NULL/empty) ** Note: this finds the first match, so in case someone ** uses the same map file for different maps, they are ** hopefully using the same map type. ** fullpath -- compare the full paths or just the "basename"s? ** (even excluding any .ext !) ** ** Returns: ** pointer to map class name (static!) */ static char * readcf(cfile, mapfile, fullpath) const char *cfile; char *mapfile; bool fullpath; { SM_FILE_T *cfp; char buf[MAXLINE]; static char classbuf[MAXLINE]; char *classname, *mapname; char *p; if ((cfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, cfile, SM_IO_RDONLY, NULL)) == NULL) { sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "makemap: %s: %s\n", cfile, sm_errstring(errno)); exit(EX_NOINPUT); } classname = NULL; classbuf[0] = '\0'; mapname = mapfile; if (!fullpath && mapfile != NULL) { p = strrchr(mapfile, '/'); if (p != NULL) mapfile = ++p; mapname = strdup(mapfile); if (NULL == mapname) { sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "makemap: strdup(%s) failed: %s\n", mapfile, sm_errstring(errno)); exit(EX_OSERR); } if ((p = strchr(mapname, '.')) != NULL) *p = '\0'; } while (sm_io_fgets(cfp, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { char *b; if ((b = strchr(buf, '\n')) != NULL) *b = '\0'; b = buf; switch (*b++) { case 'O': /* option */ #if HASFCHOWN if (strncasecmp(b, " TrustedUser", 12) == 0 && !(ISASCII(b[12]) && isalnum(b[12]))) { b = strchr(b, '='); if (b == NULL) continue; while (ISASCII(*++b) && isspace(*b)) continue; if (ISASCII(*b) && isdigit(*b)) TrustedUid = atoi(b); else { struct passwd *pw; TrustedUid = 0; pw = getpwnam(b); if (pw == NULL) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "TrustedUser: unknown user %s\n", b); else TrustedUid = pw->pw_uid; } # ifdef UID_MAX if (TrustedUid > UID_MAX) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "TrustedUser: uid value (%ld) > UID_MAX (%ld)", (long) TrustedUid, (long) UID_MAX); TrustedUid = 0; } # endif /* UID_MAX */ } #endif /* HASFCHOWN */ break; case 'K': /* Keyfile (map) */ if (classname != NULL) /* found it already */ continue; if (mapname == NULL || *mapname == '\0') continue; /* cut off trailing spaces */ for (p = buf + strlen(buf) - 1; ISASCII(*p) && isspace(*p) && p > buf; p--) *p = '\0'; /* find the last argument */ p = strrchr(buf, ' '); if (p == NULL) continue; b = strstr(p, mapname); if (b == NULL) continue; if (b <= buf) continue; if (!fullpath) { p = strrchr(b, '.'); if (p != NULL) *p = '\0'; } /* allow trailing white space? */ if (strcmp(mapname, b) != 0) continue; /* SM_ASSERT(b > buf); */ --b; if (!ISASCII(*b)) continue; if (!isspace(*b) && fullpath) continue; if (!fullpath && !(SM_IS_DIR_DELIM(*b) || isspace(*b))) continue; /* basically from readcf.c */ for (b = buf + 1; ISASCII(*b) && isspace(*b); b++) ; if (!(ISASCII(*b) && isalnum(*b))) { /* syserr("readcf: config K line: no map name"); */ return NULL; } while ((ISASCII(*++b) && isalnum(*b)) || *b == '_' || *b == '.') ; if (*b != '\0') *b++ = '\0'; while (ISASCII(*b) && isspace(*b)) b++; if (!(ISASCII(*b) && isalnum(*b))) { /* syserr("readcf: config K line, map %s: no map class", b); */ return NULL; } classname = b; while (ISASCII(*++b) && isalnum(*b)) ; if (*b != '\0') *b++ = '\0'; (void) sm_strlcpy(classbuf, classname, sizeof classbuf); break; default: continue; } } (void) sm_io_close(cfp, SM_TIME_DEFAULT); /* not really needed because it is just a "one time leak" */ if (mapname != mapfile && mapname != NULL) { free(mapname); mapname = NULL; } return classbuf; } int main(argc, argv) int argc; char **argv; { char *progname; char *cfile; bool inclnull = false; bool notrunc = false; bool allowreplace = false; bool allowempty = false; bool foldcase = true; bool unmake = false; #if _FFR_MM_ALIASES /* ** NOTE: this does not work properly: ** sendmail does address rewriting which is not done here. */ bool aliases = false; #endif bool didreadcf = false; char sep = '\0'; char comment = '#'; int opt; char *typename = NULL; char *fallback = NULL; char *mapname = NULL; unsigned int lineno; int mode; int smode; int putflags = 0; long sff = SFF_ROOTOK|SFF_REGONLY; struct passwd *pw; SMDB_DATABASE *database; SMDB_CURSOR *cursor; SMDB_DBENT db_key, db_val; SMDB_DBPARAMS params; SMDB_USER_INFO user_info; char ibuf[BUFSIZE]; static char rnamebuf[MAXNAME]; /* holds RealUserName */ extern char *optarg; extern int optind; #if USE_EAI bool ascii = true; #endif #if _FFR_TESTS int slp = 0; #endif memset(¶ms, '\0', sizeof params); params.smdbp_cache_size = 1024 * 1024; progname = strrchr(argv[0], '/'); if (progname != NULL) progname++; else progname = argv[0]; cfile = getcfname(0, 0, SM_GET_SENDMAIL_CF, NULL); clrbitmap(DontBlameSendmail); RunAsUid = RealUid = getuid(); RunAsGid = RealGid = getgid(); pw = getpwuid(RealUid); if (pw != NULL) (void) sm_strlcpy(rnamebuf, pw->pw_name, sizeof rnamebuf); else (void) sm_snprintf(rnamebuf, sizeof rnamebuf, "Unknown UID %d", (int) RealUid); RunAsUserName = RealUserName = rnamebuf; user_info.smdbu_id = RunAsUid; user_info.smdbu_group_id = RunAsGid; (void) sm_strlcpy(user_info.smdbu_name, RunAsUserName, SMDB_MAX_USER_NAME_LEN); #define OPTIONS "C:D:Nc:defi:Llorst:uvx" #if _FFR_MM_ALIASES # define A_OPTIONS "a" #else # define A_OPTIONS #endif #if _FFR_TESTS # define X_OPTIONS "S:" #else # define X_OPTIONS #endif while ((opt = getopt(argc, argv, A_OPTIONS OPTIONS X_OPTIONS)) != -1) { switch (opt) { case 'C': cfile = optarg; break; case 'N': inclnull = true; break; #if _FFR_MM_ALIASES case 'a': /* Note: this doesn't verify e-mail addresses */ sep = ':'; aliases = true; break; #endif case 'c': params.smdbp_cache_size = atol(optarg); break; case 'd': params.smdbp_allow_dup = true; break; case 'e': allowempty = true; break; case 'f': foldcase = false; break; case 'i': fallback =optarg; break; case 'D': comment = *optarg; break; case 'L': smdb_print_available_types(false); sm_io_fprintf(smioout, SM_TIME_DEFAULT, "cf\nCF\n"); exit(EX_OK); break; case 'l': smdb_print_available_types(false); exit(EX_OK); break; case 'o': notrunc = true; break; case 'r': allowreplace = true; break; #if _FFR_TESTS case 'S': slp = atoi(optarg); break; #endif case 's': setbitn(DBS_MAPINUNSAFEDIRPATH, DontBlameSendmail); setbitn(DBS_WRITEMAPTOHARDLINK, DontBlameSendmail); setbitn(DBS_WRITEMAPTOSYMLINK, DontBlameSendmail); setbitn(DBS_LINKEDMAPINWRITABLEDIR, DontBlameSendmail); break; case 't': if (optarg == NULL || *optarg == '\0') { sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "Invalid separator\n"); break; } sep = *optarg; break; case 'u': unmake = true; break; case 'v': verbose = true; break; case 'x': smdb_print_available_types(true); exit(EX_OK); break; default: usage(progname); /* NOTREACHED */ } } if (!bitnset(DBS_WRITEMAPTOSYMLINK, DontBlameSendmail)) sff |= SFF_NOSLINK; if (!bitnset(DBS_WRITEMAPTOHARDLINK, DontBlameSendmail)) sff |= SFF_NOHLINK; if (!bitnset(DBS_LINKEDMAPINWRITABLEDIR, DontBlameSendmail)) sff |= SFF_NOWLINK; argc -= optind; argv += optind; if (argc != 2) { usage(progname); /* NOTREACHED */ } else { typename = argv[0]; mapname = argv[1]; } #define TYPEFROMCF (strcasecmp(typename, "cf") == 0) #define FULLPATHFROMCF (strcmp(typename, "cf") == 0) #if HASFCHOWN if (geteuid() == 0) { if (TYPEFROMCF) typename = readcf(cfile, mapname, FULLPATHFROMCF); else (void) readcf(cfile, NULL, false); didreadcf = true; } #endif /* HASFCHOWN */ if (!params.smdbp_allow_dup && !allowreplace) putflags = SMDBF_NO_OVERWRITE; if (unmake) { mode = O_RDONLY; smode = S_IRUSR; } else { mode = O_RDWR; if (!notrunc) { mode |= O_CREAT|O_TRUNC; sff |= SFF_CREAT; } smode = S_IWUSR; } params.smdbp_num_elements = 4096; if (!didreadcf && TYPEFROMCF) { typename = readcf(cfile, mapname, FULLPATHFROMCF); didreadcf = true; } if (didreadcf && (typename == NULL || *typename == '\0')) { if (fallback != NULL && *fallback != '\0') { typename = fallback; if (verbose) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: mapfile %s: not found in %s, using fallback %s\n", progname, mapname, cfile, fallback); } else { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: mapfile %s: not found in %s\n", progname, mapname, cfile); exit(EX_DATAERR); } } /* ** Note: if "implicit" is selected it does not work like ** sendmail: it will just use the first available DB type, ** it won't try several (for -u) to find one that "works". */ errno = smdb_open_database(&database, mapname, mode, smode, sff, typename, &user_info, ¶ms); if (errno != SMDBE_OK) { char *hint; if (errno == SMDBE_UNSUPPORTED_DB_TYPE && (hint = smdb_db_definition(typename)) != NULL) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: Need to recompile with -D%s for %s support\n", progname, hint, typename); else (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: error opening type %s map %s: %s\n", progname, typename, mapname, sm_errstring(errno)); exit(EX_CANTCREAT); } (void) database->smdb_sync(database, 0); if (!unmake && geteuid() == 0 && TrustedUid != 0) { errno = database->smdb_set_owner(database, TrustedUid, -1); if (errno != SMDBE_OK) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "WARNING: ownership change on %s failed %s", mapname, sm_errstring(errno)); } } /* ** Copy the data */ exitstat = EX_OK; if (unmake) { errno = database->smdb_cursor(database, &cursor, 0); if (errno != SMDBE_OK) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: cannot make cursor for type %s map %s\n", progname, typename, mapname); exit(EX_SOFTWARE); } memset(&db_key, '\0', sizeof db_key); memset(&db_val, '\0', sizeof db_val); for (lineno = 0; ; lineno++) { errno = cursor->smdbc_get(cursor, &db_key, &db_val, SMDB_CURSOR_GET_NEXT); if (errno != SMDBE_OK) break; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%.*s%c%.*s\n", (int) db_key.size, (char *) db_key.data, (sep != '\0') ? sep : '\t', (int) db_val.size, (char *)db_val.data); } (void) cursor->smdbc_close(cursor); } else { lineno = 0; while (sm_io_fgets(smioin, SM_TIME_DEFAULT, ibuf, sizeof ibuf) >= 0) { register char *p; lineno++; /* ** Parse the line. */ p = strchr(ibuf, '\n'); if (p != NULL) *p = '\0'; else if (!sm_io_eof(smioin)) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: %s: line %u: line too long (%ld bytes max)\n", progname, mapname, lineno, (long) sizeof ibuf); exitstat = EX_DATAERR; continue; } if (ibuf[0] == '\0' || ibuf[0] == comment) continue; if (sep == '\0' && ISASCII(ibuf[0]) && isspace(ibuf[0])) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: %s: line %u: syntax error (leading space)\n", progname, mapname, lineno); exitstat = EX_DATAERR; continue; } memset(&db_key, '\0', sizeof db_key); memset(&db_val, '\0', sizeof db_val); db_key.data = ibuf; #if USE_EAI db_key.size = 0; if (foldcase) { for (p = ibuf; *p != '\0' && !ISSEP(*p); p++) { if (!ISASCII(*p)) ascii = false; } if (!ascii) { char sep; char *lkey; sep = *p; *p = '\0'; lkey = sm_lowercase(ibuf); db_key.data = lkey; db_key.size = strlen(lkey); *p = sep; } } if (ascii) #endif /* USE_EAI */ /* NOTE: see if () above! */ for (p = ibuf; *p != '\0' && !ISSEP(*p); p++) { if (foldcase && ISASCII(*p) && isupper(*p)) *p = tolower(*p); } #if USE_EAI if (0 == db_key.size) #endif db_key.size = p - ibuf; if (inclnull) db_key.size++; if (*p != '\0') *p++ = '\0'; while (*p != '\0' && ISSEP(*p)) p++; #if _FFR_MM_ALIASES while (aliases && *p != '\0' && ISSPACE(*p)) p++; #endif if (!allowempty && *p == '\0') { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: %s: line %u: no RHS for LHS %s\n", progname, mapname, lineno, (char *) db_key.data); exitstat = EX_DATAERR; continue; } db_val.data = p; db_val.size = strlen(p); if (inclnull) db_val.size++; /* ** Do the database insert. */ db_put(database, db_key, db_val, putflags, mapname, lineno, progname); } #if _FFR_MM_ALIASES if (aliases) { char magic[2] = "@"; db_key.data = magic; db_val.data = magic; db_key.size = 1; db_val.size = 1; db_put(database, db_key, db_val, putflags, mapname, -1, progname); } #endif /* _FFR_MM_ALIASES */ } #if _FFR_TESTS if (slp > 0) sleep(slp); #endif /* ** Now close the database. */ errno = database->smdb_close(database); if (errno != SMDBE_OK) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: close(%s): %s\n", progname, mapname, sm_errstring(errno)); exitstat = EX_IOERR; } smdb_free_database(database); exit(exitstat); /* NOTREACHED */ return exitstat; } sendmail-8.18.1/PGPKEYS0000644000372400037240000104143714556365350014046 0ustar xbuildxbuildThis file contains the PGP keys used to sign the various versions of sendmail. You can add them to your PGP keyring using: PGP 2.X: pgp -ka PGPKEYS PGP 5.X: pgpk -a PGPKEYS GPG: gpg --import PGPKEYS Other versions of PGP may require you to separate each key into a separate file and add them one at a time. Note that PGP 2.X and 5.X are deprecated and may not properly function with newer keys. pub 4096R/CA28E5A4 2016-03-04 fingerprint: 8E6A 5575 0635 A7EA F56C FE80 3D67 CBA7 CA28 E5A4 uid Sendmail Security -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1 mQINBFbZrJQBEADf5e1nG0uJs97KLNWbm4NjA5QapVuDk9AsRN4/T3tXVhgK3rBO lDwQnKFXon/0W/zwXNG4/XLM9Izga0reb8INj1meDVNaqX2PaKqmjUFZWVqz1IAR HqCjnR/BDuN+6nLpIEETCSnCnOqK6gBhkzc41vU9HiiujVFlyJwcNLrJe5hpgIEX SW8RQsSja3+qbhZbGrI0izCk7OPJUwNhvs5yzXa3jpiIohfoFV017Ww+iuXu7c1n Gb9nGnWotI7FYTeWQLUs2A9zCDSZxLn2s7wtbJJlCezY7yUwhxdZm7zjFVf8f4/X VArmjJsyKZSfmX/l+0JRD0Uh45GFHFi1YuYlhZhGcx6aDYoY63cvREYLS7jHbXzr c+NDCmrqqIJCqj63ky/m57PCC8HuClREGTxOyAcRYtoA/A+i7X+hPx+E4RvJZxEf 1wxAJJ2W13hq7+Bo1sF9NlKFpLKRCydpdfaP5++UpXSiIWNmQaPeNBmVm/nWDj0l eDPUKE1mIw1eVSLTLlXJy/jlZNCbQ6tgAJkvEUiylj43SE71FmFImrJHumOxlBXS 5K028kIRJPHgqTrnZ9TDdeHoTBRGougZwe17S2nyyEZpi3rZgXxiwaTuNnLhxPv6 p+lQuxPdfhdnXTD7EClCzOfTEyT9HvhMiCuepFhTB+qSmivQAHxEZxxmSwARAQAB tDJTZW5kbWFpbCBTZWN1cml0eSA8c2VuZG1haWwtc2VjdXJpdHlAc2VuZG1haWwu b3JnPokCNwQTAQIAIQUCVtmslAIbAwYLCQgHAwIGFQgCCQoLAxYCAQIeAQIXgAAK CRA9Z8unyijlpL1XD/4yKdr8unh/OJ5ks0BcjUpJBNkYbdYt+B4hb1lqgaM+kqSD HRt0tgcsa+m6Kcwl8TVZY1NlJRl/L/V6xP9bN/hw3e6eijx4m1dC5DSZP0/GZ4L4 u4pa349wj8jp33lMXQacrOgNcRPNfIrxww4bxOqlPwDbkfbn4HJVsdDvW8fZbsEM T+S8UnIOScwMov1zY+q/VO0kcFfCjTu9w3zrnOyz9vKkMj2QBbAm+kawW7fyt9vt kxwmLIx3XHczyFAiAqppvbqJV2AqTRdVy7rX79xkHUylnuAbZ+/6lBMc8kbQWdx/ loQA2xFfbQxGRWKeOH/FpcpfcocD3PZbJ1/D5Bef5WegVXti6zHwHWZFhFRB1851 ReM7RJiEJo76PpOc+aR6RKhYdfMtML/7dsnR51HWWuIfZbXbf836/SXHp3/MUOuC 1qyBeDweOXRbBCHGhvwad47NBj3QwK+1IFMFlDwLgCtJZhkqCSy3v/UhnK/cV6u5 npsLDJaQixU0kH5x1PbxoAsupeEo8VEUxlONOIMgrBwiaHIbwkL8/i02fHkA/hbQ AteZZ5vKi8Fapq60izQCvusybEA2Rx+Y7GMntXhjGthzTHL+E+A2KEq4lDrwmYzY jKVn5kJY9Wct9YQ8g8ytj3tPX9d8strSejrg6wBvPMNQXD9Hg+DXRd2nyog36IkB HAQQAQIABgUCVtmsuwAKCRAQkK8gpapb5saZCAC8ltCRFRCD/Bhva3y1WkYLFXeu zfG+L43rVEFfW+fQFCeiulK3y3hKijMARi6OjDhdZBK7cavstZec2CnOKmJRuprr Z9FwC9uUG9LfGEkpgwA6FMlje82C9B/wssVZiLNGuMGBg2BVaQKglw7loahMYdLO 7DBtOEz2bPcC5v/tO80s2mtzrTOWW5WbUmIB8m/888W+/T3jUeP3v1FtAhk28urO fHUcbifEbvdLblWeYiTi/PMEjVWvcWfiQepy3mA+G6veH02BFTMozzlcisHdJNwn Uqi8xcU0fIU2j5gDvPJ5IgppEEfwfWg0qqglPRPCpz++dn+LFoXV0N4pWdn8iQEc BBABAgAGBQJW2a0lAAoJEG1M0ZQp+wPewsMH/1PXIE+F4DYq11ohmwPG+g8MFkL2 y7rBGvsTdm7Y0JgWqo2BJ8sOpBhDduDJdlQRk/D5CWOxiPA7qGLmtBntpw3U1Wp1 A9DtcpR0AVlUwuSer5k+uGIxJzmu8w29MMpFtqBLjx3kH12MOAqTrC6YgxXsQEYD yluFMRcp7KfrWoEU9AAfpuT4wk8P3U+8m7QGqNpfTeNFgHmUd0dDzT6+zZYdFzmn BxXgp+W5SgX68OA4QXk30fGt8/btHQF0/qM76xCLXvOvV2WvLgwh2k0gNVHdl9BR 4Gos8SwOHKQZY9JtEAPu7vo66RGQ+jeNRYIDW+wVMHXLo0R1TkOg/r2Na+GInAQQ AQIABgUCVtmtYQAKCRDAKcpAFvTM6XVIA/4iLoL7GDztXgFzSzMC9dlrFGjxtnAo 6N1ZsPE9U/JN9KjS7T7/8w1u6cmewLoDPNN9WDqaQ62P010DKe/VfmhoMDumH4Tj ngOH19+RBmD/f1Xb0NgbWbRbF4hYFXqGmyUoRUDl1MWyOa+KSMC4lKdr7HQXQF/0 8EY9yfJLx6xymYicBBABAgAGBQJW2nCwAAoJEMGcHSUS00YdyXgD/jjlvEBq3wDP KT97+xy2RoTU6lNyrlkD+9Zu6PE5QSt8tbXpQ13nCWS5quegk0fJg/X9W+hpt8DR 8WQ2F3LiBXZGR73hkRx0f+MQArx+O+J6cSjw6rUwELld8EF2Vi7bOuMgE33BVleT pvaCzB9yQd3+nKbgDb+ZynHZce7bJow5iJwEEAECAAYFAlbacNsACgkQ71iWZNQy 4Z32JgQAqVRJVb3Y69KcQ+d9zEkTmTZutsntqP5lbCJgdW13FG4mXoyqT9ncmSck XuJMhWoaZOfdIrZw7STLSzKmAfFeQdMiSWo/KZxV++YezamNGPeqjyfGqNn6wxSp qutJ1b3L3OG9i0+yuv04YhKX8mdNF1GnD7lrPYHONnp8oZawFISInAQQAQIABgUC Vtpw4AAKCRBvUpPYo5umVRI5A/4vboBeKv1+JZNOWp1uP/JRBoC+ccdVAJW3hmAX aBHhI252KQRJ5j+WeZZGHOOVHJ4JEJS7m5GNsPBtXaSCy0N/y2Qxobwp9DZxTA50 yVnsEVGOh2DaPRr6oJx4NC/65TGyExRNKCM+RMhGCf+x34nujoq3GI2bQf3Cy21t GDS30IicBBABAgAGBQJW2nDkAAoJEJwcveLjXFY1KSgD/iitVYxY9kxbIyiiEoDJ rjwtsRXYIHOHdUMXC1tiodzIuPfscyO/sSnYXgoxh8iz/9RJiyTIGSoePnd+rmw5 fef7EKWRPJJ00qCnJrg8q3PVctQiYeH5/AZrVGSJrIbdyMoQelj0igNhPic7iQQe Ihns14avXv8bCwHvMxYmgtw2iJwEEAECAAYFAlbacOkACgkQOCLbR8w3Ty3+PQP+ Kjuma4zB4nvwm5VxD3XQsJQEHF62W3pByUzSsOAJ5WXMbhVD+zV3P6ps/SbjZGlG 74Rx21nTNbeSIZig9XlfBjl2RmGTXDItE6mNpOzPysJeDUERjKvYYBacskBwsiRb sNZ6pKPkoPUt5ALn2CJ+wZryWd6IdLW1tYBuPHr6uJGInAQQAQIABgUCVtpw7QAK CRCJaWK4Z4wKAz/OA/wNuEw1FLrCc5O57ohRuHIYMK5HI4Cw1XQO2zWz4M4Gn4Pv 5ghJ9j3a5j5QiPbLSmKt3aWprPkIoGdKfiSMDlrW1Qtgj9J9Y6cf13Ja7NqGdNMM sHTPNEiKH2r9hkdg5aVyCai1J+Obi0ocF7wcxNHOXxBD2dvBn4wffCXeB6awGIic BBABAgAGBQJW2nD3AAoJECGD4bE5bweJnrQD/0OV/d3ykAAADy4fC6zyVFcbaaB5 CmFO/rQUjMP96+0QVq6DT9q3Tv0TE3+0JyqdDS1RGM/mEGpijuoQO6upNnVlOudq kugJstOb5RNLq8GVJKMt/EXa09eRImdzQq4tagVSV8wIHsvQTItnmFjIK1dWqEJ7 4Wr8Wpn+J7Y69So5iJwEEAECAAYFAlbacSYACgkQyNXtKZX2F3HzUQP+OBNaNNwW Z9iYqZ2j1beVn6R3F98qDZ1G8QA94FXMW24P7jid+N47DMH4R89t8yyvmcb9QweS jD4oaLRMOxjdzXEDnO8FcPQGtubtN9/54qPTNjSUYztLYVNCYcqlpqHP9WUUJN6G GT0aHBTaXTs4BggeYbnoexXmGfaUWPt9W2GInAQQAQIABgUCVtpxMQAKCRBwoCRN HvmSUe0PA/4m0COSkS89udfYSyhN7flXgtOB3fKraw219+dOUmBCxIRl8qInqWUM +216u2q0NCh3MFBMRmk/FrCa59yBoP/ftibjAwKDm3TCUUre++kVwNPPCONPsaMZ zgP4Hu0U7pjrCyI8zRffN5obQr6v7xDyGwy5bpGH4UD216u+/UiDe4icBBABAgAG BQJW2nE1AAoJEB57s8ivlZYlpesD/i3Xoj2yR3UemnaYpYWEiKvHGzUKiVqyjz7x BVhDMDFJxFlJeQjxnzWcsdS15W79hl96kVHCHsHqnC0oGT/OdaXpUnvQIm2Ot/+f rU2AzXBm97VpdwAohxHIOzFFY9JUyZnzLV8ejoYngaQA764fpRgNSjVm1jIAxUse 4cc4Na1qiJwEEAECAAYFAlbacT0ACgkQl0MBGHCTuEEn+AQA6H5I99ajHAMTMxfb JRZ5wxsCn1KvHo2S82UUDCC/Cwzpn6cT0b5ClTbz27EsLHouXsOqNUpJleLN/UZY vyiNc2skejTH2RUNrBhhbnrlpjfKsjldEbpRbfAeMlen+8mwiZKptjF2Wh2S+IvC 8UUCNYBsLdcL99ft3GCxLBm0VsCInAQQAQIABgUCVtpxQQAKCRDYqvDK9rMHKZgo A/0eTw15SzWVMX8G/XJ87q+2GBaGHu1mGkv/CYbhFu+oqDLuLfVIH/QonHkIW+ql IPVnJt1f3sG2BBAo/bC/DhTTM5GsbLSDyZ0vf3Qn1JWYR9958+U7As5jRTZjLfxe rY4FW8is0xHwEHXz9/9i69h7Iz+CLZKTXmqNebkrHfedW4icBBABAgAGBQJW2nFG AAoJEBKJbpunfyQppAIEAJh9zjV/9qbsEAbJ/ecXY+rshTKe6Ed1LpQ24/b6N0Z3 LuR3n5n4+qyXsojXLY/DpJaHQeIf0WHaUHhJn/lqtPhfg7NpGnjbJIqhTlvsEpy+ pmIqo1OnB6Nkv6C+JRXfW6VLJzxAvCtoHwacPtetOWtY+VF1o0KIezvEMC2bZy7g iQEcBBABAgAGBQJW2nFLAAoJEGBN+/KFQQq+4M8IAJwzU6zpwIK/lk6ZuOSyBewU Y9dAEh6M8/vD1tFZ+o+vRagHjraHhw/rWLx+5f80hn84ymoD13YOONCjosO+w7JP PH5N/ehokBy3hb6A2jCzsZR1sMIwqeYvoG8+UOzBjqZ5CnUSYRRg0uPddS5S8Lyh vDBnKWGF8DfUUfKGF1YN/yoIB/E7QH+lRTWSnOaWdF1/h+/qV/e5V4nykzibcRGj VBa/H1qkmqk7DX+di66Dz4MtsCYOqIzmuz9wOYK8oDaH6qt0G+CigTo9Hs0CLt87 ezq15CvnVhdVNpE6gt1Ye7tERO2EK1zNGvJXUETyQ2BSrqoybttFmxFM51X/fBuJ ARwEEAECAAYFAlbacU8ACgkQOaTHfal4hLBVHgf/djm9OmqzZC/LEmv5agNglqc1 SCTjLvd/3hCxDeM5IGLdLQwDi3aIzZjW+aU0dCMgR3S9d7/MJcPsA47oYtqYRG4+ V9xOCqCWvcJ8gC+Ra+h5PN+ESy4Qqo771fNThV4C5QMQ6t8I+JPiepI+H4U19zxb SjdoLkoswDfxcEF+PpoQcW1R2PxWvES6kQixmfIV27QZKeKXK2KJWK6sbLLn4m8Y SzKnCaIkISQhTgGlCkUivaSwSaUYo9epjRUPT8Xivcu1IuoV3f23qkx6NBCEdnpe WpZHmYG9v8XKdxSU3CHUBSVmWbUtIoo9kh6ArKyhuVVopayRmrByfQUdO1TblokB HAQQAQIABgUCVtpxUwAKCRCOWun7zu70O7zLB/96No2LT9tXlknLRth3Fg0MPLud SX4dnJJA8tA/c1Giu7O/PQS8NT07KoBerqCt355WA6ABdlnOX3lgKo/qm0EyeHU/ 17sJdUKWWEdaF7JcOdCSQCm7bzfIi4I7u3IrMAqvkiphFflaukVS8euBKMq7ljxi 74wI/7tK85UtiuBK9p02Zrnkkln+VgQ5oLMiyHVyevpMY/YQSGT3ARwdJW7Povwt JxVCPZHDHumUqiTeFisLl6/WHyGPyzK0Zi83JRfPkr756iRfskTiCP7wN1L/T8lQ nJeugKG+XAwaxhh6T14j4TrA2E9A9reb+6636LLLdsS3jKG/wWyl6w9FgZcUiQEc BBABAgAGBQJW2nFYAAoJED1osl1SB8rTBawIALifXmm7e9kjDsuy1RCCZVRbv/7j +0vOsw96gqbM0fuQV1qnt6uLppJgbFgXFJOKchoXRBYBFuZ6tcsU4IZ3itW0WYgh 7Iv02LlWExFNlNFJpNOnRfK3k9md1jZIFwnLFIUMymmlHYAIuKX4zrD6XhWxX45i AmuWyORw+cyEiHjbY3hGFa9XMeM8ckvvlW9h65hcizNfnldrHUWz6s6sYTTQO4U7 wBz1tMTL/1LNBxkQV/FYj9OorNQGrdPYOD+FmOm0K6dPQsMmK2QVsPk8rhohUnWI TAiPr+i49HZarHnX041wOeBB3rhSJ77A47jdgYnR/X1Fp94m5fq+N2wxWjmJARwE EAECAAYFAlbacV0ACgkQYd4R7OJ2OnPJfwgAt+xz05qqQksAhVtl4vCcDM3smP2N 3iCoPJvI4hpYdfiPgA/UGe8cHTnQqCbfgZA9BPtGEMkK5Tk09p9ale9EK643VgD0 ekI34YB7rje3QVhKudrhMeGO5WoSlrXOG6W6/8jucpHcYtjcSjgdB0pcBpA5IHRI 7k4ntkkvWlXOllCioxPwscHKrkPWSDI83xXdnShmYnzwcOBQhHXiICyLo+zYU+bh FpwqcnItAKz2aI/hKSz8YWey5AGF9RH1Uwf7leGqVlD57f4BOkrhq27YgJzXri4W jfBkEXluWU2RhiknxL3K86WLeUvTeUgB2gZPGHMyFILD4YsSY+ZUIPqN7IkBHAQQ AQIABgUCVtpxYgAKCRCq9bXeBb3MU8QcCACquxGrkyuB9XRnlnMFhkZimaj9IU/o RGADeRU4TMxtZooXA9VQvU1o7Kdz5s+v+TKyFAyLoLbOs/SEb1rb8X1k1R1DiVzX +EkKONk5sMSMiBE+/5vsQPMuR7bUxPYd4cpIM8sYUyiWGif3KFd6bnNS/hnh9ziE trgj9P9wjeztTQcPbCARZocMGOcnSsRZJPTWOuUiUdNykkDxBuyeXA7V45H1ozzF Qe7WYb+zmvm0bbPme7R+IFABaJoQYEUAYnDWkfRg12La+tpRTK0LA0rQ3DHQuQZ9 CdBvTowO5QyA7TpKanJPFauMVaO8qrPJspw7NLpvWo9JyI55eNFZSYLUiEYEEBEC AAYFAlbacd4ACgkQGPUDgCTCeAJZNwCeLZStzZQKk4BB2L2MyxwhEy3ivdgAn2yt 89G259NL0HO4UDdEjQmeRdYPiJwEEAECAAYFAlbaceUACgkQvdqP1j/qff1+7QP7 BPaV9C2Jjsmd1epuxRE8wDKOUbgCOP0Wnz/RQcGtmLpE+b6gDyAkO04yJc5sgTOG vPwJIInvfmp9IeHSz3dpiTweUgwy40U8LJNm4rvI+LPaR6FTYtvgrtEn83jiXPvO n3p3NUF2AUgdpfW9jpQwlcU8kqO7U5FhNn0SwDbB+wKInAQQAQIABgUCVtpx7QAK CRB8S2dtoA4VY35sBACaR78j7jxTq/Y+wPNzmgGiY7Re97Ik2fJnUnldplVC1Kqe IRD1g1JX7f83/WbBmsYswTUEkP24mmWTIyyBZzZdMgcV/zC6OPn2myCPY4jt9HHA eYDgDCjy8JBlxDgb/zS6uT0IKPbO19hsO3nEsXX4ezTR5vGg6BsoUhOlFInnCIic BBABAgAGBQJW2nH0AAoJENbgof5PvirdcY8D/AlG/9+DrudG7GwRFmMLnpFqPJ0O vWFNVZtNvGVmsyi6yspY9nvKLyZiTkB80uOadljvcvAle7el9wTNtFgw0H7MKixO j7whiyX6c+I0qse2R8r65i458kuikNfVL3IRz+3LWNg1N4nevwrbIIT0GEZ7uz5L LLHKAK2UFD9XprgviEYEEBECAAYFAlbacf0ACgkQIfnFvPdqm/Xv9ACggz/E2KGa Wjs1eFGMHsDeixJV/icAnR518j9qLfnTXG81oDSg+LVi3qjIiQEcBBABAgAGBQJW 2nIFAAoJEGKe+O4Mi4Mz6X8H/38qfHEQrWr1WaEoiZTsIq4qHqXHt5oK2fUt15mQ jDIutggOgSlG2sPAEmiKxl2Z+adGvCr/1p9xpFlMWIXql/aJXTQpgRwru8J33eLC B9Nofnkwvcr5FyUxKgvDE/mSeT/zlxDaBtTCx46SEizSNqR7y2oWb/HoYTu+1gcF 8wRmKxF+UQLiNY62r5VHggBLdHz6ZLJw5Fuq2X/XNsto0b6XYF3TcL14WyWaIB/9 gNVMvkFgNeTyfSrICnzcZLQwkCfPct4r9ekD4Sr7RLbnOnsjMnfsWbACgEV8wVsQ awMlDwWWxFMIWBiOo2Qw1Eqw+JFVq+UqVI0rRbXBBgqVshWJARwEEAECAAYFAlba cgsACgkQvSdtLm/PqIUMaAf/X8KWAvlfo81h3dkGsVLEGgs/SdhlrcMrkChcfMpF HhGaydcQG4VQy754GnclQGqbHkazFN2zB6/GtfJ0tqTG8UZNTYfsXjvOCOaCvHCr D8K6W6uL+PyFazvg4BpwZeHuOTUepHKVW+/YCkV5YA90w8VkK7TJYTQUOoqjY5rN ddE+UHA7669L2ApqvDFaKrRXIl0XARk7cVbmP+Rmd9lT3hAKAYLGqAoTBc9Ih27N erJG6YSRovEaYMyH6waYGu/sQokRcSs7tmW8NLXd9MKe7zqE1sn9s8+/3sQ7XVmn bk1IZKQRBvn+fah8x8lFNTFKtGbG771f7r6A1DiSwaZE7bkCDQRW2ayUARAAp3na YPI1BOJ2yNCgDwtcaTFKo6i+JEexl3YexJKO/gbvfITZpDNknOGYv1bbmPscHY8B dv+U0YOYwOYOpuGMnOFk4enHrayXYWEac6NxKHNwiw+1mktvpEyrXN6JsI9ys7zE 0TA5t+7NpChIJ3uWX753P/wXuEcwiH1G7fnC1OarWMo98pRlXVUWSpQE8RXIxmCt IYisBBCfMIVcGBRd7wT/yMU9ADZBeXWX5wHxuN7R7BauDND08Vs2AxZ5bJpzKrr7 PjpGUfB0LPcsZ0l02k/6nBnSymsybenYgRIpcP2WxLuY4P8ZfkPQy/ZH7XCcObXl yIBTBwEm2JTpfsV9pOdM9J9R41VAzq8Ljm6lMMv0i/sXT4f4v01bT40iuNa64mOC r0LJHghpF8q/CY0xwwoOSsRdDLOYUpQNdA4colxN5aSE37Wi4dSU46Sdp6WNJECn 2HOdeJJJCBLVAPCgKXCHf54HqiZI2sh3sYCCQUk3GKKAJQCCKqP0uxtw9wdq4VNO DQaLQADR7uxZMnKT6M41XEvPwuvXFRyUj5VSCyUzNryMAkYyxScWncFzhxMzSWh4 qlU1litNkho3xQFFpa4zNI1S4dSfzv7Sv5QcslUTuWGz+d5Ixl5/XajHceV4d7sy DlvQIXfVUzPfz73Kib/jhzrUGPFNF+BZ4Qe6IMMAEQEAAYkCHwQYAQIACQUCVtms lAIbDAAKCRA9Z8unyijlpH82EAC9jEAIX4MkulcI1EqZrh7K3TMHCCl9UE3YbbGl i+X97gI2yNQjQSL3FRMZAcqLqNq3I1PCXuSg5T7gITMNh1DpO3JjZ3TBLvw3tdCy /0sUtzcRkxmAN5afpRUUcxi6OA7s8Y9MPuWNnDtcG0CGEG7WX/bVXowue15SUXRv TShSVoalOxyra2/1QKp3fqYPRwfPP5cjEkZT19riWS0gH+k8GxKaYt6fhs2JuxiZ aOZTeSWr0wuFIemygi8jqBhOdsb8ialYeoWrbw2zOimeaIm/rLgT901nE6xF2zl9 jVhMNPb7EmFOOIX65k0FerlDO6aiufxKfLNAfAp+AeM5jv1b6T1jFBOltkT/0dQ5 NNSb4loz7zo3fRvZDyUowS/F5Zrdt6rsX0FcGJiPcpaPlC9W7kRw60jonMhhh8mR 46GMO7kt3u9mMHVeSUd5HRQjFakeVwQwgiwCX/np8iI3t33oA21WUO9TzY6rKgJf znX+MOLRilfFaqSN/B1ZZqJX3S7wSkXdO77KSShZTFJVoY2XvyqLTaPVgTM7A/By KOlzghRF65ViVJnDZUQfQBxe+qYCplAYzcmxknQFeNBeaHbuV9fZ39sKX5I99arg mk6wxhyuojEHuR7it6IU5BP8vaAGrL1jb1c2EeAe+pdJwpAb1Aq6MU6uWqOGup8t 9T92qg== =xY3m -----END PGP PUBLIC KEY BLOCK----- pub rsa4096/0xC4065A87C71F6844 2024-01-02 [SC] Key fingerprint = 8AB0 63D7 A4C5 939D A9C0 1E38 C406 5A87 C71F 6844 uid [ultimate] Sendmail Signing Key/2024 sub rsa4096/0x8DBCFBC42AF9E161 2024-01-02 [E] Key fingerprint = 2B52 755B 17D4 44EB EC39 5497 8DBC FBC4 2AF9 E161 -----BEGIN PGP PUBLIC KEY BLOCK----- mQINBGWUXHABEADBppmmbLqp0im5U2X6qAhePk4nOkW52VTJV4LC67Po0R2jPMdv yCqQfGeqO0RYPCDOF9budPKj5wWZQztBWUlAUOhtt0c20F1wjzvRC+cnlZLFIZp6 rXlexZxW/2mXXX/8FED+KjLZXCkSV+W7TMIZQtvFGwP8bpqlf31vLOKjMri/QF1Z UQwHkWirmabwWx12x2DsYtkoSsyJnMd8ZAjnOxOVpnwY0ZzmXMcRFkmnuBLaIFqz h6fnLj65owkxnBKY/mEsuQJp+DZvjXNpPrTgyJ/77e5XKGuKr5fx7h+9BLpOODHb Qts+c91eVOybLEyGM+F5mfYMvD54euG06XVy+5Yi2m9+Oxwvkz6cJCPf8/S7PFLa WyTorU+qB22T1z43qfBrGivuOyAm8slurpRH1QikkTAI+hk21zwCGnM9Nvvh9zN+ Kg+uUoiZkEtJ6+J+O5qK6vXV6QuP9D6KBjF0zv9pIgbrLRrT+xE07v9lrYuU7U8e znl819atkpNlE9NBb/4sxRdpmrAjQDVHpy0e0GbIKYKfla3rdsvM/2rIdbVGTqST gPddPExgPqyq1ssyy/7CdsNmk6qfJ9UJDKtKnTjuAMisfh8P4Uoiwvhqxbx5CW2H FqH3Ka0J/fXJlYlt3JgJReV+SJViADUyQYqacIMo7JOQVfVrinaGbxD0kQARAQAB tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDI0IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQJVBBMBCgA/FiEEirBj16TFk52pwB44xAZah8cfaEQFAmWUXHACGwMLCwkN CAoMBwsEAwIGFQoJCAsDBRYCAwEAAh4FAheAAAoJEMQGWofHH2hEPNcQALOzEpQG 3RQ6UcvFeHzK1NCV/oyZKQgj3val/QU9VoHi4RhBgosTqVAciHcKuF2b/v47b6AA 3F3cuNn28LFFr2xC2e0+NaCT8oZGRcnWPi4NfslIQgUhTsVvnisVO2obcRYVjKBS 9EEoiLStMyhGXWFN34yUQZu5DVuQ3JhyR8dqu4f5wd/1TD9vY8x4b7jdtIUDQQEE PvhzcWn60Rpqd59CJZJ1dk54ZzjzNqTPt4fu0EU2L5oKmMS18//9hh/oADfaLgax 0V1MC3sMzFuMCIoLvd/G2XzyIRNu06brf9XZVMOMA/N6bueY8gyf82eVxNmfvnhN RcTINWeOmjG29UYstb3S72BSrBB5/oJDrOJnyeh4xvSjeShVFLyKRo6Bcvy5+w5i MIFlkWOl5v6JKSMUMCIzZUp7kAeU5D2CzQbFhgnOY+YFrYGgHQa4I4QmX9LE2svg SwFwFpDHC1T7fuO5kFRO8Xa2+YLhKWjEQsljQwyyOC8n/DhhatPC1/TzNNhx2meS OIKLy32yeIcHODlKTWwZPGRMiZZ12Z62K/i8bu8NkifXwtLjfbqmxZbP7XSFKNBt yDvYhHMQW1YiXbTREy1b2l2Z7m56H4VN67RFlnhb27EzeQ5fbBO2pXvQ5e+sD4Jp FcfE0QZVOyVN59FlCdaGvk8MlvHrZhwVnlnoiQEzBBABCgAdFiEEsXWWRFMDXc7d e+kZYE378oVBCr4FAmWUXbMACgkQYE378oVBCr781wgAj8iqPRzD6kvgmqOPRh+6 YBuSZ3+QOZKhIf8HVsutfeB90YBRJbtCKucliRIVLj8qkqIKroWpKPAv1YlqKP2t spxfZoz9DzxSnwbXV4hmb/JfT7VLD9TBih7kBMbBxkY3ECIuvZi1roETpK9cSP17 tPD9eFpvcG1N5DzCZTsMNEap946xVrCrFXA+etDW0BAMXtqzMlFOZt85hw2B7Z3l mB0ErTAjeb18QD07TbjMLl+wI5SPYddMBvYYUXic0CBliuF7m+MSWPbNewHcvYG+ JGotuLZVp29ChKG2Id4qK5IkdYTC1rfwzuPDm5QpPc0ghD6vnNvmX3oiw9V7rQJB h4kBMwQQAQoAHRYhBFhyYhipE0AN5mA2ATmkx32peISwBQJllF3JAAoJEDmkx32p eISwcY0H/ivF8zsxMSMWxe45atG+4V1QsNW/gasu4MaTSTf8lw1WXEoZ7SA6HduH p7gLmRsCspDW5F4ELgpQ5wHux7LlrCRBxGHuFBn+zAptF/Z6zxRhHjcEBRQW2tGR BRYkfr8WxY3KvYbiKJBnn3GgmQoexg//oaiAu/BqBkEhKkgDsgp8B12rMUr7zpqe 9WEGbauvzwvOnbDbJ3AC9LRsQeq+/MbXZYzK096VH799IRe5JFaQndavEPpZnuE8 naPxesr77rwnOcPeyTxgAfZPEZXl92vznKeEdKZzaWtfKkFgVvInreCOwebyeOsF kEaAh71TgGGXgLRUz8LB88Wh4MaMdBiJATMEEAEKAB0WIQTKeo85okGf/7CpqyeO Wun7zu70OwUCZZRd3AAKCRCOWun7zu70O8nXB/459fW10n9esxtuWadhwnRlxF2O mdFnTLDj8RY1IC8zvi7cONQpPv9vPEMqWjgZf1D2hKYNnjy0Nylww4XV8XNJ3kWa riDt3aQkIuXt5iuYdbPp+JQV9rW0Uu5Sw3x0Gy2dVXDYcmSdu/NRkY8R3Uf7DJPj 4F3zIvm6cLClC9SNXiz8yATnXN8wb4qVOih9JpXas9+OPkehcah1ZhfgYx8lj497 /CWGx5+tdl2IBIUy19aQ4aCIcIgVX5xSss0x+7WhL6THKf3IPzDKMTfy6Wa1NhvX +eq/HbU7yWftXiZgsGc1ls4P0NmEEZwPCvmq2mtIoa22DewB9tk0O5dUy8UziQEz BBABCgAdFiEEuH1FaYbxlIQH5cy0PWiyXVIHytMFAmWUXeMACgkQPWiyXVIHytOO +Qf/ZzXfRqub+/gFS3Fi9v1xIPKl9fab3mRQU3HzXmys5AlLQOdi19hzqmmjW9gY edvy85I2Buf7K9/hVumvLp+7ZK4rY5PXz97GWC5Mn9mVEaTK2OgPN9KzfvtjxIPs KjvyfB0U6YBshuj49arYkefm2QVKRSGfTWDMVDKMOSwXFalYUape2+Ckjyfg8wsB V2hRjhMG0PRN5dAXZiPEbYztQanQWAq3DK1ohJLgFwattMpZrh8wUF9LlEtaSSIz /A1jv/IqfAVOudLiPa272xQOcGcZrONGcPd3BhpJ4zQM/cd9gNQzXdUPgwuV/Toa KFX8lNqY1JIjIIgqARw0c2qqT4kBMwQQAQoAHRYhBEn2qL6EczlJUZFvO2HeEezi djpzBQJllF3qAAoJEGHeEezidjpz0p8H/iGf0G9+IBcRK8J6Mz1wA+hemdVdSsTF 6GYCKFFfq1b40T6Mc3Ao5Ea0P/AyTIFfVBoTvsXqNB1bj1MmOZETHcEbCrjyOKLz yC8SSH8PRUDWpPFnbKYyOnEfViASqmxHIB8G6nZ5tfucgasCrOUbkd7/QsaAeiv1 /VkyGDx8eUDu6+NUCd+K25so8LlEotDhysTI7H1VKLQukduyBs6ziyjfFcGg8r6l 8BcpMhRZ01eR6ZFQtYRcX0ZEOBHtp7nlx2gLEFrQ11D0+PJHMf5p0oQi+hHGkFJI V3i8Uhg9KKH/Zz3VIYoIt5v/73HRExOXMib0YgazoPnF6Q1sCEUrF6mJATMEEAEK AB0WIQQPXJauyOaenI5ULlxtTNGUKfsD3gUCZZRd8AAKCRBtTNGUKfsD3jjHB/4+ up91LA7tS+1nUckjWyEyRNbUFaeZtd2mp7A1D4yIKk46JYS8LI4ION8R5HRgFNN9 ut5lwsMN6KZJIiVcrM/D/W1NS8zWScw/K1dtzDerdNOU+bwU0aBHZB93SL7MwvTN /D+31oxy6LoQnFjEGBbWCoFpdCQceHK3AclqCmHvlfZi3/31sM26daC6Ntgn4JZU 6BHP27cFdoHy0jUiQt/LXDDtsfXb0cS3us0+7wwSQ9h/H7E777MKsa8CMeVmSBbQ lY17TwBMVkMKrKc65aJXKkoezepew+vSO3tk86EzbuMt7iK6LLXKGtLK0IRVY5dU jLp8B1ir4qiXiAYWgVqJiQEzBBABCgAdFiEEMLynRwX6QVRVcx17qvW13gW9zFMF AmWUXfYACgkQqvW13gW9zFPe5ggAwdDEpOiEtSiNqXmcBfFgarSxrL6yIDzmSqTK Q6pkQa1xO2zb7yi0gVZkJQzSeMBi6IJtnPoKEviUdLbdy6mC1ya7u+OY8Ubic2F6 4V6yaNuLL3T4cCK/7smiB3Fak36IidtOG6P4S45LuSlPu6ndXVSDU19me0hQEAmY 7BA7qSj1lbuhXPskl2iJOMaS5y239UDYtqLRnBF1OXe+p8O8IrWp7L7anZI6eYCC ToVvfkPCvfFDsca0nwZLRdUk69b93JgE8gManrf/qNnv0vIhJX9q4K7sAA305Y6J XJo/f/kH7dwZwV5HV33sLc/snvjiq9TKSrlTJ4xjL4/GPxhuK4kCMwQQAQoAHRYh BDyKHo5/RMreEU/tRkvJvaZr9yatBQJllF39AAoJEEvJvaZr9yatPwAQALBWFBNG QY+qUc2PIcV7KZ/OAdEx8QLFkOVXPiIn6hlp8FD9OzPV9/F0F+VumG2lLCIGFMLO T1j1MsRA95tVFj4DgEH62QwhVV4JfxhBdKcK57g7IKEro1Ssc8xGP0FhDGIo96ag kmnH6UFhIrXJiZj9rJs/9wIJYvO/VBCB/5Zwc1zqWjdn8PiQMYZm9m1+DZcDEx3e 8G6xPKjZVRzJMQ6c0tBRE9dZRSzwUaewl/nYwELMMOayZQndBPYlGb3PuYKQTksB 3g1J4vBKwUqFKxzBXgMjlSpnSa/RMCqfvl2s3PqGARh7DrkULHtPYAl+zHeyTXNh Fq/RZ3/0GnuxXL9LHGxZug6LtiL3un8F71YYo9S0963PlxJ2i7b6U1Ul00d+ofmH 9StrtvqQW+semspBJ+1w+WBr8v0C+vZBcO314dUAFsibEpmwMoy7CQ3PPj6FphZi Dmw4JXeqYyv1waS39FAE8kYC3z4yxo20aVlSmZIp79a8l2Ty/lpm40RBjAp9ulQg 7ANlLRLhdKUFsH8UoaZqlLmJh56oVhJp4aHH2SSijYH5rTSOkTj3b4vIFlDMw8sF P88C7q80KaCrV0GIITL18JaI61/BL+96lsz+f91s7KxSR5keABAHmU6u+DNodi6A SWuxyZc8G4zli9liAHleKaTxClzkcznp/EC5iQIzBBABCgAdFiEEpoc9JKTW1ihK 5Cp18GBZ/V3HzD8FAmWUXhYACgkQ8GBZ/V3HzD/c2A//ZQ3ZPUNBHuRHNBTFhEqT TW2kZLYlRpElpNqT0CsfKwxb8q/abLfh6Nn6oEBuT4RYDszL9UiBR9UC8v+dzsYa 2Z+13XiO7n5eonH+oBHOBFDcqvp3jpm1mexhT4I7azyhFd/u7QQsN2R2b2AZQQxT /PIlF2sYvaKq7tYd+j2Qgq9ISa/Jy7dZQnAhxPcWTSB2ilgcPu9LXfMobWe6kVLn CCTTgpWDQ510u/BLQPShroVDCYi++pkHkcJw+9AAvblCtiYjjK5NDF4dhMu+nqZ2 Qe57/Dt9VSEnNe7WXMvo25s9ON13ATXI8JijXaN0rJhk/uwuBdC6a/sl/ry4uum8 PBG9aDvq44v3BOy78kEUAAySvUJ18naaydpSeSLRMDSCI+uzhZZbwRTTNbqN58uH 4DcSIQCjyJgIrga7x1nTb3MppER8gtlWiaMs5cEWKYPGizCv9bmQR6HD3QbRww/8 o2XlHeZJg1T8Yv1SwOmz5hro/8RHHYKNwgWZukEJSNFlQgg4FaHICM4c6ODXrD5U n4FYZqMgPPtu65i70lFBRL1XEABi8BQn8ZdX6xpRLG7Oi/97fXcSAcb1aQSVQKG1 NYpFaY+eTkSsVoIIzOeDWxze4krxT/vd9J3HjXxLiqQhKh7iH6BJlNcCduMwTfvL fQRFeBX0FAKAt8GgaD7o0kOJAjMEEAEKAB0WIQRQowMJjqLde8vuKtoJ4B+gPAxQ TgUCZZReHQAKCRAJ4B+gPAxQThkFD/9nqrAxd121HLtLo81Y7RDgj2EOfRKTOE99 8CRUGe9YJ1pu22g6leREISjO/641uB3qdosHYIQrX2sgfXX0p5mJCI0BZgTVMHHB AMLvrPAua1/BQan/ZVFVaSkL8n552Q9gk7VkGzubfcYs1qT/NoDzFJ18bZ8k6X6t EDYMYaQ15oluGb96D7H2BuzSrGugqsNXdVqNFI1uGpaDMbdtFV5ZSFU1vchlmBOx uZQFZRA1n7H06FJ5E33bk6evqrYIbmq87OJRdyUr3nbmSTPWaHxH/Xpt9J+kViDv 78AbzV1y1j0ZTSoJ6pQOw/2oR9kqQrBvMEHr/tYMY0fZCnsGhD/Xcs3LscQdM5Ky c3Agh8/VvKU45kIT814CyR1BiYKLwWSthE3Lf/VSoOAdwWyydVBRmzXyOd0bPrp/ KEaB7AlBXmtgBTnd+44jHOyo0X+CZdscNbCevcwaYXY4aDW8I+NcmLm2+3lG9U4G CITW+y7q7vMzisVLzd6JcvSOx1ixdlZDAfv5of4MqCS/pjaqdOuT2F6C8n187KID zB07m+ix3D60IN0YlBh8EP9Ptm07y93/bpMf7HzgNPSUmsOnZcFeNiAEFUMfCM8q t5ESZO43GMJ8a9Q3KhK/c2BeXiloYasyS5GdJ2meE205extfIyqkZrLQSBWgjzZz luaoGI3QkokCMwQQAQoAHRYhBK39twn+HqaC5YVZcdWDIQ71FHGnBQJllF4jAAoJ ENWDIQ71FHGndC0QAICBdrTlc3cPct+E3WfcOGSBrtfySXs048YM2gxYbkt6FtE0 kY4dKK+dQApwpkxCWuAYMjO3hJJkhA8vmuD/RLhN786EgM0yCQoWJjrfZxhf4zLZ xyOPX69bY3L5IKQDFhCiGuPK4O4+QOtD5KeNmKrMOtUWD9TWOOyrhgaIApFHxJ7w qfWP9K/cYb4ifT3gmGM/RF+sCn9b5nUTf9bdpsnNE8c077V4+eciIfMyD2jEsxR5 0T7RphhHE6EOfEcoS9hdXWXMD/xYKtZ4S6+iCD7hTfqHRpYfwkLZcY3XZ3BqUTFy aIiLPXhlEnEbfYz2iUPXoJlJFFhgG+MjWi9PKq4nMzkMkezJlrhnk+vQjHaehXkM ysCtisKFus+LBsf2gvxBXGYeIlDMc/qyPcT8uU7dEqeUZFJEx8QMCPpSvs3bz4Br 5LsKf4b+/cXOPTv+w/M/kuVRXDQBKi65axu3TZrFRwPoGo0Ye1N5FDVOauhW+KWB itVekfqSQv8vXPMhWHyWUVXDyJ+L/gC24HV5BXbubZhjW38AOlc6spzYS8GTteHB HYJ0ArVRkonvJ7eKMvhCXPytEpqiZl88gxdApwiEJM0LuFRkZPM1ukmznGOpe+h1 igbKFI5IWBVW7cpVR8Ga5Got8NIgxW6la+TVRPByOGSDJm8V3Hrgqoq+9/zziQIz BBABCgAdFiEEYyfdy15+gOSYfqO3/XncDIHZIQoFAmWUXikACgkQ/XncDIHZIQrc wRAAo6y31xOW1Nr8ivnXNXyoUv/vjz0m3FnhoZ6L3Ee3jFgO/LRLAOXertUHd98J hfeZs6UGxxMAt3PZsKi5t/DxEXsqtCY5Kh+97/zzoY3a4xOal/IF6yePfm1qs2QB b3Cun94eBEceAR/hM8mLZ4hJQbViyNv9HZLMW99gJa9QHqWAHb1WKloJzgZa3ye0 oSqCf2416V4s4jadMGswGBgz6d1z4muziw+lkq4Ggac38JPtRX0wuNwPCs57ZhPz abo0yxFvbalznlRpMb1g1bRxCXkNQAUZ06N8lslO7i1Q6ef6lB6EsAHBD+DwH93c Gwuj0/UQlpU5Jc617EgbFw3LAaMwBpapOOMlaAKtGxLL/TjGt/uQqwHl+phlr2K+ 8aJJkR2VxE+ZABQ/GYNsEMxcxGl4f7+z2Apey4xXQ0+6ftcyWuQ5Cz9dDaz2UERo BBpzHYJZn0y7eOHt0sYDLSRjS86OIvqlZbSng+hEZRsPSJd0LVH13DfdnqVN8GmT N4TYSx5yqwLGrv9f1j5ktb5XruN0bAbiMDswHax+CrOiIS3fLQgaXTSaVOVLAfz1 TCK3iPD0cW3g9VS1pD+5V1QMtD/+z0a6sCE/2tGNOZTc3EX0BSfG6d1Ib+ns52ag k88qQwwUPNVKP/K71VG1s/9pivIEqkybuN0wUQfDPd40/JOJAjMEEAEKAB0WIQT0 ziJjIQJT1qn5ebBMZuqNS+4b7gUCZZReNQAKCRBMZuqNS+4b7iFnD/sH5tnd4N82 AMShGyss5+dzuRuSOxow5rBiUxSCU8yM7hR7HS9OEdlUcWrB9JtNEClMfR1ecm3e VxiBkwkTS8ufKSq9LCB+31Sl6alQt/cEXZhgIpzD1UtjHEG9W9geL0uDgnYtG4Kx 6UkbOy6rHjpM1U+bi0EtijbZ7MDCuqaB0G83JOgtJaqrSWn2Gdr95wJIOLe8X1n3 MR/Th1csKLcDiA8sGmK3/DuuoRFtDSiT/z2RRvtx6pz8Swq6ftRoTdP/8oOncuWX vQXuMe2i7YdN1xOv0hPK1tt5ZwOllqtgdG4yabsYif2I+9vnr7NSAthyJLS1sREf IPDWRAa9roN1OFIJ4dl8e2SrGTOZUW04Lfi/bmakkzrXrNlv+I/ZJSHAHbhecPY7 +hFhl7bf4WrHMmC3mL/t9/c0k5U/IlCYv+NaE9HJvvkLJO73Em/A58FZIu0WCI8g MiJec8utHPSOYfXCuOx4lSfwNZT71Ct5EYwpPYwTEHyMz3gzwJ6Ews6/dcjbfllg PFFOKlRQ+2NLPePJJTKao0+/aDde3A/MqemIksndt4l0O88gXATH2L2xQUW8nPRT cVCpYYeGb7MMlRs1HrSfv+dqyN5Nru2EhK4+JYg6PDauxE7agBgmEfEFqgm/U0HZ 993ihlmoKXQ6uf8goQlcw/bNb51oJaGfO4kCMwQQAQoAHRYhBIGGSgN18ngQZP6O Tc/5+WdA7ZVQBQJllF5FAAoJEM/5+WdA7ZVQRsQQAJtXGfu30oRqALvnZPOgr6LB aJcDKxFreTnCILpKwic/Xtd2xtuUGDJFc9xILF01lo1LC+2HRuJl8/hMUF5l+9PH C3sGfLFOHxzIuWxPvbf0rsMerGA2wwOsCyUzJpiMF0Hp4R18NymiIRKtcGrKc21p Q+/qAb35DkqKT+C/vRL4b7EgBqjWiyoPIcQpYrl10FNMLBWbLFmAJ5YpK/CKIXnT 8vsh0V0uC2suDA3lMKqrKJ2SFQXutPoJ2LDa3xzRY8DS/qcGAhtBRSx33rUTgO9G M6bAabVZ8u2mbqcYtsl65PmhdlacUdZJs/YcWzLFYz65oIEF+QJEKu27dSkozp9w xjO83IVVzi8Z+gto0PpC1TTFqnGIR0GQ8Vxv65R8mmnOlBrylIztkEOSRszukeLD gf6FkOoFibWZyKcfrHu7abTjyJQUi7m3kBj6msVXSan6Bkk5/uKCM5Gb5wqilpDl B40RLFJ9w4/I15rqrX1b5FGuJuS27fp6EsDQ6Om1KyDOqGQyWqPa8fn++v32EFIH DwdxrChDV9Rx4ao6h4hcOxDAkY8azlQQE6AK2PPAFJlBrGW6jP8gVcXWhb3OX1Vg gfkOkXBPwNM3OaR8Bi5/OFDC7epKJf/VLDcie/sEWS1C/rYIIajOSOsUelYBw3xx +H41dtDAUnD8abrpXRzjiQEzBBABCgAdFiEErSDhqotBNnCmQlLYvSdtLm/PqIUF AmWUXpcACgkQvSdtLm/PqIV/pQf/RQHfchEDIM8K1T9UUMWB6/cPvTRtevmTS1Pp 4C3J8tJ5ZVpHws/FpbmEYjlh+qYjEf2+IDOxqQcuDBWYg5+uG3lR/in7tmlBUZL5 r2o7kgJFlMnQ0xrNzDRtmIKss4b0ZchpFo1FVY9T9yFhf4Hda05mUvgQB9CO12U8 s0/1Q8bb7ed+i8CBBkd4l31qi71bQRIorYiV/WDi7Rur4rmRifCAHU//LANRu4xs zEESREZfdDlWRe/+nV+DfLEBOcEoFyyUKOTfgq3s4982oTc7FwoiF3Y/RnzSGnPT 81W9p3vYFtvBSKcXT8q9gdpuKVNuqckxSTQanjWoFC33VRxzM4kCMwQQAQoAHRYh BClslNvQKAJFv9OR13tSlkjuhXJkBQJllF6oAAoJEHtSlkjuhXJk8r0P/RaCfspm +dlk+X0CPwS5NB/5PXuUOKX+HkdyEnvw1BKOaLCtoDn6eKYOfxec9X63THmaDRxY DS3NVvubJuNnj0jvc0wZC1S+JnljKH9//bBytOS5vaFG6sGlrXtsYmYDuePUV1+p lPM56jELbhF43izUqUjiO0l32s7cZUONrXxBnZVVDU8bX6jADAYGDUTOG0/W9Pwu rHmWLsjronVk73SQHy+fFnc3YWJLn3YhgQ03Wlhku/BWwIwKhbkd41LO6NKg5c6j 5PN9wsbnjwoj4//B1mUaGQrrs0A/aLlbnHXkwYnEGDkwtDDc/7aMQptf5ibw5Cuu 7+19orY6muxQcDoPrlNgOlZQpa4dYuaklqcroyyXtWpjsl7QjQq9Pjd0aQsamK0c Rxc5BJAi708xTVdz5AFRqr3Kh5IVSA+vh/feWDPDiGaiZn+VBdpjQnNpQv9XfNOv MGreRRWMnaEmSP4aoP+EQFAbJ6AMzMNanHwEqURL/sfyRInwQWU0Ib0slXYJ/1Pc 8B4Qx6zRfYD7sCN0ITrQosRkgHjAakWD6O4TKrWn4MvOgilpv8L0cvFTDtqoBadz Wrg90EtnJNj9aVQldUEf25q3XFJQRBThgrj9nsfWAQrBnLVQYYRNEUYDXr/dUPz8 jYEKAq/++V1QViOdRQVDVgvPLQkhOxlx4WogiQEzBBABCgAdFiEEsICXn00EPhnQ WjacYp747gyLgzMFAmWUXvgACgkQYp747gyLgzOfCwgAw75THwrYnkaZgreXvJ0B faaJqMwV9A6XTZqhQPfWOluS0uDf2qvb2xkifbYKYFS1+Zh9CoSS6PG6jeN2eiJ+ pZGlwDnRPnWW6HmNCIVowHorN7/WikkW6VtgIkStyAWs6ZbDNDe6DCmdaUPl80nB lz8odz2MrSWp8g8X4RwY9Gn9ZzjPMEg9vtsfmE3fqrxAFOFXUwnFelIh/gVSzLve SFti8xUT1YVp1h6G+idxRtNAa3B4HJmt6J5maYxShGYazDNpECUKbWhhxLZs47dT p5JSMK7+YEU4R8o3g5l2z67FiwhzyeeDIxiuLp6jHSLBZgLxCDa2BFnGH6Ih3EZU dYkBHAQQAQoABgUCZaBFoQAKCRAQkK8gpapb5owRB/96vSa7bbmOqnw9qSI1APpS oSBG55BWcVSYtKK3juAxpoMqECNUcOee6ZNug2UujY8a6e9wQN6XrLZcHC0GfgTW EjTnOEYLa1DSOaHykeGsbsn7vSTP3yWnqRzVy82A7K48NSJ9WuEMg2L30bQlPzfD YdxRom6lm9fNCGY+pnXNRbNPzaGXvffEpNO1hydOAXJcLcgjHQU4wARwivwJe3mo yRroV8dxghzZPwv/Z/yQtv9qi/R8ePURy7TUmHQHFXdB6cGKiRzUqSqPIB4YBG0+ doGUmM0rcaexLT3bxsATdjlp9BezBMjGfC0zya0qJzgECzQL6ZqP2ZuQcr9VnRHZ iHUEEBYIAB0WIQRZXh5FmqkINaZCDETxSlpMnlsyegUCZaPsvAAKCRDxSlpMnlsy eozSAQDvFfm/GTRBffAwz0vQz63G6OLvk8fEQRfRmCk7Oz7KVAEAy2xbAIR6be4s K7269dx836xUGMhnlaHNEeJm5LWoeAOJARwEEAECAAYFAmWdqGoACgkQEJCvIKWq W+bsIgf+MZMeWKF6trlGEMMA4AymDy1noGNh4RhCIMTIMNyNbwolafGgAqXm1SU5 XWmy5DFX73shK8AUylHbsQgNWP1DvFrDuSJxvV65A7kAaxLZL6iUM86ROU0/JPj/ sIAu1zXAS4dApZxfoalhtPO0khA3NwsLsRC5KoMhqnflAMqjCLJGU+hUeoRLaRl6 Wbc+DJDK0Tku3bSe955jQwWSX4n4jvXEY8uWCz9O7Jpdbq3InopxipjaRAI2eZ1c x8+giU+dqf+t4PYFWG2wEUj0nYhiJPelPlTZjeoj139wYa4LaQWQNsx/DuNaN/qh eLAsSJjEBCLilcGeMjmwxTB1Ye12V4h1BBAWCAAdFiEEm8khXcnQ1jYW4dNowNJz SkuCZC4FAmWyHOQACgkQwNJzSkuCZC4/NgEA1i1SxAKy0iuFJh+SEaRPamBm9wJR 6Fe8ag2puHcGjQgBAOse03HZ16J6dclkKiImzPOeh30OoO7f7XAlfsGCAoIPuQIN BGWUXHABEAChE2XRFvR487S4XYimW6Srob3N+l1kNjRG7+mJa4z9bGSjP1krRDF7 hAoNoMB3xvFePCiBQsoI0uh6I9N0SfCq8/bNbIJ4mKmbFfRQ/Ute+qVjqCsBjVIw 9BAzXriUzIenVcx/Vc3qGVxOIj0cFVVD2BRz4KCDk7bslcOFyXB0+4dwAP2DCLxY Erv5+8woxgCc8bxT+lIumv8CyosLYSzEbJ0rsEowQzYwoFs20HrtKphz7Laxekav e7cWySDRmnJ7Ka7QO6Cnno+Uq2MCEV+pyXCKUkhS+tdzTJtOK8wBh0dgJATkgLg8 fv5prFr5hzZol/2/RNdupHjNbpYY0S+9TiVErbmPwcZ53P6GAVETL/RtEHSFl/D/ ZSa6cjf3iMs1xKLc5PZOd+7F7VG5YULzJzWZjDNUV33cqdbAb6LtyHIMISkaq53p AcUIG0z0OJ8rDxraxCfPB6i9PKLJd30Lor8MJrhZDig4NkY/8Ai260FWiEP5JFQF P5gRXAVThSJh8sSmDz9rWP3Ojhr5twnUtQzoACAkMvW6+OW2gu1wZ/PiUkdOavG5 mPmSqyiGcX2tUdawdXuWCfbdkcuW5lmeFF7SVd2QZBRh2DtvkLDf3v9BgsKhtLHD iYxDwFiGTRiBC6m4foBm+r/LybbZTaD7VAvn7h+2g+NXrB4u7BDlOwARAQABiQI2 BBgBCgAgFiEEirBj16TFk52pwB44xAZah8cfaEQFAmWUXHACGwwACgkQxAZah8cf aESmrw/9HmEu0OVw5TSt+uG2nGixGa3RDUSvruJgRrXIkYh8u3ce0FqwCPcNrVMj oMVlQbHR7B1TNxIc/HxN/QoObziDM7xCICRw90KgG9KBR5QkkplrVJhUWwIYmVOH SI8GJ4cdKxcMqqBTsoXzgVIbY4DYRLgBTbTbw+udhfB6cRFnzwo708cgOgz6AFdW X77KFUnkpKSnSIjuoKR6yHoxjoS84dY8Ob/tZ3XPtWGFJdsWjQTuCUh9yfzmgm1W 4YNsWe6B9JXtbGeV+L7TOmtEA6ZVPUXggWfcAtCpRvDDG7ZLEM8UE1WSqg/48XG6 novP/rR3btWbg0esNpo+CN59gTjeBRVdar2zwUcefHDOejqvt71X6VPRHOmAlg1c 2SS38X0ws4+6icv1BIOQwfJue1XaQueREQP40kzyTHfTe37UEDfW2sGJlkq70wVv qK/2Qf6f8FQ71agIT7NAGEA3v1fphAXNcjoNDZvDNYJjxYJePV96b3IjLZk/fxDR esdocQEXxSQYXOFnKpFLfWInJ2FfbDeXHMCv4agPsr7/jeGP86rTDm4RnbONCueE hdLxDtjGiyNBoGE0v8eYvxrvvxexnANI9Hjj8U25OY7xIw/J8b8+bFvZfnCNIZju 0kBpsSGZOYdsp/To02UB/B9IfnNxgwe7H4CAg49/YIDOFEmm2lI= =2S83 -----END PGP PUBLIC KEY BLOCK----- pub rsa4096/0xCFF9F96740ED9550 2023-01-12 [SC] Key fingerprint = 8186 4A03 75F2 7810 64FE 8E4D CFF9 F967 40ED 9550 uid [ full ] Sendmail Signing Key/2023 sub rsa4096/0x592DCD45F765BAB2 2023-01-12 [E] -----BEGIN PGP PUBLIC KEY BLOCK----- mQINBGPAfZIBEADhYk0WirJ5B3qPnExFOs2UXD07+64hyIUT1UahQC4T0JIUQLyo mVgKIcD9yWDdYEFlEIasifCGfE3QaNJCfxa7yQZK7bmXfKYEAhSxUk4RNcQ7e1lL v1/Ngq7r3P/7aNp5YWZMobG4qeS8+6VneC/+f6SPajNEj97q8XuGpEw2oNivnb0e hJcMDmwC3A2E7OT2drjdO9fTs9GnqX7HwoDO7dopZbU+ggVFPHYXUxvagBqKsnWh 2QLbJHhiWDgGmjX13s2yIdbq+aHyfYjTvAN2Y8Ej6HERz06qe+IAwRMzC1medASB PZlScf3iWfVeoIuUb3nrDturpZ5tWctzrGbX86gJ5QArKMF7W2Wkgo3pDHBpojnj T+LTzDBC6DOAlBHxMnwbhnFMhLGkUFaB95Swpipx+Ax+dY6J5/KELSYin+DbDbLQ /82U4Vl5mPe6/+4W3Rxudt6kJDqgOvV14brp54fDXNFvTav23N1AeapkVv7CH7JM KQ8COVtHlazqi3a8NGiaRPLHcvFl0kpLJAFLePHCIfbgt9O7KKKFbVvm3Npt7z7z 5c3xV8UnaTw5MCML6diJTVrPdiLXSIhny2WFjG4Igu+MyZ+9gJkbb4E9cl0Eg2Wr FFWjUO6SxBjQuoeKqOAKRutHVB2emnGjdFp7RhGZxWl+k0KCXCCL+Ii2PQARAQAB tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDIzIDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQJVBBMBCgA/FiEEgYZKA3XyeBBk/o5Nz/n5Z0DtlVAFAmPAfZICGwMLCwkN CAoMBwsEAwIGFQoJCAsDBRYCAwEAAh4BAheAAAoJEM/5+WdA7ZVQwu8P/2DZZGhX eVuWGqss2bGNJWOKjagl1LCHU13OYkWs4Cc90ojGZ2Ls8+wPNbl57EPcUOLp2VF1 h+gozkmT3XOZaJICno8On17MSbZh9tHwKsu4XnQ6vvDvB4J3dyusU1HJ6LKpBWcP 3ih6JGaye8X1c0jCxVvdzB0QSns+A4MZ70X0o2ymrM16aPs8qcMAsB1fZ0iUEsA9 o7DysAK2zOW36sAiAYiOCMsQWbTwdOeFUfmLgVkuVioxFp1+Tuy8LyDvelgkcA7n aFupVw7ke+rSmFLNkZ7txICaxVPXqy2m3719k9GY/Ra9Q6Vt3iL5V69sWSnJodt5 tPOEquApq6pfZiH3FDDKy6rxPk0yYMDh+ReAASXLG48idc6Db7kvhgqRio70C3NA rwM/l8x4YVBB5LhNYB2Oh5eR88OCeHjjgtb2pO2SgXhXOHzA46SP+pxX7E6XSmnE DBOeBtx/Xr3viw06lBFEXw8AigARMXs0CvVAxdTHr5NkymlZMn9IIvPTS6P7pikI KHRK/s53UCOiazNmIJUqpwPkZKwrMtG79ewAYsKkDZ2vZ1nQlhzIahbv39OkJGzY x63GIOrc5QfFV0ZVip66BoKulA05HcFfOBS21bQq4bgwH1fAMUkd40XhBCHE3PrN ZjSETS+YJk7zFIUoAzIQIrnp/ieQXChV/hsNiQEzBBABCgAdFiEEsICXn00EPhnQ WjacYp747gyLgzMFAmPAfpkACgkQYp747gyLgzOsEwf/YZs7y4fYA1K/qN6GaUtX SqrktwJSafO1zfzCcXDDr1vkRjGr958Ckd9e+pDvPebBHRCnztFVr0bq7zfVZI6W kkp2BNt+6LsJY7Eh1uin/VDLx9SPHjfO3gubyoW6RD9HSXRXuwBJ5eMXclymNQLW AR8oeAWl6RMZRe+iwdEXUwS4iVPlJwVd3OOluaRrQ2Lgc1/pbFIPSmgf1dpDGkW9 8wtlWCQ0rPgKFN+IL7A5s25YQf/rdv2xhYxVpTtzfTto/6Pkznf40O2zB7pbHNqx Dtz9AFAWHxy2q/Dd1xELiVAKO63OcHyLJ3jXa/MIYmgD6L1A5w15Xkrb5zQXnfZy 64kBMwQQAQoAHRYhBLF1lkRTA13O3XvpGWBN+/KFQQq+BQJjwH8kAAoJEGBN+/KF QQq+5F0H/18B1V7RcXLbdUUoFxXdAjAi8q3xrt4Q9K8qU7CnwjBiEEVJOs9BLilr lYGWglPzoidXFH4xhkU5NIZml4TNTAz43dC7JHshrTiYT/47RlK6ZOiL3TMlGlfB k/WxziZmiq0s9LzpKbtzHNYUwPlvajF5XhhB56CgLaHMcJvV/0h7aupxXpSaPRJx sL7TpxRbHwUMMHZU8yTg/hqoUPiaOxGrCtDEGPv68I7JDFnJ3mCDJ5HofFp+umo1 +BeDxwA+Ww3M6qOU9tZEcGbeDwbaq4K3DlOT0zSYBWsTebABvUt+ZI7YM4Dw30FL hfoh1DqL+84XmGwVh+uehTAQciLc5XCJATMEEAEKAB0WIQRYcmIYqRNADeZgNgE5 pMd9qXiEsAUCY8B/NQAKCRA5pMd9qXiEsFiaB/9YtG5NUXPb24BR5+kJRHorRzsS FxXtqggrCZvKux5Pxp/PB+B6mFBu+Lzs1lH7p3FRWjFe6lCtjuHZ02IzVY+S8VDi tfn+RY04Ie3gmLPj7m7oIxwtpf0xAhNWw9WsrC/dqRk+Z71m9ZAWgLSUQOEdVjFe S9GrVsMzZAGR1khN9tTuSuBWIvf959A92AcppVKt0BeZGiX1hXuD2jNlastn7FDx Th7tNs1jEwcvB8N3/HleziUtRdNLTpHhyL0Kj3MAoFWl3vYScfQjUsyzmvp/xqX2 IFJ+Wl+R+GX5lRvim/L8mUhFqtdoi9gHKi4zQeSX8euthSKqQIeE9YJ6vbg3iQEz BBABCgAdFiEEynqPOaJBn/+wqasnjlrp+87u9DsFAmPAfzkACgkQjlrp+87u9DsW vAgAk7MBqFo7zWs/50346LqeP/D6DBRJ0JQ9k0b+WE9C9hnm69B/k/y1lwye5nJu 3O7P97WQ7Id90tdAPfiFGpiIVf5bTog8Awps77M1A2m8cuTtkyevm3C7IA+UeETV 5K6v0Mq0xF4AM5aQkpmlRWUfkDJrmePOO0onlKtx/qgGI7wRUlpcBXa9c80U92ug 3zuoGLkCNFK26NFyWKW4TcJ3JazqqY0qYKZvem84zypx83+9RzLbAO+MbOFZmt5V ltQvNe3+Jr8eM4/QAMI0JamRWnYiaPrqXd0LKNm8tjgT7g6OougGE6uz2X2ZnowX GjnQCSayuqKbaIsjzwyi1o4JKYkBMwQQAQoAHRYhBLh9RWmG8ZSEB+XMtD1osl1S B8rTBQJjwH89AAoJED1osl1SB8rTneQH/0F1YGWsDVYZmJuwk9YdCY92PDznDWqB jRNRhLvvCwFlDfuOsdRMxE7JF+n9J5jtxS56+Qgg9GZBeH4t0K0QuxFr5UTO1pg2 HacEAkjCajqWsj9eiNqM+FkSvqZlhJ5bsQrojbz0HbvjSBqz0VJZPPFvFfW5PnRf Ks+pYgsYYYJJr+1pr2gAd632MXXeVVoq59bHfvSSsSBj5pHIOk3avRSUlexKQAKK Zguue9Iz/FbHlwtS6JU3zF3GXlVEx1dKi916Pj+qZc5NWqeVj2BFSIkFMzHRnbnC 5r1J0wnmnrEAbNjXLRyUUAiqygYYNjoMD5ICSdAQlHaIlTelTNZrGjKJATMEEAEK AB0WIQRJ9qi+hHM5SVGRbzth3hHs4nY6cwUCY8B/QAAKCRBh3hHs4nY6c24iB/0X vLosenZl+cY1v4ziEb6kmpw5UIiq4dk/qiu2E7LSHdQsiRcgMc9OJSiE1Txk2w2d RndDoGHmUc5fWHM1L87a1UwQkGDtUcZyvktIRY8C37Jlqa+o39Rfmoc8m23ko4R9 xg1YfHswPjIw0KeDC86mFkjQ9l4lCVj3FNy8SZ7+XGLPGLonnAp7y+bMqjIPPSgx a4ze2V8J8PiQisUQ1qoBGLupUShdyXCo3fasIVcaHBniVamsJIdWU8bcLxLeT6rc 10JjiYsY86xiMNeDuSQeamBV9wRD9SK/65sa67ZcJKEQxlDbnj6COhHWtNiPWn4j 7kQoZ8rzJmbG+rSj2g63iQEzBBABCgAdFiEEMLynRwX6QVRVcx17qvW13gW9zFMF AmPAf0MACgkQqvW13gW9zFMVNQf/Spe1/kroQ96SexHLif2N489Uk5yQkyHePY0T IgyIy+zA39vGcSKeAP6GY0jNaB5tSqtPOhsMzbcmF1r3R9/6BXPRYiXFAYmodqY2 Azi7DN0HGZXvZ06Vax1fktPQM9SkM1aIo1tPR29QIWB6n3PmoQbfm8azPP7sLkhY h3SrEY45836PyYhNv144AhcVNt9DH+X9ghPzOd3+pxxODfcZONFI0zxI/sHVUmzw n+vvoG9QWYkubHf46hWKUdPZS53Nr8lJdGJ6Q14MaQROc0WXSD3xDDxpTb3/LhVB L8ChtjbFW3DO2LZaAGzxlhajceTHkZhsTl4zFXpRtgqq392u64kBMwQQAQoAHRYh BA9clq7I5p6cjlQuXG1M0ZQp+wPeBQJjwH9GAAoJEG1M0ZQp+wPe4ckH/i+wcoKc By10pwp+PEa19icMw1yHw8nf/z6y8CNBx8w+dv6c8DAwj4V66A0jqzR1M1JhXHGj kawT7tz6xCfb1fFDz4142sujfALzUoBhnUVZdsuhLuUbP8yfqvy8ZzC0eJyL3x2u DyNJyhf6QGT3n0sNzMgoKPrfHJ95RiBBK2bZB7Din9hs2Dn+Rwmh78yRzxrF84pp KRSlIm/tK/oyriggFjUluw3QJUoXQ+Dr/W46vGq2Yd/Q6z0dmkZaXrhckSsNOZgk 2PZq9Me5sZqqUJusFKqp7uqrG0Ck4SqYaDPlVRW3MJqpy64PGiFpSbz0ZcgDMEkx DTK/3s8EuZPM66uJAjMEEAEKAB0WIQQ8ih6Of0TK3hFP7UZLyb2ma/cmrQUCY8B/ SQAKCRBLyb2ma/cmrSihEACgDA/XzgwagANu3Ckz7lHKcoMn4FEiIpiWoV8y4wF5 k5Ku20QYsODBaJlVxn/d+4l7sRrlVd2VqlTNuR4J8Gqv0504iic9vxhIhDZ1AmLy Whn6L4eildS6fxIplSLPtippMbTiDuWATuHNy/nC/kym2eZwfPhA/D5XJGvBYadK 6oRGEW8FkQXINe0EPID4kk47w/tY3BwVNc6IwBL+ayvdH6OgK1ojctYkJDGH7JGU C4/EJb+gQH5x/B6vzh2hCqxUMjI60v1Y4bKGLhMDmHEzJnRAEC04m9d8D1VIGBwM dhE1wFlwha7BbMoBxeyx502Lqi2T5UYYbC3lVvN70Du5NKTRvgNAb305nKLO/u1r l5UrRocediaZA+aKxzgrOH0DVuPumlkM55LmyQh4+SG+/Wx8wQIKrI4mvF6AAQms V+YUnhMZDbttTN65wDgIVuWbx/rbooV4UC0UTTGXQgA32XMKBrjF4V6v/xVEvD21 +Pv8hsERngyPg/DmpVhdH1nfzwBIILOeVKEwUfxqat2M28Nh+Rtud/tloqcTBRD/ CeweYnfE7bHOWa6wrdHgs4ePE0qRKp68aJkZwB1AEU1f3zLHjYTEPA7jsDXpQ7Kk UszUWjXvaOTo69TATJOKE+JqcSgPgHAocdfnq3jusyOVsxv70sADbhHHXAMWbr/r 1IkCMwQQAQoAHRYhBKaHPSSk1tYoSuQqdfBgWf1dx8w/BQJjwH9MAAoJEPBgWf1d x8w/e0kP/iCb3A4w3WEjyff2/Rg/+l+MLj/2sQTUn4ESPJXoSzv0k8Ug0HYIp7oQ qVM03KFJDkzgrKOv18LQmFmkxbhgPblDr+rmfuUhuEGI8EfJalyn0OWUo5K3Mlb1 1Uu7JsDfaY/YgLGuCavRU/QmPVkiut8PZe2CcQTCsI+YaSGK2p8bzZKxYDR6/Wft p+Wi/UD/K53goa5fr2zH3aGlXT6jwewgbocnq/hrlREhyKuiaYj/99mpi/LXX0/a 829ObaLO0hysSrSvf6xgDvAdbbkBF3RGAXPTshfDfzaWppCLdGdBSut8t4fw4wEu UA9SHwcW6zo3gs++lGUOSWv53KKMI9oSyIJFn1SQAIeRC6qPSPSmu+LkejydaKlO /B3nmDdNwTNZA7U3W/amRrFzmhg+vwBWQraLnsAoBO/MdVDrVR9OOypvj/PEK86J kF1H1Y6YbbGz9Xv/XxksAeEKafHx1057QR8aZpec47WJRaZqqh3g1D86uMowjYrm LKD7mKGq54RkN5FP0/HiYPev81yc8vAOhHsnTx37DGj9sGiloiOSZI+V/D0MoZXb g/LoxJEKL616hVdFhloJP4BaRwUVtC0e3kKayCe/ND6IzCLGsG3ZVUihIghz/bLL 7nN4jdkiIQvOqGnwGQoho9hzI728ZcJDQXonTX/pbWGCvZBs7exciQIzBBABCgAd FiEEUKMDCY6i3XvL7iraCeAfoDwMUE4FAmPAf1AACgkQCeAfoDwMUE49mhAAxgOA zA8tKzto0jM8GXYHhopYA/xFmFOjfXAgnUIN2CruDqUdEoRcmh55B4VpfA/yH6XW EnY7Ll/bT+v5SgR0cZ37bmfqsWLWJZ2qFRF2xLBMQdBWhtI8ZckrfPV286bHAoEX iDERHjaGYfGI4KV+gVfo99/SMCMc9J7cirIBXdAhZl/oZmLPZXDdYwso8p9Ypls4 IEU3u/DSr/91XVk0QxjdusXi+sE0aoAPYZXzgU33S/Ze2VmYK2IW/3FQqxEi8fp6 JdhCiSuOuPSzDzOHHZ69PkkJrAMR9q4pfHGRFeqHDtR1IIsHgp6x2Nllsn3wXybH ViBPW4iiCgnGO1cUyeej+okud5zM+T57D7wlC5YSuTtAhFp2T46ZfY8uMzcAtREj 17M7yZfJq5CIl3//jRp6es5PrxNIADWlQcJugx+Bqb920uoF/wq+4P3boVL5KQB8 VPRC7TpJk1Kr2jUQ8AsIue3sNPAeRyLeOSdywL1Nc4LJ/PVLOG3CVMd0/GvpDV7r bbNiQ99epowSMhe2tX5BfThA8gvXpXCnryH9ZP9gMYL9aReBgB+fWEQubR2C9/fL ChHQEXUFjVbzD9AAqrP+IsI+k3BEx/xC0mqdH+K9r/snmsIvJZpHnEDI5FDlFcK8 OFsnAJeUHgxnn5YpzftpCiSEt3/4LGKUJsAX5jqJAjMEEAEKAB0WIQSt/bcJ/h6m guWFWXHVgyEO9RRxpwUCY8B/UwAKCRDVgyEO9RRxp3QUEACSDSNLfjchj8I7cWIP X3H/I6pWBgLfNSaG8HOUJLWtVy1sBa/CjahoARqqAfVrRyxmmlWZaqkL7/MSdHCj Vub7QdXoTrygw32CKcEgDhuRfB51DxWzqD6uZg7a5cdpMzWcbyxFXa498CLG6YZS 0DUYkhxCC7lolyhS+TX5JhLfv2mEYUn0Ut5WFPASEX9ImYDypSo8xMeBNoMaU8GR NCDVfrFHXFvMVbJIohy4tLWprSZ0tCiSQqGeqj1kwfu2CaXu0nT+mppv+YN+0kJf YG1SGGcjZvMBYuN7TAEk6k5dhUK5oV4NkN6K3av74GnOenjo+9RU+ovS2TSGP5vf IAq1mOYL972sB3tSryrVakhNrsXF1Pp8TOXcU0nu0yX1hdZVaZyglmJyZWWydhGP h+M5RFPEqzwan3SEUm+VL2IR7DYf2JE7nQ5eNOZzUFHpFqMGGhMsLG96vzct3KiZ 8EGp4ohGrkP+uomyAiBKTqyPuyhFkV0edWCQfblmXsENi8w3VJN5z+fvcMZ9UDzg mU5Pz6XSfh8bQf9gdRB5803TcIbj5bpYsA23UPeJYwa+MlLLVYLl3n+Wt/HwwSLk me8dZW6BzjRWiDQ0hPjM++TxIPUzeI5p0VJlaBWcNarKe+z3XwJlfQ/hGLjiuDzn v2gH1bJvp6OuiVeWl/45quB1xIkCMwQQAQoAHRYhBPTOImMhAlPWqfl5sExm6o1L 7hvuBQJjwH9WAAoJEExm6o1L7hvuohMQAKCChgHK1Y/JaLMGkoFBThyaVKCaw0FT z5zvjfqunNgFWnip1wQhi6inxvGcjoFFtp4GwQO4yMDkN7dkn5NIcmgePhJMm3xU cgLvVuhimNmvYyH2TduMvFOlfrJEPURjxRGc6LUUXincvwo+C+ydYFJCkWIoEgKW RzSY3qsISDZmXRY3JLVRjXqO3nnvsR2aB2bgOP/EKS5oK4fjpi8nMBJXX6w6cXFH 4V/evwpi0IlvELLzILrq4hPoK1jpp7UIUOEC7FJkoFmrNoDvR9WFEC16xoKPpcc7 ophote6HyhxZc9NKEinTHmy6ICAuCbGL2ADdD6UJKQfclnutw6cjEzA1Huc93MSe 1LOECsRq27wZ0Gb65qQNiS50oIpMaLSRwxMywLiNbyzdBOoS9P3mtOQLPihwW/Zl BdLW29LqTf2NPD/YGWHn4tA45BaTA7Q3nvWIXuoupWfboW8yOxplGSxaDSGfmWhf 1nWPWHQm12fSHWHTBOX2DL9LVmzERzbjxKJVK20acvwFWbkbJnTcNZCYUqh5DBHA FKOFjJ5LykxqIAkLaibqwxsHtaXgWVM8us6UY8fQikt68qMZnd3CUAeHF6xUVWfh nJLXjqGcGl7QMbp7c7AuchnXSVNw+ziluzgOV8/ADHAy2vBwISirb+9RylhpRwxK oOcSf2vSNE9tiQIzBBABCgAdFiEEYyfdy15+gOSYfqO3/XncDIHZIQoFAmPAf1oA CgkQ/XncDIHZIQqAUw/8DKw5e/TRjFx9a87GaE+sPKn1oOMPmqq5lUmTEoFDtKxa KCMw15eoGokmy1Lb73bxHHdpShHuo0ZwwtJpGOQC9aXzoVOLw9PJ6QamU61yoSGM oAI7rhbYuVVTf8i2Oa/UV4sK+Yc6kzFgM7kZManj0/MF3y89JTnUYkhZ0pvw8ndE eRqqElV7derO6ANWwNv8PntkxUB4uP5NanoyvScYqiruIWN3OgPEfqvf7loC6yMe g6I0/UdJeUAGERkiGpVh9HnMxZpIxVIVFmA8hFdvR1rDkxTaFVxx6rlwObNy2ewM yeqdF/eJm7P3g+z5tX/f/LscoFXDEHPJUf8BUbQCsHyQcvCcHh3dLa++tTMEpHdy +zjSH/u1CNTfKL8EaHMsffQbUEKqD9Eo756mULzNcsdScEQoCwOyX0+nh5uoZ7UI JMhVXDfIXQ1fhtGv3vSy+LdAUeo6yA6F4V4KTp3FrcpBRtcUdmmD377wr7Oz0n8X k0Yhty3O3rlRAh+ZWF01sKe3ghYN5J5nktszDOh22rc2KmJn8VbTaNyzBzxB/RQl RqyQYxNaBk9jRLRiafdjGjBHvt1eVo5/WyqknD+j/SrpcY508OLM524o27Npl2MM xoOwvBX93cVmZpDYJFwNJloyT9AcFLs3qeKfsntevolwbPoE9pLCB+6Mn1DU77uJ ATMEEAEKAB0WIQStIOGqi0E2cKZCUti9J20ub8+ohQUCY8B/XQAKCRC9J20ub8+o hSOrB/427yQ7WhIsmadnyGOL8HUcE1YGgAz6fWiNnIZiFntHbBKZfxxugGXLj56G TqZeoTy3cte9icOaZxbOKNyQrWwYGhPueShbAEGqU837OA0vWOF3Whbw27EPgAsa 9gBbQUc4QPM2KlNOglZ7e3m3wMEFEdOVTxw22Dthq5xr6U5gj86sug7qOFax/MEs 1RMCFdy3DLMpS+lbgwoSYeYb6flTN9fqdtsQ1iTzt/XYyP2PPE5LImpDY0oh0RqG EndfTbCi5hvnOgb99Ws33ynLzNVBlNOalc0QOa6zexbFzrsAqipFBlarRkHzW7GN B6p/o9CP/rdaMsfJFPbPCgotkIk3iQIzBBABCgAdFiEEKWyU29AoAkW/05HXe1KW SO6FcmQFAmPAf2gACgkQe1KWSO6FcmQkzQ//ULifrn1CA9hOcFv/wWikZ2ZmdTdN tBp5JeyfCspKMTk+s3ojMvbD9iXcOTn6bTAzCiVVFoK1vPrwOd6pW7yBxyR1HTjZ 5lu1/mW/lF93ASxEDGOgk2I1v+I6+h73E0S6KYMTwLt/D/RBBkgeRA8/zbY/ig7L D+mfUrxILwJurPam5Jdfg120zidY/k6pQdHdAtNk6Lb3z0px51SrdSZSKDiPMu8+ idoCEckl1EUoWXwrLSc1794S6Aa6PmfpJjvkjtV20Kz+4IaFtZWbtFrCid4jBI2g HUTQY6ZaUFL5ac/k5alefjRo5PmSqCJgTMPjC0ZeVjbFmhructO+/4dBjaUe3Kxn iwsfEVy3QAte6VTA4nORD89UyX4A+vtiosEccKTSIXIS08VW7hJ7OfAzI8HWiTxe FBHuROCgIeEqQ9EHNJ9zDqC4nEF/uqWdekdRaKMygkdFI+XY/YC/f5iMSEZgyaQR +AMRhA6WCXZ8zwbKlbXShsB7nR0n58YyNxiHa39faLTsKXgPGFI4NI6nigwSuo0V 5E1k0LaqLnbUpAJHhY3F28XO5Tw9hn9EHYesHFjFrtk2V7aP2ZTLKEqUAd6UDJ5I AKYQDV1asbFE/DIOmVGLx3Rn/DWqs/EAnRF0kvKPAShL1YFV3Woq4wx6x51EAQUl wwwoTWZoVVVTj1WJARwEEAECAAYFAmPBLE0ACgkQEJCvIKWqW+Z2gAgAkiljOYsP 2M7b1odb/W9MqC9a02pXPYs72QIV4EYG68XwogrifZEzwH3Nyatt8OW/MxyFGbM1 MyV4N8ESQYQuzrbbESsZj4/pd8gYMugewuOkBqpiAsYQMN7mPk4AQlE7+EVrUv1e 0ILz/X6Mvtf3v/Oendz3GoLSC8G59wN8CMmiYfKVBBvBOHkMcAR54DcG5qUm9qrH 9Bj2xsdT85vkjBP57A6QJA8CIPL2whTIj4uh6ITdNJ5Ux8naELn79+nWN6I3XzyY mpxIp2k9l4O5kPKnq3O8RQyA0bkKEHo1vEglEntT8+Jp6rerF5T3j610Uzjqorpo acXp4TPhzqBT0rkCDQRjwH2SARAAqg0B0q+BxY903PLJ+J1Hl7paYPeSpyFj+SbB gck9M7sCBzVFlclkLMsaHyc1GHVzJNPcf0gRmknmb9hAmJFEwEle5aGbSxuTbG8j Rww8vzP6KHwlBW7ifenUvqjrBuBxGQW/jnvZTtSaMEaLYQVS8e9PxzToAKbUylc9 Qqj4hWU2hMQN/YQq5jOAv2RMvNTMX/fXR+hlhsnAy3NeXQRltzOcwHBbY95kQ1sG 3UpcDc3soEaZCYNCZdwQuaZ+YZ+ixEGTxfQv59HR3eszGrZoe2lfkW0VaO/wXsau Gs1xruD3oqnNIDTuzSgz7FKXgTv4QhF4UEf2EtUd2Wt+4IjcBpUPSt5+fDyCHtpI bP0FbOmFhGjubi75iFa8H997a0EQR461Wde7/MP4+dgOTaR3wdUqGM6nBKhSgbvW C4pXWOHrrh3BzBR9nArVwRTovu40NpoWKAbdIkz67KHVfBLNq84zUFMU6WACrpGw 0zhE33EQJzb2h/TZH7OsFxOSwiFWYPy9MTDOgdqJftKKWYhWeZVVeHnD+3tbvrag OuRCHwmfIaV03vMi5cCJQVKMSOExG4VGWSeMrRWcRzSkLj4gSA3R6mb4zzfo3kDH mUW2UfLpx7Ru4Lswm3AAhsClqZn9/bI0oNVyuErQdm8hFSStUQCJwPrMzdtw7Fum le/unx0AEQEAAYkCNgQYAQoAIBYhBIGGSgN18ngQZP6OTc/5+WdA7ZVQBQJjwH2S AhsMAAoJEM/5+WdA7ZVQf2QP/13LppaOwx2NAvf7wZWf6d67M6EOmpBLPSqtGkdi umr6Po1A940R9lAWAk4w8DZRC1MaHyXNb2G4GDcnynL5xb92DLq27VAMZy+fnCTH g8Qk0k9WaBuyBAragSinHp4R0ts0uDxBjAwMm+3wjopgJVP0eCm6P1gbXgc1dE74 xvsK1ak0SEjNJXAyxXw0z6pNOQAoDMYFJglYP7nr/ygh0YsB/EisVxoxCB8jczu6 6vblp29TzcEapCgWQ5JgG9XZFo8xS0COMb2BTf4kCjJQvkUQ3J7ieDlbbKjO39YB Md8WcbZ/lBn7YN1E8XTQoz1NvJ6F7vdyPJvsVfu/Mii/eMKbmKyCHoT9p7vrXCGF L9LAHkWA1yDe1uE5h2vLSo7iAoGkAWlZ+BUPV/PEzsusllOUcWl/0GSzJPvMjCoP oiRKHqC/wrMw3d2KCEO2y3k7/b1ka7n3ZrUkL9NegX/igRaDosowABmHjoH+/YJ3 9zzQVGb0q8VqkIyI/r0QHfreaSzU9BYxVe/U4kis04jT4tgVDqeO8cWbIykAQade uiF3SDtJ0F5IKEwrpgYBg2jV0cj64hVZMOZ8lcb00LEiA9/7pO5SVPsDKZL7cRmD led0tZf4baoNVgr7rosixRvmbkYotj1qxw1rhhVDy/cg5Wskuw0Z5Fwq4sd6vclA kYi0 =c0eH -----END PGP PUBLIC KEY BLOCK----- pub 4096R/81D9210A 2022-01-22 Key fingerprint = 6327 DDCB 5E7E 80E4 987E A3B7 FD79 DC0C 81D9 210A uid Sendmail Signing Key/2022 sub 4096R/03142938 2022-01-22 -----BEGIN PGP PUBLIC KEY BLOCK----- mQINBGHsknQBEACuy5ofFGpq84xVTF77J5aYl7lmQ0dzvUfUmnnFBPU4A81LFxjt zjFy3t8Gg6RQUoznK38iSsHpNYaipgzKdk02XRWNLK1vNhPhWePDYqDMewysBnqc bJC0vX4z0XFP6T+apyjb58G149Qlc/y67T+b8Jy65rNJUr99rQ1EX5lwuz5Sj9C6 ABmG4u4fZcLsbBZCP3QFC+Vnn+deTr5zzj7qqDv/w0bQad/jzEal7RE3tgJ9E0sa I1SoOMUgt7bo/osJxZjAzWCrf9yT3Dps8ZhEAATP4rRKLRbZXiGJiSLXT8y88JP6 LBtpwU+KU6uApVSKDw1OFUC0bE3/hKUKvKe1BUXOEieP0kBdjclGSvX2iDO9Bn89 o2KxAZ2kCC7GCHBHiSn0vkWxuQd6Wi2N/sYPdqLd2JHpZ58ltBtUE/2jYWNXQZju iRDHWHf3zZCbB93VS61xpcJm974f1caMtc636GROWTqeF+Nd2Hrx1hKEbJerjqZf +QbE65waP0Rrcfxt1kECEIjG+v86SucfcyEPfTqBqK6+49dhIgmA/6b+2UgVkvpf BqM4PZBqRXbwzyfp2fkM6jfTKWhbeJb5JQxHfnzsigJzZhcDfQllhUF4/ec8dEpC 3Y64Er4qL8IcRiMf+Dyaie3u7ZqtRqSQHMDZ0fYKDtjKmTkUrHfwqHWR/QARAQAB tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDIyIDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQJVBBMBCgA/FiEEYyfdy15+gOSYfqO3/XncDIHZIQoFAmHsknQCGwMLCwkN CAoMBwsEAwIGFQoJCAsDBRYCAwEAAh4BAheAAAoJEP153AyB2SEKoHEQAKouC0qg f0OBcyw5EWd0ja2bPakBlNkdE2FGvtOF81WvZ7f0M0kLNRzGRIsRRBxDVw7Vyin5 wLxxRHxoSrRMTS+3LbKCrtXqUyMO7Ce/SY77yXKbXfnVCmo5pq0QhNVGE1GSuvxF R/dGKb9wV2LNbuXHo8xj85yFztFfGRLhkZs5aAaFmq9mRYu8IObf42xCFYALTAnB 95T91EQbixJuT1AjohgMXHhQQ6nNo5EfND21c5a72Ntzfj5gPfUUITSshxSPmE2F /H/WfaVhkALKdMD681bSoXtC5yByTGkM4UBqNOnppplKFW8YFGiJ3Xzm5vN+5Lyo +a+8lSLIRkBMJrVK2L80r3qQk4xh0lZiG5sFHvkGYzeWqKb0z9ADIz7TEUCUgpag vYuSLexegNlYzRG0aL2PbeqVb6Yhy9ghj+42HNmiRGCorixKFJHA70q1uKvcDZ9I Q4j18hlxM9B6Aj27MSXqwISNEDCiNIYbSI8UfmJ8NnWnhqNbQ3a9lmOVC0JB5TdF enjTuMb3VovjNWo4LTvQdhAgsQn0MzWgdMLgGzLWmR0fBiyTKS7kMOU3SQqaJd7s eUTOv3SxdkVGcsqpFlbJGrXwFkpzcay84qeS0afxEpc9yhewzMU9Y7Xa1+vFpqfW b7eIeBIB38PwGhp76kQ4P3/mDdlRWIHxK5eNiQEzBBABCgAdFiEEsICXn00EPhnQ WjacYp747gyLgzMFAmHsk2oACgkQYp747gyLgzPEswgAwOi7pq+JoQtQiXYlE83w QoTUsaBYA/38IuYo7Yf7LdNlpwIQamGNVJtNQAYT4AhMdZELyJUtV5Wa4S/D48Vu EvoVLVZmdsbcaRWpWvfptjFsdcC9Tc2W8Ww0Vd+lmphMR049vMuqbR+kYlUxelIS CNhKwyg4GFUL86C48TDvRedvLWRX8moahLntVN1QtDYQ3/bn+JsWzHiXOKQ66Wsu gg97G7cectwEJnJd8HIRTo7a84LN/gTwt9Uo1cB56pULEA2Xde+oySg+T7pW1eTQ Vjq8L6gaHl2tyy7il9tQAhs8Ibzlcahh2BfYENss3pPUpMcASrSXlGBuYKofGt3t 9okBMwQQAQoAHRYhBLF1lkRTA13O3XvpGWBN+/KFQQq+BQJh7JOEAAoJEGBN+/KF QQq+hmQH/AubZHpKbUVstoAa/CJMGtLpox6Enwl3J/FPYsjJXx+xpRZrE9w514tw SGD8B9DcAM/JC8ZLeo58OuIDGaxovP7Y96El+9a73bGw2HtVzqlIB6rtg3xMNHCR RvYUziIKi1Axdwgn/LLu9aUOduOUtrG4zgNEp46ZjEci87asouUrw5yqyeSDGSRd ryYbt9Hgm3WD2cksZUmqYvXfCun9teh5pBn8gn28HPMYzpw2/iTjs894xIW450D9 BiVIxU/WNub3CA9GjGjB/GRdbVkAEseBmxGBeRx3qjAyYNs+9YUsG5x9bx9zpGd1 ktNEJ0b9mIgLMhPVC/6z7ye8MWhVzuCJATMEEAEKAB0WIQRYcmIYqRNADeZgNgE5 pMd9qXiEsAUCYeyTjQAKCRA5pMd9qXiEsL+rCACOFWzHtgEEtJheKj38MVWzgimL Fsr7V4M+ewmDc0FSAboBzazZiDtjryJ9u8r9nIklfSL9DxjVPSV6s0mS+oUpG/x4 FI8eb4VSMue98W5kMIC6k9MfGQAccn41iPd25nCp2VcnkOhXIv9s/XXoo74ZJIKb uIRu7fkFwzhn4kxGiphqy7DFsTwLlsbFEGG7USJXT0QtIj42Wvz086622vjAFmVA 70icww1/0I7gBIVgGmv64AdctCXCJUEa63DGj7Ylqy/t+vG263BBIbz+rM11tCPi ah0Qc5L5sX3t4ZkJ8eTSbUzqwpD9BYiXVWc6XTLMc5OVjJ3l/OZpDko4Vnl8iQEz BBABCgAdFiEEynqPOaJBn/+wqasnjlrp+87u9DsFAmHsk5EACgkQjlrp+87u9DuM VQf+JcdL8c/F3s6IZ+seglYPfLOkfUUaCWKcQ7hYaf31DJULMpTPx6QMB1x4DVns b+GnSlY7OEmvClv4iDT5s5pRpAxOjJ3Tyud1XqwQ7en45ZvRNbMOsYV1Wzp+JnBW WU5aI1Fg3K6PFMLDP2p5zgzD3m5MD9+5QJ8mx8l12TbtC/h5yWu9f+PV6DsB7m/Y zqjiRGf8R3S9+gE9Ve9opnWx6gnEVhqQCNSz2fpmcdxEyTG3Nz8/hJaplVzhdC+E neuvD7xOJpcVHG14l2A1uf1gv11Wh5HFnA1ESGxyuQuRHaiHN4tbOpH93eVL73Na OS2rlm8YyDMm1sS43YuB2iNaoIkBMwQQAQoAHRYhBLh9RWmG8ZSEB+XMtD1osl1S B8rTBQJh7JOVAAoJED1osl1SB8rTuP4H/A2Mqkefj4zFy2HwfrFJ4BOSJDXtZpI4 SrTmf4+N2WsjsRys21NE+uchZ7+YpkPlj0t+OeXaEMvxe83xOJnJ5w2xpqTy8XMO 73pqvbQLssl5gjcd9e4V+VQKzXMaywGJnU7DJ1+yMrvZqgmdVUm2SVwixViMxDf1 c4i8mnTU02J0rNUoSn0pZURu7wwimiRisPa0EfS7O8T74C4Qx+g8Z7uTBbTdtEJt rtPectAGS85MxISqaqZshMzc70NhYzanliPvq3XaJ7UXxCSWjrI/8pvZVND8i2JH QdqUruYOj8CdtAliz9+XOJFdYE949a7Zb/fXu3cHQqDeOpAxJaSzuLKJATMEEAEK AB0WIQRJ9qi+hHM5SVGRbzth3hHs4nY6cwUCYeyTmAAKCRBh3hHs4nY6c9kOB/9l OYFFG5vg9ODyQ9TgGH4onZRrTNBZjYtKtgGekSg9u9bIMk/S1MYDaVyV/07ZV+4+ DKqrk+PQijg3ujpNxguap6eFhuGPkwj73MN/xSNSiplpNDxLP0EKrVbxG3gQhZey gyr6gqlYtWCsIuXWV+MOEhd20SrIXzPsX7IDw3JdgGxNkjS01cVvsoiKL17Nr0BX Aevyuj+8IdHjsreucBgyz5OG2tRfpK/VQSmzhpQlYJKRsEg2pCANOJiEEBeGBgm3 Dj5MouGL8ajkl49s38zoMFpxr3KoFj2rF3kfNHTHV5aybjwqLhE9Kquw3Pp59Q6Q Njewgf4+S/czLfPLxl22iQEzBBABCgAdFiEEMLynRwX6QVRVcx17qvW13gW9zFMF AmHsk5sACgkQqvW13gW9zFMqbAf9H08Gdf/qAdYe4CigvOu147hr89RH0LWtqvXD R13cJgwkUQLPQZ3/xt/to/3QNDyETjcQkJcfqobTGPZs83ebXlICTfAkC5uNvyoJ Dtgw/e8zf13XhWTP+Dn4+YnhBdCLkH85XvI+QLen73PzlKmgUc+Rf3UoXcDgdSVu A/ouNC1A1ZKO1f8zQDM9MTppuRUJis11EO0nkqxu7o9ZnjR/GIr0eAYb5t5YoNLz lc0IGskX3IHfCFcrQjBnUkWbUn3CBZTTLLgBX/sGTLqkrzi9W0dSCBsX/gF4nGAS hyrpV9yP7bw71LDDdKaI3Ze/gviwyml/9b1UyCLhS6Y0UGRPSYkBMwQQAQoAHRYh BA9clq7I5p6cjlQuXG1M0ZQp+wPeBQJh7JOeAAoJEG1M0ZQp+wPeQ4YH/jLO4HtX zb7N6+fvH1IoebtpzkIxvyIqunCLd9wmMOd5/E2GWcHwzsi5ImnlfrpX9jdzuPGa lFLFMSnK5WQA+G8j7tm9Zs+pmN1E5IcKi08BIDj6UY9NRwVVAxDQFQwNfNupCV2v 4wEi115eD5inb3uPfETZwgTh1IbMMYQu96vWCjUCwavAiTP/PWiAEdmGTFCgFrsm chLHuXiRTLgfnrVdtblvZ+2GIWsi1IbJcOpT2Nt+I9HPksJKGpZWX5bzyHt8t3hv tfHWFdX9BZv2jMBJFc8C4mNXX06fnA/OK39GbTDr3qJ5efjP7FxvCTatpuVxpUeo bQoiz6yqLtHk11KJAjMEEAEKAB0WIQQ8ih6Of0TK3hFP7UZLyb2ma/cmrQUCYeyT oQAKCRBLyb2ma/cmrao/EAC0QcShgqI/EEhInt1ELOXXqWzwyW4GxKZaATBKznYN KUgCImW10QxQRG8TK+/x4mtAriPk6ANHHdt3ehzstrmcFlo1TmFqd2SoXHwLWz+D ffX0WE1Slmnd4mGvz25LhftrGuGAzOZQ1v9QnlBmE9egZrF7x4sIGrHrRfKDAzec rcgNf8zv8nZW0YqbHNMmxh1xFQ7yVTzs48UipyWxfTsje6LxEvsGYAuvSp8AUWhV ILJ99c8kJRGdyiVum2SOk4MtP+Nl0w5686kO4Aj4gbiDMdCDGhwxFHDt69HmbHVB kDyErjcjlEy9Qsg56YFe70861c5nJXoMslnjRN9F2EyDOFKGorI4jdinNiR7E069 KXEwnouW0ZuN/RIIUSgIWzalGCkOPCPFEShZKKPWJ3mblEuXyfe4ayL4DVQo+5ha /1kqRP7kPgjBkDyRxR7M/UuZVyPuHo0HkETQUlTMDwLAQH/ADSlW0zhqJgKFzOzS kJyAciEzW/s1v3pwQR9/7+6LNJEoXE6ANNOnlnEz0hPWgm55XnyTmrLBqpW9XP1V jTOm66j4vbS1MNRxtIbvkCKyw/Fv9hWmPauzEi7TepwgY2w4m+EV/0mNV3LTg0OB 4XH9bJ06LUvp1urY1jVoYD5ID5cyNeblmhXLI9bXQpzEjuw/fkqVaOCLMyiyXYFA BokCMwQQAQoAHRYhBKaHPSSk1tYoSuQqdfBgWf1dx8w/BQJh7JOkAAoJEPBgWf1d x8w/lJoQAI+SrlWdn+KcotHe/DZiY+HrmYdIAmdvr9xupsqpK5FrcHAZt/lX4iNz Cb0/W3bQpgAr1SntGPo69SvZMZiuXLaVZvAjAtFfPAaE6qBOQOfMQM8I9CQ75Olk ZTuX9syqqLRx90W+0buI2EnB1m8xdw3Zp03/+JYqXP+8qI8yEEn0+tGPTYOCYDQ8 C9NnUwc62GVln/b5Cvvr5khURn/OzUAmSv7ah8hHhc4cfxnFjSgErnZ7MPRMm1O/ aVaqV4Lu9OzT91bhLaJ/aOSPqI5kuKZjgEcOpJhjh2gxLKualF544sTei4GNXgTZ ddpZZmRpGCLcOS+nsqeGeKobV5Ixz1ddCJMAX8BKDV/mimiDK4yCckNirK0AnTiF bHnqkpPcmmZdp/GFtOWPoSu8qGJpl7T35sFpEFn3Stbd/sfImWhIhue8x3I6Qimw DW/23SQlf6r5u0ZbO6ZWMdC3RR+6TfztHv7UDkBWEGRLGkQ/cw36uW3OiqEUS8wS 2uk96vnJJQTcXP59BYQgH/Oqv5QXfl5l5/h9MnTJDAHiM4CBsZIETl192nBT81Mh D0swDdaU95NwMFtSmW+aqd9k+FFaJT019BndzSYZXcpjkBwpXF/HmzrdTLHZfFN0 28snq/TTG3K3KoTOeW+6HeXlDrsl7HHmpvUo+gF21f8+2X/OuyvtiQIzBBABCgAd FiEEUKMDCY6i3XvL7iraCeAfoDwMUE4FAmHsk6cACgkQCeAfoDwMUE4VGg/+JHaT yujXRVrsH1dOmhjXc5nyDINZakUBT6fdYxXGsu37AmgYoZrBnTyAmNQd4zSAZ8Mm uXGxN8LE23nO6c4/436kt7gH1ySPxlhdsiti0m7pl550i9aL1YAFmdXNzIBQUF5K 4XFqhdqy2tfdVbF/h1o8dZqrX42vvVba4p4PybtHtRMaiTPFLb5UNYMkf/+u4VfM CbCqW/aZyhdoS+tsb2l3lOF6uRx1fv19KVhqnqIt1/+bUiTYVcgPQFKUJK3P0ilj tDexFF2niftdgUJLrqbR+bDCPZ5ykfXuZXeCLmpzIqFPvj7dMPpM7WylAInyaheb 9m1JXJXtIHwlJDdVOYLfOo8U9TfLO/rvDKeeDXm5WCGgQdqEYrTbYNv3wg2x+/io BF4dalE9lVrMt9acznZRemFzhihVSc5lHhb+FX6fJRCQh/vFjrMY7mj7SV4yc1X1 OtdGJMvL3+p+N6AlHpYB+4C+dOmNpUq1W7ZCpwi4LRi73/WdOD4nPlQigvpHPy3g L6uYH3Of2CwTonPY6ToTtKFaXjKQfthAIkN3cu2cf2v2F1QpL3PMN92LreQNAazL oPpYF4adfPdlK8tkBrzuxN8qJsC6asJ17ztR5h8i5xBS25hTdf6L2dNIene3jwYx 8lizZ0GwtAVb4pNpg1tmlAKcsjOVZbr5DP0b9MmJAjMEEAEKAB0WIQSt/bcJ/h6m guWFWXHVgyEO9RRxpwUCYeyTqwAKCRDVgyEO9RRxp7MoD/9p3eQq941AzizApnOe /Hqjp8fkESw6UN1kmZBes7oYUiJGCRMRIKWGATVQDcPzRwkQdqhgc3MHI3rbyy0Q NxZHTsZDPZ0EyxiHAJxkVnEyV44DpUCb7b/Hswx1jIhQT4OsC8dxKYQ6MPXODX4l NzYvpwcSv4a0hjKDk+MZbtX6g4zK0hIKg4V7WHm6wHsIzgaDIZrY8s53KV7K8jy/ n1vrrzstiFPpBtZh/RvS+HGocbHpdSYtdL6Qqh4eY7ng6CHqd4lGAXx1isHEJsc+ G8Lx9JDgpo/kyFJu0mVQmTHpYt8qYwE6/hwwWZ6XDnifZcd7uJiymv8UPYWwSM/G vFIqDkMJSQzykK6uzhZsPttcc6DdZ3bx+97qFfIWvQLpFp6iG38T6F0IT+iQDlDM Z4KaswIntaDuldE1VJ3D9F0ndDlCJvCXJn9I+jwUKXj2Uqy/1OecLgIz9KULoim6 A4RmLLRDtoYwXbwsPA1BEVskq6kkfd95VtjqXU2V/sh8YnZP2O1f5udIP8g+KUhA zUp4Cppl8jALBlEJ2mBI5GfkWJgnARFu36nY0bpeiOn+1+CumFAC5p0QHZFDCD7I 7XB9VThWCnAW1mNhxie/o43CByfAM5hXieQeml4dDEGxazW3JCuCV4jpTnogArCC 5xSoNkIFXsMbSRexC2SFm1pDv4kCMwQQAQoAHRYhBPTOImMhAlPWqfl5sExm6o1L 7hvuBQJh7JOuAAoJEExm6o1L7hvuYbEP/1Hizeq3tkm8FZey5VewtvDCJNXTfkvg 3/+Cu1GxjeT8bfWGQKNEalaHQ1xU/pHpqD7QBvdt4pK3TaYp+kqfM87i1+JkCoy2 Qv6YsP2Sf+VL7rLHGFF5JWKOj4mmL4Sy2ON+NhrZUN5qGtYSKu3P4y6NP5u5YxzF kpCL1rYugc801SSGI4dagLyTEan0vwToXPDGYrS3Px6HGgKw7JL60dl9DqNsvEiU iU/VNYoSklU9SHYIbDA2siGGkaEwKX9fGaeWsgErFg57G+az8lzvvm97da0HIQP8 jQBQt9Q8gqUaISsVlrAL0fV3Eh/pGo+LabpufMXqcO1CoHIv4hD3HS0CTouAvpUe 32igiJyrE5esk7yIOPMuTaNFWUQvjioXO3mLh5qBsKtRyY05g9zAuhOzEefOrBue 0mx/uROL4dJht4v1b/UGdf2CT8JKtj6NZgQpJqMu9410EEYYhaFqIjAC5tDBe+K1 ngHqr89u85nrwbuZEs+KGWYnD5jlHsz2bbwPSsMZkP0Y4oeZ5uqUDjPHBB7npnCg Kp3McmB5dw32rDqolEkKXxRCupYeRb8KlyoN6DNriU0yjSQgqeQTCtHTnWAjigLn Z7zJHOmDfE1t8p+e9kXAm94N2jAI72gWGD2bI1HM7kUgUbOqIgj/tafIA6wpMI6u U+m/D7JBScmjiQEzBBABCgAdFiEErSDhqotBNnCmQlLYvSdtLm/PqIUFAmHsk7MA CgkQvSdtLm/PqIXJ9ggAs6cAy7yKyO7sneFbSUJXDAAxH6tfN+/qPKYasakSkiYw xQc0fU9+mcbrSXl6uNrQFdVBQUEUb1OWSOZN64Cy26KAa07RrgcJijEGVrQ/qg1i IpaJxu7wheE1fE8wqfU8VGBsjw9pEn7LmsY4L5IbptCHMfN4l3Q6nKj25hosy6R2 wiTdNHs77HP3IaAekHfy3QwnrcOdQjSQykcHb+DkC38Qd14SDxRBTkwq09LNigF/ MNqpvA47i/Jc9bqn/SBJ5mki5v9Li5Nj6eu0dr7BDgzr5ZqGiKAXDe0rJxJ/n93l qjBA3vEDs6m2L0vuujQj4y2Cp4Qrp5/yy+a1eHmSpokCMwQQAQoAHRYhBClslNvQ KAJFv9OR13tSlkjuhXJkBQJh7JPHAAoJEHtSlkjuhXJkFGoP/j1E0YIUZLAtnJl6 yTIn2RRebYHXKyZpwFQlbckgvkliezJHDO6EmN7UZcK9CLUTMulr2kq2o3BLTnV3 7Qm+ROSSIQuGwZEzWliRlJVouZ6gMkfuhoxyYaxOCceIBWBgzZ6cbXnneRvtap7E aKr57W0sO8QiFd0uq4gk5a4LYv1YiDgJMtHSsSrA//TGmInptvFQ6WQtPJ59HH4y BQwCeEc1o6MRUL/fqIDGbkZTwjncczNbC4ZUIBlfeC57jzPUYih4C1feTk2YuArd QhPEQQAlQHggFzLAc2iHgxRkk8gtZfeZ6Kk4vcdyXufn9Br2Nu7QT5v7wM3lmRks EAcQucWOH6Mh1H6WmTOOyDUevzZxtx0Cb5G/l1TF1Bj94FNggsRdni7NUCc00OpO ptsPFdIOYqm4jxe9ykoi4IDVkx1OgV7C/ND9V8VXZOi7hbAR+8Rc1pWzIXC7qMtL T6PAbtE3H76nKsdi802KltAitFGSZTc/WkVm2Y7dcJyShasSSN7p2Y0NoCCM81AL Lq+BYBO18yu6kQyXaJgN69n45Miui102cDpZKDWBOU2tP0YXVJr2M9fg9gmH64w+ BzLGl8HcrjZkhgcM9hxQqDSzxYVodny/NMfEezyAsiK9bf4YPlhZx6YEy3uq6pS6 ZLvOOWMbDn0W0EjHZfv3xIrtu9uDuQINBGHsknQBEADC/9jm2xZwcF8NgNc74t/u ZPD6k7qqwb3Sz0DL+Dla/x9wbp5tcZsSPQIP4Nk8UQfxZoid0g0nT6tImrWBTxtZ u5MYoaioDQ2FjE2qIrqjOypOckmFHVsWzYM4j7EJNn1JUZ72Ye2sdy0cGKDFhr0r JwBrBQENM7QiuCu6fHMbwCvC1NE8IBx2SpLzFKDqemtMQ2Beao+5R2ix2xSoNYso GQJwO+RIv2fKYY3cl+JLeGlNQU0eeBbBDtXVcnqs00KUxrDh6LLfjuzYRtWK0bBF iw7Upq4TehzNlzGp8yE1IL2N2o1+/Ism3/BexUWamduY3HAu6l3MnPssS7AKUKIe 2tQSCZ7LsuqyNaH8diZykRiSFF/H7NduwzUc6QBVbXE5pFvzuraJu3jL3q6+DMtD EVzjyeK/trF79jGlQ9dioNRuZj2DYqvXZ5/7JvGYOKFd7XcLEkSm9n4Q3Zt6GpWH wWIimNgsjFo4ZYdv6JawXAjsZN4X0+nnAuWG3Mbj86gYNjJMDxgy6wovYLwwf1tg WHCy8jUcOejFH7XKyjuQR8vTm2o/jHKoXT0FG+qtyA1P7cEf5VaJ80n0Vg24xXnE I6tRrDUqH79gogOp9z6WnbC4+jKFgUCkyiQJuB6Y1rtLBFV+x90aL9KsJYMiyycP bE3WLqL9TGhRXuYhJ3lZ4wARAQABiQI2BBgBCgAgFiEEYyfdy15+gOSYfqO3/Xnc DIHZIQoFAmHsknQCGwwACgkQ/XncDIHZIQp+9Q//bdbiu1QTFRHRHSi7d5bTxqt5 jCXtkFWSvyTf40/ul0t6sjdq8MkI94ZNb8/omOuMen8BgGtNBgC0SJxeXfYhBk7e gBCGz3Ryu1Zz65nmca+WXaGNleMJRwnuK56XZZuTg1/dWYoC7FiRbUwt0FvImIZT nWr0kAfdIkCdIbPHwrH5l9BTdOIVi03kfSG8ci54DEJ73PmmZrvH6PtFleUJvo7g U9iWNhOFGffi0v/UAMK8UZAoEsGIY/JD8JFHerfJZbmEJPPgbgdi+ZEaopVYibdb w56sTb79J7WiTrjxL9ngIn55zza3eOSDPeIulurpCebjb6DM/r/e+srQbhe/3slF IA6F/BB8dX/qdUG4NWQHP6Tcruu3rUwN9cC6iPW5aYt6w+dOqZYXN3qbDu745CYJ gfCyXeSTcHp7xsKXmTYBGZthB+LcHNt7t4wG/k2X5D+5VCR63V4NUq3P6uvHvH9j hl1R4YsB4Vi/fqPUSK/MAj7VxE7Tf/4W/rBzHQEP9i9hkmgunOkQ0wbjaP44EqO1 JHPB24py0dIBY9JWq2DqVHRAmvEZ7unbihLzJ+uzepsM84ujvipoT6Rlb5224unm yB3NrRwSOHn1BpPIqBwNbt/lZX6AByTaTNyPoC2pitK2mJoMLU3kIwktpFEfVOmh 0Kb4rGd12E5b+czXoxg= =LSBA -----END PGP PUBLIC KEY BLOCK----- pub 4096R/4BEE1BEE 2021-01-24 Key fingerprint = F4CE 2263 2102 53D6 A9F9 79B0 4C66 EA8D 4BEE 1BEE uid Sendmail Signing Key/2021 sub 4096R/A9C0321B 2021-01-24 -----BEGIN PGP PUBLIC KEY BLOCK----- mQINBGANHTwBEACw6b3NmDyyB6uPll+h+pyOmQrbX+up2S007yTXhj2EnYiriLcL MdMspVLXl/wtABtfTZ9Lf3v3FuNwHZsVdSZWCFmwlWPptsRrF0VWwYBzxgH6QIUK Qx9sFAD+KVD/9Cfl7YXeu5lZrNn3D8FoQB480jJJRaxshXcB6y9QCyKHeCZx/3Ct 1TE/tlFOgGoKJzNADOimH5SeEZ2gHhB6WB/yKLQYWS8EAvTlGdgZVo6VY6Ar35cd 3Z9TCQxS8YDsA0p6zENCJ4QgiwolmgZHa4R3/9jObxhVrIpCKCUN+rSdmKDotugP GPDyZ0rZRAaRlyqt3rYKVAztkLTU6TbDNLmDpw3CQv3Tpbb2TT39ySmruVVJLA1C DYQrh8f35ic0mDwYxKA5KIPZNj9vcReVrwxPDAV5to4n/ZjNNfnqxRiiq4+IzGZ4 dTlwh4pECps0WdqphLAoTotFcdvYg8cfHMBULdIGqciAGfu7G0yqvlxt4nRe1k8D 60yAwDtqgO3ThtiTzuYkHZAUmAYOBYPF4e/X/zicWoL+whirV6AELnmv6lft5TaW UfXbcx0njY/QPa1iy3g8qkQcY8durY9OVYnA5X4von1vMC4naEEf/cFsdDBl+nZG /XxBHr1QX5/P7egbnnF9qMqry856oPE8bjv1KBqZ52UxmGRl14k8gKcfowARAQAB tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDIxIDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQJVBBMBCgA/FiEE9M4iYyECU9ap+XmwTGbqjUvuG+4FAmANHTwCGwMLCwkN CAoMBwsEAwIGFQoJCAsDBRYCAwEAAh4BAheAAAoJEExm6o1L7hvuZlcP/1ipTzk+ UT36bM/DbeBHaGhQ4yOSg0iiHzu+bzzP3jZslG7rlLgzowEPk7plDlnVbY6MUeXQ 4hO7keoAn5Cskg8jsrh+kpWYlNTPPKFdjgcuWbUEVAoRIprq1kEVqcG2ai0t1iaH CmrUwFRqCCEPoHKg1U2GKcKafFaxOZwM27kV6yTLM5sYFVsoSh+bJ7sa9hymdwrf /d1Rh5E+MHJatn3TXGh06aPkVGozyufTXipsxzd5VaBjLDTYbMFkiOt9MC9Sx2IS BO5Ws2tOlNslGiAeXQG8EaJB4xrvhOi4i99nBA5TYWVdOAwfJGUZ+X4hItMwlCIg 4TaJcYHQ7GASELGSGA7azd2JeqbEskiCdabWF8aSbUxA68HRCOjAAUk5afxqEc5J BVfT1QmWAPK5cNQTojbd7msrlGXmcSQyFBUDSzoeQNFhpmDpAXCLnGt0vcwbqTik Ft+2vJ9nbSczKHkxmN1hudpVdsUNfgGi7p4VzyQq/OzYFVeMXrBBt6aLyATjCoY9 b7chMDyJBFLEk47U0qQe2VhexI8Fk9Z8wFTPF97gb3rSk5pAfIbCZ9eDcIZuR5eD yDDd23vxsMJK0haD/nZ6gQNqBeCg+zDE8g4T9zCdOtavLuqwOqPUZDnNdke9cA0m 6GSo2MccibyMdqijETcDOPOC47hrIu68QE54iQEzBBABCgAdFiEEsICXn00EPhnQ WjacYp747gyLgzMFAmANHmsACgkQYp747gyLgzP1zgf/QJi9+sMvoNVks4+lU4xW 9fy4C7+fAO96dJtSO5jSn+9M/C55UmU0kWz8XEU88XCVyChLmpSb+Y+2sf5XhWEY +KDLUHgqiT6NItozXKVggNFMsxkzDi7mzdkCIevTlcGbQSxai7hbKwZzGPb/OzUK pRtLl6hTV5wLlsit41EAwILnRmmn6Iix6SPaCx0YvAIKBiy7CSiJyhPbGEKAeEx9 OTZ9ce0iQWxaCGNgXv22HPvJ7V3VwmfZBJnHcY0ooxEjz/Ky9kHXc+3yHznlATXs pzOMH0z+zmHldvIBz0djgVlhn2TRkKSSTaGd4kbLKLmci4Ax/il5noR1hZ82aVhl TokBMwQQAQoAHRYhBLF1lkRTA13O3XvpGWBN+/KFQQq+BQJgDR6pAAoJEGBN+/KF QQq+4OAH/RpvOktec2Y0AvzWjHorXWmPLi9xEMIuj2GVVVsg+eXP2CDpYuEOVYLP 8VCWpObXADj+w0DIOMcyqUbMPxkps+CPXjTRc/qED3FLvGNTfNQMe5hDTbbs/tw2 FtfI9Jzlwsmhcfg5ZxnQKDCPGPQufN9AbQHWc4VIEwhQRc9T/cfBhioWUwrtkgPT BBTPnJp/nA10Rn+ycURA+BLdlhAFwuTYBH7nWHkDJUGLHFIat2RhHRakZNhcMrhE cXBrg5ONK9qJYtJXzlHiQhM6NP2RPVvYCzLlqkT13SqvLsPMSncyKlIlUuQZqdcE QOwGRgp2jkZeRYVBYfFzfIpu5gxVQYOJATMEEAEKAB0WIQRYcmIYqRNADeZgNgE5 pMd9qXiEsAUCYA0esAAKCRA5pMd9qXiEsAB0CAChpLMwocSQ6hpY7nfVl6wAb3SP 9C2Dwr89YxzqBYS7i3b/0pB4t1c4cg0vC72DeOIUwuAwUOq6NVgPYnh/NpovWouP HN/3WrI013yGkNZIYz3fb8w2+pk0FFndU121pn3IbVYyMxegyHyN+F5NKZCfsTu+ imlqje26ecBPuz4wcVqYyl/jnR/MU54uMhQW8q0lxCMS67uta0wd2EaTXNxq17Lp Z48pNOBiAXxZnXaP996T+7whtLBr9isgeZyeizenjupX69bllRVbwuO8uboTsisC LlUbOLzdvTjuSrAQAzNaAfVjNsxzEvLcxxKaPKPG1ubrHT50k3zpB/Ixi+oliQEz BBABCgAdFiEEynqPOaJBn/+wqasnjlrp+87u9DsFAmANHrcACgkQjlrp+87u9DtA kQf/SLAdxTmR/l95WdeOgvxINcV5ADxCkpO1iJeLp440uddscRrrfHdibEngfAA+ ARwPv2/jhJgInCOQe+4lmsd+4NtKtanXiRZai1MXCxcF5VLTOMs8Vl7EUMAL5JWG IlvmT4/H7Zhji64KpDFkwEjsE8SdZ6HJokJMFSq+YYBgvnsu/GDSfDpb/HtdM845 pjxHJ+r93KPRepncLedgyDsQpzzRIgUJNhuC+UGtRp+3qRf1eWSkO6qbyL8DtFfW WwX1gG099nr8m9Gj+R8zH6HTnWWuFnUyDTHdTN7/25vZ9eoAgjIx0I3g+O02l42B G5HeOuLSMdUoqqvOq8313wvWSIkBMwQQAQoAHRYhBLh9RWmG8ZSEB+XMtD1osl1S B8rTBQJgDR69AAoJED1osl1SB8rThsMH/0JcgLmhr3K4t0cxt94u6UN1pVQZDrgG uMEDpOxW4nPMwN3SkWMM3K7zw0TiGkksyFifRi7zY1BqRilJOGyLkyB3zCY76hKV SuLx3U4B6eyrAY8gsPownOdY8FJB3o27uXhPX17qLWOl83/GQMoyRfmmwkBnL4hc puJcPT4bOt3OhDK7bs1vGabS9L3HuX0lUIcp8VKquJHXgS+xIr/lMBk5Jit1Qx/p VjqmL2qIxTMubmKxU5RxsCZygdV92kBLzYqZ3JO6LOPCwD1a4fZRlwAW2hpC2gtW KHK1/QZBSgJGjJUgXGV3fYYR3WH5qmTCAWu2HEloLRSdzdHLldWCsUOJATMEEAEK AB0WIQRJ9qi+hHM5SVGRbzth3hHs4nY6cwUCYA0ewgAKCRBh3hHs4nY6c4ygB/44 pigG2UoBQNZq7R9ajbU5nRkl9mVCZ4dEqY6i3QJs5tGew+r774jMouL/sBTXMnvS zD1XgJevJYnQq5U/08zvYDvqrhm4yTkbgg9UqhD9UI8M/XgN0DtbFT6EU/N92lO4 2xWBMTyAwjVl9JPPjhMoUsGVScZ8pjplJZlgJNuy8GVu6vUoW8j1Gw0jIPKJ0ufy 20uc4jLuKVmxjj7Z5NsFnWJtiFFq/TknppOQZ8KvZjVzrH6EIOmCJfCnuSATiVsb YJzMAjshhG+fJsm24loUjmDDAzy4Nwf18IJb+wSe1oFCSAz3euhIAIxBFkihA8wk G4QmCnvdbPfYy4WIMDNEiQEzBBABCgAdFiEEMLynRwX6QVRVcx17qvW13gW9zFMF AmANHsgACgkQqvW13gW9zFNuYggAwSZ7y+qCvdvFu6LD4qvk/phRF5VINZIHfl1k aOVQWA+DZaDM8lRsvn2lxGFksaPzK9ZXd5QnF3QTlOkEsCILE1tmL7Myob27PaGV 4mQXjY9bUXe/Ulj4VbHlWjkt5wpwGj9bRuxnn/RKKRNCpknzqv8VTCMVwUyCF4xE P0BGFXiyPV+PTNN2GwV5l46zn1FWzTlSgbAxjwQBh43RMuBWG320w+YEysJMs4y9 k0f3i16hO4G/MiD4WRIaohqjBN6ii/sksYf6mgsZieUlAeQPnovi8pScq6s2cYzJ krZNxX6PCNQFTLs1GvLh6IQgypN9Lxxu4FW82wKQMS9yIKkIMokBMwQQAQoAHRYh BA9clq7I5p6cjlQuXG1M0ZQp+wPeBQJgDR7SAAoJEG1M0ZQp+wPeFfcH+wUQdI/R eMuLByF9cjdC0AfnOXD46azyt7Lgyzdi5OK8xAMmfTGH0iYGGv3pNfcbTxblJ868 PPjUc2arF6CkLZ5hIQ6dUBmmxG+YOecOZF4jO6Z0WFi1XqxRomhy0m9TNQ931I88 VRpd0/XepnvJc1lTOiTmxKTFex7mKqzTNBeXlNkVOXpM4aCq4AejEgnEzr5imfyF P2qyITbyGpWrnTKtg4ASYWVU+JAZ3/eZIl/0pNuD0/C9MGRmS2yGM82KKMYrRV3X QNAdg6LPi8MicUZWlcVYqR/7jEkJeppUpM46EtEo5YoXQR9UflSdu1xjpBzgU56d MjXtTE5ROtVDl42JAjMEEAEKAB0WIQQ8ih6Of0TK3hFP7UZLyb2ma/cmrQUCYA0e 2AAKCRBLyb2ma/cmrdDSD/92AidTGYuf+D3SbIOBhQttWp3SvnOj5UuqgXtHrmuq vbhawUAAby+CL0hMOqYk/Z30N/Sr+OQmNyH+Q1C4nuoq4KOINBuaKpcioQai/Jre TthuVzeFDk33bQd+IQ4n0WXnVWg0DlpIhDDtZyA2Qqj4nPPsnjuw+Y62VuXFahr1 ci+8sVns9VZJyVKPzGAKo/4rKjRlAqqVTlh5/RvMJ01TvWwSXSg1+yM08e/zaOCz tuIfZAjDZNqXKIU+3xlKKvQGnNxUB+Bxn6ZaXW/YCzf/uabYfy2i4GIBhyj3dRSH zbDSg0b/l0zJDIi6qzTzXZFEQr5AFu3CZeLR8maRU/1olCFR2aE29XoAtEF+SyPh eI8ZhXqL2ccJqStD37TMsUmemTgBkH1Rig3eelRDeaZ6oh5UjuKcg7IpdmyYdRNE 5KO3afHdhM6C/CXoh689273ddasvdYcGCIYku6AjiNjcr4sNbGdmqDNc/6emHqp4 WxyKfc5AuqZpmbEVhIYG1PTmldJl78EZBYoLjea6fai+6LH3c75p85lUWbfcpq7s QczweRPz/X+YMnNpCo8+psngSBIjDiJF7JFrVCFPyH8zFbva/TWCZ3Cf8Z4GLm0d e1gBJfFeXaQHHL2qaX5FXiYqwL2cjmr09lV3hWmQC9bA4q7Z/q2BEjZtZuPJn/qZ NIkCMwQQAQoAHRYhBKaHPSSk1tYoSuQqdfBgWf1dx8w/BQJgDR7dAAoJEPBgWf1d x8w/SdkP/1uvi7L2ZVvq564VXA+5YFNq+BvzMDYkf/8RaAAFFUVbblQQBjlHN8nA ViZZepOJOmba639e8E/uXsXF5z0l7Y1XEiuU6xofjmX8i9Px3MG5G1mXQGgaozW7 fimU81f5DlLFv3W9lrZ1iQdpfZQYpBMdE6PuBl4wvElHPB6rVTxBIigjVsQceXMV b64RttDSX84glqv15rTrPQLPg5duX+YzMOVKyH7tWuuOsPuWaUZejNieX7UubA4s E1pnpH0OBpw/d8r0Rte9ZifmSavfPygaLC3w5ihXKwPLVikhOIF7PgsVaRRBzJQL pw7BTt+nGOZIQofW1TM8gOPPrbWzwyCnPEMzjyM6g46zsW8FRxTq8/qRXwB7dg9v wZRVSX4+Dzuuvyt/p3p8OX5nhv2UrqXSeZx5gcWrof+td7X8lGj4j/kvFI6lotqL +DTf4ndH8OyVjVL3Kzdc6e1+F/odgjurPW20GiNasLFpRz7aNUTtoSMc1zHi7tmW EB0HMrCvdTwUuDOHVcebaR0xOPVcPcJhLoJDDQPRCFC93RvWL8qf5XPXwxYu9+tk Kx22lFNJqnQeYH6s0QqJowcGwchpM23JlAyQ4y8qCb8Rng4V2KvmonWO5iadM+/9 sNFmf7APUzeCMP0LGO+YLKgf3aPe2lQZOF3nQXpQ7iSDW33C45QpiQIzBBABCgAd FiEEUKMDCY6i3XvL7iraCeAfoDwMUE4FAmANHuMACgkQCeAfoDwMUE47RxAAsbz1 94m0hNMFUkzXc947B9qozcQMQJRhKsouBaMMwR+F1RgLH0oSAhYESsl+o8ngsyTo AKYAP5p/N/wMzSZY0/B1XoQkTJT7HCX6G1gBKr6C5US4wL4Y2xQtBBVipAONK21p RiSVUcvtOVfdUTSd2NNBUcVq9NCnWjtawu+8Z8fwJYa74gy8u9QQi9QjNPcupz63 PKzB8WG1NjEI6Jx1TkZbGLoyXDQ/J7lfnoqGQoqIXMJjQHiDuNV8gIaPo2isHx6H VOXYm+kx3mG/3cpTlWS1yfehHPrRYg/CB6joHYUUu9oe8HI1C8GF/4VxRsW6bfaZ 6rByBoPiCIb39xTLyCASXrXZ3n5wJ2blSCN3GPRxOcrNKQRgfNiXEc2jZtVA6sKU a5DvvHYvIBqD6M9E8hPd5EomOW7t8zNCaFCvqWOanMmJmCqSlgSavZqEMOyTvcOM ARyjZBseIIQZxwcfiKfJyI17adP/0fRdB5ypUUGaLPcbdh7JWJHzEbplGPj9VHrX +xBN9fk2l8iXwPxD85C7lvup4SX+HEav3ofIJSrL47yC0DDrmia/JS3U/omD4raL yfLSoVu0Qf6G6Z1MSLV1sfaMLNWssuwKYx2wHEsjRoURlWuQVR78KuCE8x+GZQ++ Qa75Wuf0h6myzktUkfvddz6oW5W2yfVbAkuFR+yJAjMEEAEKAB0WIQSt/bcJ/h6m guWFWXHVgyEO9RRxpwUCYA0e6AAKCRDVgyEO9RRxp277EACTAyRqNIaZPaSMAdw/ AcYNX+/0G5+3m2+baSEPjcJUYOdwqQeUFAFZ3Sf9H4cm4zfNafQ0AjWUm9NYpwt8 YKhN78dOpFaNdER43SAjVGmJb7Vs/yEX4EQZ3j7uRtypwAm6tehdo8kiKtMr774H DZHGUp7NYdbBnCwiQWHFcwcK1ZWdgIY4Nw61pK5/iDl0ZIOZDXPgZWutB3ULNwBg 2PHBLOJaSvzl9jhC7Zjgpus6dEiTU/Ij6dKX+U0X9Hh5c2O3FQ08UwBffTBjTZTm ThXGN8RN3a3cuBlpP5rTArU412yV4/+GkDPP/hv9iAgRAhwXomskyoC1Wq7I/1O1 Ipzac19walDjLDvIBEVZmzi7YODEMU0F/EobW6+aByp9/cBGlBBn2Ppy+RQRevHm Lf6jpvHcmdSEMvIDXDDJfUHVYfcpVnZJ3LfPE1kfdOhOKpCju8ZF9OPHUokhjKRM frKLWOD2rxNQmqrfhvVsh8NSBNNaL9NkwnwevGo4ap2PaKwA2gxzZrMSrH3au9jE K9+pnE94hdhRRfKINNME5r2Uo5Rcs6OIiuDM1wCmrIT2f4n0imXJoTiA/jwHWFAK 27EPnxXWZkbjR/oiIm5vaKqB9NbZDVtTw/4H7+pQ3E47THD+KY718FVUuV3cnOtM MdoRGDkrd8ZS/I6ze7pOnCJy4IkBMwQQAQoAHRYhBK0g4aqLQTZwpkJS2L0nbS5v z6iFBQJgDR7wAAoJEL0nbS5vz6iFz58IAIJRgMKRz4cOUy5iIPvtswXMb9tFR37U PyLGJR1CbclXwUxTe6brN+8kWGka/g40qoG0Wr6GgQheYBjmV1CvXwOvZv83/FkK GkGUZDjNhbfSXlrBMUczUEk3d6w2h8XHOoHozmWgf7fJk06MIJAwEt4ENK3Bfm+k CCrCJuma8WzccyBLyU2iMLS14w7GOxJVyV37L8XcwmhysNyCpF0TVLPlPeGrvHO3 hsw+lJZiZeXKUrU2hnzoM29A71PmkLVUYLN1JzvASwWCVsMfIO5T/bUzSLBysuEU msqRL+vJQvzNDJs9gVrAtCnfZRQFHRYVYHsqqayhsj3/mk7x9a8Q6ZCJAjMEEAEK AB0WIQQpbJTb0CgCRb/Tkdd7UpZI7oVyZAUCYA0e+AAKCRB7UpZI7oVyZKXLD/96 55HOR12CYECMhU33Y5fqs10tYTdyoJjjStp+t2oApyaswr+DQPs6UVFUJWgMy478 ro2DqW9kYHZeX0BumiQ5zrCeyBQYU+RUUNH7MU0pzdGuYWiL9PXqHNacuzV8GrIs r4NFB1SJ66nbaKRMdJJnnfvtnJyHPfJ2VloxizYLNYptKUVbcP0j5ahXPbhy6Cyy qlsAK28/gSRhDOqdq4/mKcNrc656bsmOqoaOl5po1N0sGStYQCuFWKjawujG5ZvF x4hbwJUSU5gOFrBZgm2cYjypIO/GQz6CYbhGt77qV7f7hzo9qwA6UeIqrECvr83W Jtp4e+FnjVQ6AfSwLI8oOPRa6DvJDdU+EGYPaWLbXnmq1fMu1nNn9SfHtkR+uDlN GiQJk9EZSz30msacuEXZlXiypA2zTQFYAvtBZmYR4qjBX0qHImqmukjZZFhJ0sxR LXE66HgvdxMTbYCVCWJY6u21yXF0O0a+nEvx0v1doux1247jzGXwyQTKXZsUZhv1 qLv8igtMaJkSLZz1E1U703PdsMhU9jH6RKlwkW3KI/2NHEsxw7nDuhS6ez0UIM6O sur53HCnDcA7k9eUaa+Sm0yCBeccZ9zmUgG2K3cFKdpQlljyt4WJTsKDrK4AkAHR FjAJ0wOvv4apnz5LYNobKc/oTbjJacbTczB2lwGe17kCDQRgDR08ARAA9XG4WjRg 7cOfk6ur3Tj0TsmoiZ5jDKQ+ObZqk2aeIk5WutraEFe0OkI46F4oEbIwLB8rChHX uVq18EM1mDD99tM3xTUoSm6BCdQeNx0Hh6enLZK49LBSMqTn3Fd9PNLL/QBABYWc wgrazwxOlTrLOpX+XcgvRuxK36CisNr5i7Ocuc7EIuUurF6YoSaaxDT9XZHpuSSV AI//sH+GmeBVgIs6f+8MSGe5R4g3aiyYqykwMtgSVgKqxi6Bo5UD8HeXpEAIgtNT 2gOxLgvar6vwlbTFamv+vy4C2RXY+7paEjGnlwI4nJrIWh0c1z3qIvAkEzhN88/J fVCtjtKFjPAhGf48LxnRnURGb9anyexrRTPkGcmxx7/sxGMe/M31lpHOVKUZduWV 83/9/7NpSWU0BRmWyzK9CzQC/97Vb8JJhZG3N7RmTZgiO1GKAWFAKgd6X6oo6O/V n5zngHY3jfKkb+wlcVa76IIDv3dc3JIENkmghfvuzdrx2IIqK+NSrBzp7OeTtgJE vR5yTysS6wdlihY5zJgIBJh+GAy7lA8gzB3MhZe/qPSvnmK3ZTb1RnM5y5ySMZsU mZnUVqjqjgUbY7NdXRpPeYLzwzzsvT+vlQX4P7LjGaienI6EP+AO7v2Ei+zv1NMI jkXPPNtPwp01B3M09nYihjDnM/dviPF8J1sAEQEAAYkCNgQYAQoAIBYhBPTOImMh AlPWqfl5sExm6o1L7hvuBQJgDR08AhsMAAoJEExm6o1L7hvuW6gP/iTNEyA96lc6 3WxvkrpqiyZN4vdDwWv9FoEuZohlOCwQZpQy8wZlbtmjYcKAz1mRF3uBqZRvgzu4 7ggzny8lF0m93PnyroRO5O6I8lT95HWH5+7mcoYpbDY1XII+QbP+Xdxi2mkUXqkY 3TRcp9VzwWyQb/0sgGch7ZOnd7bK12Q8wd2YmkCq5dQ8BXxFbnom6VoRpHnu1AsU 6ZKYbK5ogKXUoBxYKRqX6vMxMjALd/yJFKZwrCWkOxj0ipXCgHOlqbqgi5wH/gRu qGkMYJ6fAnVcEdyfK5IRrtMB/3ZHlIDFXyEIA+K0AxpqE098KwnemOjrSYZV8Ek5 48tVsKlmqqgJ1QkacR54OLw9CjNm0bXX1iqMfR89NfdIWqfyq732vqKb7UDfcjOK IV4VP4sS8rBNrlzGpnkCOejE6YqxqwUt9ggtk9Q3SjqTrPTDZ3hExjcigchwnG5m rZzBKYo7vQxoK+Y6Kx+BZHo2tUloURtsgqW7mLrfbY68Vbm4O1Ev5mjWA4bmOTrD ivZF0HKBAdHG0B8JolpbSmoPVB0V9UAQvbb/amMK1zo36/cDrSZ9fid3Pbwyuupg 058rgvZPvBknm6p+k1mGb9XBGJlJaOR9Q0cmKobZhVmnSuCkRBJdLixHRvzcfygi ra/bqVWSpZTlHZ0xT9seCUSs1urxGw9Z =3HCo -----END PGP PUBLIC KEY BLOCK----- pub rsa4096/0xD583210EF51471A7 2020-04-08 [SC] Key fingerprint = ADFD B709 FE1E A682 E585 5971 D583 210E F514 71A7 uid [ full ] Sendmail Signing Key/2020 sub rsa4096/0x5C092A1B257B1C27 2020-04-08 [E] -----BEGIN PGP PUBLIC KEY BLOCK----- mQINBF6OACMBEACZTPTPsjrVvigeypzCc2FkC1vuAgD0IcGckcjFL6w8r9O9eG8C Y1ZGKF476MAY1EgXvCrUbDG7LPIi2y2SGStE8iZqhVBy188C5a7LPDjX6guHxL9m +OX7TafOqS43BbXuG1fvWGdhnEY7ZdC/SFUR1mWwFz+pHYC2bTdUm+KGyqBdT163 cSPycWOixVdxGg7CPJLSvaqJ9Ft5u/LalvLyf1m9vT8zLAn7YlkATvg/wuzzB0LW zCV65FDuda4kkJwelhT9kBbEkoyqLU4Y4J36X51vXGHFL3Uc3ck6FiLt1qw/Hs8h SfwSf9vgBSNhi45rYe6sfBTJN9PZ7l+tPZ20hU0N0+q3QodlbXPy23WdeT4cvp2E vAl6jUMp1rypEmgr2i+CMMt6g4itxbmk08SXC61XEPZqeV3qd+hqRSN9bicErJpE IZysXdO8SXw0NhomdwWncY6BWPY6GYbIhaCRyPEz2i6neUUZZb+qZNKH8KJwij1j jre2+TTTIWSUCSVXh5YuKR4Hr+faKU5+LXiC3K5GrmAIxFA1RHXvq68Nt3P4jFKI Bu+T19xC/R8Lqtc271BDlQxQW8uwhESZgp/56Sf5XTNyWSoEK1QoVChkn4vO7m+3 Igyn8HUVHOXmNpYKXeXtbP6Y2ISAf5YHkdFtdstj0kg0GWCPlFupyD4diwARAQAB tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDIwIDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQJVBBMBCgA/FiEErf23Cf4epoLlhVlx1YMhDvUUcacFAl6OACMCGwMLCwkN CAoMBwsEAwIGFQoJCAsDBRYCAwEAAh4BAheAAAoJENWDIQ71FHGnRssP/i0mBf7u Kn6ap7KOmJ/nwmhfd4enqGPITxPxVnwmnpffVv/XA7OuAHkCPql8jD7z0FPZkTEp Wgevj/mWX2imjEIS4sioQScA4Koqc8YczUoDTeg6D4KcZj9Px/t8OZ8ubCSU8n7+ gZC3qY7bOnQca2Sdo7EIHn7xI4EgllSUzPkeZW9PTL8xLPGOjH6w4U4Xaabve/Ls R7RQW5lbsTboWJBis8n+we5TMgxTAIUavXVT7nlRO7F6YQuqZ8vLB1bHj+OLEaVl 3iakFt00X84Ee/F7XD7a2YWYEBfvwp42sFC16ghdgPQN3E0keJZqKwnBiOa4sv0z 3eiSJa3S+mgQXQ8syVg+IQFRgPq5z8RLyHdyTmdRcPHSxNX+uJIMP4+QgnrcH2Z4 OiOEHoZKITOudIWNXmEZWNU/TQMzlYvQWMf9BRMQM7He1JCAPf20wzvNt0JuYdll wPbhFAdWps/ieHsQ+ApLMrEOoldfbZQKGSEgMCJkiSCb5hnc/z+X3zBjIi4H6lyU eFLX3a1gVg9j+uHpORn7y5q7Uw3HXkS/a6PExJOu5sfffdbfNzkAIQN4LcCTPwf7 bH25aKnmIeXY2w0cxmuS5t/uT7hYaIZgGyg0nGGQ5TCJ/Zicop+7W4lcvyiKqvmd 83SmETuY/S05ZqShQaeumdjn0CCBjGA8XYXoiQEzBBABCgAdFiEEsICXn00EPhnQ WjacYp747gyLgzMFAl6OAZEACgkQYp747gyLgzP4SwgAm9fa+gc9glqkijfd1tT/ g5rXFU0jIr5vtqFZg+4MUQ3Gl8VUzduUQjAkO2oF9A4qS5XW7zaOQW8EMC/ioFsM aNHQMsWApGUwGdxnUL8psUROqJ6ry+vHkO5aiy0ovdvKMYr/G1N2jzf/5C/V3C/Q Yr6NMdAAdiFbe1eg/I2cCBifVN4jcg/rqIMD3j5Tej46WZ6Yh7mUeMbRSiacoyAw io7G+QOBF1MdnNpDX5d84g4LG3KX9fKErUaDlLvulnR13RvtIgePgyqBb3qAiwmz 0/N4wFn2SyF9i/y8SfKZmNe9PKz5icxKaVH7sZoREc7BKYrEE8NDO4a1jGwH32HD gokBMwQQAQoAHRYhBK0g4aqLQTZwpkJS2L0nbS5vz6iFBQJejgGuAAoJEL0nbS5v z6iF/5QH/3hzctN4ADtQL4pQOLB6Fjfwk7kJJMJyMS1KsOQaVjfviB+v02dJ/3jY G8P/PGuGQhNTdOo5Sd1riMAs9qBrYTH1LAzbGJYKT7aU0ceqCq0BZA71YRY7GWv2 8TuG6LLjcZZUXjj5a+4p66lHgvq+FK+moONqA445UxVqBgsUnbBxbmWQEiiIGZYw upSB3yAmKrMsXk8Hgqz+1yg0TtVuhfETB5L2dMlA/ZfO1WIzTQaU3TGbb8Q5m1dx kD19iD1oW5BkmKZHo5yzYHPP9h3kMynVgJjRMfW+u2tv8GnJMXxHkacbpgcsySiq fpK4Kb4H+fIdOViwufEBbdum+LO2DlSJATMEEAEKAB0WIQSxdZZEUwNdzt176Rlg TfvyhUEKvgUCXo4BtwAKCRBgTfvyhUEKvgO3B/0UqQwduX0jD00L3q6k5hYpjuir +llK9XwBrfBehpYAwocLX9rjeBthVvB+epNBsacU8CmMbLgmvq7+ZG5Jh+wNhHx5 iXK6rZvTjm0/CxdbqpqsvpKkNdNsj6m22c/zUu0eWxPUAomfSxfX0FgxNg8NjOZx RH+gi5FgItQY+hgLVHaSEQOqmm6Lk7qnt1KdhI42uCFxaBjAhB/nvv7lCeqDJltL Q8yHCtEKTt1Z99KvldJicAAcXtC4KmBQog6szmw8DdZcV+mzXNyvGMXxsssAaSOj QDjdXmCiGXnnxMWdmc0zjUdQJWWIgO6erwu5OCX0F2NuRE5tgIMSejNUAuYBiQEz BBABCgAdFiEEWHJiGKkTQA3mYDYBOaTHfal4hLAFAl6OAc4ACgkQOaTHfal4hLBj Zwf+JJ9rZ6YbR30sRSb8whxcXWDd0OhaBD675/y6BinZxPv7i8sxb996Pdz4wx9U f0WyBU/1NMsror11cdkoaIb66MHkicgTYpagdAnRxGYStoY7mGCqiVW6HZ4th8CD 38PX7w8x4ct+9FnTTfdK01N566YrHKLiPoBLpPmeqVItzLRrHf6Rj283dYagxMfO hH7JAK544nNxRja99VrRYglozUNYPDE7OPiTyiG/7wXTDfPC2Y+oWyAxQGmA/vtR EApIhrKxV2YQq4YWm2X370y6FjjH32AhjixFChDmPA1ilLTZOjP+K6yTSmQ5JVTU lnbh41oyZeanMiZox063hyHa54kBMwQQAQoAHRYhBMp6jzmiQZ//sKmrJ45a6fvO 7vQ7BQJejgHTAAoJEI5a6fvO7vQ7a4MH/34wrS091ePEsnmHR0bcUfuWY0fq7zko 7wj2NIQLScha8mvgGCPDNR4GfGi97+Lqp/euuSIr30WVSrdMIH6ZNlFItnypdu+R 8DrY4CjgaIc19h5HQlf8V0aL52NNlJ0dwSwMSKgDDUvmZCBnfIdrF0umUc8uMRxr bAHAq6TUaGOxbqF00God8q+TL0Rdb4xF+5UV2LERfNjJ796NSx2nIH9MzBRcrQrt PPsRE59m24yeLfMXC0G+pRVA6IsxVd7jX5shPhvXbu9VNCpPWyuATXRdMgMH/I4k qVVWV2UslgntrA/pPb8hlC9vm1Kila3yE8X6XdUv7KB7s6Rr7fiWqI+JATMEEAEK AB0WIQS4fUVphvGUhAflzLQ9aLJdUgfK0wUCXo4B2AAKCRA9aLJdUgfK039wCACD IgBkSGltFdWBgPmNeDUShaszPGeAplv8imjaJaHm0T3G671df28MTP+e2iZ63eqo cIwTYIQNBEPNfWa5FL5JkHMdGsOuvEH1UxowPOWDe3AfJHlBPOCtmo6oLro4ddin epLJMqOCLygDtM7vV2HAY8WqLC2206QhHeNE8bWryqTO2T/2IjrO28Pcbf5dFUPC o0EmtzQLw5WKOwa0BINb63Af7zzJAbXKC9erGoCyFQu1YyRmsn69hC6x4eYccijf Lzr7YfgJbWUJ76bJ7HhdKJccZUHhEln0u+onsQqKeHes143n34cBnq8nwLEWapIt 23X9grK9H5KCNBss9ua6iQEzBBABCgAdFiEESfaovoRzOUlRkW87Yd4R7OJ2OnMF Al6OAd4ACgkQYd4R7OJ2OnNU/ggAuXwxh39YliN+AVi68JCkeYIuy+mrjBMK8lj5 s5o9BY+KkiRMIlBcJq585iPJ3xYhPqqf+RbXWVJr4qiC7iFzD703x2GpRxJWssIQ dilRWRixAOGASc6em+NkTDnKFuj27bsM5aUx80yo3FUhxqwHawj7vp+ysx7XynYP lXZ1JdnD/uCM1YzMeZHGrQtO0L8aIDcqFx0+rz7KtIyUQ7kYdeZg9rjamfJdbBko cf+C2jWX9gF0AlXSBvnQ3Y/r/2uYgCqT6mKU0Nt6liC/nN1+R+AfIY5KhBd86gPN Qz8mCdLfOcO3EbKHWBl/1mLgNX/KcRrst4YnqdPvyaK56EPun4kBMwQQAQoAHRYh BDC8p0cF+kFUVXMde6r1td4FvcxTBQJejgHjAAoJEKr1td4FvcxTPMQH/A90Bhrs RdzhXXQ2cW3tqqWbwuphcFfIZr4kn2br9yNqt/vHjIHqvsrgiWMKQKJxX4/UoLyn 8EHeDScyrsVzLIKZDKAoGmLU376PzpDJdlzeFZOaRG3iTz6Des2THBHbKCp3g3z/ ALx0yWkW8TJWzx8CV3nhym3HNC/567OR6dfWa0J0CtC71KqfE93HB31Ac/SjNUF7 qQSn00RWZWfW+n6hDL7GDr34RewajTpZg7HwkflY29XFUs6FuOb0Kpd31WxNO0vX yxsSzXH6rY/A4kvx+I4Y539rkfu9GdMXvefKUYBPKVMtn2a21LdsjM8RFm0kmusz jDta0WzzJxlAIrWJATMEEAEKAB0WIQQPXJauyOaenI5ULlxtTNGUKfsD3gUCXo4B 6AAKCRBtTNGUKfsD3m7BB/9yn/GO7AvO+w8MCKmidVZZNLA5XPkwP5mQzkYwr9lM 7Z2vzdLthohr8jPkX2LatKFsmzzLZuaapm3oKXQa6bRm3xZbGBkTCR5HbZ5eh7lt wrE5Ot6bzLTkQPdfMJVK0NERMVTSmpvZsrQPGSQlHg2CMH7D3xQh5Eoc+oQnMzPz ZVQMBtlprjrWQRRzSsOUS+mql89xuLAByS2SV4tW9WeZlJJc8dVwdZhoJQ/4osvP 3p3ifA1pY5I9R4bV2gIgLKo9TtUWnGmPPnzqb1zeKVIdpbeqRkAwb6/boxroSNT4 f49iqiPCNSOSuDB58PGcwJDdZKDSwimj5ATrWWYffMUuiQIzBBABCgAdFiEEPIoe jn9Eyt4RT+1GS8m9pmv3Jq0FAl6OAe0ACgkQS8m9pmv3Jq2RqA//TkwYzF3J7RN8 8tZMQu4staXlu5Xlo8FNVtqe2mRhmkXtVTFsrrpyohawAwg9Kc55FcNzdaOjzpCM LNDo3huboh5VV2tUVJXhMj/Cs/KNWE3r5A87cGcDwMHhxYB5VAJANYmCNtManEvq rwIVIJx7MXIt4hWRBcCWf3Z04nEZDlAUdzmr/yZkjYFwA7GFuvw8tJI7ehBz3Y6v Rx0ms7OKlHKVQO9q9Qkw6kOrC79eY4dyEhXodi19Mg4Nq2D8ByhZMaxvujzvir2N z9TjEPHC2X3yI9ts76jPRqQvPZ6IDDRX1xyc2FBuU4dOnEeDp/1BA63adlQXRISD 6Kv1PeobIY3eFzMWpyrZxwrCu4he9YdWWjZO/t0LkC2Y3CD1Pr/znCQwbsnQY/VZ YJoVUYUPGxaa/VZYLJ26thJuL8fX80ZiTJTWlopIxY6r8DTok0sRsDP50+GVn7Q/ GzEhpA9muAJLu9cPFTOFxHy6klOX0oZ7SCE2kN4ZXePBugS43agOdihInHhgfKwB qXDZGDPNGWpqyzudgeYXC2qCooKf2Uln2CTiUa5eioPpl7KqKxwE5zl/byLa8fDy I25Aye1AQClaUP/5Ei10mCXWalZZT+4kkWVaT0UEECiYrFFTAVBoxmpOvnuFXtey Hzdc3jnb/M41WBUyNbLUUujbSqDknwmJAjMEEAEKAB0WIQSmhz0kpNbWKErkKnXw YFn9XcfMPwUCXo4B8gAKCRDwYFn9XcfMPwQOEACrqEL1pv7oYV/UDvhqeuRlA94c kMfrczDp3QXUjnVA74gLzsPDziWZmuFQ9Yl2+YV2CE1UlKMauJCvwFDM97AK8Qhd AzGcYR+sfKZtKdvciU6aLQ9eMSTOmIdIc+RSGVOKTRGWYxeVI8ynh4D7HDfrijAf MoLsEmvdgCm2/+jxoAKQw76TL4YsBWGLN/kGWTN1pQOPAUhin9np9edvq+qf5E5e YV80pYlhAPfM45cTqtiNXQDK7QFBnKxocpqPBrFsfwHQBkSlpa7uwwaBk89qp3Hg VBBj4g9bXAoDZcZ4YzLgutie8GPgJ9+S9j4ldQxh0KE2oV3VVuljPi5ucisfqWj2 JEI2EwPpPNabRkRN02I/D5R4MW8Rg6JCyknAhPYS2sERS3w/DtOiFT6ynHN/K+PK x1clvEz1ZeUSCS0SpXVxHZ/gq9ZUiCR/2Sq9O4P8W14V9BJgiFWZNFLP6CBDobwu zsJoT2BYRbTu8hX2rhCnPTN7C9+1SXHYTbIRyPzCX164QWi86X7/FJIv9dqRb8t1 pN5TUitQ26BcNMUNdB9Y6eCTRSYlq37LsWRTbUXPQ7IHZVb6BpsVX1BVF9vibmUp 5yg7dTW3QRgrqmUc/A5P2no/QUgtL+svzGs4eGjyirQQ9kXXVQ9iXTcaa7xtRNQE NzE4pZOv8nWgDYRifokCMwQQAQoAHRYhBFCjAwmOot17y+4q2gngH6A8DFBOBQJe jgH2AAoJEAngH6A8DFBOGGEP/jod+csxUQ4r8Va52Zd+G9iPm/L9i3ZcjgJwyDbp 6qCEPv2YqY1yQi/ING2HXjhcI0cMjz4bMG5gqYxEdbs6TNBqPqvhnkDiSIRedkjd 3iFHucN3IRezQsnn/NC8Tsh+Kc8xCFZIa9VXaBqcJiihRkCkJLTlvT036k8JAfXo XDU9mjLlGsJpIs5Z6YNMlZQbO6mr1A0j6a6+p28aQd/64Znipf6nPKfLOcAnsVlp JHP2nFj3PFsbigPmRAsV/6LM5aidV4wDv04SuPVrE6j+//8Zl6YWLtca9gHBMxEe RJlfN1W8ULJNZ41MEaP7XGVAe4AEYZQD3ZWYYrC5w8TR0P6hpcOm6nJww2KwjYRV DOB2oePwvThr9XIKvQZeruVvqi36ZzzUjN/ggl8r/4Fp6A4LB9m3IIczPwId36ya tqC95jO+WAi59vcUozyF8+JHjDLBfHowvqQf8l7nFz2FVXTsVJisQh8A9vfWd41W fGkBh9ZG0I0KqqigCqB5+YDii6Q8ort5n0jCg75+87slLNPqdigVDg+tsii1ZMXV od3ezyi8nmQjyX8qV7jUz6tSY9ar5/3tt6G6qTtY22Xb/9i4aWcbfEZLEkixVAuf kUdo2Q7jDtdTKaYvJ/7l0XtnyxVbhlCzqUZg393hC58kDyP0yOtQTz5YoeKlvEJa 6rTuiQIzBBABCgAdFiEEKWyU29AoAkW/05HXe1KWSO6FcmQFAl6OK5MACgkQe1KW SO6FcmTM7w/+Iq2OrevekUO55SM5uGLKBNgHvopIV3NRP0syVWdJNJ0qcOINz9Qx 9ZD+G37QAt28a4Emwncg4jWQENx1xH+EUGX5ANlhnwt20AZwBICAcYsZMUZeBNkT Qi//+c5BUNLR1CqErYnktgDdb9rqOXAD1tsVFAAoWyPVuJVK2ooZmcpxSDYwWEz+ mRafgu4vFMbx03soyESLqK4svUuMdEVaoGlm6Jy/BUYt/kZW2FTpRNLdQ7M+fYJn wp2gYKdrbA4pbIDn87Hr1bGkGkYMjS/9kPY1MzFG/lOVE4iIgrKJoKGaVgIpdZHc vrkKgysj6ohJdUwWJJYyOJL6KB6lV1OZmhrdsWAa2jf3gkoY7bXUhagioWYxBsxN zjQ3JsWXFeARut18Iqrwo05vqeofdz/yMAca3th76zfbPWBZQYhZEgPbHxOlzNp1 VwnZcYMgQc2Dp+6ZaoFiEgQTItTw6pBrsyBecFHvqIGEhebw0MFubxueMs69jlSI hHhWVRBT88ISdQP16A0JC9VF8Pi5p3Infh9+cD4yfks1eRJ9iRFV2WdI0QwogCve Pcs+1Bk6un2ImLdV4JwhIBH/EXvKsj0jxREDxSP0GscykcbO2jP1F0hh7DPWb3+x A6u11cAxIk0MvUwBasQSf0jugH5uf+72RGiQKI0nyqwgB6PbJa4/2YqJARwEEAEC AAYFAl6O0EYACgkQEJCvIKWqW+Y0agf/UfGphCJvunLo54+Lgsx96jerdbamasCQ D5//1WLccOgxHIakrtoBfr5l2IhyNoqsvydWH1ek4yIQ1K5i3zQAX5qWDRFgLFuN FAwoLHR1sH7hwkeri7rya7GllnJ50MgflRMybgaCF7+t5xHvmu8UfLAFCZSNTDyn gLKx+pR9oTCMpQJ63P+zxokmuRhgXi640XHKUuCdq6o2TMdXkb1JRY5fponWTFBK jBMpbY0/5pAs8wMxgDYKBtIzh6t1GyUmqT6nk6m22QNFDJIPV9NKMS5LRpC7O7pD VRnsnH1bhbkchfQSI2Hd6UIt5mnrFi5G/Mbu31z721uKX766wGBc5YkCMwQQAQgA HRYhBP6PzR9csRnCENReoDEM9EqsvxFCBQJekmlzAAoJEDEM9EqsvxFCnssP+gPf 586RLbf/61+aUce31CD0JZW6hEc0s7MTcVGeXJJkPHEHLP4rP77ghLrIU2d2mkP1 td+b2w6q7rDNzZiNZEHpL/cue87+iLIVOncZxxwska8oxLFiPcnK2ft95Sgo/p86 lgFsuMCy9JtzPgk5Md2tOVZ+Mi3uSI0E9HfRdKdTRBfnVJfnF1PTNN0/lC2VA9mM amaghgqyAnGI9dOcbJ6GNqyugEci8hMfjMoNZlciDcDA/88GEBUc1NQdbwYA0uli CtKx07wvMoVzEBQP9PeBWC9/Uv+i2mY0sNPJFuxYjUrESDpsvopRhkgCEZRgztMg XpOHgOMrzUg4GBCYAGsNR71B9DfltgX8mqSRCcRBuaGDKTN9sybr7QKCaHZde1Rh 3X/gbqqmB71IFOluKyKwtT+ezr598SuC4Xp8K8X7fH8Yx9vAsw9oFMwPTQqzWC9M tKNjQRsZSIVoRNZ3JlcEzdM6IR5IOmuKhyV8Z+wp7Hcvd9DkSKyzgT4qiRU7aYHe Z50RU/M6usrGpCgV9DFdFLJ9w+TDqtUbtrY6SjkSgpawbwvcOali3Gp8N5uB0HyL dO5FUmJR/lo91nV/4rgx060la0QQF+rw3VzDH7tr5Hlasrede1ez5dtsnRflTWBo vxkYzzvdU7tSbItIrtxl6ve1+6SzwWPEa0DtMDB5iQIzBBABCgAdFiEEEsC24lup rSzxu0tC8Ar26sJF0gsFAl6TCkAACgkQ8Ar26sJF0gvs9g/+O1tvLLSOhiC/5ZuZ qbUKC//J+y1uahBG3Y4nT8fiyx55/U2Y7SG8g3WWxxwWX6gxe1ALWFstmc2C7Tip TIo9VenVV+nH3kYRYqsle0ImwrczFs6ZMRr+yEo5MxkZqAjm04Bl19i2mSyydUc+ 7yltn6I0XJ83NmUcx22ccyoSZrHpIzUTINMCYdQUxOjMsp9wAvaT7doROkt11dil SzUoJ91nCpy3woz1tMXVmyXq8axKbtBnEEvncF0iZQ7zIDrRhMQYHl/WTMZ0ejpD P3KA8fE57wLLvXEp5czc68Utj/nDIirgDN61Wm10qh9ucOMWp+ffruTan5oUNckV 1PbCLVVPLy7tzjic3fL8fVLTNcfg2p9AbXzU0IS4pPTyv5ThdwdZwZm+EkvMeFwY AISsygWdt+bHOhGa8w9dKAGj5o9l8e1sFc7Vv1gBn9VY3waknkiTubv0FRHZtXsh znz2AU+JI/6c0VZT6hR0oLXI4m2g7RFAkESsAcRmZjGyJe56rWRvKyClecCxWyTd l7HDvD5COUsWvqnfROLlxJym4lNOpzDaBwtFFjBCo0ahBcDbvpV4zUSdloWGV4R0 +/tra0DizqTJCsRy6uA9My77OhHV6NELjsRzumfFzkJBfU3enCidApFtyLg7Jiz4 LfJOf+JTHPL2JkLLX/bzkfWipH65Ag0EXo4AIwEQAPG+GGrflLiUzkB5aJEK8lJ5 LCyPW6wau6xnX0rbngAvfAM3Lqolyof0FLPrecrXhJAKiyKZUlhTF/XAxWYwtgNb 0a6Cfrp8v4aSI1Iv3JK1jsFVAULfdRznDnd5Z99+uT0M0kuHQhcoVYwoEUQg6fjV kuoBP6GC2aVw0j3jUSVri0nXrhHjVL2cRp06R93tPsrLwfYl4GisYKZ0qDN2SJx4 zkOdq1CRTKQOIVr9m5M316Wu1nCzlB7yK8Bd4UgkPq8177yyKRrqcfyH52pBOYbJ /o/SVx03nNu52DYmdb9L2DShERt9vFw9CvyV0aAJBa4wVlVQWVUBOCQBqfLjClzl HqdcSLaBL9clcKfNnXfDp4qD7XrQlCXiIH0w4GmLL0+mJBTbg3tUTaOvRui9r0oS QSgbdcxxbb1bDNL5mhVNX9prARuSgVL5NDRLYQyKpru1xJT1P8E9bI4DAvXrq1wy 6O1n02MzRbao29AR189HebfRmGVaotRP7LLuWKJY5zaA+cv2VZs6VwmyA4NOZcG5 FhlzFyguLaC9lJp30fg/l614XSnxp8Mxt+vH0zlAeQSA71D1+w0c+y441YuYKgVr xqdwN2FwlsCjSdE1JkzQhOA7xeTd400dZU4LTm6zEV2cKbXRd/JZfqJ0BVAhYIII 08JlYBZW/SAzXWq7wWvBABEBAAGJAjYEGAEKACAWIQSt/bcJ/h6mguWFWXHVgyEO 9RRxpwUCXo4AIwIbDAAKCRDVgyEO9RRxpwr5D/0YyFqg+Y9+XqA8Qkc1uQelQN5i 8nMBsga+t+rh1CJsLWxF/yATo3ohD8/qpaDhmEXKha3pvw0xF88WZzdOGk+Wvp7d GVCK3ZLVu/3XnVhvNJiL9jjJXuilkGA3lg8FPiD9VWN9jqs0R1Uqe4YqerQTajEJ 336EbKQsp6gtat26dKigb5bLq3ZHqD/1OcXIxtBGBd/ayStxhxnHJKAymW4hmIiR CrjrQYCCCYv6l43N9uaHh+CWoJBYMcMsAHbGsolGLVakOm/IN1uuZgegAz3rb73r 2T8LLZuYmdFKkt8ptbEwTMniIN2JQYvsehkcbSvdnGIHhiiOQQiCVqeiOSSR9bx+ f0LYkKFdVFBukK/L/oQT6iyYQR8hcMavGBU1pQDKNHgZtVuQ0bDGv4FupSeaQGg7 dYFt2wfFHWPK410QOQD7PxzFjxLl9EzCs7FXbIzJ7IVOxvfBwT6g1hab1FAZT787 zQvrx4QdGe/3BoXOoV08tqaENc17terEaArBleNb+Flqc4gr/HOInlpT/BQ9fL9x 0cOZmh4Gbu8nHSmhAOB422xn+XRum6LQT2E4u+ITFTOGLk31FXJ14xRS7CsKLd4F gmOJ78JKVfONBpmdVsw/emTMU5I/C/8m9l0nO0P4Q6diao23krgWk73x7dBoBqDn 4XUsDQOZ8aKrTpMO+Q== =jgHV -----END PGP PUBLIC KEY BLOCK----- pub rsa4096/0x09E01FA03C0C504E 2019-01-09 [SC] Key fingerprint = 50A3 0309 8EA2 DD7B CBEE 2ADA 09E0 1FA0 3C0C 504E uid Sendmail Signing Key/2019 sub rsa4096/0xEF9F24EFDC48FA66 2019-01-09 [E] -----BEGIN PGP PUBLIC KEY BLOCK----- mQINBFw2ic8BEADI+1rR04aRoVA2llbsWv2KQpLnItCL2vxBo/+7OdqC9LDnGa6/ BA2KgTrykOv1YiAK6WBGHiapZx5Wrob5UPPjDERWX0a/O1ejHD6T5onIUklrS2VO ZxyUvNkqx0XMtdvt5zESVFJv81Ykp+6E0cF1211ew+5BC15RHnkiccrZWXcERb9r YRqCkVJC1ENd6B6fFjipjTM9Cn6WUck5kozW18ASBiT4ILjR2UjXV+wWrAKNoFny Yki3a4aYJ2qSo9509oFTqpb8nX3vTY9q9qvYa4xW65ZYi9ISdbDOJZFQMyo+rcGU ksvMMnsAnsebYBCmGj4A+9CQZGRY0GbUc7iLlFATwd7COq+rrlmXB2lnbBY55nH1 fcCsmnG8oPGHtSTOeAaBkJKT3y5raIqHp/5pIzNbBpdbDkQR9QnrWtTxH605R1xo AO32/m69Q1gmeGbmmR96bjiNkdGHTTZsjOLg7+EpuWcE+lFbDJnSTUD5r5NCUHCY pR7nQCGdzle6/8OztmNL1fLYbOCHDnHZ+PknixjAj76VRmZYYyBf/nwAQfyhpzQC wLK9wyvuqyeIlYjBNYybqji/KgpC8DLI4T8d1rJAVlf0hy85DCGST9/Y8rdMGgVj HDJHOTZG1i+YXkFQccJOVIIDZcCIsLmY6xCaOp+208zTUXdW4cpwKbK9gQARAQAB tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDE5IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQJVBBMBCgA/FiEEUKMDCY6i3XvL7iraCeAfoDwMUE4FAlw2ic8CGwMLCwkN CAoMBwsEAwIGFQoJCAsDBRYCAwEAAh4BAheAAAoJEAngH6A8DFBO99UP/20PWjVr CiCGWWrxVkRcoRHTUnyqSCvpJGJwIoTNk+f/0K16xmDknai/fdWqGVsuVqTZwmQD KL81U8hjHlaDyVes8d1nQ2RDcwVpRyH//8U2mhD4Zyb+hZg4eJrQ73K//OQgZfJL fjxyjbsRD7UHITKwgdjlXCHFJjfu1tVBGUmUhv8ncjXBRgBB5Pe9vl8y3qga7IPg tcbbPqmobPCu7akHioG1/RwzruKKIHVUwlng3DFg/rgZaRQGGe2Hn+8ldFTB8iTE uivMZJT2M9p15/tO6qLG+SO1/pB6xuAeZROENtL4ZTnxKMgjm09v8ljntIkkfTmh hfoFooN2Im1WUYlU6TtCfcb9chG0a3r8suLTe68uH8VLhSoPaXwotWlpudGwSzDK jFwOPACN9QcCG9zLXD/wbpV+PO1vLTkZA6XkIuc9udW17LMo4kvxUOCmiJZAb5jk 9TyjIKHvX804P/ONbTj6GP+mdxV7vQmTxw4fMTH6GVUlqgBKYBM9GWWiLOs+2iw8 EMA3jq+9byKYQ3M8n9avg4BlCmyTMXHdeEyKsk2hBApg/nl2vfNASnDrcvwo6S7O sP11wL5OjGNI/BCp5LEO36HyUEZTENs6IkiyOp/xOjg97MUY+BrG7Y5hTnKWCYRh LEgF54o+ICkDKJAND9x54/59RyFXONoMFhJXiQIzBBABCgAdFiEEpoc9JKTW1ihK 5Cp18GBZ/V3HzD8FAlw2jcsACgkQ8GBZ/V3HzD8aqg/7B8UooebTLXPgqPm6hYPQ 5LbRAZtDhVGTMQ8QOlioLQYyqgt6Gn0XeM5E4ehPLMlHS5OjdClk2U3GzNQNheRx LpoGxHlscCsZQih3DH3bViQfEIGN0VSYlmn1l804263/Qgrv3iTkGKcW4KcwHJ7w fzDVl+NFCexLVBOK6FMz+DTZaOC0UifzsWzv2YAVc/2FV+WJpgfScjZHttzTWvZU o7QKVouQlJpJzzWjk3Z6Nm5TWKcqwT1XJxQRi/fcYPB1iAHp+4fN0xhiLhMeTguE K6WQ9JJDTgULMgXUlONX3vML00nX/u8Sk0CPKLXCAJxPouH8wohIQzUIKOSQMqtY 59toRyRQgXMaKHQ4DL6NehkNxduFBAYt0wgnhi48ageFlAK2kKTQV5//obRfSks9 UR/mLWYyrhZ8BwaFAjDds0oiZRZYr3LsGr4anJ4rHXzTW6G1Z1Css3M+8hnjjgru 7i0yjkpYaR1mgGkXhbLED8x/B7vf5UvVhQYXZi6wnm9ujY/VtninXRUS0/6VtjEk k4Cwh7PZWvKzYpa7I6l5u8a9sjLCCgHCkuDkt+6F7vUaNx5NXrMHXFJMPy8hM6HD yzAoES4T3A+YIwU4ZIjneoE6WdfW0dosf40cXK6ufFwh2+ONg59a5ezbEWYAfyy2 VnVOfiptJxDSV3ITaTih9h+JAjMEEAEKAB0WIQQpbJTb0CgCRb/Tkdd7UpZI7oVy ZAUCXDaN2AAKCRB7UpZI7oVyZO0+D/92wYw2cBuQun4hNwskVTrukH2QFN7NcFQY QWfwu5U+RumkZ39bY3u/f2pUB9mDLmFUY0PZ9Uk0z1ymJymSCmjhSifqYikYY2Z7 dSHT1piS2RH51cy19r1c5lys6zucvAtyQAR2jyLExqiR3/Zul1XIapnmvZEv3V94 +PmMGC42gZa3BpUamXh8pMcnMDnrMJ8d4gxKUNbfagXkfXz/MGoldZtq1PU59k0e 8Ef1vkL5IdiYLzdMprH10BoGyDEuFkKmkFZsIAvqaTla3zwklnqUxxdV9SLI1gCu Xnz1W/5B+qFZsiYrUd/VfJVHu1sZlo3pz70lMxbiJXCf8gzs2ezFft7BYDQ/vGjT Rm41EUs4Qy4fjSQYcTIobzd8DN8ZfoNtS/lcNpJE29kmCQxVn6rWLDSqYKqTFqka 2Jgt+fjlrPWJwJrdt5M8y0HPXeBY2ydSdp5o9vFL8SJS7ItiTg4zUZoCnssIxQfz sg63SikTP1uZm55X6+3bKSae1wmAXsTi0I2wYEHMVHsbYwsSZrKstPpj/wOt10uV jt3mSYXqEZ4JUPlsVQ+OFK5QlhjinDJ7NIC0pu1sagkFCO1wzGs6hoicY6hB5wFS WPDfpgr3lkLQ5GB4+A9F8V5CaGta1ZBhnWNy4fQImWPrsvnPXswkH5NxqRL0ha+s 10EQjVeGVYkBMwQQAQoAHRYhBK0g4aqLQTZwpkJS2L0nbS5vz6iFBQJcNo33AAoJ EL0nbS5vz6iF8QsH/ja45MCWmD5+bEpzRu6JvBrALwkAkSd25v6D7FiB5JZFof4a an8wGKmQwXvSbC6getI+djWGOg+/O0ios/ePqUW8DWEQqF7poAlzSmb/+dScl1LJ UR5erguFpLy9MvY3BwTh9kfZTY6hm17pOhgQ6xoV9dV2awIWB6EDOX/8XLwYFE9W +blxfAVlJMY2l869Uiafor3ejA9rrJ8dgKlqS9kL+X77FBuoTcGPzWIzemJDKvR1 eFmFhyrh1627fBoiaPbX7jJkBtaBubwN4gUb436+9SHhSvCdVisZ9CGND/iql/Mj gCwioUR36t3fqNca9vbP6gfSDqfRbU2ZACWn6MCJAjMEEAEKAB0WIQQ8ih6Of0TK 3hFP7UZLyb2ma/cmrQUCXDaN/wAKCRBLyb2ma/cmrQIQD/oC9xA1K5AlOjiRrwI7 hNsLqfabFfJrNJNhZM+UAQ6Ta1kzuSP/OhEBhwEJ4Oi+wjKr/iBeW1DwueuEFdIx tL8NtiGWSP2MK6J78azyUqwj0c3PfBtPsAcCvTpK7gGHfAbfwqgMSscQ12aJa/9z k+exoz8dJMM/7WTx39blJR9wGa5TSmIB/qeRlB+t9XZ1+qVzkPm3P0ZkLMj1tMGI yykC3C7eAiE1iwRchLfBC9MQkAZy1OPIJaLMaAOKjchUOWchaLoiVtb1fQRkbS4A WZxx/zO3++waQR3X11ZX6j3IjdPU+Mt8OuPrE70QY2+5Kj/+h1648ma9EfGhFfJX IMMoA/tIkVG1ujOoHHbk7526lkCzRpnX4rCiGWnaI+iDVWzQnud0yN/YwGsXse7a bf2gTB1i65VkDFqejBLSdwZC7MOtwKqGoU1pw3vT3NMmYFlyf1SzjTHZ8R2H5bwJ jCMlW2YUTGJBlFfeKYOG7FCnQ4FDbjt2ybM+1GuNbnvcx6VrtYBdRiUpje0rSLaM dxooTR8LqPM6PFI8HCFtH9IcO1U9/f9UpTN6eH5BoVFHcd+Ip5GYIPmHisPFYVBV yDJLdMNMZJCeGXJbyEo3LCpIxvUuxHsEhOKD/CHLNGWjlCdmGfkpo6GFZhnDilXH N5h6X/JXxhHKaz4ak4rMqxM1VokBMwQQAQoAHRYhBA9clq7I5p6cjlQuXG1M0ZQp +wPeBQJcNo4DAAoJEG1M0ZQp+wPeEikIANxxso7vpCamTX6IhEX6JIyisGrY6FEk Ctea/tNX4GXdqW0tmQ51BOLApp6yMkJrTsbDjps9FEkg2rNiM1S8eDYyZVBl5CMU J/nVxyrF8KeoF8fd8im+hhxcDmZixw80935YaFTJfjgOnDnsbXJ+VpKEBv3Ri2P9 0HswQMwqON5YOAnYV9z6Gzt9AgD1n4LGlB585G+XBmVxHvYti0G9CE5riViZ5dWs O0KLham9gjbzTp5d5ux51V8R+1pw/xeytisVkrbiGpURP+zw8Wzj2K8/eKGP69C8 W4d8vMpTB7ivOG7sfsiVHnpbf/LsW/CFDF+iyvHt1O4B3DofYLceZsyJATMEEAEK AB0WIQQwvKdHBfpBVFVzHXuq9bXeBb3MUwUCXDaOBgAKCRCq9bXeBb3MU4liCACc Ib9dWDrQ/Hsoqzn0Y5b6Vcm4HZ9Kca9Ye1bZodfEEjCAT8FLLX2Y2h3EAafJL+d0 K0A5o+0adgfXrtvlstFIgV2mPzqqJx3P/Gp+9wt/jtk5s5hY/S9Va+OqebHiJ2ga 6z3yFhLhtpIN7hL0B2MS+k8YVAeQHQ3R1eWdoabMa4g8Ik2a118smeeKZAZiI+CT AnzkDPeIS4m6WAxvBJOyjzTEUK/wok3Zzyb0TV1EtE3fYq/V887vkm9g8dOza5Cg 3hhgoogIgqFjw32Nv0skCJuL+N5GdGWt6hh0cmNkdYxHV1Yw0HLB0DknPgYlnqNN RQFHaqiS+fvetLGn2XpwiQEzBBABCgAdFiEESfaovoRzOUlRkW87Yd4R7OJ2OnMF Alw2jgoACgkQYd4R7OJ2OnP9Hgf9H4Cr45X3FhCb48kJYm/mtU9ph6S5m0zOIb+l IRTI1UP+S9MW4geNbw1Te0yy2z7Xsdot3Yydw8oWPv2OCasT7FEPFg2n2BeQqHZZ SEuUxXtHiSXv4Mfn0HKLxsUbeO0zMNAum+rwWGAv0yosQBmvfV7BfrwhflKFucFQ a+EowlQggC6xppLE/lajti6/GQY5j9qDjvsYEtYOcQy4dSJGRj37pCaiboXJbgo9 /mRa7fvV1+MbJVS/WFTwvo/09R9r/OByrJiuzpWo/mLdcLQS+Tcf1pFOJFHPoCGt 5nOKkYu4E2vCi4MAQdMOsshHw7GDunzY3T2gzTTjzqfCirgMm4kBMwQQAQoAHRYh BLh9RWmG8ZSEB+XMtD1osl1SB8rTBQJcNo4NAAoJED1osl1SB8rTLP4H/j6Ly/kP /pOxfqUSJ8DUzg88TyMDQmRxhmoVuoyR21eL0mf2sVpOgdczNyfysgXThoeTgRMN rFw+RCP0yyq5TdVWpL3x1ixtX/c5CUEt+oPSuUsEXh+oj41sRV9ZCzUTAi+ypUON +LVHah3qko+vGEq0gMzlBIfmyAuboU3T7WK88JFHTD9bwL0Uv0D/xqDuEHtSM8Br oflQJruEI8xg3RblhURKobDL+b+G0pzP+LT6OAsgFzy33jvKpWxBP8HbmYISj15g dv/HY7yZiaumQIOyFejwT4ZqjxpWGX1IoWMzmDF59jBvxlQVa1LMHnopJ3Q+Q7tf wL5IYbQj6ANmY2qJATMEEAEKAB0WIQTKeo85okGf/7CpqyeOWun7zu70OwUCXDaO EAAKCRCOWun7zu70O3keB/9yVNUQrJP99jQqmKrTjMb44w+3uF+cRhDK/fXnbENC qIbRHA7vVmkQ57tQuUXRHX2BtWCSfEGwPiJ9INn4qY4vLocZqHZc/8+2rQESzrlv wwBVNdoshnBjaw2eVLBkDV8GhcYUEYlW0Z66+h19s4RW5LWQse0s5Ax8XPEFWzmO 0McTGgStSOBBzL/0bb0nHJA67DUNMOzaC3i4DcO3m7psRTxiA5j/mAwpl5p/jnYf 6CN+njzl272bFhU0TwxomoSG7c0X7QqTVh9hKqz6jbS3VhrkWT2CcZBWhi4QRlAL Ji7aKkMHQzjnZoIFAAmje8voB/+f1vkUuxfNpH3TMCMIiQEzBBABCgAdFiEEWHJi GKkTQA3mYDYBOaTHfal4hLAFAlw2jhQACgkQOaTHfal4hLBc7wgArGdtwiIPiyEL 04Mr9AicdyxWnzeMcwNQZqD6quMUek5BzX3u02JpkZnnrfftZ2NXMTHcr0sbcCpI K+02+qz7uHf4pZqVIDMF97U2L2RRn1dKcpxO1rKzAZ1Yd3il0VeQ5dPVM+ocMb2U Vj7bJi856fZNnOEUFAJdThTRSS7e4tBsZJagi9YIEAYLYmE0a7AC6v9b2KOsrmp3 yFZ6gVm7wdbNz1pyhvsMoSDMEIt0bUnZpFGzr/EnTS8MTSYGSHslGfEMFPJrULPi YohvxMYcBNZCSuJx+CM7VJ+Aroi05FOd5ax4mw2+eEZs+f4BYjLBQ1opNIfo6AjJ 4n1kXz6gcYkBMwQQAQoAHRYhBLF1lkRTA13O3XvpGWBN+/KFQQq+BQJcNo4XAAoJ EGBN+/KFQQq+3b8H/0qTkD+TMuRGq+sApIhXIFZM6F656AooZZ3G+UFvSmk0R09b ywB7OJ35mAPIXaZWl0snp4pAjxFuK6SRsCRUtRnGJ1KNPblCycq2zF/l4/QsLKPA ROY9M2hTg+kOh0M8hzo384UHNrOwOFGnjwORaHmy5LkOHbAte2D2Dim2SDR8pUIv fhqHXMAjm8dPgSjAyfNO7lizmeYZ8ojlAb192snZPZhl4icJSc5QMfmyXvuWfg26 i51bEVLIVExyk6sFwNs4JZkaDnIonogWHKipHq6oN2ETqWA71a7KwxdLnTk9kKuo x4GLDDnloXkm6bthFeZPwBZHgW8hCMB375PRIPGJATMEEAEKAB0WIQSwgJefTQQ+ GdBaNpxinvjuDIuDMwUCXDaOUQAKCRBinvjuDIuDM4ZMCACssWBTzN5ZoyYvBljk XDWnzU+E8PP0rtWCIn9ACzzDTV1WSMYN3b9VISk/mGCfPL93E7bg96H1aziy273o U0cBAkqnneRHCzINp5dnKFDRmCraEQAwdogkNnnswACxUWkEwpInrvQTcOajtp1q F6jBAsCcFksE4nnrEnCzPaS7uisyk/zXhok9huqehcmqHR85y5/+ClOBN/mboPUy PgowlvA8F6NCo7PGegqSdDcMiYncbLdDMI+bsPVuB4Ieg0AweokGKD+mJcn9Wm7V ho46NOl+8zgkTZt/UrEUjgXia3jfz2x35Zo21KSgpwi1cLHq9OgEvl94s0Q/Jdek VGAziQEcBBABAgAGBQJcNplEAAoJEBCQryClqlvmI6wIAJLxiOGcajMQftn/rRpG SwA/Ep5ZVYuIMFrpatU9o9kgofHFWIQ43/BovpI/3MNSRrmgrwEGmAQq+3XEHTrn os/DIRN5mmMD4Mvh6uZ1IOLT+DTZjYMwiAz4jW8EtqO6/DU10d6LBABWeysTN1wt 23Yh2WNhMQz/1hEfJii+Z3ejVeW9hymqVN0tWsmPZT157zZ5LuBfGHalGrfloftc VcTUN7yFx/pgdRJHNwr7HTimIinUqgOw8HfgSXOhrwmUsZXLUFBE81KU2olJyW7f Xu+SOjKrInPsRfQ1xTZ8H2f3+aHDlGviZ8E63KS1kJdQx+hHKaUjROelLZJ6yB2c 2R+JAjMEEAEIAB0WIQSBHTq1tuMIw3uuUFMztQyapKHsYwUCXDin8AAKCRAztQya pKHsY1fKEACUhzbRpxFEwxuU4nV89QtIqqm+3YQ1Zk8n6aSGCyy405/9VM5z7ing v+UTrF97aQgByuwdm+EhjbHsV0IIsE4/5WfxSTjaSZK0/+Z4B/H+l2e+J+RtZl0t jocMYZxoKOTtA3Yd77DBI7TR3u0QaQgBhjNHSDO+ZdxY2XQ5K3/PAH0oVYSEOdDL zRCBnKWdti3EZbGSpnBtNdDjQc1/wBts8mDrzwHB3KQZYRinRQFx9iCqMb1ifRE2 38KtZ49uXvk9Zt21TZyIS6GAPh4bIkE+pMaVck9kChQJuKJrK11IygV+HjRIBieo IEQzfhFV7dwUuzwIFHUv0ShTKRwFqz8eZURX0kDFqWvocoLMEXtSyj97kEAV+Smk R7sOr5vIdscWKY7D+nMAVTchGMFcX+er4DwTN1Ob2WLycy1ALOz4e/UHbMiIVT7u 86NFluGcXnKMzQH4vFZZmM12UWTpgVqlLrnIzUwtUDoLz90VR7oUzYIR/6FLMtAq gc2Wk/S1FblvvcnqQ32yZVmPC5D5TJU/A3zE5w4K1xTkqnBAaUL08U/2UeTTrF+C XnGQghADL2LQZIS5rlAyVzZrbb1NzkmwGcI+5+QdCtOTif13Y9SGyJkmdBk81jO7 f7eLmQL5v2nxA6YcRJFvgJti+WnUKPo/vwDmK14Z5wNXuBXGTH8wLIkCMwQQAQoA HRYhBBLAtuJbqa0s8btLQvAK9urCRdILBQJcOFJ7AAoJEPAK9urCRdILM1gP/1Td ZnjErH7OGiiav4Z0aX6zMud4Uommlea/em2Bcb1gtJ9aJqYVUBW8LL2ioNVGSjDs L///KA8jTNaopty5ux4wZhgx1e7KXSDXCeuM0VJGSjGbkUlnZW3DLbGUiDa89fU4 Qf9g9hgE7ZADihvfpPcT4xQGA7fj5SEdGN+ApVXNsYenqPrmj89MpFQbQz0rq6bK atdKj0bNxdqCvSVCTgb5nhkjJ6XI02Rc7QbU/GooOtHTJISBMencfW868Mrp9f1g FAv0CixzbB6qtW6C17hIM4y+hzE6G3voPxIhVx6wP7q2Dd0WoE5ZiX1hISWHBxiR 1XVkrGHI4ym/XTLjL2doeellvkGveOmTXOjjywIu4DyF2VudCaF1/9uPoQsH28UQ Jsi0XFYRol8ebFizLkenJECY3PT2Ndr9Zvs7/hKdpEFjIxBvk7MnSWdrkAqSbCvP hzXSKqk+EH1ouBhWOk5zFeEwAzaQ2viOVGvehifW3oW24gGmlUBvDb1tnVrAAfkp 4JBunttjZnq/0NpdoK0DhrrVF4dW3rEEQI6NLfC+RlYAqDpxpemasLEoPQRvg0MP BM4si3ic7D3srhJwZi1Vz9kdDyvE7vZbELvvEKj8gMC9qzKTSvznn63x3IW1ZHLz bI/HDBHBOg5Qi8+6EMxB3PWhXQevZaqsTH8MvBbluQINBFw2ic8BEADNMdn1xiVK lCEtvmKHzKq2lfgzgBJWjtsYEnXDc6FvDhy88vU02sjMvmbCwfsvQAlvCpZUnfZQ gMbsa00Xh7VshOd9+DnAc5e4wcoSaafvWjwCy2ndiJo2ZkeGOH1JKrQLrXazQUlA LC3W6AXqG3vDlYUhG6poamqIyuUn3st29CuOnIsxfmLOghWI34L936WWZnkvnpjQ vE9WXJn8rndeEaQsGmUuBTT62nXvzIM2Y4ClVWdC6dNUm7jkIPVCF7sT4ozwyvDh O0reV/60LQhRpfswz75Hyqm6Pd7ZvE4uV26QBz3F76m+qTynKD5lmmcwiwM5Kkng hvJCTEUTC/ILAkHRK+dbJm9aYCi/tUPpCcv2jy7h1xykbUc2i6h1TboHhwYD0OEL hij/3AqjkARnQ8oROtyT223omfFZbZMU6YYfygSbN3vnmpxVscXcm3/Yy+vzRNjT pwhiZDvBd0zmi9BWXACoBUgKDlNYjXsOfVgZFcUQIpGmnpPdEFChnXSAd/Eidd1F V6fXX58/YiTD6VCmUVbVHei+WpyC+nJimmCK/dpV27/42dybSMI287qs1Y0HdAHE 7pOsA6GBH0XndIX9x0FgREH97UjkHkmZo8b/bPzB7Hbpu+GWNIYI4GNWXwT1bQIw fn7BDi2bsuupEMv0jTWejAwMrEJpBHZdXwARAQABiQI2BBgBCgAgFiEEUKMDCY6i 3XvL7iraCeAfoDwMUE4FAlw2ic8CGwwACgkQCeAfoDwMUE5E6Q/+KqteYu9PiYkJ YaXuN4rE2R6OxU9nb4dLVcDyNvePyO3mJ4Guw8zJrJdNKBrhzkQokFepxR0rR0+d Mh8iZBYrCEbpfLtpRgZOslHU3JvUiwdThKvNTtA+WI3C5rwM/h4WGXW9kVKmwwNN BO5ET63PoiH6xnKXo6J85z/qJDDr3u7/ALFltq5s1LV6ioQ75Rsc+yofQLn24JNL a1YwGeHRjG6jTjO33QVGXwRKnf+Mf+h9CM3sVUmoVW+rKklAZN2IQKrJtC4xF3GF YYGtbpmyqmEr9Gthi/kFI86Ehl88xA4a8u8gNZjDjwrANWa2J6T+3ufC6Nna4Vkb 2WrwOwJ5JtJ6eM0rky2yjTfnlBERzY7eU2AvBqLJujXyediEY+8VDSicLhDaaD5b HLzFZai99wZmk/qG0P7LfGjKi+wZlLN78aSz+XshC41BqXekuUaUfQimkJEjU6py z3q8H+3OrZ62u0Q51PQAci/lkRpofeqhK5ElTsoMPEA/TLAYuQhfN/TCQhRcRynW zPA+uEgEveFTdBOPiVQkLHyWQP/5VTq/4lUYNMWDKmasDHEeqibW0hg3nA2++BXz 8wKIgKyb4NguE0fD2aQgnFUgPQpKQhUftTfP/h7kAzcymESaXvACTyMUIjMJ7SP7 HcRQfq7rqZkS3NE+iD9D/lUyXVYfH9A= =jN/3 -----END PGP PUBLIC KEY BLOCK----- pub 4096R/0xF06059FD5DC7CC3F 2018-04-24 [SC] Key fingerprint = A687 3D24 A4D6 D628 4AE4 2A75 F060 59FD 5DC7 CC3F uid Sendmail Signing Key/2018 sub rsa4096/0xC5A902D4AFC5E1F1 2018-04-24 [E] -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1 mQINBFrevSIBEACxm52GYwJESogE55TvgxDNybP/6EEtdC+7I6/OqCdalNEcGNzo oAnF20biansEtCioTJA3QWrK2dyj0mbxSKK0EuwmJ+x/+m4TT1h6atPmer5/ndMN YJ/QloSFposkoZg73QyZAS1pJXMFF0m7cnWpzFHcrWbZHxQoLzalKPcUsjOlAaFF RlPXDFaKnFzDc0PLFuip2E51hKGr7GhKO5utPHsZ4TjvYKQEuo8Ibt80zmPdAn3+ fIjovjWF4vgmIVqlqpWEiroXodNz3cf+CIJGwDqm/L+kL2xMZmeScxnodR8UzfvW Z1p021gLPnVx/ssztFZNUufqUMKTov+Dt7//4e/5lEGDNq5+t/vUokfuibTJjEeU m4Sh2kBnzFDLGNFIxwWUxE6NFv/oNFl9yEju0L8KtMcDCl/ZzOFSp91qO+e6FCU3 mzkqRFtmTxdVwoeL/PZEdVJmcZLkJBkR+6kTB+RZwlbaPuLW66G/nNaEuWlXKUsr NAyfNHbT1A1dOHoNxu9Wm3JjcDDyiHCJC4B6YAiikv5lLRbF0QPTgpYtA8wtA7ht 3wjdFn2xxnlXpW98VakM3asruRa76cy0HyZ+vbUSm0gKM+BsAOZOY/0uc7IwwLAD N+TOKRc7lAsa6jpGkG9MYyDAb7udjliex3AyhXE3M8goOIc369XA2iqq1QARAQAB tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDE4IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQJVBBMBCgA/FiEEpoc9JKTW1ihK5Cp18GBZ/V3HzD8FAlrevSICGwMLCwkN CAoMBwsEAwIGFQoJCAsDBRYCAwEAAh4BAheAAAoJEPBgWf1dx8w/ZF4P/AhRGoIU 3SI6PTDwiQ6MDWKYK0Ffy/kKM3IYfiVT9KG0+Mh5fO+UFdkkDhFNBXfqRciorpbq eayUSl3j/x+xHr9AZ1bTp9u6EkB16x31qCnsOXmj8CFiyNZdP6alyNTKVduaj3xS kBl+I8reeXl7LJ0YWFKnIIuWWyLVnruiGOqLekmdz6vlO8kwHD88fBQpnp6p/uDD Q2JlrGnWEsq1okaaw9tdwYEmR9gOIEl84tSerDfS1BwhSGjMRYXxhdyXkeNcivFl YhNpef8Lhjc7T/tKOEQ+Wge1L7lLM0XmLrhNm8h2dixEqznPMjBYrcAsupBOxJHw m7LJqbfBLhnBbq4OD0Em6Dqw9qE5taZnPsENurQdtAa+wgL0gIqYLWG03A4j6UdX iTkhRKnxtplbBH/NvYgWIhsVf8wEzbTu0fX7vA7w4pMqSHLi9LJ3iY5Fz7grQYt7 riV0LVbPbQF4sCavU+KiA/hU91al401Vl0HXbM6luUMQzjlcplSd7CTATZywA+j6 ErtoO0052XwSsCRd40HFTdTIKQc/+roI1EILzi84S+K3lbBDjid3irQMOE8ZrUlj IQnnpKh+xJN+C6ZV9QEd0NJrtDusW2lA69fglOS3jVzaL7kOdE2ERioqTRS/9nDk gbBBGGtRT09XboNdR/wSkV4p5Rgwt16BdBw1iQIzBBABCgAdFiEEKWyU29AoAkW/ 05HXe1KWSO6FcmQFAlrfsXYACgkQe1KWSO6FcmSIvw//d3zeEY3SYIQLrYmnRm2x mzq0oH/VEMRzdJysStEukkcpHTn3TJQU0Iqi4MGG/Y7gx96ymxE9vxfcsnV59DIg yBvg8axawO3pGVgFY3on0GmyiG1meriAWh3trTT4GjM8ZsBde4tYtySpLueqU7fb GfCA+k0o+u7q761DNyhpTAGtgZwM9ucbheFOznpq9YaQo6wFjI+0wqRbysLMb7E9 365k0aJHD6NMZPfQ+1HNQffFhnL4Ge1xkFMUiEWB3pUQwUy01f/GhdLyb9VQsNKX rELJo/U0WbtF3nJEdS85l0fOvfPeFEkhU7XnO6LDvzpV0+DtHTLA4brZi9kCD99C CS70Y1OY9oSt8adR5MdQZlQ6sAH4ovc1b8EKHBQIQ0iATQTHCVLFwBrTA+Ve5xk0 6Mr0tj4DwJOVC/qAUHihMYGQMSr9h/GZ6QHF5NZRX6rjFhFPul9AfzT6ON3AqqnK oFGBE8I+A4+qo/HOOz0OrXul5KsTMyoymKsH7pF0UHrubRtphonXxyFz1kjnCarQ QuB5dlx/gmvzbIpiwJsKpydfi/aF8yklU83k4ZeL5UDoD2AOt3EeWQjSvAAIG8d7 lgKf92ugY0Rct6+Yd98eTocHifsx1o2fI50+rG+svDvKpEkBTMm6KWYwHxjn2GSi K/s3obWgV7eRcrpsslNKrDWJATMEEAEKAB0WIQStIOGqi0E2cKZCUti9J20ub8+o hQUCWt+xogAKCRC9J20ub8+ohXS3B/9nKiYebxscdD3PCWmOqGoW76mPCny6DSaD De1pD6FD68V5X6T/LrBH+1xh+fYSOtkArXykOFtfkT7ddq/kP5B5Nu6JCTBp2Trm bmaXhj6wdZZMjrqr7bGLWQLI4UyjnZ2zMDs6RniDfsJ0HGjJt74kwZcrjMDabN5x y6XVfqyzI1ovxrfnp97utf9KFaXz629EWd/8iIgEAMLl6dWZfd+RLa2WkbKYpBW0 GKN73rnUzO1z6gtAVyX7kCV9P3ib4TQy9MQ4Coq6bzASAJqp0woZq2oteP2zhmuv Nz+NIfCkKoWzRRN7wL1BBIqE3f+AbeB+IwvZDAc/RoGnawekbUbeiQIzBBABCgAd FiEEPIoejn9Eyt4RT+1GS8m9pmv3Jq0FAlrftzAACgkQS8m9pmv3Jq1MAhAA0kKL MMzJXNIREHCdsFTZmh7XPux0JqOJG2KPfAt7sRzTcTZjROKKEuGNCtoQ7IIz73X6 Dd7on8P7Xys4l+x45/uhDnS3xvDbprxha2ikkDqWHviKHvKrtLu8Q3ECwF9DCQce uARbLTthbDajrw4SbqQWgQ4C8LZIHlyNc0h+0lcVZtCsbr8jxBDkKynhBEgbV55X WW+w58d7yzaobfIG/EeQUyezVUl6xQADiS/A+7axSW9Ii1Poo9PBqhzvpMlkn4gR KcjWOENTZ+Fwep1Xb4HuuvtuW3gdpopzTaBdx6A4v6u9g2JjgpINGwQh9zLg1+8k iZ/JdmOGzoIIFxI/tZrOl4O8sFlBajnnQBuE1nZvCUcIOjzNKeh/wOqg5hFV3wgo 046FSMcgYARmuLZyx/ylvClgbw+rYYR0oAFu+8Y55nFpiOhbT3fCjVwpPdb8n9+E 2GDzPNFkvgP+kj/JI+tPPUppjCFAisIH0ei/gTcFMxzkgA4SvG68QtYXAGFKL4tD BDDV39I92nQB6RFzecIP3IFGcTNbCSTLM1oLGzm1MHa5Xft6n8G2TdtoOxuSLbgA j/0+UQUWU+8TspEk+dhAV0rNhfKsHWqjS3JDZcDPNrUj9zt3AmlYm7Aky+amaiGH QrigKZalKJ8bJJIOmW0CYGr5PjXAMl/geUTK/66JATMEEAEKAB0WIQQPXJauyOae nI5ULlxtTNGUKfsD3gUCWt+3VwAKCRBtTNGUKfsD3kbtCACRMp9bYistKbh5Sjrb 7fnJ2HXpQAcMyYMxzzAoCrR6i1o13X/lb3yuObB3EStCsjPOIIp15aIMQE1UPKSi 7X0nKwj6Wxt8fph/9/VkKUDeMkXkFivM/rxLapVvaDJpQhrOWdIPq3G1pyGZYVxs MrA80jdqpcpjzFmdYwcTQ2Dz097iVSGsq2N2dNObzZsPzZ7gD07t32hJ0vrjqc19 ia0JrqShLeF18ZSFl3DbdvTFX8VQLrC6kDt1atIMf4oQIwDzF+1EFx5ImosQTHSi qC6Cr41yCkEpjzvJkryKvgRmV6zjdROpsglzoqk5VuxPgK1TWgy5FtZde1LLUswl Kb27iQEzBBABCgAdFiEEMLynRwX6QVRVcx17qvW13gW9zFMFAlrf3zoACgkQqvW1 3gW9zFO9lggAmNxo90dokXDyn+jDhddRA+pSAgcaEkBo1McfwQTDCGm8/lN3tC8j jenFVaLzg+PgTwa6XV7hp3MRYmCcKHMVzkDMx5uxsYqKDWGK13m3uIkOBI6gbKxt 8Sy9a/zY/fDdFEa+znaGJZp01MQ/kqK4naoxvw1VwFrPT5hNtLB+8vwB25JCNa71 mYE3cwjg2xr4YIy13b38iXGwL4XO/8EvCyHt5PeCIr9Reyy0ikVawfjLfzmC2QQ3 q5a7ZiLwdNQpL5vA5Y4fyFTlj2s698ikcQHxeAmov4H1fEZdD2b+H7EBVqDNXO9n OEJ/GAvCWIhX028l1k1YTbP0z4YOz4tAlYkBMwQQAQoAHRYhBEn2qL6EczlJUZFv O2HeEezidjpzBQJa399QAAoJEGHeEezidjpz32sH/1CLIwp6Hu+m2y0Ae6IzYB+R ZbgJJsAGT5PnmWZXQZIuGkmT4Ctaoo2IMPh1oolzjg6Vgf0ueA+JT4959n7lUf8o v7xYMpms4uu1nk0uGLUF91E7Azu6nVZyYk4Pn9ClbTb0VbaxlI0eMKlr3JqEdNcF Un1xqYwdkc+JKE8x0BP3glcYqA0s5ehKW7e/qnFPraN4Rhl+HedxcQfl1JaxRITY 7aOvSEZBN+2R+sEOHpEITf6sYAekQB09vjxMXNAoZbeVQcZso5Q6DwabvET5kDtS XIB4/e0xWWWwFdekYghZaVyPIpFJw3KHe3Foefote91ep1Uhpp5IBvUGC2eL8vyJ ATMEEAEKAB0WIQS4fUVphvGUhAflzLQ9aLJdUgfK0wUCWt/fVgAKCRA9aLJdUgfK 08d6CACvBe7VddSM+6gKbUaY8c/5iopR4f8lISBwO9lMcoy743eLC5R0uRh7I8WJ aecmG5QzPGY96NcnlJLnFPlA7EApN/MVjEOLO6OPil8Te+N1f9IcqIrERMeqkVcg ekZ0ZA1hlwpPO1CikF8HGsUMvojr+PsO6JQNPDvqwnNtH5j1HNinwD4JYetK3PBU KsAMYM2gtU/TjRXTf6WX+O9bAJr/7F4e/bJF7GIbxbZ6M1opFibvZObcgKD7xbTD mHoOOjD03Fh1WsMUZMsBQGqXvyllhsU8Fwjddstsj2JUODWDSn9Apq+IICWIWNCY orwTxxjFOfROSjIH5ZzfnMkSSc01iQEzBBABCgAdFiEEynqPOaJBn/+wqasnjlrp +87u9DsFAlrf31wACgkQjlrp+87u9Du9jgf/XM7SVrzLtALlkG36iZq9YhsInbrO Hh6Jh7M0HT+yYK3X4lRpvWJ6MsYi1CZitjErA4fUc7pwZgpPNPlvzNFcdMTngnr5 ZtZbFuUZFFgqDHX+LgnDePzvibtUZL3ZCHaJFcVHGQox/lj4AawOlj61+nmST0S/ CPGmP0pFs05wesMVZJAmYnbLyU6wWOIbcotNX9VmEd8QRAiCuvukYRyYKBc8iIuP uFBHJfhDkzUJGQuoMvFBIvYJPWVU75D84100P7oDv6dHhQVhWJ8URVfzJXBzacpn 6R6xpefkWFW5GcGWCyR47/YnMLC8AwjtJwzFzv4eiLWJgkh5odiTQoxVJYkBMwQQ AQoAHRYhBFhyYhipE0AN5mA2ATmkx32peISwBQJa399hAAoJEDmkx32peISwsO0H /RTspeE5jaY49uTBGwySMFpC8vRMQ16zpJlRYC97iFExdZY6JYRWvYiV6rvoOTf2 +j5xJgeUjqNuFmqUDrqpTGxI4J4UNrXxDc52d4Vy8kV7aBsRAQWuTqn/2SXyMGMT TEKLV3a81ZqdTrvSbKf6wmIPHiRp00w3QWKw9dBW4VGQ39a7ojrH/KzZ1tIeRAfo 80ZJbI2KAxVm1pzMS+gQrEOYcmYE12m0Slct12dRxjDvbJjwlrRl+ekGWxVsxeLE i0aHFUA9gAGfqrn0RhrIth4w4h6xVNztDK3OI6gZeTrMSDFntfCIr1wxpZBVr8Zm vOE3INqKFor7nQub8hXDCAaJATMEEAEKAB0WIQSxdZZEUwNdzt176RlgTfvyhUEK vgUCWt/fZgAKCRBgTfvyhUEKvqD6CACTT21nbX7cRG1MToFa7e3ktBdsug1dcdtc 33Gd27FBU/BDYO/xKH2XvHDcZk+YpS8CR89GzFr6Y5/hfp4K0vp3pJaS24oxRMho lwByWVinA4ZCD8Irgr7TsAjKXESn80P48bkIPZWkGq9nJhQ4E9l7TF5L6dd7xR0h nml/JM7PAdLrtX9wYx4K+Ars7GHgoJ5bcJZuzl7zChEhRJ0jOq99AggsgYr2FXSp eFArLv3Smy6nMr7NQMQ1WIRKIMw01uHXuxAOWsKIk0+bpQHVgd4I8qLtg6RZYABZ dDyQAZ7R/zSR2xpDklsjK79Mk3TfhURbzLQ+Xp48VrzW79BenIhYiQEcBBABAgAG BQJa3/MGAAoJEBCQryClqlvmZ4oIAIz+tnXrCyBceUse2ganLrxQKrxENRXya6IF zJSi205YBoImvOoUnlSddnteWJcy7UFCdYclqvKzo/NQtcxuAn31aJCdOxE6rCjg 5Ta1ovDExvbHiit4z64J53MzWOA/jDLwlgn59rVZHvjldn4z7bL3KfqRl2H3j1G4 VXrUy5NR3ldcbvmiNr/J4S9oky2yqX1AC5diRZj1mwkf4filRT9/mUPG7NXhknPe 860wV0aGpmip3N+Un4Uvaoc0es7eBl/NDnXmfVwDmDGpWSW13/KBHLQf/KGc96Db BiCBaX0VTzA80ccpNn4kBqS+il01Q+VjruEd17q0xWfOL3br/Q+InAQQAQIABgUC WuCLKwAKCRBfHshviAyeVZAfA/0btCG+re004G/YNNsc6FXg0/sOiOnDb6JoKFBA RCt9SOUc2zxHiPKO4Ne7cMKJzzX3mkYd/9OvanoSgFLGoHu7igGz0yev1JR9AcKp y/ayoVNPpc2zv5raXHNjT28krUdORJoBu+/4WxxkyEL831Ie8f/kRGTJMvijjgi8 5mN0WLkCDQRa3r0iARAAtweA/YXT3KV6p5M8SYQOxdkLlaE/kqmfDaBXE+1Cxvh6 Y9pvhgVi5z3ARbcL1ybxXviLUVC0FGDlBAbcp6IUOudBDbDzZk6PPz+GfvOgrvE4 wNYCTSSoirvPX9zfZ/BoxNpLYgyiii5TBD8I/1H6QrLPcdJZ5ZaXi1y98Bbshjg5 oUhsJrxUQ4Rgq6idhb9fDBQ9pYeGwYykwnbG8ZFXprjK8K42dMkDibHFQ6mIsW4B dDHj4PJrFGeLcTR5IwG9KPKwjjOad5mR6mOiwgTm1JGHthMwpNmI+gg274OmEq3c hqafgjHlDB1BwGE9lT+l/w1ufVNB9NC/TDX3LNl2+fquSN4knIwppArU2OiN8RIU 7cIvukfu5FsUYyjY0xHfObf664CftCkrK/vnNtb+BNjKat0s8M15h0Ed2aQxxwYo NiqLP5of4RxD6UHT31m15PKCN277MYjKdZDn6l8nssGcyZMyzk7IMhvMDF6NVTpK 4Y5B0W3nZODW/SwkFpHQo0Kc4vJAKF/nKS473jtdmLm0R8A/Ldp1rFQCV9VpbMAb tu5V0CKXdTjDRo6nNrH++oCjK44pAaB9qGHoEhJ1T8yXuy/lYdkIGqD+qAr7Vrn1 B82y7oApt9tB+lKMr7qvZ13bdDFH2iWkx0wpjw4eRqV+lOrqu0ky+ZP+LZcZdoEA EQEAAYkCNgQYAQoAIBYhBKaHPSSk1tYoSuQqdfBgWf1dx8w/BQJa3r0iAhsMAAoJ EPBgWf1dx8w/vRUP/2LNRt3Oiun/QLtzYQSZX/bwhRkDFExV9kMhugHJwDq9fzKk HX2oMYRluEXYfVDFjmWlz+7tJBeIoiz8mA6PTUT/iR8xPasixhAxsD2kfPhwmF8k dpQMZSiHzmQiAHPo8w/ysHYZ6vljGZS5zImTgOb2kXlGAgfg8ozfNs+9V2PUThxL p8y8NVsA02DZ/pp2VdzaCTzojYuFcfemClDiIsg4JOWmQXTBei02UP7IWewp3TMD OnPoatbGYMZOKjSD4vXLfyCVHfo0Md0KmjG+sl+Lz1QLIe3VaQG9Idtc2pd8tf/E NNW8DGyefewnI7MNMT0z+oEfC9RuePK/Ku0wTvArmPwXb+PXTscfM0Jaiga1O0fT l7RYsrPuW3FssnvbaLiF2ruHRLRP6d7YpMCy3S3NtVKQfln1JVKd2XS5A0Ru9cnz EIkiNVwoVK8gbI7qWmJfrKFFuSYxcGu3A7ari7y/MnpDgzUt0BWqHKBIqevrqpCp 4Dir49TlDkGuTXz6Sys/pn+rJsIyzwfgYGAtN4VU6Dz/dP88tM+nMJuNv2Ez8R7h qV4Sdj1WmtUd4DPZx89PxW+YF+ZnOx/bag4MNq0CMY0LijswENRV9v3jZwyy4r4p fvZ+LS/6hJ9C77uOaBqoDPmtpn0WDqc3oDeT81Ans73BZhwhFAjzpHp+XnJQ =K0Kz -----END PGP PUBLIC KEY BLOCK----- pub 4096R/6BF726AD 2016-12-31 Key fingerprint = 3C8A 1E8E 7F44 CADE 114F ED46 4BC9 BDA6 6BF7 26AD uid Sendmail Signing Key/2017 sub 4096R/18F184A2 2016-12-31 -----BEGIN PGP PUBLIC KEY BLOCK----- mQINBFhoDCwBEADYQ95sJfLifvKQQvGoYKQ7xIs/7xaAZd776TG4HwfAkQxDDgDJ yl+14E0yijWPwVbNGohytOS3MLbBHD3HzlUmxJZRz2/yCuh63Ok49Yo/84g6r99D TSpXTZGvigglS+hdQ5C7Vt1N0JwP8FVoRxJHGpRXxHBSGamzrZthdBUSvIfLVlRf ULpcV/H2VyCAO5RxqFsEIoFnaXXfrHBordArWpb9D1GtCPsHKP4wqh5+vev4bBzH bpHgz/385dDmaw8PZmodlPV2JhqzHAbevjaIst32vnQRU4ElKCuVkTSGNyb6IZk6 Y4sBd5VhzUCOqEKxTN8Wn4AOAWn2HRskZPRVwlCqjG4jjJCjHY5x8w9yjaFuUF0e J+OEN/ZPyXrv+qr0jzjAL5nNdi+P0tphDUUQp+cZNDAvBs8JNWQW5Ddtv2FJmmLb OvJe7fmtwD7cHXvQtAZWffu0JBT4A+8kq4IZAt6bCp64snxfLuYY8Iow3G1RfNAK X5uemQ9ME78irCuJpUgwPJeBkM3jrOQvrNyHrWXr//dnKjO4OXqFYKJMg87WF0Ae c/XKuQ+MltMyRPQh4+K2KQNYEtaLn9ryDK3JDE4DxCIU/ZxQbaj1GZYOdMlr0RKs gG+zVbTg4WMM1ru4aSHT3NzCLTTRmxXIkDsTt65/BVhDPuQqL7PL4Y+4wQARAQAB tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDE3IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQI4BBMBAgAiBQJYaAwsAhsDBgsJCAcDAgYVCAIJCgsEFgIDAQIeAQIXgAAK CRBLyb2ma/cmregGEADNyKfYq6z1WsFo5OEB0dwAUiW4fFWzlFT17xbvNAmau2g3 EWv54uNrDdE0sEX1tp2piELc4+y4vKytMU23MnaWpubeTP5A400tA34+u8T7U1yu zQ3B35t6ZJCivoC/MTxn44QyqC42/oAvePGBsoh8EmaEnDYijO8R/2R1lb0z0BQG DMmclYZYwZ4DxVD2r5eOX7vT0eOxRWfmgDA3H+O5uOP3616znhVc4bTlWVznzmAn r1G5Fui6jZ/7GhlvB0pLwfZYJ5Y0G3sw8y8go0kkNgSh9J+xLmWOzUBKkKUlPeiw eMjrPBY2KUf5u+li/nDDyhILizJ80XwcYBRRHCulct4dripluecYOLQQx56nNGaD Nn+yYsWitFv20jnfh9Tjkp5yeesCykzoSubUqc2v4U1zSU2g+SRPVqU2bi6Ot6TC RdyW3vVkNMwyZEERIBQ8C8bjm6ORcKWaiX5cQ8K0ClauMjKwsSp4VzSiuuNvLN1C UrOpKv8Eq2RTbVCDHNwDN3Ynm5x9CuVzKlIrWz8T5vNYA8OF2d/u9v9XBwTI3S2t zNJpCqLXeGWZj1IYmrEdNNZOiWikUbjVTj6tbEOXRNi07U9D6VYSHT5H3n7lyBkE WLvEb/IsvMN/GXmJDdOrEa+jPoAv6s9QVl+dtPzcT5ar0Md9KSdsLipZlpQm3oic BBABAgAGBQJYaA55AAoJEMApykAW9MzpnXID/2PhP4QCHxxnxAGpetXGs60KsLVn HHpPb8RqBhfa8+FW+on2DqMOHCwSv+poVKf/JyA6vDUXdv7JU4dFPgK4FGittD0I g1VlDsY4gZqlPl1zAqL/8hF/Yoh0TCB9mYKj/6sswTKcAoAd60Kl0FEqqY3bLCxR 8lOQks9HwvSiU6OYiQEcBBABAgAGBQJYaA6IAAoJEG1M0ZQp+wPeOmEIAIMy0TX0 7/8Tgd/gSTmiM2YE0LT9iSaJuB/aHe9NVi+JooYpgBgp6Wj6k2jnl5LUpIuVcW+i Zw4YhpfsxjZDh3b5WYGV6NHQBTncII1A4yqIcYpKk++wYm7GlmRM8BcsYMscdfF3 IzDStvbTCV1rylDHykYoio2uCyLRFTZoxtCaRUUzQmGzGG+FIYtw21ZDUzXY46/X 91j9AQEHyXzjSGeKojTBVp/+eJZ7UyrvwXUR7CCxBX3QlLuHOIyXBwM55kOEIOzB VHCKbet+Tu5fcJCXBcWxefJe4u+jtjGjj7RcDjsH1WVfCZkT1nVohrOsZ9muksT7 mIGlf7KoIVaDTeyJARwEEAECAAYFAlhoDp4ACgkQqvW13gW9zFO/wwf+PZq/fGGZ 3HrjuiuThPtqmBLO1gOelNPRvDxrBIJ5ov0blSkdeeMfCzZYY6dfsp6BrO+XxDEh hcg9chQAa/PislHkSImJwN4AFkqHNrqyGJmiCxYDkSy5vvOBRtbqaHTf6LxbO8eE fqSBf4x2WotL+S/6sbOQj//O8srdI/hHIgU1LUGkbO7mMtYUOeKk/ivQc3TsJk8x yU3oE+fSGd43WqPMExPBWFx5FjJiHh6JCBL8hbeg8PMJcN3KBg94iIASh+9u/JCz jUV6QM+QsNFaK7xErv5FGNjZmbSiJgG+sf13xL1zBnclchDzPKSoSR07jXJSlwNj 0N71dLCs2ijnzYkBHAQQAQIABgUCWGgOowAKCRBh3hHs4nY6c+6xB/wKmtQShDYZ iHQm35pD0osoQ07iY1n2mqKQFSPTiUcl7G3TfO6HWuQpAkQiUsMbGMXbl6Q7/YnX cA6/vkLf0S0uV0h1lXs1P3kNao8U7zKdt6vyWw3tYA4S+MHGKmNZSKM3anDW46mB cTxdvkeUogfw/qA1CqcpTJSq1RMuV8xNxU3bhEpdpbnUbXjpuMLuQ8XHYerg/D01 npnee53/vvup8ZvGkONdPzxLj8aa714J7ugIz71VCenBvmv9oLDaiqhCfpVkxlan J5fEtJALXbM29JmCXD8ns/LSjlGJUfSHm8dOssNh6zCqdSYKrNV9pI/SZHNXLz9h T9Z1IgBR69MJiQEcBBABAgAGBQJYaA6mAAoJED1osl1SB8rT73cIAKjIZ3ZWATeo BJtdl/RUnp2zWRRYVDgQuAoRTeHGrnNaY2QWM9XaarcX7frUJKiTPfSKpFZWt7Zl u7OKMq5AzbnAkh+kYEYmYO0/fd7wdDaQ6IEXw1xSYrtGB7js/VzUGzsikZH3437/ ix0FE12N8z5emLhO8progdJDq44jlJZGfdVs02TqvdweyfKBtqy7yQAcIthwlxMp ts2aVAF3Yh8jV0Wnof2QNrIuTpXD3MoH8hFodP0Yfj49F1NVvvnDBJ6w4L8sWl/+ MzvsB7iLaEUz481fc+cg8kiOj/IdFapVthJQ5HBPI5SzLdTGzynLARltXihIvTgJ DOg1YYE9KVGJARwEEAECAAYFAlhoDqoACgkQjlrp+87u9Dt2cAf/ZUIDOtJfIMZg V1JpfnPeFYy/8U/9SRVbjggbSuEqjdL7T3QDvJm+ECABQeX0xuqQMFdfAqMH4jNa Kqm4aeujMGqcCrVg9+nrwM1lRo7gJfX6VXFL8DC9uss1sb+mhfG7ETRLdLN/w863 tsslbmBVGNzrrEjBzMz+Kw8VFur/FLLsl89AMhkj0elu6uto2tGuuJTrCRtyPtXQ zRhTAHwU/xZO2xeVAlqa9r6b/qYee5gQhpfDfxWxMM7N0DtdMkBavZP9mtSaVraG g5/89oFlRxgYhNwb20pgBnKhlYiket5hn94feeWkzqXNJIuXWtfvxyfGRNzPUSxD fy1iqN6bz4kBHAQQAQIABgUCWGgOsAAKCRA5pMd9qXiEsLehB/96quvQvQeMdBPw rCAUv0TNgeF97HCCjLAuNB/2VrFJeyBipxBIwot4ba3uD5OHNMAzdwMcKizb4iwE KxiHWcalZSY8EBxaq3T9X7oBpLmrDwncqpA7HLVhCd8Po42W4AHurPDFuzvHpaYv bgusZl8rLDC3UmfhA/o3bKgq22EcwTb4uuMGUCfu89+wH4Dd+sXwU+hM1wSccqCK BlfMYVkLZf+r8dkwiIEdjesZjcmZVsYkZwLve6NNGmX2cYopBBTfFplKe3M8mfnf 5+29cChN9zwDwUAnSLiIw37gzOoKnunXr3KF3GkaW365nciefiwDbnVrhSF9jmXJ J3PQW+SwiQEcBBABAgAGBQJYaA60AAoJEGBN+/KFQQq+svoH/joWMORd7D4zPTcr ytbCbmklEjk1eF+0ivtsUEizD+vYRjmEQAUgDQxIn4pC+oIgonzu0LLXrK7ksyN+ MbYp3bp/4n6fU042XXglwsanpsuptD//fywa7ESNAwN9rMVKZfnDdYQH03rnX9El KT2SNmdC1mGknRvT5OYLgbEYxe2tzK7OIDQUfJdkE7KE8Lj8YySqXP+vuUsWpX9W 6IKeNtNY1d1Yqxh6XQqPDh3au+9d6OpQe1THc6rosCh/2cW36WFJLEV6qFY+AW4x U+6tInWWCymo859rwPWRKukROD4hMDvwSNqZnH2Bc2awWrMwifDuiCghzXkpXUde +nUhZEKInAQQAQIABgUCWGgOuAAKCRASiW6bp38kKVR8A/9rUMeDsUo2w4mRevgr KRuOib7fQsyBQ2tDfr1VmAC686fTTeVKziSuauCIiM5c4ZYlvnjo+wLm7HmpKmKq IOkJ+dpC9MAvRGXQ2z/Gr9C7pJ0p9EVgGNV2tlfKESxP1ADS+fdS+Zpw1x/JZcHy LRq36JeEWqd9SGnYQ8zkLtl0YIicBBABAgAGBQJYaA68AAoJENiq8Mr2swcpfIME AJyQU3wO3lRw/RRrtmgrnpoAL6wHGFI+kdiUZWUc2Q1qC92RsE2i0/wOLGquXla0 LQ9GZWTW6kU9yB0+SrFs4unHuKbRGbLQRkuR/Z6m0Uk+/oeXVLmXAE1ID/q3s3Fc V6v/ojLLaPwX6Fg32Ns01aNyQbxnWzCZSGMZ3QeeJwcLiJwEEAECAAYFAlhoDr8A CgkQl0MBGHCTuEFezgP/Sb7C7rMa+x3JSjpHDyYokOTVVc4d/RF5L0dQvM/voQg9 aCec9CNHtUSPSzW68lEI59WzpSFv1HkpiPrRFiim/t1twaw97uU/0qFqdHjmS9st qK54XsEX0UbhefLA/esVpKRk0F+XJvb8XdxKLUkpkfFQO2izdkzNN5bsDPqfdjOI nAQQAQIABgUCWGgOwwAKCRAee7PIr5WWJRSKBACaWQj0KI6L+jBMhwfR4fRMtePO PcqDyWvRolu4XcqgwxVIVPGE647ItuRjHt6byHeGz7psBWnJo4oilYD5B+uC7Voe Bsf8nK0hzbEoKE/Gle6/O0i4Uf1f88efhYTvfvCD0E48HEy7qV92xs5sXKiU2K9a dGvGmZ4YyMvUx3TUVoicBBABAgAGBQJYaA7HAAoJEHCgJE0e+ZJRt+sD/RYutdJY TxM2n2WtW9qU2mxNhqpg2gPrKSCa1ecXkSG2nwOLhAtYYMJ2Mmw95MAVsJel0LQB YO4yjIsM/kBwkcvRzFfgMab05Iine9lMEsIAe2NtPpLNGnJBZyo8e9nWoPWko0Qd Y2W7WkoXH5XFP6Ab+BlgoyGAS3X6Ux7niPjriJwEEAECAAYFAlhoDssACgkQyNXt KZX2F3F0RQP/QGqxK59oyA4WTKoaVDKm91ZE48oCN0QH3mRiC+eLcmrHaDrQcWVT Y+Q2F3a8ZQpCQDWq46t/OR2G6R0zt3Uvqrgy9tqNuzs30NGWfDpQoDZJiWitJEIi 9emmJ1lWSa2OE47vO29/Tka0jr4t9o4w6mh6+LvAVy391NmInktb0JKInAQQAQIA BgUCWGgOzwAKCRAhg+GxOW8HiUd1BAC+T4PhWhZCl1UKmBpqcFzR0FuMXbKxbfN5 nFPQmaUoxm7EaTbTqSh0iNXgOOpPt+W5C31+eATVmv3t8oMOmk2qt93lbAoexPpk yETfqLgeA7AkfcPVEu5zLAlSlqpWbWmocy0+RWLRr/vgdrOTu6Ncf8Y0ujoFNITM LvDhFPVY/IicBBABAgAGBQJYaA7TAAoJEIlpYrhnjAoDEfID/0YCPh7GyoYO3MH9 xR5oNLIm33FKpg48OIt2nq3vW6Kq0CHeWo6MjiKbpL86zbxvluvKWYRymC7uUPDZ pimbvzXDuwOvmBsyX6Q+YpMaagBVQair//ywWoVLQz3+2ror0ng4BlDpLYzuvDrL 25c9FEqbYoagGHdlsmEe0APb8mBziJwEEAECAAYFAlhoDtYACgkQOCLbR8w3Ty1k lQQAw2Zr1AVvTeq3h9tjI8uTVHTvqJVvObiXIaQBy6gvnRgBiFmvtjySSl/N8Pwf 17IIFTVIG3JvhAYTO4Sv2D9D/8l29C2sDXq9wJyL+uWMRywZ+3c1IyP7VVt3m5t6 8tZqElt1mljKrriGlWC/9HHHqip/rR7xdBxiIqgBm1QL9E6InAQQAQIABgUCWGgO 2gAKCRCcHL3i41xWNVWKA/4pr4MfBe0bDk8ycaeiinbaUSFXsY5z1JfZAk5SrZ9T CR5gHxcB9ejR8WAPFfVeKJYyeFCP6tWGwUjFih54zHtary3MAfiUVMv1RfrsPys/ TnBolnupYgQZVQgiEVIshO652I64OIbMAMji0XUNBbI5gaG3JlcIjFx3z8mcM+ew e4ibBBABAgAGBQJYaA7gAAoJEG9Sk9ijm6ZVtEwD+NlQFU+rQXoqiN8wRfGZInbz H+rD79xZjOUVh+MOCsvJVEyv/RpZH6zVomufx+/QCaUZSBhllPxfNSEOW66dxxca QE9tf30u4K+dsVXthZFqkmFxMiyAneTgSxYvCgz3XJJr0MoHdMBfGdANy0zbdeCG mVNdBcoRb5VBJNyaj9OInAQQAQIABgUCWGgO5AAKCRDvWJZk1DLhnVFNA/4mmbKZ 8I9Id+gOPzflFHNpzxCS3Rj4mSmK9ZLgbhYeLoOb5Ts+sHPG20m1Yt1HP4PlWBP1 CtfB2YjGUiXIEPvmfM/MwjEPQFmn/nK+YS4fRLcFhOnEGr9eoSdPc/9d/9QkHqrt wDY6xX3XCJwnYz78bwfeayHpADY/yQyvhOp3SYicBBABAgAGBQJYaA7nAAoJEMGc HSUS00YdAR8EAKWwdq9f4n+PDYvQZOd5N8OY5Rp/L0HB5iLTh173DKBmVBirlWtC b2147CHekJFxZ662TGzocm9oxV6ixZXOcprXlEmAXDJyOidLGg7vaUigeBCy5lSm gvJ2tXd9GQpO74sWAfk0j6+WpBbfXHsZIaK+SIYAx/ezo0qrcPxb6xiyiEYEEBEC AAYFAlhoDusACgkQGPUDgCTCeAJ+RACg+FC+FF1fN6tMpJmwJ41+moGazbkAoNe2 fHaFwQOXy9xb8SE+MD9iTSGiiJwEEAECAAYFAlhoDvIACgkQfEtnbaAOFWPtAwQA sThm+i1k07SjzuwgVFLOxEupI222bMxOLo5Gq4lyd7LRGrSSdANM6Sia1gHfzfxy ZFG39Gux08m3J6D30OrOXojTYJAHbfADqTxVclrv9XqsQD5CnjwpLC1cB+tkzTS8 /BhZnZ0+DH963LRdsiipdOVAPkhHMKj+xFjNb1tYEKmInAQQAQIABgUCWGgPBAAK CRDW4KH+T74q3fk7A/0fjkO+xcRDUZVt1mOQm53HBJEQ7hNAYbs2Ma2+j49MRPb3 pVvcfSfAD36JRq6dAx4XvK/nXFxF2l96UQTaBBOvmK3KCGOqHFyB6YD+zoNioK2/ MoezyU2cWhTSpLRQFmnaw+m948mx7lAIAx9X17OKxmF+bZ/jHnq2Ih0TwFdFSohF BBARAgAGBQJYaA8KAAoJECH5xbz3apv1E6AAoLP9r1b7OPxluSz/VowXbiHP8diO AJMHsRpr/Tx+SrE8Mo3czvVD5GIHiQEcBBABAgAGBQJYaA8PAAoJEL0nbS5vz6iF 9CAH/j6casIOBJTVSOezY+Yuf/ZFsVFqRVgxlzDflrUpfG5GDoFlohXmbrUNJKl2 0z6vnV8rnsx9t6P7OOuD9QqvP6mu5Lb0GDJNb91qVgdNFAdoMWk8GRVbZBwzIRKQ C+ptri1BjOCmUZz+/ZYAtrnDT+CYFj5XYkAWKUqfxUcJE6jXT8LcXEKn1ozL6bR1 eYsUzxG+AYdC95CRL4LtpsqdaZWzOTig6ZfqYUELcy6bnb+Zjya4xmxVGm85TsL4 S9FAzjhyOmxblkDEEqHn3KqUYmNPsCtJHvfbptXoZvemrE/fJBBaTHU9C8BoI6Fw mkm17l3w6qnpe5qUcb9sOaRUu2KInAQQAQIABgUCWGgPFQAKCRC92o/WP+p9/XSo A/9Fgw6ckFK7W60ObceuA27So9/va5egW9h0Ll2zQSiWJxY1I0RVZxkfLa0OpyIP M9ynQGLnLKIPsxiTrTtj/t9vIQOerQ5tpZsO13HSRyvu4PWQ3/BNnMCCq5hIE33v jpcUz0/iG58D3oiNKzwl5UdROIaZhjF6JljqLkZq3E5iYYkBHAQQAQIABgUCWGhS 4QAKCRAQkK8gpapb5nb+CAChSJWFiL88T8AZ/hPp0v0KO1MDtkki1P9GaT/SwS2v AYHiwsUFdgvBeiNKpUVjEgbLR0pqGS3neCwJL+4g+rnOT3NMmExjr+dGIFkH50ws snkJRZifGFzvDf9++38vp998YsQuWp75UiM/2pzJc8ucUa/qgXpntNhdyAR0GQZa HhBhtrMI1AgQEMQ/c5UYYDyXgrrJiuo+VoF+PVRhwWtWVy1ughDvHI053NM2wG+s Dc6apU1Ibl2VQCd6moYqBv0PNhJQiXUo5OUFJmNmbt+c0eFFpN+BWPDLj7sT+JH/ G6N0SZGlBt819UiZUiGti4EtXpSu+SixxGg1JcrbxDcPiJwEEAECAAYFAlhtOJ4A CgkQXx7Ib4gMnlXF5gQAoG11bTOfJnnZSuKG5TnZWgJOHTIt85T8DGALITZ11S3w /jA7U1sgNlYybJIlttVdzUMxsqEz7oTLIEV1peSSQ/vqVoI6Kql7CVyRt776Vwcj IXFvFP5Daxmz6WElzElysddhN4/50whJ2Y+arQsXV3XNswqMTmh0JHK80DF5GoSJ AjMEEAEKAB0WIQQSwLbiW6mtLPG7S0LwCvbqwkXSCwUCWHCyggAKCRDwCvbqwkXS C/vjEACDCx1RQXgw0VV464doou7d8dagHlEhvMQC6EKDqzPjwt6Y1ok8vN3sMlmt xI5xdMUr+zk7iZ28TGw6mjvicljdTzXqrL1yrnJbsjvx/1odukoqjv+KnudMDbDB nmgcvlHlLc4CeF7rfEMV6pSUuFuNtHMv1fK03pUmA+e+ogtSbdIDlrHmnQllKtdt QnXxQBltV7bUG6MMc5+MDQaH+AD+dvHifg7j2Uq08edckEBlJpTiOffb8qzfeWVV HPxPpgZsQkAI4kOhHVxpTziSZkYoKsAMGXQvGuiNnXpZT5AGhsZNq5jmFFqOKCD3 Gzmz2rjnEe2RtF8NxGnyqwXuO0EyCa0pyWhfozuvlCXE81QAilN022dCRk8yoyct 9eEcpypfkVESKdmwL+nWGzeMbUKjJVYCOmdYeK6lU7pv4g4WTLIlNUK5Z0CsyR9z vWOKLTBaif4NOpXbLQBew3J/5Uye54xTpo+xc4E1Ys2Z5tGcXonkwN/JM4Ah5o/Q es1pBsqdZBsr6P59Dc8zljIHdBy4kT4M5F7cA34YmWZmXAPrHFitMeHSXIdI7jFu zVNBptJwJhaloB8D7oVu6ZbKaSCxI0rBFkImk/vbgwvsa0laAmfvIpnCs9441SLv fcdnpeRmOZwUMDO12Kgl9ysEWb0m0+j6wrEtfdR6rC1t15/dB7kCDQRYaAwsARAA nLdbByiQ46eVtCXp47UCiMOHnltX3Np0KxBTEZccVR8an/G7ZJHA47jBbQb+ZKMJ KW9FYYIChrcMO2oclnSZpIB0EUkGC9P+cgr2Oh75Pl8gkRwcS2WQkJ+ytEJ2HYhS TJI+HaZV3JJ95L5NROsR/b7A97iT3QhPyXbzwlNhMK23SfeVWzbRrTol+mdWgZGJ q2qXOYZURi8jyiTXDiBZcmiLna7x9boKrJ6kZVP+MNI1CMWAmXrINas4HpTLxxSu btJgbYVom6bimv19U0X+NgkDLKv5oUIXYapjXn5xXW3LS/VxAdvHlSsj0IyfTFg3 2rP8eAt0/YLaqRK5ekX+WNvpU3hnePKJgNLyXC21oL389tpgWHp9RBR/H+3cVOpx 9CKqJAQpdWSs57wVcYLVpklxONsWEcVc1OV7VIFdXdNfEyetIYP+241VeEokOOFp U5CHD1eCYQQpzBpLLHeKAAexxVkwVzUyLcsZWZJcPvOnOGPin5wROcO/bh+HQMjN q5LuKHZdCitrwu/A4dtC3aZ6FjfTYb9n8vdVFHZt7FZfUqW2p2zjrcKLEyz1mF87 0PRhfP0/jxB2ca0victgkCJzyKdHopnbDnAetbtgTNyzMT/RbH4lx4sxGUVILQce 8oX1RjnyMJx6/5Cv/0mKtDnGDx7aN8cuSf1CHddRYiMAEQEAAYkCHwQYAQIACQUC WGgMLAIbDAAKCRBLyb2ma/cmrYEzEACkwcL57TyHTTpS4c+tYurga+8rNYX6UUl7 TvyhhXPrzQT9Z335zymHMFuWRwdBHYuOPcxTDgwtP/wR17csc2Azn8zU4GuX1WLz Hy9sbD8HwBe5fAyEND4YxJAlMQjU/BYqRxYJ49erW51ezg4WzBDOGVySm+kYXh9V eYNFI/S58GxleiaEkdv5g8LofLopX/tzb22nKT00vtA9ectsKMgGyuui1/SvcWJe mqgdr7X1IAM5+SSU4faQtJM9QKJOCHYKgc260pb1qcQx91Y2KKpcF2cB9bcoOvbA QVfE5uo4srgtKJf8iOFZ4tE9FyCiCq8Qt+YxQywJzNiwdjcM+FCqhRife5xXDNtL ybq4HbrXN4L+aLSSFTorWrPEeAnx+6EMwQpsbdMsHlje7SySktj5CND2+T2qosUG HvMsbSP0t7SGo0qjf2ofwle3279cCF3qVueFcnznRJ2WfffUaGhlTw3X4i3vGu+H HDWMfe3KNr9cKBJamyzJr1WipBETmzyMrKl4Z6RU/eCmQEbJaEvc6FhnubXLEMrC FtJxkIHVIx/VvvBqS3HEm8QCRvr+o10/Ue7NljolDV13B7fljxgvLFyJ8T91jWsz 6MGjay1ZpIYzCFSZkwVaJsS60P2PmdkUweXkeyYQCeYcgBFVEUmqDTk6cni/i4W0 9M1ae1yHng== =Lt+h -----END PGP PUBLIC KEY BLOCK----- pub 2048R/29FB03DE 2016-01-04 fingerprint: 0F5C 96AE C8E6 9E9C 8E54 2E5C 6D4C D194 29FB 03DE uid Sendmail Signing Key/2016 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1 mQENBFaJ0W0BCADkmhq72NAOGm9U3TO2frUeYaHXm9+hROoboLnIfYp7W7CHGdRA g8tTDBVYFD8JFAeCIzI+Ahvergbo6QG4xsOOtffXPClJbGgJuzed+ve45sCY1EFy h2DIBrxvAIaqgOk5YZSYyLrX4eG7iDOxSNai5j0g+ykb5ZwZCrE1eYWmJlFqJV7X 17+I41fk90ZR3uch7jA7GqOgbBWHk21odSWCAzxf1Eaby8bv875YJU3WxIpfWP0v XHLP6Cd+uXX9+khvAIYfpDeOuihAxxLXZ9ukOaOpKWwxua8jsJftfxTox+qdMONi BJ0J7KQn3E+dC+napjez/BTK130Xe07qnZ8zABEBAAG0MVNlbmRtYWlsIFNpZ25p bmcgS2V5LzIwMTYgPHNlbmRtYWlsQFNlbmRtYWlsLk9SRz6JATgEEwECACIFAlaJ 0W0CGwMGCwkIBwMCBhUIAgkKCwQWAgMBAh4BAheAAAoJEG1M0ZQp+wPeU6kH/0/W Hjo58Ag8A8TRVonAKKv1dPoffc4DYsDIqeGSLrnMWjrToUE6U96Q8krsexfvHBGb 1Pn5YPGb3ijIYcGgkPAFnGs2GYcO3IF2SSNE0hQKT8YHNDRVmVJkw8pbfqLLWvSQ Sgxf8ZYTuinJKlAVjHlc89EPe0jE956oa7MaN5zE37EXYgsLZqRqkZpNZKkONA6w BKFmXe1KpcBMqSltPV/z4G9CCJzvg/64BaxXzyzVr9YRFREYPhTGgmrLA5Sb6Z8h xQ81YvarJbqJwfwMO6q2IF+boAgOIUiNOmNuvDoIMUoihNxK7aXFHcMdB2/pMR7i lL9gV+MeZ8ASDuaaYH6JARwEEAECAAYFAlaJ0skACgkQqvW13gW9zFMWWAf/brPa 8Nx4lHZ7mGm4B1oF5jwJPEP/2jtV1OJwlki2AMDIxY/1UZMgiPUxzDzAylgxLWPf bHmojcRypi18hH3iybAQA/DUQlK467ot0BsF2e1QYyQMOe+bIBfDVYD6wGUpfNO8 JBRpibr3lnUGO1LDB1xK8dvBJ8jLSYfh3BJAKY66AgYAS3vKlBMnL4Tfok5X0fvF U0/nGnZu3A4h2bO7teqjH8IJJAzpFTCNqeGHwONPaioQl4W1T6UevaW+fKrBg68H pr9MSUbGZVLLIHvrD7CQWyIcoPkz1VIZxFX1fBTgt5vyJ4tun3X5NQ4yT3NW3273 CtzeUDzXneU6GvKdJokBHAQQAQIABgUCVonXkgAKCRBh3hHs4nY6c6b4B/93lHVD AO0C9jnarZ3EuqDCFNgsLukOWUTBcGuwqhSLJP9KG+lP6zkevPIRoOMUC18/brli H+rJo5DtWBJ9OOUT6Xdv/0gllzO9gFkfQSEUE2NW4K/68krAUJBNYif++EfqsZH0 gXZrNvG5cyfXgataNWTLgTg5jMto1O1ixjPHt7ATznYorE1/ChAvP5nkq+VXjdbF hpL1ZXT7lJqgRY21a97njI7SiBMmeQMoJl/QQjQJz1445N0YHa99Zdw+tQZU7S29 8wIEuCcQJqW0liNN4a/JCnxJYL68z9zmHGYpFlQYmcaeYc8RnkqwYMcUvYIQHeTr oCtWIGljdXWfGpxdiQEcBBABAgAGBQJWideoAAoJED1osl1SB8rTVn8IAJcgDth6 JMtz2mX3eT912GGM6mrUj3of5db3PM6jh3hl9cp3KS1TAhiCEx1c76x1Bviyfer+ OonsjhLzc/E2/TJu628N5964kJAuPCodlzSZgoj9oZ/WThlInZQvtQwO8cXQ3UCB Pyz/FQQ3qMOW3Bh/9YJHyBAbOqp9AcIw4V41o7egbyMEDtZpJZTrTSptV/QIYj4J B/RJIUtdVruoDX2ELFWzeiI69rQoggqy3c9FuQKb52rRP3/bKWpr2DtrqiOuAOML dJd6al0qGi1oqZXWcHA5snklo3BNTehtC+d9sFJJNpHjgLtJ2lUVCLD57wPhCmvy +9vKtnkt6D/X25WJARwEEAECAAYFAlaJ16wACgkQjlrp+87u9DslEgf/WWZawl68 /8cf+1auJnuutLgTep87UQ9UgT5Q1f9APfxO/M3LS1olkWujS4/IV1tJdn0tMrLU CRIso0IkxWHxFg1ZEiw3zIZVWZT2kP9y0paqfKEer6Tbw7kooKAgPD1z69wiINQf 9DDo84CXWQ8zTCZbzNxIu8ggj+NnXzOS7Wcngevo0TEnFdY2IHbfDrFWKNisx/Uq j7yb7jb57wJfRCf+r4hWDWcWtuCOSBpdcqNGDEEoUwHCLIf29d4XWPV4+xqq56IJ CcdJOCFB74FvDvNWrw92xr3Wegq4qpRK0XX9PEXiHPFjSOUt7zaK1xaXU3wNN22n peAPeIxROS+LOIkBHAQQAQIABgUCVonXrwAKCRA5pMd9qXiEsNo4B/wO/jChEmQL 66pIQ+k3egWmpOOa1ERPrCOofkmHcKGvbbUXSj+4Re1XpKylouV62i4yK5lRDeio rl5dd68bnyNaxmpvDMw6HuTlHOLO1EDBIHXF7JZIkG8plUo+uHU7tOF2oYfdR9I0 M4DiuSjCgJEDtkCWz2cqE7U8KnsQuR7FkS+7eJBVjuX0CAeoHcahDW6JIZGsnZ+4 LWxk+RG/bVgzG+Zabtx8+4xatSVVa+QvyP1CzXSNEErO6spI4BtvfSA9xx63Lwms YqQ3wJQPyuEsx8odtLCOW1bPNUQi5dAJESfjvgY5noiLe58tKeIgKOuMcA9AwuHA 58gkvg45wzmTiQEcBBABAgAGBQJWidezAAoJEGBN+/KFQQq+neMIAKCOcg7l88qh X5QXCZZyVzDNnQjycYgx7ZZoKiEJREQEzQEMdrWk6jp2R4trzrvFSH7sLjsEfh/W d0frPNsO5QXOZzxVDzH6BYSJJbeLA82ig9Fq6/LIswJLoxPv/O3ircoLfkw5NW5a rOYOXih2ghPFIJPqivMOOV/q9DbX+LDBWZ/czrdXy/NZ+d31hDw06b402VPCPuQG Fg3rc2ZcGJfYdt9tTweXmwFCoiwQ0dBVQg/1r1K0CwjG/8gn/PFq98/dBe1Bbsa0 ggJ+/H3I2iAC3ftjR3eMzsbKCJpzLcwWn598dnEbg5fG0G6OPD5lNUAAMhMqlbyC bmvnfisQpSGInAQQAQIABgUCVonXtwAKCRASiW6bp38kKSOPA/9aaiuJC+gncFV9 9j/30zfDwlsqHHts1XQvjpVMuVZ/1A1aUUuimvTRI4L1L2zqNsVYv10OORnCdT5k kOJt2IqV7EtPQahJUtO8KmfTD/Z26wDyNSTeu5YAFR23KbaDvvb+nSsCUUj6OrDT +Q5oM8zRg2W16l63rZ1+41g+QHt5lYicBBABAgAGBQJWide+AAoJENiq8Mr2swcp +e0D/2kyXod/pTfUpnC4mzFGUDkaAf8m0aHsuIxpWD2OeB2WHweHAd1qXcuai7e2 KvOLqf98UUs1AXcSon1NllveDw9Z2+E+lp87DOeeTTocBH1Y52f3z+2mdF9KA151 nvV6RI71BAMEK03u/AZmHIk/i4XLPxRh651Gs3QCT8eJLvFziJwEEAECAAYFAlaJ 18gACgkQl0MBGHCTuEFpZwQA6Mltr4rYb8OlwyRyf2ROknA6hVD7B0JurMPI/5DE V1l8fXeRFRC6WRIMk3DAAFs8uv6VejaqSiznteLZgYzZmpPN8L68y+KFVZJBq1uN YRNGW6J6WQJsNsHFMqC54HfdlEOJM+T6cflVKcMZsN5yxlWUe4+awdgKnhlNH6OO ebyInAQQAQIABgUCVonXzQAKCRAee7PIr5WWJaw+A/9FEF5x1oB3dG64VH63hFEJ no7sD84D3bTf3GBTuAkxOi/uGlKx4Xd3QuJSPXphJvA+I6FMRl5VfpNO6fc5OBIc KXXBOuBoMBuWDS+aTR8nPd+llNWjBVICZT9qcNMDeCkueRZBobq8rs7RIsMEbLoR GXyUn4V/ICYr1IdKLn79IYicBBABAgAGBQJWidfRAAoJEHCgJE0e+ZJRKE8D+wWN dXh+/u1W3LEMVmlaQ+9Aq4/Nu7i2rH+e6nG8KYQrOSmI3hA1c4Ho3Q6gf9V3WKQw DdUfY49ZOdN5CtDwskAiQhv439NUQqxxdz3EeOlC/SPIWhcw6NMRkg6hUUObt+jV JyZ2GKKbSGjvUkfMwtzAUssA/9nLWCinemEKLsDpiJwEEAECAAYFAlaJ19YACgkQ yNXtKZX2F3FsLgP+JLQbaSDwCMcnUGVcijbi2qAvKar0txWxqwI0ZIbZdIq4IO7t f4Kmek0hoBQBQg5esMiU6ea5gUhAvuCgNb+lrF03EXpILuO9AIs4rU2qvE3wW4a8 RXVylnO+tGvacsn6gOJi+CWZm/m3wEMFcgBmbG/VTBP5N7iNu0aY6YMW5d6InAQQ AQIABgUCVonX2wAKCRAhg+GxOW8HiWhrA/41ZxURZ3Piq5N+7S0npeAdyC+nemw0 J9VK7fErx9gAo6gbgSzCU8D2isBbr2Gxqe/YE+W3WTkM60YeghWS21bahjryvgf8 kXlAV+obJvOUpDS7JX381AzCTzEorz1PQIhy1/ItJ8ijZ4giRKl1ToqeuxDlmw6E 7l78ujX3qXHfToicBBABAgAGBQJWidfeAAoJEIlpYrhnjAoDEvsD/3U81GrzKOtL KeCQn9iQZ2c1WolscovaQZULFuigvUa0TK2053fgEhPpQSUrzuj3IQuN232Amwhg Y6aJMIA4wwwRMCPYePNZRd2t9p+qq5OHR28p+MZFp8QIWq8tHtLozjL2uyCupcV8 c9fl1tukdtuBsLSgE4JdnKuBGFb4NQtAiJwEEAECAAYFAlaJ1+IACgkQOCLbR8w3 Ty0kAgQAq2isDrkRE83FPVbAfxIJ4w9ZcBGmXoZ+Vwlv4bgy7GN1a8zOpJtGcd+c I7U0ys91WI3ArvLpHx+dXid13bKTJQA81WvZR62Tt9Tqm/zIxxl/5zFlAAjeW7DJ o3h+cPEzKzbgVan6cpb9IOXD46vZKsBH/P6CnFZxTEJOu+zZZRyInAQQAQIABgUC VonX6QAKCRCcHL3i41xWNZasA/4jKcnBLRs3d3EPcsvnrjspYHHltrgl/L1WJGTt sEYNSgYbLKlyKSP8V5fw84aKWcWMo/ybFphoWlhxNzgD9WQbSmdIuG8yr9H584nB xmLF27rVy5Y9RRRfT8SkrpLzaHwNMB/GLj32bBFeVybkBeLOPvLnZRinJ1xTRg9Y p7XC9YicBBABAgAGBQJWidftAAoJEG9Sk9ijm6ZV6fQD/imLBVwFAL3Ia8N5X9BP Bpj+lmWy+6nn4zgfFuckqlc1GdUtXrYdyMHyVBRk2EqF6nDMH0YX0N4kSiMTqu5P gQbdkHbWh4XGcdULBnbkBCaoKrW6vYFbaDWO/P3GhlNcv7BMzbpOY2FyZsQ1cReE QuFeKKTbYv1VPFjVXdvdrui9iJwEEAECAAYFAlaJ1/EACgkQ71iWZNQy4Z3SSAP/ UajwhakNQR9+sd1nkk6tTy3yVI7tcp3Do/+r8+t5B8k3+z4JL5nO3hRQiSQ6MD7x LqyJ6TZorBFX0zKoH/ztFLVB2iNYzAn5vhRPBTYrwJjFUC01vPbMPj4ti7/Ag60k ZhTWpjviluuLoft8mYimE4aOwG+KzKtA2ClqZLr9k+6InAQQAQIABgUCVonX9QAK CRDBnB0lEtNGHe0+BACLJTAjo8rQOJShKAO++vOtIUwkCxgbtWlQS+jT2BL5c6bM OrT9jmMlN0w7KPks+tBvdKo65F4Ug2n0nTHGy3uPWHf5mRjFzqdYUbMDUPHvOVnX ufZVSAMZsJB6wVWUfyabq+Wt3Mj2QgW8FzphabhxLTNgBMh8lNLIqapfyjQzWIhG BBARAgAGBQJWidgIAAoJEBj1A4AkwngCG2IAoLOPIwc/55fNRdzEoUgpzMERrGuG AJ0VSfxXMBYkP+ymIR5Jw2pSdMLH2YicBBABAgAGBQJWidgdAAoJEHxLZ22gDhVj zTUD/iiVFIREJNK14WbEGlPdifD+tERp0y82sI9YSGmfUD5ClMWN1e42+5E1kP2d 9s315xMwK/QTf9JkkYiz02m4NjqLIskN8/eXhvA0ZK3MGlr5F0BjiJe6kJWv6Pcv 9ZYKXqR9uRr7J2Ep3/9X2tpYch04X5blN+fQkRakFmpHvArxiJwEEAECAAYFAlaJ 2CMACgkQ1uCh/k++Kt2AtQP/YuRNeeJQhMgWiFWqKsxjrNk3vBnOdLNzUsMPJhIa BTestCw57mYZrbuJ6Yp2MTbTKx6OMOf/EV646bwdE6E5FjbzE5Idyltc7OeWJTl4 mCTiyDK/8IAfKwDX06U7GMwCctGZiAB6pCIy0P/nGRD1xG74/0BsfG2bJdOxbBCk bomIRgQQEQIABgUCVonYKAAKCRAh+cW892qb9fNPAKC9Qk4QoSREh+xNu6n3yDLL GDA/9gCg5AD6MR4MAMwfCWlSxnk/ElROWXKJARwEEAECAAYFAlaJ2DsACgkQvSdt Lm/PqIVFzwf+MFD70H5eMnFgELQKRExUJMwDYm8O17eMsPIAFAhM7UPIbvIy9yVh E26a2BVYpQplwI6MkyNMkqwW9gd5JeWfV225bcrLwbhEJwz4P+GoMrigiWhMueqx vpxQlNVJHdytGHp/4Twe5ckziVaHVpnbbMzBBL7sW8Ia3VdGF0PKxhPbh+N0H/mo Jwrcf+SHXOalzEjVEpv/Q8C32qGntPKo/1tRom+GVa6p0iQc2sZfD2Xproi4Fb1Y xLylv3m//FyiV8x8R5by1EVbgNtENPPsHRn1vN9xQFPqyAztwvpCGe9hicR13hfN ioSRVIozr+NVE0NisZFTVD3OLioyYOhknYicBBABAgAGBQJWidhNAAoJEMApykAW 9MzpH+MD/iPC1C2kO/zM6oIo6YArUJON9kq8yRRh4JpT0yNldCD3VKFN68SA7VTK 3Ba7e/2I2m5DvJXRPxDELhj3hkN/ebrKFp4LEzGwVAl4/vLJKimdmSH0RUtjmvZt QwDvv5ww9oHzorrllT+NTA2DK1neCS+nXg55vCwUKk7sp4o6MNNoiJwEEAECAAYF AlaJ2QEACgkQvdqP1j/qff3bkAQAhKrpj9/l2adizocP4B4IAhnK87UjbZDBn3Zs KqVIJzatPbkyHusaNx7V5x5/5QzjRYG1trpbgZovKPePATJs0osr4CKWe8PQHoVQ Jyn3r1aoUdLyekSbSh/QLEMUn8/l6PbW7xML+gYmFmomRmFH1psEp2eaebKSJ/Ln +ZVRY66JARwEEAECAAYFAlaNA4UACgkQEJCvIKWqW+bDWAf+JXXs8Zww0VJpQoq3 ALO7e81JkJp1QPZ9D2pw0nRApV9hF0eArzH4rpWNImdkEiU1+S/LFbFaSW+SNZSo sVWU3JTM7AO50AbkxHWO+FdpCydEOVl7CKkZO6oGWnbajImtOO5GbipHRM2j6kcF 1bX6uLvkke08d3Z3hO3mHsNRFHzOBn6x/DWW03yiY/33qVfPGfddoOtQ3RqovY8C Grq/KBej9ffpBlePp11K18RNxBi+e+p2PelE4NsuGT/pybtnKf2r7cixzgga6kPX KmKZ1b1qtdoWGTp9MXYv/l1xBuPqg/IoXSUJyagDEhLNWelU1mQaeucOIMD3789d vmqi44kCIgQSAQoADAUCVo0UxQWDB4YfgAAKCRBmGzrW2Cq70AwLD/47HS4uD9/g OItwMYIPhkhJlrtef/fHCrP29MztyBObmTRslDhF1e3A6BkEBd57w7ArB+bWE5Le fIxkxOOwf1rT535xajRitgRptL4CmjTvuryQqD7Qm6lSRzes61xBRVZVRlKI4nF6 pIb7CLddZDAb1u47aOiPyDEVZ5L1RVs9qwpkc5u/TWrpXzgEUvvjMDtLGTwLb3Dc 4X6+bqw89sEydWpim0YaYaQuPWfB1LsZ4+A1TzM6nGo/9+UJAenILuNF7H1BGhyk nt7Qk/BRjqR9+Qn2z/xqik7OxIlEMy9bJ93DKa/AaMIWmI0qK2FrtEknPSbA1G4O 1vnzD+OdqLr7vjedeP6ySqip9EldpToFePG+MkHT1kY7Ziy86Bpa4lM9In1Z0sBx BS2w4suT4jUsKnPWPz9OrJGoG9tMvf0rZxeI4KQ6S54gdBQqzwKspHoTVY6GF9gp E5N+qWpi5G4Ej/R0WI3yT1qsSbWQ5tDAsNDEsS4U+dhDi4su2VMONLcEtKkZ5d2k u5swZp0mvXuU0iPbJvqM9vTrQpSPZ9W5TDLini+OcyS1Lb5I4XKIZwEh78i5RgMJ LZ0G8zJnbKtPsbSadTle0pXpEmi6Kcc5sJW09/Fo8iqMs6GiA9e0LOAFolOvU3VZ Y/Mgd4K9mta8WZls47vfc7EVNok6ype0a4icBBABAgAGBQJWjReqAAoJEF8eyG+I DJ5VFoQD+gMNSC7BW7IL8MgldIIeHDyxZSIFTSaTmcfuIbqhQKaYs6MHnOD5qXNm I63vgg6hsXMWP1PsnFD1mJS5IUkWsw+M7x5RTOEbtMZx7p5ToORLfpnlk9RrSvUX pxDFReYIsv5gKVtTGTFrPwIiZ66mtxlT3OYlT1c5i6/02WMUBKV/iQEiBBIBCgAM BQJWjS1MBYMHhh+AAAoJENv35Jw7dvIsmy8H/j4slUmA2pYNu4jxd4vlcHsjkFA6 KR1jeLs6FVbcsQUGZrP9wK6khpEq95aTK3t+cSk5XTsBJ3flviEauICT6g1aoflg TEwsSY1FZL2ILnmMBVP/1MMGsvzAMd5AVVCkJet3LtixggYxUaeYj/9kBvy3zqzT 2szgKkM4q3k43PzErB5YejwCB0F4K/nj8bxCbyq3rzNdo8P2LgckGoi377i4z9S0 b2dSLx3ztTl/Qb3/JUc7hSQkgDv5q1aMHa5PdO1EDqG5SCcHdYARYADpWuLPa08u WC8lmUV2PECIGjWB4rRC/h3vaPs2zrKQEYOpI9pm+BYdLnEyj7t2gwI7IWiJAhwE EAEKAAYFAlaMr98ACgkQ8Ar26sJF0gt/cw//XGfqrJsRsSupi8ARl8uJ/fRDBHWH aXc+HAJXwEN6OdeOH3ihZxRkkS6JDEVHhxUX8R86GDTxv9u49CalMVPYZUbDc3qi +PxC+noFiEuooqxDXnokDDryDluQUdBmRUMzgll5H0AbqtJGJNefDJvN1+Cx1K2N jOPAtk3HN7DLRTBtwg4cy0Nok4c78uw7D9pBTOQKvwECrkmLJ3lmm0JBFPk8MQ+n z2JkAYhd9mEZ2pEU7YA/9IBnMEkN5BSafA7UZxX0o/UUCg5nuGWkiVM/9KjwhnwY jIGtncfHMCOxmG8RNXI3+rC95Y+RnQ63wD5AnubXs3el+f6fUoard9GvHhftKBwx SzHWB514BGzuuJwglM03MRZWj0ZEguSLUr9uukehcu3rB/4xrG4Gx4wCo/zYFDjF q/WQ9SJO6wXjQALLD2QJQWP7zX+88Bagi4HsX6zL71FcZWSjUnePGq2v+FZ1w5yO H2OPYt2TXvWsUCuXnBwhIGSJk/gA+vAivFDU6Q8ANTWWk8j2sn4GuutIFef5YMGg rjF4rxog1S/1MhWQwKFGU4mutKek6bvp4xzUtBmw4mrZ4e+a2UjcM+i/X16T5HY3 y9yK1T241gTrEr8ItgbAXtUq1bF15hwZAiFXtXkTE/6YgglvZZgZ2NxRODc85lz2 HMWFYuBHoFEYA1+JAhwEEAEKAAYFAlaMsBYACgkQmCG1FbHtKaTn2Q//QIstvcA/ S9dpTOZpMX4Qfg94sKERW60oNKha+ibCujFRW2fXi/I5fJ/C+pi9xApj+a5Fch0A OlZ9fkr0tm6ja9YoMCpYyQwwzMyADzDUPNO9LAie1r+tiMuZG748Y1WrJajufTZS WSXQ2LWNt+A2SgcZk6pCsqsxJB7iwamhzb3BNhcAFRtJxss9lsyqUJu6eAewZN30 EFEHYAgqFGE3kF7YoCNpUjAwiMpmsYpToRmue6cH6s6xRtTIkeQWdi5ZUYPkzW0y O6Hg8A5ZCfoZAsmDQ+hnyoHtwbh2kXo6Zr8WFVCnZKjjtFVkdSp1wIVrQJra3fAi lZbO/KiC3p4hwCisrg8ACbejaWSkzLZl2JqQuk/xYYCKcHVNY+TZfOQbwIRCrdtv ClLu9K+4Xma9a83QRXhkzCsHQt1FW7GP0mLnRsIZf2WUqoEW3wtD2jfirKTUKz8G qaKSXztljqgAvcSkw7a+sFwwyFgCwGfsoeqSqsHtBRvRmbX9E+XF7U0+K3XR5Vse i30vtS4/NeEGuo+zIwMcHg3eFcXM+Ryk3iqr6LaQRwm7ymY96SkVvSx0rsdXlq/t Xh313qvY2XOHkQ+1mu4A59G4BnHyRhBf0q1aYnx8tVSETlF7F9cVFmQX8PiuGTQh bhK8/AZD+ea0R69RsnaaEaENxIeMaV9MznmIRgQSEQIABgUCVpD7bgAKCRDEsQeY hXlqIwpBAKDPscvvmpsiF83qhzLvBwDXthPnRwCfZj0b5dNkYU6j9saK5zGmHMUC q1CJAhwEEAEIAAYFAlaRcrAACgkQi+h5sChzHhxylBAAsfmP2c8PNbTJNYq7T0rQ bFYdLw2eORL/Xo+Tp4/bBGCtvw1F4+fenm2811FDGAND/gwdGJqgK77twqD0Dhi/ gM1+o5Cd4O5oCsIP6gZQBWR9mJze2OaENuwy3U/zfCSZ9VWPKXiBQ3VaCG8bnoF8 rHOf8G3tkWEYDhGUfkQXzzoSW87umb8wWmxpcq6VBignr5zAIv+A/A2TZjpJDooB a+7foZr+pj0FPIQdDtOJFJT3r1MjaNrU4edy6ngcAp+at8GAVPuJU8hS0DMntA8z sUo3SjRc6YCpPenGCW51aBXPzRJxX5i3a3r1RlZM5R0TyJy2aIF9gnJs0GFien3k 0TsMElJYXohnhN7dX3MWIhsJJ5oQlCoYfgXJPeWZpUUYvI0HagU97vtl2RYV0n8w bIZIt+B8cpKYaoc+GQmYvvieREH2d0LlW9UBbBdSl6XhmLE6GMLklMp/+ciLs+PS H076mQN5iKDP5BjDLs68SN8FOrKgXegCzFG2SPeCb+NQll1GRqluDp64mwdauPRn SpJTKhaGm/P41QOb3ecdq+NsG5IkD7KcHCdWj+IR9xVJ8BaRijTuTGyzbrcrKFt4 Uc1SX93UxE194a2yRS+cncprF7Kr0tx0C9hO70BR/9Q0Ftk7RW8EXSia2mQol2uQ jowLuqJw9fEtFiv2z1xiCiW5AQ0EVonRbQEIAK8VvUV7p6VMSKrUUngF9xxVjfZp d8aSgZKtunfZN32caGcy/JLOzL3zwoqOX7aUswfpURoaFrWChKD6sg6MwKaOLyIz 1DuE+oF/JM0/d6GpoNS2HRl2ubiq6OOhaLOCSFyfh9IosyEk5trbJyFBHt84BMmu 9Imlcuj+OLHTvR9QlqiBWWucplxtuevKKEhbhDkuHTiWgp/I8bi0QXj08dQ83XYY FKfiOEVqdteTt2u9oo+znLwTqEZmiYdS3AXLVY8XkxyQ2hIp+IEnKFUGxWj+IZun 39rH6HJpwHvWveLJSiecz7lpwyAIuUaWYUX/Ds44caJwx2P6Zf1fdC48y50AEQEA AYkBHwQYAQIACQUCVonRbQIbDAAKCRBtTNGUKfsD3uWGB/9DjVbh5esM1127K2ab rwn+y6D+kwzNakJ/e10EF9Z85xb/0Lhsl0TPLLuc+WrIFL/p0ljaWKWW2CeqD5zr rK/CTeRFcvEr+1VH53622u+f8WtOnrfTPdp/5HhthmhZgt6Tsk6ZvHe2WbtIcgY5 WFeQx9w3uflYHkD9nrcmYJ9IaHieu+RKLrfr9W5gnUMIEyHPvP5rcIzN+ch0Gcy2 pHSi3VRAkS8tAD+XCIrtuhnn1rI9O727h3ZXTR+IX7cRspbaRjKfIrThKPxmlbEI 98u9R3acGnQYo++KfwokzE21O6Rrr99hpG+SzTLBoXcmGG1AqK/02SN6wzBPPYDG j68I =MdUt -----END PGP PUBLIC KEY BLOCK----- pub 2048R/0xAAF5B5DE05BDCC53 2015-01-02 fingerprint: 30BC A747 05FA 4154 5573 1D7B AAF5 B5DE 05BD CC53 uid Sendmail Signing Key/2015 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1 mQENBFSl4rQBCADRCzgFSJkzyoOHw9/9L/+G3mzA1fWR7TgCE0WxGX7PDzyLDaUS a4XpCDtadjXyr7c5YPo1T7ybxUH39yvUgEHBiPQDssik+bbpOiHL7V0sUDAYfKSq YC8/MG42Oj/zd+0WUhnI+RckFYPBNDQ+sZC6ErLDxCYDZMYhG4vhJOGqAKpglNTb w4Fdx4LNmL3e4t3z4IEtnzAqeGVxIZm8MGGFhKkb8ufpgh8Jiz4Q6cOis0ZD9K6f LvMPRJXSBy9jBtmS2oI2e9Q5LLhmzd1PVyA8jwAlK0QfJLmlRrgRUfHFKhkf+EuW tTi592OYCZ9bw7QVSiGVQUK+7VACfM+FQR81ABEBAAG0MVNlbmRtYWlsIFNpZ25p bmcgS2V5LzIwMTUgPHNlbmRtYWlsQFNlbmRtYWlsLk9SRz6JATgEEwECACIFAlSl 4rQCGwMGCwkIBwMCBhUIAgkKCwQWAgMBAh4BAheAAAoJEKr1td4FvcxTTPMH/29J kNmt6EGNo/eLQySB8HTenfJjZaQxwPRhq22kWgr/7WP1BR2411bopyNk4IZ0rcDr tnyeJj4UWKJljVuXyTDQPtU8uUlgiOT8QiHEbge7MOzxrn0cy6KIOgKq+vtuxa28 McaxjENR7XVIDFkesQ7P/yLkcCjlE6jaD4r9OIKpqEVMPs1WUFff+rsgTo7mdcgR QowQOgYqNil5awQ5Y2Gol71hZ6oRcpqMwSd6w4dEEx2U8rF8oqJuoxeUTgNCSv0n iFtewLznocmxlrxe1mQAeLfRmUAG4LSL6p5wx1lRjJA3gtyWRjY0404jGxkATLG4 AtK2OkHj8MbrWLP7PKyJARwEEAECAAYFAlSl5AQACgkQYd4R7OJ2OnPHXAf/Y6Rk rROF45+SgbsEIiDXQBcBOoO1GKe0nFTc1jfAKUHAQ94fqcDxNeFRA9fNIA2d7XNI 0Lw6W7X3RcEkF58xytIe/Y+EXDmOt/BUbpch9KIz6J9pqBhPdyHvG+ZeyA3A+TGT ZGnnnAxNFtCjt2IID9lzZSLuWhH8+DNC2Vp15NngDTa1VIk17n5iIvi7r3V5cdIE MblKLGm+ZaiTeccVLjwMKIUSgrLP87+yF/aaZH2kotuI7f3tD1ycN0sVZJxcFS+c GFw7uvOarDBSm0Q/FgfhDUOJLy4w5SqVmgPEIAeogz94q0JXxSSr1XWQBD8X9XwF f3+dPXmgMHXLGRWclYkBHAQQAQIABgUCVKXkPAAKCRA9aLJdUgfK08cnB/96BV+v xyBx35TPg8eI/WIskdQAIpCQsm6FoO1ejbMzfWn9bImCewOp1UMlowdfQC52Hdp8 EXnuwCpJ3rtnZctRld5dNM/clbZ+r3lr78wX7hqPUajlvxe+TMpyZbJirLn1f5Ba yoysE4oICfzJivPfixZd7oFVr9EkftbatYenl0rgf/0lJTKRDIqNGezeeyfxaKdX qd545wqis7PrrXDOrEq815aosG09KQBhIoPgti2us1R95nSm9z6dVCY/nSDOxL+a Vyq/XD5KSUqbZVocY+fbR3dNX5haTvawuG0GPvl+YvYb2lW4hhi7Q4aUL7Dd4c9c vk5+WAvfJwHtbxrgiQEcBBABAgAGBQJUpeREAAoJEI5a6fvO7vQ7OWUH/2NNxhlI JEtvD+Nj2oPGgVQJrlFI1pbzyMCtD+6iy8Lfnp2DK+qKPMjBw96LUqcXC32VFPQr 17iyZDv26MSb/acmdIfTPpPTwJ6zEmMI8mXradeuoiWxeVHSg7n+D3u0xtikmb9Y uRKv0yx43fcL70bqV5DzyXQte0chfRnOiwMrImWdgDekkmxE9udbtgK24rifNVGa TBB6eHJAsFVu5Y38hsZLe10bCKyUCqT6Qywfy3RCMpXYeo6fXOk0fKatG2oi3CZp LI+AnjmAJ0t2oMkrwUxogkK3LkShJT/aJYIR24eZm0GdzwRHZxXKClGFvdJslIea TKHSXNK41eEIfreJARwEEAECAAYFAlSl5EgACgkQOaTHfal4hLAXfwf+M0YmlHd4 1sfvckYhOYf99n1BGnfQx5RJn+X+EBjGyOfPKMBPQuZIlwAI20T+cFnR3WmgrmlO IBG8qVcSDoValzNPcr0V3WGDrT75fYhf5iYj2ZsZDBUqE1VF3dAVUw40x2c1n+98 7lbq3NtolSPYk07h5rhEhmkjdNcixv/exVCTGVwaT4X9ZHY8heETmF5tsCtPavpr i/DjcDQQQ0sQ8um1eX41j2bhrN4MERUC5oadvSULaA2QUoWgCrzVG8zx715Au77N jLtfA31hJI0GP/dpSREaYlqA0nwVDR5tz1TyTNwPN1ylxjQmjKXtJwx3jUtlT9Zh qxRf+ngYHpWArokBHAQQAQIABgUCVKXkTAAKCRBgTfvyhUEKvl11B/9aYJBEEQZp JWAT6HPmQK//i2x4y1euQfaHsjqJALvvPrgiTp/ZE3o6dKHhs+SbawsB57RtootN maQr7x2drvBojWhJJdaouAh345qOfZYb0bD9klkr6W+Mjl5T0xWIKFEyIZn0Tcbr 8ekHgSIx2trL8LduSJou2bdPMh46PORzEpuQQ4IAyV0uRyBdNFOPwTy2OdXs51fr M7lp1hJp84+y2a6z3vz3VCs2A9LzlnXKZ6bXljpd5dQfrmrSNXltPKA3jVLkWi8+ rh9f1rAGsj1e6N1aVF2uJ1Y3u+U0XQ/dwa1vDF3y4KVObxYM9eNGbF4J8lGkUy2a gZ1s1X8QzEDUiJwEEAECAAYFAlSl5FAACgkQEolum6d/JCmUSQP+KEz6xSvPSbFP Hip4JiX1Wbvd+t3TyL0u9Fv/POwUrFIHVpTkCwOz6jsBH3TdGGiYOP5F8k/US2jU 3WB0J1mK5Rn3GwLhUGNTEeuaJZCuKE+j3qwMFmDqC/2IxEvlWtrIbTqkgf7cRv/O O7VNv+EL0axtsrOcwZlUWe6Lc4571oaInAQQAQIABgUCVKXkUwAKCRDYqvDK9rMH KX7xBACUFTBRCmboY/GRTHMZW1DGfcO2vMxwnYKqWomuzi/YonDCWtoTpeMDaAhY NnIchC1mlYteIE94/+ZsoYsZeaR3fe7CN6h/deBu4tW/dQ+TW1ZPF6EuVhoviKgz rd3rb+gcS0f0PgSPyg5LGtoMGMD9/gx1NJOTFec83jmBI95Gb4icBBABAgAGBQJU peRXAAoJEJdDARhwk7hBAUED/0oyeD2Z4wMQ6IQEprOAWbR+vIRzaThemmCGobRw UlM44nUXqKSM1+naLEVz/JzBuKWG00zTz6Su3NesWoFzDDUGYcIJggbOm39Pc+V8 eXV86An64/v3P6gypJc+q9P+FFGGO884wFmYN634Mi4SDBVFUzffcghueAFcxtzt 0mH5iJwEEAECAAYFAlSl5FoACgkQHnuzyK+VliVGdwP/fmdK9MdWIzPD/6eYm6JZ zbksaGWiqpwgp9IEr/OhSmGkXuwUsP35PFJ8FsJbEV5x/y6pP3UNp6EFRN/116ue jp5vVM7nnj2K3V8f85J4dXCRbv+kek+Ufo1Qzm5kgvRuBxX1sXpxFX6yBM0Y6WuV gszdbTVNlS04q6bnPFE9L4uInAQQAQIABgUCVKXkXgAKCRBwoCRNHvmSUZ/7A/9W yQJrrdrs2SuYtoxov/pL/TVMejbnxsF8Y0dRtM/KiquP57PMQSmLqy4fTRzAMHBv XK1aKfewTVfGKLcHIzfMfv2XcPpWfwcyMeZKtcSr25lWl9GJZP221rCok76XYwqk BPPp0pjSwdy0Qq4sd3N3ESZmqAMWJ7ouMmlQ7VWReYicBBABAgAGBQJUpeRhAAoJ EMjV7SmV9hdxLv0EALX3yjI2KDNG1mo5ctCSYlIlhXHQ6csHuUK9lzj9R1gVEzDU 0dEZH0+a5UXh5xf8nyTDLytUe8PxTtPit3AOP6TvTJlANULh/3MKS6317RwUe2e0 OitWbhQAOYfpYAkSdXZACzPacxrefkxmSM3Pq+SYoumZTI2N6AvVu8MeCS0GiJwE EAECAAYFAlSl5GQACgkQIYPhsTlvB4mWJgP/XAlvlBityADJkdN+3mp/OtdYzw04 +dBdNtmLqWUiMZg6rPPHUQi7dfBKi95FFe2U8hxSRk8oLzSzmh/M/CP72mxKh4pi PbmEkmKHYlNdyfCCNqXdjkBXFAKXAes/4DaBlZwvLjPtrupEaW2eYdU8cSrdeGuv 1PMLRPxRr3nPCb+InAQQAQIABgUCVKXkaAAKCRCJaWK4Z4wKA3ZVA/4iYD+xrYv0 8I+0GZJRdEL5f7T97a7Vtf5xSxUhHDww4xC9gs8LzEGWZXoNaZEVl4j+63EnCIbY o4g+c4m81D5NWFqeJWhWpcyvejo9hfGM3ZK/XbiF+ZTzznU5YJclGaZ7t8TY8gcx GSWxUzxBJQcSEzAKKi286ielMAXocNx10oicBBABAgAGBQJUpeRrAAoJEDgi20fM N08tDkwD/2F5j5irsDw+MQyLKpfPv3GRJ5J3ebOPpLQkQ5T34+qeIw4LkcXW9OJA ohW47JLb7R8zwAlUoqmmNXtxTM0r0FlTYGPOVEnSEkMqqa3KR68B3jWAGXXdqig9 yBxYRleawQ4ltnegBn8q7gC4MwnIAZxzK+Y8cM0Rk/FjC9+NhwrviJwEEAECAAYF AlSl5G8ACgkQnBy94uNcVjUfvgQAlQijnoE3de1CanB0JqIN+h+XOLOpalFti+B7 Swc2ZlnlQ9mofYPK5UHlbsiC7/TilD6xm4YEFKim9sOIMi8FNka8+EH+/d1DmS4M qVPDssxTG6VOzn7tYOuC9qIw15IpfbHW2bk/YIImwP9nViKCMLIGw+ZgK+uiRQx9 fT8O1NqInAQQAQIABgUCVKXkcgAKCRBvUpPYo5umVYKeA/9n63K1nF3DNY3Hckvz tN8OrPmyCIOh+7t4sc5NHhTK0+BQTv+cgG6ig7K2cdI6VBAovs/c/u7+RrcMhp7l 45AVnycfKcNaMHKFyMHDk9FZgpRG/bv1zwDxdh+scUc3IekqkSiQ2wTjDQ5Q/BMK L5zfOSnTOoltWjpVgsjdM75Ol4icBBABAgAGBQJUpeR2AAoJEO9YlmTUMuGd8R0D /3mhriMu/cp3DXHnlDykqLJI1q5K4xCHOWwFYZ8DxW116AVjluJYYW1HmWcJrjK3 cwuN3FUcsIjafanIJWCsdeZaPAyFEfUBEW0YXIIpBXRw2N7jNtrd5X6Zjptd+zW+ 4dUzvT1pqVtdPHjova3fcGLSmcdZYbddotaGi7xi7kXviJwEEAECAAYFAlSl5HoA CgkQwZwdJRLTRh0iwwP/Y/pwp9ttAMuQUz6oH71BTkUrzu9LiI7vhrYxEquFdzCO dE4jBNB3LGfwzjhJRtjmQ/gVhjXWWrDYnOXt3gNxb9KzmTHmSDu65cBxX54Un0pZ +MXjjWOT2l8+GA1lXeICIoZjJL88/zEZAiaH67ch2LEix1fOaJmXJzUSmP1pR3KI nAQQAQIABgUCVKXkfgAKCRDAKcpAFvTM6XVwA/9Eb+Dwn2lmEFFo64gj8ocpWzP8 /sD86PP5KkZ+b/HQnGB3lsQTwsGytDvJfutLDa05sS/HWZ9wXPltX/G3omp/A1G5 qEKzVSe0vEWedpf9wn82Ll6hzaiS5qX7r0+FpyUjY8arNrze5S4Q6Q2kjl8YduXl wG877igRHkGpAtApxYhGBBARAgAGBQJUpeSHAAoJEBj1A4AkwngCRCMAnjHfd5db KK6DJxrWVnEbyXs/QJGKAJsErKkiUX55B8k/P3cyzyXIaOujBYicBBABAgAGBQJU peSOAAoJEHxLZ22gDhVjCDQD/j7DE5wyhpjHrtf0hsQcaQoVHWZb2JTLZUMRAQyj zKMTSs0GslamlxLZmyV1HqkB+41zuJeBQtRV4gjqa5DQmWDRC2mHl7o9A40v4SDa O1jmfU5hfJSMecucPyEcfaAG4BIMvBo6TL484uHBi45SN4Ik3f2wc6D1XOluD1vB gIwpiJwEEAECAAYFAlSl5JMACgkQ1uCh/k++Kt2s6gP/RNcMKtx4u61vz+Aji/Fa H9q03JxQaRgmN1q2AvZQ/NTWTXU7Y5GnH4kW/8rOoUQiR+agJsvTt4ciM+y33pZ/ ZZLkAuo0uKelEHhdQhtRbSktKBHSgDWbiqaJJIxazeLpxcSgaoM6RW/7aIFdMtEl ALAzTACYlTN/nKWWICn8GnGIRgQQEQIABgUCVKXkmAAKCRAh+cW892qb9aWOAKCg aznvUX8PIvKPzoHld39xWlJ+FgCg76wrEc1h9IiIgUoqH5NWVCxcHneInAQQAQIA BgUCVKXkngAKCRC92o/WP+p9/ancA/0Z4JHZT7NRBMr47zQvSwE4eLpSE5QDGXi7 RNmOUgZxrxsFWRZLJCVupXDBQVZEhOBRZYqXPw1eDglOU952oj5OjaHsYnSEu7jz VUwlp2BxZQ3mnepdUcQz1A3k2cPZ0I6KFP9hP88GU+77nubB7IqRH/Q3QKMgO0eW yd5kYugyYYkBHAQQAQIABgUCVKXkpwAKCRC9J20ub8+ohR46CADMEvAns+L+BkVN d9INsiR1rONrNRPT6w4dnBeTLaykkuMjc6+7s+UuXm6AMAelI28pG+fJyt/lZAGx QLS9zFgREge0lVbOZVeAYeC1YyFsrJE4Lr2quq3fajj23tnsHmCv16znMHrh/E1m Udm4145NprijrZn+PsjuVWYV+pxiLpLM0YBdGNwCEMi/KCQ1fcaiAZZWSqLmHIe0 ubWDdqq8/5JRQ22SEnqP2FT/lfOmKTxMNmE0uEr4+C4fG2nd38BvzpHu9eN/4Nwx IwzK5DhbAj+I57+VDncgkNGe1q4QY/5LaZQh/nHIcmX1ln23f9Lxkr6EYYZ1ptq+ A8buvD+XiQEcBBABAgAGBQJUp+zrAAoJEBCQryClqlvm6AgIAKAR8HY4G9AD2jDb ouS4Al4QICagwQ0Y7Rc2/fHyPQEAP714EimakPFVFDbSD6SW569Qtdxr+ggH4wFI bzd21pCgIUC6nVoDotIjplMdYkNfq8AODpxn3HTBnNQ7e609xnWxFo/+httKoWok fEP9qZk4MJq7lE75iX+wohjLwoF6v0tCB8CrBFJcfKrDvXQSGvKiaEp4g0sEfyXv gL6X0xKMflupofdnFLJliV0WqGhBOGUghPdLsA02E3e1utj6WABmudMytRxWB8is SWGaywaEKLSdCgi+XlQVypKeWNMbZZZcftVZ91r4iNTAkw4cv5Wea+YnngfurGCq J/jUq7aJAiIEEgEKAAwFAlSn7r4FgweGH4AACgkQZhs61tgqu9C9Aw/+JMTXzwni NPwBxkbcNWbnWODVEElmDloHNpr3z+ryF1XNgbiOY8dn7uwRnPoeCDhIDwvNkK+x h4xmjH0970v1ltbzcZv0wnK6UeHQssqN9NGsXM9rbodYRIam4yxbwd1ddOC9QZFM ToRVWiqCzGOVYL50a24OYKClGjm4ncRznXJrNwYMEjxQ3j5FOkXIn0096z3szWCY 6yDpPzOsl2TPwdjMKZWoMEDh/SvY3AxAXo1XqDCj2/+C8dDwO7kn+QAl3fUGmkI6 dUHCAJm/WtSyvINdphzhZ1ZdkPhqDUKcR0JTX03QJ6bnu5vmmOncWm2NA7rP74fq KE9XzT808xP0GBwR1co7Eq+/751j2TA33JSlt/hIgi5aEWc4laCingJ02yaW8tUS DCoVNITaXcF/B47hjBgovQk8TOTsQ0nkSYvOoh05OYBmzl17G57QuPx1stRJ29QA VLGem1v1mXAuNdHH0kNE+/Rv0A2vGqauLx9ba84RfbXMM4SJw8CjhX6OxhAM8xoU tO6T56XZS8qLtWLkNQNZNdNlAo6tYk/cTrjdX1M63nYjoVbuc0nic6Wp+dQk/DEb wsiIpFoisvMK6EH49v70/c9Gtg6rk5z2yBHMZsjo2Y0TheTKwKIUEz0MuTncH8jD yB/NtQkrbiBdEqRJUoKKUtS0B4cUYTUyd+SJAhwEEAEKAAYFAlSn8agACgkQ8Ar2 6sJF0gs2yA//cgc+g1wPRFzJeQGv5UFR3TCAMtS+/bzY3UU/eG2Jmbv2qwPbn+kx RH5dYlZ72VHXEggBaEweCBrBWsweX5dGEMNDLNlI9ArAjjhBAZFFUQKj55EzIZpp YTbvgxOD2ENKU2HfeQYCGFYZr3L2DXQ1k0U7VnaElBQV3o88CMi7bIsQq2aWk+c6 Cy15UVr0niVLm95EUZM4yYm2gOGJXUeaGIExSBtiwuzvAiDEGaqfPGAi1ePkNmLJ 3UzYfgiQumSh1kDVlQkCc8UQiF6ckEma618cmmaHs5vZvHsTX5O2/qPkLpXunA/7 5yM/Jde8a5VbNGWyZ4rmstlWR5rPd7r3uP85miHn7Arait3aGo8RQeAHzOdTvMqS n3oCotQlOvBhOo7qA8oYQVlU0+77gOfZZeEXDZG13lU95ptFhdsGstIQH67jPQ6z TpVnd28ip92ysrwvxPhOzO74yKcYoKtzwLctcvptlKTkrFMHP3wJwqbaSfJGK4JE rjT8WnnWyHY465nTDN9AKkoH4WQNozniWX8OkF3CpPj7ow8roFXlPOxXH4QsaQu3 Kk31APn/A925d4xyYuWYHZ7A/FzsHafFHPMoG3iwZyuFhfl1UXVvEd8w9mEcxXoh 2iCy87TdpesG0GDzSmWwEYEPkg20BD2+vdc0EekALDjAGM+lfBxN67KIRgQQEQIA BgUCVKgM0gAKCRAJp6JK0eWCB94UAJ98O6S6r1hFnCLrbU3GeqrA4DCtBQCfcza/ WoVLc3/+bOf1jzjJ/eJ20IyJAiIEEwEKAAwFAlSoCRMFgweGH4AACgkQhS2G+DXA JIrWURAAvgl1LkqB9pRPViK1U+xa3b5zt0O/fLbov59aLhA4uPJ10BgaKptflLim aE2EsS4Mnk0DQgGEBjlywJ5Ft3aMk3vbRz7lDE3zQ3oWa7+N4fcG7WWsAxmh0NtX Ak7orN6rQcyGgWgpF7wOau79i4VO7oLHKeS7QNs7X59CW+k64TAJabxi74PRoVMz 843qWPjsuFIYM7n/nF0vdECwhSE8zUgcYG2n5CdA0Lq7XRE+II11VOT2XEXFMyR/ Qh2m7l+jy12MEzHQfGC1HYBo/Zi/MRIN53Rd2LLJWQdMxz/BDiuSxZhKVeCRe7gT Mc2k3VrmfViBoaUE0zqMbx0j29XUbNQNU3afE8MOBkmyd6AQjoswBEsgU9uyCJYD Jq3V1stwSVBm9G7X/l8GFlPawLg/uM9gTYb2JYUYPlphTAwVcL469rKQNMhPj2ww zT7NzjwFb9XrmyiIrqH5z2ieG+LRjajOPVPwBsqZ3gOA+z9QkU1lRYEJOTlEYCkv 8oA6ZeFm31S4JoeogbCDaMiqDszkFtYGBUgGEbnHoCgXi7aINSb17VZ8LTzpD4V9 vGdFVuE3vJf2POMERP+buLV8OiG38cBJXb+JVSC+pkpm+32nY0UR5ccDPwAC3cGq SbI6ftKlQeaYp3UEncFUaB8NNZings3jzRexPjzUzo0vhRkkIs2InAQQAQIABgUC VKg5iQAKCRBfHshviAyeVbEVBACL9Vve0dF0UqO+DN4PzrTOx2JzRw7ujhcrZ6I/ TCXjANGLWUheylRWhvxMojvbhZEg2835+9l6tpD7BVnrfkBE+LYIKFTusye+WYre dAaHFpuN6XfmsXmhXaSodhH9gKS+oftYX61qUmiE7L98nvINNBMnFVkptCQVDl8o GWiMRYhGBBMRAgAGBQJUqBAmAAoJEMSxB5iFeWojCtoAoLa2/SUyfC5EiKdvEbap 49v6XPyxAJ9mPvhe75aTOU7uWoa+c0wn6fXIcrkBDQRUpeK0AQgA7ctg3cJD4eTw j4sQ94AtSYjwT+Yp7r2s6h4cHUge6AMZy9ixtyg87JnviRFob2zeo2JFDAwtl7Zs GHo+py/mJwfQKmUsXUmQqgHJFXDiiux+4+dYOXZyVYKP5bTV0JVlKjRjSWNnh7Bv yZNUZlrLz5ZKF1NAYKJAw4fx3TFbC4K3hvDwHQW3croPQYq0wNq6as956LHYjUOB Q5K0uy4TXY2EcIyAy253UX9MAFgacuP1jf3ITEVZpcebzl+gcaB54gXqOfmgQQP5 PmQDyb96ZxFsKa5UfsS3Kh0PeERa5TDlgiw55O55pUSGKKfYfOXvqpJ/ZKYl+ado wgsmbq09UwARAQABiQEfBBgBAgAJBQJUpeK0AhsMAAoJEKr1td4FvcxTNO0IAJ2b V48mulcdCS8G3t8qRHlEXGbxgYBQRa500M9fdgRyIWBxubP7r6/nLFDGiIpdUVmT g9F3r1JsyK6Q7+VUp9XLirj/gT1kwxXT/UHHIQO8ObtPbfFtqISaBjaklTOUPCud +nOpzRIfct6CZM0xAVIoqm4kaRFaWefxRiyeosDQ7tCD4lDRwxNJE2deE1WmOeN1 YCJHa8QaewJXtUvqMq6pRmTlzSn+5/w3gV3XVF+CHjGD/COeSm7CGazLmlypN4n8 ib9eRg0K2rAqKfUbn+aFwmqSBhBcw/UhOoXnteNQvd9KNdKiHERJEI3qZ2rLAlYf uYT6oSAR9rPSpsZpyTI= =Jib4 -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 2048 E2763A73 2014-01-02 ------- RSA Sign & Encrypt fingerprint: 49F6 A8BE 8473 3949 5191 6F3B 61DE 11EC E276 3A73 uid Sendmail Signing Key/2014 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1 mQENBFLGB58BCADFOlIYbhlAZ1URaoyfEHLgrm/bHeZufZO3jp2eeuDIkt4Z8csa eLkwomo/UtmUNXkn5rlUacRjyuhrDgVyuhYVeqq+tVbGccrjq4TM+5dkDTtQvLE5 sEF3pbNYiPNJwPnqMfGTVmSouR9gGJGgttPubFDp/2jTpuFYZbcDSo+hoI9m5RAH aWe+MhFC0r7RZTv5pY1CG3GSODaoz2XIQ/dDJ4WKZFeEvDPQnpLY4t0cb0hVcxYO XVZZs1YmS2sEJirwJ+rpxivX4eyVKSO9Vjidh6cvmg2UdKfNoXXd+G9r0DR5FSo7 hQHlOCrLFQQ5YJ3thGNl/fw7wVXVs34Nj7QfABEBAAG0MVNlbmRtYWlsIFNpZ25p bmcgS2V5LzIwMTQgPHNlbmRtYWlsQFNlbmRtYWlsLk9SRz6JATgEEwECACIFAlLG B58CGwMGCwkIBwMCBhUIAgkKCwQWAgMBAh4BAheAAAoJEGHeEezidjpzcRgIAJUZ 4J6yvykcpgrIS8ZjDz1ab2sXtBx0ZjI5TxxnIwg9RQb5YkEk2/9tPo0ZwNUTDwz6 eVENR++Bv3VXs32RnRiFNy1Mm2hhULh4ifgqT6Sy7zRk/kwiKuj6xkjAGZV71QmD ukFIpVaWAQwiFkDgqM3LbxZ1sisbvvA8M/zJq66uGg09Lu9CKcwjKDfy+UW1E8Ub SRzStTRrpvCH400q/Pwv3mOA43+H6Un4fZfCOcZeo22rSgT6D/FEY4LMdNnMLYuU zPkpx7cKvQa/AcMdjoGu38g364JxlDjxjE6M+XBym8Tx6j4res7o0W8TGW5g+rEv 8X9i7uxdnEfYBlNAElGJARwEEAECAAYFAlLGCCIACgkQPWiyXVIHytM4QggAtF+W cXu8pJi3+OAoPmj+etgIuLhJ2GOp8qNK8yvwTEwiNwtenjennlW3ETHiCbtfQ0/T Z9rq5elhANsfp8LsXGoJ4ic6KJlDEhCrKa76jwEeECI74E60TpG0z64pHMmUhk7l eAUckCOvW7iHIBJVA7ZM8oII04ipPz6qJfJrUWkJbfZh8VV5DRp7zKAFT+URgSUc bdAbLjyC7AohynNVxir90UoT+wo06GPMDpeA5+fS0VZxKAwKv2P0mRZAK63yzEJz +VK3GCHLPCWJvHoqx4KSutk2mIpZ406T/BJEphkGN0BHHiUmIr9qfX/87klA4i9K dHvzFr6qFBxD78XfuIkBHAQQAQIABgUCUsYIMAAKCRCOWun7zu70Ox9XB/9IP99U LScSFiDgoZQr3eMztpc2NLIS2bGO1iX7L+9VInPCob7Se53MpaFrDWNna53Xehwf NbaqsCQrG+OIMMwhRc0x3QCoXQUchA/JyAUIojfOyoFUZvlyZStRGOp2TBRrJnmb l3iWz3pStqqtvqag2d3YxowqGqUvlRzAXTFmgjcnfMcJrxb9f3n6Nf84QpxLHxB2 MgOgxUCHXMtJ4WxFHAoINize+P/P99U9mpyn4ewTnSaFzcmemqoVT9yZUDYUYrap Bm4Xp0Y92IzoNpJgKBZLwXihisuI4alY/hBopo5L89vms2BwesQuh/4Tr6SELwFx zX63E++tz1TqHleWiQEcBBABAgAGBQJSxghsAAoJEDmkx32peISwXiIH/3suKuiQ +KqQT10UdBoNg6m0XinG4IG2MghRRcdg2Q8ncCfMFJPsKQcPdjiUuuUIYtD7CE+O SwQ9N+6vZlsk3Zq2I8rPEwrUTmZ1gDcMK93MafNS32Xt7FmCY6wpMCkpmCLd9sjb 7rj3uZdv/aI6Is76z6dKTfxJWBrbsUQNncASn5JyCXrYj9eeGP8gHX2KCkyPBF4u kHFPgdzYevCfZeP/+f/cdRwF6bAVaHiEZ2S/Vg6r3Z89vgd+wNKnNsljEiacYWuS zxouEn0eWQj9kC3bXJgqXH+HLrEY8NAQ5EQWjd8bzIhzCTA9MtL+N1b0Ep36gNiw YFB5b/b7KlbEPsSJARwEEAECAAYFAlLGCG8ACgkQYE378oVBCr4XDAf/auf1ljzq w2khe1L/1ANvtnugMP3sVJEPU2nDUnCK2+c0G5INnWc+c7DEFsaLHgcs2eN/w80a adInDn9lFw7DtcvZr3xL8q+b6j4i4jucjT5WVfYHbvc0xcKfpEjRge4oV3XR73SU ztdTWZZAlds4Xvh9pojjM90fBu5uDqfpRM3/vNTQ9EWvjcCGKusWRTwgdfF94cHN CeSe8PCo7sil6MtBBoujmLldCKZaLC08NLPX3yTGzNmuLyNZj9WgwPoK++XTxJly 0j9EJsO28ZxmNCxsZyGA+1D1NuRurQ5FXIUHUfz6taP8FHSDt95cOiirmCMOAjT4 UFtGAZFlbhzxroicBBABAgAGBQJSxghyAAoJEBKJbpunfyQpyFwD/1fp8qgb6zvn dIoTUoVWahI41Clt65cA2d1Ib1IbJJ4ms9cxNbFMTvbpPQ4AXOz1t7x2uS3YDmq5 IxdWLr6YPSMkGmtpF2CD1HwSLcUwtKcIFrb8a0EN8Z+sRKu7yYg1vMxc7LmmOBUX x+j9fm/1OFGIHYnUEb9GeKFf91cK0VAIiJwEEAECAAYFAlLGCHUACgkQ2Krwyvaz BylxvAP+JuZQFPnk6l4SKHR/3ZWz56fOqZ6Qv8cgUCFY5AY9OdSE7aU2zVjZTjd1 dJzVD7xc/9h8OW4HakfwcNnfAqdQ4eNdox5+uydXwU0CXJqU8QxGPaCSRkB1Thb5 aMik5S01lzra4s6dF0iMC15I5v0PAznykJO9Sq4qhMLUCYTxFiqInAQQAQIABgUC UsYIeAAKCRCXQwEYcJO4QeDXBAC2hVO1j2dyQfkHr8eLAg/P+2qwZ1ZaG4jxItol vF91lfGNCaG3RWB9iPRIkz5B+lSoh4mSPGzJ3cFDgB53rRMpFUa0qhiUpVaNuPMY BSrkxYb00amJcFoXX+yE8soeu6BZ1cazg8GEkbjFbboqJMts2M39dD3c4ikbU4Op v9ag1YicBBABAgAGBQJSxgh7AAoJEB57s8ivlZYl1w0D/1AySnzhz5PKQo4Wh9QX qX+yMVBT3rgVO6EgR8ShsyMhZX8GwEEGPueDAh8MLGPqQZbjXq81QMeVk6TSUCQx XbhHxyGJJTVDxxJxFJZ7f8y05PjppTA6TL2aKYsZLkWUPEq5vKocE2VAmYldwvRS Ez4oNLWQD5dw05DPzVsJ2/49iJwEEAECAAYFAlLGCH4ACgkQcKAkTR75klFOVwP/ fxmc8/ckreAjz7C3oarAHlWgAUHrJAAtG1MEgXN6FtzGZyzj7jsC4HI8A5nfwIWx A67jktU+6OpySrvIv3gRF1OAV168Q9IE8KszvnJgl6Gknf/KuiwpthWHpKztn9lF vealu7JKqI+3D5m33SqcWUg8SThfnGBoZOZGOnGrw4aInAQQAQIABgUCUsYIggAK CRDI1e0plfYXcf9oA/44QISEfFkqab+NIIgKW0SHqJDmI5QvVkcCO1Ct+/TkhGVO I68XKLMaNbzerl+BF26gU2IYCs0axa9hlkl8IJLokZhEPSRPDuSP2PG3GjaFsgnE 5OK6aaVvjrEwaXe8v6rOYLmavnhZtOKg3H8pOl74KhFy1i/ZwM9oVfD4sfLhxIic BBABAgAGBQJSxgiFAAoJECGD4bE5bweJnYsEAJUX07KH5tI+OfmhQ+WCFuU2as+r I39oH1BB0W44fEhTj/yJFVqGSt4e3OBlP+SYqIM4DxPttxNtfQ9448rbzWLCdL0c KGOM2y9NT/LoDi1JQ/IVLYvuIyNnPViAF5JQ96NrmJH+3SaC6goK6HY6D2Oh3iyO 1VGIhjOWyJr2+5ZjiJwEEAECAAYFAlLGCIwACgkQiWliuGeMCgNvkwQAjrrAjFyh pMepbLnRlxi2gcLqdmLcaub6AaRzCGDaYQxNFtBd+vLt0CtgY7sILahcMX6hLT53 z4zCHoM93DM3jBoJehC0lH6/qd3ZAcW9vcSxk5ws97K6sbMXWIfqDgTUXaArOvKG GHE3vsgaLvAQ8nz0QaVkwgSIQfz+vBDjlM6InAQQAQIABgUCUsYIjwAKCRA4IttH zDdPLdPdBACoapJIpeNLyL9szztPzznIIxNbeuFJVfJRAE+pZ08y5YKVtGWArUcb GBXlZC5FrVTqV3ptIa72ALApIZ/M4Awnk3C3XyjMioKemv7I+cOj5DqRgkR/hsAF 7YSAg718twgv8W2Ssy8i2vOlAoazxzN9bhVl5cSny5aeUnpLwK0WMYicBBABAgAG BQJSxgiSAAoJEJwcveLjXFY1DnoD/iFZ3zhzwIyWUl17pESa7H79tbcpmRyelH5M vH51sEBl27yRRKrsx4oayaumUT7W4JVoQTEYH54unN6fSBqKK9VyxzlA+v8PJjTG 43MhtMG5lc5B1fKXFer1SpxuoR5h3Qdi4KSz3yh8K8g5KKtciPBx5kEXSTm6Nycu wkrCRYZLiJwEEAECAAYFAlLGCJcACgkQb1KT2KObplUY2QP/T2Zt5U2cl0usnYck wmMF3ZAzmcfhsxMkVgxxL9AkVJh9dHhLSYFWN6qhlkZwiW6UhhKoINfEpb8gOcBz rdb4u8yrWqIS726GqE/gnjYUf5CX22mOPWry8CPuWesRVpr832TzS5wxlBQzRMSS MVn39IPfIQnC6UQ3tPChruwwZh2InAQQAQIABgUCUsYImgAKCRDvWJZk1DLhnUOZ A/4qp/HD/+V1zpewexP4wL+bLA9Y6X+y2UWAh7eZCBQvXOhVAYcHxpmWgEfHuS+c iHYqCc7hz+1AiKV8AfVk6RX0k9Oli/IMbM3ijv3uIl+5JF765oXUAB3RWg6V+MlJ VhOVkBHXmBuhFnfVPeR5wNPpQ58d9LwsZtU11/Y76xzOUYicBBABAgAGBQJSxgie AAoJEMGcHSUS00YdL7MEAK/BtyOdoFA/8SBA+8EOG8nd5NSlGNZUBnTlpWqdphkR SLRrb1gLGr41ND2yvg/ElTti7m1D7+7VUnwCXM5wUO/RZuZx2uDYRCdDXj5WBhcg 3wsHO3IPGGTbCukp9fLcthBQ46PDewlUVo6gPWhjWG/oC04XYeB3+f1f1zGAai+s iJwEEAECAAYFAlLGCKMACgkQwCnKQBb0zOm0CAQAhwRycBvn1kZB8cjBVw0a74Xu rjQrMVqmKM0LW/UzoVscB0W2KxZnvCLcw8N87CnnoSAO3MSnb/vPPhtnQxVe0IBA 4yoe9acWJvmtIjw4JFDKioVPtEy+pcg5EDlyqNHj0He/Cmbirxbvy2XiGB/Y/lxu t1kad5ZYY/F5+X4hbyOIRgQQEQIABgUCUsYIsQAKCRAY9QOAJMJ4ArQbAJ414QQw 60cTU3tVbBTT/l/sRysTXACg1ggZJszRL0P8Yy6WOryQ+r5Fg8yInAQQAQIABgUC UsYItwAKCRB8S2dtoA4VY3VvA/4i7bKzYElfVdTIj0IgHfd1zneeDjJoJP5tmf7F ElWIkENFVkKQ+tUBO2d/qMK8h+aj3brDcve5A1LUIsD5leE+igke8SjVF9/fwN4U 8Mpqrvaw+CX7zGMnt6J075OD7mfU7hZkSpDhmOEMaEzaviei2rovBgaNv7tOlgrk J5nCo4icBBABAgAGBQJSxgi8AAoJENbgof5PvirdqiMEAKp3kzOjTetlDWAqK0BY u1kSTCLzO8jFIq620dT0BqorZ5nvxwKovog/FgrZ0LlywsjlwOGCAFo3aW7WTEyt 7AwlQvUScAbPuZZcyZxKwQ9h2O6C2K2RPVIIHQusLRVcr+oGgqMoNjpSxOOxfJuj hT6fXHK5SayZSQEiZyeKme12iEYEEBECAAYFAlLGCMEACgkQIfnFvPdqm/UiSwCf d7Y5AR2m6vK5drJEaqbnv2tmXzcAoMhOg7eUPnYXr0Uwpo/61oHAPUTwiJwEEAEC AAYFAlLGCMcACgkQvdqP1j/qff1p6QP/TkEC+SJr4YUPy/0cLsSr9j0uPfvke+Qx U0RWynv4BMU05TKaBeZiVG25iFsGERW0drxiisPkcgMTq98wE7Q23Qtk+Fg8amDn 6c0qEj0S4xd/DfHPhcznHjjkhiTftSmeMGHDMF8M5+ZBSlJyM6M1dtTlceU88ZYu Vv89Iz9nnmaJARwEEAECAAYFAlLGCMsACgkQvSdtLm/PqIVOHwgAvKy116ykGuvC LlxCVx+RfIjhaXa5OTtZhLc7YkXgaNr4UmcvNZtGwQLUEjDO4fVCF/7bSrryZ6Fr PZBNTKQRwbqH8UksQ+6hIbTBb5ZGcpKQPdIqEWjRjCoDah2EI1ln/JI8WY5NoA+V iuBd07msr49qevHgGEex5dX7NKOu6nuvefaasVDODNsiMp2QZmIlP7XJw7VKkiEx ov93DGImxD4o8r2Etzo1Lt5/soNzw26etSRFhoGHRdW2mlS5QFjebV+PNAxwvRrI a+5CjoA/vFfwxV+RZlvCLhzuEsBIzw6yenfNEd37bzqJq/7Jp7kQCe463o7ujG00 k+ObGvq/YokBNwQTAQIAIQIbAwIeAQIXgAUCUsYZQgYLCQgHAwIGFQgCCQoLAxYC AQAKCRBh3hHs4nY6c/AjB/4rt17ezRHDxuDuS7+waPC9N6eXAQCbwdvkYd/v0bWe 5jHgknMHR9OyGU9JKA4boJCtJNUvceAmzBtynqxy4hR6rmCwCmFW3AIK31iu3frz Zqq84XK791voKMMrvnux0OHqq2l2mYOSNXUeVNQeyDE6HbKXFUiWhRZl36UndVaE XhdDnKpxseMpYZsECW1+x1GxbUHFRx6tSiqzgLSNU/SsgwgttHwyqEdW0sr63r66 7XSoMKvEgIhb36hJ7AIaFNWasLnnLOTOWR74IHnJ68FpordYm7lnmT5Vg/ju9y29 JDwfOcNroCao6tTjyXcM6KmIssQPavTDLK/I6XgVr9QziQEcBBABAgAGBQJSxwGo AAoJEBCQryClqlvmWGgH/3CsqpTEKQW3FL/jughz3Yt8vmgqmlj7ZbTaVehIKRU4 iL2XOlgAu3JISxCLPkdz79qcMSkZsOJtTGwA1yjvw/yx7oSznvW+jgNZ+fNOuT9w c6YKGSm0KbGGOFzjzoCsnIpoVEVuJwOS/zqGY349WR5dyaY4pEL42StfqLLtHO7I IJMKRcubedgZSogT9iwhin+sAGi60Wjq0pX240UQG0bgSB7n+/+7NT64u9yRyPwZ 9B7Y11smlCw0jIlJD/P51rFgFciG/BdYyPfRHToe5CjOI+1sFxJYuOQI25o9/Syg 7MMzp3ym2IEjIi3poBwfqZRlPDb5nHfu4vnSntPrwcWJAhwEEAEKAAYFAlLHCkcA CgkQ8Ar26sJF0gu9AA/9EXGIp5BwAYXNtlrI66nuPBwbPXHIVXocnlu2O2Kfzc9W Lvl3e5eSi61/TCOPNM4ParKUT9utxq9Sd01WO4GuepQFOiSfhMfKb7ORd0cKfWuM 9shAKHsTbuAopO9R43jv1QnE+yL1xpM85JaGxI2pWf4XIpL32ZZ0s7s3x1fklNMG 7ObB5dHr66M/V/GXZSx6rTBWhODm34W07HcXqDdwjVT8J/fo+3kkY9eXYuVfpl8t bVV6g8DK1zMkQiQBHpN0DCZUYB9WoJgCKFsTvVUElRyMY5sd2bkyAktA2df1EBSH kMXzqn3py+n3YzRY3VpsNUV3WkDRfU9SIdJd8g88muZeL9namSr/3eHTjdaMoCyL GyyUpy5LrD56k3QWeXDWVynU9lXuxaiJDntP6A81d6vaIBtm8AFVihtJFoufHot4 crmPqKtH+MQ9G6xwN5Az9okXKg7HGG9ZD82s4D/X5plN0OH5pMeYLrOQI+oEhjn2 uK67y0Zl/eqoQcnVDy9PFrynuSVBC5/BTGNbebQrTDrIsQo0m0LMYO3mUzMBA7SO j9iA0vmXxIGsPzf8lRu26odcahKWswRE492MZiTJlul+HWYmun1b0XJz/4YDWL5l +kUVLnl53o2aHVlTkmPEMg/mwufkxTayJrtl3kL6oun7e6jUjaCRao9eLFZWtGWI mwQQAQIABgUCUscuQwAKCRBfHshviAyeVYy3A/ig6XKOyU+RC/+4HtFxvL5osE9T w/9JlY78umlNish7CJo0Sbka4nFipd6Iw/xcYiAQ06TuS5NDwdmcuoZoUpDAqbLP r/pWpBy9IAUIzAa1UnyvYTDBp2NS3nxcWnzEpXk/dDyYMKX0gUsrDjE9ZTpsKeMq 70Kgq7lPtH6EfekmiQIcBBABAgAGBQJSx12BAAoJEG8PnXiV/JnUMB4QAJu5xu2F ej5QSiIXlZw8LD/uzx3UEQocQy4eGPtwTxeYogt9FtbdblRYb6Y8qc+Uyk6fLBxB E+gclk3I2GnKnpqjtdG5utJnAbvynqfgoE81tuC7hjxKYPaqGTJotwX4IsV8MZZN D6hduw1hxCWsnckS/6jnVrJxThKqlKEnnFqLE14W1WTnKIqh+dXYdnqn+MEMXZhK 7z68TLteASvT1S9i91Kof7gmfe6hL2wbzPAtils6+gJr0ZfxxUTDzFL5hFulypzX GgW4VemsZLRz6hhevPiWSRIGCG6xO/boGPnlOQt6Fv2mReBiuIidSia9S1G7G8KF 36ya41RrS6157dgAeSGGUOAzGkvamqlJozlTo1dl8eD08x5G2cHKL/H2oviaE1hr CgZypLuhPisW2Yd99WMndMV+jrbkNXcORVdYQO/T0aP0vA7zNrTv96shcpNoT3q7 nWDuGvxjOic8sSX/MxR7F+4UqZO9eZGziPnKDrv1fp17CWWmBBvJHWhFXfPF9nPu vej6q3Eq49pq3oDuIbtV+1GaMKLre1fzMzqyz1hQ+esByOKi/cAH+QzkbXUC4KyL q45O/UfNR3hYZms36n05729qF+hW6tO2ZGd43k7kSVgYHj55BIr942dzWMvg7BUY aWQqYiahIfDxfBXz+WvW5gihr8In24L6dYXDiEYEEBECAAYFAlLHhgUACgkQCaei StHlggeAhgCdG3L6GRFUho2VtUOx+uaGsvj7vvUAoIahAtf5fb8mSfzceNr5neXd FgnpiEYEEBECAAYFAlLINaMACgkQxLEHmIV5aiNLbgCgoJYeWDcldLWYU1MH+uvo Ll4ThV0An0PZNMtCd6gwGGhGd9iMRqHzVpQQiQIcBBABCAAGBQJSyoYqAAoJEIvo ebAocx4cLO8P/jO9GWX7PSI+k21P4NIjSc6VHYv8MMa5H36NWe8wnoUSUr8FKvUh uLOI1bDamRZBdCWSuMf3gcWNiwVi3FKJqH/tAdjD4Mc9NaL2DJwKgHH3IlSwV+jF Hz9OvkEzfo8RT0zVkbt61tMhrNCK7wRw/QrjchixNyJH9YIifV2huppwbgHl5YH7 7wYJ1thhIgyw8kSSKHFi3yJzy2q1qZ6hwcCCkUw2K9VgYV+0Y2plSkkc/OsoBUsU JSNdCOSAzpwAmFuSpT3YVlwWnknJu0vV5BPUL/dJTeYLbhyxfXWiWDiF1tiBWHMS KvUJowbW9r2CZ/FQx4V5hXKMfCupuDJpmCvIiDfRPGfuD4+4vJ+EhAp2TEyRL3HX 7BAlQ/95TiS22AhcFqn7Zl+9tS1vUcj4xLmakPQ2REKgBqiUrVDu+GvzZY0A6V6k J6LNc+ncaLX+B9lYqqMQmxLyRK3JySpHWgC2ZPoyje8GR4ksf0IlvrRufFMj1Qyt /a8Jc1Z2mXJR3PRrsL7EBDdp7Xl8BGqnjShZgIvKPDt6+nCIqsv13OjWaUBl+CKg eZcDMt2nZGUfu4KJD6ktJ9nvthrocWxL4dRhFM7s/R9ad1IdmySoBH9SnUuMgM8e bKQ5FnVqNiy1Z+JrsigPvb671KJ1MA9n2rPaBhY1cNYaaavIbKkBzDDTuQENBFLG B58BCACe6UEcbxy5q6rIPXZikT4WCg6bw3AtdT/MeLUCmxWhhP9g+T3i0t7zU6bu Zcw1uFxjnKsMEeDBHwdI0Bg9r5EVtp77GVf1EGrveKvISURlktkBtcezTVRfukEM mTXBt/3vMGLg+AadFGZTU2ciKdO22AxLBZWVgz0ICoO/ljtvEFokrrzwDoF6ySHX 3Taiq/aMqI/RjIRXXMq6u+/oVC6droj10eZRYXGPMl7og5MRSUU8waV2fYgtfLmw BtVEFbd0LPO5L1BNgIIMBx1X/QzMeBTldT+XcDSYh9ELfMJoynnVz0smZbeQ2PZ/ DhGsVsLvJc+cx5cDnBKsPrejCTXBABEBAAGJAR8EGAECAAkFAlLGB58CGwwACgkQ Yd4R7OJ2OnMzXAf+LxzrPplcEyIDKOoGW21320AwH5NqjInqj49K0gGhOL/xNkfs C1wsiFFESdN7eL1+aDdk68CF1ClJagDKkH3U5o5PiPSjCsGBoGpdI6f7mRlxbUT2 jQv0QC9Qav+9t4QcyBC/1BvwO1e7fgrpFLvBrXJpj4utHBP/R3WUo04kAp+sPbVk tOEByvXAHkDDe0KAG2G9A0dLqF7kfydoSaioFmoJlkAu7LCwFLFbFZ3JRFAaYEQO DfwkgPDDOA6k9Y1o+nbk/TgyEj7PtpzkiWh0aK5BRI8mjA/s0XNZKpuY1sghyASo XvRQkAGPLcqS1D4k+kW3MLWpxjbSwGi8FCdsfg== =d3FT -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 2048 5207CAD3 2013-01-02 ------- RSA Sign & Encrypt fingerprint: B87D 4569 86F1 9484 07E5 CCB4 3D68 B25D 5207 CAD3 uid Sendmail Signing Key/2013 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.4.13 (Darwin) mQENBFDkiE4BCAC7jVxyAGrnqq7bW4lAe83CxIUT4YHb+Ai49cecSCeOGqPSdlcg NYdNzi7KKpF9r4ShSctw2mHqWkwE7AimgJL3w5Iw026YtFrGfB5KHnBIC3dWKiJu ZM20qKx0Y5KqLjZStlajHL/gfhzhHEZXMcgFbYMGQ57Yuug8eEdmBb9ihgQgosdT RmdNH5zqch4G3Yf246JqeyESBCi8NHbOHzdfEWze3H2mGRmGeKfcnKRPlZV9OEdG E6ZEN6FBMghthZRa0f0AWw34YGxtvIAXOm/as64qpzJ2ebbH4HWvNRAaWetARG/I 4OwCkvcpqFROXXFOALlFJiAiXkK1RRPcPWyJABEBAAG0MVNlbmRtYWlsIFNpZ25p bmcgS2V5LzIwMTMgPHNlbmRtYWlsQFNlbmRtYWlsLk9SRz6JATkEEwECACMFAlDk iE4CGwMHCwkIBwMCAQYVCAIJCgsEFgIDAQIeAQIXgAAKCRA9aLJdUgfK02WeB/9r tNy5h/ouE9ixuzIDd7q5/n5ApIu0dnjLrieoOIgKPKLUwQMO18cjueKtRcAk1NP/ BTYodw1rPOuZrtlgIltoAz4EN14SDGqiVVhgNkJVazOQ/4V0/zVAg+AZAngC3IFY MXI99/HOnhTTZ+lHwDbvZdNu/yY0LDOl0VO41atRD9A/ujbRbjQL+QCkabi+M0Vr Boz/4JKxbidsG41JFGQMTJxXuglZOWagB/T30/pYR5kxlTT5w7Y++JTGpOsvfAoP B5wp1rTtsA5d7+oxmmwHBBIlDFidWTt2y8Hk1E+Fx+zHLvqdG6qZuxgtdA1g+DSx MBbgmUztfAJsRKAJw91RiQEcBBABAgAGBQJQ5Ij4AAoJEI5a6fvO7vQ7IVwH/2U+ K1L0/wP+Qgbb6Ge+Q6Px0x5YltJE56AoDgjAQof0jVgXXXJXb7uy+KIZnvBRdDeU 4z25qLFCAAoI1Coeu+DStv3q1MauQ6i05EG4qnK0h/VHRKsaGpgBpU6Q0HUzCeUj +jedYsBxUjKlIQgbNbKh8rc/q38q8zGP5gswH+gbiO4gfLE5vUD+c/j3Bk7vTwjH wcS82QznXDxFu92M9pe9cjz4OlMhT3KqA9ek/3X0FgkxX8LdIajWXUXrVbxeYEbv 0mrctI0SDMpy7TU8m1fc+87tbUsAC6lZx39dB+6CgYWcegLZGkwBYNhI5FtGSfml Z7QloikEjxhADUqtHL+JARwEEAECAAYFAlDkiRMACgkQOaTHfal4hLBIyQf+JsMO NKuvzLXB9jVrvVZE9Eyngomj4j4wVEK2ugFcf4lryi800rUaqO8R7mgR4iIqK9NU EEwazvyBU+57Qcn5CfxrRTrVWz3GUET3qjsUPOihmSnIg7V9nremQzQG7wWcraJe Abm1mG0cwXA1Gasak5Z4wD4Q5FmoKTWBYvP8l8lnHmnG12cbDiKCwn1qW6parkW/ HlAaItO5N7Or58gpKSDrbaLBV0l2jxlOk9eeWkeYdnrF5PAmOf2/32AGRrGC+YI9 vgqK34Hslxf00v5yjw7wYiYNu4Yq9eCKCXw7cIWzHRAoE951tpQ0AciNS15TWNc4 MMiK4mUMY/9+YKwllokBHAQQAQIABgUCUOSJGAAKCRBgTfvyhUEKvuC0B/4iqq2K hZiA5RWoxfXrwJwfaOtAHNgUpuDC51JX48vZB0Ie5lgARjqyCLbVPTIj/A+oRpll z0FHQuCpYDTzSJs2X3Ol04COrsuWNRanNm2/Jh10m9vubyX1Ge0pGvhm3yFClFKS O/LoioYWZ370PdQrVkccp5cfEHjiiCqVh3PLzbhPDj9Js9HKRNi0aQ34uJlZc+VK 1lAihymzO23fklJg3heL5HXH+btuJxkyi8aQ1p4meHVFYFqcjO/S7PyNJeMd0gwu 6ykWuL0N7Hq2WDfSYorDKf6fZMm/jQwkAJo26/Nmq0SSkMkviy0aowgjsR0zTudO Tnpun4pNcYKSkbK9iJwEEAECAAYFAlDkiRsACgkQEolum6d/JCmgvQP7BjbE1xC9 EFequc5ixwcrKbyvel8JZR4QaMfjZ/YltFJEAtNpiUmyI1s5CVqPnPoMqGJSxbkH eTiIinsj/lxgImE8sDAdzxfIQc9sUFwm/SZmYnLPBxd0FtziaNPxVY1zHbpBiC4R vYTBGrYwKDxkMIkI26mQ3C+6jpQHZjCq+ZiInAQQAQIABgUCUOSJHwAKCRDYqvDK 9rMHKT9CBACU3RGc9MLTbgXuA4F/jjbQ98I4Ei61y5i0jAt4Wk9qi3WLCpIEorVA 9LzyqClIioS4HoLLIH944Dr6Q7nC+SwifBGgxWVogEPl8vcMUfmUIkUa/KD9N9Wn t8nSyaYNYYDefjzBy4veyrZF/zTl9RUjD3Y5h6VRSpVqox3pb3g0QoicBBABAgAG BQJQ5IkjAAoJEJdDARhwk7hB9oUD/19C8pRVgzlM4aCjbh1DhmF23C6eegE7Z82f 9ZByKKKZscahOXp0vdWHuKvQ/j09rfROcb08k+6EofVg/lyT5yj3+SFy7Md+6RKB oJVfX4Q3d1kWjawwYoTinMAbiANgEbiERZt9OUvxFq1zB3XjfD/DtsTDXO0Jb9nL an8Eu9KPiJwEEAECAAYFAlDkiSYACgkQHnuzyK+VliVdngP+IhF8I7YICl7LYK8t eYHHSQuR0HGRJAY2Sm6AgDvS8d2d6BWHovzhcXWmZt5t4qtO9JoO3arEJPFLi+sM 4zltrZ0G2w2iLuK8puGh4PM2V2PjRVWlhmwVdY4yERdqCwD9+TpgPudxDaOpCpD5 pry2zkHzgtRVnKaB5wUxQSX/9+2InAQQAQIABgUCUOSJKQAKCRBwoCRNHvmSUT5j A/0RNa+Q73G4STet1vUxJWyufNOOag82ziISGFX5qZ5HnvVheJuUYlplfx3pLGZs VyxNPJ86vgdobNXG2dJYn/y/3C/9jIp0NiKJYEMVNlOrDvqoh3/7LdDCQC4dPKj/ T4nSKgK/ny3Bvz8RHf874fnZZt6xjo+DFTzvktChYBSBh4icBBABAgAGBQJQ5Iks AAoJEMjV7SmV9hdxzAYEAJ6iOI1YzJlNzZptUsCcBR+40sAL43UaaDXCjhEtRgpy +EQSpGVEzCvN5sxF4z8QXo82x9zQJWZmYV974KXqIq8jFEuSLZAuVuPs2RlfRyAl P5lATnXdGzrTXgoNLoXEt/vQqYuqFwqXkVvZcLkGHPwTOysyFH/vy8xLXmRI58RZ iJwEEAECAAYFAlDkiaAACgkQIYPhsTlvB4lMRgP/b5lffwl6KwYI2d/ZoQVaMN+r aun6ziVCLqMQRiUR03H06fFo31RmGdPRuQ97jxS8EZPNabygjAfKq3F74DPoSlvL /8AXhj3UXoERf2XIj03o8we5SG0Tg6zLSNB65NoGR1whRgxwAxCgIRaRfudREYQR 6Vd7WpTHeRWttXLyiIiImwQQAQIABgUCUOSJvAAKCRCJaWK4Z4wKA+BYA/jBXOD2 4pBFFELiCyFW+iTlzsJt5vwyTLolm8Ez77DkepkYOr6ZGiDb1cp3AL1e2ynwbSxq NeAvwVfIm5TOO8w+xEYplciupd12QfXVa9MiQwDJm4FOP+Nb6X9MSqlHL8E8XoJv NPjJoY3zFEYn2OGZrD8UpVdU5Y+pKZtCYxc0iJwEEAECAAYFAlDkicMACgkQOCLb R8w3Ty3mvQP/e97V+BsqxV9HeqJHnmi4NJYaKpP2HBuXntLSDxyqO8YGa3qKkYjj /LAXp2QfBpwCWn8D0pQSoUF5jayoeNviKs1cfcuq4dyfdoiVBcWOgJQeUHSO8w/r hevqzclCuWz1TqW7HKlljUbpvP9LDR9De9T6izc3eR9WuLcqBwV73ZyInAQQAQIA BgUCUOSJxwAKCRCcHL3i41xWNXa+A/9GD14quBksQf6iWg2CbHufCyUqquvN4IbI YlskEHvjTtaZ20SC0cGMMPe/X2VbfWOR4UjEdlSGQdLWZ8FjKj0hjSSUf28OcbSd xXryuFFt0skY2dBW1LHgVDUnHTlK1m9p9k887tL31YUGmA7apZVSILhSnd1jI+G7 NN3ni31Wo4icBBABAgAGBQJQ5InKAAoJEG9Sk9ijm6ZVMLQD/3BWsllRiwFCsiiL KBJqnjRCdFTuHOl75g86IniLMXu11r+K4LR9mXbi2bduAzkwP7c9HSAFWli3bhfV fgf68sogGcHAtQgjgjTg3NvjOPkeMT24PVJzgIUkbgFBmOoe30L7/YyKl7B53FrX dIcuI0d47bXoUOvjzNueBKzLkA3WiJwEEAECAAYFAlDkic0ACgkQ71iWZNQy4Z18 0AP/cNp30lU/1dMF4bXbmbYG/dwxzFa8K1RsxJJD/HGFTsPs30o5tp7IpHAA3wiP QI13HhDA9hfRsuWHyNztL6uHDD4HRiab1j1hNgorzXMYp+EmFSX+LYfd/GPBHX6B xzGy6HuhurF1cPcvEbdlmcdr50YLaO4WJbHfU+p/9eEMZKOInAQQAQIABgUCUOSJ 0AAKCRDBnB0lEtNGHeMQBACWhsL8KCmh+2XwIweQOboaGA6ShwDHx8CfPxcqv9ZJ 4jsRoHSjiSRK+Gbqh0/5aOppeO6Pg8CppuDJ7jN/l212ZfhR0JUWfC3ySb71BIr/ NpKw3PqbdPK6ugcfVHd2JkHSqZvDXUgMHftzVZEeD+OSfCMo/ED0QcC+3M3eO4fX a4icBBABAgAGBQJQ5InUAAoJEMApykAW9MzpXkwD/AgrFlIVjYGNSelqRgl+eaxK ujeRUwcZOjKvleOa4U5QekaI1pTsbk7whbzABa4i+TS3AWwlhVOuKanJJqWmVLrW dJY6PgVGhUGdSk+FwXji8MA2aqdfcTCT3L2V6QyqXMEP8K3KAOKdBDIFAd31pap4 ICuaj09nuybr2UNyOh9KiEYEEBECAAYFAlDki9QACgkQGPUDgCTCeAJMiACfbkQT VU4gsRwDHBMRB1de9s7cS94An2ObpRui9RhHBRE+FONdzwV7LT+oiJwEEAECAAYF AlDki+MACgkQfEtnbaAOFWM1RQQAwzWY32cZMx6MYBB40elalCqcwS0sGPG+BLOd +7qmRPFUk7r/IC56mPgvRMAB3Hk4EF2m8YDfYIT/3u0r9M85tvKfzaB9svbn9xIg s43a5m6EZRs8O/oeEpGJA5B+ypSMMXj67HrS6UzShGiNVJHD1FQABEYLEIPXOpML 99ko0KKInAQQAQIABgUCUOSL6QAKCRDW4KH+T74q3eJ/A/kBmDLoDkOJqZaIUCgm DEebLXmh72vglflntChfOZFoJgIRJt+1gH8GTfWL4fecpxv7l3VD32eo14mUIvIl 9EIGinr0iE5jz2sJNLEk+9TQL4oWA2khr1AOsw0+Pq6ju8BYKG9ImM/pUpCX0g+s YUwkB0pwWpldcrEiWgVg8NfuQ4hGBBARAgAGBQJQ5IvuAAoJECH5xbz3apv1JV0A nR1zsfcDOhe0eA6LzDCUvkj+GTZmAJ9OdU37HRmxpokcL1YT2vU8fYItmYicBBAB AgAGBQJQ5Zm8AAoJEM8etQMiMnoB1VUD/2Ee+hUtbUiVsrCTtgyxMh3GYHxSRlsR DmZ3Ic49V3fPmadCRDpw1I6iKLgeg3qCB/Fg+1pvZ4E09a2knr02wVybe1hvRVsN 6QZnDa5Sp7SYoMj+PGAj1Jv2JcTggBxBpFeHFOElZi0Sc0J8TjzsLWph/SYbiwSr GGz3QCya5dP/iEYEEBECAAYFAlDl9uwACgkQCaeiStHlggfR0wCeORnxx6UraAW0 VEphoedU+22CyVcAn1QWbw6Bgktk3+UIN4vzW6YQbGpHiJwEEAECAAYFAlDl+9EA CgkQXx7Ib4gMnlUD3QP/fan4d5+L3LVrOkAtmQovwZqpB6+fOy671RO3SaE1+lr4 /twHmKGC1h8jVZzkqRVRQ3tBPvG9lPlweUN9wA2+jpoe8LaqJ2hClDw1gP3EPz0U lIfJAoeZQOpbTY4DWUFy/vxnHcpQh5H+aJDlhKzSB4E/C/le9ViOzzqPRh4K29yI RgQQEQIABgUCUOcGZAAKCRDEsQeYhXlqI/CyAJ9WHdCZwVdeFcgjVqv42sy+7d14 XgCfd2c4qU9ZacQmoZDSU7P5kIrf8xuJASIEEwECAAwFAlDnimMFgweGH4AACgkQ dZbk85mBCRgEyAf+LgY3QOdXa/9YDdbZXvBQ4myyJH6LD8OnFglI/u1gz/yP5ngm SeWsODQAm4UzYQxc4fDHDnmVjpTyqyoY70gO9zsMg3eociDtaEi4/J7ZQRlvI5cu PFreqLe9CivEzSFsuBYsNRmkxsQHAUg59wqhaefjul94RtWLhUXu20Er3CfE4B7I AXK4ncWgySyCtWxtK2SygOaxKY/enGqtVC2a/ZecB7o1KJ3ghx1w9CzXxRyEtmtT qaQpoGs40sshQgY9EDUApFU/cXIZmMlmcFEtL8e9R9pptY7FdoeuINwB8nS7epxy kavIjSW30ALAshGpXrTHWxnOipzey8pbtOrL4okCHAQQAQIABgUCUOlleQAKCRBQ g+yIQOhvcYDlD/4v2PjuxnM53WVDOABTkxax2dPQ94ErEf01cAr4SZ4UE0j8pH03 WKKCDGnE+xkX0N9NworDEpkyGAjbTxbpidOWC4r1P526Nhhr+B/4yiybyXg5oR5F rAQaxdj5dvk3HUSfUoqAaag9P6w/wBEIQcRvZ5L+2eTBYwrsHaRfDoP6ce6fmJic veYhYDQ3qxx6l3qeRwchTKLEdy0jLdbZl1AFNLRQGU4XOFM3UxKTk4XofEdEK8B0 L83NjsE1S9IJleQiNM41fNte0SXTJ8J//SGRnKAyMtlclanX2KazTPKGu69pZQRY om9xH7vJZIRv0pCjQbEc9Caw/mvSNlQWJ5589cLVfaWrQpSmzf6oAoVyzhC4tiWw s2FmfzUYvvSKX1dpVMWIkYyCLyS7E+px6zFy1e77Pc+uhmAsNDgfTTfwJbBoLAFQ 42f/5mqKhQktiplM6ZzMNB49zwjsFK9Vt1OA9ggHtvo/LzAIoMnQUvijObnE3/+a PUNKAaqggVJUQgK2htPjyAkUIq1HQ35WzvpaTUn7ADBezTo6Zhl9UbKW9+IuCmwN w4ZFhhKC5VsWSVZGFVMwRNilSXpyPVYAWkkrEiNreLW7R/OwXUqA3fvK4lFRWpVV AEcmL5Cygmrv+0SMUgJrymf/HSl6/JVNP0GMZ5l8WvKZ4usxsc0Yt+gjTrkBDQRQ 5IhOAQgAxmVBSjFMrpl+oMm7SG97BeBG/ApRkWyzHoYLXSWoq/lpYWZUyfRxPyvV kMEnVSerTMfiq80yX/8niFm7SezXBzCFwxjt5d6v1BIs0p1qnEmN6ze9i1wz26fT Eix+qtFewBbE31+bxCOxFQoIaCGWrR7gq7clNfkLKRjBbJcb/vkPc0S6l5+xaM/j Zt19a4uBDzy6DfFOjJ/ZWzKCioqPeswJrElszGqB3Wvwip1iOA4Ec379s8mSCzqq PoQ98jIhqW/vD6eHDdzkEdQJZKwzSVgClHcLehQMCtsGChf+cxCgFQSf+7ZOyu+Y YbIK06IC/lJG7LGBWOd28+LqKAXamQARAQABiQEfBBgBAgAJBQJQ5IhOAhsMAAoJ ED1osl1SB8rT698H/Ap1PMyHWdDZxIP7PkJKAGuXjSE3JAw+dNh3vaxF24NFBUvj J6F5UwZiegCAIatKVF15SycuIDT6TG1NBQPD8Udp5w0lK+sZH0ViZGs5hNggBdiR uv6yMpaPf6IbO6Of0OInrcni9UQVt1G6o7MseZBnxejuPX0E6CMbB578XfSrdliI jwcHNo5TEc0IjPw4qpUYRd/cWlo8Cprqu7I6LTDUdXOl01peaGqkGhyUgoY83JyS xIhNOUZG9qZ7p7MTpngmXX8brCg4ivylPLveAsbhgLLlRQO1ME/j4zyBvM5vWEPB x4XQOkQ96TXgQoe/dvARKuUcAQl7RvZOIZcBTPs= =kpXE -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 2048 CEEEF43B 2011-12-14 ------- RSA Sign & Encrypt fingerprint: CA7A 8F39 A241 9FFF B0A9 AB27 8E5A E9FB CEEE F43B uid Sendmail Signing Key/2012 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.4.9 (OpenBSD) mQENBE7pIE8BCACutGAvfg9rwfaVBRb6EKjcWABZUFsLt1yF+hzrhR6llVVAv/P9 aYiSwJHYUSu/GfZ53HL12NhowhhmjkFt4MeIo67gmVmxlTkMVXrb+TROqr67f3H8 pM/vCKMnc9iCBNXgv0QjeM4qr8gz+TIroxq3ip3RNcZXOMvSOEmflK3Ts56vhnMK nzWMlfIhKXmXG6o57Qb6pwYLcT9Sp1rrJaal/GnkwEScDmFv90jBIk/RWVao1NAG 8sJruv4kLUTRwwddvd954/cC6S/3F3VNxisVXNEagNTaedTc+pBVXWv9yn2P4Jvm gSYzrvq3QP8PH8hJdtiWvgOnm2YkrZ+Xz37TABEBAAG0MVNlbmRtYWlsIFNpZ25p bmcgS2V5LzIwMTIgPHNlbmRtYWlsQFNlbmRtYWlsLk9SRz6JATkEEwECACMFAk7p IE8CGwMHCwkIBwMCAQYVCAIJCgsEFgIDAQIeAQIXgAAKCRCOWun7zu70O4MSCACN dAjK+prDB6YdIQZdjn1rV0Ba8pWX0PSv2HY7wlduBlec5HOV1s0Yram6yOQwv6Uj Ns/3t/7+ikA5/HpvSHo5uuxKLjL+duprCUSQko8XlLVZCiKjpFyD/ZFsCBlbaVCc u2OjjJ2Kg1FRwijIJdZfers4fbm9Aa+gLcMqdtmSa+gI7mkpEJJWIz3rPHbIcYPe Hy2wMSSpk3eSQtU5JzA18vUhdVujzwcRvs925JOT6g3VZ7Qhf53QSo7IaoPPPEVT g3BW3iQKaXz94k4EDhODBL3g2Q7zYOhxceNnL23vNxs+yWPcyg645nrcsfcK9osM sHxlsh0zLl8dm6HnkUAxiQEcBBABAgAGBQJO6SCWAAoJEDmkx32peISwEUkH+wXg N4/NlcKJwRgmXRqiiADEI8L3otyWI/v2Yp/8nFCyxzhSH8p+4ggDNDgngPHJuV5l WGQuGr+UbqDAicIOPeyKD2/EAUFm41aN8ATN/KlAhxeW7iK4LxPWUlPLkfQu1Gng dj0vzaYMR7v5B8y3bg0yJCo3PlHIkWmYhEJmv5xajKLMpz3+K6igrjH8GzUfoMp3 Q6VrIdvVd+E6/wm/qZw3xu0bXclip/YYDxOLvKF/vpVfiHiLpI3lBoGQig1keHOw 0TD0ol3WwifqarwlMWdaLQCH41CnjMT01mkHd2ew78dAlfNkW4OiHxJd0AcQrqAO WgxFMOX9JowFlIeCjoSJARwEEAECAAYFAk7pIK8ACgkQYE378oVBCr4dwAf9GOKz d1CAGJgKtu3crfUvS6xBd66pFpsnGOm6xwjG+QSTIIRayev5i50LcYUr2LU0unnS ZsSwYQiZ27wC2l3Y4WFVSrViif1x4CoDSM9CGleh8FBdctzeUU9huQmBHftq0Q3j WzZSBoiDJBGT/Ug1rKiyN5J5eAufGIkSS/WQGvJaBirL0QtGBWSeHhTjpMKGp/ox dJ+zvT2ZsHxsCROaA64jceNQOt+jrTGt043ABxdUaF2Pqr4CC7myRIhrVWlkPfs0 V1N3SSQJsx8MgWUD5OeJLuQ10HjZ0GgYvofOo+ysG8/SEz3ltwvDwJwkrGsjM8y0 DFcqosySncFHOcijC4icBBABAgAGBQJO6SC0AAoJEBKJbpunfyQpqX0EAJH2pzz0 Vp5gGBVhyuJ5NKQe8rC7m6oj4p/2OAVee/+6/3YEA8v6J43iuuoIMhNH8nHGJxhJ Xmh5Ho3RVgZE+G/Vyr63JwMZ/tMwaUX+Deh5czKW60A/bpX+CFAU7caqBZhbjNoq yVdN/3f356xIJk0CXgCfkYywRg+h+KtwD1xciJwEEAECAAYFAk7pILgACgkQ2Krw yvazBykUTAP/R4bhldibVY/6Q8ctxCA3DEnBK0d6qeA1kFydee3cu0fgBqrh70C0 XFJIhuHW/bdkJdh41XYVWACANBY+1Uvt4GyoE+DB9Z779i2P4JG/bpl67D7/bjLg gLuO8zze0NiKlylEWPtO5o1CFGi0O13HbzjF1UxY16OdnKPK1KJA2ZOInAQQAQIA BgUCTukguwAKCRCXQwEYcJO4QctmA/0RRMOn5GA88kp70hF29HLMgB5zAw3ZjMC2 p/pC/SiuPSzh9n8Fkode3qCeQ8Fm7z3UVrywV3373litYMcl+TG6Q3c14qo0BDIT H6EZUjP4Msoo2fAkMM6XrBdyLYSCKilJGsqDS25Ox2BuJGKIbMHFnJy4SR5rrIAB J1c/PIqNO4icBBABAgAGBQJO6SC/AAoJEB57s8ivlZYlILcD/j9DxcUcJbDeFDxj KsuQpN2cWU+KItF6hPWgP+n4VXokPzCWQOxKZ72BoERukQB0zVuogUbFrDwPIVjp bNK+n9A/CC+FvfBkm4nMBpnZRFRRaafcT3IwiqmWa21/hzvDqZI50NwBn7ev57sM rCtg4n5uiNejGwwTQCgff48bd7aZiJwEEAECAAYFAk7pIMQACgkQcKAkTR75klE/ 8gP9G7BjyxYUDg+2F+GrLQGZEq8ijpMK930o3Vc8O33zhZFQqqCuUX3RRvHSDzqL JI/7J5xIiAjWVo/8QyP7HKScLTiBV0r1iB6JTjVy/Y73GvInTi6y6jrlfpqg4lTw b375/8ijdG9uCH6go5F0PH1vPI+ibrwgLVgpx552edzRbkaInAQQAQIABgUCTukg xwAKCRDI1e0plfYXcVQYA/4svozwEiTmCvNGr22IOMqL1vr12sgzymIeISzjAXeR 9/kxwyi9Ah5UX4orLwQqXzOB7IZ+SEN4WRo6dCO8QzMG6alx2A+gU/14j0jvPhxk jCtO+CBMoMc9lQ0yEpz0XIcO/FGJX3RUex8L4/mYyP4LTijseU8D8F3kqry/Iaxc qYicBBABAgAGBQJO6SDKAAoJECGD4bE5bweJAhoEAJYXG6BkWixVK8XZw6oNIs/b 48oumiCgHxErlaT64QLQ/7qknzmJ+nF3VvkqHqxk0u+zQRf2+oOQlgAnFxwTBvAm E5Zf3bzqOGcq2aKyQpyaOi40+lIZTV3mpjB4fRtWCiF52TVdh8dtZ156CkjpOupb g7sKqV0h79X+x1FhiukYiJwEEAECAAYFAk7pINYACgkQiWliuGeMCgOx7wP9GXqz C9Q2JhgNA/jig8SqtIn2EVHqtvNv5OYuxrgh6Xiy/5ZoBfghDfZP46cffsSUFrI6 QI17QEg9t0rUIdipXRn7S7sUfz99lKGqKMszCqvECdnfuwnsYBO73XF89MDgIAH8 Clm06seRjSPwqxOY2BU9egBHsWg7sIEqbQCGY1iInAQQAQIABgUCTukg2QAKCRA4 IttHzDdPLfRuA/40Mk8Q6uw8IfWxNZh9q/tOMIo2Qzy0QIpTx5CyuuzlA9qUgZ8f NpT9S7z78WLj+TuWoHrtFVRZaDkbMafT9VLDMPdveI62FI2z2mCaBHFGr3kOPo04 xrRvwgdMCgbm/63fJl5264xfjS3b/iuNGAgOOcMPnV4WWdhBTmtTUXHVMoicBBAB AgAGBQJO6SDcAAoJEJwcveLjXFY1bVsD/1FkSDWMeet7ZGjLplUHbyudbTqqq2Lk tpBhOHANXvffJSLHVIcPiEIkUCtyCW1jsAWbNH5th/e08aNjNuHnA9sfoG+stlNc 9pAyd2c8MMXpe4DP1osggEKLSCJf7u3xU7SUsM86n5r9s4pNiZldWmMqYKkWOtyk 6HOWyaVeK7k4iJwEEAECAAYFAk7pIN8ACgkQb1KT2KObplUSQAQAqcAwuZnx+uZW pKiT/FYUs/vCC3XFrnJ0iK/Sv6ScQiDZ8cdTk96ipCSEpV1i7iaTDK5PhpNhP9p6 HQgyWme/w0I3s4g//3SYH9fmSAjm9m/U8v3tJjs/mRQIr3HUXck3K7oC71jANnhH A0xlM2eT76EvN0ShnuZ0Ph5GL4umk/aInAQQAQIABgUCTukg4wAKCRDvWJZk1DLh nSDQA/9pE5yzmw/S5hPN2n1u8CpWtyi1cDT0rmEe5Oc2cmcgNj++rMi6hOtUKnoM y1A3GTkLiVnx9BhOAW4xGANRBTsuPfM7QOxBZKmDSsiH4Mgy+olbfW55Kgj1R4jF bFOj8vDrS6toBUeFDA0WB6kHCjhhkE+xLypYN+xTQGrTeLsMKoicBBABAgAGBQJO 6SDmAAoJEMGcHSUS00YdIqYD/2mady6csrrS2myjDkom+r5P/LvA8fsGI5MyCRhQ Rv1eRL0QFgbnl0dWw4Q1AKAl3XB9GTYssWk7orbgxrO+4ciWIjC2Btnkq1hZtc5C boXvQXbX5vzW7xat7twh2lkhUi46x+qrIHrQ3vR3D9EbsuPDlxDqTg4v/u39xmFo yFabiJwEEAECAAYFAk7pIOkACgkQwCnKQBb0zOlxWwP/SNfpUlVER1Rj2uoy24J/ 7k26lBxc84uqVRq+fowz7EYB/knQ+aL40AUsypXpSnJesDjAmx2Eyuz2nBuFjws7 UZt8v6ALFJbLP3MFrfeM/mD2hijGOeVuGsord4OaAZ/9isuToMZijcOW2Fgdyc7c HYPikO6FtNswXuKea2e4numIRgQQEQIABgUCTuo/DwAKCRAY9QOAJMJ4Amt/AKDv QsB9bhJOfhCzMonD4LYq3bpmHgCgoW9RYrPyb7iSD1tHx0hM4n0sA6CInAQQAQIA BgUCTuo/FgAKCRB8S2dtoA4VY0gwA/9LI9Kf/eXItmItIoCO51KmeG3w+twehwUp Mgc3RI5hxF0J11nSRInuwKS5hC6jO8QnpWMjrL57JmwK+VTjJje+zjigt3tJVO+Q rFdOE5Atla4yChjsXn++ffEI92ZFIhalYEEs5bWzOrBjcOQOkkZz84G3rHRbG49d m2N8iY9ndoicBBABAgAGBQJO6j8aAAoJENbgof5PvirdNqgEAK2oImfkowMelxfb WTLvHx2yX0vN56fpLgjAsZIcLKUJ8N9fm95vpG0Zz2J/KyXphTlcsJO/Hm+oHeos 7mx/9MjXsO+tmDmU7kI+0PFxWmucZR6wBoMbPmZtuC/GqIk9wFeKGtkEgr2+En10 hChgGqIvE5LsmlVfaD2R8jFNs2jOiEYEEBECAAYFAk7qPx8ACgkQIfnFvPdqm/U5 AgCgxe+sFly6JTaO1N2EwjLVxI8ErvYAnAj8lhOAkBEqnzVpeSt8mNw+sywFiEYE EBECAAYFAk7qTvMACgkQCaeiStHlggd6IgCcCK5KjbY2e72mtDMne6VQwr2F/sAA n3hBsophnhJjLGxEfblJc0XihWcriJwEEAECAAYFAk7qXhgACgkQzx61AyIyegE+ +gP/blnJpgybp/4Swsrfqw5jnBzFzyvyOkQ2stAtmyCiEYJLhDQDZIYIc5viy4ay i5D6f4yAUUaA5/V4dWGv1aEDiO27GU5tzUuUnBmzz6KJcAN0kmkiSG4eMwdAcspI zZbGI16OpZVhO2N762Qfhf9yi6VQy7v5/b7FCqoHP1uAG3iInAQQAQIABgUCTutf 5gAKCRBfHshviAyeVTu8A/9rWm+tqZTM2Nb5lWh4H8XAYXH24TdXY3dWpEIFYy8r vudLF/RhIx6UzMwMDiN7NEnb93ota78HQf6uRVIHBkCR8oHzhR7TCrSEC59IKGXL IONCbF9IQOR+Yc0rT/Gz3lN53flSorhs6LIfXDLiiGmlOi13BIEhDbJ2f1ZZyiR5 gYkCHAQQAQIABgUCTuyeYAAKCRBQg+yIQOhvcUvTD/9RagF2zavJM9PX2aQ6C/s7 BcjF77n1Vt++H4NJ6wpAkVxlfY1v+y8b21F668R9DhFYNLepSvrasDgc8XAdnn9H l/Mn66YVFyUDOYoTr96b/zk+GnBYPcFso/XkIBgmSOfNNs6n0WweR8QfDY4q0yHT 2nUSUGre0Hxs4awA1/dMHlAumSS4p7nqc7+q3b7LXKaxqGUVoShsokoYF+bsj1X+ dI7c9R3kt2LmVtof0POn1P9sNf/FZrE/eKDYP8wYyJhhonMZAnlbWHxxMJJevXdQ Bk6HF9UMx7R7a0cctZJQ013BIejGLZmR7kPZhLAyQabp6ILqJzNO3W+ckk+y6Z6/ sqnC9bSEw21TDgk3q4+1wD/0Dqt+pddRtNyag1Ru3zFRYS6ok6g6smlrp/RVbpVg cdXWps39LX7+UI8XoUyNQgxIYQ2xd0eMpFtFrgLAllIU7cCpD6w7Q7B+/C4ZwjCn /Yt5jAtMsOJ121kfuUIAC4vnNwRYn0iGmkN86Ti7PSdR4rbn/5SpIU/FUUYwFNln Jwy0As/+DhuBXmtEdb/AMvI2n3P1rrTvcEYycfCqAXGNO98i8jCSVOzjml3PTQfz chhe8F74q/L3iOzFaS7FC2t/bZ9FaCWYJzMH6blSZ+yPK5x5KxedfQJo32c1oXnM N7BO+MXyq4iTddCaRuIIYohGBBARAgAGBQJO6l4HAAoJEDEZgFHPGk0sYBMAoPhW UodY6dFC+jbfua4wCm0SDxibAJ9cH0ocPU84mrTJUls6/05f5wKhiYkCHAQQAQIA BgUCTvCQGAAKCRBvD514lfyZ1JLkEACODPksw2LebOLPjzqnEihvaf4FUHwSKYQ6 VSn6ojZdNz2L1FJK1qTBEsFXfmqe5GiweVKk1N+AeTHFYXKoSmBfU4SgAOT3Q6ti UHtyKuJhhzANUe0RjFT/LA1c2fOZrJYWkavqusA1nmOy6/AeCMjg44QIiSEF5ALJ UYZp4npkU8nzAatdzMMVseKEDqKrUfSe+YC9N/P6yCxLdYYidlyg4MYsNBT+f4kl mpJJk+RVi3AHKH5a+QShFJZMfHD6/rd2yOEq2DFAIO/wPIi4Emq1O96g4FBfwD9r 6FyTqiNcz8Y1SJsVa+1ScSDBlM5JcOWKj+JCoox6a5qjyr34i4o/TNOesEVtXVVw bvSoikA2sQb5aVVTw0r0rGTy2V5ksN8rTXD8n5mGOKSVwQ88crHUI2JZkXapvWp3 /jmwHUhjCZxBnOUUtnsILV7gB8ohCxLaTu2pt1obbHH8DPZ3kHBA6rrmyvyBM22U Xmx92/XjbtrTHGUzdzGrxrxZHISwaFtneVCCAHhTYgESzwNZr61rA6DrCn3mRR9N JuwZvhC0u42kGkC2ulEoAu/OgFjarmu/6dbgwYfvLAi3y7BAL+otrjjq5cJB8oQj C80N1LqLuWfsatMOlgk1annhh/i5RdXiOmlg1WbW9zh9jRM1Sha7d7BlkoJ2LJzQ ySc/sELhHIkBIgQTAQIADAUCTwWTigWDB4YfgAAKCRDvHmkz/z+rnHJyCACaELza 3TxkZtLhZlJxxorWt/AHZS2Uui5BRU36+A7plALIdgIqH7cah47EK/kG/AJH9uiX Zd0cBM/QaigfSBVPdk+s9WBn1A9c7zAbUG5/VbR975g5txMhA5SC4LTVRIsw0Lau tFHnlWSXs3ga/11oxEsOvplayFeNDDlZHo7bqNsKmL7PjbAqKola3zSy+/ARIQ4P UpDEyAgUp/OAP0qZarzCQnZY884dzXcXMbaoyyYa8D2cDrrHFDAh5nlcv0jpRvGK ze6i1ONwoW77QajoaJaRE3DPSG3LahFSeZassN4540cA7r6oS3q1fUkL6yfbFbN2 8tTIWWWkYsFtZT0TuQENBE7pIE8BCADSaPflswYkibLPKss2XiKNpvBF66rDLuv7 Y2dIRic38H0gVjBeFbGowesobgnKgTIe+zFtAzS1tw170Gp5osZNg1fLhXZezA02 wbBuPZ7QIh1/Kxum9mP1uiB7ZYx3cu48zB3Ajf3GjGdsn7o92gXx1P+y71N6QZ1g PtK2Wi871zT+J236LZUPhHfdG9zxsYKcGbPHWDI7iVlIl3/IU1kmQAjX74hbdLMN erE5kEHfYqwQRBXUx299e4kjYWmPQcQqCOiWve016KwyJ19FzYcJM3PbRf/UO0aX +KoYEkQqDqj4UHJpL9V5/8I6evI5Bx6I+e0GC4RxXyYN+2XL+MHFABEBAAGJAR8E GAECAAkFAk7pIE8CGwwACgkQjlrp+87u9DsU7ggAkJ24CSgtqc2pWnQFGHAiyFHS iYfaGQbg1evtI7nLtk4Wyskabu3FRQRyFGxOUSoBx9H6MlBlbxjRrQljKU7b6WCy DSUcKW6IfcvKP5NXqArDnnBf1J454DRzip33CW3vKUROvgWPcxi+2wdj2yXcqM23 nG/2klg4JJHEsvKH89fuu5wMf/gE/7opVpxm3G2tQw51rb0oNyCrReDHUnlvnWsZ +7BKywQ6vFb9LrCWmnwuqOLkFqNQo4XB0HcHjGa3AY4+y/RXNuWNcL886FwD6R5G qrpfZZmSAqWA5sdTeBXeJTOCvPrRgvDQod1kpyVNQHn0VFR4dT8XDGk2TBgmtA== =qHzF -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 2048 A97884B0 2011-01-04 ------- RSA Sign & Encrypt fingerprint: 5872 6218 A913 400D E660 3601 39A4 C77D A978 84B0 uid Sendmail Signing Key/2011 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.4.9 (OpenBSD) mQENBE0ios4BCAC0mjr+Fljl/LRvhI3sI29bM146dWJFr+oJVTHuafDuKQS5ICeU 89LewVL6Pjp8RureijfbqZC51Z2v5v6GxAizr/LlD9FohjQXiAaA1vgPChBdzvLg 4TzEVnQOGFuDUnuucQH82I7ysQkK7z1GpFkofKHHgwmcfFpOiRLoUR7YVP7yDpfv Zx3EPvRoFtR22kWlhms49J7zgRpXUCH9ggrtcl1QCXkPOlZ+VspUPrZaZEZy8RTA 3W5l0yhnGVgnJHBfOo2svFurukQ7LAU4U6yCG5AFogcD3sgEvuFAkmWBJZ2rnOBn yCL658zfAJlmrni8kLQp6yBuEsUrT6jdRgRBABEBAAG0MVNlbmRtYWlsIFNpZ25p bmcgS2V5LzIwMTEgPHNlbmRtYWlsQFNlbmRtYWlsLk9SRz6JATkEEwECACMFAk0i os4CGwMHCwkIBwMCAQYVCAIJCgsEFgIDAQIeAQIXgAAKCRA5pMd9qXiEsHIXB/0S PFGPpoJzQqcEUHZ8w21mJOhoB6eO3GYRXBBLODQbu3x5qMXgTXT2fZgsSO5zkKBD QCm4lMns+cJCds1+ggAZLywNM1SUvctXJYIaHnSLEnEbxIgRMM+HdULlJn3xgT6w HUVZhzjamXOLospz5BfIXx9NynvjxvjcZ/NI8Cas1WFPvP+89fT+VCzLw0eC1bAo puv2CA384i7pqeCvw13taksA0QnpHeN9c2xjWA6LTbLBrDLoTkfxvas0H9WzgNTF DpzSuIHyDFonrkSvdgyOCIUYWJ0qkzDYnJzaOd7ku+4YjcF1bw5FhbvXAvcBY8OA Ilr9WaR2TGj7//OylOjNiQEcBBABAgAGBQJNIqNLAAoJEGBN+/KFQQq+gDEH/i7x aOd7L+QV5rIYyujJdirVoO/9s1+YJkKmFAKltUPcj8vOulQrxjK1E4Wul1qzMclr TpZnIb9lyoqIKlGFwx345iHFhDHdWeGFxMxeQBopyOmAZcfMIX2C22+EYGNZNUsO xVxpNV0CzKTdbfPHmBFSbA4lWnkyFxZsTR0GmGXRluwc1kT3i98QJbqNudKzUSU4 f0+3Uda3xrnLtmChSEc57PRSDV4jHdILxORcuHh3xi50y0J3JJ2Yj0utNZ/W2KWX guO0WSaNxv7lcKv5ilTWA5WWRt42SZfHlTiBJVpWydRBTZQGJLR6GTWpMoMs5jwP 9BGlbcR9J5+wmOFT9BmInAQQAQIABgUCTSKjbwAKCRASiW6bp38kKRGJBAC+VwW2 /kXhV70FPyny4RErQDtyovkyS4rqFLdTNWNu80xbgEZJZY9ZcxT8YLjePsPmDZ0R d4omumo5M35/gAastE5UMC4JCFM4v/iUUZwm5LRQNn0UtSKsSdHf32OqJx0FBr5k GAe9LAd6gIqkPMw4AaK5H+C3H9VbR4sWHr3AEYicBBABAgAGBQJNIqN3AAoJENiq 8Mr2swcpK94D/A30eBH+qNleOIlwocxV+Fu7g6rvIPdULeYSNLhi/cuXUzo0HREs FowErSD9gSabBkHbAUUhz8gBIXBATUKDgPfoqUqzYZmWRz15jgbKv2vVF36v6uuj C/xgVZJsgw5uaZkJM5TI7FCEIs8EfjtPGD3AG1zBYw1+cmls6x+sq6tsiJwEEAEC AAYFAk0io40ACgkQl0MBGHCTuEEeRwP/eaawZ80/BoQLdlgz6nNsIhomtFZSPhMS /AFMo+cd4G777R1VJijNiD2ou3/2QbcPfu8OPENFYMLAOcYxYTzCL7XgSWkMxAmF l2S1/xNUIteUwReoWpp/TZfCaTyro1VrX5pbTf3EYRlkF1qStBwmFfwSIZazhabi XjlG/rDXL4WInAQQAQIABgUCTSKjlwAKCRAee7PIr5WWJfQsBACcJNvwXwHZVaf3 +7f2wvqk1HxQk/3x2A/kMBSl1KuWFHV/WGu7Abj8hrjdrBffeCo27TpOhNt5946X dwBLl4LYNL2Ogi8lH4nR1DsLTcJKICzxveFN1pRafd7+raVqsg/pIVQnagjxbuTa 6ClKEqGnF23kfnjMmlkQgQqupXh6kYicBBABAgAGBQJNIqOfAAoJEHCgJE0e+ZJR RKYD/17M7wr4tyR+cO1vEJWftFbVCuyKnlUGH4yqjvZhFI0G3NhGnHcjXtl5Tntu 6gUOzObitN1vL/n0BYOPX4ppQ52Ocv6I87geOXC9EDREy5fJU8kX9lGkDRwWJEcg i88ap0L/8Z3ihtr73hKZp3V6zfBIKdR/RfxxjV3xe5AevuooiJwEEAECAAYFAk0i o6YACgkQyNXtKZX2F3G35wQApLZxcOkchrNplG4YJMucVcPFyNzeUFL6yhV6PMIQ Vz8/ktBYF3LK2QQBxIFBEINF8EslKZ7LSfiFTSvsAxb8OiXGV23qHnglfN2zLFrA CR9wvZ7jtDHHFfhHoDN8d9PA2LQR7M9qJzf1ltTaSETm9bSEZ/wC+VHvw+EVQU2S OlSInAQQAQIABgUCTSKjrgAKCRAhg+GxOW8HiYOzBACR7nqyHOXspyNy0k2iKkEN yAaorX32AecPpwyee7G2+QLxbK8jGGcmh5NR/GUx3ZbdKroyMZHK6OrQi42NwC7Q n9xnzzgUgSdKRwnsA1IyP7DpiBSXMdk0kCc6UJy2L9fanHbamAe0oSZAACt9ePYD jjq4Jmf25ObWv16Hyv83N4icBBABAgAGBQJNIqPIAAoJEIlpYrhnjAoDa9sD/inn 1dFkBlDPlPtGwHbw3+qCk8y6h3HpZubae7FxdE1pzsh/G00pB7Wy5K/EHL3MKlul TxtetwQhSrYBmsPD5t3BhDKIyU2MQuec8dbJw/O1/7xGYmG1O4gGwq9vM4C2g+wz atMl2pQnmi9DhhxFTwxhTgeorQ7nXrTclbuaqyLSiJwEEAECAAYFAk0io9EACgkQ OCLbR8w3Ty1JCgQAjkZe0O9GZko22lkc7/3eql8zKwBx3Fpugt1NZ9nyOxeS2WpO FfuiAiruA+p1L7b/dC60BUu+z6pgGIs05vIvPzzqjxnPBhqeYwWeW3ABa4JMVDi1 RkR4TK6PsEj6IE7ZatzqiPST/GNRrjvpqtNyLsEbybPdY13hZSmxb780d1mInAQQ AQIABgUCTSKj2gAKCRCcHL3i41xWNXseA/93476LuPukf9rKz9hvf88HrK5O0YPc jG/CU2nFLhRbo5gkGFyf7540pODGBaCHyqwT46etzVY+WtZ1fETN0ALIJwoXkbwM QE637pwnCLUO6ZTixa6CwceWXXAIc5/hiuQn0uKL8x4kHUcMUZqggYvqrjG1ZEDG ZCVuTes1yhalDYicBBABAgAGBQJNIqPnAAoJEG9Sk9ijm6ZVpFYD/1OyjV5+9N/2 rGbKcfaDXqTM0cvBjs1vBvFJfmDCy3fcOv590SboiCwY6dt5Sd6eRruY4FaTnosI V4MZZnvMq1W3KfbT6fvcli/hgTKwYfJM7Mj+Tdp3uOGXN1u+cvKEfY3YHwDb4NAc G3jPSslu1nrZq84bsokhnE+en8du7mKPiJwEEAECAAYFAk0io+8ACgkQ71iWZNQy 4Z1jiQP8CdqzrpIpNuKOs1nVcMsX+T1ZdiNbqbPYbjhQx7isUoaarDk/tQZZGxDE dEXayRuNobRzQXltAKOhBrXlN2yFP9d9BR1y8B3dVBO9vsThuQ1BtMrtLrAL5In9 4RyAvpuKcOhWnf9kJLis2MGghhIllJMuXOFeyujE3A4HSHFqGDWInAQQAQIABgUC TSKj+gAKCRDBnB0lEtNGHaOHA/4+zClhAJappAYqATHLCs8mgzYa0/9RvI+e6iV8 OD8/BOJl4DnHya0ijX7Kt78VJymcmdXge1ypBnq4D2b/vTo18asDfzysPhAmPoCK FTlerV9xV/TW/QBZ7EkPW3BwOQW7LYnFd/NnoiX4z+KWh9FwOVWlXPz8xKgBgX3V yoz3l4icBBABAgAGBQJNIqQhAAoJEMApykAW9MzppmsD/1HonMTzk4X9qvhvaLTU /OKvOzxIdX6b/62DA0WZxN3Duyh2S8OLZzryI9SASesk5vgb2uSMC3dVCwOcfsiz QWqStOLG5eyYJh0/iiRZ2K4YM/FrFBo3+AmQ2IeL3qRftBWGyIf11l1ZFS3Uzp8t uzIxUFcQU2bJpy7GjHcq989qiJwEEAECAAYFAk0ipIwACgkQvdqP1j/qff3gwwP/ WTAZ3r8UYbMoIN+ES8A9xLvUZRh/aT7TtiFCLxmJXIk3e+XKHw57DO3WUgZEo99d PYNm/Q3tTqT+fj1rIDH9VdxhiSVw2lq/7qoIoYFb1fyCtuMQ+27jF/AFqbkDQJYx gcnalClseYEsA9+GYKYfY0UAQePuDuWBMSPMkM+m+e+InAQQAQIABgUCTSKkqgAK CRB8S2dtoA4VY+t1A/922nF4Apuc162UVBiP+v67PeXLgekdkjqlDACxqqgWWerW 6e41VaznDZjIGx76pQSbguCq7XbQXkiqO3E7bHcbjC8OEZ1Glju13GZG3heaoc23 4n5pNctLmBWSdrp/4RCaf1BAgZ0UAYPO9fR7ZJyenp3vID8vwKTufoy0nR8/MIic BBABAgAGBQJNIqS6AAoJENbgof5PvirdRDID/39vOWdqbvu17vX2n3GBI4RYseA2 1pmvDqvzQcLLDJAXr1auTY7uiotYlXA8qPd4KTy0hCcj2r+7lZMhY1mCumG/0Sp+ CahRkvUk/rVgWLeK0WGEsCV4IcayKc6ARJVKW+JHUNc1eAScMDAlMOyg0cNtQeDA huCt6hxL1YGTPpPSiJwEEAECAAYFAk0on/MACgkQzx61AyIyegHYdAP/c4bKqid9 lK7ciLbuo7RD0ZngCy+mE+xI4EQV+5LEhFVrqT+fMzSlHKLZGbPPJ2yP1ksBJITw cYh7wGN7Dc1xA5bnB0CtjUWYqGRcQoifbgetdee2AfRs0+RvnEo5FMJIBlJOPc2X o5eDTxmoSrt7cxnh7PEZnbxZi1gp/wJ+E+iIRgQQEQIABgUCTTHB2wAKCRAJp6JK 0eWCBxuyAJkBu7Qu46EFKyVyC8eUFwLJkghR2gCdHQUS7eF9pXHFr6aN3J2VrGFe mFiIRgQQEQIABgUCTTUNYgAKCRDCeBwaRrHv4ROhAJ99EeU9KWWDnd2RjCN7uex5 S6u3rQCeLUshZhe/NCehUnaaC8LJ1kwj/5yIRgQQEQIABgUCTTWM/AAKCRCWnNph S7Y2S8bjAJ9bOB/fFGyPgTuwQIEakXITRILLgwCgvrjaVZagTRwQW2BM1uH+vk9j yDuIRgQQEQIABgUCTUMwnwAKCRCiu/skDPlW91hCAJ0eizb5bxByUpXY0qsbcupw H3kiBwCg1Yc7cur+Yz2dhPuRreaPk4QeVrWIRgQQEQIABgUCTUMxEgAKCRD7VAFa +haI7RKlAKCGogTWoJdDbetwBdRpRJ72d9qUgACfUehPWCmq2A/mIaMFlPI+F3k3 Lk25AQ0ETSKizgEIALV2tE8RtEgC1fjw4zHrZVUChXKm1uVEkRkeoaASrAI4IiK+ qtgbNEzhLEQavQaIZECQLCaQb5qzvKLCEvuo5tClU+2P4/YjnikdBDFXUwHznSmd N27SsX6gNoeX/ZwaEJUNpMd/v+/Gu9QmMBIFUhtXXZyeBBpCyi6CP5jw66KjjH1g OXCQvSYJVlutIGtzvHolvQ2I+h6Ztwy9d7pFIVlr7EymFI+x0oI/i4UwF3FZPVWO C1OZD7suXSre+eLzYXGBYyHkvGldhA/hvKLs3Z6udcirTMtX27xL6C5WKaCsuQPu ZiYWxJ2A9UgP6zTuBzmAJ4XXKo7QgamAbxHT0sMAEQEAAYkBHwQYAQIACQUCTSKi zgIbDAAKCRA5pMd9qXiEsI/1CACv83SSDOBt6HZcg7ucOZJ7Wkb5EJG6Mseh/K33 CFDwWgYa20YeUUzPWD3ZRKY4irNL3ipnB3tJUF4yaasTPpI0owpcdCkOhpDw9S7M AOnUACuv3JIZ17892ZLjXalNGMY/23qPxbQIaAidNh02ouZ6Md+NUvgh22+oDa+v kxTkXmKiBGFpqY2myzzPvg84TMTpRBU372CZpmjjHK8duObUr9I0iIbVzshdnWuR MKGu+n4hSU3SIYl6xLsdBGpiDOQJ3C1YHIduhDrQlyAjDVEgzgw20DUxUzKIpn2b KH6d5q94eHcPD56A4cYD275DIZzAYqRpwzmB9O845HrHAPmQ =pDAG -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 2048 85410ABE 2010-02-19 ------- RSA Sign fingerprint: B175 9644 5303 5DCE DD7B E919 604D FBF2 8541 0ABE uid Sendmail Signing Key/2010 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.4.9 (OpenBSD) mQENBEt+6goBCAC95sVPzf4AWFmUklHO9yGBq6K135Tlt9JaX3frj6PCBjkLNn97 J5WDAoLqE9wB7WgiBzs2lu8OPZZcf+6syd97SojEze5bj2uv84DBv2juupbHEBys 9OH52QqYWG+1yuwAHY2gjKLYcvNgaOKLp5hoHZ2rakRc4a2ypLTPazsGFBO9/qBA +v6qkP70/lOZeN9HX/yipbygAE+Y9elptW6ohvdGW8jbtllFqYFebB+lIaclkQnK pldnQfktnJDB+XmLOc5m/1BsultlI5IH9HXCeskXxLcxXq+ldg+it1DgzxmHpHTK dIhgOKY3MvTgxkcXiwIGcHBMnov6ESL1KaU5ABEBAAG0MVNlbmRtYWlsIFNpZ25p bmcgS2V5LzIwMTAgPHNlbmRtYWlsQFNlbmRtYWlsLk9SRz6JATkEEwECACMFAkt+ 6goCGwMHCwkIBwMCAQYVCAIJCgsEFgIDAQIeAQIXgAAKCRBgTfvyhUEKvi4qB/0T Em3whttGoUrxdZd1gYKI9SY1/4dHOhD+xJQQgIoQSRpOEA7xQ6TTAYvG8sYdsF5K 9/lWjOTEy5w6wBcu4e9F7aO/TUzue/7p0c2UKJTrEOw4HsRrENfQHx1TAXudQHHn 5+PgBCQCSr36ktuSXnlOo2bGbZ4FUwNCu0ztmoEEca8ZgY6ciEXbva1kRj6Eumul MkqtVYEAtjzdIga6M3xYuJlus+qi/uEj5kivtf2LUDxXpGE6XFrArum0za/URiW8 wxt5zBbTbne3tDr2yg6GC046+f1Wr02xWYapGyNRU6yrPciWOu0tpaxJ7CwEIMRq 6HzbSVdZkqOdSoZ3ufqYiJwEEAECAAYFAkt+6lkACgkQEolum6d/JClfWAP/VBVb VYBQKV+NQyXl6ULJI91iIpEAR/T3nRoemGVPhbB8a7zRRkz1h4ou6VAMJeS4BxSC fm2iOHCYMAOMSQ03VaEM2F13b8PtsGaKjuAwDf2pHARYbOj4DRCY0dUmwPXze3Tp 7S5ui/fk9t+NhQQa6IZHFkqdnQ+xZ88hhoF5slmInAQQAQIABgUCS37q1AAKCRDv WJZk1DLhnTPYA/0VhRNooc2csxwvxBG6HiS8wp2k+kbGbbtlQ4JFg59p4EUnT2Ld P9eUzFtj6fRkU/bZcIKgOn37M4GOXEoNvMT6NfmpTKeofg7hwp+pMdHlq4y9Em55 TSC+rK2g6rAaSxMvDzasBouQqfxirj3nBI65zVHK98Zaj9vrpWCVCBIoZoicBBAB AgAGBQJLfurtAAoJEG9Sk9ijm6ZVjcoEAJdB5kzFWHsvf0u/Oe+LWQwowL5SjQ6W uhKgTDJ5IqFbDlCT/V33mpLEC9us4wNRT6Bff5agInCKfcUXdJijExkEbDB9ErZc WmZqtquxQJN3xH+fIoIorxjWD0RMPmMvwQRgjn/puXwichQP9PafTgd9YsQ3aWAU DGvx1U8pkloCiJwEEAECAAYFAkt+6vIACgkQnBy94uNcVjWGswQAhqDOQ8Os3gOo UAGm/Oju6t6JG4wxLyl7vlMZ2eQHAX8rJ99Q4kyJB9xR4uaZ42BwbPx3s25N67qb 6z/ZAMrtqsXuK90+WlwykxG1uq4FOznHU6QT7cyO48Yeoq2PO1kFgQuRESPCRxXV 8dmDgeoDQ0EDO1Ykm003AKCd0N7+n1CInAQQAQIABgUCS37q9wAKCRA4IttHzDdP LXmrA/4r9bzS6YnAHE0MFzByA2uZq0HeyrHI/Q6ELzqeMjuu/CwKdki/8gzz6Zt3 KkXbqd9mPidsi/nqfUwQlqMHCFSRTyqw3FkGzQ/wk9fk4G+AF+5A//xGFIACHd54 a/1+k0iVM5GNQkrknltYps0TmW8priU1uzmzAHpsCh0e4xFDIYicBBABAgAGBQJL fur9AAoJEIlpYrhnjAoD9mQD/0s7tHTX+Mzt7iwZzsAZEqoxSQS5dUAKK+j6GR5K 8/cWcdiDJwCABViIn+TT7/GDmTlA4EUKQzIMPDfuagqa1SPxKXgivUnfhmpJVAma MUmZeGFQyfTBjp4qZ+Agk15Ulnz7arqmOmeAWSvdsJ/vCm44TCEDO1gIjLzgyOIc ktU5iJwEEAECAAYFAkt+6wQACgkQIYPhsTlvB4lH8wQAyqIKclShWxxaXi6YpS/k H+susHMVePzBPyEmv93UkSOj2bdMWuhVENPXlBn1UnFt0vKPOL+krF3+zIAjg6N6 zFlasBUL9p2HqRI35Sq4cn3S3Im4vZIPwWNYgtQY41Hc1Gx2pIxmKtIz+9+sUiTE DGrTxnzUAohPaTzUVXPtWOuInAQQAQIABgUCS37rCgAKCRDI1e0plfYXcQXaA/9D +sQJdEc1orgN/aTVGKkKoNyMmJhtNLECYIsfAYcE9lMGtymkkli0BrvrtNN1Co6P qmR+oaZSmeyq0qNVdV8AnoyFI5Dk3Nir82ISOtvzuNzn8NrosSed0nyVmg88amTa WoJS7as6s6/lCxuarGwRuHA7vXaxDg92lCYeTw09I4icBBABAgAGBQJLfusSAAoJ EHCgJE0e+ZJRWiMD/i65FDmbZo0srV01XwSUb8EF/70RF0uOxrGfunMin93cR8VW mNSzcydfH/mKR1Rf4Snsz9hp9NWryZpjVXrPJx6GOBzzwgyUtzAxH6OElv7rlK2Y XJ+Xi94djsyB56e6PKHA1uB30g2l5beh0bDUEa9mLfstTidMWGXRdtnVtW5KiJwE EAECAAYFAkt+6yAACgkQHnuzyK+VliU0OQQApyvdx0YKiDL7EuLf/QkOk64DRAKf 7rxZSlN5jHnNJSQeX7cMRBcklbl/GlZH2oyHdDuahrZ62MT/mCneRIH58lf8c91h WLFjkpU/j8Md8ahFQDWpCwNSSwz4tqZyhKfeP/w0OaHC4ttAwbjKk6mn0wFpWxpH sYFc08L5PoUyaQaInAQQAQIABgUCS37rJAAKCRCXQwEYcJO4QR+cA/9EEv5UJCgt 0glLmhIzpvGxlEyzhVqhtfDE8CI06lOSGWhYy4VCcOCho8ig+atxU1+/zPaJGIbI mvR+kuPZ9kmtd+LtV6fWtp7U6FrAZSXV6paWHc9ZCLJeKSNwmRrcOqaBEjj3MqNA pwXO3gCiuylHzgIo05+FxRho91AS/mciI4icBBABAgAGBQJLfusoAAoJENiq8Mr2 swcppz4EALJ3JQOIPsvgptuPdq8XZuxxuFonjcr8RaLB89a9MDduFBM8zw/Q0qcA asltDtQidMwn+VCDQavkrpEM2QbNxFfhbdnw5c97CvovgmTATPaR2XZ7LaeIwE36 HLL5e5/k0BThiqymD3tjaFbx7uTK2o3ZTyMvbjtqMOdt0eLqFvHRiJwEEAECAAYF Akt+6ywACgkQwCnKQBb0zOnn+AP+OdZu4BowBVYzmygmM1O7XyiEMd5TB3MxwkZR 8+rGW8Xcl4JtLY9iiXzfakTHuP3OrINrhXnMQLAY46kAcUc+VcHvLdMth6btsltE Jjc33aZovPRabCeKVCnDKcEPRYclsXgGStXlFMoacI2KUUENZeGCUr0NJb7RnAk5 Pfuib+mInAQQAQIABgUCS37rVgAKCRDBnB0lEtNGHcMMA/9mYtgCaK/zihws7d4V p+uQXKjnfhKZx4XX33BoUFgxC2N5/TB6qd0sBnaUYby/DDGh6W3721dGTw66i9vF Wn2IJ6JUj4CpLCCFVb9FxPdjrt/F1eKg8N1SOfVQg0D9Nkl48Y81tIf0xcMa9yuV 8qssX8baTDhatDGFIZlYPfGpZIicBBABAgAGBQJLg2FTAAoJEM8etQMiMnoByVwD /3iim8IBm3ssOFJ58RR9wFPgH7INTiE28vO5yO+f2i0/cEdWwJDwmqOpKhUM7DWy LeK7LaZWzViuxh83ZI2KlcJJksdFtohuzyJul/phyaQYDPGlgu7AIthNm49pdDnR 0AAQl98ccn0iT69Zp3Fi5fRMHVC4ChBsBir5JjJBh0aliJwEEAECAAYFAkuDdtQA CgkQvdqP1j/qff0GMwQAqgbWFQsOoEzzwSDo/SEun8gmRRLUH8vWx5Us659x2nQy BPtp8w2HpqKsyMn2E4TavKjyzUZPINziPVszXhG+dtCFuOQvRFFZzFQccdhAIB8o KJ7y/LRa7MpvIMRFJOURBnJgQ3asUojRcksd+rgMqujFrwyYN5J+LeXwBXS9eMSI nAQQAQIABgUCS4N2+gAKCRB8S2dtoA4VY6KoA/91U29DqRR0XRlk+KdRs6Qjo/R0 lQp7uUtuP55xJkv+UMPVhABbMOR+/sjE8eUJdMpHfaQmdG89M5VZ+Ck2MZrhjveE acNH/sIWCDvIFV5gheNZycpp+wH2VO7+i9bWmMVl4JKK0grFRYQMqiqT+tHYfXS3 MVQH8U4EhwnFuwFrgoicBBABAgAGBQJLg3cQAAoJENbgof5PvirdPboD/jUU/UV7 7jGtnW9+xrsUUDcHeU8Ha/VKXfKts4Z0KifWYnjUOH5jR/OqYzHy7vAOyGpyrziN eJHLM/I8AuTtmsCY3IpfhaeRg4ZkJYRqx5QkhfUesOpPfKVPYtoF53Uw04iu0dtv 2bFftaX0tX/hKhWmzobllBGM9b5E4G+kHCRZiEYEEBECAAYFAkuEoagACgkQCaei StHlggfktQCgjyKOB4tlm9WnufcJaYIbchyZVSQAn3thzs5akheaVsVwBHSmpJyk PDRbiJwEEAECAAYFAkuFS4UACgkQXx7Ib4gMnlUZEQP9HoutmYz6pAB8XEADTKrR wTWGqu/S4V6zhSJbIYSDIFAY+WeKCTUdVO8eFfrPIrS459z8yQ3PgFKL3QMp1VgX jMGPcvfHOjWh1jSw5W1aLcJX428T0oybgLZLvPT7QXpIwKcY8TtS/jjVTaepIqIG 9tmQupstoaw/h9b1vHY7R7uIRgQQEQIABgUCS4Uc9QAKCRCWnNphS7Y2SyT5AKCE 1AR60B2GDZ75U2kaNe/SyOQJ3ACfVtndQ22edDOB1INak6SyfYv9ZuSIRgQQEQIA BgUCS4TumQAKCRCiu/skDPlW9we5AKC6dNVZjpg/yDQiepI2E0XZ222vzACeJ7Ds 41t2z3BT4qGJyZrpGK8G3kKIRgQQEQIABgUCS4TuuQAKCRD7VAFa+haI7WniAKCY mNr9FG/180EcUY/tgaHNuUDXtwCfX0DYjxL9ExvQ7wB2uXB2M7AwGxSIRgQQEQIA BgUCS4Ts4wAKCRCgT/sbfcrp09HnAJ0dELKCp7WoOoAPVBHez/sfHAmgAwCdG64t bjYwj5CamCOhDvuNjfbUpBSIRgQQEQIABgUCS4W+PgAKCRDCeBwaRrHv4S4EAKCV LKV3q7PiVV5rb9T+s5uyrETBsgCfUVhchd+Ha5nbduvnF25C0Eswouq5AQ0ES37q CgEIAK8GnjvPPqWqcNCmLyuscuTKPjqTyaA3xVVYNX+8hMD1iK4VAGf3QfKExVnN QLvLpnknnKK/caaXFME9t4L0BTjCJRYJiDpoWImwu5fTRIyfIIy4vv5vPErqqKen 7dII6gptC2i538ntj7k8qkhewKJuTOVpE1eLHe3RxuP8rsv1AsvjJ+6WGZlFYINZ +d0pxSOhdPN9WoTCl9JfkTQrnoVPClzG/euOkF5fUThL90gt31iN+RjB5DeWTPB/ jDrq6t5spA8hTKvQ+UB65chI6TzrCr+k8f5D9AR0Fkf9KPFOL7+U9o6Ap9yur5sn njDP4fFVhazVyljUwwPvJ5jjS1cAEQEAAYkBHwQYAQIACQUCS37qCgIbDAAKCRBg TfvyhUEKvpWAB/0YnkJx6/5rIwDh1u5iFdboUCEsX92n9eOilPWw1NWbq/Gdx7+Z xoRjrGl8e8SxOZJbfyehgPX8NxOrkBfcAOOXmOvXSO1i3HSo2gaQxVh1urXojzID raUMcltcNeQagdtDfPhYnS25vJnj+H29Dal2FwLJb9wp8QH1DdhUBoqeRQH34REu fWu0LjF87JjUELhZe0Op4B8HnQV9oGo7W4IYw/3Ek6c5As+WIWSaz0NmHP2Xw+kI kpC4BVIwG0l2mChAT8Ds+rDLGYA2dxYK39mFSApem2KiXFhAanDBb5XgilmeDepk A4NAZlDwxoivB/5PTy67pX+AC1JgvPPafUMu =6Xeh -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0xA77F2429 2009-01-01 ---------- RSA Sign & Encrypt f16 Fingerprint16 = 33 3A 62 61 2C F3 21 AA 4E 87 47 F2 2F 2C 40 4D uid Sendmail Signing Key/2009 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.4.8 (OpenBSD) mQCNA0lcVHwAAAEEAM7aXDJHNH3g0oxbsSUjqRiKh47W4srnfEYREj2Q26AXWzXE BSyfl6QMRLbSVNIiPOWlMPbZWjCx4c1TNsj3TiiklCcievlvbAPVa3kY2hZ6pmyU czJq4S/mT1lt+uPOCjvKxo8OLQoFuJMTIS+Ya7LVjW7fJD5yrhKJbpunfyQpAAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDA5IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQSVxUfBKJbpunfyQpAQHirwP+JvK4cBqtw9rxSZ0whmC1N4a2r24f SH2WDC1zNNeiCHg93udKs3PKLPm688U+WxiaSsrGQXQlGojx7jn1XggTPOG+SteJ JP/Ea9buJK9KaLaniUm84XxHxa71y3v3+SfhJMpJioY4G6qKqfLZFzmpiwUTvtLR B9LfWvzvUUHJSTyJAJUDBRBJXFY9wZwdJRLTRh0BAcrBBACYcnhE8cx5eA8WqTR4 2CVZgxxrIMOrqda+hdpSgsRjUEWRpb5+Es1hfM3OLXqbsywCTUvxeoymVYQr3aSP sbm+rQ4l6gf7ibpiVZA6vDxh0EfwNYE+aI3AoW03ODoCAaj+utOjGdqzIcec0RpS zXPI1gWW3sBck95KsiDUYmXYTIkAlQMFEElcVkzvWJZk1DLhnQEByUIEAKOdWew/ M75xyVbugMGUZnAJrTZPKu9y3V3TLqyET3rGYfLjt6M4R+99j+mkhmi2rOckM9VV 30kvjW9BBarnr13XoMVTtLneoLaVrbMw4aZHRkTdRL14LIj+w1jzEKXDwYylJbGZ UlmZn7lFkJrLIaBDmQl7GswBJRJvFLQbdzzMiQCVAwUQSVxWVW9Sk9ijm6ZVAQHr DQP9ECF56TGI8YRPVOzZJzUyOmiMAouRoJ74aWfM8TA2Q8gVtedDc6IHiNzcVjq4 jOZuMgb1KTPPF/TwWL5MHIFldsMdJ/i0Rml+x4h3Ff+8ZYlJgFBylUmx++nW1rbc nn9RS/Es+zKsDOnTN5fTFo3br1z2saLnuXNB+SuJmSC8i2CJAJUDBRBJXFZgnBy9 4uNcVjUBAcdaA/9ur7HbueufNbvr0HoDbhBijagbeqRrzmYtsOtYUfBGEtc5JiNH r7NIAM66Tog8p9ZZA+qOaGHvujecBOTlokLpPKvcQngOz7c53z3Yop90TnMytUL2 IExcuCdH4BMy72R5nH5YY5pMqb7pFjcyGDDIM8cxMgbZ3gzvbPDHZMUQ6okAlQMF EElcVmc4IttHzDdPLQEBJ/0EANME79+Z/BItRKlSgzH52JBGGQZrZi57Pz+hJ+du K7RgSkhpsXnk1kELvig5TCd2YaDZXoZwUrJLObVKAMI4lpGNTkZlzRRrFXcx4Q14 YPJ/nay5jkqHvR9neKTsifzdsPVLi9nUDBMtURIQo5yn5AYMloiDzw/HpNGvkk92 ITqwiQCVAwUQSVxWbolpYrhnjAoDAQHLDgP+L+Od/CoHaVUpsZld1SJKwvelIe1S wT8SBqppQyDbKw0ZczetUSASt+g8OqJKD88I2no5mjEmHx0lncoKJ06qxpJBIu7A lbByeE9i8Bn52YKhPGka4AwA3DOm5yR967BncOf/zY65t83hocZL1uKQeHW8wnpR x3o+RBz2354phxyJAJUDBRBJXFZ2IYPhsTlvB4kBARKHA/sHFkKAvCo5Hto2CJWF gyBCJUsUuHCaQTkfL4IspkIBjmrsr2KKe0WQUqIlebhhWzVhgYsc8AXZil+pLahC L9CNQVQpoPKD3mit2+Vsi8254QxQjeYD3jUQT1C6uq6l9IORdIxYah9DNBNHCgwX PuTMmpU1JQj6haKhGa1kbaQq2IkAlQMFEElcVn3I1e0plfYXcQEB2TYD+wYXb+sU 0vmG51lVWj2BPMvv/lbfzU6KnqXNCD2ra0yu6C83WHNFXEz+JuLYlzLnaKm8DJI/ SFBZZIxpUaoaFHyGrjbWrDI6oMfvp/dMnJjfibNbmZuVIl2z0TKO98jiJ/+/9e/5 AtCsSFfyZ6FSTtAHbG1ZOJvhPBub9aELiUCiiQCVAwUQSVxWknCgJE0e+ZJRAQHz NQP7BYHJwViDWqp9c5DmxM6vHrVq/wsDyPgm52+QpopErCRt2iTpocldHQG/9ZdE 0ENn6PhI49xobh+m0HfoZZ+Cr4LPU7g2ftmEtrxtDN1BYdNQHZLZStUp7A8SsLgL 2IvYSI9iKAmQoWQTAOECDD41o1BOnnM1eraeUyqdmZaFm8iJAJUDBRBJXFaZHnuz yK+VliUBAVgdBACmbsAKzbNnvfaTCJxqhaJI5uNDCdH7rgoCHEJR4aefPY89Do7b ixLCyW4wUr7pxqvf/xbEGJHNCG5WnmncXBCnoEVqmHb7J9vQw1o3K6pRPqtTjVBR VEUUK4xe6ZIOft3FOI5fKAPO5Vc9NlxPDjSJcjR6+B//TpecZ2L9A/Dp+4kAlQMF EElcVqGXQwEYcJO4QQEBl1YD/AsMu6g/4KiwelIz2rDzm4wzvsQm+cYm47hv2IHV Fkx5f8mS6um39+4J/FHni7i2bfSuHpRn1RdURR7Gebu7HKYfGTNLNYyKt7U/6VFb ylDxUTS32sier3GlDrlJrBQ+VDIG4dUaioKoKUXxBhEVzAZrvkYhaiGWIl/K4zz5 C1qdiQCVAwUQSVxWqdiq8Mr2swcpAQFzwgP9FJOM0MysHIjq/KihatPjerxhud6j bd1Zo/tIKybvPsJNaeTeR+0IKm+vbAWtYL5oBc2wxgdQAs8tUi5SryK1otMAJ6sj KNN+QxIp2FEumzReGRo+hCETiusjD9Abbh1L9L7FOkhGhH+m6fBVQIYUytmMFpnQ qn17I9DVPxpwob+JAJUDBRBJXFa9wCnKQBb0zOkBAd0BA/9yRRB2waP3duE2rYKF Obsbs3XXOQHEl/rjpIHVmYIqqRSglmlTEXwjKJeCEN9q0PRiazhztEhVJWP8ORRP fkjlscP25T4A4tMC1F49biMak5MI2ffawVkUVsjIWFF/vFQIqKl4JG8SI/r4Oxep yaozkowCJX3zZtkEfB2Id1nU9IkAlQMFEElcV0e92o/WP+p9/QEBxQID/R4E3pRI isTe5RJotQKcsQKo3y+8KkmvfZQ6d3h/n4anq6bs1rRrWKqL6XoM7Nc5teLR3QaW CVTssPtt3P06WqMm8Ct25iZ8dIyqRN0d0k5dJ6d5Qp4WSCL0TmTQ7wO4q9aCOhGK YFKCP3i2v8zCOhuqk2pLeOYxl6f912COvmwSiQCVAwUQSVxXVXxLZ22gDhVjAQFU WAP/TjyHxNVsptLRcFRfMCi9fjkrftbma00pzIaj9d6Ybxt6nMQ8C8TCTrurkXpq 9kGIrFVndsovql8++Y9VsDeh/vLX65mZl8FEVFvbl38+YSYeB44upadibU6uB0iL zFz6da6gZmm/NENX3UCldIWv35L33EFotQ9GxTn8b0MQnY2JAJUDBRBJXFdl1uCh /k++Kt0BAQ39BACfVZaig8loIuKosYh5Ydcefe0NZTZOCgPZ+mAzShEeBIN/btA0 +jMXfu6tEgqUKQnyKCXZcPoZwY9Y0hOqGT2AIkWmZHJ/uKrzXIAcwUTS0TQV1k5x mHPkZmvr55JDYp/JIbxIZ8QTpTuEzlymow12qMOUhPkL/wOQET9duDMKzokAlQMF EEli68zPHrUDIjJ6AQEBzacD/RPBzReBSsVar0+B4xEW0i11LKV2Q7gH+y256IDX 3SxML4+GZM9FmEMVhlTbHPOE2rfwFvLrMxCmIqGHjMccJRZpV9OFpXa8z15FRDmJ U01qOITDcIAiIPgGamifxMOYG4+spaj2sxLGnY/6aowhjh1XNbQPuJ6laNq7bz50 wzfu =RCyv -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0xF6B30729 2008-01-18 ---------- RSA Sign & Encrypt f16 Fingerprint16 = 07 FB 9A F9 F7 94 4B E4 0F 28 D1 8E 23 6F A2 B0 uid Sendmail Signing Key/2008 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.4.8 (Darwin) mQCNA0eP9NsAAAEEAM5xPc5UXm01Mnqad8NPc5RkbeWcotxNOZXwrz4qQM6sr/E2 lEMGgo5FOjWJX3tjtys8gfXZJihz3XMD5RleniW3RIhc2tbTJotNq9Qq9+LmiuBs lT32O3ZSKsQtHQSfZ0j2bIabC/aQ4Dhfz13wz7x6VvRGwDbX3Niq8Mr2swcpAAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDA4IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQR4/029iq8Mr2swcpAQGa3QP+O6q/DvRLzM03AwIrEPRjdswejima 4BjKYYVQ1Qa7m4pyQeY/0CJScqu5A7p+kCrLqznmHu5aeezvjZy1mW7OCScPrCN9 yC3IJdu7oX6mGZwPdUnsEyJvtHmiRXkumJtncmhcTZyplmt9ZDHVADQUQWRnyuex oToSOeMPjS8YBpSJAJUDBRBHj/Xol0MBGHCTuEEBAYnzBAC5U2c8RtxNwwV4wh7V Q4isNyXcYqUlUL5ZjtsP5+vuHz4d1CtT/tD4jGagy6J30xUuwUcF7AlNLIcn4z98 GqF/aMCANut3dpGbzzvLYg+SkKkrZKH6fF4QPbdotp8NWKeiihoqD+hD6sVNc3zZ /JymsmD1T346VpRTwKf4JzkJG4kAlQMFEEeP9hEee7PIr5WWJQEBP1sD/3I5VeiC lW9fmwaAyOt/BrPIfsieL2TLysXCQbXFObNqqdR9APPlmQAtFdERjopQZu+VKvZd pInWGaIegibPr4ZyGHmGxmJwYyHCt0MNvjY2oA1WPVRvXz2dno7Q5SFDR0sQaFKe 4knKfzGu8fngy//R1vlO+UE3vTQ3cgTaIpDsiQCVAwUQR4/2GXCgJE0e+ZJRAQEH 6QP9FVDSFnXCSPy+tNFlLhtpjVOEqREG30iezAVZlx+yJVSb3/sG0LRCvXB1w3td jzW7A1iCvEQVb1yuNSFPb6Dq7TKoSpS8XZyCIetCpzab06D319Ubfcs2lHaDioY6 ibSaysDrBDETyXg1eQBIUQ+9iltfkI6HRpm5vgz8d4iwieqJAJUDBRBHj/YgyNXt KZX2F3EBASjtBACNzoDfjET153Zd3PQlj2X6b9BzjS8XHsjMuo+F04u9o3g78MSt +g2HW5Xi1ORh/LFSrkK7Qi9jLREr3dKQM9jjhfvxidN80H8jNyUIUJ3d1/K123rP z7GuXhXCfDCq/tjveUiVkoxQ1Q5h2OsXKqC0p7C7qpXKTg2CHLdbYTg/rIkAlQMF EEeP9mAhg+GxOW8HiQEBRpAEAI9MQwE6xoG08vdkrn8/tZEfK/h3zc3UgT5sjME3 NPbWD9o0W/KlIA7JKIpIYbX1M3GgGU5rlWmFyuRD5XVvu4NJ761PXAHenhg3wEk9 TySAwH7Edlhr0M1goALxpjiAzrh+hc0x2rz2jMcuRQlSh19MMe9sc9pDgUaXl7QJ Z51oiQCVAwUQR4/2colpYrhnjAoDAQHWPAP6AlqqzMhKJtWxVP4k10r06MwuUkOn tAeuPL4semoKb8lTtuBG14vADXsoavifuq2iv4KQCncGn3yWglCUjG46DKLluZyG uWjE44PEEiIs1zYzWo9F1Nw2C5VDR41/rzLqNctqr+bXac0lO3aRLgW1SkqJLI41 M+yXMYkf99dM4cuJAJUDBRBHj/Z6OCLbR8w3Ty0BAUwaBACH9QViBa/sejJULNu8 3i8B5tq0HOKvAzAQp/a79MxdFnhL8XrIhsTrprh3+/JvljrWLkfMe2tsVBTdTMJf snjjCijgtuCKaR5ESyu1Kl2E8mhp1A032LWRYYrxSyJqklqNem4HeZAN4N1CzMoS Iw5ELNeocuNmkBQn1xmkMYXiC4kAlQMFEEeP9pKcHL3i41xWNQEBqjgD/i9sEpQo 0YTW77za+n2rQD3141UZwql/F4cO0ds4sLSwJ3h4Ba8OkATHU1W2LbpogvpfvL6B 1H+4D7vo/VY/fSiNGUb8TjZfcj65ACToYokxK6PwBHL85jaWGh83kMS8pYDBL7zP sJ3sCyayKwAXOFpT7doaZU5FsC7tNMwlnRCuiQCVAwUQR4/2t29Sk9ijm6ZVAQGP TQP/Qbj1ZsqZfQn+7SXPmW0Y9+xUUQ351ecD1UX3yhuL195djP/O7ebeTiCBFkaG gWfMZtNCtaPQr1BhXBF9Xkum4IseUlRz1mTsdrhbAVtL6mGWMYcxQFTx13pHiGYS IaJhc+XQIxc7wmfW2LjOZpcHi0E2dhcjMEoWZGyEzKI/cJ2JAJUDBRBHj/bE71iW ZNQy4Z0BAe8aA/4oiv/MRmiRdDrVY8kTIZWb4whGYLqKEScOEuqir0PrMtyEUkzP YpkM1u3Cf4+zbtmgN16sx6DfyHAVGyI0U14hvnQhuVrrBs23dxGj2iciu14BvNJU YVaAoAWSp8qA14fDOAGd1H/InQmDZJrAiH61wQwjLrU1oI44Dr+55KHgO4kAlQMF EEeP9s3BnB0lEtNGHQEBxk4D/2WTAGSVuwDUGeIaHM1NVrgRcFFqrz37farxYNKx 7jZ1EqJXZXTqtSAUVc5LB8ko7V0P8w7CLso3Jj3hvFdYOt+6howpI/FO1Ur6RbTC ik6RUMbHRvIxpcTzZvRmWlMGcMdJFcCxsliOG7cyjpeuisaGJFIhyqfpAdqMKRn2 jOrqiQCVAwUQR4/5GcApykAW9MzpAQFuCgQAjaPwttPvJNegPa/KqZFVVO/VDaRm 9Aeiktw8lWlTE7BJ9SIePdsTEbKIzER/gVt85bOptJo6xpXaodoIjXWiSD+PHbdz tuEp88zv0B0mJcKSRIPt/u+baAgR2dKR1jlNvEjbpCm9rei+vqRNREpdrk32ls5d VwtrkbnFDuzLcgKJAJUDBRBHj/r11uCh/k++Kt0BAQvcBACq594Jrh+y+Pqf4bCL 8LrBqspvPL9MTMWDdwWvT7Yoaa+cyApuUWqpkyh8alWAwxnJmyw9I14zBr219862 0Rb1oCo2TDL/pMz8WVpyjD0RIxs4FcoJODD52kYxhLadKk0OrCXfrpWvIcp4sRJa kOWK3QzpD/0NtFJLZ+BnNq39h4kAlQMFEEeP+wK92o/WP+p9/QEBtVID/1AxNsk7 /ktDwz/khcTsCLILgtuKh+7jZa6K8FhhoqNXbjyUhZYjGne6No72KJ52P6P7iPLu SPDOmhu+z0kNTTm0KsWRSzQeUD08qyoB3qNcdxcRgAOJHl0MCXUwSxumfBb4iJq2 5282RCnsKroyWAhV8KjoJer1hTKCsu58Lqrv =jDs3 -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0x7093B841 2006-12-16 ---------- RSA Sign & Encrypt f16 Fingerprint16 = D9 FD C5 6B EE 1E 7A A8 CE 27 D9 B9 55 8B 56 B6 uid Sendmail Signing Key/2007 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.4.5 (OpenBSD) mQCNA0WDjKsAAAEEAOoLs+uE8cm6SP0S4gvfZrUHd74I9DWSbbiYCwsLoYUm0gcp Tp+rTcLBDTrw93cti1vpEAlIz7f/kH+J+OoU0WNAZgBMsSCFZecJvmkrSldCsRJf UwBh5FWgDWmb/iNZSAwUpisCa+BGnpKhUkC9g09h7Ss683GApJdDARhwk7hBAAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDA3IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQRYOMq5dDARhwk7hBAQFdSAQAuS8Etdrnf9+50VYoFC66SUsf8MLi hvH2k8GeAH11weE/8Aij7eR7MerlnyJ5NJVupVDeqK+q7ToaGlb5hq0ya3rbYgwx CpzxWTHfvS4/DWs15ajlR3QHkDRZC5pUBAHO0MqC1YskcbndWkmpMhlExb3YVvC6 5+RyKUmxqw1Rp96JAJUDBRBFg44uHnuzyK+VliUBAcjWA/4kZeVmOOikqAzGRm3i coFOr5BUnhxFWTcO5DtnKSvEBPRaj1b7Xz9O0sfEwrGARDigcH2V4yMSxQLJ9Tyx S4xjFryTXYPX3+HPLmU97c8VyDF/ANCgdldVW761hXd4i3JCfHm9LMWQBWz4XQaD iz56GHoFwvn/nrGmBi/3K+1+/YkAlQMFEEWDjnC92o/WP+p9/QEBIoQEAKitPCB9 Lab/vs6QhHEW4UdoPTK8EcgsRQTjx+xZ0/XPC3PiLjTXM7cZk7o+oQrp5PGX1RqM RV8bzPtJCNiwCctuYpKuYuGjljw8IhZmVxChH/5ifOo7Bw1cxGMWPGlex9x3Xel1 P4BGi7cOvGGRasEBs5gjtpq795+tDjexh0MwiQCVAwUQRYOOfnxLZ22gDhVjAQHV IAQAhE48oNTvzCPAyFf5EEGOsnZBDazqujZS84eAiFvIQfcDcBHCFOaK4wAKsZa4 YhuYBxu8bz20Kecqfbfnsqyh4b3iJmXiHiL8gIpUzEBBOKesswlzAd7+6hA3/JqN 8a6djrSo/+GEC6QExnLk98qTnfrfHNbTk/hk4Pxf9343uziJAJUDBRBFg46u1uCh /k++Kt0BAS3ZA/9FxlTjvDfI+ujW/Bj+OoWnwCm2OGiLjuWKoiVZjoz2Msp6ZE6I 1YbqJOwchBpqaHLNyY8x0eiXLYqbrk2kwST1PCAaGQoizK9ClPyptf2V/LUjyyCi ppmRNH0rG+WSKsdof4rXRP8FmMicQAW4cme3n5/bq7Z7yQQ4RvSTCMru4IkAlQMF EEWDjsuJaWK4Z4wKAwEBKOMEAIRl9rOD0eDvtDe5Uv7j4lIYGxe8xSRKstLzIl6T K9spRcrqJk+6OmZHU6MMzkf44z8CB9VWcmozXFxjV+ZkO4SgyJKLZdRc0KGOB+ua HL8q5WGMAJ2bLpmJPVoR0PK1Vf97e1kSOWdvIOfwxe8Y1IqoxnGAJmdQh6IJyBc0 tF6MiQCVAwUQRYOO/XCgJE0e+ZJRAQHhGwP/az5s1kZ6HoJRqg1v/8DOSZEeWECP wBw5mgW5dGfPNZ0/Ot9lOy95jlHMu80/YDmpQ6WqsqpnV1hTmj+hYOSPRTqun72l IiPh1l0vLl00kw+LxR7T7jPSWvX2l8SjZ176KIFqj3jZpPvMk2W5cE4sjYpvOxRA BhheDkERTnUIY+iJAJUDBRBFg48VwCnKQBb0zOkBAVKaBACEb12dzj1pQDFog8h+ aN9spewVBI0vrxu/3PPZY0tVZJl3S71TXRVmXLYEgeVi5BL8uDuiM14NylUk0lgT bVL/VxPsKf9HJVjdfZSbFjUBxxClTIvayTwtMSebO2AcjCiFbMpp2R6VDc791Fp/ xvuLVr3plYLSQIL9FcBG2wJR1IkAlQMFEEWDj3PvWJZk1DLhnQEBS80D/j05Rlv3 98Zt+L0hR0+R3qyuf1cFMNyxU5l4Iaf7qr9JRHltHo7iGE8fCGiX1Z3f5BGL03XA r1QLusj7nk41W0K5tr3r33qSMjFWLpcOziLbzEAMDQbX0qJQmqCXT+cafiVpao0u MqT84L2rKLQxldQM/fvOWExuioiZPKGyE3YuiQCVAwUQRYOPicGcHSUS00YdAQEU PwP/Z4PmlZZIhle8P9Bv4c6pkuFkU6LBjF4bWf5bJ675s9Xyh6YwZ5SfFw0deaDZ IPXQJQsjcHvbVGoTOxiQtm7y3ae+0TMDbuZSgFD6Fl/IdIdwP2Ob5yoBr1+q353C qyLSEI6mX1P4sQwkI272ndSpHowJpuBv6lPr+sZ2uEFzVQSJAJUDBRBFg4+Qb1KT 2KObplUBAcTnA/9ueiH0gfV1H+8WOm6vUAcvaJ7aCBJ9gdUjheIEY/KDUH/pkGAg 3E8NDxojTWe88COlIOSqa61UQThSwrtTIx0oWc0E3Bza0cL2xR4apKfNPGWM1/Tp kyoD+WYLoVpomT1MA8dBPYUKNuLVunohVscRwmHuUsz8bTTaE4abEnUmwYkAlQMF EEWDj5qcHL3i41xWNQEBOJIEALestUaN+JpQ6JvH2zqBFIXPsBoISVuTP/CNlez0 LSSg9Oi1anMISRNj6cpu8iYYWJxInL05pDCV5MYySB2SzVT8HgrR+3yUdVFgJGBN 2RYdfXdFqC/d68/50muZzPo+LIwKX+G33B4y0uMSdmK76UhGNW9rfWdQgce7sBph 1Z1YiQCVAwUQRYOPqTgi20fMN08tAQE7KAQAtYpp2c7OzXPXNJRbodNihpRq1RXd qo1nJ7qVHuLVb663GMfy4TwcXytdzJjXAaMf/Rn50skQ+4YGrbIxXC3UbY9NK3xw UzebQlzFrjEtPmS0UVyf8GJl6yQ3xuBYZ4Pe+X2hioBDDFZ+Gjn1DA2IQjoZitE5 B0c9nlknPcv644SJAJUDBRBFg4+zIYPhsTlvB4kBAefCBADFjYutzx72jDt26otM k44ZLD6Szv90TKLtRYM5FNhtw9VKFkg+hSo15WzUHKBsnyqBT8Qq6YKz50Wx2vts 8g2hJ8+g0A+3YuAgNnDp7h7xGS6Fgc5yGnqC0bG7T7TE/YSLfGz97vC0vbm6S6HG 9Pg+IwKl9dtoE2fkU/BMU2XO+YkAlQMFEEWDj7rI1e0plfYXcQEBi4EEAJ1tRaXf aKj9+hVE9lTRbDukb9dsVtAKHP/rRixumf6+v5SCh4g0FzMURJ3jqlwfj2/rPrq2 MQh1NwhLjVjaEziDCLGxV/TqpK1Yn0vpjmdsaOe01XOxi2+uy/7uo/ArGqtjHSen 7TmYODY3aKQR19eVehId4TCR1sLO9GmhnYDjiQCVAwUQRY71+s8etQMiMnoBAQGq ygP+NdG19Qz0Tf4F4pBRAZiJdIz9hGEzx/Z7rjQhLgzaaGxOQmv2iG/92Fw9/H+M ATmTMfbz5gxpLkBsiULI15tgKQWsFwY/pphRKcL9z4+WeTmUkv+tPxVfRYE3YuUc QS/3A3DMIv/mcJYA6fiwsf3omzEU8VCyH0uARSJrwQcdmwCJAJUDBRBFjvsM4dT8 FObQdHEBAeC5A/98yBTBWjhCYvB2XLbbL9dN0DKtV9oqXKhrPI9BAjRi/IeAi04b ktzwUC45TLQXlVB1EK27b2mjNwPFcOtM+IrO00gIf1lNh222lSJUISv5rLnHp02j xmyQfblYVQ9iPNiJMWNzID59+ntX+MXO71NwyA7UovMTvCcaFWhTrfGk4okAlQMF EEWPCSBfHshviAyeVQEBS3wD/04nsshuG5NkdqgL8+E0RycXqXchIJ9GP+Vu9sxB aGAh8qzp6xDh6r7A36JCwuUpZWCOC10z4/+QjMwZBQiLH4+deQk7j7L5LxDAWIs6 DImewMQsg2zF3XlD/Sz+TjKUA1HMwmDOagrygwpbZRYlhJscov/aUeBmUTmaEsP4 cETBiEYEEBECAAYFAkWPz+8ACgkQOIoVOB4I2B3ysQCgoPb3snzfJrbqM6T/Y+tu YfUd59IAnifkpVQIfhZf1aWIPNYXnlYnpVrZiEYEEBECAAYFAkWPshcACgkQorv7 JAz5Vve5KACg7oh+VFz6UxqjfkiimQ6l/8uI9msAnRB9DBRE6Ebh9CjV15bvm7Y7 as8y =w7F1 -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0xAF959625 2005-12-31 ---------- RSA Sign & Encrypt f16 Fingerprint16 = E3 F4 97 BC 9F DF 3F 1D 9B 0D DF D5 77 9A C9 79 uid Sendmail Signing Key/2006 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNA0O3FKgAAAEEALUfKjFiXc8T2XS4C8N/jJQkProkzyl7mdN0xVKqokMy9/rx nbji5dG7WlxyJX3jI9eypZV/d5+KpXljvyC+cBIxhhmsEhVT6AsOkxlg/Y8Gmb5Q bn2mAiyeaylvcFeHLjBA+CaMByDms97M6FbiSzdXx6JtLP1Tdx57s8ivlZYlAAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDA2IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQQ7cUqB57s8ivlZYlAQEn6gQApe1I5DhI/Y+fwI8hjx7Ydd8LQ553 CoBYnvoqrxybSZtOc3D7LHoKIb01R2hx71O282soxjL6N9SGnGQMcVPINXAcJ0Z0 mTCpUZc+QtItS44R3aqp27q0C8FTt885/pkKT0cQM/9EjWRv3kI+f39gl+MwcA3I AV4NJmTpi6ASzmmJAJUDBRBDtxYm71iWZNQy4Z0BAbnQA/wIfK6PT+zTefydUovI G3dDLGGxMowpdG5yQwPwkAEIPFlbLhYsk8E9t8sLsLI1briqKaqxZkHo9ggPNkZU 6Kojwrs7imUZj4AMVL7HDqOlb+jHeYsg3yq/KzKIy3i1fmyUYA/cddSJOp3a0zjy IISZ9VPR6/KaOj8cLKTQqZG6tYkAlQMFEEO3FjvBnB0lEtNGHQEBJWgD/RkJuAVQ LL0cEe/VBUi4CmW3iGF+mAokJZn750ibVQg25SjDUc0UScxyvSnl8ehu3fjWmsEu ckHbzBWkMx/cnCb7xG5Ve1HGgzsBjFpvcQUM07y4JCFOfTOl3WiYP311EKBp2tnL 2i/kdD1IVITswAEQ7XId1NBIuf4P71v16rj/iQCVAwUQQ7cWRL3aj9Y/6n39AQGO uAQApQ5v6HZkgFNKT+SaXJOsqtk+xQQd19QfQQ2U13uaJ0nQ0i4O11WUTM9qfdWF utTlDTZKeEdz+Zb67KnuIi8PHyMpBPV1BGvWNqeiEN0Q5TmkxmaXBXTWtGeHoWw4 Jxaic4LdunSNDIpE0A9zfeaj9YJGX87I3KMf1DQ3h+FCRRWJAJUDBRBDtxZZfEtn baAOFWMBAVi/A/0bQQvU747R5bMC0vQLRMVOtq6rDwNPlXoFhzW26AU2Pb+mKCkU ugVqjFaAWm2ILxKvkjgDyfw6b62IvEK4rHJbfwH/FeIfi6e0+ye+TpXcCzXkARTm FHld0IERIXpaUA6XarNlWfiqaZN0YLpCQH0M29kTFvIfyoUHn9LgvBLe1YkAlQMF EEO3Fl9vUpPYo5umVQEBVtwEAIaSvlhM+gIKnlxN/1hpcG9639bLlUTkAt2gtn2w 4hPDZxMpblkQhcn3JcO9GD0BHNrV5qYBn3bLFwTG2FIoaROS4XyH8GPbEBWGNg9d IGm3kLdLTWsRVCtlkLKE74ipiiaN8JhPRGAtFUjcDVSSkGNzw2jBHP0hrQEKga9R wElSiQCVAwUQQ7cWepwcveLjXFY1AQFA/AP7BRC5j+Hed/B/RjbsbX3mxk4DprEh 6IijxC/2XAZbk1e25GspBO9Pbqs/2GufGCFX60Jj1FQJ2+vq8vg7chNNZ5XNEJse 6GrQtUx2/mEKMtvWGbWGSn53ET+AzmLne/u+f3bIh1OtXXro7w8OUkK9J+ZdG/9V J/a0nYTlPUw6o3KJAJUDBRBDtxaE1uCh/k++Kt0BAf14BAC4mGT1gE0aoW8rn7kk XJ3an4hThBZVuR2GS+rvwioEsIk2xe4NEFwJPGKmKq+C4vb0OWSiRev5l1fPx13x tWDGcm2k3SukDOHB0le6gS0RQx/WHCTe/lRKiQ3w/IuhLmrDfmoOOkDj6KVb5fA0 x0Uvd4ycXUPSoJcBq7dwNg0f8YkAlQMFEEO3Foo4IttHzDdPLQEB6N0D/3LRqVT4 Dhw6UmDIre9Tag8EmqTu3R8wFTmmEYDQ+7CxW+ZbJyYEDZp/WU/6xmOE2TSHaFPQ lgFEAaN1Cp4N9IXAM2EqeNK3fJOAsv4F5NOXbVtGJhyqG4aDUBZPvr/p123cpiiH 2yVIvHDkaacX1Tq/kECpKLj4k5D+dQYrUVdCiQCVAwUQQ7cWl4lpYrhnjAoDAQG9 pQQAg78+p2O+g7qPh1dAMcnQrI1eW3fTntWbadoKPXO5oFr/n+a74Go0D9+8J9Tt iW3C11KR3w1q+af5wp+viJfe8YDEwvm5gcmoCxPnwOeSAzdquujnQZRE5lynr6r7 QzJOFZv457qzndC2P5qSODCkmVC6uAsRxo4Xq/zflzRXmzCJAJUDBRBDtxaeIYPh sTlvB4kBAcvhA/9LBX9mskFW9IpA3Y5slRV1G2GFv0DXV79295p8OCKlZhEfk1y+ JyvT2hdnseD3Id2cyoMlEk57gJBuDrKdjeOLBMIJ2lOKGE6dLAsywSYkyFnngXu7 6QvoTS0mE+ahJlT9VDz79Jl6W+118cIeYzzt1TP8c1WkWBCJJcvge390BYkAlQMF EEO3FqXI1e0plfYXcQEB7W0D/AjxxjEMuS3UedxXI8VQzTB2o3c0o5DdlK2SXgHP SFxr9feksucCanCoYfuTWgxm/Ioy7cxtVNZT1dAHfn2MSrGN+2Adoep8E/o6PyiD t3pCzowtXFS1wjq1j/MX5SJoDrGl0VT1sQXsWh2uOFaeMfH1w9/r9Zkl1RYXYOEn /jkmiQCVAwUQQ7cWunCgJE0e+ZJRAQGTqgQAtdhMXLTw+tBCshX/CdLhrD0byRN5 omeib2QWmxdi7Djyz1wbDMBhnssM3SHUj/kRiorTnjv7qU8TS4z9r9zXw9U7XjCO T/CRepb3siiHzMU4KI5bxdg0ZAsauCVDel5MItT7OlK2Fjv4vCYam/jHGYXe6AEY dbARTWInDsFK7VCJAJUDBRBDtxgXwCnKQBb0zOkBAQHXA/47Mvt5oI8f2JbOMLkV E14upGU+zXYeWH7j9L4AYRzjl/Lg7tT+LBTjh+HEdl2UIMdYASrC6WbKEbatb4dr nu/pxd7/QaeSMV00P9j+Cfa3uIWn6HFUi+TH5fkLwERfkcLHKZ5SshZal9KTbjzv uwZsArnsNN0A/d1gUqljdDI/K4kAlQMFEEO7cAXPHrUDIjJ6AQEBYWMEAIJ5g1oG cL28orl4J7SxhOMyQODgaPRHusnWTBsa/ufUugVSR0g+3a2Pzyuq9xWqYStHf50N hdFx45JtPmkAiWuiBsyycVbBq/ursCeL2SCQPBCcbIfB+4BUbWoU62QA0a+sY5bW mitsU1FB2Mxd7QWqIBW4jqwB0nsAVxShRdWliJwEEAECAAYFAkO7mAoACgkQ+IYW ZdmHE1gcHAQAkMZ2julBDdx5TeQ3rrFus44snaHiq5exlN1wIJrVIhJzmOcHq5i5 ysfoKSha0cYf6F+6kTFxNL/Y9mneisg+rWfgRYmHDzNvXcuyAY/g6rwkRoyVN70q XhWXdY6nA29E5VH52pKCdjQgpbdyO6JDglLzfq7jVljCuPq8+PXqN+OIRgQQEQIA BgUCQ7uYzAAKCRDEsQeYhXlqI6AlAJ48z/+X/bUYIu1yekM+Wa3uN1SgSQCePzZl iV3/rvMdwqhHZPfM00GQQxOIRgQQEQIABgUCQ7vkHwAKCRAJp6JK0eWCB903AJ9x Jkm4hmDjMy8+ynBwFrnKzmGUgQCdGoOE+xbNHN2kArmTHDvzd80yQAeJAJUDBRJD u9CCXx7Ib4gMnlUBAfFkA/wP/qNyveNU4ZyJt+Ft/1xIYV4Gk/FJ4MOfpRlDYaN7 z2FXCjXtWeoxEJ8hqtWUMBuQHSm5T49Zv7Tb+6jtflscL3E/Kz3nIIr3Tzu1iNIM m3dzI37Qdk/7tnP2fp1fO2VbrQC7CtQTYODko6vTUSLap4+NWbidGNQMSEXAFfBK 2okAlQMFEEO776zh1PwU5tB0cQEBZrEEAMjAS0ahmy5KzFgRMrrI3RkrcKwi+Hnj Vuw6UowvW7tUhIkdFuXpd/a2YczU2Enivu7uSJgUD/2KzurD60ahJjSkC/l8xDNs v5wvbB+nYCOVDEvL32tvGiyLyT72MpkwT3ECYXFdlwpk2P7bk87tA9isuue0Nqvr TlO5vpTGYrPoiEYEEBECAAYFAkO9OlsACgkQorv7JAz5Vve2KACdGpTb2FWBtvXB cyIoyLoYGLWwtSYAoLDtcY9f816jYC3awv42YCMLuKuE =bh1L -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0x1EF99251 2004-12-30 ---------- RSA Sign & Encrypt f16 Fingerprint16 = 4B 38 0E 0B 41 E8 FC 79 E9 7E 82 9B 04 23 EC 8A uid Sendmail Signing Key/2005 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNA0HULI4AAAEEAMA3Tq8fneEtiNHeTU/i5YqaoV1g6oq26sZpCPjvdUnC2ebK A4GwHv+HHDs/4nDhuRR42f/HRaSt8xzAIaYp9H/gAhY9J9OMTVvohv0vISMJOxNF GdcNrBfUupnvkobe/Muizof+d+xT+Clik6Qh902nCOriXkWcRnCgJE0e+ZJRAAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDA1IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQQdQsjnCgJE0e+ZJRAQGUQAP+NzZIG06+vs1qEcZezheGPE4zMf8m 2v7XqAa5d9Wz9xKyZUwOaY3UXbP1qFpbqq2BQDapFE7nMLi06Z3Dgt7i0jqWWEdr bPbFPEejgbujjLHXkDlMOnGs17n0Bvkov/+irTvT3ONVGxypsIc2hA8pRfldCZ90 BnpOvEVpAX/XDK6JAJUDBRNB1C+MyNXtKZX2F3EBAeGwA/wKTBsoaBTt5YPDIxOc d2f0uBlPdMyjmZ5OPLfkJj3wnYSnJWYLPX2JrBydSaE1ZlRXNBn90rqTQgqbmPU+ r5IIXVf8UWL068yV1+G43PR7btuj7f1NTXOL77r5FfI6v12wnqZdC20W4ZJiLQ3A veW00r6jQeVrofaTnY++Fg5cUIkAlQMFE0HUL5zvWJZk1DLhnQEBBi8D/2w0AGLz vBlqPWQfZaj3jcEQhoiIGp0HyFPPicS7pM3NSQ3R8itF7AgSgqh37QhbBHV+g0Y9 wcDsSvZg2WqAil9KZccKbqumt2DyxIrYyHY9Z3FJDBPb7zQEMUN9AoHvr4YTYuhY FivXEAjdzpAluSjpbXtUyl7IPCGUiBSSOHF6iQCVAwUTQdQv1m9Sk9ijm6ZVAQFD EQQApeIanx771wuf9T6hXxhfK591zKcLjQ4fUT34SbJgqt434lWwv4j7cr4eJ5ni g3AJAU4Fa5mR09R4dmGFxEEJNYxVtK71ylmP5vKx+sj6kmBDNvzsIT69juFdtWCE ojCRVwlNMl3xJ6tECdy2BdyecE21+f3qFbn8IOLv+ODClZyJAJUDBRNB1C/pnBy9 4uNcVjUBAerHA/0ceUV3mPPM/41N64oon5bkzy+ZHUrF/35OglT2hbo68u3D5M/s XrPbm1FKKlW2zfeQX3j1cSwqsTsrOFPPRmUkR35WX/3G1Nk/2Nbq/n9wJOHDGnn2 Rz07i5/NIiAvQ0r5WeGH1v1tpXv08sTlvr+BhQ9flQoPG94sys6hUzo7hIkAlQMF E0HUMBM4IttHzDdPLQEBgWYEAImlnypvC72A7RIpPUlVasE6KAWTC1KSqF7mNo4w zzdrztkONepBT8wZ+PNShWO1ZvK5Dpm6/1B+he9FDVwLyA9oQgDptHDvnQbSSc4P NuA4e3F8jabeHKcQaYXODN66roy6IuI8W2kfX8AJTcr+YnJRNljk3ZeLavwzidzI +tqMiQCVAwUTQdQwHolpYrhnjAoDAQHu/gP+JaFLkI4L22YZJYckxxuRoP+tM5Y/ wQvUJO5EhSqAmxUyMY6mAG1TqnHDBD6o++PoAY+ZsjJ9/RherLlWmdUNAnvEln61 QUYsZA7jZ8RxaejfEAQi2jIKVUanNax86lZayhQFsJNeDMVEVaftdFQGbK45Sxe7 6IQrNM6yGKjVNbCJAJUDBRNB1DAvIYPhsTlvB4kBASCMBACiwv8V3TxoMgJi5Gse IBW26T8R48Hl2x8v09xFWcjl1b2nDo/f8f3GwqgUykmyEZlsBC0tjZIA0iX0SvNT uOrTxxi7iAKI0AeVoCthFX3O2FSax2rHMqqO7addL4aOmTDztOEbIn1fheVU8RSc vJEhj5HZpQnDdjJ9HADCaK2v8YkAlQMFE0HUMErAKcpAFvTM6QEBFL4D/jAi7xsz qM3dmWGT2klGmeOttAZJLJscfsDusdc2WpFQgJqFXOz1jo5r4AhfeHn5jYrqa+V2 OpOW9BYn5hkkdeghaDYYvewAGLRvzYGK8zQMBnhGYtfWi4DaadWSCbdKUuCKctOC GxDQKj0hR419/aC6Om16JYTrqFjpefqeScZqiQCVAwUTQdQwX8GcHSUS00YdAQFE CgP/RT2QYuNzLqYa/6JLFHW+fXxydNjumBlEQk87Oc9V4O1VpaYdYrgv7MEAHafZ uzRjJbDUW2phB+2kH8fErFPdJpCYwjVS9BvZMUD04UDY7GTxcYR6fUgjF3uzXNcD 6GDaveh8+xEDACrgM/n/UYy4rG8WVDHQU4q7SrF8ZvtBksGJAJUDBRNB1DB+fEtn baAOFWMBASdMBACmoFq4r4cFsB/UTw/vLJJyaiKqicVGVUSm4tWyk0uieY64QvUT FieuAa/2cVJ561KBor38kw3w23O8giFzQL+jWPycGPSthwK0o62EaDS2EbvUdrdE qP3rJ6BQj6ZtDpQwJT1ZisSUIw6Qu6pYX6VHNFXEQZrR9Kn3jT5l1NU92okAlQMF E0HUMIrW4KH+T74q3QEBbMcD/RO9NdesEUG7BOOL5nODyiKQZwcDBG2NwffViNUW ul2VYMvO/JGFu0yePNar/exsi85T4gh/ZDDCgpR1HuwkXAu89ErTFpx/Uypjmjag aCBGSHRjRZ3Tdua4xzw7tngiKXxgr3k4frZMn8xp0WOwkFp2jBRNmrHvKPa2RN2v NRleiQCVAwUTQdTjQM8etQMiMnoBAQHupwP/TDjFRNDqX4oiVqhN2RShKi6OrXVg Ek6C5xtBMs0aeXZCsS5hOxAYk9oAPf45ZFcQ5Nyeq+pFnUZOlyi9aM/uJ5z7Tck/ 5tPoKhtu7rDf9z0+kjJ8tVk2rLhS5a1/5CKcLZ6IjeFJnZ69cgmgHfCFDHY48USc mQj/mna2duSQgoGIRgQTEQIABgUCQdbPRAAKCRCiu/skDPlW95a2AJ95TApVR+to 4w0cbwxw5E5TtbCh0ACeOX99Ulbune6K7HbHRAhIBmv/+UeIRgQQEQIABgUCQojJ rQAKCRCL2C5vMLlLXDu5AJ96HITaeeoQxCOpwiXhcoAmdL316wCfZ8tyfBhs6a11 PGTfx0MVGQGG30+IRgQQEQIABgUCQeV+cQAKCRBrcOzZXcP0c9xxAKC/zoCm86F1 R5NhWIAwiviIKF8+QgCfR/6apFqfmy4+tSTpfPyH383zia6JAhwEEAECAAYFAkHl fo8ACgkQquPmzmahRGiazw//cNEkAWlHb19w2Je8KbGZB7GBpyJMjXLcmeTGBtNq 7IZEF1cqjfdN3NXmrTg8l96V86Hf1klyj8H+PZX8GEahkB77cD6qUmOpFldIrq0O piosIfAzwClReh8NOYP5SClP3Ry2keOQAh/W6a5Bi7Bxf8kUDmQ1SabmpgirPXDt 4lhx31Rv2Y3GfqwjQqToWtNIZ8navR2mOq6ab4EdYAE7BafE/a+rpQJ9HA3fpUYz YinJ6C3Pxnua/ldDhjFEtU0MgVdlw9+GcSkpWKefMapgD6Y5FTNWOmtBGnccX0CI CuDEl20hLvpumAbnUR/4upQjvdCj36j7rXz337E055K/76rRSwbZlwh7BSRrmhpF WYZNuAJGhlyIpk1vC1EJ6OdPaHhOrOqLRqnAWmbo9GZEliCK7aEyFbe73NknWKv6 NIVluYqDtGyYzj+f8RUU+v6UGgKJ88hb6KrhcW5wvWHftLnm6x4u/dwc2Gj7H/Be ah2/MM10W+1kXKVLmNGOryakAthHDN2LYz+JHPPs5DVooUy+GahK7hBJY2SsfT22 ctGceJUQCSIGNaiYcjIWM4v4K2S4npvnD99iyXvZhHqUkz0+k+Rz0lJ4HhQxvhgR EZcS+llunMw6CiOqPNAObu7DTd9NcS1Mv+pNEE2WH4TFwsCokZZ10FqNBwtDZiWx m4eIRgQQEQIABgUCQeV+LQAKCRAYWdAfZ3uh7CMvAJ9HC6MVsJXAh9SX+HDeaN+G CKjlAQCcC8Lo764I0dEn3t6uF/6xTIrupYGIRgQSEQIABgUCQjQqvAAKCRBTMecd e+Qv41IOAJ9FeWHeSoVyBOFZp++wPF+sJipdxwCeP0uZ449pA4jwIAkaTPRNVOJL j9mIRgQSEQIABgUCQdm5PQAKCRCgT/sbfcrp0xCVAKDA9UaqZidYEK0djxJGJiIH d8rCJQCfR/OXYRtuops92kZK7tfsvec/DFWIRgQSEQIABgUCQdaiaAAKCRDEsQeY hXlqI6HKAJ954GDwN6wIPrqQXon+VXGb3RGDqACfUwTFi3LnL2GCqIxjePsrsMxI vwOJAJUDBRJB1dhHXx7Ib4gMnlUBASpAA/9+GcUKvOBzCY1ATn2LhCG/FifCh719 0DhEgBdVgntlIHFXVgMtD1pXXIF2JwQMxiVOO7olbyLSQoILN1n3OwwUGpIaZ1e3 DBOdG+6m6yML35FCfQzL9HWUwWcSui4vv0t6Cmf6KDR4Y1b8PQWj+Q69Zsbw+xbN NhKKxbpbOwQGxIhGBBIRAgAGBQJCqRS/AAoJECCOHPSmTnJ6CjsAn3pMlFLA3PnV n9A/xRU/7wk8/+OzAKCOGLu4DaUkm71Uo63LhkgfNyutjYkAlQMFEEHeAd4Gfl7Y v7VlaQEB2UUD/0wZWCGGOaNJbHEyWP+bZHFaquJ/gU/wZUlg/YI5N6EqtP3SbXvl EImndhWT26Jg1887nnYetHnXpol4F5CZZKydkkmLk0j+3J1IV5yFfUT9yFXK4/i/ MHvheaD1nUpWAqeriS/kArCMyBTX1ry40d/JiGLE6nT03R81bte3usI2iEYEExEC AAYFAkHoAgoACgkQMRmAUc8aTSyB2QCgvIikC015MRxspSahYSiMKpw0VCIAni2w 3yqj3fFJ7j9BBrr20adsbdsfiEYEEhECAAYFAkHVvlAACgkQCaeiStHlggeZVACe M7lmJChu9B1opqv1oHF7qBwprdgAoJGA6Gk5KhljLqh9Whs9/VZQHiIgiEUEEBEC AAYFAkHlaPEACgkQsYn2tNI6Qcg0HwCXchbgvBb9od6J9YUTDoOTrnQ3oACfXrss El43bc13LTzSTSW++eRPoxqIRgQQEQIABgUCQeV+TwAKCRCBwvfr4hO2kt9rAJoC YUsYZpX0v1kxvQD5SHwVNHmWqgCfeEwWNWGjBhZ2WqHaG1OT/HWHyiuJAJUDBRBB 1cgi4dT8FObQdHEBAW9OA/9lokAoFOu8JMzjZO+9xOmBNMtLTJ54KTKDJuMtXKqJ u583Q9szgbaOjEMHcxzGuiLsyNiyIEl3d0vNdFM4FHq5xxSOIWQ9k3IqsdKP5P6u G/FbDHdgzvJiu6Silw7L40dBJuRsGRtUrhOBYwl7lWWT6M1F70tT8M67Tlrs1UAe Zg== =LVEV -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0x95F61771 2003-12-10 ---------- RSA Sign & Encrypt Key fingerprint = 46 FE 81 99 48 75 30 B1 3E A9 79 43 BB 78 C1 D4 uid Sendmail Signing Key/2004 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNAz/XbhgAAAEEANMR0MZRcYSFEWLDwtwdVaRl5K2te70fuZ1EsZxOn1C7XO6G udhw0hwJeq7AD0S3Tv8AofH8X8GrNVosfKJwJ+ttq0W9ivjBSm4nzOD+5mYmzsap 0Uh1Io+Wg8kDf04O+f7PZ1tct44UZlr0F6hL+YE3/+4wpFA4S8jV7SmV9hdxAAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDA0IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQP9duGMjV7SmV9hdxAQGFYAQApMXWH0Okwfeb6OPLv45ngSqzq1Ka C3dpuVmd1S5mD85Npgj5B5O/uoHhu57VXRcM7GCeRqbaezzCL3G0jKzI5y52qb4Z LJkK4/Pbq1DzbRL6GGV954NR9xR9d0A7MOo05K7NYa6RM+WyIk7KNeHZCKX2V/BZ +FVDcCDwmMd0YQmJAJUDBRM/32RP71iWZNQy4Z0BAdYhA/9IcKx9yZ6vOdf+2q8J XP+CKYkgTpq3O8s/jNXoqTEJikpj5vrHcaxbP5UAHJlaLbn9Z9zj4V2LrgDJOiT2 UaCGy+4IfD7t9MgVpMjyKBXMbdV0LII/SESYV1QpzVAaqKR97ScMxCMV5/wS0GxZ +UplQOBUlvVfYVci5V6UkWFINokAlQMFEz/fZHJvUpPYo5umVQEBtm8D/iuOVnqW mQS7bN2aQp2K/jCLWx3YXG86U7r/urPeeKFRKBI9nF47pyjd84t+utkAM17yCIrS 8pOdal3nzhRWkqLj3s+hBTeUJ1HR+rNuYHbgusIPkUF+sShEivOEfS8iQo7ZbcrT zU/neobWzf9X+ihcT5i5a5F12V6o1PiIq01HiQCVAwUTP99umZwcveLjXFY1AQFU hwP9Gf9Pr47nYyXaxb0naxuYEz9EDgzOwHgZ99yRgnkLiMHgLdfpZQWywIEHrG8M 2py2Bc7+gQgsOT8SuBgHa1II8Y6bH9Xzu89EUoJFF5TlO3vBJlELg+aJehKqk7pW TOWkNppP9bcb/JgLci+/wSqiI0acBBe9LL8p0DGb5lyP1yqJAJUDBRM/326oOCLb R8w3Ty0BAU5mA/9z8BoeFzoNVEU10+FqLSBEYObq5AQPI8TZgHSE+H6EeGIO/clQ d+RMcWMedOWXtajglfx1UhF/fSn1Y/woWlJhNy7ebqBqscKVhTlCNeJHT6yLme1a /w3KOxnPleoT66EnyREyxR3O9s09VnKpGGf/g3223+k3VcFpn7qw3a2pQIkAlQMF Ez/fbr6JaWK4Z4wKAwEB/84D/3ssrF6teu739smXiRqLZxB+WppHO1yzr+Ylsir3 RICwU3y9ayUtAIQzkwJ5qC+V8iMTVMSdJiwV2Yg8xBp0CzRXcdqntgRzJQWzWq2r HEHhcM8NOVtR0TCbPF8iw4htBAc+rEMOhT001xQ2zPL8k8HXqVrLHh84y5XxZx7J xOK6iQCVAwUTP99u0iGD4bE5bweJAQH7OgQAhzzTt7CqBezWb+pCY648W1NSzAgG ANUcybCJBaM+olkkO2SA9pSPXEIGfEg8qXh4jJhFmk6OLdeaaPJd084PiG3M3IAt B7QHE8DBBcnTPNWsZseTxn1dMZDWDddBGEqplUQivwNF0iAoLHUhySmqwi1PBPQe 4NZeeLWjAJ6yV4KJAJUDBRM/327uwCnKQBb0zOkBATEzBACxvB0EivpyF6DiY9zs LhGkPwoRabteqvvZ3sSCtIxQWpxq3lyX8MgkeSEAUlJL38YGXHhBWbTfEUz8VQHe P8obxXBiEj0JxfqnzEmUvnTWF39dYXCQsAXp8+vjS1xYCrtYFMBmUjTg20pNRgzX y48UyDM33Zvr/7hsZ0iXGZ6ysYkAlQMFEz/fbxXBnB0lEtNGHQEBasAD/17V89bg Cj7Wh35BBB6Hq/eVHDLL1klGJRDX5BGP6v3rKpvercCSZEFlb9JSNVDmSefcTYpC NH6oNZux23EmOjTC6ZzDgrcCiADtTkfPotBL23dthLyiwL0yz24SKVqlBadzyNrK SDlXiz5pLHmvS0wuexJlHtaB4bRuBo0j5YaziQCVAwUTP99vSXxLZ22gDhVjAQE+ uwQAqOey4/yVuMHfTVMDpAwWDMJJ1rWoRuiXPdn0lRAQSefu7A/TAe32Gcpm7xXH HlvGXEcqxMxXtSIK/TkFlVde9gPaQmRVvt/p77lT8eWkd7Le4vfftl1HGe6TSRVp CjP/QOkIYVuL1OcH1ZHZaOEKtGKbiG1TabJNsNJF3/4Go+KJAJUDBRM/329X1uCh /k++Kt0BAfwxA/9LDEkvCb9YP++5MQalpKe+CDvPJPf916HNjBF1XqIyh/0Ygy6d oYB6AiT9ch/dRc85s67rXeSHclabdcb4CudDAB+7wK7o7EGs/FQbsWlixftdoJ0I A+uCCMYc4ZVPBRiY3nEoEQYs05brfTih0iF3Pe0GQtv1PbCX6sy8xCGfiIkAlQMF Ez/f8ArPHrUDIjJ6AQEBsc8D+wcjK1zS+AT1QJ23atbNpX++1fhjVK0qF8d3SfH6 Y5p+2uzWT5PpEfVfMtn5O7U9SUptGt3QUStM8bc1YYqL8XQvN8tO+TimK8PZ8J4n z6bp6R6qsbidvo12O4WkhCBQS/b1E0ech+0Yrkp/bpT5L5Mbzv/L4qc1+Qp9Brfw 1XuaiEYEEBECAAYFAkACLjMACgkQiMunpwt8HzvhzgCeITpqUq5Ts7HQxeoLTyT5 k5SclRsAn200QVvSoEAHkfM2AsqnK4zn5PD/iEYEEhECAAYFAkAC4YoACgkQorv7 JAz5VvcTMACgjybvljlMqGtrTy6wMNDJYeBB4ocAoOCaH12bx7YJNmT3E8RQCy5x Z5rpiEYEExECAAYFAkBuLL8ACgkQi9gubzC5S1xGvACffF4XiYgKOKQ3t7GCLpPf xEGMXTYAoJ3abBhbGO+YHmFScTXYO3HAtQV0iEYEEhECAAYFAkACOI0ACgkQoE/7 G33K6dPA7wCgk5yo2wUatoZuPruzhlypwmvF0HYAnjdMM4kN0jyUgUQt95lOX7E/ K9G3iEYEExECAAYFAkACj2wACgkQJLk85YJw6RrI7gCff1Mxq4rHz3lRhmFEinLQ P++LdQMAoMVItpk5hX8pSKcZ/E76Gi3wlUpfiEYEEhECAAYFAkACYIoACgkQxLEH mIV5aiPmVACeOSDsOjt601csNXlkvoBq9bKu7zgAnj6jObAkNbXB/rOluT8Yj/4I RGnjiQCVAwUSQAKb6F8eyG+IDJ5VAQEP6gP9HIAOJGlJ/Lm4PhmsgIJjnUtEtmHc n4QD3ERB3RwgJDh5K3Xq+wjnXYvZtKoqoSBwdvp1mEAOg1gJS+4zis7Q0WOnoBNj CD3Xpq6OxiY1LrFspL5fH9dY+oX1kMiZGhjPvfauAgS5KfmKGdeG/AwlZR9p1NET pUfxKy8SjO/NA7KIRgQSEQIABgUCQB/IlAAKCRDk5U0RmgzamfVNAKCbo4pq7X1j rDUK6HjpcDAwKtPgKgCfWLazpsQMbNrZuzoWGj8fN1APKEaIRgQTEQIABgUCQAI9 NwAKCRBwLeVZtNPXsKHzAJ9oaQL9JqxTb3Pdqjh1YGbUeBeXIACggTyw9xhtIJTB LIkSIcotiYmp1TGIRgQSEQIABgUCQAIiGQAKCRAJp6JK0eWCByRYAJ42JQ7xf7zV EV7Bav/YeI5XT75YPACfYjdnZdatI98TPa1bww6lk5TYMmiJAJUDBRBAAfcW4dT8 FObQdHEBAQn9A/wKVRhHHc4iWt261OI9zMjM2DpNgIqhlHZsxQ8uRZTMfkF2Ri9j 3aBbclxT9ktqHS9c6txg+BD6ETcek2vFDWmGsm/ZnJSiHokgno/yYbMSvKw59tl4 6VqSDEt6aO4ZdlwDuAljMUE/M5wK3d0JzR0fMdtI3gJ5SSL8D3Lpb9uYIYhGBBAR AgAGBQJAC1C/AAoJEIHC9+viE7aSbC4AninGVdeUlR8BiWNKSk5y5jW/kidKAJ9g 0t4cbWydd1ZrcZWgK/K+oUynk4hGBBARAgAGBQJAC1EAAAoJEGtw7Nldw/RzZ90A oLn1YgnHvCYPVJvR9lPahRiv6n4FAKC5hoOZHCOheOOZZv21aDVZf45bXohGBBAR AgAGBQJA4IssAAoJEPxVuVR5zJGzclsAoO+uOWSBmj+wWgmDRr1pAL6hUgmhAJwK jYaNXwivBn/SuLpi74wFPw4vfYhGBBMRAgAGBQJAC1B0AAoJEBhZ0B9ne6Hs+68A n1sUSGThp+SIBGZdi0HpirC6/gvGAJ9KEHjz1PWHnCspxhzjqU2F3674zYkCHAQQ AQIABgUCQX8pbQAKCRCq4+bOZqFEaIWID/4kIGmWDh4L4yOAHgnX0/XZdefJ20PS BUYPgOHz0SOFtnxbr//L+t2FIcjX0QUDIB2qK5iw41L9hXJkr41GPekJT6f6cLHI n87HC6O/fdraPkvoq4xzMEir2sjUWwGqZTwHfRBJ8VF1jcs2x8tTwkjuoyQLxo4+ jtu9X4YTqX8DI6aYBiZiizS74/4x9qU2HxBPJhd3bAS1hh4cj/vK+C2WSc9IUkJw molL9fZJAHVh/lQw65nlJCUox8gPgew+ZYCJqVm+7Mo+isXvzv3YHdliMQ5H4Ovp xJo3TCrRjMIlPC0OQSVut4j7YN95Om2L/7wXPf5UPJYiN3ChErIHqkWXt4JYYSCg iu/1Y6xLGLQ98XwCcl/8fzzdfd0N+q6vOC/bau/zrbT2eQtwzI8gRqvI6LLnQRyH VpfkslmA3NOIrmabEvLjeAmRfSnpkQvz5/Vr1I8Zur4pr4X6EP88eeJBFPiWYlNN B5YxPButWtHTZud3E6O7/MmrBTHOLe6WkPnl9LnMydcu4Lv6O4ZYvrauL/EPMwWw 4yl08f4TwY2aQ20/XCsx8kwMwGPTWY8pyc0Ka+jCJziBF8SsKDWk6VgnZcm5A2sW xuB262JP/+n52prf+PmN96Ob7uQPYpX5Pc9xfV+9y7J87Oqc0zIfsfVUyKCNyDeP Dhl1CXPwZ/GWUw== =Ehw6 -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0x396F0789 2003-01-15 ---------- RSA Sign & Encrypt Key fingerprint = C4 73 DF 4A 97 9C 27 A9 EE 4F B2 BD 55 B5 E0 0F uid Sendmail Signing Key/2003 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNAz4ktksAAAEEAM9Vrk1RpJV8oPwEUPPbqUY14VYc/LY5JQYV8ZU704C4c65D L7VRxnO1U2FcJsd8IXz0Dd8xf5r5x3HMj00zEYe4x89gUEBW8bUODL3oH5Ww9064 2Cxlq7qK3nNPtct4QrXTadg378CJrsgVQ3V/L1Zaj1Tt7J2PByGD4bE5bweJAAUT tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDAzIDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQPiS2SyGD4bE5bweJAQHbfAQAixSSHRd464OikvI7cPBkCVG7v/jo n3/jc3fbOD3Y2jO+1L5K7SswDh2DwHfSx1BiUvhJutQPLbHv0SmrJwPQwR/DTi2e PQV0dCx1rv+ztRjXaE7tLA5XsS8RTiBXfQRNamxUqPVA1hCAl6ulBbZ+uIGG8F6H LgRV8jvNqjDxcKyJAJUDBRM+JLd071iWZNQy4Z0BATagBACq7IebGrBRDJtwPcps O2K9eb1PPkMg57MYE5OmnNgMnMtVWBnMz+V+7Dg+72Hh+B8AL+0tRLNFxCWCr8Q0 iW08kzgKA891NyZcvGyYCGr1vbaxGpHcb8wdgLE/2nu5E5poksA1x+Bo+ojJga17 r5XKiOoSIR3ubyAtm4PrXlo14okAlQMFEz4kt8bBnB0lEtNGHQEBa6oEALajY9IY M8zZkuuGNvZvjYKX1wt+TQwobFPOucx8RPT2NENF2jg+tstaansWBEXtFBbJO4Pw MkbGrSirdUMjy20SZKZV9SbVUtT3JbZjrD844N7emc97DNZNd5p52FjSX3518U8A e8p0K8+L4/o/P0UnEJodz+u6gTDPSlPJwJamiQCVAwUTPiS37m9Sk9ijm6ZVAQH4 mAP/ZccU08EeDnjwGXAIYXNRTxxdfmlyR1GvCinrDrKBfdoNSzzHkwHIwWsXuMkg mEcGeXNlXxBsEJTiBuXbKOyxnjMhxBX02mFgMNyYjcy9Vu7+zXiJSUgSAVlwontm 083bNqH1yoE+fwF9xWQX3UVMvkQXS1yAKuE457GvflnEkjGJAJUDBRM+JLgFnBy9 4uNcVjUBAfSZBACZAHhb+RCbihhAvk5LMgNznUkKEU+p002FQpk5+hMSDI+nVwTK D/2XdZe1P6hrKxJGWXjp0BXmZAonZB15b8DgdLDyCqTv+RLVPKTnpj+sGsBaq972 ZU4CiWVeXzxUoqV81lrHrox1kdgJ1vZ6015Xhnk8WdHrFGmB6s/l9ixTqYkAlQMF Ez4kuA44IttHzDdPLQEBsbsD/iKHrN0wAUWjxEMWvuH4KhtBgJc2D6B+tU1iMaVc Fx9rKPMAgNrufOwMyFd/QaRHwQHPZx64FDlmyUEMiTw3VDNkPuqqjKJ+Cp8Bbzyt Xgqnlqv3b2UhVB6hZhiMZAhlR/EqBNdEY6nYy2t8YS9zX0O6tjY+0bNU5uadXkYr 7D3YiQCVAwUTPiS4GolpYrhnjAoDAQEstQP8C4jFy6PVU9Hu71pVQJ6BemCi2c4M WzktX//DPcJOR/rVyDAdxqTMnq8BRRDGwoNgcd3RYEhXriVWxlIqioSVgRPQHRxS lLk11k0Hdt0W485XxXDU/1omxdeHWo+tNU0XBNEW3yn5h8SQLpla2ZpBxspKpiMa TrlBLymoNi8MzruJAJUDBRM+JLgkfEtnbaAOFWMBATxFA/9XNnyggYxIsdfO2Q2s Ea3/G/qLuq6Yh3xFE3dWdWiAglXrrqRaDN07UPI1gSOX+ZLxwxhsBQg0l6+gNQ/A RYKzO8e9mHaNSJBHTeb+j/6+ku8KNeAa6RBkWDi0OgMl1uVzc+Mmc08huOS78UJI c76tDuFvf86HlIEXLHeKE9xwwIkAlQMFEz4kuD7AKcpAFvTM6QEBAlYEAJ17jgMR 241DJIiYRp/VSEBOHb6YMqQCX5MQy2nFlg54Sv6cnEbbBh75McM3t11q10pBHqZH 8Tld6RQIXwmtSRxmORxpitPDl2L5IybqpBj1TzdxwPC6CL4dGJLTDAp3+U9OLdvG 12GCKplT9viigapaOUdjG188rAYH8yExwNv8iQCVAwUTPiS4ldbgof5PvirdAQF9 PgP8DrP0iuPCCK09P56ICm6zydYZ3WbU75zquW501Q55Q/GHWyDXS68YlJr5LyBG vZqVhxjmtSqM2T0Rmsg/xz443kEwvu5AYRZNIdOwCAuU6hnZJGPIWqZ+e6oAFQK3 yA0WPZiRKE5lciWqgWlan38jN/JkzwOeUsExJjRmj2AF7cKIRgQTEQIABgUCPiTD 4gAKCRAkuTzlgnDpGhL/AJ4lmiFuIbCTDVrKsqIFstaTl61xJQCfUgr8vtgH2k0P uaywr3gphNB7leCIRgQQEQIABgUCPiTEiAAKCRDBbFIvcyFx1YlRAJ46pZp5CLNT sceTb/CUiLy93qSZvwCfbUygbMCNzRc+QomiBlJoWAFFM6KJAJUDBRM+JMV/zx61 AyIyegEBAbrSA/9vPZfmqlX0MlL2qZACKVfUxO7BYEwnWvknrhJhDm9jE0DTQj8c U12mSI8FYnyOZ3UI74s4dBWqv8IrMdzcYt389tC5GBjQoRTUyR9zpwxXjqQ9IG4Z x7mtbSAc8U9dIaNBE461MUT1zcq8NtlFTusmAuhoUlrX8GsRbJ6fgHzoXohGBBIR AgAGBQI+JMtPAAoJEAmnokrR5YIHzYkAoIxfhY2mgwt8BRAn7x+ldjiAXn28AJ47 NK20+7vyNIlY/edIEoxlU9FTcIkAlQMFED4k06nh1PwU5tB0cQEB5i8D/RCvipmV 3rkwNegZvqbRRI5U+zZesjlfD3vFKLCafC7rWB3D7YsWI08EkrOa3D9RrcWNH8Hd h5MtmZDrwu5IAUDeBZZ7GAfDTrBMm59KA8dZQUxucAXzuGkUZ2XTEVV0ybzG8atx OGl8ukmza7PXXpdkh8zvwIvRcWWlM0zMXdtBiEYEExECAAYFAj4k5mQACgkQcC3l WbTT17AxTACfRsOJFoappZnyPNeKB+Le1/m2vW4AoM5ztfURp4hgIoTntkauAOgr LYFpiEYEExECAAYFAj4k88YACgkQorv7JAz5Vve3JgCcDgmySU5q81glYvuFgTlP n4tV7uIAoJbgCYdiNBsdU3Jid02d0ld/M9v1iEYEEhECAAYFAj4k/78ACgkQoE/7 G33K6dPgnwCfduyCaoDAVa5fL6jKRlMLRyeNyL4An1De48wO8NHv1mx+wzKbQP+h WDIqiQCVAwUQPiUAMADy2QnruxtBAQH+MQP/dJsgNIFj/aNtdrwTXgmSlmNRq++Y 2MaNUhdT1DhXGmhCS5DY54vroipZ+BpyJUEFJicIhnWdf9W6sxlaDHIbZD+psIhg umd7CmEIj1TjWGmNokXsDQ4KQ+ZfhhTfYG13oTSO6HYCt1PixVneUeVO5XT1lios fCE7jRHEM7/IyU2JAJUDBRM+JXUvXx7Ib4gMnlUBAaVlA/9CY51e16TSqBUQB7jT I119joBrSLAzWOoNRTgNQa59r+DW+Rf+Kl0KDTINObb95N1cCJx/4OqefQn6CvCk jyf8qHiL3zjj/ofuN1ebWuFbAxZhcPOZqpz3qzJTSGOCZy0ao6Is3T7sUxDEvub+ jLW9BU1Z/hRh648syknjJwlr14kAlQMFED4l92JiRmrs0ZfX0QEBd4cEALQ3CnKz Ta9/LStigTo/gwCt9piyRTeUUmFf3oOfotybhiduguPEFsGhgahQHnR4ONFGkHp5 yBFxfKMUwKyqOytvLKMmlC5LIAczIIfiZJHkhWrekbIXvpsz8/iCc8D4Dqf7iyyg v0e6BLnL2r8W0ky1+y6WWyZvvlmqUa/yQ9jciEYEEhECAAYFAj4r9z4ACgkQxLEH mIV5aiNQKgCgoxZIAyzdSIk5YbSRAmjgbfc2srsAoKfguDpXQp++QL376+SnApCw 6A/IiEYEEBECAAYFAj+yfqQACgkQ7vRVUBn5/kuKhgCffp/7sfIVTVlNKLqKUxm9 PKNeBOMAnioXZjbGFsXTVIPX2Y/p4T6Zi3EiiEYEExECAAYFAj5kImEACgkQi9gu bzC5S1z9NACfQD6usanzkHgeMgAxg8EQfK3QHrwAnjSIqNta+un2xVIZoicMaiBM b9pgiEYEEBECAAYFAj4nwhgACgkQO14FiEE/vMvy2gCfUjuGVRkJdtELhb3j3SX+ e2JvolQAoKNfvJYD6v/3DgOQFJFVEehRzEd5iEYEEBECAAYFAj5kce8ACgkQX0GF pW7qTI5HQgCfa7EluhouinhzGMvfbGKswZebfFoAoJ2IGPnfwLOqUWxFZIv/tE1v gj/CiQEVAwUQPoHkLHAwZJyAyUshAQHCrQgAhP+JwDlmBCy/lld8iYZKae4buBvc 0jAAx8RG9lchEGsctKMGDHGyxJk+JCe20LqEn53CGq9RiZW02xJGsaN9tuHv1Ekh cyD3jxhoEoPWinTihgq2VY3qnt+nmjS8ps7+Ov9awIQIaqNuIG/s+fD0K5kYJ7/R 0RtUdnKCetbGczpeqDgYGsbgovjp9+m0G/xTwlL664xtXR1+1xYxgIqxDozRFXXj 0vsoB2p2as3aGBWJP5qZYVPEuUbv73mtUEAenP6KM+JLu+t7TDxWDe7K/1paa1UI 1qAcMERo8N/39WYRQHJryLS1Cl3tFe1erEem4cWlNjyWdPbkYToKk14PGohGBBMR AgAGBQI+ZO59AAoJENjDuVLpGrm5/2kAoIK0Y0DKAYw10+8Bd9mIgCcBw1R7AJ9e vqWqDcoA6tdcgRoPw+b+ORPDXYhGBBARAgAGBQI+hvCcAAoJEPjp8+GIQvVJEhoA n16i0uFYSZoCWgGxZFMav608+x4HAJ0XB0XraMQJToOZAXSpaSWhdXy7pYhGBBAR AgAGBQI+9wRgAAoJELghiQKdsrW8eX8AoMuOL/iHpizRjrBEC6IZ9FqgC8IdAKD4 NVlVY7peK4/vIy41g6deuYTCXIhGBBARAgAGBQI+9wSQAAoJEFIY2mCt64GL9n8A nicB4gNl4ziY6HArLJZBcVYpUPlRAJ948hOKxlPeHue9VBxkfz3wK0D9fIhGBBAR AgAGBQI/janPAAoJEKTWXDNQN2Znh0UAn2Nsb5LBZywdGIlUtfRyBLA5zvf6AJ0a pimLnGjRdZZY4LUFa75D63EeCYhGBBARAgAGBQJABH7NAAoJEIHC9+viE7aSrJMA n2WOXw53qZ57aRQV6j5FLLoirW+FAJ4gTGBWeAyWU9qWvD1CGi8SWIost4hGBBAR AgAGBQJAC1AqAAoJEGtw7Nldw/RzIiYAn250CHTZPf7KTGvep6n+ESJRcT83AKC8 GjwcuGUfM1Ukh/BIEEHwHhjS6IhGBBERAgAGBQI+0xpqAAoJELL9knZIGOnVyekA nRqtOk0TrmBKjolOKUmp5C1dUCiFAJ9+GeEDAtdhA1ReRKj1osnTQ1I+0YhGBBMR AgAGBQI/StFiAAoJEBhZ0B9ne6HsjmkAnjIXl6SvMcKdm0swC8xI9Mup9ovRAJ94 yDgY6w5RdAC1HsFufiEHZ1Shp4kCHAQQAQIABgUCQX8pjAAKCRCq4+bOZqFEaPGO D/9n5I0921vpls/oOoFu8OR/NApHYvYxKmTcv1lH5QazUP2F7F7drXlQ9yjriY2B ufjU01bFmR6yskvfZpmsXfPmDzTktZRqGiR4mcxGlDrwW1cKphPWcVLXFoVIax7g UEK+wy8PNiv5G6+oy1ukTguwMXeqLbb4qxcDbHTx9GL6Z9E8HR88KdgHtRGZ1L6n oKRK4y4nt9PxJzep5RkT4deV1oncr6TS3gvmJCb3+F5gvQueWhZBnCdQHtFb3Y9F uEsHI8RxrXENCacpZYpBYKtv/umQbRyVphwO+HUU4bGy1A3rTy9KKkWjycqx1tat CH7wz3ebqvZy8sfibhUO9PeDfZ33+e6CrPvqOptGXdyHiHm7QltGhjF3TTjRoGnt DWvu8q+F6/GspzUVwbqBH7zbaV9a8h8L9fkyVmgq03+y7NIP1SSQxGLEv/qqBflB o/9MachU71OhDp42qCyfXul+NR/4qtYmj81+5zGz6vSWwCJ77VMVFZQIN40rEHnA 40xl5r9pf3hDZWrj2yg+mChlqcICJAnDfNtYaOve8rMXJ5F22VoWGaAJiAkQdH1W ZNSR6KHm3A2ICdH9y0fM14u2NAlZuC0QzqbUotpwSXgDMwm3P4He9CwO7IEp0e1l +nbkE3BfxahWNiCSF+RF93kvSoeFf7FenAF4BkBzyP62kw== =ZdQs -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use sec+ 1024 0x678C0A03 2001-12-18 ---------- RSA Sign & Encrypt f16 Fingerprint16 = 7B 02 F4 AA FC C0 22 DA 47 3E 2A 9A 9B 35 22 45 uid Sendmail Signing Key/2002 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNAzwfgwEAAAEEALejONfYzPrNw5IhjBfjpkj1hCwVGCa91d0Pr9SyMgFdrEam v4jWiz80rFoKdm3dr1bDqBhdiq4tH49Rul+RLLEXLyiPiLyRoldl54cPeOUoGafp PvcCihSgWM2tFO1saYtf+/oM5/9S/TA+pb4hpXAZE4CfL4e7X4lpYrhnjAoDAAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDAyIDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQPB+DAYlpYrhnjAoDAQFKqQP/YG77bGGhCqr8PxSpWSNxDuIPAmX4 VJdLsIQNUBqI/3noPfTec3553EsXMUvJh/4iiI/+6CYExQi4WQELZDPmfUUWQWUA aiv6upSOKOAmuiVO2cjZzNaETswwyabk2rOE0RzmCuzMDCrkbFugoBRofuUjXwq6 FAnTaM5LkAgprfaJAJUDBRA8H4OufEtnbaAOFWMBAWP3A/9Y4JqmHQtcz0t/kIcE ZwGwYd8+kyeo0/0voW07STq/C60hX3eFiegoqO6bqILIaswZ6djnYOMdOYhMtM+f VzcMNTyJCRe3KcWvY4xRQMYc+zmwqqxY1cW6F1mWLT6fwZ6hlIRG/A91OfIDbnuh WqNFOJR3NNMmC97nB3D36e4vWYkAlQMFEDwfg/jBnB0lEtNGHQEB9+sD/R6kEta/ JNgmBhnVRheM5+4ijQpz9csP0Y2Ccd5C2BFkURQztRxgldaTRdmzAltjG49ZmgAj C15v0S5CunWI2gHNvNzh0odyKD5+FEcU2arz2TEqnEIzoDdAq4B6Qwf48EVBqtOa rIY6LoLV2/POFqTZvP2fzdp1kju6KpfMLgeniQCVAwUQPB+EB+9YlmTUMuGdAQEp fQP/faSN6UtxXPrEtnqF+9V+pEc77BJO6oa9lpI9Qdbupo1wqNtFH6ZmYhnLPD65 qAFnyKZU6VW58ulobd5nZqISdTV0CorPJ1I+7zTS4IuZkiDg6/YCTzWdcgs7M7W5 sI4mnDt4bPdIRvz0ffM8r6WmVQISuI78+9usnZMLGoJn2P+JAJUDBRA8H4Qmb1KT 2KObplUBAduAA/oDRlld+jlosLu1TDZD9J9srEK7mdT3+HIVohcfkqpAhXXcZrvd avKucihNrCa+dj1u03A0xxMPQoeuFQRlL587M1sEtowVGuyMTyiVtut7zsta/eEQ nkp0MYTqNftkRxoc7vMx98tqO4Xlfe2mLekV8w7TUQxGVi9JFIBx6ZATUYkAlQMF EDwfhDWcHL3i41xWNQEBoGED+gIvGFmUUu7fkdEmaT559dapdxCCEJkV/dUZUrbo EmYtllCo0yNxzfBdXVwlBlHFV7fAW+QZRhCQx9TBv0JrNf/AJp4XIo837PmKhoJr C5UsbT5SIypBi9Ai8AX4HQrB5SQQMd53efjmsdOITtdM0Cp+/uMUVuO+7oFeEWtW MvxaiQCVAwUQPB+ESDgi20fMN08tAQHyUAP/ajusqW//1Z6622HWr8GTVpTua/YG H3qGW0ZdXoqnzUNBIc9lksOV62JL91pzfDWaTCqMTEYzT6W94e7n8SYFtbroemxb kdSb8DO3C4bOa1w1dJsQfTeRYEuIMVHtjJmqw43J7pNn2HazVcnPf95YkMhGvs4b P2zfvyWwhgRCbWOJAJUDBRA8H4SLwCnKQBb0zOkBAddvBACYxaTZc+HsPEMLpoHW QIsntukJgdT/onZcTFZiVNmA6bYyQ0VPTiZ27HN7LjHkVgtdyEQceKq4T3iQ670h /Pp0gwk4ZDpmA/k2oqgs4aE/C6KDy6nMCGaucJhC9I0/0EFD32skvkQ5fj65oeoC 2r/coIoA44Jp6ikzGA8i5aXuyIkAlQMFEDwfhK7W4KH+T74q3QEBwXED/1TiGmh1 lnvOLIyn2lG+HIM4fzjlU4EmEm9we+lTi/zKOz+3w/O+jZKPEeYXvhjFjEbWIYI7 XGtJQalipU4+Uhwv+bIliwWpYlFs0Roi6L/mN3CKXN8S62TI8RdArRKtPH9OxvGv 1AXnEM0DRFuvcRVEBkUlnZKEit+8ttu5rIx5iQCVAwUQPB+Igs8etQMiMnoBAQE7 hwQAtxoIqHHKs2IG8tTiNcjgfReeXovMeGttNua6rd6m2f8hA/UNt3U9houeGEsb 62iU4ahd3zRRrQyof2ZshLZ6kSNM/5KrRSP2YlpzLSGbXJjuQQdc6rbQItOxo2rz lkQ4IlBj1XgYqO67GimlXk5GxpsTLhCFh2dfONxcgj3/P2OJAJUDBRA8H44OI+Ri 1L97pCEBARSeA/9Ep+EhBQUhnr0lq5PX/35uSfyaSFYVNnJ6KQqgoGJXIsktW47a CIlGNireedg6t1TpjC6O4mWLZbromFYX6tq3ItNJopoMEN7kQjG+joWgYeBb5e3u qDCThHonW552ev9HNGtCROG6Dvb8gDbjutlcKQMNygJdAdQquLdxAMWeeIkAlQMF EDwfjdV3HZKuiXLHwQEBe74EAI8cKrwohEOLVUNRZSCmNpttwPQ1UddzPF0JtFLy 1CdaQWQpR85jarWCzYGioWWMpKrOHjQC2dzezaXbbaegWgC+NNylcgSuPlbAgexY KCHy8zARQQR87XzRFyfSgG3eJaChSpqNxZ38MS81P3BXpLoKeUA7LOyQbLOAK9Dz NCSqiEYEEBECAAYFAjwfjfkACgkQ00k+8NKXq46yrgCggAqQ8JF+Fjg79QxaWwIm pf91jsMAmwathlgkBg4za7KLtRWk0zheulwpiQCVAwUQPB+OlV8eyG+IDJ5VAQF0 2QP/YP25VZ4P1EPp47VUusxq0N+pGuNUVrtLS0qQlIfa/Yp16z1y4V5QBdJEs627 uSc+Ia6f74B9gJYKXquvzSwIe1PYB/zgLuuEpIiaR5OXFQ4FiJ3mz0aI0Aleftst lkFjKV90at1TbAV4tQtGE288HuFKYxI6WgO6WAk+TbRjsl+JAJUDBRA8H488pVOS weT0SUUBARWQBACcT8qt9igIx4Qe9tLQxWgK5WM+9vCyFbNQXeQf2EoIb7SkhGWa 8xctG0DHwM/ZHF8KvMAxq3IvzR93690COHdMr5NeEmbRIr4ptiNuTw+E/EM3zmWY mTJsydQoCKuMpx3KKAIAojO9zfQ3Jp0vKrTyYZpg+OsrrUu4vGv3Uo4pJYhGBBAR AgAGBQI8H5EoAAoJEAJuFNqj63mKkCUAoOlz2//un2X5LHBpQMqliApr9yK/AKDH WhmadZB/dNfhqphAPcgJvBVZ84hGBBARAgAGBQI8H5GqAAoJEKK7+yQM+Vb3czEA n2OCdDNEGlJt0wwUi37vvNJJXAvtAJ0SAOrKsE+jH0Hq/0Y181nCcjWafokAlQMF EDwfnYXh1PwU5tB0cQEBlS0D/jnLmHQtNmKxV/CXWgyHwcfHP5QcbgGYJfLE9SDV ARN+VJnFQqXDAPI5qwcdAEOJal8AVs4cnoTwuJm5dnKSjPOPsPEVALFPyX2vLZv3 M/QF+FMuaUowqAM4HCIqPT+ksd+j4jBSRwGvYI6BeBYIWdmHvrIVkh9Cy6Mzz8+s AZ4WiEYEEBECAAYFAjwfnmYACgkQcC3lWbTT17DpKgCg9AfAjRUwSi66dkOQz+JY x0o84uoAn37GFkdEINOpqqs5xRXouS8oDO/FiQCVAwUQPCAxAADy2QnruxtBAQER RwP9E7NcJd6a0C6LpZONEpdvDRqbHtdPG9tFaaEX1Dd3U46BYxZDgsCzgkaKsV0K M+fWyX+gNMu9TlgBSlGP8S71cbGpOW8leg4TgZ+HVQw+hLErsIh67NBSAnzwkJEa bK0qeC6nNDWjRqAA6wH3pszwf1QmIH+ajyKoeKOi1VtqCe2IRgQQEQIABgUCPCCB EAAKCRDbzEgBadC1vvP6AKCIBs4JI5uc3jpRwpd73Xh+yDCguACfQ4NlT5NKLr09 94HNAtZb6hzrljOJAJUDBRA8IuosBn5e2L+1ZWkBAW2qA/9QpFIyvrnaE0FAxzic yYDXRhv9DV9cEfXzx4A3Wud1X8OFY8L8oQtaxqmhMmh1h+WhxrndZ2VRKpoVt9Uz xcVK3UpxSOohYUiKYD+4dna39DjT3bXu2k2eTYYGOuy+GsL4qJmxyK0YJqmIxpQ4 JYbcl4VykuJxT7y+YuSwuFpoiIhGBBARAgAGBQI8M1lpAAoJEL+2fm9BJ4pEUGsA oLQJ0uJwDu23Of5pU4ysFHiq0jhXAKDV9OEqZlHIVOeAj7EHnbe8BL1USIhGBBAR AgAGBQI9hM4xAAoJEHrsMNJ+GHnp26sAoO4GxzEI2uTijIndTZg6e1fWq6w3AJ4w o4EgaD0+qvvknsDdVZnqZiTKu4hGBBARAgAGBQI9t8krAAoJEJ+qc26EFy0RmysA oLE4thJXG+6toTS89svJZR0LO8jBAJ9G+DFp7OaSqxfzBTMG0TUAsBdnGYhGBBAR AgAGBQI95qcFAAoJECFzMZDXkQ304zMAnRo8FOW39GbbWgqKorNSVe9u+6oeAKDx tOeZHk9J02e1C36NmNcwFhXNl4hGBBARAgAGBQI+D+jAAAoJEL1UBo1/MvNhXagA nR8Sl12kfqgwg3d/qDySaw4X+cldAJ9FNeaK9ZNnfIHOez+2pDYk9j/pQIhGBBMR AgAGBQI9L9yPAAoJEIvYLm8wuUtcIBQAoJrZL8ErmkFcAybHB/pZI0xL5zGzAJ9C S+oAuaNNgV7Lo4RkV3QKvk8F0IhGBBMRAgAGBQI9o0/lAAoJEK/kxkBlwh7EFSMA oI7cPlI6hdufiSGe39zEoad9DtStAJ9nXypMUhlIRuMsAfwzTgO8JeZP3ohGBBAR AgAGBQI8SYznAAoJEMFkD/uIpvQ2DAwAn20jGQn4rGjVQXK4+tivmfidjTnPAJ4+ ZpDiDhFJnx07g39g2/1UumNm9ohGBBARAgAGBQI+9wRgAAoJELghiQKdsrW85RcA oIRyFTtMGoLdMn6YW2PUf4ikS6zMAJ9A7HGWWGUkWsQrJTUOAvJgGGWDEYhGBBAR AgAGBQI+9wSQAAoJEFIY2mCt64GLgdcAn0Dhkkxvlc1XC1ZENuEjnSfnn8ajAKDd lTXhE3IrbgFYh3Zllr42FCjkn4hGBBARAgAGBQI/jamjAAoJEKTWXDNQN2ZnQLYA oJ+8UtPRlAweLDI/dI+VFUpe6AdBAJ41fl5AMhDdUuvHMA4lLV95i3CjJIhGBBIR AgAGBQJCGjKcAAoJEA8Ne4Mg5YjtoAQAoIvQpUF9X4yoHZWEONKNd0xTHg9dAJ9P /EKFyOJWbfpUkVFOs0BhLhkspg== =lzX6 -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0xCC374F2D 2000-12-14 ---------- RSA Sign & Encrypt f16 Fingerprint16 = 59 AF DC 3E A2 7D 29 56 89 FA 25 70 90 0D 7E C1 uid Sendmail Signing Key/2001 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNAzo5SykAAAEEANNKa1jxgODYsmC5w2FJj14JFX3MnF9yt+NblOrqXvjzs8fp l4qWCoEOsN6tueeNRAytrGTUFe5M+fJ/ddx9yRKuzjv6WxSeYsWHzXxMD2M6WWyn eCK43LhCAd1uuNoYrTdJFnADOrz7YiMu/N8+8IvBhM5ozEH7pzgi20fMN08tAAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDAxIDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQOjlLKTgi20fMN08tAQF1YgP7BmBeA8wCY8sNlENCgMbYcgkqrmtO aDzCRwALiIDEC63i317iiopRq8wH8ZQcJewvmQDQKWgdZnpJbpAONLR8gzk0t995 0wKHRgtGtzR8x8RtSXZ9yiC4AjxkLXogaOYtJk+ZXayX1VFCJ0lMoxRsNtTfXyHK RN0lMnJwaRPE3FqJAJUDBRA6OU38nBy94uNcVjUBARTzA/9rapch15EjSgZIywSY e53l0EfoqsUqKzCSoRGZqv+hJzpRVQ+R+D037pSV07OItK2q0nYGLZqH5ApLgXAG /SPlEYPnUzCooijIr/RsLU954lp1HDNuqUZfUs1ukk/f7wHmshsP3LS6zyvqnHR+ va9fzU3wo5ZRv1ItWIL3b68+uIkAlQMFEDo5TglvUpPYo5umVQEBbqAD/Aj63aIn 4f6W57E7APvhkP0FhWcrCp9sGu0+EdUP2lnn7KEn02D1hwx4mDLcJcFxikfXXVvh +Cfpr54oP0CWNpcpXVssS5CZoYoC8e8W0YoVkvYnxmHFDjnGRzwKDT88FdZYnbiS JWxlUkcOs45bOdOTE7pIeBwe9MJK/zCwrbmYiQCVAwUQOjlOGO9YlmTUMuGdAQGy YwP/fVIA/Y7SH+MxlALWNHOVOiPF6KdrZxOoB/Ya1G8uNCS5PttePZm/ZSoyVLSX QsJG1Xe/3YPXDobuPdRuC+Kpzli6upCHG0jbsH7/m/EPyATxPP6GvpU/eVK1a3el 8aLl7J0m6NSEh349AbFAzCRhrRl9N/jIPt7rys61ELIMp/GJAJUDBRA6OU4wfEtn baAOFWMBAYELBACtu0kG7v4QYs2lJXIpdw7Bwl2/WNyH8mFhrqNgbAE9+Fsh4HAP nCBHf3qbjH4/Q3j4QNkDLor2HYIhnW8Hz21At//5/eEm/uJj2vsOjfKFYpGtwf/L VHQCQDbNFrxi8pLtwQARNL8M0ONT1rxNg5xyv0/3IWeo9GblkV3hdKO1sYkAlQMF EDo5TlnAKcpAFvTM6QEB9s4D/23DDLInFj4NoaO0MI+ZLWo1M8SXd/sWC32IYY+P dqABtONUNvVnaz2wSZxb2tKXcuju4DtsMrZFttcEQ6W4zaaGpcg6Hq6UqHGL0UAE 2tkcJePvkIhJ/FokoEQnoAlj8IdxjK56gCT4Z7OOSmQEcNTcjmH5Z1AZUnTkIImT hFRuiQCVAwUQOjlOqNbgof5PvirdAQGzAQP7BtqC0bhCybf+P4ESP7XwSYVuSZvM LLrpkA017MQgf5BCHfh6x/r7NxGH4OOTnZwcKQJHJ0NzAxtmWCe3YjxLHMUlfRcK MIBQF5UhPTOkCo2XFDNIuQ/Tayj1D3Go1JHSRqfxe8et2U1SZi74JMMo+B7o+utX dUNzbv5QbD7yydGJAJUDBRA6OWaRmAfmW9hLWSEBAegOBACgsFNvkidMRX08xGEN oX3elJj5Ib/zYYvR7Ui/b27haw9KtuUNct0aRtb+MAb9sXb+0hphDR2W//AxSDgG Qh6ZiEO9c0xw74XX7MrSpwcgom4jJLxGN0fEx1YGmMF1LGmmlE8UWC+FJdVVnW8v m98v3zEmRaHvDnklGvFsgItw3okAlQMFEDo5anTObntw7cbX6wEBKGUD/0aIxmvb kwPlV27sCl6QGy+C3hIJTtz0go6wRh+X0wrP0G5c5OBlg12GqOYP/WlGEs7Qy8GU exXFZxF5kBtFgUiHLq5XxWsAv4DVyrtu3wtpFu9P+smKuMQWvUah5x2R5AdsyH2/ /nn2tMcHqwsgwK/l2cd7ObtfZXoYyH4ZU+3SiQCVAwUQOjrpa88etQMiMnoBAQHp JgP9ENhWpB1jv9xrUDy6XCIEdx8hoSVFT/+PaiPhyRwEY1+sW6L68NeTPWnDAcuF y95sZlBl6xKIykf5sG0Cb8/Y8HMIIjuiet3nYTd4ehKE6/byOwwVNwe4zu65+kGz YT0NF8CaZ2zBFV9wM8JnM+BHshxu1X+4u57oTbenXCNBOmGIRgQQEQIABgUCOjrv RgAKCRACbhTao+t5iuX1AJ9EUHSEkOsMJaO5VMVd0SDv9Hu4pgCfYCqfYMnl5qJD kkeECdji5LyI6JyJAJUDBRA6O3qFXx7Ib4gMnlUBAQyUBACIxSY0YSZhxfvhIsQs PjqiUDQLEyU4EBEUIV3tI4be9jwgqyEc2vwP19iHPoy6UY58mXRdetxZYNbwrBIs +wkwgAHc1J7aH9kSqc6ngDgT4CU1knIauY/CEGg2ziOxdLOVlN47GHcZMmsKIxip 72/00mSe2aOu5vJR7Qdmszm2SYkAlQMFEDo6+r7h1PwU5tB0cQEB870D/10/WrVu lthFPbemoks9aNcMqqV3l3BonLpIPKqLeQP6O3NayYDqtFNa4DliSr9SCPUIQ2Wz 9uCm0V3fy4wOHoXhYek4YxxfHs4qpPPCWbzswGe5n+uOokN/4fAlZzCp5uH0AMST ZpwmNAE86w46Y9q1uc5IoaHwlsr9eeDtkYcFiD8DBRA6O5QPzsKIjL9qTKERArsa AKD64s8528lhdZBRks1joz1nSJHTJgCfcV62uKYFdbgCq0WBNcyDgqekw3KJAHUD BRA6O5cHrOFcwQTbex0BAYr1Av4kZOv17HrZjltkT6hCLzr5XmUsjbZoJHjL2vkO eybNYwzQOg2U6Xq325ejMLdHlZ2cR+fZe2qUlsJe2RrLpuQI2a9HLlsl/oDIN8AS yOnRtWtPsuLQpwSnzxw0k6qjChmIRgQQEQIABgUCOjuApgAKCRDbzEgBadC1viYI AJ90YPSCIMcIhcyzzdqwVSlpIMSp+wCdFZH4YnjW1eFfzfym5tSbxiRVWCaJAJUD BRA6POfsAPLZCeu7G0EBAUUoBACQdVkXeAia2QuOD0J0OH5lSILg3xTam1VpJXpj 70m/kmlzAR71BIgCFTeTsg1IhY/08cLBqEwksv7nLt+1FSxHCNt8o+SLkA24iMIB b7JeOHxkP8QZdiBbLSEvEE+4Dak9LaxqlLvw+u+fxCmw9er610OTr5zUq5cbPOpM dl91r4kAlQMFEDtV14N8S2dtoA4VYwEBIhkD/jYYYvHbEBiDHPXnjnLuOMu+bxrQ h853osuruoR/bYCNu8DiGUFAukjTK9pkaDsAsMfLOZOpWiPn/kN+luE3YT+5+SGG R4ui7+dqtyk6Z2sDDQleHl8hSoRxr09/u4K9jQ+kPgfZi5wT4jGYvQe58AE1v7gX J4TbIr9uEI9oKYf2iQCVAwUQO1XXh9bgof5PvirdAQE7ngP/YUqHel44yPfoOqgx uuqVNMM2gCqOQDCovuKIoSTudO1DU6+bxVoNXV39/dDZQa6eEDCCVQx8OY3DWK7u WcxxangOnO4VaJZxC9tBiiOer4RbYoQPMjEkklewAWe542cjBpkamfRyKZklc2HU txuBHFtue5vWmH1Xf7ehg90/y9KJAJUDBRA6PTb4Bn5e2L+1ZWkBAXSdBACz4VYH W9SJDSoHeUAjNax89Uql1R+NLTqzLkseoNXluUr9RIPscGLAsfYyAs1RZ7V2YnNd aFlKhFVeonLymdtO82lk1UJ3gRhAWV2tavvFsWsT03wYMYbsRe4ilQUNiTs4z6PC uN8B32VT/dIsBVSR5oyeriFI+BHTFSdVsB23xohGBBARAgAGBQI7VLsdAAoJEKK7 +yQM+Vb3OkwAnRJPIfGWX8u16iYG4C7r+qjtgRQ+AJ9owLK9AVpET9PcenwgZiwv 7NM5lokAlQMFEDtp0Poj5GLUv3ukIQEB8wIEAIFDIncAdm7nVZn6SaSp3hE4/c/T xloQNT6tOTs5mO5lv/JqEkDiZKc2CiU+ejgRMTNTcP+uhb2oHDgqu64aZ2C4KlYK xma6fGmUxSMvMhdJs7FTep+FYp7u+YbP4burf7PWgsrQnSUn7cAREj5K7/Hcuef2 XUdvXUMSqXRClo61iQEVAwUQO2/01ApZC1ZHD/lLAQFniAf/UQMOfgIsIrW+s2/k E5Y+7I1Qd0xKIhBomQOOyABjQOz+C8JPQ5myr9birCK2/q0g9JjvBMy2qkxhUmqf /v9JrOfzK6EJ7MNYFqXi0C/QvgTItRbryL4NXHq1MjXjmzCZC0MUy9I1IzTa7M8b aurvjVofGIohoCKLkDTO8ueEwVg5RLv2k4lSwgnO8od5SfZGjuvm9soaMx9JBmzp mm0wmmiNfdDavx1Gh6A43agJSEgKeZmJtxCVepkspyp0F/LoOM/5hpJhJ1Vc8xZ2 9gAQW770CjWtIvq23Do3ysDrt/1ZldVkE86OxROfyNwNWMU/vE/Eid4+aGUJC3u3 t2+AfIhGBBARAgAGBQI7Qys2AAoJEJFoqRmvfNykeksAoIUmqJpAfL6YYeX4sKLB fLM1d6+KAJ9FlqjJEiBl8UoeGroen846Zw3i2ohGBBARAgAGBQI7lQW3AAoJEJAt vZGMOKkK1fkAn1/++P63hYiCyWo14Nmj/KWvjJQgAKCO65R9yrJFjJaDDF6T0Yr8 8s2R54hGBBARAgAGBQI7oc/vAAoJELymmQeGwEBXt2UAnRaJwn33WoIbI+lnBuEc kplGXhLAAJ4hXCx1Jemn7HXI2EK0sX3T7NtLsIhGBBARAgAGBQI73t7GAAoJEIeo vXamM4UaEtEAoLn3FDk/IovqUtcTmslCJV3BPRhFAJwLShkY9zhsTIukXBaLh99A kDEPKIhGBBARAgAGBQI77DTJAAoJEL+2fm9BJ4pE/c8AoJd6xTH1hkRo+V287uJf xYareEavAJ9Qma49ilWbJKhTAhTBhpnTuTOVE4hGBBARAgAGBQI79sXXAAoJEPFm QMK+Qtym//IAnA43baemHDsSrfI1DsVDWZTP+glbAJ9oAN6qMzR86M1RD+GkTVUV F2+7KYhGBBARAgAGBQI8OpI+AAoJECQDiafuTpyZIvoAoPAyqTQRhHMLLNd45daR f/6MCXd8AKCBc9Zx0k3/q+tlHgicaddIVHDMBIhMBBARAgAMBQI73qoJBQMAUw6A AAoJEOM8pwiOYn6kBi4An1Blrn/HWp0f/4k+pisBYSuBsE/9AKCoPfvusuOOY34F NC5QCyckD6bGl4hGBBARAgAGBQI7psgNAAoJEMj6RZFuNvzL/lYAoIArRm6OWsCt hhr6jKClwc5bquCnAJ9yDDi8EiAGItgxgKJ6oOjBSorLWohGBBARAgAGBQI+9wRg AAoJELghiQKdsrW8cJ0AoOYME2dv76+4jOdfgbpglb02gjpxAJ4rJ6fAQpg2+1Wi NsWQax0DR1DG4YhGBBARAgAGBQI+9wSQAAoJEFIY2mCt64GL5x4AoLbyhS97/IRT uhPIJs3z/cqJRaa4AJ4guC8x4aiJksWdO6Str1/2kJ4JmYhGBBARAgAGBQI/jalx AAoJEKTWXDNQN2Zn0xcAn3Z6KT4OMPMNWLF9SCLNrbBDpSzpAKDG+JrrOtdklEyi RFljVEUVKZ/GGg== =Fv9l -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0xE35C5635 1999-12-13 ---------- RSA Sign & Encrypt f16 Fingerprint16 = 81 8C 58 EA 7A 9D 7C 1B 09 78 AC 5E EB 99 08 5D uid Sendmail Signing Key/2000 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNAzhVRnYAAAEEALjBKz/mDHemTNA+hNjGcruAJm6Blc9ZIGHPthQWkFt0ca70 w0U8TBbK/m03WdMvq+PaZAb8EG5uqXctZKwmWIIGB7nRBLLnj42er8XwUfAT8KNJ PQ1p9x9zFWZc3byC8ekg8l+CK/hJLFhGTSGjx8nHv+LvPis/mpwcveLjXFY1AAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8yMDAwIDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQOFVGdpwcveLjXFY1AQG2vgP/QRG6TqsmJgixf27F2IFgoJLUU+7C ZmD1qNT9yL/1JMbE8pnzxOk64w8D47ZiDwr9dp3EzH8EpmV/eIpxLNYV7/Y+W59J 8+EY2T9mzVmp0YGOMFYt8lLVw6NKqya19adQ80dDzkkmwRHfY514+9+DPbc6TvHR jNzo0SuetBiWW+2JAJUDBRA4VUa8b1KT2KObplUBAbtYA/491EG5lsbr09oV0g/e RSfxliLj+lCJdQiicwYeqHX5dZeB04yz3wUFovIff8dY01KcITXBL9TtDfarz5Pl nelUg5cIlKn7kxCeUP0ggA/tz6Zlg3v/LkoIqsUqrodqscjLPt2JTWPJYWYaVjM9 fqXiXRXlVcy2urx6uEucvkjYY4kAlQMFEDhVRs3vWJZk1DLhnQEBwoYD/1zxfMMP pqj3HV3d9q1esyvZdPACiAH+1CJVmtcIV8TjO5qYulxz2TEtd/JLqdYsgUgf2N8T /ClMtfEReSTmVNWIsINAA75P16uIkDYZ8Tmo4XYOf80voeOhWlAwpyLQGIN3GVX+ gLmC/9Fw2wo0E3LsCrUfXREZQTSXMqIe3YPJiQCVAwUQOFVG8XxLZ22gDhVjAQEA SwQAuIEC9CZfKcxAImFBvwqfJYrnKtWPorEV3QtqAN4WaCLFvI8jZJEPJJEf61N9 aucpO/qj6x/iwu2k92E/T5FRVUiFKzXZb5bWm+qI5c+ynBZq34s+qvAq7Sx0gXxJ qimu4ZekACORdeRsILzgRYwGHA45SRONvTY5t9xGoRrsQcuJAJUDBRA4VUm8zx61 AyIyegEBAczRA/0UjYKC81NSK+a9XNl83ANI/o0TZfqpsjotHl+Gagb3NWQTFe/3 AjkDovLk24fB7cPEwcj7Y4oX0g61pH3DAyPK+Zo1VbYTPSEU9ljVB042YLz12EMe c+eD6k2yC//vVK8BJ6Iefh/gXg7Mb+Dis1YBMg9d+23p901DJi6OeZqJK4kAlQMF EDhVTYtuAhsP7LmozwEBBGgEAIVaUCZ3hplEkX5yBBPOccaTV4uioK/8tzahAC9h kN8slolrnvj9fQFMFEltDZSzIqn2855JCT8+ZoIdmGsJ6SyIfv2vlunMIsNfZiy1 jE3jTJ3KEX98fg1h0SBGyzsaMHJd/NzdRiXbmqC/yQOj8eO/RRK3okAPdliVzNx1 BjpaiQCVAwUQOFVRDAx2JIpOldm1AQFRvQP/RquJhO+TZJI2nZPUiGsjwHVe/WNT SQM3nIVyO/mwCFqIPmzywqwn3OsC50S68Bif7PwMToFQKcgNUOwQtZNyp4aico2v VLkxjbpAorqdNDkALdwFWziWIHZRZQ1BVEQDXj5sRoHpsQCmNjrYHh8mFYeVcMv/ QMRebEt4BRQDXgaJAJUDBRA4VVFnXx7Ib4gMnlUBAXANA/9tmgZGCOUtMC2Xwa1W iLhYPiq1aSKOuErkalryTUg98qEOQuRxGyunJOZ5cR6ynfJcZwV1N5CXlb7kv1el M4iixtcBcytgauH/hgmBOt3oG5jhDoVTaFhFwCXaKOLQJueKeV4AslohDRY4oRhk WIVt3oue1nGpNxzSNRIRE3Mgi4g/AwUQOFVRrQSARzl+O0g6EQIU3ACgo47QpRZ6 Ecy8iSR62/Sz3bXeiOQAoKmnqAyk1FvP3QUfrOgz2exd3cfaiQCVAwUQOFVTLxKm NjwVK4clAQGyxwP/f8/V078OiECxTHp7TbgAigCqP48VlfCGPWGQ3pShFGAPQizH zX6gNKu6SEGUy+FFwYwQCdSW0eToUFeAhdo49zx1sXJMR3gbDKjQcfVoXGJLcs5y zviG7FZokbNZjyjmEcYi1n+wtGGsLm3dHNrzu0xdGoFQ0aYV4lsiRomLhN2JAJUD BRA4VVXXAPLZCeu7G0EBAUpSA/9K7n1nDuma2r2+prFhPYkU/Q8GVJGkzh0DqFkx +RnNdMtC1QzjFn8JN0x4t3MHiGG5jVkVewDQUbGuZ+nVgFgRAK9KEVAFdp8y0pSC iJ/AmN/as6RyD9pbXlmxwmKUzVJeb5UUzQNHUtPedJ4W5zBGGr2Lb21CBO5a2+Mp EsNEOYkAlQMFEDhVXhMA/N7tSC51jQEBFrwEAK9ZQQ3soWHviucZ/45UEz/irSKt 69N2njmqYy2hHtQDWtT175+5y/ej21bVEuPPrR4wJeoISxV8yGqJKiSzMIgQ1T+f RUlC/b/xupSSKW8kPgvq/KLEJS3sqIhIgmO9zmZJp5FGK4491roiGsEkCtT4OS+q UJ0zvwfhcSAY+gCyiQCVAwUQOFVkNy1ZDtHS0qyNAQFajAP9GoB7sYGZK3duKj/A 0pvF9M81BglbmxwrZeQD7qJKUGYz2RXFUt33+Fiui9ZYcBpWO3aaYDrQr3zG5fmv 2gu2wBXYJbDb7MAx4KJwqpLH7hCfwKX+W6OP8oh0QemGvWANqLQcFzN4LCxApfXP yfVhbPO0Gsa4V+lZ7EW5yFH8qceJAJUDBRA4VWf6dx2Srolyx8EBAZecBACQXnuL xvn2kiXGon3zBoO2bIU95uP6i0/0cQapR2KfYSploXQPfAql6YlTkI+9CITv7xAW WVWfcNBPUWRuZKYUC7qj9PUBjE2UlSzqW2z7dEE0HamBbYqD+OAMjxNp0S3jSdWx a5qW67fDC/j/US5ECuYKFlljDjy4SzVJ3slWsog/AwUQOFVoXoMCoaE+3wLqEQJb MQCeKzgFCHQgkxsu7y5tI65CEAbIG9wAoIQ+xz2QEz7vXRFjfbvoiHrEUHKviQCV AwUQOFVrEZgH5lvYS1khAQHztQP9HEJHJojmwUk+5DKJHC2laFeGoKwVHEoLeLHx GI2Q9icGv8k3A/0OYjxAb7FPNr7ksTIM50EM0OWv4kOM6N2guKQiXWFi3ex7HzW+ WBmVvEJNsMAASH2h/KdOOwJHH4OkMqIUhgg4vl7SsmHNGlf6rMnnUja6yMLrfjvA UBS9kUyIRgQQEQIABgUCOFV7rgAKCRBBmwi5FiBlLDWSAJ4nAq0EdKIqZ9bXhmaM ODm9mIDlDwCcDskeOGPiG8JQXPquafgc/PucTUqJAJUDBRA4VX174dT8FObQdHEB ARU5A/9O/D/OGOqH/mn4kZT1qIEh/jBMvTvHov0NhBq1HlPplhe5iZcG8hM9N94z P1hZmsYJg4dn+DFw21LVEWQ8y0TbygA4YyxbLq4El40GXAN9/LvVuelY4LucCNoq JKUrRR2Pd+PLEvZEcIqeDu0+dVS0uuXptMPqHYD2UMoNbl7q14kBFQMFEDhVYDaD yJl8YW+H3QEBuFMH+wRYTwfWgXJDQJ4v7T9zOvkdAVfZs0AgZUPSRKowwcV7rKUa zJ9CwmdKUCVBpMPgePYy8x5Wc8tkScvAxlCV+wPhyn/V5cbDdL80QduMLVFWBILN wAkviNFPpEdjxZvCpBxG9pQIp/8YI7fRaCkJR5Q5bp++/2VbWa7YHGiWjLVW6T2z 8dCxAplxC517qzQlo7i4pX34W7qNz0b89+RAgwWJXaFjXPQDv0sTwnRZBwrVq/V9 TA/LY7qmVspylvu0w64NdtiUqnTa5jS/9BZtFf3eyOezqSIEwRkQC6My/JQxBKvX spdbJDnrJxD0D0B2eTWa3MQD7BK+WC1RRkTjvyqJAJUDBRA4Vt0jBn5e2L+1ZWkB AekjA/47X/leujEhaUEjj9hMyDY6/8HbgxwNyUd+Sx6i9FK+vhAGq8s07dTty9br ozqixmHCGYPyvvVkcsVpeQlEWoXc750hbj5a/Et1m3C1J6vGn979f0do144ZiiVp zTCh1LZHH5rALd5tuaNcD5MbOYQeP0vDVcJm2GQzm+IdjGtzP4kBFQMFEDlU6+1R idpgCr+sGQEBeVYIAJ1YGxnhVIibC1ucCCAhZH3NlvGmQpmjEXvI9e0EVKfddrli +DpArasN0a0xZTZl7Utm7Atql7/LG1JvlT+DpnfTrCqDlvjlqiYd+9050e0scrUi DWZDYt1jaWTvH1Hd44WE8RUksWQH9iWW6SPiIFOVzA0cdRRHM5BJ2qU1/rRWWyi+ +CVTY0pZ3DylbuItNoKFqzaWQQY+oXkI3XS5csG+ea89/n8zNsW257oBNV96PEzt AwQh8fAklSe3n8XZdEKVaMvnM9zLGytbdRKgJd6NnXGvOIFaPCKiNklH5Yrt0JeY Pp4AlibRmXP0gOaBgf7Naf7GhCZ7i/15pIS0hXqIRgQQEQIABgUCOM+ahwAKCRDf 1pYxtHF81XfqAJ0SIYFjg2AKnrBhnBhKU0shCw/kRACglz9mEfajFVPi9obylPuc G6QRyIKIRgQQEQIABgUCOOIMFgAKCRDmgewkqlkhz57RAKDuZ5RS6cD44X5Y1S2Z HALuguo3BQCfWcUnI3qOtjsRlPadeixb/d31omGIRgQQEQIABgUCOVOiMgAKCRA0 0QUrP30YUb85AKDaU5wZbwb2PTtRp0YZir/jGyxULwCfQf270gjROiMsrE5g9QmV yTu21OOIRgQQEQIABgUCP9X7TwAKCRCk1lwzUDdmZyF3AKCiqP3E0WOIB29y/4bn NM/crb6x7ACgvtBojMcjmSZT4ErVjhLvJPmS2tKIRgQQEQIABgUCPvcEYAAKCRC4 IYkCnbK1vCHUAKDTzdZqDKSLs1ziG0JObX8Ew0UbRwCgimxikMeoz/vKXOJGJ6C3 xg95keGIRgQQEQIABgUCP9X6ZgAKCRBSGNpgreuBi6xGAKDtHnKAwUlNdltYMzYf /tsXVdsdUQCdHWZaQyXqjOc46HDAvpUMY79Xr6s= =DfZ7 -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0xA39BA655 1999-01-04 ---------- RSA Sign & Encrypt f16 Fingerprint16 = 25 73 4C 8E 94 B1 E8 EA EA 9B A4 D6 00 51 C3 71 uid Sendmail Signing Key/1999 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNAzaRMIoAAAEEAMWVJpGkwKWD6GFDUHtV6AUDzwSAXiWc6UinY7EpCLwFdYu9 Le06VwQt8H9Xtb/2jrXDV61Wu0IDJub6g7PZxWxU8WHVnMX4aBT5WOCBpwFRme3u idwCAbHuEJs12FQ3Tf+4CZ3R9uxlAovRaY6g3fJ7gtAc9HAjMW9Sk9ijm6ZVAAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8xOTk5IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQNpEwi29Sk9ijm6ZVAQF3LQQAgpuD3UA69w5FjCAfY1iYBsaGJ31V 1IyFQbo5fAnVo8PMQzioqbsn2U1y1rRkf//gt8T5oVo6Q3e5oWQF/vcruEP2WUSZ 1BkV7zDWLsa6octYIEt4Rdr6gBxokzP0/Z7Ck0WOfSxEAGXbHZ6NpbcfNdIZAxhZ WPqcem3zEwoK/l2JAJUDBRA2kTK271iWZNQy4Z0BAQltA/9b1Xtp6Sqr8LtBAUax ziRYYmlIENgkYJGPrF5iB17d1M+aMyJ1IzdjKHaoa2+WpWYhzT7RalcxkrvXZEN7 hTC5XqsmkGXeg2oiwJPCVTUoJY0goJKiMXI/zYcLGAxTnYr3rUevr+vOQyXPx6Ld AUCXcsD8LFQWR9iQTgTOBVSOhYkAlQMFEDaRMloj5GLUv3ukIQEBjh4D/RbqKENF 51C6DrwE5IJrpIZ227mQwFzu3olcF3v0sOoHv9Iqw0iebEM8D9z2t6XiGNSgfmQy EUhQ2gTLfbkz9lSUjUaH+ziN10SXSd0x63n2xqrk9XaG8YCWJOcMe+N5Gh7UGniS UD9XQNBLoqnOL1FpScAC3F+KsH4kCKLQD1KJiQCVAwUQNpEwwXxLZ22gDhVjAQEC GAP8Cle48mxG5TcrAglAXs25YBLhHK21tnSWrd8j0PdID7+9AKongjZOKxyAnFkZ RNXDArmG+FVA0DAJatiFXikqpgyHAM/QKSCSjBEOru3Og+3qV/oFQjAVPfLQbFPb 6i1TIWzvYTp9L4TlzqUM3OF51Mx07W1S+qCciozA/0GqFGiJAJUDBRA2kTthAPLZ Ceu7G0EBARPzBACbuAlTHMobN3Lw3YvsOUgwWHFLqKXLNTu59ozZUL4da/E+Aszj MgE8343pV9Nwm/aHGXRNiAEOftrb+DdU1jcaFgwsrWnXK9NmnpAYbMkoOb8Om1Nx E/5u0dIxypXO8ziyQIfkElsOVzhPzct9wZKh4qt2uLGcVWXeFnf23VRb4IkAlAMF EDaRU60Gfl7Yv7VlaQEB46QD+IGxaViR7rQv6r1sAZJzxC6vMpMK5tgk/47gC6jm 8STb2DYvz/5KNYTkUDRB/85Uy8jY8jabkalWBNN6z/Cpod9ysSjSOKNBQ+6MMhXc qXWKakxZIa0rIVNEYaRTAbVU4J1aXRdh7BtC2nEqf3SQD3c9HDLA3p1W8g8ZyHwr QXqJAJUDBRA2kVJAXx7Ib4gMnlUBAX7IA/4mKF8EGahmbNXA8wcH4K2r6LzRLXsE f444U7hWQRW1fCxDJz4DOodUO3aENzzWjfxL8BtoosuDTJeKGXoa+5S9bCmtaksm 86G20UuDx/vt1Ol+hZFW8q+bSS2bsAKLvXZVDnURtDu6nzdNR6Lt61ahsUDo4nLw iiKUZeMdE2S+H4kAdQMFEDaRV+is4VzBBNt7HQEBLbMC/2wuZQqaLrLUm5raynph rllKT+mQQSTedTACKjnpT4LE65YYGGFDrIMS151lQ1OVvu0DpGzmQ5b9kFNGp0GZ giXndPbvmwPpOn4ONmCo/zZFWryNQKuqPn2EN4rPhngjRog/AwUQNpFuE9TeeNh4 KRvYEQIucwCfe3wiwfbKv6937Uhay1cwJTDMFmcAoK2rmX7TT8Rh4fw9eGuEghL0 Sq5OiQB1AwUQNpG8CnLJQtjqWiN5AQFBrwMAsSbDxIi8KPCjnnK72nbpzO3+iGcP Uh0k96l/Uflf5Bj32RSmzFv4KyfPlVJ83Pt1InG+HCwHSAmK3KT9hfy45wR++wo2 wAFI399wsKfOXA7RI0YM8lzgodMVcd9XLhKAiQCVAwUQNqjzQs9zyPJiVAEJAQFo dQP+Mz9EbM0cv7Gb443rLGeo0WB9CaXSOW5tHfgXWJualdPoFYBwIIqOQUBLgqyT qgQLN0R8Bk3QPGQETjHYgBqhIfaJkZfwbyY6wwZZTyzXQn6QTzCzkc4nTA8bRbQs qDMrQqBjUZEBihUrxeY2YM1Ly/aUr6+UBjdIPbU9hRcj/QWIPwMFEDd9XZSDAqGh Pt8C6hECO0UAoM1r1VbVgpp4oVH0vGKu2IJQnyUSAKD+YomxwnuUu3xDCdL6AURl onTfZ4hGBBARAgAGBQI3L4BOAAoJEHlwE/5CaaTy2V0An3tCNkR6qFVPULvo2hxq eGhtY1L5AJ0W5u/dd+7S8upDzbfzh7hOQ5NoEYhGBBARAgAGBQI4Em4hAAoJEDrQ bg2RZy5OjxAAniHUaEOaOA+O1oYbjSxUf7nJMrl6AKCmkWSriDk4i0KAaveOtSE2 9DS5pohGBBARAgAGBQI5U6I8AAoJEDTRBSs/fRhRR2gAoIafxUUnWEF05lzy+ETl N58c43U9AKCkprsmqzJmRD0W8BldNuUMOElt9IhGBBARAgAGBQI+9wRgAAoJELgh iQKdsrW8gG8AoNxWbMkigT4z8ooZSgiPstcpBaIZAKDw01I+jzm7wjnMdch/E6t5 lCKtm4hGBBARAgAGBQI/1fpoAAoJEFIY2mCt64GLR/wAnjDLofOiQ5cTy2yg2cDo +uhUr+w1AJ9+/ZarbSyJZowegsHv3pHNBok694hGBBARAgAGBQI/1ftRAAoJEKTW XDNQN2Zn+ZEAnRglo2vBvbh2FKZzofxm9OVRTtRtAKDKvLvi2eA0aJlk0rsZ8W/6 9wrG5w== =ghHr -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0xD432E19D 1998-03-14 ---------- RSA Sign & Encrypt f16 Fingerprint16 = F9 32 40 A1 3B 3A B6 DE B2 98 6A 70 AF 54 9D 26 uid Sendmail Signing Key/1998 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNAzUKkdIAAAEEAKvdxY+iy7eLqxP5StbpZuxYNPWLye98bXA8oKwrEm1vy7Xq LBg3uNXjlMtwcNW/r+oFu5A++2R+1qC7w/0867C+52D2zkfGRH3hn9Lh6YaA5uIP LPbMGB3Tepbtj/lAtOJb7JKdybF7fkxkEUmwhuA5kAo1rKKWNu9YlmTUMuGdAAUT tDFTZW5kbWFpbCBTaWduaW5nIEtleS8xOTk4IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQNQqUqXxLZ22gDhVjAQHaYQQAiFITCRAEKhLlgjcFlehTDmVMFb92 1jiclN6377xe+A2zEtq4p3R8IwwiVTGeBzs0Zmnrlo+fAdVFYBjIYCtwKVTwd72U v6kxX40CjNkx6q264hUjILOumQ2P85/Aqg7wmnK9vM85CkmhKwu7b1OHsY+EFAlo U9CWyVjwSQqzHnaJAJUDBRA1CpJ4I+Ri1L97pCEBAcRtA/0czuj3hK7YiVL3zZaV EUnqw30auexjm0D+LhPpsHN7OM3im3z4+/4Pv2O2CH7nZhAsgRN9N+qdf3fCVGHq Y/ULkdsxKNbPEjSEWI+dqUWj6EyMSewKvBo7Zvljii6tBsM48ohtkWTo4B1/SuJb FM5TgXu2PMTgWHsT2DFb82wb/YkAlQMFEDUKkmfBnB0lEtNGHQEBmCwEALZgc6V1 mvRL/dqtGwdt38Uuw430cdM1Nk0FlkQsGXVWY49A1yrLAcuPQi8wzx4GS0LhtIeo vmrQ91DBaKxvxkboqM4orYf7PB5exSS9RQlTN2ezaf6IT9hVJHtXoYxU51Iny7hp r5t8L7od0gue9SNsLWjW9PZH1eKz83/g5VJZiQCVAwUQNQqSVu9YlmTUMuGdAQEv nwP9GvBao9wPX0r1aplZgkUItDwWGBbF8qQLgX5rM8b8IAxvHboIp8fbCkzhVxI7 v0IdYc0u1hrY3YfCNNbELu09JEcvtsl3hhmXnalOxCEdjoMUiHSb5f04sTBNOhD6 IWQqixDizoVzW5XljHBvgxWJhBus/dPJ6hdZPahioVd0oLiJAJUDBRA1CqZRAPLZ Ceu7G0EBAYlJBACumnB7zeAOpuj0y9h0Cgh0DleNWnqpHzTus4lbt3vw/cMpKmXt nGxMb4HE9rp6CHuuy3NumH9JHa9lwgb0T6bc0Zbc+LX1j0tKMC4BIsfEbFiOMSXU P+meyMUGY67VysVEeTqCgG4FqK7yOhnJsxjwDxJTIlrMoYwSSmsF4/R8Y4kAlQMF EDULPLgGfl7Yv7VlaQEBWZ0EALAGPhQbVEPTp2Hfm76ZRWjYJ8iDn98znfsHRYhS A/yIXF17eDtSkYU/ANOPNT8g5fOCWKjfLTJX4Al78rbHeGeKS+eO21WQCh8AF7Bv vZZWJZ0CyNnO++hzyamsOG1Z5Lrt/WQQPK4Jv5ZyqK3f2nGDufHuyQuIXxsdd+BX oqp3iQEVAwUQNQwe/ReiaPz3pQGjAQFowAgAk2fARyp4iyRl89ZZHGY09HpRbwQS 4jeDIEkBPBpSCBXIELgR7UonSoTwHD0nGHuwgdil5Zjl3PAlQJdo47Sh+hLCMoN/ mg0aI0vSnOxnnVgIcAigzlEAe03R12frWp32SjXJE1GdeFQWlzkk/6BoujKybvI1 oRr8OeAb8WzwmUr0c4VITEdb/J5c85yriHIuWpqYWIq5gb7evdj6JTKXly3gFp9R bwwd2tjlHYu6O7dHuEsmm4n4iK3rEglILvWIoS4kVV80v6IUE3xgLAVf7tnF5iNc nXcA386xUBB17zNvJDiUrciX17TuZsIVvIQnB519NN/ZVr1KpHSbLgMyZokBFQMF EDUMH1shtWni44zO8QEBGOEH+gKn6blq8L2AJ7Q2Pcw26Do4J9xlRPFKrDgAgy6y U9x509y4BeAZ6yn9RV0iGwhgzbdd57QrUpgcYNKGXSC/tJZZj2h3CZ06m1zaGtJ0 ig0dN7MU9gqZZMLy9f1EZmCwXeZHXL8t8lUMv8KEoq8+vvghCRvDNUgyQpkwcIOh rSu9yJ+OeJ8SpucL0ebJE3MmP2JYmqBCBg3pbr8bWvzjZ2Ny40OiyRnuXFP/jC2f ll6oMi8rOpWhjTTuHyrWEG9AxI8xeI5WsEOrJHH6stlmXJM1NtlJQ0D3qCdLn81M vitLgTPb/xUepRkFdBhZESG5BPDwT5hm1w7m7yhVohcH8AOJAJUDBRA1C3M0THwE EmD/AfUBAbzlA/9nDPPyBD9T1ygEHBsS2ZztO7enSk9DaYmt2jsqQ413UnpbhybR zZiuHXpqgG1p5GkYjP2Cw1DtT/dHu2nrD6Mf9j/4QYaRi0sdWLMTKVFPDlT+j1G0 Ag7/yCMhPv2xr3JOLPppCFiYPkdqRfmKnCWdCtrXmBvu4EiLTj1IXtc1WIkAlQMF EDUMLbdfHshviAyeVQEBQOUD/0QsDaDnzgcQHbtvJvDM0x+JYuejbvQEXh6k/cDP dLIC8XLZMd0uuAWE12SL1pm6J0q6+csKELascFKyOWTRoNrkWC5m1ltgRuyfXq3z Ur9SfL0KlfWFLXRsmGRd5V37u5H9kRjeTRlyiOeAcAMzaLunI9dK8sWet4p03GLy GOHQiQCVAwUQNQrIVW2DN4pRurLtAQG7gQP6AxTbsJ3Az+bwEgymYYo7EWADJGoB e1r48/0YjocxddhcXJSGL5dRNqY8NURSyvw/dDtjH81mVIbRlZR0QS4D2Jp94Q5/ mrWyqBW6Ah1EFtihncY3o/g1sxEC0hIj0/CklQmNttxeIGt1rRVyKxHa0tYkDtNW w+y5xZQSkE0yin2JAJUDBRA1CrJtdMsnjUUcGpkBAQ11A/4rp8Oy2cVbkrHHIxxM 2dML/tqNOgOGaB5tEISgtpv9xy1sVuEEA5T6rQJefeC0K00M3Mb3Sy4uumSaX3Io yTQr3XD3FZ4Q0n0AWR0ppRBvepqINfn/yeNF7268SDIMstQjlD9GzyCobqrR+VLT pxF7wXqyHcLyfqQjRiM9ZNTzAokAlQMFEDUKyAd3HZKuiXLHwQEB0+cEAJ308jCg rgWPcSstZH8Q8AoQajdxYMqImoQaqxC8zWjX7BK57pEFLelI3uXqkeEyqIGH0Yqc SvHQSSe2vLe3DohfGraCL2VK+b3Dw9IOaff4+ZFlxLVsqNiq13Z6aqRuKJ5uNjhI 0q9PPBZ8xzOMGfa3cMmW18INJvrVyTu3ENXUiQCVAgUQNQqcZHfUAfkkYu7tAQFr tAQA45cSUfYgq3d0RGx3RLUL0H+Bku5xMH2YuRJfpEI/Oc0Z1l/G7AfoR0pTqo9p uCu21glCUWm4TvUEaGJjT7q2pmcoLO3LCavNVAZHNTPQvjJgu/Z8+290yR9Ln/f8 4F1/zcRe4Gakq2weDM+h3gH914vXW7FoGJePc1X+azQ7pYCJARUDBRA1DBz15mc5 PORZW/UBATL3B/0aknENUHmJ6+axITL1ZODUe/KqFmLRgvCl2g///FtMHlMCUyWy q+MkyiHyjbgh1eN6gsCHUSHiROQdXMRRSxZm4FVsjznisjybCqzd93lBQQyKJ6XX KWu9SjJq/b6yg83byTgHZRW6kwjmDal97kVyHtV1WZBGDJ+v9nCY2tSvqujtNQbJ LWrHp447BSIXBBpMkF/J+cbl7yZLiUN8I1SnLYYttmKOtfD33eL41oKT2LK+j8sI kCd4XbcGoMJ+DExDVhFeiwwXWzomvTP42Wv0b8DYI+xeuE+AyARxJ5AVbGUBl4sZ qVuNMDZWhc0GLpT10RUeJ5HJVAGIWB2fLIsEiEYEEBECAAYFAjYOsI8ACgkQkKql f7AyFqOJ+gCfUIx3JYVnHib7dOfK9XbWXj9P6CoAn0Dd1JFMfXzHz0HODBhkMmJ3 7zKfiEYEEBECAAYFAjlTojoACgkQNNEFKz99GFEFXQCfR02mflvmFNb8uGlhOvxi Nt12kpAAn0uA3cx9aug8PHcqPcezdwPSWYWeiEYEEBECAAYFAj73BGAACgkQuCGJ Ap2ytbwliACgtmjNLo38Xv0KZXlU5tx54BQY+t8AnRsFftvOUwMJVA59oKrl3I5c I3SmiEYEEBECAAYFAj/V+mQACgkQUhjaYK3rgYsKgQCeIyf51Q8863lVdKLUDzTd jSK1rvsAn2ZxBCocmQh4YCvwRz1w4qqNZx04iEYEEBECAAYFAj/V+0sACgkQpNZc M1A3Zmf+qQCghIFSHbIMvME4+5Cucw08WL75mvEAmQEclbF5ShaYfcBxx+OZXDhV opS3 =j99z -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0x12D3461D 1997-05-07 ---------- RSA Sign & Encrypt f16 Fingerprint16 = CA AE F2 94 3B 1D 41 3C 94 7B 72 5F AE 0B 6A 11 uid Sendmail Signing Key/1997 -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNAzNwqnIAAAEEAL1KqbRgVm9kp9OHLkKGb1tbT8rwEIeeh8KKSKJyDFiV6lZG wbEa8OC5vokXvjsJtJvvhMfrG5OYc1Q1sLzPXXBYzenzXFrPaXDO8F9DE8B5VTuy yY7g3LVr0VZYfi+ZsNdOFGNLdwLz6a8GHBHdmAn6z+FKjMSbdMGcHSUS00YdAAUR tDFTZW5kbWFpbCBTaWduaW5nIEtleS8xOTk3IDxzZW5kbWFpbEBTZW5kbWFpbC5P Ukc+iQCVAwUQM3D1KcGcHSUS00YdAQGKTgP9E9r2jv1hB+q5yvJKyTWHiIS8oU5W eLzdoFlRJUw74M5WBh0/AkcTMfv0BpCDMxu4zskDJ7L+urFRIsf9op5w6YjdsM15 AvuCtWqgExRkdoac9WRCFNZ77WPQ4ul018k9EIpurIPaojLs5j2Q0+9vOXrtJmXj S72Ol9nQFU/hl46JAHUDBRAzcoIxrOFcwQTbex0BAXvAAv4yS5fkL38pJTUJrijI XhaHLV1Rq3XfTdQ2HuMG+rF9nxdBCz3a/YCWJSPvE11sINDTSni43BwbsXWqaxvs UKD2fqgXB88zueY7rOt8rqi+PRMZ95QUFTgUP0kAN2+U2SmJAJUDBRAzcYIwAPLZ Ceu7G0EBAdysBAClk5f+3LazjkjGZiEVRPBKyUYJDqx0j9phgVkqWRje9ot/ya4z N+Zm8e+MGyIk6BfMi1QluMJUqPGY1p/mvLPMkiKhwYXHG3kymto8CMSF415mLxIP /6P3SwCyRzJeEcBxKgXlwDwelj2joa1fWZH+rC1ZuZ5FCaiiyKvjSCqb5okAlQMF EDNx7IPhx4Y6UUEd4QEBrfED/0tP5eMU4G4CDEAyV6susGl8WUSJCkfGjK8Z22V1 vM4TLiVLSf7cec5tE6iau8IzumBgRV2kQWOz0+q1VBOStUOJQCGfwC81ou+74eTt ThL8m9oJ44Y0JrQpztW7iBqU0KYsAgf95BtArvTqKqG2kLTlBVbjwb6PBqkyzm3C 6ZbMiQCVAwUQM3Gq0iluPWNaXACpAQFikwQAxYQKEPFIzF/5SyMiktsuNNLMYolh UsNEUpU63+Yxhr9ofK7dMZFwaTHaEnCZ/zhjRRA6R+BjBOmnkD/W7fG/i94naJRV rMejqJhfZhHYqbMN07yxGdjV47neghSoN4zddZdfLq4gEPD+MN3rVTDnO+xpHzLP 4jxqAda/0eKSFQyJAHUDBRAzcZsLcslC2OpaI3kBAX9cAv9K9QaxgI8kjyVJkVxY KJuYE9PPXgjmQvqx7gS+HFm97ZTROEYhhNek7EFD+XJpVQ62KlQxNUaWe4VnNmZN 2QQyvRhNvE0bPC+rBKoi6np6Vha0NqWDA80xos3oswpj/+iJAJUDBRAzcRiTBn5e 2L+1ZWkBAY5YBACLvAw9AoqvMqnUVR4aXSkzK+s5aQG9hDDHac2FWsG66HLhh+Ux HI5Cvnke7CF+qglNzDU7HpoIdDFovRgQkfGnB/I7Cy6ax1aRJpLc+JNXkwbDDcZw 9sXnMMymNl4xn0vUOyrnT2GIwLwFL/t5JIUqovm3mZ2SpL3FxKNWyxgDX4kAlQMF EDNw+VVfHshviAyeVQEBrtsD/AtwAvvAduNZMFL9du224fvVZ16of9P5vLVB6tF3 WKvo39FsFjOLr1xgZn5TWc09i1sVK6swi8O+IgcNLq7CLxRYaXpTjObbphktDVnU 2uWwc3wHzFA7nNAT9ACEa7gDc1GxFrJQ6QyjJVK4f2n3EyJxc9E1rBIoCSNnmBHh vqJViQCVAwUQM3D6ZHcdkq6JcsfBAQGNFQP8CeATNOacSrL+x7JaFf2AlANLwZAo G68VE/JMcUgGBCZdo6cptg1uBFgzWaOVq+aQU7AKkwLmbyMvCX04PS0tswnkSl5w DTLgSmmOH5elIWWrv5J9MXrlsniIzc1MSokENMOaKIEWuC4yCgE00nBj8q2GfDRh J816g1ndGU9zErmJAJUDBRAzcZZKH9vgQ8ZSyXEBAT6zBACDaXRCrBqqCmjIZ/xN EQcXQF6VKoDFfMUXSgvRaJP0LRuBmbRuWQRZe+OIGA7vKWtvPti40bm3O4b8rESG MMAxARn2PS7VPfOhrRNaVGV/s3NX8GkrPxYD+MuFVHoI3QKiKa/fzxDYMX3rTh6X 4ISe4cS5O/J6VCEKIjPvoVVFF4kAlQMFEDNxljgoffu9cgNgzQEBEyoD/3Ca0oBU AuCJUsrPyFYVr5r9FYOWtvOZ/b8IynIXjxD2Lin9AlX2ijLFDJR0lbDoBVPM4IVt 4rb/yr9D71LU3plxKn+G9JdFpNK9IWJGqsn8iRmbnoERbbVzvZHVx6qA4qvRTt8s TJYN+ueKng42DVvZVZQLWZv9mdDUKH9i7r7/iQCVAwUQM3EH4IY/IR3IPsbJAQG+ pgP7B8mo+OP0lN6KRK83pje5wctThDHF7OMW9tSKXMqGUMEa8+GWrOrazyT+5R30 cOHUnz3iNkjHaO2/3jLZ7VZTrewYGD7VSg5d5RW9PMCSm+MaJiHLVWKxS3exHHWK b62c3mao1zRz5Oj468cRXnHABNaLt3CmMVvKUpAi3d/W7V2JARUDBRAzcQGwIbVp 4uOMzvEBAZc6B/0eqipGA88c3bxT0NXZoQtePdVen6Ub3BJiR72E3YA2kZx4Bi1B pcJIAw/HhRx9vkc3EmwJkPCn1o1pnYnuMZTgGYH3KAV6WFsT/Yqp0KaHYLzHLCJP CVKI29DClbI+LOw3sHWuG9ZHK/y26ue3Bd16dJzs7Wa3ryyqeZGi3gWijHbtVcgA laNicb0QuWcMXsNYy2E62kP7tZIRR88cv3KVOlbEB/qEOZ8tYbk5UaI6ccZfIO2c Oyo2xakKmw92DyqRdbNKbf6yFZLPYJbGZHsJeI89m+MyU+av7iIhh/ky1mSrZW63 dPnQvE6sw2BpFS6L3hmtArLHWJKBSm8N3vobiQCVAwUQM3D5Rb3aj9Y/6n39AQGw owP+Iu/HfZLks9GdaTXata1YEwC42GJFxB3+8Pgy+ZOimffkF/CFlYWBthD9Zwqb NEQanNqQGLOtHgCX4JFLia+FktAX2hy92ciTcSFG9sVsaEHrWnjQRfh4OhqJa/D6 rtud9sPWjx7TY2s+8BDZxjgNnq+gTCDnhRKvpsLHl9BogAyJAJUDBRAzcPU2I+Ri 1L97pCEBAYxXA/0cleagkyPhJZoZ2PfqtB3iN9/OcFLZCC4HDTdtpdOundLMTZe3 WtjCdETnLCXQGOMghdf9fnuU6Em5xPDnXRi+xvMo1/WN+m5n/xfui6qZtUBrZp2D 35OUFjD6Wr2DGthKb1263P0pbdcCUAZkvqgTHasJfMeSDZR9bAcz77o7YYkAlQMF EDUKj4B8S2dtoA4VYwEBHSkEAMOsCwolhlXpbhG1tz35lxdMa/dBCB+JokHvGH5B JZNEARGpjlA7Q6oEYGtpTuIwj2lRqgiS7d3M/qCKL0HlrlMDOcBbNdjC6JZuVgnA LEG2m+r6YZlLratpkK9rI/SeSpwz2AfmrC89PI+C9Pcysj+EH4hV8WyETjcNA0le 5UANiD8DBRA02DSrUX4eqU/cq8ERAhWeAKC4UOIE7dklH1E30vRWaD7/IxfsowCf a1Iux/3y5K0dJA7NugTQqCCGPJuJAJUDBRAzzCuczufOCV03LMUBAV8YA/wNZI5H kQtN09S6BWAHboVK1xp0xLjiKzUlbBFPw2RGJ7AE/Vy9XBLdzrNLvmp1c2gDPeBS SVfD3T8J6+Ioc0DXAc66mwwLHA+rL3VSjlI5Pj29M64dnkdDFjXtZ9OAVdRQXHtF BMH6Br0GkZ50erQWbmR+8fgvgV2fW86kSaxqSIg/AwUQNPKIn7gZOcVkC104EQLb ZwCgyFyGnj8s8Fo8FvLO3zFGOtlEiqAAoKy0AsMQXVFut1EBaSu0QIgf+BikiQCV AwUQM/vPi2Vgqaw0+fnVAQGPNwP8DHZCQkRoXD2Z6TuDeqa6Vy0tI6YJ8660Tc2w 2siBd/F+QuCHHZ7SszyWQZ+Anuy8xaF9V94JoTxA+VFuUByewD1vYKgxa586GLUj 2dRibUQfoH5FcY9wPQA6eq5OIUYXYtU4JBy8WGRxwjKzis04WNQS7oRgVfPVOLvx syefabaIRgQQEQIABgUCOVOiOwAKCRA00QUrP30YUVfeAJ4r6k4vnaLPthfR7FSR s3pmXrC6gQCg7jXhrRfNQh2mnQWxUBowCAk/Xo6IRgQQEQIABgUCPvcEYAAKCRC4 IYkCnbK1vAqMAKCnn3HwbLwS+K+7+DalTQAa06uXUgCcCTZgU3roH3xvPep5stqK X4YZEVSIRgQQEQIABgUCP9X6ZQAKCRBSGNpgreuBi5JbAKCxdKVCyh4KNgwaxHNu aBteGdu18ACeNXYmxUhQN/ogZuSaBhd/51aBD8SIRgQQEQIABgUCP9X7SwAKCRCk 1lwzUDdmZ5f2AJ4g86/sZKvZr117lFJsyeCCxmGjCACg9ihcPO3ZXxWtFwrWwOSA /g4qSHU= =6cVF -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 2048 0x0C8B8333 2011-12-14 ---------- RSA Sign & Encrypt f20 Fingerprint20 = B080 979F 4D04 3E19 D05A 369C 629E F8EE 0C8B 8333 sub 2048 0x6763ED11 2011-12-14 ---------- RSA uid Sendmail, Inc. Security Officer -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.4.11 (Darwin) mQENBE7o89QBCADOc3//yYNlUk1zTEPaiskclluwz6o+kkKp+k2x/rGYm+UYHMl1 w5B1sLs3greR7eGNBmE3Eftr94v/YZrDqcq4mBzQL4qoS+4Bvrjl9GEbAc7Ke08s ZG0QC5en6mdn0QY3ZSb98GTlImPjiGC0tVCBylJLeyvBSgUTSkkLmp4lsmH6aa2G IhTatCIV7I/mAB2lM/KyfwmTf2/q8GsyszC4dwVRUSwfkQDfS+dxc60Krf8GNDsj bPolwAQi+YWMb6renYV2pNA7n9A5nKAE0oq9pe43fv9Pvek+07JJ3YnP0nS2yS4P PVewsRhEYllEYSmYmEwwCb0682A3HIVZWkalABEBAAG0P1NlbmRtYWlsLCBJbmMu IFNlY3VyaXR5IE9mZmljZXIgPHNlY3VyaXR5LW9mZmljZXJAc2VuZG1haWwuY29t PokBOQQTAQIAIwUCTujz1AIbAwcLCQgHAwIBBhUIAgkKCwQWAgMBAh4BAheAAAoJ EGKe+O4Mi4Mz80MH/0h6qv/sca1mTjy8vYSRYZiIWyYXpuHFUlr31+wF3cBmwCI1 4qHoRI6MWj4JBnwQq2bAzglgY7GvXXn6TYEFju3gCs6hlvlE8/1z7+Ku/LVsyiCh 3T8tVAxBVeEandnJJgmOP7/dbLBq22/WI7tNi4UOmnqx9n2e2HpBSKk82a2+Z2Mi 9yI6StgTn1osKWTXxyauVJkNKnsoOm/pfH0aR2BbK4K+XtW8B55diGmgKn7o5dN+ 2A+tHqPeioTRgTnzywoSniQ2qOkODKjpNr8UVPVOUFHcO4upT6CQa2hijp3f57ns GAJs9m/JJDSd8l98nbQZP7G4nZY6RK/NIEkWhECInAQQAQIABgUCTuj0XAAKCRDA KcpAFvTM6fG9A/9Z9GL5OlfyBYP7XKzFadtg7MReYdcA67DiYpkmiIKnJPSN0X4v H6Qr/mIjisAGm16UIMQTAIUPJCOm2et+55AA5INWiWrU4TKuCfOUJABMbdyvh5vI HmBmXdmVartyZj99fCDWOwai1cpm+KQMWvO6FDopPAN+3xJiumIQ6KfO0YkBHAQQ AQIABgUCTuj0fwAKCRA5pMd9qXiEsL51B/0QR4xgoCCaTzTYKTDYwNanLBa+J+Gm wO7qU6jK6nnLT1TNyMoElCziVh+rGLELD3Nfw64p0ZG8F4bIJhVLTCpipmXsXnGj 86FrPXV2l/jglNIRv7CD12dBKuYN9AkGJz1Wt6NnaENu9GBciUyIkpVCpSEYTgD2 jRhkyCqqOSGVj93ze39VPzw6xAGUEQl7+uVUm09lkONDHq4TDr3QcdpyfwntYKib DfbwmamVwYias6cMxjxT9GPH2Fu0LF9564CGxW3/AUbr9s/Ze85cysAo9JrIHzAL M9akedEg9Y/VVKH3d634OOXqRuddPjajDcohRZSg9PSrXRquvONR7LjIiJwEEAEC AAYFAk7pOe0ACgkQzx61AyIyegG9DgQAs6RL4lY2LGaSWrMIHMmsHXEkUT4SNP9n J8YFAqzhR88dEMC7s6OeCVGniAPnou07pHAez+hNqOvvqJ0HSsJAMaH7IaQKGvCM 6+/VDTBnOJz56r2yVlWqbeTwGKuwwK+nIn4Pdm1DogsN3YMsdfbP4gCcK86mCMef aEbs75MGJOKIRgQQEQIABgUCTuo+sQAKCRAY9QOAJMJ4Ap/6AJ0W+lZpo0/ttlwI CCfzyaABwLCRggCg3lKOKjbw52dM/fGQkuVv6VX/OrGInAQQAQIABgUCTuo+uwAK CRB8S2dtoA4VYwPBA/9A7rXUPQep6yGORpF6KbIGUMNeotPkZp0FES5XbnGFAPJl P6qUDbM9sPyupk3b+askqHanusmMXQsyKcbTsFzLgoRPU8gjkquEhrwnpWAOz85N vvHNCNSo7U6Qnyo8B42wXOtumaOTWpko2PC/SkGh4dYA6J2LEftmkVRqZgA6xIic BBABAgAGBQJO6j7CAAoJENbgof5PvirdnkQD/i8GBLaY97zgOXuoilxq3mQK0cn6 TWIorrG2J9f1JZGZX6K3mv2G3KsjGs4cXzaFkp2hgD9yqTO/+BBQg0+OiCNxvs+l zrkP7yIXk7uiUxMMHkXaKwxDUuQbf4V72LJqr5eLZiWNwuWJ2VdsVYoS9/gT4enw YkZr2hdH/07k4TpDiEYEEBECAAYFAk7qPsgACgkQIfnFvPdqm/XkBQCgjDEuvinF 5lcGIWrERV4wqrgF+JMAoNbS0PaMoXJrVZYHIHhKxHABLP1ZiQEcBBABAgAGBQJO 6j7NAAoJEI5a6fvO7vQ7g8QIAI9j2FkhUN7J6Wk42i/z9vSXCcbXwOnntq8awUz+ se7Bw1eSLmJs3oxWlL2vhHJVEbvNejh1lReRKDHb6vXZ+YkN/f8TXsj/q+mbCHe9 NisN5a3BTawAgzVE/E3XvGneQVY1cgC8As8ZoYfRRTdtsEHdicYoCjHWMw1LXfo3 +hBMsQNvsU1tuPQXjU/qsalfP9qRJe9OVNLo3fkxFSAcalNibB5PS86tyAes+T0k /5LT30nbeX6ZfY98qDIoRGj7dBWpu73oi4aS713iy0AIyy/Kip5AERtGv+B0llTC Y21AY0K2JXJGAS7IfVw2BrvbBZevzXe0AursqiLGMZ9Nokm5AQ0ETujz1AEIAM++ iXuJkoVVvgEb7gxUbJurVDaedOjKVM2pHLuOorQBYI+gQYOZh+r7ZX3PpIGyoLWZ dlpwEhrEsd/2+TY3nMPzkcfW1D+wkP6MIuD+Y8y1efNeBC7IzNnS5gG3+IItgzEX Fuql/MMkwQ2xOybYvjzFB5I5cWEkGv1S2xp6uQvIhlD5bWT9R8/1A+9ZZYcP2Ozq IWQKeBljDEolz7rTd04UgfQK6ROMNYQghTwWZxmBjsdBa7jtWlfjssqngLiuxP5N XQVwN/vUEbryMfNNS4Stz7/ZrbCwtu9bHfx7sLn7fpcgJso14e42+PAXfnuoXtGm 32o4yUdJPMqwFIMnLS8AEQEAAYkBHwQYAQIACQUCTujz1AIbDAAKCRBinvjuDIuD MxdPB/91RSXgG8IQDsOroKYNiZbeEHC75vxP3Rl0XOxU3IsN0mzz4ZjS7khLC1Pa ATCIkx3GwNTjvJkiePpc4knc3ZlKx9fKJz0a+pt0ideMmzYwdcX3enG+Z6z0hEL3 GJzNC6v7WnV0DsSp7hcT8l9hnqY6HkV497jJG8ztGK3KH943/6YL90RlXqaoRTgq +bSXhbxHueImhjyYUrmJFTZ0ElSAcuVtJpCHnAEouTQAtshzyUnDXwgoQk9extth Sn/xUlHB9VGWBAXlq6qJcx2jqWGrmRfz8gMBAwfLTUyNNeixt3TReTtos/HaZK3X G09zJuZGoDdC9KhhogEVj4Ow+ydV =qF87 -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0xA0F8AA0C 2006-03-17 ---------- DSA Sign & Encrypt f20 Fingerprint20 = 770E 4AC8 8A97 B69E 6E75 0605 1043 2518 A0F8 AA0C sub 2048 0x6E613854 2006-03-17 ---------- Diffie-Hellman uid Sendmail, Inc. Security Officer [REVOKED] -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.4.11 (Darwin) mQGiBEQbQzgRBAC7QmIW2r0oJ9Ixk1ewPxfwN1CU15k2ORBzRVIcO1UcLm6I5t3Z Gorbj22J8xNyY67yQ3pi5O+pffl5LujEKTco3D3sHhHnpz8vIaBiLyVUG3dCHZwU FP1jh9l5UqZ+QzXGAi969PMKkVyuWCHvUWNYLG+2RTwj8Ju7+NIzmv9RMwCg5nGw ftSHOf/hnfujlcHCLWtV1IsD/3NpxdobEobm+Zlkjk2nH1NtqwMDdnbBbj5U8jku LuhwZsvHbzie42JoroT/WI713JU3z1LrcwBYPxQGgVXlsyQi1ilJmd/JCsp9SpFN kqbog8zz7lZKD7PwRIduicPlXVft063DbABwTIi7YGv8xFnLt9vIix2gSco766KY rjPOA/9dlGIXq2HP6BGqYtZE6A6RwL2ujAXfene8hYLaMg8t52XyHvJDeay3siKy EhXt2tn+CyheTzKHXE7WdYGVIZq8OUBoJy/6eaL/paVbzw0SlhCuXNEP6J8SQClA rXDAwbl2SODl9T9eVUUbm7bQxdD942qCv+jhvBzAJrrHmZ0KPYhJBCARAgAJBQJE G1GyAh0DAAoJEBBDJRig+KoM86gAmgNUdUqrkiyji3OrzgzJOvvvGgPJAJ9mbH/M PYHevtf0D4/YGAWDKIEkNrQ/U2VuZG1haWwsIEluYy4gU2VjdXJpdHkgT2ZmaWNl ciA8c2VjdXJpdHktb2ZmaWNlckBzZW5kbWFpbC5jb20+iGEEExECACEFAkQbQzgC GwMHCwkIBwMCAQQVAggDBBYCAwECHgECF4AACgkQEEMlGKD4qgwt0QCdHD2sFnc1 cKILKClUR2Ad3x+OyysAoMTKNOPxq/burquoqt0rN8QnPkctiEYEEBECAAYFAkQb S9wACgkQGPUDgCTCeAKDiwCfae3NkBOnjSBa6E6ftmrDbzQYC9YAoN2Z8jaq1kM2 pXmC0s/QTIIsPc3iiJwEEAECAAYFAkQbS+sACgkQfEtnbaAOFWNKEQQAgIKzIX/E vAj4BaG13i3EYdvcSG0mfYsV4NVIdrDPnV3UmgbGBskgjkUyWHlUTJZ/AExcYyuT QNuivkH8pQKsXNUpm020PXvJg7t0/ZKTTv0tXyz2OT3OLKhw1O+qUOOrkxgSpfg7 UgQLTbZ0Ol1faP8iSTM5649rAOpqbPi8tneInAQQAQIABgUCRBtL9QAKCRDAKcpA FvTM6cCsA/45MgCAYIr08/GKnFlBTZhAXQ6pZvV4OCdtgMIwcJXJtB2E+HSjOsn9 Ismyy9n19Z5j961oGwyfZ/uYoRp1Q5rMEs/sDmFyq0TAl3vRoblwuOKtOp2bvGah /TzdkMztMrftErM9MhddQDEIoS3PQ0QkSODRCi/m8eMtGLPX/m+Fu4icBBABAgAG BQJEG0wEAAoJENbgof5PvirdmR0EAJNHIszZZnGx7jqUB2+tRLCsLctrm8Hpeltc 2XkMeT0nx3K8XSDs/cigdQqTHq5oD2P/6Vp9e8X2UE/RfEhCDre9ADnSWzqASRtX ktDVnFZZHuYnXl1d74bqS5RlWpbQUJ5VjAFuZaB1nhFRcRWuhl8UIqN9OKygtUAg zlR/FfiziEYEEBECAAYFAkQbTBwACgkQIfnFvPdqm/XFxgCg8x357MlaxcLbnsbK ZFN26nLDBqQAnAxqbkNoRKqF+IRV9aMBz0vSt+baiJwEEAECAAYFAkQbTCgACgkQ HnuzyK+VliXMAAP+NGQ+3rPnGHUyT02C5K9ksuqWt+7q0ZWHR3NP66H1XQCqrEUX qmcWtZpd0xTY8XWcyEzYntXje3epQMnA6/52ohFNehiGQG4FENsusTzu7+GNdpSq YTPcdUrUp6zOc3o5C30q+Y1tvBtyYlfeQSvH3x47Ai8PrnVmHjJCltkGtgiIRgQT EQIABgUCRBtU7QAKCRAxGYBRzxpNLE6WAKCACCj678P/8pn+vG9JpgQWQgV7zgCf Q5409UHS5itySiyQ/atuUOAG0QiJASIEEAECAAwFAko7qxAFAwASdQAACgkQlxC4 m8pXrXxfsAf+LBylo0S6W+hExP3s9jso7TJTM4hJGrVjRKZpVF/zj5Qk0Nocxo4D YitmT08e+iBZerO7OcYvy16uiaTBQ2PCSYoLhen2AMjkKp7EPG+TF1VBrp7jj5aZ GYROu8NZTKr28rCL8a2Ge+KrohjEeIJ80IZo7gSZRprQnO5LzDtBMp2T4HV6Gj4d g2aa4tDhTj2EiU3ZOQ/A9AbOYBKAqipxXdBR20HdeJU8looTv5p7jZloawgblXqv bvvSBXYGT7uJjx7tOl6yxPrjuu82PyauHI6bUUbrJcvuk9zd3mrvyS9OL9pTeR2A VDK3PfX3g9z0OzR7owHZT627T36Jogult7kCDQREG0NOEAgAsvSdf2lG3k0OqLTC TVEhcAY8kJqE8nyHnYKAAlSb8UCyZd0IhUdq+kMqQeC9wXt2LG2b7wmji+FqRCiX tdlmBTkERNxKAGM1zAEmEXEC4H4qb9O2JcwrlT7fo0ZJRLkSpHz28GIKG2Hfcoy9 BmBD85+mZaTTmUyEjT/+jWxf7RAAZNs72rtEYx/vtXgIcnEtNTlliC5Jr4gtX0aD j4pIsYeqTTctE6fXcrRxMR5YdYpFygW0uuiSZioN34WphoBNr5JUJ5Lw9gNDjlHV lpcns3Xl9GDRczikqxjgoARQfljVl9p08V3QvIN/W+HKx6iAlCklzO+y1QBGM5DH vIPwnwADBQf/X1OCP8dgTIFcpf0DCdvedlZgZqnebbmID9tb/+5RYqNitzmghP+o nlAxxIGbI4C5yWt/9UZJhAhEA6WleZlByN2dS5UOWJLA/vtPh24yR82I2CrxECcz txVQQmmVu0YjkRqkcU7yrzzKraiXz+6tkjPlBzdVroct6W9bXOEUBynuUlF+4sBa rxBrp/c+ba7NJx1pAhitL6+ZdfBs6qXKC5ycjxsGHQthMCNCqwbxgeSW9eWuN8SN JqzeXlQ7jlrjwNaJJNcbKvlOx69KB9HrJptIdrydQo6BsYXhRTV/U2fbFpqwxEyJ kRHa4ijYazXM/AuV5HDBUCNpQ5bBG6nH/ohJBBgRAgAJBQJEG0NOAhsMAAoJEBBD JRig+KoM/lIAniL3Zn4X1s9WhfbtRlLzFyYU5rHBAKDemVaMCQriMYNWeRxW/Z4w Z9M/bQ== =nJIt -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use pub 1024 0xBF7BA421 1995-02-23 ---------- RSA Sign & Encrypt f16 Fingerprint16 = C0 28 E6 7B 13 5B 29 02 6F 7E 43 3A 48 4F 45 29 uid Eric P. Allman -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNAy9MzZsAAAEEAK3o3N9W8Ynb47vNtIqUvdjYYl/nEt/hddhumsDNqt/icanP 7x9VTS1bCfKmAEQ86DSkWRWZmhIpExbcqmuRtixn/RfDHzJ4hU/wAd6kAzUTVIfY wLC5NinszKoaqlBWlQkWKW/2GbryLmYIRhIDOKkIBxSgskpShSPkYtS/e6QhAAUR tCVFcmljIFAuIEFsbG1hbiA8ZXJpY0BDUy5CZXJrZWxleS5FRFU+iQDVAwUQMT5g jkkkqUax7f6FAQFXaQX/X1wyl9t5tJiN+X8vBpB9p+qfto/q+X0wrCa9EobVwNRP AUt10WfcDz24vduVKE9LgXPGwGYUsDDF9fYVSsr6PLY5st50YYY3zmSk6a4wBhwz kJ33HlGNlEYZjNhC5CoqGN41WJ6E0oi+bS1w1H4ov368BBu2WN9S1tWBKwijJeJa pWbnClxe5+4Io0z3mxgGHJFNlz9ctJ+WGazauFkAb/usIAw+MKrQ4sghtfzto4e3 idVAxdxbwzhH3XICqCA9iQCVAwUQL23Mt4N7eH6kQJ9lAQFtpwQAl4O7UsjFPiY/ TQa44Ay52BKClldBfvnVh6jNForAzgsFPr+dQVD/1SXahMFnOgnVK2zW0xwlQhv9 w9LHrQ7r5pMQSqQbJYze4MQ031BDHIgq3bZRIf4yeWGdaH0ro8SB42GejiYP+MfQ IHSeThLA1LytnxCN/nRRkWK8Nl1DqnqJAFUDBRAvUm31HlLTF1zSxhkBAc+fAfwL hnGFP5jYsa0eUGJ3SVZmq8P9HsH0STF82Fwp/vUxWMvILpfSujLt/8792dgcwfdr HbG1Qq15XGsza0f4HnTBiQCVAwUQL1JtpSPkYtS/e6QhAQHQ4QP/WD/CqFA6f2Jk npDAVOJsoUqRbAluRbOiNOwsJ/OEP4ZGfZshvqxsVJbQa8tmewjHMEAAWvQ9ueBY 1fwUenlSIAA0gSEdlNw0qxIEj9KhnU+chQq2z+RzoHuff2/9ApJwZQ7wSyw9x1vj q8DmkHBf+IAVJ2zCdNYGRGN+iBYF7L6JAHUDBRAv4F4MapsJyFgmz40BAUMCAwCU YvPrVm3u4EKVuWUq4g27LOid/3Xf1g7KQ+Fp8J6IjTBSs1Q1UW2RgDI7EqrCwiUs sHSLrD+3i7NJGsgsdKL+1HBfzujdDGMP48ujZBbYkjQ+k6rSez3NkmXI3rW6SJCJ AJUDBRAzcuWqH9vgQ8ZSyXEBAXxIA/0VUrS3TdBT5aPgApMImvP8yHH9CGfIjQ42 48ss99nIr7DVskyq42g5EbUDTQl032iHc9eoEvvOKQ1BUauKGAvg8ZYImhHd20ZL vPqGKt7mXJsbq1syG/Zbt4FYzwrVgwToZ1zjvjBnhOXYzjSmmjytZ9A4bLXdqr59 59iqlrZS7IhGBBARAgAGBQI1B0w6AAoJEOguzwTcZlABtoYAoOduT0nD8TmVetVV VfzQtBhpofPQAJ4gD4J5XDyTmG+nsm4ecpKwcdd9eohGBBARAgAGBQI3eQevAAoJ EPebODJBSYlfPZ4An1+PwxSKSQ4ZFxPKnaQzk0POEEvnAKC6IxaifUFCbNMq5ejq WPXPAR7aBYkAlQMFEDRaMzgmJUFp5Gpj/QEBhhsD/0APxfVCUniRRja4hgJYVqXQ L18Uc7BwDetpxDm21+HL3kCj0YpRnU6H0GN2usFdoQit2dejDzbUSKSYDZT2LcW5 XQ+daMNvan73tWKw9ycMy0Kd7DKLbOS8tvc45Wg5m7x/Zv3rH1e5R+9gHlzSzzXr kzhmsMuKTkqqZ+ROE3OuiEYEEBECAAYFAjs8tRIACgkQg2i7WWb7wYx+PACfRs3B YsCJhwfvAhsfE9u8v5WNsl0Aniyr/yzPHCHetrcfVG42jaN2azfoiQCVAwUQO1kP MAZ+Xti/tWVpAQEtWAQAhFmMzQfxl8zg0xqWwgVC64btvdMFTaQP37olYZbQsyy6 2Xf2gsuM1U+4dD0dhilGL9qax87X8hmRJki3y756weoZfghku13ueVNJqOD88Ya8 usXNDS5P/q4lAH9UvFh5IylpksFHf08vsrTLUneVOCvgAREh76PpIHzTjw9bsd2I RgQQEQIABgUCPEy0nwAKCRAtu3a/rdTJMy8MAKCmtqbtWoXMp/EZDH+UYZMK43pn mQCgnJBlggj1SMV99i+iBb30nMIGrcyIRgQQEQIABgUCO+w2lgAKCRC/tn5vQSeK RJFpAJ9YGGDUWZm97XcPos4p4wsE3uhbsQCggs/Z0938yd7jvU39rEKXTvEjZ/2J AJUDBRA7WDiezx61AyIyegEBAaiHBACBjdUAiU+Ni/5MHypmXKn9x1t2xmsaBNlA vkHvWcGvRImmr9oq7idOMH0OtVpsskCvdJq1x6TO2akdtxtTnEtRJv54sw5OrBVB 7HULGgQa6QySL6t10fG0BQAULCVbnt6ubrLogwD4ATcYykHpL0SJZyOULmxaDb6g IOgxn9gws4hGBBARAgAGBQJAC0r2AAoJEBhZ0B9ne6HsVfAAnROVE/UJSrNLplJl LBuazZvvjT3sAJ4vZcunwcus0xq79qGFPJgI4cmmiohGBBARAgAGBQJAC0sfAAoJ EIHC9+viE7aSm20An2/cqEmQ+KootRdNNP7l+oHvjVamAJ9T9yBM1QM3cFMOiY1z ajQV5XfxOIhGBBARAgAGBQJAC0tSAAoJEGtw7Nldw/Rzd/AAoKSyT5c028xiJ2Li W163tN5MiCy9AKDZp10knjSiiIS2/s/zuJDfEvgET4hGBBARAgAGBQJCNb+JAAoJ EA+Rlt5uUsKeiPIAn0fxZdmUdo0r/nH3ZeAeW3EXIhx5AJ9k19QpIYEP5AlyGn41 q7N7KJgyc4hGBBIRAgAGBQJCNC8KAAoJEFMx5x175C/jhrgAnimIvdY94XEoOfm0 12LfYTd66x1AAJ4ttaySHJJR6C7+WpLahXYyjZhYf4hGBBMRAgAGBQI990Q5AAoJ EPuPJWT12mvjuiQAoJ7MdyBGjrEM6yz/FFgpLpyKySWUAJ9ENQMKMr6FQXLPaeME 8/8XoYCJ1ohGBBMRAgAGBQJC9AUPAAoJEHu7RcYqQ9NMucYAoLfFYRlLsIvmEaRZ hRelDMX4wuq/AKDJzv7iF+xpS5ZlT5XHdAJM6KCh2IkAlQMFEDACrUC7EIKQsT90 BQEBXosD/Apakw5p9sWEP0+vVguPqpp+MwCfGJpWiQKXRbNJTO+a4GtLU+yPXXOC 7NvlgsgPpfuFbVRjLlrxHNBQKEe8SxQ3uM/On9ojyGj91cI1rXhycIqksIGPyGbG 84hrtT/PMbau8Eq7yYhaNFae9EfDTAUs+ypPGDhjbKhKBq7E4mtAiQCVAwUTQMyo wzfj9F/uZeMhAQGZkAP/Y6HCzk/2Y/5bzje0t7QxohaHxKipoUIrK2FgCUOYuWrx YSUfHK8DwzOMh3xzoDvlFcGCnxMl2sgrrgHR6fILobv8gPS763qu63doS3ZwY5hR 5NbwmQu8IF7S8A0E6QpBa9EciH84T90Jg3U0UFstbxDBdXTCRcsQ2GZ3B170l6uJ AhwEEAECAAYFAkF+tc0ACgkQquPmzmahRGhziRAAl0RfoEr9vcHFkGJpoXzn4cIi LOrbXcMa34H7WghD66NVNuhracw9CF/rvVvinkoKxfCBkZ/KUZW+fmotyoeDEORZ oJVLN1uvqBBSlaEQZzqOVl58ISZvXxZeHpS4CwtgYPz97uNYmukPU0MKxAHqcLDv e9Id1coukD+L7NQXHYVbxIIx86wV9kPKXvdESh0KyWZKgRi4K6ZKwhqQXaLKxvNU Pz3P2uGyZQf8YSKyES3+3F0lOs8JYWRdahb0/2h8ZecMH8ACcNU57L3f7iEfNF3P cfqr8jLn0ulfn7JuMBqDtXM2DDjLYuwuPxcTKwflvwLF4SyN1IgMcjyIHcJBHJZU PuUTvGi3opQzfkPSFvQRDnJnPoUwAnxbWO36a7s8Rqw6S6sRM4VjHgm8i7C86vGw 0HtSzckUL1bWFWgXTmzQt2PKTp88iJUBbMxwxDSjkzr5V/sPYbr+3bmbivTVdhlR TW9Sw1qsLe7uVIB9rdF1yJrwXtTKwcowQlHmSwfOSPBRdvghINeNWJ4ZBvKIrqZ0 RGlnbvg7lhViPLDWSl43XQtD+ZiZyDvJ5UOuNTwxXEMTsgLxNaQTMNZh0s4BypVn 2J4BYUGIFOLfJvDRY2Dc/sx0oouhqB5U170F6IPpcYM6d9c65WVs1HZ2MrJ9MPLB q+1XY+V030LgjiE8qqK0HkVyaWMgQWxsbWFuIDxlcmljQGFsbG1hbi5uYW1lPohG BBARAgAGBQJCNb+FAAoJEA+Rlt5uUsKeVQMAoNbRCOQWVERZzCC0I3A82Dar2B4r AJwJqIoskfpatcKkN5ar5Tj6xkK5vYhGBBMRAgAGBQJC9AUVAAoJEHu7RcYqQ9NM Gv4AoJz+Qkj21ztaZc/BtofhihoQLOUXAKCv2fefjGmx7xt07MSbelv/L3ZFKIkA lQMFEz3RK7Ej5GLUv3ukIQEBf+wD/A7BAKI8Jt7ZfG/js6IQibYU4E3C0z+0WB0G diJAZKEE8bYGZJTD9xRda9jOSW4q2NTyjTPJfSPYJ1MyM4K+20qSHgrCMRvuAWHs /CDKy7ev0VjImB5J5ucFMlc8jghgruJrcQYKNB1mBRDThAxnOLwfu+iU4DjN8nDi UHOSRllZiQCVAwUTQMyouzfj9F/uZeMhAQHrygQA2alGdUJiVJ1694wKsA7NXdah ea+VCpGgxxMM0mqXEXwHgMRKOjALCrC0o8r/et0qwOwUcduPwRDsVEyBPB8FmSG3 6Xnr11b/s5gy501Ms7p97Y66fajPi7591BuBsW8YNPvztHAaztaWgsNQ8VOo9MwT 62cmufuFbszpPJ+f7Y+0IkVyaWMgUC4gQWxsbWFuIDxlcmljQFNlbmRtYWlsLkNP TT6IRgQQEQIABgUCQjW/iQAKCRAPkZbeblLCnnrNAKDUOt94rDAqQX2TcvTFHDur 0vNpnQCfcww7SwwdlBzkSAsYCnpXoLd6Z5qIRgQTEQIABgUCQvQFFQAKCRB7u0XG KkPTTJYLAKCWB4W0dNGjUtGW+IgOCt1ipANe1QCgoeyb504WmcyY97mSfIqiECMV LqmJAJUDBRA2cfcr5MnqS0+2zR0BAXAuA/9mBEs7R02FaUptY0G6DLiaAQikTJ48 AOTKYXzIKV4FSkm7rW6htrC+M5K1bun3MekBSUSVymOcRiAnA7hpncbfHBf2INQL EU0Xxijf4F6cJMzRYONxPXDTaAROVaYhqzmgzhmLXSv7OBV+G5bzZKjoQAuPKUEe R+LIS2LhPMYBKokAlQMFEDtV2CvW4KH+T74q3QEBuIYD/jhUow70mr+OxDnmFUfu l77iS8yfWDB9U7aAg0472gsnpwhr9H2PTzDID2veU1tszOmFEILC7KxvaFX++BSl p+nqqYoWYqGZmdPHB28zdgiOq4MuLLDDO29r4sDWTo/8xEMl8uM+XBS2yA2O11If mjrS6GwlObaFMe0XzRNBcwm+iQCVAwUQO1XYW3xLZ22gDhVjAQH0LQP/fdC+951h P6KFtWkJDuWCbercTtg/0vZ5BkWVZxVL8vcF/ca+NNNQZzriG7dT5pC6Zy0ZnFuI Cxwps5Xebuio3mr4i+nNDknShCZfsXxWV9dhkdzTQyyVMcYaPhgtCFWqCn2ftHMU knwLQ+yyqDRDqsg5NteNHUZnPDbcq8wbSmiJAJUDBRA7V0Bf4dT8FObQdHEBAQ1O BADDPj52cMF708Ee12P3GHY+t6k3CK+buq2ga9JC1IfjDoB1MT0XSnazhiTjEykt kUY833wjSvGHIajsT/bh48YR3LVQO1UDiqnHwTCCtWLXZuHw425TcZeea24Wofzc GYDfTxCeasemU4PzelqUZMEzF1U0uWzMkGnNM7+2COV44okAlQMFEz0ctVoj5GLU v3ukIQEBgd0D+waikMQDMYFeZrTQyfijz8ZsWEIAreruUpuNvdM1oHp39W5yBsr+ eDOFmOG0/Lsm3BOcIzKekgcTK2jFOzTg87OlOeSyzLJFKiK4lJ5Y2WUavbCPSo+M FTAYRUxOtjwvaNy0i61wLuB6fZ6aAQn/kVbTZz0/P+hoBUZa5MJg/6kIiQCVAwUT QMyoxDfj9F/uZeMhAQFWPQP/dTHQrC6hSXbG4nbbztZxh4sG/HS1EgF8LNSQJfQC BqqwKl2a7k9l95i2bi9NVBFjvQRqkrhayVMhG9NxVOQZrUDDKJvvA1khXRIgN8z4 JPu4lUOJ8HiQ9aLbC8x/rdtCh3UkmyO30Cs/ykkwaE0u/gO7H6f4PB6WMnr0xerd H4O0IkVyaWMgUC4gQWxsbWFuIDxlcmljQFNlbmRtYWlsLk9SRz6IPwMFEDSqIBpe 2lrbOY1YUBECQxsAn2xIpvoCPV/AXxDIMfmsCvOhY5diAKCPQ5yABVOMwdXUFoAo O+r518BIoYg/AwUQNQwAQv9OLU/BcyvDEQITMwCgnylcm2XpD+xyDRXmgaZQZ7ze JYEAoMpTevluysbysvib2bAhu4w1JMi3iEYEEBECAAYFAj/V6rYACgkQuCGJAp2y tbyW7gCg6VaLmEYc7k7V0N9lRNPD/Tn8pXUAnREmdNNhgvyPwGdPc3FjvrR768E0 iEYEEBECAAYFAj/V+lYACgkQUhjaYK3rgYu+xACghoPcXYc5WO7ujNONIWZy3BdE 7s8AoJoFQGJiktKiWvGTo9Y7qqyi0piviEYEEBECAAYFAj/V+z8ACgkQpNZcM1A3 Zmem0gCfVzLYHqM7Cv82e/MEeYRS4rGP6z0AniSqIcRQrUK5y2xUTtr//Hu9MXTF iEYEEBECAAYFAkI1v4kACgkQD5GW3m5Swp7fnwCgnlbPPJXa1xoMCyApkIbQ/3Hh AocAoKGUZ/+J0e/8WHxn3OPlCeOO0fHNiEYEExECAAYFAkL0BRUACgkQe7tFxipD 00wGdACfbAOf5Svoefyegn9jVk2s4KZY/pgAnicIj0Q+41plRlbxAPJXK72QbJkz iQCVAwUQM4me9iPkYtS/e6QhAQFNvwQAlf1JIVvpn+ayzJhCpdex7b7s3Ercgwic 3e+22plo9mmkkolxJfyr6qGKR7BJleSksYui2rmnbG6hP+nZR4lUY1BZEmVDkVmV UFl1QWq//V4lysKIK2uHjasi6f9ZQ1tzcB10rWebDm2JUeowEv+8vjL7LpfWGTpA fQyNGHux/c6JAJUDBRA2cdqc5MnqS0+2zR0BAQIlBACHEDxjVe81AkvGLfRtwQsr 3+/bQqIbTnzjINSr/9RUAYepV7mNOD8hQGEcihgaEoAudz0LXuN7YXcWXMS7fjU4 iW0fwaDekZzHY+Eq8BLl1cohWPT4oiNxTK5NTedAKJQ/Y5OH927l4r+oax6A0wGK 8hvhK9B3hxPsT20dqcfLUIkAlQMFEDtV15V8S2dtoA4VYwEBbToD/1+2lkg6uv9G c+RTSwZMIles+grZ1qFAlU8yRwB1rnCabTpGDa9vP279lZtlLM9Ee3BUdMp2aoAn uwSMpbDIRM1YDnff4gXJ2Ch6pR/a4kF3qgMrU+b1urWinvD3XirNY2AwEAt+eGqk bHbTmScYpe1ONJFYERCen0963+b44l+ziQCVAwUQO1XXntbgof5PvirdAQHoawP+ ONzw7wlnB5Tm88OHe+Rii0RrIbes5tojKsYHmYNolRzLo6P6Ka+F0Ruidnj7whMS RUDRjocXl7zIBIz99tpZXzT92Nte1IWMRI+NjtIpth+HdBwdMP1KDE6hMnVDZyd3 3diGUfy4SwZGpHHZmB3S2IehAnd2n4+mCls6QRuaEd+JAJUDBRA7Vz7i4dT8FObQ dHEBAUpmA/4ns1sCtShblVNm/WVO0zGaguN815GZ1VYKOV7aT7ymA04T/IfD0eph Ng4w5WEGB+XJY2iN5KfDUgZMjvm5zjO4vUEKGKpoJGu940B8bt75QajbQU+pYFuq dpcLhySBVVVh7kapviyXM9jNuN9kk8BPknef4Y1jJ2h+8r/wg4w7v4kAlQMFEz0c tZ4j5GLUv3ukIQEBcNMD+wThB2AOYB7cnl7xWdfxXBDn6zZ9FfezUQy5KtdL4suy lLVQ+4RCQBvuvjrgCy3htWJ3KkTCoHui2WjmIaKsI+QweTcOXkZyvu1JFEmSO22C TQQBfFAULfpWmk7NYr0FjWaFHmzOQNbFHtL/BL7WbgKedOUTlhJ7PBIY3EDc0Sci iQCVAwUTQMyoxDfj9F/uZeMhAQFYWQP/UKjl+nBZsFxIaB8eRahB5QhKMD7VJ2uI zrT9uEAQgPq3hohQDo67UDan4PBfWy5Vum3Vb+lX5smaxVqZchI5z9Ii4yWA9Is6 mHSwO4dNrEaOiWzcu76wbVk8qQYfXVjmo/n56MeYJ/5vaAgosJzQt9KvWykvxXFO eom15MJLTQq0I0VyaWMgUC4gQWxsbWFuIDxlcmljQE5lb3BoaWxpYy5DT00+iEYE EBECAAYFAkI1v4kACgkQD5GW3m5Swp4LXACg2Wb3e3plOES69yE+yXy5Cj/TvIMA n003ajQmlAb6Vt37c+O2K29QhAJriEYEExECAAYFAkL0BRUACgkQe7tFxipD00wB 2gCgndzGMm6P9f4p5Q1kbdsyhzUpOe0AoKHCy8LGBD/9mJEm6cZQPV/RcdDOiQCV AwUTPaHoIyPkYtS/e6QhAQHm/wQAjnLnTDgI9fxz/cNkPGmI5+et58zt7FdsMMSZ 1C8pxNYqZX/xEAL1anZWpyDbrLKzkx+11xCbvBn1Ot3IAd6jy1PabazbMtU1yHMa /zwGYc8E06beYhHMnnhu5y8L7Fqxegc2tQECdNfQTl6QhvtRX1Z8Gl/Xm2nymJ5n 0dQK8+CJAJUDBRNAzKjEN+P0X+5l4yEBAWYHA/9sPSKzuRpC9MUw6MFc6Kr9aT4t VfTo00L6fHOpQX1llpMclYH48g39PN9OtHtvb48IS/l8h8Qb48w54FnqH/ZgOyJ/ +dcwoCOvTu7mYzMlwJuoV89cg+4wmFFtBipA08ga4kJ8Gfum1U5S5wvQFnV0QPEo 0Qg0kzeGssNK0n6OoA== =pWwn -----END PGP PUBLIC KEY BLOCK----- Type Bits KeyID Created Expires Algorithm Use sec+ 1024 0xA00E1563 1998-03-07 ---------- RSA Sign & Encrypt f16 Fingerprint16 = 66 39 58 9A 83 5F 52 26 88 E4 59 36 5A 94 D9 48 uid Gregory Neil Shapiro uid Gregory Neil Shapiro -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.4 (Darwin) mQCNAzUB04kAAAEEANHOOWZH9BdsPi8071kHB49qWAWL7OjoUk2NpItw5D9o/sRa jZbBwtvPSjx+/cC1Nka+apIuXGccjBzpu71DJFLxIYEk+MW33bSgymI19utPS1b7 yHetCa6T3ggBsdSH3+gLbyK0bt+suRxxiAC6719HqHvUxuGWnHxLZ22gDhVjAAUR tCxHcmVnb3J5IE5laWwgU2hhcGlybyA8Z3NoYXBpcm9Ac2VuZG1haWwub3JnPokA lQMFEDUB04l8S2dtoA4VYwEBL7gEAIcDsmzwlzI5+KYILkeUmoOWeoOunDZ7ZRv9 KvATWccEJdcdjGk4VPKtAGYWgPJBweLAaeZBHo5+cB/w4Ho+sPavHJoaXqk20u5T AtIv/DUKcPcE6MVvOYuWUsnHGuWDeSke/KKA1uRw7KEn8vDlBYktUres8ifHLGy0 JM+aEs26iQCVAwUQNQnbcr3aj9Y/6n39AQGzkgQAhcwsoDO9Rl2oQSUYZpvcxUHF rroqSQFejRRfTCT2a3ejQDckeFTqT2VcLGv+QH+7sQFnRAlJrTWU6U/BoLsf3qnu dSijd2DiiCTQ5F88SBQjlRyxvXpQXOWGlmemmkV6kry/px4MaFAyF/35HCo0Rzd9 S0brLFgrCiTzAS7/wRCJAJUDBRA1Cd2jI+Ri1L97pCEBAYw4BACh5m75gsGcClEX LUcxIOaANG2YNSr9r1lmHxcDq0V3Gpv02IauADL1+DX6o3sD+dX+WJxyAM7F8QBC up2ZtADL1uxiGz+AarDT4qzXyUeQnB47tkhPTnlcO60srtgkRKNex+lAuzzbWSAT vZpS4C90ZJASwMGr+M73V/66cwKA/4kAlQMFEDUVydtfHshviAyeVQEBwUMD/AoR E9p0DSgbPpSdojFok7BEe8fHLwJR31fBWetLOk5nsHuAHWBCasO9bmjgG8vls8YS iTkoJAMxXN03i1bRNL5X3F5Ex1HzrkjEsn51Fcx4Jyp3blXlf4yOBN2t+2DM8DfR vy1yVrvKtZ1TEhjM0zoG1DqjN8zf/hG23t+1rGZ3iQEVAwUQNRXjouNaWM2W6V8r AQEHowf/ZTBh0jzRC+oJHb/uewa/vnufEFeWoGZt5U9KZoKooUcZZ82RyZhzJzC2 /5zQQQI9vY+Gh/bL+o7Eaj8+FlbXN9N31E/BhxTtR/v2FTr0HHn/kXKriG/Wjwpr Rj2hF9fu5HTVD0Bp3A/uQ4bUO9xT7edKGtQWgXEN77/xbD+LGrZ8CTFSohA+WIyr tgwL214ASBDv8j++V4lpTkzyJSjuFTL019hsjkeE4FvCXbELfvsVX0SOZK9Q45I+ sgvsAZ0BBpasfaY47WShYGhTvvp2r/Z8xgy2erw4vhKz3jJCVmkK1cmAM0IvhwFn LSYfxI/T/1zEUj+56XTMc4C3dltXfYkAlQMFEDUV9Q08YShHTKshIQEBY7cD/2Rw Bu6ZJAoJaGKzbBOwEQG2JV3/o5W0Z/Tfy9x3kUDecgqEKN2M0b9zCkzCprotGNhJ 3KXvva3XL2H9AlJd5aorcmvNSph38rPlP35Tt3xWXMBrB1CNR79WMZU+Wx1TlJMf i8EFURUkjD9WXRsn5P9ncPPKBGcCJ3MfA4LQvvvqiQCVAwUQNRZkreTJ6ktPts0d AQGsMwP/beohoVn7bcp9kkYW0d3mAlbZyrDzbi6Q+C0lS9s67g4k/QzWLY8vZAYc ywC2KDQjoc1mnw1bJ+S6u5WmMTnfrmXs8vUMpmM3no+ZIlk8FB6tdkKcIu3yuAd9 CFz62uxnekRRCoIFnWadeZSyxOmdxtO99MUaM9D8Ob1fOH6vPWOJAJUDBRA1GUPT vFYqkcU0pUkBAXQVA/42rM5+DyOA2VoCCkYa0VgIuA5ECROFnwigcY8mxQx9D/Xv 30Z0ePR4Bigur/eXqCC0Tt0cy213SUpED38xsXtmchK2lpCH5RlIwbr2SZKNWGSZ jGlSCRbLT2xo+WYxvXcUL0q4NYgG5gXG4lXUf8yyuo/MztQlBkPsoO2SLLX3MIkA dQMFEDVqLI6s4VzBBNt7HQEB/asC/igF9ebzNWnIlug1gienj8d31znRL1YKcn0h e5b5N2XPIXQ3cOBQxlufuHVZKL0Cir5MSozxnEsavqKSGhGQuEnvv6lbYh0/OJgo eB40EDPnPGjv6kcexzOB4rUOYr46w4kAlQMFEDVq3TUpbj1jWlwAqQEBqKQEAL9n C6RFsBFabbAw0ScsmW9ir/0Zz28pBmxMkUY8RL9Kk6jEkwCa3phztMao3qGajqXd iw5hzfAOdY+eWPXq/sqE2f81uU2TaFCsVq++rAcDqxhZ1p47xfGcBtVBTpgAl+9s 8h33IsggglCumuhBkyCwOBFZ2JiN+BUAv6LbUvBWiQCVAwUQNYgrcJqnRzvJFyx1 AQGiCgP+LLh7c6FxqVQbgm3qpwgReYryaQQx8sdksX1gZ6jIEC5gYTDh+vHmUJdi 16I7Pz02e9R2yOsKU6e+zhCTauHtSM0CGYn9OdLx96WpJv6nul/KI8eztyV6Dl4k T8rFbuo0qs8Ib9exDmkdRh78Ihbask69R1w/OwLIlKesOiLo04eJAJUDBRA1x/fK P2UweumbYhUBAZCzA/0UQ5AB890HbWnvVHP9PdDT8KpIQYg7wm5aStpinY2/jfwA zl+kvaAwL6nTsTJiWNLfZj4rLn0JsG8176/lyl4Lk6QLkbGyBD+/u8tD6yL0NzYW lLIBwhxL8W8Fw889OKci72b6rrTcQNNEw2eZiSeTGJBQdZ4quDQZOthwtMEEe4kA lQMFEDXQKC8offu9cgNgzQEBXYAEAJSZ+CEGKswFmmQqO2t0WaO9SKZxxXtnGe/Z +M8emTESQecZ5oC4Sc+M9c6YE8jSH5CgDD4R5EHKeWXsVfFMV8wetcjgB9AicCnl ki2hVT38Rf+b1go4lbKpPjKf+V32Xs/s/kblZ3SX11aOF7pkQCV2W1ebkZ+Tnim2 Ec+pwLKyiQCVAwUQNQnY3AMljPu+uSCxAQFgDwP9HfUvdT2mQq5AXhZ6/ARNemWI wHb3OjP/Q9A9uxMnpIXIr42QW/jhQYqau2nkhdqbOBCjvOmRvOt7BGYfjzUJkaCN zv5m84Ptxn/HiFYkQUHZO+Y52nZ/eTdtpjWNLkmDtTusfK2v6G5gArMpKv/VhN+6 5DNWVPOwLucihYGINjeJAJUDBRA2qPJqz3PI8mJUAQkBATVeA/49kg6YZ5NR93/u gqXtjbhpdWi/YEpWDHYqdMQIAWaJSum4P9tWA5XoTToqP2bQTIXs8k8Vw4W1h+tz ZUI0P+lGVOAyS/MQXVgo6hvKJSq79cHtR8ue++tBD+ng/OUzuHZ2UFAO79EOX4EN V/o6dcwQO1qzdZkKiGy8M2hsgPKf1IkAlQMFEDbDNrLPOEYPxdAmiQEBC8ED/210 XIlOS7wKECMEAtGjSaHzA3T8sOFad0FsolSYr50SUNgq9ZTk+PIMwJ8lhl+EuHvb chhyREg1IaSU0Bg1JQIyUZ1LQwY9tb0bnvS6r4bko1j0FU9pKhQ6iRtOrVNlVZpw fc+ErvV9R+yHx+aoAhjosAC9fxBSC5R3Kdw+Pdp2iQCVAwUQNvAB7sUtR20Nv5Bt AQF67wP/RH9H4fHv9p//009HwP76/3LnxsUDq9kcbYrW0LWkkHC9iRHi5+Lks3z+ q5spNmiw235CpGxzeiMX476lelOO8Yam1EmCdRxxkopBhMQVcrEuMGER0p6O1qWj OnNs89bKgpP79g/LGx3Cz1ZWtZvv5PqQc9cv6z+k1xItRhpaxiaJAJUDBRA2hTtV pFCQLAnT5k0BAZtSA/944wg38sIcRu/Odo94mCoIBbjcTQUeA6v2KXCD9tQ8JySR eAGlvPEwRNBVx3fICnJQQ6ClmBikJbANstFc4hrK971KOj7zRCS4IB/N4pEfCbeZ 05d3Mz1iBvEZKtbRtwbrqx6Vxi3JWwsTyPAfz9QR1IofW2SWUq3pnHBROdGKBIkA lQMFEDaFO2ny5WVM5g4qbQEBAMwEAIPX4OJqCG+LnbReaFem4hP4IN7MT47B3xXX 3l/1CMMiVWbbk2/rIdkPuPuayE+w8ypEY/gqMKnlwRFFp01BW4Cod370h5pJkaZt 44PnVM/NrnsB/Xhgb+IS1vIV4vOhLCZXBlpGAKysOt5hKX3myStNiu0sXXrtvnTv OvvKf/ABiQCVAwUQNoU7hbCxcYNNuhCRAQH5LQP/ck50e2ZhJOVhg7poSmSaCer0 yDcRH8u4Z91ymKvXtXrIXYUjXfetUlDjQ/5AZvuZjejnC6Bjzpcw3Ft3OUdWuR8/ 84qj5IK3cwXAMsUiKTtSJeW9VHSaYinqCQLb0nOV75wkabR+iiIAcNX7uTQZYOog HFakhmc/TvxviRh2woqIRgQQEQIABgUCNvCUzQAKCRCKO6sOwF13o2vHAJ96Gl3l rG45GZNXYYePHNhIbsCV+ACgrKj35e7VzunNxsWHc4RjTDjmOvGIRgQQEQIABgUC NvCXlwAKCRCdqctLsW3isbGvAKDq0Slo3oY74pqi4VUA8TlwaHxLjACgsW1KipwR yzhJ8N2FbhISt0g5RMmJAJUDBRA286RwFQW7a+L1ZmkBAVVkA/0bpmeT/tOkLdjV IhWUBfDwDJgUR9m7vKhf8tL2r/SpV/tflpbw+5DjX+pa099XADkPCPDVLFyDowLt FWUc6dcncBpG9nhqcjOsvyCuKAT7PvijPqZ2LRwiQnzjAlRRSFgPGlnPnzM9/iMe zdW08JB9kv9luzbdZgJu9x5hytcd+okAlAMFEDb0TXR3HZKuiXLHwQEBBY0D92xI 14X3jkT+xs2QH3DU3OczIKbdRvEdoBAgek88xUU25mMXObnYbkc687lS2Fh6gbLV vBU5hzU+/R5fdxDfnxm0hENyBJRN+3ZxRCXBOLDEmTTQIAfQArDhmWYHYL64PD2I qUp0SHou7fdHsSAp4+YnSWO3o7QaP68c/ZdHraSJAJUDBRA3EnhMDHYkik6V2bUB AVowA/9sm58IKKgzxiB9Xq+qC5k7Hh6B7ApkBmw4HO6GdHxu28Iosij2cUsz77cB RQSH1Un6XWGtOVwUfjZXAmpi18x26msPTyvLAYacjdFl/OL8+CcDwRLWirydPjU+ TAop8+0N4qjC3XvpajFU/s/6KmxhLL6u2ipIzCAVGpWevg9SmIkAlQMFEDcSPci5 3A5J2ODMAQEBixwD/0KVQYiXD0tyHEUqrlHwErIAB+ZYT/2kfx2PkmAc/xbNO9al yBz297H29JvrqXyYLBKkd8w3hY5e2TK7kagMkTicXtDvnCqnB/EnyTyHbDkCpV9n by8ThZEDxYopfnoENYjASUZvzBwb+QjY0bEaSg8fP2qiRdtrYzVQjvGlQdFziD8D BRA3HiUvIOQkY7cMoxURAvLEAJ9MoLW+73pmmP2+RL6psGX043LUVgCgho6nr2q6 12UdJiAArMIMsnmwC+SJAJUDBRA3VZ82zx61AyIyegEBAb0NA/9SGnzvfNMbF+Ri w5URct6Jwg6YCUAYtuoE4S8eRxX93bsjzBot05t8w+FY1uGDSnCSQQ0GRTK2mtbO 8nQOSwbSHtEBbNy9mfjUnX8tMDHoY6v2laFO1Hq1G6u74cjruQoW5a8fS4Y5BaZx AFMYeSnWjmMfkByqSS7vQcHrw+nSd4hGBBARAgAGBQI3fwEDAAoJEGsBYgkJ6xG+ aQMAn30+AZsc8AMk/L5s5StkQo5+3YTNAKDUSkcMC7DJbipIfQLnk9teS/3x14hG BBARAgAGBQI4Em4XAAoJEDrQbg2RZy5OcP0An0H6L08cCmEMpCQdV7fY8twtnuQ3 AJ0To49TCQpQ6vWS9NBtDuPkgYLjCohGBBARAgAGBQI4OeNpAAoJED/0TyQ4fTjt gqAAn1ZhYkiXzr1UlgqNoyR8ElgQm446AJwJebmpAnpkBZAgLeT50Q3VonSvCIhG BBARAgAGBQI4KmSTAAoJENSlTUjFvnNYwGYAn0ZIiQevTcP63dNvYy12UqfF7pGm AKCYiUztvhVFl/QP7LSnlwUFuJ69MIhGBBARAgAGBQI5ZAX7AAoJEMN1Z4b84RmY TY4AoNE83txQ7urSKnMHBljVvLYhslUYAJ9UeeWyBn5MEQRipAmBOFCyWJGBcokA lQMFEDnug7Iff6kIA1j8vQEBzH0EAK8wm6LI6oegVCuBdWoOTFJEjtP29BYoebvK MirjgatuUaIaxOH+BNJD3aZ6DjVLdyac2gF8gu4hsl23iAABSBO7H4DXa6cEYJ+U R3dXXC6LCQHsw26VTvqG3ugSmljtYU2ZqVK1MlhygjNyusrqOtPRcvF80k5MXVk2 ctBwF2BFiQCVAwUQOfXCbKjOOi0j7CY9AQH/awP+KzR1nOnyBATlshEP3bs40Bzu BDOXiUx/S46q62pphA/D4xEdzcPD84bCEZlIgpvBTaQGKL9AXGoMvyZbK9vjiNHn 5sfBEWgBe+2m52iN7KKZlkMx4l3eG4UonAQUZbHQbIfsOZtnqxi3ZJfbj/kU5qtz OywHF2zal22nAb1UxbqIRgQQEQIABgUCOrotxgAKCRADEujDXYzae6EdAJ9S/zWn s7wFnaCMtcN1eXc79YHgyQCdFffNTVMfenyZ4u7hUo4RFK+S7u6IRgQQEQIABgUC OrpFywAKCRAsbbJ87KtMILU6AKCDQgEueYAMj+hwxuMyaYAhYbvjbwCfWLJoX5fp I+GBrbk7NtjhjI4J6fuIRgQQEQIABgUCOrmLFAAKCRDSD9QFytUJxl3GAJ97z/kq ZtiT4LkUVMqzPtigENu5vACgkZrpeEUYK7+ASmowQ+kn3FNjNGGIRgQQEQIABgUC OrozSgAKCRDa1acZvMEx3uqHAJ0X+14UBto1WQqeu+TZdwoLaMgugwCfc9Y1RCwl DpY7PNcwud6/a8cdAXmJAJUDBRA6uluR9u84uPhDcHEBAV0JA/9+SQjQNuMxrTox MK18hU+xFvaSFbvQ+ToI6SH6IZqn/i5EcH5w8xndZDyVNUwkBER3aRj0k83YFNNL IirdrQeZUidvYIbBFISpL9v9O44FYvB6Nfs3gL6V7pPzZbqvA/6sdUnkWSwpfMkZ aK3/BHP9Zy9jgMXjY4RmKGID0XmEIYkAlQMFEDtV13XW4KH+T74q3QEB7+sD/i8p hy36SXsqqHMO5UKI3d4KR1zMCxLonKeMh3Q6fBFzWbpS7U6kWQo2xfMs+f/R0009 UGhGtNL3tCWkINmYu3b+xS4fTfXe0bU+QbwzEkYndigKG0xQVg4A3wIqf+EirMj4 lC3ufD/+aFN6bwk6Fzrao7CcepJtjD8mgXiAH+mviEYEEBECAAYFAjq6nqoACgkQ S9ihXhFq3adNJgCdFrQQOHysyoWZobUH4yoFdDVEcYUAn3M85fzDPftJ5DMpzvvl kIr2vzydiEYEEBECAAYFAjq6nhgACgkQaoNFyDTeLy89tACdF3g5owMLD4vz0jjV SBitY0EWPysAnRDW1c0KOvZD17bAVZBxQ2eWwVA8iEYEEBECAAYFAjtUufcACgkQ orv7JAz5VveHYQCgrUeccfmKd4HZL3U7eY/q+gk4htoAn2PZyw+6pgM+4BhsY4we 92GVNpuFiQCVAwUQOSdrzuHU/BTm0HRxAQEfGQP+MDXjIvXdVL3t8t6Woj9BctVk 7Fwn8HICugaYdmrYkqi8v1Za0QcLpJ7vYW6HFfabHmD5JZOP8g6Kg2Nw7/+xUrmk /pm3Ha2XZec5PkChK/zp4Riz8uyohCesHSlBfohR6YuSgbWjrwW3JRt0UoU0rt9O JpQVMvlp2i8PbLzsfKuJAJUDBRA4VWZtLVkO0dLSrI0BAYi2A/90fMGElNgYFb7Y GqSbbWjurq2p3kAfrd9b6wVdGbPckmu66jQu431sYnCgI3DiDV1E34pPv3x0eG3S Srlzk+1qb3dEKcGUpy903/IegJLqHDuhuxJOUfUrlIWlUOdF6QM11Rlwlf59s/Rq huilK/ZG6umDbjT5gAqsf00L4UZN2okAlQMFEDtqIsaYB+Zb2EtZIQEBSmgD/Rmv PSbk/rYDA0M+DwDh6iiWdEJJlFO0tN3m5jstrKRuBztUJqgYrh29LvUqxanHaQQi eq+Cj7x6MUyn/hIIUpSf6rBjaEz7GjVuL/k27ooWGladsERkFafq3kE1ulJ43PIe SquSVXvt/QkcxtKFaV2M1TkelJ7/Vx6IyXoEe4TuiEYEEBECAAYFAjwRHwMACgkQ IgvIgzMMSnWKxQCcC+9T8Gs+o3LSRQL9ZDvAAWkyYoIAoOAGUxXVqBHm/iMGltSO R0ByYY/xiEYEEBECAAYFAjq6EWgACgkQD4SEoFpiW2avOwCghBbvmzjWBSFrEjz8 6xotkCncjOgAoOAs/WG1hqmPxdFP5gQFThyyref/iQCVAwUQO7iKqZRUn1EgN49x AQFXxQP/YSzGp2Xz2LLsdpUAehoLZqXZbZqTykncQFAS/w6GVpYayyk4SQXOTOcp gVgAGPP2knWQrZad6YmIIWOyUjM4eSIR/XUM/dz07/4lmShJuJFMAuESzc2k/u3d /Ks1XlWMpk+Sb7UWXMZeS3mrp8OJt4iBB5oEEmnQy7VDqKl81XSIRgQQEQIABgUC OrmRCQAKCRCdtd0xUlm+yXFIAJwOHfmOFrv2oZCmlJVh5XOA6gMsrgCgk8Dq0FbS uG77YvYvbvysciIlf7eIRgQQEQIABgUCOyPiKQAKCRAeFaGjj2WOgq0tAJ9JjWvv eD5hZ9wMchni95qJDaGpHgCgge2zN+afIPmfTB8W016+oS9A5amIRgQQEQIABgUC O+w3bQAKCRC/tn5vQSeKRMh+AJwMdyui1UmkiI+Oz5z66rwM94sayQCg5ksP/oLC 2Um+3naAtu/s+QUAGteIRgQTEQIABgUCPQen8wAKCRAgFTHVhF3+3ZiyAJ9gB8AK WFHNa8Y9R8UjthkTpDOodQCdHGYT+IlIH5Md6BjhwDOylf9dg4aIRgQTEQIABgUC PQesugAKCRBdjovp8jga1NyWAJ9F88COz7flGr4V6jojooPuFfmhdACeMeymmpEC cknjZcGMSXHq2lWjX9mJAJUDBRM9B7hxtoTxfMEKh00BAeiiA/wKoJFN111VwGLC xdHLUKWjF8u0XdXJiW1a+gnMhjYOBXGUkOVpEHXTCSHsZnnnzGAIXTHiGHckwNf1 RMIEWmJBGXLcGgLBZnn2/GmnYycggZGcZ/77XCN4X0lLIOnIDMeYwmbgOWR2NFls QokwCUHq8h+IHwDxYk9MIKEs5Z0gcIhGBBMRAgAGBQI9B9wqAAoJEBj1A4AkwngC VdEAoNPqjHVqS0IvHRsLKnrYkeqeFaccAJoDf5sV4WL2KBFdCi7wof6KbL9dG4hG BBMRAgAGBQI9B9zsAAoJECH5xbz3apv11UEAoP4etDXLjDr00ytaoSQlDVd59wTK AJ9Fjrey9e+fHTjVcSw3OllNI788E4hGBBMRAgAGBQI9B92jAAoJEEbtrfQ1fWX7 t/8AmwSidgzuP35OIvWg6EX90I2K40WqAJ9Lk6a6p4GrpgTkBOjneKKMxjelmYhG BBARAgAGBQI9B6tbAAoJELVSsEN3OQXWCqwAniS19wmrk8si6aMR2GFD4KFiv2hl AJ0XfhFxNpHqgsSoENB3VrdaKXpRh4hGBBMRAgAGBQI9CCkXAAoJENjKMXFboFLD 6xEAnj8wOc6J8TLVTfxex5GTJe4vqnaMAKCOKYR+jOR0mt8GFyAhVaPfYnFs3YhG BBARAgAGBQI9t8krAAoJEJ+qc26EFy0RzXYAn3HfFo7qvhADKs5Jv7RlDzAcFuYW AJ0WDxU+6IwkQhLOSvlP1RteUGp+tYhGBBMRAgAGBQI+TC8pAAoJEI1Og5a9UkqW rZwAnRwKmzooWXTCRrP9GCOYw4IXDzviAJ96l4J9JLtSe+7amY46niXPsPCOmIhG BBMRAgAGBQI/HteVAAoJEA0VSkszaizlfVsAn1pwxjrNGg6bMEg74sHeN1sHvgKi AJ4mWclV61hr0tbkAKSDybVC2Ydyy4hGBBARAgAGBQI+9wRgAAoJELghiQKdsrW8 5+gAniOL/7fN28qsAm0gjUsQrfA8Wj/vAJsHS6LCNH5kcOxJl6XbQf60Hy6pMIhG BBARAgAGBQI+9wSQAAoJEFIY2mCt64GLrdEAoMJF819q7/BeqggWZY5Ljs0Svp+4 AKCfwM2fDU+MEemFuPsOw9gl2e7/ZYhGBBARAgAGBQI/1ftRAAoJEKTWXDNQN2Zn 5SUAn3AnjtKazFCvt300gC/ONSddHjmMAKDXGvP5KzX7MT1lrCKn59gDa8B0Eohz BBARAgAzBQJChBp3BYMB4TOAJhpodHRwOi8vd3d3LmNhY2VydC5vcmcvaW5kZXgu cGhwP2lkPTEwAAoJENK7DQFl0P1YI18AoJsCg/sw0gEmXUfrYr2MiK/czbptAJ9G kTxQSVAZjhXla/iVR/ZJjXR+3YhGBBIRAgAGBQJCNCzqAAoJEFMx5x175C/jgkcA n36YbOwCbS+cLFPNTxX6UTq3eYIGAJ9rfz+bzc1E2uOITgD+/a/cGTXycohGBBMR AgAGBQJAC0zsAAoJEBhZ0B9ne6HsSxcAn1k8p8GxancHCX/fjPDc3OjREcm7AKCH 0nUMgDieOO02xjVPbr+3mqfe0ohGBBMRAgAGBQJAC02xAAoJEIHC9+viE7aSBkMA ni74G/7rlmiSNOdMtFjvYk+W67uFAJ4xXZ0pVKl6OCGQTjZflGhn6J3gc4hGBBMR AgAGBQJAC05UAAoJEGtw7Nldw/RzIrsAn23FM2Ws1i5UaXyv1mTOGRNEqb66AJ97 uprcGOQYyHEU1oxE1GdgK/1k94hiBBABAgAMBQJBgjKxBQM+ZT4AAAoJEPiFAGex HsLOL5sB/3feKat6T2m+zxDKW3soO3q/29BMBsO8vJjuDfgbPnvw4AZao2GiMTzE 4x6OgCIVtZdiZ9EiDj6GLoq2c2KWkMaJAJUDBRA1zw8pU2npLW1qNDkBAY9YA/43 6/vWJHs6r0UvDO1cjJ6IN/kLRda1z9DPjSo6ZdyzlfsJzCCDHP0AbM+fvgvKQSMD 2qvneIAO1xXsRgdcxXqp+3SQNdciWjMOUE5tMy1hTx22T4Sbb+uuhZilpnf6lhIQ 62PkdhVmvu3TNIIUfnGdgwuo9PfzAucQI+E/huFsRokCHAQQAQIABgUCQX8t7wAK CRCq4+bOZqFEaHUgD/9RkV6kTobCLxLCaXSz6iRCaXY5dWHfs98m0ebUjy0lhOxH Jluc/4h+FRmbQFHNtHiOKhEkHZOhjk6eSYND9ED2vE6gpK1WhmQeToDSbYNzm2e6 NzUrjJBa5jqLFG+VP0LEXqDGfVrVIYLnnUBeqeE580vCIE+cxgilBXB0wcOUYYaY 0CKFSoapGaRboxwWOzjTcdvMv3zRzLUCZD0z8Aj+Bbl5psw4cfgjgj5qL/uzS/vk 0meMVbGd3HxEfO+8UTTC4GWLqqxa3hxPfE4sWsCLCSyHg8YDY7I3XWp0V85teuMZ srfNHL6TTqwJOeoxYv/G14CJd++ZNr6wc0gOqeAQDfGPPP+tsdf7P053Fh1gQHMZ cv2vEZmKh8Yn5OqDYvQmU+WRlxExmZPJHZhsNifGMW0eLMcppc+J1/KzRyawNtSh cXFoWBgben+8JFPKohVzHUHrbXKaS0N5EVpThmFCDF3wqLhtAjqYq7ViLcQuLlVH y8l6W9vJskHvDihyRDrqdhaHIIKk7IFRg9CH5UyfZVF3ZkFNf6VOC9nC6JhVhXqd XgnYyiJ8D6HEJyh3Da9kYlgmkIFhoDHLOX2r+GOXbj2ZCKD1P5Tqo/SDDMZQ+pi2 jHc0l98gAubSiM+54fsLwX/LDgzqVICvnnft07D8ELwSJk272rgWSgtlnuo0ybQs R3JlZ29yeSBOZWlsIFNoYXBpcm8gPGdzaGFwaXJvQHNlbmRtYWlsLmNvbT6JAJUD BRA1FKtufEtnbaAOFWMBAa00A/wPLDXtNmFsA8EMdbBzKA3gjd4Y1fZQnVpT2tQI +FrMOCYH90Ncfp9pZgFLaL9tLV1cbV6IQowtHTTchmZSDijlzf0fIOoNypHQIRDW qx/RYm8P12lwv1U5777+UEFjU91RlA6fZTI/61LvC468TcADVnEn1OZo1INHdAhZ mE6saokAlQMFEDUUq+i92o/WP+p9/QEB9KwD/1PIjI2bsFxq9vNLghbRKRJEqpTb 8RVvguCvvPY5bitqPus4VLvze95yTOxx7e5AONBWh/UyX8Z00d1Q0Sm5KZmdcz36 5IH/nxP60ICp/Hp5PH1gjAXRA044go1yKDTSytT8r9P8dMlrfp/JGEWkuBlf3eZ4 pSu5Rcf7iEjmZkN7iQEVAwUQNRXj2uNaWM2W6V8rAQGGDAgAiDH+jzoNEYEEtUFa Ra5VEds0AhCL/4qFjRnVw+NxQ1pLsj5jhozmPI6SGIuyNhwS7aW10VjZdNIoJxln DIRs3WaiviueXMg0yAteLxhXO0lCjHEFDhFX8jLcrTGLza/veRARjKpX1GMYaKn5 ILgt2Qpmb7tnsXRp3Ul7sQwPHdCnI8Q0QLiKn4e4HpEExJCC3+V5H50sLBHRcLYV v7wFl2EjTRfy/EOUl1Yt+Xs9KqjCU2ta0s6ERpASnMaZSWe2EH5wbs6duS2noheu lE/f+rQIICjn5Kg/6+1MH1R2BivOh7swHX3qTr/oSK4aLmWYl4ZBUOMqQJBYGl49 QDoBU4kAlQMFEDUWZMHkyepLT7bNHQEBzKoD/A8CbFiVD+8hCwzsXMfGYdhGO/MN SfeAk3GED6hfPsWlaRXQLdbcNT+vyltJI6tmq3zFvsZXl0Yb3IQf5fJM45qHAyEM egu8dK3+K8Bu2cbpWYKiNTawfBJyD8zwQXgT+GinbRjoPEvOfOYh+M61qVumfyjl 0HAxoHt+KXTeyVfbiQCVAwUQNRZrsjxhKEdMqyEhAQHLAgQAoU2Z0J0uj2AGKfDj ge/9HrzEroPtD0hpMRM2GVXK/1lIIo37Gfg31TmLV8Cr7i9zvslHiqD91KrPcCjE 6/LVSL/IHqBWKMS7hw9z+BDmMYziPGJPf2zUU+BNDaBCUIufDiM8MzkQc7RIQhS1 s/0ggaaF3zKS5qZZsRFHB5I9K8qJAJUDBRA1GUPfvFYqkcU0pUkBAZioA/4m2znf 4kSfnL2hks57NIbM+J0hSXZ9gtPQc+Dj5SBerrJWnhuxkf35u6fEIDz3efdO5rzE UrWivoGC794edDc/XJFLzwd3q1v18u7cQpNYnSNtW9kGgG5gGENa9R6xUF6IA2Pz 25Y9qTGFwtLF+Hn0Em3OTk0a+luoo6sUVzSUJIkAlQMFEDUfrmwj5GLUv3ukIQEB 4osEAJfbBlxv08cBsmnI64BusEwM/z2IYftAhgxY8gtMD10IxPyAiOv5I5en2DYR UHUTT2IX2OPE1pPYqiIiJ6cpZOYni8yQ+tsq1JVwmR+ccfzANz8w+cXM0Tu+EfuJ VcbiP8xl3UDBpvj9MncwJmt4DocjfvOV88xcv0DrTzIoX3y3iQB1AwUQNWoszKzh XMEE23sdAQGT/AL9HfhWPc8UtaJBtq10Bbm5A6AURAoVpyjEjvsvhSo9qwxMaEre xF5+OA0FnfGt58+ObtgrK/ybJ7Tfc69jozgNwFBLF8h5hx4w0UJWo2uRu2hw0c+M 2gg68RoiDDuXdQH6iQCVAwUQNWrljSluPWNaXACpAQHLUQP+Jy7BnfjdjgIkYSbw mcy7usYVBIzB8GCb8bWM3Kdkd3RXM27YFipfARpHgPdRsJthEruudFjsk+X/RgtU /s0mXPI9L6GSThDAcXn6wgOI5cEQOdQqZWJu52wWh5NTlREe81GAgaJWS5IKgo1A N/R7zGf1oUKCAF6SjKVNs0grUz2JAJUDBRA1iC0MmqdHO8kXLHUBAUxEBACBJSVF oqqCk/V+05xx5SB00g4alW7EHTY4QfYP4bOUaZf6YA0Ql9aN9gtiU29TpI5VjHdk bShXEgkmE6gysJp8UH8b6P0oDNBr91eXaU5TXN+YNIJLICRoqMxCDv+h5+hh460Y eH6UZr/Mkh383iSauvibbS8vLkZr8sAuBUn6f4kAlQMFEDXH95A/ZTB66ZtiFQEB rtgD/jI55V14bVB/otVfNo/wM+TfqsFiiW20CtkHfeaBONwSPBEvvNDALj+fKAPV 4pJHBV+i6rp779hUQuYbIvkrEl8eu6aDLEM5O9ZqsQ0fnWPogsN+jgSytjbSE8cQ CCkMI+/cTas4LH5t3KbYt9rfgv5BpGGzjaJ2R8+boQBvjdI0iQCVAwUQNRbZnwMl jPu+uSCxAQGO4gP/REXVFS4pDcwBmmZYIFUAJSw2cNDi47vBh//DhQWGXwzrvTLn Q/o5qUYDBjDJsZtb2uPDZJ1lPj8oYhn9fCJGBbea8Bh9jxxQUDEraLd3LcD1FsLz gWbYy6yHOxP6OmN45KYzVazy4Pdj+LTKuUlG49wXlJpTu5AA51bzbBEdvXSJAJUD BRA2PGmQKkR102trdqEBAWPSBACqoNyF2Eswn+TXnYJJE8xJKBaqsEel8LHyxtO+ fAFzbUD0812S+aZ4gA9XUZP4CB+lr00Xbx1H1f0xM0m7NJ+HiWK37kYxpythMLqx agw1OG4mp5ZADAPUfC8HiMXYeQe815ufzLFd/eG4w91wD4BF0WsTfuy1Sows8UZv DAuXQIkAlQMFEDao8lzPc8jyYlQBCQEBDUgD/0WJlIGafmsmUSBmbnyFn76WjE26 sxfJJJSJn6epEFDSP+km4UVyFdHjj+Ri/Q8HzJHRh+uvRtgfqe/wXrAc1Zhk3Pd4 lIF9BN72ducE0pXjZz64mrZR6/VOca6aib7UtvGHrmdGSfrRLL9qMfx+e+Ysd1yy IUh2JHk3obkIao1qiQCVAwUQNsM4js84Rg/F0CaJAQEwbwQAwiX57DisYMxVEOOk RBsAeAUVveyjBEOzNJ6q2bgst39hAu3bZEspXP1EFNX9mm/77gxlYwDh/JBPqmYM DJyJfym0nsBQQOaj7OiObDxkpk3ZUGyljvBn7IX00d5IykeoOdP/jilJOCmeuAGX veEgs3kDmHYFL9VQkvjgVnJSSEOJAJUDBRA28AINxS1HbQ2/kG0BASGjA/4/OX2S Onqu4M/wpYs17rKPOLt0fe1/bMqwzfumu0dbTKUl4dAXWqIDFF1WMlFk0Qx9id89 AcLDKz/lD95O9djYTRpw65obytWKNA32Tvn6k0TKM8nlW8GOjvo34JCO7rkW9Swe sewp71YcqxCASg198Vcd4JbTVxdbGZO6sxL+uIkAlQMFEDaFO1WkUJAsCdPmTQEB wxIEAJcZyacu/eg3bX9EBD8cj7R2UorZyhC6eaWiFvwTu0NO6yUlmFeF0R0dYgPp YwMEAzbviJKFlLwH1GbevH+Q0+aCBIJttkxUP4Mzlfq4wBh5u22YqKl/N3dKXBqV TyPMnLjNeMXDpEc5rXeHFoZOgIoumj0Rx5qk93LbN3a2VavaiQCVAwUQNoU7afLl ZUzmDiptAQEwQgQAkEs3DVDOR6Ge8lt2u9oDRj/G8lfPjrTKYBqid9PdD6+pXFTw Sm289IjIW7UW/iBTrr/LVmsiYd1G7e86/ps3bpuGlBzEiNbYqC5mbrfmKFdAIZc5 RnQKpL3vNz7mQWUxXj/nT73aluUTyb3Hg2aFVNUaNZ34sAB2zjxZzk3v49GJAJUD BRA2hTuFsLFxg026EJEBAZ3dBACMv9QR7DzAcN5GZhWCnaE9DFUcg5+hCPhrIcCI 5YqZAx1MAE8pVTtBQoFImELkBrs0rJnVhDIqmgkVApRmT6ecF5SD9IPpm/iympgL SuKBOP3s2d0V848P8BPrFS4kQ2eq7uWh0iENPTRQVenA6ZUZ2yMwI+oKxkKMFrvT 0HnZyIkAlQMFEDbzpJ0VBbtr4vVmaQEBbFoD/RmGIsUhBh6Gx9R8o7SYwwdDb0ry 6v/624ihcFMiLgI6T2D0zB2ol0XTbYYyUZFa2XkoTjq40fWOqA7DIor+MkQpDrxB pNPlRktoe94YPyx+M6b+O9yhx3U/8W+UP2ABgXR85NUCDxDTnsKmxJDkkinJ3rGA /Vv+fl5wdw3YVAgKiQCVAwUQNxJ38gx2JIpOldm1AQEeFgQAmK75xIhzb84Qfh9O LiFlHG38Ej2xnWgeqmO5VjL/JVYKyUTM6hzO5vQ/WhuSm7dDd1db4aN0Um/ySvmT oaI1Ct4UQfuenUmhWCEpdVPteDHBsvfzPCTMp9ezdR9kCXzri/YmpbtG8d32Q2FR /pEphCz9Y+R62IfHzBroe8qZpZuJAJUDBRA3Ej3hudwOSdjgzAEBAV0xA/4ru7K9 M9wahHN9w2522CU8F0IL4PXeMtESANxyLnjNXF1MJiRAL3yGaAEPwNp6cPzJ5ogx BQGWSdHnP6htzsTZFRRrkFkzzYVh2WdVDV3P9+x6v7C1Gx21xpNkrmlQkbwyhlxP SOJVJdj3e6B7+L4Ttqjz3nafaWBGEuUL642bSIkAlQMFEDdUXQ/PHrUDIjJ6AQEB Y08D/0SXXMzYt2EESh/kzd1O3SO3Jpcn3O8+6Ggr7hm13mM+GxqjoBlbH04FtNP1 01FdZWe4ti3V7R/JT+MY/Mpr6SuHqb9JcVFlDnzuvD57GqAcNcw9CAEwDMtBoGOd o7TPzUhykW9BXr2Nv7EUo/t5Q57bKKDjC116+S63Ej1uh8jriEYEEBECAAYFAjd+ /lIACgkQawFiCQnrEb4BdwCff7heOPbXdtoqEJBL2U4zxWkgmfUAnRHdMmpcQiNs iBA6CwArw65vgqVziD8DBRA4Id1XRRnWk29yqT8RAnveAJ0YzBmJ3QcpKw2pDy7f FlmW9010kwCgjTFfi9g4oM/q2wCcKLO2sw761kWJAJUDBRA59cJzqM46LSPsJj0B AWF8A/9/UFdyqewGR2sHRpyqRmNvfGfUbxOO86csB+4XFZ2cimc0Sod9N+gNT7W9 GFH6QHhZqF/uDkZm7zInb2AtCuj31T5Q6EgCNkv9x5PE8IxwH2FFNLby/cZrf+ve s5Uavp/Wkb9uY5GaAZgC7gq2KMMlFucHBTKAD3/mXJSIZv/zbIhGBBARAgAGBQI6 uYsaAAoJENIP1AXK1QnGSm8Ani03N1EJszyqDX7RstHomoQxp1o3AJ4oEHSYTWwz ZYbJFQKZ/1fcutFBUIkAlQMFEDq6W5T27zi4+ENwcQEBRngD/0wkW9qleK7VAuVB f39bDy6Ff79GfZEuV8vEHHuc0q4kajM8ZZ7oC7NBwm+N9rTz7YWmF6ZiqE11zDUv ydnkNyz6fTR80tD0aUA8LAOvhWLdBRac90NeCKXAuBRVOD0CQWXzLYBiWcJOKAfN K4vZukVdyTpXerAKY15f6KNejHNCiQCVAwUQO1XYO9bgof5PvirdAQFiVwP/UoUN zGm7AL2CugIIRuAXYGZY/GX3OgZwNwAw0ckNajm+lPjHnA0VP/+8EaT/XWlfoLAe q9lhUq6oQZNvuU+zw2/muY34jokGTq1Tvft7UHxfiNuS6U0693wbNh2++ziWSx6T 9JZ5v0EcGgIX3A4AmV5dQCv6h+yuY5UyrMIV9KCIRgQQEQIABgUCOrqerAAKCRBL 2KFeEWrdpybyAJ46GW57+Hjq8YIO2sk04o2F/T0zogCg0KlVWRC/HddImQF+kkvp wsLJRzyIRgQQEQIABgUCOrqeGgAKCRBqg0XINN4vL7iuAJ9AErWJU78dUK7lGZIf 64HKpONLegCfcfd5rLM7PMZR4oW8yN5h3pGsVByIRgQQEQIABgUCO1S5+wAKCRCi u/skDPlW93b1AJ4zsWpNxu4GoRERovK2JZHA+LE2AQCeNTkbmTBLayBo8XUs4ZfI fxK0SEWJAJUDBRA7V0WQ4dT8FObQdHEBASViBACx2nb4Hbl58MTqLf/txnAcG8bl 9pIGfS17BF+J8vyi0HhiEi/NaNzEQtvWVG7ZsEAosAUg4DloNzf1uKJCk2cktxbM htUTz6dCF+sqMpVtcFYs0oaHW+5UjbIj1Rvz8oGyE5+2swTdDnUaTfUxskRY53Ju M4HJSbnbedH1OFzuqokAlQMFEDtZEEMGfl7Yv7VlaQEBcxEEAJ4I41zohad49XTz jOlU0TKPhDL4Xpe0riQQdAniKzB57IILSBRXOejXGjEVOwcZQP5Naj3WBnI1cxyb qJPKxL5olNi47xfhxf59LgWLByO8NSgk2bYApyOxGVCD3+ftfg/02B6KPs8sQ7x1 z76H1ERRn7r90nBmYO4c7Aq7PI8TiEYEEBECAAYFAjwRHwUACgkQIgvIgzMMSnVB 1ACdF2mIpA38PvfqS4FXxlqVnVdhnl0AnA+xFPyj14WS5IorJCS1qCxmd3M0iEYE EBECAAYFAjsj4iwACgkQHhWho49ljoIRugCfRkwThbWMldAOp1Lgtez+7bwxx2gA oIOZIhQGDH/toEBG5csUH0FzWXD3iEYEEBECAAYFAjvsN3IACgkQv7Z+b0EnikRL nQCdHzq6KDoeb22oKb0hZY58yDPvoHIAoL2CvjMWh/yL/9iL87yoozP9XU3SiEYE ExECAAYFAj0Hp/UACgkQIBUx1YRd/t3nUwCfSqOgkUdx1dh6Yztl42pEtcz+H/wA nj4UkKFkISvZDPLoYkj0lSBy3N5jiEYEExECAAYFAj0HrLwACgkQXY6L6fI4GtQR dgCfQJEKqq2eDiIE6Z/l2KZF8YtWsHgAoL04I6SS8/7yVZDFcwqbrZKBb/nQiQCV AwUTPQe4dbaE8XzBCodNAQEhAAP+MPRqolmwo0kdrdYCi862RchI2txhhotI3dZz 6npVsxy5Ilbr7fOS6hbn1ORKg0cPpOt3mxDan6cJD3bFrFPXcMYaq9gSF+PkHeyN HO50o/e40T8IuS1mbLQeRVPIo66HIVM/PW0njy0as+r53a/EUQwSKpK+O2yYxZ/v 3HM1YUCIRgQTEQIABgUCPQfcLQAKCRAY9QOAJMJ4AmDcAJ9c7hQ+SGFYpsfGrlDD UWWrKInMvwCgnme05M5csK3gCJR6WGVnr6JHlSuIRgQTEQIABgUCPQfc7gAKCRAh +cW892qb9dDGAKCHJldAMb4TVYHcB3woq4AFUGg9GQCeJxuPrqWyLOl93dnj9LiL 16iDDieIRgQTEQIABgUCPQfdvgAKCRBG7a30NX1l+9AmAKCrC01ev05bLOQe9xQf tkgTsAJLVACfT4RGoxQiP9bSVXXc2DPnGyk9mbmIRgQQEQIABgUCPQerYQAKCRC1 UrBDdzkF1j9oAJ90ewyqESUjUSNfxx67nRf7Bf/iwQCfRxsgP/H5kNxxO6zdvDmF P0CnaAuIRgQTEQIABgUCPQgpGgAKCRDYyjFxW6BSwxvcAKCcciX5v/zG9JJK+l2c aSg4299xCwCgyBxtWKCGX5DyU10MXMdULz4RYnGIRgQTEQIABgUCPx7XmwAKCRAN FUpLM2os5bUTAJ9P7VepCWX8qVaOQR/n955a9r91RwCfRssn6/is7V1qVV7Ee3NO c76RRAiIcwQQEQIAMwUCQoQadwWDAeEzgCYaaHR0cDovL3d3dy5jYWNlcnQub3Jn L2luZGV4LnBocD9pZD0xMAAKCRDSuw0BZdD9WDroAJ9AKRizGzwsKagEtLw7SkKx R4A0IACfRXvXahL3rLXXJH4daIRTFLoOfouIRgQSEQIABgUCQjQs5QAKCRBTMecd e+Qv43TBAJ4gvecTZP53Enhw5LKxe3Yn2NaUJACgg5dM2hEtHtA2APVewU+PifZi Bq2IRgQTEQIABgUCQAtM5AAKCRAYWdAfZ3uh7DMDAJ0fWKmQ0pzgBjv7f51mn9yw H9XsLgCeKNXyDfFPROiUezxSq8z6G1NgFTWIRgQTEQIABgUCQAtNqAAKCRCBwvfr 4hO2kquOAJ9PuYi3o9pazwVWcaNaVXkyWgeT7ACcDPr/KVgw26+RZc5bhFYQwxSV On+IRgQTEQIABgUCQAtORwAKCRBrcOzZXcP0c/99AKC0s00mJCxM578qEFD0NoQ3 QNYcMwCfQLVGqxtIdLpok/wzbw5rzcShIE+JAhwEEAECAAYFAkF/LeUACgkQquPm zmahRGgFdg/+OBnbqk6PQlWXqm9aKDpyqtToEwYDPzueWuvIM+OzFuz+B8En7RK1 IMwcsKUj0VzLgNtX81xoJd+c/1JOIxQrJOtLbPKAk6ToNX8fXr8MqeHuTCvyYGWQ NChCyIfmvBrwIHjxWpeAEaJNzTC0y8vXEpOcveownXqV1XmcOD/BDFYky4/F7xAU Cf98WAwTpAq6vGclgvfDqOjB67V+ZXw5EqRDRwha9vjsI6P2Tc8CSWGh25IfmhIp TjP58AiFdKuO1Uh91XEU4t/ETOGMHnw3lQuIBCyj9o5p3N/nd4J8Re1lOs2qhhOg kubrNsrRw0oaenGbJZclALBd7vdYq5kM85sQfr2QbLNYXtXKsQerjNpMfkLjZXMn +6Le+MR28vAAoIoEBB3H4sqO99bLaPB4E6cdHKMnFJhlnNiaXJJKNrAD1dU0mwz2 uxoNeYEu/MTdRYBZZdEEsmbORHOSbvamGAl/eUQA85K5QGXz0hArgZ9HRkY41Wrh tPEhTPhQIbX7CAZb0R+KV73wZjelEV9hpPz2IyHb2V5gJJOhdrXOLzdEJacMllHY p9fUmfxDnIsaJW72va6WxdDGIdI7FtFtv6ued4ACgzc4T7w2u24MVpD36gDWWC7W ThUt9uNU6kU29eAHZEBI4WheX5e2wu1BxgjVAn1LqiPRyPK3jr9kzy4= =eOEB -----END PGP PUBLIC KEY BLOCK----- pub 2048R/A5AA5BE6 2013-09-06 fingerprint: D0EF B47E 909D 1550 525E 9DF5 1090 AF20 A5AA 5BE6 uid Claus Assmann -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1 mQENBFIpKtgBCAC+QSzX64hPzap1qLn0JB0nxCFJ68U8rkqv4OatMN3bGZ2V4Qv2 va1zRxoE+MpxQayLe/VFjyAP+hPHtVOAgHzTUGYNIxt8nGXnfzL9C3KBgGLoh00X PV2RiXvRXoo8b5kamHTpe6c5i6KOT+6YjSnpnSgDebN/PSco9JdnMRwsOGwHQaQz Sm2HND7jYPj6lWUqea2U66efNYG9ir9Jxsgi58oyrMryX7lA2DGScUU/RPrqF0P7 jRi5y6zgewMuuptmBxCb62NJRX208ZFQ75qOwtsZ+Yh3PnEj9hGjy6YNy5YJX2Qe e+neWj/2UYKfqIiOX5AHkbK5Z3Q/AEeX1bDDABEBAAG0IENsYXVzIEFzc21hbm4g PGNhK2dwZ0Blc210cC5vcmc+iQE3BBMBAgAhBQJSKSrYAhsDBgsJCAcDAgYVCAIJ CgsDFgIBAh4BAheAAAoJEBCQryClqlvmEWQH/irkPN9Br2kJUN3Vt1/Vg7kxssZS g8EIeNeUI99lMmW/4MsmwtisWa/+n45it/mVvS8wIIHy36N8mRTr8gRTDQ3UU4Tm moD6s8RCauPHvogVFCue0+D894TLqMYf9MSFjjyDwOZHWGyLQ5VMWcPCrYJe9jGH njZ7gojfqIBfJ39dc73cyBTppfGW5A1Tgf7vtmwBcbzSpq1PM5g/uJgIc6Q27eLa WMMuY+orsdqEyHagH+ZObVq/ej498VNimSZe8kVsYzU7UXa+9dWsP9uEczIvxs5n R95WgLIrMxucJ8oIvMro2VCs1+gCm5fIRye6QEn6p9R1VEpDZJB5RN6EGMyInAQQ AQIABgUCUikq7QAKCRDPHrUDIjJ6AamUBACClQmgowKP9/MiCaiL7vtjeeMBXFzT zdbQrzsGF7T7Db0IsKPc1aSX0mQrASDY+ogibkOiN8ueZQDASCQlzQukM2x+Cp52 PVYYbuMf2RBCMQ5uCxVbBXg7viPs/x1+S+y+v+2Ynn96zotseMHH/BTBTSd3ly/e j0koq7fuF35DcokBHAQQAQIABgUCUikvHAAKCRChbtHAE+6gQafaB/sFhAcHa2Pe xI5x7Q/TmbNagwpuVzUK0rlLVrJJdD3Pm+qBBPWy9LdoOfw1lQsPNLZeGu1WpAOV SozwlAA4ZWJGOgqZIqneN76EjR7SQgVIswyfs3R4LESX1bC+kDpxBFu8kKb3+NKj +dXYDvPWduRz96Ei5BqWkD1CyY2MRTAPDKdNCtreNP3ot9O0K+Y7y720PaP0sNOI jmD1dZVcUbyQXcI4OPSCOc1QObnTGU6G9GxJrp4sN2r9SzC1Xw8kPd4xLn3Y1wzP d5We+9j0NeHBsk5hgx3LwLNs229x3tXL43m/dlS09l40U0bh1go5hvhLvJPN0UZI dIWz4g1iYuFltCNDbGF1cyBBc3NtYW5uIDxjYStncGdAc2VuZG1haWwub3JnPokB NwQTAQIAIQUCUkzkGQIbAwYLCQgHAwIGFQgCCQoLAxYCAQIeAQIXgAAKCRAQkK8g papb5unjB/9pq8J3/qZGIIpL5JQJCWuyuQUVze/qsGitLmnYecej1njcXDpAfglG prCx0xEDWnSPKLgbnPmWmIP4Dz4gwhBAxg03MK1es7kj0P0HcqYb/vMGdfyX/vkf RK956b6LfuMtvEjmQqKP/My4vU+vF2y/bTsg58tbeBXzoS0+BZyMVjvHTOBQlR9B dbYqCDW/Rj56xwULFnwjHXVteqZ+DgBy2Hs9zBDPRpogRYks27ugaO+YDG/SYPGb jlZeTkfSfTGZBUAJnCdla4fR+ytIO5XSJZbYULO5cJbnsmFcn/hESdSfYTlkVdKQ yyR9uMLs9QD+ZSiXq5lbHwxxHkiVMafNuQENBFIpKtgBCADRVVY4ct/tk4++hjUS B7c6XR20jjFhePxSIVpokE8fqEzO22jrA9/pSQX8ZaDXTFEs/0hmstVcy7MQtgh+ zEClNRLK20EseF8t9PjP15BDGg2SC/xCdk0j33ERzeXaReID7+3//Td+ASH8IX6K p2dM+xLYVqOIpoYR3QmFuSd3Gja2hsdsY6oA1wkvow1ctp+QGguJgpuOpoJFyhOw oJC0mDarawREtJs60iN8ZGfyn0zscGAZbPmY6FZ4hwlFEaA4fho8xRVmZRLrH+WL xuzquFjeoZAvEN40GoYs3y1fR39/okM2A7HLJ0guezV2CHBLmqxxCSIN5G31/BKj mQO5ABEBAAGJAR8EGAECAAkFAlIpKtgCGwwACgkQEJCvIKWqW+bQNggAslc2YoRv WI1SBd13e9+ztEVyic7uBNdPHJO1MBE1XRg6Kv01IHA+Dj2LwM2EcAaq+9LTEjiY RGI836in2IsHMynDAUybXgJ5zL/KRrXbbnPGBbGK9wxELMtNzcDEuonjVzlgJIdC nlFEU1xI8u1T9IByigU/4k7Gyr7t0L57UAE5uJtTYGjJpLz6LUDhEsg2pPx1taTk Nq5nZ04BGHdVToZvUf2ABdQnWx94uOCRJp2bLJiEepNtaL2OPqe2EQVF7ia2Y0PT 4xu4WMmAF33GA/SoxTGXsRIM3BPfW/1veyGGS35+/c3k05VPwuRnqYlOy4dXJIGL q8WNeh9erYZriQ== =VuMX -----END PGP PUBLIC KEY BLOCK----- sendmail-8.18.1/rmail/0000755000372400037240000000000014556365434014076 5ustar xbuildxbuildsendmail-8.18.1/rmail/Makefile.m40000644000372400037240000000205214556365350016051 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.44 2006-06-28 21:08:04 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_LIBSM', `true') define(`confREQUIRE_SM_OS_H', `true') # sendmail dir SMSRCDIR= ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confENVDEF', `confMAPDEF') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`executable', `rmail') define(`bldNO_INSTALL', `true') define(`bldSOURCES', `rmail.c ') bldPUSH_SMLIB(`sm') bldPRODUCT_END bldPRODUCT_START(`manpage', `rmail') define(`bldSOURCES', `rmail.8') bldPRODUCT_END RMAIL=ifdef(`confFORCE_RMAIL', `force-install', `defeat-install') divert(bldTARGETS_SECTION) install: ${RMAIL} defeat-install: @echo "NOTE: This version of rmail is not suited for some operating" @echo " systems. You can force the install using" @echo " 'Build force-install'." force-install: install-rmail ifdef(`confNO_MAN_BUILD',, `install-docs') install-rmail: rmail ${INSTALL} -c -o ${UBINOWN} -g ${UBINGRP} -m ${UBINMODE} rmail ${DESTDIR}${UBINDIR} divert bldFINISH sendmail-8.18.1/rmail/rmail.c0000644000372400037240000002400114556365350015340 0ustar xbuildxbuild/* * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_IDSTR(copyright, "@(#) Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers.\n\ All rights reserved.\n\ Copyright (c) 1988, 1993\n\ The Regents of the University of California. All rights reserved.\n") SM_IDSTR(id, "@(#)$Id: rmail.c,v 8.63 2013-11-22 20:51:53 ca Exp $") /* * RMAIL -- UUCP mail server. * * This program reads the >From ... remote from ... lines that UUCP is so * fond of and turns them into something reasonable. It then execs sendmail * with various options built from these lines. * * The expected syntax is: * * := [-a-z0-9]+ * := ctime format * := [-a-z0-9!]+ * := "^\n$" * := "From" * [ "remote from" ] * := ">" * msg := * * * The output of rmail(8) compresses the lines into a single * from path. * * The err(3) routine is included here deliberately to make this code * a bit more portable. */ #include #include #include #include #include #include #include #include #include #include #ifdef EX_OK # undef EX_OK /* unistd.h may have another use for this */ #endif #include #include #include #include static void err __P((int, const char *, ...)); static void usage __P((void)); static char *xalloc __P((int)); #define newstr(s) strcpy(xalloc(strlen(s) + 1), s) static char * xalloc(sz) register int sz; { register char *p; /* some systems can't handle size zero mallocs */ if (sz <= 0) sz = 1; p = malloc(sz); if (p == NULL) err(EX_TEMPFAIL, "out of memory"); return (p); } int main(argc, argv) int argc; char *argv[]; { int ch, debug, i, pdes[2], pid, status; size_t fplen = 0, fptlen = 0, len; off_t offset; SM_FILE_T *fp; char *addrp = NULL, *domain, *p, *t; char *from_path, *from_sys, *from_user; char **args, buf[2048], lbuf[2048]; struct stat sb; extern char *optarg; extern int optind; debug = 0; domain = "UUCP"; /* Default "domain". */ while ((ch = getopt(argc, argv, "D:T")) != -1) { switch (ch) { case 'T': debug = 1; break; case 'D': domain = optarg; break; case '?': default: usage(); } } argc -= optind; argv += optind; if (argc < 1) usage(); from_path = from_sys = from_user = NULL; for (offset = 0; ; ) { /* Get and nul-terminate the line. */ if (sm_io_fgets(smioin, SM_TIME_DEFAULT, lbuf, sizeof(lbuf)) < 0) err(EX_DATAERR, "no data"); if ((p = strchr(lbuf, '\n')) == NULL) err(EX_DATAERR, "line too long"); *p = '\0'; /* Parse lines until reach a non-"From" line. */ if (!strncmp(lbuf, "From ", 5)) addrp = lbuf + 5; else if (!strncmp(lbuf, ">From ", 6)) addrp = lbuf + 6; else if (offset == 0) err(EX_DATAERR, "missing or empty From line: %s", lbuf); else { *p = '\n'; break; } if (addrp == NULL || *addrp == '\0') err(EX_DATAERR, "corrupted From line: %s", lbuf); /* Use the "remote from" if it exists. */ for (p = addrp; (p = strchr(p + 1, 'r')) != NULL; ) { if (!strncmp(p, "remote from ", 12)) { for (t = p += 12; *t != '\0'; ++t) { if (isascii(*t) && isspace(*t)) break; } *t = '\0'; if (debug) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "remote from: %s\n", p); break; } } /* Else use the string up to the last bang. */ if (p == NULL) { if (*addrp == '!') err(EX_DATAERR, "bang starts address: %s", addrp); else if ((t = strrchr(addrp, '!')) != NULL) { *t = '\0'; p = addrp; addrp = t + 1; if (*addrp == '\0') err(EX_DATAERR, "corrupted From line: %s", lbuf); if (debug) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "bang: %s\n", p); } } /* 'p' now points to any system string from this line. */ if (p != NULL) { /* Nul terminate it as necessary. */ for (t = p; *t != '\0'; ++t) { if (isascii(*t) && isspace(*t)) break; } *t = '\0'; /* If the first system, copy to the from_sys string. */ if (from_sys == NULL) { from_sys = newstr(p); if (debug) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "from_sys: %s\n", from_sys); } /* Concatenate to the path string. */ len = t - p; if (from_path == NULL) { fplen = 0; if ((from_path = malloc(fptlen = 256)) == NULL) err(EX_TEMPFAIL, "out of memory"); } if (fplen + len + 2 > fptlen) { fptlen += SM_MAX(fplen + len + 2, 256); if ((from_path = realloc(from_path, fptlen)) == NULL) err(EX_TEMPFAIL, "out of memory"); } memmove(from_path + fplen, p, len); fplen += len; from_path[fplen++] = '!'; from_path[fplen] = '\0'; } /* Save off from user's address; the last one wins. */ for (p = addrp; *p != '\0'; ++p) { if (isascii(*p) && isspace(*p)) break; } *p = '\0'; if (*addrp == '\0') addrp = "<>"; if (from_user != NULL) free(from_user); from_user = newstr(addrp); if (debug) { if (from_path != NULL) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "from_path: %s\n", from_path); (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "from_user: %s\n", from_user); } if (offset != -1) offset = (off_t)sm_io_tell(smioin, SM_TIME_DEFAULT); } /* Allocate args (with room for sendmail args as well as recipients */ args = (char **)xalloc(sizeof(*args) * (10 + argc)); i = 0; args[i++] = _PATH_SENDMAIL; /* Build sendmail's argument list. */ args[i++] = "-G"; /* relay submission */ args[i++] = "-oee"; /* No errors, just status. */ args[i++] = "-odq"; /* Queue it, don't try to deliver. */ args[i++] = "-oi"; /* Ignore '.' on a line by itself. */ /* set from system and protocol used */ if (from_sys == NULL) sm_snprintf(buf, sizeof(buf), "-p%s", domain); else if (strchr(from_sys, '.') == NULL) sm_snprintf(buf, sizeof(buf), "-p%s:%s.%s", domain, from_sys, domain); else sm_snprintf(buf, sizeof(buf), "-p%s:%s", domain, from_sys); args[i++] = newstr(buf); /* Set name of ``from'' person. */ sm_snprintf(buf, sizeof(buf), "-f%s%s", from_path ? from_path : "", from_user); args[i++] = newstr(buf); /* ** Don't copy arguments beginning with - as they will be ** passed to sendmail and could be interpreted as flags. ** To prevent confusion of sendmail wrap < and > around ** the address (helps to pass addrs like @gw1,@gw2:aa@bb) */ while (*argv != NULL) { if (**argv == '-') err(EX_USAGE, "dash precedes argument: %s", *argv); if (strchr(*argv, ',') == NULL || strchr(*argv, '<') != NULL) args[i++] = *argv; else { len = strlen(*argv) + 3; if ((args[i] = malloc(len)) == NULL) err(EX_TEMPFAIL, "Cannot malloc"); sm_snprintf(args[i++], len, "<%s>", *argv); } argv++; argc--; /* Paranoia check, argc used for args[] bound */ if (argc < 0) err(EX_SOFTWARE, "Argument count mismatch"); } args[i] = NULL; if (debug) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "Sendmail arguments:\n"); for (i = 0; args[i] != NULL; i++) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "\t%s\n", args[i]); } /* ** If called with a regular file as standard input, seek to the right ** position in the file and just exec sendmail. Could probably skip ** skip the stat, but it's not unreasonable to believe that a failed ** seek will cause future reads to fail. */ if (!fstat(STDIN_FILENO, &sb) && S_ISREG(sb.st_mode)) { if (lseek(STDIN_FILENO, offset, SEEK_SET) != offset) err(EX_TEMPFAIL, "stdin seek"); (void) execv(_PATH_SENDMAIL, args); err(EX_OSERR, "%s", _PATH_SENDMAIL); } if (pipe(pdes) < 0) err(EX_OSERR, "pipe failed"); switch (pid = fork()) { case -1: /* Err. */ err(EX_OSERR, "fork failed"); /* NOTREACHED */ case 0: /* Child. */ if (pdes[0] != STDIN_FILENO) { (void) dup2(pdes[0], STDIN_FILENO); (void) close(pdes[0]); } (void) close(pdes[1]); (void) execv(_PATH_SENDMAIL, args); err(EX_UNAVAILABLE, "%s", _PATH_SENDMAIL); /* NOTREACHED */ } if ((fp = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &(pdes[1]), SM_IO_WRONLY, NULL)) == NULL) err(EX_OSERR, "sm_io_open failed"); (void) close(pdes[0]); /* Copy the file down the pipe. */ do { (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s", lbuf); } while (sm_io_fgets(smioin, SM_TIME_DEFAULT, lbuf, sizeof(lbuf)) >= 0); if (sm_io_error(smioin)) err(EX_TEMPFAIL, "stdin: %s", sm_errstring(errno)); if (sm_io_close(fp, SM_TIME_DEFAULT)) err(EX_OSERR, "sm_io_close failed"); if ((waitpid(pid, &status, 0)) == -1) err(EX_OSERR, "%s", _PATH_SENDMAIL); if (!WIFEXITED(status)) err(EX_OSERR, "%s: did not terminate normally", _PATH_SENDMAIL); if (WEXITSTATUS(status)) err(status, "%s: terminated with %d (non-zero) status", _PATH_SENDMAIL, WEXITSTATUS(status)); exit(EX_OK); /* NOTREACHED */ return EX_OK; } static void usage() { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "usage: rmail [-T] [-D domain] user ...\n"); exit(EX_USAGE); } static void #ifdef __STDC__ err(int eval, const char *fmt, ...) #else /* __STDC__ */ err(eval, fmt, va_alist) int eval; const char *fmt; va_dcl #endif /* __STDC__ */ { SM_VA_LOCAL_DECL if (fmt != NULL) { SM_VA_START(ap, fmt); (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "rmail: "); (void) sm_io_vfprintf(smioerr, SM_TIME_DEFAULT, fmt, ap); SM_VA_END(ap); (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "\n"); } exit(eval); } sendmail-8.18.1/rmail/rmail.80000644000372400037240000000222214556365350015266 0ustar xbuildxbuild.\" Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" Copyright (c) 1983, 1990 .\" The Regents of the University of California. All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: rmail.8,v 8.5 2013-11-22 20:51:53 ca Exp $ .\" .TH RMAIL 8 "$Date: 2013-11-22 20:51:53 $" .SH NAME rmail \- handle remote mail received via uucp .SH SYNOPSIS .B rmail .RB [ \-D .IR domain ] .RB [ \-T ] .I user ... .SH DESCRIPTION .B Rmail interprets incoming mail received via uucp(1), collapsing ``From'' lines in the form generated by mail.local(8) into a single line of the form ``return-path!sender'', and passing the processed mail on to sendmail(8). .PP .B Rmail is explicitly designed for use with uucp and sendmail. .SS Flags .TP .B \-D Use the specified .I domain instead of the default domain of ``UUCP''. .TP .B \-T Turn on debugging. .SH SEE ALSO uucp(1), mail.local(8), sendmail(8) .SH HISTORY The .B rmail program appeared in 4.2BSD. .SH BUGS .B Rmail should not reside in /bin. sendmail-8.18.1/rmail/rmail.00000644000372400037240000000212714556365431015262 0ustar xbuildxbuildRMAIL(8) RMAIL(8) NNAAMMEE rmail - handle remote mail received via uucp SSYYNNOOPPSSIISS rrmmaaiill [--DD _d_o_m_a_i_n] [--TT] _u_s_e_r _._._. DDEESSCCRRIIPPTTIIOONN RRmmaaiill interprets incoming mail received via uucp(1), collapsing ``From'' lines in the form generated by mail.local(8) into a single line of the form ``return-path!sender'', and passing the processed mail on to sendmail(8). RRmmaaiill is explicitly designed for use with uucp and sendmail. FFllaaggss --DD Use the specified _d_o_m_a_i_n instead of the default domain of ``UUCP''. --TT Turn on debugging. SSEEEE AALLSSOO uucp(1), mail.local(8), sendmail(8) HHIISSTTOORRYY The rrmmaaiill program appeared in 4.2BSD. BBUUGGSS RRmmaaiill should not reside in /bin. $Date: 2013-11-22 20:51:53 $ RMAIL(8) sendmail-8.18.1/rmail/Makefile0000644000372400037240000000061614556365350015536 0ustar xbuildxbuild# $Id: Makefile,v 8.5 1999-10-05 16:39:19 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ force-install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/rmail/Build0000755000372400037240000000052014556365350015055 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.5 2013-11-22 20:51:53 ca Exp $ exec ../devtools/bin/Build $* sendmail-8.18.1/INSTALL0000644000372400037240000000373714556365350014032 0ustar xbuildxbuild Installing sendmail **Note**: Starting with sendmail 8.12, sendmail is no longer set-user-ID root by default. As a result of this, you need to install two .cf files. See steps 4 and 6 in this document. We also strongly recommend reading sendmail/SECURITY for more installation information. 1. Read all the README files noted in the INTRODUCTION section of the README file in this top-level directory. 2. Create any necessary site configuration build files, as noted in devtools/Site/README. 3. In the sendmail/ directory, run "sh ./Build" (see sendmail/README for details). 4. Change to the cf/cf/ directory (that's not a typo): Copy whichever .mc file best matches your environment to sendmail.mc. Next, tailor it as explained in cf/README. Then run "sh ./Build sendmail.cf". 5. Back up your current /etc/mail/sendmail.cf and the sendmail binary (whose location varies from operating system to operating system, but is usually in /usr/sbin or /usr/lib). 6. Install sendmail.cf as /etc/mail/sendmail.cf and submit.cf as /etc/mail/submit.cf. This can be done in the cf/cf by using "sh ./Build install-cf". Please read sendmail/SECURITY before continuing; you may have to create a new user smmsp and a new group smmsp for the default installation if you are updating from a really old version. Then install the sendmail binary built in step 3 by cd-ing back to sendmail/ and running "sh ./Build install". 7. For each of the associated sendmail utilities (makemap, mailstats, etc.), read the README in the utility's directory if it exists. When you are ready to install it, back up your installed version and type "sh ./Build install". 8. If you are upgrading from an older version of sendmail and are using any database maps, be sure to rebuild them with the new version of makemap, in case you are now using a different (and thereby incompatible) version of Berkeley DB. $Revision: 8.16 $, Last updated $Date: 2007-10-03 21:00:28 $ sendmail-8.18.1/contrib/0000755000372400037240000000000014556365434014432 5ustar xbuildxbuildsendmail-8.18.1/contrib/qtool.80000644000372400037240000001344414556365350015664 0ustar xbuildxbuild.\" Copyright (c) 1999, 2001-2002 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: qtool.8,v 8.21 2013-11-22 20:51:18 ca Exp $ .\" .TH QTOOL 8 "$Date: 2013-11-22 20:51:18 $" .SH NAME qtool \- manipulate sendmail queues .SH SYNOPSIS .B qtool.pl .RB [options] target_directory source [source ...] .PP .B qtool.pl [-Q][-d|-b] .RB [options] source [source ...] .SH DESCRIPTION .B Qtool moves the queue files used by sendmail between queues. It uses the same locking mechanism as sendmail so can be safely used while sendmail is running. However, it should not be used when queue groups have been configured to move queue files into directories to which they do not belong according to the queue group selections made in the sendmail.cf file. Unless you are absolutely sure you do not interfere with the queue group selection mechanism, do not move queue files around. .PP With no options, .B qtool will move any queue files as specified by \fIsource\fP into \fItarget_directory\fP. \fISource\fP can be either an individual queue control file, a queue file id, or a queue directory. .PP If the -d option is specified, qtool will delete the messages specified by source instead of moving them. .PP If the -b option is specified, the selected messages will be bounced by running sendmail with the -OTimeout.queuereturn=now option. .SS Options .TP \fB\-b\fP Bounce all of the messages specified by source. The messages will be bounced immediately. No attempt will be made to deliver the messages. .TP \fB\-C\fP configfile Specify the sendmail config file. Defaults to /etc/mail/sendmail.cf. .TP \fB\-d\fP Delete all of the messages specified by source. .TP \fB\-e\fP \fIperl_expression\fP Evaluate \fIperl_expression\fP for each queue file as specified by \fIsource\fP. If \fIperl_expression\fP evaluates to true, then that queue file is moved. See below for more detail on \fIperl_expression\fP. .TP \fB\-Q\fP Operate on quarantined items (queue control file begins with hf instead of qf). .TP \fB\-s\fP \fIseconds\fP Move only the queue files specified by \fIsource\fP that have a modification time older than \fIseconds\fP. .SS Perl Expressions You can use any valid perl expression. Inside the expression you have access to a hash that contains many of the fields in the control file as well as some other data about that queued message. The hash is called \fI%msg\fP. If a field has multiple values (e.g. 'Recipient'), it will be returned as an array, otherwise it will be returned as a scalar. Through \fI%msg\fP, you can access the following variables: .TP \fBauth\fP AUTH= parameter. .TP \fBbody_type\fP Body type (\fB8BITMIME\fP, \fB7BIT\fP, or undefined). .TP \fBbody_last_mod_time\fP The last time the body was modified since the epoch in seconds. .TP \fBbody_size\fP The size of the body file in bytes. .TP \fBcontent-length\fP Content-Length: header value (Solaris sendmail only). .TP \fBcontrolling_user\fP The controlling user. .TP \fBcontrol_last_mod_time\fP The last time the control file was modified since the epoch in seconds. .TP \fBcontrol_size\fP The size of the control file in bytes. .TP \fBcreation_time\fP The time when the control file was created. .TP \fBdata_file_name\fP The data file name (deprecated). .TP \fBdeliver_by\fP Deliver by flag and deadline for DELIVERBY ESMTP extension. .TP \fBenvid\fP Original envelope id form ESMTP. .TP \fBerror_recipient\fP The error recipient (deprecated). .TP \fBfinal_recipient\fP Final recipient (for DSNs). .TP \fBflags\fP Array of characters that can be the following values: .PD 0 .RS +8 .TP 8 w warning message has been sent .TP 8 r This is an error response or DSN .TP 8 8 has 8 bit data in body .TP 8 b delete Bcc: headers .TP 8 d envelope has DSN RET= parameter .TP 8 n don't return body .PD .RE .TP \fBheaders\fP This is a Perl hash where the keys are rfc822 field names and the values are rfc822 field values. If a field has only one value it will be returned as a string. If a field has more than one value (e.g. 'Received') it will be returned as a list of strings. .TP \fBinode_number\fP The inode number for the data (body) file. .TP \fBnext_delivery_time\fP Earliest time of next delivery attempt. .TP \fBnum_delivery_attempts\fP Number of delivery attempts that have been made. .TP \fBmacro\fP Defined macro. .TP \fBmessage\fP Envelope status message. .TP \fBoriginal_recipient\fP Original recipient (ORCPT= parameter). .TP \fBpriority\fP Adjusted priority of message. .TP \fBquarantine_reason\fP Quarantine reason for quarantined (held) envelopes. .TP \fBrecipient\fP Array of character flags followed by colon and recipient name. Flags: .PD 0 .RS +8 .TP 8 N Has NOTIFY= parameter. .TP 8 S Success DSN requested. .TP 8 F Failure DSN requested. .TP 8 D Delay DSN requested. .TP 8 P Primary address (not the result of alias/forward expansion). .PD .RE .TP \fBsender\fP Sender .TP \fBversion\fP Version of control file. .SH EXAMPLES .TP \fBqtool.pl q2 q1\fP Moves all of the queue files in queue q1 to queue q2. .TP \fBqtool.pl q2 q1/d6CLQh100847\fP Moves the message with id d6CLQh100847 in queue q1 to queue q2. .TP \fBqtool.pl q2 q1/qfd6CLQh100847\fP Moves the message with id d6CLQh100847 in queue q1 to queue q2. .TP \fBqtool.pl -e '$msg{num_delivery_attempts} == 3' /q2 /q1\fP Moves all of the queue files that have had three attempted deliveries from queue q1 to queue q2. .SH BUGS In sendmail 8.12, it is possible for a message's queue and data files (df) to be stored in different queues. In this situation, you must give qtool the pathname of the queue file, not of the data file (df). To be safe, never feed qtool the pathname of a data file (df). .SH SEE ALSO sendmail(8) .SH HISTORY The .B qtool command appeared in sendmail 8.10. sendmail-8.18.1/contrib/doublebounce.pl0000755000372400037240000001422714556365350017443 0ustar xbuildxbuild#!/usr/bin/perl # doublebounce.pl # # Return a doubly-bounced e-mail to postmaster. Specific to sendmail, # updated to work on sendmail 8.12.6. # # Based on the original doublebounce.pl code by jr@terra.net, 12/4/97. # Updated by bicknell@ufp.org, 12/4/2002 to understand new sendmail DSN # bounces. Code cleanup also performed, mainly making things more # robust. # # Original intro included below, lines with ## ## attempt to return a doubly-bounced email to a postmaster ## jr@terra.net, 12/4/97 ## ## invoke by creating an mail alias such as: ## doublebounce: "|/usr/local/sbin/doublebounce" ## then adding this line to your sendmail.cf: ## O DoubleBounceAddress=doublebounce ## ## optionally, add a "-d" flag in the aliases file, to send a ## debug trace to your own postmaster showing what is going on ## ## this allows the "postmaster" address to still go to a human being, ## while bounce messages can go to this script, which will bounce them ## back to the postmaster at the sending site. ## ## the algorithm is to scan the double-bounce error report generated ## by sendmail on stdin, for the original message (it starts after the ## second "Orignal message follows" marker), look for From, Sender, and ## Received headers from the point closest to the sender back to the point ## closest to us, and try to deliver a double-bounce report back to a ## postmaster at one of these sites in the hope that they can ## return the message to the original sender, or do something about ## the fact that that sender's return address is not valid. use Socket; use Getopt::Std; use File::Temp; use Sys::Syslog qw(:DEFAULT setlogsock); use strict; use vars qw( $opt_d $tmpfile); # parseaddr() # parse hostname from From: header # sub parseaddr { my($hdr) = @_; my($addr); if ($hdr =~ /<.*>/) { ($addr) = $hdr =~ m/<(.*)>/; $addr =~ s/.*\@//; return $addr; } if ($addr =~ /\s*\(/) { ($addr) = $hdr =~ m/\s*(.*)\s*\(/; $addr =~ s/.*\@//; return $addr; } ($addr) = $hdr =~ m/\s*(.*)\s*/; $addr =~ s/.*\@//; return $addr; } # sendbounce() # send bounce to postmaster # # this re-invokes sendmail in immediate and quiet mode to try # to deliver to a postmaster. sendmail's exit status tells us # whether the delivery attempt really was successful. # sub send_bounce { my($addr, $from) = @_; my($st); my($result); my($dest) = "postmaster\@" . parseaddr($addr); if ($opt_d) { syslog ('info', "Attempting to send to user $dest"); } open(MAIL, "| /usr/sbin/sendmail -oeq $dest"); print MAIL < Subject: Postmaster notify: double bounce Reply-To: nobody Errors-To: nobody Precedence: junk Auto-Submitted: auto-generated (postmaster notification) The following message was received for an invalid recipient. The sender's address was also invalid. Since the message originated at or transited through your mailer, this notification is being sent to you in the hope that you will determine the real originator and have them correct their From or Sender address. The from header on the original e-mail was: $from. ----- The following is a double bounce ----- EOT open(MSG, "<$tmpfile"); print MAIL ; close(MSG); $result = close(MAIL); if ($result) { syslog('info', 'doublebounce successfully sent to %s', $dest); } return $result; } sub main { # Get our command line options getopts('d'); # Set up syslog setlogsock('unix'); openlog('doublebounce', 'pid', 'mail'); if ($opt_d) { syslog('info', 'Processing a doublebounce.'); } # The bounced e-mail may be large, so we'd better not try to buffer # it in memory, get a temporary file. $tmpfile = tmpnam(); if (!open(MSG, ">$tmpfile")) { syslog('err', "Unable to open temporary file $tmpfile"); exit(75); # 75 is a temporary failure, sendmail should retry } print(MSG ); close(MSG); if (!open(MSG, "<$tmpfile")) { syslog('err', "Unable to reopen temporary file $tmpfile"); exit(74); # 74 is an IO error } # Ok, now we can get down to business, find the original message my($skip_lines, $in_header, $headers_found, @addresses); $skip_lines = 0; $in_header = 0; $headers_found = 0; while () { if ($skip_lines > 0) { $skip_lines--; next; } chomp; # Starting message depends on your version of sendmail if (/^ ----- Original message follows -----$/ || /^ ----Unsent message follows----$/ || /^Content-Type: message\/rfc822$/) { # Found the original message $skip_lines++; $in_header = 1; $headers_found++; next; } if (/^$/) { if ($headers_found >= 2) { # We only process two deep, even if there are more last; } if ($in_header) { # We've found the end of a header, scan for the next one $in_header = 0; } next; } if ($in_header) { if (! /^[ \t]/) { # New Header if (/^(received): (.*)/i || /^(reply-to): (.*)/i || /^(sender): (.*)/i || /^(from): (.*)/i ) { $addresses[$headers_found]{$1} = $2; } next; } else { # continuation header # we should really process these, but we don't yet next; } } else { # Nothing to do if we're not in a header next; } } close(MSG); # Start with the original (inner) sender my($addr, $sent); foreach $addr (keys %{$addresses[2]}) { if ($opt_d) { syslog('info', "Trying to send to $addresses[2]{$addr} - $addresses[2]{\"From\"}"); } $sent = send_bounce($addresses[2]{$addr}, $addresses[2]{"From"}); last if $sent; } if (!$sent && $opt_d) { if ($opt_d) { syslog('info', 'Unable to find original sender, falling back.'); } foreach $addr (keys %{$addresses[1]}) { if ($opt_d) { syslog('info', "Trying to send to $addresses[2]{$addr} - $addresses[2]{\"From\"}"); } $sent = send_bounce($addresses[1]{$addr}, $addresses[2]{"From"}); last if $sent; } if (!$sent) { syslog('info', 'Unable to find anyone to send a doublebounce notification'); } } unlink($tmpfile); } main(); exit(0); sendmail-8.18.1/contrib/passwd-to-alias.pl0000755000372400037240000000154314556365350020002 0ustar xbuildxbuild#!/bin/perl # # Convert GECOS information in password files to alias syntax. # # Contributed by Kari E. Hurtta # print "# Generated from passwd by $0\n"; $wordpat = '([a-zA-Z]+?[a-zA-Z0-9-]*)?[a-zA-Z0-9]'; # 'DB2' while (@a = getpwent) { ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = @a; ($fullname = $gcos) =~ s/,.*$//; if (!-d $dir || !-x $shell || $shell =~ m!/bin/(false|true)$!) { print "$name: root\n"; # handle pseudo user } $fullname =~ s/\.*[ _]+\.*/./g; $fullname =~ tr [] [aaeouAAOU]; # 1997-06-15 next if (!$fullname || lc($fullname) eq $name); # avoid nonsense if ($fullname =~ /^$wordpat(\.$wordpat)*$/o) { # Ulrich Windl print "$fullname: $name\n"; } else { print "# $fullname: $name\n"; # avoid strange names } }; endpwent; sendmail-8.18.1/contrib/mailprio0000644000372400037240000004602614556365350016176 0ustar xbuildxbuildReceived: from austin.bsdi.com (root{9l9gVDC7v8t3dlv0OtXTlby6X1zBWd56}@austin.BSDI.COM [205.230.224.49]) by knecht.Sendmail.ORG (8.8.2/8.8.2) with ESMTP id JAA05023 for ; Thu, 31 Oct 1996 09:29:47 -0800 (PST) Received: from austin.bsdi.com (localhost [127.0.0.1]) by austin.bsdi.com (8.7.4/8.7.3) with ESMTP id KAA19250; Thu, 31 Oct 1996 10:28:18 -0700 (MST) Message-Id: <199610311728.KAA19250@austin.bsdi.com> To: Eric Allman cc: marc@xfree86.org Subject: Updated mailprio_0_93.shar From: Tony Sanders Organization: Berkeley Software Design, Inc. Date: Thu, 31 Oct 1996 10:28:14 -0700 Sender: sanders@austin.bsdi.com Eric, please update contrib/mailprio in the sendmail distribution to this version at your convenience. Thanks. I've also made this available in: ftp://ftp.earth.com/pub/postmaster/ mailprio_0_93.shar follows... #!/bin/sh # This is a shell archive (produced by GNU sharutils 4.1). # To extract the files from this archive, save it to some FILE, remove # everything before the `!/bin/sh' line above, then type `sh FILE'. # # Made on 1996-10-31 10:07 MST by . # # Existing files will *not* be overwritten unless `-c' is specified. # # This shar contains: # length mode name # ------ ---------- ------------------------------------------ # 8260 -rwxr-xr-x mailprio # 3402 -rw-r--r-- mailprio.README # 4182 -rwxr-xr-x mailprio_mkdb # touch -am 1231235999 $$.touch >/dev/null 2>&1 if test ! -f 1231235999 && test -f $$.touch; then shar_touch=touch else shar_touch=: echo echo 'WARNING: not restoring timestamps. Consider getting and' echo "installing GNU \`touch', distributed in GNU File Utilities..." echo fi rm -f 1231235999 $$.touch # # ============= mailprio ============== if test -f 'mailprio' && test X"$1" != X"-c"; then echo 'x - skipping mailprio (file already exists)' else echo 'x - extracting mailprio (text)' sed 's/^X//' << 'SHAR_EOF' > 'mailprio' && #!/usr/bin/perl # # mailprio,v 1.4 1996/10/31 17:03:52 sanders Exp # Version 0.93 -- Thu Oct 31 09:42:25 MST 1996 # # mailprio -- setup mail priorities for a mailing list # # Copyright 1994, 1996, Tony Sanders # Rights are hereby granted to download, use, modify, sell, copy, and # redistribute this software so long as the original copyright notice # and this list of conditions remain intact and modified versions are # noted as such. # # I would also very much appreciate it if you could send me a copy of # any changes you make so I can possibly integrate them into my version. # # Options: # -p priority_database -- Specify database to use if not default # -q -- Process sendmail V8.8.X queue format files # # Sort mailing lists or sendmail queue files by mailprio database. # Files listed on the command line are locked and then sorted in place, in # the absence of any file arguments it will read STDIN and write STDOUT. # # Examples: # mailprio < mailing-list > sorted_list # mailprio mailing-list1 mailing-list2 mailing-list3 ... # mailprio -q /var/spool/mqueue/qf* # To double check results: # sort sorted_list > checkit; sort orig-mailing-list | diff - checkit # # To get the maximum value from a transaction delay based priority # function you need to reorder the distribution list (and the mail # queue files for that matter) fairly often; you could even have # your mailing list software reorder the list before each outgoing # message. # $usage = "Usage: mailprio [-p priodb] [-q] [mailinglists ...]\n"; $home = "/home/sanders/lists"; $priodb = "$home/mailprio"; $locking = "flock"; # "flock" or "fcntl" X # In shell, it would go more or less like this: # old_mailprio > /tmp/a # fgrep -f lists/inet-access /tmp/a | sed -e 's/^.......//' > /tmp/b # ; /tmp/b contains list of known users, faster delivery first # fgrep -v -f /tmp/b lists/inet-access > /tmp/c # ; put all unknown stuff at the top of new list for now # echo '# -----' >> /tmp/c # cat /tmp/b >> /tmp/c X $qflag = 0; while ($main'ARGV[0] =~ /^-/) { X $args = shift; X if ($args =~ m/\?/) { print $usage; exit 0; } X if ($args =~ m/q/) { $qflag = 1; } X if ($args =~ m/p/) { X $priodb = shift || die $usage, "-p requires argument\n"; } } X push(@main'ARGV, '-') if ($#ARGV < 0); while ($file = shift @ARGV) { X if ($file eq "-") { X $source = "main'STDIN"; X $sink = "main'STDOUT"; X } else { X $sink = $source = "FH"; X open($source, "+< $file") || do { warn "$file: $!\n"; next; }; X if (!defined &seize($source, &LOCK_EX | &LOCK_NB)) { X # couldn't get lock, just skip it X close($source); X next; X } X } X X local(*list); X &process($source, *list); X X # setup to write output X if ($file ne "-") { X # zero the file (FH is hardcoded because truncate requires it, sigh) X seek(FH, 0, 0) || die "$file: seek: $!\n"; X truncate(FH, 0) || die "$file: truncate: $!\n"; X } X X # do the dirty work X &output($sink, *list); X X close($sink) || warn "$file: $!\n"; # close clears the lock X close($source); } X sub process { X # Setup %list and @list X local($source, *list) = @_; X local($addr, $canon); X while ($addr = <$source>) { X chop $addr; X next if $addr =~ /^# ----- /; # that's our line X push(@list, $addr), next if $addr =~ /^\s*#/; # save comments X if ($qflag) { X next if $addr =~ m/^\./; X push(@list, $addr), next if !($addr =~ s/^(R[^:]*:)//); X $Rflags = $1; X } X $canon = &canonicalize((&simplify_address($addr))[0]); X unless (defined $canon) { X warn "$file: no address found: $addr\n"; X push(@list, ($qflag?$Rflags:'') . $addr); # save it as is X next; X } X if (defined $list{$canon}) { X warn "$file: duplicate: ``$addr -> $canon''\n"; X push(@list, ($qflag?$Rflags:'') . $addr); # save it as is X next; X } X $list{$canon} = $addr; X } } X sub output { X local($sink, *list) = @_; X X local($to, *prio, *userprio, *useracct); X dbmopen(%prio, $priodb, 0644) || die "$priodb: $!\n"; X foreach $to (keys %list) { X if (defined $prio{$to}) { X # add to list of found users (%userprio) and remove from %list X # so that we know what users were not yet prioritized X $userprio{$to} = $prio{$to}; # priority X $useracct{$to} = $list{$to}; # string X delete $list{$to}; X } X } X dbmclose(%prio); X X # Put all the junk we found at the very top X # (this might not always be a feature) X print $sink join("\n", @list), "\n" if int(@list); X X # prioritized list of users X if (int(keys %userprio)) { X print $sink '# ----- prioritized users', "\n" unless $qflag; X foreach $to (sort by_userprio keys %userprio) { X die "Opps! Something is seriously wrong with useracct: $to\n" X unless defined $useracct{$to}; X print $sink 'RFD:' if $qflag; X print $sink $useracct{$to}, "\n"; X } X } X X # unprioritized users go last, fast accounts will get moved up eventually X # XXX: should go before the "really slow" prioritized users? X if (int(keys %list)) { X print $sink '# ----- unprioritized users', "\n" unless $qflag; X foreach $to (keys %list) { X print $sink 'RFD:' if $qflag; X print $sink $list{$to}, "\n"; X } X } X X print $sink ".\n" if $qflag; } X sub by_userprio { X # sort first by priority, then by key. X $userprio{$a} <=> $userprio{$b} || $a cmp $b; } X # REPL-LIB --------------------------------------------------------------- X sub canonicalize { X local($addr) = @_; X # lowercase, strip leading/trailing whitespace X $addr =~ y/A-Z/a-z/; $addr =~ s/^\s+//; $addr =~ s/\s+$//; $addr; } X # @addrs = simplify_address($addr); sub simplify_address { X local($_) = shift; X 1 while s/\([^\(\)]*\)//g; # strip comments X 1 while s/"[^"]*"//g; # strip comments X split(/,/); # split into parts X foreach (@_) { X 1 while s/.*<(.*)>.*/\1/; X s/^\s+//; X s/\s+$//; X } X @_; } X ### ---- ### # # Error codes # do 'errno.ph'; eval 'sub ENOENT {2;}' unless defined &ENOENT; eval 'sub EINTR {4;}' unless defined &EINTR; eval 'sub EINVAL {22;}' unless defined &EINVAL; X # # File locking # do 'sys/unistd.ph'; eval 'sub SEEK_SET {0;}' unless defined &SEEK_SET; X do 'sys/file.ph'; eval 'sub LOCK_SH {0x01;}' unless defined &LOCK_SH; eval 'sub LOCK_EX {0x02;}' unless defined &LOCK_EX; eval 'sub LOCK_NB {0x04;}' unless defined &LOCK_NB; eval 'sub LOCK_UN {0x08;}' unless defined &LOCK_UN; X do 'fcntl.ph'; eval 'sub F_GETFD {1;}' unless defined &F_GETFD; eval 'sub F_SETFD {2;}' unless defined &F_SETFD; eval 'sub F_GETFL {3;}' unless defined &F_GETFL; eval 'sub F_SETFL {4;}' unless defined &F_SETFL; eval 'sub O_NONBLOCK {0x0004;}' unless defined &O_NONBLOCK; eval 'sub F_SETLK {8;}' unless defined &F_SETLK; # nonblocking eval 'sub F_SETLKW {9;}' unless defined &F_SETLKW; # lockwait eval 'sub F_RDLCK {1;}' unless defined &F_RDLCK; eval 'sub F_UNLCK {2;}' unless defined &F_UNLCK; eval 'sub F_WRLCK {3;}' unless defined &F_WRLCK; $s_flock = "sslll"; # struct flock {type, whence, start, len, pid} X # return undef on failure sub seize { X local ($FH, $lock) = @_; X local ($ret); X if ($locking eq "flock") { X $ret = flock($FH, $lock); X return ($ret == 0 ? undef : 1); X } else { X local ($flock, $type) = 0; X if ($lock & &LOCK_SH) { $type = &F_RDLCK; } X elsif ($lock & &LOCK_EX) { $type = &F_WRLCK; } X elsif ($lock & &LOCK_UN) { $type = &F_UNLCK; } X else { $! = &EINVAL; return undef; } X $flock = pack($s_flock, $type, &SEEK_SET, 0, 0, 0); X $ret = fcntl($FH, ($lock & &LOCK_NB) ? &F_SETLK : &F_SETLKW, $flock); X return ($ret == -1 ? undef : 1); X } } SHAR_EOF $shar_touch -am 1031100396 'mailprio' && chmod 0755 'mailprio' || echo 'restore of mailprio failed' shar_count="`wc -c < 'mailprio'`" test 8260 -eq "$shar_count" || echo "mailprio: original size 8260, current size $shar_count" fi # ============= mailprio.README ============== if test -f 'mailprio.README' && test X"$1" != X"-c"; then echo 'x - skipping mailprio.README (file already exists)' else echo 'x - extracting mailprio.README (text)' sed 's/^X//' << 'SHAR_EOF' > 'mailprio.README' && mailprio README X mailprio.README,v 1.2 1996/10/31 17:03:54 sanders Exp Version 0.93 -- Thu Oct 31 09:42:25 MST 1996 X Copyright 1994, 1996, Tony Sanders Rights are hereby granted to download, use, modify, sell, copy, and redistribute this software so long as the original copyright notice and this list of conditions remain intact and modified versions are noted as such. X I would also very much appreciate it if you could send me a copy of any changes you make so I can possibly integrate them into my version. X The current version of this and other related mail tools are available in: X ftp://ftp.earth.com/pub/postmaster/ X Even with the new persistent host status in sendmail V8.8.X this function can still reduce the lag time distributing mail to a large group of people. It also makes it a little more likely that everyone will get mailing list mail in the order sent which can help reduce duplicate postings. Basically, the goal is to put slow hosts at the bottom of the list so that as many fast hosts are delivered as quickly as possible. X CONTENTS ======== X X mailprio.README -- simple docs X mailprio -- the address sorter X mailprio_mkdb -- builds the database for the sorter X X CHANGES ======= X Version 0.92 X Initial public release. X X Version 0.93 X Updated to make use of the (somewhat) new xdelay statistic. X Changed -q flag to support new sendmail queue file format (RFD:). X Fixed argument parsing bug. X Fixed bug with database getting "garbage" in it. X X CONFIGURATION ============= X X You need to edit each script and ensure proper configuration. X X In mailprio check: #!perl path, $home, $priodb, $locking X X In mailprio_mkdb check: #!perl path, $home, $priodb, $maillog X X USAGE: mailprio =============== X X Usage: mailprio [-p priodb] [-q] [mailinglists ...] X -p priority_database -- Specify database to use if not default X -q -- Process sendmail queue format files X [USE WITH CAUTION] X X Sort mailing lists or sendmail V8 queue files by mailprio database. X Files listed on the command line are locked and then sorted in place, in X the absence of any file arguments it will read STDIN and write STDOUT. X X Examples: X mailprio < mailing-list > sorted_list X mailprio mailing-list1 mailing-list2 mailing-list3 ... X mailprio -q /var/spool/mqueue/qf* [not recommended] X To double check results: X sort sorted_list > checkit; sort orig-mailing-list | diff - checkit X X NOTE: X To get the maximum value from a transaction delay based priority X function you need to reorder the distribution list (and the mail X queue files for that matter) fairly often; you could even have X your mailing list software reorder the list before each outgoing X message. X X USAGE: mailprio_mkdb ==================== X X Usage: mailprio_mkdb [-l maillog] [-p priodb] X -l maillog -- Specify maillog to process if not default X -p priority_database -- Specify database to use if not default X X Builds the mail priority database using information from the maillog. X X Run at least nightly before you rotate the maillog. If you are X going to run mailprio more often than that then you will need to X load the current maillog information before that will do any good X (and to keep from reloading the same information you will need X some kind of incremental maillog information to load from). SHAR_EOF $shar_touch -am 1031100396 'mailprio.README' && chmod 0644 'mailprio.README' || echo 'restore of mailprio.README failed' shar_count="`wc -c < 'mailprio.README'`" test 3402 -eq "$shar_count" || echo "mailprio.README: original size 3402, current size $shar_count" fi # ============= mailprio_mkdb ============== if test -f 'mailprio_mkdb' && test X"$1" != X"-c"; then echo 'x - skipping mailprio_mkdb (file already exists)' else echo 'x - extracting mailprio_mkdb (text)' sed 's/^X//' << 'SHAR_EOF' > 'mailprio_mkdb' && #!/usr/bin/perl # # mailprio_mkdb,v 1.5 1996/10/31 17:03:53 sanders Exp # Version 0.93 -- Thu Oct 31 09:42:25 MST 1996 # # mailprio_mkdb -- make mail priority database based on delay times # # Copyright 1994, 1996, Tony Sanders # Rights are hereby granted to download, use, modify, sell, copy, and # redistribute this software so long as the original copyright notice # and this list of conditions remain intact and modified versions are # noted as such. # # I would also very much appreciate it if you could send me a copy of # any changes you make so I can possibly integrate them into my version. # # The average function moves the value around quite rapidly (half-steps) # which may or may not be a feature. This version uses the new xdelay # statistic (new as of sendmail V8) which is per transaction. We also # weight the result based on the overall delay. # # Something that might be worth doing for systems that don't support # xdelay would be to compute an approximation of the transaction delay # by sorting by messages-id and delay then computing the difference # between adjacent delay values. # # To get the maximum value from a transaction delay based priority # function you need to reorder the distribution list (and the mail # queue files for that matter) fairly often; you could even have # your mailing list software reorder the list before each outgoing # message. X $usage = "Usage: mailprio_mkdb [-l maillog] [-p priodb]\n"; $home = "/home/sanders/lists"; $maillog = "/var/log/maillog"; $priodb = "$home/mailprio"; X while ($ARGV[0] =~ /^-/) { X $args = shift; X if ($args =~ m/\?/) { print $usage; exit 0; } X if ($args =~ m/l/) { X $maillog = shift || die $usage, "-l requires argument\n"; } X if ($args =~ m/p/) { X $priodb = shift || die $usage, "-p requires argument\n"; } } X $SIG{'PIPE'} = 'handle_pipe'; X # will merge with existing information dbmopen(%prio, $priodb, 0644) || die "$priodb: $!\n"; &getlog_stats($maillog, *prio); dbmclose(%prio); exit(0); X sub handle_pipe { X dbmclose(%prio); } X sub getlog_stats { X local($maillog, *stats) = @_; X local($to, $delay); X local($h, $m, $s); X open(MAILLOG, "< $maillog") || die "$maillog: $!\n"; X while () { X next unless / to=/ && / stat=/; X next if / stat=queued/; X if (/ stat=sent/i) { X # read delay and xdelay and convert to seconds X ($delay) = (m/ delay=([^,]*),/); X next unless $delay; X ($h, $m, $s) = split(/:/, $delay); X $delay = ($h * 60 * 60) + ($m * 60) + $s; X X ($xdelay) = (m/ xdelay=([^,]*),/); X next unless $xdelay; X ($h, $m, $s) = split(/:/, $xdelay); X $xdelay = ($h * 60 * 60) + ($m * 60) + $s; X X # Now weight the delay factor by the transaction delay (xdelay). X $xdelay /= 300; # [0 - 1(@5 min)] X $xdelay += 0.5; # [0.5 - 1.5] X $xdelay = 1.5 if $xdelay > 1.5; # clamp X $delay *= $xdelay; # weight delay by xdelay X } X elsif (/, stat=/) { X # delivery failure of some sort (i.e. bad) X $delay = 432000; # force 5 days X } X $delay = 1000000 if $delay > 1000000; X X # filter the address(es); isn't perfect but is "good enough" X $to = $_; $to =~ s/^.* to=//; X 1 while $to =~ s/\([^\(\)]*\)//g; # strip comments X 1 while $to =~ s/"[^"]*"//g; # strip comments X $to =~ s/, .*//; # remove other stat info X foreach $addr (&simplify_address($to)) { X next unless $addr; X $addr = &canonicalize($addr); X $stats{$addr} = $delay unless defined $stats{$addr}; # init X # pseudo-average in the new delay (half-steps) X # simple, moving average X $stats{$addr} = int(($stats{$addr} + $delay) / 2); X } X } X close(MAILLOG); } X # REPL-LIB --------------------------------------------------------------- X sub canonicalize { X local($addr) = @_; X # lowercase, strip leading/trailing whitespace X $addr =~ y/A-Z/a-z/; $addr =~ s/^\s+//; $addr =~ s/\s+$//; $addr; } X # @addrs = simplify_address($addr); sub simplify_address { X local($_) = shift; X 1 while s/\([^\(\)]*\)//g; # strip comments X 1 while s/"[^"]*"//g; # strip comments X split(/,/); # split into parts X foreach (@_) { X 1 while s/.*<(.*)>.*/\1/; X s/^\s+//; X s/\s+$//; X } X @_; } SHAR_EOF $shar_touch -am 1031100396 'mailprio_mkdb' && chmod 0755 'mailprio_mkdb' || echo 'restore of mailprio_mkdb failed' shar_count="`wc -c < 'mailprio_mkdb'`" test 4182 -eq "$shar_count" || echo "mailprio_mkdb: original size 4182, current size $shar_count" fi exit 0 sendmail-8.18.1/contrib/etrn.00000644000372400037240000000344514556365350015466 0ustar xbuildxbuildSystem Administration Commands etrn(1M) NAME etrn - start mail queue run SYNOPSIS etrn [-v] server-host [client-hosts] DESCRIPTION SMTP's ETRN command allows an SMTP client and server to interact, giving the server an opportunity to start the pro cessing of its queues for messages to go to a given host. This is meant to be used in start-up conditions, as well as for mail nodes that have transient connections to their ser vice providers. The etrn utility initiates an SMTP session with the host server-host and sends one or more ETRN commands as follows: If no client-hosts are specified, etrn looks up every host name for which sendmail(1M) accepts email and, for each name, sends an ETRN command with that name as the argument. If any client-hosts are specified, etrn uses each of these as arguments for successive ETRN commands. OPTIONS The following option is supported: -v The normal mode of operation for etrn is to do all of its work silently. The -v option makes it verbose, which causes etrn to display its conversations with the remote SMTP server. ENVIRONMENT No environment variables are used. FILES /etc/mail/sendmail.cf sendmail configuration file SEE ALSO sendmail(1M), RFC 1985. CAVEATS Not all SMTP servers support ETRN. CREDITS Leveraged from David Muir Sharnoff's expn.pl script. Chris tian von Roques added support for args and fixed a couple of bugs. AVAILABILITY The latest version of etrn is available in the contrib directory of the sendmail distribution through anonymous ftp at ftp://ftp.sendmail.org/ucb/src/sendmail/. AUTHOR John T. Beck sendmail-8.18.1/contrib/AuthRealm.p00000644000372400037240000000257514556365350016563 0ustar xbuildxbuildPatch from John Marshall (slightly modified). Modified for 8.16.1 by Anne Bennett. --- a/sendmail/srvrsmtp.c 2020-09-28 17:51:12.497535563 -0400 +++ b/sendmail/srvrsmtp.c 2020-09-28 18:21:30.482890337 -0400 @@ -116,7 +116,7 @@ do \ { \ RESET_AUTH_FAIL_LOG_USER; \ - result = reset_saslconn(&conn, AuthRealm, remoteip, \ + result = reset_saslconn(&conn, hostname, remoteip, \ localip, auth_id, &ext_ssf); \ if (result != SASL_OK) \ sasl_ok = false; \ @@ -1018,8 +1018,6 @@ e->e_features = features; hostname = macvalue('j', e); #if SASL - if (AuthRealm == NULL) - AuthRealm = hostname; sasl_ok = bitset(SRV_OFFER_AUTH, features); n_mechs = 0; authenticating = SASL_NOT_AUTH; @@ -1028,8 +1026,8 @@ if (sasl_ok) { # if SASL >= 20000 - result = sasl_server_new("smtp", AuthRealm, NULL, NULL, NULL, - NULL, 0, &conn); + result = sasl_server_new("smtp", hostname, AuthRealm, NULL, + NULL, NULL, 0, &conn); # elif SASL > 10505 /* use empty realm: only works in SASL > 1.5.5 */ result = sasl_server_new("smtp", AuthRealm, "", NULL, 0, &conn); @@ -5559,7 +5557,7 @@ sasl_dispose(conn); # if SASL >= 20000 - result = sasl_server_new("smtp", hostname, NULL, NULL, NULL, + result = sasl_server_new("smtp", hostname, AuthRealm, NULL, NULL, NULL, 0, conn); # elif SASL > 10505 /* use empty realm: only works in SASL > 1.5.5 */ sendmail-8.18.1/contrib/domainmap.m40000644000372400037240000001037614556365350016645 0ustar xbuildxbuilddivert(-1)changequote(<<, >>)<< ----------------------------------------------------------------------------- FEATURE(domainmap) Macro The existing virtusertable feature distributed with sendmail is a good basic approach to virtual hosting, but it is missing a few key features: 1. Ability to have a different map for each domain. 2. Ability to perform virtual hosting for domains which are not in $=w. 3. Ability to use a centralized network-accessible database (such as PH) which is keyed on username alone (as opposed to the fully-qualified email address). The FEATURE(domainmap) macro neatly solves these problems. The basic syntax of the macro is: FEATURE(domainmap, `domain.com', `map definition ...')dnl To illustrate how it works, here is an example: FEATURE(domainmap, `foo.com', `dbm -o /etc/mail/foo-users')dnl In this example, mail sent to user@foo.com will be rewritten by the domainmap. The username will be looked up in the DBM map /etc/mail/foo-users, which looks like this: jsmith johnsmith@mailbox.foo.com jdoe janedoe@sandbox.bar.com So mail sent to jsmith@foo.com will be relayed to johnsmith@mailbox.foo.com, and mail sent to jdoe@foo.com will be relayed to janedoe@sandbox.bar.com. The FEATURE(domainmap) Macro supports the user+detail syntax by stripping off the +detail portion before the domainmap lookup and tacking it back on to the result. Using the example above, mail sent to jsmith+sometext@foo.com will be rewritten as johnsmith+sometext@mailbox.foo.com. If one of the elements in the $=w class (i.e., "local" delivery hosts) is a domain specified in a FEATURE(domainmap) entry, you need to use the LOCAL_USER(username) macro to specify the list of users for whom domainmap lookups should not be done. To use this macro, simply copy this file into the cf/feature directory in the sendmail source tree. For more information, please see the following URL: http://www-dev.cites.uiuc.edu/sendmail/domainmap/ Feedback is welcome. Mark D. Roth ----------------------------------------------------------------------------- >>changequote(`, ')undivert(-1)divert ifdef(`_DOMAIN_MAP_',`',`dnl LOCAL_RULE_0 # do mapping for domains where applicable R$* $=O $* <@ $={MappedDomain} .> $@ $>Recurse $1 $2 $3 Strip extraneous routing R$+ <@ $={MappedDomain} .> $>DomainMapLookup $1 <@ $2 .> domain mapping LOCAL_RULESETS ########################################################################### ### Ruleset DomainMapLookup -- special rewriting for mapped domains ### ########################################################################### SDomainMapLookup R $=L <@ $=w .> $@ $1 <@ $2 .> weed out local users, in case # Cw contains a mapped domain R $+ <@ $+> $: $1 <@ $2 > <$&{addr_type}> check if sender R $+ <@ $+> $#smtp $@ $2 $: $1 @ $2 do not process sender ifdef(`DOMAINMAP_NO_REGEX',`dnl R $+ <@ $+> <$*> $: $1 <@ $2> <$2> find domain R $+ <$+> <$+ . $+> $1 <$2> < $(dequote $3 "_" $4 $) > # change "." to "_" R $+ <$+> <$+ .> $: $1 <$2> < $(dequote "domain_" $3 $) > # prepend "domain_" dnl',`dnl R $+ <@ $+> <$*> $: $1 <@ $2> <$2 :NOTDONE:> find domain R $+ <$+> <$+ . :NOTDONE:> $1 <$2> < $(domainmap_regex $3 $: $3 $) > # change "." and "-" to "_" R $+ <$+> <$+> $: $1 <$2> < $(dequote "domain_" $3 $) > # prepend "domain_" dnl') R $+ <$+> <$+> $: $1 <$2> <$3> $1 find user name R $+ <$+> <$+> $+ + $* $: $1 <$2> <$3> $4 handle user+detail syntax R $+ <$+> <$+> $+ $: $1 <$2> $( $3 $4 $: $) # do actual domain map lookup R $+ <$+> $#error $@ 5.1.1 $: "550 email address lookup in domain map failed" R $+ <@ $+> $* $* $#dsmtp $@ localhost $: $1 @ $2 # queue it up for later delivery R $+ + $* <$+> $+ @ $+ $: $1 + $2 <$3> $4 + $2 @ $5 # reset original user+detail R $+ <$+> $+ $@ $>Recurse $3 recanonify ifdef(`DOMAINMAP_NO_REGEX',`',`dnl LOCAL_CONFIG K domainmap_regex regex -a.:NOTDONE: -s1,2 -d_ (.*)[-\.]([^-\.]*)$ ')define(`_DOMAIN_MAP_',`1')') LOCAL_CONFIG C{MappedDomain} _ARG_ K `domain_'translit(_ARG_, `.-', `__') _ARG2_ -T sendmail-8.18.1/contrib/rmail.oldsys.patch0000644000372400037240000000627114556365350020076 0ustar xbuildxbuildFrom: Bill Gianopoulos Message-Id: <199405191527.LAA03463@sccux1.msd.ray.com> Subject: Patch to rmail to elliminate need for snprintf To: sendmail@CS.Berkeley.EDU Date: Thu, 19 May 1994 11:27:16 -0400 (EDT) I have written the following patch to rmail which removes the requirement for snprintf while maintaining the protection from buffer overruns. It also fixes it to compile with compilers which don't understand ANSI function prototypes. Perhaps this should be included in the next version? *** rmail/rmail.c.orig Mon May 31 18:10:44 1993 --- rmail/rmail.c Thu May 19 11:04:50 1994 *************** *** 78,86 **** --- 78,109 ---- #include #include + #ifdef __STDC__ void err __P((int, const char *, ...)); void usage __P((void)); + #else + void err (); + void usage (); + #endif + #define strdup(s) strcpy(xalloc(strlen(s) + 1), s) + + char * + xalloc(sz) + register int sz; + { + register char *p; + + /* some systems can't handle size zero mallocs */ + if (sz <= 0) + sz = 1; + + p = malloc((unsigned) sz); + if (p == NULL) + err(EX_UNAVAILABLE, "Out of memory!!"); + return (p); + } + int main(argc, argv) int argc; *************** *** 230,250 **** args[i++] = "-oi"; /* Ignore '.' on a line by itself. */ if (from_sys != NULL) { /* Set sender's host name. */ ! if (strchr(from_sys, '.') == NULL) ! (void)snprintf(buf, sizeof(buf), "-oMs%s.%s", from_sys, domain); ! else ! (void)snprintf(buf, sizeof(buf), "-oMs%s", from_sys); if ((args[i++] = strdup(buf)) == NULL) err(EX_TEMPFAIL, NULL); } /* Set protocol used. */ ! (void)snprintf(buf, sizeof(buf), "-oMr%s", domain); if ((args[i++] = strdup(buf)) == NULL) err(EX_TEMPFAIL, NULL); /* Set name of ``from'' person. */ ! (void)snprintf(buf, sizeof(buf), "-f%s%s", from_path ? from_path : "", from_user); if ((args[i++] = strdup(buf)) == NULL) err(EX_TEMPFAIL, NULL); --- 253,285 ---- args[i++] = "-oi"; /* Ignore '.' on a line by itself. */ if (from_sys != NULL) { /* Set sender's host name. */ ! if (strchr(from_sys, '.') == NULL) { ! if ((strlen(from_sys) + strlen(domain) + 6) ! > sizeof(buf)) ! err(EX_DATAERR, "sender hostname too long"); ! (void)sprintf(buf, "-oMs%s.%s", from_sys, domain); ! } ! else { ! if ((strlen(from_sys) + 5) > sizeof(buf)) ! err(EX_DATAERR ,"sender hostname too long"); ! (void)sprintf(buf, "-oMs%s", from_sys); ! } if ((args[i++] = strdup(buf)) == NULL) err(EX_TEMPFAIL, NULL); } /* Set protocol used. */ ! if ((strlen(domain) + 5) > sizeof(buf)) ! err(EX_DATAERR, "protocol name too long"); ! (void)sprintf(buf, "-oMr%s", domain); if ((args[i++] = strdup(buf)) == NULL) err(EX_TEMPFAIL, NULL); /* Set name of ``from'' person. */ ! if (((from_path ? strlen(from_path) : 0) + strlen(from_user) + 3) ! > sizeof(buf)) ! err(EX_DATAERR, "from address too long"); ! (void)sprintf(buf, "-f%s%s", from_path ? from_path : "", from_user); if ((args[i++] = strdup(buf)) == NULL) err(EX_TEMPFAIL, NULL); -- William A. Gianopoulos; Raytheon Missile Systems Division wag@sccux1.msd.ray.com sendmail-8.18.1/contrib/re-mqueue.pl0000755000372400037240000002223214556365350016675 0ustar xbuildxbuild#!/usr/bin/perl # # re-mqueue -- requeue messages from queueA to queueB based on age. # # Contributed by Paul Pomes . # http://www.qualcomm.com/~ppomes/ # # Usage: re-mqueue [-d] queueA queueB seconds # # -d enable debugging # queueA source directory # queueB destination directory # seconds select files older than this number of seconds # # Example: re-mqueue /var/spool/mqueue /var/spool/mqueue2 2700 # # Moves the qf* and df* files for a message from /var/spool/mqueue to # /var/spool/mqueue2 if the df* file is over 2700 seconds old. # # The qf* file can't be used for age checking as it's partially re-written # with the results of the last queue run. # # Rationale: With a limited number of sendmail processes allowed to run, # messages that can't be delivered immediately slow down the ones that can. # This becomes especially important when messages are being queued instead # of delivered right away, or when the queue becomes excessively deep. # By putting messages that have already failed one or more delivery attempts # into another queue, the primary queue can be kept small and fast. # # On postoffice.cso.uiuc.edu, the primary sendmail daemon runs the queue # every thirty minutes. Messages over 45 minutues old are moved to # /var/spool/mqueue2 where sendmail runs every hour. Messages more than # 3.25 hours old are moved to /var/spool/mqueue3 where sendmail runs every # four hours. Messages more than a day old are moved to /var/spool/mqueue4 # where sendmail runs three times a day. The idea is that a message is # tried at least twice in the first three queues before being moved to the # old-age ghetto. # # (Each must be re-formed into a single line before using in crontab) # # 08 * * * * /usr/local/libexec/re-mqueue /var/spool/mqueue ## /var/spool/mqueue2 2700 # 11 * * * * /usr/lib/sendmail -oQ/var/spool/mqueue2 -q > ## > /var/log/mqueue2 2>&1 # 38 * * * * /usr/local/libexec/re-mqueue /var/spool/mqueue2 # /var/spool/mqueue3 11700 # 41 1,5,9,13,17,21 * * * /usr/lib/sendmail -oQ/var/spool/mqueue3 -q ## > /var/log/mqueue3 2>&1 # 48 * * * * /usr/local/libexec/re-mqueue /var/spool/mqueue3 # /var/spool/mqueue4 100000 #53 3,11,19 * * * /usr/lib/sendmail -oQ/var/spool/mqueue4 -q > ## > /var/log/mqueue4 2>&1 # # # N.B., the moves are done with link(). This has two effects: 1) the mqueue* # directories must all be on the same filesystem, and 2) the file modification # times are not changed. All times must be cumulative from when the df* # file was created. # # Copyright (c) 1995 University of Illinois Board of Trustees and Paul Pomes # All rights reserved. # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: # 1. Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer. # 2. Redistributions in binary form must reproduce the above copyright # notice, this list of conditions and the following disclaimer in the # documentation and/or other materials provided with the distribution. # 3. All advertising materials mentioning features or use of this software # must display the following acknowledgement: # This product includes software developed by the University of # Illinois at Urbana and their contributors. # 4. Neither the name of the University nor the names of their contributors # may be used to endorse or promote products derived from this software # without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE TRUSTEES AND CONTRIBUTORS ``AS IS'' AND # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # ARE DISCLAIMED. IN NO EVENT SHALL THE TRUSTEES OR CONTRIBUTORS BE LIABLE # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # # @(#)$OrigId: re-mqueue,v 1.3 1995/05/25 18:14:53 p-pomes Exp $ # # Updated by Graeme Hewson May 1999 # # 'use Sys::Syslog' for Perl 5 # Move transcript (xf) files if they exist # Allow zero-length df files (empty message body) # Preserve $! for error messages # # Updated by Graeme Hewson April 2000 # # Improve handling of race between re-mqueue and sendmail # # Updated by Graeme Hewson June 2000 # # Don't exit(0) at end so can be called as subroutine # # NB This program can't handle separate qf/df/xf subdirectories # as introduced in sendmail 8.10.0. # use Sys::Syslog; $LOCK_EX = 2; $LOCK_NB = 4; $LOCK_UN = 8; # Count arguments, exit if wrong in any way. die "Usage: $0 [-d] queueA queueB seconds\n" if ($#ARGV < 2); while ($_ = $ARGV[0], /^-/) { shift; last if /^--$/; /^-d/ && $debug++; } $queueA = shift; $queueB = shift; $age = shift; die "$0: $queueA not a directory\n" if (! -d $queueA); die "$0: $queueB not a directory\n" if (! -d $queueB); die "$0: $age isn't a valid number of seconds for age\n" if ($age =~ /\D/); # chdir to $queueA and read the directory. When a df* file is found, stat it. # If it's older than $age, lock the corresponding qf* file. If the lock # fails, give up and move on. Once the lock is obtained, verify that files # of the same name *don't* already exist in $queueB and move on if they do. # Otherwise re-link the qf* and df* files into $queueB then release the lock. chdir "$queueA" || die "$0: can't cd to $queueA: $!\n"; opendir (QA, ".") || die "$0: can't open directory $queueA for reading: $!\n"; @dfiles = grep(/^df/, readdir(QA)); $now = time(); ($program = $0) =~ s,.*/,,; &openlog($program, 'pid', 'mail'); # Loop through the dfiles while ($dfile = pop(@dfiles)) { print "Checking $dfile\n" if ($debug); ($qfile = $dfile) =~ s/^d/q/; ($xfile = $dfile) =~ s/^d/x/; ($mfile = $dfile) =~ s/^df//; if (! -e $qfile || -z $qfile) { print "$qfile is gone or zero bytes - skipping\n" if ($debug); next; } ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($dfile); if (! defined $mtime) { print "$dfile is gone - skipping\n" if ($debug); next; } # Compare timestamps if (($mtime + $age) > $now) { printf ("%s is %d seconds old - skipping\n", $dfile, $now-$mtime) if ($debug); next; } # See if files of the same name already exist in $queueB if (-e "$queueB/$dfile") { print "$queueb/$dfile already exists - skipping\n" if ($debug); next; } if (-e "$queueB/$qfile") { print "$queueb/$qfile already exists - skipping\n" if ($debug); next; } if (-e "$queueB/$xfile") { print "$queueb/$xfile already exists - skipping\n" if ($debug); next; } # Try and lock qf* file unless (open(QF, ">>$qfile")) { print "$qfile: $!\n" if ($debug); next; } $retval = flock(QF, $LOCK_EX|$LOCK_NB) || ($retval = -1); if ($retval == -1) { print "$qfile already flock()ed - skipping\n" if ($debug); close(QF); next; } print "$qfile now flock()ed\n" if ($debug); # Check df* file again in case sendmail got in if (! -e $dfile) { print "$mfile sent - skipping\n" if ($debug); # qf* file created by ourselves at open? (Almost certainly) if (-z $qfile) { unlink($qfile); } close(QF); next; } # Show time! Do the link()s if (link("$dfile", "$queueB/$dfile") == 0) { $bang = $!; &syslog('err', 'link(%s, %s/%s): %s', $dfile, $queueB, $dfile, $bang); print STDERR "$0: link($dfile, $queueB/$dfile): $bang\n"; exit (1); } if (link("$qfile", "$queueB/$qfile") == 0) { $bang = $!; &syslog('err', 'link(%s, %s/%s): %s', $qfile, $queueB, $qfile, $bang); print STDERR "$0: link($qfile, $queueB/$qfile): $bang\n"; unlink("$queueB/$dfile"); exit (1); } if (-e "$xfile") { if (link("$xfile", "$queueB/$xfile") == 0) { $bang = $!; &syslog('err', 'link(%s, %s/%s): %s', $xfile, $queueB, $xfile, $bang); print STDERR "$0: link($xfile, $queueB/$xfile): $bang\n"; unlink("$queueB/$dfile"); unlink("$queueB/$qfile"); exit (1); } } # Links created successfully. Unlink the original files, release the # lock, and close the file. print "links ok\n" if ($debug); if (unlink($qfile) == 0) { $bang = $!; &syslog('err', 'unlink(%s): %s', $qfile, $bang); print STDERR "$0: unlink($qfile): $bang\n"; exit (1); } if (unlink($dfile) == 0) { $bang = $!; &syslog('err', 'unlink(%s): %s', $dfile, $bang); print STDERR "$0: unlink($dfile): $bang\n"; exit (1); } if (-e "$xfile") { if (unlink($xfile) == 0) { $bang = $!; &syslog('err', 'unlink(%s): %s', $xfile, $bang); print STDERR "$0: unlink($xfile): $bang\n"; exit (1); } } flock(QF, $LOCK_UN); close(QF); &syslog('info', '%s moved to %s', $mfile, $queueB); print "Done with $dfile $qfile\n\n" if ($debug); } sendmail-8.18.1/contrib/socketmapServer.pl0000755000372400037240000000426614556365350020154 0ustar xbuildxbuild#!/usr/bin/perl -w # # Contributed by Bastiaan Bakker for SOCKETMAP # $Id: socketmapServer.pl,v 1.1 2003-05-21 15:36:33 ca Exp $ use strict; use IO::Socket; die "usage: $0 " if (@ARGV < 1); my $connection = shift @ARGV; my $sock; if ($connection =~ /tcp:(.+):([0-9]*)/) { $sock = new IO::Socket::INET ( LocalAddr => $1, LocalPort => $2, Proto => 'tcp', Listen => 32, ReuseAddr => 1 ); } elsif ($connection =~ /((unix)|(local)):(.+)/) { unlink($4); $sock = new IO::Socket::UNIX ( Type => SOCK_STREAM, Local => $4, Listen => 32 ); } else { die "unrecognized connection specification $connection"; } while(my $client = $sock->accept()) { my $childpid = fork(); if ($childpid) { $client->close(); } else { die "can't fork $!" unless defined($childpid); $sock->close(); handleConnection($client); $client->close(); exit; } } $sock->close(); sub handleConnection { my $client = shift; $client->autoflush(1); while(!eof($client)) { eval { my $request = netstringRead($client); my ($mapName, $key) = split(' ', $request); my $value = mapLookup($mapName, $key); my $result = (defined($value)) ? "OK $value" : "NOTFOUND"; netstringWrite($client, $result); }; if ($@) { print STDERR "$@\n"; last; } } } sub mapLookup { my %mapping = ('bastiaan.bakker@example.com' => 'bastiaan', 'wolter.eldering@example.com' => 'wolter@other.example.com'); my $mapName = shift; my $key = shift; my $value = ($mapName eq "virtuser") ? $mapping{$key} : undef; return $value; } sub netstringWrite { my $sock = shift; my $data = shift; print $sock length($data).':'.$data.','; } sub netstringRead { my $sock = shift; my $saveSeparator = $/; $/ = ':'; my $dataLength = <$sock>; die "cannot read netstring length" unless defined($dataLength); chomp $dataLength; my $data; if ($sock->read($data, $dataLength) == $dataLength) { ($sock->getc() eq ',') or die "data misses closing ,"; } else { die "received only ".length($data)." of $dataLength bytes"; } $/ = $saveSeparator; return $data; } sendmail-8.18.1/contrib/buildvirtuser0000755000372400037240000001443314556365350017265 0ustar xbuildxbuild#!/usr/bin/perl -w # Copyright (c) 1999-2004, 2007 Gregory Neil Shapiro. All Rights Reserved. # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: # # 1. Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer. # 2. Redistributions in binary form must reproduce the above copyright # notice, this list of conditions and the following disclaimer in the # documentation and/or other materials provided with the distribution. # 3. Neither the name of the author nor the names of its contributors # may be used to endorse or promote products derived from this software # without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # $Id: buildvirtuser,v 1.8 2007-10-08 18:44:15 gshapiro Exp $ =head1 NAME buildvirtuser - Build virtusertable support from a directory of files =head1 SYNOPSIS buildvirtuser [-f] [-t] =head1 DESCRIPTION buildvirtuser will build /etc/mail/virtusertable.db and /etc/mail/virthosts based on the contents of the directory /etc/mail/virtusers/. That directory should contain one file per virtual domain with the filename matching the virtual domain name and the contents containing a list of usernames on the left and the actual address for that username on the right. An empty left column translates to the default for that domain. Blank lines and lines beginning with '#' are ignored. Occurrences of $DOMAIN in the file are replaced by the current domain being processed. Occurrences of $LHS in the right hand side are replaced by the address on the left hand side. The -f option forces the database to be rebuilt regardless of whether any file changes were detected. The -t option instructs the program to build a text file instead of a database. The text file can then be used with makemap. =head1 CONFIGURATION In order to function properly, sendmail must be configured to use these files with: FEATURE(`virtusertable')dnl VIRTUSER_DOMAIN_FILE(`/etc/mail/virthosts')dnl If a new domain is added (i.e., by adding a new file to /etc/mail/virtusers/), the sendmail daemon must be restarted for the change to take affect. =head1 EXAMPLES Here is an example file from the /etc/mail/virtusers/ directory: =head2 /etc/mail/virtusers/example.org: # Services MAILER-DAEMON gshapiro+bounce.$DOMAIN@example.net postmaster gshapiro+$LHS.$DOMAIN@example.net webmaster gshapiro+$LHS.$DOMAIN@example.net # Defaults error:nouser No such user # Users gshapiro gshapiro+$DOMAIN@example.net zoe zoe@example.com =head1 AUTHOR Gregory Neil Shapiro EFE =cut use strict; use File::stat; use Getopt::Std; my $makemap = "/usr/sbin/makemap"; my $dbtype = "hash"; my $maildir = "/etc/mail"; my $virthosts = "$maildir/virthosts"; my $newvirthosts = "$maildir/virthosts.new"; my $virts = "$maildir/virtusers"; my $newvirt = "$maildir/virtusertable.new.db"; my $virt = "$maildir/virtusertable.db"; my %virt = (); my $newest = 0; my ($lhs, $domain, $key, $value); my $opts = {}; sub preserve_perms ($$) { my $old = shift; my $new = shift; my $st; $st = stat($old); return if (!defined($st)); chmod($st->mode, $new) || warn "Could not chmod($st->mode, $new): $!\n"; chown($st->uid, $st->gid, $new) || warn "Could not chmod($st->uid, $st->gid, $new): $!\n"; } getopts('ft', $opts) || die "Usage: $0 [-f] [-t]\n"; if ($opts->{t}) { $newvirt = "$maildir/virtusertable.new"; $virt = "$maildir/virtusertable"; } opendir(VIRTS, $virts) || die "Could not open directory $virts: $!\n"; my @virts = grep { -f "$virts/$_" } readdir(VIRTS); closedir(VIRTS) || die "Could not close directory $virts: $!\n"; foreach $domain (@virts) { next if ($domain =~ m/^\./); open(DOMAIN, "$virts/$domain") || die "Could not open file $virts/$domain: $!\n"; my $line = 0; my $mtime = 0; my $st = stat("$virts/$domain"); $mtime = $st->mtime if (defined($st)); if ($mtime > $newest) { $newest = $mtime; } LINE: while () { chomp; $line++; next LINE if /^#/; next LINE if /^$/; if (m/^([^\t ]*)[\t ]+(.*)$/) { if (defined($1)) { $lhs = "$1"; $key = "$1\@$domain"; } else { $lhs = ""; $key = "\@$domain"; } $value = $2; } else { warn "Bogus line $line in $virts/$domain\n"; } # Variable substitution $key =~ s/\$DOMAIN/$domain/g; $value =~ s/\$DOMAIN/$domain/g; $value =~ s/\$LHS/$lhs/g; $virt{$key} = $value; } close(DOMAIN) || die "Could not close $virts/$domain: $!\n"; } my $virtmtime = 0; my $st = stat($virt); $virtmtime = $st->mtime if (defined($st)); if ($opts->{f} || $virtmtime < $newest) { print STDOUT "Rebuilding $virt\n"; # logger -s -t ${prog} -p mail.info "Rebuilding ${basedir}/virtusertable" if ($opts->{t}) { open(MAKEMAP, ">$newvirt") || die "Could not open $newvirt: $!\n"; } else { open(MAKEMAP, "|$makemap $dbtype $newvirt") || die "Could not start makemap: $!\n"; } foreach $key (keys %virt) { print MAKEMAP "$key\t\t$virt{$key}\n"; } close(MAKEMAP) || die "Could not close makemap ($?): $!\n"; preserve_perms($virt, $newvirt); rename($newvirt, $virt) || die "Could not rename $newvirt to $virt: $!\n"; open(VIRTHOST, ">$newvirthosts") || die "Could not open file $newvirthosts: $!\n"; foreach $domain (sort @virts) { next if ($domain =~ m/^\./); print VIRTHOST "$domain\n"; } close(VIRTHOST) || die "Could not close $newvirthosts: $!\n"; preserve_perms($virthosts, $newvirthosts); rename($newvirthosts, $virthosts) || die "Could not rename $newvirthosts to $virthosts: $!\n"; } exit 0; sendmail-8.18.1/contrib/smcontrol.pl0000755000372400037240000001663514556365350017022 0ustar xbuildxbuild#!/usr/bin/perl -w # $Id: smcontrol.pl,v 8.8 2008-07-21 21:31:43 ca Exp $ use strict; use Getopt::Std; use FileHandle; use Socket; my $sendmailDaemon = "/usr/sbin/sendmail -q30m -bd"; ########################################################################## # # &get_controlname -- read ControlSocketName option from sendmail.cf # # Parameters: # none. # # Returns: # control socket filename, undef if not found # sub get_controlname { my $cn = undef; my $qd = undef; open(CF, ") { chomp; if (/^O ControlSocketName\s*=\s*([^#]+)$/o) { $cn = $1; } if (/^O QueueDirectory\s*=\s*([^#]+)$/o) { $qd = $1; } if (/^OQ([^#]+)$/o) { $qd = $1; } } close(CF); if (not defined $cn) { return undef; } if ($cn !~ /^\//o) { return undef if (not defined $qd); $cn = $qd . "/" . $cn; } return $cn; } ########################################################################## # # &do_command -- send command to sendmail daemon view control socket # # Parameters: # controlsocket -- filename for socket # command -- command to send # # Returns: # reply from sendmail daemon # sub do_command { my $controlsocket = shift; my $command = shift; my $proto = getprotobyname('ip'); my @reply; my $i; socket(SOCK, PF_UNIX, SOCK_STREAM, $proto) or return undef; for ($i = 0; $i < 4; $i++) { if (!connect(SOCK, sockaddr_un($controlsocket))) { if ($i == 3) { close(SOCK); return undef; } sleep 1; next; } last; } autoflush SOCK 1; print SOCK "$command\n"; @reply = ; close(SOCK); return join '', @reply; } ########################################################################## # # &sendmail_running -- check if sendmail is running via SMTP # # Parameters: # none # # Returns: # 1 if running, undef otherwise # sub sendmail_running { my $port = getservbyname("smtp", "tcp") || 25; my $proto = getprotobyname("tcp"); my $iaddr = inet_aton("localhost"); my $paddr = sockaddr_in($port, $iaddr); socket(SOCK, PF_INET, SOCK_STREAM, $proto) or return undef; if (!connect(SOCK, $paddr)) { close(SOCK); return undef; } autoflush SOCK 1; while () { if (/^(\d{3})([ -])/) { if ($1 != 220) { close(SOCK); return undef; } } else { close(SOCK); return undef; } last if ($2 eq " "); } print SOCK "QUIT\n"; while () { last if (/^\d{3} /); } close(SOCK); return 1; } ########################################################################## # # &munge_status -- turn machine readable status into human readable text # # Parameters: # raw -- raw results from sendmail daemon STATUS query # # Returns: # human readable text # sub munge_status { my $raw = shift; my $cooked = ""; my $daemonStatus = ""; if ($raw =~ /^(\d+)\/(\d+)\/(\d+)\/(\d+)/mg) { $cooked .= "Current number of children: $1"; if ($2 > 0) { $cooked .= " (maximum $2)"; } $cooked .= "\n"; $cooked .= "QueueDir free disk space (in blocks): $3\n"; $cooked .= "Load average: $4\n"; } while ($raw =~ /^(\d+) (.*)$/mg) { if (not $daemonStatus) { $daemonStatus = "(process $1) " . ucfirst($2) . "\n"; } else { $cooked .= "Child Process $1 Status: $2\n"; } } return ($daemonStatus, $cooked); } ########################################################################## # # &start_daemon -- fork off a sendmail daemon # # Parameters: # control -- control socket name # # Returns: # Error message or "OK" if successful # sub start_daemon { my $control = shift; my $pid; if ($pid = fork) { my $exitstat; waitpid $pid, 0 or return "Could not get status of created process: $!\n"; $exitstat = $? / 256; if ($exitstat != 0) { return "sendmail daemon startup exited with exit value $exitstat"; } } elsif (defined $pid) { exec($sendmailDaemon); die "Unable to start sendmail daemon: $!.\n"; } else { return "Could not create new process: $!\n"; } return "OK\n"; } ########################################################################## # # &stop_daemon -- stop the sendmail daemon using control socket # # Parameters: # control -- control socket name # # Returns: # Error message or status message # sub stop_daemon { my $control = shift; my $status; if (not defined $control) { return "The control socket is not configured so the daemon can not be stopped.\n"; } return &do_command($control, "SHUTDOWN"); } ########################################################################## # # &restart_daemon -- restart the sendmail daemon using control socket # # Parameters: # control -- control socket name # # Returns: # Error message or status message # sub restart_daemon { my $control = shift; my $status; if (not defined $control) { return "The control socket is not configured so the daemon can not be restarted."; } return &do_command($control, "RESTART"); } ########################################################################## # # &memdump -- get memdump from the daemon using the control socket # # Parameters: # control -- control socket name # # Returns: # Error message or status message # sub memdump { my $control = shift; my $status; if (not defined $control) { return "The control socket is not configured so the daemon can not be queried for memdump."; } return &do_command($control, "MEMDUMP"); } ########################################################################## # # &help -- get help from the daemon using the control socket # # Parameters: # control -- control socket name # # Returns: # Error message or status message # sub help { my $control = shift; my $status; if (not defined $control) { return "The control socket is not configured so the daemon can not be queried for help."; } return &do_command($control, "HELP"); } my $status = undef; my $daemonStatus = undef; my $opts = {}; getopts('f:', $opts) || die "Usage: $0 [-f /path/to/control/socket] command\n"; my $control = $opts->{f} || &get_controlname; my $command = shift; if (not defined $control) { die "No control socket available.\n"; } if (not defined $command) { die "Usage: $0 [-f /path/to/control/socket] command\n"; } if ($command eq "status") { $status = &do_command($control, "STATUS"); if (not defined $status) { # Not responding on control channel, query via SMTP if (&sendmail_running) { $daemonStatus = "Sendmail is running but not answering status queries."; } else { $daemonStatus = "Sendmail does not appear to be running."; } } else { # Munge control channel output ($daemonStatus, $status) = &munge_status($status); } } elsif (lc($command) eq "shutdown") { $status = &stop_daemon($control); } elsif (lc($command) eq "restart") { $status = &restart_daemon($control); } elsif (lc($command) eq "start") { $status = &start_daemon($control); } elsif (lc($command) eq "memdump") { $status = &memdump($control); } elsif (lc($command) eq "help") { $status = &help($control); } elsif (lc($command) eq "mstat") { $status = &do_command($control, "mstat"); if (not defined $status) { # Not responding on control channel, query via SMTP if (&sendmail_running) { $daemonStatus = "Sendmail is running but not answering status queries."; } else { $daemonStatus = "Sendmail does not appear to be running."; } } } else { die "Unrecognized command $command\n"; } if (defined $daemonStatus) { print "Daemon Status: $daemonStatus\n"; } if (defined $status) { print "$status\n"; } else { die "No response\n"; } sendmail-8.18.1/contrib/mail.local.linux0000644000372400037240000002700614556365350017530 0ustar xbuildxbuildFrom: Karl London Message-Id: <199308111712.SAA05454@borg.demon.co.uk> Subject: Final port of mail.local to Linux To: eric@cs.berkeley.edu Date: Wed, 11 Aug 1993 18:12:27 +0100 (BST) X-Mailer: ELM [version 2.4 PL21] MIME-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 11415 Hi, Sorry about this.. This is a final version of mail.local for linux.. This is what I would like to see distributed with 8.6 if poss... Karl -------------- begin 600 mail.local.linux.tar.Z M'YV0;<*D8>."S9LQ8=B\`,"PH<.'$"-*G$BQHL6*(&C`N`$#!@@`($#$N%'# M(TB1)$V&7,D2A$<0-6C,D$%3QHT8+V/HI$$#9(V+0(,*'4HT8ITY=,+("0E@ MC5(V122.G>1@7IE$'8<,&A&O8Q,VSA?Z< M#/C3X7V7(9,&J6LQ=>BD>>,&1!@W9(!P5&]I]#?'&W7(,49O_P4H1H%*5;>= M'&W,P0((=TR'AG%+97@6@G3$U\8;])F1!D+Z\7>A4KW!`5T;T]$Q'PAPR/&& M'6F0,>-99B7'&PC;D?=&AFZ<`<(8_-&7HAMSQ,;'%MY(;;^BWX(5GU0<" M&_7)YB62`$ZW'Y/^`=@FD&\(2:216([!AD!KR?$>:C)8^1N6=-R7WZ'%L?E@ M6G)(R%T;4)ZI7HTDUB&F@2%DW9J%<)AH@ MK$$:]"@(D4Z:1J4@L*F&&0\)X=^TA4)I5G0I6$NE,(M6:"19I1A5H)L<2C@ M'+UYV6=Q!YI!QQTL4IMJL%C",6EUR#:J[,'^C;$&GG>P,5]PV4H97@*[^A(\7$7/ZGCA:>T#:B.K$7_*,<9H:LPOB MERZ.H=V)C>_7H6MTR-B?BQ36)QU_E\9'!1))3`'"%$\80<4504A1!`BU@P"% M%$]8D00111`!@A!9@##[[[X?48035-@>A!/*#_$$]5(D(4055#PAA>U@@!&$ M[;6?<`((UQ,1W_7-%X'%\$5,8;OXP#(6K@`X$3GD`%$/"O"4F@@O_"=Z'GQ2<)^N.?_P`H0.H5$`2Y`T$3 MBB"%(2!A@$$00A+X1X7FM0\$1LB@$^IG.R/@+PC"ZQT!AU`%)O1.>%60`A2> M,(4BO,]W(&C@%!08!!`FSTK`A6]>XG MA=1LCPK=^U[XQK>\W_$OADQP(JY\V$;X13$)OAL"%0Z(/4`609"$',+QP!@$ M)EQH"E`X9!(:>2'Y%2&$O"%34B$(FVRC+G-8/6OB[WM30"`/LZC!`%8! M"@3<7@KB@X0G7,&++$Q-$+;IOQMNCWU.:-[SQ->\%-Y1AC34Y/_.^+PV(M"- MW`L"(F\'QR0(,CX'G6$&%8J_.5:0E0E<8`.=<`0)II%_:J0F"MM(P3-*X0JU M*X)M>E<[!V81H,WC71:>&<$4/@\$_`2F&8.'.]T!L`B5_*(6DQ#,(!#!>$U4 MGD_/*#QL>D^C-01F?*90!1=&\92I+$+L3I,`(*!@!"DHRUGHUA8T)*`&+A`, M"J0F!ZI9S38Q>,%(7I"#&(3G!0H8P\$"M:&BK#Q006!V9R`V]^0(4 M@C"[+S!AEU307P)$\`(ZM`$.+S`(0@B"A=*:5@0*"(UJ5_L5@HAV+*T-RVA= M,(;5@F8N=RR%[NP9"0PJ$$-!B.3FMBD(XSAR0T@8]OF#N5,E_D(9[@R M7>=:][K8E:IIVN.,= M>=G+/+9*3YH@)H?VC!4UFPH4O+B%M0%%RT`(4A"#%#6J"#&*0A;"D(8.=H2&'H7,420CE))`Y:0.1VE*N*K2E03,L;0E4!P9!@TOU8%29*5AIFIFK>A/D(=/*R.A!=&+?>3Q3[Z@PR^2C2M@`VO9H4B6L(7MUV$&EIBO=F:QS96!;ZKJ MV,<6Y>=EA<%D*%,9&5A6,!BK`&:S;ERK('=@G.DL<[7V61F`MIH9B8%HRVDO MTMZ[-++*]VD"B]K4JE:&JRGJ;L/BVI:^)B^Q2;!LX4*;6B*VWJ)I.SKK.&-/^KV6G3X%@:_`0YB@B,<@+Z&.&4OKD6.JUEQ)'>T`)G!;MT<7N>&_P[5=D7=7>]^%SQ=&@]YRF.>&=&H MQNH!-'MOC"/XQ$<^\Z%O"NK[^?L"VL7Y^LGU!6V\(74BR%6;8@]'.IPG7QD7Q"E,,0B M'A$*25QB$Y_X.RE2T8I$P.)#)]A%I89QC&7\:?3`R$:(5E2.1*_CU_&H1]3D MW8\-#.0@LQCZ0XZ^E8N,NR-O%TE%4K+IE]Q?)L,)T4^&TH2-+"5853F;5FJ= MI+'<(BW!KD&QXU)XQ./E)<$H5*X2TYC(!($RF>E,7$&3A=.LYC6AGD)^=I.R MX(SZ.#,X!7.V$9WJA#H"VRF%=\;3"?/$53WO^<4V#F&?4?TY"K7HQX%*H:#! ME%$)=2%7P%`N=5.=!$<2-7K%U#T7A2L"N%&TYU&]%U*O1%(F=00H-3TJA3\M MQ4(PU40SU3WIA($/Y4QL05=``(] MH``B8%9HE1I%1B>R01MXA1NZ85[`43#]QEY'@V]*$U_9`6[?P05NP`6F<5]B M6!S[Q1[SX0)T*`([$%B%HQT@,!H@H"M_4B"RH0))*%AFP(1.J(@*8!EZ(Q*J(R$ MM6/`*(PO<"`FHR;0F(S+^(O-^`(FHC+;V(O4"%GZ88XO4"#C*(V^6(US8!!G ML([=R`-F,`;#01!H@(SD:%CF2`9B((_3:%AP<`?ND8_1.(_ZL18`V8YUT!Q( M49#ZR([4"!W=\08+28T/N1\7R8QT0`:`\H\&R8T!Z8U<4R0;^8F(Q59N@5J- MU80%4@8)8`3@QP0)D`!^-0*.]9(),$LR^4TT"0.,I8@)H".`HB\@\`62A0(H MH(@7(H67H0(ID`*!:`=OD",)0)%'F91+.1Q-*66RX91+H0(7X@)D&953695D MD`!)9@9Y\"!F@!Q("05*"9:G898*()1(P1V1I95T"952J0!4:95'$0;!D95R MB0*!209VJ0!?X08HH!1G,`8<=@9V,$\)H(C^(0>1&8@)T)J"9F<:1\U0R-AL'($>1H#R9F8*8478@9D M<"'3EA"<607%OT`:!2)K5Y@;PB`(B,(IBP08B<"&7=022 MQ4+$(P7>^03@B4HS])>D"9VHT@,25$1,P)EWX"LJ,QNTL2'N&1QTH)J/J9F2 MF9F4>2$B0`9FH`-RH`,B$)4@$`+N602Y8YD),`<>(H7W:1NC69,(`3$@<`)D M<`(Z4).&*`:_M@:;$R!(\EG;(@;UR8BD69-BD"9AL`:VJ(9 M:J-RX*$@BAHB:C(E.B8HJA\JVALL6I.7B1PHP)X0F@`L09$HT).OEYUUP`;Z MX3&]T0+(H9J@DJ`SF@#LZ8FSJ9EA^J(*(Z,Z6J,;^@,Y6I..%097ZC)*.IC! M@0)_69-]0)J0.08@T`+NZ:4`PIF@"0(K$*APL)K3N:2S$0*?J9F5V:)V6@9X MNJBC09JXD@3(,::(&')E(#HF,A\78F!S,V^5$YT@H)_P6"!X&BWU=FM0BAK, M^2]T((5L<2&/!AT9`C&CJJ&EJC9C"BMEH9O<87$#`:NX@B1RL%]PD&?^LI^+ MPIS@$:N`E0"SFI]JPIR52IJ$B`(A,*8F8`*-VJ08AZUTL*J.J:!\P`>8NA(A M@`(#Z8GZ.9!I0Z[1J:Y\0"-WT`(^,)!?,*L,*B`Y$I4M.J;N":]W(*]J,I#: MRIP*^@/ZRJ_^2C<@H`.?^`,82XOK&2#NF9=I8J]MD*<3,AO%61[N"0/6]*B4 M:4TKL`*@":$E"P)\X)Y$V89-.IRG\;*MB0?3@0(E^Y=[.HG[^;%.ZIR7J`+L M*9JDF4-Y=!IF``>*)S5>;,">@KH#*[4H8`)T8+5LD*>TJYA/ZQK# M809-"@<":@085P+%@;S=>:IMT)2VB[NZNY@),+9;``-9Z)XGP`4P<`*<.;(^ M.[:>&`/69`;Z.0[W8:P3KH\`A(`9C\+?H^XG&BZK+ M6P.3JZ2]FU;Y,08H<`(^<`+!"0=Y2KG@>[(SNJ\)Y:HA/D!]J+!MA M<(AEX,2094VZLF2?JS3\-@=*/&4=EA#*TH>G4:UIO,9E;,)`@L*SFY@I\):$ M-0=HX,.^R:0[;"-RX,,PNZQ3.I,"*B.?Q1VB>ZP8@CJ]09'<4;H)D"9TD"". M*9Q`RU@UJR^.>XCS9IF8*9Q>>[1TH[01VBFW28E?(@:U*2']=;6=>8EN:085<@9;,!==<"'X809; M@`,J@!,R0`/IC)MGL06H-#]RFT=.D+;4^994BV@VTLU_`C%EP+KJ6<0J@*FH M003U03)#TA]L]:5A9Y,$'K7 MG,N+VL6T$/=B1J M308GC2S'BD4Q4QQK\1_%(=SU2=*(^#<"`MBYW8<*7:UX2\W"J85Y;1PNXIA< MC4)?$`10$$G8PP=/\`5#X#N41=Y?<`7$XP1,H%!3@-CM-P52P`?QG017L$U2 MH*`\X!)"?95$34&6B]D@T-3=;1^JO,D4B2=V69-1'=I4/<2D_!4,."?B+Q,/0>='=?QFR8\K.#+RN!0K;L!W*)GD"># M(Z+-F0!$#-#'@1QL3="L>^,7`@.KUT1%L./30P2\"\E8+<,H,,[EW-5`4`(@ M_H=EO19-F2!;?K=,2FEE4-"W+.:/5`1E_@5-1`6V,;BSL>7*F0*%^]^5:]0B M(,J@6\HJ4^3+B^!+[K--_@8-WLI03M@S.N70:N423IKS:"*-D<,OK MG+YIL+[MN\Z2[0/^7;#?@@);[HDH:QW(T=_8K,=+`:B'N,V^;JCNZ09W\*1X MJ^R>:'+30:E@+F9U@!PKX.O7+`?\[=^3W:)#ODU*>J#(\S*&*8NW*VJWM\PX.B>+.21_KFD3&:C:^E)GNX+SNE_">]C\*$) M`,,&#S`V7LTXJ^5O^>0)$>583MJ7&JNWHR:+M(<'QV^`@<.PSHPLG)@=@>H;8G_$1S'\MH8DIO^H1ZYR6@C M:RT'<]('8M,L:N4?VJUC\-NVT:(P+(47W?#6'+']>@?_FB/FOJ]W_P5G,+"/ MC+IF$(S*2/>*N0,_&D7\<0*R@3'3\6`"`@=D`#!;C,B0+"EO`#&&+Y6)GP2? M!2BBLYS6>1!K4/FDW<44#J%KV9;:(;QN/@=GD*6+C'+`>WZ>%]F[4J M@`902YK$#W)\J/TAYYM9JS)N<-8YW?R6TB]?8`9J,1!Y\-^&*#5?PTSA;7IB+#,`!R?6D M9E\.,X#<3V%]"*3``.<-=B)%V(\.4,!NIZ0JFX"#="`P\TD)6`-1?7RL0[>_]L8'JX)ZX'[]"`U]`_5$'%S&C*%B100$^T`<`0?4W MUVP@^V."*`T._,`O8/[.P%E(84X0!X(NV="QI*`/F`-?8`M*N!GWZUP""%!@ M38IMD3XU@0*"@!%`;#N$`>V2'4<$CH``:0)A3G`1+JI&`@$FL13@'LJ>Q"%:NB5;R*6#$K:L6M*!&8X5AH`C'* M):D,KJ@5<`MR.0F]1;>DQ;[0$F2`3B`N,Z$F<(2<(`-L@&)@+F2QN4"7I2!= MGD)7J"YY,3`*1LDP`LI**`*+5&-TG2*YLHK(3?P3"7KE!L@BQJ)+CD`/2`!> MD0TH`%3B!'#`9GK`"Q@5C,4%[*-?)`;F@'M@%?%H;RV6P4@`!@R&CF`#8*,,4`RI2"0TAL?@$IPC9=B+F,$O4A?U M:![;HWMD"'Y(!("A[Q(;PDL9(B^G33Z@E_0@:[)-&WH;PN+;T!>!`1[B(Z@I M#WE(/2A`Z18?%8"!##!>YE,PF@*CH=@$CA$36&/,F`H(DQ:P+(_`@A`R?>C!CBD7=BSNP)F`<2GTR>*19\IC?T M&D!3'R1%EK$4/)++0,B`4RQ$!83P=Z>"QZR*B/,JEJ2;J4)/TD!&R5U19XI# ME<0SQ`+,9$E&@6*N3)=T%M""T-P:.5DMKD7+.)&-9BGDJDA#+CQ:I;D1+U+" MG`5-`R0E9,OAD9_FON`+?5%J_,6IF33&K6"L&G_1:E[9J_D6L:;>^(F*L7$& MY8AD"4>26=0'CU%P>,V,]#7`9D@(&V(S'*9$?$0V,H--V@R)U#!8I:V!:-1& M:(@9;`-4[@V`/`XX,@$(R.X0;I;'N+$:QL+?I!N]$1T*Y*MT-V3#;,B-'T&Q M^F.S_(_YYEO\JKJ!'-!-WJ@Q>X-0_@N#\S!VQ.`H'`PGZEF./`%QEDWD"!B4 M(U@E&V.9,>3EQ^%HH(ITU`C3<*SOG(F$FG??!(/R(_Z`?W<2AF9X2DG:M3/[+.!7H@ M7$>64)"O@T&*C_,X/A[$0(*0J2,S`PC-S"8JA(6X$!CR@[+*#2$G.P3J?)Z] MTW>,B#@)/$S$B1A(C&EXC`CB43Q:A/'@DU\B1AI)Y/F8:83R1)V1Z3V&#AT1 M`G9DD@B!/,(C/P_3*3T3A38:DKR90%)/((0DDN3U6!),\G]H3R>Q/:(D]QC( M(A165HGON9G!Q^O4$I\Y=G2)\O$E*RB8.)]BDD&BS_1I)CSR^D@3BZ)]+@OW MT2;CNRP`2!`NG$F;B`&6KS M$.AH4:%0SPB4!^00!)8">W*05;1>4D.R-$0W!/*8(MT#GMA.)X!#4058!`ND M2`&PNN3V(RP#@%`*`:)`S+'(EQP&QQ4K'"W@.'`I4X8U<.)V(P.A0C9`*YJ' M!K#H4IB&&XJ%0H$?>D`50$U3`*?-D&I1QJ0JG%L=TUTY0HLZM0'H(*$`'("D M/\)+"@`CXVAH_!NGUABSA+^(IQE$?O6*?%HYA6APH5A]-#H+&$*J%3QHLR\`? MM9>$X]=LB%J&V@)$-&4+R9"3`A$5]1\$&_CR$WYTH"8<0HK$,FH]355J30ZL MTI2&]4(7Y#@;**!\E+#^%2TJC4,5J74T452'CZHDRP1&56(*X-35/"1QI1Q$ MF0@48;$_C*PZYD]15=*I63""7)C3`JE,\R-,&UV"+)7A`9PA'8#&3EV#ZV+" M.$@L8$5+'`B0`4&5/O'0FP=2X,5A1/L99TE&`_,]/S#YR.E:7 M0OEB#QU0;0@&%J``8$7^6Y!+P4^LI30P([P$14T3%K6&QE50.BB9:&8,AOH! M4"@-UX1N/`*CF0.NHK9%&*SA`SP"(;JC2\XX9*($`39:Z(:8'L:CO6%.!YE* M_Q0K_5.O=%)^L8+A(&UI%[$#SD,+*(`J@'!R*L00I$O2K=J(A0DP$*K:T`/\ M(6+T5.?*%I+"9S&FR)2(,JWZ05M5Z6UUI3EB4G:6SQ):$JAI,2U_ZD25!$)&`L&R.I+A]:Q>J/%Z,.VQQC\%$%)91!QU`UA4-MB! M&P`"P(/7$U8VXN.IA3)Z8<'#>SRS:#;-JMDURV;;K)M]LW`VSLK9.4MGZZR= HO;-X-L_JV3W+9_NLG_VS@#;0"MI!2V@+K:$]M(@VT2K:1 Message-Id: <199307280818.AA08111@cssun6.corp.mot.com> Subject: Re: contributed software To: eric@cs.berkeley.edu (Eric Allman) Date: Wed, 28 Jul 1993 03:18:02 -0500 (CDT) In-Reply-To: <199307221853.LAA04266@mastodon.CS.Berkeley.EDU> from "Eric Allman" at Jul 22, 93 11:53:47 am X-Mailer: ELM [version 2.4 PL22] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 69132 OK. Here is a new shell archive. Cheers, -Mike ---- Cut Here and feed the following to sh ---- #!/bin/sh # This is a shell archive (produced by shar 3.49) # To extract the files from this archive, save it to a file, remove # everything above the "!/bin/sh" line above, and type "sh file_name". # # made 07/28/1993 08:13 UTC by mmuegel@mot.com (Michael S. Muegel) # Source directory /home/ustart/NeXT/src/mail-tools/dist/foo # # existing files will NOT be overwritten unless -c is specified # # This shar contains: # length mode name # ------ ---------- ------------------------------------------ # 4308 -r--r--r-- README # 12339 -r--r--r-- libs/date.pl # 3198 -r--r--r-- libs/elapsed.pl # 4356 -r--r--r-- libs/mail.pl # 6908 -r--r--r-- libs/mqueue.pl # 7024 -r--r--r-- libs/newgetopts.pl # 4687 -r--r--r-- libs/strings1.pl # 1609 -r--r--r-- libs/timespec.pl # 5212 -r--r--r-- man/cqueue.1 # 2078 -r--r--r-- man/postclip.1 # 6647 -r-xr-xr-x src/cqueue # 1836 -r-xr-xr-x src/postclip # # ============= README ============== if test -f 'README' -a X"$1" != X"-c"; then echo 'x - skipping README (File already exists)' else echo 'x - extracting README (Text)' sed 's/^X//' << 'SHAR_EOF' > 'README' && ------------------------------------------------------------------------------- Document Revision Control Information: X mmuegel X /usr/local/ustart/src/mail-tools/dist/foo/README,v X 1.1 of 1993/07/28 08:12:53 ------------------------------------------------------------------------------- X 1. Introduction --------------- X These tools may be of use to those sites using sendmail. Both are written in Perl. Our site, Mot.COM, receives a ton of mail being a top-level domain gateway. We have over 24 domains under us. Needless to say, we must have a robust mail system or my head, and others, would be on the chopping block. X 2. Description -------------- X The first tool, cqueue, checks the sendmail queue for problems. We use it to flag problems with subdomain mail servers (and even our own servers once in a while ;-). We run it via a cron job every hour during the day. You may find this too frequent, however. X The other program, postclip, is used to "filter" non-deliverable NDNs that get sent to our Postmaster account now and then. This ensures privacy of e-mail and helps avoid disk problems from huge NDNs. It is different than a brute force "just keep the header" approach because it tries hard to keep other parts of the message that look like non-delivery information. X Both have been used for some time at our site with no problems. Everything you need should be in this distribution: source, manual pages, and support libs. See the manual pages for a complete description of each tool. X 3. Installation --------------- X No fancy Makefile simply because these tools are all under a large hierarchy at my site. Installation should be a snap, however. Install the nroff(1) man(5) manual pages from the man subdirectory to the appropriate directory on your system. This might be something like /usr/local/man/man1. X Next, install all of the Perl libraries located in the lib subdirectory to your Perl library area. /usr/local/lib/perl is a good bet. The person who installed Perl at your site will be able to tell you for sure. X Finally, you need to install the programs. Note that cqueue wants to run setuid root by default. This is because the sendmail queue is normally only readable by root or some special group. In order to let any user run this suidperl is used. suidperl allows a Perl program to run with the privileges of another user. X You will have to edit both the cqueue and postclip programs to change the #! line at the top of each. Just change the pathname to whatever is appropriate on your system. Note that Larry Wall's fixin program from the Camel book can also be used to do this. It is very handy. It changes #! lines by looking at your PATH. X If you do not have suidperl on your system change the #! line in cqueue to reference perl instead of suidperl. X You may also wish to change some constants in cqueue. $DEF_QUEUE should be changed to your queue directory if it is not /usr/spool/mqueue. $DEF_TIME could be changed easy enough also. It is the time spec for the time duration after which a mail message will be reported on if the -a option has not been specified. See the manual page for more information and the format of this constant (same as the -t argument). Then again, neither of these has to be changed. Command line options are there to override their default values. X After you have edited the programs as necessary, all that remains is to install them to some executable directory. Install postclip mode 555 and cqueue mode 4555 with owner root (if using suidperl) or mode 555 (if not using suidperl). X 4. Gripes, Comments, Etc ------------------------ X If you start using either of these let me know. I have other mail tools I will likely post in the future if these prove useful. Also, if you think something is just plain dumb/wrong/stupid let me know! X Cheers, -Mike X -- +----------------------------------------------------------------------------+ | Michael S. Muegel | Internet E-Mail: mmuegel@mot.com | | UNIX Applications Startup Group | Moto Dist E-Mail: X10090 | | Corporate Information Office | Voice: (708) 576-0507 | | Motorola | Fax: (708) 576-4153 | +----------------------------------------------------------------------------+ SHAR_EOF chmod 0444 README || echo 'restore of README failed' Wc_c="`wc -c < 'README'`" test 4308 -eq "$Wc_c" || echo 'README: original size 4308, current size' "$Wc_c" fi # ============= libs/date.pl ============== if test ! -d 'libs'; then echo 'x - creating directory libs' mkdir 'libs' fi if test -f 'libs/date.pl' -a X"$1" != X"-c"; then echo 'x - skipping libs/date.pl (File already exists)' else echo 'x - extracting libs/date.pl (Text)' sed 's/^X//' << 'SHAR_EOF' > 'libs/date.pl' && ;# ;# Name ;# date.pl - Perl emulation of (the output side of) date(1) ;# ;# Synopsis ;# require "date.pl"; ;# $Date = &date(time); ;# $Date = &date(time, $format); ;# ;# Description ;# This package implements the output formatting functions of date(1) in ;# Perl. The format options are based on those supported by Ultrix 4.0 ;# plus a couple of additions from SunOS 4.1.1 and elsewhere: ;# ;# %a abbreviated weekday name - Sun to Sat ;# %A full weekday name - Sunday to Saturday ;# %b abbreviated month name - Jan to Dec ;# %B full month name - January to December ;# %c date and time in local format [+] ;# %C date and time in long local format [+] ;# %d day of month - 01 to 31 ;# %D date as mm/dd/yy ;# %e day of month (space padded) - ` 1' to `31' ;# %E day of month (with suffix: 1st, 2nd, 3rd...) ;# %f month of year (space padded) - ` 1' to `12' ;# %h abbreviated month name - Jan to Dec ;# %H hour - 00 to 23 ;# %i hour (space padded) - ` 1' to `12' ;# %I hour - 01 to 12 ;# %j day of the year (Julian date) - 001 to 366 ;# %k hour (space padded) - ` 0' to `23' ;# %l date in ls(1) format ;# %m month of year - 01 to 12 ;# %M minute - 00 to 59 ;# %n insert a newline character ;# %p ante-meridiem or post-meridiem indicator (AM or PM) ;# %r time in AM/PM notation ;# %R time as HH:MM ;# %S second - 00 to 59 ;# %t insert a tab character ;# %T time as HH:MM:SS ;# %u date/time in date(1) required format ;# %U week number, Sunday as first day of week - 00 to 53 ;# %V date-time in SysV touch format (mmddHHMMyy) ;# %w day of week - 0 (Sunday) to 6 ;# %W week number, Monday as first day of week - 00 to 53 ;# %x date in local format [+] ;# %X time in local format [+] ;# %y last 2 digits of year - 00 to 99 ;# %Y all 4 digits of year ~ 1700 to 2000 odd ? ;# %z time zone from TZ environment variable w/ a trailing space ;# %Z time zone from TZ environment variable ;# %% insert a `%' character ;# %+ insert a `+' character ;# ;# [+]: These may need adjustment to fit local conventions, see below. ;# ;# For the sake of compatibility, a leading `+' in the format ;# specificaiton is removed if present. ;# ;# Remarks ;# This is version 3.4 of date.pl ;# ;# An extension of `ctime.pl' by Waldemar Kebsch (kebsch.pad@nixpbe.UUCP), ;# as modified by Marion Hakanson (hakanson@ogicse.ogi.edu). ;# ;# Unlike date(1), unknown format tags are silently replaced by "". ;# ;# defaultTZ is a blatant hack, but I wanted to be able to get date(1) ;# like behaviour by default and there does'nt seem to be an easy (read ;# portable) way to get the local TZ name back... ;# ;# For a cheap date, try... ;# ;# #!/usr/local/bin/perl ;# require "date.pl"; ;# exit print (&date(time, shift @ARGV) . "\n") ? 0 : 1; ;# ;# This package is redistributable under the same terms as apply to ;# the Perl 4.0 release. See the COPYING file in your Perl kit for ;# more information. ;# ;# Please send any bug reports or comments to tmcgonigal@gallium.com ;# ;# Modification History ;# Nmemonic Version Date Who ;# ;# NONE 1.0 02feb91 Terry McGonigal (tmcgonigal@gallium.com) ;# Created from ctime.pl ;# ;# NONE 2.0 07feb91 tmcgonigal ;# Added some of Marion Hakanson (hakanson@ogicse.ogi.edu)'s ctime.pl ;# TZ handling changes. ;# ;# NONE 2.1 09feb91 tmcgonigal ;# Corrected week number calculations. ;# ;# NONE 2.2 21oct91 tmcgonigal ;# Added ls(1) date format, `%l'. ;# ;# NONE 2.3 06nov91 tmcgonigal ;# Added SysV touch(1) date-time format, `%V' (pretty thin as ;# mnemonics go, I know, but `t' and `T' were both gone already!) ;# ;# NONE 2.4 05jan92 tmcgonigal ;# Corrected slight (cosmetic) problem with %V replacment string ;# ;# NONE 3.0 09jul92 tmcgonigal ;# Fixed a couple of problems with &ls as pointed out by ;# Thomas Richter (richter@ki1.chemie.fu-berlin.de), thanks Thomas! ;# Also added a couple of SunOS 4.1.1 strftime-ish formats, %i and %k ;# for space padded hours (` 1' to `12' and ` 0' to `23' respectively), ;# and %C for locale long date/time format. Changed &mH to take a ;# pad char parameter to make to evaled code for %i and %k simpler. ;# Added %E for suffixed day-of-month (ie 1st, 3rd, 4th etc). ;# ;# NONE 3.1 16jul92 tmcgonigal ;# Added `%u' format to generate date/time in date(1) required ;# format (ie '%y%m%d%H%M.%S'). ;# ;# NONE 3.2 23jan93 tmcgonigal ;# Added `%f' format to generate space padded month numbers, added ;# `%E' to the header comments, it seems to have been left out (and ;# I'm sure I wanted to use it at some point in the past...). ;# ;# NONE 3.3 03feb93 tmcgonigal ;# Corrected some problems with AM/PM handling pointed out by ;# Michael S. Muegel (mmuegel@mot.com). Thanks Michael, I hope ;# this is the behaviour you were looking for, it seems more ;# correct to me... ;# ;# NONE 3.4 26jul93 tmcgonigal ;# Incorporated some fixes provided by DaviD W. Sanderson ;# (dws@ssec.wisc.edu): February was spelled incorrectly and ;# &wkno() was always using the current year while calculating ;# week numbers, regardless of year implied by the time value ;# passed to &date(). DaviD also contributed an improved &date() ;# test script, thanks DaviD, I appreciate the effort. Finally, ;# changed my mailling address from @gvc.com to @gallium.com ;# to reflect, well, my new address! ;# ;# SccsId = "%W% %E%" ;# require 'timelocal.pl'; package date; X # Months of the year @MoY = ('January', 'February', 'March', 'April', 'May', 'June', X 'July', 'August', 'September','October', 'November', 'December'); X # days of the week @DoW = ('Sunday', 'Monday', 'Tuesday', 'Wednesday', X 'Thursday', 'Friday', 'Saturday'); X # CUSTOMIZE - defaults $defaultTZ = 'CST'; # time zone (hack!) $defaultFMT = '%a %h %e %T %z%Y'; # format (ala date(1)) X # CUSTOMIZE - `local' formats $locTF = '%T'; # time (as HH:MM:SS) $locDF = '%D'; # date (as mm/dd/yy) $locDTF = '%a %b %d %T %Y'; # date/time (as dow mon dd HH:MM:SS yyyy) $locLDTF = '%i:%M:%S %p %A %B %E %Y'; # long date/time (as HH:MM:SS a/p day month dom yyyy) X # Time zone info $TZ; # wkno needs this info too X # define the known format tags as associative keys with their associated # replacement strings as values. Each replacement string should be # an eval-able expresion assigning a value to $rep. These expressions are # eval-ed, then the value of $rep is substituted into the supplied # format (if any). %Tags = ( '%a', q|($rep = $DoW[$wday])=~ s/^(...).*/\1/|, # abbr. weekday name - Sun to Sat X '%A', q|$rep = $DoW[$wday]|, # full weekday name - Sunday to Saturday X '%b', q|($rep = $MoY[$mon]) =~ s/^(...).*/\1/|, # abbr. month name - Jan to Dec X '%B', q|$rep = $MoY[$mon]|, # full month name - January to December X '%c', q|$rep = $locDTF; 1|, # date/time in local format X '%C', q|$rep = $locLDTF; 1|, # date/time in local long format X '%d', q|$rep = &date'pad($mday, 2, "0")|, # day of month - 01 to 31 X '%D', q|$rep = '%m/%d/%y'|, # date as mm/dd/yy X '%e', q|$rep = &date'pad($mday, 2, " ")|, # day of month (space padded) ` 1' to `31' X '%E', q|$rep = &date'dsuf($mday)|, # day of month (w/suffix) `1st' to `31st' X '%f', q|$rep = &date'pad($mon+1, 2, " ")|, # month of year (space padded) ` 1' to `12' X '%h', q|$rep = '%b'|, # abbr. month name (same as %b) X '%H', q|$rep = &date'pad($hour, 2, "0")|, # hour - 00 to 23 X '%i', q|$rep = &date'ampmH($hour, " ")|, # hour (space padded ` 1' to `12' X '%I', q|$rep = &date'ampmH($hour, "0")|, # hour - 01 to 12 X '%j', q|$rep = &date'pad($yday+1, 3, "0")|, # Julian date 001 - 366 X '%k', q|$rep = &date'pad($hour, 2, " ")|, # hour (space padded) ` 0' to `23' X '%l', q|$rep = '%b %d ' . &date'ls($year)|, # ls(1) style date X '%m', q|$rep = &date'pad($mon+1, 2, "0")|, # month of year - 01 to 12 X '%M', q|$rep = &date'pad($min, 2, "0")|, # minute - 00 to 59 X '%n', q|$rep = "\n"|, # insert a newline X '%p', q|$rep = &date'ampmD($hour)|, # insert `AM' or `PM' X '%r', q|$rep = '%I:%M:%S %p'|, # time in AM/PM notation X '%R', q|$rep = '%H:%M'|, # time as HH:MM X '%S', q|$rep = &date'pad($sec, 2, "0")|, # second - 00 to 59 X '%t', q|$rep = "\t"|, # insert a tab X '%T', q|$rep = '%H:%M:%S'|, # time as HH:MM:SS X '%u', q|$rep = '%y%m%d%H%M.%S'|, # daaate/time in date(1) required format X '%U', q|$rep = &date'wkno($year, $yday, 0)|, # week number (weeks start on Sun) - 00 to 53 X '%V', q|$rep = '%m%d%H%M%y'|, # SysV touch(1) date-time format (mmddHHMMyy) X '%w', q|$rep = $wday; 1|, # day of week - Sunday = 0 X '%W', q|$rep = &date'wkno($year, $yday, 1)|, # week number (weeks start on Mon) - 00 to 53 X '%x', q|$rep = $locDF; 1|, # date in local format X '%X', q|$rep = $locTF; 1|, # time in local format X '%y', q|($rep = $year) =~ s/..(..)/\1/|, # last 2 digits of year - 00 to 99 X '%Y', q|$rep = "$year"; 1|, # full year ~ 1700 to 2000 odd X '%z', q|$rep = $TZ eq "" ? "" : "$TZ "|, # time zone from TZ env var (w/trail. space) X '%Z', q|$rep = $TZ; 1|, # time zone from TZ env. var. X '%%', q|$rep = '%'; $adv=1|, # insert a `%' X '%+', q|$rep = '+'| # insert a `+' ); X sub main'date { X local($time, $format) = @_; X local($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst); X local($pos, $tag, $rep, $adv) = (0, "", "", 0); X X # default to date/ctime format or strip leading `+'... X if ($format eq "") { X $format = $defaultFMT; X } elsif ($format =~ /^\+/) { X $format = $'; X } X X # Use local time if can't find a TZ in the environment X $TZ = defined($ENV{'TZ'}) ? $ENV{'TZ'} : $defaultTZ; X ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = X &gettime ($TZ, $time); X X # Hack to deal with 'PST8PDT' format of TZ X # Note that this can't deal with all the esoteric forms, but it X # does recognize the most common: [:]STDoff[DST[off][,rule]] X if ($TZ =~ /^([^:\d+\-,]{3,})([+-]?\d{1,2}(:\d{1,2}){0,2})([^\d+\-,]{3,})?/) { X $TZ = $isdst ? $4 : $1; X } X X # watch out in 2070... X $year += ($year < 70) ? 2000 : 1900; X X # now loop through the supplied format looking for tags... X while (($pos = index ($format, '%')) != -1) { X X # grab the format tag X $tag = substr($format, $pos, 2); X $adv = 0; # for `%%' processing X X # do we have a replacement string? X if (defined $Tags{$tag}) { X X # trap dead evals... X if (! eval $Tags{$tag}) { X print STDERR "date.pl: internal error: eval for $tag failed: $@\n"; X return ""; X } X } else { X $rep = ""; X } X X # do the substitution X substr ($format, $pos, 2) =~ s/$tag/$rep/; X $pos++ if ($adv); X } X X $format; } X # dsuf - add `st', `nd', `rd', `th' to a date (ie 1st, 22nd, 29th) sub dsuf { X local ($mday) = @_; X X return $mday . 'st' if ($mday =~ m/.*1$/); X return $mday . 'nd' if ($mday =~ m/.*2$/); X return $mday . 'rd' if ($mday =~ m/.*3$/); X return $mday . 'th'; } X # weekno - figure out week number sub wkno { X local ($year, $yday, $firstweekday) = @_; X local ($jan1, @jan1, $wks); X X # figure out the `time' value for January 1 of the given year X $jan1 = &maketime ($TZ, 0, 0, 0, 1, 0, $year-1900); X X # figure out what day of the week January 1 was X @jan1= &gettime ($TZ, $jan1); X X # and calculate the week number X $wks = (($yday + ($jan1[6] - $firstweekday)) + 1)/ 7; X $wks += (($wks - int($wks) > 0.0) ? 1 : 0); X X # supply zero padding X &pad (int($wks), 2, "0"); } X # ampmH - figure out am/pm (1 - 12) mode hour value, padded with $p (0 or ' ') sub ampmH { local ($h, $p) = @_; &pad($h>12 ? $h-12 : ($h ? $h : 12), 2, $p); } X # ampmD - figure out am/pm designator sub ampmD { shift @_ >= 12 ? "PM" : "AM"; } X # gettime - get the time via {local,gmt}time sub gettime { ((shift @_) eq 'GMT') ? gmtime(shift @_) : localtime(shift @_); } X # maketime - make a time via time{local,gmt} sub maketime { ((shift @_) eq 'GMT') ? &main'timegm(@_) : &main'timelocal(@_); } X # ls - generate the time/year portion of an ls(1) style date sub ls { X return ((&gettime ($TZ, time))[5] == @_[0]) ? "%R" : " %Y"; } X # pad - pad $in with leading $pad until length $len sub pad { X local ($in, $len, $pad) = @_; X local ($out) = "$in"; X X $out = $pad . $out until (length ($out) == $len); X return $out; } X 1; SHAR_EOF chmod 0444 libs/date.pl || echo 'restore of libs/date.pl failed' Wc_c="`wc -c < 'libs/date.pl'`" test 12339 -eq "$Wc_c" || echo 'libs/date.pl: original size 12339, current size' "$Wc_c" fi # ============= libs/elapsed.pl ============== if test -f 'libs/elapsed.pl' -a X"$1" != X"-c"; then echo 'x - skipping libs/elapsed.pl (File already exists)' else echo 'x - extracting libs/elapsed.pl (Text)' sed 's/^X//' << 'SHAR_EOF' > 'libs/elapsed.pl' && ;# NAME ;# elapsed.pl - convert seconds to elapsed time format ;# ;# AUTHOR ;# Michael S. Muegel ;# ;# RCS INFORMATION ;# mmuegel ;# /usr/local/ustart/src/mail-tools/dist/foo/libs/elapsed.pl,v ;# 1.1 of 1993/07/28 08:07:19 X package elapsed; X # Time field types $DAYS = 1; $HOURS = 2; $MINUTES = 3; $SECONDS = 4; X # The array contains four records each with four fields. The fields are, # in order: # # Type Specifies what kind of time field this is. Once of # $DAYS, $HOURS, $MINUTES, or $SECONDS. # # Multiplier Specifies what time field this is via the minimum # number of seconds this time field may specify. For # example, the minutes field would be non-zero # when there are 60 or more seconds. # # Separator How to separate this time field from the next # *greater* field. # # Format sprintf() format specifier on how to print this # time field. @MULT_AND_SEPS = ($DAYS, 60 * 60 * 24, "+", "%d", X $HOURS, 60 * 60, ":", "%d", X $MINUTES, 60, ":", "%02d", X $SECONDS, 1, "", "%02d" X ); X ;############################################################################### ;# Seconds_To_Elapsed ;# ;# Coverts a seconds count to form [d+]h:mm:ss. If $Collapse ;# is true then the result is compacted somewhat. The string returned ;# will be of the form [d+][[h:]mm]:ss. ;# ;# Arguments: ;# $Seconds, $Collapse ;# ;# Examples: ;# &Seconds_To_Elapsed (0, 0) -> 0:00:00 ;# &Seconds_To_Elapsed (0, 1) -> :00 ;# ;# &Seconds_To_Elapsed (119, 0) -> 0:01:59 ;# &Seconds_To_Elapsed (119, 1) -> 01:59 ;# ;# &Seconds_To_Elapsed (3601, 0) -> 1:00:01 ;# &Seconds_To_Elapsed (3601, 1) -> 1:00:01 ;# ;# &Seconds_To_Elapsed (86401, 0) -> 1+0:00:01 ;# &Seconds_To_Elapsed (86401, 1) -> 1+:01 ;# ;# Returns: ;# $Elapsed ;############################################################################### sub main'Seconds_To_Elapsed { X local ($Seconds, $Collapse) = @_; X local ($Type, $Multiplier, @Multipliers, $Separator, $DHMS_Used, X $Elapsed, @Mult_And_Seps, $Print_Field); X X $Multiplier = 1; X @Mult_And_Seps = @MULT_AND_SEPS; X X # Keep subtracting the number of seconds corresponding to a time field X # from the number of seconds passed to the function. X while (1) X { X ($Type, $Multiplier, $Separator, $Format) = splice (@Mult_And_Seps, 0, 4); X last if (! $Multiplier); X $Seconds -= $DHMS_Used * $Multiplier X if ($DHMS_Used = int ($Seconds / $Multiplier)); X X # Figure out if we should print this field X if ($Type == $DAYS) X { X $Print_Field = $DHMS_Used; X } X X elsif ($Collapse) X { X if ($Type == $HOURS) X { X $Print_Field = $DHMS_Used; X } X elsif ($Type == $MINUTES) X { X $Print_Field = $DHMS_Used || $Printed_Field {$HOURS}; X } X else X { X $Format = ":%02d" X if (! $Printed_Field {$MINUTES}); X $Print_Field = 1; X }; X } X X else X { X $Print_Field = 1; X }; X X $Printed_Field {$Type} = $Print_Field; X $Elapsed .= sprintf ("$Format%s", $DHMS_Used, $Separator) X if ($Print_Field); X }; X X return ($Elapsed); }; X 1; SHAR_EOF chmod 0444 libs/elapsed.pl || echo 'restore of libs/elapsed.pl failed' Wc_c="`wc -c < 'libs/elapsed.pl'`" test 3198 -eq "$Wc_c" || echo 'libs/elapsed.pl: original size 3198, current size' "$Wc_c" fi # ============= libs/mail.pl ============== if test -f 'libs/mail.pl' -a X"$1" != X"-c"; then echo 'x - skipping libs/mail.pl (File already exists)' else echo 'x - extracting libs/mail.pl (Text)' sed 's/^X//' << 'SHAR_EOF' > 'libs/mail.pl' && ;# NAME ;# mail.pl - perl function(s) to handle mail processing ;# ;# AUTHOR ;# Michael S. Muegel (mmuegel@mot.com) ;# ;# RCS INFORMATION ;# mmuegel ;# /usr/local/ustart/src/mail-tools/dist/foo/libs/mail.pl,v 1.1 1993/07/28 08:07:19 mmuegel Exp X package mail; X # Mailer statement to eval. $Users, $Subject, and $Verbose are substituted # via eval $BIN_MAILER = "/usr/ucb/mail \$Verbose -s '\$Subject' \$Users"; X # Sendmail command to use when $Use_Sendmail is true. $SENDMAIL = '/usr/lib/sendmail $Verbose $Users'; X ;############################################################################### ;# Send_Mail ;# ;# Sends $Message to $Users with a subject of $Subject. If $Message_Is_File ;# is true then $Message is assumed to be a filename pointing to the mail ;# message. This is a new option and thus the backwards-compatible hack. ;# $Users should be a space separated list of mail-ids. ;# ;# If everything went OK $Status will be 1 and $Error_Msg can be ignored; ;# otherwise, $Status will be 0 and $Error_Msg will contain an error message. ;# ;# If $Use_Sendmail is 1 then sendmail is used to send the message. Normally ;# a mailer such as Mail is used. By specifying this you can include ;# headers in addition to text in either $Message or $Message_Is_File. ;# If either $Message or $Message_Is_File contain a Subject: header then ;# $Subject is ignored; otherwise, a Subject: header is automatically created. ;# Similar to the Subject: header, if a To: header does not exist one ;# is automatically created from the $Users argument. The mail is still ;# sent, however, to the recipients listed in $Users. This is keeping with ;# normal sendmail usage (header vs. envelope). ;# ;# In both bin mailer and sendmail modes $Verbose will turn on verbose mode ;# (normally just sendmail verbose mode output). ;# ;# Arguments: ;# $Users, $Subject, $Message, $Message_Is_File, $Verbose, $Use_Sendmail ;# ;# Returns: ;# $Status, $Error_Msg ;############################################################################### sub main'Send_Mail { X local ($Users, $Subject, $Message, $Message_Is_File, $Verbose, X $Use_Sendmail) = @_; X local ($BIN_MAILER_HANDLE, $Mailer_Command, $Header_Found, %Header_Map, X $Header_Extra, $Mailer); X X # If the message is contained in a file read it in so we can have one X # consistent interface X if ($Message_Is_File) X { X undef $/; X $Message_Is_File = 0; X open (Message) || return (0, "error reading $Message: $!"); X $Message = ; X close (Message); X }; X X # If sendmail mode see if we need to add some headers X if ($Use_Sendmail) X { X # Determine if a header block is included in the message and what headers X # are there X foreach (split (/\n/, $Message)) X { X last if ($_ eq ""); X $Header_Found = $Header_Map {$1} = 1 if (/^([A-Z]\S*): /); X }; X X # Add some headers? X if (! $Header_Map {"To"}) X { X $Header_Extra .= "To: " . join (", ", $Users) . "\n"; X }; X if (($Subject ne "") && (! $Header_Map {"Subject"})) X { X $Header_Extra .= "Subject: $Subject\n"; X }; X X # Add the required blank line between header/body if there where no X # headers to begin with X if ($Header_Found) X { X $Message = "$Header_Extra$Message"; X } X else X { X $Message = "$Header_Extra\n$Message"; X }; X }; X X # Get a string that is the mail command X $Verbose = ($Verbose) ? "-v" : ""; X $Mailer = ($Use_Sendmail) ? $SENDMAIL : $BIN_MAILER; X eval "\$Mailer = \"$Mailer\""; X return (0, "error setting \$Mailer: $@") if ($@); X X # need to catch SIGPIPE in case the $Mailer call fails X $SIG {'PIPE'} = "mail'Cleanup"; X X # Open mailer X return (0, "can not open mail program: $Mailer") if (! open (MAILER, "| $Mailer")); X X # Send off the mail! X print MAILER $Message; X close (MAILER); X return (0, "error running mail program: $Mailer") if ($?); X X # Everything must have went AOK X return (1); }; X ;############################################################################### ;# Cleanup ;# ;# Simply here so we can catch SIGPIPE and not exit. ;# ;# Globals: ;# None ;# ;# Arguments: ;# None ;# ;# Returns: ;# Nothing exciting ;############################################################################### sub Cleanup { }; X 1; SHAR_EOF chmod 0444 libs/mail.pl || echo 'restore of libs/mail.pl failed' Wc_c="`wc -c < 'libs/mail.pl'`" test 4356 -eq "$Wc_c" || echo 'libs/mail.pl: original size 4356, current size' "$Wc_c" fi # ============= libs/mqueue.pl ============== if test -f 'libs/mqueue.pl' -a X"$1" != X"-c"; then echo 'x - skipping libs/mqueue.pl (File already exists)' else echo 'x - extracting libs/mqueue.pl (Text)' sed 's/^X//' << 'SHAR_EOF' > 'libs/mqueue.pl' && ;# NAME ;# mqueue.pl - functions to work with the sendmail queue ;# ;# DESCRIPTION ;# Both Get_Queue_IDs and Parse_Control_File are available to get ;# information about the sendmail queue. The cqueue program is a good ;# example of how these functions work. ;# ;# AUTHOR ;# Michael S. Muegel (mmuegel@mot.com) ;# ;# RCS INFORMATION ;# mmuegel ;# /usr/local/ustart/src/mail-tools/dist/foo/libs/mqueue.pl,v ;# 1.1 of 1993/07/28 08:07:19 X package mqueue; X ;############################################################################### ;# Get_Queue_IDs ;# ;# Will figure out the queue IDs in $Queue that have both control and data ;# files. They are returned in @Valid_IDs. Those IDs that have a ;# control file and no data file are saved to the array globbed by ;# *Missing_Control_IDs. Likewise, those IDs that have a data file and no ;# control file are saved to the array globbed by *Missing_Data_IDs. ;# ;# If $Skip_Locked is true they a message that has a lock file is skipped ;# and will not show up in any of the arrays. ;# ;# If everything went AOK then $Status is 1; otherwise, $Status is 0 and ;# $Msg tells what went wrong. ;# ;# Globals: ;# None ;# ;# Arguments: ;# $Queue, $Skip_Locked, *Missing_Control_IDs, *Missing_Data_IDs ;# ;# Returns: ;# $Status, $Msg, @Valid_IDs ;############################################################################### sub main'Get_Queue_IDs { X local ($Queue, $Skip_Locked, *Missing_Control_IDs, X *Missing_Data_IDs) = @_; X local (*QUEUE, @Files, %Lock_IDs, %Data_IDs, %Control_IDs, $_); X X # Make sure that the * argument @arrays ar empty X @Missing_Control_IDs = @Missing_Data_IDs = (); X X # Save each data, lock, and queue file in @Files X opendir (QUEUE, $Queue) || return (0, "error getting directory listing of $Queue"); X @Files = grep (/^(df|lf|qf)/, readdir (QUEUE)); X closedir (QUEUE); X X # Create indexed list of data and control files. IF $Skip_Locked is true X # then skip either if there is a lock file present. X if ($Skip_Locked) X { X grep ((s/^lf//) && ($Lock_IDs {$_} = 1), @Files); X grep ((s/^df//) && (! $Lock_IDs {$_}) && ($Data_IDs {$_} = 1), @Files); X grep ((s/^qf//) && (! $Lock_IDs {$_}) && ($Control_IDs {$_} = 1), @Files); X } X else X { X grep ((s/^df//) && ($Data_IDs {$_} = 1), @Files); X grep ((s/^qf//) && ($Control_IDs {$_} = 1), @Files); X }; X X # Find missing control and data files and remove them from the lists of each X @Missing_Control_IDs = sort (grep ((! $Control_IDs {$_}) && (delete $Data_IDs {$_}), keys (%Data_IDs))); X @Missing_Data_IDs = sort (grep ((! $Data_IDs {$_} && (delete $Control_IDs {$_})), keys (%Control_IDs))); X X X # Return the IDs in an appartently random order X return (1, "", keys (%Control_IDs)); }; X X ;############################################################################### ;# Parse_Control_File ;# ;# Will pase a sendmail queue control file for useful information. See the ;# Sendmail Installtion and Operation Guide (SMM:07) for a complete ;# explanation of each field. ;# ;# The following globbed variables are set (or cleared) by this function: ;# ;# $Sender The sender's address. ;# ;# @Recipients One or more addresses for the recipient of the mail. ;# ;# @Errors_To One or more addresses for addresses to which mail ;# delivery errors should be sent. ;# ;# $Creation_Time The job creation time in time(3) format. That is, ;# seconds since 00:00:00 GMT 1/1/70. ;# ;# $Priority An integer representing the current message priority. ;# This is used to order the queue. Higher numbers mean ;# lower priorities. ;# ;# $Status_Message The status of the mail message. It can contain any ;# text. ;# ;# @Headers Message headers unparsed but in their original order. ;# Headers that span multiple lines are not mucked with, ;# embedded \ns will be evident. ;# ;# In all e-mail addresses bounding <> pairs are stripped. ;# ;# If everything went AOK then $Status is 1. If the message with queue ID ;# $Queue_ID just does not exist anymore -1 is returned. This is very ;# possible and should be allowed for. Otherwise, $Status is 0 and $Msg ;# tells what went wrong. ;# ;# Globals: ;# None ;# ;# Arguments: ;# $Queue, $Queue_ID, *Sender, *Recipients, *Errors_To, *Creation_Time, ;# *Priority, *Status_Message, *Headers ;# ;# Returns: ;# $Status, $Msg ;############################################################################### sub main'Parse_Control_File { X local ($Queue, $Queue_ID, *Sender, *Recipients, *Errors_To, *Creation_Time, X *Priority, *Status_Message, *Headers) = @_; X local (*Control, $_, $Not_Empty); X X # Required variables and the associated control. If empty at the end of X # parsing we return a bad status. X @REQUIRED_INFO = ('$Creation_Time', 'T', '$Sender', 'S', '@Recipients', 'R', X '$Priority', 'P'); X X # Open up the control file for read X $Control = "$Queue/qf$Queue_ID"; X if (! open (Control)) X { X return (-1) if ((-x $Queue) && (! -f "$Queue/qf$Queue_ID") && X (! -f "$Queue/df$Queue_ID")); X return (0, "error opening $Control for read: $!"); X }; X X # Reset the globbed variables just in case X $Sender = $Creation_Time = $Priority = $Status_Message = ""; X @Recipients = @Errors_To = @Headers = (); X X # Look for a few things in the control file X READ: while () X { X $Not_Empty = 1; X chop; X X PARSE: X { X if (/^T(\d+)$/) X { X $Creation_Time = $1; X } X elsif (/^S(<)?([^>]+)/) X { X $Sender = $2; X } X elsif (/^R(<)?([^>]+)/) X { X push (@Recipients, $2); X } X elsif (/^E(<)?([^>]+)/) X { X push (@Errors_To, $2); X } X elsif (/^M(.*)/) X { X $Status_Message = $1; X } X elsif (/^P(\d+)$/) X { X $Priority = $1; X } X elsif (/^H(.*)/) X { X $Header = $1; X while () X { X chop; X last if (/^[A-Z]/); X $Header .= "\n$_"; X }; X push (@Headers, $Header); X redo PARSE if ($_); X last if (eof); X }; X }; X }; X X # If the file was empty scream bloody murder X return (0, "empty control file") if (! $Not_Empty); X X # Yell if we could not find a required field X while (($Var, $Control) = splice (@REQUIRED_INFO, 0, 2)) X { X eval "return (0, 'required control field $Control not found') X if (! $Var)"; X return (0, "error checking \$Var: $@") if ($@); X }; X X # Everything went AOK X return (1); }; X 1; SHAR_EOF chmod 0444 libs/mqueue.pl || echo 'restore of libs/mqueue.pl failed' Wc_c="`wc -c < 'libs/mqueue.pl'`" test 6908 -eq "$Wc_c" || echo 'libs/mqueue.pl: original size 6908, current size' "$Wc_c" fi # ============= libs/newgetopts.pl ============== if test -f 'libs/newgetopts.pl' -a X"$1" != X"-c"; then echo 'x - skipping libs/newgetopts.pl (File already exists)' else echo 'x - extracting libs/newgetopts.pl (Text)' sed 's/^X//' << 'SHAR_EOF' > 'libs/newgetopts.pl' && ;# NAME ;# newgetopts.pl - a better newgetopt (which is a better getopts which is ;# a better getopt ;-) ;# ;# AUTHOR ;# Mike Muegel (mmuegel@mot.com) ;# ;# mmuegel ;# /usr/local/ustart/src/mail-tools/dist/foo/libs/newgetopts.pl,v 1.1 1993/07/28 08:07:19 mmuegel Exp X ;############################################################################### ;# New_Getopts ;# ;# Does not care about order of switches, options, and arguments like ;# getopts.pl. Thus all non-switches/options will be kept in ARGV even if they ;# are not at the end. If $Pass_Invalid is set all unknown options will be ;# passed back to the caller by keeping them in @ARGV. This is useful when ;# parsing a command line for your script while ignoring options that you ;# may pass to another script. If this is set New_Getopts tries to maintain ;# the switch clustering on the unknown switches. ;# ;# Accepts the special argument -usage to print the Usage string. Also accepts ;# the special option -version which prints the contents of the string ;# $VERSION. $VERSION may or may not have an embedded \n in it. If -usage ;# or -version are specified a status of -1 is returned. Note that the usage ;# option is only accepted if the usage string is not null. ;# ;# $Switches is just like the formal arguemnt of getopts.pl. $Usage is a usage ;# string with or without a trailing \n. *Switch_To_Order is an optional ;# pointer to the name of an associative array which will contain a mapping of ;# switch names to the order in which (if at all) the argument was entered. ;# ;# For example, if @ARGV contains -v, -x, test: ;# ;# $Switch_To_Order {"v"} = 1; ;# $Switch_To_Order {"x"} = 2; ;# ;# Note that in the case of multiple occurrences of an option $Switch_To_Order ;# will store each occurrence of the argument via a string that emulates ;# an array. This is done by using join ($;, ...). You can retrieve the ;# array by using split (/$;/, ...). ;# ;# *Split_ARGV is an optional pointer to an array which will conatin the ;# original switches along with their values. For the example used above ;# Split_ARGV would contain: ;# ;# @Split_ARGV = ("v", "", "x", "test"); ;# ;# Another exciting ;-) feature that newgetopts has. Along with creating the ;# normal $opt_ scalars for the last value of an argument the list @opt_ is ;# created. It is an array which contains all the values of arguments to the ;# basename of the variable. They are stored in the order which they occurred ;# on the command line starting with $[. Note that blank arguments are stored ;# as "". Along with providing support for multiple options on the command ;# line this also provides a method of counting the number of times an option ;# was specified via $#opt_. ;# ;# Automatically resets all $opt_, @opt_, %Switch_To_Order, and @Split_ARGV ;# variables so that New_Getopts may be called more than once from within ;# the same program. Thus, if $opt_v is set upon entry to New_Getopts and ;# -v is not in @ARGV $opt_v will not be set upon exit. ;# ;# Arguments: ;# $Switches, $Usage, $Pass_Invalid, *Switch_To_Order, *Split_ARGV ;# ;# Returns: ;# -1, 0, or 1 depending on status (printed Usage/Version, OK, not OK) ;############################################################################### sub New_Getopts { X local($taint_argumentative, $Usage, $Pass_Invalid, *Switch_To_Order, X *Split_ARGV) = @_; X local(@args,$_,$first,$rest,$errs, @leftovers, @current_leftovers, X %Switch_Found); X local($[, $*, $Script_Name, $argumentative); X X # Untaint the argument cluster so that we can use this with taintperl X $taint_argumentative =~ /^(.*)$/; X $argumentative = $1; X X # Clear anything that might still be set from a previous New_Getopts X # call. X @Split_ARGV = (); X X # Get the basename of the calling script X ($Script_Name = $0) =~ s/.*\///; X X # Make Usage have a trailing \n X $Usage .= "\n" if ($Usage !~ /\n$/); X X @args = split( / */, $argumentative ); X X # Clear anything that might still be set from a previous New_Getopts call. X foreach $first (@args) X { X next if ($first eq ":"); X delete $Switch_Found {$first}; X delete $Switch_To_Order {$first}; X eval "undef \@opt_$first; undef \$opt_$first;"; X }; X X while (@ARGV) X { X # Let usage through X if (($ARGV[0] eq "-usage") && ($Usage ne "\n")) X { X print $Usage; X exit (-1); X } X X elsif ($ARGV[0] eq "-version") X { X if ($VERSION) X { X print $VERSION; X print "\n" if ($VERSION !~ /\n$/); X } X else X { X warn "${Script_Name}: no version information available, sorry\n"; X } X exit (-1); X } X X elsif (($_ = $ARGV[0]) =~ /^-(.)(.*)/) X { X ($first,$rest) = ($1,$2); X $pos = index($argumentative,$first); X X $Switch_To_Order {$first} = join ($;, split (/$;/, $Switch_To_Order {$first}), ++$Order); X X if($pos >= $[) X { X if($args[$pos+1] eq ':') X { X shift(@ARGV); X if($rest eq '') X { X $rest = shift(@ARGV); X } X X eval "\$opt_$first = \$rest;"; X eval "push (\@opt_$first, \$rest);"; X push (@Split_ARGV, $first, $rest); X } X else X { X eval "\$opt_$first = 1"; X eval "push (\@opt_$first, '');"; X push (@Split_ARGV, $first, ""); X X if($rest eq '') X { X shift(@ARGV); X } X else X { X $ARGV[0] = "-$rest"; X } X } X } X X else X { X # Save any other switches if $Pass_Valid X if ($Pass_Invalid) X { X push (@current_leftovers, $first); X } X else X { X warn "${Script_Name}: unknown option: $first\n"; X ++$errs; X }; X if($rest ne '') X { X $ARGV[0] = "-$rest"; X } X else X { X shift(@ARGV); X } X } X } X X else X { X push (@leftovers, shift (@ARGV)); X }; X X # Save any other switches if $Pass_Valid X if ((@current_leftovers) && ($rest eq '')) X { X push (@leftovers, "-" . join ("", @current_leftovers)); X @current_leftovers = (); X }; X }; X X # Automatically print Usage if a warning was given X @ARGV = @leftovers; X if ($errs != 0) X { X warn $Usage; X return (0); X } X else X { X return (1); X } X } X 1; SHAR_EOF chmod 0444 libs/newgetopts.pl || echo 'restore of libs/newgetopts.pl failed' Wc_c="`wc -c < 'libs/newgetopts.pl'`" test 7024 -eq "$Wc_c" || echo 'libs/newgetopts.pl: original size 7024, current size' "$Wc_c" fi # ============= libs/strings1.pl ============== if test -f 'libs/strings1.pl' -a X"$1" != X"-c"; then echo 'x - skipping libs/strings1.pl (File already exists)' else echo 'x - extracting libs/strings1.pl (Text)' sed 's/^X//' << 'SHAR_EOF' > 'libs/strings1.pl' && ;# NAME ;# strings1.pl - FUN with strings #1 ;# ;# NOTES ;# I wrote Format_Text_Block when I just started programming Perl so ;# it is probably not very Perlish code. Center is more like it :-). ;# ;# AUTHOR ;# Michael S. Muegel (mmuegel@mot.com) ;# ;# RCS INFORMATION ;# mmuegel ;# /usr/local/ustart/src/mail-tools/dist/foo/libs/strings1.pl,v 1.1 1993/07/28 08:07:19 mmuegel Exp X package strings1; X ;###############################################################################;# Center ;# ;# Center $Text assuming the output should be $Columns wide. $Text can span ;# multiple lines, of course :-). Lines within $Text that contain only ;# whitespace are not centered and are instead collapsed. This may save time ;# when printing them later. ;# ;# Arguments: ;# $Text, $Columns ;# ;# Returns: ;# $Centered_Text ;############################################################################### sub main'Center { X local ($_, $Columns) = @_; X local ($*) = 1; X X s@^(.*)$@" " x (($Columns - length ($1)) / 2) . $1@eg; X s/^[\t ]*$//g; X return ($_); }; X ;############################################################################### ;# Format_Text_Block ;# ;# Formats a text string to be printed to the display or other similar device. ;# Text in $String will be fomratted such that the following hold: ;# ;# + $String contains the (possibly) multi-line text to print. It is ;# automatically word-wrapped to fit in $Columns. ;# ;# + \n'd are maintained and are not folded. ;# ;# + $Offset is pre-pended before each separate line of text. ;# ;# + If $Offset_Once is $TRUE $Offset will only appear on the first line. ;# All other lines will be indented to match the amount of whitespace of ;# $Offset. ;# ;# + If $Bullet_Indent is $TRUE $Offset will only be applied to the beginning ;# of lines as they occurred in the original $String. Lines that are created ;# by this routine will always be indented by blank spaces. ;# ;# + If $Columns is 0 no word-wrap is done. This might be useful to still ;# to offset each line in a buffer. ;# ;# + If $Split_Expr is supplied the string is split on it. If not supplied ;# the string is split on " \t\/\-\,\." by default. ;# ;# + If $Offset_Blank is $TRUE then empty lines will have $Offset pre-pended ;# to them. Otherwise, they will still empty. ;# ;# This is a really workhorse routine that I use in many places because of its ;# veratility. ;# ;# Arguments: ;# $String, $Offset, $Offset_Once, $Bullet_Indent, $Columns, $Split_Expr, ;# $Offset_Blank ;# ;# Returns: ;# $Buffer ;############################################################################### sub main'Format_Text_Block { X local ($String, $Real_Offset, $Offset_Once, $Bullet_Indent, $Columns, X $Split_Expr, $Offset_Blank) = @_; X X local ($New_Line, $Line, $Chars_Per_Line, $Space_Offset, $Buffer, X $Next_New_Line, $Num_Lines, $Num_Offsets, $Offset); X local ($*) = 0; X local ($BLANK_TAG) = "__FORMAT_BLANK__"; X local ($Blank_Offset) = $Real_Offset if ($Offset_Blank); X X # What should we split on? X $Split_Expr = " \\t\\/\\-\\,\\." if (! $Split_Expr); X X # Pre-process the string - convert blank lines to __FORMAT_BLANK__ sequence X $String =~ s/\n\n/\n$BLANK_TAG\n/g; X $String =~ s/^\n/$BLANK_TAG\n/g; X $String =~ s/\n$/\n$BLANK_TAG/g; X X # If bad $Columns/$Offset combo or no $Columns make a VERRRYYY wide $Column X $Offset = $Real_Offset; X $Chars_Per_Line = 16000 if (($Chars_Per_Line = $Columns - length ($Offset)) <= 0); X $Space_Offset = " " x length ($Offset); X X # Get a buffer X foreach $Line (split ("\n", $String)) X { X $Offset = $Real_Offset if ($Bullet_Indent); X X # Find where to split the line X if ($Line ne $BLANK_TAG) X { X $New_Line = ""; X while ($Line =~ /^([$Split_Expr]*)([^$Split_Expr]+)/) X { X if (length ("$New_Line$&") >= $Chars_Per_Line) X { X $Next_New_Line = $+; X $New_Line = "$Offset$New_Line$1"; X $Buffer .= "\n" if ($Num_Lines++); X $Buffer .= $New_Line; X $Offset = $Space_Offset if (($Offset) && ($Offset_Once)); X $New_Line = $Next_New_Line; X ++$Num_Lines; X } X else X { X $New_Line .= $&; X }; X $Line = $'; X }; X X $Buffer .= "\n" if ($Num_Lines++); X $Buffer .= "$Offset$New_Line$Line"; X $Offset = $Space_Offset if (($Offset) && ($Offset_Once)); X } X X else X { X $Buffer .= "\n$Blank_Offset"; X }; X }; X X return ($Buffer); X }; X 1; SHAR_EOF chmod 0444 libs/strings1.pl || echo 'restore of libs/strings1.pl failed' Wc_c="`wc -c < 'libs/strings1.pl'`" test 4687 -eq "$Wc_c" || echo 'libs/strings1.pl: original size 4687, current size' "$Wc_c" fi # ============= libs/timespec.pl ============== if test -f 'libs/timespec.pl' -a X"$1" != X"-c"; then echo 'x - skipping libs/timespec.pl (File already exists)' else echo 'x - extracting libs/timespec.pl (Text)' sed 's/^X//' << 'SHAR_EOF' > 'libs/timespec.pl' && ;# NAME ;# timespec.pl - convert a pre-defined time specifyer to seconds ;# ;# AUTHOR ;# Michael S. Muegel (mmuegel@mot.com) ;# ;# RCS INFORMATION ;# mmuegel ;# /usr/local/ustart/src/mail-tools/dist/foo/libs/timespec.pl,v 1.1 1993/07/28 08:07:19 mmuegel Exp X package timespec; X %TIME_SPEC_TO_SECONDS = ("s", 1, X "m", 60, X "h", 60 * 60, X "d", 60 * 60 * 24 X ); X $VALID_TIME_SPEC_EXPR = "[" . join ("", keys (%TIME_SPEC_TO_SECONDS)) . "]"; X ;############################################################################### ;# Time_Spec_To_Seconds ;# ;# Converts a string of the form: ;# ;# ((s|m|h|d))+ ;# ;# to seconds. The second part of the time spec specifies seconds, minutes, ;# hours, or days, respectfully. The first part is the number of those untis. ;# There can be any number of such specifiers. As an example, 1h30m means 1 ;# hour and 30 minutes. ;# ;# If the parsing went OK then $Status is 1, $Msg is undefined, and $Seconds ;# is $Time_Spec converted to seconds. If something went wrong then $Status ;# is 0 and $Msg explains what went wrong. ;# ;# Arguments: ;# $Time_Spec ;# ;# Returns: ;# $Status, $Msg, $Seconds ;############################################################################### sub main'Time_Spec_To_Seconds { X $Time_Spec = $_[0]; X X $Seconds = 0; X while ($Time_Spec =~ /^(\d+)($VALID_TIME_SPEC_EXPR)/) X { X $Seconds += $1 * $TIME_SPEC_TO_SECONDS {$2}; X $Time_Spec = $'; X }; X X return (0, "error parsing time spec: $Time_Spec") if ($Time_Spec ne ""); X return (1, "", $Seconds); X }; X X 1; SHAR_EOF chmod 0444 libs/timespec.pl || echo 'restore of libs/timespec.pl failed' Wc_c="`wc -c < 'libs/timespec.pl'`" test 1609 -eq "$Wc_c" || echo 'libs/timespec.pl: original size 1609, current size' "$Wc_c" fi # ============= man/cqueue.1 ============== if test ! -d 'man'; then echo 'x - creating directory man' mkdir 'man' fi if test -f 'man/cqueue.1' -a X"$1" != X"-c"; then echo 'x - skipping man/cqueue.1 (File already exists)' else echo 'x - extracting man/cqueue.1 (Text)' sed 's/^X//' << 'SHAR_EOF' > 'man/cqueue.1' && .TH CQUEUE 1L \" \" mmuegel \" /usr/local/ustart/src/mail-tools/dist/foo/man/cqueue.1,v 1.1 1993/07/28 08:08:25 mmuegel Exp \" .ds mp \fBcqueue\fR .de IB .IP \(bu 2 .. .SH NAME \*(mp - check sendmail queue for problems .SH SYNOPSIS .IP \*(mp 7 [ \fB-abdms\fR ] [ \fB-q\fR \fIqueue-dir\fI ] [ \fB-t\fR \fItime\fR ] [ \fB-u\fR \fIusers\fR ] [ \fB-w\fR \fIwidth\fR ] .SH DESCRIPTION Reports on problems in the sendmail queue. With no options this simply means listing messages that have been in the queue longer than a default period along with a summary of queue mail by host and status message. .SH OPTIONS .IP \fB-a\fR 14 Report on all messages in the queue. This is equivalent to saying \fB-t\fR 0s. You may like this command so much that you use it as a replacement for \fBmqueue\fR. For example: .sp 1 .RS .RS \fBalias mqueue cqueue -a\fR .RE .RE .IP \fB-b\fR 14 Also report on bogus queue files. Those are files that have data files and no control files or vice versa. .IP \fB-d\fR Print a detailed report of mail messages that have been queued longer than the specified or default time. Information that is presented includes: .RS .RS .IB Sendmail queue identifier. .IB Date the message was first queued. .IB Sender of the message. .IB One or more recipients of the message. .IB An optional status of the message. This usually indicates why the message has not been delivered. .RE .RE .IP \fB-m\fR 14 Mail off the results if any problems were found. Normaly results are printed to stdout. If this option is specified they are mailed to one or more users. Results are not printed to stdout in this case. Results are \fBonly\fR mailed if \*(mp found something wrong. .IP "\fB-q\fR \fIqueue-dir\fI" The sendmail mail queue directory. Default is \fB/usr/spool/mqueue\fR or some other site configured value. .IP "\fB-t\fR \fItime\fR" List messages that have been in the queue longer than \fItime\fR. Time should of the form: .sp 1 .RS .RS ((s|m|h|d))+ .sp 1 .RE .RE .RS 14 The second portion of the above definition specifies seconds, minutes, hours, or days, respectfully. The first portion is the number of those units. There can be any number of such specifiers. As an example, 1h30m means 1 hour and 30 minutes. .sp 1 The default is 2 hours. .RE .IP \fB-s\fR 14 Print a summary of messages that have been queued longer than the specified or default time. Two separate types of summaries are printed. The first summarizes the queue messages by destination host. The host name is gleaned from the recipient addresses for each message. Thus the actual host names for this summary should be taken with a grain of salt since ruleset 0 has not been applied to the address the host was taken from nor were MX records consulted. It would be possible to add this; however, the execution time of the script would increase dramatically. The second summary is by status message. .IP "\fB-u\fR \fIusers\fR" Specify list of users to send a mail report to other than the invoker. This option is only valid when \fB-m\fR has been specified. Multiple recipients may be separated by spaces. .IP "\fB-w\fR \fIwidth\fR" Specify the page width to which the output should tailored. \fIwidth\fR should be an integer representing some character position. The default is 80 or some other site configured value. Output is folded neatly to match \fIwidth\fR. .SH EXAMPLES .nf % \fBdate\fR Tue Jan 19 12:07:20 CST 1993 X % \fBcqueue -t 21h45m -w 70\fR X Summary of messages in queue longer than 21:45:00 by destination host: X X Number of X Messages Destination Host X --------- ---------------- X 2 cigseg.rtsg.mot.com X 1 mnesouth.corp.mot.com X --------- X 3 X Summary of messages in queue longer than 21:45:00 by status message: X X Number of X Messages Status Message X --------- -------------- X 1 Deferred: Connection refused by mnesouth.corp.mot.com X 2 Deferred: Host Name Lookup Failure X --------- X 3 X Detail of messages in queue longer than 21:45:00 sorted by creation date: X X ID: AA20573 X Date: 02:09:27 PM 01/18/93 X Sender: melrose-place-owner@ferkel.ucsb.edu X Recipient: pbaker@cigseg.rtsg.mot.com X Status: Deferred: Host Name Lookup Failure X X ID: AA20757 X Date: 02:11:30 PM 01/18/93 X Sender: 90210-owner@ferkel.ucsb.edu X Recipient: pbaker@cigseg.rtsg.mot.com X Status: Deferred: Host Name Lookup Failure X X ID: AA21110 X Date: 02:17:01 PM 01/18/93 X Sender: rd_lap_wg@mdd.comm.mot.com X Recipient: jim_mathis@mnesouth.corp.mot.com X Status: Deferred: Connection refused by mnesouth.corp.mot.com .fi .SH AUTHOR .nf Michael S. Muegel (mmuegel@mot.com) UNIX Applications Startup Group Corporate Information Office, Schaumburg, IL Motorola, Inc. .fi .SH COPYRIGHT NOTICE Copyright 1993, Motorola, Inc. .sp 1 Permission to use, copy, modify and distribute without charge this software, documentation, etc. is granted, provided that this comment and the author's name is retained. The author nor Motorola assume any responsibility for problems resulting from the use of this software. .SH SEE ALSO .nf \fBsendmail(8)\fR \fISendmail Installation and Operation Guide\fR. .fi SHAR_EOF chmod 0444 man/cqueue.1 || echo 'restore of man/cqueue.1 failed' Wc_c="`wc -c < 'man/cqueue.1'`" test 5212 -eq "$Wc_c" || echo 'man/cqueue.1: original size 5212, current size' "$Wc_c" fi # ============= man/postclip.1 ============== if test -f 'man/postclip.1' -a X"$1" != X"-c"; then echo 'x - skipping man/postclip.1 (File already exists)' else echo 'x - extracting man/postclip.1 (Text)' sed 's/^X//' << 'SHAR_EOF' > 'man/postclip.1' && .TH POSTCLIP 1L \" \" mmuegel \" /usr/local/ustart/src/mail-tools/dist/foo/man/postclip.1,v 1.1 1993/07/28 08:08:25 mmuegel Exp \" .ds mp \fBpostclip\fR .SH NAME \*(mp - send only the headers to Postmaster .SH SYNOPSIS \*(mp [ \fB-v\fR ] [ \fIto\fR ... ] .SH DESCRIPTION \*(mp will forward non-delivery reports to a postmaster after deleting the body of the message. This keeps bounced mail private and helps to avoid disk space problems. \*(mp tries its best to keep as much of the header trail as possible. Hopefully only the original body of the message will be filtered. Only messages that have a subject that begins with 'Returned mail:' are filtered. This ensures that other mail is not accidentally mucked with. Finally, note that \fBsendmail\fR is used to deliver the message after it has been (possibly) filtered. All of the original headers will remain intact. .sp 1 You can use this with any \fBsendmail\fR by modifying the Postmaster alias. If you use IDA \fBsendmail\fR you could add the following to .m4: .sp 1 .RS define(POSTMASTERBOUNCE, mailer-errors) .RE .sp 1 In the aliases file, add a line similar to the following: .sp 1 .RS mailer-errors: "|/usr/local/bin/postclip postmaster" .RE .SH OPTIONS .IP \fB-v\fR Be verbose about delivery. Probably only useful when debugging \*(mp. .IP \fIto\fR A list of one or more e-mail ids to send the modified Postmaster messages to. If none are specified postmaster is used. .SH AUTHOR .nf Michael S. Muegel (mmuegel@mot.com) UNIX Applications Startup Group Corporate Information Office, Schaumburg, IL Motorola, Inc. .fi .SH CREDITS The original idea to filter Postmaster mail was taken from a script by Christopher Davis . .SH COPYRIGHT NOTICE Copyright 1992, Motorola, Inc. .sp 1 Permission to use, copy, modify and distribute without charge this software, documentation, etc. is granted, provided that this comment and the author's name is retained. The author nor Motorola assume any responsibility for problems resulting from the use of this software. .SH SEE ALSO .nf \fBsendmail(8)\fR .fi SHAR_EOF chmod 0444 man/postclip.1 || echo 'restore of man/postclip.1 failed' Wc_c="`wc -c < 'man/postclip.1'`" test 2078 -eq "$Wc_c" || echo 'man/postclip.1: original size 2078, current size' "$Wc_c" fi # ============= src/cqueue ============== if test ! -d 'src'; then echo 'x - creating directory src' mkdir 'src' fi if test -f 'src/cqueue' -a X"$1" != X"-c"; then echo 'x - skipping src/cqueue (File already exists)' else echo 'x - extracting src/cqueue (Text)' sed 's/^X//' << 'SHAR_EOF' > 'src/cqueue' && #!/usr/local/ustart/bin/suidperl X # NAME # cqueue - check sendmail queue for problems # # SYNOPSIS # Type cqueue -usage # # AUTHOR # Michael S. Muegel # # RCS INFORMATION # mmuegel # /usr/local/ustart/src/mail-tools/dist/foo/src/cqueue,v 1.1 1993/07/28 08:09:02 mmuegel Exp X # So that date.pl does not yell (Domain/OS version does a ``) $ENV{'PATH'} = ""; X # A better getopts routine require "newgetopts.pl"; require "timespec.pl"; require "mail.pl"; require "date.pl"; require "mqueue.pl"; require "strings1.pl"; require "elapsed.pl"; X ($Script_Name = $0) =~ s/.*\///; X # Some defaults you may want to change $DEF_TIME = "2h"; $DEF_QUEUE = "/usr/spool/mqueue"; $DEF_COLUMNS = 80; $DATE_FORMAT = "%r %D"; X # Constants that probably should not be changed $USAGE = "Usage: $Script_Name [ -abdms ] [ -q queue-dir ] [ -t time ] [ -u user ] [ -w width ]\n"; $VERSION = "${Script_Name} by mmuegel; 1.1 of 1993/07/28 08:09:02"; $SWITCHES = "abdmst:u:q:w:"; $SPLIT_EXPR = '\s,\.@!%:'; $ADDR_PART_EXPR = '[^!@%]+'; X # Let getopts parse for switches $Status = &New_Getopts ($SWITCHES, $USAGE); exit (0) if ($Status == -1); exit (1) if (! $Status); X # Check args die "${Script_Name}: -u only valid with -m\n" if (($opt_u) && (! $opt_m)); die "${Script_Name}: -a not valid with -t option\n" if ($opt_a && $opt_t); $opt_u = getlogin || (getpwuid ($<))[0] || $ENV{"USER"} || die "${Script_Name}: can not determine who you are!\n" if (! $opt_u); X # Set defaults $opt_t = "0s" if ($opt_a); $opt_t = $DEF_TIME if ($opt_t eq ""); $opt_w = $DEF_COLUMNS if ($opt_w eq ""); $opt_q = $DEF_QUEUE if ($opt_q eq ""); $opt_s = $opt_d = 1 if (! ($opt_s || $opt_d)); X # Untaint the users to mail to $opt_u =~ /^(.*)$/; $Users = $1; X # Convert time option to seconds and seconds to elapsed form die "${Script_Name}: $Msg\n" if (! (($Status, $Msg, $Seconds) = &Time_Spec_To_Seconds ($opt_t))[0]); $Elapsed = &Seconds_To_Elapsed ($Seconds, 1); $Time_Info = " longer than $Elapsed" if ($Seconds); X # Get the current time $Current_Time = time; $Current_Date = &date ($Current_Time, $DATE_FORMAT); X ($Status, $Msg, @Queue_IDs) = &Get_Queue_IDs ($opt_q, 1, @Missing_Control_IDs, X @Missing_Data_IDs); die "$Script_Name: $Msg\n" if (! $Status); X # Yell about missing data/control files? if ($opt_b) { X X $Report = "\nMessages missing control files:\n\n " . X join ("\n ", @Missing_Control_IDs) . X "\n" X if (@Missing_Control_IDs); X X $Report .= "\nMessages missing data files:\n\n " . X join ("\n ", @Missing_Data_IDs) . X "\n" X if (@Missing_Data_IDs); }; X # See if any mail messages are older than $Seconds foreach $Queue_ID (@Queue_IDs) { X # Get lots of info about this sendmail message via the control file X ($Status, $Msg) = &Parse_Control_File ($opt_q, $Queue_ID, *Sender, X *Recipients, *Errors_To, *Creation_Time, *Priority, *Status_Message, X *Headers); X next if ($Status == -1); X if (! $Status) X { X warn "$Script_Name: $Queue_ID: $Msg\n"; X next; X }; X X # Report on message if it is older than $Seconds X if ($Current_Time - $Creation_Time >= $Seconds) X { X # Build summary by host information. Keep track of each host destination X # encountered. X if ($opt_s) X { X %Host_Map = (); X foreach (@Recipients) X { X if ((/@($ADDR_PART_EXPR)$/) || (/($ADDR_PART_EXPR)!$ADDR_PART_EXPR$/)) X { X ($Host = $1) =~ tr/A-Z/a-z/; X $Host_Map {$Host} = 1; X } X else X { X warn "$Script_Name: could not find host part from $_; contact author\n"; X }; X }; X X # For each unique target host add to its stats X grep ($Host_Queued {$_}++, keys (%Host_Map)); X X # Build summary by message information. X $Message_Queued {$Status_Message}++ if ($Status_Message); X }; X X # Build long report information for this creation time (there may be X # more than one message created at the same time) X if ($opt_d) X { X $Creation_Date = &date ($Creation_Time, $DATE_FORMAT); X $Recipient_Info = &Format_Text_Block (join (", ", @Recipients), X " Recipient: ", 1, 0, $opt_w, $SPLIT_EXPR); X $Time_To_Report {$Creation_Time} .= <<"EOS"; X X ID: $Queue_ID X Date: $Creation_Date X Sender: $Sender $Recipient_Info EOS X X # Add the status message if available to long report X if ($Status_Message) X { X $Time_To_Report {$Creation_Time} .= &Format_Text_Block ($Status_Message, X " Status: ", 1, 0, $opt_w, $SPLIT_EXPR) . "\n"; X }; X }; X }; X }; X # Add the summary report by target host? if ($opt_s) { X foreach $Host (sort (keys (%Host_Queued))) X { X $Host_Report .= &Format_Text_Block ($Host, X sprintf (" %-9d ", $Host_Queued{$Host}), 1, 0, $opt_w, X $SPLIT_EXPR) . "\n"; X $Num_Hosts += $Host_Queued{$Host}; X }; X if ($Host_Report) X { X chop ($Host_Report); X $Report .= &Format_Text_Block("\nSummary of messages in queue$Time_Info by destination host:\n", "", 0, 0, $opt_w); X X $Report .= <<"EOS"; X X Number of X Messages Destination Host X --------- ---------------- $Host_Report X --------- X $Num_Hosts EOS X }; }; X # Add the summary by message report? if ($opt_s) { X foreach $Message (sort (keys (%Message_Queued))) X { X $Message_Report .= &Format_Text_Block ($Message, X sprintf (" %-9d ", $Message_Queued{$Message}), 1, 0, $opt_w, X $SPLIT_EXPR) . "\n"; X $Num_Messages += $Message_Queued{$Message}; X }; X if ($Message_Report) X { X chop ($Message_Report); X $Report .= &Format_Text_Block ("\nSummary of messages in queue$Time_Info by status message:\n", "", 0, 0, $opt_w); X X $Report .= <<"EOS"; X X Number of X Messages Status Message X --------- -------------- $Message_Report X --------- X $Num_Messages EOS X }; }; X # Add the detailed message reports? if ($opt_d) { X foreach $Time (sort { $a <=> $b} (keys (%Time_To_Report))) X { X $Report .= &Format_Text_Block ("\nDetail of messages in queue$Time_Info sorted by creation date:\n","", 0, 0, $opt_w) if (! $Detailed_Header++); X $Report .= $Time_To_Report {$Time}; X }; }; X # Now mail or print the report if ($Report) { X $Report .= "\n"; X if ($opt_m) X { X ($Status, $Msg) = &Send_Mail ($Users, "sendmail queue report for $Current_Date", $Report, 0); X die "${Script_Name}: $Msg" if (! $Status); X } X X else X { X print $Report; X }; X }; X # I am outta here... exit (0); SHAR_EOF chmod 0555 src/cqueue || echo 'restore of src/cqueue failed' Wc_c="`wc -c < 'src/cqueue'`" test 6647 -eq "$Wc_c" || echo 'src/cqueue: original size 6647, current size' "$Wc_c" fi # ============= src/postclip ============== if test -f 'src/postclip' -a X"$1" != X"-c"; then echo 'x - skipping src/postclip (File already exists)' else echo 'x - extracting src/postclip (Text)' sed 's/^X//' << 'SHAR_EOF' > 'src/postclip' && #!/usr/local/bin/perl X # NAME # postclip - send only the headers to Postmaster # # SYNOPSIS # postclip [ -v ] [ to ... ] # # AUTHOR # Michael S. Muegel # # RCS INFORMATION # /usr/local/ustart/src/mail-tools/dist/foo/src/postclip,v # 1.1 of 1993/07/28 08:09:02 X # We use this to send off the mail require "newgetopts.pl"; require "mail.pl"; X # Get the basename of the script ($Script_Name = $0) =~ s/.*\///; X # Some famous constants $USAGE = "Usage: $Script_Name [ -v ] [ to ... ]\n"; $VERSION = "${Script_Name} by mmuegel; 1.1 of 1993/07/28 08:09:02"; $SWITCHES = "v"; X # Let getopts parse for switches $Status = &New_Getopts ($SWITCHES, $USAGE); exit (0) if ($Status == -1); exit (1) if (! $Status); X # Who should we send the modified mail to? @ARGV = ("postmaster") if (! @ARGV); $Users = join (" ", @ARGV); @ARGV = (); X # Suck in the original header and save a few interesting lines while (<>) { X $Buffer .= $_ if (! /^From /); X $Subject = $1 if (/^Subject:\s+(.*)$/); X $From = $1 if (/^From:\s+(.*)$/); X last if (/^$/); }; X # Do not filter the message unless it has a subject and the subject indicates # it is an NDN if ($Subject && ($Subject =~ /^returned mail/i)) { X # Slurp input by paragraph. Keep track of the last time we saw what X # appeared to be NDN text. We keep this. X $/ = "\n\n"; X $* = 1; X while (<>) X { X push (@Paragraphs, $_); X $Last_Error_Para = $#Paragraphs X if (/unsent message follows/i || /was not delivered because/); X }; X X # Now save the NDN text into $Buffer X $Buffer .= join ("", @Paragraphs [0..$Last_Error_Para]); } X else { X undef $/; X $Buffer .= <>; }; X # Send off the (possibly) modified mail ($Status, $Msg) = &Send_Mail ($Users, "", $Buffer, 0, $opt_v, 1); die "$Script_Name: $Msg\n" if (! $Status); SHAR_EOF chmod 0555 src/postclip || echo 'restore of src/postclip failed' Wc_c="`wc -c < 'src/postclip'`" test 1836 -eq "$Wc_c" || echo 'src/postclip: original size 1836, current size' "$Wc_c" fi exit 0 -- +----------------------------------------------------------------------------+ | Michael S. Muegel | Internet E-Mail: mmuegel@mot.com | | UNIX Applications Startup Group | Moto Dist E-Mail: X10090 | | Corporate Information Office | Voice: (708) 576-0507 | | Motorola | Fax: (708) 576-4153 | +----------------------------------------------------------------------------+ "I'm disturbed, I'm depressed, I'm inadequate -- I've got it all!" -- George from _Seinfeld_ sendmail-8.18.1/contrib/qtool.pl0000755000372400037240000006012714556365350016133 0ustar xbuildxbuild#!/usr/bin/env perl ## ## Copyright (c) 1998-2002 Proofpoint, Inc. and its suppliers. ## All rights reserved. ## ## $Id: qtool.pl,v 8.32 2013-11-22 20:51:18 ca Exp $ ## use strict; use File::Basename; use File::Copy; use File::Spec; use Fcntl qw(:flock :DEFAULT); use Getopt::Std; ## ## QTOOL ## This program is for moving files between sendmail queues. It is ## pretty similar to just moving the files manually, but it locks the files ## the same way sendmail does to prevent problems. ## ## NOTICE: Do not use this program to move queue files around ## if you use sendmail 8.12 and multiple queue groups. It may interfere ## with sendmail's internal queue group selection strategy and can cause ## mail to be not delivered. ## ## The syntax is the reverse of mv (ie. the target argument comes ## first). This lets you pick the files you want to move using find and ## xargs. ## ## Since you cannot delete queues while sendmail is running, QTOOL ## assumes that when you specify a directory as a source, you mean that you ## want all of the queue files within that directory moved, not the ## directory itself. ## ## There is a mechanism for adding conditionals for moving the files. ## Just create an Object with a check_move(source, dest) method and add it ## to the $conditions object. See the handling of the '-s' option for an ## example. ## ## ## OPTION NOTES ## ## The -e option: ## The -e option takes any valid perl expression and evaluates it ## using the eval() function. Inside the expression the variable ## '$msg' is bound to the ControlFile object for the current source ## queue message. This lets you check for any value in the message ## headers or the control file. Here's an example: ## ## ./qtool.pl -e '$msg{num_delivery_attempts} >= 2' /q1 /q2 ## ## This would move any queue files whose number of delivery attempts ## is greater than or equal to 2 from the queue 'q2' to the queue 'q1'. ## ## See the function ControlFile::parse for a list of available ## variables. ## my %opts; my %sources; my $dst_name; my $destination; my $source_name; my $source; my $result; my $action; my $new_condition; my $qprefix; my $queuegroups = 0; my $conditions = new Compound(); my $fcntl_struct = 's H60'; my $fcntl_structlockp = pack($fcntl_struct, Fcntl::F_WRLCK, "000000000000000000000000000000000000000000000000000000000000"); my $fcntl_structunlockp = pack($fcntl_struct, Fcntl::F_UNLCK, "000000000000000000000000000000000000000000000000000000000000"); my $lock_both = -1; Getopt::Std::getopts('bC:de:Qs:', \%opts); sub move_action { my $source = shift; my $destination = shift; $result = $destination->add($source); if ($result) { print("$result.\n"); } } sub delete_action { my $source = shift; return $source->delete(); } sub bounce_action { my $source = shift; return $source->bounce(); } $action = \&move_action; if (defined $opts{d}) { $action = \&delete_action; } elsif (defined $opts{b}) { $action = \&bounce_action; } if (defined $opts{s}) { $new_condition = new OlderThan($opts{s}); $conditions->add($new_condition); } if (defined $opts{e}) { $new_condition = new Eval($opts{e}); $conditions->add($new_condition); } if (defined $opts{Q}) { $qprefix = "hf"; } else { $qprefix = "qf"; } if ($action == \&move_action) { $dst_name = shift(@ARGV); if (!-d $dst_name) { print("The destination '$dst_name' must be an existing " . "directory.\n"); usage(); exit; } $destination = new Queue($dst_name); } # determine queue_root by reading config file my $queue_root; { my $config_file = "/etc/mail/sendmail.cf"; if (defined $opts{C}) { $config_file = $opts{C}; } my $line; open(CONFIG_FILE, $config_file) or die "$config_file: $!"; ## Notice: we can only break out of this loop (using last) ## when both entries (queue directory and group group) ## have been found. while ($line = ) { chomp $line; if ($line =~ m/^O QueueDirectory=(.*)/) { $queue_root = $1; if ($queue_root =~ m/(.*)\/[^\/]+\*$/) { $queue_root = $1; } # found also queue groups? if ($queuegroups) { last; } } if ($line =~ m/^Q.*/) { $queuegroups = 1; if ($action == \&move_action) { print("WARNING: moving queue files around " . "when queue groups are used may\n" . "result in undelivered mail!\n"); } # found also queue directory? if (defined $queue_root) { last; } } } close(CONFIG_FILE); if (!defined $queue_root) { die "QueueDirectory option not defined in $config_file"; } } while (@ARGV) { $source_name = shift(@ARGV); $result = add_source(\%sources, $source_name); if ($result) { print("$result.\n"); exit; } } if (keys(%sources) == 0) { exit; } while (($source_name, $source) = each(%sources)) { $result = $conditions->check_move($source, $destination); if ($result) { $result = &{$action}($source, $destination); if ($result) { print("$result\n"); } } } sub usage { print("Usage:\t$0 [options] directory source ...\n"); print("\t$0 [-Q][-d|-b] source ...\n"); print("Options:\n"); print("\t-b\t\tBounce the messages specified by source.\n"); print("\t-C configfile\tSpecify sendmail config file.\n"); print("\t-d\t\tDelete the messages specified by source.\n"); print("\t-e [perl expression]\n"); print("\t\t\tMove only messages for which perl expression\n"); print("\t\t\treturns true.\n"); print("\t-Q\t\tOperate on quarantined files.\n"); print("\t-s [seconds]\tMove only messages whose queue file is older\n"); print("\t\t\tthan seconds.\n"); } ## ## ADD_SOURCE -- Adds a source to the source hash. ## ## Determines whether source is a file, directory, or id. Then it ## creates a QueuedMessage or Queue for that source and adds it to the ## list. ## ## Parameters: ## sources -- A hash that contains all of the sources. ## source_name -- The name of the source to add ## ## Returns: ## error_string -- Undef if ok. Error string otherwise. ## ## Notes: ## If a new source comes in with the same ID as a previous ## source, the previous source gets overwritten in the sources ## hash. This lets the user specify things like * and it still ## works nicely. ## sub add_source { my $sources = shift; my $source_name = shift; my $source_base_name; my $source_dir_name; my $data_dir_name; my $source_id; my $source_prefix; my $queued_message; my $queue; my $result; ($source_base_name, $source_dir_name) = File::Basename::fileparse($source_name); $data_dir_name = $source_dir_name; $source_prefix = substr($source_base_name, 0, 2); if (!-d $source_name && $source_prefix ne $qprefix && $source_prefix ne 'df') { $source_base_name = "$qprefix$source_base_name"; $source_name = File::Spec->catfile("$source_dir_name", "$source_base_name"); } $source_id = substr($source_base_name, 2); if (!-e $source_name) { $source_name = File::Spec->catfile("$source_dir_name", "qf", "$qprefix$source_id"); if (!-e $source_name) { return "'$source_name' does not exist"; } $data_dir_name = File::Spec->catfile("$source_dir_name", "df"); if (!-d $data_dir_name) { $data_dir_name = $source_dir_name; } $source_dir_name = File::Spec->catfile("$source_dir_name", "qf"); } if (-f $source_name) { $queued_message = new QueuedMessage($source_dir_name, $source_id, $data_dir_name); $sources->{$source_id} = $queued_message; return undef; } if (!-d $source_name) { return "'$source_name' is not a plain file or a directory"; } $queue = new Queue($source_name); $result = $queue->read(); if ($result) { return $result; } while (($source_id, $queued_message) = each(%{$queue->{files}})) { $sources->{$source_id} = $queued_message; } return undef; } ## ## LOCK_FILE -- Opens and then locks a file. ## ## Opens a file for read/write and uses flock to obtain a lock on the ## file. The flock is Perl's flock which defaults to flock on systems ## that support it. On systems without flock it falls back to fcntl ## locking. This script will also call fcntl explicitly if flock ## uses BSD semantics (i.e. if both flock() and fcntl() can successfully ## lock the file at the same time) ## ## Parameters: ## file_name -- The name of the file to open and lock. ## ## Returns: ## (file_handle, error_string) -- If everything works then ## file_handle is a reference to a file handle and ## error_string is undef. If there is a problem then ## file_handle is undef and error_string is a string ## explaining the problem. ## sub lock_file { my $file_name = shift; my $result; if ($lock_both == -1) { if (open(DEVNULL, '>/dev/null')) { my $flock_status = flock(DEVNULL, Fcntl::LOCK_EX | Fcntl::LOCK_NB); my $fcntl_status = fcntl (DEVNULL, Fcntl::F_SETLK, $fcntl_structlockp); close(DEVNULL); $lock_both = ($flock_status && $fcntl_status); } else { # Couldn't open /dev/null. Windows system? $lock_both = 0; } } $result = sysopen(FILE_TO_LOCK, $file_name, Fcntl::O_RDWR); if (!$result) { return (undef, "Unable to open '$file_name': $!"); } $result = flock(FILE_TO_LOCK, Fcntl::LOCK_EX | Fcntl::LOCK_NB); if (!$result) { return (undef, "Could not obtain lock on '$file_name': $!"); } if ($lock_both) { my $result2 = fcntl (FILE_TO_LOCK, Fcntl::F_SETLK, $fcntl_structlockp); if (!$result2) { return (undef, "Could not obtain fcntl lock on '$file_name': $!"); } } return (\*FILE_TO_LOCK, undef); } ## ## UNLOCK_FILE -- Unlocks a file. ## ## Unlocks a file using Perl's flock. ## ## Parameters: ## file -- A file handle. ## ## Returns: ## error_string -- If undef then no problem. Otherwise it is a ## string that explains problem. ## sub unlock_file { my $file = shift; my $result; $result = flock($file, Fcntl::LOCK_UN); if (!$result) { return "Unlock failed on '$result': $!"; } if ($lock_both) { my $result2 = fcntl ($file, Fcntl::F_SETLK, $fcntl_structunlockp); if (!$result2) { return (undef, "Fcntl unlock failed on '$result': $!"); } } return undef; } ## ## MOVE_FILE -- Moves a file. ## ## Moves a file. ## ## Parameters: ## src_name -- The name of the file to be move. ## dst_name -- The name of the place to move it to. ## ## Returns: ## error_string -- If undef then no problem. Otherwise it is a ## string that explains problem. ## sub move_file { my $src_name = shift; my $dst_name = shift; my $result; $result = File::Copy::move($src_name, $dst_name); if (!$result) { return "File move from '$src_name' to '$dst_name' failed: $!"; } return undef; } ## ## CONTROL_FILE - Represents a sendmail queue control file. ## ## This object represents represents a sendmail queue control file. ## It can parse and lock its file. ## package ControlFile; sub new { my $this = shift; my $class = ref($this) || $this; my $self = {}; bless $self, $class; $self->initialize(@_); return $self; } sub initialize { my $self = shift; my $queue_dir = shift; $self->{id} = shift; $self->{file_name} = $queue_dir . '/' . $qprefix . $self->{id}; $self->{headers} = {}; } ## ## PARSE - Parses the control file. ## ## Parses the control file. It just sticks each entry into a hash. ## If a key has more than one entry, then it points to a list of ## entries. ## sub parse { my $self = shift; if ($self->{parsed}) { return; } my %parse_table = ( 'A' => 'auth', 'B' => 'body_type', 'C' => 'controlling_user', 'D' => 'data_file_name', 'd' => 'data_file_directory', 'E' => 'error_recipient', 'F' => 'flags', 'H' => 'parse_header', 'I' => 'inode_number', 'K' => 'next_delivery_time', 'L' => 'content-length', 'M' => 'message', 'N' => 'num_delivery_attempts', 'P' => 'priority', 'Q' => 'original_recipient', 'R' => 'recipient', 'q' => 'quarantine_reason', 'r' => 'final_recipient', 'S' => 'sender', 'T' => 'creation_time', 'V' => 'version', 'Y' => 'current_delay', 'Z' => 'envid', '!' => 'deliver_by', '$' => 'macro' ); my $line; my $line_type; my $line_value; my $member_name; my $member; my $last_type; open(CONTROL_FILE, "$self->{file_name}"); while ($line = ) { $line_type = substr($line, 0, 1); if ($line_type eq "\t" && $last_type eq 'H') { $line_type = 'H'; $line_value = $line; } else { $line_value = substr($line, 1); } $member_name = $parse_table{$line_type}; $last_type = $line_type; if (!$member_name) { $member_name = 'unknown'; } if ($self->can($member_name)) { $self->$member_name($line_value); } $member = $self->{$member_name}; if (!$member) { $self->{$member_name} = $line_value; next; } if (ref($member) eq 'ARRAY') { push(@{$member}, $line_value); next; } $self->{$member_name} = [$member, $line_value]; } close(CONTROL_FILE); $self->{parsed} = 1; } sub parse_header { my $self = shift; my $line = shift; my $headers = $self->{headers}; my $last_header = $self->{last_header}; my $header_name; my $header_value; my $first_char; $first_char = substr($line, 0, 1); if ($first_char eq "?") { $line = (split(/\?/, $line,3))[2]; } elsif ($first_char eq "\t") { if (ref($headers->{$last_header}) eq 'ARRAY') { $headers->{$last_header}[-1] = $headers->{$last_header}[-1] . $line; } else { $headers->{$last_header} = $headers->{$last_header} . $line; } return; } ($header_name, $header_value) = split(/:/, $line, 2); $self->{last_header} = $header_name; if (exists $headers->{$header_name}) { $headers->{$header_name} = [$headers->{$header_name}, $header_value]; } else { $headers->{$header_name} = $header_value; } } sub is_locked { my $self = shift; return (defined $self->{lock_handle}); } sub lock { my $self = shift; my $lock_handle; my $result; if ($self->is_locked()) { # Already locked return undef; } ($lock_handle, $result) = ::lock_file($self->{file_name}); if (!$lock_handle) { return $result; } $self->{lock_handle} = $lock_handle; return undef; } sub unlock { my $self = shift; my $result; if (!$self->is_locked()) { # Not locked return undef; } $result = ::unlock_file($self->{lock_handle}); $self->{lock_handle} = undef; return $result; } sub do_stat { my $self = shift; my $result; my @result; $result = open(QUEUE_FILE, $self->{file_name}); if (!$result) { return "Unable to open '$self->{file_name}': $!"; } @result = stat(QUEUE_FILE); if (!@result) { return "Unable to stat '$self->{file_name}': $!"; } $self->{control_size} = $result[7]; $self->{control_last_mod_time} = $result[9]; } sub DESTROY { my $self = shift; $self->unlock(); } sub delete { my $self = shift; my $result; $result = unlink($self->{file_name}); if (!$result) { return "Unable to delete $self->{file_name}: $!"; } return undef; } ## ## DATA_FILE - Represents a sendmail queue data file. ## ## This object represents represents a sendmail queue data file. ## It is really just a place-holder. ## package DataFile; sub new { my $this = shift; my $class = ref($this) || $this; my $self = {}; bless $self, $class; $self->initialize(@_); return $self; } sub initialize { my $self = shift; my $data_dir = shift; $self->{id} = shift; my $control_file = shift; $self->{file_name} = $data_dir . '/df' . $self->{id}; return if -e $self->{file_name}; $control_file->parse(); return if !defined $control_file->{data_file_directory}; $data_dir = $queue_root . '/' . $control_file->{data_file_directory}; chomp $data_dir; if (-d ($data_dir . '/df')) { $data_dir .= '/df'; } $self->{file_name} = $data_dir . '/df' . $self->{id}; } sub do_stat { my $self = shift; my $result; my @result; $result = open(QUEUE_FILE, $self->{file_name}); if (!$result) { return "Unable to open '$self->{file_name}': $!"; } @result = stat(QUEUE_FILE); if (!@result) { return "Unable to stat '$self->{file_name}': $!"; } $self->{body_size} = $result[7]; $self->{body_last_mod_time} = $result[9]; } sub delete { my $self = shift; my $result; $result = unlink($self->{file_name}); if (!$result) { return "Unable to delete $self->{file_name}: $!"; } return undef; } ## ## QUEUED_MESSAGE - Represents a queued sendmail message. ## ## This keeps track of the files that make up a queued sendmail ## message. ## Currently it has 'control_file' and 'data_file' as members. ## ## You can tie it to a fetch only hash using tie. You need to ## pass a reference to a QueuedMessage as the third argument ## to tie. ## package QueuedMessage; sub new { my $this = shift; my $class = ref($this) || $this; my $self = {}; bless $self, $class; $self->initialize(@_); return $self; } sub initialize { my $self = shift; my $queue_dir = shift; my $id = shift; my $data_dir = shift; $self->{id} = $id; $self->{control_file} = new ControlFile($queue_dir, $id); if (!$data_dir) { $data_dir = $queue_dir; } $self->{data_file} = new DataFile($data_dir, $id, $self->{control_file}); } sub last_modified_time { my $self = shift; my @result; @result = stat($self->{data_file}->{file_name}); return $result[9]; } sub TIEHASH { my $this = shift; my $class = ref($this) || $this; my $self = shift; return $self; } sub FETCH { my $self = shift; my $key = shift; if (exists $self->{control_file}->{$key}) { return $self->{control_file}->{$key}; } if (exists $self->{data_file}->{$key}) { return $self->{data_file}->{$key}; } return undef; } sub lock { my $self = shift; return $self->{control_file}->lock(); } sub unlock { my $self = shift; return $self->{control_file}->unlock(); } sub move { my $self = shift; my $destination = shift; my $df_dest; my $qf_dest; my $result; $result = $self->lock(); if ($result) { return $result; } $qf_dest = File::Spec->catfile($destination, "qf"); if (-d $qf_dest) { $df_dest = File::Spec->catfile($destination, "df"); if (!-d $df_dest) { $df_dest = $destination; } } else { $qf_dest = $destination; $df_dest = $destination; } if (-e File::Spec->catfile($qf_dest, "$qprefix$self->{id}")) { $result = "There is already a queued message with id '$self->{id}' in '$destination'"; } if (!$result) { $result = ::move_file($self->{data_file}->{file_name}, $df_dest); } if (!$result) { $result = ::move_file($self->{control_file}->{file_name}, $qf_dest); } $self->unlock(); return $result; } sub parse { my $self = shift; return $self->{control_file}->parse(); } sub do_stat { my $self = shift; $self->{control_file}->do_stat(); $self->{data_file}->do_stat(); } sub setup_vars { my $self = shift; $self->parse(); $self->do_stat(); } sub delete { my $self = shift; my $result; $result = $self->{control_file}->delete(); if ($result) { return $result; } $result = $self->{data_file}->delete(); if ($result) { return $result; } return undef; } sub bounce { my $self = shift; my $command; $command = "sendmail -qI$self->{id} -O Timeout.queuereturn=now"; # print("$command\n"); system($command); } ## ## QUEUE - Represents a queued sendmail queue. ## ## This manages all of the messages in a queue. ## package Queue; sub new { my $this = shift; my $class = ref($this) || $this; my $self = {}; bless $self, $class; $self->initialize(@_); return $self; } sub initialize { my $self = shift; $self->{queue_dir} = shift; $self->{files} = {}; } ## ## READ - Loads the queue with all of the objects that reside in it. ## ## This reads the queue's directory and creates QueuedMessage objects ## for every file in the queue that starts with 'qf' or 'hf' ## (depending on the -Q option). ## sub read { my $self = shift; my @control_files; my $queued_message; my $file_name; my $id; my $result; my $control_dir; my $data_dir; $control_dir = File::Spec->catfile($self->{queue_dir}, 'qf'); if (-e $control_dir) { $data_dir = File::Spec->catfile($self->{queue_dir}, 'df'); if (!-e $data_dir) { $data_dir = $self->{queue_dir}; } } else { $data_dir = $self->{queue_dir}; $control_dir = $self->{queue_dir}; } $result = opendir(QUEUE_DIR, $control_dir); if (!$result) { return "Unable to open directory '$control_dir'"; } @control_files = grep { /^$qprefix.*/ && -f "$control_dir/$_" } readdir(QUEUE_DIR); closedir(QUEUE_DIR); foreach $file_name (@control_files) { $id = substr($file_name, 2); $queued_message = new QueuedMessage($control_dir, $id, $data_dir); $self->{files}->{$id} = $queued_message; } return undef; } ## ## ADD_QUEUED_MESSAGE - Adds a QueuedMessage to this Queue. ## ## Adds the QueuedMessage object to the hash and moves the files ## associated with the QueuedMessage to this Queue's directory. ## sub add_queued_message { my $self = shift; my $queued_message = shift; my $result; $result = $queued_message->move($self->{queue_dir}); if ($result) { return $result; } $self->{files}->{$queued_message->{id}} = $queued_message; return $result; } ## ## ADD_QUEUE - Adds another Queue's QueuedMessages to this Queue. ## ## Adds all of the QueuedMessage objects in the passed in queue ## to this queue. ## sub add_queue { my $self = shift; my $queue = shift; my $id; my $queued_message; my $result; while (($id, $queued_message) = each %{$queue->{files}}) { $result = $self->add_queued_message($queued_message); if ($result) { print("$result.\n"); } } } ## ## ADD - Adds an item to this queue. ## ## Adds either a Queue or a QueuedMessage to this Queue. ## sub add { my $self = shift; my $source = shift; my $type_name; my $result; $type_name = ref($source); if ($type_name eq "QueuedMessage") { return $self->add_queued_message($source); } if ($type_name eq "Queue") { return $self->add_queue($source); } return "Queue does not know how to add a '$type_name'" } sub delete { my $self = shift; my $id; my $queued_message; while (($id, $queued_message) = each %{$self->{files}}) { $result = $queued_message->delete(); if ($result) { print("$result.\n"); } } } sub bounce { my $self = shift; my $id; my $queued_message; while (($id, $queued_message) = each %{$self->{files}}) { $result = $queued_message->bounce(); if ($result) { print("$result.\n"); } } } ## ## Condition Class ## ## This next section is for any class that has an interface called ## check_move(source, dest). Each class represents some condition to ## check for to determine whether we should move the file from ## source to dest. ## ## ## OlderThan ## ## This Condition Class checks the modification time of the ## source file and returns true if the file's modification time is ## older than the number of seconds the class was initialized with. ## package OlderThan; sub new { my $this = shift; my $class = ref($this) || $this; my $self = {}; bless $self, $class; $self->initialize(@_); return $self; } sub initialize { my $self = shift; $self->{age_in_seconds} = shift; } sub check_move { my $self = shift; my $source = shift; if ((time() - $source->last_modified_time()) > $self->{age_in_seconds}) { return 1; } return 0; } ## ## Compound ## ## Takes a list of Move Condition Classes. Check_move returns true ## if every Condition Class in the list's check_move function returns ## true. ## package Compound; sub new { my $this = shift; my $class = ref($this) || $this; my $self = {}; bless $self, $class; $self->initialize(@_); return $self; } sub initialize { my $self = shift; $self->{condition_list} = []; } sub add { my $self = shift; my $new_condition = shift; push(@{$self->{condition_list}}, $new_condition); } sub check_move { my $self = shift; my $source = shift; my $dest = shift; my $condition; my $result; foreach $condition (@{$self->{condition_list}}) { if (!$condition->check_move($source, $dest)) { return 0; } } return 1; } ## ## Eval ## ## Takes a perl expression and evaluates it. The ControlFile object ## for the source QueuedMessage is available through the name '$msg'. ## package Eval; sub new { my $this = shift; my $class = ref($this) || $this; my $self = {}; bless $self, $class; $self->initialize(@_); return $self; } sub initialize { my $self = shift; $self->{expression} = shift; } sub check_move { my $self = shift; my $source = shift; my $dest = shift; my $result; my %msg; $source->setup_vars(); tie(%msg, 'QueuedMessage', $source); $result = eval($self->{expression}); return $result; } sendmail-8.18.1/contrib/movemail.conf0000644000372400037240000000135114556365350017107 0ustar xbuildxbuild# Configuration script for movemail.pl my $minutes = 60; my $hours = 3600; # Queue directories first..last @queues = qw( /var/spool/mqueue/q1 /var/spool/mqueue/q2 /var/spool/mqueue/q3 ); # Base of subqueue name (optional). # If used, queue directories are $queues[n]/$subqbase* # Separate qf/df/xf directories are not supported. $subqbase = "subq"; # Age of mail when moved. Each element of the array must be greater than the # previous element. @ages = ( 30*$minutes, # q1 to q2 6*$hours # q2 to q3 ); # Location of script to move the mail $remqueue = "/usr/local/bin/re-mqueue.pl"; # Lock file to prevent more than one instance running (optional) # Useful when running from cron $lockfile = "/var/spool/mqueue/movemail.lock"; sendmail-8.18.1/contrib/dnsblaccess.m40000644000372400037240000000775214556365350017170 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2001-2002, 2005 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # dnl ## This is a modified enhdnsbl, loosely based on the dnl ## original. dnl ## dnl ## Use it as follows dnl ## dnl ## HACK(dnsblaccess, domain, optional-message, tempfail-message, keytag) dnl ## dnl ## The first argument (domain) is required. The other arguments dnl ## are optional and have reasonable defaults. The dnl ## optional-message is the error message given in case of a dnl ## match. The default behavior for a tempfail is to accept the dnl ## email. A tempfail-message value of `t' temporarily rejects dnl ## with a default message. Otherwise the value should be your dnl ## own message. The keytag is used to lookup the access map to dnl ## further refine the result. I recommend a qualified keytag dnl ## (containing a ".") as less likely to accidentally conflict with dnl ## other access tags. dnl ## dnl ## This is best illustrated with an example. Please do not use dnl ## the example, as it refers to a bogus lookup list. dnl ## dnl ## Suppose that you use dnl ## dnl ## HACK(dnsblaccess, `rbl.bogus.org',`',`t',bogus.tag) dnl ## dnl ## and suppose that your access map contains the entries dnl ## dnl ## bogus.tag:127.0.0.2 REJECT dnl ## bogus.tag:127.0.0.3 error:dialup mail from %1: listed at %2 dnl ## bogus.tag:127.0.0.4 OK dnl ## bogus.tag:127 REJECT dnl ## bogus.tag: OK dnl ## dnl ## If an SMTP connection is received from 123.45.6.7, sendmail dnl ## will lookup the A record for 7.6.45.123.bogus.org. If there dnl ## is a temp failure for the lookup, sendmail will generate a dnl ## temporary failure with a default message. If there is no dnl ## A-record for this lookup, then the mail is treated as if the dnl ## HACK line were not present. If the lookup returns 127.0.0.2, dnl ## then a default message rejects the mail. If it returns dnl ## 127.0.0.3, then the message dnl ## "dialup mail from 123.45.6.7: listed at rbl.bogus.org" dnl ## is used to reject the mail. If it returns 127.0.0.4, the dnl ## mail is processed as if there were no HACK line. If the dnl ## address returned is something else beginning with 127.*, the dnl ## mail is rejected with a default error message. If the dnl ## address returned does not begin 127, then the mail is dnl ## processed as if the HACK line were not present. divert(0) VERSIONID(`$Id: dnsblaccess.m4,v 1.7 2013-11-22 20:51:18 ca Exp $') ifdef(`_ACCESS_TABLE_', `dnl', `errprint(`*** ERROR: dnsblaccess requires FEATURE(`access_db') ')') ifdef(`_EDNSBL_R_',`dnl',`dnl define(`_EDNSBL_R_', `1')dnl ## prevent multiple redefines of the map. LOCAL_CONFIG # map for enhanced DNS based blocklist lookups Kednsbl dns -R A -a. -T -r`'ifdef(`EDNSBL_TO',`EDNSBL_TO',`5') ') divert(-1) define(`_EDNSBL_SRV_', `ifelse(len(X`'_ARG_),`1',`blackholes.mail-abuse.org',_ARG_)')dnl define(`_EDNSBL_MSG_', `ifelse(len(X`'_ARG2_),`1',`"550 Rejected: " $`'&{client_addr} " listed at '_EDNSBL_SRV_`"',`_ARG2_')')dnl define(`_EDNSBL_MSG_TMP_', `ifelse(_ARG3_,`t',`"451 Temporary lookup failure of " $`'&{client_addr} " at '_EDNSBL_SRV_`"',`_ARG3_')')dnl define(`_EDNSBL_KEY_', `ifelse(len(X`'_ARG4_),`1',`dnsblaccess',_ARG4_)')dnl divert(8) # DNS based IP address spam list _EDNSBL_SRV_ R$* $: $&{client_addr} dnl IPv6? R$-.$-.$-.$- $: $(ednsbl $4.$3.$2.$1._EDNSBL_SRV_. $: OK $) <>$1.$2.$3.$4 ROK<>$* $: OKSOFAR R$+<>$* $: > R$* $- .<>$* <$(access _EDNSBL_KEY_`:'$1$2 $@$3 $@`'_EDNSBL_SRV_ $: ? $)> $1 <>$3 R$* <>$* $:<$(access _EDNSBL_KEY_`:' $@$2 $@`'_EDNSBL_SRV_ $: ? $)> <>$2 ifelse(len(X`'_ARG3_),`1', `R<$*>$* $: TMPOK', `R<$*>$* $#error $@ 4.4.3 $: _EDNSBL_MSG_TMP_') R<$={Accept}>$* $: OKSOFAR R $* $#error $@ $1.$2.$3 $: $4 R $* $#error $: $1 R $* $#discard $: discard R<$*> $* $#error $@ 5.7.1 $: _EDNSBL_MSG_ divert(-1) sendmail-8.18.1/contrib/expn.pl0000755000372400037240000011003014556365350015734 0ustar xbuildxbuild#!/usr/bin/perl 'di '; 'ds 00 \\"'; 'ig 00 '; # # THIS PROGRAM IS ITS OWN MANUAL PAGE. INSTALL IN man & bin. # use 5.001; use IO::Socket; use Fcntl; # system requirements: # must have 'nslookup' and 'hostname' programs. # $OrigHeader: /home/muir/bin/RCS/expn,v 3.11 1997/09/10 08:14:02 muir Exp muir $ # TODO: # less magic should apply to command-line addresses # less magic should apply to local addresses # add magic to deal with cross-domain cnames # disconnect & reconnect after 25 commands to the same sendmail 8.8.* host # Checklist: (hard addresses) # 250 Kimmo Suominen <"|/usr/local/mh/lib/slocal -user kim"@grendel.tac.nyc.ny.us> # harry@hofmann.cs.Berkeley.EDU -> harry@tenet (.berkeley.edu) [dead] # bks@cs.berkeley.edu -> shiva.CS (.berkeley.edu) [dead] # dan@tc.cornell.edu -> brown@tiberius (.tc.cornell.edu) ############################################################################# # # Copyright (c) 1993 David Muir Sharnoff # All rights reserved. # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: # 1. Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer. # 2. Redistributions in binary form must reproduce the above copyright # notice, this list of conditions and the following disclaimer in the # documentation and/or other materials provided with the distribution. # 3. All advertising materials mentioning features or use of this software # must display the following acknowledgement: # This product includes software developed by the David Muir Sharnoff. # 4. The name of David Sharnoff may not be used to endorse or promote products # derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE DAVID MUIR SHARNOFF ``AS IS'' AND # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # ARE DISCLAIMED. IN NO EVENT SHALL DAVID MUIR SHARNOFF BE LIABLE # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # # This copyright notice derrived from material copyrighted by the Regents # of the University of California. # # Contributions accepted. # ############################################################################# # overall structure: # in an effort to not trace each address individually, but rather # ask each server in turn a whole bunch of questions, addresses to # be expanded are queued up. # # This means that all accounting w.r.t. an address must be stored in # various arrays. Generally these arrays are indexed by the # string "$addr *** $server" where $addr is the address to be # expanded "foo" or maybe "foo@bar" and $server is the hostname # of the SMTP server to contact. # # important global variables: # # @hosts : list of servers still to be contacted # $server : name of the current we are currently looking at # @users = $users{@hosts[0]} : addresses to expand at this server # $u = $users[0] : the current address being expanded # $names{"$users[0] *** $server"} : the 'name' associated with the address # $mxbacktrace{"$users[0] *** $server"} : record of mx expansion # $mx_secondary{$server} : other mx relays at the same priority # $domainify_fallback{"$users[0] *** $server"} : alternative names to try # instead of $server if $server doesn't work # $temporary_redirect{"$users[0] *** $server"} : when trying alternates, # temporarily channel all tries along current path # $giveup{$server} : do not bother expanding addresses at $server # $verbose : -v # $watch : -w # $vw : -v or -w # $debug : -d # $valid : -a # $levels : -1 # $S : the socket connection to $server $have_nslookup = 1; # we have the nslookup program $port = 'smtp'; $av0 = $0; $ENV{'PATH'} .= ":/usr/etc" unless $ENV{'PATH'} =~ m,/usr/etc,; $ENV{'PATH'} .= ":/usr/ucb" unless $ENV{'PATH'} =~ m,/usr/ucb,; select(STDERR); $0 = "$av0 - running hostname"; chop($name = `hostname || uname -n`); $0 = "$av0 - lookup host FQDN and IP addr"; ($hostname,$aliases,$type,$len,$thisaddr) = gethostbyname($name); $0 = "$av0 - parsing args"; $usage = "Usage: $av0 [-1avwd] user[\@host] [user2[host2] ...]"; for $a (@ARGV) { die $usage if $a eq "-"; while ($a =~ s/^(-.*)([1avwd])/$1/) { eval '$'."flag_$2 += 1"; } next if $a eq "-"; die $usage if $a =~ /^-/; &expn(&parse($a,$hostname,undef,1)); } $verbose = $flag_v; $watch = $flag_w; $vw = $flag_v + $flag_w; $debug = $flag_d; $valid = $flag_a; $levels = $flag_1; die $usage unless @hosts; if ($valid) { if ($valid == 1) { $validRequirement = 0.8; } elsif ($valid == 2) { $validRequirement = 1.0; } elsif ($valid == 3) { $validRequirement = 0.9; } else { $validRequirement = (1 - (1/($valid-3))); print "validRequirement = $validRequirement\n" if $debug; } } HOST: while (@hosts) { $server = shift(@hosts); @users = split(' ',$users{$server}); delete $users{$server}; # is this server already known to be bad? $0 = "$av0 - looking up $server"; if ($giveup{$server}) { &giveup('mx domainify',$giveup{$server}); next; } # do we already have an mx record for this host? next HOST if &mxredirect($server,*users); # look it up, or try for an mx. $0 = "$av0 - gethostbyname($server)"; ($name,$aliases,$type,$len,$thataddr) = gethostbyname($server); # if we can't get an A record, try for an MX record. unless($thataddr) { &mxlookup(1,$server,"$server: could not resolve name",*users); next HOST; } # get a connection, or look for an mx $0 = "$av0 - socket to $server"; $S = new IO::Socket::INET ( 'PeerAddr' => $server, 'PeerPort' => $port, 'Proto' => 'tcp'); if (! $S || ($debug == 10 && $server =~ /relay\d.UU.NET$/i)) { $0 = "$av0 - $server: could not connect: $!\n"; $emsg = $!; unless (&mxlookup(0,$server,"$server: could not connect: $!",*users)) { &giveup('mx',"$server: Could not connect: $emsg"); } next HOST; } $S->autoflush(1); # read the greeting $0 = "$av0 - talking to $server"; &alarm("greeting with $server",''); while(<$S>) { alarm(0); print if $watch; if (/^(\d+)([- ])/) { if ($1 != 220) { $0 = "$av0 - bad numeric response from $server"; &alarm("giving up after bad response from $server",''); &read_response($2,$watch); alarm(0); print STDERR "$server: NOT 220 greeting: $_" if ($debug || $vw); if (&mxlookup(0,$server,"$server: did not respond with a 220 greeting",*users)) { close($S); next HOST; } } last if ($2 eq " "); } else { $0 = "$av0 - bad response from $server"; print STDERR "$server: NOT 220 greeting: $_" if ($debug || $vw); unless (&mxlookup(0,$server,"$server: did not respond with SMTP codes",*users)) { &giveup('',"$server: did not talk SMTP"); } close($S); next HOST; } &alarm("greeting with $server",''); } alarm(0); # if this causes problems, remove it $0 = "$av0 - sending helo to $server"; &alarm("sending helo to $server",""); &ps("helo $hostname"); while(<$S>) { print if $watch; last if /^\d+ /; } alarm(0); # try the users, one by one USER: while(@users) { $u = shift(@users); $0 = "$av0 - expanding $u [\@$server]"; # do we already have a name for this user? $oldname = $names{"$u *** $server"}; print &compact($u,$server)." ->\n" if ($verbose && ! $valid); if ($valid) { # # when running with -a, we delay taking any action # on the results of our query until we have looked # at the complete output. @toFinal stores expansions # that will be final if we take them. @toExpn stores # expnansions that are not final. @isValid keeps # track of our ability to send mail to each of the # expansions. # @isValid = (); @toFinal = (); @toExpn = (); } # ($ecode,@expansion) = &expn_vrfy($u,$server); (@foo) = &expn_vrfy($u,$server); ($ecode,@expansion) = @foo; if ($ecode) { &giveup('',$ecode,$u); last USER; } for $s (@expansion) { $s =~ s/[\n\r]//g; $0 = "$av0 - parsing $server: $s"; $skipwatch = $watch; if ($s =~ /^[25]51([- ]).*<(.+)>/) { print "$s" if $watch; print "(pretending 250$1<$2>)" if ($debug && $watch); print "\n" if $watch; $s = "250$1<$2>"; $skipwatch = 0; } if ($s =~ /^250([- ])(.+)/) { print "$s\n" if $skipwatch; ($done,$addr) = ($1,$2); ($newhost, $newaddr, $newname) = &parse($addr,$server,$oldname, $#expansion == 0); print "($newhost, $newaddr, $newname) = &parse($addr, $server, $oldname)\n" if $debug; if (! $newhost) { # no expansion is possible w/o a new server to call if ($valid) { push(@isValid, &validAddr($newaddr)); push(@toFinal,$newaddr,$server,$newname); } else { &verbose(&final($newaddr,$server,$newname)); } } else { $newmxhost = &mx($newhost,$newaddr); print "$newmxhost = &mx($newhost)\n" if ($debug && $newhost ne $newmxhost); $0 = "$av0 - parsing $newaddr [@$newmxhost]"; print "levels = $levels, level{$u *** $server} = ".$level{"$u *** $server"}."\n" if ($debug > 1); # If the new server is the current one, # it would have expanded things for us # if it could have. Mx records must be # followed to compare server names. # We are also done if the recursion # count has been exceeded. if (&trhost($newmxhost) eq &trhost($server) || ($levels && $level{"$u *** $server"} >= $levels)) { if ($valid) { push(@isValid, &validAddr($newaddr)); push(@toFinal,$newaddr,$newmxhost,$newname); } else { &verbose(&final($newaddr,$newmxhost,$newname)); } } else { # more work to do... if ($valid) { push(@isValid, &validAddr($newaddr)); push(@toExpn,$newmxhost,$newaddr,$newname,$level{"$u *** $server"}); } else { &verbose(&expn($newmxhost,$newaddr,$newname,$level{"$u *** $server"})); } } } last if ($done eq " "); next; } # 550 is a known code... Should the be # included in -a output? Might be a bug # here. Does it matter? Can assume that # there won't be UNKNOWN USER responses # mixed with valid users? if ($s =~ /^(550)([- ])/) { if ($valid) { print STDERR "\@$server:$u ($oldname) USER UNKNOWN\n"; } else { &verbose(&final($u,$server,$oldname,"USER UNKNOWN")); } last if ($2 eq " "); next; } # 553 is a known code... if ($s =~ /^(553)([- ])/) { if ($valid) { print STDERR "\@$server:$u ($oldname) USER AMBIGUOUS\n"; } else { &verbose(&final($u,$server,$oldname,"USER AMBIGUOUS")); } last if ($2 eq " "); next; } # 252 is a known code... if ($s =~ /^(252)([- ])/) { if ($valid) { print STDERR "\@$server:$u ($oldname) REFUSED TO VRFY\n"; } else { &verbose(&final($u,$server,$oldname,"REFUSED TO VRFY")); } last if ($2 eq " "); next; } &giveup('',"$server: did not grok '$s'",$u); last USER; } if ($valid) { # # now we decide if we are going to take these # expansions or roll them back. # $avgValid = &average(@isValid); print "avgValid = $avgValid\n" if $debug; if ($avgValid >= $validRequirement) { print &compact($u,$server)." ->\n" if $verbose; while (@toExpn) { &verbose(&expn(splice(@toExpn,0,4))); } while (@toFinal) { &verbose(&final(splice(@toFinal,0,3))); } } else { print "Tossing some valid to avoid invalid ".&compact($u,$server)."\n" if ($avgValid > 0.0 && ($vw || $debug)); print &compact($u,$server)." ->\n" if $verbose; &verbose(&final($u,$server,$newname)); } } } &alarm("sending 'quit' to $server",''); $0 = "$av0 - sending 'quit' to $server"; &ps("quit"); while(<$S>) { print if $watch; last if /^\d+ /; } close($S); alarm(0); } $0 = "$av0 - printing final results"; print "----------\n" if $vw; select(STDOUT); for $f (sort @final) { print "$f\n"; } unlink("/tmp/expn$$"); exit(0); # abandon all attempts deliver to $server # register the current addresses as the final ones sub giveup { local($redirect_okay,$reason,$user) = @_; local($us,@so,$nh,@remaining_users); local($pk,$file,$line); ($pk, $file, $line) = caller; $0 = "$av0 - giving up on $server: $reason"; # # add back a user if we gave up in the middle # push(@users,$user) if $user; # # don't bother with this system anymore # unless ($giveup{$server}) { $giveup{$server} = $reason; print STDERR "$reason\n"; } print "Giveup at $file:$line!!! redirect okay = $redirect_okay; $reason\n" if $debug; # # Wait! # Before giving up, see if there is a chance that # there is another host to redirect to! # (Kids, don't do this at home! Hacking is a dangerous # crime and you could end up behind bars.) # for $u (@users) { if ($redirect_okay =~ /\bmx\b/) { next if &try_fallback('mx',$u,*server, *mx_secondary, *already_mx_fellback); } if ($redirect_okay =~ /\bdomainify\b/) { next if &try_fallback('domainify',$u,*server, *domainify_fallback, *already_domainify_fellback); } push(@remaining_users,$u); } @users = @remaining_users; for $u (@users) { print &compact($u,$server)." ->\n" if ($verbose && $valid && $u); &verbose(&final($u,$server,$names{"$u *** $server"},$reason)); } } # # This routine is used only within &giveup. It checks to # see if we really have to giveup or if there is a second # chance because we did something before that can be # backtracked. # # %fallback{"$user *** $host"} tracks what is able to fallback # %fellback{"$user *** $host"} tracks what has fallen back # # If there is a valid backtrack, then queue up the new possibility # sub try_fallback { local($method,$user,*host,*fall_table,*fellback) = @_; local($us,$fallhost,$oldhost,$ft,$i); if ($debug > 8) { print "Fallback table $method:\n"; for $i (sort keys %fall_table) { print "\t'$i'\t\t'$fall_table{$i}'\n"; } print "Fellback table $method:\n"; for $i (sort keys %fellback) { print "\t'$i'\t\t'$fellback{$i}'\n"; } print "U: $user H: $host\n"; } $us = "$user *** $host"; if (defined $fellback{$us}) { # # Undo a previous fallback so that we can try again # Nested fallbacks are avoided because they could # lead to infinite loops # $fallhost = $fellback{$us}; print "Already $method fell back from $us -> \n" if $debug; $us = "$user *** $fallhost"; $oldhost = $fallhost; } elsif (($method eq 'mx') && (defined $mxbacktrace{$us}) && (defined $mx_secondary{$mxbacktrace{$us}})) { print "Fallback an MX expansion $us -> \n" if $debug; $oldhost = $mxbacktrace{$us}; } else { print "Oldhost($host, $us) = " if $debug; $oldhost = $host; } print "$oldhost\n" if $debug; if (((defined $fall_table{$us}) && ($ft = $us)) || ((defined $fall_table{$oldhost}) && ($ft = $oldhost))) { print "$method Fallback = ".$fall_table{$ft}."\n" if $debug; local(@so,$newhost); @so = split(' ',$fall_table{$ft}); $newhost = shift(@so); print "Falling back ($method) $us -> $newhost (from $oldhost)\n" if $debug; if ($method eq 'mx') { if (! defined ($mxbacktrace{"$user *** $newhost"})) { if (defined $mxbacktrace{"$user *** $oldhost"}) { print "resetting oldhost $oldhost to the original: " if $debug; $oldhost = $mxbacktrace{"$user *** $oldhost"}; print "$oldhost\n" if $debug; } $mxbacktrace{"$user *** $newhost"} = $oldhost; print "mxbacktrace $user *** $newhost -> $oldhost\n" if $debug; } $mx{&trhost($oldhost)} = $newhost; } else { $temporary_redirect{$us} = $newhost; } if (@so) { print "Can still $method $us: @so\n" if $debug; $fall_table{$ft} = join(' ',@so); } else { print "No more fallbacks for $us\n" if $debug; delete $fall_table{$ft}; } if (defined $create_host_backtrack{$us}) { $create_host_backtrack{"$user *** $newhost"} = $create_host_backtrack{$us}; } $fellback{"$user *** $newhost"} = $oldhost; &expn($newhost,$user,$names{$us},$level{$us}); return 1; } delete $temporary_redirect{$us}; $host = $oldhost; return 0; } # return 1 if you could send mail to the address as is. sub validAddr { local($addr) = @_; $res = &do_validAddr($addr); print "validAddr($addr) = $res\n" if $debug; $res; } sub do_validAddr { local($addr) = @_; local($urx) = "[-A-Za-z_.0-9+]+"; # \u return 0 if ($addr =~ /^\\/); # ?@h return 1 if ($addr =~ /.\@$urx$/); # @h:? return 1 if ($addr =~ /^\@$urx\:./); # h!u return 1 if ($addr =~ /^$urx!./); # u return 1 if ($addr =~ /^$urx$/); # ? print "validAddr($addr) = ???\n" if $debug; return 0; } # Some systems use expn and vrfy interchangeably. Some only # implement one or the other. Some check expn against mailing # lists and vrfy against users. It doesn't appear to be # consistent. # # So, what do we do? We try everything! # # # Ranking of result codes: good: 250, 251/551, 252, 550, anything else # # Ranking of inputs: best: user@host.domain, okay: user # # Return value: $error_string, @responses_from_server sub expn_vrfy { local($u,$server) = @_; local(@c) = ('expn', 'vrfy'); local(@try_u) = $u; local(@ret,$code); if (($u =~ /(.+)@(.+)/) && (&trhost($2) eq &trhost($server))) { push(@try_u,$1); } TRY: for $c (@c) { for $try_u (@try_u) { &alarm("${c}'ing $try_u on $server",'',$u); &ps("$c $try_u"); alarm(0); $s = <$S>; if ($s eq '') { return "$server: lost connection"; } if ($s !~ /^(\d+)([- ])/) { return "$server: garbled reply to '$c $try_u'"; } if ($1 == 250) { $code = 250; @ret = ("",$s); push(@ret,&read_response($2,$debug)); return (@ret); } if ($1 == 551 || $1 == 251) { $code = $1; @ret = ("",$s); push(@ret,&read_response($2,$debug)); next; } if ($1 == 252 && ($code == 0 || $code == 550)) { $code = 252; @ret = ("",$s); push(@ret,&read_response($2,$watch)); next; } if ($1 == 550 && $code == 0) { $code = 550; @ret = ("",$s); push(@ret,&read_response($2,$watch)); next; } &read_response($2,$watch); } } return "$server: expn/vrfy not implemented" unless @ret; return @ret; } # sometimes the old parse routine (now parse2) didn't # reject funky addresses. sub parse { local($oldaddr,$server,$oldname,$one_to_one) = @_; local($newhost, $newaddr, $newname, $um) = &parse2($oldaddr,$server,$oldname,$one_to_one); if ($newaddr =~ m,^["/],) { return (undef, $oldaddr, $newname) if $valid; return (undef, $um, $newname); } return ($newhost, $newaddr, $newname); } # returns ($new_smtp_server,$new_address,$new_name) # given a response from a SMTP server ($newaddr), the # current host ($server), the old "name" and a flag that # indicates if it is being called during the initial # command line parsing ($parsing_args) sub parse2 { local($newaddr,$context_host,$old_name,$parsing_args) = @_; local(@names) = $old_name; local($urx) = "[-A-Za-z_.0-9+]+"; local($unmangle); # # first, separate out the address part. # # # [NAME] # [NAME] <[(NAME)] ADDR # ADDR [(NAME)] # (NAME) ADDR # [(NAME)] # if ($newaddr =~ /^\<(.*)\>$/) { print "\n" if $debug; ($newaddr) = &trim($1); print "na = $newaddr\n" if $debug; } if ($newaddr =~ /^([^\<\>]*)\<([^\<\>]*)\>([^\<\>]*)$/) { # address has a < > pair in it. print "N:$1 N:$3\n" if $debug; ($newaddr) = &trim($2); unshift(@names, &trim($3,$1)); print "na = $newaddr\n" if $debug; } if ($newaddr =~ /^([^\(\)]*)\(([^\(\)]*)\)([^\(\)]*)$/) { # address has a ( ) pair in it. print "A:$1 (N:$2) A:$3\n" if $debug; unshift(@names,&trim($2)); local($f,$l) = (&trim($1),&trim($3)); if (($f && $l) || !($f || $l)) { # address looks like: # foo (bar) baz or (bar) # not allowed! print STDERR "Could not parse $newaddr\n" if $vw; return(undef,$newaddr,&firstname(@names)); } $newaddr = $f if $f; $newaddr = $l if $l; print "newaddr now = $newaddr\n" if $debug; } # # @foo:bar # j%k@l # a@b # b!a # a # $unmangle = $newaddr; if ($newaddr =~ /^\@($urx)\:(.+)$/) { print "(\@:)" if $debug; # this is a bit of a cheat, but it seems necessary return (&domainify($1,$context_host,$2),$2,&firstname(@names),$unmangle); } if ($newaddr =~ /^(.+)\@($urx)$/) { print "(\@)" if $debug; return (&domainify($2,$context_host,$newaddr),$newaddr,&firstname(@names),$unmangle); } if ($parsing_args) { if ($newaddr =~ /^($urx)\!(.+)$/) { return (&domainify($1,$context_host,$newaddr),$newaddr,&firstname(@names),$unmangle); } if ($newaddr =~ /^($urx)$/) { return ($context_host,$newaddr,&firstname(@names),$unmangle); } print STDERR "Could not parse $newaddr\n"; } print "(?)" if $debug; return(undef,$newaddr,&firstname(@names),$unmangle); } # return $u (@$server) unless $u includes reference to $server sub compact { local($u, $server) = @_; local($se) = $server; local($sp); $se =~ s/(\W)/\\$1/g; $sp = " (\@$server)"; if ($u !~ /$se/i) { return "$u$sp"; } return $u; } # remove empty (spaces don't count) members from an array sub trim { local(@v) = @_; local($v,@r); for $v (@v) { $v =~ s/^\s+//; $v =~ s/\s+$//; push(@r,$v) if ($v =~ /\S/); } return(@r); } # using the host part of an address, and the server name, add the # servers' domain to the address if it doesn't already have a # domain. Since this sometimes fails, save a back reference so # it can be unrolled. sub domainify { local($host,$domain_host,$u) = @_; local($domain,$newhost); # cut of trailing dots $host =~ s/\.$//; $domain_host =~ s/\.$//; if ($domain_host !~ /\./) { # # domain host isn't, keep $host whatever it is # print "domainify($host,$domain_host) = $host\n" if $debug; return $host; } # # There are several weird situtations that need to be # accounted for. They have to do with domain relay hosts. # # Examples: # host server "right answer" # # shiva.cs cs.berkeley.edu shiva.cs.berkeley.edu # shiva cs.berkeley.edu shiva.cs.berekley.edu # cumulus reed.edu @reed.edu:cumulus.uucp # tiberius tc.cornell.edu tiberius.tc.cornell.edu # # The first try must always be to cut the domain part out of # the server and tack it onto the host. # # A reasonable second try is to tack the whole server part onto # the host and for each possible repeated element, eliminate # just that part. # # These extra "guesses" get put into the %domainify_fallback # array. They will be used to give addresses a second chance # in the &giveup routine # local(%fallback); local($long); $long = "$host $domain_host"; $long =~ tr/A-Z/a-z/; print "long = $long\n" if $debug; if ($long =~ s/^([^ ]+\.)([^ ]+) \2(\.[^ ]+\.[^ ]+)/$1$2$3/) { # matches shiva.cs cs.berkeley.edu and returns shiva.cs.berkeley.edu print "condensed fallback $host $domain_host -> $long\n" if $debug; $fallback{$long} = 9; } local($fh); $fh = $domain_host; while ($fh =~ /\./) { print "FALLBACK $host.$fh = 1\n" if $debug > 7; $fallback{"$host.$fh"} = 1; $fh =~ s/^[^\.]+\.//; } $fallback{"$host.$domain_host"} = 2; ($domain = $domain_host) =~ s/^[^\.]+//; $fallback{"$host$domain"} = 6 if ($domain =~ /\./); if ($host =~ /\./) { # # Host is already okay, but let's look for multiple # interpretations # print "domainify($host,$domain_host) = $host\n" if $debug; delete $fallback{$host}; $domainify_fallback{"$u *** $host"} = join(' ',sort {$fallback{$b} <=> $fallback{$a};} keys %fallback) if %fallback; return $host; } $domain = ".$domain_host" if ($domain !~ /\..*\./); $newhost = "$host$domain"; $create_host_backtrack{"$u *** $newhost"} = $domain_host; print "domainify($host,$domain_host) = $newhost\n" if $debug; delete $fallback{$newhost}; $domainify_fallback{"$u *** $newhost"} = join(' ',sort {$fallback{$b} <=> $fallback{$a};} keys %fallback) if %fallback; if ($debug) { print "fallback = "; print $domainify_fallback{"$u *** $newhost"} if defined($domainify_fallback{"$u *** $newhost"}); print "\n"; } return $newhost; } # return the first non-empty element of an array sub firstname { local(@names) = @_; local($n); while(@names) { $n = shift(@names); return $n if $n =~ /\S/; } return undef; } # queue up more addresses to expand sub expn { local($host,$addr,$name,$level) = @_; if ($host) { $host = &trhost($host); if (($debug > 3) || (defined $giveup{$host})) { unshift(@hosts,$host) unless $users{$host}; } else { push(@hosts,$host) unless $users{$host}; } $users{$host} .= " $addr"; $names{"$addr *** $host"} = $name; $level{"$addr *** $host"} = $level + 1; print "expn($host,$addr,$name)\n" if $debug; return "\t$addr\n"; } else { return &final($addr,'NONE',$name); } } # compute the numerical average value of an array sub average { local(@e) = @_; return 0 unless @e; local($e,$sum); for $e (@e) { $sum += $e; } $sum / @e; } # print to the server (also to stdout, if -w) sub ps { local($p) = @_; print ">>> $p\n" if $watch; print $S "$p\n"; } # return case-adjusted name for a host (for comparison purposes) sub trhost { # treat foo.bar as an alias for Foo.BAR local($host) = @_; local($trhost) = $host; $trhost =~ tr/A-Z/a-z/; if ($trhost{$trhost}) { $host = $trhost{$trhost}; } else { $trhost{$trhost} = $host; } $trhost{$trhost}; } # re-queue users if an mx record dictates a redirect # don't allow a user to be redirected more than once sub mxredirect { local($server,*users) = @_; local($u,$nserver,@still_there); $nserver = &mx($server); if (&trhost($nserver) ne &trhost($server)) { $0 = "$av0 - mx redirect $server -> $nserver\n"; for $u (@users) { if (defined $mxbacktrace{"$u *** $nserver"}) { push(@still_there,$u); } else { $mxbacktrace{"$u *** $nserver"} = $server; print "mxbacktrace{$u *** $nserver} = $server\n" if ($debug > 1); &expn($nserver,$u,$names{"$u *** $server"}); } } @users = @still_there; if (! @users) { return $nserver; } else { return undef; } } return undef; } # follow mx records, return a hostname # also follow temporary redirections coming from &domainify and # &mxlookup sub mx { local($h,$u) = @_; for (;;) { if (defined $mx{&trhost($h)} && $h ne $mx{&trhost($h)}) { $0 = "$av0 - mx expand $h"; $h = $mx{&trhost($h)}; return $h; } if ($u) { if (defined $temporary_redirect{"$u *** $h"}) { $0 = "$av0 - internal redirect $h"; print "Temporary redirect taken $u *** $h -> " if $debug; $h = $temporary_redirect{"$u *** $h"}; print "$h\n" if $debug; next; } $htr = &trhost($h); if (defined $temporary_redirect{"$u *** $htr"}) { $0 = "$av0 - internal redirect $h"; print "temporary redirect taken $u *** $h -> " if $debug; $h = $temporary_redirect{"$u *** $htr"}; print "$h\n" if $debug; next; } } return $h; } } # look up mx records with the name server. # re-queue expansion requests if possible # optionally give up on this host. sub mxlookup { local($lastchance,$server,$giveup,*users) = @_; local(*T); local(*NSLOOKUP); local($nh, $pref,$cpref); local($o0) = $0; local($nserver); local($name,$aliases,$type,$len,$thataddr); local(%fallback); return 1 if &mxredirect($server,*users); if ((defined $mx{$server}) || (! $have_nslookup)) { return 0 unless $lastchance; &giveup('mx domainify',$giveup); return 0; } $0 = "$av0 - nslookup of $server"; sysopen(T,"/tmp/expn$$",O_RDWR|O_CREAT|O_EXCL,0600) || die "open > /tmp/expn$$: $!\n"; print T "set querytype=MX\n"; print T "$server\n"; close(T); $cpref = 1.0E12; undef $nserver; open(NSLOOKUP,"nslookup < /tmp/expn$$ 2>&1 |") || die "open nslookup: $!"; while() { print if ($debug > 2); if (/mail exchanger = ([-A-Za-z_.0-9+]+)/) { $nh = $1; if (/preference = (\d+)/) { $pref = $1; if ($pref < $cpref) { $nserver = $nh; $cpref = $pref; } elsif ($pref) { $fallback{$pref} .= " $nh"; } } } if (/Non-existent domain/) { # # These addresss are hosed. Kaput! Dead! # However, if we created the address in the # first place then there is a chance of # salvation. # 1 while(); close(NSLOOKUP); return 0 unless $lastchance; &giveup('domainify',"$server: Non-existent domain",undef,1); return 0; } } close(NSLOOKUP); unlink("/tmp/expn$$"); unless ($nserver) { $0 = "$o0 - finished mxlookup"; return 0 unless $lastchance; &giveup('mx domainify',"$server: Could not resolve address"); return 0; } # provide fallbacks in case $nserver doesn't work out if (defined $fallback{$cpref}) { $mx_secondary{$server} = $fallback{$cpref}; } $0 = "$av0 - gethostbyname($nserver)"; ($name,$aliases,$type,$len,$thataddr) = gethostbyname($nserver); unless ($thataddr) { $0 = $o0; return 0 unless $lastchance; &giveup('mx domainify',"$nserver: could not resolve address"); return 0; } print "MX($server) = $nserver\n" if $debug; print "$server -> $nserver\n" if $vw && !$debug; $mx{&trhost($server)} = $nserver; # redeploy the users unless (&mxredirect($server,*users)) { return 0 unless $lastchance; &giveup('mx domainify',"$nserver: only one level of mx redirect allowed"); return 0; } $0 = "$o0 - finished mxlookup"; return 1; } # if mx expansion did not help to resolve an address # (ie: foo@bar became @baz:foo@bar, then undo the # expansion). # this is only used by &final sub mxunroll { local(*host,*addr) = @_; local($r) = 0; print "looking for mxbacktrace{$addr *** $host}\n" if ($debug > 1); while (defined $mxbacktrace{"$addr *** $host"}) { print "Unrolling MX expnasion: \@$host:$addr -> " if ($debug || $verbose); $host = $mxbacktrace{"$addr *** $host"}; print "\@$host:$addr\n" if ($debug || $verbose); $r = 1; } return 1 if $r; $addr = "\@$host:$addr" if ($host =~ /\./); return 0; } # register a completed expnasion. Make the final address as # simple as possible. sub final { local($addr,$host,$name,$error) = @_; local($he); local($hb,$hr); local($au,$ah); if ($error =~ /Non-existent domain/) { # # If we created the domain, then let's undo the # damage... # if (defined $create_host_backtrack{"$addr *** $host"}) { while (defined $create_host_backtrack{"$addr *** $host"}) { print "Un&domainifying($host) = " if $debug; $host = $create_host_backtrack{"$addr *** $host"}; print "$host\n" if $debug; } $error = "$host: could not locate"; } else { # # If we only want valid addresses, toss out # bad host names. # if ($valid) { print STDERR "\@$host:$addr ($name) Non-existent domain\n"; return ""; } } } MXUNWIND: { $0 = "$av0 - final parsing of \@$host:$addr"; ($he = $host) =~ s/(\W)/\\$1/g; if ($addr !~ /@/) { # addr does not contain any host $addr = "$addr@$host"; } elsif ($addr !~ /$he/i) { # if host part really something else, use the something # else. if ($addr =~ m/(.*)\@([^\@]+)$/) { ($au,$ah) = ($1,$2); print "au = $au ah = $ah\n" if $debug; if (defined $temporary_redirect{"$addr *** $ah"}) { $addr = "$au\@".$temporary_redirect{"$addr *** $ah"}; print "Rewrite! to $addr\n" if $debug; next MXUNWIND; } } # addr does not contain full host if ($valid) { if ($host =~ /^([^\.]+)(\..+)$/) { # host part has a . in it - foo.bar ($hb, $hr) = ($1, $2); if ($addr =~ /\@([^\.\@]+)$/ && ($1 eq $hb)) { # addr part has not . # and matches beginning of # host part -- tack on a # domain name. $addr .= $hr; } else { &mxunroll(*host,*addr) && redo MXUNWIND; } } else { &mxunroll(*host,*addr) && redo MXUNWIND; } } else { $addr = "${addr}[\@$host]" if ($host =~ /\./); } } } $name = "$name " if $name; $error = " $error" if $error; if ($valid) { push(@final,"$name<$addr>"); } else { push(@final,"$name<$addr>$error"); } "\t$name<$addr>$error\n"; } sub alarm { local($alarm_action,$alarm_redirect,$alarm_user) = @_; alarm(3600); $SIG{ALRM} = 'handle_alarm'; } # this involves one great big ugly hack. # the "next HOST" unwinds the stack! sub handle_alarm { &giveup($alarm_redirect,"Timed out during $alarm_action",$alarm_user); next HOST; } # read the rest of the current smtp daemon's response (and toss it away) sub read_response { local($done,$watch) = @_; local(@resp); print $s if $watch; while(($done eq "-") && ($s = <$S>) && ($s =~ /^\d+([- ])/)) { print $s if $watch; $done = $1; push(@resp,$s); } return @resp; } # print args if verbose. Return them in any case sub verbose { local(@tp) = @_; print "@tp" if $verbose; } # to pass perl -w: @tp; $flag_a; $flag_d; $flag_1; %already_domainify_fellback; %already_mx_fellback; &handle_alarm; ################### BEGIN PERL/TROFF TRANSITION .00 ; 'di .nr nl 0-1 .nr % 0 .\\"'; __END__ .\" ############## END PERL/TROFF TRANSITION .TH EXPN 1 "March 11, 1993" .AT 3 .SH NAME expn \- recursively expand mail aliases .SH SYNOPSIS .B expn .RI [ -a ] .RI [ -v ] .RI [ -w ] .RI [ -d ] .RI [ -1 ] .IR user [@ hostname ] .RI [ user [@ hostname ]]... .SH DESCRIPTION .B expn will use the SMTP .B expn and .B vrfy commands to expand mail aliases. It will first look up the addresses you provide on the command line. If those expand into addresses on other systems, it will connect to the other systems and expand again. It will keep doing this until no further expansion is possible. .SH OPTIONS The default output of .B expn can contain many lines which are not valid email addresses. With the .I -aa flag, only expansions that result in legal addresses are used. Since many mailing lists have an illegal address or two, the single .IR -a , address, flag specifies that a few illegal addresses can be mixed into the results. More .I -a flags vary the ratio. Read the source to track down the formula. With the .I -a option, you should be able to construct a new mailing list out of an existing one. .LP If you wish to limit the number of levels deep that .B expn will recurse as it traces addresses, use the .I -1 option. For each .I -1 another level will be traversed. So, .I -111 will traverse no more than three levels deep. .LP The normal mode of operation for .B expn is to do all of its work silently. The following options make it more verbose. It is not necessary to make it verbose to see what it is doing because as it works, it changes its .BR argv [0] variable to reflect its current activity. To see how it is expanding things, the .IR -v , verbose, flag will cause .B expn to show each address before and after translation as it works. The .IR -w , watch, flag will cause .B expn to show you its conversations with the mail daemons. Finally, the .IR -d , debug, flag will expose many of the inner workings so that it is possible to eliminate bugs. .SH ENVIRONMENT No environment variables are used. .SH FILES .PD 0 .B /tmp/expn$$ .B temporary file used as input to .BR nslookup . .SH SEE ALSO .BR aliases (5), .BR sendmail (8), .BR nslookup (8), RFC 823, and RFC 1123. .SH BUGS Not all mail daemons will implement .B expn or .BR vrfy . It is not possible to verify addresses that are served by such daemons. .LP When attempting to connect to a system to verify an address, .B expn only tries one IP address. Most mail daemons will try harder. .LP It is assumed that you are running domain names and that the .BR nslookup (8) program is available. If not, .B expn will not be able to verify many addresses. It will also pause for a long time unless you change the code where it says .I $have_nslookup = 1 to read .I $have_nslookup = .IR 0 . .LP Lastly, .B expn does not handle every valid address. If you have an example, please submit a bug report. .SH CREDITS In 1986 or so, Jon Broome wrote a program of the same name that did about the same thing. It has since suffered bit rot and Jon Broome has dropped off the face of the earth! (Jon, if you are out there, drop me a line) .SH AVAILABILITY The latest version of .B expn is available through anonymous ftp at .IR ftp://ftp.idiom.com/pub/muir-programs/expn . .SH AUTHOR .I David Muir Sharnoff\ \ \ \ sendmail-8.18.1/contrib/bitdomain.c0000644000372400037240000002126014556365350016542 0ustar xbuildxbuild/* * By John G. Myers, jgm+@cmu.edu * Version 1.2 * * Process a BITNET "internet.listing" file, producing output * suitable for input to makemap. * * The input file can be obtained via anonymous FTP to bitnic.educom.edu. * Change directory to "netinfo" and get the file internet.listing * The file is updated monthly. * * Feed the output of this program to "makemap hash /etc/mail/bitdomain.db" * to create the table used by the "FEATURE(bitdomain)" config file macro. * If your sendmail does not have the db library compiled in, you can instead * use "makemap dbm /etc/mail/bitdomain" and * "FEATURE(bitdomain,`dbm -o /etc/mail/bitdomain')" * * The bitdomain table should be rebuilt monthly. */ #include #include #include #include #include #include #include #include #include /* don't use sizeof because sizeof(long) is different on 64-bit machines */ #define SHORTSIZE 2 /* size of a short (really, must be 2) */ #define LONGSIZE 4 /* size of a long (really, must be 4) */ typedef union { HEADER qb1; char qb2[PACKETSZ]; } querybuf; extern int h_errno; extern char *malloc(); extern char *optarg; extern int optind; char *lookup(); main(argc, argv) int argc; char **argv; { int opt; while ((opt = getopt(argc, argv, "o:")) != -1) { switch (opt) { case 'o': if (!freopen(optarg, "w", stdout)) { perror(optarg); exit(1); } break; default: fprintf(stderr, "usage: %s [-o outfile] [internet.listing]\n", argv[0]); exit(1); } } if (optind < argc) { if (!freopen(argv[optind], "r", stdin)) { perror(argv[optind]); exit(1); } } readfile(stdin); finish(); exit(0); } /* * Parse and process an input file */ readfile(infile) FILE *infile; { int skippingheader = 1; char buf[1024], *node, *hostname, *p; while (fgets(buf, sizeof(buf), infile)) { for (p = buf; *p && isspace(*p); p++); if (!*p) { skippingheader = 0; continue; } if (skippingheader) continue; node = p; for (; *p && !isspace(*p); p++) { if (isupper(*p)) *p = tolower(*p); } if (!*p) { fprintf(stderr, "%-8s: no domain name in input file\n", node); continue; } *p++ = '\0'; for (; *p && isspace(*p); p++) ; if (!*p) { fprintf(stderr, "%-8s no domain name in input file\n", node); continue; } hostname = p; for (; *p && !isspace(*p); p++) { if (isupper(*p)) *p = tolower(*p); } *p = '\0'; /* Chop off any trailing .bitnet */ if (strlen(hostname) > 7 && !strcmp(hostname+strlen(hostname)-7, ".bitnet")) { hostname[strlen(hostname)-7] = '\0'; } entry(node, hostname, sizeof(buf)-(hostname - buf)); } } /* * Process a single entry in the input file. * The entry tells us that "node" expands to "domain". * "domain" can either be a domain name or a bitnet node name * The buffer pointed to by "domain" may be overwritten--it * is of size "domainlen". */ entry(node, domain, domainlen) char *node; char *domain; char *domainlen; { char *otherdomain, *p, *err; /* See if we have any remembered information about this node */ otherdomain = lookup(node); if (otherdomain && strchr(otherdomain, '.')) { /* We already have a domain for this node */ if (!strchr(domain, '.')) { /* * This entry is an Eric Thomas FOO.BITNET kludge. * He doesn't want LISTSERV to do transitive closures, so we * do them instead. Give the the domain expansion for "node" * (which is in "otherdomian") to FOO (which is in "domain") * if "domain" doesn't have a domain expansion already. */ p = lookup(domain); if (!p || !strchr(p, '.')) remember(domain, otherdomain); } } else { if (!strchr(domain, '.') || valhost(domain, domainlen)) { remember(node, domain); if (otherdomain) { /* * We previously mapped the node "node" to the node * "otherdomain". If "otherdomain" doesn't already * have a domain expansion, give it the expansion "domain". */ p = lookup(otherdomain); if (!p || !strchr(p, '.')) remember(otherdomain, domain); } } else { switch (h_errno) { case HOST_NOT_FOUND: err = "not registered in DNS"; break; case TRY_AGAIN: err = "temporary DNS lookup failure"; break; case NO_RECOVERY: err = "non-recoverable nameserver error"; break; case NO_DATA: err = "registered in DNS, but not mailable"; break; default: err = "unknown nameserver error"; break; } fprintf(stderr, "%-8s %s %s\n", node, domain, err); } } } /* * Validate whether the mail domain "host" is registered in the DNS. * If "host" is a CNAME, it is expanded in-place if the expansion fits * into the buffer of size "hbsize". Returns nonzero if it is, zero * if it is not. A BIND error code is left in h_errno. */ int valhost(host, hbsize) char *host; int hbsize; { register u_char *eom, *ap; register int n; HEADER *hp; querybuf answer; int ancount, qdcount; int ret; int type; int qtype; char nbuf[1024]; if ((_res.options & RES_INIT) == 0 && res_init() == -1) return (0); _res.options &= ~(RES_DNSRCH|RES_DEFNAMES); _res.retrans = 30; _res.retry = 10; qtype = T_ANY; for (;;) { h_errno = NO_DATA; ret = res_querydomain(host, "", C_IN, qtype, &answer, sizeof(answer)); if (ret <= 0) { if (errno == ECONNREFUSED || h_errno == TRY_AGAIN) { /* the name server seems to be down */ h_errno = TRY_AGAIN; return 0; } if (h_errno != HOST_NOT_FOUND) { /* might have another type of interest */ if (qtype == T_ANY) { qtype = T_A; continue; } else if (qtype == T_A) { qtype = T_MX; continue; } } /* otherwise, no record */ return 0; } /* ** This might be a bogus match. Search for A, MX, or ** CNAME records. */ hp = (HEADER *) &answer; ap = (u_char *) &answer + sizeof(HEADER); eom = (u_char *) &answer + ret; /* skip question part of response -- we know what we asked */ for (qdcount = ntohs(hp->qdcount); qdcount--; ap += ret + QFIXEDSZ) { if ((ret = dn_skipname(ap, eom)) < 0) { return 0; /* ???XXX??? */ } } for (ancount = ntohs(hp->ancount); --ancount >= 0 && ap < eom; ap += n) { n = dn_expand((u_char *) &answer, eom, ap, (u_char *) nbuf, sizeof nbuf); if (n < 0) break; ap += n; GETSHORT(type, ap); ap += SHORTSIZE + LONGSIZE; GETSHORT(n, ap); switch (type) { case T_MX: case T_A: return 1; case T_CNAME: /* value points at name */ if ((ret = dn_expand((u_char *)&answer, eom, ap, (u_char *)nbuf, sizeof(nbuf))) < 0) break; if (strlen(nbuf) < hbsize) { (void)strcpy(host, nbuf); } return 1; default: /* not a record of interest */ continue; } } /* ** If this was a T_ANY query, we may have the info but ** need an explicit query. Try T_A, then T_MX. */ if (qtype == T_ANY) qtype = T_A; else if (qtype == T_A) qtype = T_MX; else return 0; } } struct entry { struct entry *next; char *node; char *domain; }; struct entry *firstentry; /* * Find any remembered information about "node" */ char *lookup(node) char *node; { struct entry *p; for (p = firstentry; p; p = p->next) { if (!strcmp(node, p->node)) { return p->domain; } } return 0; } /* * Mark the node "node" as equivalent to "domain". "domain" can either * be a bitnet node or a domain name--if it is the latter, the mapping * will be written to stdout. */ remember(node, domain) char *node; char *domain; { struct entry *p; if (strchr(domain, '.')) { fprintf(stdout, "%-8s %s\n", node, domain); } for (p = firstentry; p; p = p->next) { if (!strcmp(node, p->node)) { p->domain = malloc(strlen(domain)+1); if (!p->domain) { goto outofmemory; } strcpy(p->domain, domain); return; } } p = (struct entry *)malloc(sizeof(struct entry)); if (!p) goto outofmemory; p->next = firstentry; firstentry = p; p->node = malloc(strlen(node)+1); p->domain = malloc(strlen(domain)+1); if (!p->node || !p->domain) goto outofmemory; strcpy(p->node, node); strcpy(p->domain, domain); return; outofmemory: fprintf(stderr, "Out of memory\n"); exit(1); } /* * Walk through the database, looking for any cases where we know * node FOO is equivalent to node BAR and node BAR has a domain name. * For those cases, give FOO the same domain name as BAR. */ finish() { struct entry *p; char *domain; for (p = firstentry; p; p = p->next) { if (!strchr(p->domain, '.') && (domain = lookup(p->domain))) { remember(p->node, domain); } } } sendmail-8.18.1/contrib/mh.patch0000644000372400037240000001155014556365350016056 0ustar xbuildxbuildMessage-Id: <199309031900.OAA19417@ignatz.acs.depaul.edu> To: bug-mh@ics.uci.edu cc: mh-users@ics.uci.edu, eric@cs.berkeley.edu Subject: MH-6.8.1/Sendmail 8.X (MH patch) updated Date: Fri, 03 Sep 1993 14:00:46 -0500 From: Dave Nelson This patch will fix the "X-auth..." warnings from the newer Sendmails (8.X) while continuing to work with the old sendmails. I think the following patch will make everyone happy. 1) Anybody with MH-6.8.1 can install this. It doesn't matter what version of sendmail you're running. It doesn't matter if you're not running sendmail (but it won't fix anything for you). 2) No configuration file hacks. If the -client switch is absent (the default), the new sendmails will get an EHLO using what LocalName() returns as the hostname. On my systems, this returns the FQDN. If the EHLO fails with a result between 500 and 599 and the -client switch is not set, we give up on sending EHLO/HELO and just go deliver the mail. 3) No new configuration options. 4) Retains the undocumented -client switch. One warning: it is possible using the -client switch to cause the old sendmails to return "I refuse to talk to myself". You could do this under the old code as well. This will happen if you claim to be the same system as the sendmail you're sending to is running on. That's pointless, but possible. If you do this, just like under the old code, you will get an error. 5) If you're running a site with both old and new sendmails, you only have to build MH once. The code's the same; works with them both. If you decide to install this, make sure that you look the patch over and that you agree with what it is doing. It works for me, but I can't test it on every possible combination. Make sure that it works before you really install it for your users, if any. No promises. To install this, save this to a file in the mts/sendmail directory. Feed it to patch. Patch will ignore the non-patch stuff. You should have "mts sendmail/smtp" in your configuration file. This works with old and new sendmails. Using "mts sendmail" will cause the new sendmails to print an "X-auth..." warning about who owns the process piping the mail message. I don't know of anyway of getting rid of these. mh-config (if necessary), make, make inst-all. I hope this helps people. /dcn Dave Nelson Academic Computer Services DePaul University, Chicago *** smail.c Fri Sep 3 11:58:05 1993 --- smail.c Fri Sep 3 11:57:27 1993 *************** *** 239,261 **** return RP_RPLY; } ! if (client && *client) { ! doingEHLO = 1; ! result = smtalk (SM_HELO, "EHLO %s", client); ! doingEHLO = 0; ! if (500 <= result && result <= 599) result = smtalk (SM_HELO, "HELO %s", client); ! ! switch (result) { case 250: ! break; default: (void) sm_end (NOTOK); return RP_RPLY; } } #ifndef ZMAILER if (onex) --- 239,276 ---- return RP_RPLY; } ! doingEHLO = 1; ! result = smtalk (SM_HELO, "EHLO %s", ! (client && *client) ? client : LocalName()); ! doingEHLO = 0; ! ! switch (result) ! { ! case 250: ! break; ! default: ! if (!(500 <= result && result <= 599)) ! { ! (void) sm_end (NOTOK); ! return RP_RPLY; ! } ! ! if (client && *client) ! { result = smtalk (SM_HELO, "HELO %s", client); ! switch (result) ! { case 250: ! break; default: (void) sm_end (NOTOK); return RP_RPLY; + } } } + #ifndef ZMAILER if (onex) *************** *** 357,380 **** return RP_RPLY; } ! if (client && *client) { ! doingEHLO = 1; ! result = smtalk (SM_HELO, "EHLO %s", client); ! doingEHLO = 0; ! if (500 <= result && result <= 599) result = smtalk (SM_HELO, "HELO %s", client); ! ! switch (result) { ! case 250: break; ! default: (void) sm_end (NOTOK); return RP_RPLY; } } ! send_options: ; if (watch && EHLOset ("XVRB")) (void) smtalk (SM_HELO, "VERB on"); --- 372,409 ---- return RP_RPLY; } ! doingEHLO = 1; ! result = smtalk (SM_HELO, "EHLO %s", ! (client && *client) ? client : LocalName()); ! doingEHLO = 0; ! ! switch (result) ! { ! case 250: ! break; ! ! default: ! if (!(500 <= result && result <= 599)) ! { ! (void) sm_end (NOTOK); ! return RP_RPLY; ! } ! if (client && *client) ! { result = smtalk (SM_HELO, "HELO %s", client); ! switch (result) ! { ! case 250: break; ! default: (void) sm_end (NOTOK); return RP_RPLY; + } } } ! send_options: ; if (watch && EHLOset ("XVRB")) (void) smtalk (SM_HELO, "VERB on"); sendmail-8.18.1/contrib/etrn.pl0000755000372400037240000001373014556365350015743 0ustar xbuildxbuild#!/usr/perl5/bin/perl -w # # CDDL HEADER START # # The contents of this file are subject to the terms of the # Common Development and Distribution License (the "License"). # You may not use this file except in compliance with the License. # # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE # or http://www.opensolaris.org/os/licensing. # See the License for the specific language governing permissions # and limitations under the License. # # When distributing Covered Code, include this CDDL HEADER in each # file and include the License file at usr/src/OPENSOLARIS.LICENSE. # If applicable, add the following below this CDDL HEADER, with the # fields enclosed by brackets "[]" replaced with your own identifying # information: Portions Copyright [yyyy] [name of copyright owner] # # CDDL HEADER END # # # Copyright (c) 1996-2000 by John T. Beck # All rights reserved. # # Copyright 2008 Sun Microsystems, Inc. All rights reserved. # Use is subject to license terms. # require 5.8.4; # minimal Perl version required use strict; use warnings; use English; use Socket; use Getopt::Std; our ($opt_v, $opt_b); # system requirements: # must have 'hostname' program. my $port = 'smtp'; select(STDERR); chop(my $name = `hostname || uname -n`); my ($hostname) = (gethostbyname($name))[0]; my $usage = "Usage: $PROGRAM_NAME [-bv] host [args]"; getopts('bv'); my $verbose = $opt_v; my $boot_check = $opt_b; my $server = shift(@ARGV); my @hosts = @ARGV; die $usage unless $server; my @cwfiles = (); my $alarm_action = ""; if (!@hosts) { push(@hosts, $hostname); open(CF, "){ # look for a line starting with "Fw" if (/^Fw.*$/) { my $cwfile = $ARG; chop($cwfile); my $optional = /^Fw-o/; # extract the file name $cwfile =~ s,^Fw[^/]*,,; # strip the options after the filename $cwfile =~ s/ [^ ]+$//; if (-r $cwfile) { push (@cwfiles, $cwfile); } else { die "$cwfile is not readable" unless $optional; } } # look for a line starting with "Cw" if (/^Cw(.*)$/) { my @cws = split (' ', $1); while (@cws) { my $thishost = shift(@cws); push(@hosts, $thishost) unless $thishost =~ "$hostname|localhost"; } } } close(CF); for my $cwfile (@cwfiles) { if (open(CW, "<$cwfile")) { while () { next if /^\#/; my $thishost = $ARG; chop($thishost); push(@hosts, $thishost) unless $thishost =~ $hostname; } close(CW); } else { die "open $cwfile: $ERRNO"; } } # Do this automatically if no client hosts are specified. $boot_check = "yes"; } my ($proto) = (getprotobyname('tcp'))[2]; ($port) = (getservbyname($port, 'tcp'))[2] unless $port =~ /^\d+/; if ($boot_check) { # first connect to localhost to verify that we can accept connections print "verifying that localhost is accepting SMTP connections\n" if ($verbose); my $localhost_ok = 0; ($name, my $laddr) = (gethostbyname('localhost'))[0, 4]; (!defined($name)) && die "gethostbyname failed, unknown host localhost"; # get a connection my $sinl = sockaddr_in($port, $laddr); my $save_errno = 0; for (my $num_tries = 1; $num_tries < 5; $num_tries++) { socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $ERRNO"; if (connect(S, $sinl)) { &alarm("sending 'quit' to $server"); print S "quit\n"; alarm(0); $localhost_ok = 1; close(S); alarm(0); last; } print STDERR "localhost connect failed ($num_tries)\n"; $save_errno = $ERRNO; sleep(1 << $num_tries); close(S); alarm(0); } if (! $localhost_ok) { die "could not connect to localhost: $save_errno\n"; } } # look it up ($name, my $thataddr) = (gethostbyname($server))[0, 4]; (!defined($name)) && die "gethostbyname failed, unknown host $server"; # get a connection my $sinr = sockaddr_in($port, $thataddr); socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $ERRNO"; print "server = $server\n" if (defined($verbose)); &alarm("connect to $server"); if (! connect(S, $sinr)) { die "cannot connect to $server: $ERRNO\n"; } alarm(0); select((select(S), $OUTPUT_AUTOFLUSH = 1)[0]); # don't buffer output to S # read the greeting &alarm("greeting with $server"); while () { alarm(0); print if $verbose; if (/^(\d+)([- ])/) { # SMTP's initial greeting response code is 220. if ($1 != 220) { &alarm("giving up after bad response from $server"); &read_response($2, $verbose); alarm(0); print STDERR "$server: NOT 220 greeting: $ARG" if ($verbose); } last if ($2 eq " "); } else { print STDERR "$server: NOT 220 greeting: $ARG" if ($verbose); close(S); } &alarm("greeting with $server"); } alarm(0); &alarm("sending ehlo to $server"); &ps("ehlo $hostname"); my $etrn_support = 0; while () { if (/^250([- ])ETRN(.+)$/) { $etrn_support = 1; } print if $verbose; last if /^\d+ /; } alarm(0); if ($etrn_support) { print "ETRN supported\n" if ($verbose); &alarm("sending etrn to $server"); while (@hosts) { $server = shift(@hosts); &ps("etrn $server"); while () { print if $verbose; last if /^\d+ /; } sleep(1); } } else { print "\nETRN not supported\n\n" } &alarm("sending 'quit' to $server"); &ps("quit"); while () { print if $verbose; last if /^\d+ /; } close(S); alarm(0); select(STDOUT); exit(0); # print to the server (also to stdout, if -v) sub ps { my ($p) = @_; print ">>> $p\n" if $verbose; print S "$p\n"; } sub alarm { ($alarm_action) = @_; alarm(10); $SIG{ALRM} = 'handle_alarm'; } sub handle_alarm { &giveup($alarm_action); } sub giveup { my $reason = @_; (my $pk, my $file, my $line); ($pk, $file, $line) = caller; print "Timed out during $reason\n" if $verbose; exit(1); } # read the rest of the current smtp daemon's response (and toss it away) sub read_response { (my $done, $verbose) = @_; (my @resp); print my $s if $verbose; while (($done eq "-") && ($s = ) && ($s =~ /^\d+([- ])/)) { print $s if $verbose; $done = $1; push(@resp, $s); } return @resp; } sendmail-8.18.1/contrib/README0000644000372400037240000000071214556365350015307 0ustar xbuildxbuildEverything in this directory (except this file) has been contributed. We will not fix bugs in these programs. Contact the original author for assistance. Some of these are patches to sendmail itself. You may need to take care -- some of the patches may be out of date with the latest release of sendmail. Also, the previous comment applies -- patches belong to the original author, not to us. $Revision: 8.2 $, Last updated $Date: 1999-09-24 05:46:47 $ sendmail-8.18.1/contrib/link_hash.sh0000755000372400037240000000105414556365350016726 0ustar xbuildxbuild#!/bin/sh ## ## Copyright (c) 2000 Proofpoint, Inc. and its suppliers. ## All rights reserved. ## ## $Id: link_hash.sh,v 1.3 2013-11-22 20:51:18 ca Exp $ ## # # ln a certificate to its hash # SSL=openssl if test $# -ge 1 then for i in $@ do C=$i.pem test -f $C || C=$i if test -f $C then H=`$SSL x509 -noout -hash < $C`.0 if test -h $H -o -f $H then echo link $H to $C exists else ln -s $C $H fi else echo "$0: cannot open $C" exit 2 fi done else echo "$0: missing name" exit 1 fi exit 0 sendmail-8.18.1/contrib/socketmapClient.pl0000755000372400037240000000275114556365350020121 0ustar xbuildxbuild#!/usr/bin/perl -w # # Contributed by Bastiaan Bakker for SOCKETMAP # $Id: socketmapClient.pl,v 1.1 2003-05-21 15:36:33 ca Exp $ use strict; use IO::Socket; die "usage: $0 [ ...]" if (@ARGV < 3); my $connection = shift @ARGV; my $mapname = shift @ARGV; my $sock; if ($connection =~ /tcp:(.+):([0-9]*)/) { $sock = new IO::Socket::INET ( PeerAddr => $1, PeerPort => $2, Proto => 'tcp', ); } elsif ($connection =~ /((unix)|(local)):(.+)/) { $sock = new IO::Socket::UNIX ( Type => SOCK_STREAM, Peer => $4 ); } else { die "unrecognized connection specification $connection"; } die "Could not create socket: $!\n" unless $sock; while(my $key = shift @ARGV) { my $request = "$mapname $key"; netstringWrite($sock, $request); $sock->flush(); my $response = netstringRead($sock); print "$key => $response\n"; } $sock->close(); sub netstringWrite { my $sock = shift; my $data = shift; print $sock length($data).':'.$data.','; } sub netstringRead { my $sock = shift; my $saveSeparator = $/; $/ = ':'; my $dataLength = <$sock>; die "cannot read netstring length" unless defined($dataLength); chomp $dataLength; my $data; if ($sock->read($data, $dataLength) == $dataLength) { ($sock->getc() eq ',') or die "data misses closing ,"; } else { die "received only ".length($data)." of $dataLength bytes"; } $/ = $saveSeparator; return $data; } sendmail-8.18.1/contrib/movemail.pl0000755000372400037240000000462614556365350016610 0ustar xbuildxbuild#!/usr/bin/perl -w # # Move old mail messages between queues by calling re-mqueue.pl. # # movemail.pl [config-script] # # Default config script is /usr/local/etc/movemail.conf. # # Graeme Hewson , June 2000 # use strict; # Load external program as subroutine to avoid # compilation overhead on each call sub loadsub { my $fn = shift or die "Filename not specified"; my $len = (stat($fn))[7] or die "Can't stat $fn: $!"; open PROG, "< $fn" or die "Can't open $fn: $!"; my $prog; read PROG, $prog, $len or die "Can't read $fn: $!"; close PROG; eval join "", 'return sub { my @ARGV = @_; $0 = $fn; no strict;', "$prog", '};'; } my $progname = $0; my $lastage = -1; my $LOCK_EX = 2; my $LOCK_NB = 4; # Load and eval config script my $conffile = shift || "/usr/local/etc/movemail.conf"; my $len = (stat($conffile))[7] or die "Can't stat $conffile: $!"; open CONF, "< $conffile" or die "Can't open $conffile: $!"; my $conf; read CONF, $conf, $len or die "Can't read $conffile: $!"; close CONF; use vars qw(@queues $subqbase @ages $remqueue $lockfile); eval $conf; if ($#queues < 1) { print "$progname: there must be at least two queues\n"; exit 1; } if ($#ages != ($#queues - 1)) { print "$progname: wrong number of ages (should be one less than number of queues)\n"; exit 1; } # Get lock or exit quietly. Useful when running from cron. if ($lockfile) { open LOCK, ">>$lockfile" or die "Can't open lock file: $!"; unless (flock LOCK, $LOCK_EX|$LOCK_NB) { close LOCK; exit 0; } } my $remsub = loadsub($remqueue); # Go through directories in reverse order so as to check spool files only once for (my $n = $#queues - 1; $n >= 0; $n--) { unless ($ages[$n] =~ /^\d+$/) { print "$progname: invalid number $ages[$n] in ages array\n"; exit 1; } unless ($lastage < 0 || $ages[$n] < $lastage) { print "$progname: age $lastage is not > previous value $ages[$n]\n"; exit 1; } $lastage = $ages[$n]; if ($subqbase) { my $subdir; opendir(DIR, $queues[$n]) or die "Can't open $queues[$n]: $!"; foreach $subdir ( grep { /^$subqbase/ } readdir DIR) { &$remsub("$queues[$n]/$subdir", "$queues[$n+1]/$subdir", $ages[$n]); } closedir(DIR); } else { # Not using subdirectories &$remsub($queues[$n], $queues[$n+1], $ages[$n]); } } if ($lockfile) { unlink $lockfile; close LOCK; } sendmail-8.18.1/contrib/bsdi.mc0000644000372400037240000002133314556365350015673 0ustar xbuildxbuildReturn-Path: sanders@austin.BSDI.COM Received: from hofmann.CS.Berkeley.EDU (hofmann.CS.Berkeley.EDU [128.32.34.35]) by orodruin.CS.Berkeley.EDU (8.6.9/8.7.0.Beta0) with ESMTP id KAA28278 for ; Sat, 10 Dec 1994 10:49:08 -0800 Received: from austin.BSDI.COM (austin.BSDI.COM [137.39.95.2]) by hofmann.CS.Berkeley.EDU (8.6.9/8.6.6.Beta11) with ESMTP id KAA09482 for ; Sat, 10 Dec 1994 10:49:03 -0800 Received: from austin.BSDI.COM (sanders@localhost [127.0.0.1]) by austin.BSDI.COM (8.6.9/8.6.9) with ESMTP id MAA14919 for ; Sat, 10 Dec 1994 12:49:01 -0600 Message-Id: <199412101849.MAA14919@austin.BSDI.COM> To: Eric Allman Subject: Re: sorting mailings lists with fastest delivery users first In-reply-to: Your message of Sat, 10 Dec 1994 08:25:30 PST. References: <199412101625.IAA15407@mastodon.CS.Berkeley.EDU> From: Tony Sanders Organization: Berkeley Software Design, Inc. Date: Sat, 10 Dec 1994 12:49:00 -0600 Sender: sanders@austin.BSDI.COM (some random text deleted) I'll send you something else I've hacked up. You are free to use this or do with it as you like (I hereby make all my parts public domain). It's a sample .mc file that has comments (mostly taken from the README) and examples describing most of the common things people need to setup. # # /usr/share/sendmail/cf/sample.mc # # Do not edit /etc/sendmail.cf directly unless you cannot do what you # want in the master config file (/usr/share/sendmail/cf/sample.mc). # To create /etc/sendmail.cf from the master: # cd /usr/share/sendmail/cf # mv /etc/sendmail.cf /etc/sendmail.cf.save # m4 < sample.mc > /etc/sendmail.cf # # Then kill and restart sendmail: # sh -c 'set `cat /var/run/sendmail.pid`; kill $1; shift; eval "$@"' # # See /usr/share/sendmail/README for help in building a configuration file. # include(`../m4/cf.m4') VERSIONID(`@(#)$Id: bsdi.mc,v 8.1 1999-02-06 18:44:08 gshapiro Exp $') dnl # Specify your OS type below OSTYPE(`bsd4.4') dnl # NOTE: `dnl' is the m4 command for delete-to-newline; these are dnl # used to prevent those lines from appearing in the sendmail.cf. dnl # dnl # UUCP-only sites should configure FEATURE(`nodns') and SMART_HOST. dnl # The uucp-dom mailer requires MAILER(smtp). For more info, see dnl # `UUCP Config' at the end of this file. dnl # If you are not running DNS at all, it is important to use dnl # FEATURE(nodns) to avoid having sendmail queue everything dnl # waiting for the name server to come up. dnl # Example: dnl FEATURE(`nodns') dnl # Use FEATURE(`nocanonify') to skip address canonification via $[ ... $]. dnl # This would generally only be used by sites that only act as mail gateways dnl # or which have user agents that do full canonification themselves. dnl # You may also want to use: dnl # define(`confBIND_OPTS',`-DNSRCH -DEFNAMES') dnl # to turn off the usual resolver options that do a similar thing. dnl # Examples: dnl FEATURE(`nocanonify') dnl define(`confBIND_OPTS',`-DNSRCH -DEFNAMES') dnl # If /bin/hostname is not set to the FQDN (Full Qualified Domain Name; dnl # for example, foo.bar.com) *and* you are not running a nameserver dnl # (that is, you do not have an /etc/resolv.conf and are not running dnl # named) *and* the canonical name for your machine in /etc/hosts dnl # (the canonical name is the first name listed for a given IP Address) dnl # is not the FQDN version then define NEED_DOMAIN and specify your dnl # domain using `DD' (for example, if your hostname is `foo.bar.com' dnl # then use DDbar.com). If in doubt, just define it anyway; doesn't hurt. dnl # Examples: dnl define(`NEED_DOMAIN', `1') dnl DDyour.site.domain dnl # Define SMART_HOST if you want all outgoing mail to go to a central dnl # site. SMART_HOST applies to names qualified with non-local names. dnl # Example: dnl define(`SMART_HOST', `smtp:firewall.bar.com') dnl # Define MAIL_HUB if you want all incoming mail sent to a dnl # centralized hub, as for a shared /var/spool/mail scheme. dnl # MAIL_HUB applies to names qualified with the name of the dnl # local host (e.g., "eric@foo.bar.com"). dnl # Example: dnl define(`MAIL_HUB', `smtp:mailhub.bar.com') dnl # LOCAL_RELAY is a site that will handle unqualified names, this is dnl # basically for site/company/department wide alias forwarding. By dnl # default mail is delivered on the local host. dnl # Example: dnl define(`LOCAL_RELAY', `smtp:mailgate.bar.com') dnl # Relay hosts for fake domains: .UUCP .BITNET .CSNET dnl # Examples: dnl define(`UUCP_RELAY', `mailer:your_relay_host') dnl define(`BITNET_RELAY', `mailer:your_relay_host') dnl define(`CSNET_RELAY', `mailer:your_relay_host') dnl # Define `MASQUERADE_AS' is used to hide behind a gateway. dnl # add any accounts you wish to be exposed (i.e., not hidden) to the dnl # `EXPOSED_USER' list. dnl # Example: dnl MASQUERADE_AS(`some.other.host') dnl # If masquerading, EXPOSED_USER defines the list of accounts dnl # that retain the local hostname in their address. dnl # Example: dnl EXPOSED_USER(`postmaster hostmaster webmaster') dnl # If masquerading is enabled (using MASQUERADE_AS above) then dnl # FEATURE(allmasquerade) will cause recipient addresses to dnl # masquerade as being from the masquerade host instead of dnl # getting the local hostname. Although this may be right for dnl # ordinary users, it breaks local aliases that aren't exposed dnl # using EXPOSED_USER. dnl # Example: dnl FEATURE(allmasquerade) dnl # Include any required mailers MAILER(local) MAILER(smtp) MAILER(uucp) LOCAL_CONFIG # If this machine should be accepting mail as local for other hostnames # that are MXed to this hostname then add those hostnames below using # a line like: # Cw bar.com # The most common case where you need this is if this machine is supposed # to be accepting mail for the domain. That is, if this machine is # foo.bar.com and you have an MX record in the DNS that looks like: # bar.com. IN MX 0 foo.bar.com. # Then you will need to add `Cw bar.com' to the config file for foo.bar.com. # DO NOT add Cw entries for hosts whom you simply store and forward mail # for or else it will attempt local delivery. So just because bubba.bar.com # is MXed to your machine you should not add a `Cw bubba.bar.com' entry # unless you want local delivery and your machine is the highest-priority # MX entry (that is is has the lowest preference value in the DNS. LOCAL_RULE_0 # `LOCAL_RULE_0' can be used to introduce alternate delivery rules. # For example, let's say you accept mail via an MX record for widgets.com # (don't forget to add widgets.com to your Cw list, as above). # # If wigets.com only has an AOL address (widgetsinc) then you could use: # R$+ <@ widgets.com.> $#smtp $@aol.com. $:widgetsinc<@aol.com.> # # Or, if widgets.com was connected to you via UUCP as the UUCP host # widgets you might have: # R$+ <@ widgets.com.> $#uucp $@widgets $:$1<@widgets.com.> dnl ### dnl ### UUCP Config dnl ### dnl # `SITECONFIG(site_config_file, name_of_site, connection)' dnl # site_config_file the name of a file in the cf/siteconfig dnl # directory (less the `.m4') dnl # name_of_site the actual name of your UUCP site dnl # connection one of U, W, X, or Y; where U means the sites listed dnl # in the config file are connected locally; W, X, and Y dnl # build remote UUCP hub classes ($=W, etc). dnl # You will need to create the specific site_config_file in dnl # /usr/share/sendmail/siteconfig/site_config_file.m4 dnl # The site_config_file contains a list of directly connected UUCP hosts, dnl # e.g., if you only connect to UUCP site gargoyle then you could just: dnl # echo 'SITE(gargoyle)' > /usr/share/sendmail/siteconfig/uucp.foobar.m4 dnl # Example: dnl SITECONFIG(`uucp.foobar', `foobar', U) dnl # If you are on a local SMTP-based net that connects to the outside dnl # world via UUCP, you can use LOCAL_NET_CONFIG to add appropriate rules. dnl # For example: dnl # define(`SMART_HOST', suucp:uunet) dnl # LOCAL_NET_CONFIG dnl # R$* < @ $* .$m. > $* $#smtp $@ $2.$m. $: $1 < @ $2.$m. > $3 dnl # This will cause all names that end in your domain name ($m) to be sent dnl # via SMTP; anything else will be sent via suucp (smart UUCP) to uunet. dnl # If you have FEATURE(nocanonify), you may need to omit the dots after dnl # the $m. dnl # dnl # If you are running a local DNS inside your domain which is not dnl # otherwise connected to the outside world, you probably want to use: dnl # define(`SMART_HOST', smtp:fire.wall.com) dnl # LOCAL_NET_CONFIG dnl # R$* < @ $* . > $* $#smtp $@ $2. $: $1 < @ $2. > $3 dnl # That is, send directly only to things you found in your DNS lookup; dnl # anything else goes through SMART_HOST. sendmail-8.18.1/contrib/bounce-resender.pl0000755000372400037240000001727614556365350020064 0ustar xbuildxbuild#!/usr/local/bin/perl -w # # bounce-resender: constructs mail queue from bounce spool for # subsequent reprocessing by sendmail # # usage: given a mail spool full of (only) bounced mail called "bounces": # # mkdir -m0700 bqueue; cd bqueue && bounce-resender < ../bounces # # cd .. # # chown -R root bqueue; chmod 600 bqueue/* # # /usr/lib/sendmail -bp -oQ`pwd`/bqueue | more # does it look OK? # # /usr/lib/sendmail -q -oQ`pwd`/bqueue -oT99d & # run the queue # # ** also read messages at end! ** # # Brian R. Gaeke Thu Feb 18 13:40:10 PST 1999 # ############################################################################# # This script has NO WARRANTY, NO BUG FIXES, and NO SUPPORT. You will # need to modify it for your site and for your operating system, unless # you are in the EECS Instructional group at UC Berkeley. (Search forward # for two occurrences of "FIXME".) # $state = "MSG_START"; $ctr = 0; $lineno = 0; $getnrl = 0; $nrl = ""; $uname = "PhilOS"; # You don't want to change this here. $myname = $0; $myname =~ s,.*/([^/]*),$1,; chomp($hostname = `hostname`); chomp($uname = `uname`); # FIXME: Define the functions "major" and "minor" for your OS. if ($uname eq "SunOS") { # from h2ph < /usr/include/sys/sysmacros.h on # SunOS torus.CS.Berkeley.EDU 5.6 Generic_105182-11 i86pc i386 i86pc eval 'sub O_BITSMINOR () {8;}' unless defined(&O_BITSMINOR); eval 'sub O_MAXMAJ () {0x7f;}' unless defined(&O_MAXMAJ); eval 'sub O_MAXMIN () {0xff;}' unless defined(&O_MAXMIN); eval 'sub major { local($x) = @_; eval "((($x) >> &O_BITSMINOR) &O_MAXMAJ)"; }' unless defined(&major); eval 'sub minor { local($x) = @_; eval "(($x) &O_MAXMIN)"; }' unless defined(&minor); } else { die "How do you calculate major and minor device numbers on $uname?\n"; } sub ignorance { $ignored{$state}++; } sub unmunge { my($addr) = @_; $addr =~ s/_FNORD_/ /g; # remove (Real Name) $addr =~ s/^(.*)\([^\)]*\)(.*)$/$1$2/ if $addr =~ /^.*\([^\)]*\).*$/; # extract if it appears $addr =~ s/^.*<([^>]*)>.*$/$1/ if $addr =~ /^.*<[^>]*>.*$/; # strip leading, trailing blanks $addr =~ s/^\s*(.*)\s*/$1/; # nuke local domain # FIXME: Add a regular expression for your local domain here. $addr =~ s/@(cory|po|pasteur|torus|parker|cochise|franklin).(ee)?cs.berkeley.edu//i; return $addr; } print STDERR "$0: running on $hostname ($uname)\n"; open(INPUT,$ARGV[0]) || die "$ARGV[0]: $!\n"; sub working { my($now); $now = localtime; print STDERR "$myname: Working... $now\n"; } &working(); while (! eof INPUT) { # get a new line if ($state eq "IN_MESSAGE_HEADER") { # handle multi-line headers if ($nrl ne "" || $getnrl != 0) { $_ = $nrl; $getnrl = 0; $nrl = ""; } else { $_ = ; $lineno++; } unless ($_ =~ /^\s*$/) { while ($nrl eq "") { $nrl = ; $lineno++; if ($nrl =~ /^\s+[^\s].*$/) { # continuation line chomp($_); $_ .= "_FNORD_" . $nrl; $nrl = ""; } elsif ($nrl =~ /^\s*$/) { # end of headers $getnrl++; last; } } } } else { # normal single line if ($nrl ne "") { $_ = $nrl; $nrl = ""; } else { $_ = ; $lineno++; } } if ($state eq "WAIT_FOR_FROM") { if (/^From \S+.*$/) { $state = "MSG_START"; } else { &ignorance(); } } elsif ($state eq "MSG_START") { if (/^\s+boundary=\"([^\"]*)\".*$/) { $boundary = $1; $state = "GOT_BOUNDARY"; $ctr++; } else { &ignorance(); } } elsif ($state eq "GOT_BOUNDARY") { if (/^--$boundary/) { $next = ; $lineno++; if ($next =~ /^Content-Type: message\/rfc822/) { $hour = (localtime)[2]; $char = chr(ord("A") + $hour); $ident = sprintf("%sAA%05d",$char,99999 - $ctr); $qf = "qf$ident"; $df = "df$ident"; @rcpt = (); open(MSGHDR,">$qf") || die "Can't write to $qf: $!\n"; open(MSGBODY,">$df") || die "Can't write to $df: $!\n"; chmod(0600, $qf, $df); $state = "IN_MESSAGE_HEADER"; $header = $body = ""; $messageid = "bounce-resender-$ctr"; $fromline = "MAILER-DAEMON"; $ctencod = "7BIT"; # skip a bit, brother maynard (boundary is separated from # the header by a blank line) $next = ; $lineno++; unless ($next =~ /^\s*$/) { print MSGHDR $next; } } } else { &ignorance(); } $next = $char = $hour = undef; } elsif ($state eq "IN_MESSAGE_HEADER") { if (!(/^--$boundary/ || /^\s*$/)) { if (/^Message-[iI][dD]:\s+<([^@]+)@[^>]*>.*$/) { $messageid = $1; } elsif (/^From:\s+(.*)$/) { $fromline = $sender = $1; $fromline = unmunge($fromline); } elsif (/^Content-[Tt]ransfer-[Ee]ncoding:\s+(.*)$/) { $ctencod = $1; } elsif (/^(To|[Cc][Cc]):\s+(.*)$/) { $toaddrs = $2; foreach $toaddr (split(/,/,$toaddrs)) { $toaddr = unmunge($toaddr); push(@rcpt,$toaddr); } } $headerline = $_; # escape special chars # (Perhaps not. It doesn't seem to be necessary (yet)). #$headerline =~ s/([\(\)<>@,;:\\".\[\]])/\\$1/g; # purely heuristic ;-) $headerline =~ s/Return-Path:/?P?Return-Path:/g; # save H-line to write to qf, later $header .= "H$headerline"; $headerline = $toaddr = $toaddrs = undef; } elsif (/^\s*$/) { # write to qf ($dev, $ino) = (stat($df))[0 .. 1]; ($maj, $min) = (major($dev), minor($dev)); $time = time(); print MSGHDR "V2\n"; print MSGHDR "B$ctencod\n"; print MSGHDR "S$sender\n"; print MSGHDR "I$maj/$min/$ino\n"; print MSGHDR "K$time\n"; print MSGHDR "T$time\n"; print MSGHDR "D$df\n"; print MSGHDR "N1\n"; print MSGHDR "MDeferred: manually-requeued bounced message\n"; foreach $r (@rcpt) { print MSGHDR "RP:$r\n"; } $header =~ s/_FNORD_/\n/g; print MSGHDR $header; print MSGHDR "HMessage-ID: <$messageid@$hostname>\n" if ($messageid =~ /bounce-resender/); print MSGHDR ".\n"; close MSGHDR; # jump to state waiting for message body $state = "IN_MESSAGE_BODY"; $dev = $ino = $maj = $min = $r = $time = undef; } elsif (/^--$boundary/) { # signal an error print "$myname: Header without message! Line $lineno qf $qf\n"; # write to qf anyway (SAME AS ABOVE, SHOULD BE A PROCEDURE) ($dev, $ino) = (stat($df))[0 .. 1]; ($maj, $min) = (major($dev), minor($dev)); $time = time(); print MSGHDR "V2\n"; print MSGHDR "B$ctencod\n"; print MSGHDR "S$sender\n"; print MSGHDR "I$maj/$min/$ino\n"; print MSGHDR "K$time\n"; print MSGHDR "T$time\n"; print MSGHDR "D$df\n"; print MSGHDR "N1\n"; print MSGHDR "MDeferred: manually-requeued bounced message\n"; foreach $r (@rcpt) { print MSGHDR "RP:$r\n"; } $header =~ s/_FNORD_/\n/g; print MSGHDR $header; print MSGHDR "HMessage-ID: <$messageid@$hostname>\n" if ($messageid =~ /bounce-resender/); print MSGHDR ".\n"; close MSGHDR; # jump to state waiting for next bounce message $state = "WAIT_FOR_FROM"; $dev = $ino = $maj = $min = $r = $time = undef; } else { # never got here &ignorance(); } } elsif ($state eq "IN_MESSAGE_BODY") { if (/^--$boundary/) { print MSGBODY $body; close MSGBODY; $state = "WAIT_FOR_FROM"; } else { $body .= $_; } } if ($lineno % 1900 == 0) { &working(); } } close INPUT; foreach $x (keys %ignored) { print STDERR "$myname: ignored $ignored{$x} lines of bounce spool in state $x\n"; } print STDERR "$myname: processed $lineno lines of input and wrote $ctr messages\n"; print STDERR "$myname: remember to chown the queue files to root before running:\n"; chomp($pwd = `pwd`); print STDERR "$myname: # sendmail -q -oQ$pwd -oT99d &\n"; print STDERR "$myname: to test the newly generated queue:\n"; print STDERR "$myname: # sendmail -bp -oQ$pwd | more\n"; exit 0; sendmail-8.18.1/contrib/cidrexpand0000755000372400037240000001461514556365350016505 0ustar xbuildxbuild#!/usr/bin/perl -w # # usage: # cidrexpand < /etc/mail/access | makemap -r hash /etc/mail/access # # v 1.1 # # 17 July 2000 Derek J. Balling (dredd@megacity.org) # # Acts as a preparser on /etc/mail/access_db to allow you to use address/bit # notation. # # If you have two overlapping CIDR blocks with conflicting actions # e.g. 10.2.3.128/25 REJECT and 10.2.3.143 ACCEPT # make sure that the exceptions to the more general block are specified # later in the access_db. # # the -r flag to makemap will make it "do the right thing" # # Modifications # ------------- # 26 Jul 2001 Derek Balling (dredd@megacity.org) # Now uses Net::CIDR because it makes life a lot easier. # # 5 Nov 2002 Richard Rognlie (richard@sendmail.com) # Added code to deal with the prefix tags that may now be included in # the access_db # # Added clarification in the notes for what to do if you have # exceptions to a larger CIDR block. # # 26 Jul 2006 Richard Rognlie (richard@sendmail.com) # Added code to strip "comments" (anything after a non-escaped #) # # characters after a \ or within quotes (single and double) are # left intact. # # e.g. # From:1.2.3.4 550 Die spammer # spammed us 2006.07.26 # becomes # From:1.2.3.4 550 Die spammer # # 3 August 2006 # Corrected a bug to have it handle the special case of "0.0.0.0/0" # since Net::CIDR doesn't handle it properly. # # 27 April 2016 # Corrected IPv6 handling. Note that UseCompressedIPv6Addresses must # be turned off for this to work; there are three reasons for this: # 1) if the MTA uses compressed IPv6 addresses then CIDR 'cuts' # in the compressed range *cannot* be matched, as the MTA simply # won't look for them. E.g., there's no way to accurately # match "IPv6:fe80::/64" when for the address "IPv6:fe80::54ad" # the MTA doesn't lookup up "IPv6:fe80:0:0:0" # 2) cidrexpand only generates uncompressed addresses, so CIDR # 'cuts' to the right of the compressed range won't be matched # either. Why doesn't it generate compressed address output? # Oh, because: # 3) compressed addresses are ambiguous when colon-groups are # chopped off! You want an access map entry for # IPv6:fe80::0:5420 # but not for # IPv6:fe80::5420:1234 # ? Sorry, the former is really # IPv6:fe80::5420 # which will also match the latter! # # 25 July 2016 # Since cidrexpand already requires UseCompressedIPv6Addresses to be # turned off, it can also canonicalize non-CIDR IPv6 addresses to the # format that sendmail looks up, expanding compressed addresses and # trimming superfluous leading zeros. # # Report bugs to: # our $VERSION = '1.1'; use strict; use Net::CIDR qw(cidr2octets cidrvalidate); use Getopt::Std; $Getopt::Std::STANDARD_HELP_VERSION = 1; sub VERSION_MESSAGE; sub HELP_MESSAGE; sub print_expanded_v4network; sub print_expanded_v6network; our %opts; getopts('cfhOSt:', \%opts); if ($opts{h}) { HELP_MESSAGE(\*STDOUT); exit 0; } # Delimiter between the key and value my $space_re = exists $opts{t} ? $opts{t} : '\s+'; # Regexp that matches IPv4 address literals my $ipv4_re = qr"(?:\d+\.){3}\d+"; # Regexp that matches IPv6 address literals, plus a lot more. # Further checks are required for verifying that it's really one my $ipv6_re = qr"[0-9A-Fa-f:]{2,39}(?:\.\d+\.\d+\.\d+)?"; my %pending; while (<>) { chomp; my ($prefix, $network, $len, $right); next if /^#/ && $opts{S}; if ( (/\#/) && $opts{c} ) { # print "checking...\n"; my $i; my $qtype=''; for ($i=0 ; $i -T with # Resolve map (to check if a host exists in check_mail) Kcanon host -a -T Kdnsmx dns -R MX -a -T Kresolve sequence dnsmx canon * Duplicate error messages. Sometimes identical, duplicate error messages can be generated. As near as I can tell, this is rare and relatively innocuous. * Misleading error messages. If an illegal address is specified on the command line together with at least one valid address and PostmasterCopy is set, the DSN does not contain the illegal address, but only the valid address(es). * AuthRealm for Cyrus SASL may not work as expected. The man page and the actual usage for sasl_server_new() seem to differ. Feedback for the "correct" usage is welcome, a patch to match the description of the man page is in contrib/AuthRealm.p0. * accept() problem on SVR4. Apparently, the sendmail daemon loop (doing accept()s on the network) can get into a weird state on SVR4; it starts logging ``SYSERR: getrequests: accept: Protocol Error''. The workaround is to kill and restart the sendmail daemon. We don't have an SVR4 system at Berkeley that carries more than token mail load, so I can't validate this. It is likely to be a glitch in the sockets emulation, since "Protocol Error" is not possible error code with Berkeley TCP/IP. I've also had someone report the message ``sendmail: accept: SIOCGPGRP failed errno 22'' on an SVR4 system. This message is not in the sendmail source code, so I assume it is also a bug in the sockets emulation. (Errno 22 is EINVAL "Invalid Argument" on all the systems I have available, including Solaris 2.x.) Apparently, this problem is due to linking -lc before -lsocket; if you are having this problem, check your Makefile. * accept() problem on Linux. The accept() in sendmail daemon loop can return ETIMEDOUT. An error is reported to syslog: Jun 9 17:14:12 hostname sendmail[207]: NOQUEUE: SYSERR(root): getrequests: accept: Connection timed out "Connection timed out" is not documented as a valid return from accept(2) and this was believed to be a bug in the Linux kernel. Later information from the Linux kernel group states that Linux 2.0 kernels follow RFC1122 while sendmail follows the original BSD (now POSIX 1003.1g draft) specification. The 2.1.X and later kernels will follow the POSIX draft. * Excessive mailing list nesting can run out of file descriptors. If you have a mailing list that includes lots of other mailing lists, each of which has a separate owner, you can run out of file descriptors. Each mailing list with a separate owner uses one open file descriptor (prior to 8.6.6 it was three open file descriptors per list). This is particularly egregious if you have your connection cache set to be large. * Connection caching breaks if you pass the port number as an argument. If you have a definition such as: Mport, P=[IPC], F=kmDFMuX, S=11/31, R=21, M=2100000, T=DNS/RFC822/SMTP, A=IPC [127.0.0.1] $h (i.e., where $h is the port number instead of the host name) the connection caching code will break because it won't notice that two messages addressed to different ports should use different connections. * ESMTP SIZE underestimates the size of a message Sendmail makes no allowance for headers that it adds, nor does it account for the SMTP on-the-wire \r\n expansion. It probably doesn't allow for 8->7 bit MIME conversions either. * Client ignores SIZE parameter. When sendmail acts as client and the server specifies a limit for the mail size, sendmail will ignore this and try to send the mail anyway (unless _FFR_CLIENT_SIZE is used). The server will usually reject the MAIL command which specifies the size of the message and hence this problem is not significant. * Paths to programs being executed and the mode of program files are not checked. Essentially, the RunProgramInUnsafeDirPath and RunWritableProgram bits in the DontBlameSendmail option are always set. This is not a problem if your system is well managed (that is, if binaries and system directories are mode 755 instead of something foolish like 777). * 8-bit data in GECOS field If the GECOS (personal name) information in the passwd file contains 8-bit characters, those characters can be included in the message header, which can cause problems when sending SMTP to hosts that only accept 7-bit characters. * 8->7 bit MIME conversion When sendmail is doing 8->7 bit MIME conversions, and the message contains certain MIME body types that cannot be converted to 7-bit, sendmail will pass the message as 8-bit. * 7->8 bit MIME conversion If a message that is encoded as 7-bit MIME is converted to 8-bit and that message when decoded is illegal (e.g., because of long lines or illegal characters), sendmail can produce an illegal message. * MIME encoded full name phrases in the From: header If a full name phrase includes characters from MustQuoteChars, sendmail will quote the entire full name phrase. If MustQuoteChars includes characters which are not special characters according to STD 11 (RFC 822), this quotation can interfere with MIME encoded full name phrases. By default, sendmail includes the single quote character (') in MustQuoteChars even though it is not listed as a special character in STD 11. * bestmx map with -z flag truncates the list of MX hosts A bestmx map configured with the -z flag will truncate the list of MX hosts. This prevents creation of strings which are too long for ruleset parsing. This can have an adverse effect on the relay_based_on_MX feature. * Saving to ~sender/dead.letter fails if su'ed to root If ErrorMode is set to print and an error in sending mail occurs, the normal action is to print a message to the screen and append the message to a dead.letter file in the sender's home directory. In the case where the sender is using su to act as root, the file safety checks prevent sendmail from saving the dead.letter file because the sender's uid and the current real uid do not match. * Berkeley DB 2.X race condition with fcntl() locking There is a race condition for Berkeley DB 2.X databases on operating systems which use fcntl() style locking, such as Solaris. Sendmail locks the map before calling db_open() to prevent others from modifying the map while it is being opened. Unfortunately, Berkeley DB opens the map, closes it, and then reopens it. fcntl() locking drops the lock when any file descriptor pointing to the file is closed, even if it is a different file descriptor than the one used to initially lock the file. As a result there is a possibility that entries in a map might not be found during a map rebuild. As a workaround, you can use makemap to build a map with a new name and then "mv" the new db file to replace the old one. Sleepycat Software has added code to avoid this race condition to Berkeley DB versions after 2.7.5. * File open timeouts not available on hard mounted NFS file systems Since SIGALRM does not interrupt an RPC call for hard mounted NFS file systems, it is impossible to implement a timeout on a file open operation. Therefore, while the NFS server is not responding, attempts to open a file on that server will hang. Systems with local mail delivery and NFS hard mounted home directories should be avoided, as attempts to open the forward files could hang. * Race condition for delivery to set-user-ID files Sendmail will deliver to a file if the file is owned by the DefaultUser or has the set-user-ID bit set. Unfortunately, some systems clear that bit when a file is modified. Sendmail compensates by resetting the file mode back to it's original settings. Unfortunately, there's still a permission failure race as sendmail checks the permissions before locking the file. This is unavoidable as sendmail must verify the file is safe to open before opening it. A file can not be locked until it is open. * MAIL_HUB always takes precedence over LOCAL_RELAY Despite the information in the documentation, MAIL_HUB ($H) will always be used if set instead of LOCAL_RELAY ($R). This will be fixed in a future version. sendmail-8.18.1/cf/0000755000372400037240000000000014556365434013362 5ustar xbuildxbuildsendmail-8.18.1/cf/sendmail.schema0000644000372400037240000001756414556365350016352 0ustar xbuildxbuild# Copyright (c) 2000-2002, 2005 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # $Id: sendmail.schema,v 8.23 2013-11-22 20:51:07 ca Exp $ # Note that this schema is experimental at this point as it has had little # public review. Therefore, it may change in future versions. Feedback # via sendmail-YYYY@support.sendmail.org is encouraged (replace YYYY with # the current year, e.g., 2005). # OID arcs for Sendmail # enterprise: 1.3.6.1.4.1 # sendmail: enterprise.6152 # sendmail-at: sendmail.3.1 # sendmail-oc: sendmail.3.2 ########################################################################### # # The Sendmail MTA attributes and objectclass # ########################################################################### # attribute sendmailMTACluster cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.10 NAME 'sendmailMTACluster' DESC 'cluster name associated with a set of MTAs' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26{256} ) # attribute sendmailMTAHost cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.11 NAME 'sendmailMTAHost' DESC 'host name associated with a MTA cluster' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26{256} ) #objectClass sendmailMTA # requires # objectClass # allows # sendmailMTACluster, # sendmailMTAHost, # Description objectclass ( 1.3.6.1.4.1.6152.10.3.2.10 NAME 'sendmailMTA' SUP top STRUCTURAL DESC 'Sendmail MTA definition' MAY ( sendmailMTACluster $ sendmailMTAHost $ Description ) ) ########################################################################### # # The Sendmail MTA shared attributes # ########################################################################### # attribute sendmailMTAKey cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.13 NAME 'sendmailMTAKey' DESC 'key (left hand side) of an aliases or map entry' EQUALITY caseIgnoreMatch SUBSTR caseIgnoreSubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15{256} ) ########################################################################### # # The Sendmail MTA Map attributes and objectclasses # ########################################################################### # attribute sendmailMTAMapName cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.14 NAME 'sendmailMTAMapName' DESC 'identifier for the particular map' EQUALITY caseIgnoreMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15{128} SINGLE-VALUE ) # attribute sendmailMTAMapValue cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.16 NAME 'sendmailMTAMapValue' DESC 'value (right hand side) of a map entry' EQUALITY caseIgnoreMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 SINGLE-VALUE ) # attribute sendmailMTAMapSearch cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.24 NAME 'sendmailMTAMapSearch' DESC 'recursive search for values of a map entry' EQUALITY caseExactMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 SINGLE-VALUE ) # attribute sendmailMTAMapURL cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.25 NAME 'sendmailMTAMapURL' DESC 'recursive search URL for values of a map entry' EQUALITY caseExactMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 SINGLE-VALUE ) #objectClass sendmailMTAMap # requires # objectClass, # sendmailMTAMapName, # allows # sendmailMTACluster, # sendmailMTAHost, # Description objectclass ( 1.3.6.1.4.1.6152.10.3.2.11 NAME 'sendmailMTAMap' SUP sendmailMTA STRUCTURAL DESC 'Sendmail MTA map definition' MUST sendmailMTAMapName MAY ( sendmailMTACluster $ sendmailMTAHost $ Description ) ) #objectClass sendmailMTAObject # requires # objectClass, # sendmailMTAMapName, # sendmailMTAKey, # allows # sendmailMTACluster, # sendmailMTAHost, # sendmailMTAMapValue, # sendmailMTAMapSearch, # sendmailMTAMapURL, # Description objectclass ( 1.3.6.1.4.1.6152.10.3.2.12 NAME 'sendmailMTAMapObject' SUP sendmailMTAMap STRUCTURAL DESC 'Sendmail MTA map object' MUST ( sendmailMTAMapName $ sendmailMTAKey ) MAY ( sendmailMTACluster $ sendmailMTAHost $ sendmailMTAMapValue $ sendmailMTAMapSearch $ sendmailMTAMapURL $ Description ) ) ########################################################################### # # The Sendmail MTA Alias attributes and objectclasses # ########################################################################### # attribute sendmailMTAAliasGrouping cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.18 NAME 'sendmailMTAAliasGrouping' DESC 'name that identifies a particular aliases grouping' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26{256} ) # attribute sendmailMTAAliasValue cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.20 NAME 'sendmailMTAAliasValue' DESC 'value (right hand side) of an alias' EQUALITY caseIgnoreMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 ) # attribute sendmailMTAAliasSearch cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.26 NAME 'sendmailMTAAliasSearch' DESC 'recursive search for values of an alias' EQUALITY caseExactMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 SINGLE-VALUE ) # attribute sendmailMTAAliasURL cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.27 NAME 'sendmailMTAAliasURL' DESC 'recursive search URL for values of an alias' EQUALITY caseExactMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 SINGLE-VALUE ) #objectClass sendmailMTAAlias # requires # objectClass, # allows # sendmailMTAAliasGrouping, # sendmailMTACluster, # sendmailMTAHost, # Description objectclass ( 1.3.6.1.4.1.6152.10.3.2.13 NAME 'sendmailMTAAlias' SUP sendmailMTA STRUCTURAL DESC 'Sendmail MTA alias definition' MAY ( sendmailMTAAliasGrouping $ sendmailMTACluster $ sendmailMTAHost $ Description ) ) #objectClass sendmailMTAAliasObject # requires # objectClass, # sendmailMTAKey, # allows # sendmailMTAAliasGrouping, # sendmailMTACluster, # sendmailMTAHost, # sendmailMTAAliasValue, # sendmailMTAAliasSearch, # sendmailMTAAliasURL, # Description objectclass ( 1.3.6.1.4.1.6152.10.3.2.14 NAME 'sendmailMTAAliasObject' SUP sendmailMTAAlias STRUCTURAL DESC 'Sendmail MTA alias object' MUST sendmailMTAKey MAY ( sendmailMTAAliasGrouping $ sendmailMTACluster $ sendmailMTAHost $ sendmailMTAAliasValue $ sendmailMTAAliasSearch $ sendmailMTAAliasURL $ Description ) ) ########################################################################### # # The Sendmail MTA Class attributes and objectclass # ########################################################################### # attribute sendmailMTAClassName cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.22 NAME 'sendmailMTAClassName' DESC 'identifier for the class' EQUALITY caseIgnoreMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15{128} SINGLE-VALUE ) # attribute sendmailMTAClassValue cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.23 NAME 'sendmailMTAClassValue' DESC 'member of a class' EQUALITY caseIgnoreMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 ) # attribute sendmailMTAClassSearch cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.28 NAME 'sendmailMTAClassSearch' DESC 'recursive search for members of a class' EQUALITY caseExactMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 SINGLE-VALUE ) # attribute sendmailMTAClassURL cis attributetype ( 1.3.6.1.4.1.6152.10.3.1.29 NAME 'sendmailMTAClassURL' DESC 'recursive search URL for members of a class' EQUALITY caseExactMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 SINGLE-VALUE ) #objectClass sendmailMTAClass # requires # objectClass, # sendmailMTAClassName, # allows # sendmailMTACluster, # sendmailMTAHost, # sendmailMTAClassValue, # sendmailMTAClassSearch, # sendmailMTAClassURL, # Description objectclass ( 1.3.6.1.4.1.6152.10.3.2.15 NAME 'sendmailMTAClass' SUP sendmailMTA STRUCTURAL DESC 'Sendmail MTA class definition' MUST sendmailMTAClassName MAY ( sendmailMTACluster $ sendmailMTAHost $ sendmailMTAClassValue $ sendmailMTAClassSearch $ sendmailMTAClassURL $ Description ) ) sendmail-8.18.1/cf/siteconfig/0000755000372400037240000000000014556365434015514 5ustar xbuildxbuildsendmail-8.18.1/cf/siteconfig/uucp.old.arpa.m40000644000372400037240000000007114556365350020424 0ustar xbuildxbuildSITE(endotsew) SITE(fateman) SITE(interlan) SITE(metron) sendmail-8.18.1/cf/siteconfig/uucp.ucbvax.m40000644000372400037240000000172114556365350020217 0ustar xbuildxbuildSITE(Padova) SITE(Shasta) SITE(alice) SITE(allegra) SITE(amdcad) SITE(att) SITE(attunix) SITE(avsd) SITE(bellcore bellcor) SITE(calma) SITE(cithep) SITE(cnmat) SITE(craig) SITE(craylab) SITE(decusj) SITE(decvax, S) SITE(decwrl) SITE(dssovax) SITE(eagle) SITE(ecovax) SITE(floyd) SITE(franz) SITE(geoff) SITE(harpo) SITE(ho3e2) SITE(hpda) SITE(hplabs) SITE(ibmsupt ibmuupa ibmpa) SITE(iiasa70) SITE(imagen) SITE(isunix menlo70) SITE(kentmth) SITE(lbl-csam lbl-csa) SITE(lime) SITE(mothra) SITE(mseonyx) SITE(mtxinu) SITE(pixar) SITE(pur-ee) SITE(purdue) SITE(pwbd) SITE(sdcarl) SITE(sftig) SITE(sgi olympus) SITE(sii) SITE(srivisi) SITE(ssyx) SITE(sun) SITE(trwrb) SITE(twg) SITE(ucivax) SITE(ucla-se) SITE(ucla-cs) SITE(ucsbcsl ucsbhub) SITE(ucscc) SITE(ucsd) SITE(ucsfcgl) SITE(ucsfmis) SITE(ulysses) SITE(unisoft) SITE(unmvax) SITE(usenix) SITE(uw) SITE(uwvax) SITE(vax135) SITE(voder) SITE(wheps) SITE(whuxle) SITE(whuxlj) SITE(xicomp) SITE(xprin) SITE(zehntel) SITE(zilog) sendmail-8.18.1/cf/siteconfig/uucp.cogsci.m40000644000372400037240000000011514556365350020172 0ustar xbuildxbuildSITE(contessa) SITE(emind) SITE(hoptoad) SITE(nkainc) SITE(well) SITE(ferdy) sendmail-8.18.1/cf/siteconfig/uucp.ucbarpa.m40000644000372400037240000000000114556365350020332 0ustar xbuildxbuild sendmail-8.18.1/cf/ostype/0000755000372400037240000000000014556365434014705 5ustar xbuildxbuildsendmail-8.18.1/cf/ostype/sco-uw-2.1.m40000644000372400037240000000137314556365350016663 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # SCO UnixWare 2.1.2 ostype file # # Contributed by Christopher Durham of SCO. # divert(0) VERSIONID(`$Id: sco-uw-2.1.m4,v 8.14 2013-11-22 20:51:15 ca Exp $') define(`LOCAL_MAILER_PATH', `/usr/bin/rmail')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `fhCEn9')dnl define(`LOCAL_SHELL_FLAGS', `ehuP')dnl define(`UUCP_MAILER_ARGS', `uux - -r -a$g -gmedium $h!rmail ($u)')dnl define(`LOCAL_MAILER_ARGS',`rmail $u')dnl define(`confEBINDIR', `/usr/lib')dnl define(`confTIME_ZONE', `USE_TZ')dnl sendmail-8.18.1/cf/ostype/unknown.m40000644000372400037240000000137414556365350016650 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: unknown.m4,v 8.10 2013-11-22 20:51:15 ca Exp $') errprint(`*** ERROR: You have not specified a valid operating system type.') errprint(` Use the OSTYPE macro to select a valid system type. This') errprint(` is necessary in order to get the proper pathnames and flags') errprint(` appropriate for your environment.') sendmail-8.18.1/cf/ostype/solaris11.m40000644000372400037240000000130714556365350016763 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2011 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # This ostype file is suitable for use on Solaris 11 and later systems, # make use of /system/volatile, introduced in Solaris 11. # divert(0) VERSIONID(`$Id: solaris11.m4,v 1.2 2013-11-22 20:51:15 ca Exp $') divert(-1) ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -a$g $h!rmail ($u)')') define(`confEBINDIR', `/usr/lib')dnl define(`confPID_FILE', `/system/volatile/sendmail.pid')dnl define(`_NETINET6_')dnl FEATURE(`local_lmtp')dnl sendmail-8.18.1/cf/ostype/unicos.m40000644000372400037240000000124114556365350016442 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2003 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # divert(0) VERSIONID(`$Id: unicos.m4,v 1.2 2013-11-22 20:51:15 ca Exp $') define(`ALIAS_FILE', `/usr/lib/aliases') define(`HELP_FILE', `/usr/lib/sendmail.hf') define(`QUEUE_DIR', `/usr/spool/mqueue') define(`STATUS_FILE', `/usr/lib/sendmail.st') MODIFY_MAILER_FLAGS(`LOCAL', `+aSPpmnxXu') MODIFY_MAILER_FLAGS(`SMTP', `+anpeLC') define(`LOCAL_SHELL_FLAGS', `pxehu') define(`confPID_FILE', `/etc/sendmail.pid')dnl sendmail-8.18.1/cf/ostype/sunos3.5.m40000644000372400037240000000102714556365350016541 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: sunos3.5.m4,v 8.11 2013-11-22 20:51:15 ca Exp $') define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/bsdi2.0.m40000644000372400037240000000114114556365350016302 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: bsdi2.0.m4,v 8.11 2013-11-22 20:51:15 ca Exp $') errprint(`NOTE: OSTYPE(bsdi2.0) is deprecated. Use OSTYPE(bsdi) instead.') include(_CF_DIR_`'ostype/bsdi.m4)dnl sendmail-8.18.1/cf/ostype/mpeix.m40000644000372400037240000000154114556365350016267 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: mpeix.m4,v 1.2 2013-11-22 20:51:15 ca Exp $') ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', `/bin/tsmail')')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `mu9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `tsmail $u')')dnl ifdef(`LOCAL_SHELL_PATH',, `define(`LOCAL_SHELL_PATH', `/bin/sh')')dnl ifdef(`confDEF_USER_ID',, `define(`confDEF_USER_ID', `SERVER.SENDMAIL')')dnl ifdef(`confTRUSTED_USER',, `define(`confTRUSTED_USER', `SERVER.SENDMAIL')')dnl define(`confTIME_ZONE', `USE_TZ')dnl define(`confDONT_BLAME_SENDMAIL', `ForwardFileInGroupWritableDirPath')dnl sendmail-8.18.1/cf/ostype/freebsd5.m40000644000372400037240000000146314556365350016647 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: freebsd5.m4,v 1.2 2013-11-22 20:51:15 ca Exp $') ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/log/sendmail.st')')dnl dnl turn on S flag for local mailer MODIFY_MAILER_FLAGS(`LOCAL', `+S')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/libexec/mail.local)')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail $u')')dnl ifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', `/usr/local/bin/uux')')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -z -a$g $h!rmail ($u)')')dnl sendmail-8.18.1/cf/ostype/dragonfly.m40000644000372400037240000000147214556365350017135 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2001, 2004 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: dragonfly.m4,v 1.2 2013-11-22 20:51:15 ca Exp $') ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/log/sendmail.st')')dnl dnl turn on S flag for local mailer MODIFY_MAILER_FLAGS(`LOCAL', `+S')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/libexec/mail.local)')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail $u')')dnl ifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', `/usr/local/bin/uux')')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -z -a$g $h!rmail ($u)')')dnl sendmail-8.18.1/cf/ostype/freebsd6.m40000644000372400037240000000146314556365350016650 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: freebsd6.m4,v 1.2 2013-11-22 20:51:15 ca Exp $') ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/log/sendmail.st')')dnl dnl turn on S flag for local mailer MODIFY_MAILER_FLAGS(`LOCAL', `+S')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/libexec/mail.local)')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail $u')')dnl ifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', `/usr/local/bin/uux')')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -z -a$g $h!rmail ($u)')')dnl sendmail-8.18.1/cf/ostype/powerux.m40000644000372400037240000000141714556365350016660 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: powerux.m4,v 8.14 2013-11-22 20:51:15 ca Exp $') define(`LOCAL_MAILER_PATH', `/usr/bin/rmail')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `mn9')dnl define(`LOCAL_MAILER_ARGS', `rmail $u')dnl define(`LOCAL_SHELL_FLAGS', `ehuP')dnl define(`UUCP_MAILER_ARGS', `uux - -r -a$g -gmedium $h!rmail ($u)')dnl define(`confEBINDIR', `/usr/local/lib')dnl sendmail-8.18.1/cf/ostype/amdahl-uts.m40000644000372400037240000000111414556365350017200 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: amdahl-uts.m4,v 8.17 2013-11-22 20:51:15 ca Exp $') divert(-1) _DEFIFNOT(`LOCAL_MAILER_FLAGS', `fSn9') define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/darwin.m40000644000372400037240000000135514556365350016434 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000, 2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: darwin.m4,v 8.5 2013-11-22 20:51:15 ca Exp $') ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/log/sendmail.st')')dnl dnl turn on S flag for local mailer MODIFY_MAILER_FLAGS(`LOCAL', `+S')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/libexec/mail.local)')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -z -a$g $h!rmail ($u)')')dnl define(`confDONT_BLAME_SENDMAIL', `AssumeSafeChown,GroupWritableDirPathSafe')dnl sendmail-8.18.1/cf/ostype/sco3.2.m40000644000372400037240000000164714556365350016163 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: sco3.2.m4,v 8.17 2013-11-22 20:51:15 ca Exp $') ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)')dnl ifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', /usr/bin/uux)')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/bin/lmail)')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `PuhCE9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `lmail $u')')dnl ifdef(`LOCAL_SHELL_FLAGS',, `define(`LOCAL_SHELL_FLAGS', Peu)')dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/sinix.m40000644000372400037240000000131714556365350016300 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1996 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: sinix.m4,v 8.14 2013-11-22 20:51:15 ca Exp $') ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /var/spool/mqueue)')dnl define(`LOCAL_MAILER_PATH', `/bin/mail.local')dnl ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/sendmail.st')')dnl define(`confEBINDIR', `/usr/ucblib')dnl sendmail-8.18.1/cf/ostype/aix3.m40000644000372400037240000000136514556365350016015 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: aix3.m4,v 8.17 2013-11-22 20:51:15 ca Exp $') ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /bin/bellmail)')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', mail $u)')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `mn9')dnl define(`confEBINDIR', `/usr/lib')dnl define(`confTIME_ZONE', `USE_TZ')dnl sendmail-8.18.1/cf/ostype/nextstep.m40000644000372400037240000000134614556365350017022 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: nextstep.m4,v 8.22 2013-11-22 20:51:15 ca Exp $') ifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', /usr/bin/uux)')dnl ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)')dnl ifdef(`LOCAL_SHELL_FLAGS',, `define(`LOCAL_SHELL_FLAGS', `euP')')dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/dynix3.2.m40000644000372400037240000000112714556365350016523 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: dynix3.2.m4,v 8.15 2013-11-22 20:51:15 ca Exp $') ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)')dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/isc4.1.m40000644000372400037240000000174314556365350016152 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # divert(0) VERSIONID(`$Id: isc4.1.m4,v 8.17 2013-11-22 20:51:15 ca Exp $') ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `lmail -s $u')')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `humS9')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /bin/lmail)')dnl ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -gC $h!rmail ($u)')')dnl ifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', /usr/bin/uux)')dnl define(`confTIME_ZONE', `USE_TZ')dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/aix4.m40000644000372400037240000000137314556365350016015 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1996 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: aix4.m4,v 8.12 2013-11-22 20:51:15 ca Exp $') ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /bin/bellmail)')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', mail -F $g $u)')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `mn9')dnl define(`confEBINDIR', `/usr/lib')dnl define(`confTIME_ZONE', `USE_TZ')dnl sendmail-8.18.1/cf/ostype/solaris8.m40000644000372400037240000000142614556365350016713 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # This ostype file is suitable for use on Solaris 8 and later systems, # taking advantage of mail.local's LMTP support, the existence of # /var/run and support for IPv6, all of which where introduced in # Solaris 8. # divert(0) VERSIONID(`$Id: solaris8.m4,v 8.3 2013-11-22 20:51:15 ca Exp $') divert(-1) ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -a$g $h!rmail ($u)')') define(`confEBINDIR', `/usr/lib')dnl define(`confPID_FILE', `/var/run/sendmail.pid')dnl define(`_NETINET6_')dnl FEATURE(`local_lmtp')dnl sendmail-8.18.1/cf/ostype/dgux.m40000644000372400037240000000120514556365350016111 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: dgux.m4,v 8.15 2013-11-22 20:51:15 ca Exp $') _DEFIFNOT(`LOCAL_MAILER_FLAGS', `m9')dnl define(`confTIME_ZONE', `USE_TZ')dnl define(`confEBINDIR', `/usr/lib')dnl LOCAL_CONFIG E_FORCE_MAIL_LOCAL_=yes sendmail-8.18.1/cf/ostype/irix5.m40000644000372400037240000000273014556365350016206 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Contributed by Kari E. Hurtta # # # Notes: # - SGI's /etc/sendmail.cf defines also 'u' for local mailer flags -- you # perhaps don't want it. # - Perhaps is should also add define(`LOCAL_MAILER_CHARSET', iso-8859-1) # put some Asian sites may prefer otherwise -- or perhaps not. # - SGI's /etc/sendmail.cf seems use: A=mail -s -d $u # It seems work without that -s however. # - SGI's /etc/sendmail.cf set's default uid and gid to 998 (guest) # - In SGI seems that TZ variable is needed that correct time is marked to # syslog # - helpfile is in /etc/sendmail.hf in SGI's /etc/sendmail.cf # divert(0) VERSIONID(`$Id: irix5.m4,v 8.17 2013-11-22 20:51:15 ca Exp $') _DEFIFNOT(`LOCAL_MAILER_FLAGS', `Ehmu9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail -s -d $u')')dnl ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /var/spool/mqueue)')dnl ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/sendmail.st')')dnl define(`confDEF_USER_ID', `998:998')dnl define(`confTIME_ZONE', USE_TZ)dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/irix6.m40000644000372400037240000000301114556365350016200 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Contributed by Kari E. Hurtta # # # Notes: # - SGI's /etc/sendmail.cf defines also 'u' for local mailer flags -- you # perhaps don't want it. They have begun removing this flag in IRIX 6.5. # - Perhaps is should also add define(`LOCAL_MAILER_CHARSET', iso-8859-1) # put some Asian sites may prefer otherwise -- or perhaps not. # - SGI's /etc/sendmail.cf seems use: A=mail -s -d $u # It seems work without that -s however. # - SGI's /etc/sendmail.cf set's default uid and gid to 998 (guest) # - In SGI seems that TZ variable is needed that correct time is marked to # syslog # - helpfile is in /etc/sendmail.hf in SGI's /etc/sendmail.cf # divert(0) VERSIONID(`$Id: irix6.m4,v 8.15 2013-11-22 20:51:15 ca Exp $') _DEFIFNOT(`LOCAL_MAILER_FLAGS', `Ehmu9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail -s -d $u')')dnl ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /var/spool/mqueue)')dnl ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/sendmail.st')')dnl define(`confDEF_USER_ID', `998:998')dnl define(`confTIME_ZONE', USE_TZ)dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/altos.m40000644000372400037240000000206414556365350016270 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1996 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Contributed by Tim Rice . # divert(0) VERSIONID(`$Id: altos.m4,v 8.16 2013-11-22 20:51:15 ca Exp $') ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)')dnl ifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', /usr/bin/uux)')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/bin/lmail)')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `mPuhCE9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `lmail $u')')dnl ifdef(`LOCAL_SHELL_FLAGS',, `define(`LOCAL_SHELL_FLAGS', Peu)')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -a$g $h!rmail ($u)')')dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/freebsd4.m40000644000372400037240000000134114556365350016641 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: freebsd4.m4,v 1.2 2013-11-22 20:51:15 ca Exp $') ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/log/sendmail.st')')dnl dnl turn on S flag for local mailer MODIFY_MAILER_FLAGS(`LOCAL', `+S')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/libexec/mail.local)')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail $u')')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -z -a$g $h!rmail ($u)')')dnl sendmail-8.18.1/cf/ostype/bsd4.3.m40000644000372400037240000000121614556365350016141 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: bsd4.3.m4,v 8.13 2013-11-22 20:51:15 ca Exp $') ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -z -a$g $h!rmail ($u)')')dnl sendmail-8.18.1/cf/ostype/solaris2.m40000644000372400037240000000175114556365350016706 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # This ostype file is suitable for use on Solaris 2.x systems that # have mail.local installed. It is my understanding that this is # standard as of Solaris 2.5. # divert(0) VERSIONID(`$Id: solaris2.m4,v 8.23 2013-11-22 20:51:15 ca Exp $') divert(-1) ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', `/usr/lib/mail.local')') _DEFIFNOT(`LOCAL_MAILER_FLAGS', `fSmn9') ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail.local -d $u')') ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -a$g $h!rmail ($u)')') define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/ultrix4.m40000644000372400037240000000102614556365350016556 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: ultrix4.m4,v 8.12 2013-11-22 20:51:15 ca Exp $') define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/unicosmk.m40000644000372400037240000000125214556365350016774 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2003 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # divert(0) VERSIONID(`$Id: unicosmk.m4,v 1.2 2013-11-22 20:51:15 ca Exp $') define(`ALIAS_FILE', `/usr/lib/aliases') define(`HELP_FILE', `/usr/lib/sendmail.hf') define(`QUEUE_DIR', `/usr/spool/mqueue') define(`STATUS_FILE', `/usr/lib/sendmail.st') MODIFY_MAILER_FLAGS(`LOCAL' , `+aSPpmnxXu') MODIFY_MAILER_FLAGS(`SMTP', `+anpeLC') define(`LOCAL_SHELL_FLAGS', `lsDFMpxehuo') define(`confPID_FILE', `/etc/sendmail.pid')dnl sendmail-8.18.1/cf/ostype/uxpds.m40000644000372400037240000000146714556365350016317 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Definitions for UXP/DS (Fujitsu/ICL DS/90 series) # Diego R. Lopez, CICA (Seville). 1995 # divert(0) VERSIONID(`$Id: uxpds.m4,v 8.17 2013-11-22 20:51:15 ca Exp $') define(`confDEF_GROUP_ID', `6') define(`LOCAL_MAILER_PATH', `/usr/ucblib/binmail')dnl define(`LOCAL_SHELL_FLAGS', `ehuP')dnl define(`UUCP_MAILER_ARGS', `uux - -r -a$f -gmedium $h!rmail ($u)')dnl define(`confEBINDIR', `/usr/ucblib')dnl sendmail-8.18.1/cf/ostype/sunos4.1.m40000644000372400037240000000102714556365350016536 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: sunos4.1.m4,v 8.11 2013-11-22 20:51:15 ca Exp $') define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/mklinux.m40000644000372400037240000000142214556365350016632 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # MkLinux support contributed by Paul DuBois # divert(0) VERSIONID(`$Id: mklinux.m4,v 8.16 2013-11-22 20:51:15 ca Exp $') define(`confEBINDIR', `/usr/sbin') ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/log/sendmail.st')') ifdef(`PROCMAIL_MAILER_PATH',, `define(`PROCMAIL_MAILER_PATH', `/usr/bin/procmail')') FEATURE(local_procmail) sendmail-8.18.1/cf/ostype/unixware7.m40000644000372400037240000000136014556365350017075 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: unixware7.m4,v 8.9 2013-11-22 20:51:15 ca Exp $') ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /var/spool/mqueue)')dnl define(`confEBINDIR', `/usr/lib')dnl define(`confTIME_ZONE', `USE_TZ')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /etc/mail/slocal)')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `Puho9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `slocal -user $u')')dnl ifdef(`LOCAL_SHELL_FLAGS',, `define(`LOCAL_SHELL_FLAGS', Peu)')dnl sendmail-8.18.1/cf/ostype/maxion.m40000644000372400037240000000173114556365350016441 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1996 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Concurrent Computer Corporation Maxion system support contributed # by Donald R. Laster Jr. . # divert(0) VERSIONID(`$Id: maxion.m4,v 8.18 2013-11-22 20:51:15 ca Exp $') define(`QUEUE_DIR', `/var/spool/mqueue')dnl define(`STATUS_FILE', `/var/adm/log/sendmail.st')dnl define(`LOCAL_MAILER_PATH', `/usr/bin/mail')dnl define(`LOCAL_SHELL_FLAGS', `ehuP')dnl define(`LOCAL_MAILER_ARGS', `mail $u')dnl define(`UUCP_MAILER_ARGS', `uux - -r -a$g -gmedium $h!rmail ($u)')dnl define(`confEBINDIR', `/usr/ucblib')dnl divert(-1) sendmail-8.18.1/cf/ostype/linux.m40000644000372400037240000000117514556365350016307 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: linux.m4,v 8.14 2013-11-22 20:51:15 ca Exp $') define(`confEBINDIR', `/usr/sbin') ifdef(`PROCMAIL_MAILER_PATH',, define(`PROCMAIL_MAILER_PATH', `/usr/bin/procmail')) FEATURE(local_procmail) sendmail-8.18.1/cf/ostype/domainos.m40000644000372400037240000000114014556365350016751 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: domainos.m4,v 8.15 2013-11-22 20:51:15 ca Exp $') divert(-1) ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)') define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/hpux10.m40000644000372400037240000000202714556365350016272 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: hpux10.m4,v 8.20 2013-11-22 20:51:15 ca Exp $') ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /var/spool/mqueue)')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/bin/rmail)')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `m9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `rmail -d $u')')dnl ifdef(`LOCAL_SHELL_PATH',, `define(`LOCAL_SHELL_PATH', /usr/bin/sh)')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -a$g -gC $h!rmail ($u)')')dnl define(`confTIME_ZONE', `USE_TZ')dnl dnl dnl For maximum compatibility with HP-UX, use: dnl define(`confME_TOO', True)dnl sendmail-8.18.1/cf/ostype/bsdi.m40000644000372400037240000000102314556365350016061 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: bsdi.m4,v 8.2 2013-11-22 20:51:15 ca Exp $') include(_CF_DIR_`'ostype/bsd4.4.m4)dnl sendmail-8.18.1/cf/ostype/gnu.m40000644000372400037240000000137114556365350015737 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1997 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # divert(0) VERSIONID(`$Id: gnu.m4,v 8.14 2013-11-22 20:51:15 ca Exp $') ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/log/sendmail.st')')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /libexec/mail.local)')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail $u')')dnl define(`confEBINDIR', `/libexec')dnl sendmail-8.18.1/cf/ostype/unicosmp.m40000644000372400037240000000146714556365350017011 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2003 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # # Notes: # - In UNICOSMP seems that TZ variable is needed that correct time is marked # to syslog # divert(0) VERSIONID(`$Id: unicosmp.m4,v 1.2 2013-11-22 20:51:15 ca Exp $') _DEFIFNOT(`LOCAL_MAILER_FLAGS', `Ehm9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail -s -d $u')')dnl ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /var/spool/mqueue)')dnl ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/log/sendmail.st')')dnl define(`LOCAL_MAILER_PATH', `/usr/bin/mail')dnl define(`confTIME_ZONE', USE_TZ)dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/osf1.m40000644000372400037240000000121214556365350016010 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: osf1.m4,v 8.17 2013-11-22 20:51:15 ca Exp $') ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/usr/adm/sendmail/sendmail.st')')dnl define(`confDEF_USER_ID', `daemon') define(`confEBINDIR', `/usr/lbin')dnl sendmail-8.18.1/cf/ostype/ptx2.m40000644000372400037240000000134714556365350016046 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1994 Eric P. Allman. All rights reserved. # Copyright (c) 1994 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Support for DYNIX/ptx 2.x. divert(0) VERSIONID(`$Id: ptx2.m4,v 8.18 2013-11-22 20:51:15 ca Exp $') ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)')dnl define(`LOCAL_MAILER_PATH', `/bin/mail')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `fmn9')dnl define(`LOCAL_SHELL_FLAGS', `eu')dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/irix4.m40000644000372400037240000000117714556365350016211 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: irix4.m4,v 8.20 2013-11-22 20:51:15 ca Exp $') _DEFIFNOT(`LOCAL_MAILER_FLAGS', `Ehm9')dnl ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)')dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/solaris2.pre5.m40000644000372400037240000000157414556365350017563 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # This ostype file is suitable for use on Solaris 2.x systems that # use mail as local mailer which are usually version before 2.5. # divert(0) VERSIONID(`$Id: solaris2.pre5.m4,v 8.2 2013-11-22 20:51:15 ca Exp $') divert(-1) _DEFIFNOT(`LOCAL_MAILER_FLAGS', `SnE9') ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail -f $g -d $u')') ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -a$g $h!rmail ($u)')') define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/hpux9.m40000644000372400037240000000176014556365350016225 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: hpux9.m4,v 8.25 2013-11-22 20:51:15 ca Exp $') ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', `/bin/rmail')')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `m9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `rmail -d $u')')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -a$g -gC $h!rmail ($u)')')dnl define(`confTIME_ZONE', `USE_TZ')dnl define(`confEBINDIR', `/usr/lib')dnl dnl dnl For maximum compatibility with HP-UX, use: dnl define(`confME_TOO', True)dnl sendmail-8.18.1/cf/ostype/bsd4.4.m40000644000372400037240000000136014556365350016142 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # divert(0) VERSIONID(`$Id: bsd4.4.m4,v 8.15 2013-11-22 20:51:15 ca Exp $') ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/log/sendmail.st')')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/libexec/mail.local)')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -z -a$g $h!rmail ($u)')')dnl sendmail-8.18.1/cf/ostype/riscos4.5.m40000644000372400037240000000125014556365350016673 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: riscos4.5.m4,v 8.16 2013-11-22 20:51:15 ca Exp $') ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `rmail -d $u')')dnl ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', `/usr/spool/mqueue')')dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/solaris2.ml.m40000644000372400037240000000175414556365350017320 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # This ostype file is suitable for use on Solaris 2.x systems that # have mail.local installed. It is my understanding that this is # standard as of Solaris 2.5. # divert(0) VERSIONID(`$Id: solaris2.ml.m4,v 8.15 2013-11-22 20:51:15 ca Exp $') divert(-1) ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', `/usr/lib/mail.local')') _DEFIFNOT(`LOCAL_MAILER_FLAGS', `fSmn9') ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail.local -d $u')') ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -a$g $h!rmail ($u)')') define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/aix5.m40000644000372400037240000000113114556365350016006 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: aix5.m4,v 1.2 2013-11-22 20:51:15 ca Exp $') ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /bin/bellmail)')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', mail -F $g $u)')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `mn9')dnl define(`confEBINDIR', `/usr/lib')dnl define(`confTIME_ZONE', `USE_TZ')dnl sendmail-8.18.1/cf/ostype/qnx.m40000644000372400037240000000125014556365350015750 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1997 Eric P. Allman. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Contributed by Glen McCready # divert(0) VERSIONID(`$Id: qnx.m4,v 8.14 2013-11-22 20:51:15 ca Exp $') define(`QUEUE_DIR', /usr/spool/mqueue)dnl define(`LOCAL_MAILER_ARGS', `mail $u')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `Sh')dnl define(`LOCAL_MAILER_PATH', /usr/bin/mailx)dnl define(`UUCP_MAILER_ARGS', `uux - -r -z -a$f $h!rmail ($u)')dnl sendmail-8.18.1/cf/ostype/openbsd.m40000644000372400037240000000117114556365350016576 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: openbsd.m4,v 8.4 2013-11-22 20:51:15 ca Exp $') ifdef(`STATUS_FILE',, `define(`STATUS_FILE', `/var/log/sendmail.st')')dnl ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/libexec/mail.local)')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `rmn9S')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -z -a$g $h!rmail ($u)')')dnl sendmail-8.18.1/cf/ostype/a-ux.m40000644000372400037240000000143614556365350016022 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: a-ux.m4,v 8.3 2013-11-22 20:51:15 ca Exp $') ifdef(`QUEUE_DIR',, `define(`QUEUE_DIR', /usr/spool/mqueue)')dnl ifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', /usr/bin/uux)')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `mn9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail -d -r $f $u')')dnl define(`confEBINDIR', `/usr/lib')dnl sendmail-8.18.1/cf/ostype/bsdi1.0.m40000644000372400037240000000114114556365350016301 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: bsdi1.0.m4,v 8.12 2013-11-22 20:51:15 ca Exp $') errprint(`NOTE: OSTYPE(bsdi1.0) is deprecated. Use OSTYPE(bsdi) instead.') include(_CF_DIR_`'ostype/bsdi.m4)dnl sendmail-8.18.1/cf/ostype/svr4.m40000644000372400037240000000127114556365350016043 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: svr4.m4,v 8.18 2013-11-22 20:51:15 ca Exp $') define(`LOCAL_MAILER_PATH', `/usr/ucblib/binmail')dnl define(`LOCAL_SHELL_FLAGS', `ehuP')dnl define(`UUCP_MAILER_ARGS', `uux - -r -a$g -gmedium $h!rmail ($u)')dnl define(`confEBINDIR', `/usr/ucblib')dnl sendmail-8.18.1/cf/ostype/hpux11.m40000644000372400037240000000160014556365350016267 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: hpux11.m4,v 8.2 2013-11-22 20:51:15 ca Exp $') ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /usr/bin/rmail)')dnl _DEFIFNOT(`LOCAL_MAILER_FLAGS', `m9')dnl ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `rmail -d $u')')dnl ifdef(`LOCAL_SHELL_PATH',, `define(`LOCAL_SHELL_PATH', /usr/bin/sh)')dnl ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -a$g -gC $h!rmail ($u)')')dnl define(`confTIME_ZONE', `USE_TZ')dnl sendmail-8.18.1/cf/m4/0000755000372400037240000000000014556365434013702 5ustar xbuildxbuildsendmail-8.18.1/cf/m4/proto.m40000644000372400037240000037004614556365350015316 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $') # level CF_LEVEL config file format V`'CF_LEVEL`'ifdef(`NO_VENDOR',`', `/ifdef(`VENDOR_NAME', `VENDOR_NAME', `Berkeley')') divert(-1) dnl if MAILER(`local') not defined: do it ourself; be nice dnl maybe we should issue a warning? ifdef(`_MAILER_local_',`', `MAILER(local)') # do some sanity checking ifdef(`__OSTYPE__',, `errprint(`*** ERROR: No system type defined (use OSTYPE macro) ')') # pick our default mailers ifdef(`confSMTP_MAILER',, `define(`confSMTP_MAILER', `esmtp')') ifdef(`confLOCAL_MAILER',, `define(`confLOCAL_MAILER', `local')') ifdef(`confRELAY_MAILER',, `define(`confRELAY_MAILER', `ifdef(`_MAILER_smtp_', `relay', `ifdef(`_MAILER_uucp', `uucp-new', `unknown')')')') ifdef(`confUUCP_MAILER',, `define(`confUUCP_MAILER', `uucp-old')') define(`_SMTP_', `confSMTP_MAILER')dnl for readability only define(`_LOCAL_', `confLOCAL_MAILER')dnl for readability only define(`_RELAY_', `confRELAY_MAILER')dnl for readability only define(`_UUCP_', `confUUCP_MAILER')dnl for readability only # back compatibility with old config files ifdef(`confDEF_GROUP_ID', `errprint(`*** confDEF_GROUP_ID is obsolete. Use confDEF_USER_ID with a colon in the value instead. ')') ifdef(`confREAD_TIMEOUT', `errprint(`*** confREAD_TIMEOUT is obsolete. Use individual confTO_ parameters instead. ')') ifdef(`confMESSAGE_TIMEOUT', `define(`_ARG_', index(confMESSAGE_TIMEOUT, /)) ifelse(_ARG_, -1, `define(`confTO_QUEUERETURN', confMESSAGE_TIMEOUT)', `define(`confTO_QUEUERETURN', substr(confMESSAGE_TIMEOUT, 0, _ARG_)) define(`confTO_QUEUEWARN', substr(confMESSAGE_TIMEOUT, eval(_ARG_+1)))')') ifdef(`confMIN_FREE_BLOCKS', `ifelse(index(confMIN_FREE_BLOCKS, /), -1,, `errprint(`*** compound confMIN_FREE_BLOCKS is obsolete. Use confMAX_MESSAGE_SIZE for the second part of the value. ')')') # Sanity check on ldap_routing feature # If the user doesn't specify a new map, they better have given as a # default LDAP specification which has the LDAP base (and most likely the host) ifdef(`confLDAP_DEFAULT_SPEC',, `ifdef(`_LDAP_ROUTING_WARN_', `errprint(` WARNING: Using default FEATURE(ldap_routing) map definition(s) without setting confLDAP_DEFAULT_SPEC option. ')')')dnl # clean option definitions below.... define(`_OPTION', `ifdef(`$2', `O $1`'ifelse(defn(`$2'), `',, `=$2')', `#O $1`'ifelse(`$3', `',,`=$3')')')dnl dnl required to "rename" the check_* rulesets... define(`_U_',ifdef(`_DELAY_CHECKS_',`',`_')) dnl default relaying denied message ifdef(`confRELAY_MSG', `', `define(`confRELAY_MSG', ifdef(`_USE_AUTH_', `"550 Relaying denied. Proper authentication required."', `"550 Relaying denied"'))') ifdef(`confRCPTREJ_MSG', `', `define(`confRCPTREJ_MSG', `"550 Mailbox disabled for this recipient"')') define(`_CODE553', `553') divert(0)dnl # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file _OPTION(DontBlameSendmail, `confDONT_BLAME_SENDMAIL', `safe') # default LDAP map specification # need to set this now before any LDAP maps are defined _OPTION(LDAPDefaultSpec, `confLDAP_DEFAULT_SPEC', `-h localhost') ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) ifdef(`confLDAP_CLUSTER', `D{sendmailMTACluster}`'confLDAP_CLUSTER', `#D{sendmailMTACluster}$m') Cwlocalhost ifdef(`USE_CW_FILE', `# file containing names of hosts for which we receive email Fw`'confCW_FILE', `dnl') # my official domain name # ... `define' this only if sendmail cannot automatically determine your domain ifdef(`confDOMAIN_NAME', `Dj`'confDOMAIN_NAME', `#Dj$w.Foo.COM') # host/domain names ending with a token in class P are canonical CP. ifdef(`UUCP_RELAY', `# UUCP relay host DY`'UUCP_RELAY CPUUCP ')dnl ifdef(`BITNET_RELAY', `# BITNET relay host DB`'BITNET_RELAY CPBITNET ')dnl ifdef(`DECNET_RELAY', `define(`_USE_DECNET_SYNTAX_', 1)dnl # DECnet relay host DC`'DECNET_RELAY CPDECNET ')dnl ifdef(`FAX_RELAY', `# FAX relay host DF`'FAX_RELAY CPFAX ')dnl # "Smart" relay host (may be null) DS`'ifdef(`SMART_HOST', `SMART_HOST') ifdef(`LUSER_RELAY', `dnl # place to which unknown users should be forwarded Kuser user -m -a<> DL`'LUSER_RELAY', `dnl') # operators that cannot be in local usernames (i.e., network indicators) CO @ ifdef(`_NO_PERCENTHACK_', `', `%') ifdef(`_NO_UUCP_', `', `!') # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ ifdef(`_ACCESS_TABLE_', `dnl # access_db acceptance class C{Accept}OK RELAY ifdef(`_DELAY_COMPAT_8_10_',`dnl ifdef(`_BLOCKLIST_RCPT_',`dnl # possible access_db RHS for spam friends/haters C{SpamTag}SPAMFRIEND SPAMHATER')')', `dnl') dnl mark for "domain is ok" (resolved or accepted anyway) define(`_RES_OK_', `OKR')dnl ifdef(`_ACCEPT_UNRESOLVABLE_DOMAINS_',`dnl',`dnl # Resolve map (to check if a host exists in check_mail) Kresolve host -a<_RES_OK_> -T') C{ResOk}_RES_OK_ ifdef(`_NEED_MACRO_MAP_', `dnl ifdef(`_MACRO_MAP_', `', `# macro storage map define(`_MACRO_MAP_', `1')dnl Kmacro macro')', `dnl') ifdef(`confCR_FILE', `dnl # Hosts for which relaying is permitted ($=R) FR`'confCR_FILE', `dnl') ifdef(`_ACCESS_TABLE_', `dnl define(`_FULL_TLS_CONNECTION_CHECK_', `1')', `dnl ifdef(`_MTA_STS_', `define(`_FULL_TLS_CONNECTION_CHECK_', `1')')') define(`TLS_SRV_TAG', `"TLS_Srv"')dnl define(`TLS_CLT_TAG', `"TLS_Clt"')dnl define(`TLS_RCPT_TAG', `"TLS_Rcpt"')dnl define(`TLS_TRY_TAG', `"Try_TLS"')dnl define(`SRV_FEAT_TAG', `"Srv_Features"')dnl define(`CLT_FEAT_TAG', `"Clt_Features"')dnl dnl this may be useful in other contexts too ifdef(`_ARITH_MAP_', `', `# arithmetic map define(`_ARITH_MAP_', `1')dnl Karith arith') ifdef(`_FULL_TLS_CONNECTION_CHECK_', `dnl ifdef(`_MACRO_MAP_', `', `# macro storage map define(`_MACRO_MAP_', `1')dnl Kmacro macro') # possible values for TLS_connection in access map C{Tls}VERIFY ENCR C{TlsVerified}OK TRUSTED dnl', `dnl') ifdef(`_CERT_REGEX_ISSUER_', `dnl # extract relevant part from cert issuer KCERTIssuer regex _CERT_REGEX_ISSUER_', `dnl') ifdef(`_CERT_REGEX_SUBJECT_', `dnl # extract relevant part from cert subject KCERTSubject regex _CERT_REGEX_SUBJECT_', `dnl') ifdef(`_MTA_STS_', `dnl Kstsxsni regex -a: -s3 (.*)(servername=)(.*) Kstsxsni2 regex -a: -s2 (.*)(servername=.*) Kstsxmatch regex -a: -s2 (match=)(.*) # flag d: turn off DANE Kstsxnodaneflag regex -a@ -s3 (.*)(flags=)([^;]*d)(.*) ', `dnl') ifdef(`LOCAL_RELAY', `dnl # who I send unqualified names to if `FEATURE(stickyhost)' is used # (null means deliver locally) DR`'LOCAL_RELAY') ifdef(`MAIL_HUB', `dnl # who gets all local email traffic # ($R has precedence for unqualified names if `FEATURE(stickyhost)' is used) DH`'MAIL_HUB') # dequoting map Kdequote dequote`'ifdef(`confDEQUOTE_OPTS', ` confDEQUOTE_OPTS', `') divert(0)dnl # end of nullclient diversion # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root undivert(5)dnl ifdef(`_VIRTHOSTS_', `CR$={VirtHost}', `dnl') ifdef(`MASQUERADE_NAME', `dnl # who I masquerade as (null for no masquerading) (see also $=M) DM`'MASQUERADE_NAME') # my name for error messages ifdef(`confMAILER_NAME', `Dn`'confMAILER_NAME', `#DnMAILER-DAEMON') ifdef(`confOPENSSL_CNF',, `define(`confOPENSSL_CNF', `/etc/mail/sendmail.ossl')') undivert(6)dnl LOCAL_CONFIG ifelse(defn(`confOPENSSL_CNF'), `', `', `EOPENSSL_CONF=confOPENSSL_CNF') include(_CF_DIR_`m4/version.m4') ############### # Options # ############### ifdef(`confAUTO_REBUILD', `errprint(WARNING: `confAUTO_REBUILD' is no longer valid. There was a potential for a denial of service attack if this is set. )')dnl # strip message body to 7 bits on input? _OPTION(SevenBitInput, `confSEVEN_BIT_INPUT', `False') # 8-bit data handling _OPTION(EightBitMode, `confEIGHT_BIT_HANDLING', `pass8') # wait for alias file rebuild (default units: minutes) _OPTION(AliasWait, `confALIAS_WAIT', `5m') # location of alias file _OPTION(AliasFile, `ALIAS_FILE', `MAIL_SETTINGS_DIR`'aliases') # minimum number of free blocks on filesystem _OPTION(MinFreeBlocks, `confMIN_FREE_BLOCKS', `100') # maximum message size _OPTION(MaxMessageSize, `confMAX_MESSAGE_SIZE', `0') # substitution for space (blank) characters _OPTION(BlankSub, `confBLANK_SUB', `_') # avoid connecting to "expensive" mailers on initial submission? _OPTION(HoldExpensive, `confCON_EXPENSIVE', `False') # checkpoint queue runs after every N successful deliveries _OPTION(CheckpointInterval, `confCHECKPOINT_INTERVAL', `10') # default delivery mode _OPTION(DeliveryMode, `confDELIVERY_MODE', `background') # error message header/file _OPTION(ErrorHeader, `confERROR_MESSAGE', `MAIL_SETTINGS_DIR`'error-header') # error mode _OPTION(ErrorMode, `confERROR_MODE', `print') # save Unix-style "From_" lines at top of header? _OPTION(SaveFromLine, `confSAVE_FROM_LINES', `False') # queue file mode (qf files) _OPTION(QueueFileMode, `confQUEUE_FILE_MODE', `0600') # temporary file mode _OPTION(TempFileMode, `confTEMP_FILE_MODE', `0600') # match recipients against GECOS field? _OPTION(MatchGECOS, `confMATCH_GECOS', `False') # maximum hop count _OPTION(MaxHopCount, `confMAX_HOP', `25') # location of help file O HelpFile=ifdef(`HELP_FILE', HELP_FILE, `MAIL_SETTINGS_DIR`'helpfile') # ignore dots as terminators in incoming messages? _OPTION(IgnoreDots, `confIGNORE_DOTS', `False') # name resolver options _OPTION(ResolverOptions, `confBIND_OPTS', `+AAONLY') # deliver MIME-encapsulated error messages? _OPTION(SendMimeErrors, `confMIME_FORMAT_ERRORS', `True') # Forward file search path _OPTION(ForwardPath, `confFORWARD_PATH', `/var/forward/$u:$z/.forward.$w:$z/.forward') # open connection cache size _OPTION(ConnectionCacheSize, `confMCI_CACHE_SIZE', `2') # open connection cache timeout _OPTION(ConnectionCacheTimeout, `confMCI_CACHE_TIMEOUT', `5m') # persistent host status directory _OPTION(HostStatusDirectory, `confHOST_STATUS_DIRECTORY', `.hoststat') # single thread deliveries (requires HostStatusDirectory)? _OPTION(SingleThreadDelivery, `confSINGLE_THREAD_DELIVERY', `False') # use Errors-To: header? _OPTION(UseErrorsTo, `confUSE_ERRORS_TO', `False') # use compressed IPv6 address format? _OPTION(UseCompressedIPv6Addresses, `confUSE_COMPRESSED_IPV6_ADDRESSES', `') # log level _OPTION(LogLevel, `confLOG_LEVEL', `10') # send to me too, even in an alias expansion? _OPTION(MeToo, `confME_TOO', `True') # verify RHS in newaliases? _OPTION(CheckAliases, `confCHECK_ALIASES', `False') # default messages to old style headers if no special punctuation? _OPTION(OldStyleHeaders, `confOLD_STYLE_HEADERS', `False') # SMTP daemon options ifelse(defn(`confDAEMON_OPTIONS'), `', `dnl', `errprint(WARNING: `confDAEMON_OPTIONS' is no longer valid. Use `DAEMON_OPTIONS()'; see cf/README. )'dnl `DAEMON_OPTIONS(`confDAEMON_OPTIONS')') ifelse(defn(`_DPO_'), `', `ifdef(`_NETINET6_', `O DaemonPortOptions=Name=MTA-v4, Family=inet O DaemonPortOptions=Name=MTA-v6, Family=inet6',`O DaemonPortOptions=Name=MTA')', `_DPO_') ifdef(`_NO_MSA_', `dnl', `O DaemonPortOptions=Port=587, Name=MSA, M=E') # SMTP client options ifelse(defn(`confCLIENT_OPTIONS'), `', `dnl', `errprint(WARNING: `confCLIENT_OPTIONS' is no longer valid. See cf/README for more information. )'dnl `CLIENT_OPTIONS(`confCLIENT_OPTIONS')') ifelse(defn(`_CPO_'), `', `#O ClientPortOptions=Family=inet, Address=0.0.0.0', `_CPO_') # Modifiers to `define' {daemon_flags} for direct submissions _OPTION(DirectSubmissionModifiers, `confDIRECT_SUBMISSION_MODIFIERS', `') # Use as mail submission program? See sendmail/SECURITY _OPTION(UseMSP, `confUSE_MSP', `') # privacy flags _OPTION(PrivacyOptions, `confPRIVACY_FLAGS', `authwarnings') # who (if anyone) should get extra copies of error messages _OPTION(PostmasterCopy, `confCOPY_ERRORS_TO', `Postmaster') # slope of queue-only function _OPTION(QueueFactor, `confQUEUE_FACTOR', `600000') # limit on number of concurrent queue runners _OPTION(MaxQueueChildren, `confMAX_QUEUE_CHILDREN', `') # maximum number of queue-runners per queue-grouping with multiple queues _OPTION(MaxRunnersPerQueue, `confMAX_RUNNERS_PER_QUEUE', `1') # priority of queue runners (nice(3)) _OPTION(NiceQueueRun, `confNICE_QUEUE_RUN', `') # shall we sort the queue by hostname first? _OPTION(QueueSortOrder, `confQUEUE_SORT_ORDER', `priority') # minimum time in queue before retry _OPTION(MinQueueAge, `confMIN_QUEUE_AGE', `30m') # maximum time in queue before retry (if > 0; only for exponential delay) _OPTION(MaxQueueAge, `confMAX_QUEUE_AGE', `') # how many jobs can you process in the queue? _OPTION(MaxQueueRunSize, `confMAX_QUEUE_RUN_SIZE', `0') # perform initial split of envelope without checking MX records _OPTION(FastSplit, `confFAST_SPLIT', `1') # queue directory O QueueDirectory=ifdef(`QUEUE_DIR', QUEUE_DIR, `/var/spool/mqueue') # key for shared memory; 0 to turn off, -1 to auto-select _OPTION(SharedMemoryKey, `confSHARED_MEMORY_KEY', `0') # file to store auto-selected key for shared memory (SharedMemoryKey = -1) _OPTION(SharedMemoryKeyFile, `confSHARED_MEMORY_KEY_FILE', `') # timeouts (many of these) _OPTION(Timeout.initial, `confTO_INITIAL', `5m') _OPTION(Timeout.connect, `confTO_CONNECT', `5m') _OPTION(Timeout.aconnect, `confTO_ACONNECT', `0s') _OPTION(Timeout.iconnect, `confTO_ICONNECT', `5m') _OPTION(Timeout.helo, `confTO_HELO', `5m') _OPTION(Timeout.mail, `confTO_MAIL', `10m') _OPTION(Timeout.rcpt, `confTO_RCPT', `1h') _OPTION(Timeout.datainit, `confTO_DATAINIT', `5m') _OPTION(Timeout.datablock, `confTO_DATABLOCK', `1h') _OPTION(Timeout.datafinal, `confTO_DATAFINAL', `1h') _OPTION(Timeout.rset, `confTO_RSET', `5m') _OPTION(Timeout.quit, `confTO_QUIT', `2m') _OPTION(Timeout.misc, `confTO_MISC', `2m') _OPTION(Timeout.command, `confTO_COMMAND', `1h') _OPTION(Timeout.ident, `confTO_IDENT', `5s') _OPTION(Timeout.fileopen, `confTO_FILEOPEN', `60s') _OPTION(Timeout.control, `confTO_CONTROL', `2m') _OPTION(Timeout.queuereturn, `confTO_QUEUERETURN', `5d') _OPTION(Timeout.queuereturn.normal, `confTO_QUEUERETURN_NORMAL', `5d') _OPTION(Timeout.queuereturn.urgent, `confTO_QUEUERETURN_URGENT', `2d') _OPTION(Timeout.queuereturn.non-urgent, `confTO_QUEUERETURN_NONURGENT', `7d') _OPTION(Timeout.queuereturn.dsn, `confTO_QUEUERETURN_DSN', `5d') _OPTION(Timeout.queuewarn, `confTO_QUEUEWARN', `4h') _OPTION(Timeout.queuewarn.normal, `confTO_QUEUEWARN_NORMAL', `4h') _OPTION(Timeout.queuewarn.urgent, `confTO_QUEUEWARN_URGENT', `1h') _OPTION(Timeout.queuewarn.non-urgent, `confTO_QUEUEWARN_NONURGENT', `12h') _OPTION(Timeout.queuewarn.dsn, `confTO_QUEUEWARN_DSN', `4h') _OPTION(Timeout.hoststatus, `confTO_HOSTSTATUS', `30m') _OPTION(Timeout.resolver.retrans, `confTO_RESOLVER_RETRANS', `5s') _OPTION(Timeout.resolver.retrans.first, `confTO_RESOLVER_RETRANS_FIRST', `5s') _OPTION(Timeout.resolver.retrans.normal, `confTO_RESOLVER_RETRANS_NORMAL', `5s') _OPTION(Timeout.resolver.retry, `confTO_RESOLVER_RETRY', `4') _OPTION(Timeout.resolver.retry.first, `confTO_RESOLVER_RETRY_FIRST', `4') _OPTION(Timeout.resolver.retry.normal, `confTO_RESOLVER_RETRY_NORMAL', `4') _OPTION(Timeout.lhlo, `confTO_LHLO', `2m') _OPTION(Timeout.auth, `confTO_AUTH', `10m') _OPTION(Timeout.starttls, `confTO_STARTTLS', `1h') # time for DeliverBy; extension disabled if less than 0 _OPTION(DeliverByMin, `confDELIVER_BY_MIN', `0') # should we not prune routes in route-addr syntax addresses? _OPTION(DontPruneRoutes, `confDONT_PRUNE_ROUTES', `False') # queue up everything before forking? _OPTION(SuperSafe, `confSAFE_QUEUE', `True') # status file _OPTION(StatusFile, `STATUS_FILE') # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info ifelse(confTIME_ZONE, `USE_SYSTEM', `#O TimeZoneSpec=', confTIME_ZONE, `USE_TZ', `O TimeZoneSpec=', `O TimeZoneSpec=confTIME_ZONE') # default UID (can be username or userid:groupid) _OPTION(DefaultUser, `confDEF_USER_ID', `mailnull') # list of locations of user database file (null means no lookup) _OPTION(UserDatabaseSpec, `confUSERDB_SPEC', `MAIL_SETTINGS_DIR`'userdb') # fallback MX host _OPTION(FallbackMXhost, `confFALLBACK_MX', `fall.back.host.net') # fallback smart host _OPTION(FallbackSmartHost, `confFALLBACK_SMARTHOST', `fall.back.host.net') # if we are the best MX host for a site, try it directly instead of config err _OPTION(TryNullMXList, `confTRY_NULL_MX_LIST', `False') # load average at which we just queue messages _OPTION(QueueLA, `confQUEUE_LA', `8') # load average at which we refuse connections _OPTION(RefuseLA, `confREFUSE_LA', `12') # log interval when refusing connections for this long _OPTION(RejectLogInterval, `confREJECT_LOG_INTERVAL', `3h') # load average at which we delay connections; 0 means no limit _OPTION(DelayLA, `confDELAY_LA', `0') # maximum number of children we allow at one time _OPTION(MaxDaemonChildren, `confMAX_DAEMON_CHILDREN', `0') # maximum number of new connections per second _OPTION(ConnectionRateThrottle, `confCONNECTION_RATE_THROTTLE', `0') # Width of the window _OPTION(ConnectionRateWindowSize, `confCONNECTION_RATE_WINDOW_SIZE', `60s') # work recipient factor _OPTION(RecipientFactor, `confWORK_RECIPIENT_FACTOR', `30000') # deliver each queued job in a separate process? _OPTION(ForkEachJob, `confSEPARATE_PROC', `False') # work class factor _OPTION(ClassFactor, `confWORK_CLASS_FACTOR', `1800') # work time factor _OPTION(RetryFactor, `confWORK_TIME_FACTOR', `90000') # default character set _OPTION(DefaultCharSet, `confDEF_CHAR_SET', `unknown-8bit') # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) _OPTION(ServiceSwitchFile, `confSERVICE_SWITCH_FILE', `MAIL_SETTINGS_DIR`'service.switch') # hosts file (normally /etc/hosts) _OPTION(HostsFile, `confHOSTS_FILE', `/etc/hosts') # dialup line delay on connection failure _OPTION(DialDelay, `confDIAL_DELAY', `0s') # action to take if there are no recipients in the message _OPTION(NoRecipientAction, `confNO_RCPT_ACTION', `none') # chrooted environment for writing to files _OPTION(SafeFileEnvironment, `confSAFE_FILE_ENV', `') # are colons OK in addresses? _OPTION(ColonOkInAddr, `confCOLON_OK_IN_ADDR', `True') # shall I avoid expanding CNAMEs (violates protocols)? _OPTION(DontExpandCnames, `confDONT_EXPAND_CNAMES', `False') # SMTP initial login message (old $e macro) _OPTION(SmtpGreetingMessage, `confSMTP_LOGIN_MSG', `$j Sendmail $v ready at $b') # UNIX initial From header format (old $l macro) _OPTION(UnixFromLine, `confFROM_LINE', `From $g $d') # From: lines that have embedded newlines are unwrapped onto one line _OPTION(SingleLineFromHeader, `confSINGLE_LINE_FROM_HEADER', `False') # Allow HELO SMTP command that does not `include' a host name _OPTION(AllowBogusHELO, `confALLOW_BOGUS_HELO', `False') # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) _OPTION(MustQuoteChars, `confMUST_QUOTE_CHARS', `.') # delimiter (operator) characters (old $o macro) _OPTION(OperatorChars, `confOPERATORS', `.:@[]') # shall I avoid calling initgroups(3) because of high NIS costs? _OPTION(DontInitGroups, `confDONT_INIT_GROUPS', `False') # are group-writable `:include:' and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. _OPTION(UnsafeGroupWrites, `confUNSAFE_GROUP_WRITES', `True') ifdef(`confUNSAFE_GROUP_WRITES', `errprint(`WARNING: confUNSAFE_GROUP_WRITES is deprecated; use confDONT_BLAME_SENDMAIL. ')') # where do errors that occur when sending errors get sent? _OPTION(DoubleBounceAddress, `confDOUBLE_BOUNCE_ADDRESS', `postmaster') # issue temporary errors (4xy) instead of permanent errors (5xy)? _OPTION(SoftBounce, `confSOFT_BOUNCE', `False') # where to save bounces if all else fails _OPTION(DeadLetterDrop, `confDEAD_LETTER_DROP', `/var/tmp/dead.letter') # what user id do we assume for the majority of the processing? _OPTION(RunAsUser, `confRUN_AS_USER', `sendmail') # maximum number of recipients per SMTP envelope _OPTION(MaxRecipientsPerMessage, `confMAX_RCPTS_PER_MESSAGE', `0') # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected _OPTION(BadRcptThrottle, `confBAD_RCPT_THROTTLE', `0') # shall we get local names from our installed interfaces? _OPTION(DontProbeInterfaces, `confDONT_PROBE_INTERFACES', `False') # Return-Receipt-To: header implies DSN request _OPTION(RrtImpliesDsn, `confRRT_IMPLIES_DSN', `False') # override connection address (for testing) _OPTION(ConnectOnlyTo, `confCONNECT_ONLY_TO', `0.0.0.0') # Trusted user for file ownership and starting the daemon _OPTION(TrustedUser, `confTRUSTED_USER', `root') # Control socket for daemon management _OPTION(ControlSocketName, `confCONTROL_SOCKET_NAME', `/var/spool/mqueue/.control') # Maximum MIME header length to protect MUAs _OPTION(MaxMimeHeaderLength, `confMAX_MIME_HEADER_LENGTH', `0/0') # Maximum length of the sum of all headers _OPTION(MaxHeadersLength, `confMAX_HEADERS_LENGTH', `32768') # Maximum depth of alias recursion _OPTION(MaxAliasRecursion, `confMAX_ALIAS_RECURSION', `10') # location of pid file _OPTION(PidFile, `confPID_FILE', `/var/run/sendmail.pid') # Prefix string for the process title shown on 'ps' listings _OPTION(ProcessTitlePrefix, `confPROCESS_TITLE_PREFIX', `prefix') # Data file (df) memory-buffer file maximum size _OPTION(DataFileBufferSize, `confDF_BUFFER_SIZE', `4096') # Transcript file (xf) memory-buffer file maximum size _OPTION(XscriptFileBufferSize, `confXF_BUFFER_SIZE', `4096') # lookup type to find information about local mailboxes _OPTION(MailboxDatabase, `confMAILBOX_DATABASE', `pw') # override compile time flag REQUIRES_DIR_FSYNC _OPTION(RequiresDirfsync, `confREQUIRES_DIR_FSYNC', `true') # list of authentication mechanisms _OPTION(AuthMechanisms, `confAUTH_MECHANISMS', `EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5') # Authentication realm _OPTION(AuthRealm, `confAUTH_REALM', `') # default authentication information for outgoing connections _OPTION(DefaultAuthInfo, `confDEF_AUTH_INFO', `MAIL_SETTINGS_DIR`'default-auth-info') # SMTP AUTH flags _OPTION(AuthOptions, `confAUTH_OPTIONS', `') # SMTP AUTH maximum encryption strength _OPTION(AuthMaxBits, `confAUTH_MAX_BITS', `') # SMTP STARTTLS server options _OPTION(TLSSrvOptions, `confTLS_SRV_OPTIONS', `') # SSL cipherlist _OPTION(CipherList, `confCIPHER_LIST', `') # server side SSL options _OPTION(ServerSSLOptions, `confSERVER_SSL_OPTIONS', `') # client side SSL options _OPTION(ClientSSLOptions, `confCLIENT_SSL_OPTIONS', `') # SSL Engine _OPTION(SSLEngine, `confSSL_ENGINE', `') # Path to dynamic library for SSLEngine _OPTION(SSLEnginePath, `confSSL_ENGINE_PATH', `') # TLS: fall back to clear text after handshake failure? _OPTION(TLSFallbacktoClear, `confTLS_FALLBACK_TO_CLEAR', `') # Input mail filters _OPTION(InputMailFilters, `confINPUT_MAIL_FILTERS', `') ifelse(len(X`'_MAIL_FILTERS_DEF), `1', `dnl', `dnl # Milter options _OPTION(Milter.LogLevel, `confMILTER_LOG_LEVEL', `') _OPTION(Milter.macros.connect, `confMILTER_MACROS_CONNECT', `') _OPTION(Milter.macros.helo, `confMILTER_MACROS_HELO', `') _OPTION(Milter.macros.envfrom, `confMILTER_MACROS_ENVFROM', `') _OPTION(Milter.macros.envrcpt, `confMILTER_MACROS_ENVRCPT', `') _OPTION(Milter.macros.eom, `confMILTER_MACROS_EOM', `') _OPTION(Milter.macros.eoh, `confMILTER_MACROS_EOH', `') _OPTION(Milter.macros.data, `confMILTER_MACROS_DATA', `')') # CA directory _OPTION(CACertPath, `confCACERT_PATH', `') # CA file _OPTION(CACertFile, `confCACERT', `') # Server Cert _OPTION(ServerCertFile, `confSERVER_CERT', `') # Server private key _OPTION(ServerKeyFile, `confSERVER_KEY', `') # Client Cert _OPTION(ClientCertFile, `confCLIENT_CERT', `') # Client private key _OPTION(ClientKeyFile, `confCLIENT_KEY', `') # File containing certificate revocation lists _OPTION(CRLFile, `confCRL', `') # Directory containing hashes pointing to certificate revocation status files _OPTION(CRLPath, `confCRL_PATH', `') # DHParameters (only required if DSA/DH is used) _OPTION(DHParameters, `confDH_PARAMETERS', `') # Random data source (required for systems without /dev/urandom under OpenSSL) _OPTION(RandFile, `confRAND_FILE', `') # fingerprint algorithm (digest) to use for the presented cert _OPTION(CertFingerprintAlgorithm, `confCERT_FINGERPRINT_ALGORITHM', `') # enable DANE? _OPTION(DANE, `confDANE', `false') # Maximum number of "useless" commands before slowing down _OPTION(MaxNOOPCommands, `confMAX_NOOP_COMMANDS', `20') # Name to use for EHLO (defaults to $j) _OPTION(HeloName, `confHELO_NAME') ifdef(`_NEED_SMTPOPMODES_', `dnl # SMTP operation modes C{SMTPOpModes} s d D') ############################ `# QUEUE GROUP DEFINITIONS #' ############################ _QUEUE_GROUP_ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" ifdef(`_USE_CT_FILE_', `', `#')Ft`'ifdef(`confCT_FILE', confCT_FILE, `MAIL_SETTINGS_DIR`'trusted-users') Troot Tdaemon ifdef(`_NO_UUCP_', `dnl', `Tuucp') ifdef(`confTRUSTED_USERS', `T`'confTRUSTED_USERS', `dnl') ######################### # Format of headers # ######################### ifdef(`confFROM_HEADER',, `define(`confFROM_HEADER', `$?x$x <$g>$|$g$.')')dnl ifdef(`confMESSAGEID_HEADER',, `define(`confMESSAGEID_HEADER', `<$t.$i@$j>')')dnl H?P?Return-Path: <$g> HReceived: confRECEIVED_HEADER H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: confFROM_HEADER H?F?From: confFROM_HEADER H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: confMESSAGEID_HEADER H?M?Message-Id: confMESSAGEID_HEADER # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:`include': $* <@> $: :`include': $1 unmark :`include':... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> ifdef(`_USE_DEPRECATED_ROUTE_ADDR_',`dnl # make sure <@a,@b,@c:user@d> syntax is easy to parse -- undone later R@ $+ , $+ @ $1 : $2 change all "," to ":" # localize and dispose of route-based addresses dnl XXX: IPv6 colon conflict ifdef(`NO_NETINET6', `dnl', `R@ [$+] : $+ $@ $>Canonify2 < @ [$1] > : $2 handle ') R@ $+ : $+ $@ $>Canonify2 < @$1 > : $2 handle dnl',`dnl # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 ifdef(`NO_NETINET6', `dnl', `R@ [ $* ] : $+ $2') R@ $+ : $+ $2 dnl') # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical dnl This is flagged as an error in S0; no need to silently fix it here. dnl # do some sanity checking dnl R$* < @ $~[ $* : $* > $* $1 < @ $2 $3 > $4 nix colons in addrs ifdef(`_NO_UUCP_', `dnl', `# convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains ') ifdef(`_USE_DECNET_SYNTAX_', `# convert node::user addresses into a domain-based address R$- :: $+ $@ $>Canonify2 $2 < @ $1 .DECNET > resolve DECnet names R$- . $- :: $+ $@ $>Canonify2 $3 < @ $1.$2 .DECNET > numeric DECnet addr ', `dnl') ifdef(`_NO_PERCENTHACK_', `dnl', `# if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. ') R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain ifdef(`_NO_UUCP_', `dnl', `R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain') # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr ifdef(`_DOMAIN_TABLE_', `dnl # look up domains in the domain table R$* < @ $+ > $* $: $1 < @ $(domaintable $2 $) > $3', `dnl') undivert(2)dnl LOCAL_RULE_3 ifdef(`_BITDOMAIN_TABLE_', `dnl # handle BITNET mapping R$* < @ $+ .BITNET > $* $: $1 < @ $(bitdomain $2 $: $2.BITNET $) > $3', `dnl') ifdef(`_UUDOMAIN_TABLE_', `dnl # handle UUCP mapping R$* < @ $+ .UUCP > $* $: $1 < @ $(uudomain $2 $: $2.UUCP $) > $3', `dnl') ifdef(`_NO_UUCP_', `dnl', `ifdef(`UUCP_RELAY', `# pass UUCP addresses straight through R$* < @ $+ . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `# if really UUCP, handle it immediately ifdef(`_CLASS_U_', `R$* < @ $=U . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `dnl') ifdef(`_CLASS_V_', `R$* < @ $=V . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `dnl') ifdef(`_CLASS_W_', `R$* < @ $=W . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `dnl') ifdef(`_CLASS_X_', `R$* < @ $=X . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `dnl') ifdef(`_CLASS_Y_', `R$* < @ $=Y . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `dnl') ifdef(`_NO_CANONIFY_', `dnl', `dnl # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3') ')') # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 dnl apply the next rule only for hostnames not in class P dnl this even works for phrases in class P since . is in class P dnl which daemon flags are set? R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 dnl the other rules in this section only apply if the hostname dnl does not end in class P hence no further checks are done here dnl if this ever changes make sure the lookups are "protected" again! ifdef(`_NO_CANONIFY_', `dnl dnl do not canonify unless: dnl domain ends in class {Canonify} (this does not work if the intersection dnl with class P is non-empty) dnl or {daemon_flags} has c set # pass to name server to make hostname canonical if in class {Canonify} R$* $| $* < @ $* $={Canonify} > $* $: $2 < @ $[ $3 $4 $] > $5 # pass to name server to make hostname canonical if requested R$* c $* $| $* < @ $* > $* $: $3 < @ $[ $4 $] > $5 dnl trailing dot? -> do not apply _CANONIFY_HOSTS_ R$* $| $* < @ $+ . > $* $: $2 < @ $3 . > $4 # add a trailing dot to qualified hostnames so other rules will work R$* $| $* < @ $+.$+ > $* $: $2 < @ $3.$4 . > $5 ifdef(`_CANONIFY_HOSTS_', `dnl dnl this should only apply to unqualified hostnames dnl but if a valid character inside an unqualified hostname is an OperatorChar dnl then $- does not work. # look up unqualified hostnames R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4', `dnl')', `dnl dnl _NO_CANONIFY_ is not set: canonify unless: dnl {daemon_flags} contains CC (do not canonify) dnl but add a trailing dot to qualified hostnames so other rules will work dnl should we do this for every hostname: even unqualified? R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 ifdef(`_FFR_NOCANONIFY_HEADERS', `dnl # do not canonify header addresses R$* $| $* < @ $* $~P > $* $: $&{addr_type} $| $2 < @ $3 $4 > $5 R$* h $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* h $* $| $* $: $3', `dnl') # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4') dnl remove {daemon_flags} for other cases R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 ifdef(`_MASQUERADE_ENTIRE_DOMAIN_', `R$* < @ $* $=M > $* $: $1 < @ $2 $3 . > $4', `R$* < @ $=M > $* $: $1 < @ $2 . > $3') ifdef(`_VIRTUSER_TABLE_', `dnl dnl virtual hosts are also canonical ifdef(`_VIRTUSER_ENTIRE_DOMAIN_', `R$* < @ $* $={VirtHost} > $* $: $1 < @ $2 $3 . > $4', `R$* < @ $={VirtHost} > $* $: $1 < @ $2 . > $3')', `dnl') ifdef(`_GENERICS_TABLE_', `dnl dnl hosts for genericstable are also canonical ifdef(`_GENERICS_ENTIRE_DOMAIN_', `R$* < @ $* $=G > $* $: $1 < @ $2 $3 . > $4', `R$* < @ $=G > $* $: $1 < @ $2 . > $3')', `dnl') dnl remove superfluous dots (maybe repeatedly) which may have been added dnl by one of the rules before R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit ifdef(`_NO_UUCP_', `dnl', `# UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u') ifdef(`_USE_DECNET_SYNTAX_', `# put DECnet back in :: form R$+ @ $+ . DECNET $2 :: $1 u@h.DECNET => h::u', `dnl') # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#_LOCAL_ $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "_CODE553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "_CODE553 User address required" R$+ <@> $#error $@ 5.1.3 $: "_CODE553 Hostname required" R$* $: <> $1 dnl allow tricks like [host1]:[host2] R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 dnl but no a@[b]c R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "_CODE553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "_CODE553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "_CODE553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "_CODE553 Invalid host name" dnl no a@b@ R$* < @ $* @ > $* $#error $@ 5.1.2 $: "_CODE553 Invalid route address" dnl no a@b@c R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "_CODE553 Invalid route address" dnl comma only allowed before @; this check is not complete R$* , $~O $* $#error $@ 5.1.3 $: "_CODE553 Invalid route address" ifdef(`_STRICT_RFC821_', `# more RFC 821 checks R$* . < @ $* > $* $#error $@ 5.1.2 $: "_CODE553 Local part must not end with a dot" R. $* < @ $* > $* $#error $@ 5.1.2 $: "_CODE553 Local part must not begin with a dot" dnl', `dnl') # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "_CODE553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "_CODE553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 ifdef(`_ADD_BCC_', `dnl R$+ $: $>ParseBcc $1', `dnl') ifdef(`_PREFIX_MOD_', `dnl dnl do this only for addr_type=e r? R _PREFIX_MOD_ $+ $: $1 $(macro {rcpt_flags} $@ _PREFIX_FLAGS_ $) ')dnl # # Parse1 -- the bottom half of ruleset 0. # SParse1 ifdef(`_LDAP_ROUTING_', `dnl # handle LDAP routing for hosts in $={LDAPRoute} R$+ < @ $={LDAPRoute} . > $: $>LDAPExpand <$1 < @ $2 . >> <$1 @ $2> <> R$+ < @ $={LDAPRouteEquiv} . > $: $>LDAPExpand <$1 < @ $2 . >> <$1 @ $M> <>', `dnl') ifdef(`_MAILER_smtp_', `# handle numeric address spec dnl there is no check whether this is really an IP number R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#_SMTP_ $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#_SMTP_ $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer', `dnl') ifdef(`_VIRTUSER_TABLE_', `dnl # handle virtual users ifdef(`_VIRTUSER_STOP_ONE_LEVEL_RECURSION_',`dnl dnl this is not a documented option dnl it stops looping in virtusertable mapping if input and output dnl are identical, i.e., if address A is mapped to A. dnl it does not deal with multi-level recursion # handle full domains in RHS of virtusertable R$+ < @ $+ > $: $(macro {RecipientAddress} $) $1 < @ $2 > R$+ < @ $+ > $: $1 < @ $2 > $| $>final $1 < @ $2 > R $+ $| $+ $: $1 $(macro {RecipientAddress} $@ $2 $) R $+ $| $* $: $1', `dnl') R$+ $: $1 Mark for lookup dnl input: local<@domain> ifdef(`_VIRTUSER_ENTIRE_DOMAIN_', `R $+ < @ $* $={VirtHost} . > $: < $(virtuser $1 @ $2 $3 $@ $1 $: @ $) > $1 < @ $2 $3 . >', `R $+ < @ $={VirtHost} . > $: < $(virtuser $1 @ $2 $@ $1 $: @ $) > $1 < @ $2 . >') dnl input: local<@domain> | local<@domain> R $+ < @ $=w . > $: < $(virtuser $1 @ $2 $@ $1 $: @ $) > $1 < @ $2 . > dnl if <@> local<@domain>: no match but try lookup dnl user+detail: try user++@domain if detail not empty R<@> $+ + $+ < @ $* . > $: < $(virtuser $1 + + @ $3 $@ $1 $@ $2 $@ +$2 $: @ $) > $1 + $2 < @ $3 . > dnl user+detail: try user+*@domain R<@> $+ + $* < @ $* . > $: < $(virtuser $1 + * @ $3 $@ $1 $@ $2 $@ +$2 $: @ $) > $1 + $2 < @ $3 . > dnl user+detail: try user@domain R<@> $+ + $* < @ $* . > $: < $(virtuser $1 @ $3 $@ $1 $@ $2 $@ +$2 $: @ $) > $1 + $2 < @ $3 . > dnl try default entry: @domain dnl ++@domain R<@> $+ + $+ < @ $+ . > $: < $(virtuser + + @ $3 $@ $1 $@ $2 $@ +$2 $: @ $) > $1 + $2 < @ $3 . > dnl +*@domain R<@> $+ + $* < @ $+ . > $: < $(virtuser + * @ $3 $@ $1 $@ $2 $@ +$2 $: @ $) > $1 + $2 < @ $3 . > dnl @domain if +detail exists dnl if no match, change marker to prevent a second @domain lookup R<@> $+ + $* < @ $+ . > $: < $(virtuser @ $3 $@ $1 $@ $2 $@ +$2 $: ! $) > $1 + $2 < @ $3 . > dnl without +detail R<@> $+ < @ $+ . > $: < $(virtuser @ $2 $@ $1 $: @ $) > $1 < @ $2 . > dnl no match R<@> $+ $: $1 dnl remove mark R $+ $: $1 R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- $+ > $* $#error $@ $(dequote $1 $) $: $2 ifdef(`_VIRTUSER_STOP_ONE_LEVEL_RECURSION_',`dnl # check virtuser input address against output address, if same, skip recursion R< $+ > $+ < @ $+ > $: < $1 > $2 < @ $3 > $| $1 # it is the same: stop now R< $+ > $+ < @ $+ > $| $&{RecipientAddress} $: $>ParseLocal $>Parse0 $>canonify $1 R< $+ > $+ < @ $+ > $| $* $: < $1 > $2 < @ $3 > dnl', `dnl') dnl this is not a documented option dnl it performs no looping at all for virtusertable ifdef(`_NO_VIRTUSER_RECURSION_', `R< $+ > $+ < @ $+ > $: $>ParseLocal $>Parse0 $>canonify $1', `R< $+ > $+ < @ $+ > $: $>Recurse $1') dnl', `dnl') # short circuit local delivery so forwarded email works ifdef(`_MAILER_usenet_', `dnl R$+ . USENET < @ $=w . > $#usenet $@ usenet $: $1 handle usenet specially', `dnl') ifdef(`_STICKY_LOCAL_DOMAIN_', `R$+ < @ $=w . > $: < $H > $1 < @ $2 . > first try hub R< $+ > $+ < $+ > $>MailerToTriple < $1 > $2 < $3 > yep .... dnl $H empty (but @$=w.) R< > $+ + $* < $+ > $#_LOCAL_ $: $1 + $2 plussed name? R< > $+ < $+ > $#_LOCAL_ $: @ $1 nope, local address', `R$=L < @ $=w . > $#_LOCAL_ $: @ $1 special local names R$+ < @ $=w . > $#_LOCAL_ $: $1 regular local name') ifdef(`_MAILER_TABLE_', `dnl # not local -- try mailer table lookup R$* <@ $+ > $* $: < $2 > $1 < @ $2 > $3 extract host name R< $+ . > $* $: < $1 > $2 strip trailing dot R< $+ > $* $: < $(mailertable $1 $) > $2 lookup dnl it is $~[ instead of $- to avoid matches on IPv6 addresses R< $~[ : $* > $* $>MailerToTriple < $1 : $2 > $3 check -- resolved? R< $+ > $* $: $>Mailertable <$1> $2 try domain', `dnl') undivert(4)dnl UUCP rules from `MAILER(uucp)' ifdef(`_NO_UUCP_', `dnl', `# resolve remotely connected UUCP links (if any) ifdef(`_CLASS_V_', `R$* < @ $=V . UUCP . > $* $: $>MailerToTriple < $V > $1 <@$2.UUCP.> $3', `dnl') ifdef(`_CLASS_W_', `R$* < @ $=W . UUCP . > $* $: $>MailerToTriple < $W > $1 <@$2.UUCP.> $3', `dnl') ifdef(`_CLASS_X_', `R$* < @ $=X . UUCP . > $* $: $>MailerToTriple < $X > $1 <@$2.UUCP.> $3', `dnl')') # resolve fake top level domains by forwarding to other hosts ifdef(`BITNET_RELAY', `R$*<@$+.BITNET.>$* $: $>MailerToTriple < $B > $1 <@$2.BITNET.> $3 user@host.BITNET', `dnl') ifdef(`DECNET_RELAY', `R$*<@$+.DECNET.>$* $: $>MailerToTriple < $C > $1 <@$2.DECNET.> $3 user@host.DECNET', `dnl') ifdef(`_MAILER_pop_', `R$+ < @ POP. > $#pop $: $1 user@POP', `dnl') ifdef(`_MAILER_fax_', `R$+ < @ $+ .FAX. > $#fax $@ $2 $: $1 user@host.FAX', `ifdef(`FAX_RELAY', `R$*<@$+.FAX.>$* $: $>MailerToTriple < $F > $1 <@$2.FAX.> $3 user@host.FAX', `dnl')') ifdef(`UUCP_RELAY', `# forward non-local UUCP traffic to our UUCP relay R$*<@$*.UUCP.>$* $: $>MailerToTriple < $Y > $1 <@$2.UUCP.> $3 uucp mail', `ifdef(`_MAILER_uucp_', `# forward other UUCP traffic straight to UUCP R$* < @ $+ .UUCP. > $* $#_UUCP_ $@ $2 $: $1 < @ $2 .UUCP. > $3 user@host.UUCP', `dnl')') ifdef(`_MAILER_usenet_', ` # addresses sent to net.group.USENET will get forwarded to a newsgroup R$+ . USENET $#usenet $@ usenet $: $1', `dnl') ifdef(`_LOCAL_RULES_', `# figure out what should stay in our local mail system undivert(1)dnl LOCAL_NET_CONFIG', `dnl') # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names ifdef(`_MAILER_smtp_', `R$* < @$* > $* $#_SMTP_ $@ $2 $: $1 < @ $2 > $3 user@host.domain', `R$* < @$* > $* $#error $@ 5.1.2 $: "_CODE553 Unrecognized host name " $2') # handle locally delivered names R$=L $#_LOCAL_ $: @ $1 special local names R$+ $#_LOCAL_ $: $1 regular local names ifdef(`_ADD_BCC_', `dnl SParseBcc R$+ $: $&{addr_type} $| $&A $| $1 Re b $| $+ $| $+ $>MailerToTriple < $1 > $2 copy? R$* $| $* $| $+ $@ $3 no copy ') ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 ifdef(`_PRESERVE_LUSER_HOST_', `dnl # Preserve rcpt_host in {Host} R$+ $: $1 $| $&h $| $&{Host} check h and {Host} R$+ $| $| $: $(macro {Host} $@ $) $1 no h or {Host} R$+ $| $| $+ $: $1 h not set, {Host} set R$+ $| +$* $| $* $: $1 h is +detail, {Host} set R$+ $| $* @ $+ $| $* $: $(macro {Host} $@ @$3 $) $1 set {Host} to host in h R$+ $| $+ $| $* $: $(macro {Host} $@ @$2 $) $1 set {Host} to h ')dnl ifdef(`_FFR_5_', `dnl # Preserve host in a macro R$+ $: $(macro {LocalAddrHost} $) $1 R$+ @ $+ $: $(macro {LocalAddrHost} $@ @ $2 $) $1') ifdef(`_PRESERVE_LOCAL_PLUS_DETAIL_', `', `dnl # deal with plussed users so aliases work nicely R$+ + * $#_LOCAL_ $@ $&h $: $1`'ifdef(`_FFR_5_', ` $&{LocalAddrHost}') R$+ + $* $#_LOCAL_ $@ + $2 $: $1 + *`'ifdef(`_FFR_5_', ` $&{LocalAddrHost}') ') # prepend an empty "forward host" on the front R$+ $: <> $1 ifdef(`LUSER_RELAY', `dnl # send unrecognized local users to a relay host ifdef(`_PRESERVE_LOCAL_PLUS_DETAIL_', `dnl R< > $+ + $* $: < ? $L > <+ $2> $(user $1 $) look up user+ R< > $+ $: < ? $L > < > $(user $1 $) look up user R< ? $* > < $* > $+ <> $: < > $3 $2 found; strip $L R< ? $* > < $* > $+ $: < $1 > $3 $2 not found', ` R< > $+ $: < $L > $(user $1 $) look up user R< $* > $+ <> $: < > $2 found; strip $L') ifdef(`_PRESERVE_LUSER_HOST_', `dnl R< $+ > $+ $: < $1 > $2 $&{Host}') dnl') ifdef(`MAIL_HUB', `dnl R< > $+ $: < $H > $1 try hub', `dnl') ifdef(`LOCAL_RELAY', `dnl R< > $+ $: < $R > $1 try relay', `dnl') ifdef(`_PRESERVE_LOCAL_PLUS_DETAIL_', `dnl R< > $+ $@ $1', `dnl R< > $+ $: < > < $1 <> $&h > nope, restore +detail ifdef(`_PRESERVE_LUSER_HOST_', `dnl R< > < $+ @ $+ <> + $* > $: < > < $1 + $3 @ $2 > check whether +detail') R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#_LOCAL_ $@ $2 $: @ $1`'ifdef(`_FFR_5_', ` $&{LocalAddrHost}') strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in ifdef(`_PRESERVE_LUSER_HOST_', `dnl R$+ @ $+ <> + $* $: $1 + $3 @ $2 check whether +detail') R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard') R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension ifdef(`_PRESERVE_LUSER_HOST_', `dnl dnl it is $~[ instead of $- to avoid matches on IPv6 addresses R< $~[ : $+ > $+ @ $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $4 >') R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > ifdef(`_PRESERVE_LUSER_HOST_', `dnl R< $+ > $+ @ $+ $@ $>MailerToTriple < $1 > $2 < @ $3 >') R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ifdef(`_MAILER_TABLE_', `dnl ifdef(`_LDAP_ROUTING_', `dnl ################################################################### ### Ruleset LDAPMailertable -- mailertable lookup for LDAP ### dnl input: FullAddress ################################################################### SLDAPMailertable R< $+ > $* $: < $(mailertable $1 $) > $2 lookup R< $~[ : $* > $* $>MailerToTriple < $1 : $2 > $3 check resolved? R< $+ > $* $: < $1 > $>Mailertable <$1> $2 try domain R< $+ > $#$* $#$2 found R< $+ > $* $#_RELAY_ $@ $1 $: $2 not found, direct relay', `dnl') ################################################################### ### Ruleset 90 -- try domain part of mailertable entry ### dnl input: LeftPartOfDomain FullAddress ################################################################### SMailertable=90 dnl shift and check dnl %2 is not documented in cf/README R$* <$- . $+ > $* $: $1$2 < $(mailertable .$3 $@ $1$2 $@ $2 $) > $4 dnl it is $~[ instead of $- to avoid matches on IPv6 addresses R$* <$~[ : $* > $* $>MailerToTriple < $2 : $3 > $4 check -- resolved? R$* < . $+ > $* $@ $>Mailertable $1 . <$2> $3 no -- strip & try again dnl is $2 always empty? R$* < $* > $* $: < $(mailertable . $@ $1$2 $) > $3 try "." R< $~[ : $* > $* $>MailerToTriple < $1 : $2 > $3 "." found? dnl return full address R< $* > $* $@ $2 no mailertable match', `dnl') ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### dnl input: in general: <[mailer:]host> lp<@domain>rest dnl <> address -> address dnl -> error dnl -> error dnl -> error dnl lp<@domain>rest -> mailer host user dnl address -> mailer host address dnl address -> address dnl address -> relay host address ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 dnl it is $~[ instead of $- to avoid matches on IPv6 addresses R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#_RELAY_ $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### dnl input: address dnl <@host> : rest -> Recurse rest dnl p1 $=O p2 <@host> -> Recurse p1 $=O p2 dnl <> user <@host> rest -> local user@host user dnl <> user -> local user user dnl lp <@domain> rest -> lp <@host> [cont] dnl lp <@host> rest -> local lp@host user dnl lp -> local lp user ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#_LOCAL_ $@ $1@$2 $: $1 R< > $+ $#_LOCAL_ $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#_LOCAL_ $@ $2@$3 $: $1 R< $+ > $* $#_LOCAL_ $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 ifdef(`_GENERICS_TABLE_', `dnl # handle generics database ifdef(`_GENERICS_ENTIRE_DOMAIN_', dnl if generics should be applied add a @ as mark `R$+ < @ $* $=G . > $: < $1@$2$3 > $1 < @ $2$3 . > @ mark', `R$+ < @ $=G . > $: < $1@$2 > $1 < @ $2 . > @ mark') R$+ < @ *LOCAL* > $: < $1@$j > $1 < @ *LOCAL* > @ mark dnl workspace: either user<@domain> or user <@domain> @ dnl ignore the first case for now dnl if it has the mark look up full address dnl broken: %1 is full address not just detail R< $+ > $+ < $* > @ $: < $(generics $1 $: @ $1 $) > $2 < $3 > dnl workspace: ... or user <@domain> dnl no match, try user+detail@domain: dnl look up user+*@domain and user@domain R<@$+ + $* @ $+> $+ < @ $+ > $: < $(generics $1+*@$3 $@ $2 $:@$1 + $2@$3 $) > $4 < @ $5 > R<@$+ + $* @ $+> $+ < @ $+ > $: < $(generics $1@$3 $: $) > $4 < @ $5 > dnl no match, remove mark R<@$+ > $+ < @ $+ > $: < > $2 < @ $3 > dnl no match, try @domain for exceptions R< > $+ < @ $+ . > $: < $(generics @$2 $@ $1 $: $) > $1 < @ $2 . > dnl workspace: ... or user <@domain> dnl no match, try local part R< > $+ < @ $+ > $: < $(generics $1 $: $) > $1 < @ $2 > R< > $+ + $* < @ $+ > $: < $(generics $1+* $@ $2 $: $) > $1 + $2 < @ $3 > R< > $+ + $* < @ $+ > $: < $(generics $1 $: $) > $1 + $2 < @ $3 > R< $* @ $* > $* < $* > $@ $>canonify $1 @ $2 found qualified R< $+ > $* < $* > $: $>canonify $1 @ *LOCAL* found unqualified R< > $* $: $1 not found', `dnl') # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > ifdef(`MASQUERADE_NAME', `dnl # special case the users that should be exposed R$=E < @ *LOCAL* > $@ $1 < @ $j . > leave exposed ifdef(`_MASQUERADE_ENTIRE_DOMAIN_', `R$=E < @ $* $=M . > $@ $1 < @ $2 $3 . >', `R$=E < @ $=M . > $@ $1 < @ $2 . >') ifdef(`_LIMITED_MASQUERADE_', `dnl', `R$=E < @ $=w . > $@ $1 < @ $2 . >') # handle domain-specific masquerading ifdef(`_MASQUERADE_ENTIRE_DOMAIN_', `R$* < @ $* $=M . > $* $: $1 < @ $2 $3 . @ $M > $4 convert masqueraded doms', `R$* < @ $=M . > $* $: $1 < @ $2 . @ $M > $3 convert masqueraded doms') ifdef(`_LIMITED_MASQUERADE_', `dnl', `R$* < @ $=w . > $* $: $1 < @ $2 . @ $M > $3') R$* < @ *LOCAL* > $* $: $1 < @ $j . @ $M > $2 R$* < @ $+ @ > $* $: $1 < @ $2 > $3 $M is null R$* < @ $+ @ $+ > $* $: $1 < @ $3 . > $4 $M is not null dnl', `dnl no masquerading dnl just fix *LOCAL* leftovers R$* < @ *LOCAL* > $@ $1 < @ $j . >') ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 ifdef(`_MASQUERADE_ENVELOPE_', `R$+ $@ $>MasqHdr $1', `R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2') ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 undivert(3)dnl LOCAL_RULE_0 ifdef(`_LDAP_ROUTING_', `dnl ###################################################################### ### LDAPExpand: Expand address using LDAP routing ### ### Parameters: ### <$1> -- parsed address (user < @ domain . >) (pass through) ### <$2> -- RFC822 address (user @ domain) (used for lookup) ### <$3> -- +detail information ### ### Returns: ### Mailer triplet ($#mailer $@ host $: address) ### Parsed address (user < @ domain . >) ###################################################################### SLDAPExpand # do the LDAP lookups R<$+><$+><$*> $: <$(ldapmra $2 $: $)> <$(ldapmh $2 $: $)> <$1> <$2> <$3> # look for temporary failures and... R<$* > <$*> <$+> <$+> <$*> $: $&{opMode} $| TMPF <$&{addr_type}> $| $3 R<$*> <$* > <$+> <$+> <$*> $: $&{opMode} $| TMPF <$&{addr_type}> $| $3 ifelse(_LDAP_ROUTE_MAPTEMP_, `_TEMPFAIL_', `dnl # ... temp fail RCPT SMTP commands R$={SMTPOpModes} $| TMPF $| $+ $#error $@ 4.3.0 $: _TMPFMSG_(`OPM')') # ... return original address for MTA to queue up R$* $| TMPF <$*> $| $+ $@ $3 # if mailRoutingAddress and local or non-existent mailHost, # return the new mailRoutingAddress ifelse(_LDAP_ROUTE_DETAIL_, `_PRESERVE_', `dnl R<$+@$+> <$=w> <$+> <$+> <$*> $@ $>Parse0 $>canonify $1 $6 @ $2 R<$+@$+> <> <$+> <$+> <$*> $@ $>Parse0 $>canonify $1 $5 @ $2') R<$+> <$=w> <$+> <$+> <$*> $@ $>Parse0 $>canonify $1 R<$+> <> <$+> <$+> <$*> $@ $>Parse0 $>canonify $1 # if mailRoutingAddress and non-local mailHost, # relay to mailHost with new mailRoutingAddress ifelse(_LDAP_ROUTE_DETAIL_, `_PRESERVE_', `dnl ifdef(`_MAILER_TABLE_', `dnl # check mailertable for host, relay from there R<$+@$+> <$+> <$+> <$+> <$*> $>LDAPMailertable <$3> $>canonify $1 $6 @ $2', `R<$+@$+> <$+> <$+> <$+> <$*> $#_RELAY_ $@ $3 $: $>canonify $1 $6 @ $2')') ifdef(`_MAILER_TABLE_', `dnl # check mailertable for host, relay from there R<$+> <$+> <$+> <$+> <$*> $>LDAPMailertable <$2> $>canonify $1', `R<$+> <$+> <$+> <$+> <$*> $#_RELAY_ $@ $2 $: $>canonify $1') # if no mailRoutingAddress and local mailHost, # return original address R<> <$=w> <$+> <$+> <$*> $@ $2 # if no mailRoutingAddress and non-local mailHost, # relay to mailHost with original address ifdef(`_MAILER_TABLE_', `dnl # check mailertable for host, relay from there R<> <$+> <$+> <$+> <$*> $>LDAPMailertable <$1> $2', `R<> <$+> <$+> <$+> <$*> $#_RELAY_ $@ $1 $: $2') ifdef(`_LDAP_ROUTE_DETAIL_', `# if no mailRoutingAddress and no mailHost, # try without +detail R<> <> <$+> <$+ + $* @ $+> <> $@ $>LDAPExpand <$1> <$2 @ $4> <+$3>')dnl ifdef(`_LDAP_ROUTE_NODOMAIN_', ` # pretend we did the @domain lookup R<> <> <$+> <$+ @ $+> <$*> $: <> <> <$1> <@ $3> <$4>', ` # if still no mailRoutingAddress and no mailHost, # try @domain ifelse(_LDAP_ROUTE_DETAIL_, `_PRESERVE_', `dnl R<> <> <$+> <$+ + $* @ $+> <> $@ $>LDAPExpand <$1> <@ $4> <+$3>') R<> <> <$+> <$+ @ $+> <$*> $@ $>LDAPExpand <$1> <@ $3> <$4>') # if no mailRoutingAddress and no mailHost and this was a domain attempt, ifelse(_LDAP_ROUTING_, `_MUST_EXIST_', `dnl # user does not exist R<> <> <$+> <@ $+> <$*> $: < $&{addr_type} > < $1 > # only give error for envelope recipient R <$+> $#error $@ nouser $: "550 User unknown" ifdef(`_LDAP_SENDER_MUST_EXIST_', `dnl # and the sender too R <$+> $#error $@ nouser $: "550 User unknown"') R <$*> <$+> $@ $2', `dnl # return the original address R<> <> <$+> <@ $+> <$*> $@ $1') ') ifelse(substr(confDELIVERY_MODE,0,1), `d', `errprint(`WARNING: Antispam rules not available in deferred delivery mode. ')') ifdef(`_ACCESS_TABLE_', `dnl', `divert(-1)') ###################################################################### ### D: LookUpDomain -- search for domain in access database ### ### Parameters: ### <$1> -- key (domain name) ### <$2> -- default (what to return if not found in db) dnl must not be empty ### <$3> -- mark (must be <(!|+) single-token>) ### ! does lookup only with tag ### + does lookup with and without tag ### <$4> -- passthru (additional data passed unchanged through) dnl returns: dnl ###################################################################### SD dnl workspace dnl look up with tag (in front, no delimiter here) dnl 2 3 4 5 R<$*> <$+> <$- $-> <$*> $: < $(access $4`'_TAG_DELIM_`'$1 $: ? $) > <$1> <$2> <$3 $4> <$5> dnl workspace dnl look up without tag? dnl 1 2 3 4 R <$+> <$+> <+ $-> <$*> $: < $(access $1 $: ? $) > <$1> <$2> <+ $3> <$4> ifdef(`_LOOKUPDOTDOMAIN_', `dnl omit first component: look up .rest dnl XXX apply this also to IP addresses? dnl currently it works the wrong way round for [1.2.3.4] dnl 1 2 3 4 5 6 R <$+.$+> <$+> <$- $-> <$*> $: < $(access $5`'_TAG_DELIM_`'.$2 $: ? $) > <$1.$2> <$3> <$4 $5> <$6> dnl 1 2 3 4 5 R <$+.$+> <$+> <+ $-> <$*> $: < $(access .$2 $: ? $) > <$1.$2> <$3> <+ $4> <$5>', `dnl') ifdef(`_ACCESS_SKIP_', `dnl dnl found SKIP: return and dnl 1 2 3 4 5 R <$+> <$+> <$- $-> <$*> $@ <$2> <$5>', `dnl') dnl not found: IPv4 net (no check is done whether it is an IP number!) dnl 1 2 3 4 5 6 R <[$+.$-]> <$+> <$- $-> <$*> $@ $>D <[$1]> <$3> <$4 $5> <$6> ifdef(`NO_NETINET6', `dnl', `dnl not found: IPv6 net dnl (could be merged with previous rule if we have a class containing .:) dnl 1 2 3 4 5 6 R <[$+::$-]> <$+> <$- $-> <$*> $: $>D <[$1]> <$3> <$4 $5> <$6> R <[$+:$-]> <$+> <$- $-> <$*> $: $>D <[$1]> <$3> <$4 $5> <$6>') dnl not found, but subdomain: try again dnl 1 2 3 4 5 6 R <$+.$+> <$+> <$- $-> <$*> $@ $>D <$2> <$3> <$4 $5> <$6> ifdef(`_FFR_LOOKUPTAG_', `dnl look up Tag: dnl 1 2 3 4 R <$+> <$+> <$*> $: < $(access $3`'_TAG_DELIM_ $: ? $) > <$1> <$2> <$4>', `dnl') dnl not found, no subdomain: return and dnl 1 2 3 4 5 R <$+> <$+> <$- $-> <$*> $@ <$2> <$5> ifdef(`_ATMPF_', `dnl tempfail? dnl 2 3 4 5 6 R<$* _ATMPF_> <$+> <$+> <$- $-> <$*> $@ <_ATMPF_> <$6>', `dnl') dnl return and dnl 2 3 4 5 6 R<$*> <$+> <$+> <$- $-> <$*> $@ <$1> <$6> ###################################################################### ### A: LookUpAddress -- search for host address in access database ### ### Parameters: ### <$1> -- key (dot quadded host address) ### <$2> -- default (what to return if not found in db) dnl must not be empty ### <$3> -- mark (must be <(!|+) single-token>) ### ! does lookup only with tag ### + does lookup with and without tag ### <$4> -- passthru (additional data passed through) dnl returns: dnl ###################################################################### SA dnl look up with tag dnl 2 3 4 5 R<$+> <$+> <$- $-> <$*> $: < $(access $4`'_TAG_DELIM_`'$1 $: ? $) > <$1> <$2> <$3 $4> <$5> dnl look up without tag dnl 1 2 3 4 R <$+> <$+> <+ $-> <$*> $: < $(access $1 $: ? $) > <$1> <$2> <+ $3> <$4> dnl workspace ifdef(`_ACCESS_SKIP_', `dnl dnl found SKIP: return and dnl 1 2 3 4 5 R <$+> <$+> <$- $-> <$*> $@ <$2> <$5>', `dnl') ifdef(`NO_NETINET6', `dnl', `dnl no match; IPv6: remove last part dnl 1 2 3 4 5 6 R <$+::$-> <$+> <$- $-> <$*> $@ $>A <$1> <$3> <$4 $5> <$6> R <$+:$-> <$+> <$- $-> <$*> $@ $>A <$1> <$3> <$4 $5> <$6>') dnl no match; IPv4: remove last part dnl 1 2 3 4 5 6 R <$+.$-> <$+> <$- $-> <$*> $@ $>A <$1> <$3> <$4 $5> <$6> dnl no match: return default dnl 1 2 3 4 5 R <$+> <$+> <$- $-> <$*> $@ <$2> <$5> ifdef(`_ATMPF_', `dnl tempfail? dnl 2 3 4 5 6 R<$* _ATMPF_> <$+> <$+> <$- $-> <$*> $@ <_ATMPF_> <$6>', `dnl') dnl match: return result dnl 2 3 4 5 6 R<$*> <$+> <$+> <$- $-> <$*> $@ <$1> <$6> dnl endif _ACCESS_TABLE_ divert(0) ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form dnl user%host%host<@domain> dnl host!user<@domain> ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ifdef(`_USE_DEPRECATED_ROUTE_ADDR_',`dnl R< @ $+ > : $* @ $* < @ $1 > : $2 % $3 change @ to % in src route R$* < @ $+ > : $* : $* $3 $1 < @ $2 > : $4 change to % hack. R$* < @ $+ > : $* $3 $1 < @ $2 > dnl') ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient dnl mark and canonify address R$* $: $>CanonAddr $1 dnl workspace: localpart<@domain[.]> R $* < @ $* . > $1 < @ $2 > strip trailing dots dnl workspace: localpart<@domain> R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> dnl no $=O in localpart: return R $* $@ $1 dnl workspace: localpart<@domain>, where localpart contains $=O dnl mark everything which has an "authorized" domain with ifdef(`_RELAY_ENTIRE_DOMAIN_', `dnl # if we relay, check username portion for user%host so host can be checked also R $* < @ $* $=m > $: $1 < @ $2 $3 >', `dnl') dnl workspace: <(NO|RELAY)> localpart<@domain>, where localpart contains $=O dnl if mark is then change it to if domain is "authorized" dnl what if access map returns something else than RELAY? dnl we are only interested in RELAY entries... dnl other To: entries: blocklist recipient; generic entries? dnl if it is an error we probably do not want to relay anyway ifdef(`_RELAY_HOSTS_ONLY_', `R $* < @ $=R > $: $1 < @ $2 > ifdef(`_ACCESS_TABLE_', `dnl R $* < @ $+ > $: <$(access To:$2 $: NO $)> $1 < @ $2 > R $* < @ $+ > $: <$(access $2 $: NO $)> $1 < @ $2 >',`dnl')', `R $* < @ $* $=R > $: $1 < @ $2 $3 > ifdef(`_ACCESS_TABLE_', `dnl R $* < @ $+ > $: $>D <$2> <+ To> <$1 < @ $2 >> R<$+> <$+> $: <$1> $2',`dnl')') ifdef(`_RELAY_MX_SERVED_', `dnl dnl do "we" ($=w) act as backup MX server for the destination domain? R $* < @ $+ > $: < : $(mxserved $2 $) : > < $1 < @$2 > > R < : $* : > $* $#TEMP $@ 4.4.0 $: "450 Can not check MX records for recipient host " $1 dnl yes: mark it as R < $* : $=w. : $* > < $+ > $: $4 dnl no: put old mark back R < : $* : > < $+ > $: $2', `dnl') dnl do we relay to this recipient domain? R $* < @ $* > $@ $>ParseRecipient $1 dnl something else R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### ifdef(`_CONTROL_IMMEDIATE_',`dnl Scheck_relay ifdef(`_RATE_CONTROL_IMMEDIATE_',`dnl dnl workspace: ignored... R$* $: $>"RateControl" dummy', `dnl') ifdef(`_CONN_CONTROL_IMMEDIATE_',`dnl dnl workspace: ignored... R$* $: $>"ConnControl" dummy', `dnl') dnl') SLocal_check_relay Scheck`'_U_`'relay ifdef(`_USE_CLIENT_PTR_',`dnl R$* $| $* $: $&{client_ptr} $| $2', `dnl') R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ifdef(`_ACCESS_TABLE_', `dnl dnl workspace: {client_name} $| {client_addr} R$+ $| $+ $: $>D < $1 > <+ Connect> < $2 > dnl workspace: <{client_addr}> dnl OR $| $+ if client_name is empty R $| $+ $: $>A < $1 > <+ Connect> <> empty client_name dnl workspace: <{client_addr}> R <$+> $: $>A < $1 > <+ Connect> <> no: another lookup dnl workspace: (<>|<{client_addr}>) R <$*> $: OK found nothing dnl workspace: (<>|<{client_addr}>) | OK R<$={Accept}> <$*> $@ $1 return value of lookup R <$*> $#error ifdef(`confREJECT_MSG', `$: confREJECT_MSG', `$@ 5.7.1 $: "550 Access denied"') R <$*> $#discard $: discard R <$*> $#error $@ quarantine $: $1 dnl error tag R <$*> $#error $@ $1.$2.$3 $: $4 R <$*> $#error $: $1 ifdef(`_ATMPF_', `R<$* _ATMPF_> <$*> $#error $@ 4.3.0 $: _TMPFMSG_(`CR')', `dnl') dnl generic error from access map R<$+> <$*> $#error $: $1', `dnl') ifdef(`_RBL_',`dnl # DNS based IP address spam list dnl workspace: ignored... R$* $: $&{client_addr} R$-.$-.$-.$- $: $(host $4.$3.$2.$1._RBL_. $: OK $) ROK $: OKSOFAR R$+ $#error $@ 5.7.1 $: "550 Rejected: " $&{client_addr} " listed at _RBL_"', `dnl') ifdef(`_RATE_CONTROL_',`dnl ifdef(`_RATE_CONTROL_IMMEDIATE_',`', `dnl dnl workspace: ignored... R$* $: $>"RateControl" dummy')', `dnl') ifdef(`_CONN_CONTROL_',`dnl ifdef(`_CONN_CONTROL_IMMEDIATE_',`',`dnl dnl workspace: ignored... R$* $: $>"ConnControl" dummy')', `dnl') undivert(8)dnl LOCAL_DNSBL ifdef(`_REQUIRE_RDNS_', `dnl R$* $: $&{client_addr} $| $&{client_resolve} R$=R $* $@ RELAY We relay for these R$* $| OK $@ OK Resolves. R$* $| FAIL $#error $@ 5.7.1 $: 550 Fix reverse DNS for $1 R$* $| TEMP $#error $@ 4.1.8 $: 451 Client IP address $1 does not resolve R$* $| FORGED $#error $@ 4.1.8 $: 451 Possibly forged hostname for $1 ', `dnl') ###################################################################### ### check_mail -- check SMTP ``MAIL FROM:'' command argument ###################################################################### SLocal_check_mail Scheck`'_U_`'mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? dnl done first: we can require authentication for every mail transaction dnl workspace: address as given by MAIL FROM: (sender) R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 dnl undo damage: remove result of tls_client call R$* $| $* $: $1 dnl workspace: address as given by MAIL FROM: R<> $@ we MUST accept <> (RFC 1123) ifdef(`_ACCEPT_UNQUALIFIED_SENDERS_',`dnl',`dnl dnl do some additional checks dnl no user@host dnl no user@localhost (if nonlocal sender) dnl this is a pretty simple canonification, it will not catch every case dnl just make sure the address has <> around it (which is required by dnl the RFC anyway, maybe we should complain if they are missing...) dnl dirty trick: if it is user@host, just add a dot: user@host. this will dnl not be modified by host lookups. R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> dnl workspace: <@>
    dnl prepend daemon_flags R$* $: $&{daemon_flags} $| $1 dnl workspace: ${daemon_flags} $| <@>
    dnl do not allow these at all or only from local systems? R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > dnl accept unqualified sender: change mark to avoid test R$* u $* $| <@> < $* > $: < $3 > dnl workspace: ${daemon_flags} $| <@>
    dnl or:
    dnl or:
    dnl remove daemon_flags R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > ifdef(`_NO_UUCP_', `dnl', `R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP >') dnl workspace: < ? $&{client_name} > dnl or: <@>
    dnl or:
    (thanks to u in ${daemon_flags}) R<@> $* $: $1 no localhost as domain dnl workspace: < ? $&{client_name} > dnl or:
    dnl or:
    (thanks to u in ${daemon_flags}) R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "_CODE553 Real domain name required for sender address" dnl remove (happens only if ${client_name} == "" or u in ${daemon_flags}) R $* $: $1') dnl workspace: address (or
    ) R$* $: $>CanonAddr $1 canonify sender address and mark it dnl workspace: CanonicalAddress (i.e. address in canonical form localpart<@host>) dnl there is nothing behind the <@host> so no trailing $* needed R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: <_RES_OK_> $1 < @ $2 $3 > dnl workspace CanonicalAddress where mark is ? or OK dnl A sender address with my local host name ($j) is safe R $* < @ $j > $: <_RES_OK_> $1 < @ $j > ifdef(`_ACCEPT_UNRESOLVABLE_DOMAINS_', `R $* < @ $+ > $: <_RES_OK_> $1 < @ $2 > ... unresolvable OK', `R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 >') dnl workspace CanonicalAddress where mark is ?, _RES_OK_, PERM, TEMP dnl mark is ? iff the address is user (wo @domain) ifdef(`_ACCESS_TABLE_', `dnl # check sender address: user@address, user@, address dnl should we remove +ext from user? dnl workspace: CanonicalAddress where mark is: ?, _RES_OK_, PERM, TEMP R<$+> $+ < @ $* > $: @<$1> <$2 < @ $3 >> $| R<$+> $+ $: @<$1> <$2> $| dnl workspace: @ $| <@type:address> .... dnl $| is used as delimiter, otherwise false matches may occur: > dnl will only return user<@domain when "reversing" the args R@ <$+> <$*> $| <$+> $: <@> <$1> <$2> $| $>SearchList <+ From> $| <$3> <> dnl workspace: <@> $| R<@> <$+> <$*> $| <$*> $: <$3> <$1> <$2> reverse result dnl workspace: # retransform for further use dnl required form: dnl CanonicalAddress R <$+> <$*> $: <$1> $2 no match R<$+> <$+> <$*> $: <$1> $3 relevant result, keep it', `dnl') dnl workspace CanonicalAddress dnl mark is ? iff the address is user (wo @domain) ifdef(`_ACCEPT_UNQUALIFIED_SENDERS_',`dnl',`dnl # handle case of no @domain on address dnl prepend daemon_flags R $* $: $&{daemon_flags} $| $1 dnl accept unqualified sender: change mark to avoid test R$* u $* $| $* $: <_RES_OK_> $3 dnl remove daemon_flags R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ <_RES_OK_> ...local unqualed ok R $* $#error $@ 5.5.4 $: "_CODE553 Domain name required for sender address " $&f ...remote is not') # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "_CODE553 Domain of sender address " $&f " does not exist" ifdef(`_ACCESS_TABLE_', `dnl R<$={Accept}> $* $# $1 accept from access map R $* $#discard $: discard R $* $#error $@ quarantine $: $1 R $* $#error ifdef(`confREJECT_MSG', `$: confREJECT_MSG', `$@ 5.7.1 $: "550 Access denied"') dnl error tag R $* $#error $@ $1.$2.$3 $: $4 R $* $#error $: $1 ifdef(`_ATMPF_', `R<_ATMPF_> $* $#error $@ 4.3.0 $: _TMPFMSG_(`CM')', `dnl') dnl generic error from access map R<$+> $* $#error $: $1 error from access db', `dnl') dnl workspace: @ CanonicalAddress (i.e. address in canonical form localpart<@host>) ifdef(`_BADMX_CHK_', `dnl R@ $*<@$+>$* $: $1<@$2>$3 $| $>BadMX $2 R$* $| $#$* $#$2 SBadMX # Look up MX records and ferret away a copy of the original address. # input: domain part of address to check R$+ $:<$1><:$(mxlist $1$):><:> # workspace: <: mxlist-result $><:> R<$+><:$*:><$*> $#error $@ 4.1.2 $: "450 MX lookup failure for "$1 # workspace: # Recursively run badmx check on each mx. R<$*><:$+:$*><:$*> <$1><:$3><: $4 $(badmx $2 $):> # See if any of them fail. R<$*><$*><$*:$*> $#error $@ 5.1.2 $:"550 Illegal MX record for host "$1 # Reverse the mxlists so we can use the same argument order again. R<$*><$*><$*> $:<$1><$3><$2> R<$*><:$+:$*><:$*> <$1><:$3><:$4 $(dnsA $2 $) :> # Reverse the lists so we can use the same argument order again. R<$*><$*><$*> $:<$1><$3><$2> R<$*><:$+:$*><:$*> <$1><:$3><:$4 $(BadMXIP $2 $) :> R<$*><$*><$*:$*> $#error $@ 5.1.2 $:"550 Invalid MX record for host "$1', `dnl') ###################################################################### ### check_rcpt -- check SMTP ``RCPT TO:'' command argument ###################################################################### SLocal_check_rcpt Scheck`'_U_`'rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ifdef(`_REQUIRE_QUAL_RCPT_', `dnl dnl this code checks for user@host where host is not a FQHN. dnl it is not activated. dnl notice: code to check for a recipient without a domain name is dnl available down below; look for the same macro. dnl this check is done here because the name might be qualified by the dnl canonicalization. # require fully qualified domain part? dnl very simple canonification: make sure the address is in < > R$+ $: $1 R <$+> $: <@> <$1> R $+ $: <@> <$1> R<@> < postmaster > $: postmaster R<@> < $* @ $+ . $+ > $: < $1 @ $2 . $3 > dnl prepend daemon_flags R<@> $* $: $&{daemon_flags} $| <@> $1 dnl workspace: ${daemon_flags} $| <@>
    dnl _r_equire qual.rcpt: ok R$* r $* $| <@> < $+ @ $+ > $: < $3 @ $4 > dnl do not allow these at all or only from local systems? R$* r $* $| <@> < $* > $: < ? $&{client_name} > < $3 > R < $* > $: <$1> R < $* > $: <$1> R <$+> $#error $@ 5.5.4 $: "553 Fully qualified domain name required" dnl remove daemon_flags for other cases R$* $| <@> $* $: $2', `dnl') dnl ################################################################## dnl call subroutines for recipient and relay dnl possible returns from subroutines: dnl $#TEMP temporary failure dnl $#error permanent failure (or temporary if from access map) dnl $#other stop processing dnl RELAY RELAYing allowed dnl other otherwise ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 dnl temporary failure? remove mark @ and remember R$* $| @ $#TEMP $+ $: $1 $| T $2 dnl error or ok (stop) R$* $| @ $#$* $#$2 ifdef(`_PROMISCUOUS_RELAY_', `divert(-1)', `dnl') R$* $| @ RELAY $@ RELAY dnl something else: call check sender (relay) R$* $| @ $* $: O $| $>"Relay_ok" $1 dnl temporary failure: call check sender (relay) R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 dnl temporary failure? return that R$* $| $#TEMP $+ $#error $2 dnl error or ok (stop) R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY dnl something else: return previous temp failure R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: confRELAY_MSG divert(0) ###################################################################### ### Rcpt_ok: is the recipient ok? dnl input: recipient address (RCPT TO) dnl output: see explanation at call ###################################################################### SRcpt_ok ifdef(`_LOOSE_RELAY_CHECK_',`dnl R$* $: $>CanonAddr $1 R$* < @ $* . > $1 < @ $2 > strip trailing dots', `R$* $: $>ParseRecipient $1 strip relayable hosts') ifdef(`_BESTMX_IS_LOCAL_',`dnl ifelse(_BESTMX_IS_LOCAL_, `', `dnl # unlimited bestmx R$* < @ $* > $* $: $1 < @ $2 @@ $(bestmx $2 $) > $3', `dnl # limit bestmx to $=B R$* < @ $* $=B > $* $: $1 < @ $2 $3 @@ $(bestmx $2 $3 $) > $4') R$* $=O $* < @ $* @@ $=w . > $* $@ $>"Rcpt_ok" $1 $2 $3 R$* < @ $* @@ $=w . > $* $: $1 < @ $3 > $4 R$* < @ $* @@ $* > $* $: $1 < @ $2 > $4') ifdef(`_BLOCKLIST_RCPT_',`dnl ifdef(`_ACCESS_TABLE_', `dnl # blocklist local users or any host from receiving mail R$* $: $1 dnl user is now tagged with @ to be consistent with check_mail dnl and to distinguish users from hosts (com would be host, com@ would be user) R $+ < @ $=w > $: <> <$1 < @ $2 >> $| R $+ < @ $* > $: <> <$1 < @ $2 >> $| R $+ $: <> <$1> $| dnl $| is used as delimiter, otherwise false matches may occur: > dnl will only return user<@domain when "reversing" the args R<> <$*> $| <$+> $: <@> <$1> $| $>SearchList <+ To> $| <$2> <> R<@> <$*> $| <$*> $: <$2> <$1> reverse result R <$*> $: @ $1 mark address as no match dnl we may have to filter here because otherwise some RHSs dnl would be interpreted as generic error messages... dnl error messages should be "tagged" by prefixing them with error: ! dnl that would make a lot of things easier. R<$={Accept}> <$*> $: @ $2 mark address as no match ifdef(`_ACCESS_SKIP_', `dnl R <$*> $: @ $1 mark address as no match', `dnl') ifdef(`_DELAY_COMPAT_8_10_',`dnl dnl compatility with 8.11/8.10: dnl we have to filter these because otherwise they would be interpreted dnl as generic error message... dnl error messages should be "tagged" by prefixing them with error: ! dnl that would make a lot of things easier. dnl maybe we should stop checks already here (if SPAM_xyx)? R<$={SpamTag}> <$*> $: @ $2 mark address as no match') R $* $#error $@ 5.2.1 $: confRCPTREJ_MSG R $* $#discard $: discard R $* $#error $@ quarantine $: $1 dnl error tag R $* $#error $@ $1.$2.$3 $: $4 R $* $#error $: $1 ifdef(`_ATMPF_', `R<_ATMPF_> $* $#error $@ 4.3.0 $: _TMPFMSG_(`ROK1')', `dnl') dnl generic error from access map R<$+> $* $#error $: $1 error from access db R@ $* $1 remove mark', `dnl')', `dnl') ifdef(`_PROMISCUOUS_RELAY_', `divert(-1)', `dnl') # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} dnl workspace: localpart<@domain> $| result of Local_Relay_Auth R$* $| $# $* $# $2 dnl if Local_Relay_Auth returns NO then do not check $={TrustAuthMech} R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} dnl workspace: localpart<@domain> [ $| ${auth_type} ] dnl empty ${auth_type}? R$* $| $: $1 dnl mechanism ${auth_type} accepted? dnl use $# to override further tests (delay_checks): see check_rcpt below R$* $| $={TrustAuthMech} $# RELAY dnl remove ${auth_type} R$* $| $* $: $1 dnl workspace: localpart<@domain> | localpart ifelse(defn(`_NO_UUCP_'), `r', `R$* ! $* < @ $* > $: $2 < @ BANG_PATH > R$* ! $* $: $2 < @ BANG_PATH >', `dnl') ifelse(defn(`_NO_PERCENTHACK_'), `r', `R$* % $* < @ $* > $: $1 < @ PERCENT_HACK > R$* % $* $: $1 < @ PERCENT_HACK >', `dnl') # anything terminating locally is ok ifdef(`_RELAY_ENTIRE_DOMAIN_', `dnl R$+ < @ $* $=m > $@ RELAY', `dnl') R$+ < @ $=w > $@ RELAY ifdef(`_RELAY_HOSTS_ONLY_', `R$+ < @ $=R > $@ RELAY ifdef(`_ACCESS_TABLE_', `dnl ifdef(`_RELAY_FULL_ADDR_', `dnl R$+ < @ $+ > $: <$(access To:$1@$2 $: ? $)> <$1 < @ $2 >> R <$+ < @ $+ >> $: <$(access To:$2 $: ? $)> <$1 < @ $2 >>',` R$+ < @ $+ > $: <$(access To:$2 $: ? $)> <$1 < @ $2 >>') dnl workspace: > R <$+ < @ $+ >> $: <$(access $2 $: ? $)> <$1 < @ $2 >>',`dnl')', `R$+ < @ $* $=R > $@ RELAY ifdef(`_ACCESS_TABLE_', `dnl ifdef(`_RELAY_FULL_ADDR_', `dnl R$+ < @ $+ > $: $1 < @ $2 > $| $>SearchList <+ To> $| <> R$+ < @ $+ > $| <$*> $: <$3> <$1 <@ $2>> R$+ < @ $+ > $| $* $: <$3> <$1 <@ $2>>', `R$+ < @ $+ > $: $>D <$2> <+ To> <$1 < @ $2 >>')')') ifdef(`_ACCESS_TABLE_', `dnl dnl workspace: > R $* $@ RELAY ifdef(`_ATMPF_', `R<$* _ATMPF_> $* $#TEMP $@ 4.3.0 $: _TMPFMSG_(`ROK2')', `dnl') R<$*> <$*> $: $2',`dnl') ifdef(`_RELAY_MX_SERVED_', `dnl # allow relaying for hosts which we MX serve R$+ < @ $+ > $: < : $(mxserved $2 $) : > $1 < @ $2 > dnl this must not necessarily happen if the client is checked first... R< : $* : > $* $#TEMP $@ 4.4.0 $: "450 Can not check MX records for recipient host " $1 R<$* : $=w . : $*> $* $@ RELAY R< : $* : > $* $: $2', `dnl') # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok dnl is it really? the standard requires user@domain, not just user dnl but we should accept it anyway (maybe making it an option: dnl RequireFQDN ?) dnl postmaster must be accepted without domain (DRUMS) ifdef(`_REQUIRE_QUAL_RCPT_', `dnl R postmaster $@ OK # require qualified recipient? dnl prepend daemon_flags R $+ $: $&{daemon_flags} $| $1 dnl workspace: ${daemon_flags} $| localpart dnl do not allow these at all or only from local systems? dnl r flag? add client_name R$* r $* $| $+ $: < ? $&{client_name} > $3 dnl no r flag: relay to local user (only local part) # no qualified recipient required R$* $| $+ $@ RELAY dnl client_name is empty R $+ $@ RELAY dnl client_name is local R $+ $@ RELAY dnl client_name is not local R $+ $#error $@ 5.5.4 $: "553 Domain name required"', `dnl dnl no qualified recipient required R $+ $@ RELAY') dnl it is a remote user: remove mark and then check client R<$+> $* $: $2 dnl currently the recipient address is not used below ###################################################################### ### Relay_ok: is the relay/sender ok? dnl input: ignored dnl output: see explanation at call ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally dnl if compiled with IPV6_FULL=0 RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address ifdef(`_ACCESS_TABLE_', `dnl R$* $: $>A <$1> <+ Connect> <$1> R $* $@ RELAY relayable IP address ifdef(`_FFR_REJECT_IP_IN_CHECK_RCPT_',`dnl dnl this will cause rejections in cases like: dnl Connect:My.Host.Domain RELAY dnl Connect:My.Net REJECT dnl since in check_relay client_name is checked before client_addr R $* $@ REJECT rejected IP address') ifdef(`_ATMPF_', `R<_ATMPF_> $* $#TEMP $@ 4.3.0 $: _TMPFMSG_(`YOK1')', `dnl') R<$*> <$*> $: $2', `dnl') R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local ifdef(`_RELAY_DB_FROM_', `define(`_RELAY_MAIL_FROM_', `1')')dnl ifdef(`_RELAY_LOCAL_FROM_', `define(`_RELAY_MAIL_FROM_', `1')')dnl ifdef(`_RELAY_MAIL_FROM_', `dnl dnl input: {client_addr} or something "broken" dnl just throw the input away; we do not need it. # check whether FROM is allowed to use system as relay R$* $: $>CanonAddr $&f R $+ < @ $+ . > $1 < @ $2 > remove trailing dot ifdef(`_RELAY_LOCAL_FROM_', `dnl # check whether local FROM is ok R $+ < @ $=w > $@ RELAY FROM local', `dnl') ifdef(`_RELAY_DB_FROM_', `dnl R $+ < @ $+ > $: <@> $>SearchList $| ifdef(`_RELAY_DB_FROM_DOMAIN_', ifdef(`_RELAY_HOSTS_ONLY_', `', `')) <> R<@> $@ RELAY RELAY FROM sender ok ifdef(`_ATMPF_', `R<@> <_ATMPF_> $#TEMP $@ 4.3.0 $: _TMPFMSG_(`YOK2')', `dnl') ', `dnl ifdef(`_RELAY_DB_FROM_DOMAIN_', `errprint(`*** ERROR: _RELAY_DB_FROM_DOMAIN_ requires _RELAY_DB_FROM_ ')', `dnl') dnl')', `dnl') dnl notice: the rulesets above do not leave a unique workspace behind. dnl it does not matter in this case because the following rule ignores dnl the input. otherwise these rules must "clean up" the workspace. # check client name: first: did it resolve? dnl input: ignored R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} dnl ${client_resolve} should be OK, so go ahead R$* $: <@> $&{client_name} dnl should not be necessary since it has been done for client_addr already dnl this rule actually may cause a problem if {client_name} resolves to "" dnl however, this should not happen since the forward lookup should fail dnl and {client_resolve} should be TEMP or FAIL. dnl nevertheless, removing the rule doesn't hurt. dnl R<@> $@ RELAY dnl workspace: <@> ${client_name} (not empty) # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] dnl workspace: ${client_name} (canonified) R$* . $1 strip trailing dots ifdef(`_RELAY_ENTIRE_DOMAIN_', `dnl R $* $=m $@ RELAY', `dnl') R $=w $@ RELAY ifdef(`_RELAY_HOSTS_ONLY_', `R $=R $@ RELAY ifdef(`_ACCESS_TABLE_', `dnl R $* $: <$(access Connect:$1 $: ? $)> <$1> R <$*> $: <$(access $1 $: ? $)> <$1>',`dnl')', `R $* $=R $@ RELAY ifdef(`_ACCESS_TABLE_', `dnl R $* $: $>D <$1> <+ Connect> <$1>',`dnl')') ifdef(`_ACCESS_TABLE_', `dnl R $* $@ RELAY ifdef(`_ATMPF_', `R<$* _ATMPF_> $* $#TEMP $@ 4.3.0 $: _TMPFMSG_(`YOK3')', `dnl') R<$*> <$*> $: $2',`dnl') dnl end of _PROMISCUOUS_RELAY_ divert(0) ifdef(`_DELAY_CHECKS_',`dnl # turn a canonical address in the form user<@domain> # qualify unqual. addresses with $j dnl it might have been only user (without <@domain>) SFullAddr R$* <@ $+ . > $1 <@ $2 > R$* <@ $* > $@ $1 <@ $2 > R$+ $@ $1 <@ $j > SDelay_TLS_Clt # authenticated? dnl code repeated here from Basic_check_mail dnl only called from check_rcpt in delay mode if checkrcpt returns $# R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 dnl return result from checkrcpt R$* $| $* $# $1 R$* $# $1 SDelay_TLS_Clt2 # authenticated? dnl code repeated here from Basic_check_mail dnl only called from check_rcpt in delay mode if stopping due to Friend/Hater R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 dnl return result from friend/hater check R$* $| $* $@ $1 R$* $@ $1 # call all necessary rulesets Scheck_rcpt dnl this test should be in the Basic_check_rcpt ruleset dnl which is the correct DSN code? # R$@ $#error $@ 5.1.3 $: "553 Recipient address required" R$+ $: $1 $| $>checkrcpt $1 dnl now we can simply stop checks by returning "$# xyz" instead of just "ok" dnl on error (or discard) stop now R$+ $| $#error $* $#error $2 R$+ $| $#discard $* $#discard $2 dnl otherwise call tls_client; see above R$+ $| $#$* $@ $>"Delay_TLS_Clt" $2 R$+ $| $* $: $>FullAddr $>CanonAddr $1 ifdef(`_SPAM_FH_', `dnl look up user@ and user@address ifdef(`_ACCESS_TABLE_', `', `errprint(`*** ERROR: FEATURE(`delay_checks', `argument') requires FEATURE(`access_db') ')')dnl dnl one of the next two rules is supposed to match dnl this code has been copied from BLOCKLIST... etc dnl and simplified by omitting some < >. R $+ < @ $=w > $: <> $1 < @ $2 > $| R $+ < @ $* > $: <> $1 < @ $2 > $| dnl R $@ something_is_very_wrong_here # look up the addresses only with Spam tag R<> $* $| <$+> $: <@> $1 $| $>SearchList $| <$2> <> R<@> $* $| $* $: $2 $1 reverse result dnl', `dnl') ifdef(`_SPAM_FRIEND_', `# is the recipient a spam friend? ifdef(`_SPAM_HATER_', `errprint(`*** ERROR: define either Hater or Friend -- not both. ')', `dnl') R $+ $@ $>"Delay_TLS_Clt2" SPAMFRIEND R<$*> $+ $: $2', `dnl') ifdef(`_SPAM_HATER_', `# is the recipient no spam hater? R $+ $: $1 spam hater: continue checks R<$*> $+ $@ $>"Delay_TLS_Clt2" NOSPAMHATER everyone else: stop dnl',`dnl') dnl run further checks: check_mail dnl should we "clean up" $&f? ifdef(`_FFR_MAIL_MACRO', `R$* $: $1 $| $>checkmail $&{mail_from}', `R$* $: $1 $| $>checkmail <$&f>') dnl recipient (canonical format) $| result of checkmail R$* $| $#$* $#$2 dnl run further checks: check_relay R$* $| $* $: $1 $| $>checkrelay $&{client_name} $| $&{client_addr} R$* $| $#$* $#$2 R$* $| $* $: $1 ', `dnl') ifdef(`_BLOCK_BAD_HELO_', `dnl R$* $: $1 $| <$&{auth_authen}> Get auth info dnl Bypass the test for users who have authenticated. R$* $| <$+> $: $1 skip if auth R$* $| <$*> $: $1 $| <$&{client_addr}> [$&s] Get connection info dnl Bypass for local clients -- IP address starts with $=R R$* $| <$=R $*> [$*] $: $1 skip if local client dnl Bypass a "sendmail -bs" session, which use 0 for client ip address R$* $| <0> [$*] $: $1 skip if sendmail -bs dnl Reject our IP - assumes "[ip]" is in class $=w R$* $| <$*> $=w $#error $@ 5.7.1 $:"550 bogus HELO name used: " $&s dnl Reject our hostname R$* $| <$*> [$=w] $#error $@ 5.7.1 $:"550 bogus HELO name used: " $&s dnl Pass anything else with a "." in the domain parameter R$* $| <$*> [$+.$+] $: $1 qualified domain ok dnl Pass IPv6: address literals R$* $| <$*> [IPv6:$+] $: $1 qualified domain ok dnl Reject if there was no "." or only an initial or final "." R$* $| <$*> [$*] $#error $@ 5.7.1 $:"550 bogus HELO name used: " $&s dnl Clean up the workspace R$* $| $* $: $1 ', `dnl') ifdef(`_ACCESS_TABLE_', `dnl', `divert(-1)') ###################################################################### ### F: LookUpFull -- search for an entry in access database ### ### lookup of full key (which should be an address) and ### variations if +detail exists: +* and without +detail ### ### Parameters: ### <$1> -- key ### <$2> -- default (what to return if not found in db) dnl must not be empty ### <$3> -- mark (must be <(!|+) single-token>) ### ! does lookup only with tag ### + does lookup with and without tag ### <$4> -- passthru (additional data passed unchanged through) dnl returns: dnl ###################################################################### SF dnl workspace: dnl full lookup dnl 2 3 4 5 R<$+> <$*> <$- $-> <$*> $: <$(access $4`'_TAG_DELIM_`'$1 $: ? $)> <$1> <$2> <$3 $4> <$5> dnl no match, try without tag dnl 1 2 3 4 R <$+> <$*> <+ $-> <$*> $: <$(access $1 $: ? $)> <$1> <$2> <+ $3> <$4> dnl no match, +detail: try +* dnl 1 2 3 4 5 6 7 R <$+ + $* @ $+> <$*> <$- $-> <$*> $: <$(access $6`'_TAG_DELIM_`'$1+*@$3 $: ? $)> <$1+$2@$3> <$4> <$5 $6> <$7> dnl no match, +detail: try +* without tag dnl 1 2 3 4 5 6 R <$+ + $* @ $+> <$*> <+ $-> <$*> $: <$(access $1+*@$3 $: ? $)> <$1+$2@$3> <$4> <+ $5> <$6> dnl no match, +detail: try without +detail dnl 1 2 3 4 5 6 7 R <$+ + $* @ $+> <$*> <$- $-> <$*> $: <$(access $6`'_TAG_DELIM_`'$1@$3 $: ? $)> <$1+$2@$3> <$4> <$5 $6> <$7> dnl no match, +detail: try without +detail and without tag dnl 1 2 3 4 5 6 R <$+ + $* @ $+> <$*> <+ $-> <$*> $: <$(access $1@$3 $: ? $)> <$1+$2@$3> <$4> <+ $5> <$6> dnl no match, return dnl 1 2 3 4 5 R <$+> <$*> <$- $-> <$*> $@ <$2> <$5> ifdef(`_ATMPF_', `dnl tempfail? dnl 2 3 4 5 R<$+ _ATMPF_> <$*> <$- $-> <$*> $@ <_ATMPF_> <$5>', `dnl') dnl match, return dnl 2 3 4 5 R<$+> <$*> <$- $-> <$*> $@ <$1> <$5> ###################################################################### ### E: LookUpExact -- search for an entry in access database ### ### Parameters: ### <$1> -- key ### <$2> -- default (what to return if not found in db) dnl must not be empty ### <$3> -- mark (must be <(!|+) single-token>) ### ! does lookup only with tag ### + does lookup with and without tag ### <$4> -- passthru (additional data passed unchanged through) dnl returns: dnl ###################################################################### SE dnl 2 3 4 5 R<$*> <$*> <$- $-> <$*> $: <$(access $4`'_TAG_DELIM_`'$1 $: ? $)> <$1> <$2> <$3 $4> <$5> dnl no match, try without tag dnl 1 2 3 4 R <$+> <$*> <+ $-> <$*> $: <$(access $1 $: ? $)> <$1> <$2> <+ $3> <$4> dnl no match, return default passthru dnl 1 2 3 4 5 R <$+> <$*> <$- $-> <$*> $@ <$2> <$5> ifdef(`_ATMPF_', `dnl tempfail? dnl 2 3 4 5 R<$+ _ATMPF_> <$*> <$- $-> <$*> $@ <_ATMPF_> <$5>', `dnl') dnl match, return dnl 2 3 4 5 R<$+> <$*> <$- $-> <$*> $@ <$1> <$5> ###################################################################### ### U: LookUpUser -- search for an entry in access database ### ### lookup of key (which should be a local part) and ### variations if +detail exists: +* and without +detail ### ### Parameters: ### <$1> -- key (user@) ### <$2> -- default (what to return if not found in db) dnl must not be empty ### <$3> -- mark (must be <(!|+) single-token>) ### ! does lookup only with tag ### + does lookup with and without tag ### <$4> -- passthru (additional data passed unchanged through) dnl returns: dnl ###################################################################### SU dnl user lookups are always with trailing @ dnl 2 3 4 5 R<$+> <$*> <$- $-> <$*> $: <$(access $4`'_TAG_DELIM_`'$1 $: ? $)> <$1> <$2> <$3 $4> <$5> dnl no match, try without tag dnl 1 2 3 4 R <$+> <$*> <+ $-> <$*> $: <$(access $1 $: ? $)> <$1> <$2> <+ $3> <$4> dnl do not remove the @ from the lookup: dnl it is part of the +detail@ which is omitted for the lookup dnl no match, +detail: try +* dnl 1 2 3 4 5 6 R <$+ + $* @> <$*> <$- $-> <$*> $: <$(access $5`'_TAG_DELIM_`'$1+*@ $: ? $)> <$1+$2@> <$3> <$4 $5> <$6> dnl no match, +detail: try +* without tag dnl 1 2 3 4 5 R <$+ + $* @> <$*> <+ $-> <$*> $: <$(access $1+*@ $: ? $)> <$1+$2@> <$3> <+ $4> <$5> dnl no match, +detail: try without +detail dnl 1 2 3 4 5 6 R <$+ + $* @> <$*> <$- $-> <$*> $: <$(access $5`'_TAG_DELIM_`'$1@ $: ? $)> <$1+$2@> <$3> <$4 $5> <$6> dnl no match, +detail: try without +detail and without tag dnl 1 2 3 4 5 R <$+ + $* @> <$*> <+ $-> <$*> $: <$(access $1@ $: ? $)> <$1+$2@> <$3> <+ $4> <$5> dnl no match, return dnl 1 2 3 4 5 R <$+> <$*> <$- $-> <$*> $@ <$2> <$5> ifdef(`_ATMPF_', `dnl tempfail? dnl 2 3 4 5 R<$+ _ATMPF_> <$*> <$- $-> <$*> $@ <_ATMPF_> <$5>', `dnl') dnl match, return dnl 2 3 4 5 R<$+> <$*> <$- $-> <$*> $@ <$1> <$5> ###################################################################### ### SearchList: search a list of items in the access map ### Parameters: ### $| ... <> dnl maybe we should have a @ (again) in front of the mark to dnl avoid erroneous matches (with error messages?) dnl if we can make sure that tag is always a single token dnl then we can omit the delimiter $|, otherwise we need it dnl to avoid erroneous matches (first rule: D: if there dnl is that mark somewhere in the list, it will be taken). dnl moreover, we can do some tricks to enforce lookup with dnl the tag only, e.g.: ### where "exact" is either "+" or "!": ### <+ TAG> look up with and w/o tag ### look up with tag dnl Warning: + and ! should be in OperatorChars (otherwise there must be dnl a blank between them and the tag. ### possible values for "mark" are: ### D: recursive host lookup (LookUpDomain) dnl A: recursive address lookup (LookUpAddress) [not yet required] ### E: exact lookup, no modifications ### F: full lookup, try user+ext@domain and user@domain ### U: user lookup, try user+ext and user (input must have trailing @) ### return: or (not found) ###################################################################### # class with valid marks for SearchList dnl if A is activated: add it C{Src}E F D U ifdef(`_FFR_SRCHLIST_A', `A') SSearchList # just call the ruleset with the name of the tag... nice trick... dnl 2 3 4 R<$+> $| <$={Src}:$*> <$*> $: <$1> $| <$4> $| $>$2 <$3> <$1> <> dnl workspace: $| $| <> dnl no match and nothing left: return R<$+> $| <> $| <> $@ dnl no match but something left: continue R<$+> $| <$+> $| <> $@ $>SearchList <$1> $| <$2> dnl match: return R<$+> $| <$*> $| <$+> <> $@ <$3> dnl return result from recursive invocation R<$+> $| <$+> $@ <$2> dnl endif _ACCESS_TABLE_ divert(0) ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### dnl empty ruleset definition so it can be called SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" dnl seems to be useful... R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical dnl call user supplied code R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 dnl default: error R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ifdef(`_LOCAL_SRV_FEATURES_', `dnl R$* $: $1 $| $>"Local_srv_features" $1 R$* $| $#$* $#$2 R$* $| $* $: $1', `dnl') ifdef(`_ACCESS_TABLE_', `dnl R$* $: $>D <$&{client_name}> <> R$* $: $>A <$&{client_addr}> <> R$* $: <$(access SRV_FEAT_TAG`'_TAG_DELIM_ $: ? $)> R$* $@ OK ifdef(`_ATMPF_', `dnl tempfail? R<$* _ATMPF_>$* $#temp', `dnl') R<$+>$* $# $1') ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ifdef(`_LOCAL_CLT_FEATURES_', `dnl R$* $: $1 $| $>"Local_clt_features" $1 R$* $| $#$* $#$2 R$* $| $* $: $1', `dnl') ifdef(`_ACCESS_TABLE_', `dnl dnl the servername can have a trailing dot from canonification R$* . $1 R$+ $: $>D <$1> <> R$* $: <$(access CLT_FEAT_TAG`'_TAG_DELIM_ $: ? $)> R$* $@ OK ifdef(`_ATMPF_', `dnl tempfail? R<$* _ATMPF_>$* $#temp', `dnl') R<$+>$* $# $1') ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ifdef(`_LOCAL_TRY_TLS_', `dnl R$* $: $1 $| $>"Local_try_tls" $1 R$* $| $#$* $#$2 R$* $| $* $: $1', `dnl') ifdef(`_ACCESS_TABLE_', `dnl R$* $: $>D <$&{server_name}> <> R$* $: $>A <$&{server_addr}> <> R$* $: <$(access TLS_TRY_TAG`'_TAG_DELIM_ $: ? $)> R$* $@ OK ifdef(`_ATMPF_', `dnl tempfail? R<$* _ATMPF_>$* $#error $@ 4.3.0 $: _TMPFMSG_(`TT')', `dnl') R$* $#error $@ 5.7.1 $: "550 do not try TLS with " $&{server_name} " ["$&{server_addr}"]"') ifdef(`_MTA_STS_', `dnl STLS_NameInList R$* :$&{TLS_Name}: $* $@ ok R$* $@ $1 dnl check SAN for STS SSTS_SAN ifdef(`_STS_SAN', `dnl R$* $: $&{server_name} dnl exact match R$={cert_altnames} $@ ok # strip only one level (no recursion!) R$-.$+ $: $2 dnl wildcard: *. or just .? R *.$={cert_altnames} $@ ok dnl R .$={cert_altnames} $@ ok dnl always temporary error? make it an option (of the feature)? R$* $#error $@ 4.7.0 $: 450 $&{server_name} not listed in SANs', `dnl') dnl input: ${verify} dnl output: $# error ... (from TLS_connection) dnl everything else: ok SSTS_secure R$* $: $&{rcpt_addr} $| $1 # no {rcpt_addr}, no STS check R $| $* $@ ok dnl canonify to extract domain part? R$*@$+ $| $* $2 $| $3 R$+. $| $* $1 $| $2 R$+ $| $* $: $(sts $1 $: none $) $| $2 R$* $| $* $#error $@ 4.7.0 $: 450 STS lookup temp fail dnl check whether connection is "secure" dnl always temporary error? make it an option (of the feature)? R$* secure $* $| $* $@ $>"TLS_connection" $3 $| R$* $| $* $: $2 dnl check STS policy: secure and match? if so, check list SSTS_Check R$* $: $&{rcpt_addr} $| $1 # no {rcpt_addr}, no STS check R $| $* $@ ok # use the original argument for the test, not {rcpt_addr} R$* $| $* $: $2 $| $2 dnl canonify to extract domain part? R$*@$+ $| $* $2 $| $3 R$+. $| $* $1 $| $2 R$* $| $* $: $(sts $1 $: none $) $| mark R$* $| $* $#error $@ 4.7.0 $: 450 STS lookup temp fail dnl STS check only for "secure" dnl do this only if {sts_sni} is set? dnl workspace: result of sts lookup $| mark R$* secure $* $| mark $: $2 $| trmatch dnl not "secure": no check R$* $| mark $@ ok dnl remove servername=hostname, keep match= R$* servername=hostname $| trmatch $: $1 $| trmatch dnl extra list of matches, i.e., remove match= R$+ $| trmatch $: : $(stsxmatch $1 $: : $) dnl no match= data R$* $| trmatch $@ $>STS_SAN dnl Remove trailing dots from each entry in the list; dnl those should not be there, but better safe than sorry. R$*:$+.:$* $1:$2:$3 R:$+: $: $(macro {TLS_Name} $@ $&{server_name} $) $>TLS_NameInList :$1: R$* ok $@ $>STS_SAN R$* $: $1 $| $&{server_name} R:$* $| $-.$+ $: $(macro {TLS_Name} $@ .$3 $) $>TLS_NameInList :$1 R$* ok $@ $>STS_SAN R:$*: $#error $@ 4.7.0 $: 450 $&{server_name} not found in " "$1', `dnl') ifdef(`TLS_PERM_ERR', `dnl define(`TLS_DSNCODE', `5.7.0')dnl define(`TLS_ERRCODE', `554')',`dnl define(`TLS_DSNCODE', `4.7.0')dnl define(`TLS_ERRCODE', `454')')dnl define(`SW_MSG', `TLS handshake failed.')dnl define(`DANE_MSG', `DANE check failed.')dnl define(`DANE_TEMP_MSG', `DANE check failed temporarily.')dnl define(`DANE_NOTLS_MSG', `DANE: missing STARTTLS.')dnl define(`PROT_MSG', `STARTTLS failed.')dnl define(`CNF_MSG', `STARTTLS temporarily not possible.')dnl ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) dnl called from deliver() before RCPT command ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt ifdef(`_LOCAL_TLS_RCPT_', `dnl R$* $: $1 $| $>"Local_tls_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $: $1', `dnl') ifdef(`_MTA_STS_', `dnl R$* $: $1 $| $>"STS_Check" $1 R$* $| $#$* $#$2 R$* $| $* $: $1', `dnl') ifdef(`_ACCESS_TABLE_', `dnl dnl store name of other side R$* $: $(macro {TLS_Name} $@ $&{server_name} $) $1 dnl canonify recipient address R$+ $: $>CanonAddr $1 dnl strip trailing dots R $+ < @ $+ . > $1 <@ $2 > dnl full address? R $+ < @ $+ > $: $1 <@ $2 > $| dnl only localpart? R $+ $: $1 $| dnl look it up dnl also look up a default value via E: R$* $| $+ $: $1 $| $>SearchList $| $2 <> dnl no applicable requirements; trigger an error on DANE_FAIL dnl note: this allows to disable DANE per RCPT. R$* $| $: $1 $| $&{verify} $| R$* $| DANE_FAIL $| $#error $@ TLS_DSNCODE $: "TLS_ERRCODE DANE_MSG" R$* $| DANE_NOTLS $| $#error $@ TLS_DSNCODE $: "TLS_ERRCODE DANE_NOTLS_MSG" R$* $| DANE_TEMP $| $#error $@ TLS_DSNCODE $: "TLS_ERRCODE DANE_TEMP_MSG" dnl found nothing: stop here R$* $| $@ OK ifdef(`_ATMPF_', `dnl tempfail? R$* $| <$* _ATMPF_> $#error $@ 4.3.0 $: _TMPFMSG_(`TR')', `dnl') dnl use the generic routine (for now) R$* $| <$+> $@ $>"TLS_connection" $&{verify} $| <$2>', `dnl R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ TLS_DSNCODE $: "TLS_ERRCODE DANE_NOTLS_MSG" R$* $| DANE_TEMP $#error $@ TLS_DSNCODE $: "TLS_ERRCODE DANE_TEMP_MSG" R$* $| DANE_FAIL $#error $@ TLS_DSNCODE $: "TLS_ERRCODE DANE_MSG"') ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### dnl MAIL: called from check_mail dnl STARTTLS: called from smtp() after STARTTLS has been accepted Stls_client ifdef(`_LOCAL_TLS_CLIENT_', `dnl R$* $: $1 $>"Local_tls_client" $1 R$* $#$* $#$2 R$* $* $: $1', `dnl') ifdef(`_ACCESS_TABLE_', `dnl dnl store name of other side R$* $: $(macro {TLS_Name} $@ $&{client_name} $) $1 dnl ignore second arg for now dnl maybe use it to distinguish permanent/temporary error? dnl if MAIL: permanent (STARTTLS has not been offered) dnl if STARTTLS: temporary (offered but maybe failed) R$* $| $* $: $1 $| $>D <$&{client_name}> <> R$* $| $* $: $1 $| $>A <$&{client_addr}> <> dnl do a default lookup: just TLS_CLT_TAG R$* $| $* $: $1 $| <$(access TLS_CLT_TAG`'_TAG_DELIM_ $: ? $)> ifdef(`_ATMPF_', `dnl tempfail? R$* $| <$* _ATMPF_> $#error $@ 4.3.0 $: _TMPFMSG_(`TC')', `dnl') R$* $@ $>"TLS_connection" $1', `dnl R$* $| $* $@ $>"TLS_connection" $1') ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### dnl i.e. has the server been authenticated and is encryption active? dnl called from deliver() after STARTTLS command Stls_server ifdef(`_LOCAL_TLS_SERVER_', `dnl R$* $: $1 $| $>"Local_tls_server" $1 R$* $| $#$* $#$2 R$* $| $* $: $1', `dnl') ifdef(`_TLS_FAILURES_',`dnl R$* $: $(macro {saved_verify} $@ $1 $) $1') ifdef(`_MTA_STS_', `dnl R$* $: $1 $| $>"STS_secure" $1 R$* $| $#$* $#$2 R$* $| $* $: $1', `dnl') ifdef(`_ACCESS_TABLE_', `dnl dnl store name of other side R$* $: $(macro {TLS_Name} $@ $&{server_name} $) $1 R$* $: $1 $| $>D <$&{server_name}> <> R$* $| $* $: $1 $| $>A <$&{server_addr}> <> dnl do a default lookup: just TLS_SRV_TAG R$* $| $* $: $1 $| <$(access TLS_SRV_TAG`'_TAG_DELIM_ $: ? $)> ifdef(`_ATMPF_', `dnl tempfail? R$* $| <$* _ATMPF_> $#error $@ 4.3.0 $: _TMPFMSG_(`TS')', `dnl') R$* $@ $>"TLS_connection" $1', `dnl R$* $@ $>"TLS_connection" $1') ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ifdef(`_ACCESS_TABLE_', `dnl ### ${verify} $| [<>]', `dnl ### ${verify}') ### Requirement: RHS from access map, may be ? for none. dnl syntax for Requirement: dnl [(PERM|TEMP)+] (VERIFY[:bits]|ENCR:bits) [+extensions] dnl extensions: could be a list of further requirements dnl for now: CN:string {cn_subject} == string ###################################################################### STLS_connection ifdef(`_FULL_TLS_CONNECTION_CHECK_', `dnl', `dnl use default error dnl deal with TLS handshake failures: abort RSOFTWARE $#error $@ TLS_DSNCODE $: "TLS_ERRCODE SW_MSG" dnl RDANE_FAIL $#error $@ TLS_DSNCODE $: "TLS_ERRCODE DANE_MSG" RPROTOCOL $#error $@ TLS_DSNCODE $: "TLS_ERRCODE PROT_MSG" RCONFIG $#error $@ TLS_DSNCODE $: "TLS_ERRCODE CNF_MSG" dnl RDANE_TEMP $#error $@ 4.7.0 $: "454 DANE_TEMP_MSG" divert(-1)') dnl common ruleset for tls_{client|server} dnl input: ${verify} $| [<>] dnl remove optional <> R$* $| <$*>$* $: $1 $| <$2> dnl workspace: ${verify} $| # create the appropriate error codes dnl permanent or temporary error? R$* $| $: $1 $| <503:5.7.0> <$2 $3> R$* $| $: $1 $| <403:4.7.0> <$2 $3> dnl default case depends on TLS_PERM_ERR R$* $| <$={Tls} $*> $: $1 $| <$2 $3> dnl workspace: ${verify} $| [] define(`TLS_ERRORS', `dnl R`'$1 $| <$-:$+> $`'* $`'#error $`'@ $`'2 $: $`'1 " $2" dnl no i.e. no requirements in the access map dnl use default error R`'$1 $| $`'* $`'#error $`'@ TLS_DSNCODE $: "TLS_ERRCODE $2"')dnl # deal with TLS handshake failures: abort TLS_ERRORS(SOFTWARE,SW_MSG) # deal with TLS protocol errors: abort TLS_ERRORS(PROTOCOL,PROT_MSG) dnl # deal with DANE errors: abort dnl TLS_ERRORS(DANE_FAIL,DANE_MSG) # deal with CONFIG (tls_clt_features) errors: abort TLS_ERRORS(CONFIG,CNF_MSG) dnl # deal with DANE tempfail: abort dnl TLS_ERRORS(DANE_TEMP,DANE_TEMP_MSG) R$* $| <$*> $: <$2> <> $1 dnl separate optional requirements R$* $| <$*> $: <$2> <$3> $1 R$* $| <$*> <$={Tls}:$->$* $: <$2> <$3:$4> <> $1 dnl separate optional requirements R$* $| <$*> <$={Tls}:$- + $+>$* $: <$2> <$3:$4> <$5> $1 dnl some other value in access map: accept dnl this also allows to override the default case (if used) R$* $| $* $@ OK # authentication required: give appropriate error # other side did authenticate (via STARTTLS) dnl workspace: <{VERIFY,ENCR}[:BITS]> <[extensions]> ${verify} dnl only verification required and it succeeded R<$*> <> $={TlsVerified} $@ OK dnl verification required and it succeeded but extensions are given dnl change it to R<$*> <$+> $={TlsVerified} $: <$1> <$2> dnl verification required + some level of encryption R<$*> <$*> $={TlsVerified} $: <$1> <$3> dnl just some level of encryption required R<$*> <$*> $* $: <$1> <$3> dnl workspace: dnl 1. <[extensions]> {verify} (!~ $={TlsVerified}) dnl 2. <[extensions]> dnl verification required but ${verify} is not set (case 1.) R<$-:$+> <$*> $#error $@ $2 $: $1 " authentication required" R<$-:$+> <$*> FAIL $#error $@ $2 $: $1 " authentication failed" R<$-:$+> <$*> NO $#error $@ $2 $: $1 " not authenticated" R<$-:$+> <$*> NOT $#error $@ $2 $: $1 " no authentication requested" R<$-:$+> <$*> NONE $#error $@ $2 $: $1 " other side does not support STARTTLS" R<$-:$+> <$*> CLEAR $#error $@ $2 $: $1 " STARTTLS disabled locally" dnl some other value for ${verify} R<$-:$+> <$*> $+ $#error $@ $2 $: $1 " authentication failure " $4 dnl some level of encryption required: get the maximum level (case 2.) R<$*> <$*> $: <$1> <$3> $>max $&{cipher_bits} : $&{auth_ssf} dnl compare required bits with actual bits R<$*> <$*> $- $: <$1> <$2:$4> <$3> $(arith l $@ $4 $@ $2 $) R<$-:$+><$-:$-> <$*> TRUE $#error $@ $2 $: $1 " encryption too weak " $4 " less than " $3 dnl strength requirements fulfilled dnl TLS Additional Requirements Separator dnl this should be something which does not appear in the extensions itself dnl @ could be part of a CN, DN, etc... dnl use < > ? those are encoded in CN, DN, ... define(`_TLS_ARS_', `++')dnl dnl workspace: dnl result-of-compare R<$-:$+><$-:$-> <$*> $* $: <$1:$2 _TLS_ARS_ $5> dnl workspace: dnl continue: check extensions R<$-:$+ _TLS_ARS_ > $@ OK dnl split extensions into own list R<$-:$+ _TLS_ARS_ $+ > $: <$1:$2> <$3> R<$-:$+> < $+ _TLS_ARS_ $+ > <$1:$2> <$3> <$4> R<$-:$+> $+ $@ $>"TLS_req" $3 $| <$1:$2> ###################################################################### ### TLS_req: check additional TLS requirements ### ### Parameters: [ ] $| <$-:$+> ### $-: SMTP reply code ### $+: Enhanced Status Code dnl further requirements for this ruleset: dnl name of "other side" is stored is {TLS_name} (client/server_name) dnl dnl right now this is only a logical AND dnl i.e. all requirements must be true dnl how about an OR? CN must be X or CN must be Y or .. dnl use a macro to compute this as a trivial sequential dnl operations (no precedences etc)? ###################################################################### STLS_req dnl no additional requirements: ok R $| $+ $@ OK dnl require CN: but no CN specified: use name of other side R $* $| <$+> $: $1 $| <$2> ifdef(`_FFR_TLS_ALTNAMES', `dnl R $* $| <$+> $@ $>"TLS_req" $2 $| <$3> R $* $| <$+> $: $3 $| <$4> R $* $| <$+> $@ $>"TLS_req" $3 $| <$3> R $* $| <$+> $: $2 $| <$3>', `dnl') dnl match, check rest R $* $| <$+> $@ $>"TLS_req" $1 $| <$2> dnl CN does not match dnl 1 2 3 4 R $* $| <$-:$+> $#error $@ $4 $: $3 " CN " $&{cn_subject} " does not match " $1 dnl cert subject R $* $| <$+> $@ $>"TLS_req" $1 $| <$2> dnl CS does not match dnl 1 2 3 4 R $* $| <$-:$+> $#error $@ $4 $: $3 " Cert Subject " $&{cert_subject} " does not match " $1 dnl match, check rest R $* $| <$+> $@ $>"TLS_req" $1 $| <$2> dnl CI does not match dnl 1 2 3 4 R $* $| <$-:$+> $#error $@ $4 $: $3 " Cert Issuer " $&{cert_issuer} " does not match " $1 dnl R $* $| <$+> $: <$(access $1:$&{cert_issuer} $: ? $)> $2 $| <$3> R $* $| <$-:$+> $#error $@ $3 $: $2 " Cert Issuer " $&{cert_issuer} " not acceptable" R $* $| <$+> $@ $>"TLS_req" $1 $| <$2> dnl return from recursive call ROK $@ OK ###################################################################### ### max: return the maximum of two values separated by : ### ### Parameters: [$-]:[$-] ###################################################################### Smax R: $: 0 R:$- $: $1 R$-: $: $1 R$-:$- $: $(arith l $@ $1 $@ $2 $) : $1 : $2 RTRUE:$-:$- $: $2 R$-:$-:$- $: $2 dnl endif _ACCESS_TABLE_ divert(0) dnl this must also be activated without _TLS_SESSION_FEATURES_ ifdef(`_MTA_STS_', `dnl dnl caller preserves workspace SSet_SNI R$* $: <$&{rcpt_addr}> # no {rcpt_addr}, no STS check R<> $@ "" dnl canonify to extract domain part? R<$*@$+> $2 R$+. $1 R$+ $: $(sts $1 $: none $) R$* $#error $@ 4.7.0 $: 450 STS lookup temp fail Rnone $@ "" dnl get servername=sni and store it in {sts_sni} dnl stsxsni extracts the value of servername= (sni) dnl stsxsni2 extracts servername=sni so it can be returned to the caller R$* secure $* $: $(stsxsni $2 $: : $) $| sts=secure; $(stsxsni2 $2 $: : $) dnl store {server_addr} as sni if there was a match dnl Note: this implies that only servername=hostname (literally!) dnl is only ever returned. R$+: $| $+ : $: $(macro {sts_sni} $@ $&{server_name} $) set $| $2 R$* $| $* $@ $2 R$* $@ "" dnl', `dnl') ifdef(`_TLS_SESSION_FEATURES_', `dnl define(`_NEED_TLS_CLT_FEATURES') Stls_srv_features ifdef(`_ACCESS_TABLE_', `dnl R$* $| $* $: $>D <$1> <$2> R <$*> $: $>A <$1> <$1> R <$*> $@ "" R<$+> <$*> $@ $1 ', `dnl R$* $@ ""') ', `dnl ifdef(`_MTA_STS_',`define(`_NEED_TLS_CLT_FEATURES')')dnl ')dnl ifdef(`_NEED_TLS_CLT_FEATURES', `dnl ifdef(`_ACCESS_TABLE_', `dnl Stls_clt_feat_acc R$* $| $* $: $>D <$1> <$2> R <$*> $: $>A <$1> <$1> R <$*> $@ "" R<$+> <$*> $@ $1') SDANE_disabled dnl Note: most of this is handled in the binary. dnl input: access map lookup for tls_clt_features dnl output: dnl <>: disabled dnl : enabled R$+ $: < $(stsxnodaneflag $1 $: NOFLAGS $) > R<$* @> $@ <> R$* $: < $&{sts_sni} > R<> $@ <> # check this too? # R$* $: $&{client_flags} # R$* DD $* $@ <> R$* $@ SSTS_disabled dnl input: ignored dnl output: dnl <>: disabled dnl : enabled R$* $: $&{client_flags} R$* MM $* $@ <> dnl R$* $: $&{rcpt_addr} $| $1 # no {rcpt_addr}, no STS check R $| $* $@ <> R$* $@ Stls_clt_features dnl host $| ip R$* $: $1 $| <> ifdef(`_ACCESS_TABLE_', `dnl R$* $| <> $: $1 $| $>"tls_clt_feat_acc" $1 R$* $| $* $| $* $: $1 $| $2 $| <$3>', `dnl') ifdef(`_MTA_STS_', `dnl dnl host $| ip $| R$* $| $* $| <$*> $: $1 $| $2 $| <$3> $| $>"STS_disabled" sts dnl host $| ip $| $| STS_disabled result dnl disable STS check? return access result R$* $| $* $| <$*> $| <> $@ $3 dnl host $| ip $| $| STS_disabled result R$* $| $* $| <$*> $| $* $: $1 $| $2 $| <$3> $| $>"DANE_disabled" $3 dnl DANE enabled: return access result; take care of empty return R$* $| $* $| <$+> $| $@ $3 R$* $| $* $| <> $| $@ "" dnl host $| ip $| $| R$* $| $* $| <$*> $| <$*> $: $1 $| $2 $| <$3> $| $>"Set_SNI" $1 dnl host $| ip $| $| sni result dnl return sni result if not empty but acc is R$* $| $* $| <""> $| $+ $@ $3 dnl return acc + sni result if not empty R$* $| $* $| <$+;> $| $+ $@ $3 ; $4 dnl return acc + sni result if not empty R$* $| $* $| <$+> $| $+ $@ $3 ; $4 dnl return sni result if not empty R$* $| $* $| <> $| $+ $@ $3 dnl remove sni result R$* $| $* $| $* $| $* $: $1 $| $2 $| $3 ', `dnl') dnl host $| ip $| R$* $| $* $| <""> $@ "" R$* $| $* $| <$+> $@ $3 R$* $@ ""') ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? dnl we do not allow relaying for anyone who can present a cert dnl signed by a "trusted" CA. For example, even if we put verisigns dnl CA in CertPath so we can authenticate users, we do not allow dnl them to abuse our server (they might be easier to get hold of, dnl but anyway). dnl so here is the trick: if the verification succeeded dnl we look up the cert issuer in the access map dnl (maybe after extracting a part with a regular expression) dnl if this returns RELAY we relay without further questions dnl if it returns SUBJECT we perform a similar check on the dnl cert subject. ifdef(`_ACCESS_TABLE_', `dnl R$* $: $&{verify} R $={TlsVerified} $: OK authenticated: continue R $* $@ NO not authenticated ifdef(`_CERT_REGEX_ISSUER_', `dnl R$* $: $(CERTIssuer $&{cert_issuer} $)', `R$* $: $&{cert_issuer}') R$+ $: $(access CERTISSUER`'_TAG_DELIM_`'$1 $) dnl use $# to stop further checks (delay_check) RRELAY $# RELAY ifdef(`_CERT_REGEX_SUBJECT_', `dnl RSUBJECT $: <@> $(CERTSubject $&{cert_subject} $)', `RSUBJECT $: <@> $&{cert_subject}') R<@> $+ $: <@> $(access CERTSUBJECT`'_TAG_DELIM_`'$1 $) R<@> RELAY $# RELAY R$* $: NO', `dnl') ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} dnl both are currently ignored dnl if it should be done via another map, we either need to restrict dnl functionality (it calls D and A) or copy those rulesets (or add another dnl parameter which I want to avoid, it's quite complex already) ###################################################################### dnl omit this ruleset if neither is defined? dnl it causes DefaultAuthInfo to be ignored dnl (which may be considered a good thing). Sauthinfo ifdef(`_AUTHINFO_TABLE_', `dnl R$* $: <$(authinfo AuthInfo:$&{server_name} $: ? $)> R $: <$(authinfo AuthInfo:$&{server_addr} $: ? $)> R $: <$(authinfo AuthInfo: $: ? $)> R $@ no no authinfo available R<$*> $# $1 dnl', `dnl ifdef(`_ACCESS_TABLE_', `dnl R$* $: $1 $| $>D <$&{server_name}> <> R$* $| $* $: $1 $| $>A <$&{server_addr}> <> R$* $| $* $: $1 $| <$(access AuthInfo`'_TAG_DELIM_ $: ? $)> <> R$* $| $* $@ no no authinfo available R$* $| <$*> <> $# $2 dnl', `dnl')') ifdef(`_RATE_CONTROL_',`dnl ###################################################################### ### RateControl: ### Parameters: ignored ### return: $#error or OK ###################################################################### SRateControl ifdef(`_ACCESS_TABLE_', `dnl R$* $: dnl also look up a default value via E: R$+ $: $>SearchList $| $1 <> dnl found nothing: stop here R $@ OK ifdef(`_ATMPF_', `dnl tempfail? R<$* _ATMPF_> $#error $@ 4.3.0 $: _TMPFMSG_(`RC')', `dnl') dnl use the generic routine (for now) R<0> $@ OK no limit R<$+> $: <$1> $| $(arith l $@ $1 $@ $&{client_rate} $) dnl log this? Connection rate $&{client_rate} exceeds limit $1. R<$+> $| TRUE $#error $@ 4.3.2 $: _RATE_CONTROL_REPLY Connection rate limit exceeded. ')') ifdef(`_CONN_CONTROL_',`dnl ###################################################################### ### ConnControl: ### Parameters: ignored ### return: $#error or OK ###################################################################### SConnControl ifdef(`_ACCESS_TABLE_', `dnl R$* $: dnl also look up a default value via E: R$+ $: $>SearchList $| $1 <> dnl found nothing: stop here R $@ OK ifdef(`_ATMPF_', `dnl tempfail? R<$* _ATMPF_> $#error $@ 4.3.0 $: _TMPFMSG_(`CC')', `dnl') dnl use the generic routine (for now) R<0> $@ OK no limit R<$+> $: <$1> $| $(arith l $@ $1 $@ $&{client_connections} $) dnl log this: Open connections $&{client_connections} exceeds limit $1. R<$+> $| TRUE $#error $@ 4.3.2 $: _CONN_CONTROL_REPLY Too many open connections. ')') undivert(9)dnl LOCAL_RULESETS # ###################################################################### ###################################################################### ##### `##### MAIL FILTER DEFINITIONS' ##### ###################################################################### ###################################################################### _MAIL_FILTERS_ # ###################################################################### ###################################################################### ##### `##### MAILER DEFINITIONS' ##### ###################################################################### ###################################################################### undivert(7)dnl MAILER_DEFINITIONS dnl Helper ruleset for -bt mode to invoke rulesets dnl which take two arguments separated by $| dnl For example: dnl Start,check_relay host.name $| I.P.V.4 dnl SStart dnl R$* $$| $* $: $1 $| $2 sendmail-8.18.1/cf/m4/cf.m40000644000372400037240000000150114556365350014526 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This file is included so that multiple includes of cf.m4 will work # # figure out where the CF files live ifdef(`_CF_DIR_', `', `ifelse(__file__, `__file__', `define(`_CF_DIR_', `../')', `define(`_CF_DIR_', substr(__file__, 0, eval(len(__file__) - 8)))')') divert(0)dnl ifdef(`OSTYPE', `dnl', `include(_CF_DIR_`'m4/cfhead.m4)dnl VERSIONID(`$Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $')') sendmail-8.18.1/cf/m4/cfhead.m40000644000372400037240000003076714556365350015370 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ifdef(`_NO_MAKEINFO_', `dnl', `dnl ifdef(`TEMPFILE', `dnl', `define(`TEMPFILE', maketemp(/tmp/cfXXXXXX))dnl syscmd(sh _CF_DIR_`'sh/makeinfo.sh _CF_DIR_ > TEMPFILE)dnl include(TEMPFILE)dnl syscmd(rm -f TEMPFILE)dnl')') ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### divert(-1) changecom() undefine(`format') undefine(`hpux') ifdef(`pushdef', `', `errprint(`You need a newer version of M4, at least as new as System V or GNU') include(NoSuchFile)') define(`PUSHDIVERT', `pushdef(`__D__', divnum)divert($1)') define(`POPDIVERT', `divert(__D__)popdef(`__D__')') define(`OSTYPE', `PUSHDIVERT(-1) ifdef(`__OSTYPE__', `errprint(`duplicate OSTYPE'($1) )') define(`__OSTYPE__', $1) define(`_ARG_', $2) include(_CF_DIR_`'ostype/$1.m4)POPDIVERT`'') ## helpful functions define(`lower', `translit(`$1', `ABCDEFGHIJKLMNOPQRSTUVWXYZ', `abcdefghijklmnopqrstuvwxyz')') define(`strcasecmp', `ifelse(lower($1), lower($2), `1', `0')') ## access to further arguments in FEATURE/HACK define(`_ACC_ARG_1_',`$1') define(`_ACC_ARG_2_',`$2') define(`_ACC_ARG_3_',`$3') define(`_ACC_ARG_4_',`$4') define(`_ACC_ARG_5_',`$5') define(`_ACC_ARG_6_',`$6') define(`_ACC_ARG_7_',`$7') define(`_ACC_ARG_8_',`$8') define(`_ACC_ARG_9_',`$9') define(`_ARG1_',`_ACC_ARG_1_(_ARGS_)') define(`_ARG2_',`_ACC_ARG_2_(_ARGS_)') define(`_ARG3_',`_ACC_ARG_3_(_ARGS_)') define(`_ARG4_',`_ACC_ARG_4_(_ARGS_)') define(`_ARG5_',`_ACC_ARG_5_(_ARGS_)') define(`_ARG6_',`_ACC_ARG_6_(_ARGS_)') define(`_ARG7_',`_ACC_ARG_7_(_ARGS_)') define(`_ARG8_',`_ACC_ARG_8_(_ARGS_)') define(`_ARG9_',`_ACC_ARG_9_(_ARGS_)') dnl define if not yet defined: if `$1' is not defined it will be `$2' define(`_DEFIFNOT',`ifdef(`$1',`',`define(`$1',`$2')')') dnl ---------------------------------------- dnl Use a "token" for this error message to make them unique? dnl Note: this is not a documented option. To enable it, use: dnl define(`_USETMPFTOKEN_', `1')dnl ifdef(`_USETMPFTOKEN_', ` define(_TMPFMSG_, `"451 Temporary system failure $1. Please try again later."') ', `dnl define(_TMPFMSG_, `"451 Temporary system failure. Please try again later."') ') dnl ---------------------------------------- dnl add a char $2 to a string $1 if it is not there define(`_ADDCHAR_',`define(`_I_',`eval(index(`$1',`$2') >= 0)')`'ifelse(_I_,`1',`$1',`$1$2')') dnl ---- dnl delete a char $2 from a string $1 if it is there define(`_DELCHAR_',`define(`_IDX_',`index(`$1',`$2')')`'define(`_I_',`eval(_IDX_ >= 0)')`'ifelse(_I_,`1',`substr(`$1',0,_IDX_)`'substr(`$1',eval(_IDX_+1))',`$1')') dnl ---- dnl apply a macro to a whole string by recursion (one char at a time) dnl $1: macro dnl $2: first argument to macro dnl $3: list that is split up into characters define(`_AP_',`ifelse(`$3',`',`$2',`_AP_(`$1',$1(`$2',substr(`$3',0,1)),substr(`$3',1))')') dnl ---- dnl MODIFY_MAILER_FLAGS: append tail of $2 to $1_MF_A/D_ dnl A if head($2) = + dnl D if head($2) = - dnl $1_MF_ is set otherwise; set _A/D_ to `' define(`MODIFY_MAILER_FLAGS',`define(`_hd_',`substr(`$2',0,1)')define(`_tl_',`substr(`$2',1)')`'ifelse(_hd_,`+',`ifdef($1`'_MF_A_, `define($1`'_MF_A_,$1_MF_A_`'_tl_)', `define($1`'_MF_A_, _tl_)')',_hd_,`-',`ifdef($1`'_MF_D_, `define($1`'_MF_D_,$1_MF_D_`'_tl_)', `define($1`'_MF_D_,_tl_)')',`define($1`'_MF_,`$2')define($1`'_MF_A_,`')define($1`'_MF_D_,`')')') dnl ---- dnl actually modify flags: dnl $1: flags (strings) to modify dnl $2: name of flags (just first part) to modify dnl WARNING: the order might be important: if someone adds and delete the dnl same characters, he does not deserve any better, does he? dnl this could be coded more efficiently... (do not apply the macro if _MF_A/D_ is undefined) define(`_MODMF_',`ifdef($2`'_MF_,`$2_MF_',`_AP_(`_ADDCHAR_',_AP_(`_DELCHAR_',$1,ifdef($2`'_MF_D_,`$2_MF_D_',`')),ifdef($2`'_MF_A_,`$2_MF_A_',`'))')') dnl usage: dnl MODIFY_MAILER_FLAGS(`LOCAL',`+FlaGs')dnl dnl in MAILER.m4: _MODMF_(LMF,`LOCAL') dnl ---------------------------------------- define(`MAILER', `define(`_M_N_', `ifelse(`$2', `', `$1', `$2')')dnl ifdef(`_MAILER_DEFINED_', `', `define(`_MAILER_DEFINED_', `1')')dnl ifdef(_MAILER_`'_M_N_`'_, `errprint(`*** ERROR: MAILER('_M_N_`) already included ')', `define(_MAILER_`'_M_N_`'_, `')define(`_ARG_', `$2')define(`_ARGS_', `shift($@)')PUSHDIVERT(7)include(_CF_DIR_`'mailer/$1.m4)POPDIVERT`'')') define(`DOMAIN', `PUSHDIVERT(-1)define(`_ARG_', `$2')include(_CF_DIR_`'domain/$1.m4)POPDIVERT`'') define(`FEATURE', `PUSHDIVERT(-1)ifdef(`_MAILER_DEFINED_',`errprint(`*** ERROR: FEATURE() should be before MAILER() ')')define(`_ARG_', `$2')define(`_ARGS_', `shift($@)')include(_CF_DIR_`'feature/$1.m4)POPDIVERT`'') define(`HACK', `PUSHDIVERT(-1)define(`_ARG_', `$2')define(`_ARGS_', `shift($@)')include(_CF_DIR_`'hack/$1.m4)POPDIVERT`'') define(`_DPO_',`') define(`DAEMON_OPTIONS', `define(`_DPO_', defn(`_DPO_') O DaemonPortOptions=`$1')') define(`_CPO_',`') define(`CLIENT_OPTIONS', `define(`_CPO_', defn(`_CPO_') O ClientPortOptions=`$1')') define(`_MAIL_FILTERS_', `') define(`_MAIL_FILTERS_DEF', `') define(`MAIL_FILTER', `define(`_MAIL_FILTERS_', defn(`_MAIL_FILTERS_') X`'$1`, '`$2') define(`_MAIL_FILTERS_DEF', defn(`_MAIL_FILTERS_DEF')`X')') define(`INPUT_MAIL_FILTER', `MAIL_FILTER(`$1', `$2') ifelse(defn(`confINPUT_MAIL_FILTERS')X, `X', `define(`confINPUT_MAIL_FILTERS', $1)', `define(`confINPUT_MAIL_FILTERS', defn(`confINPUT_MAIL_FILTERS')`, '`$1')')') define(`_QUEUE_GROUP_', `') define(`QUEUE_GROUP', `define(`_QUEUE_GROUP_', defn(`_QUEUE_GROUP_') Q`'$1`, '`$2')') define(`CF_LEVEL', `10')dnl define(`VERSIONID', ``##### $1 #####'') define(`LOCAL_RULE_0', `divert(3)') dnl for UUCP... define(`LOCAL_UUCP', `divert(4)') define(`LOCAL_RULE_1', `divert(9)dnl ####################################### ### Ruleset 1 -- Sender Rewriting ### ####################################### Ssender=1 ') define(`LOCAL_RULE_2', `divert(9)dnl ########################################## ### Ruleset 2 -- Recipient Rewriting ### ########################################## Srecipient=2 ') define(`LOCAL_RULESETS', `divert(9) ') define(`LOCAL_SRV_FEATURES', `define(`_LOCAL_SRV_FEATURES_') ifdef(`_MAILER_DEFINED_',,`errprint(`*** WARNING: MAILER() should be before LOCAL_SRV_FEATURES ')') divert(9) SLocal_srv_features') define(`LOCAL_CLT_FEATURES', `define(`_LOCAL_CLT_FEATURES_') ifdef(`_MAILER_DEFINED_',,`errprint(`*** WARNING: MAILER() should be before LOCAL_CLT_FEATURES ')') divert(9) SLocal_clt_features') define(`LOCAL_TRY_TLS', `define(`_LOCAL_TRY_TLS_') ifdef(`_MAILER_DEFINED_',,`errprint(`*** WARNING: MAILER() should be before LOCAL_TRY_TLS ')') divert(9) SLocal_try_tls') define(`LOCAL_TLS_RCPT', `define(`_LOCAL_TLS_RCPT_') ifdef(`_MAILER_DEFINED_',,`errprint(`*** WARNING: MAILER() should be before LOCAL_TLS_RCPT ')') divert(9) SLocal_tls_rcpt') define(`LOCAL_TLS_CLIENT', `define(`_LOCAL_TLS_CLIENT_') ifdef(`_MAILER_DEFINED_',,`errprint(`*** WARNING: MAILER() should be before LOCAL_TLS_CLIENT ')') divert(9) SLocal_tls_client') define(`LOCAL_TLS_SERVER', `define(`_LOCAL_TLS_SERVER_') ifdef(`_MAILER_DEFINED_',,`errprint(`*** WARNING: MAILER() should be before LOCAL_TLS_SERVER ')') divert(9) SLocal_tls_server') define(`LOCAL_RULE_3', `divert(2)') define(`LOCAL_CONFIG', `divert(6)') define(`MAILER_DEFINITIONS', `divert(7)') define(`LOCAL_DNSBL', `divert(8)') define(`LOCAL_NET_CONFIG', `define(`_LOCAL_RULES_', 1)divert(1)') define(`UUCPSMTP', `R DOL(*) < @ $1 .UUCP > DOL(*) DOL(1) < @ $2 > DOL(2)') define(`CONCAT', `$1$2$3$4$5$6$7') define(`DOL', ``$'$1') define(`SITECONFIG', `CONCAT(D, $3, $2) define(`_CLASS_$3_', `')dnl ifelse($3, U, C{w}$2 $2.UUCP, `dnl') define(`SITE', `ifelse(CONCAT($'2`, $3), SU, CONCAT(CY, $'1`), CONCAT(C, $3, $'1`))') sinclude(_CF_DIR_`'siteconfig/$1.m4)') define(`EXPOSED_USER', `PUSHDIVERT(5)C{E}$1 POPDIVERT`'dnl`'') define(`EXPOSED_USER_FILE', `PUSHDIVERT(5)F{E}$1 POPDIVERT`'dnl`'') define(`LOCAL_USER', `PUSHDIVERT(5)C{L}$1 POPDIVERT`'dnl`'') define(`LOCAL_USER_FILE', `PUSHDIVERT(5)F{L}$1 POPDIVERT`'dnl`'') define(`MASQUERADE_AS', `define(`MASQUERADE_NAME', $1)') define(`MASQUERADE_DOMAIN', `PUSHDIVERT(5)C{M}$1 POPDIVERT`'dnl`'') define(`MASQUERADE_EXCEPTION', `PUSHDIVERT(5)C{N}$1 POPDIVERT`'dnl`'') define(`MASQUERADE_DOMAIN_FILE', `PUSHDIVERT(5)F{M}$1 POPDIVERT`'dnl`'') define(`MASQUERADE_EXCEPTION_FILE', `PUSHDIVERT(5)F{N}$1 POPDIVERT`'dnl`'') define(`LOCAL_DOMAIN', `PUSHDIVERT(5)C{w}$1 POPDIVERT`'dnl`'') define(`CANONIFY_DOMAIN', `PUSHDIVERT(5)C{Canonify}$1 POPDIVERT`'dnl`'') define(`CANONIFY_DOMAIN_FILE', `PUSHDIVERT(5)F{Canonify}$1 POPDIVERT`'dnl`'') define(`GENERICS_DOMAIN', `PUSHDIVERT(5)C{G}$1 POPDIVERT`'dnl`'') define(`GENERICS_DOMAIN_FILE', `PUSHDIVERT(5)F{G}$1 POPDIVERT`'dnl`'') define(`LDAPROUTE_DOMAIN', `PUSHDIVERT(5)C{LDAPRoute}$1 POPDIVERT`'dnl`'') define(`LDAPROUTE_DOMAIN_FILE', `PUSHDIVERT(5)F{LDAPRoute}$1 POPDIVERT`'dnl`'') define(`LDAPROUTE_EQUIVALENT', `PUSHDIVERT(5)C{LDAPRouteEquiv}$1 POPDIVERT`'dnl`'') define(`LDAPROUTE_EQUIVALENT_FILE', `PUSHDIVERT(5)F{LDAPRouteEquiv}$1 POPDIVERT`'dnl`'') define(`VIRTUSER_DOMAIN', `PUSHDIVERT(5)C{VirtHost}$1 define(`_VIRTHOSTS_') POPDIVERT`'dnl`'') define(`VIRTUSER_DOMAIN_FILE', `PUSHDIVERT(5)F{VirtHost}$1 define(`_VIRTHOSTS_') POPDIVERT`'dnl`'') define(`RELAY_DOMAIN', `PUSHDIVERT(5)C{R}$1 POPDIVERT`'dnl`'') define(`RELAY_DOMAIN_FILE', `PUSHDIVERT(5)F{R}$1 POPDIVERT`'dnl`'') define(`TRUST_AUTH_MECH', `_DEFIFNOT(`_USE_AUTH_',`1')PUSHDIVERT(5)C{TrustAuthMech}$1 POPDIVERT`'dnl`'') define(`_OPTINS', `ifdef(`$1', `$2$1$3')') m4wrap(`include(_CF_DIR_`m4/proto.m4')') # default location for files ifdef(`MAIL_SETTINGS_DIR', , `define(`MAIL_SETTINGS_DIR', `/etc/mail/')') # set our default hashed database type define(`DATABASE_MAP_TYPE', `hash') # set up default values for options define(`ALIAS_FILE', `MAIL_SETTINGS_DIR`'aliases') define(`confMAILER_NAME', ``MAILER-DAEMON'') define(`confFROM_LINE', `From $g $d') define(`confOPERATORS', `.:%@!^/[]+') define(`confSMTP_LOGIN_MSG', `$j Sendmail $v/$Z; $b') define(`_REC_AUTH_', `$.$?{auth_type}(authenticated') define(`_REC_FULL_AUTH_', `$.$?{auth_type}(user=${auth_authen} $?{auth_author}author=${auth_author} $.mech=${auth_type}') define(`_REC_HDR_', `$?sfrom $s $.$?_($?s$|from $.$_)') define(`_REC_END_', `for $u; $|; $.$b') define(`_REC_TLS_', `(version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u') define(`_REC_BY_', `$.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version}') define(`confRECEIVED_HEADER', `_REC_HDR_ _REC_AUTH_$?{auth_ssf} bits=${auth_ssf}$.) _REC_BY_ _REC_TLS_ _REC_END_') define(`confSEVEN_BIT_INPUT', `False') define(`confALIAS_WAIT', `10') define(`confMIN_FREE_BLOCKS', `100') define(`confBLANK_SUB', `.') define(`confCON_EXPENSIVE', `False') define(`confDELIVERY_MODE', `background') define(`confTEMP_FILE_MODE', `0600') define(`confMCI_CACHE_SIZE', `2') define(`confMCI_CACHE_TIMEOUT', `5m') define(`confUSE_ERRORS_TO', `False') define(`confLOG_LEVEL', `9') define(`confCHECK_ALIASES', `False') define(`confOLD_STYLE_HEADERS', `True') define(`confPRIVACY_FLAGS', `authwarnings') define(`confSAFE_QUEUE', `True') define(`confTO_QUEUERETURN', `5d') define(`confTO_QUEUEWARN', `4h') define(`confTIME_ZONE', `USE_SYSTEM') define(`confCW_FILE', `MAIL_SETTINGS_DIR`'local-host-names') define(`confMIME_FORMAT_ERRORS', `True') define(`confFORWARD_PATH', `$z/.forward.$w:$z/.forward') define(`confCR_FILE', `-o MAIL_SETTINGS_DIR`'relay-domains') define(`confMILTER_MACROS_CONNECT', ``j, _, {daemon_name}, {if_name}, {if_addr}'') define(`confMILTER_MACROS_HELO', ``{tls_version}, {cipher}, {cipher_bits}, {cert_subject}, {cert_issuer}'') define(`confMILTER_MACROS_ENVFROM', ``i, {auth_type}, {auth_authen}, {auth_ssf}, {auth_author}, {mail_mailer}, {mail_host}, {mail_addr}'') define(`confMILTER_MACROS_ENVRCPT', ``{rcpt_mailer}, {rcpt_host}, {rcpt_addr}'') define(`confMILTER_MACROS_EOM', `{msg_id}') divert(0)dnl VERSIONID(`$Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $') sendmail-8.18.1/cf/m4/version.m40000644000372400037240000000110514556365350015623 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2016 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # VERSIONID(`$Id: version.m4,v 8.237 2014-01-27 12:55:17 ca Exp $') # divert(0) # Configuration version number DZ8.18.1`'ifdef(`confCF_VERSION', `/confCF_VERSION') sendmail-8.18.1/cf/feature/0000755000372400037240000000000014556365434015015 5ustar xbuildxbuildsendmail-8.18.1/cf/feature/ratecontrol.m40000644000372400037240000000221314556365350017606 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2003, 2004 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: ratecontrol.m4,v 1.6 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_ACCESS_TABLE_', ` define(`_RATE_CONTROL_', `1') ifelse(defn(`_ARG_'), `', `', strcasecmp(defn(`_ARG_'), `nodelay'), `1', `ifdef(`_DELAY_CHECKS_', ` define(`_RATE_CONTROL_IMMEDIATE_', `1') define(`_CONTROL_IMMEDIATE_', `1') ', `errprint(`*** ERROR: FEATURE(`ratecontrol', `nodelay') requires FEATURE(`delay_checks')')' )', `errprint(`*** ERROR: unknown parameter '"defn(`_ARG_')"` for FEATURE(`ratecontrol')')') define(`_FFR_SRCHLIST_A', `1') ifelse(len(X`'_ARG2_), `1', `', _ARG2_, `terminate', `define(`_RATE_CONTROL_REPLY', `421')', `errprint(`*** ERROR: FEATURE(`ratecontrol'): unknown argument '"_ARG2_" )' ) ', `errprint(`*** ERROR: FEATURE(`ratecontrol') requires FEATURE(`access_db') ')') ifdef(`_RATE_CONTROL_REPLY',,`define(`_RATE_CONTROL_REPLY', `452')') sendmail-8.18.1/cf/feature/accept_unqualified_senders.m40000644000372400037240000000063514556365350022630 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: accept_unqualified_senders.m4,v 8.7 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_ACCEPT_UNQUALIFIED_SENDERS_', 1) sendmail-8.18.1/cf/feature/msp.m40000644000372400037240000000564514556365350016065 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000-2002, 2004 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0)dnl VERSIONID(`$Id: msp.m4,v 1.34 2013-11-22 20:51:11 ca Exp $') divert(-1) undefine(`ALIAS_FILE') define(`confDELIVERY_MODE', `i') define(`confUSE_MSP', `True') define(`confFORWARD_PATH', `') define(`confPRIVACY_FLAGS', `goaway,noetrn,restrictqrun') define(`confDONT_PROBE_INTERFACES', `True') dnl --------------------------------------------- dnl run as this user (even if called by root) ifdef(`confRUN_AS_USER',,`define(`confRUN_AS_USER', `smmsp')') ifdef(`confTRUSTED_USER',,`define(`confTRUSTED_USER', `ifelse(index(confRUN_AS_USER,`:'), -1, `confRUN_AS_USER', `substr(confRUN_AS_USER,0,index(confRUN_AS_USER,`:'))')')') dnl --------------------------------------------- dnl This queue directory must have the same group dnl as sendmail and it must be group-writable. dnl notice: do not test for QUEUE_DIR, it is set in some ostype/*.m4 files ifdef(`MSP_QUEUE_DIR', `define(`QUEUE_DIR', `MSP_QUEUE_DIR')', `define(`QUEUE_DIR', `/var/spool/clientmqueue')') define(`_MTA_HOST_', ifelse(defn(`_ARG_'), `', `[localhost]', `_ARG_')) define(`_MSP_FQHN_',`dnl used to qualify addresses ifdef(`MASQUERADE_NAME', ifdef(`_MASQUERADE_ENVELOPE_', `$M', `$j'), `$j')') ifelse(_ARG2_, `MSA', `define(`RELAY_MAILER_ARGS', `TCP $h 587')') dnl --------------------------------------------- ifdef(`confPID_FILE', `dnl', `define(`confPID_FILE', QUEUE_DIR`/sm-client.pid')') define(`confQUEUE_FILE_MODE', `0660')dnl ifdef(`STATUS_FILE', `define(`_F_', `define(`_b_', index(STATUS_FILE, `sendmail.st'))ifelse(_b_, `-1', `STATUS_FILE', `substr(STATUS_FILE, 0, _b_)sm-client.st')') define(`STATUS_FILE', _F_) undefine(`_b_') undefine(`_F_')', `define(`STATUS_FILE', QUEUE_DIR`/sm-client.st')') FEATURE(`no_default_msa')dnl ifelse(defn(`_DPO_'), `', `DAEMON_OPTIONS(`Name=NoMTA, Addr=127.0.0.1, M=E')dnl') define(`_DEF_LOCAL_MAILER_FLAGS', `')dnl define(`_DEF_LOCAL_SHELL_FLAGS', `')dnl define(`LOCAL_MAILER_PATH', `[IPC]')dnl define(`LOCAL_MAILER_FLAGS', `lmDFMuXkw5')dnl define(`LOCAL_MAILER_ARGS', `TCP $h')dnl define(`LOCAL_MAILER_DSN_DIAGNOSTIC_CODE', `SMTP')dnl define(`LOCAL_SHELL_PATH', `[IPC]')dnl define(`LOCAL_SHELL_FLAGS', `lmDFMuXk5')dnl define(`LOCAL_SHELL_ARGS', `TCP $h')dnl MODIFY_MAILER_FLAGS(`SMTP', `+k5')dnl MODIFY_MAILER_FLAGS(`ESMTP', `+k5')dnl MODIFY_MAILER_FLAGS(`DSMTP', `+k5')dnl MODIFY_MAILER_FLAGS(`SMTP8', `+k5')dnl MODIFY_MAILER_FLAGS(`RELAY', `+k')dnl MAILER(`local')dnl MAILER(`smtp')dnl LOCAL_CONFIG D{MTAHost}_MTA_HOST_ LOCAL_RULESETS SLocal_localaddr R$+ $: $>ParseRecipient $1 R$* < @ $+ > $* $#relay $@ ${MTAHost} $: $1 < @ $2 > $3 ifdef(`_USE_DECNET_SYNTAX_', `# DECnet R$+ :: $+ $#relay $@ ${MTAHost} $: $1 :: $2', `dnl') R$* $#relay $@ ${MTAHost} $: $1 < @ _MSP_FQHN_ > sendmail-8.18.1/cf/feature/delay_checks.m40000644000372400037240000000140314556365350017670 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: delay_checks.m4,v 8.9 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_DELAY_CHECKS_', 1) ifelse(defn(`_ARG_'), `', `', lower(substr(_ARG_,0,1)), `f', `define(`_SPAM_FRIEND_', 1) define(`_SPAM_FH_', 1)', lower(substr(_ARG_,0,1)), `h', `define(`_SPAM_HATER_', 1) define(`_SPAM_FH_', 1)', `errprint(`*** ERROR: illegal argument _ARG_ for FEATURE(delay_checks) ') ') dnl be backward compatible by default ifelse(len(X`'_ARG2_), `1', `define(`_DELAY_COMPAT_8_10_', 1)', `') sendmail-8.18.1/cf/feature/nouucp.m40000644000372400037240000000152014556365350016563 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: nouucp.m4,v 8.14 2013-11-22 20:51:11 ca Exp $') divert(-1) ifelse(defn(`_ARG_'), `', `errprint(`*** ERROR: missing argument for FEATURE(nouucp): use `reject' or `nospecial'. See cf/README. ')define(`_NO_UUCP_', `e')', substr(_ARG_,0,1), `r', `define(`_NO_UUCP_', `r')', substr(_ARG_,0,1), `n', `define(`_NO_UUCP_', `n')', `errprint(`*** ERROR: illegal argument _ARG_ for FEATURE(nouucp) ') ') sendmail-8.18.1/cf/feature/smrsh.m40000644000372400037240000000140314556365350016406 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: smrsh.m4,v 8.15 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_MAILER_local_', `errprint(`*** FEATURE(smrsh) must occur before MAILER(local) ')')dnl define(`LOCAL_SHELL_PATH', ifelse(defn(`_ARG_'), `', ifdef(`confEBINDIR', confEBINDIR, `/usr/libexec')`/smrsh', _ARG_)) _DEFIFNOT(`LOCAL_SHELL_ARGS', `smrsh -c $u') sendmail-8.18.1/cf/feature/queuegroup.m40000644000372400037240000000116014556365350017453 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: queuegroup.m4,v 1.5 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_ACCESS_TABLE_', `', `errprint(`*** ERROR: FEATURE(`queuegroup') requires FEATURE(`access_db') ')') LOCAL_RULESETS Squeuegroup R< $+ > $1 R $+ @ $+ $: $>SearchList $| <> ifelse(len(X`'_ARG_),`1', `R $@', `R $# _ARG_') R<$+> $# $1 sendmail-8.18.1/cf/feature/sts.m40000644000372400037240000000113114556365350016061 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2020 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # divert(-1) define(`_MTA_STS_', `') define(`_NEED_MACRO_MAP_', `1') ifelse(_ARG2_,`NO_SAN_TST',`',`define(`_STS_SAN', `1')') LOCAL_CONFIG O StrictTransportSecurity=true ifelse(_ARG2_,`NO_SAN_TST',`',`O SetCertAltnames=true') Ksts ifelse(defn(`_ARG_'), `', socket -d5 -T inet:5461@127.0.0.1, defn(`_NARG_'), `', `_ARG_', `_NARG_') sendmail-8.18.1/cf/feature/no_default_msa.m40000644000372400037240000000057614556365350020244 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: no_default_msa.m4,v 8.3 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_NO_MSA_', `1') sendmail-8.18.1/cf/feature/accept_unresolvable_domains.m40000644000372400037240000000064014556365350023006 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: accept_unresolvable_domains.m4,v 8.11 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_ACCEPT_UNRESOLVABLE_DOMAINS_', 1) sendmail-8.18.1/cf/feature/badmx.m40000644000372400037240000000111214556365350016342 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2006 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: badmx.m4,v 1.2 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_BADMX_CHK_', 1) LOCAL_CONFIG Kmxlist bestmx -z: -T Kbadmx regex -a ^(([0-9]{1,3}\.){3}[0-9]){0,1}\.$ KdnsA dns -R A -a. -T KBadMXIP regex -a ifelse(defn(`_ARG_'), `', `^(127\.|10\.|0\.0\.0\.0)', `_ARG_') sendmail-8.18.1/cf/feature/domaintable.m40000644000372400037240000000176114556365350017540 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: domaintable.m4,v 8.25 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_DOMAIN_TABLE_', `') LOCAL_CONFIG # Domain table (adding domains) Kdomaintable ifelse(defn(`_ARG_'), `', DATABASE_MAP_TYPE MAIL_SETTINGS_DIR`domaintable', defn(`_ARG_'), `LDAP', `ldap -1 -v sendmailMTAMapValue,sendmailMTAMapSearch:FILTER:sendmailMTAMapObject,sendmailMTAMapURL:URL:sendmailMTAMapObject -k (&(objectClass=sendmailMTAMapObject)(|(sendmailMTACluster=${sendmailMTACluster})(sendmailMTAHost=$j))(sendmailMTAMapName=domain)(sendmailMTAKey=%0))', `_ARG_') sendmail-8.18.1/cf/feature/relay_based_on_MX.m40000644000372400037240000000075414556365350020634 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: relay_based_on_MX.m4,v 8.12 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_RELAY_MX_SERVED_', 1) LOCAL_CONFIG # MX map (to allow relaying to hosts that we MX for) Kmxserved bestmx -z: -T sendmail-8.18.1/cf/feature/preserve_luser_host.m40000644000372400037240000000104614556365350021357 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000, 2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: preserve_luser_host.m4,v 1.4 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`LUSER_RELAY', `', `errprint(`*** LUSER_RELAY should be defined before FEATURE(`preserve_luser_host') ')') define(`_PRESERVE_LUSER_HOST_', `1') define(`_NEED_MACRO_MAP_', `1') sendmail-8.18.1/cf/feature/blacklist_recipients.m40000644000372400037240000000076714556365350021463 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: blacklist_recipients.m4,v 8.14 2013-11-22 20:51:11 ca Exp $') divert(-1) errprint(`WARNING: FEATURE(blacklist_recipients) is deprecated; use FEATURE(blocklist_recipients.m4). ') FEATURE(`blocklist_recipients') sendmail-8.18.1/cf/feature/genericstable.m40000644000372400037240000000177614556365350020076 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: genericstable.m4,v 8.24 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_GENERICS_TABLE_', `') LOCAL_CONFIG # Generics table (mapping outgoing addresses) Kgenerics ifelse(defn(`_ARG_'), `', DATABASE_MAP_TYPE MAIL_SETTINGS_DIR`genericstable', defn(`_ARG_'), `LDAP', `ldap -1 -v sendmailMTAMapValue,sendmailMTAMapSearch:FILTER:sendmailMTAMapObject,sendmailMTAMapURL:URL:sendmailMTAMapObject -k (&(objectClass=sendmailMTAMapObject)(|(sendmailMTACluster=${sendmailMTACluster})(sendmailMTAHost=$j))(sendmailMTAMapName=generics)(sendmailMTAKey=%0))', `_ARG_') sendmail-8.18.1/cf/feature/local_lmtp.m40000644000372400037240000000143314556365350017403 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2000, 2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: local_lmtp.m4,v 8.18 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_MAILER_local_', `errprint(`*** FEATURE(local_lmtp) must occur before MAILER(local) ')')dnl define(`LOCAL_MAILER_PATH', ifelse(defn(`_ARG_'), `', ifdef(`confEBINDIR', confEBINDIR, `/usr/libexec')`/mail.local', _ARG_)) define(`LOCAL_MAILER_FLAGS', `PSXmnz9') define(`LOCAL_MAILER_ARGS', ifelse(len(X`'_ARG2_), `1', `mail.local -l', _ARG2_)) define(`LOCAL_MAILER_DSN_DIAGNOSTIC_CODE', `SMTP') define(`_LOCAL_LMTP_', `1') sendmail-8.18.1/cf/feature/generics_entire_domain.m40000644000372400037240000000061714556365350021754 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: generics_entire_domain.m4,v 8.2 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_GENERICS_ENTIRE_DOMAIN_', 1) sendmail-8.18.1/cf/feature/loose_relay_check.m40000644000372400037240000000061314556365350020726 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: loose_relay_check.m4,v 8.7 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_LOOSE_RELAY_CHECK_', 1) sendmail-8.18.1/cf/feature/bitdomain.m40000644000372400037240000000174414556365350017230 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: bitdomain.m4,v 8.31 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_BITDOMAIN_TABLE_', `') LOCAL_CONFIG # BITNET mapping table Kbitdomain ifelse(defn(`_ARG_'), `', DATABASE_MAP_TYPE MAIL_SETTINGS_DIR`bitdomain', defn(`_ARG_'), `LDAP', `ldap -1 -v sendmailMTAMapValue,sendmailMTAMapSearch:FILTER:sendmailMTAMapObject,sendmailMTAMapURL:URL:sendmailMTAMapObject -k (&(objectClass=sendmailMTAMapObject)(|(sendmailMTACluster=${sendmailMTACluster})(sendmailMTAHost=$j))(sendmailMTAMapName=bitdomain)(sendmailMTAKey=%0))', `_ARG_') sendmail-8.18.1/cf/feature/virtusertable.m40000644000372400037240000000177314556365350020157 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: virtusertable.m4,v 8.24 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_VIRTUSER_TABLE_', `') LOCAL_CONFIG # Virtual user table (maps incoming users) Kvirtuser ifelse(defn(`_ARG_'), `', DATABASE_MAP_TYPE MAIL_SETTINGS_DIR`virtusertable', defn(`_ARG_'), `LDAP', `ldap -1 -v sendmailMTAMapValue,sendmailMTAMapSearch:FILTER:sendmailMTAMapObject,sendmailMTAMapURL:URL:sendmailMTAMapObject -k (&(objectClass=sendmailMTAMapObject)(|(sendmailMTACluster=${sendmailMTACluster})(sendmailMTAHost=$j))(sendmailMTAMapName=virtuser)(sendmailMTAKey=%0))', `_ARG_') sendmail-8.18.1/cf/feature/authinfo.m40000644000372400037240000000154414556365350017075 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: authinfo.m4,v 1.10 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_AUTHINFO_TABLE_', `') LOCAL_CONFIG # authinfo list database: contains info for authentication as client Kauthinfo ifelse(defn(`_ARG_'), `', DATABASE_MAP_TYPE MAIL_SETTINGS_DIR`authinfo', defn(`_ARG_'), `LDAP', `ldap -1 -v sendmailMTAMapValue,sendmailMTAMapSearch:FILTER:sendmailMTAMapObject,sendmailMTAMapURL:URL:sendmailMTAMapObject -k (&(objectClass=sendmailMTAMapObject)(|(sendmailMTACluster=${sendmailMTACluster})(sendmailMTAHost=$j))(sendmailMTAMapName=authinfo)(sendmailMTAKey=%0))', `_ARG_') sendmail-8.18.1/cf/feature/blocklist_recipients.m40000644000372400037240000000077614556365350021501 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: blocklist_recipients.m4,v 8.14 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_ACCESS_TABLE_', `define(`_BLOCKLIST_RCPT_', 1)', `errprint(`*** ERROR: FEATURE(blocklist_recipients) requires FEATURE(access_db) ')') sendmail-8.18.1/cf/feature/enhdnsbl.m40000644000372400037240000000411214556365350017047 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000-2002, 2005-2007 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ifelse(defn(`_ARG_'), `', `errprint(`*** ERROR: missing argument for FEATURE(`enhdnsbl')')') divert(0) ifdef(`_EDNSBL_R_',`dnl',`dnl VERSIONID(`$Id: enhdnsbl.m4,v 1.13 2013-11-22 20:51:11 ca Exp $') LOCAL_CONFIG define(`_EDNSBL_R_',`')dnl # map for enhanced DNS based blocklist lookups Kednsbl dns -R A -T -z -Z32 -r`'ifdef(`EDNSBL_TO',`EDNSBL_TO',`5') ') divert(-1) define(`_EDNSBL_SRV_', `_ARG_')dnl define(`_EDNSBL_MSG_', `ifelse(len(X`'_ARG2_),`1',`"550 Rejected: " $`'&{client_addr} " listed at '_EDNSBL_SRV_`"', X`'_ARG2_,`Xquarantine',`_EDNSBL_SRV_', `_ARG2_')')dnl define(`_EDNSBL_MSG_TMP_', `ifelse(_ARG3_,`t',`"451 Temporary lookup failure of " $`'&{client_addr} " at '_EDNSBL_SRV_`"',`_ARG3_')')dnl define(`_EDNSBL_MATCH_', `ifelse(len(X`'_ARG4_),`1',`$`'+',_ARG4_)')dnl define(`_EDNSBL_ACTION_', `ifelse(X`'_ARG2_,`Xquarantine',`$`'#error $`'@ quarantine', X`'_ARG2_,`Xdiscard',`$`'#discard', `$`'#error $`'@ 5.7.1')')dnl divert(8) # DNS based IP address spam list _EDNSBL_SRV_ R$* $: $&{client_addr} R$-.$-.$-.$- $: $(ednsbl $4.$3.$2.$1._EDNSBL_SRV_. $: OK $) ROK $: OKSOFAR ifelse(len(X`'_ARG3_),`1', `R$+ $: TMPOK', `R$+ $#error $@ 4.4.3 $: _EDNSBL_MSG_TMP_') R$* patsubst(_EDNSBL_MATCH_, `\.$', `') $* _EDNSBL_ACTION_ $: _EDNSBL_MSG_ ifelse(len(X`'_ARG5_),`1',`dnl', `R$* patsubst(_ARG5_, `\.$', `') $* _EDNSBL_ACTION_ $: _EDNSBL_MSG_') ifelse(len(X`'_ARG6_),`1',`dnl', `R$* patsubst(_ARG6_, `\.$', `') $* _EDNSBL_ACTION_ $: _EDNSBL_MSG_') ifelse(len(X`'_ARG7_),`1',`dnl', `R$* patsubst(_ARG7_, `\.$', `') $* _EDNSBL_ACTION_ $: _EDNSBL_MSG_') ifelse(len(X`'_ARG8_),`1',`dnl', `R$* patsubst(_ARG8_, `\.$', `') $* _EDNSBL_ACTION_ $: _EDNSBL_MSG_') ifelse(len(X`'_ARG9_),`1',`dnl', `R$* patsubst(_ARG9_, `\.$', `') $* _EDNSBL_ACTION_ $: _EDNSBL_MSG_') divert(-1) sendmail-8.18.1/cf/feature/masquerade_entire_domain.m40000644000372400037240000000106514556365350022302 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: masquerade_entire_domain.m4,v 8.10 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_MASQUERADE_ENTIRE_DOMAIN_', 1) sendmail-8.18.1/cf/feature/conncontrol.m40000644000372400037240000000221314556365350017610 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2003, 2004 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: conncontrol.m4,v 1.5 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_ACCESS_TABLE_', ` define(`_CONN_CONTROL_', `1') ifelse(defn(`_ARG_'), `', `', strcasecmp(defn(`_ARG_'), `nodelay'), `1', `ifdef(`_DELAY_CHECKS_', ` define(`_CONN_CONTROL_IMMEDIATE_', `1') define(`_CONTROL_IMMEDIATE_', `1') ', `errprint(`*** ERROR: FEATURE(`conncontrol', `nodelay') requires FEATURE(`delay_checks')')' )', `errprint(`*** ERROR: unknown parameter '"defn(`_ARG_')"` for FEATURE(`conncontrol')')') define(`_FFR_SRCHLIST_A', `1') ifelse(len(X`'_ARG2_), `1', `', _ARG2_, `terminate', `define(`_CONN_CONTROL_REPLY', `421')', `errprint(`*** ERROR: FEATURE(`conncontrol'): unknown argument '"_ARG2_" )' ) ', `errprint(`*** ERROR: FEATURE(`conncontrol') requires FEATURE(`access_db') ')') ifdef(`_CONN_CONTROL_REPLY',,`define(`_CONN_CONTROL_REPLY', `452')') sendmail-8.18.1/cf/feature/relay_local_from.m40000644000372400037240000000111714556365350020565 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: relay_local_from.m4,v 8.7 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_RELAY_LOCAL_FROM_', 1) errprint(`*** WARNING: FEATURE(`relay_local_from') may cause your system to act as open relay. Use SMTP AUTH or STARTTLS instead. If you cannot use those, try FEATURE(`relay_mail_from'). ') sendmail-8.18.1/cf/feature/uucpdomain.m40000644000372400037240000000173614556365350017427 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: uucpdomain.m4,v 8.30 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_UUDOMAIN_TABLE_', `') LOCAL_CONFIG # UUCP domain table Kuudomain ifelse(defn(`_ARG_'), `', DATABASE_MAP_TYPE MAIL_SETTINGS_DIR`uudomain', defn(`_ARG_'), `LDAP', `ldap -1 -v sendmailMTAMapValue,sendmailMTAMapSearch:FILTER:sendmailMTAMapObject,sendmailMTAMapURL:URL:sendmailMTAMapObject -k (&(objectClass=sendmailMTAMapObject)(|(sendmailMTACluster=${sendmailMTACluster})(sendmailMTAHost=$j))(sendmailMTAMapName=uucpdomain)(sendmailMTAKey=%0))', `_ARG_') sendmail-8.18.1/cf/feature/virtuser_entire_domain.m40000644000372400037240000000061714556365350022040 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: virtuser_entire_domain.m4,v 8.3 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_VIRTUSER_ENTIRE_DOMAIN_', 1) sendmail-8.18.1/cf/feature/always_add_domain.m40000644000372400037240000000126614556365350020720 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: always_add_domain.m4,v 8.12 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_MAILER_local_', `errprint(`*** MAILER(`local') must appear after FEATURE(`always_add_domain')') ')dnl define(`_ALWAYS_ADD_DOMAIN_', ifelse(len(X`'_ARG_),`1',`',_ARG_)) sendmail-8.18.1/cf/feature/check_cert_altnames.m40000644000372400037240000000065314556365350021236 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2019 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0)dnl VERSIONID(`$Id: check_cert_altnames.m4 1.0 2019-01-01 01:01:01 ca Exp $') divert(-1) define(`_FFR_TLS_ALTNAMES', `1') LOCAL_CONFIG O SetCertAltnames=true sendmail-8.18.1/cf/feature/tls_session_features.m40000644000372400037240000000061314556365350021517 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2015 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: tls_session_features.m4,v 8.1 2015-02-25 20:51:11 ca Exp $') divert(-1) define(`_TLS_SESSION_FEATURES_', 1) sendmail-8.18.1/cf/feature/use_client_ptr.m40000644000372400037240000000076714556365350020305 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2004 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: use_client_ptr.m4,v 1.2 2013-11-22 20:51:11 ca Exp $') divert(-1) # if defined, check_relay will use {client_ptr} instead of whatever # is passed in as its first argument. define(`_USE_CLIENT_PTR_', `1') divert(0) sendmail-8.18.1/cf/feature/relay_mail_from.m40000644000372400037240000000127214556365350020417 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: relay_mail_from.m4,v 8.4 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_ACCESS_TABLE_', `define(`_RELAY_DB_FROM_', 1) ifelse(_ARG_,`domain',`define(`_RELAY_DB_FROM_DOMAIN_', 1)')', `errprint(`*** ERROR: FEATURE(`relay_mail_from') requires FEATURE(`access_db') ')') errprint(`*** WARNING: FEATURE(`relay_mail_from') may cause your system to act as open relay. Use SMTP AUTH or STARTTLS instead. ') sendmail-8.18.1/cf/feature/promiscuous_relay.m40000644000372400037240000000105514556365350021041 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: promiscuous_relay.m4,v 8.13 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_PROMISCUOUS_RELAY_', 1) errprint(`*** WARNING: FEATURE(`promiscuous_relay') configures your system as open relay. Do NOT use it on a server that is connected to the Internet! ') sendmail-8.18.1/cf/feature/prefixmod.m40000644000372400037240000000127714556365350017260 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2014 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(-1) # Arguments: # 1: prefix to match; must be one or more tokens # (this is not a "substring" match) # 2: flags to set # NYI: 3: replacement for 1 (empty for now) ifelse(defn(`_ARG_'), `', `errprint(`Feature "prefixmod" requires argument')', `define(`_PREFIX_MOD_', _ARG_)') ifelse(len(X`'_ARG2_),`1', `errprint(`Feature "prefixmod" requires two arguments')', `define(`_PREFIX_FLAGS_', _ARG2_)') define(`_NEED_MACRO_MAP_', `1') sendmail-8.18.1/cf/feature/relay_hosts_only.m40000644000372400037240000000061214556365350020650 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: relay_hosts_only.m4,v 8.11 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_RELAY_HOSTS_ONLY_', 1) sendmail-8.18.1/cf/feature/bcc.m40000644000372400037240000000514214556365350016005 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2014 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(-1) # Arguments: # 1: Map to use # - empty/none: default map bcctable # - `access': to use access_db (with bcc: as tag) # - map definition # The map contains domain names and the RHS should be simply "ok". # If the access map is used, then its lookup algorithm is used. # Otherwise: # domain ok # matches anything@domain # .domain ok # matches any subdomain, e.g., l@sub.domain and l@sub.dom.domain # On a match, the original address will be used as bcc address unless # argument 3 is set. # 2: Name of host ([mailer:]host) # 3: Default bcc address: if set, this will be always used. # Only one of 2/3 can be empty. # Note: if Bcc address is used then only one copy will be sent! # (due to duplicate elimination) # 4: Map definition for canonicalRcpt map of address rewriting to # apply to the added bcc envelope recipients. # The option -T is required to handle temporary map failures. # # The ruleset must return either # - an e-mail address (user@dom.ain) which is then added as "bcc" recipient. # - an empty string: do not add a "bcc" recipient, or # - $#error: fail the SMTP transaction (e.g., temporary lookup failure) # # This feature sets O AddBcc=true ifelse(lower(_ARG_),`access',`define(`_BCC_ACCESS_', `1')') define(`_ADD_BCC_', `1') ifdef(`_BCC_ACCESS_', `dnl ifdef(`_ACCESS_TABLE_', `', `errprint(`*** ERROR: FEATURE(`bcc') requires FEATURE(`access_db') ')')') ifdef(`_BCC_ACCESS_', `', ` LOCAL_CONFIG Kbcctable ifelse(defn(`_ARG_'), `', DATABASE_MAP_TYPE MAIL_SETTINGS_DIR`bcctable', `_ARG_')') LOCAL_CONFIG O AddBcc=true ifelse(len(X`'_ARG2_),`1', `', ` DA`'_ARG2_') ifelse(len(X`'_ARG4_), `1', `', `define(`_CANONIFY_BCC_', `1')dnl define(`_NEED_SMTPOPMODES_', `1')dnl # canonical address look up for AddBcc recipients KcanonicalRcpt _ARG4_ ')dnl LOCAL_RULESETS Sbcc R< $+ > $1 ifdef(`_BCC_ACCESS_', `dnl R$+ @ $+ $: $1@$2 $| $>SearchList $| <>', `R$+ @ $+ $: $1@$2 $| $>BCC $2') R$* $| $@ R$* $| $* $: ifelse(len(X`'_ARG3_),`1', `$1', `_ARG3_') ifdef(`_CANONIFY_BCC_', `dnl R$+ @ $+ $: $1@$2 $| <$(canonicalRcpt $1 @ $2 $: $)> R$* $| <> $@ R$* $| <$* > $#error $@ 4.3.0 $: _TMPFMSG_(`BCC') R$* $| <$+> $@ $2 map matched? ') ifdef(`_BCC_ACCESS_', `', ` SBCC R$+ $: $1 < $(bcctable $1 $: ? $) > R$- . $+ $: $2 < $(bcctable .$2 $: ? $) > R$- . $+ $: $>BCC $2 R$* <$*> $: <$2> ') sendmail-8.18.1/cf/feature/mailertable.m40000644000372400037240000000176514556365350017546 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: mailertable.m4,v 8.26 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_MAILER_TABLE_', `') LOCAL_CONFIG # Mailer table (overriding domains) Kmailertable ifelse(defn(`_ARG_'), `', DATABASE_MAP_TYPE MAIL_SETTINGS_DIR`mailertable', defn(`_ARG_'), `LDAP', `ldap -1 -v sendmailMTAMapValue,sendmailMTAMapSearch:FILTER:sendmailMTAMapObject,sendmailMTAMapURL:URL:sendmailMTAMapObject -k (&(objectClass=sendmailMTAMapObject)(|(sendmailMTACluster=${sendmailMTACluster})(sendmailMTAHost=$j))(sendmailMTAMapName=mailer)(sendmailMTAKey=%0))', `_ARG_') sendmail-8.18.1/cf/feature/stickyhost.m40000644000372400037240000000104214556365350017455 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: stickyhost.m4,v 8.10 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_STICKY_LOCAL_DOMAIN_', 1) sendmail-8.18.1/cf/feature/access_db.m40000644000372400037240000000431214556365350017162 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2002, 2004, 2006 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: access_db.m4,v 8.28 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_ACCESS_TABLE_', `') define(`_TAG_DELIM_', `:')dnl should be in OperatorChars ifelse(lower(_ARG2_),`skip',`define(`_ACCESS_SKIP_', `1')') ifelse(lower(_ARG2_),`lookupdotdomain',`define(`_LOOKUPDOTDOMAIN_', `1')') ifelse(lower(_ARG2_),`relaytofulladdress',`define(`_RELAY_FULL_ADDR_', `1')') ifelse(lower(_ARG3_),`skip',`define(`_ACCESS_SKIP_', `1')') ifelse(lower(_ARG3_),`lookupdotdomain',`define(`_LOOKUPDOTDOMAIN_', `1')') ifelse(lower(_ARG3_),`relaytofulladdress',`define(`_RELAY_FULL_ADDR_', `1')') ifelse(lower(_ARG4_),`skip',`define(`_ACCESS_SKIP_', `1')') ifelse(lower(_ARG4_),`lookupdotdomain',`define(`_LOOKUPDOTDOMAIN_', `1')') ifelse(lower(_ARG4_),`relaytofulladdress',`define(`_RELAY_FULL_ADDR_', `1')') define(`_ATMPF_', `')dnl dnl check whether arg contains -T`'_ATMPF_ dnl unless it is a sequence map ifelse(defn(`_ARG_'), `', `', defn(`_ARG_'), `LDAP', `', `ifelse(index(_ARG_, `sequence '), `0', `', `ifelse(index(_ARG_, _ATMPF_), `-1', `errprint(`*** WARNING: missing -T'_ATMPF_` in argument of FEATURE(`access_db',' defn(`_ARG_')`) ') define(`_ABP_', index(_ARG_, ` ')) define(`_NARG_', `substr(_ARG_, 0, _ABP_) -T'_ATMPF_` substr(_ARG_, _ABP_)') ') ') ') ifdef(`_GREET_PAUSE_', `errprint(`*** WARNING: FEATURE(`greet_pause') before FEATURE(`access_db') greet_pause will not use access_db!')') LOCAL_CONFIG # Access list database (for spam stomping) Kaccess ifelse(defn(`_ARG_'), `', DATABASE_MAP_TYPE -T`'_ATMPF_ MAIL_SETTINGS_DIR`access', defn(`_ARG_'), `LDAP', `ldap -T`'_ATMPF_ -1 -v sendmailMTAMapValue,sendmailMTAMapSearch:FILTER:sendmailMTAMapObject,sendmailMTAMapURL:URL:sendmailMTAMapObject -k (&(objectClass=sendmailMTAMapObject)(|(sendmailMTACluster=${sendmailMTACluster})(sendmailMTAHost=$j))(sendmailMTAMapName=access)(sendmailMTAKey=%0))', defn(`_NARG_'), `', `_ARG_', `_NARG_') sendmail-8.18.1/cf/feature/relay_entire_domain.m40000644000372400037240000000062014556365350021263 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: relay_entire_domain.m4,v 8.11 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_RELAY_ENTIRE_DOMAIN_', 1) sendmail-8.18.1/cf/feature/fips3.m40000644000372400037240000000065714556365350016310 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2023 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) define(`confOPENSSL_CNF', dnl ifelse(defn(`_ARG_'), `', `/etc/mail/fips.ossl', `_ARG_'))dnl ifelse(len(X`'_ARG2_),`1',`',`LOCAL_CONFIG EOPENSSL_MODULES=_ARG2_') sendmail-8.18.1/cf/feature/masquerade_envelope.m40000644000372400037240000000105314556365350021277 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: masquerade_envelope.m4,v 8.10 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_MASQUERADE_ENVELOPE_', 1) sendmail-8.18.1/cf/feature/block_bad_helo.m40000644000372400037240000000105014556365350020157 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2006 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0)dnl VERSIONID(`$Id: block_bad_helo.m4,v 1.2 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_BLOCK_BAD_HELO_', `')dnl RELAY_DOMAIN(`127.0.0.1')dnl RELAY_DOMAIN(`IPv6:0:0:0:0:0:0:0:1 IPv6:::1')dnl LOCAL_DOMAIN(`[127.0.0.1]')dnl LOCAL_DOMAIN(`[IPv6:0:0:0:0:0:0:0:1] [IPv6:::1]')dnl sendmail-8.18.1/cf/feature/allmasquerade.m40000644000372400037240000000136314556365350020077 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: allmasquerade.m4,v 8.14 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_MAILER_local_', `errprint(`*** MAILER(`local') must appear after FEATURE(`allmasquerade')') ')dnl ifdef(`_MAILER_uucp_', `errprint(`*** MAILER(`uucp') must appear after FEATURE(`allmasquerade')') ')dnl define(`_ALL_MASQUERADE_', 1) sendmail-8.18.1/cf/feature/mtamark.m40000644000372400037240000000221414556365350016707 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2004, 2005 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) ifdef(`_MTAMARK_R',`dnl',`dnl VERSIONID(`$Id: mtamark.m4,v 1.3 2013-11-22 20:51:11 ca Exp $') LOCAL_CONFIG define(`_MTAMARK_R',`')dnl # map for MTA mark Kmtamark dns -R TXT -a. -T -r`'ifdef(`MTAMARK_TO',`MTAMARK_TO',`5') ') divert(-1) define(`_MTAMARK_RR_', `ifelse(len(X`'_ARG3_),`1',`_perm._smtp._srv',`_ARG3_')')dnl define(`_MTAMARK_MSG_', `ifelse(len(X`'_ARG_),`1',`"550 Rejected: " $`'&{client_addr} " not listed as MTA"',`_ARG_')')dnl define(`_MTAMARK_MSG_TMP_', `ifelse(_ARG2_,`t',`"451 Temporary lookup failure of " _MTAMARK_RR_.$`'&{client_addr}',`_ARG2_')')dnl divert(8) # DNS based IP MTA list R$* $: $&{client_addr} R$-.$-.$-.$- $: $(mtamark _MTAMARK_RR_.$4.$3.$2.$1.in-addr.arpa. $: OK $) R1. $: OKSOFAR R0. $#error $@ 5.7.1 $: _MTAMARK_MSG_ ifelse(len(X`'_ARG2_),`1', `R$+ $: TMPOK', `R$+ $#error $@ 4.4.3 $: _MTAMARK_MSG_TMP_') divert(-1) sendmail-8.18.1/cf/feature/check_other.m40000644000372400037240000000272714556365350017542 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2021 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # dnl bogus Id, just here to show up in the generated cf file divert(0) VERSIONID(`$Id: check_other.m4,v 1.0 2021-04-30 00:01:11 ca Exp $') divert(-1) dnl dnl Options: dnl first arg: dnl empty: use default regex dnl else: use as regex dnl [not implemented: NOREGEX: do not use any regex] dnl dnl Possible enhancements: dnl select which SMTP reply type(s) should be allowed to match? dnl maybe add "exceptions": dnl - via an "OK" regex? dnl - access map lookup for clients to be "ok" (Connect:... {ok,relay}) dnl more args? possible matches for rejections: dnl does not seem to worth the effort: too inflexible. dnl dnl Note: sendmail removes whitespace before ':' ("tokenization") ifelse( defn(`_ARG_'), `', `define(`CHKORX', `^[[:print:]]+ *:')', dnl defn(`_ARG_'), `NOREGEX', `define(`CHKORX', `')', `define(`CHKORX', defn(`_ARG_'))') LOCAL_CONFIG ifelse(defn(`CHKORX'), `', `', `dnl Kbadcmd regex -m -a defn(`CHKORX')') LOCAL_RULESETS Scheck_other dnl accept anything that will be accepted by the MTA R$* $| 2 $@ ok ifelse(defn(`CHKORX'), `', `', `dnl R$+ $| 5 $: $(badcmd $1 $) R$* $#error $@ 4.7.0 $: 421 bad command') dnl terminate on any bad command? dnl R$* $| 5 $#error $@ 4.7.0 $: 421 bad command sendmail-8.18.1/cf/feature/local_no_masquerade.m40000644000372400037240000000077214556365350021257 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # divert(0) VERSIONID(`$Id: local_no_masquerade.m4,v 1.3 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_MAILER_local_', `errprint(`*** MAILER(`local') must appear after FEATURE(`local_no_masquerade')') ')dnl define(`_LOCAL_NO_MASQUERADE_', `1') sendmail-8.18.1/cf/feature/notsticky.m40000644000372400037240000000114414556365350017303 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: notsticky.m4,v 8.12 2013-11-22 20:51:11 ca Exp $') # # This is now the default. Use ``FEATURE(stickyhost)'' if you want # the old default behaviour. # divert(-1) sendmail-8.18.1/cf/feature/use_cw_file.m40000644000372400037240000000137614556365350017547 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $') divert(-1) # if defined, the sendmail.cf will read the /etc/mail/local-host-names file # to find alternate names for this host. Typically only used when several # hosts have been squashed into one another at high speed. define(`USE_CW_FILE', `') divert(0) sendmail-8.18.1/cf/feature/redirect.m40000644000372400037240000000147314556365350017062 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $') divert(-1) LOCAL_RULE_0 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> LOCAL_CONFIG CPREDIRECT sendmail-8.18.1/cf/feature/greet_pause.m40000644000372400037240000000235014556365350017557 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2004 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: greet_pause.m4,v 1.5 2013-11-22 20:51:11 ca Exp $') divert(-1) ifelse(len(X`'_ARG_),`1',`ifdef(`_ACCESS_TABLE_', `', `errprint(`*** ERROR: FEATURE(`greet_pause') requires FEATURE(`access_db') ')')') define(`_GREET_PAUSE_', `') LOCAL_RULESETS ###################################################################### ### greet_pause: lookup pause time before 220 greeting ### ### Parameters: ### $1: {client_name} ### $2: {client_addr} ###################################################################### SLocal_greet_pause Sgreet_pause R$* $: <$1> $| $>"Local_greet_pause" $1 R<$*> $| $#$* $#$2 R<$*> $| $* $: $1 ifdef(`_ACCESS_TABLE_', `dnl R$+ $| $+ $: $>D < $1 > < $2 > R $| $+ $: $>A < $1 > <> empty client_name R <$+> $: $>A < $1 > <> no: another lookup ifelse(len(X`'_ARG_),`1', `R <$*> $@', `R <$*> $# _ARG_') R<$* > <$*> $@ R<$+> <$*> $# $1',`dnl R$* $# _ARG_') sendmail-8.18.1/cf/feature/local_procmail.m40000644000372400037240000000217714556365350020243 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1994 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: local_procmail.m4,v 8.23 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_MAILER_local_', `errprint(`*** FEATURE(local_procmail) must occur before MAILER(local) ')')dnl define(`LOCAL_MAILER_PATH', ifelse(defn(`_ARG_'), `', ifdef(`PROCMAIL_MAILER_PATH', PROCMAIL_MAILER_PATH, `/usr/local/bin/procmail'), _ARG_)) define(`LOCAL_MAILER_ARGS', ifelse(len(X`'_ARG2_), `1', `procmail -Y -a $h -d $u', _ARG2_)) define(`LOCAL_MAILER_FLAGS', ifelse(len(X`'_ARG3_), `1', `SPfhn9', _ARG3_)) dnl local_procmail conflicts with local_lmtp but the latter might be dnl defined in an OS/ file (solaris8). Let's just undefine it. undefine(`_LOCAL_LMTP_') undefine(`LOCAL_MAILER_DSN_DIAGNOSTIC_CODE') sendmail-8.18.1/cf/feature/dnsbl.m40000644000372400037240000000263214556365350016361 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2002, 2005-2007 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ifdef(`DNSBL_MAP', `', `define(`DNSBL_MAP', `dns -R A')') divert(0) ifdef(`_DNSBL_R_',`dnl',`dnl VERSIONID(`$Id: dnsbl.m4,v 8.34 2013-11-22 20:51:11 ca Exp $') define(`_DNSBL_R_',`') ifelse(defn(`_ARG_'), `', `errprint(`*** ERROR: missing argument for FEATURE(`dnsbl')')') LOCAL_CONFIG # map for DNS based blocklist lookups Kdnsbl DNSBL_MAP -Tifdef(`DNSBL_MAP_OPT',` DNSBL_MAP_OPT')') divert(-1) define(`_DNSBL_SRV_', `_ARG_')dnl define(`_DNSBL_MSG_', `ifelse(len(X`'_ARG2_),`1',`"550 Rejected: " $`'&{client_addr} " listed at '_DNSBL_SRV_`"',`_ARG2_')')dnl define(`_DNSBL_MSG_TMP_', `ifelse(_ARG3_,`t',`"451 Temporary lookup failure of " $`'&{client_addr} " at '_DNSBL_SRV_`"',`_ARG3_')')dnl divert(8) # DNS based IP address spam list _DNSBL_SRV_ R$* $: $&{client_addr} R$-.$-.$-.$- $: $(dnsbl $4.$3.$2.$1._DNSBL_SRV_. $: OK $) ROK $: OKSOFAR ifelse(len(X`'_ARG3_),`1', `R$+ $: TMPOK', `R$+ $#error $@ 4.4.3 $: _DNSBL_MSG_TMP_') ifelse(`X'_ARG2_,`Xquarantine', `R$+ $#error $@ quarantine $: _DNSBL_SRV_', `X'_ARG2_,`Xdiscard', `R$+ $#discard $: _DNSBL_SRV_', `R$+ $#error $@ 5.7.1 $: _DNSBL_MSG_') divert(-1) sendmail-8.18.1/cf/feature/tls_failures.m40000644000372400037240000000061314556365350017750 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2020 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # errprint(`*** ERROR: FEATURE(tls_failures) has been replaced by confTLS_FALLBACK_TO_CLEAR ') define(`confTLS_FALLBACK_TO_CLEAR', `true') sendmail-8.18.1/cf/feature/nocanonify.m40000644000372400037240000000134714556365350017424 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: nocanonify.m4,v 8.13 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_NO_CANONIFY_', 1) ifelse(defn(`_ARG_'), `', `', strcasecmp(defn(`_ARG_'), `canonify_hosts'), `1', `define(`_CANONIFY_HOSTS_', 1)', `errprint(`*** ERROR: unknown parameter '"defn(`_ARG_')"` for FEATURE(`nocanonify') ')') sendmail-8.18.1/cf/feature/require_rdns.m40000644000372400037240000000057714556365350017767 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2006 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0)dnl VERSIONID(`$Id: require_rdns.m4,v 1.2 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_REQUIRE_RDNS_', `') sendmail-8.18.1/cf/feature/bestmx_is_local.m40000644000372400037240000000322714556365350020427 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: bestmx_is_local.m4,v 8.27 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_BESTMX_IS_LOCAL_', _ARG_) LOCAL_CONFIG # turn on bestMX lookup table Kbestmx bestmx ifelse(defn(`_ARG_'), `', `dnl',` # limit bestmx to these domains CB`'_ARG_') LOCAL_NET_CONFIG # If we are the best MX for a site, then we want to accept # its mail as local. We assume we've already weeded out mail to # UUCP sites which are connected to us, which should also have # listed us as their best MX. # # Warning: this may generate a lot of extra DNS traffic -- a # lower cost method is to list all the expected best MX hosts # in $=w. This should be fine (and easier to administer) for # low to medium traffic hosts. If you use the limited bestmx # by passing in a set of possible domains it will improve things. ifelse(defn(`_ARG_'), `', `dnl # unlimited bestmx R$* < @ $* > $* $: $1 < @ $2 @@ $(bestmx $2 $) > $3', `dnl # limit bestmx to $=B R$* < @ $* $=B . > $* $: $1 < @ $2 $3 . @@ $(bestmx $2 $3 . $) > $4') R$* $=O $* < @ $* @@ $=w . > $* $@ $>Recurse $1 $2 $3 R< @ $* @@ $=w . > : $* $@ $>Recurse $3 dnl we cannot use _LOCAL_ here since it is defined too late R$* < @ $* @@ $=w . > $* $@ $>CanonLocal < $1 > R$* < @ $* @@ $* > $* $: $1 < @ $2 > $4 sendmail-8.18.1/cf/feature/compat_check.m40000644000372400037240000000220014556365350017666 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: compat_check.m4,v 1.5 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_ACCESS_TABLE_', `', `errprint(`FEATURE(`compat_check') requires FEATURE(`access_db') ')') LOCAL_RULESETS Scheck_compat # look up the pair of addresses # (we use <@> as the separator. Note this in the map too!) R< $+ > $| $+ $: $1 $| $2 R$+ $| < $+ > $: $1 $| $2 R$+ $| $+ $: <$(access Compat:$1<@>$2 $:OK $)> R$* $| $* $@ ok # act on the result, # it must be one of the following... anything else will be allowed.. dnl for consistency with the other two even though discard does not take a dnl reply code R< DISCARD:$* > $#discard $: $1 " - discarded by check_compat" R< DISCARD $* > $#discard $: $1 " - discarded by check_compat" R< TEMP:$* > $#error $@ TEMPFAIL $: $1 " error from check_compat. Try again later" R< ERROR:$* > $#error $@ UNAVAILABLE $: $1 " error from check_compat" sendmail-8.18.1/cf/feature/use_ct_file.m40000644000372400037240000000130314556365350017532 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: use_ct_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $') divert(-1) # if defined, the sendmail.cf will read the /etc/mail/trusted-users file to # find the names of trusted users. There should only be a few of these. define(`_USE_CT_FILE_', `') divert(0) sendmail-8.18.1/cf/feature/nullclient.m40000644000372400037240000000224414556365350017427 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ifelse(defn(`_ARG_'), `', `errprint(`Feature "nullclient" requires argument')', `define(`_NULL_CLIENT_', _ARG_)') # # This is used only for relaying mail from a client to a hub when # that client does absolutely nothing else -- i.e., it is a "null # mailer". In this sense, it acts like the "R" option in Sun # sendmail. # divert(0) VERSIONID(`$Id: nullclient.m4,v 8.25 2013-11-22 20:51:11 ca Exp $') divert(-1) undefine(`ALIAS_FILE') define(`MAIL_HUB', _NULL_CLIENT_) define(`SMART_HOST', _NULL_CLIENT_) define(`confFORWARD_PATH', `') ifdef(`confFROM_HEADER',, `define(`confFROM_HEADER', `<$g>')') define(`_DEF_LOCAL_MAILER_FLAGS', `lsDFM5q') MASQUERADE_AS(_NULL_CLIENT_) FEATURE(`allmasquerade') FEATURE(`masquerade_envelope') MAILER(`local') MAILER(`smtp') sendmail-8.18.1/cf/feature/nopercenthack.m40000644000372400037240000000157214556365350020105 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: nopercenthack.m4,v 8.14 2013/01/31 15:07:00 ca Exp $') divert(-1) ifelse(defn(`_ARG_'), `', `errprint(`*** ERROR: missing argument for FEATURE(nopercenthack): use `reject' or `nospecial'. See cf/README. ')define(`_NO_PERCENTHACK_', `e')', substr(_ARG_,0,1), `r', `define(`_NO_PERCENTHACK_', `r')', substr(_ARG_,0,1), `n', `define(`_NO_PERCENTHACK_', `n')', `errprint(`*** ERROR: illegal argument _ARG_ for FEATURE(nopercenthack) ') ') sendmail-8.18.1/cf/feature/ldap_routing.m40000644000372400037240000000365114556365350017750 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1999-2002, 2004, 2007 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: ldap_routing.m4,v 8.21 2013-11-22 20:51:11 ca Exp $') divert(-1) # Check first two arguments. If they aren't set, may need to warn in proto.m4 ifelse(len(X`'_ARG1_), `1', `define(`_LDAP_ROUTING_WARN_', `yes')') ifelse(len(X`'_ARG2_), `1', `define(`_LDAP_ROUTING_WARN_', `yes')') ifelse(len(X`'_ARG5_), `1', `', `define(`_LDAP_ROUTE_NODOMAIN_', `yes')') # Check for third argument to indicate how to deal with non-existent # LDAP records ifelse(len(X`'_ARG3_), `1', `define(`_LDAP_ROUTING_', `_PASS_THROUGH_')', _ARG3_, `passthru', `define(`_LDAP_ROUTING_', `_PASS_THROUGH_')', _ARG3_, `sendertoo', `define(`_LDAP_ROUTING_', `_MUST_EXIST_')define(`_LDAP_SENDER_MUST_EXIST_')', `define(`_LDAP_ROUTING_', `_MUST_EXIST_')') # Check for fourth argument to indicate how to deal with +detail info ifelse(len(X`'_ARG4_), `1', `', _ARG4_, `strip', `define(`_LDAP_ROUTE_DETAIL_', `_STRIP_')', _ARG4_, `preserve', `define(`_LDAP_ROUTE_DETAIL_', `_PRESERVE_')') # Check for sixth argument to indicate how to deal with tempfails ifelse(len(X`'_ARG6_), `1', `define(`_LDAP_ROUTE_MAPTEMP_', `_QUEUE_')', _ARG6_, `tempfail', `define(`_LDAP_ROUTE_MAPTEMP_', `_TEMPFAIL_')', _ARG6_, `queue', `define(`_LDAP_ROUTE_MAPTEMP_', `_QUEUE_')') define(`_NEED_SMTPOPMODES_', `1') LOCAL_CONFIG # LDAP routing maps Kldapmh ifelse(len(X`'_ARG1_), `1', `ldap -1 -T -v mailHost -k (&(objectClass=inetLocalMailRecipient)(mailLocalAddress=%0))', `_ARG1_') Kldapmra ifelse(len(X`'_ARG2_), `1', `ldap -1 -T -v mailRoutingAddress -k (&(objectClass=inetLocalMailRecipient)(mailLocalAddress=%0))', `_ARG2_') sendmail-8.18.1/cf/feature/limited_masquerade.m40000644000372400037240000000105114556365350021107 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: limited_masquerade.m4,v 8.10 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_LIMITED_MASQUERADE_', 1) sendmail-8.18.1/cf/feature/lookupdotdomain.m40000644000372400037240000000117014556365350020463 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: lookupdotdomain.m4,v 1.2 2013-11-22 20:51:11 ca Exp $') divert(-1) ifdef(`_ACCESS_TABLE_', `define(`_LOOKUPDOTDOMAIN_')', `errprint(`*** ERROR: FEATURE(`lookupdotdomain') requires FEATURE(`access_db') ')') ifdef(`_RELAY_HOSTS_ONLY_', `errprint(`*** WARNING: FEATURE(`lookupdotdomain') does not work well with FEATURE(`relay_hosts_only') ')') sendmail-8.18.1/cf/feature/preserve_local_plus_detail.m40000644000372400037240000000063114556365350022646 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: preserve_local_plus_detail.m4,v 8.2 2013-11-22 20:51:11 ca Exp $') divert(-1) define(`_PRESERVE_LOCAL_PLUS_DETAIL_', `1') sendmail-8.18.1/cf/hack/0000755000372400037240000000000014556365434014270 5ustar xbuildxbuildsendmail-8.18.1/cf/hack/xconnect.m40000644000372400037240000000253214556365350016352 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2011 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # divert(0) VERSIONID(`$Id: xconnect.m4,v 1.3 2013-11-22 20:51:13 ca Exp $') divert(-1) ifdef(`_ACCESS_TABLE_', `dnl LOCAL_RULESETS # # x_connect ruleset for looking up XConnect: tag in access DB to enable # XCONNECT support in MTA # if the RHS of the map entry is haproxy1, # then HAproxy protocol version 1 is used # Sx_connect dnl workspace: {client_name} $| {client_addr} R$+ $| $+ $: $>D < $1 > < $2 > dnl workspace: <{client_addr}> dnl OR $| $+ if client_name is empty R $| $+ $: $>A < $1 > <> empty client_name dnl workspace: <{client_addr}> R <$+> $: $>A < $1 > <> no: another lookup dnl workspace: (<>|<{client_addr}>) R <$*> $# no found nothing dnl workspace: (<>|<{client_addr}>) | OK R<$+> <$*> $@ $1 found in access DB', `errprint(`*** ERROR: HACK(xconnect) requires FEATURE(access_db) ')') sendmail-8.18.1/cf/hack/cssubdomain.m40000644000372400037240000000151014556365350017033 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: cssubdomain.m4,v 8.10 2013-11-22 20:51:13 ca Exp $') divert(2) # find possible (old & new) versions of our name via short circuit hack # (this code should exist ONLY during the transition from .Berkeley.EDU # names to .CS.Berkeley.EDU names -- probably not more than a few months) R$* < @ $=w .CS.Berkeley.EDU > $* $: $1 < @ $j > $3 R$* < @ $=w .Berkeley.EDU> $* $: $1 < @ $j > $3 divert(0) sendmail-8.18.1/cf/cf/0000755000372400037240000000000014556365435013753 5ustar xbuildxbuildsendmail-8.18.1/cf/cf/generic-hpux10.cf0000444000372400037240000012411314556365435017024 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: generic-hpux10.mc,v 8.14 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: hpux10.m4,v 8.20 2013-11-22 20:51:15 ca Exp $ ##### ##### $Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $ ##### ##### $Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file #O DontBlameSendmail=safe # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # file containing names of hosts for which we receive email Fw/etc/mail/local-host-names # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root C{E}root # my name for error messages DnMAILER-DAEMON CPREDIRECT EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1 ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=background # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) #O QueueFileMode=0600 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath=$z/.forward.$w+$h:$z/.forward+$h:$z/.forward.$w:$z/.forward # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=MTA O DaemonPortOptions=Port=587, Name=MSA, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY #O UseMSP # privacy flags O PrivacyOptions=authwarnings # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/var/spool/mqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file #O StatusFile # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info O TimeZoneSpec= # default UID (can be username or userid:groupid) #O DefaultUser=mailnull # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? #O DontInitGroups=False # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? #O RunAsUser=sendmail # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? #O DontProbeInterfaces=False # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon #O TrustedUser=root # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file #O PidFile=/var/run/sendmail.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=/usr/bin/rmail, F=lsDFMAw5:/|@qm9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix, A=rmail -d $u Mprog, P=/usr/bin/sh, F=lsDFMoqeu9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=sh -c $u ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuX, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXa, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### generic-hpux10.mc ### # divert(-1) # # # # Copyright (c) 1998, 1999, 2001 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # Copyright (c) 1983 Eric P. Allman. All rights reserved. # # Copyright (c) 1988, 1993 # # The Regents of the University of California. All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is a generic configuration file for HP-UX 10.x. # # It has support for local and SMTP mail only. If you want to # # customize it, copy it to a name appropriate for your environment # # and do the modifications there. # # # # divert(0)dnl # VERSIONID(`$Id: generic-hpux10.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') # OSTYPE(hpux10)dnl # DOMAIN(generic)dnl # MAILER(local)dnl # MAILER(smtp)dnl sendmail-8.18.1/cf/cf/cs-ultrix4.mc0000644000372400037240000000200214556365350016300 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for Ultrix 4.x. # It applies only to the Computer Science Division at Berkeley, # and should not be used elsewhere. It is provided on the sendmail # distribution as a sample only. To create your own configuration # file, create an appropriate domain file in ../domain, change the # `DOMAIN' macro below to reference that file, and copy the result # to a name of your own choosing. # divert(0)dnl VERSIONID(`$Id: cs-ultrix4.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') OSTYPE(ultrix4)dnl DOMAIN(CS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/mail.cs.mc0000644000372400037240000000241114556365350015614 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for a specific # machine in the Computer Science Division at Berkeley, and should # not be used elsewhere. It is provided on the sendmail distribution # as a sample only. # # This file is for the primary CS Division mail server. # divert(0)dnl VERSIONID(`$Id: mail.cs.mc,v 8.19 2013-11-22 20:51:08 ca Exp $') OSTYPE(ultrix4)dnl DOMAIN(Berkeley.EDU)dnl MASQUERADE_AS(CS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl define(`confUSERDB_SPEC', ``/usr/local/lib/users.cs.db,/usr/local/lib/users.eecs.db'')dnl LOCAL_CONFIG DDBerkeley.EDU # hosts for which we accept and forward mail (must be in .Berkeley.EDU) CF CS FF/etc/sendmail.cw LOCAL_RULE_0 R< @ $=F . $D . > : $* $@ $>7 $2 @here:... -> ... R$* $=O $* < @ $=F . $D . > $@ $>7 $1 $2 $3 ...@here -> ... R$* < @ $=F . $D . > $#local $: $1 use UDB sendmail-8.18.1/cf/cf/generic-hpux10.mc0000644000372400037240000000145214556365350017031 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a generic configuration file for HP-UX 10.x. # It has support for local and SMTP mail only. If you want to # customize it, copy it to a name appropriate for your environment # and do the modifications there. # divert(0)dnl VERSIONID(`$Id: generic-hpux10.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') OSTYPE(hpux10)dnl DOMAIN(generic)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/s2k-ultrix4.mc0000644000372400037240000000177714556365350016414 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for Ultrix 4.x. # It applies only to the Sequoia 2000 Project at Berkeley, # and should not be used elsewhere. It is provided on the sendmail # distribution as a sample only. To create your own configuration # file, create an appropriate domain file in ../domain, change the # `DOMAIN' macro below to reference that file, and copy the result # to a name of your own choosing. # divert(0)dnl VERSIONID(`$Id: s2k-ultrix4.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') OSTYPE(ultrix4)dnl DOMAIN(S2K.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/uucpproto.mc0000644000372400037240000000222314556365350016327 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is the prototype for a configuration that only supports UUCP # and does not have DNS support at all. # # You MUST change the `OSTYPE' macro to specify the operating system # on which this will run; this will set the location of various # support files for your operating system environment. You MAY # create a domain file in ../domain and reference it by adding a # `DOMAIN' macro after the `OSTYPE' macro. I recommend that you # first copy this to another file name so that new sendmail releases # will not trash your changes. # divert(0)dnl VERSIONID(`$Id: uucpproto.mc,v 8.16 2013-11-22 20:51:08 ca Exp $') OSTYPE(unknown) FEATURE(promiscuous_relay)dnl FEATURE(accept_unresolvable_domains)dnl MAILER(local)dnl MAILER(uucp)dnl sendmail-8.18.1/cf/cf/generic-hpux9.mc0000644000372400037240000000144114556365350016757 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a generic configuration file for HP-UX 9.x. # It has support for local and SMTP mail only. If you want to # customize it, copy it to a name appropriate for your environment # and do the modifications there. # divert(0)dnl VERSIONID(`$Id: generic-hpux9.mc,v 8.12 2013-11-22 20:51:08 ca Exp $') OSTYPE(hpux9)dnl DOMAIN(generic)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/generic-ultrix4.mc0000644000372400037240000000144614556365350017322 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a generic configuration file for Ultrix 4.x. # It has support for local and SMTP mail only. If you want to # customize it, copy it to a name appropriate for your environment # and do the modifications there. # divert(0)dnl VERSIONID(`$Id: generic-ultrix4.mc,v 8.12 2013-11-22 20:51:08 ca Exp $') OSTYPE(ultrix4)dnl DOMAIN(generic)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/cs-sunos4.1.mc0000644000372400037240000000200514556365350016262 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for SunOS 4.1.x. # It applies only to the Computer Science Division at Berkeley, # and should not be used elsewhere. It is provided on the sendmail # distribution as a sample only. To create your own configuration # file, create an appropriate domain file in ../domain, change the # `DOMAIN' macro below to reference that file, and copy the result # to a name of your own choosing. # divert(0)dnl VERSIONID(`$Id: cs-sunos4.1.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') OSTYPE(sunos4.1)dnl DOMAIN(CS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/vangogh.cs.mc0000644000372400037240000000201714556365350016325 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for a specific # machine in the Computer Science Division at Berkeley, and should # not be used elsewhere. It is provided on the sendmail distribution # as a sample only. # # This file is for the BSD development machine; it has some parameters # set up (to stress sendmail) and accepts mail for some other machines. # divert(0)dnl VERSIONID(`$Id: vangogh.cs.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') DOMAIN(CS.Berkeley.EDU)dnl OSTYPE(bsd4.4)dnl MAILER(local)dnl MAILER(smtp)dnl define(`MCI_CACHE_SIZE', 5) Cw okeeffe.CS.Berkeley.EDU Cw python.CS.Berkeley.EDU sendmail-8.18.1/cf/cf/generic-linux.mc0000644000372400037240000000143414556365350017043 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a generic configuration file for Linux. # It has support for local and SMTP mail only. If you want to # customize it, copy it to a name appropriate for your environment # and do the modifications there. # divert(0)dnl VERSIONID(`$Id: generic-linux.mc,v 8.2 2013-11-22 20:51:08 ca Exp $') OSTYPE(linux)dnl DOMAIN(generic)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/huginn.cs.mc0000644000372400037240000000226114556365350016165 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for a specific # machine in the Computer Science Division at Berkeley, and should # not be used elsewhere. It is provided on the sendmail distribution # as a sample only. # # This file is for the backup CS Division mail server. # divert(0)dnl VERSIONID(`$Id: huginn.cs.mc,v 8.16 2013-11-22 20:51:08 ca Exp $') OSTYPE(hpux9)dnl DOMAIN(CS.Berkeley.EDU)dnl MASQUERADE_AS(CS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl LOCAL_CONFIG DDBerkeley.EDU # hosts for which we accept and forward mail (must be in .Berkeley.EDU) CF CS FF/etc/sendmail.cw LOCAL_RULE_0 R< @ $=F . $D . > : $* $@ $>7 $2 @here:... -> ... R$* $=O $* < @ $=F . $D . > $@ $>7 $1 $2 $3 ...@here -> ... R$* < @ $=F . $D . > $#local $: $1 use UDB sendmail-8.18.1/cf/cf/cs-solaris2.mc0000644000372400037240000000200514556365350016426 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for Solaris 2.x. # It applies only to the Computer Science Division at Berkeley, # and should not be used elsewhere. It is provided on the sendmail # distribution as a sample only. To create your own configuration # file, create an appropriate domain file in ../domain, change the # `DOMAIN' macro below to reference that file, and copy the result # to a name of your own choosing. # divert(0)dnl VERSIONID(`$Id: cs-solaris2.mc,v 8.13 2013-11-22 20:51:08 ca Exp $') OSTYPE(solaris2)dnl DOMAIN(CS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/cs-osf1.mc0000644000372400037240000000176714556365350015556 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for OSF/1. # It applies only to the Computer Science Division at Berkeley, # and should not be used elsewhere. It is provided on the sendmail # distribution as a sample only. To create your own configuration # file, create an appropriate domain file in ../domain, change the # `DOMAIN' macro below to reference that file, and copy the result # to a name of your own choosing. # divert(0)dnl VERSIONID(`$Id: cs-osf1.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') OSTYPE(osf1)dnl DOMAIN(CS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/generic-mpeix.mc0000644000372400037240000000125414556365350017026 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a generic configuration file for HP MPE/iX. # It has support for local and SMTP mail only. If you want to # customize it, copy it to a name appropriate for your environment # and do the modifications there. # divert(0)dnl VERSIONID(`$Id: generic-mpeix.mc,v 8.2 2013-11-22 20:51:08 ca Exp $') OSTYPE(mpeix)dnl DOMAIN(generic)dnl define(`confFORWARD_PATH', `$z/.forward')dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/cyrusproto.mc0000644000372400037240000000272714556365350016531 0ustar xbuildxbuilddivert(-1) # # (C) Copyright 1995 by Carnegie Mellon University # # All Rights Reserved # # Permission to use, copy, modify, and distribute this software and its # documentation for any purpose and without fee is hereby granted, # provided that the above copyright notice appear in all copies and that # both that copyright notice and this permission notice appear in # supporting documentation, and that the name of CMU not be # used in advertising or publicity pertaining to distribution of the # software without specific, written prior permission. # # CMU DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL # CMU BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS # SOFTWARE. # # Contributed to Berkeley by John Gardiner Myers . # # This sample mc file is for a site that uses the Cyrus IMAP server # exclusively for local mail. # divert(0)dnl VERSIONID(`$Id: cyrusproto.mc,v 8.7 1999-09-07 14:57:10 ca Exp $') define(`confBIND_OPTS',`-DNSRCH -DEFNAMES') define(`confLOCAL_MAILER', `cyrus') FEATURE(`nocanonify') FEATURE(`always_add_domain') MAILER(`local') MAILER(`smtp') MAILER(`cyrus') LOCAL_RULE_0 Rbb + $+ < @ $=w . > $#cyrusbb $: $1 sendmail-8.18.1/cf/cf/generic-sunos4.1.mc0000644000372400037240000000145114556365350017275 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a generic configuration file for SunOS 4.1.x. # It has support for local and SMTP mail only. If you want to # customize it, copy it to a name appropriate for your environment # and do the modifications there. # divert(0)dnl VERSIONID(`$Id: generic-sunos4.1.mc,v 8.12 2013-11-22 20:51:08 ca Exp $') OSTYPE(sunos4.1)dnl DOMAIN(generic)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/generic-ultrix4.cf0000444000372400037240000012410414556365435017312 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: generic-ultrix4.mc,v 8.12 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: ultrix4.m4,v 8.12 2013-11-22 20:51:15 ca Exp $ ##### ##### $Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $ ##### ##### $Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file #O DontBlameSendmail=safe # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # file containing names of hosts for which we receive email Fw/etc/mail/local-host-names # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root C{E}root # my name for error messages DnMAILER-DAEMON CPREDIRECT EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1 ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=background # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) #O QueueFileMode=0600 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath=$z/.forward.$w+$h:$z/.forward+$h:$z/.forward.$w:$z/.forward # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=MTA O DaemonPortOptions=Port=587, Name=MSA, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY #O UseMSP # privacy flags O PrivacyOptions=authwarnings # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/var/spool/mqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file #O StatusFile # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info #O TimeZoneSpec= # default UID (can be username or userid:groupid) #O DefaultUser=mailnull # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? #O DontInitGroups=False # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? #O RunAsUser=sendmail # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? #O DontProbeInterfaces=False # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon #O TrustedUser=root # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file #O PidFile=/var/run/sendmail.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=/bin/mail, F=lsDFMAw5:/|@qPrmn9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix, A=mail -d $u Mprog, P=/bin/sh, F=lsDFMoqeu9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=sh -c $u ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuX, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXa, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### generic-ultrix4.mc ### # divert(-1) # # # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # Copyright (c) 1983 Eric P. Allman. All rights reserved. # # Copyright (c) 1988, 1993 # # The Regents of the University of California. All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is a generic configuration file for Ultrix 4.x. # # It has support for local and SMTP mail only. If you want to # # customize it, copy it to a name appropriate for your environment # # and do the modifications there. # # # # divert(0)dnl # VERSIONID(`$Id: generic-ultrix4.mc,v 8.12 2013-11-22 20:51:08 ca Exp $') # OSTYPE(ultrix4)dnl # DOMAIN(generic)dnl # MAILER(local)dnl # MAILER(smtp)dnl sendmail-8.18.1/cf/cf/generic-bsd4.4.mc0000644000372400037240000000154114556365350016701 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a generic configuration file for 4.4 BSD-based systems, # including 4.4-Lite, BSDi, NetBSD, and FreeBSD. # It has support for local and SMTP mail only. If you want to # customize it, copy it to a name appropriate for your environment # and do the modifications there. # divert(0)dnl VERSIONID(`$Id: generic-bsd4.4.mc,v 8.11 2013-11-22 20:51:08 ca Exp $') OSTYPE(bsd4.4)dnl DOMAIN(generic)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/cs-hpux10.mc0000644000372400037240000000206014556365350016016 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for HP-UX 9.x. # It applies only to the Computer Science Division at Berkeley, # and should not be used elsewhere. It is provided on the sendmail # distribution as a sample only. To create your own configuration # file, create an appropriate domain file in ../domain, change the # `DOMAIN' macro below to reference that file, and copy the result # to a name of your own choosing. # divert(0)dnl VERSIONID(`$Id: cs-hpux10.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') OSTYPE(hpux10)dnl DOMAIN(CS.Berkeley.EDU)dnl define(`MAIL_HUB', mailspool.CS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/Makefile0000644000372400037240000001615214556365350015414 0ustar xbuildxbuild# # Makefile for configuration files. # # $Id: Makefile,v 8.60 2005-06-14 02:16:34 gshapiro Exp $ # # # Create configuration files using "m4 ../m4/cf.m4 file.mc > file.cf"; # this may be easier than tweaking the Makefile. You do need to # have a fairly modern M4 available (GNU m4 works). On SunOS, use # /usr/5bin/m4. # # name of source for sendmail.cf (without extension) CF= sendmail # name of source for submit.cf (without extension) SUBMIT= submit # directory for .cf files MAILDIR=/etc/mail M4= m4 CFDIR= .. SED= sed ECHO= echo CHMOD= chmod ROMODE= 444 RM= rm -f # use our own install program; should be really confINSTALL INSTALL=../../devtools/bin/install.sh # CF file ownership/permissions CFOWN=root CFGRP=bin CFMODE=0444 .SUFFIXES: .mc .cf .mc.cf: $(RM) $@ $(M4) ${CFDIR}/m4/cf.m4 $*.mc > $@ || ( $(RM) $@ && exit 1 ) $(ECHO) "### $*.mc ###" >>$@ $(SED) -e 's/^/# /' $*.mc >>$@ $(CHMOD) $(ROMODE) $@ GENERIC=generic-bsd4.4.cf generic-hpux9.cf generic-hpux10.cf \ generic-linux.cf generic-mpeix.cf generic-nextstep3.3.cf \ generic-osf1.cf generic-solaris.cf \ generic-sunos4.1.cf generic-ultrix4.cf BERKELEY=cs-hpux9.cf cs-hpux10.cf cs-osf1.cf cs-solaris.cf \ cs-sunos4.1.cf cs-ultrix4.cf \ s2k-osf1.cf s2k-ultrix4.cf \ chez.cs.cf huginn.cs.cf mail.cs.cf mail.eecs.cf mailspool.cs.cf \ python.cs.cf ucbarpa.cf ucbvax.cf vangogh.cs.cf OTHER= knecht.cf ALL= submit.cf $(GENERIC) $(OTHER) all: $(ALL) berkeley: $(BERKELEY) generic: $(GENERIC) other: $(OTHER) clean cleandir: $(RM) $(ALL) core install: @echo "Before installing the .cf files please make sure you have read the" @echo "instructions in the file ../../INSTALL. You should have prepared the" @echo "files \"submit.mc\" (supplied) and \"sendmail.mc\". Then you can use" @echo "" @echo " make install-cf" @echo "" @echo "If you use a different name than \"sendmail\" for your main .mc file" @echo "then you should use" @echo "" @echo " make install-cf CF=config" @echo "" @echo "where \"config\" is the name of your main .mc file." install-cf: install-sendmail-cf install-submit-cf install-sendmail-cf: $(CF).cf $(INSTALL) -c -o $(CFOWN) -g $(CFGRP) -m $(CFMODE) $(CF).cf ${DESTDIR}$(MAILDIR)/sendmail.cf install-submit-cf: $(SUBMIT).cf $(INSTALL) -c -o $(CFOWN) -g $(CFGRP) -m $(CFMODE) $(SUBMIT).cf ${DESTDIR}$(MAILDIR)/submit.cf depend: # this is overkill, but.... M4FILES=\ ${CFDIR}/domain/Berkeley.EDU.m4 \ ${CFDIR}/domain/CS.Berkeley.EDU.m4 \ ${CFDIR}/domain/EECS.Berkeley.EDU.m4 \ ${CFDIR}/domain/S2K.Berkeley.EDU.m4 \ ${CFDIR}/domain/berkeley-only.m4 \ ${CFDIR}/domain/generic.m4 \ ${CFDIR}/feature/accept_unqualified_senders.m4 \ ${CFDIR}/feature/accept_unresolvable_domains.m4 \ ${CFDIR}/feature/access_db.m4 \ ${CFDIR}/feature/allmasquerade.m4 \ ${CFDIR}/feature/always_add_domain.m4 \ ${CFDIR}/feature/authinfo.m4 \ ${CFDIR}/feature/badmx.m4 \ ${CFDIR}/feature/bcc.m4 \ ${CFDIR}/feature/bestmx_is_local.m4 \ ${CFDIR}/feature/bitdomain.m4 \ ${CFDIR}/feature/block_bad_helo.m4 \ ${CFDIR}/feature/blocklist_recipients.m4 \ ${CFDIR}/feature/check_cert_altnames.m4 \ ${CFDIR}/feature/check_other.m4 \ ${CFDIR}/feature/compat_check.m4 \ ${CFDIR}/feature/conncontrol.m4 \ ${CFDIR}/feature/delay_checks.m4 \ ${CFDIR}/feature/dnsbl.m4 \ ${CFDIR}/feature/domaintable.m4 \ ${CFDIR}/feature/enhdnsbl.m4 \ ${CFDIR}/feature/generics_entire_domain.m4 \ ${CFDIR}/feature/genericstable.m4 \ ${CFDIR}/feature/greet_pause.m4 \ ${CFDIR}/feature/ldap_routing.m4 \ ${CFDIR}/feature/limited_masquerade.m4 \ ${CFDIR}/feature/local_lmtp.m4 \ ${CFDIR}/feature/local_no_masquerade.m4 \ ${CFDIR}/feature/local_procmail.m4 \ ${CFDIR}/feature/lookupdotdomain.m4 \ ${CFDIR}/feature/loose_relay_check.m4 \ ${CFDIR}/feature/mailertable.m4 \ ${CFDIR}/feature/masquerade_entire_domain.m4 \ ${CFDIR}/feature/masquerade_envelope.m4 \ ${CFDIR}/feature/msp.m4 \ ${CFDIR}/feature/mtamark.m4 \ ${CFDIR}/feature/no_default_msa.m4 \ ${CFDIR}/feature/nocanonify.m4 \ ${CFDIR}/feature/nopercenthack.m4 \ ${CFDIR}/feature/notsticky.m4 \ ${CFDIR}/feature/nouucp.m4 \ ${CFDIR}/feature/nullclient.m4 \ ${CFDIR}/feature/prefixmod.m4 \ ${CFDIR}/feature/preserve_local_plus_detail.m4 \ ${CFDIR}/feature/preserve_luser_host.m4 \ ${CFDIR}/feature/promiscuous_relay.m4 \ ${CFDIR}/feature/queuegroup.m4 \ ${CFDIR}/feature/ratecontrol.m4 \ ${CFDIR}/feature/redirect.m4 \ ${CFDIR}/feature/relay_based_on_MX.m4 \ ${CFDIR}/feature/relay_entire_domain.m4 \ ${CFDIR}/feature/relay_hosts_only.m4 \ ${CFDIR}/feature/relay_local_from.m4 \ ${CFDIR}/feature/relay_mail_from.m4 \ ${CFDIR}/feature/require_rdns.m4 \ ${CFDIR}/feature/smrsh.m4 \ ${CFDIR}/feature/stickyhost.m4 \ ${CFDIR}/feature/sts.m4 \ ${CFDIR}/feature/tls_failures.m4 \ ${CFDIR}/feature/tls_session_features.m4 \ ${CFDIR}/feature/use_client_ptr.m4 \ ${CFDIR}/feature/use_ct_file.m4 \ ${CFDIR}/feature/use_cw_file.m4 \ ${CFDIR}/feature/uucpdomain.m4 \ ${CFDIR}/feature/virtuser_entire_domain.m4 \ ${CFDIR}/feature/virtusertable.m4 \ ${CFDIR}/hack/cssubdomain.m4 \ ${CFDIR}/hack/xconnect.m4 \ ${CFDIR}/m4/cf.m4 \ ${CFDIR}/m4/cfhead.m4 \ ${CFDIR}/m4/proto.m4 \ ${CFDIR}/m4/version.m4 \ ${CFDIR}/mailer/cyrus.m4 \ ${CFDIR}/mailer/cyrusv2.m4 \ ${CFDIR}/mailer/fax.m4 \ ${CFDIR}/mailer/local.m4 \ ${CFDIR}/mailer/mail11.m4 \ ${CFDIR}/mailer/phquery.m4 \ ${CFDIR}/mailer/pop.m4 \ ${CFDIR}/mailer/procmail.m4 \ ${CFDIR}/mailer/qpage.m4 \ ${CFDIR}/mailer/smtp.m4 \ ${CFDIR}/mailer/usenet.m4 \ ${CFDIR}/mailer/uucp.m4 \ ${CFDIR}/ostype/aix3.m4 \ ${CFDIR}/ostype/aix4.m4 \ ${CFDIR}/ostype/aix5.m4 \ ${CFDIR}/ostype/altos.m4 \ ${CFDIR}/ostype/amdahl-uts.m4 \ ${CFDIR}/ostype/a-ux.m4 \ ${CFDIR}/ostype/bsd4.3.m4 \ ${CFDIR}/ostype/bsd4.4.m4 \ ${CFDIR}/ostype/bsdi.m4 \ ${CFDIR}/ostype/bsdi1.0.m4 \ ${CFDIR}/ostype/bsdi2.0.m4 \ ${CFDIR}/ostype/darwin.m4 \ ${CFDIR}/ostype/dgux.m4 \ ${CFDIR}/ostype/domainos.m4 \ ${CFDIR}/ostype/dragonfly.m4 \ ${CFDIR}/ostype/dynix3.2.m4 \ ${CFDIR}/ostype/freebsd4.m4 \ ${CFDIR}/ostype/freebsd5.m4 \ ${CFDIR}/ostype/freebsd6.m4 \ ${CFDIR}/ostype/gnu.m4 \ ${CFDIR}/ostype/hpux10.m4 \ ${CFDIR}/ostype/hpux11.m4 \ ${CFDIR}/ostype/hpux9.m4 \ ${CFDIR}/ostype/irix4.m4 \ ${CFDIR}/ostype/irix5.m4 \ ${CFDIR}/ostype/irix6.m4 \ ${CFDIR}/ostype/isc4.1.m4 \ ${CFDIR}/ostype/linux.m4 \ ${CFDIR}/ostype/maxion.m4 \ ${CFDIR}/ostype/mklinux.m4 \ ${CFDIR}/ostype/mpeix.m4 \ ${CFDIR}/ostype/nextstep.m4 \ ${CFDIR}/ostype/openbsd.m4 \ ${CFDIR}/ostype/osf1.m4 \ ${CFDIR}/ostype/powerux.m4 \ ${CFDIR}/ostype/ptx2.m4 \ ${CFDIR}/ostype/qnx.m4 \ ${CFDIR}/ostype/riscos4.5.m4 \ ${CFDIR}/ostype/sco-uw-2.1.m4 \ ${CFDIR}/ostype/sco3.2.m4 \ ${CFDIR}/ostype/sinix.m4 \ ${CFDIR}/ostype/solaris2.m4 \ ${CFDIR}/ostype/solaris2.ml.m4 \ ${CFDIR}/ostype/solaris2.pre5.m4 \ ${CFDIR}/ostype/solaris8.m4 \ ${CFDIR}/ostype/solaris11.m4 \ ${CFDIR}/ostype/sunos3.5.m4 \ ${CFDIR}/ostype/sunos4.1.m4 \ ${CFDIR}/ostype/svr4.m4 \ ${CFDIR}/ostype/ultrix4.m4 \ ${CFDIR}/ostype/unicos.m4 \ ${CFDIR}/ostype/unicosmk.m4 \ ${CFDIR}/ostype/unicosmp.m4 \ ${CFDIR}/ostype/unixware7.m4 \ ${CFDIR}/ostype/unknown.m4 \ ${CFDIR}/ostype/uxpds.m4 $(ALL): $(M4FILES) $(BERKELEY): $(M4FILES) $(GENERIC): $(M4FILES) $(OTHER): $(M4FILES) sendmail-8.18.1/cf/cf/Build0000755000372400037240000000107414556365350014736 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.8 2013-11-22 20:51:08 ca Exp $ # # # A quick-and-dirty script to create cf files. # SMROOT=${SMROOT-../..} BUILDTOOLS=${BUILDTOOLS-$SMROOT/devtools} M4=`sh $BUILDTOOLS/bin/find_m4.sh` ret=$? if [ $ret -ne 0 ] then exit $ret fi echo "Using M4=$M4" eval exec ${MAKE-make} M4=$M4 $* sendmail-8.18.1/cf/cf/ucbarpa.mc0000644000372400037240000000166714556365350015717 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This machine has been decommissioned at Berkeley, and hence should # not be considered to be tested. This file is provided as an example # only, of how you might set up a joint SMTP/UUCP configuration. At # this point I recommend using `FEATURE(mailertable)' instead of # `SITECONFIG'. See also ucbvax.mc. # divert(0)dnl VERSIONID(`$Id: ucbarpa.mc,v 8.13 2013-11-22 20:51:08 ca Exp $') DOMAIN(CS.Berkeley.EDU)dnl OSTYPE(bsd4.4)dnl MAILER(local)dnl MAILER(smtp)dnl MAILER(uucp)dnl SITECONFIG(uucp.ucbarpa, ucbarpa, U) sendmail-8.18.1/cf/cf/generic-nextstep3.3.cf0000444000372400037240000012413314556365435017777 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: generic-nextstep3.3.mc,v 8.11 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: nextstep.m4,v 8.22 2013-11-22 20:51:15 ca Exp $ ##### ##### $Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $ ##### ##### $Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file #O DontBlameSendmail=safe # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # file containing names of hosts for which we receive email Fw/etc/mail/local-host-names # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root C{E}root # my name for error messages DnMAILER-DAEMON CPREDIRECT EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1 ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=background # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) #O QueueFileMode=0600 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath=$z/.forward.$w+$h:$z/.forward+$h:$z/.forward.$w:$z/.forward # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=MTA O DaemonPortOptions=Port=587, Name=MSA, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY #O UseMSP # privacy flags O PrivacyOptions=authwarnings # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/usr/spool/mqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file #O StatusFile # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info #O TimeZoneSpec= # default UID (can be username or userid:groupid) #O DefaultUser=mailnull # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? #O DontInitGroups=False # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? #O RunAsUser=sendmail # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? #O DontProbeInterfaces=False # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon #O TrustedUser=root # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file #O PidFile=/var/run/sendmail.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=/bin/mail, F=lsDFMAw5:/|@qPrmn9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix, A=mail -d $u Mprog, P=/bin/sh, F=lsDFMoqeuP, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=sh -c $u ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuX, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXa, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### generic-nextstep3.3.mc ### # divert(-1) # # # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # Copyright (c) 1983 Eric P. Allman. All rights reserved. # # Copyright (c) 1988, 1993 # # The Regents of the University of California. All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is a generic configuration file for NEXTSTEP 3.3 systems. # # It has support for local and SMTP mail only. If you want to # # customize it, copy it to a name appropriate for your environment # # and do the modifications there. # # # # divert(0)dnl # VERSIONID(`$Id: generic-nextstep3.3.mc,v 8.11 2013-11-22 20:51:08 ca Exp $') # OSTYPE(nextstep)dnl # DOMAIN(generic)dnl # MAILER(local)dnl # MAILER(smtp)dnl sendmail-8.18.1/cf/cf/generic-nextstep3.3.mc0000644000372400037240000000146514556365350020006 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a generic configuration file for NEXTSTEP 3.3 systems. # It has support for local and SMTP mail only. If you want to # customize it, copy it to a name appropriate for your environment # and do the modifications there. # divert(0)dnl VERSIONID(`$Id: generic-nextstep3.3.mc,v 8.11 2013-11-22 20:51:08 ca Exp $') OSTYPE(nextstep)dnl DOMAIN(generic)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/generic-osf1.cf0000444000372400037240000012411214556365435016546 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: generic-osf1.mc,v 8.12 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: osf1.m4,v 8.17 2013-11-22 20:51:15 ca Exp $ ##### ##### $Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $ ##### ##### $Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file #O DontBlameSendmail=safe # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # file containing names of hosts for which we receive email Fw/etc/mail/local-host-names # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root C{E}root # my name for error messages DnMAILER-DAEMON CPREDIRECT EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1 ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=background # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) #O QueueFileMode=0600 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath=$z/.forward.$w+$h:$z/.forward+$h:$z/.forward.$w:$z/.forward # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=MTA O DaemonPortOptions=Port=587, Name=MSA, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY #O UseMSP # privacy flags O PrivacyOptions=authwarnings # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/var/spool/mqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file O StatusFile=/usr/adm/sendmail/sendmail.st # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info #O TimeZoneSpec= # default UID (can be username or userid:groupid) O DefaultUser=daemon # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? #O DontInitGroups=False # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? #O RunAsUser=sendmail # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? #O DontProbeInterfaces=False # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon #O TrustedUser=root # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file #O PidFile=/var/run/sendmail.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=/bin/mail, F=lsDFMAw5:/|@qPrmn9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix, A=mail -d $u Mprog, P=/bin/sh, F=lsDFMoqeu9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=sh -c $u ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuX, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXa, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### generic-osf1.mc ### # divert(-1) # # # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # Copyright (c) 1983 Eric P. Allman. All rights reserved. # # Copyright (c) 1988, 1993 # # The Regents of the University of California. All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is a generic configuration file for OSF/1. # # It has support for local and SMTP mail only. If you want to # # customize it, copy it to a name appropriate for your environment # # and do the modifications there. # # # # divert(0)dnl # VERSIONID(`$Id: generic-osf1.mc,v 8.12 2013-11-22 20:51:08 ca Exp $') # OSTYPE(osf1)dnl # DOMAIN(generic)dnl # MAILER(local)dnl # MAILER(smtp)dnl sendmail-8.18.1/cf/cf/generic-bsd4.4.cf0000444000372400037240000012423714556365435016704 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: generic-bsd4.4.mc,v 8.11 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: bsd4.4.m4,v 8.15 2013-11-22 20:51:15 ca Exp $ ##### ##### $Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $ ##### ##### $Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file #O DontBlameSendmail=safe # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # file containing names of hosts for which we receive email Fw/etc/mail/local-host-names # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root C{E}root # my name for error messages DnMAILER-DAEMON CPREDIRECT EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1 ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=background # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) #O QueueFileMode=0600 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath=$z/.forward.$w+$h:$z/.forward+$h:$z/.forward.$w:$z/.forward # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=MTA O DaemonPortOptions=Port=587, Name=MSA, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY #O UseMSP # privacy flags O PrivacyOptions=authwarnings # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/var/spool/mqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file O StatusFile=/var/log/sendmail.st # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info #O TimeZoneSpec= # default UID (can be username or userid:groupid) #O DefaultUser=mailnull # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? #O DontInitGroups=False # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? #O RunAsUser=sendmail # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? #O DontProbeInterfaces=False # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon #O TrustedUser=root # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file #O PidFile=/var/run/sendmail.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=/usr/libexec/mail.local, F=lsDFMAw5:/|@qPrmn9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix, A=mail -d $u Mprog, P=/bin/sh, F=lsDFMoqeu9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=sh -c $u ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuX, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXa, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### generic-bsd4.4.mc ### # divert(-1) # # # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # Copyright (c) 1983 Eric P. Allman. All rights reserved. # # Copyright (c) 1988, 1993 # # The Regents of the University of California. All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is a generic configuration file for 4.4 BSD-based systems, # # including 4.4-Lite, BSDi, NetBSD, and FreeBSD. # # It has support for local and SMTP mail only. If you want to # # customize it, copy it to a name appropriate for your environment # # and do the modifications there. # # # # divert(0)dnl # VERSIONID(`$Id: generic-bsd4.4.mc,v 8.11 2013-11-22 20:51:08 ca Exp $') # OSTYPE(bsd4.4)dnl # DOMAIN(generic)dnl # MAILER(local)dnl # MAILER(smtp)dnl sendmail-8.18.1/cf/cf/generic-osf1.mc0000644000372400037240000000143314556365350016553 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a generic configuration file for OSF/1. # It has support for local and SMTP mail only. If you want to # customize it, copy it to a name appropriate for your environment # and do the modifications there. # divert(0)dnl VERSIONID(`$Id: generic-osf1.mc,v 8.12 2013-11-22 20:51:08 ca Exp $') OSTYPE(osf1)dnl DOMAIN(generic)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/mailspool.cs.mc0000644000372400037240000000204014556365350016667 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for a specific # machine in the Computer Science Division at Berkeley, and should # not be used elsewhere. It is provided on the sendmail distribution # as a sample only. # # This file is for our mail spool machine. For a while we were using # "root.machinename" instead of "root+machinename", so this is included # for back compatibility. # divert(0)dnl VERSIONID(`$Id: mailspool.cs.mc,v 8.13 2013-11-22 20:51:08 ca Exp $') OSTYPE(sunos4.1)dnl DOMAIN(CS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl LOCAL_CONFIG CDroot sys-custodian LOCAL_RULE_3 R$=D . $+ $1 + $2 sendmail-8.18.1/cf/cf/python.cs.mc0000644000372400037240000000246614556365350016225 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for a specific # machine in the Computer Science Division at Berkeley, and should # not be used elsewhere. It is provided on the sendmail distribution # as a sample only. # # This file is for a home machine that wants to masquerade as an # on-campus machine. Additionally, all addresses without a hostname # will be forwarded to that machine. # divert(0)dnl VERSIONID(`$Id: python.cs.mc,v 8.13 2013-11-22 20:51:08 ca Exp $') OSTYPE(bsd4.4)dnl DOMAIN(CS.Berkeley.EDU)dnl define(`LOCAL_RELAY', vangogh.CS.Berkeley.EDU)dnl MASQUERADE_AS(vangogh.CS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl # accept mail sent to the domain head DDBostic.COM LOCAL_RULE_0 # accept mail sent to the domain head R< @ $D . > : $* $@ $>7 $1 @here:... -> ... R$* $=O $* < @ $D . > $@ $>7 $1 $2 $3 ...@here -> ... R$* < @ $D . > $#local $: $1 user@here -> user sendmail-8.18.1/cf/cf/knecht.mc0000644000372400037240000002103614556365350015546 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2001, 2004, 2005 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is specific to Eric's home machine. # # Run daemon with -bd -q5m # divert(0) VERSIONID(`$Id: knecht.mc,v 8.63 2013-11-22 20:51:08 ca Exp $') OSTYPE(bsd4.4) DOMAIN(generic) define(`ALIAS_FILE', ``/etc/mail/aliases, /etc/mail/lists/sendmail.org/aliases, /var/listmanager/aliases'') define(`confFORWARD_PATH', `$z/.forward.$w:$z/.forward+$h:$z/.forward') define(`confDEF_USER_ID', `mailnull') define(`confHOST_STATUS_DIRECTORY', `.hoststat') define(`confTO_ICONNECT', `10s') define(`confTO_QUEUEWARN', `8h') define(`confMIN_QUEUE_AGE', `27m') define(`confTRUSTED_USER', `smtrust') define(`confTRUSTED_USERS', ``www listmgr'') define(`confPRIVACY_FLAGS', ``authwarnings,noexpn,novrfy'') define(`CERT_DIR', `MAIL_SETTINGS_DIR`'certs') define(`confCACERT_PATH', `CERT_DIR') define(`confCACERT', `CERT_DIR/CAcert.pem') define(`confSERVER_CERT', `CERT_DIR/MYcert.pem') define(`confSERVER_KEY', `CERT_DIR/MYkey.pem') define(`confCLIENT_CERT', `CERT_DIR/MYcert.pem') define(`confCLIENT_KEY', `CERT_DIR/MYkey.pem') define(`CYRUS_MAILER_PATH', `/usr/local/cyrus/bin/deliver') define(`CYRUS_MAILER_FLAGS', `fAh5@/:|') FEATURE(`access_db') FEATURE(`blocklist_recipients') FEATURE(`local_lmtp') FEATURE(`virtusertable') FEATURE(`mailertable') FEATURE(`nocanonify', `canonify_hosts') CANONIFY_DOMAIN(`sendmail.org') CANONIFY_DOMAIN_FILE(`/etc/mail/canonify-domains') dnl # at most 10 queue runners define(`confMAX_QUEUE_CHILDREN', `20') define(`confMAX_RUNNERS_PER_QUEUE', `5') dnl # run at most 10 concurrent processes for initial submission define(`confFAST_SPLIT', `10') dnl # 10 runners, split into at most 15 recipients per envelope QUEUE_GROUP(`mqueue', `P=/var/spool/mqueue, R=5, r=15, F=f') dnl # enable spam assassin INPUT_MAIL_FILTER(`spamassassin', `S=local:/var/run/spamass-milter.sock, F=, T=C:15m;S:4m;R:4m;E:10m') dnl # enable DomainKeys and DKIM INPUT_MAIL_FILTER(`dkim-filter', `S=unix:/var/run/smtrust/dkim.sock, F=T, T=R:2m') dnl INPUT_MAIL_FILTER(`dk-filter', `S=unix:/var/run/smtrust/dk.sock, F=T, T=R:2m') define(`confMILTER_MACROS_CONNECT', `j, {daemon_name}') define(`confMILTER_MACROS_ENVFROM', `i, {auth_type}') dnl # enable some DNSBLs dnl FEATURE(`dnsbl', `dnsbl.sorbs.net', `"550 Mail from " $`'&{client_addr} " refused - see http://www.dnsbl.sorbs.net/"') FEATURE(`dnsbl', `sbl-xbl.spamhaus.org', `"550 Mail from " $`'&{client_addr} " refused - see http://www.spamhaus.org/sbl/"') FEATURE(`dnsbl', `list.dsbl.org', `"550 Mail from " $`'&{client_addr} " refused - see http://dsbl.org/"') FEATURE(`dnsbl', `bl.spamcop.net', `"450 Mail from " $`'&{client_addr} " refused - see http://spamcop.net/bl.shtml"') MAILER(`local') MAILER(`smtp') MAILER(`cyrus') LOCAL_RULE_0 Rcyrus.$+ + $+ < @ $=w . > $#cyrus $@ $2 $: $1 Rcyrus.$+ < @ $=w . > $#cyrus $: $1 LOCAL_CONFIG # # Regular expression to reject: # * numeric-only localparts from aol.com and msn.com # * localparts starting with a digit from juno.com # Kcheckaddress regex -a@MATCH ^([0-9]+<@(aol|msn)\.com|[0-9][^<]*<@juno\.com)\.?> ###################################################################### # # Names that won't be allowed in a To: line (local-part and domains) # C{RejectToLocalparts} friend you C{RejectToDomains} public.com LOCAL_RULESETS HTo: $>CheckTo SCheckTo R$={RejectToLocalparts}@$* $#error $: "553 Header error" R$*@$={RejectToDomains} $#error $: "553 Header error" ###################################################################### HMessage-Id: $>CheckMessageId SCheckMessageId # Record the presence of the header R$* $: $(storage {MessageIdCheck} $@ OK $) $1 # validate syntax R< $+ @ $+ > $@ OK R$* $#error $: "554 Header error" ###################################################################### HReceived: $>CheckReceived SCheckReceived # Record the presence of any Received header R$* $: $(storage {ReceivedCheck} $@ OK $) $1 # check syntax R$* ......................................................... $* $#error $: "554 Header error" ###################################################################### # # Reject advertising subjects # Kadvsubj regex -b -a@MATCH ? HSubject: $>+CheckSubject SCheckSubject R$* $: $(advsubj $&{currHeader} $: OK $) ROK $@ OK R$* $#error $@ 5.7.0 $: 550 5.7.0 spam rejected. ###################################################################### # # Reject certain senders # Regex match to catch things in quotes # HFrom: $>+CheckFrom KCheckFrom regex -a@MATCH [^a-z]?(Net-Pa)[^a-z] SCheckFrom R$* $: $( CheckFrom $1 $) R@MATCH $#error $: "553 Header error" LOCAL_RULESETS SLocal_check_mail # check address against various regex checks R$* $: $>Parse0 $>3 $1 R$+ $: $(checkaddress $1 $) R@MATCH $#error $: "553 Header error" # # Following code from Anthony Howe . The check # for the Outlook Express marker may hit some legal messages, but # the Content-Disposition is clearly illegal. # ######################################################################### # # w32.sircam.worm@mm # # There are serveral patterns that appear common ONLY to SirCam worm and # not to Outlook Express, which claims to have sent the worm. There are # four headers that always appear together and in this order: # # X-MIMEOLE: Produced By Microsoft MimeOLE V5.50.4133.2400 # X-Mailer: Microsoft Outlook Express 5.50.4133.2400 # Content-Type: multipart/mixed; boundary="----27AA9124_Outlook_Express_message_boundary" # Content-Disposition: Multipart message # # Empirical study of the worm message headers vs. true Outlook Express # (5.50.4133.2400 & 5.50.4522.1200) messages with multipart/mixed attachments # shows Outlook Express does: # # a) NOT supply a Content-Disposition header for multipart/mixed messages. # b) NOT specify the header X-MimeOLE header name in all-caps # c) NOT specify boundary tag with the expression "_Outlook_Express_message_boundary" # # The solution below catches any one of this three issues. This is not an ideal # solution, but a temporary measure. A correct solution would be to check for # the presence of ALL three header attributes. Also the solution is incomplete # since Outlook Express 5.0 and 4.0 were not compared. # # NOTE regex keys are first dequoted and spaces removed before matching. # This caused me no end of grief. # ######################################################################### LOCAL_RULESETS KSirCamWormMarker regex -f -aSUSPECT multipart/mixed;boundary=----.+_Outlook_Express_message_boundary HContent-Type: $>CheckContentType ###################################################################### SCheckContentType R$+ $: $(SirCamWormMarker $1 $) RSUSPECT $#error $: "553 Possible virus, see http://www.symantec.com/avcenter/venc/data/w32.sircam.worm@mm.html" HContent-Disposition: $>CheckContentDisposition ###################################################################### SCheckContentDisposition R$- $@ OK R$- ; $+ $@ OK R$* $#error $: "553 Illegal Content-Disposition" # # Sobig.F # LOCAL_CONFIG Kstorage macro LOCAL_RULESETS ###################################################################### ### check for the existence of the X-MailScanner Header HX-MailScanner: $>+CheckXMSc D{SobigFPat}Found to be clean D{SobigFMsg}This message may contain the Sobig.F virus. SCheckXMSc ### if it exists, and the defined value is set, record the presence R${SobigFPat} $* $: $(storage {SobigFCheck} $@ SobigF $) $1 R$* $@ OK ###################################################################### Scheck_eoh # Check if a Message-Id was found R$* $: < $&{MessageIdCheck} > # If Message-Id was found clear the X-MailScanner store and return with OK R< $+ > $@ OK $>ClearStorage # Are we the first Hop? R$* $: < $&{ReceivedCheck} > R< $+ > $@ OK $>ClearStorage # no Message-Id->check X-Mailscanner presence, too R$* $: < $&{SobigFCheck} > # clear store R$* $: $>ClearStorage $1 # no msgid, first hop and Header found? -> reject the message R < SobigF > $#error $: 553 ${SobigFMsg} # No Header! Fine, take the message R$* $@ OK ###################################################################### SClearStorage R$* $: $(storage {SobigFCheck} $) $1 R$* $: $(storage {ReceivedCheck} $) $1 R$* $: $(storage {MessageIdCheck} $) $1 R$* $@ $1 sendmail-8.18.1/cf/cf/generic-linux.cf0000444000372400037240000012422514556365435017042 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: generic-linux.mc,v 8.2 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: linux.m4,v 8.14 2013-11-22 20:51:15 ca Exp $ ##### ##### $Id: local_procmail.m4,v 8.23 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $ ##### ##### $Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file #O DontBlameSendmail=safe # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # file containing names of hosts for which we receive email Fw/etc/mail/local-host-names # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root C{E}root # my name for error messages DnMAILER-DAEMON CPREDIRECT EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1 ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=background # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) #O QueueFileMode=0600 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath=$z/.forward.$w+$h:$z/.forward+$h:$z/.forward.$w:$z/.forward # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=MTA O DaemonPortOptions=Port=587, Name=MSA, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY #O UseMSP # privacy flags O PrivacyOptions=authwarnings # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/var/spool/mqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file #O StatusFile # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info #O TimeZoneSpec= # default UID (can be username or userid:groupid) #O DefaultUser=mailnull # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? #O DontInitGroups=False # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? #O RunAsUser=sendmail # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? #O DontProbeInterfaces=False # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon #O TrustedUser=root # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file #O PidFile=/var/run/sendmail.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=/usr/bin/procmail, F=lsDFMAw5:/|@qSPfhn9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix, A=procmail -Y -a $h -d $u Mprog, P=/bin/sh, F=lsDFMoqeu9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=sh -c $u ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuX, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXa, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### generic-linux.mc ### # divert(-1) # # # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # Copyright (c) 1983 Eric P. Allman. All rights reserved. # # Copyright (c) 1988, 1993 # # The Regents of the University of California. All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is a generic configuration file for Linux. # # It has support for local and SMTP mail only. If you want to # # customize it, copy it to a name appropriate for your environment # # and do the modifications there. # # # # divert(0)dnl # VERSIONID(`$Id: generic-linux.mc,v 8.2 2013-11-22 20:51:08 ca Exp $') # OSTYPE(linux)dnl # DOMAIN(generic)dnl # MAILER(local)dnl # MAILER(smtp)dnl sendmail-8.18.1/cf/cf/s2k-osf1.mc0000644000372400037240000000176414556365350015645 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for OSF/1. # It applies only to the Sequoia 2000 Project at Berkeley, # and should not be used elsewhere. It is provided on the sendmail # distribution as a sample only. To create your own configuration # file, create an appropriate domain file in ../domain, change the # `DOMAIN' macro below to reference that file, and copy the result # to a name of your own choosing. # divert(0)dnl VERSIONID(`$Id: s2k-osf1.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') OSTYPE(osf1)dnl DOMAIN(S2K.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/submit.mc0000644000372400037240000000157514556365350015603 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 2001-2003, 2014 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is the prototype file for a set-group-ID sm-msp sendmail that # acts as a initial mail submission program. # divert(0)dnl VERSIONID(`$Id: submit.mc,v 8.15 2013-11-22 20:51:08 ca Exp $') define(`confCF_VERSION', `Submit')dnl define(`__OSTYPE__',`')dnl dirty hack to keep proto.m4 from complaining define(`_USE_DECNET_SYNTAX_', `1')dnl support DECnet define(`confTIME_ZONE', `USE_TZ')dnl define(`confDONT_INIT_GROUPS', `True')dnl dnl dnl If you use IPv6 only, change [127.0.0.1] to [IPv6:0:0:0:0:0:0:0:1] FEATURE(`msp', `[127.0.0.1]')dnl dnl enable this for SMTPUTF8 support dnl LOCAL_CONFIG dnl O SMTPUTF8=true sendmail-8.18.1/cf/cf/generic-solaris.cf0000444000372400037240000012424214556365435017356 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: generic-solaris.mc,v 8.14 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: solaris2.m4,v 8.23 2013-11-22 20:51:15 ca Exp $ ##### ##### $Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $ ##### ##### $Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file #O DontBlameSendmail=safe # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # file containing names of hosts for which we receive email Fw/etc/mail/local-host-names # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root C{E}root # my name for error messages DnMAILER-DAEMON CPREDIRECT EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1 ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=background # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) #O QueueFileMode=0600 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath=$z/.forward.$w+$h:$z/.forward+$h:$z/.forward.$w:$z/.forward # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=MTA O DaemonPortOptions=Port=587, Name=MSA, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY #O UseMSP # privacy flags O PrivacyOptions=authwarnings # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/var/spool/mqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file #O StatusFile # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info #O TimeZoneSpec= # default UID (can be username or userid:groupid) #O DefaultUser=mailnull # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? #O DontInitGroups=False # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? #O RunAsUser=sendmail # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? #O DontProbeInterfaces=False # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon #O TrustedUser=root # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file #O PidFile=/var/run/sendmail.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=/usr/lib/mail.local, F=lsDFMAw5:/|@qfSmn9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix, A=mail.local -d $u Mprog, P=/bin/sh, F=lsDFMoqeu9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=sh -c $u ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuX, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXa, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### generic-solaris.mc ### # divert(-1) # # # # Copyright (c) 1998, 1999, 2001 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # Copyright (c) 1983 Eric P. Allman. All rights reserved. # # Copyright (c) 1988, 1993 # # The Regents of the University of California. All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is a generic configuration file for SunOS 5.x (a.k.a. Solaris 2.x # # and Solaris 7 through the present version). # # # # It has support for local and SMTP mail only. If you want to # # customize it, copy it to a name appropriate for your environment # # and do the modifications there. # # # # divert(0)dnl # VERSIONID(`$Id: generic-solaris.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') # OSTYPE(solaris2)dnl # DOMAIN(generic)dnl # MAILER(local)dnl # MAILER(smtp)dnl sendmail-8.18.1/cf/cf/tcpproto.mc0000644000372400037240000000215014556365350016140 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is the prototype file for a configuration that supports nothing # but basic SMTP connections via TCP. # # You MUST change the `OSTYPE' macro to specify the operating system # on which this will run; this will set the location of various # support files for your operating system environment. You MAY # create a domain file in ../domain and reference it by adding a # `DOMAIN' macro after the `OSTYPE' macro. I recommend that you # first copy this to another file name so that new sendmail releases # will not trash your changes. # divert(0)dnl VERSIONID(`$Id: tcpproto.mc,v 8.15 2013-11-22 20:51:08 ca Exp $') OSTYPE(`unknown') FEATURE(`nouucp', `reject') MAILER(`local') MAILER(`smtp') sendmail-8.18.1/cf/cf/chez.cs.mc0000644000372400037240000000211414556365350015623 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for a specific # machine in the Computer Science Division at Berkeley, and should # not be used elsewhere. It is provided on the sendmail distribution # as a sample only. # # This file is for a home machine that wants to masquerade as an # on-campus machine. Additionally, all addresses without a hostname # will be forwarded to that machine. # divert(0)dnl VERSIONID(`$Id: chez.cs.mc,v 8.15 2013-11-22 20:51:08 ca Exp $') OSTYPE(bsd4.4)dnl DOMAIN(CS.Berkeley.EDU)dnl define(`LOCAL_RELAY', vangogh.CS.Berkeley.EDU)dnl MASQUERADE_AS(vangogh.CS.Berkeley.EDU)dnl FEATURE(use_cw_file)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/README0000644000372400037240000000160514556365350014631 0ustar xbuildxbuild SENDMAIL CONFIGURATION FILES INSTALLATION This document describes how to install the sendmail configuration files. Please see ../README about the sendmail configuration files themselves. By default you need two .mc files: sendmail.mc and submit.mc. The latter is an OS independent configuration file for the mail submission program (MSP). See ../README for details about both files. Installation of these two files can be done via: make install-cf If you use a different name than "sendmail" for your main .mc file" then you should use make install-cf CF=config where "config" is the name of your main .mc file. The default installation directory is /etc/mail and can be changed by specifying MAILDIR=/other/dir The name of the source file for "submit.cf" can be overridden by SUBMIT=msp For more details see Makefile. $Revision: 1.2 $, Last updated $Date: 2002-02-22 00:33:54 $ sendmail-8.18.1/cf/cf/generic-hpux9.cf0000444000372400037240000012406714556365435016764 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: generic-hpux9.mc,v 8.12 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: hpux9.m4,v 8.25 2013-11-22 20:51:15 ca Exp $ ##### ##### $Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $ ##### ##### $Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file #O DontBlameSendmail=safe # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # file containing names of hosts for which we receive email Fw/etc/mail/local-host-names # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root C{E}root # my name for error messages DnMAILER-DAEMON CPREDIRECT EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1 ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=background # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) #O QueueFileMode=0600 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath=$z/.forward.$w+$h:$z/.forward+$h:$z/.forward.$w:$z/.forward # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=MTA O DaemonPortOptions=Port=587, Name=MSA, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY #O UseMSP # privacy flags O PrivacyOptions=authwarnings # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/usr/spool/mqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file #O StatusFile # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info O TimeZoneSpec= # default UID (can be username or userid:groupid) #O DefaultUser=mailnull # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? #O DontInitGroups=False # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? #O RunAsUser=sendmail # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? #O DontProbeInterfaces=False # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon #O TrustedUser=root # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file #O PidFile=/var/run/sendmail.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=/bin/rmail, F=lsDFMAw5:/|@qm9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix, A=rmail -d $u Mprog, P=/bin/sh, F=lsDFMoqeu9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=sh -c $u ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuX, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXa, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### generic-hpux9.mc ### # divert(-1) # # # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # Copyright (c) 1983 Eric P. Allman. All rights reserved. # # Copyright (c) 1988, 1993 # # The Regents of the University of California. All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is a generic configuration file for HP-UX 9.x. # # It has support for local and SMTP mail only. If you want to # # customize it, copy it to a name appropriate for your environment # # and do the modifications there. # # # # divert(0)dnl # VERSIONID(`$Id: generic-hpux9.mc,v 8.12 2013-11-22 20:51:08 ca Exp $') # OSTYPE(hpux9)dnl # DOMAIN(generic)dnl # MAILER(local)dnl # MAILER(smtp)dnl sendmail-8.18.1/cf/cf/submit.cf0000444000372400037240000012412514556365435015573 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: submit.mc,v 8.15 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: msp.m4,v 1.34 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: no_default_msa.m4,v 8.3 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file #O DontBlameSendmail=safe # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root # my name for error messages DnMAILER-DAEMON D{MTAHost}[127.0.0.1] EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1/Submit ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file #O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=i # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) O QueueFileMode=0660 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=NoMTA, Addr=127.0.0.1, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY O UseMSP=True # privacy flags O PrivacyOptions=goaway,noetrn,restrictqrun # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/var/spool/clientmqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file O StatusFile=/var/spool/clientmqueue/sm-client.st # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info O TimeZoneSpec= # default UID (can be username or userid:groupid) #O DefaultUser=mailnull # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? O DontInitGroups=True # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? O RunAsUser=smmsp # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? O DontProbeInterfaces=True # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon O TrustedUser=smmsp # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers #O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file O PidFile=/var/spool/clientmqueue/sm-client.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # convert node::user addresses into a domain-based address R$- :: $+ $@ $>Canonify2 $2 < @ $1 .DECNET > resolve DECnet names R$- . $- :: $+ $@ $>Canonify2 $3 < @ $1.$2 .DECNET > numeric DECnet addr # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # put DECnet back in :: form R$+ @ $+ . DECNET $2 :: $1 u@h.DECNET => h::u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo SLocal_localaddr R$+ $: $>ParseRecipient $1 R$* < @ $+ > $* $#relay $@ ${MTAHost} $: $1 < @ $2 > $3 # DECnet R$+ :: $+ $#relay $@ ${MTAHost} $: $1 :: $2 R$* $#relay $@ ${MTAHost} $: $1 < @ $j > # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=[IPC], F=lmDFMuXkw5, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/SMTP, A=TCP $h Mprog, P=[IPC], F=lmDFMuXk5, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=TCP $h ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuXk5, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXak5, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8k5, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%k5, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8k, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### submit.mc ### # divert(-1) # # # # Copyright (c) 2001-2003, 2014 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is the prototype file for a set-group-ID sm-msp sendmail that # # acts as a initial mail submission program. # # # # divert(0)dnl # VERSIONID(`$Id: submit.mc,v 8.15 2013-11-22 20:51:08 ca Exp $') # define(`confCF_VERSION', `Submit')dnl # define(`__OSTYPE__',`')dnl dirty hack to keep proto.m4 from complaining # define(`_USE_DECNET_SYNTAX_', `1')dnl support DECnet # define(`confTIME_ZONE', `USE_TZ')dnl # define(`confDONT_INIT_GROUPS', `True')dnl # dnl # dnl If you use IPv6 only, change [127.0.0.1] to [IPv6:0:0:0:0:0:0:0:1] # FEATURE(`msp', `[127.0.0.1]')dnl # dnl enable this for SMTPUTF8 support # dnl LOCAL_CONFIG # dnl O SMTPUTF8=true sendmail-8.18.1/cf/cf/generic-solaris.mc0000644000372400037240000000156014556365350017360 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a generic configuration file for SunOS 5.x (a.k.a. Solaris 2.x # and Solaris 7 through the present version). # # It has support for local and SMTP mail only. If you want to # customize it, copy it to a name appropriate for your environment # and do the modifications there. # divert(0)dnl VERSIONID(`$Id: generic-solaris.mc,v 8.14 2013-11-22 20:51:08 ca Exp $') OSTYPE(solaris2)dnl DOMAIN(generic)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/generic-sunos4.1.cf0000444000372400037240000012411214556365435017270 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: generic-sunos4.1.mc,v 8.12 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: sunos4.1.m4,v 8.11 2013-11-22 20:51:15 ca Exp $ ##### ##### $Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $ ##### ##### $Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file #O DontBlameSendmail=safe # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # file containing names of hosts for which we receive email Fw/etc/mail/local-host-names # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root C{E}root # my name for error messages DnMAILER-DAEMON CPREDIRECT EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1 ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=background # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) #O QueueFileMode=0600 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath=$z/.forward.$w+$h:$z/.forward+$h:$z/.forward.$w:$z/.forward # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=MTA O DaemonPortOptions=Port=587, Name=MSA, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY #O UseMSP # privacy flags O PrivacyOptions=authwarnings # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/var/spool/mqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file #O StatusFile # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info #O TimeZoneSpec= # default UID (can be username or userid:groupid) #O DefaultUser=mailnull # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? #O DontInitGroups=False # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? #O RunAsUser=sendmail # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? #O DontProbeInterfaces=False # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon #O TrustedUser=root # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file #O PidFile=/var/run/sendmail.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=/bin/mail, F=lsDFMAw5:/|@qPrmn9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix, A=mail -d $u Mprog, P=/bin/sh, F=lsDFMoqeu9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=sh -c $u ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuX, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXa, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### generic-sunos4.1.mc ### # divert(-1) # # # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # Copyright (c) 1983 Eric P. Allman. All rights reserved. # # Copyright (c) 1988, 1993 # # The Regents of the University of California. All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is a generic configuration file for SunOS 4.1.x. # # It has support for local and SMTP mail only. If you want to # # customize it, copy it to a name appropriate for your environment # # and do the modifications there. # # # # divert(0)dnl # VERSIONID(`$Id: generic-sunos4.1.mc,v 8.12 2013-11-22 20:51:08 ca Exp $') # OSTYPE(sunos4.1)dnl # DOMAIN(generic)dnl # MAILER(local)dnl # MAILER(smtp)dnl sendmail-8.18.1/cf/cf/clientproto.mc0000644000372400037240000000162114556365350016632 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This the prototype for a "null client" -- that is, a client that # does nothing except forward all mail to a mail hub. IT IS NOT # USABLE AS IS!!! # # To use this, you MUST use the nullclient feature with the name of # the mail hub as its argument. You MUST also define an `OSTYPE' to # define the location of the queue directories and the like. # divert(0)dnl VERSIONID(`$Id: clientproto.mc,v 8.17 2013-11-22 20:51:08 ca Exp $') OSTYPE(unknown) FEATURE(nullclient, mailhost.$m) sendmail-8.18.1/cf/cf/cs-hpux9.mc0000644000372400037240000000205614556365350015753 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for HP-UX 9.x. # It applies only to the Computer Science Division at Berkeley, # and should not be used elsewhere. It is provided on the sendmail # distribution as a sample only. To create your own configuration # file, create an appropriate domain file in ../domain, change the # `DOMAIN' macro below to reference that file, and copy the result # to a name of your own choosing. # divert(0)dnl VERSIONID(`$Id: cs-hpux9.mc,v 8.15 2013-11-22 20:51:08 ca Exp $') OSTYPE(hpux9)dnl DOMAIN(CS.Berkeley.EDU)dnl define(`MAIL_HUB', mailspool.CS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl sendmail-8.18.1/cf/cf/ucbvax.mc0000644000372400037240000000540414556365350015563 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This machine has been decommissioned at Berkeley, and hence should # not be considered to be tested. This file is provided as an example # only, of how you might set up a fairly complex configuration. # Ucbvax was our main relay (both SMTP and UUCP) for many years. # At this point I recommend using `FEATURE(mailertable)' instead of # `SITECONFIG' for routing of UUCP within your domain. # divert(0)dnl VERSIONID(`$Id: ucbvax.mc,v 8.15 2013-11-22 20:51:08 ca Exp $') OSTYPE(bsd4.3) DOMAIN(CS.Berkeley.EDU) MASQUERADE_AS(CS.Berkeley.EDU) MAILER(local) MAILER(smtp) MAILER(uucp) undefine(`UUCP_RELAY')dnl LOCAL_CONFIG DDBerkeley.EDU # names for which we act as a local forwarding agent CF CS FF/etc/sendmail.cw # local UUCP connections, and our local uucp name SITECONFIG(uucp.ucbvax, ucbvax, U) # remote UUCP connections, and the machine they are on SITECONFIG(uucp.ucbarpa, ucbarpa.Berkeley.EDU, W) SITECONFIG(uucp.cogsci, cogsci.Berkeley.EDU, X) LOCAL_RULE_3 # map old UUCP names into Internet names UUCPSMTP(bellcore, bellcore.com) UUCPSMTP(decvax, decvax.dec.com) UUCPSMTP(decwrl, decwrl.dec.com) UUCPSMTP(hplabs, hplabs.hp.com) UUCPSMTP(lbl-csam, lbl-csam.arpa) UUCPSMTP(pur-ee, ecn.purdue.edu) UUCPSMTP(purdue, purdue.edu) UUCPSMTP(research, research.att.com) UUCPSMTP(sdcarl, sdcarl.ucsd.edu) UUCPSMTP(sdcsvax, sdcsvax.ucsd.edu) UUCPSMTP(ssyx, ssyx.ucsc.edu) UUCPSMTP(sun, sun.com) UUCPSMTP(ucdavis, ucdavis.ucdavis.edu) UUCPSMTP(ucivax, ics.uci.edu) UUCPSMTP(ucla-cs, cs.ucla.edu) UUCPSMTP(ucla-se, seas.ucla.edu) UUCPSMTP(ucsbcsl, ucsbcsl.ucsb.edu) UUCPSMTP(ucscc, c.ucsc.edu) UUCPSMTP(ucsd, ucsd.edu) UUCPSMTP(ucsfcgl, cgl.ucsf.edu) UUCPSMTP(unmvax, unmvax.cs.unm.edu) UUCPSMTP(uwvax, spool.cs.wisc.edu) LOCAL_RULE_0 # make sure we handle the local domain as absolute R$* < @ $* $D > $* $: $1 < @ $2 $D . > $3 # handle names we forward for as though they were local, so we will use UDB R< @ $=F . $D . > : $* $@ $>7 $2 @here:... -> ... R< @ $D . > : $* $@ $>7 $1 @here:... -> ... R$* $=O $* < @ $=F . $D . > $@ $>7 $1 $2 $3 ...@here -> ... R$* $=O $* < @ $D . > $@ $>7 $1 $2 $3 ...@here -> ... R$* < @ $=F . $D . > $#local $: $1 use UDB # handle local UUCP connections in the Berkeley.EDU domain R$+<@cnmat.$D . > $#uucp$@cnmat$:$1 R$+<@cnmat.CS.$D . > $#uucp$@cnmat$:$1 R$+<@craig.$D . > $#uucp$@craig$:$1 R$+<@craig.CS.$D . > $#uucp$@craig$:$1 sendmail-8.18.1/cf/cf/generic-mpeix.cf0000444000372400037240000012367014556365435017030 0ustar xbuildxbuild# # Copyright (c) 1998-2004, 2009, 2010 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ###################################################################### ###################################################################### ##### ##### SENDMAIL CONFIGURATION FILE ##### ##### built by xbuild@xenon14.us.proofpoint.com on Tue Jan 30 22:39:25 PST 2024 ##### in /export/jenkins/jenkins3/workspace/pps-sendmail/OpenSource/sendmail-8.18.1/cf/cf ##### using ../ as configuration include directory ##### ###################################################################### ##### ##### DO NOT EDIT THIS FILE! Only edit the source .mc file. ##### ###################################################################### ###################################################################### ##### $Id: cfhead.m4,v 8.122 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: cf.m4,v 8.33 2013-11-22 20:51:13 ca Exp $ ##### ##### $Id: generic-mpeix.mc,v 8.2 2013-11-22 20:51:08 ca Exp $ ##### ##### $Id: mpeix.m4,v 1.2 2013-11-22 20:51:15 ca Exp $ ##### ##### $Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $ ##### ##### $Id: redirect.m4,v 8.16 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: use_cw_file.m4,v 8.12 2013-11-22 20:51:11 ca Exp $ ##### ##### $Id: proto.m4,v 8.762 2013-11-22 20:51:13 ca Exp $ ##### # level 10 config file format V10/Berkeley # override file safeties - setting this option compromises system security, # addressing the actual file configuration problem is preferred # need to set this before any file actions are encountered in the cf file O DontBlameSendmail=ForwardFileInGroupWritableDirPath # default LDAP map specification # need to set this now before any LDAP maps are defined #O LDAPDefaultSpec=-h localhost ################## # local info # ################## # my LDAP cluster # need to set this before any LDAP lookups are done (including classes) #D{sendmailMTACluster}$m Cwlocalhost # file containing names of hosts for which we receive email Fw/etc/mail/local-host-names # my official domain name # ... define this only if sendmail cannot automatically determine your domain #Dj$w.Foo.COM # host/domain names ending with a token in class P are canonical CP. # "Smart" relay host (may be null) DS # operators that cannot be in local usernames (i.e., network indicators) CO @ % ! # a class with just dot (for identifying canonical names) C.. # a class with just a left bracket (for identifying domain literals) C[[ # Resolve map (to check if a host exists in check_mail) Kresolve host -a -T C{ResOk}OKR # Hosts for which relaying is permitted ($=R) FR-o /etc/mail/relay-domains # arithmetic map Karith arith # dequoting map Kdequote dequote # class E: names that should be exposed as from this host, even if we masquerade # class L: names that should be delivered locally, even if we have a relay # class M: domains that should be converted to $M # class N: domains that should not be converted to $M #CL root C{E}root # my name for error messages DnMAILER-DAEMON CPREDIRECT EOPENSSL_CONF=/etc/mail/sendmail.ossl # Configuration version number DZ8.18.1 ############### # Options # ############### # strip message body to 7 bits on input? O SevenBitInput=False # 8-bit data handling #O EightBitMode=pass8 # wait for alias file rebuild (default units: minutes) O AliasWait=10 # location of alias file O AliasFile=/etc/mail/aliases # minimum number of free blocks on filesystem O MinFreeBlocks=100 # maximum message size #O MaxMessageSize=0 # substitution for space (blank) characters O BlankSub=. # avoid connecting to "expensive" mailers on initial submission? O HoldExpensive=False # checkpoint queue runs after every N successful deliveries #O CheckpointInterval=10 # default delivery mode O DeliveryMode=background # error message header/file #O ErrorHeader=/etc/mail/error-header # error mode #O ErrorMode=print # save Unix-style "From_" lines at top of header? #O SaveFromLine=False # queue file mode (qf files) #O QueueFileMode=0600 # temporary file mode O TempFileMode=0600 # match recipients against GECOS field? #O MatchGECOS=False # maximum hop count #O MaxHopCount=25 # location of help file O HelpFile=/etc/mail/helpfile # ignore dots as terminators in incoming messages? #O IgnoreDots=False # name resolver options #O ResolverOptions=+AAONLY # deliver MIME-encapsulated error messages? O SendMimeErrors=True # Forward file search path O ForwardPath=$z/.forward # open connection cache size O ConnectionCacheSize=2 # open connection cache timeout O ConnectionCacheTimeout=5m # persistent host status directory #O HostStatusDirectory=.hoststat # single thread deliveries (requires HostStatusDirectory)? #O SingleThreadDelivery=False # use Errors-To: header? O UseErrorsTo=False # use compressed IPv6 address format? #O UseCompressedIPv6Addresses # log level O LogLevel=9 # send to me too, even in an alias expansion? #O MeToo=True # verify RHS in newaliases? O CheckAliases=False # default messages to old style headers if no special punctuation? O OldStyleHeaders=True # SMTP daemon options O DaemonPortOptions=Name=MTA O DaemonPortOptions=Port=587, Name=MSA, M=E # SMTP client options #O ClientPortOptions=Family=inet, Address=0.0.0.0 # Modifiers to define {daemon_flags} for direct submissions #O DirectSubmissionModifiers # Use as mail submission program? See sendmail/SECURITY #O UseMSP # privacy flags O PrivacyOptions=authwarnings # who (if anyone) should get extra copies of error messages #O PostmasterCopy=Postmaster # slope of queue-only function #O QueueFactor=600000 # limit on number of concurrent queue runners #O MaxQueueChildren # maximum number of queue-runners per queue-grouping with multiple queues #O MaxRunnersPerQueue=1 # priority of queue runners (nice(3)) #O NiceQueueRun # shall we sort the queue by hostname first? #O QueueSortOrder=priority # minimum time in queue before retry #O MinQueueAge=30m # maximum time in queue before retry (if > 0; only for exponential delay) #O MaxQueueAge # how many jobs can you process in the queue? #O MaxQueueRunSize=0 # perform initial split of envelope without checking MX records #O FastSplit=1 # queue directory O QueueDirectory=/var/spool/mqueue # key for shared memory; 0 to turn off, -1 to auto-select #O SharedMemoryKey=0 # file to store auto-selected key for shared memory (SharedMemoryKey = -1) #O SharedMemoryKeyFile # timeouts (many of these) #O Timeout.initial=5m #O Timeout.connect=5m #O Timeout.aconnect=0s #O Timeout.iconnect=5m #O Timeout.helo=5m #O Timeout.mail=10m #O Timeout.rcpt=1h #O Timeout.datainit=5m #O Timeout.datablock=1h #O Timeout.datafinal=1h #O Timeout.rset=5m #O Timeout.quit=2m #O Timeout.misc=2m #O Timeout.command=1h #O Timeout.ident=5s #O Timeout.fileopen=60s #O Timeout.control=2m O Timeout.queuereturn=5d #O Timeout.queuereturn.normal=5d #O Timeout.queuereturn.urgent=2d #O Timeout.queuereturn.non-urgent=7d #O Timeout.queuereturn.dsn=5d O Timeout.queuewarn=4h #O Timeout.queuewarn.normal=4h #O Timeout.queuewarn.urgent=1h #O Timeout.queuewarn.non-urgent=12h #O Timeout.queuewarn.dsn=4h #O Timeout.hoststatus=30m #O Timeout.resolver.retrans=5s #O Timeout.resolver.retrans.first=5s #O Timeout.resolver.retrans.normal=5s #O Timeout.resolver.retry=4 #O Timeout.resolver.retry.first=4 #O Timeout.resolver.retry.normal=4 #O Timeout.lhlo=2m #O Timeout.auth=10m #O Timeout.starttls=1h # time for DeliverBy; extension disabled if less than 0 #O DeliverByMin=0 # should we not prune routes in route-addr syntax addresses? #O DontPruneRoutes=False # queue up everything before forking? O SuperSafe=True # status file #O StatusFile # time zone handling: # if undefined, use system default # if defined but null, use TZ envariable passed in # if defined and non-null, use that info O TimeZoneSpec= # default UID (can be username or userid:groupid) O DefaultUser=SERVER.SENDMAIL # list of locations of user database file (null means no lookup) #O UserDatabaseSpec=/etc/mail/userdb # fallback MX host #O FallbackMXhost=fall.back.host.net # fallback smart host #O FallbackSmartHost=fall.back.host.net # if we are the best MX host for a site, try it directly instead of config err #O TryNullMXList=False # load average at which we just queue messages #O QueueLA=8 # load average at which we refuse connections #O RefuseLA=12 # log interval when refusing connections for this long #O RejectLogInterval=3h # load average at which we delay connections; 0 means no limit #O DelayLA=0 # maximum number of children we allow at one time #O MaxDaemonChildren=0 # maximum number of new connections per second #O ConnectionRateThrottle=0 # Width of the window #O ConnectionRateWindowSize=60s # work recipient factor #O RecipientFactor=30000 # deliver each queued job in a separate process? #O ForkEachJob=False # work class factor #O ClassFactor=1800 # work time factor #O RetryFactor=90000 # default character set #O DefaultCharSet=unknown-8bit # service switch file (name hardwired on Solaris, Ultrix, OSF/1, others) #O ServiceSwitchFile=/etc/mail/service.switch # hosts file (normally /etc/hosts) #O HostsFile=/etc/hosts # dialup line delay on connection failure #O DialDelay=0s # action to take if there are no recipients in the message #O NoRecipientAction=none # chrooted environment for writing to files #O SafeFileEnvironment # are colons OK in addresses? #O ColonOkInAddr=True # shall I avoid expanding CNAMEs (violates protocols)? #O DontExpandCnames=False # SMTP initial login message (old $e macro) O SmtpGreetingMessage=$j Sendmail $v/$Z; $b # UNIX initial From header format (old $l macro) O UnixFromLine=From $g $d # From: lines that have embedded newlines are unwrapped onto one line #O SingleLineFromHeader=False # Allow HELO SMTP command that does not include a host name #O AllowBogusHELO=False # Characters to be quoted in a full name phrase (@,;:\()[] are automatic) #O MustQuoteChars=. # delimiter (operator) characters (old $o macro) O OperatorChars=.:%@!^/[]+ # shall I avoid calling initgroups(3) because of high NIS costs? #O DontInitGroups=False # are group-writable :include: and .forward files (un)trustworthy? # True (the default) means they are not trustworthy. #O UnsafeGroupWrites=True # where do errors that occur when sending errors get sent? #O DoubleBounceAddress=postmaster # issue temporary errors (4xy) instead of permanent errors (5xy)? #O SoftBounce=False # where to save bounces if all else fails #O DeadLetterDrop=/var/tmp/dead.letter # what user id do we assume for the majority of the processing? #O RunAsUser=sendmail # maximum number of recipients per SMTP envelope #O MaxRecipientsPerMessage=0 # limit the rate recipients per SMTP envelope are accepted # once the threshold number of recipients have been rejected #O BadRcptThrottle=0 # shall we get local names from our installed interfaces? #O DontProbeInterfaces=False # Return-Receipt-To: header implies DSN request #O RrtImpliesDsn=False # override connection address (for testing) #O ConnectOnlyTo=0.0.0.0 # Trusted user for file ownership and starting the daemon O TrustedUser=SERVER.SENDMAIL # Control socket for daemon management #O ControlSocketName=/var/spool/mqueue/.control # Maximum MIME header length to protect MUAs #O MaxMimeHeaderLength=0/0 # Maximum length of the sum of all headers O MaxHeadersLength=32768 # Maximum depth of alias recursion #O MaxAliasRecursion=10 # location of pid file #O PidFile=/var/run/sendmail.pid # Prefix string for the process title shown on 'ps' listings #O ProcessTitlePrefix=prefix # Data file (df) memory-buffer file maximum size #O DataFileBufferSize=4096 # Transcript file (xf) memory-buffer file maximum size #O XscriptFileBufferSize=4096 # lookup type to find information about local mailboxes #O MailboxDatabase=pw # override compile time flag REQUIRES_DIR_FSYNC #O RequiresDirfsync=true # list of authentication mechanisms #O AuthMechanisms=EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5 # Authentication realm #O AuthRealm # default authentication information for outgoing connections #O DefaultAuthInfo=/etc/mail/default-auth-info # SMTP AUTH flags #O AuthOptions # SMTP AUTH maximum encryption strength #O AuthMaxBits # SMTP STARTTLS server options #O TLSSrvOptions # SSL cipherlist #O CipherList # server side SSL options #O ServerSSLOptions # client side SSL options #O ClientSSLOptions # SSL Engine #O SSLEngine # Path to dynamic library for SSLEngine #O SSLEnginePath # TLS: fall back to clear text after handshake failure? #O TLSFallbacktoClear # Input mail filters #O InputMailFilters # CA directory #O CACertPath # CA file #O CACertFile # Server Cert #O ServerCertFile # Server private key #O ServerKeyFile # Client Cert #O ClientCertFile # Client private key #O ClientKeyFile # File containing certificate revocation lists #O CRLFile # Directory containing hashes pointing to certificate revocation status files #O CRLPath # DHParameters (only required if DSA/DH is used) #O DHParameters # Random data source (required for systems without /dev/urandom under OpenSSL) #O RandFile # fingerprint algorithm (digest) to use for the presented cert #O CertFingerprintAlgorithm # enable DANE? #O DANE=false # Maximum number of "useless" commands before slowing down #O MaxNOOPCommands=20 # Name to use for EHLO (defaults to $j) #O HeloName ############################ # QUEUE GROUP DEFINITIONS # ############################ ########################### # Message precedences # ########################### Pfirst-class=0 Pspecial-delivery=100 Plist=-30 Pbulk=-60 Pjunk=-100 ##################### # Trusted users # ##################### # this is equivalent to setting class "t" #Ft/etc/mail/trusted-users Troot Tdaemon Tuucp ######################### # Format of headers # ######################### H?P?Return-Path: <$g> HReceived: $?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated$?{auth_ssf} bits=${auth_ssf}$.) $.by $j ($v/$Z)$?r with $r$. id $i$?{tls_version} (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})$.$?u for $u; $|; $.$b H?D?Resent-Date: $a H?D?Date: $a H?F?Resent-From: $?x$x <$g>$|$g$. H?F?From: $?x$x <$g>$|$g$. H?x?Full-Name: $x # HPosted-Date: $a # H?l?Received-Date: $b H?M?Resent-Message-Id: <$t.$i@$j> H?M?Message-Id: <$t.$i@$j> # ###################################################################### ###################################################################### ##### ##### REWRITING RULES ##### ###################################################################### ###################################################################### ############################################ ### Ruleset 3 -- Name Canonicalization ### ############################################ Scanonify=3 # handle null input (translate to <@> special case) R$@ $@ <@> # strip group: syntax (not inside angle brackets!) and trailing semicolon R$* $: $1 <@> mark addresses R$* < $* > $* <@> $: $1 < $2 > $3 unmark R@ $* <@> $: @ $1 unmark @host:... R$* [ IPv6 : $+ ] <@> $: $1 [ IPv6 : $2 ] unmark IPv6 addr R$* :: $* <@> $: $1 :: $2 unmark node::addr R:include: $* <@> $: :include: $1 unmark :include:... R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon R$* : $* <@> $: $2 strip colon if marked R$* <@> $: $1 unmark R$* ; $1 strip trailing semi R$* < $+ :; > $* $@ $2 :; <@> catch R$* < $* ; > $1 < $2 > bogus bracketed semi # null input now results from list:; syntax R$@ $@ :; <@> # strip angle brackets -- note RFC733 heuristic to get innermost item R$* $: < $1 > housekeeping <> R$+ < $* > < $2 > strip excess on left R< $* > $+ < $1 > strip excess on right R<> $@ < @ > MAIL FROM:<> case R< $+ > $: $1 remove housekeeping <> # strip route address <@a,@b,@c:user@d> -> R@ $+ , $+ $2 R@ [ $* ] : $+ $2 R@ $+ : $+ $2 # find focus for list syntax R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax R $+ : $* ; $@ $1 : $2; list syntax # find focus for @ syntax addresses R$+ @ $+ $: $1 < @ $2 > focus on domain R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical # convert old-style addresses to a domain-based address R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains # if we have % signs, take the rightmost one R$* % $* $1 @ $2 First make them all @s. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish # else we must be a local name R$* $@ $>Canonify2 $1 ################################################ ### Ruleset 96 -- bottom half of ruleset 3 ### ################################################ SCanonify2=96 # handle special cases for local names R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain # check for IPv4/IPv6 domain literal R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [addr] R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr # if really UUCP, handle it immediately # try UUCP traffic as a local address R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3 R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3 # hostnames ending in class P are always canonical R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4 R$* < @ $* $~P > $* $: $&{daemon_flags} $| $1 < @ $2 $3 > $4 R$* CC $* $| $* < @ $+.$+ > $* $: $3 < @ $4.$5 . > $6 R$* CC $* $| $* $: $3 # pass to name server to make hostname canonical R$* $| $* < @ $* > $* $: $2 < @ $[ $3 $] > $4 R$* $| $* $: $2 # local host aliases and pseudo-domains are always canonical R$* < @ $=w > $* $: $1 < @ $2 . > $3 R$* < @ $=M > $* $: $1 < @ $2 . > $3 R$* < @ $* . . > $* $1 < @ $2 . > $3 ################################################## ### Ruleset 4 -- Final Output Post-rewriting ### ################################################## Sfinal=4 R$+ :; <@> $@ $1 : handle R$* <@> $@ handle <> and list:; # strip trailing dot off possibly canonical name R$* < @ $+ . > $* $1 < @ $2 > $3 # eliminate internal code R$* < @ *LOCAL* > $* $1 < @ $j > $2 # externalize local domain info R$* < $+ > $* $1 $2 $3 defocus R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 canonical R@ $* $@ @ $1 ... and exit # UUCP must always be presented in old form R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u # delete duplicate local names R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host ############################################################## ### Ruleset 97 -- recanonicalize and call ruleset zero ### ### (used for recursive calls) ### ############################################################## SRecurse=97 R$* $: $>canonify $1 R$* $@ $>parse $1 ###################################### ### Ruleset 0 -- Parse Address ### ###################################### Sparse=0 R$* $: $>Parse0 $1 initial parsing R<@> $#local $: <@> special case error msgs R$* $: $>ParseLocal $1 handle local hacks R$* $: $>Parse1 $1 final parsing # # Parse0 -- do initial syntax checking and eliminate local addresses. # This should either return with the (possibly modified) input # or return with a #error mailer. It should not return with a # #mailer other than the #error mailer. # SParse0 R<@> $@ <@> special case error msgs R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses" R@ <@ $* > < @ $1 > catch "@@host" bogosity R<@ $+> $#error $@ 5.1.3 $: "553 User address required" R$+ <@> $#error $@ 5.1.3 $: "553 Hostname required" R$* $: <> $1 R<> $* < @ [ $* ] : $+ > $* $1 < @ [ $2 ] : $3 > $4 R<> $* < @ [ $* ] , $+ > $* $1 < @ [ $2 ] , $3 > $4 R<> $* < @ [ $* ] $+ > $* $#error $@ 5.1.2 $: "553 Invalid address" R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3 R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part" R<> $* $1 R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name" R$* < @ $* @ > $* $#error $@ 5.1.2 $: "553 Invalid route address" R$* @ $* < @ $* > $* $#error $@ 5.1.3 $: "553 Invalid route address" R$* , $~O $* $#error $@ 5.1.3 $: "553 Invalid route address" # now delete the local info -- note $=O to find characters that cause forwarding R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ... R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here R< @ $+ > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ... R$- $: $(dequote $1 $) < @ *LOCAL* > dequote "foo" R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required" R$* $=O $* < @ *LOCAL* > $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ... R$* < @ *LOCAL* > $: $1 # # Parse1 -- the bottom half of ruleset 0. # SParse1 # handle numeric address spec R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec R$* < @ [ $+ ] > $* $: $1 < @ [ $2 ] : $S > $3 Add smart host to path R$* < @ [ $+ ] : > $* $#esmtp $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer R$* < @ [ $+ ] : $+ > $* $#esmtp $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer # short circuit local delivery so forwarded email works R$=L < @ $=w . > $#local $: @ $1 special local names R$+ < @ $=w . > $#local $: $1 regular local name # resolve remotely connected UUCP links (if any) # resolve fake top level domains by forwarding to other hosts # pass names that still have a host to a smarthost (if defined) R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name # deal with other remote names R$* < @$* > $* $#esmtp $@ $2 $: $1 < @ $2 > $3 user@host.domain # handle locally delivered names R$=L $#local $: @ $1 special local names R$+ $#local $: $1 regular local names ########################################################################### ### Ruleset 5 -- special rewriting after aliases have been expanded ### ########################################################################### SLocal_localaddr Slocaladdr=5 R$+ $: $1 $| $>"Local_localaddr" $1 R$+ $| $#ok $@ $1 no change R$+ $| $#$* $#$2 R$+ $| $* $: $1 # deal with plussed users so aliases work nicely R$+ + * $#local $@ $&h $: $1 R$+ + $* $#local $@ + $2 $: $1 + * # prepend an empty "forward host" on the front R$+ $: <> $1 R< > $+ $: < > < $1 <> $&h > nope, restore +detail R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail R< > < $+ <> $* > $: < > < $1 > else discard R< > < $+ + $* > $* < > < $1 > + $2 $3 find the user part R< > < $+ > + $* $#local $@ $2 $: @ $1 strip the extra + R< > < $+ > $@ $1 no +detail R$+ $: $1 <> $&h add +detail back in R$+ <> + $* $: $1 + $2 check whether +detail R$+ <> $* $: $1 else discard R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension R< $~[ : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 > R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 > ################################################################### ### Ruleset 95 -- canonify mailer:[user@]host syntax to triple ### ################################################################### SMailerToTriple=95 R< > $* $@ $1 strip off null relay R< error : $-.$-.$- : $+ > $* $#error $@ $1.$2.$3 $: $4 R< error : $- : $+ > $* $#error $@ $(dequote $1 $) $: $2 R< error : $+ > $* $#error $: $1 R< local : $* > $* $>CanonLocal < $1 > $2 R< $~[ : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user R< $~[ : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer R< $=w > $* $@ $2 delete local host R< $+ > $* $#relay $@ $1 $: $2 use unqualified mailer ################################################################### ### Ruleset CanonLocal -- canonify local: syntax ### ################################################################### SCanonLocal # strip local host from routed addresses R< $* > < @ $+ > : $+ $@ $>Recurse $3 R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4 # strip trailing dot from any host name that may appear R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 > # handle local: syntax -- use old user, either with or without host R< > $* < @ $* > $* $#local $@ $1@$2 $: $1 R< > $+ $#local $@ $1 $: $1 # handle local:user@host syntax -- ignore host part R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 > # handle local:user syntax R< $+ > $* <@ $* > $* $#local $@ $2@$3 $: $1 R< $+ > $* $#local $@ $2 $: $1 ################################################################### ### Ruleset 93 -- convert header names to masqueraded form ### ################################################################### SMasqHdr=93 # do not masquerade anything in class N R$* < @ $* $=N . > $@ $1 < @ $2 $3 . > R$* < @ *LOCAL* > $@ $1 < @ $j . > ################################################################### ### Ruleset 94 -- convert envelope names to masqueraded form ### ################################################################### SMasqEnv=94 R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 ################################################################### ### Ruleset 98 -- local part of ruleset zero (can be null) ### ################################################################### SParseLocal=98 # addresses sent to foo@host.REDIRECT will give a 551 error code R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT . > < ${opMode} > R$* < @ $+ .REDIRECT. > $: $1 < @ $2 . REDIRECT. > R$* < @ $+ .REDIRECT. > < $- > $#error $@ 5.1.1 $: "551 User has moved; please try " <$1@$2> ###################################################################### ### CanonAddr -- Convert an address into a standard form for ### relay checking. Route address syntax is ### crudely converted into a %-hack address. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed address, not in source route form ###################################################################### SCanonAddr R$* $: $>Parse0 $>canonify $1 make domain canonical ###################################################################### ### ParseRecipient -- Strip off hosts in $=R as well as possibly ### $* $=m or the access database. ### Check user portion for host separators. ### ### Parameters: ### $1 -- full recipient address ### ### Returns: ### parsed, non-local-relaying address ###################################################################### SParseRecipient R$* $: $>CanonAddr $1 R $* < @ $* . > $1 < @ $2 > strip trailing dots R $- < @ $* > $: $(dequote $1 $) < @ $2 > dequote local part # if no $=O character, no host in the user portion, we are done R $* $=O $* < @ $* > $: $1 $2 $3 < @ $4> R $* $@ $1 R $* < @ $* $=R > $: $1 < @ $2 $3 > R $* < @ $* > $@ $>ParseRecipient $1 R<$+> $* $@ $2 ###################################################################### ### check_relay -- check hostname/address on SMTP startup ###################################################################### SLocal_check_relay Scheck_relay R$* $: $1 $| $>"Local_check_relay" $1 R$* $| $* $| $#$* $#$3 R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2 SBasic_check_relay # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### ### check_mail -- check SMTP `MAIL FROM:' command argument ###################################################################### SLocal_check_mail Scheck_mail R$* $: $1 $| $>"Local_check_mail" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_mail" $1 SBasic_check_mail # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 # authenticated? R$* $: $1 $| $>"tls_client" $&{verify} $| MAIL R$* $| $#$+ $#$2 R$* $| $* $: $1 R<> $@ we MUST accept <> (RFC 1123) R$+ $: $1 R<$+> $: <@> <$1> R$+ $: <@> <$1> R$* $: $&{daemon_flags} $| $1 R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 > R$* u $* $| <@> < $* > $: < $3 > R$* $| $* $: $2 # handle case of @localhost on address R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost > R<@> < $* @ [127.0.0.1] > $: < ? $&{client_name} > < $1 @ [127.0.0.1] > R<@> < $* @ [IPv6:0:0:0:0:0:0:0:1] > $: < ? $&{client_name} > < $1 @ [IPv6:0:0:0:0:0:0:0:1] > R<@> < $* @ [IPv6:::1] > $: < ? $&{client_name} > < $1 @ [IPv6:::1] > R<@> < $* @ localhost.$m > $: < ? $&{client_name} > < $1 @ localhost.$m > R<@> < $* @ localhost.UUCP > $: < ? $&{client_name} > < $1 @ localhost.UUCP > R<@> $* $: $1 no localhost as domain R $* $: $2 local client: ok R <$+> $#error $@ 5.5.4 $: "553 Real domain name required for sender address" R $* $: $1 R$* $: $>CanonAddr $1 canonify sender address and mark it R $* < @ $+ . > $1 < @ $2 > strip trailing dots # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc) R $* < @ $* $=P > $: $1 < @ $2 $3 > R $* < @ $j > $: $1 < @ $j > R $* < @ $+ > $: $) > $1 < @ $2 > R> $* < @ $+ > $: <$2> $3 < @ $4 > # handle case of no @domain on address R $* $: $&{daemon_flags} $| $1 R$* u $* $| $* $: $3 R$* $| $* $: $2 R $* $: < ? $&{client_addr} > $1 R $* $@ ...local unqualed ok R $* $#error $@ 5.5.4 $: "553 Domain name required for sender address " $&f ...remote is not # check results R $* $: @ $1 mark address: nothing known about it R<$={ResOk}> $* $: @ $2 domain ok R $* $#error $@ 4.1.8 $: "451 Domain of sender address " $&f " does not resolve" R $* $#error $@ 5.1.8 $: "553 Domain of sender address " $&f " does not exist" ###################################################################### ### check_rcpt -- check SMTP `RCPT TO:' command argument ###################################################################### SLocal_check_rcpt Scheck_rcpt R$* $: $1 $| $>"Local_check_rcpt" $1 R$* $| $#$* $#$2 R$* $| $* $@ $>"Basic_check_rcpt" $1 SBasic_check_rcpt # empty address? R<> $#error $@ nouser $: "553 User address required" R$@ $#error $@ nouser $: "553 User address required" # check for deferred delivery mode R$* $: < $&{deliveryMode} > $1 R< d > $* $@ deferred R< $* > $* $: $2 ###################################################################### R$* $: $1 $| @ $>"Rcpt_ok" $1 R$* $| @ $#TEMP $+ $: $1 $| T $2 R$* $| @ $#$* $#$2 R$* $| @ RELAY $@ RELAY R$* $| @ $* $: O $| $>"Relay_ok" $1 R$* $| T $+ $: T $2 $| $>"Relay_ok" $1 R$* $| $#TEMP $+ $#error $2 R$* $| $#$* $#$2 R$* $| RELAY $@ RELAY R T $+ $| $* $#error $1 # anything else is bogus R$* $#error $@ 5.7.1 $: "550 Relaying denied" ###################################################################### ### Rcpt_ok: is the recipient ok? ###################################################################### SRcpt_ok R$* $: $>ParseRecipient $1 strip relayable hosts # authenticated via TLS? R$* $: $1 $| $>RelayTLS client authenticated? R$* $| $# $+ $# $2 error/ok? R$* $| $* $: $1 no R$* $: $1 $| $>"Local_Relay_Auth" $&{auth_type} R$* $| $# $* $# $2 R$* $| NO $: $1 R$* $| $* $: $1 $| $&{auth_type} R$* $| $: $1 R$* $| $={TrustAuthMech} $# RELAY R$* $| $* $: $1 # anything terminating locally is ok R$+ < @ $=w > $@ RELAY R$+ < @ $* $=R > $@ RELAY # check for local user (i.e. unqualified address) R$* $: $1 R $* < @ $+ > $: $1 < @ $2 > # local user is ok R $+ $@ RELAY R<$+> $* $: $2 ###################################################################### ### Relay_ok: is the relay/sender ok? ###################################################################### SRelay_ok # anything originating locally is ok # check IP address R$* $: $&{client_addr} R$@ $@ RELAY originated locally R0 $@ RELAY originated locally R127.0.0.1 $@ RELAY originated locally RIPv6:0:0:0:0:0:0:0:1 $@ RELAY originated locally RIPv6:::1 $@ RELAY originated locally R$=R $* $@ RELAY relayable IP address R$* $: [ $1 ] put brackets around it... R$=w $@ RELAY ... and see if it is local # check client name: first: did it resolve? R$* $: < $&{client_resolve} > R $#TEMP $@ 4.4.0 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name} R $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name} R$* $: <@> $&{client_name} # pass to name server to make hostname canonical R<@> $* $=P $: $1 $2 R<@> $+ $: $[ $1 $] R$* . $1 strip trailing dots R $=w $@ RELAY R $* $=R $@ RELAY ###################################################################### ### trust_auth: is user trusted to authenticate as someone else? ### ### Parameters: ### $1: AUTH= parameter from MAIL command ###################################################################### SLocal_trust_auth Strust_auth R$* $: $&{auth_type} $| $1 # required by RFC 2554 section 4. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated" R$* $| $&{auth_authen} $@ identical R$* $| <$&{auth_authen}> $@ identical R$* $| $* $: $1 $| $>"Local_trust_auth" $2 R$* $| $#$* $#$2 R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author} ###################################################################### ### Relay_Auth: allow relaying based on authentication? ### ### Parameters: ### $1: ${auth_type} ###################################################################### SLocal_Relay_Auth ###################################################################### ### srv_features: which features to offer to a client? ### (done in server) ###################################################################### Ssrv_features ###################################################################### ### clt_features: which features to use with a server? ### (done in client) ###################################################################### Sclt_features ###################################################################### ### try_tls: try to use STARTTLS? ### (done in client) ###################################################################### Stry_tls ###################################################################### ### tls_rcpt: is connection with server "good" enough? ### (done in client, per recipient) ### ### Parameters: ### $1: recipient ###################################################################### Stls_rcpt R$* $: $1 $| $&{verify} R$* $| DANE_NOTLS $#error $@ 4.7.0 $: "454 DANE: missing STARTTLS." R$* $| DANE_TEMP $#error $@ 4.7.0 $: "454 DANE check failed temporarily." R$* $| DANE_FAIL $#error $@ 4.7.0 $: "454 DANE check failed." ###################################################################### ### tls_client: is connection with client "good" enough? ### (done in server) ### ### Parameters: ### ${verify} $| (MAIL|STARTTLS) ###################################################################### Stls_client R$* $| $* $@ $>"TLS_connection" $1 ###################################################################### ### tls_server: is connection with server "good" enough? ### (done in client) ### ### Parameter: ### ${verify} ###################################################################### Stls_server R$* $@ $>"TLS_connection" $1 ###################################################################### ### TLS_connection: is TLS connection "good" enough? ### ### Parameters: ### ${verify} ### Requirement: RHS from access map, may be ? for none. ###################################################################### STLS_connection RSOFTWARE $#error $@ 4.7.0 $: "454 TLS handshake failed." RPROTOCOL $#error $@ 4.7.0 $: "454 STARTTLS failed." RCONFIG $#error $@ 4.7.0 $: "454 STARTTLS temporarily not possible." ###################################################################### ### RelayTLS: allow relaying based on TLS authentication ### ### Parameters: ### none ###################################################################### SRelayTLS # authenticated? ###################################################################### ### authinfo: lookup authinfo in the access map ### ### Parameters: ### $1: {server_name} ### $2: {server_addr} ###################################################################### Sauthinfo # ###################################################################### ###################################################################### ##### ##### MAIL FILTER DEFINITIONS ##### ###################################################################### ###################################################################### # ###################################################################### ###################################################################### ##### ##### MAILER DEFINITIONS ##### ###################################################################### ###################################################################### ################################################## ### Local and Program Mailer specification ### ################################################## ##### $Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $ ##### # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqEnv $1 do masquerading # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed R$* $: $>MasqHdr $1 do masquerading # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # Common code to add local domain name (only if always-add-domain) # SAddDomain Mlocal, P=/bin/tsmail, F=lsDFMAw5:/|@qmu9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix, A=tsmail $u Mprog, P=/bin/sh, F=lsDFMoqeu9, S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=$z:/, T=X-Unix/X-Unix/X-Unix, A=sh -c $u ##################################### ### SMTP Mailer specification ### ##################################### ##### $Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $ ##### # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=mDFMuX, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mesmtp, P=[IPC], F=mDFMuXa, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Msmtp8, P=[IPC], F=mDFMuX8, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mdsmtp, P=[IPC], F=mDFMuXa%, S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP, E=\r\n, L=990, T=DNS/RFC822/SMTP, A=TCP $h Mrelay, P=[IPC], F=mDFMuXa8, S=EnvFromSMTP/HdrFromSMTP, R=MasqSMTP, E=\r\n, L=2040, T=DNS/RFC822/SMTP, A=TCP $h ### generic-mpeix.mc ### # divert(-1) # # # # Copyright (c) 2001 Proofpoint, Inc. and its suppliers. # # All rights reserved. # # # # By using this file, you agree to the terms and conditions set # # forth in the LICENSE file which can be found at the top level of # # the sendmail distribution. # # # # # # # # # This is a generic configuration file for HP MPE/iX. # # It has support for local and SMTP mail only. If you want to # # customize it, copy it to a name appropriate for your environment # # and do the modifications there. # # # # divert(0)dnl # VERSIONID(`$Id: generic-mpeix.mc,v 8.2 2013-11-22 20:51:08 ca Exp $') # OSTYPE(mpeix)dnl # DOMAIN(generic)dnl # define(`confFORWARD_PATH', `$z/.forward')dnl # MAILER(local)dnl # MAILER(smtp)dnl sendmail-8.18.1/cf/cf/mail.eecs.mc0000644000372400037240000000246614556365350016140 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # This is a Berkeley-specific configuration file for a specific # machine in Electrical Engineering and Computer Sciences at Berkeley, # and should not be used elsewhere. It is provided on the sendmail # distribution as a sample only. # # This file is for the primary EECS mail server. # divert(0)dnl VERSIONID(`$Id: mail.eecs.mc,v 8.19 2013-11-22 20:51:08 ca Exp $') OSTYPE(ultrix4)dnl DOMAIN(EECS.Berkeley.EDU)dnl MASQUERADE_AS(EECS.Berkeley.EDU)dnl MAILER(local)dnl MAILER(smtp)dnl define(`confUSERDB_SPEC', `/usr/local/lib/users.eecs.db,/usr/local/lib/users.cs.db,/usr/local/lib/users.coe.db')dnl LOCAL_CONFIG DDBerkeley.EDU # hosts for which we accept and forward mail (must be in .Berkeley.EDU) CF EECS FF/etc/sendmail.cw LOCAL_RULE_0 R< @ $=F . $D . > : $* $@ $>7 $2 @here:... -> ... R$* $=O $* < @ $=F . $D . > $@ $>7 $1 $2 $3 ...@here -> ... R$* < @ $=F . $D . > $#local $: $1 use UDB sendmail-8.18.1/cf/mailer/0000755000372400037240000000000014556365434014633 5ustar xbuildxbuildsendmail-8.18.1/cf/mailer/phquery.m40000644000372400037240000000210314556365350016563 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Contributed by Kimmo Suominen . # ifdef(`PH_MAILER_PATH',, `define(`PH_MAILER_PATH', /usr/local/etc/phquery)') _DEFIFNOT(`PH_MAILER_FLAGS', `ehmu') ifdef(`PH_MAILER_ARGS',, `define(`PH_MAILER_ARGS', `phquery -- $u')') define(`_PH_QGRP', `ifelse(defn(`PH_MAILER_QGRP'),`',`', ` Q=PH_MAILER_QGRP,')')dnl POPDIVERT #################################### ### PH Mailer specification ### #################################### VERSIONID(`$Id: phquery.m4,v 8.18 2013-11-22 20:51:14 ca Exp $') Mph, P=PH_MAILER_PATH, F=_MODMF_(CONCAT(`nrDFM', PH_MAILER_FLAGS), `PH'), S=EnvFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix,_PH_QGRP A=PH_MAILER_ARGS sendmail-8.18.1/cf/mailer/mail11.m40000644000372400037240000000402014556365350016152 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # Not exciting enough to bother with copyrights and most of the # rulesets are based from those provided by DEC. # Barb Dijker, Labyrinth Computer Services, barb@labyrinth.com # # This mailer is only useful if you have DECNET and the # mail11 program - gatekeeper.dec.com:/pub/DEC/gwtools. # # For local delivery of DECNET style addresses to the local # DECNET node, you will need feature(use_cw_file) and put # your DECNET nodename in in the cw file. # ifdef(`MAIL11_MAILER_PATH',, `define(`MAIL11_MAILER_PATH', /usr/etc/mail11)') _DEFIFNOT(`MAIL11_MAILER_FLAGS', `nsFx') ifdef(`MAIL11_MAILER_ARGS',, `define(`MAIL11_MAILER_ARGS', mail11 $g $x $h $u)') define(`_USE_DECNET_SYNTAX_') define(`_LOCAL_', ifdef(`confLOCAL_MAILER', confLOCAL_MAILER, `local')) define(`_MAIL11_QGRP', `ifelse(defn(`MAIL11_MAILER_QGRP'),`',`', ` Q=MAIL11_MAILER_QGRP,')')dnl POPDIVERT PUSHDIVERT(3) # DECNET delivery R$* < @ $=w .DECNET. > $#_LOCAL_ $: $1 local DECnet R$+ < @ $+ .DECNET. > $#mail11 $@ $2 $: $1 DECnet user POPDIVERT PUSHDIVERT(6) CPDECNET POPDIVERT ########################################### ### UTK-MAIL11 Mailer specification ### ########################################### VERSIONID(`$Id: mail11.m4,v 8.23 2013-11-22 20:51:14 ca Exp $') SMail11To R$+ < @ $- .UUCP > $: $2 ! $1 back to old style R$+ < @ $- .DECNET > $: $2 :: $1 convert to DECnet style R$+ < @ $- .LOCAL > $: $2 :: $1 convert to DECnet style R$+ < @ $=w. > $: $2 :: $1 convert to DECnet style R$=w :: $+ $2 strip local names R$+ :: $+ $@ $1 :: $2 already qualified SMail11From R$+ $: $>Mail11To $1 preprocess R$w :: $+ $@ $w :: $1 ready to go Mmail11, P=MAIL11_MAILER_PATH, F=_MODMF_(MAIL11_MAILER_FLAGS, `MAIL11'), S=Mail11From, R=Mail11To, T=DNS/X-DECnet/X-Unix,_MAIL11_QGRP A=MAIL11_MAILER_ARGS sendmail-8.18.1/cf/mailer/pop.m40000644000372400037240000000207614556365350015675 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ifdef(`POP_MAILER_PATH',, `define(`POP_MAILER_PATH', /usr/lib/mh/spop)') _DEFIFNOT(`POP_MAILER_FLAGS', `Penu') ifdef(`POP_MAILER_ARGS',, `define(`POP_MAILER_ARGS', `pop $u')') define(`_POP_QGRP', `ifelse(defn(`POP_MAILER_QGRP'),`',`', ` Q=POP_MAILER_QGRP,')')dnl POPDIVERT #################################### ### POP Mailer specification ### #################################### VERSIONID(`$Id: pop.m4,v 8.23 2013-11-22 20:51:14 ca Exp $') Mpop, P=POP_MAILER_PATH, F=_MODMF_(CONCAT(`lsDFMq', POP_MAILER_FLAGS), `POP'), S=EnvFromL, R=EnvToL/HdrToL, T=DNS/RFC822/X-Unix,_POP_QGRP A=POP_MAILER_ARGS LOCAL_CONFIG # POP mailer is a pseudo-domain CPPOP sendmail-8.18.1/cf/mailer/qpage.m40000644000372400037240000000212314556365350016165 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (C) 1997, Philip A. Prindeville and Enteka Enterprise Technology # Services # # Copyright (c) 1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # Tested with QuickPage version 3.2 # ifdef(`QPAGE_MAILER_PATH', `', `define(`QPAGE_MAILER_PATH', `/usr/local/bin/qpage')') _DEFIFNOT(`QPAGE_MAILER_FLAGS', `mDFMs') ifdef(`QPAGE_MAILER_ARGS', `', `define(`QPAGE_MAILER_ARGS', `qpage -l0 -m -P$u')') ifdef(`QPAGE_MAILER_MAX', `', `define(`QPAGE_MAILER_MAX', `4096')') define(`_QPAGE_QGRP', `ifelse(defn(`QPAGE_MAILER_QGRP'),`',`', ` Q=QPAGE_MAILER_QGRP,')')dnl POPDIVERT ###################################### ### QPAGE Mailer specification ### ###################################### VERSIONID(`$Id: qpage.m4,v 8.11 2013-11-22 20:51:14 ca Exp $') Mqpage, P=QPAGE_MAILER_PATH, F=_MODMF_(QPAGE_MAILER_FLAGS, `QPAGE'), M=QPAGE_MAILER_MAX, T=DNS/RFC822/X-Unix,_QPAGE_QGRP A=QPAGE_MAILER_ARGS sendmail-8.18.1/cf/mailer/fax.m40000644000372400037240000000221014556365350015643 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 1998, 1999, 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # This assumes you already have Sam Leffler's HylaFAX software. # # Tested with HylaFAX 4.0pl1 # ifdef(`FAX_MAILER_ARGS',, `define(`FAX_MAILER_ARGS', faxmail -d $u@$h $f)') ifdef(`FAX_MAILER_PATH',, `define(`FAX_MAILER_PATH', /usr/local/bin/faxmail)') ifdef(`FAX_MAILER_MAX',, `define(`FAX_MAILER_MAX', 100000)') define(`_FAX_QGRP', `ifelse(defn(`FAX_MAILER_QGRP'),`',`', ` Q=FAX_MAILER_QGRP,')')dnl POPDIVERT #################################### ### FAX Mailer specification ### #################################### VERSIONID(`$Id: fax.m4,v 8.17 2013-11-22 20:51:14 ca Exp $') Mfax, P=FAX_MAILER_PATH, F=DFMhu, S=14, R=24, M=FAX_MAILER_MAX, T=X-Phone/X-FAX/X-Unix,_FAX_QGRP A=FAX_MAILER_ARGS LOCAL_CONFIG CPFAX sendmail-8.18.1/cf/mailer/procmail.m40000644000372400037240000000243114556365350016700 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ifdef(`PROCMAIL_MAILER_PATH',, `ifdef(`PROCMAIL_PATH', `define(`PROCMAIL_MAILER_PATH', PROCMAIL_PATH)', `define(`PROCMAIL_MAILER_PATH', /usr/local/bin/procmail)')') _DEFIFNOT(`PROCMAIL_MAILER_FLAGS', `SPhnu9') ifdef(`PROCMAIL_MAILER_ARGS',, `define(`PROCMAIL_MAILER_ARGS', `procmail -Y -m $h $f $u')') define(`_PROCMAIL_QGRP', `ifelse(defn(`PROCMAIL_MAILER_QGRP'),`',`', ` Q=PROCMAIL_MAILER_QGRP,')')dnl POPDIVERT ######################*****############## ### PROCMAIL Mailer specification ### ##################*****################## VERSIONID(`$Id: procmail.m4,v 8.23 2013-11-22 20:51:14 ca Exp $') Mprocmail, P=PROCMAIL_MAILER_PATH, F=_MODMF_(CONCAT(`DFM', PROCMAIL_MAILER_FLAGS), `PROCMAIL'), S=EnvFromSMTP/HdrFromSMTP, R=EnvToSMTP/HdrFromSMTP, ifdef(`PROCMAIL_MAILER_MAX', `M=PROCMAIL_MAILER_MAX, ')T=DNS/RFC822/X-Unix,_PROCMAIL_QGRP A=PROCMAIL_MAILER_ARGS sendmail-8.18.1/cf/mailer/usenet.m40000644000372400037240000000214114556365350016373 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 1998-2000, 2003 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ifdef(`USENET_MAILER_PATH',, `define(`USENET_MAILER_PATH', /usr/lib/news/inews)') _DEFIFNOT(`USENET_MAILER_FLAGS', `rsDFMmn') ifdef(`USENET_MAILER_ARGS',, `define(`USENET_MAILER_ARGS', `inews -m -h -n')') define(`_USENET_QGRP', `ifelse(defn(`USENET_MAILER_QGRP'),`',`', ` Q=USENET_MAILER_QGRP,')')dnl POPDIVERT #################################### ### USENET Mailer specification ### #################################### VERSIONID(`$Id: usenet.m4,v 8.23 2013-11-22 20:51:14 ca Exp $') Musenet, P=USENET_MAILER_PATH, F=_MODMF_(USENET_MAILER_FLAGS, `USENET'), S=EnvFromL, R=EnvToL, _OPTINS(`USENET_MAILER_MAX', `M=', `, ')T=X-Usenet/X-Usenet/X-Unix,_USENET_QGRP A=USENET_MAILER_ARGS $u sendmail-8.18.1/cf/mailer/local.m40000644000372400037240000000706114556365350016170 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 1998-2000, 2004 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # _DEFIFNOT(`_DEF_LOCAL_MAILER_FLAGS', `lsDFMAw5:/|@q') _DEFIFNOT(`LOCAL_MAILER_FLAGS', `Prmn9') ifdef(`LOCAL_MAILER_PATH',, `define(`LOCAL_MAILER_PATH', /bin/mail)') ifdef(`LOCAL_MAILER_ARGS',, `define(`LOCAL_MAILER_ARGS', `mail -d $u')') ifdef(`LOCAL_MAILER_DSN_DIAGNOSTIC_CODE',, `define(`LOCAL_MAILER_DSN_DIAGNOSTIC_CODE', `X-Unix')') _DEFIFNOT(`_DEF_LOCAL_SHELL_FLAGS', `lsDFMoq') _DEFIFNOT(`LOCAL_SHELL_FLAGS', `eu9') ifdef(`LOCAL_SHELL_PATH',, `define(`LOCAL_SHELL_PATH', /bin/sh)') ifdef(`LOCAL_SHELL_ARGS',, `define(`LOCAL_SHELL_ARGS', `sh -c $u')') ifdef(`LOCAL_SHELL_DIR',, `define(`LOCAL_SHELL_DIR', `$z:/')') define(`LOCAL_RWR', `ifdef(`_LOCAL_LMTP_', `S=EnvFromSMTP/HdrFromL, R=EnvToL/HdrToL', `S=EnvFromL/HdrFromL, R=EnvToL/HdrToL')') define(`_LOCAL_QGRP', `ifelse(defn(`LOCAL_MAILER_QGRP'),`',`', ` Q=LOCAL_MAILER_QGRP,')')dnl define(`_PROG_QGRP', `ifelse(defn(`LOCAL_PROG_QGRP'),`',`', ` Q=LOCAL_PROG_QGRP,')')dnl POPDIVERT ################################################## ### Local and Program Mailer specification ### ################################################## VERSIONID(`$Id: local.m4,v 8.60 2013-11-22 20:51:14 ca Exp $') # # Envelope sender rewriting # SEnvFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed ifdef(`_LOCAL_NO_MASQUERADE_', `dnl', `dnl R$* $: $>MasqEnv $1 do masquerading') # # Envelope recipient rewriting # SEnvToL R$+ < @ $* > $: $1 strip host part ifdef(`confUSERDB_SPEC', `dnl', `dnl R$+ + $* $: < $&{addr_type} > $1 + $2 mark with addr type R $+ + $* $: $1 remove +detail for sender R< $* > $+ $: $2 else remove mark') # # Header sender rewriting # SHdrFromL R<@> $n errors to mailer-daemon R@ <@ $*> $n temporarily bypass Sun bogosity R$+ $: $>AddDomain $1 add local domain if needed ifdef(`_LOCAL_NO_MASQUERADE_', `dnl', `dnl R$* $: $>MasqHdr $1 do masquerading') # # Header recipient rewriting # SHdrToL R$+ $: $>AddDomain $1 add local domain if needed ifdef(`_ALL_MASQUERADE_', `dnl ifdef(`_LOCAL_NO_MASQUERADE_', `dnl', `dnl R$* $: $>MasqHdr $1 do all-masquerading')', `R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2') # # Common code to add local domain name (only if always-add-domain) # SAddDomain ifdef(`_ALWAYS_ADD_DOMAIN_', `dnl R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified ifelse(len(X`'_ALWAYS_ADD_DOMAIN_),`1',` R$+ $@ $1 < @ *LOCAL* > add local qualification', `R$+ $@ $1 < @ _ALWAYS_ADD_DOMAIN_ > add qualification')', `dnl') Mlocal, P=LOCAL_MAILER_PATH, F=_MODMF_(CONCAT(_DEF_LOCAL_MAILER_FLAGS, LOCAL_MAILER_FLAGS), `LOCAL'), LOCAL_RWR,_OPTINS(`LOCAL_MAILER_EOL', ` E=', `, ') _OPTINS(`LOCAL_MAILER_MAX', `M=', `, ')_OPTINS(`LOCAL_MAILER_MAXMSGS', `m=', `, ')_OPTINS(`LOCAL_MAILER_MAXRCPTS', `r=', `, ')_OPTINS(`LOCAL_MAILER_CHARSET', `C=', `, ')T=DNS/RFC822/LOCAL_MAILER_DSN_DIAGNOSTIC_CODE,_LOCAL_QGRP A=LOCAL_MAILER_ARGS Mprog, P=LOCAL_SHELL_PATH, F=_MODMF_(CONCAT(_DEF_LOCAL_SHELL_FLAGS, LOCAL_SHELL_FLAGS), `SHELL'), S=EnvFromL/HdrFromL, R=EnvToL/HdrToL, D=LOCAL_SHELL_DIR, _OPTINS(`LOCAL_MAILER_MAX', `M=', `, ')T=X-Unix/X-Unix/X-Unix,_PROG_QGRP A=LOCAL_SHELL_ARGS sendmail-8.18.1/cf/mailer/smtp.m40000644000372400037240000001327014556365350016060 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 1998-2001, 2006 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # _DEFIFNOT(`_DEF_SMTP_MAILER_FLAGS', `mDFMuX') _DEFIFNOT(`SMTP_MAILER_FLAGS',`') _DEFIFNOT(`SMTP_MAILER_LL',`990') _DEFIFNOT(`RELAY_MAILER_LL',`2040') _DEFIFNOT(`RELAY_MAILER_FLAGS', `SMTP_MAILER_FLAGS') ifdef(`SMTP_MAILER_ARGS',, `define(`SMTP_MAILER_ARGS', `TCP $h')') ifdef(`ESMTP_MAILER_ARGS',, `define(`ESMTP_MAILER_ARGS', `TCP $h')') ifdef(`SMTP8_MAILER_ARGS',, `define(`SMTP8_MAILER_ARGS', `TCP $h')') ifdef(`DSMTP_MAILER_ARGS',, `define(`DSMTP_MAILER_ARGS', `TCP $h')') ifdef(`RELAY_MAILER_ARGS',, `define(`RELAY_MAILER_ARGS', `TCP $h')') define(`_SMTP_QGRP', `ifelse(defn(`SMTP_MAILER_QGRP'),`',`', ` Q=SMTP_MAILER_QGRP,')')dnl define(`_ESMTP_QGRP', `ifelse(defn(`ESMTP_MAILER_QGRP'),`',`', ` Q=ESMTP_MAILER_QGRP,')')dnl define(`_SMTP8_QGRP', `ifelse(defn(`SMTP8_MAILER_QGRP'),`',`', ` Q=SMTP8_MAILER_QGRP,')')dnl define(`_DSMTP_QGRP', `ifelse(defn(`DSMTP_MAILER_QGRP'),`',`', ` Q=DSMTP_MAILER_QGRP,')')dnl define(`_RELAY_QGRP', `ifelse(defn(`RELAY_MAILER_QGRP'),`',`', ` Q=RELAY_MAILER_QGRP,')')dnl POPDIVERT ##################################### ### SMTP Mailer specification ### ##################################### VERSIONID(`$Id: smtp.m4,v 8.66 2013-11-22 20:51:14 ca Exp $') # # common sender and masquerading recipient rewriting # SMasqSMTP R$* < @ $* > $* $@ $1 < @ $2 > $3 already fully qualified R$+ $@ $1 < @ *LOCAL* > add local qualification # # convert pseudo-domain addresses to real domain addresses # SPseudoToReal # pass s through R< @ $+ > $* $@ < @ $1 > $2 resolve # output fake domains as user%fake@relay ifdef(`BITNET_RELAY', `R$+ <@ $+ .BITNET. > $: $1 % $2 .BITNET < @ $B > user@host.BITNET R$+.BITNET <@ $~[ $*:$+ > $: $1 .BITNET < @ $4 > strip mailer: part', `dnl') ifdef(`_NO_UUCP_', `dnl', ` # do UUCP heuristics; note that these are shared with UUCP mailers R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form # leave these in .UUCP form to avoid further tampering R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > R< $+ ! > $+ $: $1 ! $2 < @ $Y > use UUCP_RELAY R$+ < @ $~[ $* : $+ > $@ $1 < @ $4 > strip mailer: part R$+ < @ > $: $1 < @ *LOCAL* > if no UUCP_RELAY') # # envelope sender rewriting # SEnvFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$* :; <@> $@ list:; special case R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqEnv $1 do masquerading # # envelope recipient rewriting -- # also header recipient if not masquerading recipients # SEnvToSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R$+ $: $>MasqSMTP $1 qualify unqual'ed names R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2 # # header sender and masquerading header recipient rewriting # SHdrFromSMTP R$+ $: $>PseudoToReal $1 sender/recipient common R:; <@> $@ list:; special case # do special header rewriting R$* <@> $* $@ $1 <@> $2 pass null host through R< @ $* > $* $@ < @ $1 > $2 pass route-addr through R$* $: $>MasqSMTP $1 qualify unqual'ed names R$+ $: $>MasqHdr $1 do masquerading # # relay mailer header masquerading recipient rewriting # SMasqRelay R$+ $: $>MasqSMTP $1 R$+ $: $>MasqHdr $1 Msmtp, P=[IPC], F=_MODMF_(CONCAT(_DEF_SMTP_MAILER_FLAGS, SMTP_MAILER_FLAGS), `SMTP'), S=EnvFromSMTP/HdrFromSMTP, R=ifdef(`_ALL_MASQUERADE_', `EnvToSMTP/HdrFromSMTP', `EnvToSMTP'), E=\r\n, L=SMTP_MAILER_LL, _OPTINS(`SMTP_MAILER_MAX', `M=', `, ')_OPTINS(`SMTP_MAILER_MAXMSGS', `m=', `, ')_OPTINS(`SMTP_MAILER_MAXRCPTS', `r=', `, ')_OPTINS(`SMTP_MAILER_CHARSET', `C=', `, ')T=DNS/RFC822/SMTP,_SMTP_QGRP A=SMTP_MAILER_ARGS Mesmtp, P=[IPC], F=_MODMF_(CONCAT(_DEF_SMTP_MAILER_FLAGS, `a', SMTP_MAILER_FLAGS), `ESMTP'), S=EnvFromSMTP/HdrFromSMTP, R=ifdef(`_ALL_MASQUERADE_', `EnvToSMTP/HdrFromSMTP', `EnvToSMTP'), E=\r\n, L=SMTP_MAILER_LL, _OPTINS(`SMTP_MAILER_MAX', `M=', `, ')_OPTINS(`SMTP_MAILER_MAXMSGS', `m=', `, ')_OPTINS(`SMTP_MAILER_MAXRCPTS', `r=', `, ')_OPTINS(`SMTP_MAILER_CHARSET', `C=', `, ')T=DNS/RFC822/SMTP,_ESMTP_QGRP A=ESMTP_MAILER_ARGS Msmtp8, P=[IPC], F=_MODMF_(CONCAT(_DEF_SMTP_MAILER_FLAGS, `8', SMTP_MAILER_FLAGS), `SMTP8'), S=EnvFromSMTP/HdrFromSMTP, R=ifdef(`_ALL_MASQUERADE_', `EnvToSMTP/HdrFromSMTP', `EnvToSMTP'), E=\r\n, L=SMTP_MAILER_LL, _OPTINS(`SMTP_MAILER_MAX', `M=', `, ')_OPTINS(`SMTP_MAILER_MAXMSGS', `m=', `, ')_OPTINS(`SMTP_MAILER_MAXRCPTS', `r=', `, ')_OPTINS(`SMTP_MAILER_CHARSET', `C=', `, ')T=DNS/RFC822/SMTP,_SMTP8_QGRP A=SMTP8_MAILER_ARGS Mdsmtp, P=[IPC], F=_MODMF_(CONCAT(_DEF_SMTP_MAILER_FLAGS, `a%', SMTP_MAILER_FLAGS), `DSMTP'), S=EnvFromSMTP/HdrFromSMTP, R=ifdef(`_ALL_MASQUERADE_', `EnvToSMTP/HdrFromSMTP', `EnvToSMTP'), E=\r\n, L=SMTP_MAILER_LL, _OPTINS(`SMTP_MAILER_MAX', `M=', `, ')_OPTINS(`SMTP_MAILER_MAXMSGS', `m=', `, ')_OPTINS(`SMTP_MAILER_MAXRCPTS', `r=', `, ')_OPTINS(`SMTP_MAILER_CHARSET', `C=', `, ')T=DNS/RFC822/SMTP,_DSMTP_QGRP A=DSMTP_MAILER_ARGS Mrelay, P=[IPC], F=_MODMF_(CONCAT(_DEF_SMTP_MAILER_FLAGS, `a8', RELAY_MAILER_FLAGS), `RELAY'), S=EnvFromSMTP/HdrFromSMTP, R=ifdef(`_ALL_MASQUERADE_', `MasqSMTP/MasqRelay', `MasqSMTP'), E=\r\n, L=RELAY_MAILER_LL, _OPTINS(`RELAY_MAILER_CHARSET', `C=', `, ')_OPTINS(`RELAY_MAILER_MAXMSGS', `m=', `, ')_OPTINS(`SMTP_MAILER_MAXRCPTS', `r=', `, ')T=DNS/RFC822/SMTP,_RELAY_QGRP A=RELAY_MAILER_ARGS sendmail-8.18.1/cf/mailer/cyrusv2.m40000644000372400037240000000215714556365350016514 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # Contributed by Kenneth Murchison. # _DEFIFNOT(`_DEF_CYRUSV2_MAILER_FLAGS', `lsDFMnqXz') _DEFIFNOT(`CYRUSV2_MAILER_FLAGS', `A@/:|m') ifdef(`CYRUSV2_MAILER_ARGS',, `define(`CYRUSV2_MAILER_ARGS', `FILE /var/imap/socket/lmtp')') define(`_CYRUSV2_QGRP', `ifelse(defn(`CYRUSV2_MAILER_QGRP'),`',`', ` Q=CYRUSV2_MAILER_QGRP,')')dnl POPDIVERT ######################################### ### Cyrus V2 Mailer specification ### ######################################### VERSIONID(`$Id: cyrusv2.m4,v 1.2 2013-11-22 20:51:14 ca Exp $') Mcyrusv2, P=[IPC], F=_MODMF_(CONCAT(_DEF_CYRUSV2_MAILER_FLAGS, CYRUSV2_MAILER_FLAGS), `CYRUSV2'), S=EnvFromSMTP/HdrFromL, R=EnvToL/HdrToL, E=\r\n, _OPTINS(`CYRUSV2_MAILER_MAXMSGS', `m=', `, ')_OPTINS(`CYRUSV2_MAILER_MAXRCPTS', `r=', `, ')_OPTINS(`CYRUSV2_MAILER_CHARSET', `C=', `, ')T=DNS/RFC822/SMTP,_CYRUSV2_QGRP A=CYRUSV2_MAILER_ARGS sendmail-8.18.1/cf/mailer/cyrus.m40000644000372400037240000000536414556365350016247 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # This code incorporates code from Carnegie Mellon University, whose # copyright notice and conditions of redistribution are as follows: # #*************************************************************************** # (C) Copyright 1995 by Carnegie Mellon University # # All Rights Reserved # # Permission to use, copy, modify, and distribute this software and its # documentation for any purpose and without fee is hereby granted, # provided that the above copyright notice appear in all copies and that # both that copyright notice and this permission notice appear in # supporting documentation, and that the name of CMU not be # used in advertising or publicity pertaining to distribution of the # software without specific, written prior permission. # # CMU DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL # CMU BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS # SOFTWARE. # # Contributed to Berkeley by John Gardiner Myers . # _DEFIFNOT(`CYRUS_MAILER_FLAGS', `Ah5@/:|') ifdef(`CYRUS_MAILER_PATH',, `define(`CYRUS_MAILER_PATH', /usr/cyrus/bin/deliver)') ifdef(`CYRUS_MAILER_ARGS',, `define(`CYRUS_MAILER_ARGS', `deliver -e -m $h -- $u')') ifdef(`CYRUS_MAILER_USER',, `define(`CYRUS_MAILER_USER', `cyrus:mail')') _DEFIFNOT(`CYRUS_BB_MAILER_FLAGS', `u') ifdef(`CYRUS_BB_MAILER_ARGS',, `define(`CYRUS_BB_MAILER_ARGS', `deliver -e -m $u')') define(`_CYRUS_QGRP', `ifelse(defn(`CYRUS_MAILER_QGRP'),`',`', ` Q=CYRUS_MAILER_QGRP,')')dnl POPDIVERT ################################################## ### Cyrus Mailer specification ### ################################################## VERSIONID(`$Id: cyrus.m4,v 8.24 2013-11-22 20:51:14 ca Exp $ (Carnegie Mellon)') Mcyrus, P=CYRUS_MAILER_PATH, F=_MODMF_(CONCAT(`lsDFMnPq', CYRUS_MAILER_FLAGS), `CYRUS'), S=EnvFromL, R=EnvToL/HdrToL, ifdef(`CYRUS_MAILER_MAX', `M=CYRUS_MAILER_MAX, ')U=CYRUS_MAILER_USER, T=DNS/RFC822/X-Unix,_CYRUS_QGRP A=CYRUS_MAILER_ARGS Mcyrusbb, P=CYRUS_MAILER_PATH, F=_MODMF_(CONCAT(`lsDFMnP', CYRUS_BB_MAILER_FLAGS), `CYRUS'), S=EnvFromL, R=EnvToL/HdrToL, ifdef(`CYRUS_MAILER_MAX', `M=CYRUS_MAILER_MAX, ')U=CYRUS_MAILER_USER, T=DNS/RFC822/X-Unix,_CYRUS_QGRP A=CYRUS_BB_MAILER_ARGS sendmail-8.18.1/cf/mailer/uucp.m40000644000372400037240000001264614556365350016057 0ustar xbuildxbuildPUSHDIVERT(-1) # # Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', /usr/bin/uux)') ifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -a$g -gC $h!rmail ($u)')') _DEFIFNOT(`UUCP_MAILER_FLAGS', `') ifdef(`UUCP_MAILER_MAX',, `define(`UUCP_MAILER_MAX', `ifdef(`UUCP_MAX_SIZE', `UUCP_MAX_SIZE', 100000)')') define(`_UUCP_QGRP', `ifelse(defn(`UUCP_MAILER_QGRP'),`',`', ` Q=UUCP_MAILER_QGRP,')')dnl POPDIVERT ##################################### ### UUCP Mailer specification ### ##################################### VERSIONID(`$Id: uucp.m4,v 8.45 2013-11-22 20:51:14 ca Exp $') # # envelope and header sender rewriting # SFromU # handle error address as a special case R<@> $n errors to mailer-daemon # list:; syntax should disappear R:; <@> $@ R$* < @ $* . > $* $1 < @ $2 > $3 strip trailing dots R$* < @ $=w > $1 strip local name R<@ $- . UUCP > : $+ $1 ! $2 convert to UUCP format R<@ $+ > : $+ $1 ! $2 convert to UUCP format R$* < @ $- . UUCP > $2 ! $1 convert to UUCP format R$* < @ $+ > $2 ! $1 convert to UUCP format R$&h ! $+ ! $+ $@ $1 ! $2 $h!...!user => ...!user R$&h ! $+ $@ $&h ! $1 $h!user => $h!user R$+ $: $U ! $1 prepend our name R! $+ $: $k ! $1 in case $U undefined # # envelope recipient rewriting # SEnvToU # list:; should disappear R:; <@> $@ R$* < @ $* . > $* $1 < @ $2 > $3 strip trailing dots R$* < @ $=w > $1 strip local name R<@ $- . UUCP > : $+ $1 ! $2 convert to UUCP format R<@ $+ > : $+ $1 ! $2 convert to UUCP format R$* < @ $- . UUCP > $2 ! $1 convert to UUCP format R$* < @ $+ > $2 ! $1 convert to UUCP format # # header recipient rewriting # SHdrToU # list:; syntax should disappear R:; <@> $@ R$* < @ $* . > $* $1 < @ $2 > $3 strip trailing dots R$* < @ $=w > $1 strip local name R<@ $- . UUCP > : $+ $1 ! $2 convert to UUCP format R<@ $+ > : $+ $1 ! $2 convert to UUCP format R$* < @ $- . UUCP > $2 ! $1 convert to UUCP format R$* < @ $+ > $2 ! $1 convert to UUCP format R$&h ! $+ ! $+ $@ $1 ! $2 $h!...!user => ...!user R$&h ! $+ $@ $&h ! $1 $h!user => $h!user R$+ $: $U ! $1 prepend our name R! $+ $: $k ! $1 in case $U undefined ifdef(`_MAILER_smtp_', `# # envelope sender rewriting for uucp-dom mailer # SEnvFromUD # handle error address as a special case R<@> $n errors to mailer-daemon # pass everything to standard SMTP mailer rewriting R$* $@ $>EnvFromSMTP $1 # # envelope sender rewriting for uucp-uudom mailer # SEnvFromUUD # handle error address as a special case R<@> $n errors to mailer-daemon # do standard SMTP mailer rewriting R$* $: $>EnvFromSMTP $1 R$* < @ $* . > $* $1 < @ $2 > $3 strip trailing dots R<@ $- . UUCP > : $+ $@ $1 ! $2 convert to UUCP format R<@ $+ > : $+ $@ $1 ! $2 convert to UUCP format R$* < @ $- . UUCP > $@ $2 ! $1 convert to UUCP format R$* < @ $+ > $@ $2 ! $1 convert to UUCP format', `errprint(`*** MAILER(`smtp') must appear before MAILER(`uucp') if uucp-dom should be included.') ') PUSHDIVERT(4) # resolve locally connected UUCP links R$* < @ $=Z . UUCP. > $* $#uucp-uudom $@ $2 $: $1 < @ $2 .UUCP. > $3 R$* < @ $=Y . UUCP. > $* $#uucp-new $@ $2 $: $1 < @ $2 .UUCP. > $3 R$* < @ $=U . UUCP. > $* $#uucp-old $@ $2 $: $1 < @ $2 .UUCP. > $3 POPDIVERT # # There are innumerable variations on the UUCP mailer. It really # is rather absurd. # # old UUCP mailer (two names) Muucp, P=UUCP_MAILER_PATH, F=_MODMF_(CONCAT(`DFMhuUd', UUCP_MAILER_FLAGS), `UUCP'), S=FromU, R=EnvToU/HdrToU, M=UUCP_MAILER_MAX, _OPTINS(`UUCP_MAILER_CHARSET', `C=', `, ')T=X-UUCP/X-UUCP/X-Unix,_UUCP_QGRP A=UUCP_MAILER_ARGS Muucp-old, P=UUCP_MAILER_PATH, F=_MODMF_(CONCAT(`DFMhuUd', UUCP_MAILER_FLAGS), `UUCP'), S=FromU, R=EnvToU/HdrToU, M=UUCP_MAILER_MAX, _OPTINS(`UUCP_MAILER_CHARSET', `C=', `, ')T=X-UUCP/X-UUCP/X-Unix,_UUCP_QGRP A=UUCP_MAILER_ARGS # smart UUCP mailer (handles multiple addresses) (two names) Msuucp, P=UUCP_MAILER_PATH, F=_MODMF_(CONCAT(`mDFMhuUd', UUCP_MAILER_FLAGS), `UUCP'), S=FromU, R=EnvToU/HdrToU, M=UUCP_MAILER_MAX, _OPTINS(`UUCP_MAILER_CHARSET', `C=', `, ')T=X-UUCP/X-UUCP/X-Unix,_UUCP_QGRP A=UUCP_MAILER_ARGS Muucp-new, P=UUCP_MAILER_PATH, F=_MODMF_(CONCAT(`mDFMhuUd', UUCP_MAILER_FLAGS), `UUCP'), S=FromU, R=EnvToU/HdrToU, M=UUCP_MAILER_MAX, _OPTINS(`UUCP_MAILER_CHARSET', `C=', `, ')T=X-UUCP/X-UUCP/X-Unix,_UUCP_QGRP A=UUCP_MAILER_ARGS ifdef(`_MAILER_smtp_', `# domain-ized UUCP mailer Muucp-dom, P=UUCP_MAILER_PATH, F=_MODMF_(CONCAT(`mDFMhud', UUCP_MAILER_FLAGS), `UUCP'), S=EnvFromUD/HdrFromSMTP, R=ifdef(`_ALL_MASQUERADE_', `EnvToSMTP/HdrFromSMTP', `EnvToSMTP'), M=UUCP_MAILER_MAX, _OPTINS(`UUCP_MAILER_CHARSET', `C=', `, ')T=X-UUCP/X-UUCP/X-Unix,_UUCP_QGRP A=UUCP_MAILER_ARGS # domain-ized UUCP mailer with UUCP-style sender envelope Muucp-uudom, P=UUCP_MAILER_PATH, F=_MODMF_(CONCAT(`mDFMhud', UUCP_MAILER_FLAGS), `UUCP'), S=EnvFromUUD/HdrFromSMTP, R=ifdef(`_ALL_MASQUERADE_', `EnvToSMTP/HdrFromSMTP', `EnvToSMTP'), M=UUCP_MAILER_MAX, _OPTINS(`UUCP_MAILER_CHARSET', `C=', `, ')T=X-UUCP/X-UUCP/X-Unix,_UUCP_QGRP A=UUCP_MAILER_ARGS') sendmail-8.18.1/cf/README0000644000372400037240000057117414556365350014256 0ustar xbuildxbuild SENDMAIL CONFIGURATION FILES This document describes the sendmail configuration files. It explains how to create a sendmail.cf file for use with sendmail. It also describes how to set options for sendmail which are explained in the Sendmail Installation and Operation guide (doc/op/op.me). To get started, you may want to look at tcpproto.mc (for TCP-only sites) and clientproto.mc (for clusters of clients using a single mail host), or the generic-*.mc files as operating system-specific examples. Table of Content: INTRODUCTION AND EXAMPLE A BRIEF INTRODUCTION TO M4 FILE LOCATIONS OSTYPE DOMAINS MAILERS FEATURES HACKS SITE CONFIGURATION USING UUCP MAILERS TWEAKING RULESETS MASQUERADING AND RELAYING USING LDAP FOR ALIASES, MAPS, AND CLASSES LDAP ROUTING ANTI-SPAM CONFIGURATION CONTROL CONNECTION CONTROL STARTTLS SMTP AUTHENTICATION ADDING NEW MAILERS OR RULESETS ADDING NEW MAIL FILTERS QUEUE GROUP DEFINITIONS NON-SMTP BASED CONFIGURATIONS WHO AM I? ACCEPTING MAIL FOR MULTIPLE NAMES USING MAILERTABLES USING USERDB TO MAP FULL NAMES MISCELLANEOUS SPECIAL FEATURES SECURITY NOTES TWEAKING CONFIGURATION OPTIONS MESSAGE SUBMISSION PROGRAM FORMAT OF FILES AND MAPS DIRECTORY LAYOUT ADMINISTRATIVE DETAILS +--------------------------+ | INTRODUCTION AND EXAMPLE | +--------------------------+ Configuration files are contained in the subdirectory "cf", with a suffix ".mc". They must be run through "m4" to produce a ".cf" file. You must pre-load "cf.m4": m4 ${CFDIR}/m4/cf.m4 config.mc > config.cf Alternatively, you can simply: cd ${CFDIR}/cf ./Build config.cf where ${CFDIR} is the root of the cf directory and config.mc is the name of your configuration file. If you are running a version of M4 that understands the __file__ builtin (versions of GNU m4 >= 0.75 do this, but the versions distributed with 4.4BSD and derivatives do not) or the -I flag (ditto), then ${CFDIR} can be in an arbitrary directory. For "traditional" versions, ${CFDIR} ***MUST*** be "..", or you MUST use -D_CF_DIR_=/path/to/cf/dir/ -- note the trailing slash! For example: m4 -D_CF_DIR_=${CFDIR}/ ${CFDIR}/m4/cf.m4 config.mc > config.cf Let's examine a typical .mc file: divert(-1) # # Copyright (c) 1998-2005 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # This is a Berkeley-specific configuration file for HP-UX 9.x. # It applies only to the Computer Science Division at Berkeley, # and should not be used elsewhere. It is provided on the sendmail # distribution as a sample only. To create your own configuration # file, create an appropriate domain file in ../domain, change the # `DOMAIN' macro below to reference that file, and copy the result # to a name of your own choosing. # divert(0) The divert(-1) will delete the crud in the resulting output file. The copyright notice can be replaced by whatever your lawyers require; our lawyers require the one that is included in these files. A copyleft is a copyright by another name. The divert(0) restores regular output. VERSIONID(`') VERSIONID is a macro that stuffs the version information into the resulting file. You could use SCCS, RCS, CVS, something else, or omit it completely. This is not the same as the version id included in SMTP greeting messages -- this is defined in m4/version.m4. OSTYPE(`hpux9')dnl You must specify an OSTYPE to properly configure things such as the pathname of the help and status files, the flags needed for the local mailer, and other important things. If you omit it, you will get an error when you try to build the configuration. Look at the ostype directory for the list of known operating system types. DOMAIN(`CS.Berkeley.EDU')dnl This example is specific to the Computer Science Division at Berkeley. You can use "DOMAIN(`generic')" to get a sufficiently bland definition that may well work for you, or you can create a customized domain definition appropriate for your environment. MAILER(`local') MAILER(`smtp') These describe the mailers used at the default CS site. The local mailer is always included automatically. Beware: MAILER declarations should only be followed by LOCAL_* sections. The general rules are that the order should be: VERSIONID OSTYPE DOMAIN FEATURE local macro definitions MAILER LOCAL_CONFIG LOCAL_RULE_* LOCAL_RULESETS There are a few exceptions to this rule. Local macro definitions which influence a FEATURE() should be done before that feature. For example, a define(`PROCMAIL_MAILER_PATH', ...) should be done before FEATURE(`local_procmail'). ******************************************************************* *** BE SURE YOU CUSTOMIZE THESE FILES! They have some *** *** Berkeley-specific assumptions built in, such as the name *** *** of their UUCP-relay. You'll want to create your own *** *** domain description, and use that in place of *** *** domain/Berkeley.EDU.m4. *** ******************************************************************* Note: Some rulesets, features, and options are only useful if the sendmail binary has been compiled with the appropriate options, e.g., the ruleset tls_server is only invoked if sendmail has been compiled with STARTTLS. This is usually obvious from the context and hence not further specified here. There are also so called "For Future Releases" (FFR) compile time options which might be included in a subsequent version or might simply be removed as they turned out not to be really useful. These are generally not documented but if they are, then the required compile time options are listed in doc/op/op.* for rulesets and macros, and for mc/cf specific options they are usually listed here. In addition to compile time options for the sendmail binary, there can also be FFRs for mc/cf which in general can be enabled when the configuration file is generated by defining them at the top of your .mc file: define(`_FFR_NAME_HERE', 1) +----------------------------+ | A BRIEF INTRODUCTION TO M4 | +----------------------------+ Sendmail uses the M4 macro processor to ``compile'' the configuration files. The most important thing to know is that M4 is stream-based, that is, it doesn't understand about lines. For this reason, in some places you may see the word ``dnl'', which stands for ``delete through newline''; essentially, it deletes all characters starting at the ``dnl'' up to and including the next newline character. In most cases sendmail uses this only to avoid lots of unnecessary blank lines in the output. Other important directives are define(A, B) which defines the macro ``A'' to have value ``B''. Macros are expanded as they are read, so one normally quotes both values to prevent expansion. For example, define(`SMART_HOST', `smart.foo.com') One word of warning: M4 macros are expanded even in lines that appear to be comments. For example, if you have # See FEATURE(`foo') above it will not do what you expect, because the FEATURE(`foo') will be expanded. This also applies to # And then define the $X macro to be the return address because ``define'' is an M4 keyword. If you want to use them, surround them with directed quotes, `like this'. Since m4 uses single quotes (opening "`" and closing "'") to quote arguments, those quotes can't be used in arguments. For example, it is not possible to define a rejection message containing a single quote. Usually there are simple workarounds by changing those messages; in the worst case it might be ok to change the value directly in the generated .cf file, which however is not advised. Notice: ------- This package requires a post-V7 version of m4; if you are running the 4.2bsd, SysV.2, or 7th Edition version. SunOS's /usr/5bin/m4 or BSD-Net/2's m4 both work. GNU m4 version 1.1 or later also works. Unfortunately, the M4 on BSDI 1.0 doesn't work -- you'll have to use a Net/2 or GNU version. GNU m4 is available from ftp://ftp.gnu.org/pub/gnu/m4/m4-1.4.tar.gz (check for the latest version). EXCEPTIONS: DEC's m4 on Digital UNIX 4.x is broken (3.x is fine). Use GNU m4 on this platform. +----------------+ | FILE LOCATIONS | +----------------+ sendmail 8.9 has introduced a new configuration directory for sendmail related files, /etc/mail. The new files available for sendmail 8.9 -- the class {R} /etc/mail/relay-domains and the access database /etc/mail/access -- take advantage of this new directory. Beginning with 8.10, all files will use this directory by default (some options may be set by OSTYPE() files). This new directory should help to restore uniformity to sendmail's file locations. Below is a table of some of the common changes: Old filename New filename ------------ ------------ /etc/bitdomain /etc/mail/bitdomain /etc/domaintable /etc/mail/domaintable /etc/genericstable /etc/mail/genericstable /etc/uudomain /etc/mail/uudomain /etc/virtusertable /etc/mail/virtusertable /etc/userdb /etc/mail/userdb /etc/aliases /etc/mail/aliases /etc/sendmail/aliases /etc/mail/aliases /etc/ucbmail/aliases /etc/mail/aliases /usr/adm/sendmail/aliases /etc/mail/aliases /usr/lib/aliases /etc/mail/aliases /usr/lib/mail/aliases /etc/mail/aliases /usr/ucblib/aliases /etc/mail/aliases /etc/sendmail.cw /etc/mail/local-host-names /etc/mail/sendmail.cw /etc/mail/local-host-names /etc/sendmail/sendmail.cw /etc/mail/local-host-names /etc/sendmail.ct /etc/mail/trusted-users /etc/sendmail.oE /etc/mail/error-header /etc/sendmail.hf /etc/mail/helpfile /etc/mail/sendmail.hf /etc/mail/helpfile /usr/ucblib/sendmail.hf /etc/mail/helpfile /etc/ucbmail/sendmail.hf /etc/mail/helpfile /usr/lib/sendmail.hf /etc/mail/helpfile /usr/share/lib/sendmail.hf /etc/mail/helpfile /usr/share/misc/sendmail.hf /etc/mail/helpfile /share/misc/sendmail.hf /etc/mail/helpfile /etc/service.switch /etc/mail/service.switch /etc/sendmail.st /etc/mail/statistics /etc/mail/sendmail.st /etc/mail/statistics /etc/mailer/sendmail.st /etc/mail/statistics /etc/sendmail/sendmail.st /etc/mail/statistics /usr/lib/sendmail.st /etc/mail/statistics /usr/ucblib/sendmail.st /etc/mail/statistics Note that all of these paths actually use a new m4 macro MAIL_SETTINGS_DIR to create the pathnames. The default value of this variable is `/etc/mail/'. If you set this macro to a different value, you MUST include a trailing slash. Notice: all filenames used in a .mc (or .cf) file should be absolute (starting at the root, i.e., with '/'). Relative filenames most likely cause surprises during operations (unless otherwise noted). +--------+ | OSTYPE | +--------+ You MUST define an operating system environment, or the configuration file build will puke. There are several environments available; look at the "ostype" directory for the current list. This macro changes things like the location of the alias file and queue directory. Some of these files are identical to one another. It is IMPERATIVE that the OSTYPE occur before any MAILER definitions. In general, the OSTYPE macro should go immediately after any version information, and MAILER definitions should always go last. Operating system definitions are usually easy to write. They may define the following variables (everything defaults, so an ostype file may be empty). Unfortunately, the list of configuration-supported systems is not as broad as the list of source-supported systems, since many of the source contributors do not include corresponding ostype files. ALIAS_FILE [/etc/mail/aliases] The location of the text version of the alias file(s). It can be a comma-separated list of names (but be sure you quote values with commas in them -- for example, use define(`ALIAS_FILE', `a,b') to get "a" and "b" both listed as alias files; otherwise the define() primitive only sees "a"). HELP_FILE [/etc/mail/helpfile] The name of the file containing information printed in response to the SMTP HELP command. QUEUE_DIR [/var/spool/mqueue] The directory containing queue files. To use multiple queues, supply a value ending with an asterisk. For example, /var/spool/mqueue/qd* will use all of the directories or symbolic links to directories beginning with 'qd' in /var/spool/mqueue as queue directories. The names 'qf', 'df', and 'xf' are reserved as specific subdirectories for the corresponding queue file types as explained in doc/op/op.me. See also QUEUE GROUP DEFINITIONS. MSP_QUEUE_DIR [/var/spool/clientmqueue] The directory containing queue files for the MSP (Mail Submission Program, see sendmail/SECURITY). STATUS_FILE [/etc/mail/statistics] The file containing status information. LOCAL_MAILER_PATH [/bin/mail] The program used to deliver local mail. LOCAL_MAILER_FLAGS [Prmn9] The flags used by the local mailer. The flags lsDFMAw5:/|@q are always included. LOCAL_MAILER_ARGS [mail -d $u] The arguments passed to deliver local mail. LOCAL_MAILER_MAX [undefined] If defined, the maximum size of local mail that you are willing to accept. LOCAL_MAILER_MAXMSGS [undefined] If defined, the maximum number of messages to deliver in a single connection. Only useful for LMTP local mailers. LOCAL_MAILER_CHARSET [undefined] If defined, messages containing 8-bit data that ARRIVE from an address that resolves to the local mailer and which are converted to MIME will be labeled with this character set. LOCAL_MAILER_EOL [undefined] If defined, the string to use as the end of line for the local mailer. LOCAL_MAILER_DSN_DIAGNOSTIC_CODE [X-Unix] The DSN Diagnostic-Code value for the local mailer. This should be changed with care. LOCAL_SHELL_PATH [/bin/sh] The shell used to deliver piped email. LOCAL_SHELL_FLAGS [eu9] The flags used by the shell mailer. The flags lsDFM are always included. LOCAL_SHELL_ARGS [sh -c $u] The arguments passed to deliver "prog" mail. LOCAL_SHELL_DIR [$z:/] The directory search path in which the shell should run. LOCAL_MAILER_QGRP [undefined] The queue group for the local mailer. USENET_MAILER_PATH [/usr/lib/news/inews] The name of the program used to submit news. USENET_MAILER_FLAGS [rsDFMmn] The mailer flags for the usenet mailer. USENET_MAILER_ARGS [-m -h -n] The command line arguments for the usenet mailer. NOTE: Some versions of inews (such as those shipped with newer versions of INN) use different flags. Double check the defaults against the inews man page. USENET_MAILER_MAX [undefined] The maximum size of messages that will be accepted by the usenet mailer. USENET_MAILER_QGRP [undefined] The queue group for the usenet mailer. SMTP_MAILER_FLAGS [undefined] Flags added to SMTP mailer. Default flags are `mDFMuX' for all SMTP-based mailers; the "esmtp" mailer adds `a'; "smtp8" adds `8'; and "dsmtp" adds `%'. RELAY_MAILER_FLAGS [undefined] Flags added to the relay mailer. Default flags are `mDFMuX' for all SMTP-based mailers; the relay mailer adds `a8'. If this is not defined, then SMTP_MAILER_FLAGS is used. SMTP_MAILER_MAX [undefined] The maximum size of messages that will be transported using the smtp, smtp8, esmtp, or dsmtp mailers. SMTP_MAILER_MAXMSGS [undefined] If defined, the maximum number of messages to deliver in a single connection for the smtp, smtp8, esmtp, or dsmtp mailers. SMTP_MAILER_MAXRCPTS [undefined] If defined, the maximum number of recipients to deliver in a single envelope for the smtp, smtp8, esmtp, or dsmtp mailers. SMTP_MAILER_ARGS [TCP $h] The arguments passed to the smtp mailer. About the only reason you would want to change this would be to change the default port. ESMTP_MAILER_ARGS [TCP $h] The arguments passed to the esmtp mailer. SMTP8_MAILER_ARGS [TCP $h] The arguments passed to the smtp8 mailer. DSMTP_MAILER_ARGS [TCP $h] The arguments passed to the dsmtp mailer. RELAY_MAILER_ARGS [TCP $h] The arguments passed to the relay mailer. SMTP_MAILER_QGRP [undefined] The queue group for the smtp mailer. ESMTP_MAILER_QGRP [undefined] The queue group for the esmtp mailer. SMTP8_MAILER_QGRP [undefined] The queue group for the smtp8 mailer. DSMTP_MAILER_QGRP [undefined] The queue group for the dsmtp mailer. RELAY_MAILER_QGRP [undefined] The queue group for the relay mailer. RELAY_MAILER_MAXMSGS [undefined] If defined, the maximum number of messages to deliver in a single connection for the relay mailer. SMTP_MAILER_CHARSET [undefined] If defined, messages containing 8-bit data that ARRIVE from an address that resolves to one of the SMTP mailers and which are converted to MIME will be labeled with this character set. RELAY_MAILER_CHARSET [undefined] If defined, messages containing 8-bit data that ARRIVE from an address that resolves to the relay mailers and which are converted to MIME will be labeled with this character set. SMTP_MAILER_LL [990] The maximum line length for SMTP mailers (except the relay mailer). RELAY_MAILER_LL [2040] The maximum line length for the relay mailer. UUCP_MAILER_PATH [/usr/bin/uux] The program used to send UUCP mail. UUCP_MAILER_FLAGS [undefined] Flags added to UUCP mailer. Default flags are `DFMhuU' (and `m' for uucp-new mailer, minus `U' for uucp-dom mailer). UUCP_MAILER_ARGS [uux - -r -z -a$g -gC $h!rmail ($u)] The arguments passed to the UUCP mailer. UUCP_MAILER_MAX [100000] The maximum size message accepted for transmission by the UUCP mailers. UUCP_MAILER_CHARSET [undefined] If defined, messages containing 8-bit data that ARRIVE from an address that resolves to one of the UUCP mailers and which are converted to MIME will be labeled with this character set. UUCP_MAILER_QGRP [undefined] The queue group for the UUCP mailers. FAX_MAILER_PATH [/usr/local/lib/fax/mailfax] The program used to submit FAX messages. FAX_MAILER_ARGS [mailfax $u $h $f] The arguments passed to the FAX mailer. FAX_MAILER_MAX [100000] The maximum size message accepted for transmission by FAX. POP_MAILER_PATH [/usr/lib/mh/spop] The pathname of the POP mailer. POP_MAILER_FLAGS [Penu] Flags added to POP mailer. Flags lsDFMq are always added. POP_MAILER_ARGS [pop $u] The arguments passed to the POP mailer. POP_MAILER_QGRP [undefined] The queue group for the pop mailer. PROCMAIL_MAILER_PATH [/usr/local/bin/procmail] The path to the procmail program. This is also used by FEATURE(`local_procmail'). PROCMAIL_MAILER_FLAGS [SPhnu9] Flags added to Procmail mailer. Flags DFM are always set. This is NOT used by FEATURE(`local_procmail'); tweak LOCAL_MAILER_FLAGS instead. PROCMAIL_MAILER_ARGS [procmail -Y -m $h $f $u] The arguments passed to the Procmail mailer. This is NOT used by FEATURE(`local_procmail'); tweak LOCAL_MAILER_ARGS instead. PROCMAIL_MAILER_MAX [undefined] If set, the maximum size message that will be accepted by the procmail mailer. PROCMAIL_MAILER_QGRP [undefined] The queue group for the procmail mailer. MAIL11_MAILER_PATH [/usr/etc/mail11] The path to the mail11 mailer. MAIL11_MAILER_FLAGS [nsFx] Flags for the mail11 mailer. MAIL11_MAILER_ARGS [mail11 $g $x $h $u] Arguments passed to the mail11 mailer. MAIL11_MAILER_QGRP [undefined] The queue group for the mail11 mailer. PH_MAILER_PATH [/usr/local/etc/phquery] The path to the phquery program. PH_MAILER_FLAGS [ehmu] Flags for the phquery mailer. Flags nrDFM are always set. PH_MAILER_ARGS [phquery -- $u] -- arguments to the phquery mailer. PH_MAILER_QGRP [undefined] The queue group for the ph mailer. CYRUS_MAILER_FLAGS [Ah5@/:|] The flags used by the cyrus mailer. The flags lsDFMnPq are always included. CYRUS_MAILER_PATH [/usr/cyrus/bin/deliver] The program used to deliver cyrus mail. CYRUS_MAILER_ARGS [deliver -e -m $h -- $u] The arguments passed to deliver cyrus mail. CYRUS_MAILER_MAX [undefined] If set, the maximum size message that will be accepted by the cyrus mailer. CYRUS_MAILER_USER [cyrus:mail] The user and group to become when running the cyrus mailer. CYRUS_MAILER_QGRP [undefined] The queue group for the cyrus mailer. CYRUS_BB_MAILER_FLAGS [u] The flags used by the cyrusbb mailer. The flags lsDFMnP are always included. CYRUS_BB_MAILER_ARGS [deliver -e -m $u] The arguments passed to deliver cyrusbb mail. CYRUSV2_MAILER_FLAGS [A@/:|m] The flags used by the cyrusv2 mailer. The flags lsDFMnqXz are always included. CYRUSV2_MAILER_MAXMSGS [undefined] If defined, the maximum number of messages to deliver in a single connection for the cyrusv2 mailer. CYRUSV2_MAILER_MAXRCPTS [undefined] If defined, the maximum number of recipients to deliver in a single connection for the cyrusv2 mailer. CYRUSV2_MAILER_ARGS [FILE /var/imap/socket/lmtp] The arguments passed to the cyrusv2 mailer. This can be used to change the name of the Unix domain socket, or to switch to delivery via TCP (e.g., `TCP $h lmtp') CYRUSV2_MAILER_QGRP [undefined] The queue group for the cyrusv2 mailer. CYRUSV2_MAILER_CHARSET [undefined] If defined, messages containing 8-bit data that ARRIVE from an address that resolves to one the Cyrus mailer and which are converted to MIME will be labeled with this character set. confEBINDIR [/usr/libexec] The directory for executables. Currently used for FEATURE(`local_lmtp') and FEATURE(`smrsh'). QPAGE_MAILER_FLAGS [mDFMs] The flags used by the qpage mailer. QPAGE_MAILER_PATH [/usr/local/bin/qpage] The program used to deliver qpage mail. QPAGE_MAILER_ARGS [qpage -l0 -m -P$u] The arguments passed to deliver qpage mail. QPAGE_MAILER_MAX [4096] If set, the maximum size message that will be accepted by the qpage mailer. QPAGE_MAILER_QGRP [undefined] The queue group for the qpage mailer. LOCAL_PROG_QGRP [undefined] The queue group for the prog mailer. Note: to tweak Name_MAILER_FLAGS use the macro MODIFY_MAILER_FLAGS: MODIFY_MAILER_FLAGS(`Name', `change') where Name is the first part of the macro Name_MAILER_FLAGS (note: that means Name is entirely in upper case) and change can be: flags that should be used directly (thus overriding the default value), or if it starts with `+' (`-') then those flags are added to (removed from) the default value. Example: MODIFY_MAILER_FLAGS(`LOCAL', `+e') will add the flag `e' to LOCAL_MAILER_FLAGS. Notice: there are several smtp mailers all of which are manipulated individually. See the section MAILERS for the available mailer names. WARNING: The FEATUREs local_lmtp and local_procmail set LOCAL_MAILER_FLAGS unconditionally, i.e., without respecting any definitions in an OSTYPE setting. +---------+ | DOMAINS | +---------+ You will probably want to collect domain-dependent defines into one file, referenced by the DOMAIN macro. For example, the Berkeley domain file includes definitions for several internal distinguished hosts: UUCP_RELAY The host that will accept UUCP-addressed email. If not defined, all UUCP sites must be directly connected. BITNET_RELAY The host that will accept BITNET-addressed email. If not defined, the .BITNET pseudo-domain won't work. DECNET_RELAY The host that will accept DECNET-addressed email. If not defined, the .DECNET pseudo-domain and addresses of the form node::user will not work. FAX_RELAY The host that will accept mail to the .FAX pseudo-domain. The "fax" mailer overrides this value. LOCAL_RELAY The site that will handle unqualified names -- that is, names without an @domain extension. Normally MAIL_HUB is preferred for this function. LOCAL_RELAY is mostly useful in conjunction with FEATURE(`stickyhost') -- see the discussion of stickyhost below. If not set, they are assumed to belong on this machine. This allows you to have a central site to store a company- or department-wide alias database. This only works at small sites, and only with some user agents. LUSER_RELAY The site that will handle lusers -- that is, apparently local names that aren't local accounts or aliases. To specify a local user instead of a site, set this to ``local:username''. Any of these can be either ``mailer:hostname'' (in which case the mailer is the internal mailer name, such as ``uucp-new'' and the hostname is the name of the host as appropriate for that mailer) or just a ``hostname'', in which case a default mailer type (usually ``relay'', a variant on SMTP) is used. WARNING: if you have a wildcard MX record matching your domain, you probably want to define these to have a trailing dot so that you won't get the mail diverted back to yourself. The domain file can also be used to define a domain name, if needed (using "DD") and set certain site-wide features. If all hosts at your site masquerade behind one email name, you could also use MASQUERADE_AS here. You do not have to define a domain -- in particular, if you are a single machine sitting off somewhere, it is probably more work than it's worth. This is just a mechanism for combining "domain dependent knowledge" into one place. +---------+ | MAILERS | +---------+ There are fewer mailers supported in this version than the previous version, owing mostly to a simpler world. As a general rule, put the MAILER definitions last in your .mc file. local The local and prog mailers. You will almost always need these; the only exception is if you relay ALL your mail to another site. This mailer is included automatically. smtp The Simple Mail Transport Protocol mailer. This does not hide hosts behind a gateway or another other such hack; it assumes a world where everyone is running the name server. This file actually defines five mailers: "smtp" for regular (old-style) SMTP to other servers, "esmtp" for extended SMTP to other servers, "smtp8" to do SMTP to other servers without converting 8-bit data to MIME (essentially, this is your statement that you know the other end is 8-bit clean even if it doesn't say so), "dsmtp" to do on demand delivery, and "relay" for transmission to the RELAY_HOST, LUSER_RELAY, or MAIL_HUB. uucp The UNIX-to-UNIX Copy Program mailer. Actually, this defines two mailers, "uucp-old" (a.k.a. "uucp") and "uucp-new" (a.k.a. "suucp"). The latter is for when you know that the UUCP mailer at the other end can handle multiple recipients in one transfer. If the smtp mailer is included in your configuration, two other mailers ("uucp-dom" and "uucp-uudom") are also defined [warning: you MUST specify MAILER(`smtp') before MAILER(`uucp')]. When you include the uucp mailer, sendmail looks for all names in class {U} and sends them to the uucp-old mailer; all names in class {Y} are sent to uucp-new; and all names in class {Z} are sent to uucp-uudom. Note that this is a function of what version of rmail runs on the receiving end, and hence may be out of your control. See the section below describing UUCP mailers in more detail. usenet Usenet (network news) delivery. If this is specified, an extra rule is added to ruleset 0 that forwards all local email for users named ``group.usenet'' to the ``inews'' program. Note that this works for all groups, and may be considered a security problem. fax Facsimile transmission. This is experimental and based on Sam Leffler's HylaFAX software. For more information, see http://www.hylafax.org/. pop Post Office Protocol. procmail An interface to procmail (does not come with sendmail). This is designed to be used in mailertables. For example, a common question is "how do I forward all mail for a given domain to a single person?". If you have this mailer defined, you could set up a mailertable reading: host.com procmail:/etc/procmailrcs/host.com with the file /etc/procmailrcs/host.com reading: :0 # forward mail for host.com ! -oi -f $1 person@other.host This would arrange for (anything)@host.com to be sent to person@other.host. In a procmail script, $1 is the name of the sender and $2 is the name of the recipient. If you use this with FEATURE(`local_procmail'), the FEATURE should be listed first. Of course there are other ways to solve this particular problem, e.g., a catch-all entry in a virtusertable. mail11 The DECnet mail11 mailer, useful only if you have the mail11 program from gatekeeper.dec.com:/pub/DEC/gwtools (and DECnet, of course). This is for Phase IV DECnet support; if you have Phase V at your site you may have additional problems. phquery The phquery program. This is somewhat counterintuitively referenced as the "ph" mailer internally. It can be used to do CCSO name server lookups. The phquery program, which this mailer uses, is distributed with the ph client. cyrus The cyrus and cyrusbb mailers. The cyrus mailer delivers to a local cyrus user. this mailer can make use of the "user+detail@local.host" syntax (see FEATURE(`preserve_local_plus_detail')); it will deliver the mail to the user's "detail" mailbox if the mailbox's ACL permits. The cyrusbb mailer delivers to a system-wide cyrus mailbox if the mailbox's ACL permits. The cyrus mailer must be defined after the local mailer. cyrusv2 The mailer for Cyrus v2.x. The cyrusv2 mailer delivers to local cyrus users via LMTP. This mailer can make use of the "user+detail@local.host" syntax (see FEATURE(`preserve_local_plus_detail')); it will deliver the mail to the user's "detail" mailbox if the mailbox's ACL permits. The cyrusv2 mailer must be defined after the local mailer. qpage A mailer for QuickPage, a pager interface. See http://www.qpage.org/ for further information. The local mailer accepts addresses of the form "user+detail", where the "+detail" is not used for mailbox matching but is available to certain local mail programs (in particular, see FEATURE(`local_procmail')). For example, "eric", "eric+sendmail", and "eric+sww" all indicate the same user, but additional arguments , "sendmail", and "sww" may be provided for use in sorting mail. +----------+ | FEATURES | +----------+ Special features can be requested using the "FEATURE" macro. For example, the .mc line: FEATURE(`use_cw_file') tells sendmail that you want to have it read an /etc/mail/local-host-names file to get values for class {w}. A FEATURE may contain up to 9 optional parameters -- for example: FEATURE(`mailertable', `dbm /usr/lib/mailertable') The default database map type for the table features can be set with define(`DATABASE_MAP_TYPE', `dbm') which would set it to use ndbm databases. The default is the Berkeley DB hash database format. Note that you must still declare a database map type if you specify an argument to a FEATURE. DATABASE_MAP_TYPE is only used if no argument is given for the FEATURE. It must be specified before any feature that uses a map. Also, features which can take a map definition as an argument can also take the special keyword `LDAP'. If that keyword is used, the map will use the LDAP definition described in the ``USING LDAP FOR ALIASES, MAPS, AND CLASSES'' section below. Available features are: use_cw_file Read the file /etc/mail/local-host-names file to get alternate names for this host. This might be used if you were on a host that MXed for a dynamic set of other hosts. If the set is static, just including the line "Cw ..." (where the names are fully qualified domain names) is probably superior. The actual filename can be overridden by redefining confCW_FILE. use_ct_file Read the file /etc/mail/trusted-users file to get the names of users that will be ``trusted'', that is, able to set their envelope from address using -f without generating a warning message. The actual filename can be overridden by redefining confCT_FILE. redirect Reject all mail addressed to "address.REDIRECT" with a ``551 User has moved; please try
    '' message. If this is set, you can alias people who have left to their new address with ".REDIRECT" appended. nouucp Don't route UUCP addresses. This feature takes one parameter: `reject': reject addresses which have "!" in the local part unless it originates from a system that is allowed to relay. `nospecial': don't do anything special with "!". Warnings: 1. See the notice in the anti-spam section. 2. don't remove "!" from OperatorChars if `reject' is given as parameter. nopercenthack Don't treat % as routing character. This feature takes one parameter: `reject': reject addresses which have % in the local part unless it originates from a system that is allowed to relay. `nospecial': don't do anything special with %. Warnings: 1. See the notice in the anti-spam section. 2. Don't remove % from OperatorChars if `reject' is given as parameter. nocanonify Don't pass addresses to $[ ... $] for canonification by default, i.e., host/domain names are considered canonical, except for unqualified names, which must not be used in this mode (violation of the standard). It can be changed by setting the DaemonPortOptions modifiers (M=). That is, FEATURE(`nocanonify') will be overridden by setting the 'c' flag. Conversely, if FEATURE(`nocanonify') is not used, it can be emulated by setting the 'C' flag (DaemonPortOptions=Modifiers=C). This would generally only be used by sites that only act as mail gateways or which have user agents that do full canonification themselves. You may also want to use "define(`confBIND_OPTS', `-DNSRCH -DEFNAMES')" to turn off the usual resolver options that do a similar thing. An exception list for FEATURE(`nocanonify') can be specified with CANONIFY_DOMAIN or CANONIFY_DOMAIN_FILE, i.e., a list of domains which are nevertheless passed to $[ ... $] for canonification. This is useful to turn on canonification for local domains, e.g., use CANONIFY_DOMAIN(`my.domain my') to canonify addresses which end in "my.domain" or "my". Another way to require canonification in the local domain is CANONIFY_DOMAIN(`$=m'). A trailing dot is added to addresses with more than one component in it such that other features which expect a trailing dot (e.g., virtusertable) will still work. If `canonify_hosts' is specified as parameter, i.e., FEATURE(`nocanonify', `canonify_hosts'), then addresses which have only a hostname, e.g., , will be canonified (and hopefully fully qualified), too. stickyhost This feature is sometimes used with LOCAL_RELAY, although it can be used for a different effect with MAIL_HUB. When used without MAIL_HUB, email sent to "user@local.host" are marked as "sticky" -- that is, the local addresses aren't matched against UDB, don't go through ruleset 5, and are not forwarded to the LOCAL_RELAY (if defined). With MAIL_HUB, mail addressed to "user@local.host" is forwarded to the mail hub, with the envelope address still remaining "user@local.host". Without stickyhost, the envelope would be changed to "user@mail_hub", in order to protect against mailing loops. mailertable Include a "mailer table" which can be used to override routing for particular domains (which are not in class {w}, i.e. local host names). The argument of the FEATURE may be the key definition. If none is specified, the definition used is: hash /etc/mail/mailertable Keys in this database are fully qualified domain names or partial domains preceded by a dot -- for example, "vangogh.CS.Berkeley.EDU" or ".CS.Berkeley.EDU". As a special case of the latter, "." matches any domain not covered by other keys. Values must be of the form: mailer:domain where "mailer" is the internal mailer name, and "domain" is where to send the message. These maps are not reflected into the message header. As a special case, the forms: local:user will forward to the indicated user using the local mailer, local: will forward to the original user in the e-mail address using the local mailer, and error:code message error:D.S.N:code message will give an error message with the indicated SMTP reply code and message, where D.S.N is an RFC 1893 compliant error code. domaintable Include a "domain table" which can be used to provide domain name mapping. Use of this should really be limited to your own domains. It may be useful if you change names (e.g., your company changes names from oldname.com to newname.com). The argument of the FEATURE may be the key definition. If none is specified, the definition used is: hash /etc/mail/domaintable The key in this table is the domain name; the value is the new (fully qualified) domain. Anything in the domaintable is reflected into headers; that is, this is done in ruleset 3. bitdomain Look up bitnet hosts in a table to try to turn them into internet addresses. The table can be built using the bitdomain program contributed by John Gardiner Myers. The argument of the FEATURE may be the key definition; if none is specified, the definition used is: hash /etc/mail/bitdomain Keys are the bitnet hostname; values are the corresponding internet hostname. uucpdomain Similar feature for UUCP hosts. The default map definition is: hash /etc/mail/uudomain At the moment there is no automagic tool to build this database. always_add_domain Include the local host domain even on locally delivered mail. Normally it is not added on unqualified names. However, if you use a shared message store but do not use the same user name space everywhere, you may need the host name on local names. An optional argument specifies another domain to be added than the local. allmasquerade If masquerading is enabled (using MASQUERADE_AS), this feature will cause recipient addresses to also masquerade as being from the masquerade host. Normally they get the local hostname. Although this may be right for ordinary users, it can break local aliases. For example, if you send to "localalias", the originating sendmail will find that alias and send to all members, but send the message with "To: localalias@masqueradehost". Since that alias likely does not exist, replies will fail. Use this feature ONLY if you can guarantee that the ENTIRE namespace on your masquerade host supersets all the local entries. limited_masquerade Normally, any hosts listed in class {w} are masqueraded. If this feature is given, only the hosts listed in class {M} (see below: MASQUERADE_DOMAIN) are masqueraded. This is useful if you have several domains with disjoint namespaces hosted on the same machine. masquerade_entire_domain If masquerading is enabled (using MASQUERADE_AS) and MASQUERADE_DOMAIN (see below) is set, this feature will cause addresses to be rewritten such that the masquerading domains are actually entire domains to be hidden. All hosts within the masquerading domains will be rewritten to the masquerade name (used in MASQUERADE_AS). For example, if you have: MASQUERADE_AS(`masq.com') MASQUERADE_DOMAIN(`foo.org') MASQUERADE_DOMAIN(`bar.com') then *foo.org and *bar.com are converted to masq.com. Without this feature, only foo.org and bar.com are masqueraded. NOTE: only domains within your jurisdiction and current hierarchy should be masqueraded using this. local_no_masquerade This feature prevents the local mailer from masquerading even if MASQUERADE_AS is used. MASQUERADE_AS will only have effect on addresses of mail going outside the local domain. masquerade_envelope If masquerading is enabled (using MASQUERADE_AS) or the genericstable is in use, this feature will cause envelope addresses to also masquerade as being from the masquerade host. Normally only the header addresses are masqueraded. genericstable This feature will cause unqualified addresses (i.e., without a domain) and addresses with a domain listed in class {G} to be looked up in a map and turned into another ("generic") form, which can change both the domain name and the user name. Notice: if you use an MSP (as it is default starting with 8.12), the MTA will only receive qualified addresses from the MSP (as required by the RFCs). Hence you need to add your domain to class {G}. This feature is similar to the userdb functionality. The same types of addresses as for masquerading are looked up, i.e., only header sender addresses unless the allmasquerade and/or masquerade_envelope features are given. Qualified addresses must have the domain part in class {G}; entries can be added to this class by the macros GENERICS_DOMAIN or GENERICS_DOMAIN_FILE (analogously to MASQUERADE_DOMAIN and MASQUERADE_DOMAIN_FILE, see below). The argument of FEATURE(`genericstable') may be the map definition; the default map definition is: hash /etc/mail/genericstable The key for this table is either the full address, the domain (with a leading @; the localpart is passed as first argument) or the unqualified username (tried in the order mentioned); the value is the new user address. If the new user address does not include a domain, it will be qualified in the standard manner, i.e., using $j or the masquerade name. Note that the address being looked up must be fully qualified. For local mail, it is necessary to use FEATURE(`always_add_domain') for the addresses to be qualified. The "+detail" of an address is passed as %1, so entries like old+*@foo.org new+%1@example.com gen+*@foo.org %1@example.com and other forms are possible. generics_entire_domain If the genericstable is enabled and GENERICS_DOMAIN or GENERICS_DOMAIN_FILE is used, this feature will cause addresses to be searched in the map if their domain parts are subdomains of elements in class {G}. virtusertable A domain-specific form of aliasing, allowing multiple virtual domains to be hosted on one machine. For example, if the virtuser table contains: info@foo.com foo-info info@bar.com bar-info joe@bar.com error:nouser 550 No such user here jax@bar.com error:5.7.0:550 Address invalid @baz.org jane@example.net then mail addressed to info@foo.com will be sent to the address foo-info, mail addressed to info@bar.com will be delivered to bar-info, and mail addressed to anyone at baz.org will be sent to jane@example.net, mail to joe@bar.com will be rejected with the specified error message, and mail to jax@bar.com will also have a RFC 1893 compliant error code 5.7.0. The username from the original address is passed as %1 allowing: @foo.org %1@example.com meaning someone@foo.org will be sent to someone@example.com. Additionally, if the local part consists of "user+detail" then "detail" is passed as %2 and "+detail" is passed as %3 when a match against user+* is attempted, so entries like old+*@foo.org new+%2@example.com gen+*@foo.org %2@example.com +*@foo.org %1%3@example.com X++@foo.org Z%3@example.com @bar.org %1%3 and other forms are possible. Note: to preserve "+detail" for a default case (@domain) %1%3 must be used as RHS. There are two wildcards after "+": "+" matches only a non-empty detail, "*" matches also empty details, e.g., user+@foo.org matches +*@foo.org but not ++@foo.org. This can be used to ensure that the parameters %2 and %3 are not empty. All the host names on the left hand side (foo.com, bar.com, and baz.org) must be in class {w} or class {VirtHost}. The latter can be defined by the macros VIRTUSER_DOMAIN or VIRTUSER_DOMAIN_FILE (analogously to MASQUERADE_DOMAIN and MASQUERADE_DOMAIN_FILE, see below). If VIRTUSER_DOMAIN or VIRTUSER_DOMAIN_FILE is used, then the entries of class {VirtHost} are added to class {R}, i.e., relaying is allowed to (and from) those domains, which by default includes also all subdomains (see relay_hosts_only). The default map definition is: hash /etc/mail/virtusertable A new definition can be specified as the second argument of the FEATURE macro, such as FEATURE(`virtusertable', `dbm /etc/mail/virtusers') virtuser_entire_domain If the virtusertable is enabled and VIRTUSER_DOMAIN or VIRTUSER_DOMAIN_FILE is used, this feature will cause addresses to be searched in the map if their domain parts are subdomains of elements in class {VirtHost}. ldap_routing Implement LDAP-based e-mail recipient routing according to the Internet Draft draft-lachman-laser-ldap-mail-routing-01. This provides a method to re-route addresses with a domain portion in class {LDAPRoute} to either a different mail host or a different address. Hosts can be added to this class using LDAPROUTE_DOMAIN and LDAPROUTE_DOMAIN_FILE (analogously to MASQUERADE_DOMAIN and MASQUERADE_DOMAIN_FILE, see below). See the LDAP ROUTING section below for more information. nullclient This is a special case -- it creates a configuration file containing nothing but support for forwarding all mail to a central hub via a local SMTP-based network. The argument is the name of that hub. The only other feature that should be used in conjunction with this one is FEATURE(`nocanonify'). No mailers should be defined. No aliasing or forwarding is done. local_lmtp Use an LMTP capable local mailer. The argument to this feature is the pathname of an LMTP capable mailer. By default, mail.local is used. This is expected to be the mail.local which came with the 8.9 distribution which is LMTP capable. The path to mail.local is set by the confEBINDIR m4 variable -- making the default LOCAL_MAILER_PATH /usr/libexec/mail.local. If a different LMTP capable mailer is used, its pathname can be specified as second parameter and the arguments passed to it (A=) as third parameter, e.g., FEATURE(`local_lmtp', `/usr/local/bin/lmtp', `lmtp') WARNING: This feature sets LOCAL_MAILER_FLAGS unconditionally, i.e., without respecting any definitions in an OSTYPE setting. local_procmail Use procmail or another delivery agent as the local mailer. The argument to this feature is the pathname of the delivery agent, which defaults to PROCMAIL_MAILER_PATH. Note that this does NOT use PROCMAIL_MAILER_FLAGS or PROCMAIL_MAILER_ARGS for the local mailer; tweak LOCAL_MAILER_FLAGS and LOCAL_MAILER_ARGS instead, or specify the appropriate parameters. When procmail is used, the local mailer can make use of the "user+indicator@local.host" syntax; normally the +indicator is just tossed, but by default it is passed as the -a argument to procmail. This feature can take up to three arguments: 1. Path to the mailer program [default: /usr/local/bin/procmail] 2. Argument vector including name of the program [default: procmail -Y -a $h -d $u] 3. Flags for the mailer [default: SPfhn9] Empty arguments cause the defaults to be taken. Note that if you are on a system with a broken setreuid() call, you may need to add -f $f to the procmail argument vector to pass the proper sender to procmail. For example, this allows it to use the maildrop mailer instead by specifying: FEATURE(`local_procmail', `/usr/local/bin/maildrop', `maildrop -d $u') or scanmails using: FEATURE(`local_procmail', `/usr/local/bin/scanmails') WARNING: This feature sets LOCAL_MAILER_FLAGS unconditionally, i.e., without respecting any definitions in an OSTYPE setting. bestmx_is_local Accept mail as though locally addressed for any host that lists us as the best possible MX record. This generates additional DNS traffic, but should be OK for low to medium traffic hosts. The argument may be a set of domains, which will limit the feature to only apply to these domains -- this will reduce unnecessary DNS traffic. THIS FEATURE IS FUNDAMENTALLY INCOMPATIBLE WITH WILDCARD MX RECORDS!!! If you have a wildcard MX record that matches your domain, you cannot use this feature. smrsh Use the SendMail Restricted SHell (smrsh) provided with the distribution instead of /bin/sh for mailing to programs. This improves the ability of the local system administrator to control what gets run via e-mail. If an argument is provided it is used as the pathname to smrsh; otherwise, the path defined by confEBINDIR is used for the smrsh binary -- by default, /usr/libexec/smrsh is assumed. promiscuous_relay By default, the sendmail configuration files do not permit mail relaying (that is, accepting mail from outside your local host (class {w}) and sending it to another host than your local host). This option sets your site to allow mail relaying from any site to any site. In almost all cases, it is better to control relaying more carefully with the access map, class {R}, or authentication. Domains can be added to class {R} by the macros RELAY_DOMAIN or RELAY_DOMAIN_FILE (analogously to MASQUERADE_DOMAIN and MASQUERADE_DOMAIN_FILE, see below). relay_entire_domain This option allows any host in your domain as defined by class {m} to use your server for relaying. Notice: make sure that your domain is not just a top level domain, e.g., com. This can happen if you give your host a name like example.com instead of host.example.com. relay_hosts_only By default, names that are listed as RELAY in the access db and class {R} are treated as domain names, not host names. For example, if you specify ``foo.com'', then mail to or from foo.com, abc.foo.com, or a.very.deep.domain.foo.com will all be accepted for relaying. This feature changes the behaviour to look up individual host names only. relay_based_on_MX Turns on the ability to allow relaying based on the MX records of the host portion of an incoming recipient; that is, if an MX record for host foo.com points to your site, you will accept and relay mail addressed to foo.com. See description below for more information before using this feature. Also, see the KNOWNBUGS entry regarding bestmx map lookups. FEATURE(`relay_based_on_MX') does not necessarily allow routing of these messages which you expect to be allowed, if route address syntax (or %-hack syntax) is used. If this is a problem, add entries to the access-table or use FEATURE(`loose_relay_check'). relay_mail_from Allows relaying if the mail sender is listed as RELAY in the access map. If an optional argument `domain' (this is the literal word `domain', not a placeholder) is given, relaying can be allowed just based on the domain portion of the sender address. This feature should only be used if absolutely necessary as the sender address can be easily forged. Use of this feature requires the "From:" tag to be used for the key in the access map; see the discussion of tags and FEATURE(`relay_mail_from') in the section on anti-spam configuration control. relay_local_from Allows relaying if the domain portion of the mail sender is a local host. This should only be used if absolutely necessary as it opens a window for spammers. Specifically, they can send mail to your mail server that claims to be from your domain (either directly or via a routed address), and you will go ahead and relay it out to arbitrary hosts on the Internet. accept_unqualified_senders Normally, MAIL FROM: commands in the SMTP session will be refused if the connection is a network connection and the sender address does not include a domain name. If your setup sends local mail unqualified (i.e., MAIL FROM:), you will need to use this feature to accept unqualified sender addresses. Setting the DaemonPortOptions modifier 'u' overrides the default behavior, i.e., unqualified addresses are accepted even without this FEATURE. If this FEATURE is not used, the DaemonPortOptions modifier 'f' can be used to enforce fully qualified addresses. accept_unresolvable_domains Normally, MAIL FROM: commands in the SMTP session will be refused if the host part of the argument to MAIL FROM: cannot be located in the host name service (e.g., an A or MX record in DNS). If you are inside a firewall that has only a limited view of the Internet host name space, this could cause problems. In this case you probably want to use this feature to accept all domains on input, even if they are unresolvable. access_db Turns on the access database feature. The access db gives you the ability to allow or refuse to accept mail from specified domains for administrative reasons. Moreover, it can control the behavior of sendmail in various situations. By default, the access database specification is: hash -T /etc/mail/access See the anti-spam configuration control section for further important information about this feature. Notice: "-T" is meant literal, do not replace it by anything. blocklist_recipients Turns on the ability to block incoming mail for certain recipient usernames, hostnames, or addresses. For example, you can block incoming mail to user nobody, host foo.mydomain.com, or guest@bar.mydomain.com. These specifications are put in the access db as described in the anti-spam configuration control section later in this document. delay_checks The rulesets check_mail and check_relay will not be called when a client connects or issues a MAIL command, respectively. Instead, those rulesets will be called by the check_rcpt ruleset; they will be skipped under certain circumstances. See "Delay all checks" in the anti-spam configuration control section. Note: this feature is incompatible to the versions in 8.10 and 8.11. check_other Enable a default check_other ruleset which terminates an SMTP session when it encounters a command which matches a regular expression given as argument. If no argument is given, then the default (to match potential headers) is: ^[[:print:]]+ *: use_client_ptr If this feature is enabled then check_relay will override its first argument with $&{client_ptr}. This is useful for rejections based on the unverified hostname of client, which turns on the same behavior as in earlier sendmail versions when delay_checks was not in use. See doc/op/op.* about check_relay, {client_name}, and {client_ptr}. dnsbl Turns on rejection, discarding, or quarantining of hosts found in a DNS based list. The first argument is used as the domain in which blocked hosts are listed. A second argument can be used to change the default error message, or select one of the operations `discard' and `quarantine'. Without that second argument, the error message will be Rejected: IP-ADDRESS listed at SERVER where IP-ADDRESS and SERVER are replaced by the appropriate information. By default, temporary lookup failures are ignored. This behavior can be changed by specifying a third argument, which must be either `t' or a full error message. See the anti-spam configuration control section for an example. The dnsbl feature can be included several times to query different DNS based rejection lists. See also enhdnsbl for an enhanced version. Set the DNSBL_MAP mc option to change the default map definition from `host'. Set the DNSBL_MAP_OPT mc option to add additional options to the map specification used. Note: currently only IPv4 addresses are checked. Some DNS based rejection lists cause failures if asked for AAAA records. If your sendmail version is compiled with IPv6 support (NETINET6) and you experience this problem, add define(`DNSBL_MAP', `dns -R A') before the first use of this feature. Alternatively you can use enhdnsbl instead (see below). Moreover, this statement can be used to reduce the number of DNS retries, e.g., define(`DNSBL_MAP', `dns -R A -r2') See below (EDNSBL_TO) for an explanation. enhdnsbl Enhanced version of dnsbl (see above). Further arguments (up to 5) can be used to specify specific return values from lookups. Temporary lookup failures are ignored unless a third argument is given, which must be either `t' or a full error message. By default, any successful lookup will generate an error. Otherwise the result of the lookup is compared with the supplied argument(s), and only if a match occurs an error is generated. For example, FEATURE(`enhdnsbl', `dnsbl.example.com', `', `t', `127.0.0.2') will reject the e-mail if the lookup returns the value ``127.0.0.2'', or generate a 451 response if the lookup temporarily failed. The arguments can contain metasymbols as they are allowed in the LHS of rules. As the example shows, the default values are also used if an empty argument, i.e., `', is specified. This feature requires that sendmail has been compiled with the flag DNSMAP (see sendmail/README). Set the EDNSBL_TO mc option to change the DNS retry count from the default value of 5, this can be very useful when a DNS server is not responding, which in turn may cause clients to time out (an entry stating did not issue MAIL/EXPN/VRFY/ETRN will be logged). ratecontrol Enable simple ruleset to do connection rate control checking. This requires entries in access_db of the form ClientRate:IP.ADD.RE.SS LIMIT The RHS specifies the maximum number of connections (an integer number) over the time interval defined by ConnectionRateWindowSize, where 0 means unlimited. Take the following example: ClientRate:10.1.2.3 4 ClientRate:127.0.0.1 0 ClientRate: 10 10.1.2.3 can only make up to 4 connections, the general limit it 10, and 127.0.0.1 can make an unlimited number of connections per ConnectionRateWindowSize. See also CONNECTION CONTROL. conncontrol Enable a simple check of the number of incoming SMTP connections. This requires entries in access_db of the form ClientConn:IP.ADD.RE.SS LIMIT The RHS specifies the maximum number of open connections (an integer number). Take the following example: ClientConn:10.1.2.3 4 ClientConn:127.0.0.1 0 ClientConn: 10 10.1.2.3 can only have up to 4 open connections, the general limit it 10, and 127.0.0.1 does not have any explicit limit. See also CONNECTION CONTROL. mtamark Experimental support for "Marking Mail Transfer Agents in Reverse DNS with TXT RRs" (MTAMark), see draft-stumpf-dns-mtamark-01. Optional arguments are: 1. Error message, default: 550 Rejected: $&{client_addr} not listed as MTA 2. Temporary lookup failures are ignored unless a second argument is given, which must be either `t' or a full error message. 3. Lookup prefix, default: _perm._smtp._srv. This should not be changed unless the draft changes it. Example: FEATURE(`mtamark', `', `t') lookupdotdomain Look up also .domain in the access map. This allows to match only subdomains. It does not work well with FEATURE(`relay_hosts_only'), because most lookups for subdomains are suppressed by the latter feature. loose_relay_check Normally, if % addressing is used for a recipient, e.g. user%site@othersite, and othersite is in class {R}, the check_rcpt ruleset will strip @othersite and recheck user@site for relaying. This feature changes that behavior. It should not be needed for most installations. authinfo Provide a separate map for client side authentication information. See SMTP AUTHENTICATION for details. By default, the authinfo database specification is: hash /etc/mail/authinfo preserve_luser_host Preserve the name of the recipient host if LUSER_RELAY is used. Without this option, the domain part of the recipient address will be replaced by the host specified as LUSER_RELAY. This feature only works if the hostname is passed to the mailer (see mailer triple in op.me). Note that in the default configuration the local mailer does not receive the hostname, i.e., the mailer triple has an empty hostname. preserve_local_plus_detail Preserve the +detail portion of the address when passing address to local delivery agent. Disables alias and .forward +detail stripping (e.g., given user+detail, only that address will be looked up in the alias file; user+* and user will not be looked up). Only use if the local delivery agent in use supports +detail addressing. Moreover, this will most likely not work if the 'w' flag for the local mailer is set as the entire local address including +detail is passed to the user lookup function. compat_check Enable ruleset check_compat to look up pairs of addresses with the Compat: tag -- Compat:sender<@>recipient -- in the access map. Valid values for the RHS include DISCARD silently discard recipient TEMP: return a temporary error ERROR: return a permanent error In the last two cases, a 4xy/5xy SMTP reply code should follow the colon. no_default_msa Don't generate the default MSA daemon, i.e., DAEMON_OPTIONS(`Port=587,Name=MSA,M=E') To define a MSA daemon with other parameters, use this FEATURE and introduce new settings via DAEMON_OPTIONS(). msp Defines config file for Message Submission Program. See sendmail/SECURITY for details and cf/cf/submit.mc how to use it. An optional argument can be used to override the default of `[localhost]' to use as host to send all e-mails to. Note that MX records will be used if the specified hostname is not in square brackets (e.g., [hostname]). If `MSA' is specified as second argument then port 587 is used to contact the server. Example: FEATURE(`msp', `', `MSA') Some more hints about possible changes can be found below in the section MESSAGE SUBMISSION PROGRAM. Note: Due to many problems, submit.mc uses FEATURE(`msp', `[127.0.0.1]') by default. If you have a machine with IPv6 only, change it to FEATURE(`msp', `[IPv6:0:0:0:0:0:0:0:1]') If you want to continue using '[localhost]', (the behavior up to 8.12.6), use FEATURE(`msp') queuegroup A simple example how to select a queue group based on the full e-mail address or the domain of the recipient. Selection is done via entries in the access map using the tag QGRP:, for example: QGRP:example.com main QGRP:friend@some.org others QGRP:my.domain local where "main", "others", and "local" are names of queue groups. If an argument is specified, it is used as default queue group. Note: please read the warning in doc/op/op.me about queue groups and possible queue manipulations. greet_pause Adds the greet_pause ruleset which enables open proxy and SMTP slamming protection. The feature can take an argument specifying the milliseconds to wait: FEATURE(`greet_pause', `5000') dnl 5 seconds If FEATURE(`access_db') is enabled, an access database lookup with the GreetPause tag is done using client hostname, domain, IP address, or subnet to determine the pause time: GreetPause:my.domain 0 GreetPause:example.com 5000 GreetPause:10.1.2 2000 GreetPause:127.0.0.1 0 When using FEATURE(`access_db'), the optional FEATURE(`greet_pause') argument becomes the default if nothing is found in the access database. A ruleset called Local_greet_pause can be used for local modifications, e.g., LOCAL_RULESETS SLocal_greet_pause R$* $: $&{daemon_flags} R$* a $* $# 0 block_bad_helo Reject messages from SMTP clients which provide a HELO/EHLO argument which is either unqualified, or is one of our own names (i.e., the server name instead of the client name). This check is performed at RCPT stage and disabled for the following cases: - authenticated sessions, - connections from IP addresses in class $={R}. Currently access_db lookups can not be used to (selectively) disable this test, moreover, FEATURE(`delay_checks') is required. Note, the block_bad_helo feature automatically adds the IPv6 and IPv4 localhost IP addresses to $={w} (local host names) and $={R} (relay permitted). require_rdns Reject mail from connecting SMTP clients without proper rDNS (reverse DNS), functional gethostbyaddr() resolution. Note: this feature will cause false positives, i.e., there are legitimate MTAs that do not have proper DNS entries. Rejecting mails from those MTAs is a local policy decision. The basic policy is to reject message with a 5xx error if the IP address fails to resolve. However, if this is a temporary failure, a 4xx temporary failure is returned. If the look-up succeeds, but returns an apparently forged value, this is treated as a temporary failure with a 4xx error code. EXCEPTIONS: Exceptions based on access entries are discussed below. Any IP address matched using $=R (the "relay-domains" file) is excepted from the rules. Since we have explicitly allowed relaying for this host, based on IP address, we ignore the rDNS failure. The philosophical assumption here is that most users do not control their rDNS. They should be able to send mail through their ISP, whether or not they have valid rDNS. The class $=R, roughly speaking, contains those IP addresses and address ranges for which we are the ISP, or are acting as if the ISP. If `delay_checks' is in effect (recommended), then any sender who has authenticated is also excepted from the restrictions. This happens because the rules produced by this FEATURE() will not be applied to authenticated senders (assuming `delay_checks'). ACCESS MAP ENTRIES: Entries such as Connect:1.2.3.4 OK Connect:1.3 RELAY will allowlist IP address 1.2.3.4 and IP net 1.3.* so that the rDNS blocking does apply not to those IPs. Entries such as Connect:1.2.3.4 REJECT will have the effect of forcing a temporary failure for that address to be treated as a permanent failure. badmx Reject envelope sender addresses (MAIL) whose domain part resolves to a "bad" MX record. By default these are MX records which resolve to A records that match the regular expression: ^(127\.|10\.|0\.0\.0\.0) This default regular expression can be overridden by specifying an argument, e.g., FEATURE(`badmx', `^127\.0\.0\.1') Note: this feature requires that the sendmail binary has been compiled with the options MAP_REGEX and DNSMAP. sts Experimental support for Strict Transport Security (MTA-STS, see RFC 8461). It sets the option StrictTransportSecurity and takes one optional argument: the socket map specification to access postfix-mta-sts-resolver (see feature/sts.m4 for the default value). For more information see doc/op/op.me. fips3 Basic support for FIPS in OpenSSL 3 by setting the environment variables OPENSSL_CONF and OPENSSL_MODULES to the first and second argument, respectively. For details, see the file and the OpenSSL documentation. +-------+ | HACKS | +-------+ Some things just can't be called features. To make this clear, they go in the hack subdirectory and are referenced using the HACK macro. These will tend to be site-dependent. The release includes the Berkeley-dependent "cssubdomain" hack (that makes sendmail accept local names in either Berkeley.EDU or CS.Berkeley.EDU; this is intended as a short-term aid while moving hosts into subdomains. +--------------------+ | SITE CONFIGURATION | +--------------------+ ***************************************************** * This section is really obsolete, and is preserved * * only for back compatibility. You should plan on * * using mailertables for new installations. In * * particular, it doesn't work for the newer forms * * of UUCP mailers, such as uucp-uudom. * ***************************************************** Complex sites will need more local configuration information, such as lists of UUCP hosts they speak with directly. This can get a bit more tricky. For an example of a "complex" site, see cf/ucbvax.mc. The SITECONFIG macro allows you to indirectly reference site-dependent configuration information stored in the siteconfig subdirectory. For example, the line SITECONFIG(`uucp.ucbvax', `ucbvax', `U') reads the file uucp.ucbvax for local connection information. The second parameter is the local name (in this case just "ucbvax" since it is locally connected, and hence a UUCP hostname). The third parameter is the name of both a macro to store the local name (in this case, {U}) and the name of the class (e.g., {U}) in which to store the host information read from the file. Another SITECONFIG line reads SITECONFIG(`uucp.ucbarpa', `ucbarpa.Berkeley.EDU', `W') This says that the file uucp.ucbarpa contains the list of UUCP sites connected to ucbarpa.Berkeley.EDU. Class {W} will be used to store this list, and $W is defined to be ucbarpa.Berkeley.EDU, that is, the name of the relay to which the hosts listed in uucp.ucbarpa are connected. [The machine ucbarpa is gone now, but this out-of-date configuration file has been left around to demonstrate how you might do this.] Note that the case of SITECONFIG with a third parameter of ``U'' is special; the second parameter is assumed to be the UUCP name of the local site, rather than the name of a remote site, and the UUCP name is entered into class {w} (the list of local hostnames) as $U.UUCP. The siteconfig file (e.g., siteconfig/uucp.ucbvax.m4) contains nothing more than a sequence of SITE macros describing connectivity. For example: SITE(`cnmat') SITE(`sgi olympus') The second example demonstrates that you can use two names on the same line; these are usually aliases for the same host (or are at least in the same company). The macro LOCAL_UUCP can be used to add rules into the generated cf file at the place where MAILER(`uucp') inserts its rules. This should only be used if really necessary. +--------------------+ | USING UUCP MAILERS | +--------------------+ It's hard to get UUCP mailers right because of the extremely ad hoc nature of UUCP addressing. These config files are really designed for domain-based addressing, even for UUCP sites. There are four UUCP mailers available. The choice of which one to use is partly a matter of local preferences and what is running at the other end of your UUCP connection. Unlike good protocols that define what will go over the wire, UUCP uses the policy that you should do what is right for the other end; if they change, you have to change. This makes it hard to do the right thing, and discourages people from updating their software. In general, if you can avoid UUCP, please do. The major choice is whether to go for a domainized scheme or a non-domainized scheme. This depends entirely on what the other end will recognize. If at all possible, you should encourage the other end to go to a domain-based system -- non-domainized addresses don't work entirely properly. The four mailers are: uucp-old (obsolete name: "uucp") This is the oldest, the worst (but the closest to UUCP) way of sending messages across UUCP connections. It does bangify everything and prepends $U (your UUCP name) to the sender's address (which can already be a bang path itself). It can only send to one address at a time, so it spends a lot of time copying duplicates of messages. Avoid this if at all possible. uucp-new (obsolete name: "suucp") The same as above, except that it assumes that in one rmail command you can specify several recipients. It still has a lot of other problems. uucp-dom This UUCP mailer keeps everything as domain addresses. Basically, it uses the SMTP mailer rewriting rules. This mailer is only included if MAILER(`smtp') is specified before MAILER(`uucp'). Unfortunately, a lot of UUCP mailer transport agents require bangified addresses in the envelope, although you can use domain-based addresses in the message header. (The envelope shows up as the From_ line on UNIX mail.) So.... uucp-uudom This is a cross between uucp-new (for the envelope addresses) and uucp-dom (for the header addresses). It bangifies the envelope sender (From_ line in messages) without adding the local hostname, unless there is no host name on the address at all (e.g., "wolf") or the host component is a UUCP host name instead of a domain name ("somehost!wolf" instead of "some.dom.ain!wolf"). This is also included only if MAILER(`smtp') is also specified earlier. Examples: On host grasp.insa-lyon.fr (UUCP host name "grasp"), the following summarizes the sender rewriting for various mailers. Mailer sender rewriting in the envelope ------ ------ ------------------------- uucp-{old,new} wolf grasp!wolf uucp-dom wolf wolf@grasp.insa-lyon.fr uucp-uudom wolf grasp.insa-lyon.fr!wolf uucp-{old,new} wolf@fr.net grasp!fr.net!wolf uucp-dom wolf@fr.net wolf@fr.net uucp-uudom wolf@fr.net fr.net!wolf uucp-{old,new} somehost!wolf grasp!somehost!wolf uucp-dom somehost!wolf somehost!wolf@grasp.insa-lyon.fr uucp-uudom somehost!wolf grasp.insa-lyon.fr!somehost!wolf If you are using one of the domainized UUCP mailers, you really want to convert all UUCP addresses to domain format -- otherwise, it will do it for you (and probably not the way you expected). For example, if you have the address foo!bar!baz (and you are not sending to foo), the heuristics will add the @uucp.relay.name or @local.host.name to this address. However, if you map foo to foo.host.name first, it will not add the local hostname. You can do this using the uucpdomain feature. +-------------------+ | TWEAKING RULESETS | +-------------------+ For more complex configurations, you can define special rules. The macro LOCAL_RULE_3 introduces rules that are used in canonicalizing the names. Any modifications made here are reflected in the header. A common use is to convert old UUCP addresses to SMTP addresses using the UUCPSMTP macro. For example: LOCAL_RULE_3 UUCPSMTP(`decvax', `decvax.dec.com') UUCPSMTP(`research', `research.att.com') will cause addresses of the form "decvax!user" and "research!user" to be converted to "user@decvax.dec.com" and "user@research.att.com" respectively. This could also be used to look up hosts in a database map: LOCAL_RULE_3 R$* < @ $+ > $* $: $1 < @ $(hostmap $2 $) > $3 This map would be defined in the LOCAL_CONFIG portion, as shown below. Similarly, LOCAL_RULE_0 can be used to introduce new parsing rules. For example, new rules are needed to parse hostnames that you accept via MX records. For example, you might have: LOCAL_RULE_0 R$+ <@ host.dom.ain.> $#uucp $@ cnmat $: $1 < @ host.dom.ain.> You would use this if you had installed an MX record for cnmat.Berkeley.EDU pointing at this host; this rule catches the message and forwards it on using UUCP. You can also tweak rulesets 1 and 2 using LOCAL_RULE_1 and LOCAL_RULE_2. These rulesets are normally empty. A similar macro is LOCAL_CONFIG. This introduces lines added after the boilerplate option setting but before rulesets. Do not declare rulesets in the LOCAL_CONFIG section. It can be used to declare local database maps or whatever. For example: LOCAL_CONFIG Khostmap hash /etc/mail/hostmap Kyplocal nis -m hosts.byname +---------------------------+ | MASQUERADING AND RELAYING | +---------------------------+ You can have your host masquerade as another using MASQUERADE_AS(`host.domain') This causes mail being sent to be labeled as coming from the indicated host.domain, rather than $j. One normally masquerades as one of one's own subdomains (for example, it's unlikely that Berkeley would choose to masquerade as an MIT site). This behaviour is modified by a plethora of FEATUREs; in particular, see masquerade_envelope, allmasquerade, limited_masquerade, and masquerade_entire_domain. The masquerade name is not normally canonified, so it is important that it be your One True Name, that is, fully qualified and not a CNAME. However, if you use a CNAME, the receiving side may canonify it for you, so don't think you can cheat CNAME mapping this way. Normally the only addresses that are masqueraded are those that come from this host (that is, are either unqualified or in class {w}, the list of local domain names). You can augment this list, which is realized by class {M} using MASQUERADE_DOMAIN(`otherhost.domain') The effect of this is that although mail to user@otherhost.domain will not be delivered locally, any mail including any user@otherhost.domain will, when relayed, be rewritten to have the MASQUERADE_AS address. This can be a space-separated list of names. If these names are in a file, you can use MASQUERADE_DOMAIN_FILE(`filename') to read the list of names from the indicated file (i.e., to add elements to class {M}). To exempt hosts or subdomains from being masqueraded, you can use MASQUERADE_EXCEPTION(`host.domain') This can come handy if you want to masquerade a whole domain except for one (or a few) host(s). If these names are in a file, you can use MASQUERADE_EXCEPTION_FILE(`filename') Normally only header addresses are masqueraded. If you want to masquerade the envelope as well, use FEATURE(`masquerade_envelope') There are always users that need to be "exposed" -- that is, their internal site name should be displayed instead of the masquerade name. Root is an example (which has been "exposed" by default prior to 8.10). You can add users to this list using EXPOSED_USER(`usernames') This adds users to class {E}; you could also use EXPOSED_USER_FILE(`filename') You can also arrange to relay all unqualified names (that is, names without @host) to a relay host. For example, if you have a central email server, you might relay to that host so that users don't have to have .forward files or aliases. You can do this using define(`LOCAL_RELAY', `mailer:hostname') The ``mailer:'' can be omitted, in which case the mailer defaults to "relay". There are some user names that you don't want relayed, perhaps because of local aliases. A common example is root, which may be locally aliased. You can add entries to this list using LOCAL_USER(`usernames') This adds users to class {L}; you could also use LOCAL_USER_FILE(`filename') If you want all incoming mail sent to a centralized hub, as for a shared /var/spool/mail scheme, use define(`MAIL_HUB', `mailer:hostname') Again, ``mailer:'' defaults to "relay". If you define both LOCAL_RELAY and MAIL_HUB _AND_ you have FEATURE(`stickyhost'), unqualified names will be sent to the LOCAL_RELAY and other local names will be sent to MAIL_HUB. Note: there is a (long standing) bug which keeps this combination from working for addresses of the form user+detail. Names in class {L} will be delivered locally, so you MUST have aliases or .forward files for them. For example, if you are on machine mastodon.CS.Berkeley.EDU and you have FEATURE(`stickyhost'), the following combinations of settings will have the indicated effects: email sent to.... eric eric@mastodon.CS.Berkeley.EDU LOCAL_RELAY set to mail.CS.Berkeley.EDU (delivered locally) mail.CS.Berkeley.EDU (no local aliasing) (aliasing done) MAIL_HUB set to mammoth.CS.Berkeley.EDU mammoth.CS.Berkeley.EDU mammoth.CS.Berkeley.EDU (aliasing done) (aliasing done) Both LOCAL_RELAY and mail.CS.Berkeley.EDU mammoth.CS.Berkeley.EDU MAIL_HUB set as above (no local aliasing) (aliasing done) If you do not have FEATURE(`stickyhost') set, then LOCAL_RELAY and MAIL_HUB act identically, with MAIL_HUB taking precedence. If you want all outgoing mail to go to a central relay site, define SMART_HOST as well. Briefly: LOCAL_RELAY applies to unqualified names (e.g., "eric"). MAIL_HUB applies to names qualified with the name of the local host (e.g., "eric@mastodon.CS.Berkeley.EDU"). SMART_HOST applies to names qualified with other hosts or bracketed addresses (e.g., "eric@mastodon.CS.Berkeley.EDU" or "eric@[127.0.0.1]"). However, beware that other relays (e.g., UUCP_RELAY, BITNET_RELAY, DECNET_RELAY, and FAX_RELAY) take precedence over SMART_HOST, so if you really want absolutely everything to go to a single central site you will need to unset all the other relays -- or better yet, find or build a minimal config file that does this. For duplicate suppression to work properly, the host name is best specified with a terminal dot: define(`MAIL_HUB', `host.domain.') note the trailing dot ---^ +-------------------------------------------+ | USING LDAP FOR ALIASES, MAPS, AND CLASSES | +-------------------------------------------+ LDAP can be used for aliases, maps, and classes by either specifying your own LDAP map specification or using the built-in default LDAP map specification. The built-in default specifications all provide lookups which match against either the machine's fully qualified hostname (${j}) or a "cluster". The cluster allows you to share LDAP entries among a large number of machines without having to enter each of the machine names into each LDAP entry. To set the LDAP cluster name to use for a particular machine or set of machines, set the confLDAP_CLUSTER m4 variable to a unique name. For example: define(`confLDAP_CLUSTER', `Servers') Here, the word `Servers' will be the cluster name. As an example, assume that smtp.sendmail.org, etrn.sendmail.org, and mx.sendmail.org all belong to the Servers cluster. Some of the LDAP LDIF examples below show use of the Servers cluster. Every entry must have either a sendmailMTAHost or sendmailMTACluster attribute or it will be ignored. Be careful as mixing clusters and individual host records can have surprising results (see the CAUTION sections below). See the file cf/sendmail.schema for the actual LDAP schemas. Note that this schema (and therefore the lookups and examples below) is experimental at this point as it has had little public review. Therefore, it may change in future versions. Feedback via sendmail-YYYY@support.sendmail.org is encouraged (replace YYYY with the current year, e.g., 2005). ------- Aliases ------- The ALIAS_FILE (O AliasFile) option can be set to use LDAP for alias lookups. To use the default schema, simply use: define(`ALIAS_FILE', `ldap:') By doing so, you will use the default schema which expands to a map declared as follows: ldap -k (&(objectClass=sendmailMTAAliasObject) (sendmailMTAAliasGrouping=aliases) (|(sendmailMTACluster=${sendmailMTACluster}) (sendmailMTAHost=$j)) (sendmailMTAKey=%0)) -v sendmailMTAAliasValue,sendmailMTAAliasSearch:FILTER:sendmailMTAAliasObject,sendmailMTAAliasURL:URL:sendmailMTAAliasObject NOTE: The macros shown above ${sendmailMTACluster} and $j are not actually used when the binary expands the `ldap:' token as the AliasFile option is not actually macro-expanded when read from the sendmail.cf file. Example LDAP LDIF entries might be: dn: sendmailMTAKey=sendmail-list, dc=sendmail, dc=org objectClass: sendmailMTA objectClass: sendmailMTAAlias objectClass: sendmailMTAAliasObject sendmailMTAAliasGrouping: aliases sendmailMTAHost: etrn.sendmail.org sendmailMTAKey: sendmail-list sendmailMTAAliasValue: ca@example.org sendmailMTAAliasValue: eric sendmailMTAAliasValue: gshapiro@example.com dn: sendmailMTAKey=owner-sendmail-list, dc=sendmail, dc=org objectClass: sendmailMTA objectClass: sendmailMTAAlias objectClass: sendmailMTAAliasObject sendmailMTAAliasGrouping: aliases sendmailMTAHost: etrn.sendmail.org sendmailMTAKey: owner-sendmail-list sendmailMTAAliasValue: eric dn: sendmailMTAKey=postmaster, dc=sendmail, dc=org objectClass: sendmailMTA objectClass: sendmailMTAAlias objectClass: sendmailMTAAliasObject sendmailMTAAliasGrouping: aliases sendmailMTACluster: Servers sendmailMTAKey: postmaster sendmailMTAAliasValue: eric Here, the aliases sendmail-list and owner-sendmail-list will be available only on etrn.sendmail.org but the postmaster alias will be available on every machine in the Servers cluster (including etrn.sendmail.org). CAUTION: aliases are additive so that entries like these: dn: sendmailMTAKey=bob, dc=sendmail, dc=org objectClass: sendmailMTA objectClass: sendmailMTAAlias objectClass: sendmailMTAAliasObject sendmailMTAAliasGrouping: aliases sendmailMTACluster: Servers sendmailMTAKey: bob sendmailMTAAliasValue: eric dn: sendmailMTAKey=bobetrn, dc=sendmail, dc=org objectClass: sendmailMTA objectClass: sendmailMTAAlias objectClass: sendmailMTAAliasObject sendmailMTAAliasGrouping: aliases sendmailMTAHost: etrn.sendmail.org sendmailMTAKey: bob sendmailMTAAliasValue: gshapiro would mean that on all of the hosts in the cluster, mail to bob would go to eric EXCEPT on etrn.sendmail.org in which case it would go to BOTH eric and gshapiro. If you prefer not to use the default LDAP schema for your aliases, you can specify the map parameters when setting ALIAS_FILE. For example: define(`ALIAS_FILE', `ldap:-k (&(objectClass=mailGroup)(mail=%0)) -v mgrpRFC822MailMember') ---- Maps ---- FEATURE()'s which take an optional map definition argument (e.g., access, mailertable, virtusertable, etc.) can instead take the special keyword `LDAP', e.g.: FEATURE(`access_db', `LDAP') FEATURE(`virtusertable', `LDAP') When this keyword is given, that map will use LDAP lookups consisting of the objectClass sendmailMTAClassObject, the attribute sendmailMTAMapName with the map name, a search attribute of sendmailMTAKey, and the value attribute sendmailMTAMapValue. The values for sendmailMTAMapName are: FEATURE() sendmailMTAMapName --------- ------------------ access_db access authinfo authinfo bitdomain bitdomain domaintable domain genericstable generics mailertable mailer uucpdomain uucpdomain virtusertable virtuser For example, FEATURE(`mailertable', `LDAP') would use the map definition: Kmailertable ldap -k (&(objectClass=sendmailMTAMapObject) (sendmailMTAMapName=mailer) (|(sendmailMTACluster=${sendmailMTACluster}) (sendmailMTAHost=$j)) (sendmailMTAKey=%0)) -1 -v sendmailMTAMapValue,sendmailMTAMapSearch:FILTER:sendmailMTAMapObject,sendmailMTAMapURL:URL:sendmailMTAMapObject An example LDAP LDIF entry using this map might be: dn: sendmailMTAMapName=mailer, dc=sendmail, dc=org objectClass: sendmailMTA objectClass: sendmailMTAMap sendmailMTACluster: Servers sendmailMTAMapName: mailer dn: sendmailMTAKey=example.com, sendmailMTAMapName=mailer, dc=sendmail, dc=org objectClass: sendmailMTA objectClass: sendmailMTAMap objectClass: sendmailMTAMapObject sendmailMTAMapName: mailer sendmailMTACluster: Servers sendmailMTAKey: example.com sendmailMTAMapValue: relay:[smtp.example.com] CAUTION: If your LDAP database contains the record above and *ALSO* a host specific record such as: dn: sendmailMTAKey=example.com@etrn, sendmailMTAMapName=mailer, dc=sendmail, dc=org objectClass: sendmailMTA objectClass: sendmailMTAMap objectClass: sendmailMTAMapObject sendmailMTAMapName: mailer sendmailMTAHost: etrn.sendmail.org sendmailMTAKey: example.com sendmailMTAMapValue: relay:[mx.example.com] then these entries will give unexpected results. When the lookup is done on etrn.sendmail.org, the effect is that there is *NO* match at all as maps require a single match. Since the host etrn.sendmail.org is also in the Servers cluster, LDAP would return two answers for the example.com map key in which case sendmail would treat this as no match at all. If you prefer not to use the default LDAP schema for your maps, you can specify the map parameters when using the FEATURE(). For example: FEATURE(`access_db', `ldap:-1 -k (&(objectClass=mapDatabase)(key=%0)) -v value') ------- Classes ------- Normally, classes can be filled via files or programs. As of 8.12, they can also be filled via map lookups using a new syntax: F{ClassName}mapkey@mapclass:mapspec mapkey is optional and if not provided the map key will be empty. This can be used with LDAP to read classes from LDAP. Note that the lookup is only done when sendmail is initially started. Use the special value `@LDAP' to use the default LDAP schema. For example: RELAY_DOMAIN_FILE(`@LDAP') would put all of the attribute sendmailMTAClassValue values of LDAP records with objectClass sendmailMTAClass and an attribute sendmailMTAClassName of 'R' into class $={R}. In other words, it is equivalent to the LDAP map specification: F{R}@ldap:-k (&(objectClass=sendmailMTAClass) (sendmailMTAClassName=R) (|(sendmailMTACluster=${sendmailMTACluster}) (sendmailMTAHost=$j))) -v sendmailMTAClassValue,sendmailMTAClassSearch:FILTER:sendmailMTAClass,sendmailMTAClassURL:URL:sendmailMTAClass NOTE: The macros shown above ${sendmailMTACluster} and $j are not actually used when the binary expands the `@LDAP' token as class declarations are not actually macro-expanded when read from the sendmail.cf file. This can be used with class related commands such as RELAY_DOMAIN_FILE(), MASQUERADE_DOMAIN_FILE(), etc: Command sendmailMTAClassName ------- -------------------- CANONIFY_DOMAIN_FILE() Canonify EXPOSED_USER_FILE() E GENERICS_DOMAIN_FILE() G LDAPROUTE_DOMAIN_FILE() LDAPRoute LDAPROUTE_EQUIVALENT_FILE() LDAPRouteEquiv LOCAL_USER_FILE() L MASQUERADE_DOMAIN_FILE() M MASQUERADE_EXCEPTION_FILE() N RELAY_DOMAIN_FILE() R VIRTUSER_DOMAIN_FILE() VirtHost You can also add your own as any 'F'ile class of the form: F{ClassName}@LDAP ^^^^^^^^^ will use "ClassName" for the sendmailMTAClassName. An example LDAP LDIF entry would look like: dn: sendmailMTAClassName=R, dc=sendmail, dc=org objectClass: sendmailMTA objectClass: sendmailMTAClass sendmailMTACluster: Servers sendmailMTAClassName: R sendmailMTAClassValue: sendmail.org sendmailMTAClassValue: example.com sendmailMTAClassValue: 10.56.23 CAUTION: If your LDAP database contains the record above and *ALSO* a host specific record such as: dn: sendmailMTAClassName=R@etrn.sendmail.org, dc=sendmail, dc=org objectClass: sendmailMTA objectClass: sendmailMTAClass sendmailMTAHost: etrn.sendmail.org sendmailMTAClassName: R sendmailMTAClassValue: example.com the result will be similar to the aliases caution above. When the lookup is done on etrn.sendmail.org, $={R} would contain all of the entries (from both the cluster match and the host match). In other words, the effective is additive. If you prefer not to use the default LDAP schema for your classes, you can specify the map parameters when using the class command. For example: VIRTUSER_DOMAIN_FILE(`@ldap:-k (&(objectClass=virtHosts)(host=*)) -v host') Remember, macros can not be used in a class declaration as the binary does not expand them. +--------------+ | LDAP ROUTING | +--------------+ FEATURE(`ldap_routing') can be used to implement the IETF Internet Draft LDAP Schema for Intranet Mail Routing (draft-lachman-laser-ldap-mail-routing-01). This feature enables LDAP-based rerouting of a particular address to either a different host or a different address. The LDAP lookup is first attempted on the full address (e.g., user@example.com) and then on the domain portion (e.g., @example.com). Be sure to setup your domain for LDAP routing using LDAPROUTE_DOMAIN(), e.g.: LDAPROUTE_DOMAIN(`example.com') Additionally, you can specify equivalent domains for LDAP routing using LDAPROUTE_EQUIVALENT() and LDAPROUTE_EQUIVALENT_FILE(). 'Equivalent' hostnames are mapped to $M (the masqueraded hostname for the server) before the LDAP query. For example, if the mail is addressed to user@host1.example.com, normally the LDAP lookup would only be done for 'user@host1.example.com' and '@host1.example.com'. However, if LDAPROUTE_EQUIVALENT(`host1.example.com') is used, the lookups would also be done on 'user@example.com' and '@example.com' after attempting the host1.example.com lookups. By default, the feature will use the schemas as specified in the draft and will not reject addresses not found by the LDAP lookup. However, this behavior can be changed by giving additional arguments to the FEATURE() command: FEATURE(`ldap_routing', , , , , , ) where is a map definition describing how to look up an alternative mail host for a particular address; is a map definition describing how to look up an alternative address for a particular address; the argument, if present and not the word "passthru", dictates that mail should be bounced if neither a mailHost nor mailRoutingAddress is found, if set to "sendertoo", the sender will be rejected if not found in LDAP; and indicates what actions to take if the address contains +detail information -- `strip' tries the lookup with the +detail and if no matches are found, strips the +detail and tries the lookup again; `preserve', does the same as `strip' but if a mailRoutingAddress match is found, the +detail information is copied to the new address; the argument, if present, will prevent the @domain lookup if the full address is not found in LDAP; the argument, if set to "tempfail", instructs the rules to give an SMTP 4XX temporary error if the LDAP server gives the MTA a temporary failure, or if set to "queue" (the default), the MTA will locally queue the mail. The default map definition is: ldap -1 -T -v mailHost -k (&(objectClass=inetLocalMailRecipient) (mailLocalAddress=%0)) The default map definition is: ldap -1 -T -v mailRoutingAddress -k (&(objectClass=inetLocalMailRecipient) (mailLocalAddress=%0)) Note that neither includes the LDAP server hostname (-h server) or base DN (-b o=org,c=COUNTRY), both necessary for LDAP queries. It is presumed that your .mc file contains a setting for the confLDAP_DEFAULT_SPEC option with these settings. If this is not the case, the map definitions should be changed as described above. The "-T" is required in any user specified map definition to catch temporary errors. The following possibilities exist as a result of an LDAP lookup on an address: mailHost is mailRoutingAddress is Results in ----------- --------------------- ---------- set to a set mail delivered to "local" host mailRoutingAddress set to a not set delivered to "local" host original address set to a set mailRoutingAddress remote host relayed to mailHost set to a not set original address remote host relayed to mailHost not set set mail delivered to mailRoutingAddress not set not set delivered to original address *OR* bounced as unknown user The term "local" host above means the host specified is in class {w}. If the result would mean sending the mail to a different host, that host is looked up in the mailertable before delivery. Note that the last case depends on whether the third argument is given to the FEATURE() command. The default is to deliver the message to the original address. The LDAP entries should be set up with an objectClass of inetLocalMailRecipient and the address be listed in a mailLocalAddress attribute. If present, there must be only one mailHost attribute and it must contain a fully qualified host name as its value. Similarly, if present, there must be only one mailRoutingAddress attribute and it must contain an RFC 822 compliant address. Some example LDAP records (in LDIF format): dn: uid=tom, o=example.com, c=US objectClass: inetLocalMailRecipient mailLocalAddress: tom@example.com mailRoutingAddress: thomas@mailhost.example.com This would deliver mail for tom@example.com to thomas@mailhost.example.com. dn: uid=dick, o=example.com, c=US objectClass: inetLocalMailRecipient mailLocalAddress: dick@example.com mailHost: eng.example.com This would relay mail for dick@example.com to the same address but redirect the mail to MX records listed for the host eng.example.com (unless the mailertable overrides). dn: uid=harry, o=example.com, c=US objectClass: inetLocalMailRecipient mailLocalAddress: harry@example.com mailHost: mktmail.example.com mailRoutingAddress: harry@mkt.example.com This would relay mail for harry@example.com to the MX records listed for the host mktmail.example.com using the new address harry@mkt.example.com when talking to that host. dn: uid=virtual.example.com, o=example.com, c=US objectClass: inetLocalMailRecipient mailLocalAddress: @virtual.example.com mailHost: server.example.com mailRoutingAddress: virtual@example.com This would send all mail destined for any username @virtual.example.com to the machine server.example.com's MX servers and deliver to the address virtual@example.com on that relay machine. +---------------------------------+ | ANTI-SPAM CONFIGURATION CONTROL | +---------------------------------+ The primary anti-spam features available in sendmail are: * Relaying is denied by default. * Better checking on sender information. * Access database. * Header checks. Relaying (transmission of messages from a site outside your host (class {w}) to another site except yours) is denied by default. Note that this changed in sendmail 8.9; previous versions allowed relaying by default. If you really want to revert to the old behaviour, you will need to use FEATURE(`promiscuous_relay'). You can allow certain domains to relay through your server by adding their domain name or IP address to class {R} using RELAY_DOMAIN() and RELAY_DOMAIN_FILE() or via the access database (described below). Note that IPv6 addresses must be prefaced with "IPv6:". The file consists (like any other file based class) of entries listed on separate lines, e.g., sendmail.org 128.32 IPv6:2002:c0a8:02c7 IPv6:2002:c0a8:51d2::23f4 host.mydomain.com [UNIX:localhost] Notice: the last entry allows relaying for connections via a UNIX socket to the MTA/MSP. This might be necessary if your configuration doesn't allow relaying by other means in that case, e.g., by having localhost.$m in class {R} (make sure $m is not just a top level domain). If you use FEATURE(`relay_entire_domain') then any host in any of your local domains (that is, class {m}) will be relayed (that is, you will accept mail either to or from any host in your domain). You can also allow relaying based on the MX records of the host portion of an incoming recipient address by using FEATURE(`relay_based_on_MX') For example, if your server receives a recipient of user@domain.com and domain.com lists your server in its MX records, the mail will be accepted for relay to domain.com. This feature may cause problems if MX lookups for the recipient domain are slow or time out. In that case, mail will be temporarily rejected. It is usually better to maintain a list of hosts/domains for which the server acts as relay. Note also that this feature will stop spammers from using your host to relay spam but it will not stop outsiders from using your server as a relay for their site (that is, they set up an MX record pointing to your mail server, and you will relay mail addressed to them without any prior arrangement). Along the same lines, FEATURE(`relay_local_from') will allow relaying if the sender specifies a return path (i.e. MAIL FROM:) domain which is a local domain. This is a dangerous feature as it will allow spammers to spam using your mail server by simply specifying a return address of user@your.domain.com. It should not be used unless absolutely necessary. A slightly better solution is FEATURE(`relay_mail_from') which allows relaying if the mail sender is listed as RELAY in the access map. If an optional argument `domain' (this is the literal word `domain', not a placeholder) is given, the domain portion of the mail sender is also checked to allowing relaying. This option only works together with the tag From: for the LHS of the access map entries. This feature allows spammers to abuse your mail server by specifying a return address that you enabled in your access file. This may be harder to figure out for spammers, but it should not be used unless necessary. Instead use SMTP AUTH or STARTTLS to allow relaying for roaming users. If source routing is used in the recipient address (e.g., RCPT TO:), sendmail will check user@site.com for relaying if othersite.com is an allowed relay host in either class {R}, class {m} if FEATURE(`relay_entire_domain') is used, or the access database if FEATURE(`access_db') is used. To prevent the address from being stripped down, use: FEATURE(`loose_relay_check') If you think you need to use this feature, you probably do not. This should only be used for sites which have no control over the addresses that they provide a gateway for. Use this FEATURE with caution as it can allow spammers to relay through your server if not setup properly. NOTICE: It is possible to relay mail through a system which the anti-relay rules do not prevent: the case of a system that does use FEATURE(`nouucp', `nospecial') / FEATURE(`nopercenthack', `nospecial') (system A) and relays local messages to a mail hub (e.g., via LOCAL_RELAY or LUSER_RELAY) (system B). If system B doesn't use the same feature (nouucp / nopercenthack) at all, addresses of the form / would be relayed to . System A doesn't recognize `!' / `%' as an address separator and therefore forwards it to the mail hub which in turns relays it because it came from a trusted local host. So if a mailserver allows UUCP (bang-format) / %-hack addresses, all systems from which it allows relaying should do the same or reject those addresses. As of 8.9, sendmail will refuse mail if the MAIL FROM: parameter has an unresolvable domain (i.e., one that DNS, your local name service, or special case rules in ruleset 3 cannot locate). This also applies to addresses that use domain literals, e.g., , if the IP address can't be mapped to a host name. If you want to continue to accept such domains, e.g., because you are inside a firewall that has only a limited view of the Internet host name space (note that you will not be able to return mail to them unless you have some "smart host" forwarder), use FEATURE(`accept_unresolvable_domains') Alternatively, you can allow specific addresses by adding them to the access map, e.g., From:unresolvable.domain OK From:[1.2.3.4] OK From:[1.2.4] OK Notice: domains which are temporarily unresolvable are (temporarily) rejected with a 451 reply code. If those domains should be accepted (which is discouraged) then you can use LOCAL_CONFIG C{ResOk}TEMP sendmail will also refuse mail if the MAIL FROM: parameter is not fully qualified (i.e., contains a domain as well as a user). If you want to continue to accept such senders, use FEATURE(`accept_unqualified_senders') Setting the DaemonPortOptions modifier 'u' overrides the default behavior, i.e., unqualified addresses are accepted even without this FEATURE. If this FEATURE is not used, the DaemonPortOptions modifier 'f' can be used to enforce fully qualified domain names. An ``access'' database can be created to accept or reject mail from selected domains. For example, you may choose to reject all mail originating from known spammers. To enable such a database, use FEATURE(`access_db') Notice: the access database is applied to the envelope addresses and the connection information, not to the header. The FEATURE macro can accept as second parameter the key file definition for the database; for example FEATURE(`access_db', `hash -T /etc/mail/access_map') Notice: If a second argument is specified it must contain the option `-T' as shown above. The optional parameters may be `skip' enables SKIP as value part (see below). `lookupdotdomain' another way to enable the feature of the same name (see above). `relaytofulladdress' enable entries of the form To:user@example.com RELAY to allow relaying to just a specific e-mail address instead of an entire domain. Remember, since /etc/mail/access is a database, after creating the text file as described below, you must use makemap to create the database map. For example: makemap hash /etc/mail/access < /etc/mail/access The table itself uses e-mail addresses, domain names, and network numbers as keys. Note that IPv6 addresses must be prefaced with "IPv6:". For example, From:spammer@aol.com REJECT From:cyberspammer.com REJECT Connect:cyberspammer.com REJECT Connect:TLD REJECT Connect:192.168.212 REJECT Connect:IPv6:2002:c0a8:02c7 RELAY Connect:IPv6:2002:c0a8:51d2::23f4 REJECT would refuse mail from spammer@aol.com, any user from cyberspammer.com (or any host within the cyberspammer.com domain), any host in the entire top level domain TLD, 192.168.212.* network, and the IPv6 address 2002:c0a8:51d2::23f4. It would allow relay for the IPv6 network 2002:c0a8:02c7::/48. Entries in the access map should be tagged according to their type. These tags are applicable: Connect: connection information (${client_addr}, ${client_name}) From: envelope sender To: envelope recipient Notice: untagged entries are deprecated. If the required item is looked up in a map, it will be tried first with the corresponding tag in front, then (as fallback to enable backward compatibility) without any tag, unless the specific feature requires a tag. For example, From:spammer@some.dom REJECT To:friend.domain RELAY Connect:friend.domain OK Connect:from.domain RELAY From:good@another.dom OK From:another.dom REJECT This would deny mails from spammer@some.dom but you could still send mail to that address even if FEATURE(`blocklist_recipients') is enabled. Your system will allow relaying to friend.domain, but not from it (unless enabled by other means). Connections from that domain will be allowed even if it ends up in one of the DNS based rejection lists. Relaying is enabled from from.domain but not to it (since relaying is based on the connection information for outgoing relaying, the tag Connect: must be used; for incoming relaying, which is based on the recipient address, To: must be used). The last two entries allow mails from good@another.dom but reject mail from all other addresses with another.dom as domain part. The value part of the map can contain: OK Accept mail even if other rules in the running ruleset would reject it, for example, if the domain name is unresolvable. "Accept" does not mean "relay", but at most acceptance for local recipients. That is, OK allows less than RELAY. RELAY Accept mail addressed to the indicated domain (or address if `relaytofulladdress' is set) or received from the indicated domain for relaying through your SMTP server. RELAY also serves as an implicit OK for the other checks. REJECT Reject the sender or recipient with a general purpose message. DISCARD Discard the message completely using the $#discard mailer. If it is used in check_compat, it affects only the designated recipient, not the whole message as it does in all other cases. This should only be used if really necessary. SKIP This can only be used for host/domain names and IP addresses/nets. It will abort the current search for this entry without accepting or rejecting it but causing the default action. ### any text where ### is an RFC 821 compliant error code and "any text" is a message to return for the command. The entire string should be quoted to avoid surprises: "### any text" Otherwise sendmail formats the text as email addresses, e.g., it may remove spaces. This type is deprecated, use one of the two ERROR: entries below instead. ERROR:### any text as above, but useful to mark error messages as such. If quotes need to be used to avoid modifications (see above), they should be placed like this: ERROR:"### any text" ERROR:D.S.N:### any text where D.S.N is an RFC 1893 compliant error code and the rest as above. If quotes need to be used to avoid modifications, they should be placed like this: ERROR:D.S.N:"### any text" QUARANTINE:any text Quarantine the message using the given text as the quarantining reason. For example: From:cyberspammer.com ERROR:"550 We don't accept mail from spammers" From:okay.cyberspammer.com OK Connect:sendmail.org RELAY To:sendmail.org RELAY Connect:128.32 RELAY Connect:128.32.2 SKIP Connect:IPv6:1:2:3:4:5:6:7 RELAY Connect:suspicious.example.com QUARANTINE:Mail from suspicious host Connect:[127.0.0.3] OK Connect:[IPv6:1:2:3:4:5:6:7:8] OK would accept mail from okay.cyberspammer.com, but would reject mail from all other hosts at cyberspammer.com with the indicated message. It would allow relaying mail from and to any hosts in the sendmail.org domain, and allow relaying from the IPv6 1:2:3:4:5:6:7:* network and from the 128.32.*.* network except for the 128.32.2.* network, which shows how SKIP is useful to exempt subnets/subdomains. The last two entries are for checks against ${client_name} if the IP address doesn't resolve to a hostname (or is considered as "may be forged"). That is, using square brackets means these are host names, not network numbers. Warning: if you change the RFC 821 compliant error code from the default value of 550, then you should probably also change the RFC 1893 compliant error code to match it. For example, if you use To:user@example.com ERROR:450 mailbox full the error returned would be "450 5.0.0 mailbox full" which is wrong. Use "ERROR:4.2.2:450 mailbox full" instead. Note, UUCP users may need to add hostname.UUCP to the access database or class {R}. If you also use: FEATURE(`relay_hosts_only') then the above example will allow relaying for sendmail.org, but not hosts within the sendmail.org domain. Note that this will also require hosts listed in class {R} to be fully qualified host names. You can also use the access database to block sender addresses based on the username portion of the address. For example: From:FREE.STEALTH.MAILER@ ERROR:550 Spam not accepted Note that you must include the @ after the username to signify that this database entry is for checking only the username portion of the sender address. If you use: FEATURE(`blocklist_recipients') then you can add entries to the map for local users, hosts in your domains, or addresses in your domain which should not receive mail: To:badlocaluser@ ERROR:550 Mailbox disabled for badlocaluser To:host.my.TLD ERROR:550 That host does not accept mail To:user@other.my.TLD ERROR:550 Mailbox disabled for this recipient This would prevent a recipient of badlocaluser in any of the local domains (class {w}), any user at host.my.TLD, and the single address user@other.my.TLD from receiving mail. Please note: a local username must be now tagged with an @ (this is consistent with the check of the sender address, and hence it is possible to distinguish between hostnames and usernames). Enabling this feature will keep you from sending mails to all addresses that have an error message or REJECT as value part in the access map. Taking the example from above: spammer@aol.com REJECT cyberspammer.com REJECT Mail can't be sent to spammer@aol.com or anyone at cyberspammer.com. That's why tagged entries should be used. There are several DNS based blocklists which can be found by querying a search engine. These are databases of spammers maintained in DNS. To use such a database, specify FEATURE(`dnsbl', `dnsbl.example.com') This will cause sendmail to reject mail from any site listed in the DNS based blocklist. You must select a DNS based blocklist domain to check by specifying an argument to the FEATURE. The default error message is Rejected: IP-ADDRESS listed at SERVER where IP-ADDRESS and SERVER are replaced by the appropriate information. A second argument can be used to specify a different text or action. For example, FEATURE(`dnsbl', `dnsbl.example.com', `quarantine') would quarantine the message if the client IP address is listed at `dnsbl.example.com'. By default, temporary lookup failures are ignored and hence cause the connection not to be rejected by the DNS based rejection list. This behavior can be changed by specifying a third argument, which must be either `t' or a full error message. For example: FEATURE(`dnsbl', `dnsbl.example.com', `', `"451 Temporary lookup failure for " $&{client_addr} " in dnsbl.example.com"') If `t' is used, the error message is: 451 Temporary lookup failure of IP-ADDRESS at SERVER where IP-ADDRESS and SERVER are replaced by the appropriate information. This FEATURE can be included several times to query different DNS based rejection lists. Notice: to avoid checking your own local domains against those blocklists, use the access_db feature and add: Connect:10.1 OK Connect:127.0.0.1 RELAY to the access map, where 10.1 is your local network. You may want to use "RELAY" instead of "OK" to allow also relaying instead of just disabling the DNS lookups in the blocklists. The features described above make use of the check_relay, check_mail, and check_rcpt rulesets. Note that check_relay checks the SMTP client hostname and IP address when the connection is made to your server. It does not check if a mail message is being relayed to another server. That check is done in check_rcpt. If you wish to include your own checks, you can put your checks in the rulesets Local_check_relay, Local_check_mail, and Local_check_rcpt. For example if you wanted to block senders with all numeric usernames (i.e. 2312343@bigisp.com), you would use Local_check_mail and the regex map: LOCAL_CONFIG Kallnumbers regex -a@MATCH ^[0-9]+$ LOCAL_RULESETS SLocal_check_mail # check address against various regex checks R$* $: $>Parse0 $>3 $1 R$+ < @ bigisp.com. > $* $: $(allnumbers $1 $) R@MATCH $#error $: 553 Address Error These rules are called with the original arguments of the corresponding check_* ruleset. If the local ruleset returns $#OK, no further checking is done by the features described above and the mail is accepted. If the local ruleset resolves to a mailer (such as $#error or $#discard), the appropriate action is taken. Other results starting with $# are interpreted by sendmail and may lead to unspecified behavior. Note: do NOT create a mailer with the name OK. Return values that do not start with $# are ignored, i.e., normal processing continues. Delay all checks ---------------- By using FEATURE(`delay_checks') the rulesets check_mail and check_relay will not be called when a client connects or issues a MAIL command, respectively. Instead, those rulesets will be called by the check_rcpt ruleset; they will be skipped if a sender has been authenticated using a "trusted" mechanism, i.e., one that is defined via TRUST_AUTH_MECH(). If check_mail returns an error then the RCPT TO command will be rejected with that error. If it returns some other result starting with $# then check_relay will be skipped. If the sender address (or a part of it) is listed in the access map and it has a RHS of OK or RELAY, then check_relay will be skipped. This has an interesting side effect: if your domain is my.domain and you have my.domain RELAY in the access map, then any e-mail with a sender address of will not be rejected by check_relay even though it would match the hostname or IP address. This allows spammers to get around DNS based blocklist by faking the sender address. To avoid this problem you have to use tagged entries: To:my.domain RELAY Connect:my.domain RELAY if you need those entries at all (class {R} may take care of them). FEATURE(`delay_checks') can take an optional argument: FEATURE(`delay_checks', `friend') enables spamfriend test FEATURE(`delay_checks', `hater') enables spamhater test If such an argument is given, the recipient will be looked up in the access map (using the tag Spam:). If the argument is `friend', then the default behavior is to apply the other rulesets and make a SPAM friend the exception. The rulesets check_mail and check_relay will be skipped only if the recipient address is found and has RHS FRIEND. If the argument is `hater', then the default behavior is to skip the rulesets check_mail and check_relay and make a SPAM hater the exception. The other two rulesets will be applied only if the recipient address is found and has RHS HATER. This allows for simple exceptions from the tests, e.g., by activating the friend option and having Spam:abuse@ FRIEND in the access map, mail to abuse@localdomain will get through (where "localdomain" is any domain in class {w}). It is also possible to specify a full address or an address with +detail: Spam:abuse@my.domain FRIEND Spam:me+abuse@ FRIEND Spam:spam.domain FRIEND Note: The required tag has been changed in 8.12 from To: to Spam:. This change is incompatible to previous versions. However, you can (for now) simply add the new entries to the access map, the old ones will be ignored. As soon as you removed the old entries from the access map, specify a third parameter (`n') to this feature and the backward compatibility rules will not be in the generated .cf file. Header Checks ------------- You can also reject mail on the basis of the contents of headers. This is done by adding a ruleset call to the 'H' header definition command in sendmail.cf. For example, this can be used to check the validity of a Message-ID: header: LOCAL_CONFIG HMessage-Id: $>CheckMessageId LOCAL_RULESETS SCheckMessageId R< $+ @ $+ > $@ OK R$* $#error $: 553 Header Error The alternative format: HSubject: $>+CheckSubject that is, $>+ instead of $>, gives the full Subject: header including comments to the ruleset (comments in parentheses () are stripped by default). A default ruleset for headers which don't have a specific ruleset defined for them can be given by: H*: $>CheckHdr Notice: 1. All rules act on tokens as explained in doc/op/op.{me,ps,txt}. That may cause problems with simple header checks due to the tokenization. It might be simpler to use a regex map and apply it to $&{currHeader}. 2. There are no default rulesets coming with this distribution of sendmail. You can write your own, can search the WWW for examples, or take a look at cf/cf/knecht.mc. 3. When using a default ruleset for headers, the name of the header currently being checked can be found in the $&{hdr_name} macro. After all of the headers are read, the check_eoh ruleset will be called for any final header-related checks. The ruleset is called with the number of headers and the size of all of the headers in bytes separated by $|. One example usage is to reject messages which do not have a Message-Id: header. However, the Message-Id: header is *NOT* a required header and is not a guaranteed spam indicator. This ruleset is an example and should probably not be used in production. LOCAL_CONFIG Kstorage macro HMessage-Id: $>CheckMessageId LOCAL_RULESETS SCheckMessageId # Record the presence of the header R$* $: $(storage {MessageIdCheck} $@ OK $) $1 R< $+ @ $+ > $@ OK R$* $#error $: 553 Header Error Scheck_eoh # Check the macro R$* $: < $&{MessageIdCheck} > # Clear the macro for the next message R$* $: $(storage {MessageIdCheck} $) $1 # Has a Message-Id: header R< $+ > $@ OK # Allow missing Message-Id: from local mail R$* $: < $&{client_name} > R< > $@ OK R< $=w > $@ OK # Otherwise, reject the mail R$* $#error $: 553 Header Error +--------------------+ | CONNECTION CONTROL | +--------------------+ The features ratecontrol and conncontrol allow to establish connection limits per client IP address or net. These features can limit the rate of connections (connections per time unit) or the number of incoming SMTP connections, respectively. If enabled, appropriate rulesets are called at the end of check_relay, i.e., after DNS blocklists and generic access_db operations. The features require FEATURE(`access_db') to be listed earlier in the mc file. Note: FEATURE(`delay_checks') delays those connection control checks after a recipient address has been received, hence making these connection control features less useful. To run the checks as early as possible, specify the parameter `nodelay', e.g., FEATURE(`ratecontrol', `nodelay') In that case, FEATURE(`delay_checks') has no effect on connection control (and it must be specified earlier in the mc file). An optional second argument `terminate' specifies whether the rulesets should return the error code 421 which will cause sendmail to terminate the session with that error if it is returned from check_relay, i.e., not delayed as explained in the previous paragraph. Example: FEATURE(`ratecontrol', `nodelay', `terminate') +----------+ | STARTTLS | +----------+ In this text, cert will be used as an abbreviation for X.509 certificate, DN (CN) is the distinguished (common) name of a cert, and CA is a certification authority, which signs (issues) certs. For STARTTLS to be offered by sendmail you need to set at least these variables (the file names and paths are just examples): define(`confCACERT_PATH', `/etc/mail/certs/') define(`confCACERT', `/etc/mail/certs/CA.cert.pem') define(`confSERVER_CERT', `/etc/mail/certs/my.cert.pem') define(`confSERVER_KEY', `/etc/mail/certs/my.key.pem') On systems which do not have the compile flag HASURANDOM set (see sendmail/README) you also must set confRAND_FILE. See doc/op/op.{me,ps,txt} for more information about these options, especially the sections ``Certificates for STARTTLS'' and ``PRNG for STARTTLS''. Macros related to STARTTLS are: ${cert_issuer} holds the DN of the CA (the cert issuer). ${cert_subject} holds the DN of the cert (called the cert subject). ${cn_issuer} holds the CN of the CA (the cert issuer). ${cn_subject} holds the CN of the cert (called the cert subject). ${tls_version} the TLS/SSL version used for the connection, e.g., TLSv1, TLSv1/SSLv3, SSLv3, SSLv2. ${cipher} the cipher used for the connection, e.g., EDH-DSS-DES-CBC3-SHA, EDH-RSA-DES-CBC-SHA, DES-CBC-MD5, DES-CBC3-SHA. ${cipher_bits} the keylength (in bits) of the symmetric encryption algorithm used for the connection. ${verify} holds the result of the verification of the presented cert. Possible values are: OK verification succeeded. NO no cert presented. NOT no cert requested. FAIL cert presented but could not be verified, e.g., the cert of the signing CA is missing. NONE STARTTLS has not been performed. TEMP temporary error occurred. PROTOCOL protocol error occurred (SMTP level). SOFTWARE STARTTLS handshake failed. ${server_name} the name of the server of the current outgoing SMTP connection. ${server_addr} the address of the server of the current outgoing SMTP connection. Relaying -------- SMTP STARTTLS can allow relaying for remote SMTP clients which have successfully authenticated themselves. If the verification of the cert failed (${verify} != OK), relaying is subject to the usual rules. Otherwise the DN of the issuer is looked up in the access map using the tag CERTISSUER. If the resulting value is RELAY, relaying is allowed. If it is SUBJECT, the DN of the cert subject is looked up next in the access map using the tag CERTSUBJECT. If the value is RELAY, relaying is allowed. To make things a bit more flexible (or complicated), the values for ${cert_issuer} and ${cert_subject} can be optionally modified by regular expressions defined in the m4 variables _CERT_REGEX_ISSUER_ and _CERT_REGEX_SUBJECT_, respectively. To avoid problems with those macros in rulesets and map lookups, they are modified as follows: each non-printable character and the characters '<', '>', '(', ')', '"', '+', ' ' are replaced by their HEX value with a leading '+'. For example: /C=US/ST=California/O=endmail.org/OU=private/CN=Darth Mail (Cert)/emailAddress= darth+cert@endmail.org is encoded as: /C=US/ST=California/O=endmail.org/OU=private/CN= Darth+20Mail+20+28Cert+29/emailAddress=darth+2Bcert@endmail.org (line breaks have been inserted for readability). The macros which are subject to this encoding are ${cert_subject}, ${cert_issuer}, ${cn_subject}, and ${cn_issuer}. Examples: To allow relaying for everyone who can present a cert signed by /C=US/ST=California/O=endmail.org/OU=private/CN= Darth+20Mail+20+28Cert+29/emailAddress=darth+2Bcert@endmail.org simply use: CertIssuer:/C=US/ST=California/O=endmail.org/OU=private/CN= Darth+20Mail+20+28Cert+29/emailAddress=darth+2Bcert@endmail.org RELAY To allow relaying only for a subset of machines that have a cert signed by /C=US/ST=California/O=endmail.org/OU=private/CN= Darth+20Mail+20+28Cert+29/emailAddress=darth+2Bcert@endmail.org use: CertIssuer:/C=US/ST=California/O=endmail.org/OU=private/CN= Darth+20Mail+20+28Cert+29/emailAddress=darth+2Bcert@endmail.org SUBJECT CertSubject:/C=US/ST=California/O=endmail.org/OU=private/CN= DeathStar/emailAddress=deathstar@endmail.org RELAY Note: line breaks have been inserted after "CN=" for readability, each tagged entry must be one (long) line in the access map. Of course it is also possible to write a simple ruleset that allows relaying for everyone who can present a cert that can be verified, e.g., LOCAL_RULESETS SLocal_check_rcpt R$* $: $&{verify} ROK $# OK Allowing Connections -------------------- The rulesets tls_server, tls_client, and tls_rcpt are used to decide whether an SMTP connection is accepted (or should continue). tls_server is called when sendmail acts as client after a STARTTLS command (should) have been issued. The parameter is the value of ${verify}. tls_client is called when sendmail acts as server, after a STARTTLS command has been issued, and from check_mail. The parameter is the value of ${verify} and STARTTLS or MAIL, respectively. Both rulesets behave the same. If no access map is in use, the connection will be accepted unless ${verify} is SOFTWARE, in which case the connection is always aborted. For tls_server/tls_client, ${client_name}/${server_name} is looked up in the access map using the tag TLS_Srv/TLS_Clt, which is done with the ruleset LookUpDomain. If no entry is found, ${client_addr} (${server_addr}) is looked up in the access map (same tag, ruleset LookUpAddr). If this doesn't result in an entry either, just the tag is looked up in the access map (included the trailing colon). Notice: requiring that e-mail is sent to a server only encrypted, e.g., via TLS_Srv:secure.domain ENCR:112 doesn't necessarily mean that e-mail sent to that domain is encrypted. If the domain has multiple MX servers, e.g., secure.domain. IN MX 10 mail.secure.domain. secure.domain. IN MX 50 mail.other.domain. then mail to user@secure.domain may go unencrypted to mail.other.domain. tls_rcpt can be used to address this problem. tls_rcpt is called before a RCPT TO: command is sent. The parameter is the current recipient. This ruleset is only defined if FEATURE(`access_db') is selected. A recipient address user@domain is looked up in the access map in four formats: TLS_Rcpt:user@domain, TLS_Rcpt:user@, TLS_Rcpt:domain, and TLS_Rcpt:; the first match is taken. The result of the lookups is then used to call the ruleset TLS_connection, which checks the requirement specified by the RHS in the access map against the actual parameters of the current TLS connection, esp. ${verify} and ${cipher_bits}. Legal RHSs in the access map are: VERIFY verification must have succeeded VERIFY:bits verification must have succeeded and ${cipher_bits} must be greater than or equal bits. ENCR:bits ${cipher_bits} must be greater than or equal bits. The RHS can optionally be prefixed by TEMP+ or PERM+ to select a temporary or permanent error. The default is a temporary error code unless the macro TLS_PERM_ERR is set during generation of the .cf file. If a certain level of encryption is required, then it might also be possible that this level is provided by the security layer from a SASL algorithm, e.g., DIGEST-MD5. Furthermore, there can be a list of extensions added. Such a list starts with '+' and the items are separated by '++'. Allowed extensions are: CN:name name must match ${cn_subject} CN ${client_name}/${server_name} must match ${cn_subject} CS:name name must match ${cert_subject} CI:name name must match ${cert_issuer} CITag:MYTag look up MYTag:${cert_issuer} in access map; the check only succeeds if it is found with a RHS of OK. Example: e-mail sent to secure.example.com should only use an encrypted connection. E-mail received from hosts within the laptop.example.com domain should only be accepted if they have been authenticated. The host which receives e-mail for darth@endmail.org must present a cert that uses the CN smtp.endmail.org. E-mail sent to safe.example.com must be verified, have a matching CN, and must present a cert signed by a CA with one of the listed DNs. TLS_Srv:secure.example.com ENCR:112 TLS_Clt:laptop.example.com PERM+VERIFY:112 TLS_Rcpt:darth@endmail.org ENCR:112+CN:smtp.endmail.org TLS_Srv:safe.example.net VERIFY+CN++CITag:MyCA MyCA:/C=US/ST=CA/O=safe/CN=example.net/ OK MyCA:/C=US/ST=CA/O=secure/CN=example.net/ OK TLS Options per Session ----------------------- By default STARTTLS is used whenever possible. However, there are MTAs with STARTTLS interoperability issues. To be able to send to (or receive from) those MTAs several features are available: 1) Various TLS options be be set per IP/domain. 2) STARTTLS can be turned off for specific IP addresses/domains. About 1): the rulesets tls_srv_features and tls_clt_features can be used to return a (semicolon separated) list of TLS related options: - Options: compare {Server,Client}SSLOptions. - CipherList: same as the global option. - CertFile, KeyFile: {Server,Client}{Cert,Key}File - Flags: see doc/op/op.me for details. If FEATURE(`tls_session_features') and FEATURE(`access_db') are used, then default rulesets are activated which look up entries in the access map with the tags TLS_Srv_features and TLS_Clt_features, respectively. For example, these entries: TLS_Srv_features:10.0.2.4 CipherList=MEDIUM+aRSA; TLS_Clt_features:10.1.0.1 Options=SSL_OP_NO_TLSv1_2; CipherList=ALL:-EXPORT specify a cipherlist with MEDIUM strength ciphers that use RSA certificates only for the client with the IP address 10.0.2.4, and turn off TLSv1.2 when connecting to the server with the IP address 10.1.0.1 as well as setting a specific cipherlist. If FEATURE(`tls_session_features') is not used the user can provide their own rulesets which must return the appropriate data. If the rulesets are not defined or do not return a value, the default TLS options are not modified. About 2): the rulesets try_tls, srv_features, and clt_features can be used together with the access map. Entries for the access map must be tagged with Try_TLS, Srv_Features, Clt_Features and refer to the hostname or IP address of the connecting system (the latter is not available for clt_features). A default case can be specified by using just the tag. For example, the following entries in the access map: Try_TLS:broken.server NO Srv_Features:my.domain v Srv_Features: V Clt_Features:broken.sts M will turn off STARTTLS when sending to broken.server (or any host in that domain), request a client certificate during the TLS handshake only for hosts in my.domain, and disable MTA-STS for broken.sts. The valid entries on the RHS for Srv_Features and Clt_Features are listed in the Sendmail Installation and Operations Guide. Received: Header ---------------- The Received: header reveals whether STARTTLS has been used. It contains an extra line: (version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify}) +---------------------+ | SMTP AUTHENTICATION | +---------------------+ The macros ${auth_authen}, ${auth_author}, and ${auth_type} can be used in anti-relay rulesets to allow relaying for those users that authenticated themselves. A very simple example is: SLocal_check_rcpt R$* $: $&{auth_type} R$+ $# OK which checks whether a user has successfully authenticated using any available mechanism. Depending on the setup of the Cyrus SASL library, more sophisticated rulesets might be required, e.g., SLocal_check_rcpt R$* $: $&{auth_type} $| $&{auth_authen} RDIGEST-MD5 $| $+@$=w $# OK to allow relaying for users that authenticated using DIGEST-MD5 and have an identity in the local domains. The ruleset trust_auth is used to determine whether a given AUTH= parameter (that is passed to this ruleset) should be trusted. This ruleset may make use of the other ${auth_*} macros. Only if the ruleset resolves to the error mailer, the AUTH= parameter is not trusted. A user supplied ruleset Local_trust_auth can be written to modify the default behavior, which only trust the AUTH= parameter if it is identical to the authenticated user. Per default, relaying is allowed for any user who authenticated via a "trusted" mechanism, i.e., one that is defined via TRUST_AUTH_MECH(`list of mechanisms') For example: TRUST_AUTH_MECH(`KERBEROS_V4 DIGEST-MD5') If the selected mechanism provides a security layer the number of bits used for the key of the symmetric cipher is stored in the macro ${auth_ssf}. Providing SMTP AUTH Data when sendmail acts as Client ----------------------------------------------------- If sendmail acts as client, it needs some information how to authenticate against another MTA. This information can be provided by the ruleset authinfo or by the option DefaultAuthInfo. The authinfo ruleset looks up {server_name} using the tag AuthInfo: in the access map. If no entry is found, {server_addr} is looked up in the same way and finally just the tag AuthInfo: to provide default values. Note: searches for domain parts or IP nets are only performed if the access map is used; if the authinfo feature is used then only up to three lookups are performed (two exact matches, one default). Note: If your daemon does client authentication when sending, and if it uses either PLAIN or LOGIN authentication, then you *must* prevent ordinary users from seeing verbose output. Do NOT install sendmail set-user-ID. Use PrivacyOptions to turn off verbose output ("goaway" works for this). Notice: the default configuration file causes the option DefaultAuthInfo to fail since the ruleset authinfo is in the .cf file. If you really want to use DefaultAuthInfo (it is deprecated) then you have to remove the ruleset. The RHS for an AuthInfo: entry in the access map should consists of a list of tokens, each of which has the form: "TDstring" (including the quotes). T is a tag which describes the item, D is a delimiter, either ':' for simple text or '=' for a base64 encoded string. Valid values for the tag are: U user (authorization) id I authentication id P password R realm M list of mechanisms delimited by spaces Example entries are: AuthInfo:other.dom "U:user" "I:user" "P:secret" "R:other.dom" "M:DIGEST-MD5" AuthInfo:host.more.dom "U:user" "P=c2VjcmV0" User id or authentication id must exist as well as the password. All other entries have default values. If one of user or authentication id is missing, the existing value is used for the missing item. If "R:" is not specified, realm defaults to $j. The list of mechanisms defaults to those specified by AuthMechanisms. Since this map contains sensitive information, either the access map must be unreadable by everyone but root (or the trusted user) or FEATURE(`authinfo') must be used which provides a separate map. Notice: It is not checked whether the map is actually group/world-unreadable, this is left to the user. +--------------------------------+ | ADDING NEW MAILERS OR RULESETS | +--------------------------------+ Sometimes you may need to add entirely new mailers or rulesets. They should be introduced with the constructs MAILER_DEFINITIONS and LOCAL_RULESETS respectively. For example: MAILER_DEFINITIONS Mmymailer, ... ... LOCAL_RULESETS Smyruleset ... Local additions for the rulesets srv_features, clt_features, try_tls, tls_rcpt, tls_client, and tls_server can be made using LOCAL_SRV_FEATURES, LOCAL_CLT_FEATURES, LOCAL_TRY_TLS, LOCAL_TLS_RCPT, LOCAL_TLS_CLIENT, and LOCAL_TLS_SERVER, respectively. For example, to add a local ruleset that decides whether to try STARTTLS in a sendmail client, use: LOCAL_TRY_TLS R... Note: you don't need to add a name for the ruleset, it is implicitly defined by using the appropriate macro. +-------------------------+ | ADDING NEW MAIL FILTERS | +-------------------------+ Sendmail supports mail filters to filter incoming SMTP messages according to the "Sendmail Mail Filter API" documentation. These filters can be configured in your mc file using the two commands: MAIL_FILTER(`name', `equates') INPUT_MAIL_FILTER(`name', `equates') The first command, MAIL_FILTER(), simply defines a filter with the given name and equates. For example: MAIL_FILTER(`archive', `S=local:/var/run/archivesock, F=R') This creates the equivalent sendmail.cf entry: Xarchive, S=local:/var/run/archivesock, F=R The INPUT_MAIL_FILTER() command performs the same actions as MAIL_FILTER but also populates the m4 variable `confINPUT_MAIL_FILTERS' with the name of the filter such that the filter will actually be called by sendmail. For example, the two commands: INPUT_MAIL_FILTER(`archive', `S=local:/var/run/archivesock, F=R') INPUT_MAIL_FILTER(`spamcheck', `S=inet:2525@localhost, F=T') are equivalent to the three commands: MAIL_FILTER(`archive', `S=local:/var/run/archivesock, F=R') MAIL_FILTER(`spamcheck', `S=inet:2525@localhost, F=T') define(`confINPUT_MAIL_FILTERS', `archive, spamcheck') In general, INPUT_MAIL_FILTER() should be used unless you need to define more filters than you want to use for `confINPUT_MAIL_FILTERS'. Note that setting `confINPUT_MAIL_FILTERS' after any INPUT_MAIL_FILTER() commands will clear the list created by the prior INPUT_MAIL_FILTER() commands. +-------------------------+ | QUEUE GROUP DEFINITIONS | +-------------------------+ In addition to the queue directory (which is the default queue group called "mqueue"), sendmail can deal with multiple queue groups, which are collections of queue directories with the same behaviour. Queue groups can be defined using the command: QUEUE_GROUP(`name', `equates') For details about queue groups, please see doc/op/op.{me,ps,txt}. +-------------------------------+ | NON-SMTP BASED CONFIGURATIONS | +-------------------------------+ These configuration files are designed primarily for use by SMTP-based sites. They may not be well tuned for UUCP-only or UUCP-primarily nodes (the latter is defined as a small local net connected to the rest of the world via UUCP). However, there is one hook to handle some special cases. You can define a ``smart host'' that understands a richer address syntax using: define(`SMART_HOST', `mailer:hostname') In this case, the ``mailer:'' defaults to "relay". Any messages that can't be handled using the usual UUCP rules are passed to this host. If you are on a local SMTP-based net that connects to the outside world via UUCP, you can use LOCAL_NET_CONFIG to add appropriate rules. For example: define(`SMART_HOST', `uucp-new:uunet') LOCAL_NET_CONFIG R$* < @ $* .$m. > $* $#smtp $@ $2.$m. $: $1 < @ $2.$m. > $3 This will cause all names that end in your domain name ($m) to be sent via SMTP; anything else will be sent via uucp-new (smart UUCP) to uunet. If you have FEATURE(`nocanonify'), you may need to omit the dots after the $m. If you are running a local DNS inside your domain which is not otherwise connected to the outside world, you probably want to use: define(`SMART_HOST', `smtp:fire.wall.com') LOCAL_NET_CONFIG R$* < @ $* . > $* $#smtp $@ $2. $: $1 < @ $2. > $3 That is, send directly only to things you found in your DNS lookup; anything else goes through SMART_HOST. You may need to turn off the anti-spam rules in order to accept UUCP mail with FEATURE(`promiscuous_relay') and FEATURE(`accept_unresolvable_domains'). +-----------+ | WHO AM I? | +-----------+ Normally, the $j macro is automatically defined to be your fully qualified domain name (FQDN). Sendmail does this by getting your host name using gethostname and then calling gethostbyname on the result. For example, in some environments gethostname returns only the root of the host name (such as "foo"); gethostbyname is supposed to return the FQDN ("foo.bar.com"). In some (fairly rare) cases, gethostbyname may fail to return the FQDN. In this case you MUST define confDOMAIN_NAME to be your fully qualified domain name. This is usually done using: Dmbar.com define(`confDOMAIN_NAME', `$w.$m')dnl +-----------------------------------+ | ACCEPTING MAIL FOR MULTIPLE NAMES | +-----------------------------------+ If your host is known by several different names, you need to augment class {w}. This is a list of names by which your host is known, and anything sent to an address using a host name in this list will be treated as local mail. You can do this in two ways: either create the file /etc/mail/local-host-names containing a list of your aliases (one per line), and use ``FEATURE(`use_cw_file')'' in the .mc file, or add ``LOCAL_DOMAIN(`alias.host.name')''. Be sure you use the fully-qualified name of the host, rather than a short name. If you want to have different address in different domains, take a look at the virtusertable feature, which is also explained at http://www.sendmail.org/virtual-hosting.html +--------------------+ | USING MAILERTABLES | +--------------------+ To use FEATURE(`mailertable'), you will have to create an external database containing the routing information for various domains. For example, a mailertable file in text format might be: .my.domain xnet:%1.my.domain uuhost1.my.domain uucp-new:uuhost1 .bitnet smtp:relay.bit.net This should normally be stored in /etc/mail/mailertable. The actual database version of the mailertable is built using: makemap hash /etc/mail/mailertable < /etc/mail/mailertable The semantics are simple. Any LHS entry that does not begin with a dot matches the full host name indicated. LHS entries beginning with a dot match anything ending with that domain name (including the leading dot) -- that is, they can be thought of as having a leading ".+" regular expression pattern for a non-empty sequence of characters. Matching is done in order of most-to-least qualified -- for example, even though ".my.domain" is listed first in the above example, an entry of "uuhost1.my.domain" will match the second entry since it is more explicit. Note: e-mail to "user@my.domain" does not match any entry in the above table. You need to have something like: my.domain esmtp:host.my.domain The RHS should always be a "mailer:host" pair. The mailer is the configuration name of a mailer (that is, an M line in the sendmail.cf file). The "host" will be the hostname passed to that mailer. In domain-based matches (that is, those with leading dots) the "%1" may be used to interpolate the wildcarded part of the host name. For example, the first line above sends everything addressed to "anything.my.domain" to that same host name, but using the (presumably experimental) xnet mailer. In some cases you may want to temporarily turn off MX records, particularly on gateways. For example, you may want to MX everything in a domain to one machine that then forwards it directly. To do this, you might use the DNS configuration: *.domain. IN MX 0 relay.machine and on relay.machine use the mailertable: .domain smtp:[gateway.domain] The [square brackets] turn off MX records for this host only. If you didn't do this, the mailertable would use the MX record again, which would give you an MX loop. Note that the use of wildcard MX records is almost always a bad idea. Please avoid using them if possible. +--------------------------------+ | USING USERDB TO MAP FULL NAMES | +--------------------------------+ The user database was not originally intended for mapping full names to login names (e.g., Eric.Allman => eric), but some people are using it that way. (it is recommended that you set up aliases for this purpose instead -- since you can specify multiple alias files, this is fairly easy.) The intent was to locate the default maildrop at a site, but allow you to override this by sending to a specific host. If you decide to set up the user database in this fashion, it is imperative that you not use FEATURE(`stickyhost') -- otherwise, e-mail sent to Full.Name@local.host.name will be rejected. To build the internal form of the user database, use: makemap btree /etc/mail/userdb < /etc/mail/userdb.txt As a general rule, it is an extremely bad idea to using full names as e-mail addresses, since they are not in any sense unique. For example, the UNIX software-development community has at least two well-known Peter Deutsches, and at one time Bell Labs had two Stephen R. Bournes with offices along the same hallway. Which one will be forced to suffer the indignity of being Stephen_R_Bourne_2? The less famous of the two, or the one that was hired later? Finger should handle full names (and be fuzzy). Mail should use handles, and not be fuzzy. +--------------------------------+ | MISCELLANEOUS SPECIAL FEATURES | +--------------------------------+ Plussed users Sometimes it is convenient to merge configuration on a centralized mail machine, for example, to forward all root mail to a mail server. In this case it might be useful to be able to treat the root addresses as a class of addresses with subtle differences. You can do this using plussed users. For example, a client might include the alias: root: root+client1@server On the server, this will match an alias for "root+client1". If that is not found, the alias "root+*" will be tried, then "root". +----------------+ | SECURITY NOTES | +----------------+ A lot of sendmail security comes down to you. Sendmail 8 is much more careful about checking for security problems than previous versions, but there are some things that you still need to watch for. In particular: * Make sure the aliases file is not writable except by trusted system personnel. This includes both the text and database version. * Make sure that other files that sendmail reads, such as the mailertable, are only writable by trusted system personnel. * The queue directory should not be world writable PARTICULARLY if your system allows "file giveaways" (that is, if a non-root user can chown any file they own to any other user). * If your system allows file giveaways, DO NOT create a publicly writable directory for forward files. This will allow anyone to steal anyone else's e-mail. Instead, create a script that copies the .forward file from users' home directories once a night (if you want the non-NFS-mounted forward directory). * If your system allows file giveaways, you'll find that sendmail is much less trusting of :include: files -- in particular, you'll have to have /SENDMAIL/ANY/SHELL/ in /etc/shells before they will be trusted (that is, before files and programs listed in them will be honored). In general, file giveaways are a mistake -- if you can turn them off, do so. +--------------------------------+ | TWEAKING CONFIGURATION OPTIONS | +--------------------------------+ There are a large number of configuration options that don't normally need to be changed. However, if you feel you need to tweak them, you can define the following M4 variables. Note that some of these variables require formats that are defined in RFC 2821 or RFC 2822. Before changing them you need to make sure you do not violate those (and other relevant) RFCs. This list is shown in four columns: the name you define, the default value for that definition, the option or macro that is affected (either Ox for an option or Dx for a macro), and a brief description. Greater detail of the semantics can be found in the Installation and Operations Guide. Some options are likely to be deprecated in future versions -- that is, the option is only included to provide back-compatibility. These are marked with "*". Remember that these options are M4 variables, and hence may need to be quoted. In particular, arguments with commas will usually have to be ``double quoted, like this phrase'' to avoid having the comma confuse things. This is common for alias file definitions and for the read timeout. M4 Variable Name Configuration [Default] & Description ================ ============= ======================= confMAILER_NAME $n macro [MAILER-DAEMON] The sender name used for internally generated outgoing messages. confDOMAIN_NAME $j macro If defined, sets $j. This should only be done if your system cannot determine your local domain name, and then it should be set to $w.Foo.COM, where Foo.COM is your domain name. confCF_VERSION $Z macro If defined, this is appended to the configuration version name. confLDAP_CLUSTER ${sendmailMTACluster} macro If defined, this is the LDAP cluster to use for LDAP searches as described above in ``USING LDAP FOR ALIASES, MAPS, AND CLASSES''. confFROM_HEADER From: [$?x$x <$g>$|$g$.] The format of an internally generated From: address. confRECEIVED_HEADER Received: [$?sfrom $s $.$?_($?s$|from $.$_) $.$?{auth_type}(authenticated) $.by $j ($v/$Z)$?r with $r$. id $i$?u for $u; $|; $.$b] The format of the Received: header in messages passed through this host. It is unwise to try to change this. confMESSAGEID_HEADER Message-Id: [<$t.$i@$j>] The format of an internally generated Message-Id: header. confCW_FILE Fw class [/etc/mail/local-host-names] Name of file used to get the local additions to class {w} (local host names). confCT_FILE Ft class [/etc/mail/trusted-users] Name of file used to get the local additions to class {t} (trusted users). confCR_FILE FR class [/etc/mail/relay-domains] Name of file used to get the local additions to class {R} (hosts allowed to relay). confTRUSTED_USERS Ct class [no default] Names of users to add to the list of trusted users. This list always includes root, uucp, and daemon. See also FEATURE(`use_ct_file'). confTRUSTED_USER TrustedUser [no default] Trusted user for file ownership and starting the daemon. Not to be confused with confTRUSTED_USERS (see above). confSMTP_MAILER - [esmtp] The mailer name used when SMTP connectivity is required. One of "smtp", "smtp8", "esmtp", or "dsmtp". confUUCP_MAILER - [uucp-old] The mailer to be used by default for bang-format recipient addresses. See also discussion of class {U}, class {Y}, and class {Z} in the MAILER(`uucp') section. confLOCAL_MAILER - [local] The mailer name used when local connectivity is required. Almost always "local". confRELAY_MAILER - [relay] The default mailer name used for relaying any mail (e.g., to a BITNET_RELAY, a SMART_HOST, or whatever). This can reasonably be "uucp-new" if you are on a UUCP-connected site. confSEVEN_BIT_INPUT SevenBitInput [False] Force input to seven bits? confEIGHT_BIT_HANDLING EightBitMode [pass8] 8-bit data handling confALIAS_WAIT AliasWait [10m] Time to wait for alias file rebuild until you get bored and decide that the apparently pending rebuild failed. confMIN_FREE_BLOCKS MinFreeBlocks [100] Minimum number of free blocks on queue filesystem to accept SMTP mail. (Prior to 8.7 this was minfree/maxsize, where minfree was the number of free blocks and maxsize was the maximum message size. Use confMAX_MESSAGE_SIZE for the second value now.) confMAX_MESSAGE_SIZE MaxMessageSize [infinite] The maximum size of messages that will be accepted (in bytes). confBLANK_SUB BlankSub [.] Blank (space) substitution character. confCON_EXPENSIVE HoldExpensive [False] Avoid connecting immediately to mailers marked expensive. confCHECKPOINT_INTERVAL CheckpointInterval [10] Checkpoint queue files every N recipients. confDELIVERY_MODE DeliveryMode [background] Default delivery mode. confERROR_MODE ErrorMode [print] Error message mode. confERROR_MESSAGE ErrorHeader [undefined] Error message header/file. confSAVE_FROM_LINES SaveFromLine Save extra leading From_ lines. confTEMP_FILE_MODE TempFileMode [0600] Temporary file mode. confMATCH_GECOS MatchGECOS [False] Match GECOS field. confMAX_HOP MaxHopCount [25] Maximum hop count. confIGNORE_DOTS* IgnoreDots [False; always False in -bs or -bd mode] Ignore dot as terminator for incoming messages? confBIND_OPTS ResolverOptions [undefined] Default options for DNS resolver. confMIME_FORMAT_ERRORS* SendMimeErrors [True] Send error messages as MIME- encapsulated messages per RFC 1344. confFORWARD_PATH ForwardPath [$z/.forward.$w:$z/.forward] The colon-separated list of places to search for .forward files. N.B.: see the Security Notes section. confMCI_CACHE_SIZE ConnectionCacheSize [2] Size of open connection cache. confMCI_CACHE_TIMEOUT ConnectionCacheTimeout [5m] Open connection cache timeout. confHOST_STATUS_DIRECTORY HostStatusDirectory [undefined] If set, host status is kept on disk between sendmail runs in the named directory tree. This need not be a full pathname, in which case it is interpreted relative to the queue directory. confSINGLE_THREAD_DELIVERY SingleThreadDelivery [False] If this option and the HostStatusDirectory option are both set, single thread deliveries to other hosts. That is, don't allow any two sendmails on this host to connect simultaneously to any other single host. This can slow down delivery in some cases, in particular since a cached but otherwise idle connection to a host will prevent other sendmails from connecting to the other host. confUSE_COMPRESSED_IPV6_ADDRESSES UseCompressedIPv6Addresses [undefined] If set, use the compressed form of IPv6 addresses, such as IPV6:::1, instead of the uncompressed form, such as IPv6:0:0:0:0:0:0:0:1. confUSE_ERRORS_TO* UseErrorsTo [False] Use the Errors-To: header to deliver error messages. This should not be necessary because of general acceptance of the envelope/header distinction. confLOG_LEVEL LogLevel [9] Log level. confME_TOO MeToo [True] Include sender in group expansions. This option is deprecated and will be removed from a future version. confCHECK_ALIASES CheckAliases [False] Check RHS of aliases when running newaliases. Since this does DNS lookups on every address, it can slow down the alias rebuild process considerably on large alias files. confOLD_STYLE_HEADERS* OldStyleHeaders [True] Assume that headers without special chars are old style. confPRIVACY_FLAGS PrivacyOptions [authwarnings] Privacy flags. confCOPY_ERRORS_TO PostmasterCopy [undefined] Address for additional copies of all error messages. confQUEUE_FACTOR QueueFactor [600000] Slope of queue-only function. confQUEUE_FILE_MODE QueueFileMode [undefined] Default permissions for queue files (octal). If not set, sendmail uses 0600 unless its real and effective uid are different in which case it uses 0644. confDONT_PRUNE_ROUTES DontPruneRoutes [False] Don't prune down route-addr syntax addresses to the minimum possible. confSAFE_QUEUE* SuperSafe [True] Commit all messages to disk before forking. confTO_INITIAL Timeout.initial [5m] The timeout waiting for a response on the initial connect. confTO_CONNECT Timeout.connect [0] The timeout waiting for an initial connect() to complete. This can only shorten connection timeouts; the kernel silently enforces an absolute maximum (which varies depending on the system). confTO_ICONNECT Timeout.iconnect [undefined] Like Timeout.connect, but applies only to the very first attempt to connect to a host in a message. This allows a single very fast pass followed by more careful delivery attempts in the future. confTO_ACONNECT Timeout.aconnect [0] The overall timeout waiting for all connection for a single delivery attempt to succeed. If 0, no overall limit is applied. confTO_HELO Timeout.helo [5m] The timeout waiting for a response to a HELO or EHLO command. confTO_MAIL Timeout.mail [10m] The timeout waiting for a response to the MAIL command. confTO_RCPT Timeout.rcpt [1h] The timeout waiting for a response to the RCPT command. confTO_DATAINIT Timeout.datainit [5m] The timeout waiting for a 354 response from the DATA command. confTO_DATABLOCK Timeout.datablock [1h] The timeout waiting for a block during DATA phase. confTO_DATAFINAL Timeout.datafinal [1h] The timeout waiting for a response to the final "." that terminates a message. confTO_RSET Timeout.rset [5m] The timeout waiting for a response to the RSET command. confTO_QUIT Timeout.quit [2m] The timeout waiting for a response to the QUIT command. confTO_MISC Timeout.misc [2m] The timeout waiting for a response to other SMTP commands. confTO_COMMAND Timeout.command [1h] In server SMTP, the timeout waiting for a command to be issued. confTO_IDENT Timeout.ident [5s] The timeout waiting for a response to an IDENT query. confTO_FILEOPEN Timeout.fileopen [60s] The timeout waiting for a file (e.g., :include: file) to be opened. confTO_LHLO Timeout.lhlo [2m] The timeout waiting for a response to an LMTP LHLO command. confTO_AUTH Timeout.auth [10m] The timeout waiting for a response in an AUTH dialogue. confTO_STARTTLS Timeout.starttls [1h] The timeout waiting for a response to an SMTP STARTTLS command. confTO_CONTROL Timeout.control [2m] The timeout for a complete control socket transaction to complete. confTO_QUEUERETURN Timeout.queuereturn [5d] The timeout before a message is returned as undeliverable. confTO_QUEUERETURN_NORMAL Timeout.queuereturn.normal [undefined] As above, for normal priority messages. confTO_QUEUERETURN_URGENT Timeout.queuereturn.urgent [undefined] As above, for urgent priority messages. confTO_QUEUERETURN_NONURGENT Timeout.queuereturn.non-urgent [undefined] As above, for non-urgent (low) priority messages. confTO_QUEUERETURN_DSN Timeout.queuereturn.dsn [undefined] As above, for delivery status notification messages. confTO_QUEUEWARN Timeout.queuewarn [4h] The timeout before a warning message is sent to the sender telling them that the message has been deferred. confTO_QUEUEWARN_NORMAL Timeout.queuewarn.normal [undefined] As above, for normal priority messages. confTO_QUEUEWARN_URGENT Timeout.queuewarn.urgent [undefined] As above, for urgent priority messages. confTO_QUEUEWARN_NONURGENT Timeout.queuewarn.non-urgent [undefined] As above, for non-urgent (low) priority messages. confTO_QUEUEWARN_DSN Timeout.queuewarn.dsn [undefined] As above, for delivery status notification messages. confTO_HOSTSTATUS Timeout.hoststatus [30m] How long information about host statuses will be maintained before it is considered stale and the host should be retried. This applies both within a single queue run and to persistent information (see below). confTO_RESOLVER_RETRANS Timeout.resolver.retrans [varies] Sets the resolver's retransmission time interval (in seconds). Sets both Timeout.resolver.retrans.first and Timeout.resolver.retrans.normal. confTO_RESOLVER_RETRANS_FIRST Timeout.resolver.retrans.first [varies] Sets the resolver's retransmission time interval (in seconds) for the first attempt to deliver a message. confTO_RESOLVER_RETRANS_NORMAL Timeout.resolver.retrans.normal [varies] Sets the resolver's retransmission time interval (in seconds) for all resolver lookups except the first delivery attempt. confTO_RESOLVER_RETRY Timeout.resolver.retry [varies] Sets the number of times to retransmit a resolver query. Sets both Timeout.resolver.retry.first and Timeout.resolver.retry.normal. confTO_RESOLVER_RETRY_FIRST Timeout.resolver.retry.first [varies] Sets the number of times to retransmit a resolver query for the first attempt to deliver a message. confTO_RESOLVER_RETRY_NORMAL Timeout.resolver.retry.normal [varies] Sets the number of times to retransmit a resolver query for all resolver lookups except the first delivery attempt. confTIME_ZONE TimeZoneSpec [USE_SYSTEM] Time zone info -- can be USE_SYSTEM to use the system's idea, USE_TZ to use the user's TZ envariable, or something else to force that value. confDEF_USER_ID DefaultUser [1:1] Default user id. confUSERDB_SPEC UserDatabaseSpec [undefined] User database specification. confFALLBACK_MX FallbackMXhost [undefined] Fallback MX host. confFALLBACK_SMARTHOST FallbackSmartHost [undefined] Fallback smart host. confTLS_FALLBACK_TO_CLEAR TLSFallbacktoClear [undefined] If set, immediately try a connection again without STARTTLS after a TLS handshake failure. confTRY_NULL_MX_LIST TryNullMXList [False] If this host is the best MX for a host and other arrangements haven't been made, try connecting to the host directly; normally this would be a config error. confQUEUE_LA QueueLA [varies] Load average at which queue-only function kicks in. Default values is (8 * numproc) where numproc is the number of processors online (if that can be determined). confREFUSE_LA RefuseLA [varies] Load average at which incoming SMTP connections are refused. Default values is (12 * numproc) where numproc is the number of processors online (if that can be determined). confREJECT_LOG_INTERVAL RejectLogInterval [3h] Log interval when refusing connections for this long. confDELAY_LA DelayLA [0] Load average at which sendmail will sleep for one second on most SMTP commands and before accepting connections. 0 means no limit. confMAX_ALIAS_RECURSION MaxAliasRecursion [10] Maximum depth of alias recursion. confMAX_DAEMON_CHILDREN MaxDaemonChildren [undefined] The maximum number of children the daemon will permit. After this number, connections will be rejected. If not set or <= 0, there is no limit. confMAX_HEADERS_LENGTH MaxHeadersLength [32768] Maximum length of the sum of all headers. confMAX_MIME_HEADER_LENGTH MaxMimeHeaderLength [undefined] Maximum length of certain MIME header field values. confCONNECTION_RATE_THROTTLE ConnectionRateThrottle [undefined] The maximum number of connections permitted per second per daemon. After this many connections are accepted, further connections will be delayed. If not set or <= 0, there is no limit. confCONNECTION_RATE_WINDOW_SIZE ConnectionRateWindowSize [60s] Define the length of the interval for which the number of incoming connections is maintained. confWORK_RECIPIENT_FACTOR RecipientFactor [30000] Cost of each recipient. confSEPARATE_PROC ForkEachJob [False] Run all deliveries in a separate process. confWORK_CLASS_FACTOR ClassFactor [1800] Priority multiplier for class. confWORK_TIME_FACTOR RetryFactor [90000] Cost of each delivery attempt. confQUEUE_SORT_ORDER QueueSortOrder [Priority] Queue sort algorithm: Priority, Host, Filename, Random, Modification, or Time. confMAX_QUEUE_AGE MaxQueueAge [undefined] If set to a value greater than zero, entries in the queue will be retried during a queue run only if the individual retry time has been reached which is doubled for each attempt. The maximum retry time is limited by the specified value. confMIN_QUEUE_AGE MinQueueAge [0] The minimum amount of time a job must sit in the queue between queue runs. This allows you to set the queue run interval low for better responsiveness without trying all jobs in each run. confDEF_CHAR_SET DefaultCharSet [unknown-8bit] When converting unlabeled 8 bit input to MIME, the character set to use by default. confSERVICE_SWITCH_FILE ServiceSwitchFile [/etc/mail/service.switch] The file to use for the service switch on systems that do not have a system-defined switch. confHOSTS_FILE HostsFile [/etc/hosts] The file to use when doing "file" type access of hosts names. confDIAL_DELAY DialDelay [0s] If a connection fails, wait this long and try again. Zero means "don't retry". This is to allow "dial on demand" connections to have enough time to complete a connection. confNO_RCPT_ACTION NoRecipientAction [none] What to do if there are no legal recipient fields (To:, Cc: or Bcc:) in the message. Legal values can be "none" to just leave the nonconforming message as is, "add-to" to add a To: header with all the known recipients (which may expose blind recipients), "add-apparently-to" to do the same but use Apparently-To: instead of To: (strongly discouraged in accordance with IETF standards), "add-bcc" to add an empty Bcc: header, or "add-to-undisclosed" to add the header ``To: undisclosed-recipients:;''. confSAFE_FILE_ENV SafeFileEnvironment [undefined] If set, sendmail will do a chroot() into this directory before writing files. confCOLON_OK_IN_ADDR ColonOkInAddr [True unless Configuration Level > 6] If set, colons are treated as a regular character in addresses. If not set, they are treated as the introducer to the RFC 822 "group" syntax. Colons are handled properly in route-addrs. This option defaults on for V5 and lower configuration files. confMAX_QUEUE_RUN_SIZE MaxQueueRunSize [0] If set, limit the maximum size of any given queue run to this number of entries. Essentially, this will stop reading each queue directory after this number of entries are reached; it does _not_ pick the highest priority jobs, so this should be as large as your system can tolerate. If not set, there is no limit. confMAX_QUEUE_CHILDREN MaxQueueChildren [undefined] Limits the maximum number of concurrent queue runners active. This is to keep system resources used within a reasonable limit. Relates to Queue Groups and ForkEachJob. confMAX_RUNNERS_PER_QUEUE MaxRunnersPerQueue [1] Only active when MaxQueueChildren defined. Controls the maximum number of queue runners (aka queue children) active at the same time in a work group. See also MaxQueueChildren. confDONT_EXPAND_CNAMES DontExpandCnames [False] If set, $[ ... $] lookups that do DNS based lookups do not expand CNAME records. This currently violates the published standards, but the IETF seems to be moving toward legalizing this. For example, if "FTP.Foo.ORG" is a CNAME for "Cruft.Foo.ORG", then with this option set a lookup of "FTP" will return "FTP.Foo.ORG"; if clear it returns "Cruft.FOO.ORG". N.B. you may not see any effect until your downstream neighbors stop doing CNAME lookups as well. confFROM_LINE UnixFromLine [From $g $d] The From_ line used when sending to files or programs. confSINGLE_LINE_FROM_HEADER SingleLineFromHeader [False] From: lines that have embedded newlines are unwrapped onto one line. confALLOW_BOGUS_HELO AllowBogusHELO [False] Allow HELO SMTP command that does not include a host name. confMUST_QUOTE_CHARS MustQuoteChars [.'] Characters to be quoted in a full name phrase (@,;:\()[] are automatic). confOPERATORS OperatorChars [.:%@!^/[]+] Address operator characters. confSMTP_LOGIN_MSG SmtpGreetingMessage [$j Sendmail $v/$Z; $b] The initial (spontaneous) SMTP greeting message. The word "ESMTP" will be inserted between the first and second words to convince other sendmails to try to speak ESMTP. confDONT_INIT_GROUPS DontInitGroups [False] If set, the initgroups(3) routine will never be invoked. You might want to do this if you are running NIS and you have a large group map, since this call does a sequential scan of the map; in a large site this can cause your ypserv to run essentially full time. If you set this, agents run on behalf of users will only have their primary (/etc/passwd) group permissions. confUNSAFE_GROUP_WRITES UnsafeGroupWrites [True] If set, group-writable :include: and .forward files are considered "unsafe", that is, programs and files cannot be directly referenced from such files. World-writable files are always considered unsafe. Notice: this option is deprecated and will be removed in future versions; Set GroupWritableForwardFileSafe and GroupWritableIncludeFileSafe in DontBlameSendmail if required. confCONNECT_ONLY_TO ConnectOnlyTo [undefined] override connection address (for testing). confCONTROL_SOCKET_NAME ControlSocketName [undefined] Control socket for daemon management. confDOUBLE_BOUNCE_ADDRESS DoubleBounceAddress [postmaster] If an error occurs when sending an error message, send that "double bounce" error message to this address. If it expands to an empty string, double bounces are dropped. confSOFT_BOUNCE SoftBounce [False] If set, issue temporary errors (4xy) instead of permanent errors (5xy). This can be useful during testing of a new configuration to avoid erroneous bouncing of mails. confDEAD_LETTER_DROP DeadLetterDrop [undefined] Filename to save bounce messages which could not be returned to the user or sent to postmaster. If not set, the queue file will be renamed. confRRT_IMPLIES_DSN RrtImpliesDsn [False] Return-Receipt-To: header implies DSN request. confRUN_AS_USER RunAsUser [undefined] If set, become this user when reading and delivering mail. Causes all file reads (e.g., .forward and :include: files) to be done as this user. Also, all programs will be run as this user, and all output files will be written as this user. confMAX_RCPTS_PER_MESSAGE MaxRecipientsPerMessage [infinite] If set, allow no more than the specified number of recipients in an SMTP envelope. Further recipients receive a 452 error code (i.e., they are deferred for the next delivery attempt). confBAD_RCPT_THROTTLE BadRcptThrottle [infinite] If set and the specified number of recipients in a single SMTP transaction have been rejected, sleep for one second after each subsequent RCPT command in that transaction. confDONT_PROBE_INTERFACES DontProbeInterfaces [False] If set, sendmail will _not_ insert the names and addresses of any local interfaces into class {w} (list of known "equivalent" addresses). If you set this, you must also include some support for these addresses (e.g., in a mailertable entry) -- otherwise, mail to addresses in this list will bounce with a configuration error. If set to "loopback" (without quotes), sendmail will skip loopback interfaces (e.g., "lo0"). confPID_FILE PidFile [system dependent] Location of pid file. confPROCESS_TITLE_PREFIX ProcessTitlePrefix [undefined] Prefix string for the process title shown on 'ps' listings. confDONT_BLAME_SENDMAIL DontBlameSendmail [safe] Override sendmail's file safety checks. This will definitely compromise system security and should not be used unless absolutely necessary. confREJECT_MSG - [550 Access denied] The message given if the access database contains REJECT in the value portion. confRELAY_MSG - [550 Relaying denied] The message given if an unauthorized relaying attempt is rejected. confDF_BUFFER_SIZE DataFileBufferSize [4096] The maximum size of a memory-buffered data (df) file before a disk-based file is used. confXF_BUFFER_SIZE XScriptFileBufferSize [4096] The maximum size of a memory-buffered transcript (xf) file before a disk-based file is used. confAUTH_MECHANISMS AuthMechanisms [EXTERNAL GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5] List of authentication mechanisms for AUTH (separated by spaces). The advertised list of authentication mechanisms will be the intersection of this list and the list of available mechanisms as determined by the Cyrus SASL library. confAUTH_REALM AuthRealm [undefined] The authentication realm that is passed to the Cyrus SASL library. If no realm is specified, $j is used. See KNOWNBUGS. confDEF_AUTH_INFO DefaultAuthInfo [undefined] Name of file that contains authentication information for outgoing connections. This file must contain the user id, the authorization id, the password (plain text), the realm to use, and the list of mechanisms to try, each on a separate line and must be readable by root (or the trusted user) only. If no realm is specified, $j is used. If no mechanisms are given in the file, AuthMechanisms is used. Notice: this option is deprecated and will be removed in future versions; it doesn't work for the MSP since it can't read the file. Use the authinfo ruleset instead. See also the section SMTP AUTHENTICATION. confAUTH_OPTIONS AuthOptions [undefined] If this option is 'A' then the AUTH= parameter for the MAIL FROM command is only issued when authentication succeeded. See doc/op/op.me for more options and details. confAUTH_MAX_BITS AuthMaxBits [INT_MAX] Limit the maximum encryption strength for the security layer in SMTP AUTH (SASL). Default is essentially unlimited. confTLS_SRV_OPTIONS TLSSrvOptions If this option is 'V' no client verification is performed, i.e., the server doesn't ask for a certificate. confSERVER_SSL_OPTIONS ServerSSLOptions [undefined] SSL related options for server side. See SSL_CTX_set_options(3) for a list. confCLIENT_SSL_OPTIONS ClientSSLOptions [undefined] SSL related options for client side. See SSL_CTX_set_options(3) for a list. confCIPHER_LIST CipherList [undefined] Cipher list for TLS. See ciphers(1) for possible values. confLDAP_DEFAULT_SPEC LDAPDefaultSpec [undefined] Default map specification for LDAP maps. The value should only contain LDAP specific settings such as "-h host -p port -d bindDN", etc. The settings will be used for all LDAP maps unless they are specified in the individual map specification ('K' command). confCACERT_PATH CACertPath [undefined] Path to directory with certificates of CAs which must contain their hashes as filenames or links. confCACERT CACertFile [undefined] File containing at least one CA certificate. confSERVER_CERT ServerCertFile [undefined] File containing the cert of the server, i.e., this cert is used when sendmail acts as server. confSERVER_KEY ServerKeyFile [undefined] File containing the private key belonging to the server cert. confCLIENT_CERT ClientCertFile [undefined] File containing the cert of the client, i.e., this cert is used when sendmail acts as client. confCLIENT_KEY ClientKeyFile [undefined] File containing the private key belonging to the client cert. confCRL CRLFile [undefined] File containing certificate revocation status, useful for X.509v3 authentication. confCRL_PATH CRLPath [undefined] Directory containing hashes pointing to certificate revocation status files. confDH_PARAMETERS DHParameters [undefined] File containing the DH parameters. confDANE DANE [false] Enable DANE support. confRAND_FILE RandFile [undefined] File containing random data (use prefix file:) or the name of the UNIX socket if EGD is used (use prefix egd:). STARTTLS requires this option if the compile flag HASURANDOM is not set (see sendmail/README). confCERT_FINGERPRINT_ALGORITHM CertFingerprintAlgorithm [undefined] The fingerprint algorithm (digest) to use for the presented cert. confSSL_ENGINE SSLEngine [undefined] Name of SSLEngine. confSSL_ENGINE_PATH SSLEnginePath [undefined] Path to dynamic library for SSLEngine. confOPENSSL_CNF [/etc/mail/sendmail.ossl] Set the environment variable OPENSSL_CONF. An empty value disables setting it. confNICE_QUEUE_RUN NiceQueueRun [undefined] If set, the priority of queue runners is set the given value (nice(3)). confDIRECT_SUBMISSION_MODIFIERS DirectSubmissionModifiers [undefined] Defines {daemon_flags} for direct submissions. confUSE_MSP UseMSP [undefined] Use as mail submission program, see sendmail/SECURITY. confDELIVER_BY_MIN DeliverByMin [0] Minimum time for Deliver By SMTP Service Extension (RFC 2852). confREQUIRES_DIR_FSYNC RequiresDirfsync [true] RequiresDirfsync can be used to turn off the compile time flag REQUIRES_DIR_FSYNC at runtime. See sendmail/README for details. confSHARED_MEMORY_KEY SharedMemoryKey [0] Key for shared memory. confSHARED_MEMORY_KEY_FILE SharedMemoryKeyFile [undefined] File where the automatically selected key for shared memory is stored. confFAST_SPLIT FastSplit [1] If set to a value greater than zero, the initial MX lookups on addresses is suppressed when they are sorted which may result in faster envelope splitting. If the mail is submitted directly from the command line, then the value also limits the number of processes to deliver the envelopes. confMAILBOX_DATABASE MailboxDatabase [pw] Type of lookup to find information about local mailboxes. confDEQUOTE_OPTS - [empty] Additional options for the dequote map. confMAX_NOOP_COMMANDS MaxNOOPCommands [20] Maximum number of "useless" commands before the SMTP server will slow down responding. confHELO_NAME HeloName If defined, use as name for EHLO/HELO command (instead of $j). confINPUT_MAIL_FILTERS InputMailFilters A comma separated list of filters which determines which filters and the invocation sequence are contacted for incoming SMTP messages. If none are set, no filters will be contacted. confMILTER_LOG_LEVEL Milter.LogLevel [9] Log level for input mail filter actions, defaults to LogLevel. confMILTER_MACROS_CONNECT Milter.macros.connect [j, _, {daemon_name}, {if_name}, {if_addr}] Macros to transmit to milters when a session connection starts. confMILTER_MACROS_HELO Milter.macros.helo [{tls_version}, {cipher}, {cipher_bits}, {cert_subject}, {cert_issuer}] Macros to transmit to milters after HELO/EHLO command. confMILTER_MACROS_ENVFROM Milter.macros.envfrom [i, {auth_type}, {auth_authen}, {auth_ssf}, {auth_author}, {mail_mailer}, {mail_host}, {mail_addr}] Macros to transmit to milters after MAIL FROM command. confMILTER_MACROS_ENVRCPT Milter.macros.envrcpt [{rcpt_mailer}, {rcpt_host}, {rcpt_addr}] Macros to transmit to milters after RCPT TO command. confMILTER_MACROS_EOM Milter.macros.eom [{msg_id}] Macros to transmit to milters after the terminating DATA '.' is received. confMILTER_MACROS_EOH Milter.macros.eoh Macros to transmit to milters after the end of headers. confMILTER_MACROS_DATA Milter.macros.data Macros to transmit to milters after DATA command is received. See also the description of OSTYPE for some parameters that can be tweaked (generally pathnames to mailers). ClientPortOptions and DaemonPortOptions are special cases since multiple clients/daemons can be defined. This can be done via CLIENT_OPTIONS(`field1=value1,field2=value2,...') DAEMON_OPTIONS(`field1=value1,field2=value2,...') Note that multiple CLIENT_OPTIONS() commands (and therefore multiple ClientPortOptions settings) are allowed in order to give settings for each protocol family (e.g., one for Family=inet and one for Family=inet6). A restriction placed on one family only affects outgoing connections on that particular family. If DAEMON_OPTIONS is not used, then the default is DAEMON_OPTIONS(`Port=smtp, Name=MTA') DAEMON_OPTIONS(`Port=587, Name=MSA, M=E') If you use one DAEMON_OPTIONS macro, it will alter the parameters of the first of these. The second will still be defaulted; it represents a "Message Submission Agent" (MSA) as defined by RFC 2476 (see below). To turn off the default definition for the MSA, use FEATURE(`no_default_msa') (see also FEATURES). If you use additional DAEMON_OPTIONS macros, they will add additional daemons. Example 1: To change the port for the SMTP listener, while still using the MSA default, use DAEMON_OPTIONS(`Port=925, Name=MTA') Example 2: To change the port for the MSA daemon, while still using the default SMTP port, use FEATURE(`no_default_msa') DAEMON_OPTIONS(`Name=MTA') DAEMON_OPTIONS(`Port=987, Name=MSA, M=E') Note that if the first of those DAEMON_OPTIONS lines were omitted, then there would be no listener on the standard SMTP port. Example 3: To listen on both IPv4 and IPv6 interfaces, use DAEMON_OPTIONS(`Name=MTA-v4, Family=inet') DAEMON_OPTIONS(`Name=MTA-v6, Family=inet6') A "Message Submission Agent" still uses all of the same rulesets for processing the message (and therefore still allows message rejection via the check_* rulesets). In accordance with the RFC, the MSA will ensure that all domains in envelope addresses are fully qualified if the message is relayed to another MTA. It will also enforce the normal address syntax rules and log error messages. Additionally, by using the M=a modifier you can require authentication before messages are accepted by the MSA. Notice: Do NOT use the 'a' modifier on a public accessible MTA! Finally, the M=E modifier shown above disables ETRN as required by RFC 2476. Mail filters can be defined using the INPUT_MAIL_FILTER() and MAIL_FILTER() commands: INPUT_MAIL_FILTER(`sample', `S=local:/var/run/f1.sock') MAIL_FILTER(`myfilter', `S=inet:3333@localhost') The INPUT_MAIL_FILTER() command causes the filter(s) to be called in the same order they were specified by also setting confINPUT_MAIL_FILTERS. A filter can be defined without adding it to the input filter list by using MAIL_FILTER() instead of INPUT_MAIL_FILTER() in your .mc file. Alternatively, you can reset the list of filters and their order by setting confINPUT_MAIL_FILTERS option after all INPUT_MAIL_FILTER() commands in your .mc file. +----------------------------+ | MESSAGE SUBMISSION PROGRAM | +----------------------------+ The purpose of the message submission program (MSP) is explained in sendmail/SECURITY. This section contains a list of caveats and a few hints how for those who want to tweak the default configuration for it (which is installed as submit.cf). Notice: do not add options/features to submit.mc unless you are absolutely sure you need them. Options you may want to change include: - confTRUSTED_USERS, FEATURE(`use_ct_file'), and confCT_FILE for avoiding X-Authentication warnings. - confTIME_ZONE to change it from the default `USE_TZ'. - confDELIVERY_MODE is set to interactive in msp.m4 instead of the default background mode. - FEATURE(stickyhost) and LOCAL_RELAY to send unqualified addresses to the LOCAL_RELAY instead of the default relay. - confRAND_FILE if you use STARTTLS and sendmail is not compiled with the flag HASURANDOM. The MSP performs hostname canonicalization by default. As also explained in sendmail/SECURITY, mail may end up for various DNS related reasons in the MSP queue. This problem can be minimized by using FEATURE(`nocanonify', `canonify_hosts') define(`confDIRECT_SUBMISSION_MODIFIERS', `C') See the discussion about nocanonify for possible side effects. Some things are not intended to work with the MSP. These include features that influence the delivery process (e.g., mailertable, aliases), or those that are only important for a SMTP server (e.g., virtusertable, DaemonPortOptions, multiple queues). Moreover, relaxing certain restrictions (RestrictQueueRun, permissions on queue directory) or adding features (e.g., enabling prog/file mailer) can cause security problems. Other things don't work well with the MSP and require tweaking or workarounds. For example, to allow for client authentication it is not just sufficient to provide a client certificate and the corresponding key, but it is also necessary to make the key group (smmsp) readable and tell sendmail not to complain about that, i.e., define(`confDONT_BLAME_SENDMAIL', `GroupReadableKeyFile') If the MSP should actually use AUTH then the necessary data should be placed in a map as explained in SMTP AUTHENTICATION: FEATURE(`authinfo', `DATABASE_MAP_TYPE /etc/mail/msp-authinfo') /etc/mail/msp-authinfo should contain an entry like: AuthInfo:127.0.0.1 "U:smmsp" "P:secret" "M:DIGEST-MD5" The file and the map created by makemap should be owned by smmsp, its group should be smmsp, and it should have mode 640. The database used by the MTA for AUTH must have a corresponding entry. Additionally the MTA must trust this authentication data so the AUTH= part will be relayed on to the next hop. This can be achieved by adding the following to your sendmail.mc file: LOCAL_RULESETS SLocal_trust_auth R$* $: $&{auth_authen} Rsmmsp $# OK Note: the authentication data can leak to local users who invoke the MSP with debug options or even with -v. For that reason either an authentication mechanism that does not show the password in the AUTH dialogue (e.g., DIGEST-MD5) or a different authentication method like STARTTLS should be used. feature/msp.m4 defines almost all settings for the MSP. Most of those should not be changed at all. Some of the features and options can be overridden if really necessary. It is a bit tricky to do this, because it depends on the actual way the option is defined in feature/msp.m4. If it is directly defined (i.e., define()) then the modified value must be defined after FEATURE(`msp') If it is conditionally defined (i.e., ifdef()) then the desired value must be defined before the FEATURE line in the .mc file. To see how the options are defined read feature/msp.m4. +--------------------------+ | FORMAT OF FILES AND MAPS | +--------------------------+ Files that define classes, i.e., F{classname}, consist of lines each of which contains a single element of the class. For example, /etc/mail/local-host-names may have the following content: my.domain another.domain Maps must be created using makemap(8) , e.g., makemap hash MAP < MAP In general, a text file from which a map is created contains lines of the form key value where 'key' and 'value' are also called LHS and RHS, respectively. By default, the delimiter between LHS and RHS is a non-empty sequence of white space characters. +------------------+ | DIRECTORY LAYOUT | +------------------+ Within this directory are several subdirectories, to wit: m4 General support routines. These are typically very important and should not be changed without very careful consideration. cf The configuration files themselves. They have ".mc" suffixes, and must be run through m4 to become complete. The resulting output should have a ".cf" suffix. ostype Definitions describing a particular operating system type. These should always be referenced using the OSTYPE macro in the .mc file. Examples include "bsd4.3", "bsd4.4", "sunos3.5", and "sunos4.1". domain Definitions describing a particular domain, referenced using the DOMAIN macro in the .mc file. These are site dependent; for example, "CS.Berkeley.EDU.m4" describes hosts in the CS.Berkeley.EDU subdomain. mailer Descriptions of mailers. These are referenced using the MAILER macro in the .mc file. sh Shell files used when building the .cf file from the .mc file in the cf subdirectory. feature These hold special orthogonal features that you might want to include. They should be referenced using the FEATURE macro. hack Local hacks. These can be referenced using the HACK macro. They shouldn't be of more than voyeuristic interest outside the .Berkeley.EDU domain, but who knows? siteconfig Site configuration -- e.g., tables of locally connected UUCP sites. +------------------------+ | ADMINISTRATIVE DETAILS | +------------------------+ The following sections detail usage of certain internal parts of the sendmail.cf file. Read them carefully if you are trying to modify the current model. If you find the above descriptions adequate, these should be {boring, confusing, tedious, ridiculous} (pick one or more). RULESETS (* means built in to sendmail) 0 * Parsing 1 * Sender rewriting 2 * Recipient rewriting 3 * Canonicalization 4 * Post cleanup 5 * Local address rewrite (after aliasing) 1x mailer rules (sender qualification) 2x mailer rules (recipient qualification) 3x mailer rules (sender header qualification) 4x mailer rules (recipient header qualification) 5x mailer subroutines (general) 6x mailer subroutines (general) 7x mailer subroutines (general) 8x reserved 90 Mailertable host stripping 96 Bottom half of Ruleset 3 (ruleset 6 in old sendmail) 97 Hook for recursive ruleset 0 call (ruleset 7 in old sendmail) 98 Local part of ruleset 0 (ruleset 8 in old sendmail) MAILERS 0 local, prog local and program mailers 1 [e]smtp, relay SMTP channel 2 uucp-* UNIX-to-UNIX Copy Program 3 netnews Network News delivery 4 fax Sam Leffler's HylaFAX software 5 mail11 DECnet mailer MACROS A B Bitnet Relay C DECnet Relay D The local domain -- usually not needed E reserved for X.400 Relay F FAX Relay G H mail Hub (for mail clusters) I J K L Luser Relay M Masquerade (who you claim to be) N O P Q R Relay (for unqualified names) S Smart Host T U my UUCP name (if you have a UUCP connection) V UUCP Relay (class {V} hosts) W UUCP Relay (class {W} hosts) X UUCP Relay (class {X} hosts) Y UUCP Relay (all other hosts) Z Version number CLASSES A B domains that are candidates for bestmx lookup C D E addresses that should not seem to come from $M F hosts this system forward for G domains that should be looked up in genericstable H I J K L addresses that should not be forwarded to $R M domains that should be mapped to $M N host/domains that should not be mapped to $M O operators that indicate network operations (cannot be in local names) P top level pseudo-domains: BITNET, DECNET, FAX, UUCP, etc. Q R domains this system is willing to relay (pass anti-spam filters) S T U locally connected UUCP hosts V UUCP hosts connected to relay $V W UUCP hosts connected to relay $W X UUCP hosts connected to relay $X Y locally connected smart UUCP hosts Z locally connected domain-ized UUCP hosts . the class containing only a dot [ the class containing only a left bracket M4 DIVERSIONS 1 Local host detection and resolution 2 Local Ruleset 3 additions 3 Local Ruleset 0 additions 4 UUCP Ruleset 0 additions 5 locally interpreted names (overrides $R) 6 local configuration (at top of file) 7 mailer definitions 8 DNS based blocklists 9 special local rulesets (1 and 2) sendmail-8.18.1/cf/domain/0000755000372400037240000000000014556365435014632 5ustar xbuildxbuildsendmail-8.18.1/cf/domain/CS.Berkeley.EDU.m40000644000372400037240000000120514556365350017550 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: CS.Berkeley.EDU.m4,v 8.11 2013-11-22 20:51:10 ca Exp $') DOMAIN(Berkeley.EDU)dnl HACK(cssubdomain)dnl define(`confUSERDB_SPEC', `/usr/sww/share/lib/users.cs.db,/usr/sww/share/lib/users.eecs.db')dnl sendmail-8.18.1/cf/domain/berkeley-only.m40000644000372400037240000000143114556365350017650 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: unspecified-domain.m4,v 8.11 2013-11-22 20:51:10 ca Exp $') errprint(`*** ERROR: You are trying to use the Berkeley sample configuration') errprint(` files outside of the Computer Science Division at Berkeley.') errprint(` The configuration (.mc) files must be customized to reference') errprint(` domain files appropriate for your environment.') sendmail-8.18.1/cf/domain/Berkeley.EDU.m40000644000372400037240000000151714556365350017252 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: Berkeley.EDU.m4,v 8.18 2013-11-22 20:51:10 ca Exp $') DOMAIN(berkeley-only)dnl define(`BITNET_RELAY', `bitnet-relay.Berkeley.EDU')dnl define(`UUCP_RELAY', `uucp-relay.Berkeley.EDU')dnl define(`confFORWARD_PATH', `$z/.forward.$w:$z/.forward')dnl define(`confCW_FILE', `-o /etc/sendmail.cw')dnl define(`confDONT_INIT_GROUPS', True)dnl FEATURE(redirect)dnl FEATURE(use_cw_file)dnl FEATURE(stickyhost)dnl sendmail-8.18.1/cf/domain/S2K.Berkeley.EDU.m40000644000372400037240000000107314556365350017645 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: S2K.Berkeley.EDU.m4,v 8.11 2013-11-22 20:51:10 ca Exp $') DOMAIN(CS.Berkeley.EDU)dnl MASQUERADE_AS(postgres.Berkeley.EDU)dnl sendmail-8.18.1/cf/domain/EECS.Berkeley.EDU.m40000644000372400037240000000106514556365350017766 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # divert(0) VERSIONID(`$Id: EECS.Berkeley.EDU.m4,v 8.11 2013-11-22 20:51:10 ca Exp $') DOMAIN(Berkeley.EDU)dnl MASQUERADE_AS(EECS.Berkeley.EDU)dnl sendmail-8.18.1/cf/domain/generic.m40000644000372400037240000000175014556365350016507 0ustar xbuildxbuilddivert(-1) # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # # The following is a generic domain file. You should be able to # use it anywhere. If you want to customize it, copy it to a file # named with your domain and make the edits; then, copy the appropriate # .mc files and change `DOMAIN(generic)' to reference your updated domain # files. # divert(0) VERSIONID(`$Id: generic.m4,v 8.16 2013-11-22 20:51:10 ca Exp $') define(`confFORWARD_PATH', `$z/.forward.$w+$h:$z/.forward+$h:$z/.forward.$w:$z/.forward')dnl define(`confMAX_HEADERS_LENGTH', `32768')dnl FEATURE(`redirect')dnl FEATURE(`use_cw_file')dnl EXPOSED_USER(`root') sendmail-8.18.1/cf/sh/0000755000372400037240000000000014556365434013774 5ustar xbuildxbuildsendmail-8.18.1/cf/sh/makeinfo.sh0000644000372400037240000000214714556365350016122 0ustar xbuildxbuild#!/bin/sh # # Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # Copyright (c) 1983 Eric P. Allman. All rights reserved. # Copyright (c) 1988, 1993 # The Regents of the University of California. All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: makeinfo.sh,v 8.15 2013-11-22 20:51:17 ca Exp $ # usewhoami=0 usehostname=0 for p in `echo $PATH | sed 's/:/ /g'` do if [ "x$p" = "x" ] then p="." fi if [ -f $p/whoami ] then usewhoami=1 if [ $usehostname -ne 0 ] then break; fi fi if [ -f $p/hostname ] then usehostname=1 if [ $usewhoami -ne 0 ] then break; fi fi done if [ $usewhoami -ne 0 ] then user=`whoami` else user=$LOGNAME fi if [ $usehostname -ne 0 ] then host=`hostname` else host=`uname -n` fi echo '#####' built by $user@$host on `date` echo '#####' in `pwd` | sed 's/\/tmp_mnt//' echo '#####' using $1 as configuration include directory | sed 's/\/tmp_mnt//' echo "define(\`__HOST__', \`$host')dnl" sendmail-8.18.1/mailstats/0000755000372400037240000000000014556365433014772 5ustar xbuildxbuildsendmail-8.18.1/mailstats/Makefile.m40000644000372400037240000000122414556365350016746 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.36 2006-06-28 21:08:02 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_LIBSM', `true') define(`confREQUIRE_SM_OS_H', `true') # sendmail dir SMSRCDIR= ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confENVDEF', `confMAPDEF') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`executable', `mailstats') define(`bldINSTALL_DIR', `S') define(`bldSOURCES', `mailstats.c ') bldPUSH_SMLIB(`sm') bldPUSH_SMLIB(`smutil') APPENDDEF(`confENVDEF', `-DNOT_SENDMAIL') bldPRODUCT_END bldPRODUCT_START(`manpage', `mailstats') define(`bldSOURCES', `mailstats.8') bldPRODUCT_END bldFINISH sendmail-8.18.1/mailstats/Makefile0000644000372400037240000000053214556365350016430 0ustar xbuildxbuild# $Id: Makefile,v 8.5 1999-09-23 22:36:36 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/mailstats/Build0000755000372400037240000000052014556365350015752 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.5 2013-11-22 20:51:51 ca Exp $ exec ../devtools/bin/Build $* sendmail-8.18.1/mailstats/mailstats.80000644000372400037240000000450114556365350017062 0ustar xbuildxbuild.\" Copyright (c) 1998-2002 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: mailstats.8,v 8.32 2013-11-22 20:51:51 ca Exp $ .\" .TH MAILSTATS 8 "$Date: 2013-11-22 20:51:51 $" .SH NAME mailstats \- display mail statistics .SH SYNOPSIS .B mailstats .RB [ \-c "] [" \-o "] [" \-p "] [" \-P ] .RB [ \-C .IR cffile ] .RB [ \-f .IR stfile ] .SH DESCRIPTION The .B mailstats utility displays the current mail statistics. .PP First, the time at which statistics started being kept is displayed, in the format specified by ctime(3). Then, the statistics for each mailer are displayed on a single line, each with the following white space separated fields: .sp .RS .PD 0.2v .TP 1.2i .B M The mailer number. .TP .B msgsfr Number of messages from the mailer. .TP .B bytes_from Kbytes from the mailer. .TP .B msgsto Number of messages to the mailer. .TP .B bytes_to Kbytes to the mailer. .TP .B msgsrej Number of messages rejected. .TP .B msgsdis Number of messages discarded. .TP .B msgsqur Number of messages quarantined. .TP .B Mailer The name of the mailer. .PD .RE .PP After this display, a line totaling the values for all of the mailers is displayed (preceded with a ``T''), separated from the previous information by a line containing only equals (``='') characters. Another line preceded with a ``C'' lists the number of TCP connections. .PP The options are as follows: .TP .B \-C Read the specified file instead of the default .B sendmail configuration file. .TP .B \-c Try to use submit.cf instead of the default .B sendmail configuration file. .TP .B \-f Read the specified statistics file instead of the statistics file specified in the .B sendmail configuration file. .TP .B \-P Output information in program-readable mode without clearing statistics. .TP .B \-p Output information in program-readable mode and clear statistics. .TP .B \-o Don't display the name of the mailer in the output. .PP The .B mailstats utility exits 0 on success, and >0 if an error occurs. .SH FILES .PD 0.2v .TP 2.5i /etc/mail/sendmail.cf The default .B sendmail configuration file. .TP /etc/mail/statistics The default .B sendmail statistics file. .PD .SH SEE ALSO mailq(1), sendmail(8) sendmail-8.18.1/mailstats/mailstats.00000644000372400037240000000530014556365430017047 0ustar xbuildxbuildMAILSTATS(8) MAILSTATS(8) NNAAMMEE mailstats - display mail statistics SSYYNNOOPPSSIISS mmaaiillssttaattss [--cc] [--oo] [--pp] [--PP] [--CC _c_f_f_i_l_e] [--ff _s_t_f_i_l_e] DDEESSCCRRIIPPTTIIOONN The mmaaiillssttaattss utility displays the current mail statistics. First, the time at which statistics started being kept is displayed, in the format specified by ctime(3). Then, the statistics for each mailer are displayed on a single line, each with the following white space separated fields: MM The mailer number. mmssggssffrr Number of messages from the mailer. bbyytteess__ffrroomm Kbytes from the mailer. mmssggssttoo Number of messages to the mailer. bbyytteess__ttoo Kbytes to the mailer. mmssggssrreejj Number of messages rejected. mmssggssddiiss Number of messages discarded. mmssggssqquurr Number of messages quarantined. MMaaiilleerr The name of the mailer. After this display, a line totaling the values for all of the mailers is displayed (preceded with a ``T''), separated from the previous information by a line containing only equals (``='') characters. Another line preceded with a ``C'' lists the number of TCP connections. The options are as follows: --CC Read the specified file instead of the default sseennddmmaaiill configu- ration file. --cc Try to use submit.cf instead of the default sseennddmmaaiill configura- tion file. --ff Read the specified statistics file instead of the statistics file specified in the sseennddmmaaiill configuration file. --PP Output information in program-readable mode without clearing statistics. --pp Output information in program-readable mode and clear statis- tics. --oo Don't display the name of the mailer in the output. The mmaaiillssttaattss utility exits 0 on success, and >0 if an error occurs. FFIILLEESS /etc/mail/sendmail.cf The default sseennddmmaaiill configuration file. /etc/mail/statistics The default sseennddmmaaiill statistics file. SSEEEE AALLSSOO mailq(1), sendmail(8) $Date: 2013-11-22 20:51:51 $ MAILSTATS(8) sendmail-8.18.1/mailstats/mailstats.c0000644000372400037240000002137214556365350017142 0ustar xbuildxbuild/* * Copyright (c) 1998-2002, 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * */ #include SM_IDSTR(copyright, "@(#) Copyright (c) 1998-2002 Proofpoint, Inc. and its suppliers.\n\ All rights reserved.\n\ Copyright (c) 1988, 1993\n\ The Regents of the University of California. All rights reserved.\n") SM_IDSTR(id, "@(#)$Id: mailstats.c,v 8.103 2013-11-22 20:51:51 ca Exp $") #include #include #include #include #include #include #ifdef EX_OK # undef EX_OK /* unistd.h may have another use for this */ #endif #include #include #include #include #include #include #define MNAMELEN 20 /* max length of mailer name */ int main(argc, argv) int argc; char **argv; { register int i; int mno; int save_errno; int ch, fd; char *sfile; char *cfile; SM_FILE_T *cfp; bool mnames; bool progmode; bool trunc; long frmsgs = 0, frbytes = 0, tomsgs = 0, tobytes = 0, rejmsgs = 0; long dismsgs = 0; long quarmsgs = 0; time_t now; char mtable[MAXMAILERS][MNAMELEN + 1]; char sfilebuf[MAXPATHLEN]; char buf[MAXLINE]; struct statistics stats; extern char *ctime(); extern char *optarg; extern int optind; # define MSOPTS "cC:f:opP" cfile = getcfname(0, 0, SM_GET_SENDMAIL_CF, NULL); sfile = NULL; mnames = true; progmode = false; trunc = false; while ((ch = getopt(argc, argv, MSOPTS)) != -1) { switch (ch) { case 'c': cfile = getcfname(0, 0, SM_GET_SUBMIT_CF, NULL); break; case 'C': cfile = optarg; break; case 'f': sfile = optarg; break; case 'o': mnames = false; break; case 'p': trunc = true; /* FALLTHROUGH */ case 'P': progmode = true; break; case '?': default: usage: (void) sm_io_fputs(smioerr, SM_TIME_DEFAULT, "usage: mailstats [-C cffile] [-c] [-P] [-f stfile] [-o] [-p]\n"); exit(EX_USAGE); } } argc -= optind; argv += optind; if (argc != 0) goto usage; if ((cfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, cfile, SM_IO_RDONLY, NULL)) == NULL) { save_errno = errno; (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "mailstats: "); errno = save_errno; sm_perror(cfile); exit(EX_NOINPUT); } mno = 0; (void) sm_strlcpy(mtable[mno++], "prog", MNAMELEN + 1); (void) sm_strlcpy(mtable[mno++], "*file*", MNAMELEN + 1); (void) sm_strlcpy(mtable[mno++], "*include*", MNAMELEN + 1); while (sm_io_fgets(cfp, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { register char *b; char *s; register char *m; b = strchr(buf, '#'); if (b == NULL) b = strchr(buf, '\n'); if (b == NULL) b = &buf[strlen(buf)]; while (isascii(*--b) && isspace(*b)) continue; *++b = '\0'; b = buf; switch (*b++) { case 'M': /* mailer definition */ break; case 'O': /* option -- see if .st file */ if (sm_strncasecmp(b, " StatusFile", 11) == 0 && !(isascii(b[11]) && isalnum(b[11]))) { /* new form -- find value */ b = strchr(b, '='); if (b == NULL) continue; while (isascii(*++b) && isspace(*b)) continue; } else if (*b++ != 'S') { /* something else boring */ continue; } /* this is the S or StatusFile option -- save it */ if (sm_strlcpy(sfilebuf, b, sizeof sfilebuf) >= sizeof sfilebuf) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "StatusFile filename too long: %.30s...\n", b); exit(EX_CONFIG); } if (sfile == NULL) sfile = sfilebuf; default: continue; } if (mno >= MAXMAILERS) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "Too many mailers defined, %d max.\n", MAXMAILERS); exit(EX_SOFTWARE); } m = mtable[mno]; s = m + MNAMELEN; /* is [MNAMELEN + 1] */ while (*b != ',' && !(isascii(*b) && isspace(*b)) && *b != '\0' && m < s) *m++ = *b++; *m = '\0'; for (i = 0; i < mno; i++) { if (strcmp(mtable[i], mtable[mno]) == 0) break; } if (i == mno) mno++; } (void) sm_io_close(cfp, SM_TIME_DEFAULT); for (; mno < MAXMAILERS; mno++) mtable[mno][0] = '\0'; if (sfile == NULL) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "mailstats: no statistics file located\n"); exit(EX_OSFILE); } fd = open(sfile, O_RDONLY, 0600); if ((fd < 0) || (i = read(fd, &stats, sizeof stats)) < 0) { save_errno = errno; (void) sm_io_fputs(smioerr, SM_TIME_DEFAULT, "mailstats: "); errno = save_errno; sm_perror(sfile); exit(EX_NOINPUT); } if (i == 0) { (void) sleep(1); if ((i = read(fd, &stats, sizeof stats)) < 0) { save_errno = errno; (void) sm_io_fputs(smioerr, SM_TIME_DEFAULT, "mailstats: "); errno = save_errno; sm_perror(sfile); exit(EX_NOINPUT); } else if (i == 0) { memset((ARBPTR_T) &stats, '\0', sizeof stats); (void) time(&stats.stat_itime); } } if (i != 0) { if (stats.stat_magic != STAT_MAGIC) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "mailstats: incorrect magic number in %s\n", sfile); exit(EX_OSERR); } else if (stats.stat_version != STAT_VERSION) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "mailstats version (%d) incompatible with %s version (%d)\n", STAT_VERSION, sfile, stats.stat_version); exit(EX_OSERR); } else if (i != sizeof stats || stats.stat_size != sizeof(stats)) { (void) sm_io_fputs(smioerr, SM_TIME_DEFAULT, "mailstats: file size changed.\n"); exit(EX_OSERR); } } if (progmode) { (void) time(&now); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%ld %ld\n", (long) stats.stat_itime, (long) now); } else { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Statistics from %s", ctime(&stats.stat_itime)); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " M msgsfr bytes_from msgsto bytes_to msgsrej msgsdis"); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " msgsqur"); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s\n", mnames ? " Mailer" : ""); } for (i = 0; i < MAXMAILERS; i++) { if (stats.stat_nf[i] || stats.stat_nt[i] || stats.stat_nq[i] || stats.stat_nr[i] || stats.stat_nd[i]) { char *format; if (progmode) format = "%2d %8ld %10ld %8ld %10ld %6ld %6ld"; else format = "%2d %8ld %10ldK %8ld %10ldK %6ld %6ld"; (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, format, i, stats.stat_nf[i], stats.stat_bf[i], stats.stat_nt[i], stats.stat_bt[i], stats.stat_nr[i], stats.stat_nd[i]); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " %6ld", stats.stat_nq[i]); if (mnames) (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " %s", mtable[i]); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n"); frmsgs += stats.stat_nf[i]; frbytes += stats.stat_bf[i]; tomsgs += stats.stat_nt[i]; tobytes += stats.stat_bt[i]; rejmsgs += stats.stat_nr[i]; dismsgs += stats.stat_nd[i]; quarmsgs += stats.stat_nq[i]; } } if (progmode) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " T %8ld %10ld %8ld %10ld %6ld %6ld", frmsgs, frbytes, tomsgs, tobytes, rejmsgs, dismsgs); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " %6ld", quarmsgs); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n"); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " C %8ld %8ld %6ld\n", stats.stat_cf, stats.stat_ct, stats.stat_cr); (void) close(fd); if (trunc) { fd = open(sfile, O_RDWR | O_TRUNC, 0600); if (fd >= 0) (void) close(fd); } } else { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "============================================================="); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "========"); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n"); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " T %8ld %10ldK %8ld %10ldK %6ld %6ld", frmsgs, frbytes, tomsgs, tobytes, rejmsgs, dismsgs); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " %6ld", quarmsgs); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "\n"); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, " C %8ld %10s %8ld %10s %6ld\n", stats.stat_cf, "", stats.stat_ct, "", stats.stat_cr); } exit(EX_OK); /* NOTREACHED */ return EX_OK; } sendmail-8.18.1/libsm/0000755000372400037240000000000014556365433014077 5ustar xbuildxbuildsendmail-8.18.1/libsm/smstdio.c0000644000372400037240000001422214556365350015724 0ustar xbuildxbuild/* * Copyright (c) 2000-2002, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: smstdio.c,v 1.35 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include #include #include #include "local.h" static void setup __P((SM_FILE_T *)); /* ** Overall: ** This is a file type which implements a layer on top of the system ** stdio. fp->f_cookie is the FILE* of stdio. The cookie may be ** "bound late" because of the manner which Linux implements stdio. ** When binding late (when fp->f_cookie==NULL) then the value of ** fp->f_ival is used (0, 1 or 2) to map to stdio's stdin, stdout or ** stderr. */ /* ** SM_STDIOOPEN -- open a file to system stdio implementation ** ** Parameters: ** fp -- file pointer assign for this open ** info -- info about file to open ** flags -- indicating method of opening ** rpool -- ignored ** ** Returns: ** Failure: -1 ** Success: 0 (zero) */ /* ARGSUSED3 */ int sm_stdioopen(fp, info, flags, rpool) SM_FILE_T *fp; const void *info; int flags; const void *rpool; { register FILE *s; char *stdiomode; switch (flags) { case SM_IO_RDONLY: stdiomode = "r"; break; case SM_IO_WRONLY: stdiomode = "w"; break; case SM_IO_APPEND: stdiomode = "a"; break; case SM_IO_APPENDRW: stdiomode = "a+"; break; #if SM_IO_BINARY != 0 case SM_IO_RDONLY_B: stdiomode = "rb"; break; case SM_IO_WRONLY_B: stdiomode = "wb"; break; case SM_IO_APPEND_B: stdiomode = "ab"; break; case SM_IO_APPENDRW_B: stdiomode = "a+b"; break; case SM_IO_RDWR_B: stdiomode = "r+b"; break; #endif /* SM_IO_BINARY != 0 */ case SM_IO_RDWR: default: stdiomode = "r+"; break; } if ((s = fopen((char *)info, stdiomode)) == NULL) return -1; fp->f_cookie = s; return 0; } /* ** SETUP -- assign file type cookie when not already assigned ** ** Parameters: ** fp - the file pointer to get the cookie assigned ** ** Return: ** none. */ static void setup(fp) SM_FILE_T *fp; { if (fp->f_cookie == NULL) { switch (fp->f_ival) { case 0: fp->f_cookie = stdin; break; case 1: fp->f_cookie = stdout; break; case 2: fp->f_cookie = stderr; break; default: sm_abort("fp->f_ival=%d: out of range (0...2)", fp->f_ival); break; } } } /* ** SM_STDIOREAD -- read from the file ** ** Parameters: ** fp -- the file pointer ** buf -- location to place the read data ** n - number of bytes to read ** ** Returns: ** result from fread(). */ ssize_t sm_stdioread(fp, buf, n) SM_FILE_T *fp; char *buf; size_t n; { register FILE *s; if (fp->f_cookie == NULL) setup(fp); s = fp->f_cookie; return fread(buf, 1, n, s); } /* ** SM_STDIOWRITE -- write to the file ** ** Parameters: ** fp -- the file pointer ** buf -- location of data to write ** n - number of bytes to write ** ** Returns: ** result from fwrite(). */ ssize_t sm_stdiowrite(fp, buf, n) SM_FILE_T *fp; char const *buf; size_t n; { register FILE *s; if (fp->f_cookie == NULL) setup(fp); s = fp->f_cookie; return fwrite(buf, 1, n, s); } /* ** SM_STDIOSEEK -- set position within file ** ** Parameters: ** fp -- the file pointer ** offset -- new location based on 'whence' ** whence -- indicates "base" for 'offset' ** ** Returns: ** result from fseek(). */ off_t sm_stdioseek(fp, offset, whence) SM_FILE_T *fp; off_t offset; int whence; { register FILE *s; if (fp->f_cookie == NULL) setup(fp); s = fp->f_cookie; return fseek(s, offset, whence); } /* ** SM_STDIOCLOSE -- close the file ** ** Parameters: ** fp -- close file pointer ** ** Return: ** status from fclose() */ int sm_stdioclose(fp) SM_FILE_T *fp; { register FILE *s; if (fp->f_cookie == NULL) setup(fp); s = fp->f_cookie; return fclose(s); } /* ** SM_STDIOSETINFO -- set info for this open file ** ** Parameters: ** fp -- the file pointer ** what -- type of information setting ** valp -- memory location of info to set ** ** Return: ** Failure: -1 and sets errno ** Success: none (currently). */ /* ARGSUSED2 */ int sm_stdiosetinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { switch (what) { case SM_IO_WHAT_MODE: default: errno = EINVAL; return -1; } } /* ** SM_STDIOGETINFO -- get info for this open file ** ** Parameters: ** fp -- the file pointer ** what -- type of information request ** valp -- memory location to place info ** ** Return: ** Failure: -1 and sets errno ** Success: none (currently). */ /* ARGSUSED2 */ int sm_stdiogetinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { switch (what) { case SM_IO_WHAT_SIZE: { int fd; struct stat st; if (fp->f_cookie == NULL) setup(fp); fd = fileno((FILE *) fp->f_cookie); if (fd < 0) return -1; if (fstat(fd, &st) == 0) return st.st_size; else return -1; } case SM_IO_WHAT_MODE: default: errno = EINVAL; return -1; } } /* ** SM_IO_STDIOOPEN -- create an SM_FILE which interfaces to a stdio FILE ** ** Parameters: ** stream -- an open stdio stream, as returned by fopen() ** mode -- the mode argument to fopen() which describes stream ** ** Return: ** On success, return a pointer to an SM_FILE object which ** can be used for reading and writing 'stream'. ** Abort if mode is gibberish or stream is bad. ** Raise an exception if we can't allocate memory. */ SM_FILE_T * sm_io_stdioopen(stream, mode) FILE *stream; char *mode; { int fd; bool r, w; int ioflags; SM_FILE_T *fp; fd = fileno(stream); SM_REQUIRE(fd >= 0); r = w = false; switch (mode[0]) { case 'r': r = true; break; case 'w': case 'a': w = true; break; default: sm_abort("sm_io_stdioopen: mode '%s' is bad", mode); } if (strchr(&mode[1], '+') != NULL) r = w = true; if (r && w) ioflags = SMRW; else if (r) ioflags = SMRD; else ioflags = SMWR; fp = sm_fp(SmFtRealStdio, ioflags, NULL); fp->f_file = fd; fp->f_cookie = stream; return fp; } sendmail-8.18.1/libsm/rewind.c0000644000372400037240000000211614556365350015531 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: rewind.c,v 1.19 2013-11-22 20:51:43 ca Exp $") #include #include #include #include "local.h" /* ** SM_IO_REWIND -- rewind the file ** ** Seeks the file to the beginning and clears any outstanding errors. ** ** Parameters: ** fp -- the file pointer for rewind ** timeout -- time to complete the rewind ** ** Returns: ** none. */ void sm_io_rewind(fp, timeout) register SM_FILE_T *fp; int timeout; { SM_REQUIRE_ISA(fp, SmFileMagic); (void) sm_io_seek(fp, timeout, 0L, SM_IO_SEEK_SET); (void) sm_io_clearerr(fp); errno = 0; /* not required, but seems reasonable */ } sendmail-8.18.1/libsm/fopen.c0000644000372400037240000002045714556365350015360 0ustar xbuildxbuild/* * Copyright (c) 2000-2002, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fopen.c,v 1.63 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include #include #include #include #include "local.h" static void openalrm __P((int)); static void reopenalrm __P((int)); extern int sm_io_fclose __P((SM_FILE_T *)); static jmp_buf OpenTimeOut, ReopenTimeOut; /* ** OPENALRM -- handler when timeout activated for sm_io_open() ** ** Returns flow of control to where setjmp(OpenTimeOut) was set. ** ** Parameters: ** sig -- unused ** ** Returns: ** does not return ** ** Side Effects: ** returns flow of control to setjmp(OpenTimeOut). ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED0 */ static void openalrm(sig) int sig; { longjmp(OpenTimeOut, 1); } /* ** REOPENALRM -- handler when timeout activated for sm_io_reopen() ** ** Returns flow of control to where setjmp(ReopenTimeOut) was set. ** ** Parameters: ** sig -- unused ** ** Returns: ** does not return ** ** Side Effects: ** returns flow of control to setjmp(ReopenTimeOut). ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED0 */ static void reopenalrm(sig) int sig; { longjmp(ReopenTimeOut, 1); } /* ** SM_IO_OPEN -- open a file of a specific type ** ** Parameters: ** type -- type of file to open ** timeout -- time to complete the open ** info -- info describing what is to be opened (type dependent) ** flags -- user selected flags ** rpool -- pointer to rpool to be used for this open ** ** Returns: ** Raises exception on heap exhaustion. ** Aborts if type is invalid. ** Returns NULL and sets errno ** - when the type specific open fails ** - when open vector errors ** - when flags not set or invalid ** Success returns a file pointer to the opened file type. */ SM_FILE_T * sm_io_open(type, timeout, info, flags, rpool) const SM_FILE_T *type; int SM_NONVOLATILE timeout; /* this is not the file type timeout */ const void *info; int flags; const void *rpool; { register SM_FILE_T *fp; int ioflags; SM_EVENT *evt = NULL; ioflags = sm_flags(flags); if (ioflags == 0) { /* must give some indication/intent */ errno = EINVAL; return NULL; } if (timeout == SM_TIME_DEFAULT) timeout = SM_TIME_FOREVER; if (timeout == SM_TIME_IMMEDIATE) { errno = EAGAIN; return NULL; } fp = sm_fp(type, ioflags, NULL); /* Okay, this is where we set the timeout. */ if (timeout != SM_TIME_FOREVER) { if (setjmp(OpenTimeOut) != 0) { errno = EAGAIN; return NULL; } evt = sm_seteventm(timeout, openalrm, 0); } if ((*fp->f_open)(fp, info, flags, rpool) < 0) { fp->f_flags = 0; /* release */ fp->sm_magic = NULL; /* release */ return NULL; } /* We're back. So undo our timeout and handler */ if (evt != NULL) sm_clrevent(evt); #if SM_RPOOL if (rpool != NULL) sm_rpool_attach_x(rpool, sm_io_fclose, fp); #endif return fp; } /* ** SM_IO_DUP -- duplicate a file pointer ** ** Parameters: ** fp -- file pointer to duplicate ** ** Returns: ** Success - the duplicated file pointer ** Failure - NULL (was an invalid file pointer or too many open) ** ** Increments the duplicate counter (dup_cnt) for the open file pointer. ** The counter counts the number of duplicates. When the duplicate ** counter is 0 (zero) then the file pointer is the only one left ** (no duplicates, it is the only one). */ SM_FILE_T * sm_io_dup(fp) SM_FILE_T *fp; { SM_REQUIRE_ISA(fp, SmFileMagic); if (fp->sm_magic != SmFileMagic) { errno = EBADF; return NULL; } if (fp->f_dup_cnt >= INT_MAX - 1) { /* Can't let f_dup_cnt wrap! */ errno = EMFILE; return NULL; } fp->f_dup_cnt++; return fp; } /* ** SM_IO_REOPEN -- open a new file using the old file pointer ** ** Parameters: ** type -- file type to be opened ** timeout -- time to complete the reopen ** info -- information about what is to be "re-opened" (type dep.) ** flags -- user flags to map to internal flags ** rpool -- rpool file to be associated with ** fp -- the file pointer to reuse ** ** Returns: ** Raises an exception on heap exhaustion. ** Aborts if type is invalid. ** Failure: returns NULL ** Success: returns "reopened" file pointer */ SM_FILE_T * sm_io_reopen(type, timeout, info, flags, rpool, fp) const SM_FILE_T *type; int SM_NONVOLATILE timeout; const void *info; int flags; const void *rpool; SM_FILE_T *fp; { int ioflags, ret; SM_FILE_T *fp2; SM_EVENT *evt = NULL; if ((ioflags = sm_flags(flags)) == 0) { (void) sm_io_close(fp, timeout); return NULL; } if (!Sm_IO_DidInit) sm_init(); if (timeout == SM_TIME_DEFAULT) timeout = SM_TIME_FOREVER; if (timeout == SM_TIME_IMMEDIATE) { /* ** Filling the buffer will take time and we are wanted to ** return immediately. So... */ errno = EAGAIN; return NULL; } /* Okay, this is where we set the timeout. */ if (timeout != SM_TIME_FOREVER) { if (setjmp(ReopenTimeOut) != 0) { errno = EAGAIN; return NULL; } evt = sm_seteventm(timeout, reopenalrm, 0); } /* ** There are actually programs that depend on being able to "reopen" ** descriptors that weren't originally open. Keep this from breaking. ** Remember whether the stream was open to begin with, and which file ** descriptor (if any) was associated with it. If it was attached to ** a descriptor, defer closing it; reopen("/dev/stdin", "r", stdin) ** should work. This is unnecessary if it was not a Unix file. */ if (fp != NULL) { if (fp->sm_magic != SmFileMagic) fp->f_flags = SMFEOF; /* hold on to it */ else { /* flush the stream; ANSI doesn't require this. */ (void) sm_io_flush(fp, SM_TIME_FOREVER); (void) sm_io_close(fp, SM_TIME_FOREVER); } } fp2 = sm_fp(type, ioflags, fp); ret = (*fp2->f_open)(fp2, info, flags, rpool); /* We're back. So undo our timeout and handler */ if (evt != NULL) sm_clrevent(evt); if (ret < 0) { fp2->f_flags = 0; /* release */ fp2->sm_magic = NULL; /* release */ return NULL; } /* ** We're not preserving this logic (below) for sm_io because it is now ** abstracted at least one "layer" away. By closing and reopening ** the 1st fd used should be the just released one (when Unix ** behavior followed). Old comment:: ** If reopening something that was open before on a real file, try ** to maintain the descriptor. Various C library routines (perror) ** assume stderr is always fd STDERR_FILENO, even if being reopen'd. */ #if SM_RPOOL if (rpool != NULL) sm_rpool_attach_x(rpool, sm_io_close, fp2); #endif return fp2; } /* ** SM_IO_AUTOFLUSH -- link another file to this for auto-flushing ** ** When a read occurs on fp, fp2 will be flushed iff there is no ** data waiting on fp. ** ** Parameters: ** fp -- the file opened for reading. ** fp2 -- the file opened for writing. ** ** Returns: ** The old flush file pointer. */ SM_FILE_T * sm_io_autoflush(fp, fp2) SM_FILE_T *fp; SM_FILE_T *fp2; { SM_FILE_T *savefp; SM_REQUIRE_ISA(fp, SmFileMagic); if (fp2 != NULL) SM_REQUIRE_ISA(fp2, SmFileMagic); savefp = fp->f_flushfp; fp->f_flushfp = fp2; return savefp; } /* ** SM_IO_AUTOMODE -- link another file to this for auto-moding ** ** When the mode (blocking or non-blocking) changes for fp1 then ** update fp2's mode at the same time. This is to be used when ** a system dup() has generated a second file descriptor for ** another sm_io_open() by file descriptor. The modes have been ** linked in the system and this formalizes it for sm_io internally. ** ** Parameters: ** fp1 -- the first file ** fp2 -- the second file ** ** Returns: ** nothing */ void sm_io_automode(fp1, fp2) SM_FILE_T *fp1; SM_FILE_T *fp2; { SM_REQUIRE_ISA(fp1, SmFileMagic); SM_REQUIRE_ISA(fp2, SmFileMagic); fp1->f_modefp = fp2; fp2->f_modefp = fp1; } sendmail-8.18.1/libsm/exc.html0000644000372400037240000005642314556365350015554 0ustar xbuildxbuild libsm : Exception Handling Back to libsm overview

    libsm : Exception Handling


    $Id: exc.html,v 1.13 2006-06-20 17:18:16 ca Exp $

    Introduction

    The exception handling package provides the facilities that functions in libsm use to report errors. Here are the basic concepts:
    1. When a function detects an exceptional condition at the library level, it does not print an error message, or call syslog, or exit the program. Instead, it reports the error back to its caller, and lets the caller decide what to do. This improves modularity, because error handling is separated from error reporting.

    2. Errors are not represented by a single integer error code, because then you can't represent everything that an error handler might need to know about an error by a single integer. Instead, errors are represented by exception objects. An exception object contains an exception code and an array of zero or more exception arguments. The exception code is a string that specifies what kind of exception this is, and the arguments may be integers, strings or exception objects.

    3. Errors are not reported using a special return value, because if you religiously check for error returns from every function call that could fail, then most of your code ends up being error handling code. Errors are reported by raising an exception. When an exception is raised, we unwind the call stack until we find an exception handler. If the exception is not handled, then we print the exception on stderr and exit the program.

    Synopsis 

    #include <sm/exc.h>

typedef struct sm_exc_type SM_EXC_TYPE_T;
typedef struct sm_exc SM_EXC_T;
typedef union sm_val SM_VAL_T;

/*
**  Exception types
*/

extern const char SmExcTypeMagic[];

struct sm_exc_type
{
	const char	*sm_magic;
	const char	*etype_category;
	const char	*etype_argformat;
	void 		(*etype_print)(SM_EXC_T *exc, SM_FILE_T *stream);
	const char	*etype_printcontext;
};

extern const SM_EXC_TYPE_T SmEtypeOs;
extern const SM_EXC_TYPE_T SmEtypeErr;

void
sm_etype_printf(
	SM_EXC_T *exc,
	SM_FILE_T *stream);

/*
**  Exception objects
*/

extern const char SmExcMagic[];

union sm_val
{
	int		v_int;
	long		v_long;
	char		*v_str;
	SM_EXC_T	*v_exc;
};

struct sm_exc
{
	const char		*sm_magic;
	size_t			exc_refcount;
	const SM_EXC_TYPE_T	*exc_type;
	SM_VAL_T		*exc_argv;
};

SM_EXC_T *
sm_exc_new_x(
	const SM_EXC_TYPE_T *type,
	...);

SM_EXC_T *
sm_exc_addref(
	SM_EXC_T *exc);

void
sm_exc_free(
	SM_EXC_T *exc);

bool
sm_exc_match(
	SM_EXC_T *exc,
	const char *pattern);

void
sm_exc_print(
	SM_EXC_T *exc,
	SM_FILE_T *stream);

void
sm_exc_write(
	SM_EXC_T *exc,
	SM_FILE_T *stream);

void
sm_exc_raise_x(
	SM_EXC_T *exc);

void
sm_exc_raisenew_x(
	const SM_EXC_TYPE_T *type,
	...);

/*
**  Ensure that cleanup code is executed,
**  and/or handle an exception.
*/
SM_TRY
	Block of code that may raise an exception.
SM_FINALLY
	Cleanup code that may raise an exception.
	This clause is guaranteed to be executed even if an exception is
	raised by the SM_TRY clause or by an earlier SM_FINALLY clause.
	You may have 0 or more SM_FINALLY clauses.
SM_EXCEPT(exc, pattern)
	Exception handling code, triggered by an exception
	whose category matches 'pattern'.
	You may have 0 or more SM_EXCEPT clauses.
SM_END_TRY

    Overview

    An exception is an object which represents an exceptional condition, which might be an error condition like "out of memory", or might be a condition like "end of file".

    Functions in libsm report errors and other unusual conditions by raising an exception, rather than by returning an error code or setting a global variable such as errno. If a libsm function is capable of raising an exception, its name ends in "_x". (We do not raise an exception when a bug is detected in the program; instead, we terminate the program using sm_abort. See the assertion package for details.)

    When you are using the libsm exception handling package, you are using a new programming paradigm. You will need to abandon some of the programming idioms you are accustomed to, and switch to new idioms. Here is an overview of some of these idioms.

    1. When a function is unable to complete its task because of an exceptional condition, it reports this condition by raising an exception.

      Here is an example of how to construct an exception object and raise an exception. In this example, we convert a Unix system error into an exception. 

      fd = open(path, O_RDONLY);
if (fd == -1)
	sm_exc_raise_x(sm_exc_new_x(&SmEtypeOs, errno, "open", "%s", path));
      Because the idiom sm_exc_raise_x(sm_exc_new_x(...)) is so common, it can be abbreviated as sm_exc_raisenew_x(...).

    2. When you detect an error at the application level, you don't call a function like BSD's errx, which prints an error message on stderr and exits the program. Instead, you raise an exception. This causes cleanup code in surrounding exception handlers to be run before the program exits. For example, instead of this: 
      errx(1, "%s:%d: syntax error", filename, lineno);
      use this: 
      sm_exc_raisenew_x(&SmEtypeErr, "%s:%d: syntax error", filename, lineno);
      The latter code raises an exception, unwinding the call stack and executing cleanup code. If the exception is not handled, then the exception is printed to stderr and the program exits. The end result is substantially the same as a call to errx.

    3. The SM_TRY ... SM_FINALLY ... control structure ensures that cleanup code is executed and resources are released in the presence of exceptions.

      For example, suppose that you have written the following code: 

      rpool = sm_rpool_new_x(&SmRpoolRoot, 0);
... some code ...
sm_rpool_free_x(rpool);
      If any of the functions called within "... some code ..." have names ending in _x, then it is possible that an exception will be raised, and if that happens, then "rpool" will not be freed. And that's a bug. To fix this bug, change your code so it looks like this: 
      rpool = sm_rpool_new_x(&SmRpoolRoot, 0);
SM_TRY
	... some code that can raise an exception ...
SM_FINALLY
	sm_rpool_free_x(rpool);
SM_END_TRY
    4. The SM_TRY ... SM_EXCEPT ... control structure handles an exception. Unhandled exceptions terminate the program. For example, here is a simple exception handler that traps all exceptions, and prints the exceptions: 
      SM_TRY
	/* code that can raise an exception */
	...
SM_EXCEPT(exc, "*")
	/* catch all exceptions */
	sm_exc_print(exc, stderr);
SM_END_TRY
      Exceptions are reference counted. The SM_END_TRY macro contains a call to sm_exc_free, so you don't normally need to worry about freeing an exception after handling it. In the rare case that you want an exception to outlive an exception handler, then you increment its reference count by calling sm_exc_addref.

    5. The second argument of the SM_EXCEPT macro is a glob pattern which specifies the types of exceptions that are to be handled. For example, you might want to handle an end-of-file exception differently from other exceptions. Here's how you do that: 
      SM_TRY
	/* code that might raise end-of-file, or some other exception */
	...
SM_EXCEPT(exc, "E:sm.eof")
	/* what to do if end-of-file is encountered */
	...
SM_EXCEPT(exc, "*")
	/* what to do if some other exception is raised */
	...
SM_END_TRY

    Exception Values

    In traditional C code, errors are usually denoted by a single integer, such as errno. In practice, errno does not carry enough information to describe everything that an error handler might want to know about an error. And the scheme is not very extensible: if several different packages want to add additional error codes, it is hard to avoid collisions.

    In libsm, an exceptional condition is described by an object of type SM_EXC_T. An exception object is created by specifying an exception type and a list of exception arguments.

    The exception arguments are an array of zero or more values. The values may be a mixture of ints, longs, strings, and exceptions. In the SM_EXC_T structure, the argument vector is represented by SM_VAL_T *exc_argv, where SM_VAL_T is a union of the possible argument types. The number and types of exception arguments is determined by the exception type.

    An exception type is a statically initialized const object of type SM_EXC_TYPE_T, which has the following members:

    const char *sm_magic
    A pointer to SmExcTypeMagic.

    const char *etype_category
    This is a string of the form "class:name".

    The class is used to assign the exception type to one of a number of broad categories of exceptions on which an exception handler might want to discriminate. I suspect that what we want is a hierarchical taxonomy, but I don't have a full design for this yet. For now, I am recommending the following classes:

    "F"
    A fatal error has occurred. This is an error that prevents the application from making any further progress, so the only recourse is to raise an exception, execute cleanup code as the stack is unwound, then exit the application. The out-of-memory exception raised by sm_malloc_x has category "F:sm.heap" because sendmail commits suicide (after logging the error and cleaning up) when it runs out of memory.
    "E"
    The function could not complete its task because an error occurred. (It might be useful to define subclasses of this category, in which case our taxonomy becomes a tree, and 'F' becomes a subclass of 'E'.)
    "J"
    This exception is being raised in order to effect a non-local jump. No error has occurred; we are just performing the non-local equivalent of a continue, break or return.
    "S"
    The function was interrupted by a signal. Signals are not errors because they occur asynchronously, and they are semantically unrelated to the function that happens to be executing when the signal arrives. Note that it is extremely dangerous to raise an exception from a signal handler. For example, if you are in the middle of a call to malloc, you might corrupt the heap.
    Eric's libsm paper defines "W", "D" and "I" for Warning, Debug and Informational: I suspect these categories only make sense in the context of Eric's 1985 exception handling system which allowed you to raise conditions without terminating the calling function.

    The name uniquely identifies the exception type. I recommend a string of the form library.package.detail.

    const char *etype_argformat
    This is an array of single character codes. Each code indicates the type of one of the exception arguments. sm_exc_new_x uses this string to decode its variable argument list into an exception argument vector. The following type codes are supported:
    i
    The exception argument has type int.
    l
    The exception argument has type long.
    e
    The exception argument has type SM_EXC_T*. The value may either be NULL or a pointer to an exception. The pointer value is simply copied into the exception argument vector.
    s
    The exception argument has type char*. The value may either be NULL or a pointer to a character string. In the latter case, sm_exc_new_x will make a copy of the string.
    r
    The exception argument has type char*. sm_exc_new_x will read a printf-style format string argument followed by a list of printf arguments from its variable argument list, and convert these into a string. This type code can only occur as the last element of exc_argformat.

    void (*etype_print)(SM_EXC_T *exc, SM_FILE_T *stream)
    This function prints an exception of the specified type onto an output stream. The final character printed is not a newline.

    Standard Exceptions and Exception Types

    Libsm defines one standard exception value, SmHeapOutOfMemory. This is a statically initialized const variable, because it seems like a bad idea to dynamically allocate an exception object to report a low memory condition. This exception has category "F:sm.heap". If you need to, you can explicitly raise this exception with sm_exc_raise_x(&SmHeapOutOfMemory).

    Statically initialized exception values cannot contain any run-time parameters, so the normal case is to dynamically allocate a new exception object whenever you raise an exception. Before you can create an exception, you need an exception type. Libsm defines the following standard exception types.

    SmEtypeOs
    This represents a generic operating system error. The category is "E:sm.os". The argformat is "isr", where argv[0] is the value of errno after a system call has failed, argv[1] is the name of the function (usually a system call) that failed, and argv[2] is either NULL or a character string which describes some of the arguments to the failing system call (usually it is just a file name). Here's an example of raising an exception: 
    fd = open(filename, O_RDONLY);
if (fd == -1)
	sm_exc_raisenew_x(&SmEtypeOs, errno, "open", "%s", filename);
    If errno is ENOENT and filename is "/etc/mail/snedmail.cf", then the exception raised by the above code will be printed as 
    /etc/mail/snedmail.cf: open failed: No such file or directory
    SmEtypeErr
    This represents a generic error. The category is "E:sm.err", and the argformat is "r". You can use it in application contexts where you are raising an exception for the purpose of terminating the program. You know the exception won't be handled, so you don't need to worry about packaging the error for later analysis by an exception handler. All you need to specify is the message string that will be printed to stderr before the program exits. For example, 
    sm_exc_raisenew_x(&SmEtypeErr, "name lookup failed: %s", name);

    Custom Exception Types

    If you are writing a library package, and you need to raise exceptions that are not standard Unix system errors, then you need to define one or more new exception types.

    Every new exception type needs a print function. The standard print function sm_etype_printf is all you need in the majority of cases. It prints the etype_printcontext string of the exception type, substituting occurrences of %0 through %9 with the corresponding exception argument. If exception argument 3 is an int or long, then %3 will print the argument in decimal, and %o3 or %x3 will print it in octal or hex.

    In the following example, I will assume that your library package implements regular expressions, and can raise 5 different exceptions. When compiling a regular expression, 3 different syntax errors can be reported:

    • unbalanced parenthesis
    • unbalanced bracket
    • missing argument for repetition operator
    Whenever one of these errors is reported, you will also report the index of the character within the regex string at which the syntax error was detected. The fourth exception is raised if a compiled regular expression is invalid: this exception has no arguments. The fifth exception is raised if the package runs out of memory: for this, you use the standard SmHeapOutOfMemory exception.

    The obvious approach is to define 4 separate exception types. Here they are: 

    /* print a regular expression syntax error */
void
rx_esyntax_print(SM_EXC_T *exc, SM_FILE_T *stream)
{
	sm_io_fprintf(stream, "rx syntax error at character %d: %s",
		exc->exc_argv[0].v_int,
		exc->exc_type->etype_printcontext);
}
SM_EXC_TYPE_T RxSyntaxParen = {
	SmExcTypeMagic,
	"E:mylib.rx.syntax.paren",
	"i",
	rx_esyntax_print,
	"unbalanced parenthesis"
};
SM_EXC_TYPE_T RxSyntaxBracket = {
	SmExcTypeMagic,
	"E:mylib.rx.syntax.bracket",
	"i",
	rx_esyntax_print,
	"unbalanced bracket"
};
SM_EXC_TYPE_T RxSyntaxMissingArg = {
	SmExcTypeMagic,
	"E:mylib.rx.syntax.missingarg",
	"i",
	rx_esyntax_print,
	"missing argument for repetition operator"
};

SM_EXC_TYPE_T RxRunCorrupt = {
	SmExcTypeMagic,
	"E:mylib.rx.run.corrupt",
	"",
	sm_etype_printf,
	"rx runtime error: compiled regular expression is corrupt"
};

    With the above definitions, you can raise a syntax error reporting an unbalanced parenthesis at string offset i using: 

    sm_exc_raisenew_x(&RxSyntaxParen, i);
    If i==42 then this exception will be printed as: 
    rx syntax error at character 42: unbalanced parenthesis
    An exception handler can provide special handling for regular expression syntax errors using this code: 
    SM_TRY
	... code that might raise an exception ...
SM_EXCEPT(exc, "E:mylib.rx.syntax.*")
	int i = exc->exc_argv[0].v_int;
	... handle a regular expression syntax error ...
SM_END_TRY

    External requirements may force you to define an integer code for each error reported by your package. Or you may be wrapping an existing package that works this way. In this case, it might make sense to define a single exception type, patterned after SmEtypeOs, and include the integer code as an exception argument.

    Your package might intercept an exception E generated by a lower level package, and then reclassify it as a different expression E'. For example, a package for reading a configuration file might reclassify one of the regular expression syntax errors from the previous example as a configuration file syntax error. When you do this, the new exception E' should include the original exception E as an exception parameter, and the print function for exception E' should print the high level description of the exception (eg, "syntax error in configuration file %s at line %d\n"), then print the subexception that is stored as an exception parameter.

    Function Reference

    SM_EXC_T *sm_exc_new_x(const SM_EXC_TYPE_T *type, ...)
    Create a new exception. Raise an exception on heap exhaustion. The new exception has a reference count of 1.

    A list of zero or more exception arguments follows the exception type; these are copied into the new exception object. The number and types of these arguments is determined by type->etype_argformat.

    Note that there is no rpool argument to sm_exc_new_x. Exceptions are allocated directly from the heap. This is because exceptions are normally raised at low levels of abstraction and handled at high levels. Because the low level code typically has no idea of how or at what level the exception will be handled, it also has no idea of which resource pool, if any, should own the exception.

    SM_EXC_T *sm_exc_addref(SM_EXC_T *exc)
    Increment the reference count of an exception. Return the first argument.

    void sm_exc_free(SM_EXC_T *exc)
    Decrement the reference count of an exception. If it reaches 0, free the exception object.

    bool sm_exc_match(SM_EXC_T *exc, const char *pattern)
    Compare the exception's category to the specified glob pattern, return true if they match.

    void sm_exc_print(SM_EXC_T *exc, SM_FILE_T *stream)
    Print the exception on the stream as a sequence of one or more newline terminated lines.

    void sm_exc_write(SM_EXC_T *exc, SM_FILE_T *stream)
    Write the exception on the stream without a terminating newline.

    void sm_exc_raise_x(SM_EXC_T *exc)
    Raise the exception. This function does not return to its caller.

    void sm_exc_raisenew_x(const SM_EXC_TYPE_T *type, ...)
    A short form for sm_exc_raise_x(sm_exc_new_x(type,...)).

    Macro Reference

    The SM_TRY ... SM_END_TRY control structure ensures that cleanup code is executed in the presence of exceptions, and permits exceptions to be handled. 
    SM_TRY
	A block of code that may raise an exception.
SM_FINALLY
	Cleanup code that may raise an exception.
	This code is guaranteed to be executed whether or not
	an exception was raised by a previous clause.
	You may have 0 or more SM_FINALLY clauses.
SM_EXCEPT(e, pat)
	Exception handling code, which is triggered by an exception
	whose category matches the glob pattern 'pat'.
	The exception value is bound to the local variable 'e'.
	You may have 0 or more SM_EXCEPT clauses.
SM_END_TRY
    First, the SM_TRY clause is executed, then each SM_FINALLY clause is executed in sequence. If one or more of these clauses was terminated by an exception, then the first such exception is remembered, and the other exceptions are lost. If no exception was raised, then we are done. Otherwise, each of the SM_EXCEPT clauses is examined in sequence. and the first SM_EXCEPT clause whose pattern argument matches the exception (see sm_exc_match) is executed. If none of the SM_EXCEPT clauses matched the exception, or if there are no SM_EXCEPT clauses, then the remembered exception is re-raised.

    SM_TRY .. SM_END_TRY clauses may be nested arbitrarily.

    It is illegal to jump out of a SM_TRY or SM_FINALLY clause using goto, break, continue, return or longjmp. If you do this, you will corrupt the internal exception handling stack. You can't use break or continue in an SM_EXCEPT clause; these are reserved for use by the implementation. It is legal to jump out of an SM_EXCEPT clause using goto or return; however, in this case, you must take responsibility for freeing the exception object.

    The SM_TRY and SM_FINALLY macros contain calls to setjmp, and consequently, they suffer from the limitations imposed on setjmp by the C standard. Suppose you declare an auto variable i outside of a SM_TRY ... SM_END_TRY statement, initializing it to 0. Then you modify i inside of a SM_TRY or SM_FINALLY clause, setting it to 1. If you reference i in a different SM_FINALLY clause, or in an SM_EXCEPT clause, then it is implementation dependent whether i will be 0 or 1, unless you have declared i to be volatile. 

    int volatile i = 0;

SM_TRY
	i = 1;
	...
SM_FINALLY
	/* the following reference to i only works if i is declared volatile */
	use(i);
	...
SM_EXCEPT(exc, "*")
	/* the following reference to i only works if i is declared volatile */
	use(i);
	...
SM_END_TRY
    sendmail-8.18.1/libsm/fpurge.c0000644000372400037240000000223014556365350015526 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fpurge.c,v 1.21 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include "local.h" /* ** SM_IO_PURGE -- purge/empty the buffer without committing buffer content ** ** Parameters: ** fp -- file pointer to purge ** ** Returns: ** Failure: returns SM_IO_EOF and sets errno ** Success: returns 0 (zero) */ int sm_io_purge(fp) register SM_FILE_T *fp; { SM_REQUIRE_ISA(fp, SmFileMagic); if (!fp->f_flags) { errno = EBADF; return SM_IO_EOF; } if (HASUB(fp)) FREEUB(fp); fp->f_p = fp->f_bf.smb_base; fp->f_r = 0; /* implies SMFBF */ fp->f_w = fp->f_flags & (SMLBF|SMNBF) ? 0 : fp->f_bf.smb_size; return 0; } sendmail-8.18.1/libsm/t-sem.c0000644000372400037240000001360114556365350015267 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2005-2008 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: t-sem.c,v 1.18 2013-11-22 20:51:43 ca Exp $") #include #if SM_CONF_SEM # include # include # include # include # include # include # include # include # include # define T_SM_SEM_KEY (4321L) static void delay(t, s) int t; char *s; { if (t > 0) { # if DEBUG fprintf(stderr, "sleep(%d) before %s\n", t, s); # endif sleep(t); } # if DEBUG fprintf(stderr, "%s\n", s); # endif } /* ** SEMINTER -- interactive testing of semaphores. ** ** Parameters: ** owner -- create semaphores. ** ** Returns: ** 0 on success ** < 0 on failure. */ static int seminter(owner) bool owner; { int semid; int t; semid = sm_sem_start(T_SM_SEM_KEY, SM_NSEM, 0, owner); if (semid < 0) { perror("sm_sem_start failed"); return 1; } while ((t = getchar()) != EOF) { switch (t) { case 'a': delay(0, "try to acq"); if (sm_sem_acq(semid, 0, 2) < 0) { perror("sm_sem_acq failed"); return 1; } delay(0, "acquired"); break; case 'r': delay(0, "try to rel"); if (sm_sem_rel(semid, 0, 2) < 0) { perror("sm_sem_rel failed"); return 1; } delay(0, "released"); break; case 'v': if ((t = sm_sem_get(semid, 0)) < 0) { perror("get_sem failed"); return 1; } printf("semval: %d\n", t); break; } } if (owner) return sm_sem_stop(semid); return 0; } /* ** SEM_CLEANUP -- cleanup if something breaks ** ** Parameters: ** sig -- signal. ** ** Returns: ** none. */ static int semid_c = -1; void sem_cleanup(sig) int sig; { if (semid_c >= 0) (void) sm_sem_stop(semid_c); exit(EX_UNAVAILABLE); } static int drop_priv(uid, gid) uid_t uid; gid_t gid; { int r; r = setgid(gid); if (r != 0) return r; r = setuid(uid); return r; } /* ** SEMTEST -- test of semaphores ** ** Parameters: ** owner -- create semaphores. ** ** Returns: ** 0 on success ** < 0 on failure. */ # define MAX_CNT 10 static int semtest(owner, uid, gid) int owner; uid_t uid; gid_t gid; { int semid, r; int cnt = 0; if (!owner && uid != 0) { r = drop_priv(uid, gid); if (r < 0) { perror("drop_priv child failed"); return -1; } } semid = sm_sem_start(T_SM_SEM_KEY, 1, 0, owner); if (semid < 0) { perror("sm_sem_start failed"); return -1; } if (owner) { if (uid != 0) { r = sm_semsetowner(semid, uid, gid, 0660); if (r < 0) { perror("sm_semsetowner failed"); return -1; } r = drop_priv(uid, gid); if (r < 0) { perror("drop_priv owner failed"); return -1; } } /* just in case someone kills the program... */ semid_c = semid; (void) sm_signal(SIGHUP, sem_cleanup); (void) sm_signal(SIGINT, sem_cleanup); (void) sm_signal(SIGTERM, sem_cleanup); delay(1, "parent: acquire 1"); cnt = 0; do { r = sm_sem_acq(semid, 0, 0); if (r < 0) { sleep(1); ++cnt; } } while (r < 0 && cnt <= MAX_CNT); SM_TEST(r >= 0); if (r < 0) return r; delay(3, "parent: release 1"); cnt = 0; do { r = sm_sem_rel(semid, 0, 0); if (r < 0) { sleep(1); ++cnt; } } while (r < 0 && cnt <= MAX_CNT); SM_TEST(r >= 0); if (r < 0) return r; delay(1, "parent: getval"); cnt = 0; do { r = sm_sem_get(semid, 0); if (r <= 0) { sleep(1); ++cnt; } } while (r <= 0 && cnt <= MAX_CNT); SM_TEST(r > 0); if (r <= 0) return r; delay(1, "parent: acquire 2"); cnt = 0; do { r = sm_sem_acq(semid, 0, 0); if (r < 0) { sleep(1); ++cnt; } } while (r < 0 && cnt <= MAX_CNT); SM_TEST(r >= 0); if (r < 0) return r; cnt = 0; do { r = sm_sem_rel(semid, 0, 0); if (r < 0) { sleep(1); ++cnt; } } while (r < 0 && cnt <= MAX_CNT); SM_TEST(r >= 0); if (r < 0) return r; } else { delay(1, "child: acquire 1"); cnt = 0; do { r = sm_sem_acq(semid, 0, 0); if (r < 0) { sleep(1); ++cnt; } } while (r < 0 && cnt <= MAX_CNT); SM_TEST(r >= 0); if (r < 0) return r; delay(1, "child: release 1"); cnt = 0; do { r = sm_sem_rel(semid, 0, 0); if (r < 0) { sleep(1); ++cnt; } } while (r < 0 && cnt <= MAX_CNT); SM_TEST(r >= 0); if (r < 0) return r; } if (owner) return sm_sem_stop(semid); return 0; } int main(argc, argv) int argc; char *argv[]; { bool interactive = false; bool owner = false; int ch, r; uid_t uid; gid_t gid; uid = 0; gid = 0; r = 0; # define OPTIONS "iog:u:" while ((ch = getopt(argc, argv, OPTIONS)) != -1) { switch ((char) ch) { case 'g': gid = (gid_t)strtoul(optarg, 0, 0); break; case 'i': interactive = true; break; case 'u': uid = (uid_t)strtoul(optarg, 0, 0); break; case 'o': owner = true; break; default: break; } } if (interactive) r = seminter(owner); else { pid_t pid; printf("This test takes about 8 seconds.\n"); printf("If it takes longer than 30 seconds, please interrupt it\n"); printf("and compile again without semaphore support, i.e.,"); printf("-DSM_CONF_SEM=0\n"); if ((pid = fork()) < 0) { perror("fork failed\n"); return -1; } sm_test_begin(argc, argv, "test semaphores"); if (pid == 0) { /* give the parent the chance to setup data */ sleep(1); r = semtest(false, uid, gid); } else { r = semtest(true, uid, gid); } SM_TEST(r == 0); return sm_test_end(); } return r; } #else /* SM_CONF_SEM */ int main(argc, argv) int argc; char *argv[]; { printf("No support for semaphores configured on this machine\n"); return 0; } #endif /* SM_CONF_SEM */ sendmail-8.18.1/libsm/stdio.c0000644000372400037240000002331514556365350015367 0ustar xbuildxbuild/* * Copyright (c) 2000-2005 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: stdio.c,v 1.72 2013-11-22 20:51:43 ca Exp $") #include #include #include #include /* FreeBSD: FD_ZERO needs */ #include #include #include #include #include #include #include #include #include #include "local.h" static int sm_stdsetmode __P((SM_FILE_T *, const int *)); static int sm_stdgetmode __P((SM_FILE_T *, int *)); /* ** Overall: ** Small standard I/O/seek/close functions. ** These maintain the `known seek offset' for seek optimization. */ /* ** SM_STDOPEN -- open a file with stdio behavior ** ** Not associated with the system's stdio in libc. ** ** Parameters: ** fp -- file pointer to be associated with the open ** info -- pathname of the file to be opened ** flags -- indicates type of access methods ** rpool -- ignored ** ** Returns: ** Failure: -1 and set errno ** Success: 0 or greater (fd of file from open(2)). ** */ /* ARGSUSED3 */ int sm_stdopen(fp, info, flags, rpool) SM_FILE_T *fp; const void *info; int flags; const void *rpool; { char *path = (char *) info; int oflags; switch (SM_IO_MODE(flags)) { case SM_IO_RDWR: oflags = O_RDWR; break; case SM_IO_RDWRTR: oflags = O_RDWR | O_CREAT | O_TRUNC; break; case SM_IO_RDONLY: oflags = O_RDONLY; break; case SM_IO_WRONLY: oflags = O_WRONLY | O_CREAT | O_TRUNC; break; case SM_IO_APPEND: oflags = O_APPEND | O_WRONLY | O_CREAT; break; case SM_IO_APPENDRW: oflags = O_APPEND | O_RDWR | O_CREAT; break; default: errno = EINVAL; return -1; } #ifdef O_BINARY if (SM_IS_BINARY(flags)) oflags |= O_BINARY; #endif fp->f_file = open(path, oflags, S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH); if (fp->f_file < 0) return -1; /* errno set by open() */ if (oflags & O_APPEND) (void) (*fp->f_seek)((void *)fp, (off_t)0, SEEK_END); return fp->f_file; } /* ** SM_STDREAD -- read from the file ** ** Parameters: ** fp -- file pointer to read from ** buf -- location to place read data ** n -- number of bytes to read ** ** Returns: ** Failure: -1 and sets errno ** Success: number of bytes read ** ** Side Effects: ** Updates internal offset for file. */ ssize_t sm_stdread(fp, buf, n) SM_FILE_T *fp; char *buf; size_t n; { register int ret; ret = read(fp->f_file, buf, n); /* if the read succeeded, update the current offset */ if (ret > 0) fp->f_lseekoff += ret; return ret; } /* ** SM_STDWRITE -- write to the file ** ** Parameters: ** fp -- file pointer ro write to ** buf -- location of data to be written ** n - number of bytes to write ** ** Returns: ** Failure: -1 and sets errno ** Success: number of bytes written */ ssize_t sm_stdwrite(fp, buf, n) SM_FILE_T *fp; char const *buf; size_t n; { return write(fp->f_file, buf, n); } /* ** SM_STDSEEK -- set the file offset position ** ** Parameters: ** fp -- file pointer to position ** offset -- how far to position from "base" (set by 'whence') ** whence -- indicates where the "base" of the 'offset' to start ** ** Results: ** Failure: -1 and sets errno ** Success: the current offset ** ** Side Effects: ** Updates the internal value of the offset. */ off_t sm_stdseek(fp, offset, whence) SM_FILE_T *fp; off_t offset; int whence; { register off_t ret; ret = lseek(fp->f_file, (off_t) offset, whence); if (ret != (off_t) -1) fp->f_lseekoff = ret; return ret; } /* ** SM_STDCLOSE -- close the file ** ** Parameters: ** fp -- the file pointer to close ** ** Returns: ** Success: 0 (zero) ** Failure: -1 and sets errno */ int sm_stdclose(fp) SM_FILE_T *fp; { return close(fp->f_file); } /* ** SM_STDSETMODE -- set the access mode for the file ** ** Called by sm_stdsetinfo(). ** ** Parameters: ** fp -- file pointer ** mode -- new mode to set the file access to ** ** Results: ** Success: 0 (zero); ** Failure: -1 and sets errno */ static int sm_stdsetmode(fp, mode) SM_FILE_T *fp; const int *mode; { int flags = 0; switch (SM_IO_MODE(*mode)) { case SM_IO_RDWR: flags |= SMRW; break; case SM_IO_RDONLY: flags |= SMRD; break; case SM_IO_WRONLY: flags |= SMWR; break; case SM_IO_APPEND: default: errno = EINVAL; return -1; } fp->f_flags = fp->f_flags & ~SMMODEMASK; fp->f_flags |= flags; return 0; } /* ** SM_STDGETMODE -- for getinfo determine open mode ** ** Called by sm_stdgetinfo(). ** ** Parameters: ** fp -- the file mode being determined ** mode -- internal mode to map to external value ** ** Results: ** Failure: -1 and sets errno ** Success: external mode value */ static int sm_stdgetmode(fp, mode) SM_FILE_T *fp; int *mode; { switch (fp->f_flags & SMMODEMASK) { case SMRW: *mode = SM_IO_RDWR; break; case SMRD: *mode = SM_IO_RDONLY; break; case SMWR: *mode = SM_IO_WRONLY; break; default: errno = EINVAL; return -1; } return 0; } /* ** SM_STDSETINFO -- set/modify information for a file ** ** Parameters: ** fp -- file to set info for ** what -- type of info to set ** valp -- location of data used for setting ** ** Returns: ** Failure: -1 and sets errno ** Success: >=0 */ int sm_stdsetinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { switch (what) { case SM_IO_WHAT_MODE: return sm_stdsetmode(fp, (const int *)valp); default: errno = EINVAL; return -1; } } /* ** SM_STDGETINFO -- get information about the open file ** ** Parameters: ** fp -- file to get info for ** what -- type of info to get ** valp -- location to place found info ** ** Returns: ** Success: may or may not place info in 'valp' depending ** on 'what' value, and returns values >=0. Return ** value may be the obtained info ** Failure: -1 and sets errno */ int sm_stdgetinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { switch (what) { case SM_IO_WHAT_MODE: return sm_stdgetmode(fp, (int *)valp); case SM_IO_WHAT_FD: return fp->f_file; case SM_IO_WHAT_SIZE: { struct stat st; if (fstat(fp->f_file, &st) == 0) return st.st_size; else return -1; } case SM_IO_IS_READABLE: { fd_set readfds; struct timeval timeout; if (SM_FD_SETSIZE > 0 && fp->f_file >= SM_FD_SETSIZE) { errno = EINVAL; return -1; } FD_ZERO(&readfds); SM_FD_SET(fp->f_file, &readfds); timeout.tv_sec = 0; timeout.tv_usec = 0; if (select(fp->f_file + 1, FDSET_CAST &readfds, NULL, NULL, &timeout) > 0 && SM_FD_ISSET(fp->f_file, &readfds)) return 1; return 0; } default: errno = EINVAL; return -1; } } /* ** SM_STDFDOPEN -- open file by primitive 'fd' rather than pathname ** ** I/O function to handle fdopen() stdio equivalence. The rest of ** the functions are the same as the sm_stdopen() above. ** ** Parameters: ** fp -- the file pointer to be associated with the open ** name -- the primitive file descriptor for association ** flags -- indicates type of access methods ** rpool -- ignored ** ** Results: ** Success: primitive file descriptor value ** Failure: -1 and sets errno */ /* ARGSUSED3 */ int sm_stdfdopen(fp, info, flags, rpool) SM_FILE_T *fp; const void *info; int flags; const void *rpool; { int oflags, tmp, fdflags, fd = *((int *) info); switch (SM_IO_MODE(flags)) { case SM_IO_RDWR: oflags = O_RDWR | O_CREAT; break; case SM_IO_RDONLY: oflags = O_RDONLY; break; case SM_IO_WRONLY: oflags = O_WRONLY | O_CREAT | O_TRUNC; break; case SM_IO_APPEND: oflags = O_APPEND | O_WRONLY | O_CREAT; break; case SM_IO_APPENDRW: oflags = O_APPEND | O_RDWR | O_CREAT; break; default: errno = EINVAL; return -1; } #ifdef O_BINARY if (SM_IS_BINARY(flags)) oflags |= O_BINARY; #endif /* Make sure the mode the user wants is a subset of the actual mode. */ if ((fdflags = fcntl(fd, F_GETFL, 0)) < 0) return -1; tmp = fdflags & O_ACCMODE; if (tmp != O_RDWR && (tmp != (oflags & O_ACCMODE))) { errno = EINVAL; return -1; } fp->f_file = fd; if (oflags & O_APPEND) (void) (*fp->f_seek)(fp, (off_t)0, SEEK_END); return fp->f_file; } /* ** SM_IO_FOPEN -- open a file ** ** Same interface and semantics as the open() system call, ** except that it returns SM_FILE_T* instead of a file descriptor. ** ** Parameters: ** pathname -- path of file to open ** flags -- flags controlling the open ** ... -- option "mode" for opening the file ** ** Returns: ** Raises an exception on heap exhaustion. ** Returns NULL and sets errno if open() fails. ** Returns an SM_FILE_T pointer on success. */ SM_FILE_T * #if SM_VA_STD sm_io_fopen(char *pathname, int flags, ...) #else /* SM_VA_STD */ sm_io_fopen(pathname, flags, va_alist) char *pathname; int flags; va_dcl #endif /* SM_VA_STD */ { MODE_T mode; SM_FILE_T *fp; int ioflags; if (flags & O_CREAT) { SM_VA_LOCAL_DECL SM_VA_START(ap, flags); mode = (MODE_T) SM_VA_ARG(ap, int); SM_VA_END(ap); } else mode = 0; switch (flags & O_ACCMODE) { case O_RDONLY: ioflags = SMRD; break; case O_WRONLY: ioflags = SMWR; break; case O_RDWR: ioflags = SMRW; break; default: sm_abort("sm_io_fopen: bad flags 0%o", flags); } fp = sm_fp(SmFtStdio, ioflags, NULL); fp->f_file = open(pathname, flags, mode); if (fp->f_file == -1) { fp->f_flags = 0; fp->sm_magic = NULL; return NULL; } return fp; } sendmail-8.18.1/libsm/t-float.c0000644000372400037240000000343714556365350015616 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-float.c,v 1.19 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include int main(argc, argv) int argc; char **argv; { double d, d2; double ld; char buf[128]; char *r; /* ** Sendmail uses printf and scanf with doubles, ** so make sure that this works. */ sm_test_begin(argc, argv, "test floating point stuff"); d = 1.125; sm_snprintf(buf, sizeof(buf), "%d %.3f %d", 0, d, 1); r = "0 1.125 1"; if (!SM_TEST(strcmp(buf, r) == 0)) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "got %s instead\n", buf); d = 1.125; sm_snprintf(buf, sizeof(buf), "%.3f", d); r = "1.125"; if (!SM_TEST(strcmp(buf, r) == 0)) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "got %s instead\n", buf); d2 = 0.0; sm_io_sscanf(buf, "%lf", &d2); #if SM_CONF_BROKEN_STRTOD if (d != d2) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "wanted %f, got %f\n", d, d2); (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "error ignored since SM_CONF_BROKEN_STRTOD is set for this OS\n"); } #else /* SM_CONF_BROKEN_STRTOD */ if (!SM_TEST(d == d2)) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "wanted %f, got %f\n", d, d2); #endif /* SM_CONF_BROKEN_STRTOD */ ld = 2.5; sm_snprintf(buf, sizeof(buf), "%.3f %.1f", d, ld); r = "1.125 2.5"; if (!SM_TEST(strcmp(buf, r) == 0)) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "got %s instead\n", buf); return sm_test_end(); } sendmail-8.18.1/libsm/t-memstat.c0000644000372400037240000000425314556365350016160 0ustar xbuildxbuild/* * Copyright (c) 2005-2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-memstat.c,v 1.11 2013-11-22 20:51:43 ca Exp $") #include /* ** Simple test program for memstat */ #include #include #include #include #include extern char *optarg; extern int optind; void usage(prg) char *prg; { fprintf(stderr, "usage: %s [options]\n", prg); fprintf(stderr, "options:\n"); fprintf(stderr, "-l n loop n times\n"); fprintf(stderr, "-m n allocate n bytes per iteration\n"); fprintf(stderr, "-r name use name as resource to query\n"); fprintf(stderr, "-s n sleep n seconds per iteration\n"); } int main(argc, argv) int argc; char **argv; { int r, r2, i, l, slp, sz; long v; char *resource; l = 1; sz = slp = 0; resource = NULL; while ((r = getopt(argc, argv, "l:m:r:s:")) != -1) { switch ((char) r) { case 'l': l = strtol(optarg, NULL, 0); break; case 'm': sz = strtol(optarg, NULL, 0); break; case 'r': resource = strdup(optarg); if (resource == NULL) { fprintf(stderr, "strdup(%s) failed\n", optarg); exit(1); } break; case 's': slp = strtol(optarg, NULL, 0); break; default: usage(argv[0]); exit(1); } } r = sm_memstat_open(); r2 = -1; for (i = 0; i < l; i++) { char *mem; r2 = sm_memstat_get(resource, &v); if (slp > 0 && i + 1 < l && 0 == r) { printf("open=%d, memstat=%d, %s=%ld\n", r, r2, resource != NULL ? resource : "default-value", v); sleep(slp); if (sz > 0) { /* ** Just allocate some memory to test the ** values that are returned. ** Note: this is a memory leak, but that ** doesn't matter here. */ mem = malloc(sz); if (NULL == mem) printf("malloc(%d) failed\n", sz); } } } printf("open=%d, memstat=%d, %s=%ld\n", r, r2, resource != NULL ? resource : "default-value", v); r = sm_memstat_close(); return r; } sendmail-8.18.1/libsm/t-strrevcmp.c0000644000372400037240000000174214556365350016533 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-strrevcmp.c,v 1.4 2013-11-22 20:51:44 ca Exp $") #include #include #include #include int main(argc, argv) int argc; char **argv; { char *s1; char *s2; sm_test_begin(argc, argv, "test string compare"); s1 = "equal"; s2 = "equal"; SM_TEST(sm_strrevcmp(s1, s2) == 0); s1 = "equal"; s2 = "qual"; SM_TEST(sm_strrevcmp(s1, s2) > 0); s1 = "qual"; s2 = "equal"; SM_TEST(sm_strrevcmp(s1, s2) < 0); s1 = "Equal"; s2 = "equal"; SM_TEST(sm_strrevcmp(s1, s2) < 0); s1 = "Equal"; s2 = "equal"; SM_TEST(sm_strrevcasecmp(s1, s2) == 0); s1 = "Equal"; s2 = "eQuaL"; SM_TEST(sm_strrevcasecmp(s1, s2) == 0); return sm_test_end(); } sendmail-8.18.1/libsm/fvwrite.h0000644000372400037240000000134414556365350015736 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: fvwrite.h,v 1.8 2013-11-22 20:51:43 ca Exp $ */ /* I/O descriptors for sm_fvwrite() */ struct sm_iov { void *iov_base; size_t iov_len; }; struct sm_uio { struct sm_iov *uio_iov; int uio_iovcnt; int uio_resid; }; extern int sm_fvwrite __P((SM_FILE_T *, int, struct sm_uio *)); sendmail-8.18.1/libsm/Makefile.m40000644000372400037240000000421514556365350016056 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 1.75 2013-08-27 19:02:10 ca Exp $ define(`confREQUIRE_LIBUNIX') include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_LIBSM', `true') define(`confREQUIRE_SM_OS_H', `true') PREPENDDEF(`confENVDEF', `confMAPDEF') bldPRODUCT_START(`library', `libsm') define(`bldSOURCES', ` assert.c debug.c errstring.c exc.c heap.c match.c rpool.c strdup.c strerror.c strl.c clrerr.c fclose.c feof.c ferror.c fflush.c fget.c fpos.c findfp.c flags.c fopen.c fprintf.c fpurge.c fput.c fread.c fscanf.c fseek.c fvwrite.c fwalk.c fwrite.c get.c makebuf.c put.c refill.c rewind.c setvbuf.c smstdio.c snprintf.c sscanf.c stdio.c strio.c ungetc.c vasprintf.c vfprintf.c vfscanf.c vprintf.c vsnprintf.c wbuf.c wsetup.c string.c stringf.c xtrap.c strto.c test.c strcasecmp.c strrevcmp.c signal.c clock.c config.c shm.c sem.c mbdb.c strexit.c cf.c ldap.c niprop.c mpeix.c memstat.c util.c inet6_ntop.c notify.c ilenx.c xleni.c utf8_valid.c uxtext_unquote.c lowercase.c strcaseeq.c ') bldPRODUCT_END dnl msg.c dnl syslogio.c srcdir=${SRCDIR}/libsm define(`confCHECK_LIBS',`libsm.a')dnl include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/check.m4') smcheck(`t-event', `compile-run') smcheck(`t-exc', `compile-run') smcheck(`t-rpool', `compile-run') smcheck(`t-string', `compile-run') smcheck(`t-smstdio', `compile-run') smcheck(`t-fget', `compile-run') smcheck(`t-match', `compile-run') smcheck(`t-strio', `compile-run') smcheck(`t-heap', `compile-run') smcheck(`t-fopen', `compile-run') smcheck(`t-strl', `compile-run') smcheck(`t-strrevcmp', `compile-run') smcheck(`t-types', `compile-run') smcheck(`t-path', `compile-run') smcheck(`t-float', `compile-run') smcheck(`t-scanf', `compile-run') smcheck(`t-shm', `compile-run') smcheck(`t-sem', `compile-run') smcheck(`t-inet6_ntop', `compile-run') smcheck(`t-cf') smcheck(`b-strcmp') dnl SM_CONF_STRL cannot be turned off dnl smcheck(`b-strl') smcheck(`t-memstat') smcheck(`t-qic', `compile-run') smcheck(`t-str2prt', `compile-run') dnl ? smcheck(`t-isprint', `compile-run') smcheck(`t-ixlen', `compile') smcheck(`t-ixlen.sh', `run') smcheck(`t-streq', `compile') smcheck(`t-streq.sh', `run') divert(bldTARGETS_SECTION) divert(0) bldFINISH sendmail-8.18.1/libsm/strio.c0000644000372400037240000002226414556365350015407 0ustar xbuildxbuild/* * Copyright (c) 2000-2002, 2004, 2005 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: strio.c,v 1.45 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include #include #include #include #include "local.h" static int sm_strsetmode __P((SM_FILE_T*, const int *)); static int sm_strgetmode __P((SM_FILE_T*, int *)); /* ** Cookie structure for the "strio" file type */ struct sm_str_obj { char *strio_base; char *strio_end; size_t strio_size; size_t strio_offset; int strio_flags; const void *strio_rpool; }; typedef struct sm_str_obj SM_STR_OBJ_T; /* ** SM_STRGROW -- increase storage space for string ** ** Parameters: ** s -- current cookie ** size -- new storage size request ** ** Returns: ** true iff successful. */ static bool sm_strgrow __P((SM_STR_OBJ_T *, size_t)); static bool sm_strgrow(s, size) SM_STR_OBJ_T *s; size_t size; { register void *p; if (s->strio_size >= size) return true; p = sm_realloc(s->strio_base, size); if (p == NULL) return false; s->strio_base = p; s->strio_end = s->strio_base + size; s->strio_size = size; return true; } /* ** SM_STRREAD -- read a portion of the string ** ** Parameters: ** fp -- the file pointer ** buf -- location to place read data ** n -- number of bytes to read ** ** Returns: ** Failure: -1 and sets errno ** Success: >=0, number of bytes read */ ssize_t sm_strread(fp, buf, n) SM_FILE_T *fp; char *buf; size_t n; { register SM_STR_OBJ_T *s = fp->f_cookie; int len; if (!(s->strio_flags & SMRD) && !(s->strio_flags & SMRW)) { errno = EBADF; return -1; } len = SM_MIN(s->strio_size - s->strio_offset, n); (void) memmove(buf, s->strio_base + s->strio_offset, len); s->strio_offset += len; return len; } /* ** SM_STRWRITE -- write a portion of the string ** ** Parameters: ** fp -- the file pointer ** buf -- location of data for writing ** n -- number of bytes to write ** ** Returns: ** Failure: -1 and sets errno ** Success: >=0, number of bytes written */ ssize_t sm_strwrite(fp, buf, n) SM_FILE_T *fp; char const *buf; size_t n; { register SM_STR_OBJ_T *s = fp->f_cookie; if (!(s->strio_flags & SMWR) && !(s->strio_flags & SMRW)) { errno = EBADF; return -1; } if (n + s->strio_offset > s->strio_size) { if (!sm_strgrow(s, n + s->strio_offset)) return 0; } (void) memmove(s->strio_base + s->strio_offset, buf, n); s->strio_offset += n; return n; } /* ** SM_STRSEEK -- position the offset pointer for the string ** ** Only SM_IO_SEEK_SET, SM_IO_SEEK_CUR and SM_IO_SEEK_END are valid ** values for whence. ** ** Parameters: ** fp -- the file pointer ** offset -- number of bytes offset from "base" ** whence -- determines "base" for 'offset' ** ** Returns: ** Failure: -1 and sets errno ** Success: >=0, number of bytes read */ off_t sm_strseek(fp, offset, whence) SM_FILE_T *fp; off_t offset; int whence; { register off_t ret; register SM_STR_OBJ_T *s = fp->f_cookie; reseek: switch (whence) { case SM_IO_SEEK_SET: ret = offset; break; case SM_IO_SEEK_CUR: ret = s->strio_offset + offset; break; case SM_IO_SEEK_END: ret = s->strio_size; break; default: errno = EINVAL; return -1; } if (ret < 0 || ret > (off_t)(size_t)(-1)) /* XXX ugly */ return -1; if ((size_t) ret > s->strio_size) { if (sm_strgrow(s, (size_t)ret)) goto reseek; /* errno set by sm_strgrow */ return -1; } s->strio_offset = (size_t) ret; return ret; } /* ** SM_STROPEN -- open a string file type ** ** Parameters: ** fp -- file pointer open to be associated with ** info -- initial contents (NULL for none) ** flags -- flags for methods of access (was mode) ** rpool -- resource pool to use memory from (if applicable) ** ** Results: ** Success: 0 (zero) ** Failure: -1 and sets errno */ int sm_stropen(fp, info, flags, rpool) SM_FILE_T *fp; const void *info; int flags; const void *rpool; { register SM_STR_OBJ_T *s; #if SM_RPOOL s = sm_rpool_malloc_x(rpool, sizeof(SM_STR_OBJ_T)); #else s = sm_malloc(sizeof(SM_STR_OBJ_T)); if (s == NULL) return -1; #endif fp->f_cookie = s; s->strio_rpool = rpool; s->strio_offset = 0; s->strio_size = 0; s->strio_base = NULL; s->strio_end = NULL; switch (flags) { case SM_IO_RDWR: s->strio_flags = SMRW; break; case SM_IO_RDONLY: s->strio_flags = SMRD; break; case SM_IO_WRONLY: s->strio_flags = SMWR; break; case SM_IO_APPEND: if (s->strio_rpool == NULL) sm_free(s); errno = EINVAL; return -1; default: if (s->strio_rpool == NULL) sm_free(s); errno = EINVAL; return -1; } if (info != NULL) { s->strio_base = sm_strdup_x(info); if (s->strio_base == NULL) { int save_errno = errno; if (s->strio_rpool == NULL) sm_free(s); errno = save_errno; return -1; } s->strio_size = strlen(info); s->strio_end = s->strio_base + s->strio_size; } return 0; } /* ** SM_STRCLOSE -- close the string file type and free resources ** ** Parameters: ** fp -- file pointer ** ** Results: ** Success: 0 (zero) */ int sm_strclose(fp) SM_FILE_T *fp; { SM_STR_OBJ_T *s = fp->f_cookie; #if !SM_RPOOL sm_free(s->strio_base); s->strio_base = NULL; #endif return 0; } /* ** SM_STRSETMODE -- set mode info for the file ** ** Note: changing the mode can be a safe way to have the "parent" ** set up a string that the "child" is not to modify ** ** Parameters: ** fp -- the file pointer ** mode -- location of new mode to set ** ** Results: ** Success: 0 (zero) ** Failure: -1 and sets errno */ static int sm_strsetmode(fp, mode) SM_FILE_T *fp; const int *mode; { register SM_STR_OBJ_T *s = fp->f_cookie; int flags; switch (*mode) { case SM_IO_RDWR: flags = SMRW; break; case SM_IO_RDONLY: flags = SMRD; break; case SM_IO_WRONLY: flags = SMWR; break; case SM_IO_APPEND: errno = EINVAL; return -1; default: errno = EINVAL; return -1; } s->strio_flags &= ~SMMODEMASK; s->strio_flags |= flags; return 0; } /* ** SM_STRGETMODE -- get mode info for the file ** ** Parameters: ** fp -- the file pointer ** mode -- location to store current mode ** ** Results: ** Success: 0 (zero) ** Failure: -1 and sets errno */ static int sm_strgetmode(fp, mode) SM_FILE_T *fp; int *mode; { register SM_STR_OBJ_T *s = fp->f_cookie; switch (s->strio_flags & SMMODEMASK) { case SMRW: *mode = SM_IO_RDWR; break; case SMRD: *mode = SM_IO_RDONLY; break; case SMWR: *mode = SM_IO_WRONLY; break; default: errno = EINVAL; return -1; } return 0; } /* ** SM_STRSETINFO -- set info for the file ** ** Currently only SM_IO_WHAT_MODE is supported for 'what'. ** ** Parameters: ** fp -- the file pointer ** what -- type of information to set ** valp -- location to data for doing set ** ** Results: ** Failure: -1 and sets errno ** Success: sm_strsetmode() return [0 (zero)] */ int sm_strsetinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { switch(what) { case SM_IO_WHAT_MODE: return sm_strsetmode(fp, (int *) valp); default: errno = EINVAL; return -1; } } /* ** SM_STRGETINFO -- get info for the file ** ** Currently only SM_IO_WHAT_MODE is supported for 'what'. ** ** Parameters: ** fp -- the file pointer ** what -- type of information requested ** valp -- location to return information in ** ** Results: ** Failure: -1 and sets errno ** Success: sm_strgetmode() return [0 (zero)] */ int sm_strgetinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { switch(what) { case SM_IO_WHAT_MODE: return sm_strgetmode(fp, (int *) valp); default: errno = EINVAL; return -1; } } /* ** SM_STRIO_INIT -- initializes a write-only string type ** ** Original comments below. This function does not appear to be used anywhere. ** The same functionality can be done by changing the mode of the file. ** ------------ ** sm_strio_init initializes an SM_FILE_T structure as a write-only file ** that writes into the specified buffer: ** - Use sm_io_putc, sm_io_fprintf, etc, to write into the buffer. ** Attempts to write more than size-1 characters into the buffer will fail ** silently (no error is reported). ** - Use sm_io_fflush to nul terminate the string in the buffer ** (the write pointer is not advanced). ** No memory is allocated either by sm_strio_init or by sm_io_{putc,write} etc. ** ** Parameters: ** fp -- file pointer ** buf -- memory location for stored data ** size -- size of 'buf' ** ** Results: ** none. */ void sm_strio_init(fp, buf, size) SM_FILE_T *fp; char *buf; size_t size; { fp->sm_magic = SmFileMagic; fp->f_flags = SMWR | SMSTR; fp->f_file = -1; fp->f_bf.smb_base = fp->f_p = (unsigned char *) buf; fp->f_bf.smb_size = fp->f_w = (size ? size - 1 : 0); fp->f_lbfsize = 0; fp->f_r = 0; fp->f_read = NULL; fp->f_seek = NULL; fp->f_getinfo = NULL; fp->f_setinfo = NULL; } sendmail-8.18.1/libsm/local.h0000644000372400037240000002266014556365350015346 0ustar xbuildxbuild/* * Copyright (c) 2000-2002, 2004-2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: local.h,v 1.59 2013-11-22 20:51:43 ca Exp $ */ /* ** Information local to this implementation of stdio, ** in particular, macros and private variables. */ #include #include #if !SM_CONF_MEMCHR # include #endif #include int sm_flush __P((SM_FILE_T *, int *)); SM_FILE_T *smfp __P((void)); int sm_refill __P((SM_FILE_T *, int)); void sm_init __P((void)); void sm_cleanup __P((void)); void sm_makebuf __P((SM_FILE_T *)); int sm_whatbuf __P((SM_FILE_T *, size_t *, int *)); int sm_fwalk __P((int (*)(SM_FILE_T *, int *), int *)); int sm_wsetup __P((SM_FILE_T *)); int sm_flags __P((int)); SM_FILE_T *sm_fp __P((const SM_FILE_T *, const int, SM_FILE_T *)); int sm_vprintf __P((int, char const *, va_list)); /* std io functions */ ssize_t sm_stdread __P((SM_FILE_T *, char *, size_t)); ssize_t sm_stdwrite __P((SM_FILE_T *, char const *, size_t)); off_t sm_stdseek __P((SM_FILE_T *, off_t, int)); int sm_stdclose __P((SM_FILE_T *)); int sm_stdopen __P((SM_FILE_T *, const void *, int, const void *)); int sm_stdfdopen __P((SM_FILE_T *, const void *, int, const void *)); int sm_stdsetinfo __P((SM_FILE_T *, int , void *)); int sm_stdgetinfo __P((SM_FILE_T *, int , void *)); /* stdio io functions */ ssize_t sm_stdioread __P((SM_FILE_T *, char *, size_t)); ssize_t sm_stdiowrite __P((SM_FILE_T *, char const *, size_t)); off_t sm_stdioseek __P((SM_FILE_T *, off_t, int)); int sm_stdioclose __P((SM_FILE_T *)); int sm_stdioopen __P((SM_FILE_T *, const void *, int, const void *)); int sm_stdiosetinfo __P((SM_FILE_T *, int , void *)); int sm_stdiogetinfo __P((SM_FILE_T *, int , void *)); /* string io functions */ ssize_t sm_strread __P((SM_FILE_T *, char *, size_t)); ssize_t sm_strwrite __P((SM_FILE_T *, char const *, size_t)); off_t sm_strseek __P((SM_FILE_T *, off_t, int)); int sm_strclose __P((SM_FILE_T *)); int sm_stropen __P((SM_FILE_T *, const void *, int, const void *)); int sm_strsetinfo __P((SM_FILE_T *, int , void *)); int sm_strgetinfo __P((SM_FILE_T *, int , void *)); /* syslog io functions */ ssize_t sm_syslogread __P((SM_FILE_T *, char *, size_t)); ssize_t sm_syslogwrite __P((SM_FILE_T *, char const *, size_t)); off_t sm_syslogseek __P((SM_FILE_T *, off_t, int)); int sm_syslogclose __P((SM_FILE_T *)); int sm_syslogopen __P((SM_FILE_T *, const void *, int, const void *)); int sm_syslogsetinfo __P((SM_FILE_T *, int , void *)); int sm_sysloggetinfo __P((SM_FILE_T *, int , void *)); extern bool Sm_IO_DidInit; /* Return true iff the given SM_FILE_T cannot be written now. */ #define cantwrite(fp) \ ((((fp)->f_flags & SMWR) == 0 || (fp)->f_bf.smb_base == NULL) && \ sm_wsetup(fp)) /* ** Test whether the given stdio file has an active ungetc buffer; ** release such a buffer, without restoring ordinary unread data. */ #define HASUB(fp) ((fp)->f_ub.smb_base != NULL) #define FREEUB(fp) \ { \ if ((fp)->f_ub.smb_base != (fp)->f_ubuf) \ sm_free((char *)(fp)->f_ub.smb_base); \ (fp)->f_ub.smb_base = NULL; \ } extern const char SmFileMagic[]; #define SM_ALIGN(p) (((unsigned long)(p) + SM_ALIGN_BITS) & ~SM_ALIGN_BITS) #define sm_io_flockfile(fp) ((void) 0) #define sm_io_funlockfile(fp) ((void) 0) int sm_flags __P((int)); #ifndef FDSET_CAST # define FDSET_CAST /* empty cast for fd_set arg to select */ #endif /* ** SM_CONVERT_TIME -- convert the API timeout flag for select() usage. ** ** This takes a 'fp' (a file type pointer) and obtains the "raw" ** file descriptor (fd) if possible. The 'fd' is needed to possibly ** switch the mode of the file (blocking/non-blocking) to match ** the type of timeout. If timeout is SM_TIME_FOREVER then the ** timeout using select won't be needed and the file is best placed ** in blocking mode. If there is to be a finite timeout then the file ** is best placed in non-blocking mode. Then, if not enough can be ** written, select() can be used to test when something can be written ** yet still timeout if the wait is too long. ** If the mode is already in the correct state we don't change it. ** Iff (yes "iff") the 'fd' is "-1" in value then the mode change ** will not happen. This situation arises when a late-binding-to-disk ** file type is in use. An example of this is the sendmail buffered ** file type (in sendmail/bf.c). ** ** Parameters ** fp -- the file pointer the timeout is for ** fd -- to become the file descriptor value from 'fp' ** val -- the timeout value to be converted ** time -- a struct timeval holding the converted value ** ** Returns ** nothing, this is flow-through code ** ** Side Effects: ** May or may not change the mode of a currently open file. ** The file mode may be changed to O_NONBLOCK or ~O_NONBLOCK ** (meaning block). This is done to best match the type of ** timeout and for (possible) use with select(). */ # define SM_CONVERT_TIME(fp, fd, val, time) { \ if (((fd) = sm_io_getinfo(fp, SM_IO_WHAT_FD, NULL)) == -1) \ { \ /* can't get an fd, likely internal 'fake' fp */ \ errno = 0; \ } \ if ((val) == SM_TIME_DEFAULT) \ (val) = (fp)->f_timeout; \ if ((val) == SM_TIME_IMMEDIATE || (val) == SM_TIME_FOREVER) \ { \ (time)->tv_sec = 0; \ (time)->tv_usec = 0; \ } \ else \ { \ (time)->tv_sec = (val) / 1000; \ (time)->tv_usec = ((val) - ((time)->tv_sec * 1000)) * 1000; \ } \ if ((val) == SM_TIME_FOREVER) \ { \ if ((fp)->f_timeoutstate == SM_TIME_NONBLOCK && (fd) != -1) \ { \ int ret; \ ret = fcntl((fd), F_GETFL, 0); \ if (ret == -1 || fcntl((fd), F_SETFL, \ ret & ~O_NONBLOCK) == -1) \ { \ /* errno should be set */ \ return SM_IO_EOF; \ } \ (fp)->f_timeoutstate = SM_TIME_BLOCK; \ if ((fp)->f_modefp != NULL) \ (fp)->f_modefp->f_timeoutstate = SM_TIME_BLOCK; \ } \ } \ else { \ if ((fp)->f_timeoutstate == SM_TIME_BLOCK && (fd) != -1) \ { \ int ret; \ ret = fcntl((fd), F_GETFL, 0); \ if (ret == -1 || fcntl((fd), F_SETFL, \ ret | O_NONBLOCK) == -1) \ { \ /* errno should be set */ \ return SM_IO_EOF; \ } \ (fp)->f_timeoutstate = SM_TIME_NONBLOCK; \ if ((fp)->f_modefp != NULL) \ (fp)->f_modefp->f_timeoutstate = SM_TIME_NONBLOCK; \ } \ } \ } /* ** SM_IO_WR_TIMEOUT -- setup the timeout for the write ** ** This #define uses a select() to wait for the 'fd' to become writable. ** The select() can be active for up to 'to' time. The select may not ** use all of the the 'to' time. Hence, the amount of "wall-clock" time is ** measured to decide how much to subtract from 'to' to update it. On some ** BSD-based/like systems the timeout for a select is updated for the ** amount of time used. On many/most systems this does not happen. Therefore ** the updating of 'to' must be done ourselves; a copy of 'to' is passed ** since a BSD-like system will have updated it and we don't want to ** double the time used! ** Note: if a valid 'fd' doesn't exist yet, don't use this (e.g. the ** sendmail buffered file type in sendmail/bf.c; see fvwrite.c). ** ** Parameters ** fd -- a file descriptor for doing select() with ** timeout -- the original user set value. ** ** Returns ** nothing, this is flow through code ** ** Side Effects: ** adjusts 'timeout' for time used */ #define SM_IO_WR_TIMEOUT(fp, fd, to) { \ struct timeval sm_io_to_before, sm_io_to_after, sm_io_to_diff; \ struct timeval sm_io_to; \ int sm_io_to_sel; \ fd_set sm_io_to_mask, sm_io_x_mask; \ errno = 0; \ if ((to) == SM_TIME_DEFAULT) \ (to) = (fp)->f_timeout; \ if ((to) == SM_TIME_IMMEDIATE) \ { \ errno = EAGAIN; \ return SM_IO_EOF; \ } \ else if ((to) == SM_TIME_FOREVER) \ { \ errno = EINVAL; \ return SM_IO_EOF; \ } \ else \ { \ sm_io_to.tv_sec = (to) / 1000; \ sm_io_to.tv_usec = ((to) - (sm_io_to.tv_sec * 1000)) * 1000; \ } \ if (!SM_FD_OK_SELECT(fd)) \ { \ errno = EINVAL; \ return SM_IO_EOF; \ } \ FD_ZERO(&sm_io_to_mask); \ FD_SET((fd), &sm_io_to_mask); \ FD_ZERO(&sm_io_x_mask); \ FD_SET((fd), &sm_io_x_mask); \ if (gettimeofday(&sm_io_to_before, NULL) < 0) \ return SM_IO_EOF; \ do \ { \ sm_io_to_sel = select((fd) + 1, NULL, &sm_io_to_mask, \ &sm_io_x_mask, &sm_io_to); \ } while (sm_io_to_sel < 0 && errno == EINTR); \ if (sm_io_to_sel < 0) \ { \ /* something went wrong, errno set */ \ return SM_IO_EOF; \ } \ else if (sm_io_to_sel == 0) \ { \ /* timeout */ \ errno = EAGAIN; \ return SM_IO_EOF; \ } \ /* else loop again */ \ if (gettimeofday(&sm_io_to_after, NULL) < 0) \ return SM_IO_EOF; \ timersub(&sm_io_to_after, &sm_io_to_before, &sm_io_to_diff); \ (to) -= (sm_io_to_diff.tv_sec * 1000); \ (to) -= (sm_io_to_diff.tv_usec / 1000); \ if ((to) < 0) \ (to) = 0; \ } /* ** If there is no 'fd' just error (we can't timeout). If the timeout ** is SM_TIME_FOREVER then there is no need to do a timeout with ** select since this will be a real error. If the error is not ** EAGAIN/EWOULDBLOCK (from a nonblocking) then it's a real error. ** Specify the condition here as macro so it can be used in several places. */ #define IS_IO_ERROR(fd, ret, to) \ ((fd) < 0 || \ ((ret) < 0 && errno != EAGAIN && errno != EWOULDBLOCK) || \ (to) == SM_TIME_FOREVER) sendmail-8.18.1/libsm/refill.c0000644000372400037240000001613314556365350015522 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2005-2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: refill.c,v 1.54 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include #include #include #include #include #include #include #include "local.h" static int sm_lflush __P((SM_FILE_T *, int *)); /* ** SM_IO_RD_TIMEOUT -- measured timeout for reads ** ** This #define uses a select() to wait for the 'fd' to become readable. ** The select() can be active for up to 'To' time. The select() may not ** use all of the the 'To' time. Hence, the amount of "wall-clock" time is ** measured to decide how much to subtract from 'To' to update it. On some ** BSD-based/like systems the timeout for a select() is updated for the ** amount of time used. On many/most systems this does not happen. Therefore ** the updating of 'To' must be done ourselves; a copy of 'To' is passed ** since a BSD-like system will have updated it and we don't want to ** double the time used! ** Note: if a valid 'fd' doesn't exist yet, don't use this (e.g. the ** sendmail buffered file type in sendmail/bf.c; see use below). ** ** Parameters ** fp -- the file pointer for the active file ** fd -- raw file descriptor (from 'fp') to use for select() ** to -- struct timeval of the timeout ** timeout -- the original timeout value ** sel_ret -- the return value from the select() ** ** Returns: ** nothing, flow through code */ #define SM_IO_RD_TIMEOUT(fp, fd, to, timeout, sel_ret) \ { \ struct timeval sm_io_to_before, sm_io_to_after, sm_io_to_diff; \ fd_set sm_io_to_mask, sm_io_x_mask; \ errno = 0; \ if (timeout == SM_TIME_IMMEDIATE) \ { \ errno = EAGAIN; \ return SM_IO_EOF; \ } \ if (!SM_FD_OK_SELECT(fd)) \ { \ errno = EINVAL; \ return SM_IO_EOF; \ } \ FD_ZERO(&sm_io_to_mask); \ FD_SET((fd), &sm_io_to_mask); \ FD_ZERO(&sm_io_x_mask); \ FD_SET((fd), &sm_io_x_mask); \ if (gettimeofday(&sm_io_to_before, NULL) < 0) \ return SM_IO_EOF; \ do \ { \ (sel_ret) = select((fd) + 1, &sm_io_to_mask, NULL, \ &sm_io_x_mask, (to)); \ } while ((sel_ret) < 0 && errno == EINTR); \ if ((sel_ret) < 0) \ { \ /* something went wrong, errno set */ \ fp->f_r = 0; \ fp->f_flags |= SMERR; \ return SM_IO_EOF; \ } \ else if ((sel_ret) == 0) \ { \ /* timeout */ \ errno = EAGAIN; \ return SM_IO_EOF; \ } \ /* calculate wall-clock time used */ \ if (gettimeofday(&sm_io_to_after, NULL) < 0) \ return SM_IO_EOF; \ timersub(&sm_io_to_after, &sm_io_to_before, &sm_io_to_diff); \ timersub((to), &sm_io_to_diff, (to)); \ } /* ** SM_LFLUSH -- flush a file if it is line buffered and writable ** ** Parameters: ** fp -- file pointer to flush ** timeout -- original timeout value (in milliseconds) ** ** Returns: ** Failure: returns SM_IO_EOF and sets errno ** Success: returns 0 */ static int sm_lflush(fp, timeout) SM_FILE_T *fp; int *timeout; { if ((fp->f_flags & (SMLBF|SMWR)) == (SMLBF|SMWR)) return sm_flush(fp, timeout); return 0; } /* ** SM_REFILL -- refill a buffer ** ** Parameters: ** fp -- file pointer for buffer refill ** timeout -- time to complete filling the buffer in milliseconds ** ** Returns: ** Success: returns 0 ** Failure: returns SM_IO_EOF */ int sm_refill(fp, timeout) register SM_FILE_T *fp; int timeout; { int ret, r; struct timeval to; int fd; if (timeout == SM_TIME_DEFAULT) timeout = fp->f_timeout; if (timeout == SM_TIME_IMMEDIATE) { /* ** Filling the buffer will take time and we are wanted to ** return immediately. And we're not EOF or ERR really. ** So... the failure is we couldn't do it in time. */ errno = EAGAIN; fp->f_r = 0; /* just to be sure */ return 0; } /* make sure stdio is set up */ if (!Sm_IO_DidInit) sm_init(); fp->f_r = 0; /* largely a convenience for callers */ if (fp->f_flags & SMFEOF) return SM_IO_EOF; SM_CONVERT_TIME(fp, fd, timeout, &to); /* if not already reading, have to be reading and writing */ if ((fp->f_flags & SMRD) == 0) { if ((fp->f_flags & SMRW) == 0) { errno = EBADF; fp->f_flags |= SMERR; return SM_IO_EOF; } /* switch to reading */ if (fp->f_flags & SMWR) { if (sm_flush(fp, &timeout)) return SM_IO_EOF; fp->f_flags &= ~SMWR; fp->f_w = 0; fp->f_lbfsize = 0; } fp->f_flags |= SMRD; } else { /* ** We were reading. If there is an ungetc buffer, ** we must have been reading from that. Drop it, ** restoring the previous buffer (if any). If there ** is anything in that buffer, return. */ if (HASUB(fp)) { FREEUB(fp); if ((fp->f_r = fp->f_ur) != 0) { fp->f_p = fp->f_up; /* revert blocking state */ return 0; } } } if (fp->f_bf.smb_base == NULL) sm_makebuf(fp); /* ** Before reading from a line buffered or unbuffered file, ** flush all line buffered output files, per the ANSI C standard. */ if (fp->f_flags & (SMLBF|SMNBF)) (void) sm_fwalk(sm_lflush, &timeout); /* ** If this file is linked to another, and we are going to hang ** on the read, flush the linked file before continuing. */ if (fp->f_flushfp != NULL && (*fp->f_getinfo)(fp, SM_IO_IS_READABLE, NULL) <= 0) sm_flush(fp->f_flushfp, &timeout); fp->f_p = fp->f_bf.smb_base; /* ** The do-while loop stops trying to read when something is read ** or it appears that the timeout has expired before finding ** something available to be read (via select()). */ ret = 0; do { errno = 0; /* needed to ensure EOF correctly found */ r = (*fp->f_read)(fp, (char *)fp->f_p, fp->f_bf.smb_size); if (r <= 0) { if (r == 0 && errno == 0) break; /* EOF found */ if (IS_IO_ERROR(fd, r, timeout)) goto err; /* errno set */ /* read would block */ SM_IO_RD_TIMEOUT(fp, fd, &to, timeout, ret); } } while (r <= 0 && ret > 0); err: if (r <= 0) { if (r == 0) fp->f_flags |= SMFEOF; else fp->f_flags |= SMERR; fp->f_r = 0; return SM_IO_EOF; } fp->f_r = r; return 0; } /* ** SM_RGET -- refills buffer and returns first character ** ** Handle sm_getc() when the buffer ran out: ** Refill, then return the first character in the newly-filled buffer. ** ** Parameters: ** fp -- file pointer to work on ** timeout -- time to complete refill ** ** Returns: ** Success: first character in refilled buffer as an int ** Failure: SM_IO_EOF */ int sm_rget(fp, timeout) register SM_FILE_T *fp; int timeout; { if (sm_refill(fp, timeout) == 0) { fp->f_r--; return *fp->f_p++; } return SM_IO_EOF; } sendmail-8.18.1/libsm/t-streq.sh0000755000372400037240000000136614556365350016041 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 2020 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ---------------------------------------- # test SM_STRNCASEEQ # ---------------------------------------- PRG=./t-streq R=0 # format: # two lines: # len:string1 # result:string2 # result: # 1: equal # 0: not equal ${PRG} <\n 1:iseadmin@somest.sld.br 22:iseadmin@somest.sld.br 1:iseadmin@somest.sld.br>\n EOF R=$? exit $R sendmail-8.18.1/libsm/strexit.c0000644000372400037240000000541114556365350015744 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: strexit.c,v 1.6 2013-11-22 20:51:43 ca Exp $") #include #include /* ** SM_STREXIT -- convert EX_* value from to a character string ** ** This function is analogous to strerror(), except that it ** operates on EX_* values from . ** ** Parameters: ** ex -- EX_* value ** ** Results: ** pointer to a static message string */ char * sm_strexit(ex) int ex; { char *msg; static char buf[64]; msg = sm_sysexitmsg(ex); if (msg == NULL) { (void) sm_snprintf(buf, sizeof buf, "Unknown exit status %d", ex); msg = buf; } return msg; } /* ** SM_SYSEXITMSG -- convert an EX_* value to a character string, or NULL ** ** Parameters: ** ex -- EX_* value ** ** Results: ** If ex is a known exit value, then a pointer to a static ** message string is returned. Otherwise NULL is returned. */ char * sm_sysexitmsg(ex) int ex; { char *msg; msg = sm_sysexmsg(ex); if (msg != NULL) return &msg[11]; else return msg; } /* ** SM_SYSEXMSG -- convert an EX_* value to a character string, or NULL ** ** Parameters: ** ex -- EX_* value ** ** Results: ** If ex is a known exit value, then a pointer to a static ** string is returned. Otherwise NULL is returned. ** The string contains the following fixed width fields: ** [0] ':' if there is an errno value associated with this ** exit value, otherwise ' '. ** [1,3] 3 digit SMTP error code ** [4] ' ' ** [5,9] 3 digit SMTP extended error code ** [10] ' ' ** [11,] message string */ char * sm_sysexmsg(ex) int ex; { switch (ex) { case EX_USAGE: return " 500 5.0.0 Command line usage error"; case EX_DATAERR: return " 501 5.6.0 Data format error"; case EX_NOINPUT: return ":550 5.3.0 Cannot open input"; case EX_NOUSER: return " 550 5.1.1 User unknown"; case EX_NOHOST: return " 550 5.1.2 Host unknown"; case EX_UNAVAILABLE: return " 554 5.0.0 Service unavailable"; case EX_SOFTWARE: return ":554 5.3.0 Internal error"; case EX_OSERR: return ":451 4.0.0 Operating system error"; case EX_OSFILE: return ":554 5.3.5 System file missing"; case EX_CANTCREAT: return ":550 5.0.0 Can't create output"; case EX_IOERR: return ":451 4.0.0 I/O error"; case EX_TEMPFAIL: return " 450 4.0.0 Deferred"; case EX_PROTOCOL: return " 554 5.5.0 Remote protocol error"; case EX_NOPERM: return ":550 5.0.0 Insufficient permission"; case EX_CONFIG: return " 554 5.3.5 Local configuration error"; default: return NULL; } } sendmail-8.18.1/libsm/errstring.c0000644000372400037240000001403214556365350016260 0ustar xbuildxbuild/* * Copyright (c) 2001, 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: errstring.c,v 1.20 2013-11-22 20:51:42 ca Exp $") #include #include /* sys_errlist, on some platforms */ #include /* sm_snprintf */ #include #include #if NAMED_BIND # include #endif #if LDAPMAP # include # include /* for LDAP error codes */ #endif /* ** Notice: this file is used by libmilter. Please try to avoid ** using libsm specific functions. */ /* ** SM_ERRSTRING -- return string description of error code ** ** Parameters: ** errnum -- the error number to translate ** ** Returns: ** A string description of errnum. ** ** Note: this may point to a local (static) buffer. */ const char * sm_errstring(errnum) int errnum; { char *ret; switch (errnum) { case EPERM: /* SunOS gives "Not owner" -- this is the POSIX message */ return "Operation not permitted"; /* ** Error messages used internally in sendmail. */ case E_SM_OPENTIMEOUT: return "Timeout on file open"; case E_SM_NOSLINK: return "Symbolic links not allowed"; case E_SM_NOHLINK: return "Hard links not allowed"; case E_SM_REGONLY: return "Regular files only"; case E_SM_ISEXEC: return "Executable files not allowed"; case E_SM_WWDIR: return "World writable directory"; case E_SM_GWDIR: return "Group writable directory"; case E_SM_FILECHANGE: return "File changed after open"; case E_SM_WWFILE: return "World writable file"; case E_SM_GWFILE: return "Group writable file"; case E_SM_GRFILE: return "Group readable file"; case E_SM_WRFILE: return "World readable file"; /* ** DNS error messages. */ #if NAMED_BIND case HOST_NOT_FOUND + E_DNSBASE: return "Name server: host not found"; case TRY_AGAIN + E_DNSBASE: return "Name server: host name lookup failure"; case NO_RECOVERY + E_DNSBASE: return "Name server: non-recoverable error"; case NO_DATA + E_DNSBASE: return "Name server: no data known"; #endif /* NAMED_BIND */ /* ** libsmdb error messages. */ case SMDBE_MALLOC: return "Memory allocation failed"; case SMDBE_GDBM_IS_BAD: return "GDBM is not supported"; case SMDBE_UNSUPPORTED: return "Unsupported action"; case SMDBE_DUPLICATE: return "Key already exists"; case SMDBE_BAD_OPEN: return "Database open failed"; case SMDBE_NOT_FOUND: return "Key not found"; case SMDBE_UNKNOWN_DB_TYPE: return "Unknown database type"; case SMDBE_UNSUPPORTED_DB_TYPE: return "Support for database type not compiled into this program"; case SMDBE_INCOMPLETE: return "DB sync did not finish"; case SMDBE_KEY_EMPTY: return "Key is empty"; case SMDBE_KEY_EXIST: return "Key already exists"; case SMDBE_LOCK_DEADLOCK: return "Locker killed to resolve deadlock"; case SMDBE_LOCK_NOT_GRANTED: return "Lock unavailable"; case SMDBE_LOCK_NOT_HELD: return "Lock not held by locker"; case SMDBE_RUN_RECOVERY: return "Database panic, run recovery"; case SMDBE_IO_ERROR: return "I/O error"; case SMDBE_READ_ONLY: return "Database opened read-only"; case SMDBE_DB_NAME_TOO_LONG: return "Name too long"; case SMDBE_INVALID_PARAMETER: return "Invalid parameter"; case SMDBE_ONLY_SUPPORTS_ONE_CURSOR: return "Only one cursor allowed"; case SMDBE_NOT_A_VALID_CURSOR: return "Invalid cursor"; case SMDBE_OLD_VERSION: return "Berkeley DB file is an old version, recreate it"; case SMDBE_VERSION_MISMATCH: return "Berkeley DB version mismatch between include file and library"; #if LDAPMAP /* ** LDAP URL error messages. */ /* OpenLDAP errors */ # ifdef LDAP_URL_ERR_MEM case E_LDAPURLBASE + LDAP_URL_ERR_MEM: return "LDAP URL can't allocate memory space"; # endif # ifdef LDAP_URL_ERR_PARAM case E_LDAPURLBASE + LDAP_URL_ERR_PARAM: return "LDAP URL parameter is bad"; # endif # ifdef LDAP_URL_ERR_BADSCHEME case E_LDAPURLBASE + LDAP_URL_ERR_BADSCHEME: return "LDAP URL doesn't begin with \"ldap[si]://\""; # endif # ifdef LDAP_URL_ERR_BADENCLOSURE case E_LDAPURLBASE + LDAP_URL_ERR_BADENCLOSURE: return "LDAP URL is missing trailing \">\""; # endif # ifdef LDAP_URL_ERR_BADURL case E_LDAPURLBASE + LDAP_URL_ERR_BADURL: return "LDAP URL is bad"; # endif # ifdef LDAP_URL_ERR_BADHOST case E_LDAPURLBASE + LDAP_URL_ERR_BADHOST: return "LDAP URL host port is bad"; # endif # ifdef LDAP_URL_ERR_BADATTRS case E_LDAPURLBASE + LDAP_URL_ERR_BADATTRS: return "LDAP URL bad (or missing) attributes"; # endif # ifdef LDAP_URL_ERR_BADSCOPE case E_LDAPURLBASE + LDAP_URL_ERR_BADSCOPE: return "LDAP URL scope string is invalid (or missing)"; # endif # ifdef LDAP_URL_ERR_BADFILTER case E_LDAPURLBASE + LDAP_URL_ERR_BADFILTER: return "LDAP URL bad or missing filter"; # endif # ifdef LDAP_URL_ERR_BADEXTS case E_LDAPURLBASE + LDAP_URL_ERR_BADEXTS: return "LDAP URL bad or missing extensions"; # endif /* Sun LDAP errors */ # ifdef LDAP_URL_ERR_NOTLDAP case E_LDAPURLBASE + LDAP_URL_ERR_NOTLDAP: return "LDAP URL doesn't begin with \"ldap://\""; # endif # ifdef LDAP_URL_ERR_NODN case E_LDAPURLBASE + LDAP_URL_ERR_NODN: return "LDAP URL has no DN (required)"; # endif #endif /* LDAPMAP */ } #if LDAPMAP /* ** LDAP error messages. Handle small negative errors from ** libldap (in the range -E_LDAP_SHIM to zero, offset by E_LDAPBASE) ** as well. */ if (errnum >= E_LDAPBASE - E_LDAP_SHIM) return ldap_err2string(errnum - E_LDAPBASE); #endif /* LDAPMAP */ ret = strerror(errnum); if (ret == NULL) { static char buf[30]; (void) sm_snprintf(buf, sizeof buf, "Error %d", errnum); return buf; } return ret; } sendmail-8.18.1/libsm/heap.c0000644000372400037240000004333714556365350015170 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: heap.c,v 1.52 2013-11-22 20:51:43 ca Exp $") /* ** debugging memory allocation package ** See heap.html for documentation. */ #include #include #include #include #include #include #include #include #if SM_HEAP_CHECK # include # include # include # include #endif /* undef all macro versions of the "functions" so they can be specified here */ #undef sm_malloc #undef sm_malloc_x #undef sm_malloc_tagged #undef sm_malloc_tagged_x #undef sm_free #undef sm_free_tagged #undef sm_realloc #if SM_HEAP_CHECK # undef sm_heap_register # undef sm_heap_checkptr # undef sm_heap_report #endif /* SM_HEAP_CHECK */ #if SM_HEAP_CHECK SM_DEBUG_T SmHeapCheck = SM_DEBUG_INITIALIZER("sm_check_heap", "@(#)$Debug: sm_check_heap - check sm_malloc, sm_realloc, sm_free calls $"); # define HEAP_CHECK sm_debug_active(&SmHeapCheck, 1) static int ptrhash __P((void *p)); #endif /* SM_HEAP_CHECK */ const SM_EXC_TYPE_T SmHeapOutOfMemoryType = { SmExcTypeMagic, "F:sm.heap", "", sm_etype_printf, "out of memory", }; SM_EXC_T SmHeapOutOfMemory = SM_EXC_INITIALIZER(&SmHeapOutOfMemoryType, NULL); /* ** The behaviour of malloc with size==0 is platform dependent (it ** says so in the C standard): it can return NULL or non-NULL. We ** don't want sm_malloc_x(0) to raise an exception on some platforms ** but not others, so this case requires special handling. We've got ** two choices: "size = 1" or "return NULL". We use the former in the ** following. ** If we had something like autoconf we could figure out the ** behaviour of the platform and either use this hack or just ** use size. */ #define MALLOC_SIZE(size) ((size) == 0 ? 1 : (size)) /* ** SM_MALLOC_X -- wrapper around malloc(), raises an exception on error. ** ** Parameters: ** size -- size of requested memory. ** ** Returns: ** Pointer to memory region. ** ** Note: ** sm_malloc_x only gets called from source files in which heap ** debugging is disabled at compile time. Otherwise, a call to ** sm_malloc_x is macro expanded to a call to sm_malloc_tagged_x. ** ** Exceptions: ** F:sm_heap -- out of memory */ void * sm_malloc_x(size) size_t size; { void *ptr; ENTER_CRITICAL(); ptr = malloc(MALLOC_SIZE(size)); LEAVE_CRITICAL(); if (ptr == NULL) sm_exc_raise_x(&SmHeapOutOfMemory); return ptr; } #if !SM_HEAP_CHECK /* ** SM_MALLOC -- wrapper around malloc() ** ** Parameters: ** size -- size of requested memory. ** ** Returns: ** Pointer to memory region. */ void * sm_malloc(size) size_t size; { void *ptr; ENTER_CRITICAL(); ptr = malloc(MALLOC_SIZE(size)); LEAVE_CRITICAL(); return ptr; } /* ** SM_REALLOC -- wrapper for realloc() ** ** Parameters: ** ptr -- pointer to old memory area. ** size -- size of requested memory. ** ** Returns: ** Pointer to new memory area, NULL on failure. */ void * sm_realloc(ptr, size) void *ptr; size_t size; { void *newptr; ENTER_CRITICAL(); newptr = realloc(ptr, MALLOC_SIZE(size)); LEAVE_CRITICAL(); return newptr; } /* ** SM_REALLOC_X -- wrapper for realloc() ** ** Parameters: ** ptr -- pointer to old memory area. ** size -- size of requested memory. ** ** Returns: ** Pointer to new memory area. ** ** Exceptions: ** F:sm_heap -- out of memory */ void * sm_realloc_x(ptr, size) void *ptr; size_t size; { void *newptr; ENTER_CRITICAL(); newptr = realloc(ptr, MALLOC_SIZE(size)); LEAVE_CRITICAL(); if (newptr == NULL) sm_exc_raise_x(&SmHeapOutOfMemory); return newptr; } /* ** SM_FREE -- wrapper around free() ** ** Parameters: ** ptr -- pointer to memory region. ** ** Returns: ** none. */ void sm_free(ptr) void *ptr; { if (ptr == NULL) return; ENTER_CRITICAL(); free(ptr); LEAVE_CRITICAL(); return; } #else /* !SM_HEAP_CHECK */ /* ** Each allocated block is assigned a "group number". ** By default, all blocks are assigned to group #1. ** By convention, group #0 is for memory that is never freed. ** You can use group numbers any way you want, in order to help make ** sense of sm_heap_report output. */ int SmHeapGroup = 1; int SmHeapMaxGroup = 1; /* ** Total number of bytes allocated. ** This is only maintained if the sm_check_heap debug category is active. */ size_t SmHeapTotal = 0; /* ** High water mark: the most that SmHeapTotal has ever been. */ size_t SmHeapMaxTotal = 0; /* ** Maximum number of bytes that may be allocated at any one time. ** 0 means no limit. ** This is only honoured if sm_check_heap is active. */ SM_DEBUG_T SmHeapLimit = SM_DEBUG_INITIALIZER("sm_heap_limit", "@(#)$Debug: sm_heap_limit - max # of bytes permitted in heap $"); /* ** This is the data structure that keeps track of all currently ** allocated blocks of memory known to the heap package. */ typedef struct sm_heap_item SM_HEAP_ITEM_T; struct sm_heap_item { void *hi_ptr; size_t hi_size; char *hi_tag; int hi_num; int hi_group; SM_HEAP_ITEM_T *hi_next; }; #define SM_HEAP_TABLE_SIZE 256 static SM_HEAP_ITEM_T *SmHeapTable[SM_HEAP_TABLE_SIZE]; /* ** This is a randomly generated table ** which contains exactly one occurrence ** of each of the numbers between 0 and 255. ** It is used by ptrhash. */ static unsigned char hashtab[SM_HEAP_TABLE_SIZE] = { 161, 71, 77,187, 15,229, 9,176,221,119,239, 21, 85,138,203, 86, 102, 65, 80,199,235, 32,140, 96,224, 78,126,127,144, 0, 11,179, 64, 30,120, 23,225,226, 33, 50,205,167,130,240,174, 99,206, 73, 231,210,189,162, 48, 93,246, 54,213,141,135, 39, 41,192,236,193, 157, 88, 95,104,188, 63,133,177,234,110,158,214,238,131,233, 91, 125, 82, 94, 79, 66, 92,151, 45,252, 98, 26,183, 7,191,171,106, 145,154,251,100,113, 5, 74, 62, 76,124, 14,217,200, 75,115,190, 103, 28,198,196,169,219, 37,118,150, 18,152,175, 49,136, 6,142, 89, 19,243,254, 47,137, 24,166,180, 10, 40,186,202, 46,184, 67, 148,108,181, 81, 25,241, 13,139, 58, 38, 84,253,201, 12,116, 17, 195, 22,112, 69,255, 43,147,222,111, 56,194,216,149,244, 42,173, 232,220,249,105,207, 51,197,242, 72,211,208, 59,122,230,237,170, 165, 44, 68,123,129,245,143,101, 8,209,215,247,185, 57,218, 53, 114,121, 3,128, 4,204,212,146, 2,155, 83,250, 87, 29, 31,159, 60, 27,107,156,227,182, 1, 61, 36,160,109, 97, 90, 20,168,132, 223,248, 70,164, 55,172, 34, 52,163,117, 35,153,134, 16,178,228 }; /* ** PTRHASH -- hash a pointer value ** ** Parameters: ** p -- pointer. ** ** Returns: ** hash value. ** ** ptrhash hashes a pointer value to a uniformly distributed random ** number between 0 and 255. ** ** This hash algorithm is based on Peter K. Pearson, ** "Fast Hashing of Variable-Length Text Strings", ** in Communications of the ACM, June 1990, vol 33 no 6. */ static int ptrhash(p) void *p; { int h; if (sizeof(void*) == 4 && sizeof(unsigned long) == 4) { unsigned long n = (unsigned long)p; h = hashtab[n & 0xFF]; h = hashtab[h ^ ((n >> 8) & 0xFF)]; h = hashtab[h ^ ((n >> 16) & 0xFF)]; h = hashtab[h ^ ((n >> 24) & 0xFF)]; } # if 0 else if (sizeof(void*) == 8 && sizeof(unsigned long) == 8) { unsigned long n = (unsigned long)p; h = hashtab[n & 0xFF]; h = hashtab[h ^ ((n >> 8) & 0xFF)]; h = hashtab[h ^ ((n >> 16) & 0xFF)]; h = hashtab[h ^ ((n >> 24) & 0xFF)]; h = hashtab[h ^ ((n >> 32) & 0xFF)]; h = hashtab[h ^ ((n >> 40) & 0xFF)]; h = hashtab[h ^ ((n >> 48) & 0xFF)]; h = hashtab[h ^ ((n >> 56) & 0xFF)]; } # endif /* 0 */ else { unsigned char *cp = (unsigned char *)&p; int i; h = 0; for (i = 0; i < sizeof(void*); ++i) h = hashtab[h ^ cp[i]]; } return h; } /* ** SM_MALLOC_TAGGED -- wrapper around malloc(), debugging version. ** ** Parameters: ** size -- size of requested memory. ** tag -- tag for debugging. ** num -- additional value for debugging. ** group -- heap group for debugging. ** ** Returns: ** Pointer to memory region. */ void * sm_malloc_tagged(size, tag, num, group) size_t size; char *tag; int num; int group; { void *ptr; if (!HEAP_CHECK) { ENTER_CRITICAL(); ptr = malloc(MALLOC_SIZE(size)); LEAVE_CRITICAL(); return ptr; } if (sm_xtrap_check()) return NULL; if (sm_debug_active(&SmHeapLimit, 1) && sm_debug_level(&SmHeapLimit) < SmHeapTotal + size) return NULL; ENTER_CRITICAL(); ptr = malloc(MALLOC_SIZE(size)); LEAVE_CRITICAL(); if (ptr != NULL && !sm_heap_register(ptr, size, tag, num, group)) { ENTER_CRITICAL(); free(ptr); LEAVE_CRITICAL(); ptr = NULL; } SmHeapTotal += size; if (SmHeapTotal > SmHeapMaxTotal) SmHeapMaxTotal = SmHeapTotal; return ptr; } /* ** SM_MALLOC_TAGGED_X -- wrapper around malloc(), debugging version. ** ** Parameters: ** size -- size of requested memory. ** tag -- tag for debugging. ** num -- additional value for debugging. ** group -- heap group for debugging. ** ** Returns: ** Pointer to memory region. ** ** Exceptions: ** F:sm_heap -- out of memory */ void * sm_malloc_tagged_x(size, tag, num, group) size_t size; char *tag; int num; int group; { void *ptr; if (!HEAP_CHECK) { ENTER_CRITICAL(); ptr = malloc(MALLOC_SIZE(size)); LEAVE_CRITICAL(); if (ptr == NULL) sm_exc_raise_x(&SmHeapOutOfMemory); return ptr; } sm_xtrap_raise_x(&SmHeapOutOfMemory); if (sm_debug_active(&SmHeapLimit, 1) && sm_debug_level(&SmHeapLimit) < SmHeapTotal + size) { sm_exc_raise_x(&SmHeapOutOfMemory); } ENTER_CRITICAL(); ptr = malloc(MALLOC_SIZE(size)); LEAVE_CRITICAL(); if (ptr != NULL && !sm_heap_register(ptr, size, tag, num, group)) { ENTER_CRITICAL(); free(ptr); LEAVE_CRITICAL(); ptr = NULL; } if (ptr == NULL) sm_exc_raise_x(&SmHeapOutOfMemory); SmHeapTotal += size; if (SmHeapTotal > SmHeapMaxTotal) SmHeapMaxTotal = SmHeapTotal; return ptr; } /* ** SM_HEAP_REGISTER -- register a pointer into the heap for debugging. ** ** Parameters: ** ptr -- pointer to register. ** size -- size of requested memory. ** tag -- tag for debugging (this is NOT copied!) ** num -- additional value for debugging. ** group -- heap group for debugging. ** ** Returns: ** true iff successfully registered (not yet in table). */ bool sm_heap_register(ptr, size, tag, num, group) void *ptr; size_t size; char *tag; int num; int group; { int i; SM_HEAP_ITEM_T *hi; if (!HEAP_CHECK) return true; SM_REQUIRE(ptr != NULL); i = ptrhash(ptr); # if SM_CHECK_REQUIRE /* ** We require that ptr is not already in SmHeapTable. */ for (hi = SmHeapTable[i]; hi != NULL; hi = hi->hi_next) { if (hi->hi_ptr == ptr) sm_abort("sm_heap_register: ptr %p is already registered (%s:%d)", ptr, hi->hi_tag, hi->hi_num); } # endif /* SM_CHECK_REQUIRE */ ENTER_CRITICAL(); hi = (SM_HEAP_ITEM_T *) malloc(sizeof(SM_HEAP_ITEM_T)); LEAVE_CRITICAL(); if (hi == NULL) return false; hi->hi_ptr = ptr; hi->hi_size = size; hi->hi_tag = tag; hi->hi_num = num; hi->hi_group = group; hi->hi_next = SmHeapTable[i]; SmHeapTable[i] = hi; return true; } /* ** SM_REALLOC -- wrapper for realloc(), debugging version. ** ** Parameters: ** ptr -- pointer to old memory area. ** size -- size of requested memory. ** ** Returns: ** Pointer to new memory area, NULL on failure. */ void * sm_realloc(ptr, size) void *ptr; size_t size; { void *newptr; SM_HEAP_ITEM_T *hi, **hp; if (!HEAP_CHECK) { ENTER_CRITICAL(); newptr = realloc(ptr, MALLOC_SIZE(size)); LEAVE_CRITICAL(); return newptr; } if (ptr == NULL) return sm_malloc_tagged(size, "realloc", 0, SmHeapGroup); for (hp = &SmHeapTable[ptrhash(ptr)]; *hp != NULL; hp = &(**hp).hi_next) { if ((**hp).hi_ptr == ptr) { if (sm_xtrap_check()) return NULL; hi = *hp; if (sm_debug_active(&SmHeapLimit, 1) && sm_debug_level(&SmHeapLimit) < SmHeapTotal - hi->hi_size + size) { return NULL; } ENTER_CRITICAL(); newptr = realloc(ptr, MALLOC_SIZE(size)); LEAVE_CRITICAL(); if (newptr == NULL) return NULL; SmHeapTotal = SmHeapTotal - hi->hi_size + size; if (SmHeapTotal > SmHeapMaxTotal) SmHeapMaxTotal = SmHeapTotal; *hp = hi->hi_next; hi->hi_ptr = newptr; hi->hi_size = size; hp = &SmHeapTable[ptrhash(newptr)]; hi->hi_next = *hp; *hp = hi; return newptr; } } sm_abort("sm_realloc: bad argument (%p)", ptr); /* NOTREACHED */ return NULL; /* keep Irix compiler happy */ } /* ** SM_REALLOC_X -- wrapper for realloc(), debugging version. ** ** Parameters: ** ptr -- pointer to old memory area. ** size -- size of requested memory. ** ** Returns: ** Pointer to new memory area. ** ** Exceptions: ** F:sm_heap -- out of memory */ void * sm_realloc_x(ptr, size) void *ptr; size_t size; { void *newptr; SM_HEAP_ITEM_T *hi, **hp; if (!HEAP_CHECK) { ENTER_CRITICAL(); newptr = realloc(ptr, MALLOC_SIZE(size)); LEAVE_CRITICAL(); if (newptr == NULL) sm_exc_raise_x(&SmHeapOutOfMemory); return newptr; } if (ptr == NULL) return sm_malloc_tagged_x(size, "realloc", 0, SmHeapGroup); for (hp = &SmHeapTable[ptrhash(ptr)]; *hp != NULL; hp = &(**hp).hi_next) { if ((**hp).hi_ptr == ptr) { sm_xtrap_raise_x(&SmHeapOutOfMemory); hi = *hp; if (sm_debug_active(&SmHeapLimit, 1) && sm_debug_level(&SmHeapLimit) < SmHeapTotal - hi->hi_size + size) { sm_exc_raise_x(&SmHeapOutOfMemory); } ENTER_CRITICAL(); newptr = realloc(ptr, MALLOC_SIZE(size)); LEAVE_CRITICAL(); if (newptr == NULL) sm_exc_raise_x(&SmHeapOutOfMemory); SmHeapTotal = SmHeapTotal - hi->hi_size + size; if (SmHeapTotal > SmHeapMaxTotal) SmHeapMaxTotal = SmHeapTotal; *hp = hi->hi_next; hi->hi_ptr = newptr; hi->hi_size = size; hp = &SmHeapTable[ptrhash(newptr)]; hi->hi_next = *hp; *hp = hi; return newptr; } } sm_abort("sm_realloc_x: bad argument (%p)", ptr); /* NOTREACHED */ return NULL; /* keep Irix compiler happy */ } /* ** SM_FREE_TAGGED -- wrapper around free(), debugging version. ** ** Parameters: ** ptr -- pointer to memory region. ** tag -- tag for debugging. ** num -- additional value for debugging. ** ** Returns: ** none. */ void sm_free_tagged(ptr, tag, num) void *ptr; char *tag; int num; { SM_HEAP_ITEM_T **hp; if (ptr == NULL) return; if (!HEAP_CHECK) { ENTER_CRITICAL(); free(ptr); LEAVE_CRITICAL(); return; } for (hp = &SmHeapTable[ptrhash(ptr)]; *hp != NULL; hp = &(**hp).hi_next) { if ((**hp).hi_ptr == ptr) { SM_HEAP_ITEM_T *hi = *hp; *hp = hi->hi_next; /* ** Fill the block with zeros before freeing. ** This is intended to catch problems with ** dangling pointers. The block is filled with ** zeros, not with some non-zero value, because ** it is common practice in some C code to store ** a zero in a structure member before freeing the ** structure, as a defense against dangling pointers. */ (void) memset(ptr, 0, hi->hi_size); SmHeapTotal -= hi->hi_size; ENTER_CRITICAL(); free(ptr); free(hi); LEAVE_CRITICAL(); return; } } sm_abort("sm_free: bad argument (%p) (%s:%d)", ptr, tag, num); } /* ** SM_HEAP_CHECKPTR_TAGGED -- check whether ptr is a valid argument to sm_free ** ** Parameters: ** ptr -- pointer to memory region. ** tag -- tag for debugging. ** num -- additional value for debugging. ** ** Returns: ** none. ** ** Side Effects: ** aborts if check fails. */ void sm_heap_checkptr_tagged(ptr, tag, num) void *ptr; char *tag; int num; { SM_HEAP_ITEM_T *hp; if (!HEAP_CHECK) return; if (ptr == NULL) return; for (hp = SmHeapTable[ptrhash(ptr)]; hp != NULL; hp = hp->hi_next) { if (hp->hi_ptr == ptr) return; } sm_abort("sm_heap_checkptr(%p): bad ptr (%s:%d)", ptr, tag, num); } /* ** SM_HEAP_REPORT -- output "map" of used heap. ** ** Parameters: ** stream -- the file pointer to write to. ** verbosity -- how much info? ** ** Returns: ** none. */ void sm_heap_report(stream, verbosity) SM_FILE_T *stream; int verbosity; { int i; unsigned long group0total, group1total, otherstotal, grandtotal; static char str[32] = "[1900-00-00/00:00:00] "; struct tm *tmp; time_t currt; if (!HEAP_CHECK || verbosity <= 0) return; group0total = group1total = otherstotal = grandtotal = 0; for (i = 0; i < sizeof(SmHeapTable) / sizeof(SmHeapTable[0]); ++i) { SM_HEAP_ITEM_T *hi = SmHeapTable[i]; while (hi != NULL) { if (verbosity > 2 || (verbosity > 1 && hi->hi_group != 0)) { sm_io_fprintf(stream, SM_TIME_DEFAULT, "%4d %*lx %7lu bytes", hi->hi_group, (int) sizeof(void *) * 2, (long)hi->hi_ptr, (unsigned long)hi->hi_size); if (hi->hi_tag != NULL) { sm_io_fprintf(stream, SM_TIME_DEFAULT, " %s", hi->hi_tag); if (hi->hi_num) { sm_io_fprintf(stream, SM_TIME_DEFAULT, ":%d", hi->hi_num); } } sm_io_fprintf(stream, SM_TIME_DEFAULT, "\n"); } switch (hi->hi_group) { case 0: group0total += hi->hi_size; break; case 1: group1total += hi->hi_size; break; default: otherstotal += hi->hi_size; break; } grandtotal += hi->hi_size; hi = hi->hi_next; } } currt = time((time_t *)0); tmp = localtime(&currt); snprintf(str, sizeof(str), "[%d-%02d-%02d/%02d:%02d:%02d] ", 1900 + tmp->tm_year, /* HACK */ tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec); sm_io_fprintf(stream, SM_TIME_DEFAULT, "pid=%ld time=%s\nheap max=%lu, total=%lu, group 0=%lu, group 1=%lu, others=%lu\n", (long) getpid(), str, (unsigned long) SmHeapMaxTotal, grandtotal, group0total, group1total, otherstotal); if (grandtotal != SmHeapTotal) { sm_io_fprintf(stream, SM_TIME_DEFAULT, "BUG => SmHeapTotal: got %lu, expected %lu\n", (unsigned long) SmHeapTotal, grandtotal); } } #endif /* !SM_HEAP_CHECK */ sendmail-8.18.1/libsm/ferror.c0000644000372400037240000000164414556365350015545 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: ferror.c,v 1.14 2013-11-22 20:51:42 ca Exp $") #include #include #include "local.h" /* ** SM_IO_ERROR -- subroutine version of the macro sm_io_error. ** ** Parameters: ** fp -- file pointer ** ** Returns: ** 0 (zero) when 'fp' is not in an error state ** non-zero when 'fp' is in an error state */ #undef sm_io_error int sm_io_error(fp) SM_FILE_T *fp; { SM_REQUIRE_ISA(fp, SmFileMagic); return sm_error(fp); } sendmail-8.18.1/libsm/debug.html0000644000372400037240000001726514556365350016064 0ustar xbuildxbuild libsm : Debugging and Tracing Back to libsm overview

    libsm : Debugging and Tracing


    $Id: debug.html,v 1.9 2002-02-02 16:50:56 ca Exp $

    Introduction

    The debug and trace package provides abstractions for writing trace messages, and abstractions for enabling and disabling debug and trace code at run time.

    Sendmail 8.11 and earlier has a -d option which lets you turn on debug and trace code. Debug categories are integers from 0 to 99, with the sole exception of "ANSI", which is a named debug category.

    The libsm debug package supports named debug categories. Debug category names have the form of C identifiers. For example, sm_trace_heap controls the output of trace messages from the sm heap package, while sm_check_heap controls the argument validity checking and memory leak detection features of the sm heap package.

    In sendmail 8.12, the -d flag is generalized to support both the original style numeric categories, for backwards compatibility, and the new style named categories implemented by libsm. With this change, "-dANSI" is implemented using a libsm named debug category. You will be able to set a collection of named debug categories to the same activation level by specifying a glob pattern. For example,

    -dANSI
    sets the named category "ANSI" to level 1,
    -dfoo_*.3
    sets all named categories matching the glob pattern "foo_*" to level 3,
    -d0-99.1
    sets the numeric categories 0 through 99 to level 1, and
    -dANSI,foo_*.3,0-99.1
    does all of the above.

    Synopsis 

    #include <sm/debug.h>

/*
**  abstractions for printing trace messages
*/
void sm_dprintf(char *fmt, ...)
void sm_dflush()
void sm_debug_setfile(SM_FILE_T *)

/*
**  abstractions for setting and testing debug activation levels
*/
void sm_debug_addsettings(char *settings)
void sm_debug_addsetting(char *pattern, int level)

typedef struct sm_debug SM_DEBUG_T;
SM_DEBUG_T dbg = SM_DEBUG_INITIALIZER("name", "@(#)$Debug: name - description $");

bool sm_debug_active(SM_DEBUG_T *debug, int level)
int  sm_debug_level(SM_DEBUG_T *debug)
bool sm_debug_unknown(SM_DEBUG_T *debug)

    Naming Conventions

    All debug categories defined by libsm have names of the form sm_*. Debug categories that turn on trace output have names of the form *_trace_*. Debug categories that turn on run time checks have names of the form *_check_*. Here are all of the libsm debug categories as of March 2000:
    Variable name Category name Meaning
    SmExpensiveAssert sm_check_assert enable expensive SM_ASSERT checking
    SmExpensiveRequire sm_check_require enable expensive SM_REQUIRE checking
    SmExpensiveEnsure sm_check_ensure enable expensive SM_ENSURE checking
    SmHeapTrace sm_trace_heap trace sm_{malloc,realloc,free} calls
    SmHeapCheck sm_check_heap enable checking and memory leak detection in sm_{malloc,realloc,free}

    Function Reference

    SM_DEBUG_INITIALIZER
    To create a new debug category, use the SM_DEBUG_INITIALIZER macro to initialize a static variable of type SM_DEBUG_T. For example, 
    SM_DEBUG_T ANSI_debug = SM_DEBUG_INITIALIZER("ANSI",
	    "@(#)$Debug: ANSI - enable reverse video in debug output $");
    There is no centralized table of category names that needs to be edited in order to add a new debug category. The sole purpose of the second argument to SM_DEBUG_INITIALIZER is to provide an easy way to find out what named debug categories are present in a sendmail binary. You can use: 
    ident /usr/sbin/sendmail | grep Debug
    or: 
    what /usr/sbin/sendmail | grep Debug
    void sm_debug_addsetting(char *pattern, int level)
    All debug categories default to activation level 0, which means no activity. This function updates an internal database of debug settings, setting all categories whose name matches the specified glob pattern to the specified activation level. The level argument must be >= 0.

    void sm_debug_addsettings(char *settings)
    This function is used to process the -d command line option of Sendmail 9.x, and of other programs that support the setting of named debug categories. The settings argument is a comma-separated list of settings; each setting is a glob pattern, optionally followed by a '.' and a decimal numeral.

    bool sm_debug_active(SM_DEBUG_T *debug, int level)
    This macro returns true if the activation level of the statically initialized debug structure debug is >= the specified level. The test is performed very efficiently: in the most common case, when the result is false, only a single comparison operation is performed.

    This macro performs a function call only if the debug structure has an unknown activation level. All debug structures are in this state at the beginning of program execution, and after a call to sm_debug_addsetting.

    int sm_debug_level(SM_DEBUG_T *debug)
    This macro returns the activation level of the specified debug structure. The comparison 
    sm_debug_level(debug) >= level
    is slightly less efficient than, but otherwise semantically equivalent to 
    sm_debug_active(debug, level)

    bool sm_debug_unknown(SM_DEBUG_T *debug)
    This macro returns true if the activation level of the specified debug structure is unknown. Here is an example of how the macro might be used: 
    if (sm_debug_unknown(&FooDebug))
{
	if (sm_debug_active(&FooDebug, 1))
	{
		... perform some expensive data structure initializations
		... in order to enable the "foo" debugging mechanism
	}
	else
	{
		... disable the "foo" debugging mechanism
	}
}
    The purpose of using sm_debug_unknown in the above example is to avoid performing the expensive initializations each time through the code. So it's a performance hack. A debug structure is in the "unknown" state at the beginning of program execution, and after a call to sm_debug_addsetting. A side effect of calling sm_debug_active is that the activation level becomes known.

    void sm_dprintf(char *fmt, ...)
    This function is used to print a debug message. The standard idiom is 
    if (sm_debug_active(&BarDebug, 1))
	sm_dprintf("bar: about to test tensile strength of bar %d\n", i);

    void sm_dflush()
    Flush the debug output stream.

    void sm_debug_setfile(SM_FILE_T *file)
    This function lets you specify where debug output is printed. By default, debug output is written to standard output.

    We want to allow you to direct debug output to syslog. The current plan is to provide a standard interface for creating an SM_FILE_T object that writes to syslog.

    sendmail-8.18.1/libsm/gen.html0000644000372400037240000000161614556365350015540 0ustar xbuildxbuild libsm : General Definitions Back to libsm overview

    libsm : General Definitions


    $Id: gen.html,v 1.5 2000-12-08 21:41:42 ca Exp $

    Introduction

    The header file <sm/gen.h> contains general definitions that are used by every other header file in libsm.

    Synopsis 

    #include <sm/gen.h>

#define NULL		((void*)0)

typedef int bool;
#define false	0
#define true	1

#define SM_MAX(a, b)	((a) > (b) ? (a) : (b))
#define SM_MIN(a, b)	((a) < (b) ? (a) : (b))

/*
**  The following types can be accessed and updated atomically.
**  This is relevant in the context of signal handlers and threads.
*/
typedef some signed integral type SM_ATOMIC_INT_T;
typedef some unsigned integral type SM_ATOMIC_UINT_T;
    sendmail-8.18.1/libsm/put.c0000644000372400037240000000316414556365350015055 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: put.c,v 1.28 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include #include "local.h" #include "fvwrite.h" /* ** SM_IO_PUTC -- output a character to the file ** ** Function version of the macro sm_io_putc (in ). ** ** Parameters: ** fp -- file to output to ** timeout -- time to complete putc ** c -- int value of character to output ** ** Returns: ** Failure: returns SM_IO_EOF _and_ sets errno ** Success: returns sm_putc() value. ** */ #undef sm_io_putc int sm_io_putc(fp, timeout, c) SM_FILE_T *fp; int timeout; int c; { SM_REQUIRE_ISA(fp, SmFileMagic); if (cantwrite(fp)) { errno = EBADF; return SM_IO_EOF; } return sm_putc(fp, timeout, c); } /* ** SM_PERROR -- print system error messages to smioerr ** ** Parameters: ** s -- message to print ** ** Returns: ** none */ void sm_perror(s) const char *s; { int save_errno = errno; if (s != NULL && *s != '\0') (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: ", s); (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s\n", sm_errstring(save_errno)); } sendmail-8.18.1/libsm/t-strio.c0000644000372400037240000000140714556365350015644 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-strio.c,v 1.12 2013-11-22 20:51:44 ca Exp $") #include #include #include int main(argc, argv) int argc; char *argv[]; { char buf[20]; char *r; SM_FILE_T f; sm_test_begin(argc, argv, "test strio"); (void) memset(buf, '.', 20); sm_strio_init(&f, buf, 10); (void) sm_io_fprintf(&f, SM_TIME_DEFAULT, "foobarbazoom"); sm_io_flush(&f, SM_TIME_DEFAULT); r = "foobarbaz"; SM_TEST(strcmp(buf, r) == 0); return sm_test_end(); } sendmail-8.18.1/libsm/t-exc.c0000644000372400037240000000537714556365350015275 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-exc.c,v 1.21 2013-11-22 20:51:43 ca Exp $") #include #include #include #include const SM_EXC_TYPE_T EtypeTest1 = { SmExcTypeMagic, "E:test1", "i", sm_etype_printf, "test1 exception argv[0]=%0", }; const SM_EXC_TYPE_T EtypeTest2 = { SmExcTypeMagic, "E:test2", "i", sm_etype_printf, "test2 exception argv[0]=%0", }; int main(argc, argv) int argc; char **argv; { void *p; int volatile x; char *unknown, *cant; sm_test_begin(argc, argv, "test exception handling"); /* ** SM_TRY */ cant = "can't happen"; x = 0; SM_TRY x = 1; SM_END_TRY SM_TEST(x == 1); /* ** SM_FINALLY-0 */ x = 0; SM_TRY x = 1; SM_FINALLY x = 2; SM_END_TRY SM_TEST(x == 2); /* ** SM_FINALLY-1 */ x = 0; SM_TRY SM_TRY x = 1; sm_exc_raisenew_x(&EtypeTest1, 17); SM_FINALLY x = 2; sm_exc_raisenew_x(&EtypeTest2, 42); SM_END_TRY SM_EXCEPT(exc, "E:test2") (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "got exception test2: can't happen\n"); SM_EXCEPT(exc, "E:test1") SM_TEST(x == 2 && exc->exc_argv[0].v_int == 17); if (!(x == 2 && exc->exc_argv[0].v_int == 17)) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "can't happen: x=%d argv[0]=%d\n", x, exc->exc_argv[0].v_int); } SM_EXCEPT(exc, "*") { unknown = "unknown exception: "; SM_TEST(strcmp(unknown, cant) == 0); } SM_END_TRY x = 3; SM_TRY x = 4; sm_exc_raisenew_x(&EtypeTest1, 94); SM_FINALLY x = 5; sm_exc_raisenew_x(&EtypeTest2, 95); SM_EXCEPT(exc, "E:test2") { unknown = "got exception test2: "; SM_TEST(strcmp(unknown, cant) == 0); } SM_EXCEPT(exc, "E:test1") SM_TEST(x == 5 && exc->exc_argv[0].v_int == 94); if (!(x == 5 && exc->exc_argv[0].v_int == 94)) { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "can't happen: x=%d argv[0]=%d\n", x, exc->exc_argv[0].v_int); } SM_EXCEPT(exc, "*") { unknown = "unknown exception: "; SM_TEST(strcmp(unknown, cant) == 0); } SM_END_TRY SM_TRY sm_exc_raisenew_x(&SmEtypeErr, "test %d", 0); SM_EXCEPT(exc, "*") #if DEBUG (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "test 0 got an exception, as expected:\n"); sm_exc_print(exc, smioout); #endif return sm_test_end(); SM_END_TRY p = sm_malloc_x((size_t)(-1)); (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "sm_malloc_x unexpectedly succeeded, returning %p\n", p); unknown = "sm_malloc_x unexpectedly succeeded"; SM_TEST(strcmp(unknown, cant) == 0); return sm_test_end(); } sendmail-8.18.1/libsm/util.c0000644000372400037240000001224714556365350015224 0ustar xbuildxbuild/* * Copyright (c) 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: util.c,v 1.10 2013-11-22 20:51:44 ca Exp $") #include #include #include #include #include #include #include /* ** STR2PRT -- convert "unprintable" characters in a string to \oct ** (except for some special chars, see below) ** ** Parameters: ** s -- string to convert [A] ** ** Returns: ** converted string [S][U] ** This is a static local buffer, string must be copied ** before this function is called again! */ char * str2prt(s) char *s; { int l; char c, *h; bool ok; static int len = 0; static char *buf = NULL; #if _FFR_LOGASIS >= 1 #define BADCHAR(ch) ((unsigned char)(ch) <= 31) #else #define BADCHAR(ch) (!(isascii(ch) && isprint(ch))) #endif if (s == NULL) return NULL; ok = true; for (h = s, l = 1; *h != '\0'; h++, l++) { if (*h == '\\') { ++l; ok = false; } else if (BADCHAR(*h)) { l += 3; ok = false; } } if (ok) return s; if (l > len) { char *nbuf = sm_pmalloc_x(l); if (buf != NULL) sm_free(buf); len = l; buf = nbuf; } for (h = buf; *s != '\0' && l > 0; s++, l--) { c = *s; if (c != '\\' && !BADCHAR(c)) { *h++ = c; } else { *h++ = '\\'; --l; switch (c) { case '\\': *h++ = '\\'; break; case '\t': *h++ = 't'; break; case '\n': *h++ = 'n'; break; case '\r': *h++ = 'r'; break; default: SM_ASSERT(l >= 2); (void) sm_snprintf(h, l, "%03o", (unsigned int)((unsigned char) c)); /* ** XXX since l is unsigned this may wrap ** around if the calculation is screwed up... */ l -= 2; h += 3; break; } } } *h = '\0'; buf[len - 1] = '\0'; return buf; } /* ** QUOTE_INTERNAL_CHARS -- do quoting of internal characters ** ** Necessary to make sure that we don't have metacharacters such ** as the internal versions of "$*" or "$&" in a string. ** The input and output pointers can be the same. ** ** Parameters: ** ibp -- a pointer to the string to translate [x] ** obp -- a pointer to an output buffer [i][m:A] ** bsp -- pointer to the length of the output buffer ** rpool -- rpool for allocations ** ** Returns: ** A possibly new obp (if the buffer needed to grow); ** if it is different, *bsp will updated to the size of ** the new buffer and the caller is responsible for ** freeing the memory. */ #define SM_MM_QUOTE(ch) (((ch) & 0377) == METAQUOTE || (((ch) & 0340) == 0200)) char * #if SM_HEAP_CHECK > 2 quote_internal_chars_tagged #else quote_internal_chars #endif (ibp, obp, bsp, rpool #if SM_HEAP_CHECK > 2 , tag, line, group #endif ) char *ibp; char *obp; int *bsp; SM_RPOOL_T *rpool; #if SM_HEAP_CHECK > 2 char *tag; int line; int group; #else # define tag "quote_internal_chars" # define line 1 # define group 1 #endif { char *ip, *op; int bufused, olen; bool buffer_same, needs_quoting; if (NULL == ibp) return NULL; buffer_same = ibp == obp; SM_REQUIRE(NULL != bsp); if (NULL == obp) *bsp = 0; needs_quoting = false; /* determine length of output string (starts at 1 for trailing '\0') */ for (ip = ibp, olen = 1; *ip != '\0'; ip++, olen++) { if (SM_MM_QUOTE(*ip)) { olen++; needs_quoting = true; } } /* is the output buffer big enough? */ if (olen > *bsp) { obp = sm_rpool_malloc_tagged_x(rpool, olen, tag, line, group); buffer_same = false; *bsp = olen; } /* ** shortcut: no change needed? ** Note: we don't check this first as some bozo may use the same ** buffers but restrict the size of the output buffer to less ** than the length of the input buffer in which case we need to ** allocate a new buffer. */ if (!needs_quoting) { if (!buffer_same) { bufused = sm_strlcpy(obp, ibp, *bsp); SM_ASSERT(bufused <= olen); } return obp; } if (buffer_same) { obp = sm_malloc_tagged_x(olen, tag, line + 1, group); buffer_same = false; *bsp = olen; } for (ip = ibp, op = obp, bufused = 0; *ip != '\0'; ip++) { if (SM_MM_QUOTE(*ip)) { SM_ASSERT(bufused < olen); op[bufused++] = METAQUOTE; } SM_ASSERT(bufused < olen); op[bufused++] = *ip; } op[bufused] = '\0'; return obp; } #if SM_HEAP_CHECK <= 2 # undef tag # undef line # undef group #endif /* ** DEQUOTE_INTERNAL_CHARS -- undo the effect of quote_internal_chars ** ** Parameters: ** ibp -- a pointer to the string to be translated. [i] ** obp -- a pointer to the output buffer. [x] ** Can be the same as ibp. ** obs -- the size of the output buffer. ** ** Returns: ** number of character added to obp */ int dequote_internal_chars(ibp, obp, obs) char *ibp; char *obp; int obs; { char *ip, *op; int len; bool quoted; quoted = false; len = 0; for (ip = ibp, op = obp; *ip != '\0'; ip++) { if ((*ip & 0377) == METAQUOTE && !quoted) { quoted = true; continue; } if (op < &obp[obs - 1]) { *op++ = *ip; ++len; } quoted = false; } *op = '\0'; return len; } sendmail-8.18.1/libsm/config.c0000644000372400037240000001071714556365350015514 0ustar xbuildxbuild/* * Copyright (c) 2000-2003, 2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: config.c,v 1.32 2013-11-22 20:51:42 ca Exp $") #include #include #include #include /* ** PUTENV -- emulation of putenv() in terms of setenv() ** ** Not needed on Posix-compliant systems. ** This doesn't have full Posix semantics, but it's good enough ** for sendmail. ** ** Parameter: ** env -- the environment to put. ** ** Returns: ** 0 on success, < 0 on failure. */ #if NEEDPUTENV # if NEEDPUTENV == 2 /* no setenv(3) call available */ int putenv(str) char *str; { char **current; int matchlen, envlen = 0; char *tmp; char **newenv; static bool first = true; extern char **environ; /* ** find out how much of str to match when searching ** for a string to replace. */ if ((tmp = strchr(str, '=')) == NULL || tmp == str) matchlen = strlen(str); else matchlen = (int) (tmp - str); ++matchlen; /* ** Search for an existing string in the environment and find the ** length of environ. If found, replace and exit. */ for (current = environ; *current != NULL; current++) { ++envlen; if (strncmp(str, *current, matchlen) == 0) { /* found it, now insert the new version */ *current = (char *) str; return 0; } } /* ** There wasn't already a slot so add space for a new slot. ** If this is our first time through, use malloc(), else realloc(). */ if (first) { newenv = (char **) sm_malloc(sizeof(char *) * (envlen + 2)); if (newenv == NULL) return -1; first = false; (void) memcpy(newenv, environ, sizeof(char *) * envlen); } else { newenv = (char **) sm_realloc((char *) environ, sizeof(char *) * (envlen + 2)); if (newenv == NULL) return -1; } /* actually add in the new entry */ environ = newenv; environ[envlen] = (char *) str; environ[envlen + 1] = NULL; return 0; } # else /* NEEDPUTENV == 2 */ int putenv(env) char *env; { char *p; int l; char nbuf[100]; p = strchr(env, '='); if (p == NULL) return 0; l = p - env; if (l > sizeof nbuf - 1) l = sizeof nbuf - 1; memmove(nbuf, env, l); nbuf[l] = '\0'; return setenv(nbuf, ++p, 1); } # endif /* NEEDPUTENV == 2 */ #endif /* NEEDPUTENV */ /* ** UNSETENV -- remove a variable from the environment ** ** Not needed on newer systems. ** ** Parameters: ** name -- the string name of the environment variable to be ** deleted from the current environment. ** ** Returns: ** none. ** ** Globals: ** environ -- a pointer to the current environment. ** ** Side Effects: ** Modifies environ. */ #if !HASUNSETENV void unsetenv(name) char *name; { extern char **environ; register char **pp; int len = strlen(name); for (pp = environ; *pp != NULL; pp++) { if (strncmp(name, *pp, len) == 0 && ((*pp)[len] == '=' || (*pp)[len] == '\0')) break; } for (; *pp != NULL; pp++) *pp = pp[1]; } #endif /* !HASUNSETENV */ char *SmCompileOptions[] = { #if SM_CONF_BROKEN_STRTOD "SM_CONF_BROKEN_STRTOD", #endif #if SM_CONF_GETOPT "SM_CONF_GETOPT", #endif #if SM_CONF_LDAP_INITIALIZE "SM_CONF_LDAP_INITIALIZE", #endif #if SM_CONF_LDAP_MEMFREE "SM_CONF_LDAP_MEMFREE", #endif #if SM_CONF_LONGLONG "SM_CONF_LONGLONG", #endif #if SM_CONF_MEMCHR "SM_CONF_MEMCHR", #endif #if SM_CONF_MSG "SM_CONF_MSG", #endif #if SM_CONF_QUAD_T "SM_CONF_QUAD_T", #endif #if SM_CONF_SEM "SM_CONF_SEM", #endif #if SM_CONF_SETITIMER "SM_CONF_SETITIMER", #endif #if SM_CONF_SIGSETJMP "SM_CONF_SIGSETJMP", #endif #if SM_CONF_SHM "SM_CONF_SHM", #endif #if SM_CONF_SHM_DELAY "SM_CONF_SHM_DELAY", #endif #if SM_CONF_SSIZE_T "SM_CONF_SSIZE_T", #endif #if SM_CONF_STDBOOL_H "SM_CONF_STDBOOL_H", #endif #if SM_CONF_STDDEF_H "SM_CONF_STDDEF_H", #endif /* XXX this is always enabled (for now) */ #if SM_CONF_STRL && 0 "SM_CONF_STRL", #endif #if SM_CONF_SYS_CDEFS_H "SM_CONF_SYS_CDEFS_H", #endif #if SM_CONF_SYSEXITS_H "SM_CONF_SYSEXITS_H", #endif #if SM_CONF_UID_GID "SM_CONF_UID_GID", #endif #if DO_NOT_USE_STRCPY "DO_NOT_USE_STRCPY", #endif #if SM_HEAP_CHECK "SM_HEAP_CHECK", #endif #if defined(SM_OS_NAME) && defined(__STDC__) "SM_OS=sm_os_" SM_OS_NAME, #endif #if SM_VA_STD "SM_VA_STD", #endif #if USEKSTAT "USEKSTAT", #endif #if USEPROCMEMINFO "USEPROCMEMINFO", #endif #if USESWAPCTL "USESWAPCTL", #endif NULL }; sendmail-8.18.1/libsm/fscanf.c0000644000372400037240000000254014556365350015502 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fscanf.c,v 1.18 2013-11-22 20:51:42 ca Exp $") #include #include #include #include "local.h" /* ** SM_IO_FSCANF -- convert input data to translated format ** ** Parameters: ** fp -- the file pointer to obtain the data from ** timeout -- time to complete scan ** fmt -- the format to translate the data to ** ... -- memory locations to place the formatted data ** ** Returns: ** Failure: returns SM_IO_EOF ** Success: returns the number of data units translated */ int #if SM_VA_STD sm_io_fscanf(SM_FILE_T *fp, int timeout, char const *fmt, ...) #else /* SM_VA_STD */ sm_io_fscanf(fp, timeout, fmt, va_alist) SM_FILE_T *fp; int timeout; char *fmt; va_dcl #endif /* SM_VA_STD */ { int ret; SM_VA_LOCAL_DECL SM_REQUIRE_ISA(fp, SmFileMagic); SM_VA_START(ap, fmt); ret = sm_vfscanf(fp, timeout, fmt, ap); SM_VA_END(ap); return ret; } sendmail-8.18.1/libsm/t-smstdio.c0000644000372400037240000000306214556365350016165 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-smstdio.c,v 1.12 2013-11-22 20:51:43 ca Exp $") #include #include #include int main(argc, argv) int argc; char **argv; { FILE *stream; SM_FILE_T *fp; char buf[128]; size_t n; static char testmsg[] = "hello, world\n"; sm_test_begin(argc, argv, "test sm_io_stdioopen, smiostdin, smiostdout"); stream = fopen("t-smstdio.1", "w"); SM_TEST(stream != NULL); fp = sm_io_stdioopen(stream, "w"); SM_TEST(fp != NULL); (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s", testmsg); sm_io_close(fp, SM_TIME_DEFAULT); #if 0 /* ** stream should now be closed. This is a tricky way to test ** if it is still open. Alas, it core dumps on Linux. */ fprintf(stream, "oops! stream is still open!\n"); fclose(stream); #endif stream = fopen("t-smstdio.1", "r"); SM_TEST(stream != NULL); fp = sm_io_stdioopen(stream, "r"); SM_TEST(fp != NULL); n = sm_io_read(fp, SM_TIME_DEFAULT, buf, sizeof(buf)); if (SM_TEST(n == strlen(testmsg))) { buf[n] = '\0'; SM_TEST(strcmp(buf, testmsg) == 0); } #if 0 /* ** Copy smiostdin to smiostdout ** gotta think some more about how to test smiostdin and smiostdout */ while ((c = sm_io_getc(smiostdin)) != SM_IO_EOF) sm_io_putc(smiostdout, c); #endif return sm_test_end(); } sendmail-8.18.1/libsm/stringf.c0000644000372400037240000000341314556365350015716 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: stringf.c,v 1.16 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include /* ** SM_STRINGF_X -- printf() to dynamically allocated string. ** ** Takes the same arguments as printf. ** It returns a pointer to a dynamically allocated string ** containing the text that printf would print to standard output. ** It raises an exception on error. ** The name comes from a PWB Unix function called stringf. ** ** Parameters: ** fmt -- format string. ** ... -- arguments for format. ** ** Returns: ** Pointer to a dynamically allocated string. ** ** Exceptions: ** F:sm_heap -- out of memory (via sm_vstringf_x()). */ char * #if SM_VA_STD sm_stringf_x(const char *fmt, ...) #else /* SM_VA_STD */ sm_stringf_x(fmt, va_alist) const char *fmt; va_dcl #endif /* SM_VA_STD */ { SM_VA_LOCAL_DECL char *s; SM_VA_START(ap, fmt); s = sm_vstringf_x(fmt, ap); SM_VA_END(ap); return s; } /* ** SM_VSTRINGF_X -- printf() to dynamically allocated string. ** ** Parameters: ** fmt -- format string. ** ap -- arguments for format. ** ** Returns: ** Pointer to a dynamically allocated string. ** ** Exceptions: ** F:sm_heap -- out of memory */ char * sm_vstringf_x(fmt, ap) const char *fmt; va_list ap; { char *s; sm_vasprintf(&s, fmt, ap); if (s == NULL) { if (errno == ENOMEM) sm_exc_raise_x(&SmHeapOutOfMemory); sm_exc_raisenew_x(&SmEtypeOs, errno, "sm_vasprintf", NULL); } return s; } sendmail-8.18.1/libsm/fput.c0000644000372400037240000000237714556365350015230 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fput.c,v 1.21 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include "local.h" #include "fvwrite.h" /* ** SM_IO_FPUTS -- add a string to the buffer for the file pointer ** ** Parameters: ** fp -- the file pointer for the buffer to be written to ** timeout -- time to complete the put-string ** s -- string to be placed in the buffer ** ** Returns: ** Failure: returns SM_IO_EOF ** Success: returns 0 (zero) */ int sm_io_fputs(fp, timeout, s) SM_FILE_T *fp; int timeout; const char *s; { struct sm_uio uio; struct sm_iov iov; SM_REQUIRE_ISA(fp, SmFileMagic); iov.iov_base = (void *) s; iov.iov_len = uio.uio_resid = strlen(s); uio.uio_iov = &iov; uio.uio_iovcnt = 1; return sm_fvwrite(fp, timeout, &uio); } sendmail-8.18.1/libsm/match.c0000644000372400037240000000543014556365350015337 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: match.c,v 1.11 2013-11-22 20:51:43 ca Exp $") #include /* ** SM_MATCH -- Match a character string against a glob pattern. ** ** Parameters: ** str -- string. ** par -- pattern to find in str. ** ** Returns: ** true on match, false on non-match. ** ** A pattern consists of normal characters, which match themselves, ** and meta-sequences. A * matches any sequence of characters. ** A ? matches any single character. A [ introduces a character class. ** A ] marks the end of a character class; if the ] is missing then ** the [ matches itself rather than introducing a character class. ** A character class matches any of the characters between the brackets. ** The range of characters from X to Y inclusive is written X-Y. ** If the first character after the [ is ! then the character class is ** complemented. ** ** To include a ] in a character class, make it the first character ** listed (after the !, if any). To include a -, make it the first ** character listed (after the !, if any) or the last character. ** It is impossible for a ] to be the final character in a range. ** For glob patterns that literally match "*", "?" or "[", ** use [*], [?] or [[]. */ bool sm_match(str, pat) const char *str; const char *pat; { bool ccnot, ccmatch, ccfirst; const char *ccstart; char c, c2; for (;;) { switch (*pat) { case '\0': return *str == '\0'; case '?': if (*str == '\0') return false; ++pat; ++str; continue; case '*': ++pat; if (*pat == '\0') { /* optimize case of trailing '*' */ return true; } for (;;) { if (sm_match(pat, str)) return true; if (*str == '\0') return false; ++str; } /* NOTREACHED */ case '[': ccstart = pat++; ccnot = false; if (*pat == '!') { ccnot = true; ++pat; } ccmatch = false; ccfirst = true; for (;;) { if (*pat == '\0') { pat = ccstart; goto defl; } if (*pat == ']' && !ccfirst) break; c = *pat++; ccfirst = false; if (*pat == '-' && pat[1] != ']') { ++pat; if (*pat == '\0') { pat = ccstart; goto defl; } c2 = *pat++; if (*str >= c && *str <= c2) ccmatch = true; } else { if (*str == c) ccmatch = true; } } if (ccmatch ^ ccnot) { ++pat; ++str; } else return false; continue; default: defl: if (*pat != *str) return false; ++pat; ++str; continue; } } } sendmail-8.18.1/libsm/t-rpool.c0000644000372400037240000000300114556365350015627 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-rpool.c,v 1.19 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include static void rfree __P(( void *cx)); static void rfree(cx) void *cx; { (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "rfree freeing `%s'\n", (char *) cx); } int main(argc, argv) int argc; char *argv[]; { SM_RPOOL_T *rpool; char *a[26]; int i, j; SM_RPOOL_ATTACH_T att; sm_test_begin(argc, argv, "test rpool"); sm_debug_addsetting_x("sm_check_heap", 1); rpool = sm_rpool_new_x(NULL); SM_TEST(rpool != NULL); att = sm_rpool_attach_x(rpool, rfree, "attachment #1"); SM_TEST(att != NULL); for (i = 0; i < 26; ++i) { size_t sz = i * i * i; a[i] = sm_rpool_malloc_x(rpool, sz); for (j = 0; j < sz; ++j) a[i][j] = 'a' + i; } att = sm_rpool_attach_x(rpool, rfree, "attachment #2"); (void) sm_rpool_attach_x(rpool, rfree, "attachment #3"); sm_rpool_detach(att); /* XXX more tests? */ #if DEBUG sm_dprintf("heap after filling up rpool:\n"); sm_heap_report(smioout, 3); sm_dprintf("freeing rpool:\n"); sm_rpool_free(rpool); sm_dprintf("heap after freeing rpool:\n"); sm_heap_report(smioout, 3); #endif /* DEBUG */ return sm_test_end(); } sendmail-8.18.1/libsm/clrerr.c0000644000372400037240000000155014556365350015533 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: clrerr.c,v 1.14 2013-11-22 20:51:42 ca Exp $") #include #include #include "local.h" /* ** SM_IO_CLEARERR -- public function to clear a file pointer's error status ** ** Parameters: ** fp -- the file pointer ** ** Returns: ** nothing. */ #undef sm_io_clearerr void sm_io_clearerr(fp) SM_FILE_T *fp; { SM_REQUIRE_ISA(fp, SmFileMagic); sm_clearerr(fp); } sendmail-8.18.1/libsm/t-scanf.c0000644000372400037240000000260114556365350015573 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-scanf.c,v 1.6 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include int main(argc, argv) int argc; char **argv; { int i, d, h; char buf[128]; char *r; sm_test_begin(argc, argv, "test scanf point stuff"); #if !SM_CONF_BROKEN_SIZE_T (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "If tests for \"h == 2\" fail, check whether size_t is signed on your OS.\n\ If that is the case, add -DSM_CONF_BROKEN_SIZE_T to confENVDEF\n\ and start over. Otherwise contact sendmail.org.\n"); #endif d = 2; sm_snprintf(buf, sizeof(buf), "%d", d); r = "2"; if (!SM_TEST(strcmp(buf, r) == 0)) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "got %s instead\n", buf); i = sm_io_sscanf(buf, "%d", &h); SM_TEST(i == 1); SM_TEST(h == 2); d = 2; sm_snprintf(buf, sizeof(buf), "%d\n", d); r = "2\n"; if (!SM_TEST(strcmp(buf, r) == 0)) (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "got %s instead\n", buf); i = sm_io_sscanf(buf, "%d", &h); SM_TEST(i == 1); SM_TEST(h == 2); return sm_test_end(); } sendmail-8.18.1/libsm/test.c0000644000372400037240000000534714556365350015231 0ustar xbuildxbuild/* * Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(Id, "@(#)$Id: test.c,v 1.17 2013-11-22 20:51:44 ca Exp $") /* ** Abstractions for writing libsm test programs. */ #include #include #include #include #include extern char *optarg; extern int optind; extern int optopt; extern int opterr; int SmTestIndex; int SmTestNumErrors; bool SmTestVerbose; static char Help[] = "\ %s [-h] [-d debugging] [-v]\n\ \n\ %s\n\ \n\ -h Display this help information.\n\ -d debugging Set debug activation levels.\n\ -v Verbose output.\n\ "; static char Usage[] = "\ Usage: %s [-h] [-v]\n\ Use %s -h for help.\n\ "; /* ** SM_TEST_BEGIN -- initialize test system. ** ** Parameters: ** argc -- argument counter. ** argv -- argument vector. ** testname -- description of tests. ** ** Results: ** none. */ void sm_test_begin(argc, argv, testname) int argc; char **argv; char *testname; { int c; SmTestIndex = 0; SmTestNumErrors = 0; SmTestVerbose = false; opterr = 0; while ((c = getopt(argc, argv, "vhd:")) != -1) { switch (c) { case 'v': SmTestVerbose = true; break; case 'd': sm_debug_addsettings_x(optarg); break; case 'h': (void) fprintf(stdout, Help, argv[0], testname); exit(0); default: (void) fprintf(stderr, "Unknown command line option -%c\n", optopt); (void) fprintf(stderr, Usage, argv[0], argv[0]); exit(1); } } } /* ** SM_TEST -- single test. ** ** Parameters: ** success -- did test succeed? ** expr -- expression that has been evaluated. ** filename -- guess... ** lineno -- line number. ** ** Results: ** value of success. */ bool sm_test(success, expr, filename, lineno) bool success; char *expr; char *filename; int lineno; { ++SmTestIndex; if (SmTestVerbose) (void) fprintf(stderr, "%d..", SmTestIndex); if (!success) { ++SmTestNumErrors; if (!SmTestVerbose) (void) fprintf(stderr, "%d..", SmTestIndex); (void) fprintf(stderr, "bad! %s:%d %s\n", filename, lineno, expr); } else { if (SmTestVerbose) (void) fprintf(stderr, "ok\n"); } return success; } /* ** SM_TEST_END -- end of test system. ** ** Parameters: ** none. ** ** Results: ** number of errors. */ int sm_test_end() { (void) fprintf(stderr, "%d of %d tests completed successfully\n", SmTestIndex - SmTestNumErrors, SmTestIndex); if (SmTestNumErrors != 0) (void) fprintf(stderr, "*** %d error%s in test! ***\n", SmTestNumErrors, SmTestNumErrors > 1 ? "s" : ""); return SmTestNumErrors; } sendmail-8.18.1/libsm/strerror.c0000644000372400037240000000242614556365350016127 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: strerror.c,v 1.24 2013-11-22 20:51:43 ca Exp $") /* ** define strerror for platforms that lack it. */ #include #include /* sys_errlist, on some platforms */ #include /* sm_snprintf */ #include #include #include #if !defined(ERRLIST_PREDEFINED) extern char *sys_errlist[]; extern int sys_nerr; #endif #if !HASSTRERROR /* ** STRERROR -- return error message string corresponding to an error number. ** ** Parameters: ** err -- error number. ** ** Returns: ** Error string (might be pointer to static buffer). */ char * strerror(err) int err; { static char buf[64]; if (err >= 0 && err < sys_nerr) return (char *) sys_errlist[err]; else { (void) sm_snprintf(buf, sizeof(buf), "Error %d", err); return buf; } } #endif /* !HASSTRERROR */ sendmail-8.18.1/libsm/fseek.c0000644000372400037240000001637514556365350015352 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fseek.c,v 1.48 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include #include #include #include #include #include #include #include "local.h" #define POS_ERR (-(off_t)1) static void seekalrm __P((int)); static jmp_buf SeekTimeOut; /* ** SEEKALRM -- handler when timeout activated for sm_io_seek() ** ** Returns flow of control to where setjmp(SeekTimeOut) was set. ** ** Parameters: ** sig -- unused ** ** Returns: ** does not return ** ** Side Effects: ** returns flow of control to setjmp(SeekTimeOut). ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED0 */ static void seekalrm(sig) int sig; { longjmp(SeekTimeOut, 1); } /* ** SM_IO_SEEK -- position the file pointer ** ** Parameters: ** fp -- the file pointer to be seek'd ** timeout -- time to complete seek (milliseconds) ** offset -- seek offset based on 'whence' ** whence -- indicates where seek is relative from. ** One of SM_IO_SEEK_{CUR,SET,END}. ** Returns: ** Failure: returns -1 (minus 1) and sets errno ** Success: returns 0 (zero) */ int sm_io_seek(fp, timeout, offset, whence) register SM_FILE_T *fp; int SM_NONVOLATILE timeout; long SM_NONVOLATILE offset; int SM_NONVOLATILE whence; { bool havepos; off_t target, curoff; size_t n; struct stat st; int ret; SM_EVENT *evt = NULL; register off_t (*seekfn) __P((SM_FILE_T *, off_t, int)); SM_REQUIRE_ISA(fp, SmFileMagic); /* make sure stdio is set up */ if (!Sm_IO_DidInit) sm_init(); /* Have to be able to seek. */ if ((seekfn = fp->f_seek) == NULL) { errno = ESPIPE; /* historic practice */ return -1; } if (timeout == SM_TIME_DEFAULT) timeout = fp->f_timeout; if (timeout == SM_TIME_IMMEDIATE) { /* ** Filling the buffer will take time and we are wanted to ** return immediately. So... */ errno = EAGAIN; return -1; } #define SM_SET_ALARM() \ if (timeout != SM_TIME_FOREVER) \ { \ if (setjmp(SeekTimeOut) != 0) \ { \ errno = EAGAIN; \ return -1; \ } \ evt = sm_seteventm(timeout, seekalrm, 0); \ } /* ** Change any SM_IO_SEEK_CUR to SM_IO_SEEK_SET, and check `whence' ** argument. After this, whence is either SM_IO_SEEK_SET or ** SM_IO_SEEK_END. */ switch (whence) { case SM_IO_SEEK_CUR: /* ** In order to seek relative to the current stream offset, ** we have to first find the current stream offset a la ** ftell (see ftell for details). */ /* may adjust seek offset on append stream */ sm_flush(fp, (int *) &timeout); SM_SET_ALARM(); if (fp->f_flags & SMOFF) curoff = fp->f_lseekoff; else { curoff = (*seekfn)(fp, (off_t) 0, SM_IO_SEEK_CUR); if (curoff == -1L) { ret = -1; goto clean; } } if (fp->f_flags & SMRD) { curoff -= fp->f_r; if (HASUB(fp)) curoff -= fp->f_ur; } else if (fp->f_flags & SMWR && fp->f_p != NULL) curoff += fp->f_p - fp->f_bf.smb_base; offset += curoff; whence = SM_IO_SEEK_SET; havepos = true; break; case SM_IO_SEEK_SET: case SM_IO_SEEK_END: SM_SET_ALARM(); curoff = 0; /* XXX just to keep gcc quiet */ havepos = false; break; default: errno = EINVAL; return -1; } /* ** Can only optimise if: ** reading (and not reading-and-writing); ** not unbuffered; and ** this is a `regular' Unix file (and hence seekfn==sm_stdseek). ** We must check SMNBF first, because it is possible to have SMNBF ** and SMSOPT both set. */ if (fp->f_bf.smb_base == NULL) sm_makebuf(fp); if (fp->f_flags & (SMWR | SMRW | SMNBF | SMNPT)) goto dumb; if ((fp->f_flags & SMOPT) == 0) { if (seekfn != sm_stdseek || fp->f_file < 0 || fstat(fp->f_file, &st) || (st.st_mode & S_IFMT) != S_IFREG) { fp->f_flags |= SMNPT; goto dumb; } fp->f_blksize = st.st_blksize; fp->f_flags |= SMOPT; } /* ** We are reading; we can try to optimise. ** Figure out where we are going and where we are now. */ if (whence == SM_IO_SEEK_SET) target = offset; else { if (fstat(fp->f_file, &st)) goto dumb; target = st.st_size + offset; } if (!havepos) { if (fp->f_flags & SMOFF) curoff = fp->f_lseekoff; else { curoff = (*seekfn)(fp, (off_t) 0, SM_IO_SEEK_CUR); if (curoff == POS_ERR) goto dumb; } curoff -= fp->f_r; if (HASUB(fp)) curoff -= fp->f_ur; } /* ** Compute the number of bytes in the input buffer (pretending ** that any ungetc() input has been discarded). Adjust current ** offset backwards by this count so that it represents the ** file offset for the first byte in the current input buffer. */ if (HASUB(fp)) { curoff += fp->f_r; /* kill off ungetc */ n = fp->f_up - fp->f_bf.smb_base; curoff -= n; n += fp->f_ur; } else { n = fp->f_p - fp->f_bf.smb_base; curoff -= n; n += fp->f_r; } /* ** If the target offset is within the current buffer, ** simply adjust the pointers, clear SMFEOF, undo ungetc(), ** and return. (If the buffer was modified, we have to ** skip this; see getln in fget.c.) */ if (target >= curoff && target < curoff + (off_t) n) { register int o = target - curoff; fp->f_p = fp->f_bf.smb_base + o; fp->f_r = n - o; if (HASUB(fp)) FREEUB(fp); fp->f_flags &= ~SMFEOF; ret = 0; goto clean; } /* ** The place we want to get to is not within the current buffer, ** but we can still be kind to the kernel copyout mechanism. ** By aligning the file offset to a block boundary, we can let ** the kernel use the VM hardware to map pages instead of ** copying bytes laboriously. Using a block boundary also ** ensures that we only read one block, rather than two. */ curoff = target & ~(fp->f_blksize - 1); if ((*seekfn)(fp, curoff, SM_IO_SEEK_SET) == POS_ERR) goto dumb; fp->f_r = 0; fp->f_p = fp->f_bf.smb_base; if (HASUB(fp)) FREEUB(fp); fp->f_flags &= ~SMFEOF; n = target - curoff; if (n) { /* Note: SM_TIME_FOREVER since fn timeout already set */ if (sm_refill(fp, SM_TIME_FOREVER) || fp->f_r < (int) n) goto dumb; fp->f_p += n; fp->f_r -= n; } ret = 0; clean: /* We're back. So undo our timeout and handler */ if (evt != NULL) sm_clrevent(evt); return ret; dumb: /* ** We get here if we cannot optimise the seek ... just ** do it. Allow the seek function to change fp->f_bf.smb_base. */ /* Note: SM_TIME_FOREVER since fn timeout already set */ ret = SM_TIME_FOREVER; if (sm_flush(fp, &ret) != 0 || (*seekfn)(fp, (off_t) offset, whence) == POS_ERR) { ret = -1; goto clean; } /* success: clear SMFEOF indicator and discard ungetc() data */ if (HASUB(fp)) FREEUB(fp); fp->f_p = fp->f_bf.smb_base; fp->f_r = 0; fp->f_flags &= ~SMFEOF; ret = 0; goto clean; } sendmail-8.18.1/libsm/t-shm.c0000644000372400037240000001070714556365350015276 0ustar xbuildxbuild/* * Copyright (c) 2000-2002, 2004, 2005 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: t-shm.c,v 1.23 2013-11-22 20:51:43 ca Exp $") #include #if SM_CONF_SHM # include # include # include # include # include # include # include # include # define SHMSIZE 1024 # define SHM_MAX 6400000 # define T_SHMKEY 21 /* ** SHMINTER -- interactive testing of shared memory ** ** Parameters: ** owner -- create segment. ** ** Returns: ** 0 on success ** < 0 on failure. */ int shminter __P((bool)); int shminter(owner) bool owner; { int *shm, shmid; int i, t; shm = (int *) sm_shmstart(T_SHMKEY, SHMSIZE, 0, &shmid, owner); if (shm == (int *) 0) { perror("shminit failed"); return -1; } while ((t = getchar()) != EOF) { switch (t) { case 'c': *shm = 0; break; case 'i': ++*shm; break; case 'd': --*shm; break; case 's': sleep(1); break; case 'l': t = *shm; for (i = 0; i < SHM_MAX; i++) { ++*shm; } if (*shm != SHM_MAX + t) fprintf(stderr, "error: %d != %d\n", *shm, SHM_MAX + t); break; case 'v': printf("shmval: %d\n", *shm); break; case 'S': i = sm_shmsetowner(shmid, getuid(), getgid(), 0644); printf("sm_shmsetowner=%d\n", i); break; } } return sm_shmstop((void *) shm, shmid, owner); } /* ** SHMBIG -- testing of shared memory ** ** Parameters: ** owner -- create segment. ** size -- size of segment. ** ** Returns: ** 0 on success ** < 0 on failure. */ int shmbig __P((bool, int)); int shmbig(owner, size) bool owner; int size; { int *shm, shmid; int i; shm = (int *) sm_shmstart(T_SHMKEY, size, 0, &shmid, owner); if (shm == (int *) 0) { perror("shminit failed"); return -1; } for (i = 0; i < size / sizeof(int); i++) shm[i] = i; for (i = 0; i < size / sizeof(int); i++) { if (shm[i] != i) { fprintf(stderr, "failed at %d: %d", i, shm[i]); } } return sm_shmstop((void *) shm, shmid, owner); } /* ** SHMTEST -- test of shared memory ** ** Parameters: ** owner -- create segment. ** ** Returns: ** 0 on success ** < 0 on failure. */ # define MAX_CNT 10 int shmtest __P((int)); int shmtest(owner) int owner; { int *shm, shmid; int cnt = 0; shm = (int *) sm_shmstart(T_SHMKEY, SHMSIZE, 0, &shmid, owner); if (shm == (int *) 0) { perror("shminit failed"); return -1; } if (owner) { int r; r = sm_shmsetowner(shmid, getuid(), getgid(), 0660); SM_TEST(r == 0); *shm = 1; while (*shm == 1 && cnt++ < MAX_CNT) sleep(1); SM_TEST(cnt <= MAX_CNT); /* release and re-acquire the segment */ r = sm_shmstop((void *) shm, shmid, owner); SM_TEST(r == 0); shm = (int *) sm_shmstart(T_SHMKEY, SHMSIZE, 0, &shmid, owner); SM_TEST(shm != (int *) 0); } else { while (*shm != 1 && cnt++ < MAX_CNT) sleep(1); SM_TEST(cnt <= MAX_CNT); *shm = 2; /* wait a momemt so the segment is still in use */ sleep(2); } return sm_shmstop((void *) shm, shmid, owner); } int main(argc, argv) int argc; char *argv[]; { bool interactive = false; bool owner = false; int big = -1; int ch; int r = 0; int status; extern char *optarg; # define OPTIONS "b:io" while ((ch = getopt(argc, argv, OPTIONS)) != -1) { switch ((char) ch) { case 'b': big = atoi(optarg); break; case 'i': interactive = true; break; case 'o': owner = true; break; default: break; } } if (interactive) r = shminter(owner); else if (big > 0) r = shmbig(true, big); else { pid_t pid; extern int SmTestNumErrors; if ((pid = fork()) < 0) { perror("fork failed\n"); return -1; } sm_test_begin(argc, argv, "test shared memory"); if (pid == 0) { /* give the parent the chance to setup data */ sleep(1); r = shmtest(false); } else { r = shmtest(true); (void) wait(&status); } SM_TEST(r == 0); if (SmTestNumErrors > 0) printf("add -DSM_CONF_SHM=0 to confENVDEF in devtools/Site/site.config.m4\nand start over.\n"); return sm_test_end(); } return r; } #else /* SM_CONF_SHM */ int main(argc, argv) int argc; char *argv[]; { printf("No support for shared memory configured on this machine\n"); return 0; } #endif /* SM_CONF_SHM */ sendmail-8.18.1/libsm/flags.c0000644000372400037240000000242114556365350015334 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2004, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: flags.c,v 1.24 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include "local.h" /* ** SM_FLAGS -- translate external (user) flags into internal flags ** ** Parameters: ** flags -- user select flags ** ** Returns: ** Internal flag value matching user selected flags */ int sm_flags(flags) int flags; { int ret; switch(SM_IO_MODE(flags)) { case SM_IO_RDONLY: /* open for reading */ ret = SMRD; break; case SM_IO_WRONLY: /* open for writing */ ret = SMWR; break; case SM_IO_APPEND: /* open for appending */ ret = SMWR; break; case SM_IO_RDWR: /* open for read and write */ ret = SMRW; break; default: ret = 0; break; } if (SM_IS_BINARY(flags)) ret |= SM_IO_BINARY; return ret; } sendmail-8.18.1/libsm/t-cf.c0000644000372400037240000000164614556365350015101 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_IDSTR(id, "@(#)$Id: t-cf.c,v 1.8 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include int main(argc, argv) int argc; char **argv; { SM_CF_OPT_T opt; int err; if (argc != 3) { fprintf(stderr, "Usage: %s .cf-file option\n", argv[0]); exit(1); } opt.opt_name = argv[2]; opt.opt_val = NULL; err = sm_cf_getopt(argv[1], 1, &opt); if (err) { fprintf(stderr, "%s: %s\n", argv[1], strerror(err)); exit(1); } if (opt.opt_val == NULL) printf("Error: option \"%s\" not found\n", opt.opt_name); else printf("%s=%s\n", opt.opt_name, opt.opt_val); return 0; } sendmail-8.18.1/libsm/vasprintf.c0000644000372400037240000000563714556365350016270 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ /* * Copyright (c) 1997 Todd C. Miller * * Permission to use, copy, modify, and distribute this software for any * purpose with or without fee is hereby granted, provided that the above * copyright notice and this permission notice appear in all copies. * * THE SOFTWARE IS PROVIDED "AS IS" AND TODD C. MILLER DISCLAIMS ALL * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL TODD C. MILLER BE LIABLE * FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. */ #include SM_RCSID("@(#)$Id: vasprintf.c,v 1.28 2013-11-22 20:51:44 ca Exp $") #include #include #include #include #include "local.h" /* ** SM_VASPRINTF -- printf to a dynamically allocated string ** ** Write 'printf' output to a dynamically allocated string ** buffer which is returned to the caller. ** ** Parameters: ** str -- *str receives a pointer to the allocated string ** fmt -- format directives for printing ** ap -- variable argument list ** ** Results: ** On failure, set *str to NULL, set errno, and return -1. ** ** On success, set *str to a pointer to a nul-terminated ** string buffer containing printf output, and return the ** length of the string (not counting the nul). */ #define SM_VA_BUFSIZE 128 int sm_vasprintf(str, fmt, ap) char **str; const char *fmt; va_list ap; { int ret; SM_FILE_T fake; unsigned char *base; fake.sm_magic = SmFileMagic; fake.f_timeout = SM_TIME_FOREVER; fake.f_timeoutstate = SM_TIME_BLOCK; fake.f_file = -1; fake.f_flags = SMWR | SMSTR | SMALC; fake.f_bf.smb_base = fake.f_p = (unsigned char *)sm_malloc(SM_VA_BUFSIZE); if (fake.f_bf.smb_base == NULL) goto err2; fake.f_close = NULL; fake.f_open = NULL; fake.f_read = NULL; fake.f_write = NULL; fake.f_seek = NULL; fake.f_setinfo = fake.f_getinfo = NULL; fake.f_type = "sm_vasprintf:fake"; fake.f_bf.smb_size = fake.f_w = SM_VA_BUFSIZE - 1; fake.f_timeout = SM_TIME_FOREVER; ret = sm_io_vfprintf(&fake, SM_TIME_FOREVER, fmt, ap); if (ret == -1) goto err; *fake.f_p = '\0'; /* use no more space than necessary */ base = (unsigned char *) sm_realloc(fake.f_bf.smb_base, ret + 1); if (base == NULL) goto err; *str = (char *)base; return ret; err: if (fake.f_bf.smb_base != NULL) { sm_free(fake.f_bf.smb_base); fake.f_bf.smb_base = NULL; } err2: *str = NULL; errno = ENOMEM; return -1; } sendmail-8.18.1/libsm/fvwrite.c0000644000372400037240000001436214556365350015735 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fvwrite.c,v 1.50 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include #include #include #include #include #include "local.h" #include "fvwrite.h" /* ** SM_FVWRITE -- write memory regions and buffer for file pointer ** ** Parameters: ** fp -- the file pointer to write to ** timeout -- time length for function to return by ** uio -- the memory regions to write ** ** Returns: ** Failure: returns SM_IO_EOF and sets errno ** Success: returns 0 (zero) ** ** This routine is large and unsightly, but most of the ugliness due ** to the different kinds of output buffering handled here. */ #define COPY(n) (void)memcpy((void *)fp->f_p, (void *)p, (size_t)(n)) #define GETIOV(extra_work) \ while (len == 0) \ { \ extra_work; \ p = iov->iov_base; \ len = iov->iov_len; \ iov++; \ } int sm_fvwrite(fp, timeout, uio) register SM_FILE_T *fp; int timeout; register struct sm_uio *uio; { register size_t len; register char *p; register struct sm_iov *iov; register int w, s; char *nl; int nlknown, nldist; int fd; struct timeval to; if (uio->uio_resid == 0) return 0; /* make sure we can write */ if (cantwrite(fp)) { errno = EBADF; return SM_IO_EOF; } SM_CONVERT_TIME(fp, fd, timeout, &to); iov = uio->uio_iov; p = iov->iov_base; len = iov->iov_len; iov++; if (fp->f_flags & SMNBF) { /* Unbuffered: write up to BUFSIZ bytes at a time. */ do { GETIOV(;); errno = 0; /* needed to ensure EOF correctly found */ w = (*fp->f_write)(fp, p, SM_MIN(len, SM_IO_BUFSIZ)); if (w <= 0) { if (w == 0 && errno == 0) break; /* EOF found */ if (IS_IO_ERROR(fd, w, timeout)) goto err; /* errno set */ /* write would block */ SM_IO_WR_TIMEOUT(fp, fd, timeout); w = 0; } else { p += w; len -= w; } } while ((uio->uio_resid -= w) != 0); } else if ((fp->f_flags & SMLBF) == 0) { /* ** Not SMLBF (line-buffered). Either SMFBF or SMNOW ** buffered: fill partially full buffer, if any, ** and then flush. If there is no partial buffer, write ** one bf._size byte chunk directly (without copying). ** ** String output is a special case: write as many bytes ** as fit, but pretend we wrote everything. This makes ** snprintf() return the number of bytes needed, rather ** than the number used, and avoids its write function ** (so that the write function can be invalid). */ do { GETIOV(;); if ((((fp->f_flags & (SMALC | SMSTR)) == (SMALC | SMSTR)) || ((fp->f_flags & SMNOW) != 0)) && (size_t) fp->f_w < len) { size_t blen = fp->f_p - fp->f_bf.smb_base; unsigned char *tbase; int tsize; /* Allocate space exponentially. */ tsize = fp->f_bf.smb_size; do { tsize = (tsize << 1) + 1; } while ((size_t) tsize < blen + len); tbase = (unsigned char *) sm_realloc(fp->f_bf.smb_base, tsize + 1); if (tbase == NULL) { errno = ENOMEM; goto err; /* errno set */ } fp->f_w += tsize - fp->f_bf.smb_size; fp->f_bf.smb_base = tbase; fp->f_bf.smb_size = tsize; fp->f_p = tbase + blen; } w = fp->f_w; errno = 0; /* needed to ensure EOF correctly found */ if (fp->f_flags & SMSTR) { if (len < (size_t) w) w = len; COPY(w); /* copy SM_MIN(fp->f_w,len), */ fp->f_w -= w; fp->f_p += w; w = len; /* but pretend copied all */ } else if (fp->f_p > fp->f_bf.smb_base && len > (size_t) w) { /* fill and flush */ COPY(w); fp->f_p += w; if (sm_flush(fp, &timeout)) goto err; /* errno set */ } else if (len >= (size_t) (w = fp->f_bf.smb_size)) { /* write directly */ w = (*fp->f_write)(fp, p, w); if (w <= 0) { if (w == 0 && errno == 0) break; /* EOF found */ if (IS_IO_ERROR(fd, w, timeout)) goto err; /* errno set */ /* write would block */ SM_IO_WR_TIMEOUT(fp, fd, timeout); w = 0; } } else { /* fill and done */ w = len; COPY(w); fp->f_w -= w; fp->f_p += w; } p += w; len -= w; } while ((uio->uio_resid -= w) != 0); if ((fp->f_flags & SMNOW) != 0 && sm_flush(fp, &timeout)) goto err; /* errno set */ } else { /* ** Line buffered: like fully buffered, but we ** must check for newlines. Compute the distance ** to the first newline (including the newline), ** or `infinity' if there is none, then pretend ** that the amount to write is SM_MIN(len,nldist). */ nlknown = 0; nldist = 0; /* XXX just to keep gcc happy */ do { GETIOV(nlknown = 0); if (!nlknown) { nl = memchr((void *)p, '\n', len); nldist = nl != NULL ? nl + 1 - p : len + 1; nlknown = 1; } s = SM_MIN(len, ((size_t) nldist)); w = fp->f_w + fp->f_bf.smb_size; errno = 0; /* needed to ensure EOF correctly found */ if (fp->f_p > fp->f_bf.smb_base && s > w) { COPY(w); /* fp->f_w -= w; */ fp->f_p += w; if (sm_flush(fp, &timeout)) goto err; /* errno set */ } else if (s >= (w = fp->f_bf.smb_size)) { w = (*fp->f_write)(fp, p, w); if (w <= 0) { if (w == 0 && errno == 0) break; /* EOF found */ if (IS_IO_ERROR(fd, w, timeout)) goto err; /* errno set */ /* write would block */ SM_IO_WR_TIMEOUT(fp, fd, timeout); w = 0; } } else { w = s; COPY(w); fp->f_w -= w; fp->f_p += w; } if ((nldist -= w) == 0) { /* copied the newline: flush and forget */ if (sm_flush(fp, &timeout)) goto err; /* errno set */ nlknown = 0; } p += w; len -= w; } while ((uio->uio_resid -= w) != 0); } return 0; err: /* errno set before goto places us here */ fp->f_flags |= SMERR; return SM_IO_EOF; } sendmail-8.18.1/libsm/snprintf.c0000644000372400037240000000445414556365350016113 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: snprintf.c,v 1.25 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include "local.h" /* ** SM_SNPRINTF -- format a string to a memory location of restricted size ** ** Parameters: ** str -- memory location to place formatted string ** n -- size of buffer pointed to by str, capped to ** a maximum of INT_MAX ** fmt -- the formatting directives ** ... -- the data to satisfy the formatting ** ** Returns: ** Failure: -1 ** Success: number of bytes that would have been written ** to str, not including the trailing '\0', ** up to a maximum of INT_MAX, as if there was ** no buffer size limitation. If the result >= n ** then the output was truncated. ** ** Side Effects: ** If n > 0, then between 0 and n-1 bytes of formatted output ** are written into 'str', followed by a '\0'. */ int #if SM_VA_STD sm_snprintf(char *str, size_t n, char const *fmt, ...) #else /* SM_VA_STD */ sm_snprintf(str, n, fmt, va_alist) char *str; size_t n; char *fmt; va_dcl #endif /* SM_VA_STD */ { int ret; SM_VA_LOCAL_DECL SM_FILE_T fake; /* While snprintf(3) specifies size_t stdio uses an int internally */ if (n > INT_MAX) n = INT_MAX; SM_VA_START(ap, fmt); /* XXX put this into a static? */ fake.sm_magic = SmFileMagic; fake.f_file = -1; fake.f_flags = SMWR | SMSTR; fake.f_cookie = &fake; fake.f_bf.smb_base = fake.f_p = (unsigned char *)str; fake.f_bf.smb_size = fake.f_w = n ? n - 1 : 0; fake.f_timeout = SM_TIME_FOREVER; fake.f_timeoutstate = SM_TIME_BLOCK; fake.f_close = NULL; fake.f_open = NULL; fake.f_read = NULL; fake.f_write = NULL; fake.f_seek = NULL; fake.f_setinfo = fake.f_getinfo = NULL; fake.f_type = "sm_snprintf:fake"; ret = sm_io_vfprintf(&fake, SM_TIME_FOREVER, fmt, ap); if (n > 0) *fake.f_p = '\0'; SM_VA_END(ap); return ret; } sendmail-8.18.1/libsm/assert.html0000644000372400037240000003356314556365350016276 0ustar xbuildxbuild libsm : Assert and Abort Back to libsm overview

    libsm : Assert and Abort


    $Id: assert.html,v 1.6 2001-08-27 21:47:03 ca Exp $

    Introduction

    This package contains abstractions for assertion checking and abnormal program termination.

    Synopsis 

    #include <sm/assert.h>

/*
**  abnormal program termination
*/

void sm_abort_at(char *filename, int lineno, char *msg);
typedef void (*SM_ABORT_HANDLER)(char *filename, int lineno, char *msg);
void sm_abort_sethandler(SM_ABORT_HANDLER);
void sm_abort(char *fmt, ...)

/*
**  assertion checking
*/

SM_REQUIRE(expression)
SM_ASSERT(expression)
SM_ENSURE(expression)

extern SM_DEBUG_T SmExpensiveRequire;
extern SM_DEBUG_T SmExpensiveAssert;
extern SM_DEBUG_T SmExpensiveEnsure;

#if SM_CHECK_REQUIRE
#if SM_CHECK_ASSERT
#if SM_CHECK_ENSURE

cc -DSM_CHECK_ALL=0 -DSM_CHECK_REQUIRE=1 ...

    Abnormal Program Termination

    The functions sm_abort and sm_abort_at are used to report a logic bug and terminate the program. They can be invoked directly, and they are also used by the assertion checking macros.
    void sm_abort_at(char *filename, int lineno, char *msg)
    This is the low level interface for causing abnormal program termination. It is intended to be invoked from a macro, such as the assertion checking macros. If filename != NULL then filename and lineno specify the line of source code on which the logic bug is detected. These arguments are normally either set to __FILE__ and __LINE__ from an assertion checking macro, or they are set to NULL and 0. The default action is to print an error message to smioerr using the arguments, and then call abort(). This default behaviour can be changed by calling sm_abort_sethandler.

    void sm_abort_sethandler(SM_ABORT_HANDLER handler)
    Install 'handler' as the callback function that is invoked by sm_abort_at. This callback function is passed the same arguments as sm_abort_at, and is expected to log an error message and terminate the program. The callback function should not raise an exception or perform cleanup: see Rationale. sm_abort_sethandler is intended to be called once, from main(), before any additional threads are created: see Rationale. You should not use sm_abort_sethandler to switch back and forth between several handlers; this is particularly dangerous when there are multiple threads, or when you are in a library routine.

    void sm_abort(char *fmt, ...)
    This is the high level interface for causing abnormal program termination. It takes printf arguments. There is no need to include a trailing newline in the format string; a trailing newline will be printed if appropriate by the handler function.

    Assertions

    The assertion handling package supports a style of programming in which assertions are used liberally throughout the code, both as a form of documentation, and as a way of detecting bugs in the code by performing runtime checks.

    There are three kinds of assertion:

    SM_REQUIRE(expr)
    This is an assertion used at the beginning of a function to check that the preconditions for calling the function have been satisfied by the caller.

    SM_ENSURE(expr)
    This is an assertion used just before returning from a function to check that the function has satisfied all of the postconditions that it is required to satisfy by its contract with the caller.

    SM_ASSERT(expr)
    This is an assertion that is used in the middle of a function, to check loop invariants, and for any other kind of check that is not a "require" or "ensure" check.
    If any of the above assertion macros fail, then sm_abort_at is called. By default, a message is printed to stderr and the program is aborted. For example, if SM_REQUIRE(arg > 0) fails because arg <= 0, then the message 
    foo.c:47: SM_REQUIRE(arg > 0) failed
    is printed to stderr, and abort() is called. You can change this default behaviour using sm_abort_sethandler.

    How To Disable Assertion Checking At Compile Time

    You can use compile time macros to selectively enable or disable each of the three kinds of assertions, for performance reasons. For example, you might want to enable SM_REQUIRE checking (because it finds the most bugs), but disable the other two types.

    By default, all three types of assertion are enabled. You can selectively disable individual assertion types by setting one or more of the following cpp macros to 0 before <sm/assert.h> is included for the first time:

    SM_CHECK_REQUIRE
    SM_CHECK_ENSURE
    SM_CHECK_ASSERT
    Or, you can define SM_CHECK_ALL as 0 to disable all assertion types, then selectively define one or more of SM_CHECK_REQUIRE, SM_CHECK_ENSURE or SM_CHECK_ASSERT as 1. For example, to disable all assertions except for SM_REQUIRE, you can use these C compiler flags:
    -DSM_CHECK_ALL=0 -DSM_CHECK_REQUIRE=1
    After <sm/assert.h> is included, the macros SM_CHECK_REQUIRE, SM_CHECK_ENSURE and SM_CHECK_ASSERT are each set to either 0 or 1.

    How To Write Complex or Expensive Assertions

    Sometimes an assertion check requires more code than a simple boolean expression. For example, it might require an entire statement block with its own local variables. You can code such assertion checks by making them conditional on SM_CHECK_REQUIRE, SM_CHECK_ENSURE or SM_CHECK_ASSERT, and using sm_abort to signal failure.

    Sometimes an assertion check is significantly more expensive than one or two comparisons. In such cases, it is not uncommon for developers to comment out the assertion once the code is unit tested. Please don't do this: it makes it hard to turn the assertion check back on for the purposes of regression testing. What you should do instead is make the assertion check conditional on one of these predefined debug objects:

    SmExpensiveRequire
    SmExpensiveAssert
    SmExpensiveEnsure
    By doing this, you bring the cost of the assertion checking code back down to a single comparison, unless expensive assertion checking has been explicitly enabled. By the way, the corresponding debug category names are
    sm_check_require
    sm_check_assert
    sm_check_ensure
    What activation level should you check for? Higher levels correspond to more expensive assertion checks. Here are some basic guidelines:
    level 1: < 10 basic C operations
    level 2: < 100 basic C operations
    level 3: < 1000 basic C operations
    ...

    Here's a contrived example of both techniques: 

    void
w_munge(WIDGET *w)
{
    SM_REQUIRE(w != NULL);
#if SM_CHECK_REQUIRE
    /*
    **  We run this check at level 3 because we expect to check a few hundred
    **  table entries.
    */

    if (sm_debug_active(&SmExpensiveRequire, 3))
    {
        int i;

        for (i = 0; i < WIDGET_MAX; ++i)
        {
            if (w[i] == NULL)
                sm_abort("w_munge: NULL entry %d in widget table", i);
        }
    }
#endif /* SM_CHECK_REQUIRE */

    Other Guidelines

    You should resist the urge to write SM_ASSERT(0) when the code has reached an impossible place. It's better to call sm_abort, because then you can generate a better error message. For example, 
    switch (foo)
{
    ...
  default:
    sm_abort("impossible value %d for foo", foo);
}
    Note that I did not bother to guard the default clause of the switch statement with #if SM_CHECK_ASSERT ... #endif, because there is probably no performance gain to be had by disabling this particular check.

    Avoid including code that has side effects inside of assert macros, or inside of SM_CHECK_* guards. You don't want the program to stop working if assertion checking is disabled.

    Rationale for Logic Bug Handling

    When a logic bug is detected, our philosophy is to log an error message and terminate the program, dumping core if possible. It is not a good idea to raise an exception, attempt cleanup, or continue program execution. Here's why.

    First of all, to facilitate post-mortem analysis, we want to dump core on detecting a logic bug, disturbing the process image as little as possible before dumping core. We don't want to raise an exception and unwind the stack, executing cleanup code, before dumping core, because that would obliterate information we need to analyze the cause of the abort.

    Second, it is a bad idea to raise an exception on an assertion failure because this places unacceptable restrictions on code that uses the assertion macros. The reason is this: the sendmail code must be written so that anywhere it is possible for an assertion to be raised, the code will catch the exception and clean up if necessary, restoring data structure invariants and freeing resources as required. If an assertion failure was signalled by raising an exception, then every time you added an assertion, you would need to check both the function containing the assertion and its callers to see if any exception handling code needed to be added to clean up properly on assertion failure. That is far too great a burden.

    It is a bad idea to attempt cleanup upon detecting a logic bug for several reasons:

    • If you need to perform cleanup actions in order to preserve the integrity of the data that the program is handling, then the program is not fault tolerant, and needs to be redesigned. There are several reasons why a program might be terminated unexpectedly: the system might crash, the program might receive a signal 9, the program might be terminated by a memory fault (possibly as a side effect of earlier data structure corruption), and the program might detect a logic bug and terminate itself. Note that executing cleanup actions is not feasible in most of the above cases. If the program has a fault tolerant design, then it will not lose data even if the system crashes in the middle of an operation.

    • If the cause of the logic bug is earlier data structure corruption, then cleanup actions intended to preserve the integrity of the data that the program is handling might cause more harm than good: they might cause information to be corrupted or lost.

    • If the program uses threads, then cleanup is much more problematic. Suppose that thread A is holding some locks, and is in the middle of modifying a shared data structure. The locks are needed because the data structure is currently in an inconsistent state. At this point, a logic bug is detected deep in a library routine called by A. How do we get all of the running threads to stop what they are doing and perform their thread-specific cleanup actions before terminating? We may not be able to get B to clean up and terminate cleanly until A has restored the invariants on the data structure it is modifying and releases its locks. So, we raise an exception and unwind the stack, restoring data structure invariants and releasing locks at each level of abstraction, and performing an orderly shutdown. There are certainly many classes of error conditions for which using the exception mechanism to perform an orderly shutdown is appropriate and feasible, but there are also classes of error conditions for which exception handling and orderly shutdown is dangerous or impossible. The abnormal program termination system is intended for this second class of error conditions. If you want to trigger orderly shutdown, don't call sm_abort: raise an exception instead.

    Here is a strategy for making sendmail fault tolerant. Sendmail is structured as a collection of processes. The "root" process does as little as possible, except spawn children to do all of the real work, monitor the children, and act as traffic cop. We use exceptions to signal expected but infrequent error conditions, so that the process encountering the exceptional condition can clean up and keep going. (Worker processes are intended to be long lived, in order to minimize forking and increase performance.) But when a bug is detected in a sendmail worker process, the worker process does minimal or no cleanup and then dies. A bug might be detected in several ways: the process might dereference a NULL pointer, receive a signal 11, core dump and die, or an assertion might fail, in which case the process commits suicide. Either way, the root process detects the death of the worker, logs the event, and spawns another worker.

    Rationale for Naming Conventions

    The names "require" and "ensure" come from the writings of Bertrand Meyer, a prominent evangelist for assertion checking who has written a number of papers about the "Design By Contract" programming methodology, and who created the Eiffel programming language. Many other assertion checking packages for C also have "require" and "ensure" assertion types. In short, we are conforming to a de-facto standard.

    We use the names SM_REQUIRE, SM_ASSERT and SM_ENSURE in preference to to REQUIRE, ASSERT and ENSURE because at least two other open source libraries (libisc and libnana) define REQUIRE and ENSURE macros, and many libraries define ASSERT. We want to avoid name conflicts with other libraries. sendmail-8.18.1/libsm/t-match.c0000644000372400037240000000214714556365350015602 0ustar xbuildxbuild/* * Copyright (c) 2000 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-match.c,v 1.10 2013-11-22 20:51:43 ca Exp $") #include #include #include #define try(str, pat, want) \ got = sm_match(str, pat); \ if (!SM_TEST(got == want)) \ (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, \ "sm_match(\"%s\", \"%s\") returns %s\n", \ str, pat, got ? "true" : "false"); int main(argc, argv) int argc; char **argv; { bool got; sm_test_begin(argc, argv, "test sm_match"); try("foo", "foo", true); try("foo", "bar", false); try("foo[bar", "foo[bar", true); try("foo[bar]", "foo[bar]", false); try("foob", "foo[bar]", true); try("a-b", "a[]-]b", true); try("abcde", "a*e", true); try("[", "[[]", true); try("c", "[a-z]", true); try("C", "[a-z]", false); try("F:sm.heap", "[!F]*", false); try("E:sm.err", "[!F]*", true); return sm_test_end(); } sendmail-8.18.1/libsm/ilenx.c0000644000372400037240000000135014556365350015357 0ustar xbuildxbuild/* * Copyright (c) 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include #include #if _FFR_8BITENVADDR /* ** ILENX -- determine the e'x'ternal length of a string in 'i'internal format ** ** Parameters: ** str -- string [i] ** ** Returns: ** e'x'ternal length of a string in 'i'internal format */ int ilenx(str) const char *str; { char c; int idx; XLENDECL if (NULL == str) return -1; for (idx = 0; (c = str[idx]) != '\0'; idx++) XLEN(c); return xlen; } #endif /* _FFR_8BITENVADDR */ sendmail-8.18.1/libsm/assert.c0000644000372400037240000001020514556365350015540 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: assert.c,v 1.27 2013-11-22 20:51:42 ca Exp $") /* ** Abnormal program termination and assertion checking. ** For documentation, see assert.html. */ #include #include #include #include #include #include #include /* ** Debug categories that are used to guard expensive assertion checks. */ SM_DEBUG_T SmExpensiveAssert = SM_DEBUG_INITIALIZER("sm_check_assert", "@(#)$Debug: sm_check_assert - check assertions $"); SM_DEBUG_T SmExpensiveRequire = SM_DEBUG_INITIALIZER("sm_check_require", "@(#)$Debug: sm_check_require - check function preconditions $"); SM_DEBUG_T SmExpensiveEnsure = SM_DEBUG_INITIALIZER("sm_check_ensure", "@(#)$Debug: sm_check_ensure - check function postconditions $"); /* ** Debug category: send self SIGSTOP on fatal error, ** so that you can run a debugger on the stopped process. */ SM_DEBUG_T SmAbortStop = SM_DEBUG_INITIALIZER("sm_abort_stop", "@(#)$Debug: sm_abort_stop - stop process on fatal error $"); /* ** SM_ABORT_DEFAULTHANDLER -- Default procedure for abnormal program ** termination. ** ** The goal is to display an error message without disturbing the ** process state too much, then dump core. ** ** Parameters: ** filename -- filename (can be NULL). ** lineno -- line number. ** msg -- message. ** ** Returns: ** doesn't return. */ static void sm_abort_defaulthandler __P(( const char *filename, int lineno, const char *msg)); static void sm_abort_defaulthandler(filename, lineno, msg) const char *filename; int lineno; const char *msg; { if (filename != NULL) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s:%d: %s\n", filename, lineno, msg); else sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s\n", msg); sm_io_flush(smioerr, SM_TIME_DEFAULT); #ifdef SIGSTOP if (sm_debug_active(&SmAbortStop, 1)) kill(getpid(), SIGSTOP); #endif abort(); } /* ** This is the action to be taken to cause abnormal program termination. */ static SM_ABORT_HANDLER_T SmAbortHandler = sm_abort_defaulthandler; /* ** SM_ABORT_SETHANDLER -- Set handler for SM_ABORT() ** ** This allows you to set a handler function for causing abnormal ** program termination; it is called when a logic bug is detected. ** ** Parameters: ** f -- handler. ** ** Returns: ** none. */ void sm_abort_sethandler(f) SM_ABORT_HANDLER_T f; { if (f == NULL) SmAbortHandler = sm_abort_defaulthandler; else SmAbortHandler = f; } /* ** SM_ABORT -- Call it when you have detected a logic bug. ** ** Parameters: ** fmt -- format string. ** ... -- arguments. ** ** Returns: ** doesn't. */ void SM_DEAD_D #if SM_VA_STD sm_abort(char *fmt, ...) #else /* SM_VA_STD */ sm_abort(fmt, va_alist) char *fmt; va_dcl #endif /* SM_VA_STD */ { char msg[128]; SM_VA_LOCAL_DECL SM_VA_START(ap, fmt); sm_vsnprintf(msg, sizeof msg, fmt, ap); SM_VA_END(ap); sm_abort_at(NULL, 0, msg); } /* ** SM_ABORT_AT -- Initiate abnormal program termination. ** ** This is the low level function that is called to initiate abnormal ** program termination. It prints an error message and terminates the ** program. It is called by sm_abort and by the assertion macros. ** If filename != NULL then filename and lineno specify the line of source ** code at which the bug was detected. ** ** Parameters: ** filename -- filename (can be NULL). ** lineno -- line number. ** msg -- message. ** ** Returns: ** doesn't. */ void SM_DEAD_D sm_abort_at(filename, lineno, msg) const char *filename; int lineno; const char *msg; { SM_TRY (*SmAbortHandler)(filename, lineno, msg); SM_EXCEPT(exc, "*") sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "exception raised by abort handler:\n"); sm_exc_print(exc, smioerr); sm_io_flush(smioerr, SM_TIME_DEFAULT); SM_END_TRY /* ** SmAbortHandler isn't supposed to return. ** Since it has, let's make sure that the program is terminated. */ abort(); } sendmail-8.18.1/libsm/clock.c0000644000372400037240000003370314556365350015342 0ustar xbuildxbuild/* * Copyright (c) 1998-2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: clock.c,v 1.48 2013-11-22 20:51:42 ca Exp $") #include #include #include #if SM_CONF_SETITIMER # include #endif #include #include #include #include #include "local.h" #if _FFR_SLEEP_USE_SELECT > 0 # include #endif #if defined(_FFR_MAX_SLEEP_TIME) && _FFR_MAX_SLEEP_TIME > 2 # include #endif #ifndef sigmask # define sigmask(s) (1 << ((s) - 1)) #endif /* ** SM_SETEVENTM -- set an event to happen at a specific time in milliseconds. ** ** Events are stored in a sorted list for fast processing. ** An event only applies to the process that set it. ** Source is #ifdef'd to work with older OS's that don't have setitimer() ** (that is, don't have a timer granularity less than 1 second). ** ** Parameters: ** intvl -- interval until next event occurs (milliseconds). ** func -- function to call on event. ** arg -- argument to func on event. ** ** Returns: ** On success returns the SM_EVENT entry created. ** On failure returns NULL. ** ** Side Effects: ** none. */ static SM_EVENT *volatile SmEventQueue; /* head of event queue */ static SM_EVENT *volatile SmFreeEventList; /* list of free events */ SM_EVENT * sm_seteventm(intvl, func, arg) int intvl; void (*func)__P((int)); int arg; { ENTER_CRITICAL(); if (SmFreeEventList == NULL) { SmFreeEventList = (SM_EVENT *) sm_pmalloc_x(sizeof *SmFreeEventList); SmFreeEventList->ev_link = NULL; } LEAVE_CRITICAL(); return sm_sigsafe_seteventm(intvl, func, arg); } /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ SM_EVENT * sm_sigsafe_seteventm(intvl, func, arg) int intvl; void (*func)__P((int)); int arg; { register SM_EVENT **evp; register SM_EVENT *ev; #if SM_CONF_SETITIMER auto struct timeval now, nowi, ival; auto struct itimerval itime; #else auto time_t now, nowi; #endif int wasblocked; /* negative times are not allowed */ if (intvl <= 0) return NULL; wasblocked = sm_blocksignal(SIGALRM); #if SM_CONF_SETITIMER ival.tv_sec = intvl / 1000; ival.tv_usec = (intvl - ival.tv_sec * 1000) * 10; (void) gettimeofday(&now, NULL); nowi = now; timeradd(&now, &ival, &nowi); #else /* SM_CONF_SETITIMER */ now = time(NULL); nowi = now + (time_t)(intvl / 1000); #endif /* SM_CONF_SETITIMER */ /* search event queue for correct position */ for (evp = (SM_EVENT **) (&SmEventQueue); (ev = *evp) != NULL; evp = &ev->ev_link) { #if SM_CONF_SETITIMER if (timercmp(&(ev->ev_time), &nowi, >=)) #else if (ev->ev_time >= nowi) #endif break; } ENTER_CRITICAL(); if (SmFreeEventList == NULL) { /* ** This shouldn't happen. If called from sm_seteventm(), ** we have just malloced a SmFreeEventList entry. If ** called from a signal handler, it should have been ** from an existing event which sm_tick() just added to ** SmFreeEventList. */ LEAVE_CRITICAL(); if (wasblocked == 0) (void) sm_releasesignal(SIGALRM); return NULL; } else { ev = SmFreeEventList; SmFreeEventList = ev->ev_link; } LEAVE_CRITICAL(); /* insert new event */ ev->ev_time = nowi; ev->ev_func = func; ev->ev_arg = arg; ev->ev_pid = getpid(); ENTER_CRITICAL(); ev->ev_link = *evp; *evp = ev; LEAVE_CRITICAL(); (void) sm_signal(SIGALRM, sm_tick); #if SM_CONF_SETITIMER timersub(&SmEventQueue->ev_time, &now, &itime.it_value); itime.it_interval.tv_sec = 0; itime.it_interval.tv_usec = 0; if (itime.it_value.tv_sec < 0) itime.it_value.tv_sec = 0; if (itime.it_value.tv_sec == 0 && itime.it_value.tv_usec == 0) itime.it_value.tv_usec = 1000; (void) setitimer(ITIMER_REAL, &itime, NULL); #else /* SM_CONF_SETITIMER */ intvl = SmEventQueue->ev_time - now; (void) alarm((unsigned) (intvl < 1 ? 1 : intvl)); #endif /* SM_CONF_SETITIMER */ if (wasblocked == 0) (void) sm_releasesignal(SIGALRM); return ev; } /* ** SM_CLREVENT -- remove an event from the event queue. ** ** Parameters: ** ev -- pointer to event to remove. ** ** Returns: ** none. ** ** Side Effects: ** arranges for event ev to not happen. */ void sm_clrevent(ev) register SM_EVENT *ev; { register SM_EVENT **evp; int wasblocked; #if SM_CONF_SETITIMER struct itimerval clr; #endif if (ev == NULL) return; /* find the parent event */ wasblocked = sm_blocksignal(SIGALRM); for (evp = (SM_EVENT **) (&SmEventQueue); *evp != NULL; evp = &(*evp)->ev_link) { if (*evp == ev) break; } /* now remove it */ if (*evp != NULL) { ENTER_CRITICAL(); *evp = ev->ev_link; ev->ev_link = SmFreeEventList; SmFreeEventList = ev; LEAVE_CRITICAL(); } /* restore clocks and pick up anything spare */ if (wasblocked == 0) (void) sm_releasesignal(SIGALRM); if (SmEventQueue != NULL) (void) kill(getpid(), SIGALRM); else { /* nothing left in event queue, no need for an alarm */ #if SM_CONF_SETITIMER clr.it_interval.tv_sec = 0; clr.it_interval.tv_usec = 0; clr.it_value.tv_sec = 0; clr.it_value.tv_usec = 0; (void) setitimer(ITIMER_REAL, &clr, NULL); #else /* SM_CONF_SETITIMER */ (void) alarm(0); #endif /* SM_CONF_SETITIMER */ } } /* ** SM_CLEAR_EVENTS -- remove all events from the event queue. ** ** Parameters: ** none. ** ** Returns: ** none. */ void sm_clear_events() { register SM_EVENT *ev; #if SM_CONF_SETITIMER struct itimerval clr; #endif int wasblocked; /* nothing will be left in event queue, no need for an alarm */ #if SM_CONF_SETITIMER clr.it_interval.tv_sec = 0; clr.it_interval.tv_usec = 0; clr.it_value.tv_sec = 0; clr.it_value.tv_usec = 0; (void) setitimer(ITIMER_REAL, &clr, NULL); #else /* SM_CONF_SETITIMER */ (void) alarm(0); #endif /* SM_CONF_SETITIMER */ if (SmEventQueue == NULL) return; wasblocked = sm_blocksignal(SIGALRM); /* find the end of the EventQueue */ for (ev = SmEventQueue; ev->ev_link != NULL; ev = ev->ev_link) continue; ENTER_CRITICAL(); ev->ev_link = SmFreeEventList; SmFreeEventList = SmEventQueue; SmEventQueue = NULL; LEAVE_CRITICAL(); /* restore clocks and pick up anything spare */ if (wasblocked == 0) (void) sm_releasesignal(SIGALRM); } /* ** SM_TICK -- take a clock tick ** ** Called by the alarm clock. This routine runs events as needed. ** Always called as a signal handler, so we assume that SIGALRM ** has been blocked. ** ** Parameters: ** One that is ignored; for compatibility with signal handlers. ** ** Returns: ** none. ** ** Side Effects: ** calls the next function in EventQueue. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED */ SIGFUNC_DECL sm_tick(sig) int sig; { register SM_EVENT *ev; pid_t mypid; int save_errno = errno; #if SM_CONF_SETITIMER struct itimerval clr; struct timeval now; #else register time_t now; #endif /* SM_CONF_SETITIMER */ #if SM_CONF_SETITIMER clr.it_interval.tv_sec = 0; clr.it_interval.tv_usec = 0; clr.it_value.tv_sec = 0; clr.it_value.tv_usec = 0; (void) setitimer(ITIMER_REAL, &clr, NULL); gettimeofday(&now, NULL); #else /* SM_CONF_SETITIMER */ (void) alarm(0); now = time(NULL); #endif /* SM_CONF_SETITIMER */ FIX_SYSV_SIGNAL(sig, sm_tick); errno = save_errno; CHECK_CRITICAL(sig); mypid = getpid(); while (PendingSignal != 0) { int sigbit = 0; int sig = 0; if (bitset(PEND_SIGHUP, PendingSignal)) { sigbit = PEND_SIGHUP; sig = SIGHUP; } else if (bitset(PEND_SIGINT, PendingSignal)) { sigbit = PEND_SIGINT; sig = SIGINT; } else if (bitset(PEND_SIGTERM, PendingSignal)) { sigbit = PEND_SIGTERM; sig = SIGTERM; } else if (bitset(PEND_SIGUSR1, PendingSignal)) { sigbit = PEND_SIGUSR1; sig = SIGUSR1; } else { /* If we get here, we are in trouble */ abort(); } PendingSignal &= ~sigbit; kill(mypid, sig); } #if SM_CONF_SETITIMER gettimeofday(&now, NULL); #else now = time(NULL); #endif while ((ev = SmEventQueue) != NULL && (ev->ev_pid != mypid || #if SM_CONF_SETITIMER timercmp(&ev->ev_time, &now, <=) #else ev->ev_time <= now #endif )) { void (*f)__P((int)); int arg; pid_t pid; /* process the event on the top of the queue */ ev = SmEventQueue; SmEventQueue = SmEventQueue->ev_link; /* we must be careful in here because ev_func may not return */ f = ev->ev_func; arg = ev->ev_arg; pid = ev->ev_pid; ENTER_CRITICAL(); ev->ev_link = SmFreeEventList; SmFreeEventList = ev; LEAVE_CRITICAL(); if (pid != getpid()) continue; if (SmEventQueue != NULL) { #if SM_CONF_SETITIMER if (timercmp(&SmEventQueue->ev_time, &now, >)) { timersub(&SmEventQueue->ev_time, &now, &clr.it_value); clr.it_interval.tv_sec = 0; clr.it_interval.tv_usec = 0; if (clr.it_value.tv_sec < 0) clr.it_value.tv_sec = 0; if (clr.it_value.tv_sec == 0 && clr.it_value.tv_usec == 0) clr.it_value.tv_usec = 1000; (void) setitimer(ITIMER_REAL, &clr, NULL); } else { clr.it_interval.tv_sec = 0; clr.it_interval.tv_usec = 0; clr.it_value.tv_sec = 3; clr.it_value.tv_usec = 0; (void) setitimer(ITIMER_REAL, &clr, NULL); } #else /* SM_CONF_SETITIMER */ if (SmEventQueue->ev_time > now) (void) alarm((unsigned) (SmEventQueue->ev_time - now)); else (void) alarm(3); #endif /* SM_CONF_SETITIMER */ } /* call ev_func */ errno = save_errno; (*f)(arg); #if SM_CONF_SETITIMER clr.it_interval.tv_sec = 0; clr.it_interval.tv_usec = 0; clr.it_value.tv_sec = 0; clr.it_value.tv_usec = 0; (void) setitimer(ITIMER_REAL, &clr, NULL); gettimeofday(&now, NULL); #else /* SM_CONF_SETITIMER */ (void) alarm(0); now = time(NULL); #endif /* SM_CONF_SETITIMER */ } if (SmEventQueue != NULL) { #if SM_CONF_SETITIMER timersub(&SmEventQueue->ev_time, &now, &clr.it_value); clr.it_interval.tv_sec = 0; clr.it_interval.tv_usec = 0; if (clr.it_value.tv_sec < 0) clr.it_value.tv_sec = 0; if (clr.it_value.tv_sec == 0 && clr.it_value.tv_usec == 0) clr.it_value.tv_usec = 1000; (void) setitimer(ITIMER_REAL, &clr, NULL); #else /* SM_CONF_SETITIMER */ (void) alarm((unsigned) (SmEventQueue->ev_time - now)); #endif /* SM_CONF_SETITIMER */ } errno = save_errno; return SIGFUNC_RETURN; } /* ** SLEEP -- a version of sleep that works with this stuff ** ** Because Unix sleep uses the alarm facility, I must reimplement ** it here. ** ** Parameters: ** intvl -- time to sleep. ** ** Returns: ** zero. ** ** Side Effects: ** waits for intvl time. However, other events can ** be run during that interval. */ #if !HAVE_NANOSLEEP static void sm_endsleep __P((int)); static bool volatile SmSleepDone; #endif #ifndef SLEEP_T # define SLEEP_T unsigned int #endif SLEEP_T sleep(intvl) unsigned int intvl; { #if HAVE_NANOSLEEP struct timespec rqtp; if (intvl == 0) return (SLEEP_T) 0; rqtp.tv_sec = intvl; rqtp.tv_nsec = 0; nanosleep(&rqtp, NULL); return (SLEEP_T) 0; #else /* HAVE_NANOSLEEP */ int was_held; SM_EVENT *ev; # if _FFR_SLEEP_USE_SELECT > 0 int r; # if _FFR_SLEEP_USE_SELECT > 0 struct timeval sm_io_to; # endif # endif /* _FFR_SLEEP_USE_SELECT > 0 */ # if SM_CONF_SETITIMER struct timeval now, begin, diff; # if _FFR_SLEEP_USE_SELECT > 0 struct timeval slpv; # endif # else /* SM_CONF_SETITIMER */ time_t begin, now; # endif /* SM_CONF_SETITIMER */ if (intvl == 0) return (SLEEP_T) 0; # if defined(_FFR_MAX_SLEEP_TIME) && _FFR_MAX_SLEEP_TIME > 2 if (intvl > _FFR_MAX_SLEEP_TIME) { syslog(LOG_ERR, "sleep: interval=%u exceeds max value %d", intvl, _FFR_MAX_SLEEP_TIME); # if 0 SM_ASSERT(intvl < (unsigned int) INT_MAX); # endif intvl = _FFR_MAX_SLEEP_TIME; } # endif /* defined(_FFR_MAX_SLEEP_TIME) && _FFR_MAX_SLEEP_TIME > 2 */ SmSleepDone = false; # if SM_CONF_SETITIMER # if _FFR_SLEEP_USE_SELECT > 0 slpv.tv_sec = intvl; slpv.tv_usec = 0; # endif (void) gettimeofday(&now, NULL); begin = now; # else /* SM_CONF_SETITIMER */ now = begin = time(NULL); # endif /* SM_CONF_SETITIMER */ ev = sm_setevent((time_t) intvl, sm_endsleep, 0); if (ev == NULL) { /* COMPLAIN */ # if 0 syslog(LOG_ERR, "sleep: sm_setevent(%u) failed", intvl); # endif SmSleepDone = true; } was_held = sm_releasesignal(SIGALRM); while (!SmSleepDone) { # if SM_CONF_SETITIMER (void) gettimeofday(&now, NULL); timersub(&now, &begin, &diff); if (diff.tv_sec < 0 || (diff.tv_sec == 0 && diff.tv_usec == 0)) break; # if _FFR_SLEEP_USE_SELECT > 0 timersub(&slpv, &diff, &sm_io_to); # endif # else /* SM_CONF_SETITIMER */ now = time(NULL); /* ** Check whether time expired before signal is released. ** Due to the granularity of time() add 1 to be on the ** safe side. */ if (!(begin + (time_t) intvl + 1 > now)) break; # if _FFR_SLEEP_USE_SELECT > 0 sm_io_to.tv_sec = intvl - (now - begin); if (sm_io_to.tv_sec <= 0) sm_io_to.tv_sec = 1; sm_io_to.tv_usec = 0; # endif /* _FFR_SLEEP_USE_SELECT > 0 */ # endif /* SM_CONF_SETITIMER */ # if _FFR_SLEEP_USE_SELECT > 0 if (intvl <= _FFR_SLEEP_USE_SELECT) { r = select(0, NULL, NULL, NULL, &sm_io_to); if (r == 0) break; } else # endif /* _FFR_SLEEP_USE_SELECT > 0 */ /* "else" in #if code above */ (void) pause(); } /* if out of the loop without the event being triggered remove it */ if (!SmSleepDone) sm_clrevent(ev); if (was_held > 0) (void) sm_blocksignal(SIGALRM); return (SLEEP_T) 0; #endif /* HAVE_NANOSLEEP */ } #if !HAVE_NANOSLEEP static void sm_endsleep(ignore) int ignore; { /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ SmSleepDone = true; } #endif /* !HAVE_NANOSLEEP */ sendmail-8.18.1/libsm/wbuf.c0000644000372400037240000000501214556365350015202 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: wbuf.c,v 1.22 2013-11-22 20:51:44 ca Exp $") #include #include #include "local.h" /* Note: This function is called from a macro located in */ /* ** SM_WBUF -- write character to and flush (likely now full) buffer ** ** Write the given character into the (probably full) buffer for ** the given file. Flush the buffer out if it is or becomes full, ** or if c=='\n' and the file is line buffered. ** ** Parameters: ** fp -- the file pointer ** timeout -- time to complete operation (milliseconds) ** c -- int representation of the character to add ** ** Results: ** Failure: -1 and sets errno ** Success: int value of 'c' */ int sm_wbuf(fp, timeout, c) register SM_FILE_T *fp; int timeout; register int c; { register int n; /* ** In case we cannot write, or longjmp takes us out early, ** make sure w is 0 (if fully- or un-buffered) or -bf.smb_size ** (if line buffered) so that we will get called again. ** If we did not do this, a sufficient number of sm_io_putc() ** calls might wrap w from negative to positive. */ fp->f_w = fp->f_lbfsize; if (cantwrite(fp)) { errno = EBADF; return SM_IO_EOF; } c = (unsigned char)c; /* ** If it is completely full, flush it out. Then, in any case, ** stuff c into the buffer. If this causes the buffer to fill ** completely, or if c is '\n' and the file is line buffered, ** flush it (perhaps a second time). The second flush will always ** happen on unbuffered streams, where bf.smb_size==1; sm_io_flush() ** guarantees that sm_io_putc() will always call sm_wbuf() by setting ** w to 0, so we need not do anything else. ** Note for the timeout, only one of the sm_io_flush's will get called. */ n = fp->f_p - fp->f_bf.smb_base; if (n >= fp->f_bf.smb_size) { if (sm_io_flush(fp, timeout)) return SM_IO_EOF; /* sm_io_flush() sets errno */ n = 0; } fp->f_w--; *fp->f_p++ = c; if (++n == fp->f_bf.smb_size || (fp->f_flags & SMLBF && c == '\n')) if (sm_io_flush(fp, timeout)) return SM_IO_EOF; /* sm_io_flush() sets errno */ return c; } sendmail-8.18.1/libsm/b-strl.c0000644000372400037240000001200214556365350015437 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ /* ** Compile this program using a command line similar to: ** cc -O -L../OBJ/libsm -o b-strl b-strl.c -lsm ** where "OBJ" is the name of the object directory for the platform ** you are compiling on. ** Then run the program: ** ./b-strl ** and read the output for results and how to interpret the results. */ #include SM_RCSID("@(#)$Id: b-strl.c,v 1.26 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include #include #define SRC_SIZE 512 #define toseconds(x, y) (x.tv_sec - y.tv_sec) #define LOOPS 4000000L /* initial number of loops */ #define MAXTIME 30L /* "maximum" time to run single test */ void fatal(str) char *str; { perror(str); exit(1); } void purpose() { printf("This program benchmarks the performance differences between\n"); printf("strlcpy() and sm_strlcpy(), and strlcat() and sm_strlcat().\n"); printf("These tests may take several minutes to complete.\n"); } int main(argc, argv) int argc; char *argv[]; { #if !SM_CONF_STRL printf("The configuration indicates the system needs the libsm\n"); printf("versions of strlcpy(3) and strlcat(3). Thus, performing\n"); printf("these tests will not be of much use.\n"); printf("If your OS has strlcpy(3) and strlcat(3) then set the macro\n"); printf("SM_CONF_STRL to 1 in your site.config.m4 file\n"); printf("(located in ../devtools/Site) and recompile this program.\n"); #else /* !SM_CONF_STRL */ int ch; long a; bool doit = false; long loops = LOOPS; long one, two; struct timeval t1, t2; char dest[SRC_SIZE], source[SRC_SIZE]; # define OPTIONS "d" while ((ch = getopt(argc, argv, OPTIONS)) != -1) { switch ((char) ch) { case 'd': doit = true; break; default: break; } } if (!doit) { purpose(); printf("If you want to run it, specify -d as option.\n"); return 0; } /* ** Let's place a small string at the head of dest for ** catenation to happen (it'll be ignored for the copy). */ (void) sm_strlcpy(dest, "a small string at the start! ", SRC_SIZE - 1); /* ** Let's place a larger string into source for the catenation and ** the copy. */ (void) strlcpy(source, " This is the longer string that will be used for catenation and copying for the the performance testing. The longer the string being catenated or copied the greater the difference in measureable performance\n", SRC_SIZE - 1); /* Run-time comments to the user */ purpose(); printf("\n"); printf("Test 1: strlcat() versus sm_strlcat()\n"); redo_cat: if (gettimeofday(&t1, NULL) < 0) fatal("gettimeofday"); for (a = 0; a < loops; a++) strlcat(dest, source, SRC_SIZE - 1); if (gettimeofday(&t2, NULL) < 0) fatal("gettimeofday"); printf("\tstrlcat() result: %ld seconds\n", one = toseconds(t2, t1)); if (gettimeofday(&t1, NULL) < 0) fatal("gettimeofday"); for (a = 0; a < loops; a++) sm_strlcat(dest, source, SRC_SIZE - 1); if (gettimeofday(&t2, NULL) < 0) fatal("gettimeofday"); printf("\tsm_strlcat() result: %ld seconds\n", two = toseconds(t2, t1)); if (one - two >= -2 && one - two <= 2) { loops += loops; if (loops < 0L || one > MAXTIME) { printf("\t\t** results too close: no decision\n"); } else { printf("\t\t** results too close redoing test %ld times **\n", loops); goto redo_cat; } } printf("\n"); printf("Test 2: strlcpy() versus sm_strlpy()\n"); loops = LOOPS; redo_cpy: if (gettimeofday(&t1, NULL) < 0) fatal("gettimeofday"); for (a = 0; a < loops; a++) strlcpy(dest, source, SRC_SIZE - 1); if (gettimeofday(&t2, NULL) < 0) fatal("gettimeofday"); printf("\tstrlcpy() result: %ld seconds\n", one = toseconds(t2, t1)); if (gettimeofday(&t1, NULL) < 0) fatal("gettimeofday"); for (a = 0; a < loops; a++) sm_strlcpy(dest, source, SRC_SIZE - 1); if (gettimeofday(&t2, NULL) < 0) fatal("gettimeofday"); printf("\tsm_strlcpy() result: %ld seconds\n", two = toseconds(t2, t1)); if (one - two >= -2 && one - two <= 2) { loops += loops; if (loops < 0L || one > MAXTIME) { printf("\t\t** results too close: no decision\n"); } else { printf("\t\t** results too close redoing test %ld times **\n", loops); goto redo_cpy; } } printf("\n\n"); printf("Interpreting the results:\n"); printf("\tFor differences larger than 2 seconds, the lower value is\n"); printf("\tbetter and that function should be used for performance\n"); printf("\treasons.\n\n"); printf("This program will re-run the tests when the difference is\n"); printf("less than 2 seconds.\n"); printf("The result will vary depending on the compiler optimization\n"); printf("level used. Compiling the sendmail libsm library with a\n"); printf("better optimization level can change the results.\n"); #endif /* !SM_CONF_STRL */ return 0; } sendmail-8.18.1/libsm/string.c0000644000372400037240000000240614556365350015551 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: string.c,v 1.4 2013-11-22 20:51:43 ca Exp $") #include #include #include /* ** STRIPQUOTES -- Strip quotes & quote bits from a string. ** ** Runs through a string and strips off unquoted quote ** characters and quote bits. This is done in place. ** ** Parameters: ** s -- the string to strip. ** ** Returns: ** none. */ void stripquotes(s) char *s; { register char *p; register char *q; register char c; if (s == NULL) return; p = q = s; do { c = *p++; if (c == '\\') c = *p++; else if (c == '"') continue; *q++ = c; } while (c != '\0'); } /* ** UNFOLDSTRIPQUOTES -- Strip quotes & quote bits from a string. ** ** Parameters: ** s -- the string to strip. ** ** Returns: ** none. */ void unfoldstripquotes(s) char *s; { char *p, *q, c; if (s == NULL) return; p = q = s; do { c = *p++; if (c == '\\' || c == '\n') c = *p++; else if (c == '"') continue; *q++ = c; } while (c != '\0'); } sendmail-8.18.1/libsm/fpos.c0000644000372400037240000000616614556365350015221 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fpos.c,v 1.40 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include #include #include #include #include "local.h" static void tellalrm __P((int)); static jmp_buf TellTimeOut; /* ** TELLALRM -- handler when timeout activated for sm_io_tell() ** ** Returns flow of control to where setjmp(TellTimeOut) was set. ** ** Parameters: ** sig -- unused ** ** Returns: ** does not return ** ** Side Effects: ** returns flow of control to setjmp(TellTimeOut). ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED0 */ static void tellalrm(sig) int sig; { longjmp(TellTimeOut, 1); } /* ** SM_IO_TELL -- position the file pointer ** ** Parameters: ** fp -- the file pointer to get repositioned ** timeout -- time to complete the tell (milliseconds) ** ** Returns: ** Success -- the repositioned location. ** Failure -- -1 (minus 1) and sets errno */ long sm_io_tell(fp, timeout) register SM_FILE_T *fp; int SM_NONVOLATILE timeout; { register off_t pos; SM_EVENT *evt = NULL; SM_REQUIRE_ISA(fp, SmFileMagic); if (fp->f_seek == NULL) { errno = ESPIPE; /* historic practice */ return -1L; } if (timeout == SM_TIME_DEFAULT) timeout = fp->f_timeout; if (timeout == SM_TIME_IMMEDIATE) { /* ** Filling the buffer will take time and we are wanted to ** return immediately. So... */ errno = EAGAIN; return -1L; } /* ** Find offset of underlying I/O object, then adjust byte position ** may adjust seek offset on append stream */ (void) sm_flush(fp, (int *) &timeout); /* This is where we start the timeout */ if (timeout != SM_TIME_FOREVER) { if (setjmp(TellTimeOut) != 0) { errno = EAGAIN; return -1L; } evt = sm_seteventm(timeout, tellalrm, 0); } if (fp->f_flags & SMOFF) pos = fp->f_lseekoff; else { /* XXX only set the timeout here? */ pos = (*fp->f_seek)(fp, (off_t) 0, SM_IO_SEEK_CUR); if (pos == -1L) goto clean; } if (fp->f_flags & SMRD) { /* ** Reading. Any unread characters (including ** those from ungetc) cause the position to be ** smaller than that in the underlying object. */ pos -= fp->f_r; if (HASUB(fp)) pos -= fp->f_ur; } else if (fp->f_flags & SMWR && fp->f_p != NULL) { /* ** Writing. Any buffered characters cause the ** position to be greater than that in the ** underlying object. */ pos += fp->f_p - fp->f_bf.smb_base; } clean: /* We're back. So undo our timeout and handler */ if (evt != NULL) sm_clrevent(evt); return pos; } sendmail-8.18.1/libsm/fprintf.c0000644000372400037240000000254514556365350015717 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fprintf.c,v 1.18 2013-11-22 20:51:42 ca Exp $") #include #include #include #include "local.h" /* ** SM_IO_FPRINTF -- format and print a string to a file pointer ** ** Parameters: ** fp -- file pointer to be printed to ** timeout -- time to complete print ** fmt -- markup format for the string to be printed ** ... -- additional information for 'fmt' ** ** Returns: ** Failure: returns SM_IO_EOF and sets errno ** Success: returns the number of characters o/p */ int #if SM_VA_STD sm_io_fprintf(SM_FILE_T *fp, int timeout, const char *fmt, ...) #else /* SM_VA_STD */ sm_io_fprintf(fp, timeout, fmt, va_alist) SM_FILE_T *fp; int timeout; char *fmt; va_dcl #endif /* SM_VA_STD */ { int ret; SM_VA_LOCAL_DECL SM_REQUIRE_ISA(fp, SmFileMagic); SM_VA_START(ap, fmt); ret = sm_io_vfprintf(fp, timeout, fmt, ap); SM_VA_END(ap); return ret; } sendmail-8.18.1/libsm/vprintf.c0000644000372400037240000000174214556365350015735 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: vprintf.c,v 1.15 2013-11-22 20:51:44 ca Exp $") #include #include "local.h" /* ** SM_VPRINTF -- print to standard out with variable length args ** ** Parameters: ** timeout -- length of time allow to do the print ** fmt -- the format of the output ** ap -- the variable number of args to be used for output ** ** Returns: ** as sm_io_vfprintf() does. */ int sm_vprintf(timeout, fmt, ap) int timeout; char const *fmt; va_list ap; { return sm_io_vfprintf(smiostdout, timeout, fmt, ap); } sendmail-8.18.1/libsm/t-ixlen.sh0000755000372400037240000000125314556365350016015 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 2020 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ---------------------------------------- # test ilenx() and xleni(), using t-ixlen # ---------------------------------------- PRG=./t-ixlen R=0 ${PRG} < #include #include #if _FFR_8BITENVADDR /* ** XLENI -- determine the 'i'internal length of a string in e'x'ternal format ** ** Parameters: ** str -- string [x] ** ** Returns: ** 'i'internal length of a string in e'x'ternal format */ int xleni(str) const char *str; { char c; int idx, ilen; if (NULL == str) return -1; for (ilen = 0, idx = 0; (c = str[idx]) != '\0'; ilen++, idx++) { if (SM_MM_QUOTE(c)) ilen++; } return ilen; } #endif /* _FFR_8BITENVADDR */ sendmail-8.18.1/libsm/io.html0000644000372400037240000006514514556365350015405 0ustar xbuildxbuild libsm sm_io general overview Back to libsm overview

    libsm sm_io general overview


    $Id: io.html,v 1.3 2001-03-17 03:22:50 gshapiro Exp $

    Introduction

    The sm_io portion of the libsm library is similar to the stdio library. It is derived from the Chris Torek version of the stdio library (BSD). There are some key differences described below between sm_io and stdio but many similarities will be noticed.

    A key difference between stdio and sm_io is that the functional code that does the open, close, read, write, etc. on a file can be different for different files. For example, with stdio the functional code (read, write) is either the default supplied in the library or a "programmer specified" set of functions set via sm_io_open(). Whichever set of functions are specified all open's, read's, write's, etc use the same set of functions. In contrast, with sm_io a different set of functions can be specified with each active file for read's, write's, etc. These different function sets are identified as file types (see sm_io_open()). Each function set can handle the actions directly, pass the action request to another function set or do some work before passing it on to another function set. The setting of a function set for a file type can be done for a file type at any time (even after the type is open).

    A second difference is the use of rpools. An rpool is specified with the opening of a file (sm_io_open()). This allows of a file to be associated with an rpool so that when the rpool is released the open file will be closed; the sm_io_open() registers that sm_io_close() should be called when the rpool is released.

    A third difference is that the I/O functions take a timeout argument. This allows the setting of a maximum amount of time allowable for the I/O to be completed. This means the calling program does not need to setup it's own timeout mechanism. NOTE: SIGALRM's should not be active in the calling program when an I/O function with a timeout is used.

    When converting source code from stdio to sm_io be very careful to NOTE: the arguments to functions have been rationalized. That is, unlike stdio, all sm_io functions that take a file pointer (SM_FILE_T *) argument have the file pointer as the first argument. Also not all functions with stdio have an identical matching sm_io API: the API list has been thinned since a number of stdio API's overlapped in functionality. Remember many functions also have a timeout argument added.

    When a file is going to be opened, the file type is included with sm_io_open(). A file type is either one automatically included with the sm_io library or one created by the program at runtime. File types can be either buffered or unbuffered. When buffered the buffering is either the builtin sm_io buffering or as done by the file type. File types can be disk files, strings, TCP/IP connections or whatever your imagination can come up with that can be read and/or written to.

    Information about a particular file type or pointer can be obtained or set with the sm_io "info" functions. The sm_io_setinfo() and sm_io_getinfo() functions work on an active file pointer.

    Include files

    There is one main include file for use with sm_io: io.h. Since the use of rpools is specified with sm_io_open() an rpool may be created and thus rpool.h may need to be included as well (before io.h). 

    #include <rpool.h>
#include <io.h>

    Functions/API's

    Below is a list of the functions for sm_io listed in alphabetical order. Currently these functions return error codes and set errno when appropriate. These (may?/will?) change to raising exceptions later. 

    SM_FILE_T *sm_io_autoflush(SM_FILE_T *fp, SM_FILE_T *)

void sm_io_automode(SM_FILE_T *fp, SM_FILE_T *)

void sm_io_clearerr(SM_FILE_T *fp)

int sm_io_close(SM_FILE_T *fp, int timeout)

int sm_io_dup(SM_FILE_T *fp)

int sm_io_eof(SM_FILE_T *fp)

int sm_io_error(SM_FILE_T *fp)

char * sm_io_fgets(SM_FILE_T *fp, int timeout, char *buf, int n)

int sm_io_flush(SM_FILE_T *fp, int timeout)

int sm_io_fopen(char *pathname, int flags [, MODE_T mode])

int sm_io_fprintf(SM_FILE_T *fp, int timeout, const char *fmt, ...)

int sm_io_fputs(s, int, SM_FILE_T *fp)

int sm_io_fscanf(SM_FILE_T *fp, int timeout, char const *fmt, ...) 

int sm_io_getc(SM_FILE_T *fp, int timeout)

void sm_io_getinfo(SM_FILE_T *sfp, int what, void *valp)

SM_FILE_T * sm_io_open(SM_FILE_T type, int timeout, void *info, int flags, void *rpool)

int sm_io_purge(SM_FILE_T *fp)

int sm_io_putc(SM_FILE_T *fp, int timeout, int c)

size_t sm_io_read(SM_FILE_T *fp, int timeout, char *buf, size_t size)

SM_FILE_T * sm_io_open(SM_FILE_T type, int timeout, void *info, int flags, void *rpool)

void sm_io_rewind(SM_FILE_T *fp, int timeout)

int sm_io_seek(SM_FILE_T *fp, off_t offset, int timeout, int whence)

void sm_io_setinfo(SM_FILE_T *sfp, int what, void *valp)

int sm_io_setvbuf(SM_FILE_T *fp, int timeout, char *buf, int mode, size_t size)

int sm_io_sscanf(const char *str, char const *fmt, ...)

long sm_io_tell(SM_FILE_T *fp, int timeout)

int sm_io_ungetc(SM_FILE_T *fp, int timeout, int c)

size_t sm_io_write(SM_FILE_T *fp, int timeout, char *buf, size_t size)

int sm_snprintf(char *str, size_t n, char const *fmt, ...)

    Timeouts

    For many of the functions a timeout argument is given. This limits the amount of time allowed for the function to complete. There are three pre-defined values:

  • SM_TIME_DEFAULT - timeout using the default setting for this file type
  • SM_TIME_FOREVER - timeout will take forever; blocks until task completed
  • SM_TIME_IMMEDIATE - timeout (virtually) now

    • A function caller can also specify a positive integer value in milliseconds. A function will return with errno set to EINVAL if a bad value is given for timeout. When a function times out the function returns in error with errno set to EAGAIN. In the future this may change to an exception being thrown.

    Function Descriptions

    SM_FILE_T *
    sm_io_fopen(char *pathname, int flags)
    SM_FILE_T *
    sm_io_fopen(char *pathname, int flags, MODE_T mode)
    Open the file named by pathname, and associate a stream with it. The arguments are the same as for the open(2) system call.
    If memory could not be allocated, an exception is raised. If successful, an SM_FILE_T pointer is returned. Otherwise, NULL is returned and errno is set.

    SM_FILE_T *
    sm_io_open(const SM_FILE_T *type, int timeout, const void *info, int flags, void *rpool)
    Opens a file by type directed by info. Type is a filled-in SM_FILE_T structure from the following builtin list (descriptions below) or one specified by the program.
  • SmFtString
  • SmFtStdio
  • SmFtStdiofd
  • smioin *
  • smioout *
  • smioerr *
  • smiostdin *
  • smiostdout *
  • smiostderr *
  • SmFtSyslog

    • The above list of file types are already appropriately filled in. Those marked with a "*" are already open and may be used directly and immediately. For program specified types, to set the type argument easily and with minimal error the macro SM_IO_SET_TYPE should be used. The SM_FILE_T structure is fairly large, but only a small portion of it need to be initialized for a new type. See also "Writing Functions for a File Type". 
    SM_IO_SET_TYPE(type, name, open, close, read, write, seek, get, set, timeout)

    Timeout is set as described in the Timeouts section.
    Info is information that describes for the file type what is to be opened and any associated information. For a disk file this would be a file path; with a TCP connection this could be an a structure containing an IP address and port.
    Flags is a set of sm_io flags that describes how the file is to be interacted with:
  • SM_IO_RDWR - read and write
  • SM_IO_RDONLY - read only
  • SM_IO_WRONLY - write only
  • SM_IO_APPEND - allow write to EOF only
  • SM_IO_APPENDRW - allow read-write from EOF only
  • SM_IO_RDWRTR - read and write with truncation of file first
    • Rpool is the address of the rpool that this open is to be associated with. When the rpool is released then the close function for this file type will be automatically called to close the file for cleanup. If NULL is specified for rpool then the close function is not associated (attached) to an rpool.
    On cannot allocate memory, an exception is raised. If the type is invalid, sm_io_open will abort the process. On success an SM_FILE_T * pointer is returned. On failure the NULL pointer is returned and errno is set.

    int
    sm_io_setinfo(SM_FILE_T *sfp, int what, void *valp)
    For the open file sfp set the indicated information (what) to the new value (valp). This will make the change for this SM_FILE_T only. The file type that sfp originally belonged to will still be configured the same way (this is to prevent side-effect to other open's of the same file type, particularly with threads). The value of what will be file-type dependent since this function is one of the per file type setable functions. One value for what that is valid for all file types is SM_WHAT_VECTORS. This sets the currently open file with a new function vector set for open, close, etc. The new values are taken from valp a SM_FILE_T filled in by the used via the macro SM_IO_SET_TYPE (see and "Writing Functions for a File Type" for more information).
    On success 0 (zero) is returned. On failure -1 is returned and errno is set.

    int
    sm_io_getinfo(SM_FILE_T *sfp, int what, void *valp)
    For the open file sfp get the indicated information (what) and place the result in (valp). This will obtain information for SM_FILE_T only and may be different than the information for the file type it was originally opened as. The value of what will be file type dependent since this function is one of the per file type setable functions. One value for what that is valid for all file types is SM_WHAT_VECTORS. This gets from the currently open file a copy of the function vectors and stores them in valp a SM_FILE_T (see "Writing Functions for a File Type" for more information).
    On success 0 (zero) is returned. On failure -1 is returned and errno is set.

    void
    sm_io_autoflush(SM_FILE_T *fp1, *SM_FILE_T fp2)
    Associate a read of fp1 with a data flush for fp2. If a read of fp1 discovers that there is no data available to be read, then fp2 will have it's data buffer flushed for writable data. It is assumed that fp1 is open for reading and fp2 is open for writing.
    On return the old file pointer associated with fp1 for flushing is returned. A return of NULL is no an error; this merely indicates no previous association.

    void
    sm_io_automode(SM_FILE_T *fp1, *SM_FILE_T fp2)
    Associate the two file pointers for blocking/non-blocking mode changes. In the handling of timeouts sm_io may need to switch the mode of a file between blocking and non-blocking. If the underlying file descriptor has been duplicated with dup(2) and these descriptors are used by sm_io (for example with an SmFtStdiofd file type), then this API should be called to associate them. Otherwise odd behavior (i.e. errors) may result that is not consistently reproducible nor easily identifiable.

    int
    sm_io_close(SM_FILE_T *sfp, int timeout)
    Release all resources (file handles, memory, etc.) associated with the open SM_FILE_T sfp. If buffering is active then the buffer is flushed before any resources are released. Timeout is set as described in the Timeouts section. The first resources released after buffer flushing will be the buffer itself. Then the close function specified in the file type at open will be called. It is the responsibility of the close function to release any file type specific resources allocated and to call sm_io_close() for the next file type layer(s) that the current file type uses (if any).
    On success 0 (zero) is returned. On failure SM_IO_EOF is returned and errno is set.

    Description of Builtin File Types

    There are several builtin file types as mentioned in sm_io_open(). More file types may be added later.

    SmFtString
    Operates on a character string. SmFtString is a file type only. The string starts at the location 0 (zero) and ends at the last character. A read will obtain the requested number of characters if available; else as many as possible. A read will not terminate the read characters with a NULL ('\0'). A write will place the number of requested characters at the current location. To append to a string either the pointer must currently be at the end of the string or a seek done to position the pointer. The file type handles the space needed for the string. Thus space needed for the string will be grown automagically without the user worrying about space management.
    SmFtStdio
    A predefined SM_FILE_T structure with function vectors pointing to functions that result in the file-type behaving as the system stdio normally does. The info portion of the sm_io_open is the path of the file to be opened. Note that this file type does not interact with the system's stdio. Thus a program mixing system stdio and sm_io stdio (SmFtStdio) will result in uncoordinated input and output.
    SmFtStdiofd
    A predefined SM_FILE_T structure with function vectors pointing to functions that result in the file-type behaving as the system stdio normally does. The info portion of the sm_io_open is a file descriptor (the value returned by open(2)). Note that this file type does not interact with the system's stdio. Thus a program mixing system stdio and sm_io stdio (SmFtStdio) will result in uncoordinated input and output.
    smioin
    smioout
    smioerr
    The three types smioin, smioout and smioerr are grouped together. These three types perform in the same manner as stdio's stdin, stdout and stderr. These types are both the names and the file pointers. They are already open when a program starts (unless the parent explicitly closed file descriptors 0, 1 and 2). Thus sm_io_open() should never be called for these types: the named file pointers should be used directly. Smioin and smioout are buffered by default. Smioerr is not buffered by default. Calls to stdio are safe to make when using these threesm_io file pointers. There is no interaction between sm_io and stdio. Hence, due to buffering, the sequence of input and output data from both sm_io and stdio at the same time may appear unordered. For coordination between sm_io and stdio use the three file pointers below (smiostdin, smiostdout, smiostderr).
    smiostdin
    smiostdout
    smiostderr
    The three types smiostdin, smioostdut and smiostderr are grouped together. These three types perform in the same manner as stdio's stdin, stdout and stderr. These types are both the names and file pointers. They are already open when a program starts (unless the parent explicitly close file descriptors 0, 1 and 2). Thus sm_io_open() should never be called: the named file pointers should be used directly. Calls to stdio are safe to make when using these threesm_io file pointers though no code is shared between the two libraries. However, the input and output between sm_io and stdio is coordinated for these three file pointers: smiostdin, smiostdout and smiostderr are layered on-top-of the system's stdio. Smiostdin, smiostdout and Smiostderr are not buffered by default. Hence, due to buffering in stdio only, the sequence of input and output data from both sm_io and stdio at the same time will appear ordered. If sm_io buffering is turned on then the input and output can appear unordered or lost.
    SmFtSyslog
    This opens the channel to the system log. Reads are not allowed. Writes cannot be undone once they have left the sm_io buffer. The man pages for syslog(3) should be read for information on syslog.

    Writing Functions for a File Type

    When writing functions to create a file type a function needs to be created for each function vector in the SM_FILE_T structure that will be passed to sm_io_open() or sm_io_setinfo(). Otherwise the setting will be rejected and errno set to EINVAL. Each function should accept and handle the number and types of arguments as described in the portion of the SM_FILE_T structure shown below: 

            int      (*open) __P((SM_FILE_T *fp, const void *, int flags,
                              const void *rpool));
        int      (*close) __P((SM_FILE_T *fp));
        int      (*read)  __P((SM_FILE_T *fp, char *buf, size_t size));
        int      (*write) __P((SM_FILE_T *fp, const char *buf, size_t size));
        off_t    (*seek)  __P((SM_FILE_T *fp, off_t offset, int whence));
        int      (*getinfo) __P((SM_FILE_T *fp, int what, void *valp));
        int      (*setinfo) __P((SM_FILE_T *fp, int what, void *valp));

    The macro SM_IO_SET_TYPE should be used to initialized an SM_FILE_T as a file type for an sm_io_open(): 

    SM_IO_SET_TYPE(type, name, open, close, read, write, seek, get, set, timeout)

    where:
  • type - is the SM_FILE_T being filled-in
  • name - a human readable character string for human identification purposes
  • open - the vector to the open function
  • close - the vector to the close function
  • read - the vector to the read function
  • write - the vector to the write function
  • seek - the vector to the seek function
  • set - the vector to the set function
  • get - the vector to the get function
  • timeout - the default to be used for a timeout when SM_TIME_DEFAULT specified
    • You should avoid trying to change or use the other structure members of the SM_FILE_T. The file pointer content (internal structure members) of an active file should only be set and observed with the "info" functions. The two exceptions to the above statement are the structure members cookie and ival. Cookie is of type void * while ival is of type int. These two structure members exist specifically for your created file type to use. The sm_io functions will not change or set these two structure members; only specific file type will change or set these variables.

    For maintaining information privately about status for a file type the information should be encapsulated in a cookie. A cookie is an opaque type that contains information that is only known to the file type layer itself. The sm_io package will know nothing about the contents of the cookie; sm_io only maintains the location of the cookie so that it may be passed to the functions of a file type. It is up to the file type to determine what to do with the cookie. It is the responsibility of the file type's open to create the cookie and point the SM_FILE_T's cookie at the address of the cookie. It is the responsibility of close to clean up any resources that the cookie and instance of the file type have used.

    For the cookie to be passed to all members of a function type cleanly the location of the cookie must assigned during the call to open. The file type functions should not attempt to maintain the cookie internally since the file type may have several instances (file pointers).

    The SM_FILE_T's member ival may be used in a manner similar to cookie. It is not to be used for maintaining the file's offset or access status (other members do that). It is intended as a "light" reference.

    The file type vector functions are called by the sm_io_*() functions after sm_io processing has occurred. The sm_io processing validates SM_FILE_T's and may then handle the call entirely itself or pass the request to the file type vector functions.

    All of the "int" functions should return -1 (minus one) on failure and 0 (zero) or greater on success. Errno should be set to provide diagnostic information to the caller if it has not already been set by another function the file type function used.

    Examples are a wonderful manner of clarifying details. Below is an example of an open function.

    This shows the setup. 

    SM_FILE_T *fp;
SM_FILE_T SM_IO_SET_TYPE(vector, "my_type", myopen, myclose, myread, mywrite,
				myseek, myget, myset, SM_TIME_FOREVER);

fp = sm_io_open(&vector, 1000, "data", SM_IO_RDONLY, NULL);

if (fp == NULL)
	return(-1);
    The above code open's a file of type "my_type". The info is set to a string "data". "data" may be the name of a file or have some special meaning to the file type. For sake of the example, we will have it be the name of a file in the home directory of the user running the program. Now the only file type function that is dependent on this information will be the open function.
    We have also specified read-only access (SM_IO_RDONLY) and that no rpool will be used. The timeout has been set to 1000 milliseconds which directs that the file and all associated setup should be done within 1000 milliseconds or return that the function erred (with errno==EAGAIN). 
    int myopen(fp, info, flags, rpools)
	SM_FILE_T *fp;
        const void *info; 
        int flags;
        void *rpool;
{
	/*
	**  now we could do the open raw (i.e with read(2)), but we will
	**  use file layering instead. We will use the stdio file
	**  type (different than the system's stdio).
	*/
	struct passwd *pw;
	char path[PATH_MAX];

	pw = getpwuid(getuid());
	sm_io_snprintf(path, PATH_MAX, "%s/%s", pw->pw_dir, info);

	/*
	**  Okay. Now the path pass-in has been prefixed with the
	**  user's HOME directory. We'll call the regular stdio (SmFtStdio)
	**  now to handle the rest of the open.
	*/
	fp->cookie = sm_io_open(SmFtStdio, path, flags, rpools);
	if (fp->cookie == NULL)
		return(-1) /* errno set by sm_io_open call */
	else
		return(0);
}
    Later on when a write is performed the function mywrite will be invoked. To match the above myopen, mywrite could be written as: 
    int mywrite(fp, buf, size)
	SM_FILE_T *fp;
        char *buf;
        size_t size;
{
	/*
	**  As an example, we can change, modify, refuse, filter, etc.
	**  the content being passed through before we ask the SmFtStdio
	**  to do the actual write.
	**  This example is very simple and contrived, but this keeps it
	**  clear.
	*/
	if (size == 0)
		return(0); /* why waste the cycles? */
	if (*buf == 'X')
		*buf = 'Y';

	/*
	**  Note that the file pointer passed to the next level is the
	**  one that was stored in the cookie during the open.
	*/
	return(sm_io_write(fp->cookie, buf, size));
}
    As a thought-exercise for the fair reader: how would you modify the above two functions to make a "tee". That is the program will call sm_io_open or sm_io_write and two or more files will be opened and written to. (Hint: create a cookie to hold two or more file pointers).


    libsm sm_io default API definition

    Introduction

    A number of sm_io API's perform similar to their stdio counterparts (same name as when the "sm_io_" is removed). One difference between sm_io and stdio functions is that if a "file pointer" (FILE/SM_FILE_T) is one of the arguments for the function, then it is now the first argument. Sm_io is standardized so that when a file pointer is one of the arguments to function then it will always be the first argument. Many of the sm_io function take a timeout argument (see Timeouts).

    The API you have selected is one of these. Please consult the appropriate stdio man page for now.

    sendmail-8.18.1/libsm/strrevcmp.c0000644000372400037240000000316114556365350016267 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: strrevcmp.c,v 1.6 2013-11-22 20:51:43 ca Exp $") #include #include #include /* strcasecmp.c */ extern const unsigned char charmap[]; /* ** SM_STRREVCASECMP -- compare two strings starting at the end (ignore case) ** ** Parameters: ** s1 -- first string. ** s2 -- second string. ** ** Returns: ** strcasecmp(reverse(s1), reverse(s2)) */ int sm_strrevcasecmp(s1, s2) const char *s1, *s2; { register int i1, i2; i1 = strlen(s1) - 1; i2 = strlen(s2) - 1; while (i1 >= 0 && i2 >= 0 && charmap[(unsigned char) s1[i1]] == charmap[(unsigned char) s2[i2]]) { --i1; --i2; } if (i1 < 0) { if (i2 < 0) return 0; else return -1; } else { if (i2 < 0) return 1; else return (charmap[(unsigned char) s1[i1]] - charmap[(unsigned char) s2[i2]]); } } /* ** SM_STRREVCMP -- compare two strings starting at the end ** ** Parameters: ** s1 -- first string. ** s2 -- second string. ** ** Returns: ** strcmp(reverse(s1), reverse(s2)) */ int sm_strrevcmp(s1, s2) const char *s1, *s2; { register int i1, i2; i1 = strlen(s1) - 1; i2 = strlen(s2) - 1; while (i1 >= 0 && i2 >= 0 && s1[i1] == s2[i2]) { --i1; --i2; } if (i1 < 0) { if (i2 < 0) return 0; else return -1; } else { if (i2 < 0) return 1; else return s1[i1] - s2[i2]; } } sendmail-8.18.1/libsm/strto.c0000644000372400037240000001271314556365350015420 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1992 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: strto.c,v 1.19 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include #include #include /* ** SM_STRTOLL -- Convert a string to a (signed) long long integer. ** ** Ignores `locale' stuff. Assumes that the upper and lower case ** alphabets and digits are each contiguous. ** ** Parameters: ** nptr -- string containing number ** endptr -- location of first invalid character ** base -- numeric base that 'nptr' number is based in ** ** Returns: ** Failure: on underflow LLONG_MIN is returned; on overflow ** LLONG_MAX is returned and errno is set. ** When 'endptr' == '\0' then the entire string 'nptr' ** was valid. ** Success: returns the converted number */ LONGLONG_T sm_strtoll(nptr, endptr, base) const char *nptr; char **endptr; register int base; { register bool neg; register const char *s; register LONGLONG_T acc, cutoff; register int c; register int any, cutlim; /* ** Skip white space and pick up leading +/- sign if any. ** If base is 0, allow 0x for hex and 0 for octal, else ** assume decimal; if base is already 16, allow 0x. */ s = nptr; do { c = (unsigned char) *s++; } while (isascii(c) && isspace(c)); if (c == '-') { neg = true; c = *s++; } else { neg = false; if (c == '+') c = *s++; } if ((base == 0 || base == 16) && c == '0' && (*s == 'x' || *s == 'X')) { c = s[1]; s += 2; base = 16; } if (base == 0) base = c == '0' ? 8 : 10; /* ** Compute the cutoff value between legal numbers and illegal ** numbers. That is the largest legal value, divided by the ** base. An input number that is greater than this value, if ** followed by a legal input character, is too big. One that ** is equal to this value may be valid or not; the limit ** between valid and invalid numbers is then based on the last ** digit. For instance, if the range for long-long's is ** [-9223372036854775808..9223372036854775807] and the input base ** is 10, cutoff will be set to 922337203685477580 and cutlim to ** either 7 (!neg) or 8 (neg), meaning that if we have ** accumulated a value > 922337203685477580, or equal but the ** next digit is > 7 (or 8), the number is too big, and we will ** return a range error. ** ** Set any if any `digits' consumed; make it negative to indicate ** overflow. */ cutoff = neg ? LLONG_MIN : LLONG_MAX; cutlim = cutoff % base; cutoff /= base; if (neg) { if (cutlim > 0) { cutlim -= base; cutoff += 1; } cutlim = -cutlim; } for (acc = 0, any = 0;; c = (unsigned char) *s++) { if (isascii(c) && isdigit(c)) c -= '0'; else if (isascii(c) && isalpha(c)) c -= isupper(c) ? 'A' - 10 : 'a' - 10; else break; if (c >= base) break; if (any < 0) continue; if (neg) { if (acc < cutoff || (acc == cutoff && c > cutlim)) { any = -1; acc = LLONG_MIN; errno = ERANGE; } else { any = 1; acc *= base; acc -= c; } } else { if (acc > cutoff || (acc == cutoff && c > cutlim)) { any = -1; acc = LLONG_MAX; errno = ERANGE; } else { any = 1; acc *= base; acc += c; } } } if (endptr != NULL) *endptr = (char *) (any ? s - 1 : nptr); return acc; } /* ** SM_STRTOULL -- Convert a string to an unsigned long long integer. ** ** Ignores `locale' stuff. Assumes that the upper and lower case ** alphabets and digits are each contiguous. ** ** Parameters: ** nptr -- string containing (unsigned) number ** endptr -- location of first invalid character ** base -- numeric base that 'nptr' number is based in ** ** Returns: ** Failure: on overflow ULLONG_MAX is returned and errno is set. ** When 'endptr' == '\0' then the entire string 'nptr' ** was valid. ** Success: returns the converted number */ ULONGLONG_T sm_strtoull(nptr, endptr, base) const char *nptr; char **endptr; register int base; { register const char *s; register ULONGLONG_T acc, cutoff; register int c; register bool neg; register int any, cutlim; /* See sm_strtoll for comments as to the logic used. */ s = nptr; do { c = (unsigned char) *s++; } while (isascii(c) && isspace(c)); neg = (c == '-'); if (neg) { c = *s++; } else { if (c == '+') c = *s++; } if ((base == 0 || base == 16) && c == '0' && (*s == 'x' || *s == 'X')) { c = s[1]; s += 2; base = 16; } if (base == 0) base = c == '0' ? 8 : 10; cutoff = ULLONG_MAX / (ULONGLONG_T)base; cutlim = ULLONG_MAX % (ULONGLONG_T)base; for (acc = 0, any = 0;; c = (unsigned char) *s++) { if (isascii(c) && isdigit(c)) c -= '0'; else if (isascii(c) && isalpha(c)) c -= isupper(c) ? 'A' - 10 : 'a' - 10; else break; if (c >= base) break; if (any < 0) continue; if (acc > cutoff || (acc == cutoff && c > cutlim)) { any = -1; acc = ULLONG_MAX; errno = ERANGE; } else { any = 1; acc *= (ULONGLONG_T)base; acc += c; } } if (neg && any > 0) acc = -((LONGLONG_T) acc); if (endptr != NULL) *endptr = (char *) (any ? s - 1 : nptr); return acc; } sendmail-8.18.1/libsm/Build0000755000372400037240000000053214556365350015062 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999-2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 1.6 2013-11-22 20:51:42 ca Exp $ exec sh ../devtools/bin/Build "$@" sendmail-8.18.1/libsm/t-heap.c0000644000372400037240000000246714556365350015430 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-heap.c,v 1.11 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #if SM_HEAP_CHECK extern SM_DEBUG_T SmHeapCheck; # define HEAP_CHECK sm_debug_active(&SmHeapCheck, 1) #else # define HEAP_CHECK 0 #endif /* SM_HEAP_CHECK */ int main(argc, argv) int argc; char **argv; { void *p; sm_test_begin(argc, argv, "test heap handling"); if (argc > 1) sm_debug_addsettings_x(argv[1]); p = sm_malloc(10); SM_TEST(p != NULL); p = sm_realloc_x(p, 20); SM_TEST(p != NULL); p = sm_realloc(p, 30); SM_TEST(p != NULL); if (HEAP_CHECK) { sm_dprintf("heap with 1 30-byte block allocated:\n"); sm_heap_report(smioout, 3); } if (HEAP_CHECK) { sm_free(p); sm_dprintf("heap with 0 blocks allocated:\n"); sm_heap_report(smioout, 3); sm_dprintf("xtrap count = %d\n", SmXtrapCount); } #if DEBUG /* this will cause a core dump */ sm_dprintf("about to free %p for the second time\n", p); sm_free(p); #endif return sm_test_end(); } sendmail-8.18.1/libsm/findfp.c0000644000372400037240000002523414556365350015515 0ustar xbuildxbuild/* * Copyright (c) 2000-2002, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: findfp.c,v 1.68 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include #include #include #include #include #include #include #include "local.h" #include "glue.h" bool Sm_IO_DidInit; /* IO system has been initialized? */ const char SmFileMagic[] = "sm_file"; /* An open type to map to fopen()-like behavior */ SM_FILE_T SmFtStdio_def = {SmFileMagic, 0, 0, 0, (SMRW|SMFBF), -1, {0, 0}, 0, 0, 0, sm_stdclose, sm_stdread, sm_stdseek, sm_stdwrite, sm_stdopen, sm_stdsetinfo, sm_stdgetinfo, SM_TIME_FOREVER, SM_TIME_BLOCK, "stdio" }; /* An open type to map to fdopen()-like behavior */ SM_FILE_T SmFtStdiofd_def = {SmFileMagic, 0, 0, 0, (SMRW|SMFBF), -1, {0, 0}, 0, 0, 0, sm_stdclose, sm_stdread, sm_stdseek, sm_stdwrite, sm_stdfdopen, sm_stdsetinfo, sm_stdgetinfo, SM_TIME_FOREVER, SM_TIME_BLOCK, "stdiofd" }; /* A string file type */ SM_FILE_T SmFtString_def = {SmFileMagic, 0, 0, 0, (SMRW|SMNBF), -1, {0, 0}, 0, 0, 0, sm_strclose, sm_strread, sm_strseek, sm_strwrite, sm_stropen, sm_strsetinfo, sm_strgetinfo, SM_TIME_FOREVER, SM_TIME_BLOCK, "string" }; #if 0 /* A file type for syslog communications */ SM_FILE_T SmFtSyslog_def = {SmFileMagic, 0, 0, 0, (SMRW|SMNBF), -1, {0, 0}, 0, 0, 0, sm_syslogclose, sm_syslogread, sm_syslogseek, sm_syslogwrite, sm_syslogopen, sm_syslogsetinfo, sm_sysloggetinfo, SM_TIME_FOREVER, SM_TIME_BLOCK, "syslog" }; #endif /* 0 */ #define NDYNAMIC 10 /* add ten more whenever necessary */ #define smio(flags, file, name) \ {SmFileMagic, 0, 0, 0, flags, file, {0}, 0, SmIoF+file, 0, \ sm_stdclose, sm_stdread, sm_stdseek, sm_stdwrite, \ sm_stdopen, sm_stdsetinfo, sm_stdgetinfo, SM_TIME_FOREVER, \ SM_TIME_BLOCK, name} /* sm_magic p r w flags file bf lbfsize cookie ival */ #define smstd(flags, file, name) \ {SmFileMagic, 0, 0, 0, flags, -1, {0}, 0, 0, file, \ sm_stdioclose, sm_stdioread, sm_stdioseek, sm_stdiowrite, \ sm_stdioopen, sm_stdiosetinfo, sm_stdiogetinfo, SM_TIME_FOREVER,\ SM_TIME_BLOCK, name} /* A file type for interfacing to stdio FILE* streams. */ SM_FILE_T SmFtRealStdio_def = smstd(SMRW|SMNBF, -1, "realstdio"); /* the usual - (stdin + stdout + stderr) */ static SM_FILE_T usual[SM_IO_OPEN_MAX - 3]; static struct sm_glue smuglue = { 0, SM_IO_OPEN_MAX - 3, usual }; /* List of builtin automagically already open file pointers */ SM_FILE_T SmIoF[6] = { smio(SMRD|SMLBF, SMIOIN_FILENO, "smioin"), /* smioin */ smio(SMWR|SMLBF, SMIOOUT_FILENO, "smioout"), /* smioout */ smio(SMWR|SMNBF, SMIOERR_FILENO, "smioerr"), /* smioerr */ smstd(SMRD|SMNBF, SMIOIN_FILENO, "smiostdin"), /* smiostdin */ smstd(SMWR|SMNBF, SMIOOUT_FILENO, "smiostdout"),/* smiostdout */ smstd(SMWR|SMNBF, SMIOERR_FILENO, "smiostderr") /* smiostderr */ }; /* Structure containing list of currently open file pointers */ struct sm_glue smglue = { &smuglue, 3, SmIoF }; /* ** SM_MOREGLUE -- adds more space for open file pointers ** ** Parameters: ** n -- number of new spaces for file pointers ** ** Returns: ** Raises an exception if no more memory. ** Otherwise, returns a pointer to new spaces. */ static struct sm_glue *sm_moreglue_x __P((int)); static SM_FILE_T empty; static struct sm_glue * sm_moreglue_x(n) register int n; { register struct sm_glue *g; register SM_FILE_T *p; g = (struct sm_glue *) sm_pmalloc_x(sizeof(*g) + SM_ALIGN_BITS + n * sizeof(SM_FILE_T)); p = (SM_FILE_T *) SM_ALIGN(g + 1); g->gl_next = NULL; g->gl_niobs = n; g->gl_iobs = p; while (--n >= 0) *p++ = empty; return g; } /* ** SM_FP -- allocate and initialize an SM_FILE structure ** ** Parameters: ** t -- file type requested to be opened. ** flags -- control flags for file type behavior ** oldfp -- file pointer to reuse if available (optional) ** ** Returns: ** Raises exception on memory exhaustion. ** Aborts if type is invalid. ** Otherwise, returns file pointer for requested file type. */ SM_FILE_T * sm_fp(t, flags, oldfp) const SM_FILE_T *t; const int flags; SM_FILE_T *oldfp; { register SM_FILE_T *fp; register int n; register struct sm_glue *g; SM_REQUIRE(t->f_open && t->f_close && (t->f_read || t->f_write)); if (!Sm_IO_DidInit) sm_init(); if (oldfp != NULL) { fp = oldfp; goto found; /* for opening reusing an 'fp' */ } for (g = &smglue;; g = g->gl_next) { for (fp = g->gl_iobs, n = g->gl_niobs; --n >= 0; fp++) if (fp->sm_magic == NULL) goto found; if (g->gl_next == NULL) g->gl_next = sm_moreglue_x(NDYNAMIC); } found: fp->sm_magic = SmFileMagic; /* 'fp' now valid and in-use */ fp->f_p = NULL; /* no current pointer */ fp->f_w = 0; /* nothing to write */ fp->f_r = 0; /* nothing to read */ fp->f_flags = flags; fp->f_file = -1; /* no file */ fp->f_bf.smb_base = NULL; /* no buffer */ fp->f_bf.smb_size = 0; /* no buffer size with no buffer */ fp->f_lbfsize = 0; /* not line buffered */ fp->f_flushfp = NULL; /* no associated flush file */ fp->f_cookie = fp; /* default: *open* overrides cookie setting */ fp->f_close = t->f_close; /* assign close function */ fp->f_read = t->f_read; /* assign read function */ fp->f_seek = t->f_seek; /* assign seek function */ fp->f_write = t->f_write; /* assign write function */ fp->f_open = t->f_open; /* assign open function */ fp->f_setinfo = t->f_setinfo; /* assign setinfo function */ fp->f_getinfo = t->f_getinfo; /* assign getinfo function */ fp->f_type = t->f_type; /* file type */ fp->f_ub.smb_base = NULL; /* no ungetc buffer */ fp->f_ub.smb_size = 0; /* no size for no ungetc buffer */ if (fp->f_timeout == SM_TIME_DEFAULT) fp->f_timeout = SM_TIME_FOREVER; else fp->f_timeout = t->f_timeout; /* traditional behavior */ fp->f_timeoutstate = SM_TIME_BLOCK; /* by default */ return fp; } /* ** SM_CLEANUP -- cleanup function when exit called. ** ** This function is registered via atexit(). ** ** Parameters: ** none ** ** Returns: ** nothing. ** ** Side Effects: ** flushes open files before they are forced closed */ void sm_cleanup() { int timeout = SM_TIME_DEFAULT; (void) sm_fwalk(sm_flush, &timeout); /* `cheating' */ } /* ** SM_INIT -- called whenever sm_io's internal variables must be set up. ** ** Parameters: ** none ** ** Returns: ** none ** ** Side Effects: ** Registers sm_cleanup() using atexit(). */ void sm_init() { if (Sm_IO_DidInit) /* paranoia */ return; /* more paranoia: initialize pointers in a static variable */ empty.f_type = NULL; empty.sm_magic = NULL; /* make sure we clean up on exit */ atexit(sm_cleanup); /* conservative */ Sm_IO_DidInit = true; } /* ** SM_IO_SETINFO -- change info for an open file type (fp) ** ** The generic SM_IO_WHAT_VECTORS is auto supplied for all file types. ** If the request is to set info other than SM_IO_WHAT_VECTORS then ** the request is passed on to the file type's specific setinfo vector. ** WARNING: this is working on an active/open file type. ** ** Parameters: ** fp -- file to make the setting on ** what -- type of information to set ** valp -- structure to obtain info from ** ** Returns: ** 0 on success ** -1 on error and sets errno: ** - when what != SM_IO_WHAT_VECTORS and setinfo vector ** not set ** - when vectored setinfo returns -1 */ int sm_io_setinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { SM_FILE_T *v = (SM_FILE_T *) valp; SM_REQUIRE_ISA(fp, SmFileMagic); switch (what) { case SM_IO_WHAT_VECTORS: /* ** This is the "generic" available for all. ** This allows the function vectors to be replaced ** while the file type is active. */ fp->f_close = v->f_close; fp->f_read = v->f_read; fp->f_seek = v->f_seek; fp->f_write = v->f_write; fp->f_open = v->f_open; fp->f_setinfo = v->f_setinfo; fp->f_getinfo = v->f_getinfo; sm_free(fp->f_type); fp->f_type = sm_strdup_x(v->f_type); return 0; case SM_IO_WHAT_TIMEOUT: fp->f_timeout = *((int *)valp); return 0; } /* Otherwise the vector will check it out */ if (fp->f_setinfo == NULL) { errno = EINVAL; return -1; } else return (*fp->f_setinfo)(fp, what, valp); } /* ** SM_IO_GETINFO -- get information for an active file type (fp) ** ** This function supplies for all file types the answers for the ** three requests SM_IO_WHAT_VECTORS, and SM_IO_WHAT_ISTYPE. ** Other requests are handled by the getinfo ** vector if available for the open file type. ** SM_IO_WHAT_VECTORS returns information for the file pointer vectors. ** SM_IO_WHAT_ISTYPE returns >0 if the passed in type matches the ** file pointer's type. ** SM_IO_IS_READABLE returns 1 if there is data available for reading, ** 0 otherwise. ** ** Parameters: ** fp -- file pointer for active file type ** what -- type of information request ** valp -- structure to place obtained info into ** ** Returns: ** -1 on error and sets errno: ** - when valp==NULL and request expects otherwise ** - when request is not SM_IO_WHAT_VECTORS ** and not SM_IO_WHAT_ISTYPE ** and getinfo vector is NULL ** - when getinfo type vector returns -1 ** >=0 on success */ int sm_io_getinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { SM_FILE_T *v = (SM_FILE_T *) valp; SM_REQUIRE_ISA(fp, SmFileMagic); switch (what) { case SM_IO_WHAT_VECTORS: if (valp == NULL) { errno = EINVAL; return -1; } /* This is the "generic" available for all */ v->f_close = fp->f_close; v->f_read = fp->f_read; v->f_seek = fp->f_seek; v->f_write = fp->f_write; v->f_open = fp->f_open; v->f_setinfo = fp->f_setinfo; v->f_getinfo = fp->f_getinfo; v->f_type = fp->f_type; return 0; case SM_IO_WHAT_ISTYPE: if (valp == NULL) { errno = EINVAL; return -1; } return strcmp(fp->f_type, valp) == 0; case SM_IO_IS_READABLE: /* if there is data in the buffer, it must be readable */ if (fp->f_r > 0) return 1; /* otherwise query the underlying file */ break; case SM_IO_WHAT_TIMEOUT: *((int *) valp) = fp->f_timeout; return 0; case SM_IO_WHAT_FD: if (fp->f_file > -1) return fp->f_file; /* try the file type specific getinfo to see if it knows */ break; } /* Otherwise the vector will check it out */ if (fp->f_getinfo == NULL) { errno = EINVAL; return -1; } return (*fp->f_getinfo)(fp, what, valp); } sendmail-8.18.1/libsm/t-event.c0000644000372400037240000000345114556365350015626 0ustar xbuildxbuild/* * Copyright (c) 2001-2002, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: t-event.c,v 1.14 2013-11-22 20:51:43 ca Exp $") #include #include #include # include #if SM_CONF_SETITIMER # include #endif #include #include static void evcheck __P((int)); static void ev1 __P((int)); static int check; static void evcheck(arg) int arg; { SM_TEST(arg == 3); SM_TEST(check == 0); check++; } static void ev1(arg) int arg; { SM_TEST(arg == 1); } /* define as x if you want debug output */ #define DBG_OUT(x) int main(argc, argv) int argc; char *argv[]; { SM_EVENT *ev; sm_test_begin(argc, argv, "test event handling"); fprintf(stdout, "This test may hang. If there is no output within twelve seconds, abort it\nand recompile with -DSM_CONF_SETITIMER=%d\n", SM_CONF_SETITIMER == 0 ? 1 : 0); sleep(1); SM_TEST(1 == 1); DBG_OUT(fprintf(stdout, "We're back, test 1 seems to work.\n")); ev = sm_seteventm(1000, ev1, 1); sleep(1); SM_TEST(2 == 2); DBG_OUT(fprintf(stdout, "We're back, test 2 seems to work.\n")); /* schedule an event in 9s */ ev = sm_seteventm(9000, ev1, 2); sleep(1); /* clear the event before it can fire */ sm_clrevent(ev); SM_TEST(3 == 3); DBG_OUT(fprintf(stdout, "We're back, test 3 seems to work.\n")); /* schedule an event in 1s */ check = 0; ev = sm_seteventm(1000, evcheck, 3); sleep(2); /* clear the event */ sm_clrevent(ev); SM_TEST(4 == 4); SM_TEST(check == 1); DBG_OUT(fprintf(stdout, "We're back, test 4 seems to work.\n")); return sm_test_end(); } sendmail-8.18.1/libsm/signal.c0000644000372400037240000001533414556365350015524 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: signal.c,v 1.18 2013-11-22 20:51:43 ca Exp $") #if SM_CONF_SETITIMER # include #endif #include #include #include #include #include #include #include #include unsigned int volatile InCriticalSection; /* >0 if inside critical section */ int volatile PendingSignal; /* pending signal to resend */ /* ** SM_SIGNAL -- set a signal handler ** ** This is essentially old BSD "signal(3)". ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ sigfunc_t sm_signal(sig, handler) int sig; sigfunc_t handler; { #if defined(SA_RESTART) || (!defined(SYS5SIGNALS) && !defined(BSD4_3)) struct sigaction n, o; #endif /* ** First, try for modern signal calls ** and restartable syscalls */ #ifdef SA_RESTART (void) memset(&n, '\0', sizeof n); # if USE_SA_SIGACTION n.sa_sigaction = (void(*)(int, siginfo_t *, void *)) handler; n.sa_flags = SA_RESTART|SA_SIGINFO; # else n.sa_handler = handler; n.sa_flags = SA_RESTART; # endif if (sigaction(sig, &n, &o) < 0) return SIG_ERR; return o.sa_handler; #else /* SA_RESTART */ /* ** Else check for SYS5SIGNALS or ** BSD4_3 signals */ # if defined(SYS5SIGNALS) || defined(BSD4_3) # ifdef BSD4_3 return signal(sig, handler); # else return sigset(sig, handler); # endif # else /* defined(SYS5SIGNALS) || defined(BSD4_3) */ /* ** Finally, if nothing else is available, ** go for a default */ (void) memset(&n, '\0', sizeof n); n.sa_handler = handler; if (sigaction(sig, &n, &o) < 0) return SIG_ERR; return o.sa_handler; # endif /* defined(SYS5SIGNALS) || defined(BSD4_3) */ #endif /* SA_RESTART */ } /* ** SM_BLOCKSIGNAL -- hold a signal to prevent delivery ** ** Parameters: ** sig -- the signal to block. ** ** Returns: ** 1 signal was previously blocked ** 0 signal was not previously blocked ** -1 on failure. */ int sm_blocksignal(sig) int sig; { #ifdef BSD4_3 # ifndef sigmask # define sigmask(s) (1 << ((s) - 1)) # endif return (sigblock(sigmask(sig)) & sigmask(sig)) != 0; #else /* BSD4_3 */ # ifdef ALTOS_SYSTEM_V sigfunc_t handler; handler = sigset(sig, SIG_HOLD); if (handler == SIG_ERR) return -1; else return handler == SIG_HOLD; # else /* ALTOS_SYSTEM_V */ sigset_t sset, oset; (void) sigemptyset(&sset); (void) sigaddset(&sset, sig); if (sigprocmask(SIG_BLOCK, &sset, &oset) < 0) return -1; else return sigismember(&oset, sig); # endif /* ALTOS_SYSTEM_V */ #endif /* BSD4_3 */ } /* ** SM_RELEASESIGNAL -- release a held signal ** ** Parameters: ** sig -- the signal to release. ** ** Returns: ** 1 signal was previously blocked ** 0 signal was not previously blocked ** -1 on failure. */ int sm_releasesignal(sig) int sig; { #ifdef BSD4_3 return (sigsetmask(sigblock(0) & ~sigmask(sig)) & sigmask(sig)) != 0; #else /* BSD4_3 */ # ifdef ALTOS_SYSTEM_V sigfunc_t handler; handler = sigset(sig, SIG_HOLD); if (sigrelse(sig) < 0) return -1; else return handler == SIG_HOLD; # else /* ALTOS_SYSTEM_V */ sigset_t sset, oset; (void) sigemptyset(&sset); (void) sigaddset(&sset, sig); if (sigprocmask(SIG_UNBLOCK, &sset, &oset) < 0) return -1; else return sigismember(&oset, sig); # endif /* ALTOS_SYSTEM_V */ #endif /* BSD4_3 */ } /* ** PEND_SIGNAL -- Add a signal to the pending signal list ** ** Parameters: ** sig -- signal to add ** ** Returns: ** none. ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ void pend_signal(sig) int sig; { int sigbit; int save_errno = errno; #if SM_CONF_SETITIMER struct itimerval clr; #endif /* ** Don't want to interrupt something critical, hence delay ** the alarm for one second. Hopefully, by then we ** will be out of the critical section. If not, then ** we will just delay again. The events to be run will ** still all be run, maybe just a little bit late. */ switch (sig) { case SIGHUP: sigbit = PEND_SIGHUP; break; case SIGINT: sigbit = PEND_SIGINT; break; case SIGTERM: sigbit = PEND_SIGTERM; break; case SIGUSR1: sigbit = PEND_SIGUSR1; break; case SIGALRM: /* don't have to pend these */ sigbit = 0; break; default: /* If we get here, we are in trouble */ abort(); /* NOTREACHED */ /* shut up stupid compiler warning on HP-UX 11 */ sigbit = 0; break; } if (sigbit != 0) PendingSignal |= sigbit; (void) sm_signal(SIGALRM, sm_tick); #if SM_CONF_SETITIMER clr.it_interval.tv_sec = 0; clr.it_interval.tv_usec = 0; clr.it_value.tv_sec = 1; clr.it_value.tv_usec = 0; (void) setitimer(ITIMER_REAL, &clr, NULL); #else /* SM_CONF_SETITIMER */ (void) alarm(1); #endif /* SM_CONF_SETITIMER */ errno = save_errno; } /* ** SM_ALLSIGNALS -- act on all signals ** ** Parameters: ** block -- whether to block or release all signals. ** ** Returns: ** none. */ void sm_allsignals(block) bool block; { #ifdef BSD4_3 # ifndef sigmask # define sigmask(s) (1 << ((s) - 1)) # endif if (block) { int mask = 0; mask |= sigmask(SIGALRM); mask |= sigmask(SIGCHLD); mask |= sigmask(SIGHUP); mask |= sigmask(SIGINT); mask |= sigmask(SIGTERM); mask |= sigmask(SIGUSR1); (void) sigblock(mask); } else sigsetmask(0); #else /* BSD4_3 */ # ifdef ALTOS_SYSTEM_V if (block) { (void) sigset(SIGALRM, SIG_HOLD); (void) sigset(SIGCHLD, SIG_HOLD); (void) sigset(SIGHUP, SIG_HOLD); (void) sigset(SIGINT, SIG_HOLD); (void) sigset(SIGTERM, SIG_HOLD); (void) sigset(SIGUSR1, SIG_HOLD); } else { (void) sigset(SIGALRM, SIG_DFL); (void) sigset(SIGCHLD, SIG_DFL); (void) sigset(SIGHUP, SIG_DFL); (void) sigset(SIGINT, SIG_DFL); (void) sigset(SIGTERM, SIG_DFL); (void) sigset(SIGUSR1, SIG_DFL); } # else /* ALTOS_SYSTEM_V */ sigset_t sset; (void) sigemptyset(&sset); (void) sigaddset(&sset, SIGALRM); (void) sigaddset(&sset, SIGCHLD); (void) sigaddset(&sset, SIGHUP); (void) sigaddset(&sset, SIGINT); (void) sigaddset(&sset, SIGTERM); (void) sigaddset(&sset, SIGUSR1); (void) sigprocmask(block ? SIG_BLOCK : SIG_UNBLOCK, &sset, NULL); # endif /* ALTOS_SYSTEM_V */ #endif /* BSD4_3 */ } /* ** SM_SIGNAL_NOOP -- A signal no-op function ** ** Parameters: ** sig -- signal received ** ** Returns: ** SIGFUNC_RETURN */ /* ARGSUSED */ SIGFUNC_DECL sm_signal_noop(sig) int sig; { int save_errno = errno; FIX_SYSV_SIGNAL(sig, sm_signal_noop); errno = save_errno; return SIGFUNC_RETURN; } sendmail-8.18.1/libsm/strdup.c0000644000372400037240000000545314556365350015571 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: strdup.c,v 1.16 2013-11-22 20:51:43 ca Exp $") #include #include /* ** SM_STRNDUP_X -- Duplicate a string of a given length ** ** Allocates memory and copies source string (of given length) into it. ** ** Parameters: ** s -- string to copy. ** n -- length to copy. ** ** Returns: ** copy of string, raises exception if out of memory. ** ** Side Effects: ** allocate memory for new string. */ char * sm_strndup_x(s, n) const char *s; size_t n; { char *d = sm_malloc_x(n + 1); (void) memcpy(d, s, n); d[n] = '\0'; return d; } /* ** SM_STRDUP -- Duplicate a string ** ** Allocates memory and copies source string into it. ** ** Parameters: ** s -- string to copy. ** ** Returns: ** copy of string, NULL if out of memory. ** ** Side Effects: ** allocate memory for new string. */ char * sm_strdup(s) const char *s; { size_t l; char *d; l = strlen(s) + 1; d = sm_malloc_tagged(l, "sm_strdup", 0, sm_heap_group()); if (d != NULL) (void) sm_strlcpy(d, s, l); return d; } #if DO_NOT_USE_STRCPY /* ** SM_STRDUP_X -- Duplicate a string ** ** Allocates memory and copies source string into it. ** ** Parameters: ** s -- string to copy. ** ** Returns: ** copy of string, exception if out of memory. ** ** Side Effects: ** allocate memory for new string. */ char * sm_strdup_x(s) const char *s; { size_t l; char *d; l = strlen(s) + 1; d = sm_malloc_tagged_x(l, "sm_strdup_x", 0, sm_heap_group()); (void) sm_strlcpy(d, s, l); return d; } /* ** SM_PSTRDUP_X -- Duplicate a string (using "permanent" memory) ** ** Allocates memory and copies source string into it. ** ** Parameters: ** s -- string to copy. ** ** Returns: ** copy of string, exception if out of memory. ** ** Side Effects: ** allocate memory for new string. */ char * sm_pstrdup_x(s) const char *s; { size_t l; char *d; l = strlen(s) + 1; d = sm_pmalloc_x(l); (void) sm_strlcpy(d, s, l); return d; } /* ** SM_STRDUP_X -- Duplicate a string ** ** Allocates memory and copies source string into it. ** ** Parameters: ** s -- string to copy. ** file -- name of source file ** line -- line in source file ** group -- heap group ** ** Returns: ** copy of string, exception if out of memory. ** ** Side Effects: ** allocate memory for new string. */ char * sm_strdup_tagged_x(s, file, line, group) const char *s; char *file; int line, group; { size_t l; char *d; l = strlen(s) + 1; d = sm_malloc_tagged_x(l, file, line, group); (void) sm_strlcpy(d, s, l); return d; } #endif /* DO_NOT_USE_STRCPY */ sendmail-8.18.1/libsm/feof.c0000644000372400037240000000170114556365350015157 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: feof.c,v 1.14 2013-11-22 20:51:42 ca Exp $") #include #include #include "local.h" /* ** SM_IO_EOF -- subroutine version of the macro sm_io_eof. ** ** Tests if the file for 'fp' has reached the end. ** ** Parameters: ** fp -- file pointer. ** ** Returns: ** 0 (zero) when the file is not at end ** non-zero when EOF has been found */ #undef sm_io_eof int sm_io_eof(fp) SM_FILE_T *fp; { SM_REQUIRE_ISA(fp, SmFileMagic); return sm_eof(fp); } sendmail-8.18.1/libsm/sscanf.c0000644000372400037240000000440614556365350015522 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: sscanf.c,v 1.26 2013-11-22 20:51:43 ca Exp $") #include #include #include #include "local.h" /* ** SM_EOFREAD -- dummy read function for faked file below ** ** Parameters: ** fp -- file pointer ** buf -- location to place read data ** len -- number of bytes to read ** ** Returns: ** 0 (zero) always */ static ssize_t sm_eofread __P(( SM_FILE_T *fp, char *buf, size_t len)); /* ARGSUSED0 */ static ssize_t sm_eofread(fp, buf, len) SM_FILE_T *fp; char *buf; size_t len; { return 0; } /* ** SM_IO_SSCANF -- scan a string to find data units ** ** Parameters: ** str -- strings containing data ** fmt -- format directive for finding data units ** ... -- memory locations to place format found data units ** ** Returns: ** Failure: SM_IO_EOF ** Success: number of data units found ** ** Side Effects: ** Attempts to strlen() 'str'; if not a '\0' terminated string ** then the call may SEGV/fail. ** Faking the string 'str' as a file. */ int #if SM_VA_STD sm_io_sscanf(const char *str, char const *fmt, ...) #else /* SM_VA_STD */ sm_io_sscanf(str, fmt, va_alist) const char *str; char *fmt; va_dcl #endif /* SM_VA_STD */ { int ret; SM_FILE_T fake; SM_VA_LOCAL_DECL fake.sm_magic = SmFileMagic; fake.f_flags = SMRD; fake.f_bf.smb_base = fake.f_p = (unsigned char *) str; fake.f_bf.smb_size = fake.f_r = strlen(str); fake.f_file = -1; fake.f_read = sm_eofread; fake.f_write = NULL; fake.f_close = NULL; fake.f_open = NULL; fake.f_seek = NULL; fake.f_setinfo = fake.f_getinfo = NULL; fake.f_type = "sm_io_sscanf:fake"; fake.f_flushfp = NULL; fake.f_ub.smb_base = NULL; fake.f_timeout = SM_TIME_FOREVER; fake.f_timeoutstate = SM_TIME_BLOCK; SM_VA_START(ap, fmt); ret = sm_vfscanf(&fake, SM_TIME_FOREVER, fmt, ap); SM_VA_END(ap); return ret; } sendmail-8.18.1/libsm/fwalk.c0000644000372400037240000000264514556365350015354 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fwalk.c,v 1.22 2013-11-22 20:51:43 ca Exp $") #include #include #include "local.h" #include "glue.h" /* ** SM_FWALK -- apply a function to all found-open file pointers ** ** Parameters: ** function -- a function vector to be applied ** timeout -- time to complete actions (milliseconds) ** ** Returns: ** The (binary) OR'd result of each function call */ int sm_fwalk(function, timeout) int (*function) __P((SM_FILE_T *, int *)); int *timeout; { register SM_FILE_T *fp; register int n, ret; register struct sm_glue *g; int fptimeout; ret = 0; for (g = &smglue; g != NULL; g = g->gl_next) { for (fp = g->gl_iobs, n = g->gl_niobs; --n >= 0; fp++) { if (fp->f_flags != 0) { if (*timeout == SM_TIME_DEFAULT) fptimeout = fp->f_timeout; else fptimeout = *timeout; if (fptimeout == SM_TIME_IMMEDIATE) continue; /* skip it */ ret |= (*function)(fp, &fptimeout); } } } return ret; } sendmail-8.18.1/libsm/mpeix.c0000644000372400037240000003353514556365350015374 0ustar xbuildxbuild/* * Copyright (c) 2001-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: mpeix.c,v 1.8 2013-11-22 20:51:43 ca Exp $") #ifdef MPE /* ** MPE lacks many common functions required across all sendmail programs ** so we define implementations for these functions here. */ # include # include # include # include # include # include # include # include # include # include /* ** CHROOT -- dummy chroot() function ** ** The MPE documentation for sendmail says that chroot-based ** functionality is not implemented because MPE lacks chroot. But ** rather than mucking around with all the sendmail calls to chroot, ** we define this dummy function to return an ENOSYS failure just in ** case a sendmail user attempts to enable chroot-based functionality. ** ** Parameters: ** path -- pathname of new root (ignored). ** ** Returns: ** -1 and errno == ENOSYS (function not implemented) */ int chroot(path) char *path; { errno = ENOSYS; return -1; } /* ** ENDPWENT -- dummy endpwent() function ** ** Parameters: ** none ** ** Returns: ** none */ void endpwent() { return; } /* ** In addition to missing functions, certain existing MPE functions have ** slightly different semantics (or bugs) compared to normal Unix OSes. ** ** Here we define wrappers for these functions to make them behave in the ** manner expected by sendmail. */ /* ** SENDMAIL_MPE_BIND -- shadow function for the standard socket bind() ** ** MPE requires GETPRIVMODE() for AF_INET sockets less than port 1024. ** ** Parameters: ** sd -- socket descriptor. ** addr -- socket address. ** addrlen -- length of socket address. ** ** Results: ** 0 -- success ** != 0 -- failure */ #undef bind int sendmail_mpe_bind(sd, addr, addrlen) int sd; void *addr; int addrlen; { bool priv = false; int result; extern void GETPRIVMODE __P((void)); extern void GETUSERMODE __P((void)); if (addrlen == sizeof(struct sockaddr_in) && ((struct sockaddr_in *)addr)->sin_family == AF_INET) { /* AF_INET */ if (((struct sockaddr_in *)addr)->sin_port > 0 && ((struct sockaddr_in *)addr)->sin_port < 1024) { priv = true; GETPRIVMODE(); } ((struct sockaddr_in *)addr)->sin_addr.s_addr = 0; result = bind(sd, addr, addrlen); if (priv) GETUSERMODE(); return result; } /* AF_UNIX */ return bind(sd, addr, addrlen); } /* ** SENDMAIL_MPE__EXIT -- wait for children to terminate, then _exit() ** ** Child processes cannot survive the death of their parent on MPE, so ** we must call wait() before _exit() in order to prevent this ** infanticide. ** ** Parameters: ** status -- _exit status value. ** ** Returns: ** none. */ #undef _exit void sendmail_mpe__exit(status) int status; { int result; /* Wait for all children to terminate. */ do { result = wait(NULL); } while (result > 0 || errno == EINTR); _exit(status); } /* ** SENDMAIL_MPE_EXIT -- wait for children to terminate, then exit() ** ** Child processes cannot survive the death of their parent on MPE, so ** we must call wait() before exit() in order to prevent this ** infanticide. ** ** Parameters: ** status -- exit status value. ** ** Returns: ** none. */ #undef exit void sendmail_mpe_exit(status) int status; { int result; /* Wait for all children to terminate. */ do { result = wait(NULL); } while (result > 0 || errno == EINTR); exit(status); } /* ** SENDMAIL_MPE_FCNTL -- shadow function for fcntl() ** ** MPE requires sfcntl() for sockets, and fcntl() for everything ** else. This shadow routine determines the descriptor type and ** makes the appropriate call. ** ** Parameters: ** same as fcntl(). ** ** Returns: ** same as fcntl(). */ #undef fcntl int sendmail_mpe_fcntl(int fildes, int cmd, ...) { int len, result; struct sockaddr sa; void *arg; va_list ap; va_start(ap, cmd); arg = va_arg(ap, void *); va_end(ap); len = sizeof sa; if (getsockname(fildes, &sa, &len) == -1) { if (errno == EAFNOSUPPORT) { /* AF_UNIX socket */ return sfcntl(fildes, cmd, arg); } else if (errno == ENOTSOCK) { /* file or pipe */ return fcntl(fildes, cmd, arg); } /* unknown getsockname() failure */ return (-1); } else { /* AF_INET socket */ if ((result = sfcntl(fildes, cmd, arg)) != -1 && cmd == F_GETFL) result |= O_RDWR; /* fill in some missing flags */ return result; } } /* ** SENDMAIL_MPE_GETPWNAM - shadow function for getpwnam() ** ** Several issues apply here: ** ** - MPE user names MUST have one '.' separator character ** - MPE user names MUST be in upper case ** - MPE does not initialize all fields in the passwd struct ** ** Parameters: ** name -- username string. ** ** Returns: ** pointer to struct passwd if found else NULL */ static char *sendmail_mpe_nullstr = ""; #undef getpwnam extern struct passwd *getpwnam(const char *); struct passwd * sendmail_mpe_getpwnam(name) const char *name; { int dots = 0; int err; int i = strlen(name); char *upper; struct passwd *result = NULL; if (i <= 0) { errno = EINVAL; return result; } if ((upper = (char *)malloc(i + 1)) != NULL) { /* upshift the username parameter and count the dots */ while (i >= 0) { if (name[i] == '.') { dots++; upper[i] = '.'; } else upper[i] = toupper(name[i]); i--; } if (dots != 1) { /* prevent bug when dots == 0 */ err = EINVAL; } else if ((result = getpwnam(upper)) != NULL) { /* init the uninitialized fields */ result->pw_gecos = sendmail_mpe_nullstr; result->pw_passwd = sendmail_mpe_nullstr; result->pw_age = sendmail_mpe_nullstr; result->pw_comment = sendmail_mpe_nullstr; result->pw_audid = 0; result->pw_audflg = 0; } err = errno; free(upper); } errno = err; return result; } /* ** SENDMAIL_MPE_GETPWUID -- shadow function for getpwuid() ** ** Initializes the uninitialized fields in the passwd struct. ** ** Parameters: ** uid -- uid to obtain passwd data for ** ** Returns: ** pointer to struct passwd or NULL if not found */ #undef getpwuid extern struct passwd *getpwuid __P((uid_t)); struct passwd * sendmail_mpe_getpwuid(uid) uid_t uid; { struct passwd *result; if ((result = getpwuid(uid)) != NULL) { /* initialize the uninitialized fields */ result->pw_gecos = sendmail_mpe_nullstr; result->pw_passwd = sendmail_mpe_nullstr; result->pw_age = sendmail_mpe_nullstr; result->pw_comment = sendmail_mpe_nullstr; result->pw_audid = 0; result->pw_audflg = 0; } return result; } /* ** OK boys and girls, time for some serious voodoo! ** ** MPE does not have a complete implementation of POSIX users and groups: ** ** - there is no uid 0 superuser ** - setuid/setgid file permission bits exist but have no-op functionality ** - setgid() exists, but only supports new gid == current gid (boring!) ** - setuid() forces a gid change to the new uid's primary (and only) gid ** ** ...all of which thoroughly annoys sendmail. ** ** So what to do? We can't go on an #ifdef MPE rampage throughout ** sendmail, because there are only about a zillion references to uid 0 ** and so success (and security) would probably be rather dubious by the ** time we finished. ** ** Instead we take the approach of defining wrapper functions for the ** gid/uid management functions getegid(), geteuid(), setgid(), and ** setuid() in order to implement the following model: ** ** - the sendmail program thinks it is a setuid-root (uid 0) program ** - uid 0 is recognized as being valid, but does not grant extra powers ** - MPE priv mode allows sendmail to call setuid(), not uid 0 ** - file access is still controlled by the real non-zero uid ** - the other programs (vacation, etc) have standard MPE POSIX behavior ** ** This emulation model is activated by use of the program file setgid and ** setuid mode bits which exist but are unused by MPE. If the setgid mode ** bit is on, then gid emulation will be enabled. If the setuid mode bit is ** on, then uid emulation will be enabled. So for the mail daemon, we need ** to do chmod u+s,g+s /SENDMAIL/CURRENT/SENDMAIL. ** ** The following flags determine the current emulation state: ** ** true == emulation enabled ** false == emulation disabled, use unmodified MPE semantics */ static bool sendmail_mpe_flaginit = false; static bool sendmail_mpe_gidflag = false; static bool sendmail_mpe_uidflag = false; /* ** SENDMAIL_MPE_GETMODE -- return the mode bits for the current process ** ** Parameters: ** none. ** ** Returns: ** file mode bits for the current process program file. */ mode_t sendmail_mpe_getmode() { int status = 666; int myprogram_length; int myprogram_syntax = 2; char formaldesig[28]; char myprogram[PATH_MAX + 2]; char path[PATH_MAX + 1]; struct stat st; extern HPMYPROGRAM __P((int parms, char *formaldesig, int *status, int *length, char *myprogram, int *myprogram_length, int *myprogram_syntax)); myprogram_length = sizeof(myprogram); HPMYPROGRAM(6, formaldesig, &status, NULL, myprogram, &myprogram_length, &myprogram_syntax); /* should not occur, do not attempt emulation */ if (status != 0) return 0; memcpy(&path, &myprogram[1], myprogram_length - 2); path[myprogram_length - 2] = '\0'; /* should not occur, do not attempt emulation */ if (stat(path, &st) < 0) return 0; return st.st_mode; } /* ** SENDMAIL_MPE_EMULGID -- should we perform gid emulation? ** ** If !sendmail_mpe_flaginit then obtain the mode bits to determine ** if the setgid bit is on, we want gid emulation and so set ** sendmail_mpe_gidflag to true. Otherwise we do not want gid emulation ** and so set sendmail_mpe_gidflag to false. ** ** Parameters: ** none. ** ** Returns: ** true -- perform gid emulation ** false -- do not perform gid emulation */ bool sendmail_mpe_emulgid() { if (!sendmail_mpe_flaginit) { mode_t mode; mode = sendmail_mpe_getmode(); sendmail_mpe_gidflag = ((mode & S_ISGID) == S_ISGID); sendmail_mpe_uidflag = ((mode & S_ISUID) == S_ISUID); sendmail_mpe_flaginit = true; } return sendmail_mpe_gidflag; } /* ** SENDMAIL_MPE_EMULUID -- should we perform uid emulation? ** ** If sendmail_mpe_uidflag == -1 then obtain the mode bits to determine ** if the setuid bit is on, we want uid emulation and so set ** sendmail_mpe_uidflag to true. Otherwise we do not want uid emulation ** and so set sendmail_mpe_uidflag to false. ** ** Parameters: ** none. ** ** Returns: ** true -- perform uid emulation ** false -- do not perform uid emulation */ bool sendmail_mpe_emuluid() { if (!sendmail_mpe_flaginit) { mode_t mode; mode = sendmail_mpe_getmode(); sendmail_mpe_gidflag = ((mode & S_ISGID) == S_ISGID); sendmail_mpe_uidflag = ((mode & S_ISUID) == S_ISUID); sendmail_mpe_flaginit = true; } return sendmail_mpe_uidflag; } /* ** SENDMAIL_MPE_GETEGID -- shadow function for getegid() ** ** If emulation mode is in effect and the saved egid has been ** initialized, return the saved egid; otherwise return the value of the ** real getegid() function. ** ** Parameters: ** none. ** ** Returns: ** emulated egid if present, else true egid. */ static gid_t sendmail_mpe_egid = -1; #undef getegid gid_t sendmail_mpe_getegid() { if (sendmail_mpe_emulgid() && sendmail_mpe_egid != -1) return sendmail_mpe_egid; return getegid(); } /* ** SENDMAIL_MPE_GETEUID -- shadow function for geteuid() ** ** If emulation mode is in effect, return the saved euid; otherwise ** return the value of the real geteuid() function. ** ** Note that the initial value of the saved euid is zero, to simulate ** a setuid-root program. ** ** Parameters: ** none ** ** Returns: ** emulated euid if in emulation mode, else true euid. */ static uid_t sendmail_mpe_euid = 0; #undef geteuid uid_t sendmail_mpe_geteuid() { if (sendmail_mpe_emuluid()) return sendmail_mpe_euid; return geteuid(); } /* ** SENDMAIL_MPE_SETGID -- shadow function for setgid() ** ** Simulate a call to setgid() without actually calling the real ** function. Implement the expected uid 0 semantics. ** ** Note that sendmail will also be calling setuid() which will force an ** implicit real setgid() to the proper primary gid. So it doesn't matter ** that we don't actually alter the real gid in this shadow function. ** ** Parameters: ** gid -- desired gid. ** ** Returns: ** 0 -- emulated success ** -1 -- emulated failure */ #undef setgid int sendmail_mpe_setgid(gid) gid_t gid; { if (sendmail_mpe_emulgid()) { if (gid == getgid() || sendmail_mpe_euid == 0) { sendmail_mpe_egid = gid; return 0; } errno = EINVAL; return -1; } return setgid(gid); } /* ** SENDMAIL_MPE_SETUID -- shadow function for setuid() ** ** setuid() is broken as of MPE 7.0 in that it changes the current ** working directory to be the home directory of the new uid. Thus ** we must obtain the cwd and restore it after the setuid(). ** ** Note that expected uid 0 semantics have been added, as well as ** remembering the new uid for later use by the other shadow functions. ** ** Parameters: ** uid -- desired uid. ** ** Returns: ** 0 -- success ** -1 -- failure ** ** Globals: ** sendmail_mpe_euid */ #undef setuid int sendmail_mpe_setuid(uid) uid_t uid; { char *cwd; char cwd_buf[PATH_MAX + 1]; int result; extern void GETPRIVMODE __P((void)); extern void GETUSERMODE __P((void)); if (sendmail_mpe_emuluid()) { if (uid == 0) { if (sendmail_mpe_euid != 0) { errno = EINVAL; return -1; } sendmail_mpe_euid = 0; return 0; } /* Preserve the current working directory */ if ((cwd = getcwd(cwd_buf, PATH_MAX + 1)) == NULL) return -1; GETPRIVMODE(); result = setuid(uid); GETUSERMODE(); /* Restore the current working directory */ chdir(cwd_buf); if (result == 0) sendmail_mpe_euid = uid; return result; } return setuid(uid); } #endif /* MPE */ sendmail-8.18.1/libsm/memstat.c0000644000372400037240000001217414556365350015720 0ustar xbuildxbuild/* * Copyright (c) 2005-2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: memstat.c,v 1.7 2013-11-22 20:51:43 ca Exp $") #include #include #if USESWAPCTL #include #include static long sc_page_size; /* ** SM_MEMSTAT_OPEN -- open memory statistics ** ** Parameters: ** none ** ** Results: ** errno as error code, 0: ok */ int sm_memstat_open() { sc_page_size = sysconf(_SC_PAGE_SIZE); if (sc_page_size == -1) return (errno != 0) ? errno : -1; return 0; } /* ** SM_MEMSTAT_CLOSE -- close memory statistics ** ** Parameters: ** none ** ** Results: ** errno as error code, 0: ok */ int sm_memstat_close() { return 0; } /* ** SM_MEMSTAT_GET -- get memory statistics ** ** Parameters: ** resource -- resource to look up ** pvalue -- (pointer to) memory statistics value (output) ** ** Results: ** 0: success ** !=0: error */ int sm_memstat_get(resource, pvalue) char *resource; long *pvalue; { int r; struct anoninfo ai; r = swapctl(SC_AINFO, &ai); if (r == -1) return (errno != 0) ? errno : -1; r = ai.ani_max - ai.ani_resv; r *= sc_page_size >> 10; *pvalue = r; return 0; } #elif USEKSTAT #include #include static kstat_ctl_t *kc; static kstat_t *kst; /* ** SM_MEMSTAT_OPEN -- open memory statistics ** ** Parameters: ** none ** ** Results: ** errno as error code, 0: ok */ int sm_memstat_open() { kstat_named_t *kn; kc = kstat_open(); if (kc == NULL) return (errno != 0) ? errno : -1; kst = kstat_lookup(kc, "unix", 0, (name != NULL) ? name : "system_pages"); if (kst == NULL) return (errno != 0) ? errno : -2; return 0; } /* ** SM_MEMSTAT_CLOSE -- close memory statistics ** ** Parameters: ** none ** ** Results: ** errno as error code, 0: ok */ int sm_memstat_close() { int r; if (kc == NULL) return 0; r = kstat_close(kc); if (r != 0) return (errno != 0) ? errno : -1; return 0; } /* ** SM_MEMSTAT_GET -- get memory statistics ** ** Parameters: ** resource -- resource to look up ** pvalue -- (pointer to) memory statistics value (output) ** ** Results: ** 0: success ** !=0: error */ int sm_memstat_get(resource, pvalue) char *resource; long *pvalue; { int r; kstat_named_t *kn; if (kc == NULL || kst == NULL) return -1; if (kstat_read(kc, kst, NULL) == -1) return (errno != 0) ? errno : -2; kn = kstat_data_lookup(kst, (resource != NULL) ? resource: "freemem"); if (kn == NULL) return (errno != 0) ? errno : -3; *pvalue = kn->value.ul; return 0; } #elif USEPROCMEMINFO /* /proc/meminfo? total: used: free: shared: buffers: cached: Mem: 261468160 252149760 9318400 0 3854336 109813760 Swap: 1052794880 62185472 990609408 MemTotal: 255340 kB MemFree: 9100 kB MemShared: 0 kB Buffers: 3764 kB Cached: 107240 kB Active: 104340 kB Inact_dirty: 4220 kB Inact_clean: 2444 kB Inact_target: 4092 kB HighTotal: 0 kB HighFree: 0 kB LowTotal: 255340 kB LowFree: 9100 kB SwapTotal: 1028120 kB SwapFree: 967392 kB */ #include #include static FILE *fp; /* ** SM_MEMSTAT_OPEN -- open memory statistics ** ** Parameters: ** none ** ** Results: ** errno as error code, 0: ok */ int sm_memstat_open() { fp = fopen("/proc/meminfo", "r"); return (fp != NULL) ? 0 : errno; } /* ** SM_MEMSTAT_CLOSE -- close memory statistics ** ** Parameters: ** none ** ** Results: ** errno as error code, 0: ok */ int sm_memstat_close() { if (fp != NULL) { fclose(fp); fp = NULL; } return 0; } /* ** SM_MEMSTAT_GET -- get memory statistics ** ** Parameters: ** resource -- resource to look up ** pvalue -- (pointer to) memory statistics value (output) ** ** Results: ** 0: success ** !=0: error */ int sm_memstat_get(resource, pvalue) char *resource; long *pvalue; { int r; size_t l; char buf[80]; if (resource == NULL) return EINVAL; if (pvalue == NULL) return EINVAL; if (fp == NULL) return -1; /* try to reopen? */ rewind(fp); l = strlen(resource); if (l >= sizeof(buf)) return EINVAL; while (fgets(buf, sizeof(buf), fp) != NULL) { if (strncmp(buf, resource, l) == 0 && buf[l] == ':') { r = sscanf(buf + l + 1, "%ld", pvalue); return (r > 0) ? 0 : -1; } } return 0; } #else /* USEPROCMEMINFO */ /* ** SM_MEMSTAT_OPEN -- open memory statistics ** ** Parameters: ** none ** ** Results: ** errno as error code, 0: ok */ int sm_memstat_open() { return -1; } /* ** SM_MEMSTAT_CLOSE -- close memory statistics ** ** Parameters: ** none ** ** Results: ** errno as error code, 0: ok */ int sm_memstat_close() { return 0; } /* ** SM_MEMSTAT_GET -- get memory statistics ** ** Parameters: ** resource -- resource to look up ** pvalue -- (pointer to) memory statistics value (output) ** ** Results: ** 0: success ** !=0: error */ int sm_memstat_get(resource, pvalue) char *resource; long *pvalue; { return -1; } #endif /* USEKSTAT */ sendmail-8.18.1/libsm/get.c0000644000372400037240000000216714556365350015026 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: get.c,v 1.19 2013-11-22 20:51:43 ca Exp $") #include #include #include "local.h" /* ** SM_IO_GETC -- get a character from a file ** ** Parameters: ** fp -- the file to get the character from ** timeout -- time to complete getc ** ** Returns: ** Success: the value of the character read. ** Failure: SM_IO_EOF ** ** This is a function version of the macro (in ). ** It is guarded with locks (which are currently not functional) ** for multi-threaded programs. */ #undef sm_io_getc int sm_io_getc(fp, timeout) register SM_FILE_T *fp; int timeout; { SM_REQUIRE_ISA(fp, SmFileMagic); return sm_getc(fp, timeout); } sendmail-8.18.1/libsm/xtrap.c0000644000372400037240000000121514556365350015376 0ustar xbuildxbuild/* * Copyright (c) 2000 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: xtrap.c,v 1.6 2013-11-22 20:51:44 ca Exp $") #include SM_ATOMIC_UINT_T SmXtrapCount; SM_DEBUG_T SmXtrapDebug = SM_DEBUG_INITIALIZER("sm_xtrap", "@(#)$Debug: sm_xtrap - raise exception at N'th xtrap point $"); SM_DEBUG_T SmXtrapReport = SM_DEBUG_INITIALIZER("sm_xtrap_report", "@(#)$Debug: sm_xtrap_report - report xtrap count on exit $"); sendmail-8.18.1/libsm/ldap.c0000644000372400037240000011216714556365350015171 0ustar xbuildxbuild/* * Copyright (c) 2001-2009 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ /* some "deprecated" calls are used, e.g., ldap_get_values() */ #define LDAP_DEPRECATED 1 #include SM_RCSID("@(#)$Id: ldap.c,v 1.86 2013-11-22 20:51:43 ca Exp $") #if LDAPMAP # include # include # include # include # include # include # include # include # include # include # include # include # include # include SM_DEBUG_T SmLDAPTrace = SM_DEBUG_INITIALIZER("sm_trace_ldap", "@(#)$Debug: sm_trace_ldap - trace LDAP operations $"); static bool sm_ldap_has_objectclass __P((SM_LDAP_STRUCT *, LDAPMessage *, char *)); static SM_LDAP_RECURSE_ENTRY *sm_ldap_add_recurse __P((SM_LDAP_RECURSE_LIST **, char *, int, SM_RPOOL_T *)); static char *sm_ldap_geterror __P((LDAP *)); /* ** SM_LDAP_CLEAR -- set default values for SM_LDAP_STRUCT ** ** Parameters: ** lmap -- pointer to SM_LDAP_STRUCT to clear ** ** Returns: ** None. ** */ # if _FFR_LDAP_VERSION # if defined(LDAP_VERSION_MAX) && _FFR_LDAP_VERSION > LDAP_VERSION_MAX # error "_FFR_LDAP_VERSION > LDAP_VERSION_MAX" # endif # if defined(LDAP_VERSION_MIN) && _FFR_LDAP_VERSION < LDAP_VERSION_MIN # error "_FFR_LDAP_VERSION < LDAP_VERSION_MAX" # endif # define SM_LDAP_VERSION_DEFAULT _FFR_LDAP_VERSION # else /* _FFR_LDAP_VERSION */ # define SM_LDAP_VERSION_DEFAULT 0 # endif /* _FFR_LDAP_VERSION */ void sm_ldap_clear(lmap) SM_LDAP_STRUCT *lmap; { if (lmap == NULL) return; lmap->ldap_host = NULL; lmap->ldap_port = LDAP_PORT; lmap->ldap_uri = NULL; lmap->ldap_version = SM_LDAP_VERSION_DEFAULT; lmap->ldap_deref = LDAP_DEREF_NEVER; lmap->ldap_timelimit = LDAP_NO_LIMIT; lmap->ldap_sizelimit = LDAP_NO_LIMIT; # ifdef LDAP_REFERRALS lmap->ldap_options = LDAP_OPT_REFERRALS; # else lmap->ldap_options = 0; # endif lmap->ldap_attrsep = '\0'; # if LDAP_NETWORK_TIMEOUT lmap->ldap_networktmo = 0; # endif lmap->ldap_binddn = NULL; lmap->ldap_secret = NULL; lmap->ldap_method = LDAP_AUTH_SIMPLE; lmap->ldap_base = NULL; lmap->ldap_scope = LDAP_SCOPE_SUBTREE; lmap->ldap_attrsonly = LDAPMAP_FALSE; lmap->ldap_timeout.tv_sec = 0; lmap->ldap_timeout.tv_usec = 0; lmap->ldap_ld = NULL; lmap->ldap_filter = NULL; lmap->ldap_attr[0] = NULL; lmap->ldap_attr_type[0] = SM_LDAP_ATTR_NONE; lmap->ldap_attr_needobjclass[0] = NULL; lmap->ldap_res = NULL; lmap->ldap_next = NULL; lmap->ldap_pid = 0; lmap->ldap_multi_args = false; } # if _FFR_SM_LDAP_DBG && defined(LBER_OPT_LOG_PRINT_FN) static void ldap_debug_cb __P((const char *msg)); static void ldap_debug_cb(msg) const char *msg; { if (sm_debug_active(&SmLDAPTrace, 4)) sm_dprintf("%s", msg); } # endif /* _FFR_SM_LDAP_DBG && defined(LBER_OPT_LOG_PRINT_FN) */ # if LDAP_NETWORK_TIMEOUT && defined(LDAP_OPT_NETWORK_TIMEOUT) # define SET_LDAP_TMO(ld, lmap) \ do \ { \ if (lmap->ldap_networktmo > 0) \ { \ struct timeval tmo; \ \ if (sm_debug_active(&SmLDAPTrace, 9)) \ sm_dprintf("ldap_networktmo=%d\n", \ lmap->ldap_networktmo); \ tmo.tv_sec = lmap->ldap_networktmo; \ tmo.tv_usec = 0; \ ldap_set_option(ld, LDAP_OPT_NETWORK_TIMEOUT, &tmo); \ } \ } while (0) # else /* LDAP_NETWORK_TIMEOUT && defined(LDAP_OPT_NETWORK_TIMEOUT) */ # define SET_LDAP_TMO(ld, lmap) # endif /* LDAP_NETWORK_TIMEOUT && defined(LDAP_OPT_NETWORK_TIMEOUT) */ /* ** SM_LDAP_SETOPTSG -- set some (global) LDAP options ** ** Parameters: ** lmap -- LDAP map information ** ** Returns: ** None. ** */ # if _FFR_SM_LDAP_DBG static bool dbg_init = false; # endif # if SM_CONF_LDAP_INITIALIZE static void sm_ldap_setoptsg __P((SM_LDAP_STRUCT *lmap)); static void sm_ldap_setoptsg(lmap) SM_LDAP_STRUCT *lmap; { # if USE_LDAP_SET_OPTION SET_LDAP_TMO(NULL, lmap); # if _FFR_SM_LDAP_DBG if (!dbg_init && sm_debug_active(&SmLDAPTrace, 1) && lmap->ldap_debug != 0) { int r; # if defined(LBER_OPT_LOG_PRINT_FN) r = ber_set_option(NULL, LBER_OPT_LOG_PRINT_FN, ldap_debug_cb); # endif if (sm_debug_active(&SmLDAPTrace, 9)) sm_dprintf("ldap_debug0=%d\n", lmap->ldap_debug); r = ber_set_option(NULL, LBER_OPT_DEBUG_LEVEL, &(lmap->ldap_debug)); if (sm_debug_active(&SmLDAPTrace, 9) && r != LDAP_OPT_SUCCESS) sm_dprintf("ber_set_option=%d\n", r); r = ldap_set_option(NULL, LDAP_OPT_DEBUG_LEVEL, &(lmap->ldap_debug)); if (sm_debug_active(&SmLDAPTrace, 9) && r != LDAP_OPT_SUCCESS) sm_dprintf("ldap_set_option=%d\n", r); dbg_init = true; } # endif /* _FFR_SM_LDAP_DBG */ # endif /* USE_LDAP_SET_OPTION */ } # endif /* SM_CONF_LDAP_INITIALIZE */ /* ** SM_LDAP_SETOPTS -- set LDAP options ** ** Parameters: ** ld -- LDAP session handle ** lmap -- LDAP map information ** ** Returns: ** None. ** */ void sm_ldap_setopts(ld, lmap) LDAP *ld; SM_LDAP_STRUCT *lmap; { # if USE_LDAP_SET_OPTION if (lmap->ldap_version != 0) { ldap_set_option(ld, LDAP_OPT_PROTOCOL_VERSION, &lmap->ldap_version); } ldap_set_option(ld, LDAP_OPT_DEREF, &lmap->ldap_deref); if (bitset(LDAP_OPT_REFERRALS, lmap->ldap_options)) ldap_set_option(ld, LDAP_OPT_REFERRALS, LDAP_OPT_ON); else ldap_set_option(ld, LDAP_OPT_REFERRALS, LDAP_OPT_OFF); ldap_set_option(ld, LDAP_OPT_SIZELIMIT, &lmap->ldap_sizelimit); ldap_set_option(ld, LDAP_OPT_TIMELIMIT, &lmap->ldap_timelimit); SET_LDAP_TMO(ld, lmap); # if _FFR_SM_LDAP_DBG if ((!dbg_init || ld != NULL) && sm_debug_active(&SmLDAPTrace, 1) && lmap->ldap_debug > 0) { int r; if (sm_debug_active(&SmLDAPTrace, 9)) sm_dprintf("ldap_debug=%d, dbg_init=%d\n", lmap->ldap_debug, dbg_init); r = ldap_set_option(ld, LDAP_OPT_DEBUG_LEVEL, &(lmap->ldap_debug)); if (sm_debug_active(&SmLDAPTrace, 9) && r != LDAP_OPT_SUCCESS) sm_dprintf("ldap_set_option=%d\n", r); } # endif /* _FFR_SM_LDAP_DBG */ # ifdef LDAP_OPT_RESTART ldap_set_option(ld, LDAP_OPT_RESTART, LDAP_OPT_ON); # endif # if _FFR_TESTS if (sm_debug_active(&SmLDAPTrace, 101)) { char *cert; char buf[PATH_MAX]; cert = getcwd(buf, sizeof(buf)); if (NULL != cert) { int r; (void) sm_strlcat(buf, "/ldaps.pem", sizeof(buf)); r = ldap_set_option(ld, LDAP_OPT_X_TLS_CACERTFILE, cert); sm_dprintf("LDAP_OPT_X_TLS_CACERTFILE(%s)=%d\n", cert, r); } } # endif /* _FFR_TESTS */ # else /* USE_LDAP_SET_OPTION */ /* From here on in we can use ldap internal timelimits */ ld->ld_deref = lmap->ldap_deref; ld->ld_options = lmap->ldap_options; ld->ld_sizelimit = lmap->ldap_sizelimit; ld->ld_timelimit = lmap->ldap_timelimit; # endif /* USE_LDAP_SET_OPTION */ } /* ** SM_LDAP_START -- actually connect to an LDAP server ** ** Parameters: ** name -- name of map for debug output. ** lmap -- the LDAP map being opened. ** ** Returns: ** true if connection is successful, false otherwise. ** ** Side Effects: ** Populates lmap->ldap_ld. */ # if !USE_LDAP_INIT || !LDAP_NETWORK_TIMEOUT static jmp_buf LDAPTimeout; static void ldaptimeout __P((int)); /* ARGSUSED */ static void ldaptimeout(unused) int unused; { /* ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ errno = ETIMEDOUT; longjmp(LDAPTimeout, 1); } #define SM_LDAP_SETTIMEOUT(to, where) \ do \ { \ if (to != 0) \ { \ if (setjmp(LDAPTimeout) != 0) \ { \ if (sm_debug_active(&SmLDAPTrace, 9)) \ sm_dprintf("ldap_settimeout(%s)=triggered\n",\ where); \ errno = ETIMEDOUT; \ return false; \ } \ ev = sm_setevent(to, ldaptimeout, 0); \ } \ } while (0) #define SM_LDAP_CLEARTIMEOUT() \ do \ { \ if (ev != NULL) \ sm_clrevent(ev); \ } while (0) # endif /* !USE_LDAP_INIT || !LDAP_NETWORK_TIMEOUT */ bool sm_ldap_start(name, lmap) char *name; SM_LDAP_STRUCT *lmap; { int save_errno = 0; char *id; char *errmsg; # if !USE_LDAP_INIT || !LDAP_NETWORK_TIMEOUT SM_EVENT *ev = NULL; # endif LDAP *ld = NULL; struct timeval tmo; int msgid, err, r; errmsg = NULL; if (sm_debug_active(&SmLDAPTrace, 2)) sm_dprintf("ldapmap_start(%s)\n", name == NULL ? "" : name); if (lmap->ldap_host != NULL) id = lmap->ldap_host; else if (lmap->ldap_uri != NULL) id = lmap->ldap_uri; else id = "localhost"; if (sm_debug_active(&SmLDAPTrace, 9)) { /* Don't print a port number for LDAP URIs */ if (lmap->ldap_uri != NULL) sm_dprintf("ldapmap_start(%s)\n", id); else sm_dprintf("ldapmap_start(%s, %d)\n", id, lmap->ldap_port); } if (lmap->ldap_uri != NULL) { # if SM_CONF_LDAP_INITIALIZE if (sm_debug_active(&SmLDAPTrace, 9)) sm_dprintf("ldap_initialize(%s)\n", lmap->ldap_uri); /* LDAP server supports URIs so use them directly */ save_errno = ldap_initialize(&ld, lmap->ldap_uri); if (sm_debug_active(&SmLDAPTrace, 9)) sm_dprintf("ldap_initialize(%s)=%d, ld=%p\n", lmap->ldap_uri, save_errno, ld); sm_ldap_setoptsg(lmap); # else /* SM_CONF_LDAP_INITIALIZE */ LDAPURLDesc *ludp = NULL; /* Blast apart URL and use the ldap_init/ldap_open below */ err = ldap_url_parse(lmap->ldap_uri, &ludp); if (err != 0) { errno = err + E_LDAPURLBASE; return false; } lmap->ldap_host = sm_strdup_x(ludp->lud_host); if (lmap->ldap_host == NULL) { save_errno = errno; ldap_free_urldesc(ludp); errno = save_errno; return false; } lmap->ldap_port = ludp->lud_port; ldap_free_urldesc(ludp); # endif /* SM_CONF_LDAP_INITIALIZE */ } if (ld == NULL) { # if USE_LDAP_INIT if (sm_debug_active(&SmLDAPTrace, 9)) sm_dprintf("ldap_init(%s, %d)\n", lmap->ldap_host, lmap->ldap_port); ld = ldap_init(lmap->ldap_host, lmap->ldap_port); save_errno = errno; # else /* USE_LDAP_INIT */ /* ** If using ldap_open(), the actual connection to the server ** happens now so we need the timeout here. For ldap_init(), ** the connection happens at bind time. */ if (sm_debug_active(&SmLDAPTrace, 9)) sm_dprintf("ldap_open(%s, %d)\n", lmap->ldap_host, lmap->ldap_port); SM_LDAP_SETTIMEOUT(lmap->ldap_timeout.tv_sec, "ldap_open"); ld = ldap_open(lmap->ldap_host, lmap->ldap_port); save_errno = errno; /* clear the event if it has not sprung */ SM_LDAP_CLEARTIMEOUT(); # endif /* USE_LDAP_INIT */ } errno = save_errno; if (ld == NULL) { if (sm_debug_active(&SmLDAPTrace, 7)) sm_dprintf("FAIL: ldap_open(%s, %d)=%d\n", lmap->ldap_host, lmap->ldap_port, save_errno); return false; } sm_ldap_setopts(ld, lmap); # if USE_LDAP_INIT && !LDAP_NETWORK_TIMEOUT /* ** If using ldap_init(), the actual connection to the server ** happens at ldap_bind_s() so we need the timeout here. */ SM_LDAP_SETTIMEOUT(lmap->ldap_timeout.tv_sec, "ldap_bind"); # endif /* USE_LDAP_INIT && !LDAP_NETWORK_TIMEOUT */ # ifdef LDAP_AUTH_KRBV4 if (lmap->ldap_method == LDAP_AUTH_KRBV4 && lmap->ldap_secret != NULL) { /* ** Need to put ticket in environment here instead of ** during parseargs as there may be different tickets ** for different LDAP connections. */ (void) putenv(lmap->ldap_secret); } # endif /* LDAP_AUTH_KRBV4 */ # if LDAP_NETWORK_TIMEOUT tmo.tv_sec = lmap->ldap_networktmo; # else tmo.tv_sec = lmap->ldap_timeout.tv_sec; # endif tmo.tv_usec = 0; if (sm_debug_active(&SmLDAPTrace, 9)) sm_dprintf("ldap_bind(%s)\n", lmap->ldap_uri); errno = 0; msgid = ldap_bind(ld, lmap->ldap_binddn, lmap->ldap_secret, lmap->ldap_method); save_errno = errno; if (sm_debug_active(&SmLDAPTrace, 9)) { errmsg = sm_ldap_geterror(ld); sm_dprintf("ldap_bind(%s)=%d, errno=%d, ldaperr=%d, ld_error=%s, tmo=%lld\n", lmap->ldap_uri, msgid, save_errno, sm_ldap_geterrno(ld), errmsg, (long long) tmo.tv_sec); if (NULL != errmsg) { ldap_memfree(errmsg); errmsg = NULL; } } if (-1 == msgid) { r = -1; err = sm_ldap_geterrno(ld); if (LDAP_SUCCESS != err) save_errno = err + E_LDAPBASE; goto fail; } errno = 0; r = ldap_result(ld, msgid, LDAP_MSG_ALL, tmo.tv_sec == 0 ? NULL : &(tmo), &(lmap->ldap_res)); save_errno = errno; if (sm_debug_active(&SmLDAPTrace, 9)) { errmsg = sm_ldap_geterror(ld); sm_dprintf("ldap_result(%s)=%d, errno=%d, ldaperr=%d, ld_error=%s\n", lmap->ldap_uri, r, errno, sm_ldap_geterrno(ld), errmsg); if (NULL != errmsg) { ldap_memfree(errmsg); errmsg = NULL; } } if (-1 == r) { err = sm_ldap_geterrno(ld); if (LDAP_SUCCESS != err) save_errno = err + E_LDAPBASE; goto fail; } if (0 == r) { save_errno = ETIMEDOUT; r = -1; goto fail; } r = ldap_parse_result(ld, lmap->ldap_res, &err, NULL, &errmsg, NULL, NULL, 1); save_errno = errno; if (sm_debug_active(&SmLDAPTrace, 9)) sm_dprintf("ldap_parse_result(%s)=%d, err=%d, errmsg=%s\n", lmap->ldap_uri, r, err, errmsg); if (r != LDAP_SUCCESS) goto fail; if (err != LDAP_SUCCESS) { r = err; goto fail; } # if USE_LDAP_INIT && !LDAP_NETWORK_TIMEOUT /* clear the event if it has not sprung */ SM_LDAP_CLEARTIMEOUT(); if (sm_debug_active(&SmLDAPTrace, 9)) sm_dprintf("ldap_cleartimeout(%s)\n", lmap->ldap_uri); # endif /* USE_LDAP_INIT && !LDAP_NETWORK_TIMEOUT */ if (r != LDAP_SUCCESS) { fail: if (-1 == r) errno = save_errno; else errno = r + E_LDAPBASE; if (NULL != errmsg) { ldap_memfree(errmsg); errmsg = NULL; } return false; } /* Save PID to make sure only this PID closes the LDAP connection */ lmap->ldap_pid = getpid(); lmap->ldap_ld = ld; if (NULL != errmsg) { ldap_memfree(errmsg); errmsg = NULL; } return true; } /* ** SM_LDAP_SEARCH_M -- initiate multi-key LDAP search ** ** Initiate an LDAP search, return the msgid. ** The calling function must collect the results. ** ** Parameters: ** lmap -- LDAP map information ** argv -- key vector of substitutions in LDAP filter ** NOTE: argv must have SM_LDAP_ARGS elements to prevent ** out of bound array references ** ** Returns: ** <0 on failure (SM_LDAP_ERR*), msgid on success ** */ int sm_ldap_search_m(lmap, argv) SM_LDAP_STRUCT *lmap; char **argv; { int msgid; char *fp, *p, *q; char filter[LDAPMAP_MAX_FILTER + 1]; SM_REQUIRE(lmap != NULL); SM_REQUIRE(argv != NULL); SM_REQUIRE(argv[0] != NULL); memset(filter, '\0', sizeof filter); fp = filter; p = lmap->ldap_filter; while ((q = strchr(p, '%')) != NULL) { char *key; if (lmap->ldap_multi_args) { # if SM_LDAP_ARGS < 10 # error _SM_LDAP_ARGS must be 10 # endif if (q[1] == 's') key = argv[0]; else if (q[1] >= '0' && q[1] <= '9') { key = argv[q[1] - '0']; if (key == NULL) { # if SM_LDAP_ERROR_ON_MISSING_ARGS return SM_LDAP_ERR_ARG_MISS; # else key = ""; # endif } } else key = NULL; } else key = argv[0]; if (q[1] == 's') { (void) sm_snprintf(fp, SPACELEFT(filter, fp), "%.*s%s", (int) (q - p), p, key); fp += strlen(fp); p = q + 2; } else if (q[1] == '0' || (lmap->ldap_multi_args && q[1] >= '0' && q[1] <= '9')) { char *k = key; (void) sm_snprintf(fp, SPACELEFT(filter, fp), "%.*s", (int) (q - p), p); fp += strlen(fp); p = q + 2; /* Properly escape LDAP special characters */ while (SPACELEFT(filter, fp) > 0 && *k != '\0') { if (*k == '*' || *k == '(' || *k == ')' || *k == '\\') { (void) sm_strlcat(fp, (*k == '*' ? "\\2A" : (*k == '(' ? "\\28" : (*k == ')' ? "\\29" : (*k == '\\' ? "\\5C" : "\00")))), SPACELEFT(filter, fp)); fp += strlen(fp); k++; } else *fp++ = *k++; } } else { (void) sm_snprintf(fp, SPACELEFT(filter, fp), "%.*s", (int) (q - p + 1), p); p = q + (q[1] == '%' ? 2 : 1); fp += strlen(fp); } } (void) sm_strlcpy(fp, p, SPACELEFT(filter, fp)); if (sm_debug_active(&SmLDAPTrace, 20)) sm_dprintf("ldap search filter=%s\n", filter); lmap->ldap_res = NULL; msgid = ldap_search(lmap->ldap_ld, lmap->ldap_base, lmap->ldap_scope, filter, (lmap->ldap_attr[0] == NULL ? NULL : lmap->ldap_attr), lmap->ldap_attrsonly); return msgid; } /* ** SM_LDAP_SEARCH -- initiate LDAP search ** ** Initiate an LDAP search, return the msgid. ** The calling function must collect the results. ** Note this is just a wrapper into sm_ldap_search_m() ** ** Parameters: ** lmap -- LDAP map information ** key -- key to substitute in LDAP filter ** ** Returns: ** <0 on failure, msgid on success ** */ int sm_ldap_search(lmap, key) SM_LDAP_STRUCT *lmap; char *key; { char *argv[SM_LDAP_ARGS]; memset(argv, '\0', sizeof argv); argv[0] = key; return sm_ldap_search_m(lmap, argv); } /* ** SM_LDAP_HAS_OBJECTCLASS -- determine if an LDAP entry is part of a ** particular objectClass ** ** Parameters: ** lmap -- pointer to SM_LDAP_STRUCT in use ** entry -- current LDAP entry struct ** ocvalue -- particular objectclass in question. ** may be of form (fee|foo|fum) meaning ** any entry can be part of either fee, ** foo or fum objectclass ** ** Returns: ** true if item has that objectClass */ static bool sm_ldap_has_objectclass(lmap, entry, ocvalue) SM_LDAP_STRUCT *lmap; LDAPMessage *entry; char *ocvalue; { char **vals = NULL; int i; if (ocvalue == NULL) return false; vals = ldap_get_values(lmap->ldap_ld, entry, "objectClass"); if (vals == NULL) return false; for (i = 0; vals[i] != NULL; i++) { char *p; char *q; p = q = ocvalue; while (*p != '\0') { while (*p != '\0' && *p != '|') p++; if ((p - q) == strlen(vals[i]) && sm_strncasecmp(vals[i], q, p - q) == 0) { ldap_value_free(vals); return true; } while (*p == '|') p++; q = p; } } ldap_value_free(vals); return false; } /* ** SM_LDAP_RESULTS -- return results from an LDAP lookup in result ** ** Parameters: ** lmap -- pointer to SM_LDAP_STRUCT in use ** msgid -- msgid returned by sm_ldap_search() ** flags -- flags for the lookup ** delim -- delimiter for result concatenation ** rpool -- memory pool for storage ** result -- return string ** recurse -- recursion list ** ** Returns: ** status (sysexit) */ # define SM_LDAP_ERROR_CLEANUP() \ { \ if (lmap->ldap_res != NULL) \ { \ ldap_msgfree(lmap->ldap_res); \ lmap->ldap_res = NULL; \ } \ (void) ldap_abandon(lmap->ldap_ld, msgid); \ } static SM_LDAP_RECURSE_ENTRY * sm_ldap_add_recurse(top, item, type, rpool) SM_LDAP_RECURSE_LIST **top; char *item; int type; SM_RPOOL_T *rpool; { int n; int m; int p; int insertat; int moveb; int oldsizeb; int rc; SM_LDAP_RECURSE_ENTRY *newe; SM_LDAP_RECURSE_ENTRY **olddata; /* ** This code will maintain a list of ** SM_LDAP_RECURSE_ENTRY structures ** in ascending order. */ if (*top == NULL) { /* Allocate an initial SM_LDAP_RECURSE_LIST struct */ *top = sm_rpool_malloc_x(rpool, sizeof **top); (*top)->lrl_cnt = 0; (*top)->lrl_size = 0; (*top)->lrl_data = NULL; } if ((*top)->lrl_cnt >= (*top)->lrl_size) { /* Grow the list of SM_LDAP_RECURSE_ENTRY ptrs */ olddata = (*top)->lrl_data; if ((*top)->lrl_size == 0) { oldsizeb = 0; (*top)->lrl_size = 256; } else { oldsizeb = (*top)->lrl_size * sizeof *((*top)->lrl_data); (*top)->lrl_size *= 2; } (*top)->lrl_data = sm_rpool_malloc_x(rpool, (*top)->lrl_size * sizeof *((*top)->lrl_data)); if (oldsizeb > 0) memcpy((*top)->lrl_data, olddata, oldsizeb); } /* ** Binary search/insert item:type into list. ** Return current entry pointer if already exists. */ n = 0; m = (*top)->lrl_cnt - 1; if (m < 0) insertat = 0; else insertat = -1; while (insertat == -1) { p = (m + n) / 2; rc = sm_strcasecmp(item, (*top)->lrl_data[p]->lr_search); if (rc == 0) rc = type - (*top)->lrl_data[p]->lr_type; if (rc < 0) m = p - 1; else if (rc > 0) n = p + 1; else return (*top)->lrl_data[p]; if (m == -1) insertat = 0; else if (n >= (*top)->lrl_cnt) insertat = (*top)->lrl_cnt; else if (m < n) insertat = m + 1; } /* ** Not found in list, make room ** at insert point and add it. */ newe = sm_rpool_malloc_x(rpool, sizeof *newe); if (newe != NULL) { moveb = ((*top)->lrl_cnt - insertat) * sizeof *((*top)->lrl_data); if (moveb > 0) memmove(&((*top)->lrl_data[insertat + 1]), &((*top)->lrl_data[insertat]), moveb); newe->lr_search = sm_rpool_strdup_x(rpool, item); newe->lr_type = type; newe->lr_ludp = NULL; newe->lr_attrs = NULL; newe->lr_done = false; ((*top)->lrl_data)[insertat] = newe; (*top)->lrl_cnt++; } return newe; } int sm_ldap_results(lmap, msgid, flags, delim, rpool, result, resultln, resultsz, recurse) SM_LDAP_STRUCT *lmap; int msgid; int flags; int delim; SM_RPOOL_T *rpool; char **result; int *resultln; int *resultsz; SM_LDAP_RECURSE_LIST *recurse; { bool toplevel; int i; int statp; int vsize; int ret; int save_errno; char *p; SM_LDAP_RECURSE_ENTRY *rl; /* Are we the top top level of the search? */ toplevel = (recurse == NULL); /* Get results */ statp = EX_NOTFOUND; while ((ret = ldap_result(lmap->ldap_ld, msgid, 0, (lmap->ldap_timeout.tv_sec == 0 ? NULL : &(lmap->ldap_timeout)), &(lmap->ldap_res))) == LDAP_RES_SEARCH_ENTRY) { LDAPMessage *entry; /* If we don't want multiple values and we have one, break */ if ((char) delim == '\0' && !bitset(SM_LDAP_SINGLEMATCH, flags) && *result != NULL) break; /* Cycle through all entries */ for (entry = ldap_first_entry(lmap->ldap_ld, lmap->ldap_res); entry != NULL; entry = ldap_next_entry(lmap->ldap_ld, lmap->ldap_res)) { BerElement *ber; char *attr; char **vals = NULL; char *dn; /* ** If matching only and found an entry, ** no need to spin through attributes */ if (bitset(SM_LDAP_MATCHONLY, flags)) { statp = EX_OK; continue; } # if _FFR_LDAP_SINGLEDN if (bitset(SM_LDAP_SINGLEDN, flags) && *result != NULL) { /* only wanted one match */ SM_LDAP_ERROR_CLEANUP(); errno = ENOENT; return EX_NOTFOUND; } # endif /* _FFR_LDAP_SINGLEDN */ /* record completed DN's to prevent loops */ dn = ldap_get_dn(lmap->ldap_ld, entry); if (dn == NULL) { save_errno = sm_ldap_geterrno(lmap->ldap_ld); save_errno += E_LDAPBASE; SM_LDAP_ERROR_CLEANUP(); errno = save_errno; return EX_TEMPFAIL; } rl = sm_ldap_add_recurse(&recurse, dn, SM_LDAP_ATTR_DN, rpool); if (rl == NULL) { ldap_memfree(dn); SM_LDAP_ERROR_CLEANUP(); errno = ENOMEM; return EX_OSERR; } else if (rl->lr_done) { /* already on list, skip it */ ldap_memfree(dn); continue; } ldap_memfree(dn); # if !defined(LDAP_VERSION_MAX) && !defined(LDAP_OPT_SIZELIMIT) /* ** Reset value to prevent lingering ** LDAP_DECODING_ERROR due to ** OpenLDAP 1.X's hack (see below) */ lmap->ldap_ld->ld_errno = LDAP_SUCCESS; # endif /* !defined(LDAP_VERSION_MAX) !defined(LDAP_OPT_SIZELIMIT) */ for (attr = ldap_first_attribute(lmap->ldap_ld, entry, &ber); attr != NULL; attr = ldap_next_attribute(lmap->ldap_ld, entry, ber)) { char *tmp, *vp_tmp; int type; char *needobjclass = NULL; type = SM_LDAP_ATTR_NONE; for (i = 0; lmap->ldap_attr[i] != NULL; i++) { if (SM_STRCASEEQ(lmap->ldap_attr[i], attr)) { type = lmap->ldap_attr_type[i]; needobjclass = lmap->ldap_attr_needobjclass[i]; break; } } if (bitset(SM_LDAP_USE_ALLATTR, flags) && type == SM_LDAP_ATTR_NONE) { /* URL lookups specify attrs to use */ type = SM_LDAP_ATTR_NORMAL; needobjclass = NULL; } if (type == SM_LDAP_ATTR_NONE) { /* attribute not requested */ ldap_memfree(attr); SM_LDAP_ERROR_CLEANUP(); errno = EFAULT; return EX_SOFTWARE; } /* ** For recursion on a particular attribute, ** we may need to see if this entry is ** part of a particular objectclass. ** Also, ignore objectClass attribute. ** Otherwise we just ignore this attribute. */ if (type == SM_LDAP_ATTR_OBJCLASS || (needobjclass != NULL && !sm_ldap_has_objectclass(lmap, entry, needobjclass))) { ldap_memfree(attr); continue; } if (lmap->ldap_attrsonly == LDAPMAP_FALSE) { vals = ldap_get_values(lmap->ldap_ld, entry, attr); if (vals == NULL) { save_errno = sm_ldap_geterrno(lmap->ldap_ld); if (save_errno == LDAP_SUCCESS) { ldap_memfree(attr); continue; } /* Must be an error */ save_errno += E_LDAPBASE; ldap_memfree(attr); SM_LDAP_ERROR_CLEANUP(); errno = save_errno; return EX_TEMPFAIL; } } statp = EX_OK; # if !defined(LDAP_VERSION_MAX) && !defined(LDAP_OPT_SIZELIMIT) /* ** Reset value to prevent lingering ** LDAP_DECODING_ERROR due to ** OpenLDAP 1.X's hack (see below) */ lmap->ldap_ld->ld_errno = LDAP_SUCCESS; # endif /* !defined(LDAP_VERSION_MAX) !defined(LDAP_OPT_SIZELIMIT) */ /* ** If matching only, ** no need to spin through entries */ if (bitset(SM_LDAP_MATCHONLY, flags)) { if (lmap->ldap_attrsonly == LDAPMAP_FALSE) ldap_value_free(vals); ldap_memfree(attr); continue; } /* ** If we don't want multiple values, ** return first found. */ if ((char) delim == '\0') { if (*result != NULL) { /* already have a value */ if (bitset(SM_LDAP_SINGLEMATCH, flags)) { /* only wanted one match */ SM_LDAP_ERROR_CLEANUP(); errno = ENOENT; return EX_NOTFOUND; } break; } if (lmap->ldap_attrsonly == LDAPMAP_TRUE) { *result = sm_rpool_strdup_x(rpool, attr); ldap_memfree(attr); break; } if (vals[0] == NULL) { ldap_value_free(vals); ldap_memfree(attr); continue; } vsize = strlen(vals[0]) + 1; if (lmap->ldap_attrsep != '\0') vsize += strlen(attr) + 1; *result = sm_rpool_malloc_x(rpool, vsize); if (lmap->ldap_attrsep != '\0') sm_snprintf(*result, vsize, "%s%c%s", attr, lmap->ldap_attrsep, vals[0]); else sm_strlcpy(*result, vals[0], vsize); ldap_value_free(vals); ldap_memfree(attr); break; } /* attributes only */ if (lmap->ldap_attrsonly == LDAPMAP_TRUE) { if (*result == NULL) *result = sm_rpool_strdup_x(rpool, attr); else { if (bitset(SM_LDAP_SINGLEMATCH, flags) && *result != NULL) { /* only wanted one match */ SM_LDAP_ERROR_CLEANUP(); errno = ENOENT; return EX_NOTFOUND; } vsize = strlen(*result) + strlen(attr) + 2; tmp = sm_rpool_malloc_x(rpool, vsize); (void) sm_snprintf(tmp, vsize, "%s%c%s", *result, (char) delim, attr); *result = tmp; } ldap_memfree(attr); continue; } /* ** If there is more than one, munge then ** into a map_coldelim separated string. ** If we are recursing we may have an entry ** with no 'normal' values to put in the ** string. ** This is not an error. */ if (type == SM_LDAP_ATTR_NORMAL && bitset(SM_LDAP_SINGLEMATCH, flags) && *result != NULL) { /* only wanted one match */ SM_LDAP_ERROR_CLEANUP(); errno = ENOENT; return EX_NOTFOUND; } vsize = 0; for (i = 0; vals[i] != NULL; i++) { if (type == SM_LDAP_ATTR_DN || type == SM_LDAP_ATTR_FILTER || type == SM_LDAP_ATTR_URL) { /* add to recursion */ if (sm_ldap_add_recurse(&recurse, vals[i], type, rpool) == NULL) { SM_LDAP_ERROR_CLEANUP(); errno = ENOMEM; return EX_OSERR; } continue; } vsize += strlen(vals[i]) + 1; if (lmap->ldap_attrsep != '\0') vsize += strlen(attr) + 1; } /* ** Create/Append to string any normal ** attribute values. Otherwise, just free ** memory and move on to the next ** attribute in this entry. */ if (type == SM_LDAP_ATTR_NORMAL && vsize > 0) { char *pe; /* Grow result string if needed */ if ((*resultln + vsize) >= *resultsz) { while ((*resultln + vsize) >= *resultsz) { if (*resultsz == 0) *resultsz = 1024; else *resultsz *= 2; } vp_tmp = sm_rpool_malloc_x(rpool, *resultsz); *vp_tmp = '\0'; if (*result != NULL) sm_strlcpy(vp_tmp, *result, *resultsz); *result = vp_tmp; } p = *result + *resultln; pe = *result + *resultsz; for (i = 0; vals[i] != NULL; i++) { if (*resultln > 0 && p < pe) *p++ = (char) delim; if (lmap->ldap_attrsep != '\0') { p += sm_strlcpy(p, attr, pe - p); if (p < pe) *p++ = lmap->ldap_attrsep; } p += sm_strlcpy(p, vals[i], pe - p); *resultln = p - (*result); if (p >= pe) { /* Internal error: buffer too small for LDAP values */ SM_LDAP_ERROR_CLEANUP(); errno = ENOMEM; return EX_OSERR; } } } ldap_value_free(vals); ldap_memfree(attr); } save_errno = sm_ldap_geterrno(lmap->ldap_ld); /* ** We check save_errno != LDAP_DECODING_ERROR since ** OpenLDAP 1.X has a very ugly *undocumented* ** hack of returning this error code from ** ldap_next_attribute() if the library freed the ** ber attribute. See: ** http://www.openldap.org/lists/openldap-devel/9901/msg00064.html */ if (save_errno != LDAP_SUCCESS && save_errno != LDAP_DECODING_ERROR) { /* Must be an error */ save_errno += E_LDAPBASE; SM_LDAP_ERROR_CLEANUP(); errno = save_errno; return EX_TEMPFAIL; } /* mark this DN as done */ rl->lr_done = true; if (rl->lr_ludp != NULL) { ldap_free_urldesc(rl->lr_ludp); rl->lr_ludp = NULL; } if (rl->lr_attrs != NULL) { free(rl->lr_attrs); rl->lr_attrs = NULL; } /* We don't want multiple values and we have one */ if ((char) delim == '\0' && !bitset(SM_LDAP_SINGLEMATCH, flags) && *result != NULL) break; } save_errno = sm_ldap_geterrno(lmap->ldap_ld); if (save_errno != LDAP_SUCCESS && save_errno != LDAP_DECODING_ERROR) { /* Must be an error */ save_errno += E_LDAPBASE; SM_LDAP_ERROR_CLEANUP(); errno = save_errno; return EX_TEMPFAIL; } ldap_msgfree(lmap->ldap_res); lmap->ldap_res = NULL; } if (ret == 0) save_errno = ETIMEDOUT; else if (ret == LDAP_RES_SEARCH_RESULT) { /* ** We may have gotten an LDAP_RES_SEARCH_RESULT response ** with an error inside it, so we have to extract that ** with ldap_parse_result(). This can happen when talking ** to an LDAP proxy whose backend has gone down. */ if (lmap->ldap_res == NULL) save_errno = LDAP_UNAVAILABLE; else { int rc; save_errno = ldap_parse_result(lmap->ldap_ld, lmap->ldap_res, &rc, NULL, NULL, NULL, NULL, 0); if (save_errno == LDAP_SUCCESS) save_errno = rc; } } else save_errno = sm_ldap_geterrno(lmap->ldap_ld); if (save_errno != LDAP_SUCCESS) { statp = EX_TEMPFAIL; switch (save_errno) { # ifdef LDAP_SERVER_DOWN case LDAP_SERVER_DOWN: # endif case LDAP_TIMEOUT: case ETIMEDOUT: case LDAP_UNAVAILABLE: /* ** server disappeared, ** try reopen on next search */ statp = EX_RESTART; break; } if (ret != 0) save_errno += E_LDAPBASE; SM_LDAP_ERROR_CLEANUP(); errno = save_errno; return statp; } if (lmap->ldap_res != NULL) { ldap_msgfree(lmap->ldap_res); lmap->ldap_res = NULL; } if (toplevel) { int rlidx; /* ** Spin through the built-up recurse list at the top ** of the recursion. Since new items are added at the ** end of the shared list, we actually only ever get ** one level of recursion before things pop back to the ** top. Any items added to the list during that recursion ** will be expanded by the top level. */ for (rlidx = 0; recurse != NULL && rlidx < recurse->lrl_cnt; rlidx++) { int newflags; int sid; int status; rl = recurse->lrl_data[rlidx]; newflags = flags; if (rl->lr_done) { /* already expanded */ continue; } if (rl->lr_type == SM_LDAP_ATTR_DN) { /* do DN search */ sid = ldap_search(lmap->ldap_ld, rl->lr_search, lmap->ldap_scope, "(objectClass=*)", (lmap->ldap_attr[0] == NULL ? NULL : lmap->ldap_attr), lmap->ldap_attrsonly); } else if (rl->lr_type == SM_LDAP_ATTR_FILTER) { /* do new search */ sid = ldap_search(lmap->ldap_ld, lmap->ldap_base, lmap->ldap_scope, rl->lr_search, (lmap->ldap_attr[0] == NULL ? NULL : lmap->ldap_attr), lmap->ldap_attrsonly); } else if (rl->lr_type == SM_LDAP_ATTR_URL) { /* Parse URL */ sid = ldap_url_parse(rl->lr_search, &rl->lr_ludp); if (sid != 0) { errno = sid + E_LDAPURLBASE; return EX_TEMPFAIL; } /* We need to add objectClass */ if (rl->lr_ludp->lud_attrs != NULL) { int attrnum = 0; while (rl->lr_ludp->lud_attrs[attrnum] != NULL) { if (strcasecmp(rl->lr_ludp->lud_attrs[attrnum], "objectClass") == 0) { /* already requested */ attrnum = -1; break; } attrnum++; } if (attrnum >= 0) { int i; rl->lr_attrs = (char **)malloc(sizeof(char *) * (attrnum + 2)); if (rl->lr_attrs == NULL) { save_errno = errno; ldap_free_urldesc(rl->lr_ludp); errno = save_errno; return EX_TEMPFAIL; } for (i = 0 ; i < attrnum; i++) { rl->lr_attrs[i] = rl->lr_ludp->lud_attrs[i]; } rl->lr_attrs[i++] = "objectClass"; rl->lr_attrs[i++] = NULL; } } /* ** Use the existing connection ** for this search. It really ** should use lud_scheme://lud_host:lud_port/ ** instead but that would require ** opening a new connection. ** This should be fixed ASAP. */ sid = ldap_search(lmap->ldap_ld, rl->lr_ludp->lud_dn, rl->lr_ludp->lud_scope, rl->lr_ludp->lud_filter, rl->lr_attrs, lmap->ldap_attrsonly); /* Use the attributes specified by URL */ newflags |= SM_LDAP_USE_ALLATTR; } else { /* unknown or illegal attribute type */ errno = EFAULT; return EX_SOFTWARE; } /* Collect results */ if (sid == -1) { save_errno = sm_ldap_geterrno(lmap->ldap_ld); statp = EX_TEMPFAIL; switch (save_errno) { # ifdef LDAP_SERVER_DOWN case LDAP_SERVER_DOWN: # endif case LDAP_TIMEOUT: case ETIMEDOUT: case LDAP_UNAVAILABLE: /* ** server disappeared, ** try reopen on next search */ statp = EX_RESTART; break; } errno = save_errno + E_LDAPBASE; return statp; } status = sm_ldap_results(lmap, sid, newflags, delim, rpool, result, resultln, resultsz, recurse); save_errno = errno; if (status != EX_OK && status != EX_NOTFOUND) { errno = save_errno; return status; } /* Mark as done */ rl->lr_done = true; if (rl->lr_ludp != NULL) { ldap_free_urldesc(rl->lr_ludp); rl->lr_ludp = NULL; } if (rl->lr_attrs != NULL) { free(rl->lr_attrs); rl->lr_attrs = NULL; } /* Reset rlidx as new items may have been added */ rlidx = -1; } } return statp; } /* ** SM_LDAP_CLOSE -- close LDAP connection ** ** Parameters: ** lmap -- LDAP map information ** ** Returns: ** None. */ void sm_ldap_close(lmap) SM_LDAP_STRUCT *lmap; { if (lmap->ldap_ld == NULL) return; if (lmap->ldap_pid == getpid()) ldap_unbind(lmap->ldap_ld); lmap->ldap_ld = NULL; lmap->ldap_pid = 0; } /* ** SM_LDAP_GETERRNO -- get ldap errno value ** ** Parameters: ** ld -- LDAP session handle ** ** Returns: ** LDAP errno. */ int sm_ldap_geterrno(ld) LDAP *ld; { int err = LDAP_SUCCESS; # if defined(LDAP_VERSION_MAX) && LDAP_VERSION_MAX >= 3 # ifdef LDAP_OPT_RESULT_CODE # define LDAP_GET_RESULT_CODE LDAP_OPT_RESULT_CODE # else # define LDAP_GET_RESULT_CODE LDAP_OPT_ERROR_NUMBER # endif (void) ldap_get_option(ld, LDAP_GET_RESULT_CODE, &err); # else # ifdef LDAP_OPT_SIZELIMIT err = ldap_get_lderrno(ld, NULL, NULL); # else err = ld->ld_errno; /* ** Reset value to prevent lingering LDAP_DECODING_ERROR due to ** OpenLDAP 1.X's hack (see above) */ ld->ld_errno = LDAP_SUCCESS; # endif /* LDAP_OPT_SIZELIMIT */ # endif /* defined(LDAP_VERSION_MAX) && LDAP_VERSION_MAX >= 3 */ return err; } /* ** SM_LDAP_GETERROR -- get ldap error value ** ** Parameters: ** ld -- LDAP session handle ** ** Returns: ** LDAP error */ static char * sm_ldap_geterror(ld) LDAP *ld; { char *error = NULL; # if defined(LDAP_OPT_DIAGNOSTIC_MESSAGE) (void) ldap_get_option(ld, LDAP_OPT_DIAGNOSTIC_MESSAGE, &error); # endif return error; } #endif /* LDAPMAP */ sendmail-8.18.1/libsm/t-path.c0000644000372400037240000000134614556365350015442 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-path.c,v 1.9 2013-11-22 20:51:43 ca Exp $") #include #include #include int main(argc, argv) int argc; char **argv; { char *r; sm_test_begin(argc, argv, "test path handling"); SM_TEST(sm_path_isdevnull(SM_PATH_DEVNULL)); r = "/dev/null"; SM_TEST(sm_path_isdevnull(r)); r = "/nev/dull"; SM_TEST(!sm_path_isdevnull(r)); r = "nul"; SM_TEST(!sm_path_isdevnull(r)); return sm_test_end(); } sendmail-8.18.1/libsm/utf8_valid.c0000644000372400037240000000515614556365350016315 0ustar xbuildxbuild/* * Copyright (c) 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include #include #if USE_EAI /* ** legal utf-8 byte sequence ** http://www.unicode.org/versions/Unicode6.0.0/ch03.pdf - page 94 ** ** Code Points 1st 2s 3s 4s ** U+0000..U+007F 00..7F ** U+0080..U+07FF C2..DF 80..BF ** U+0800..U+0FFF E0 A0..BF 80..BF ** U+1000..U+CFFF E1..EC 80..BF 80..BF ** U+D000..U+D7FF ED 80..9F 80..BF ** U+E000..U+FFFF EE..EF 80..BF 80..BF ** U+10000..U+3FFFF F0 90..BF 80..BF 80..BF ** U+40000..U+FFFFF F1..F3 80..BF 80..BF 80..BF ** U+100000..U+10FFFF F4 80..8F 80..BF 80..BF */ /* ** based on ** https://github.com/lemire/fastvalidate-utf-8.git ** which is distributed under an MIT license (besides others). */ bool utf8_valid(b, length) const char *b; size_t length; { const unsigned char *bytes; size_t index; bytes = (const unsigned char *)b; index = 0; while (true) { unsigned char byte1; do { /* fast ASCII Path */ if (index >= length) return true; byte1 = bytes[index++]; } while (byte1 < 0x80); if (byte1 < 0xE0) { /* Two-byte form. */ if (index == length) return false; if (byte1 < 0xC2 || bytes[index++] > 0xBF) return false; } else if (byte1 < 0xF0) { /* Three-byte form. */ if (index + 1 >= length) return false; unsigned char byte2 = bytes[index++]; if (byte2 > 0xBF /* Overlong? 5 most significant bits must not all be zero. */ || (byte1 == 0xE0 && byte2 < 0xA0) /* Check for illegal surrogate codepoints. */ || (byte1 == 0xED && 0xA0 <= byte2) /* Third byte trailing-byte test. */ || bytes[index++] > 0xBF) return false; } else { /* Four-byte form. */ if (index + 2 >= length) return false; int byte2 = bytes[index++]; if (byte2 > 0xBF /* Check that 1 <= plane <= 16. Tricky optimized form of: */ /* if (byte1 > (byte) 0xF4 */ /* || byte1 == (byte) 0xF0 && byte2 < (byte) 0x90 */ /* || byte1 == (byte) 0xF4 && byte2 > (byte) 0x8F) */ || (((byte1 << 28) + (byte2 - 0x90)) >> 30) != 0 /* Third byte trailing-byte test */ || bytes[index++] > 0xBF /* Fourth byte trailing-byte test */ || bytes[index++] > 0xBF) return false; } } /* NOTREACHED */ return false; } #endif /* USE_EAI */ sendmail-8.18.1/libsm/t-inet6_ntop.c0000644000372400037240000000263114556365350016571 0ustar xbuildxbuild/* * Copyright (c) 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-inet6_ntop.c,v 1.2 2013-11-22 20:51:43 ca Exp $") #include #if NETINET6 #include #include #include #include #include #include static char *ipv6f[] = { "1234:5678:9abc:def0:fedc:dead:f00f:101", "1080:0:0:0:8:800:200c:417a", "ff01:0:0:0:0:0:0:43", "0:0:0:0:0:0:0:1", "1:0:0:0:0:0:0:1", "0:1:0:0:0:0:0:1", "0:0:1:0:0:0:0:1", "0:0:0:1:0:0:0:1", "0:0:0:0:1:0:0:1", "0:0:0:0:0:1:0:1", "0:0:0:0:0:0:1:1", "1:a:b:c:d:e:f:9", "0:0:0:0:0:0:0:0", NULL }; static void test() { int i, r; struct sockaddr_in6 addr; char *ip, *ipf, ipv6str[INET6_ADDRSTRLEN]; for (i = 0; (ip = ipv6f[i]) != NULL; i++) { r = inet_pton(AF_INET6, ip, &addr.sin6_addr); SM_TEST(r == 1); ipf = sm_inet6_ntop(&addr.sin6_addr, ipv6str, sizeof(ipv6str)); SM_TEST(ipf != NULL); SM_TEST(strcmp(ipf, ip) == 0); } } int main(argc, argv) int argc; char **argv; { sm_test_begin(argc, argv, "test inet6_ntop"); test(); return sm_test_end(); } #else /* NETINET6 */ int main(argc, argv) int argc; char **argv; { return 0; } #endif /* NETINET6 */ sendmail-8.18.1/libsm/fclose.c0000644000372400037240000000620214556365350015514 0ustar xbuildxbuild/* * Copyright (c) 2000-2002, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fclose.c,v 1.45 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include #include #include #include #include #include #include "local.h" static void closealrm __P((int)); static jmp_buf CloseTimeOut; /* ** CLOSEALRM -- handler when timeout activated for sm_io_close() ** ** Returns flow of control to where setjmp(CloseTimeOut) was set. ** ** Parameters: ** sig -- unused ** ** Returns: ** does not return ** ** Side Effects: ** returns flow of control to setjmp(CloseTimeOut). ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED0 */ static void closealrm(sig) int sig; { longjmp(CloseTimeOut, 1); } /* ** SM_IO_CLOSE -- close a file handle/pointer ** ** Parameters: ** fp -- file pointer to be closed ** timeout -- maximum time allowed to perform the close (millisecs) ** ** Returns: ** 0 on success ** -1 on failure and sets errno ** ** Side Effects: ** file pointer 'fp' will no longer be valid. */ int sm_io_close(fp, timeout) register SM_FILE_T *fp; int SM_NONVOLATILE timeout; { register int SM_NONVOLATILE r; SM_EVENT *evt = NULL; if (fp == NULL) { errno = EBADF; return SM_IO_EOF; } SM_REQUIRE_ISA(fp, SmFileMagic); /* XXX this won't be reached if above macro is active */ if (fp->sm_magic == NULL) { /* not open! */ errno = EBADF; return SM_IO_EOF; } if (fp->f_close == NULL) { /* no close function! */ errno = ENODEV; return SM_IO_EOF; } if (fp->f_dup_cnt > 0) { /* decrement file pointer open count */ fp->f_dup_cnt--; return 0; } /* Okay, this is where we set the timeout. */ if (timeout == SM_TIME_DEFAULT) timeout = fp->f_timeout; if (timeout == SM_TIME_IMMEDIATE) { errno = EAGAIN; return -1; } /* No more duplicates of file pointer. Flush buffer and close */ r = fp->f_flags & SMWR ? sm_flush(fp, (int *) &timeout) : 0; /* sm_flush() has updated to.it_value for the time it's used */ if (timeout != SM_TIME_FOREVER) { if (setjmp(CloseTimeOut) != 0) { errno = EAGAIN; return SM_IO_EOF; } evt = sm_seteventm(timeout, closealrm, 0); } if ((*fp->f_close)(fp) < 0) r = SM_IO_EOF; /* We're back. So undo our timeout and handler */ if (evt != NULL) sm_clrevent(evt); if (fp->f_flags & SMMBF) { sm_free((char *)fp->f_bf.smb_base); fp->f_bf.smb_base = NULL; } if (HASUB(fp)) FREEUB(fp); fp->f_flags = 0; /* clear flags */ fp->sm_magic = NULL; /* Release this SM_FILE_T for reuse. */ fp->f_r = fp->f_w = 0; /* Mess up if reaccessed. */ return r; } sendmail-8.18.1/libsm/notify.h0000644000372400037240000000535514556365350015566 0ustar xbuildxbuild/* * Copyright (c) 2021 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #ifndef LIBSM_NOTIFY_H #define LIBSM_NOTIFY_H #if SM_NOTIFY_DEBUG #define SM_DBG(p) fprintf p #else #define SM_DBG(p) #endif /* microseconds */ #define SM_MICROS 1000000L #define SM_MICROS2TVAL(tmo, tval, timeout) \ do \ { \ if (tmo < 0) \ tval = NULL; \ else \ { \ timeout.tv_sec = (long) (tmo / SM_MICROS); \ timeout.tv_usec = tmo % SM_MICROS; \ tval = &timeout; \ } \ } while (0) #define MAX_NETSTR 1024 #define NETSTRPRE 5 /* flow through code, be careful how to use! */ #define RDNETSTR(rc, fd, SM_NOTIFY_EOF) \ if ((rc) <= 0) \ { \ SM_DBG((stderr, "pid=%ld, select=%d, e=%d\n", (long)getpid(), (rc), save_errno)); \ return -ETIMEDOUT; \ } \ \ /* bogus... need to check again? */ \ if (!FD_ISSET(fd, &readfds)) \ { \ SM_DBG((stderr, "pid=%ld, fd=%d, isset=false\n", (long)getpid(), fd)); \ return -ETIMEDOUT; \ } \ r = read(fd, buf, NETSTRPRE); \ if (0 == r) \ { \ SM_DBG((stderr, "pid=%ld, fd=%d, read1=EOF, e=%d\n", (long)getpid(), fd, errno)); \ SM_NOTIFY_EOF; \ return r; \ } \ if (NETSTRPRE != r) \ { \ SM_DBG((stderr, "pid=%ld, fd=%d, read1=%d, e=%d\n", (long)getpid(), fd, r, errno)); \ return -1; /* ??? */ \ } \ \ if (sm_io_sscanf(buf, "%4u:", &len) != 1) \ { \ SM_DBG((stderr, "pid=%ld, scanf, e=%d\n", (long)getpid(), errno)); \ return -EINVAL; /* ??? */ \ } \ if (len >= MAX_NETSTR) \ { \ SM_DBG((stderr, "pid=%ld, 1: len=%d\n", (long)getpid(), len)); \ return -E2BIG; /* ??? */ \ } \ if (len >= buflen - 1) \ { \ SM_DBG((stderr, "pid=%ld, 2: len=%d\n", (long)getpid(), len)); \ return -E2BIG; /* ??? */ \ } \ if (len <= 0) \ { \ SM_DBG((stderr, "pid=%ld, 3: len=%d\n", (long)getpid(), len)); \ return -EINVAL; /* ??? */ \ } \ r = read(fd, buf, len + 1); \ save_errno = errno; \ SM_DBG((stderr, "pid=%ld, fd=%d, read=%d, len=%d, e=%d\n", (long)getpid(), fd, r, len+1, save_errno)); \ if (r == 0) \ { \ SM_DBG((stderr, "pid=%ld, fd=%d, read2=%d, e=%d\n", (long)getpid(), fd, r, save_errno)); \ return -1; /* ??? */ \ } \ if (r < 0) \ { \ SM_DBG((stderr, "pid=%ld, fd=%d, read3=%d, e=%d\n", (long)getpid(), fd, r, save_errno)); \ return -save_errno; \ } \ if (len + 1 != r) \ { \ SM_DBG((stderr, "pid=%ld, fd=%d, read4=%d, len=%d\n", (long)getpid(), fd, r, len)); \ return -1; /* ??? */ \ } \ if (buf[len] != ',') \ { \ SM_DBG((stderr, "pid=%ld, fd=%d, read5=%d, f=%d\n", (long)getpid(), fd, r, buf[len])); \ return -EINVAL; /* ??? */ \ } \ buf[len] = '\0'; \ return r #endif /* ! LIBSM_MSG_H */ sendmail-8.18.1/libsm/t-qic.c0000644000372400037240000001411214556365350015255 0ustar xbuildxbuild/* * Copyright (c) 2006, 2023 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-qic.c,v 1.10 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include extern bool SmTestVerbose; void show_diff(s1, s2) const char *s1; const char *s2; { int i; for (i = 0; s1[i] != '\0' && s2[i] != '\0'; i++) { if (s1[i] != s2[i]) { fprintf(stderr, "i=%d, s1[]=%u, s2[]=%u\n", i, (unsigned char) s1[i], (unsigned char) s2[i]); return; } } if (s1[i] != s2[i]) { fprintf(stderr, "i=%d, s1[]=%u, s2[]=%u\n", i, (unsigned char) s1[i], (unsigned char) s2[i]); } } char *quote_unquote __P((char *, char *, int, int, int)); char * quote_unquote(in, out, outlen, exp, mode) char *in; char *out; int outlen; int exp; int mode; { char *obp, *bp; char line_back[1024]; char line_in[1024]; int cmp; sm_strlcpy(line_in, in, sizeof(line_in)); obp = quote_internal_chars(in, out, &outlen, NULL); bp = str2prt(line_in); if (0 == mode) dequote_internal_chars(obp, line_back, sizeof(line_back)); else if (1 == mode) dequote_internal_chars(obp, line_back, strlen(obp)); else if (2 == mode) dequote_internal_chars(obp, line_back, strlen(obp) + 1); cmp = strcmp(line_in, line_back); SM_TEST(exp == cmp); if (cmp != exp && !SmTestVerbose) { fprintf(stderr, "in: %s\n", bp); bp = str2prt(line_back); fprintf(stderr, "out:%s\n", bp); fprintf(stderr, "cmp=%d\n", cmp); show_diff(in, line_back); } if (SmTestVerbose) { fprintf(stderr, "%s -> ", bp); bp = str2prt(obp); fprintf(stderr, "%s\n", bp); fprintf(stderr, "cmp=%d\n", cmp); } return obp; } struct sm_qic_S { char *qic_in; char *qic_out; int qic_exp; }; typedef struct sm_qic_S sm_qic_T; int main(argc, argv) int argc; char *argv[]; { char line_in[1024], line[256], line_out[32], *obp; int i, los, cmp, mode; sm_qic_T inout[] = { { "", "", 0 } , { "\t", "\t", 0 } , { "\tuser", "\tuser", 0 } , { "abcdef", "abcdef", 0 } , { "01234567890123456789", "01234567890123456789", 0 } , { "\\", "\\", 0 } , { "\\A", "\\A", 0 } , { "01234567890123456789\001", "01234567890123456789\001", 0 } , { "012345\2067890123456789", "012345\377\2067890123456789", 0 } , { "\377", "\377\377", 0 } , { "\240", "\240", 0 } , { "\220", "\377\220", 0 } , { "\240\220", "\240\377\220", 0 } , { "\377\377", "\377\377\377\377", 0 } , { "\377a\377b", "\377\377a\377\377b", 0 } , { "\376a\377b", "\376a\377\377b", 0 } , { "\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237\240", "\377\200\377\201\377\202\377\203\377\204\377\205\377\206\377\207\377\210\377\211\377\212\377\213\377\214\377\215\377\216\377\217\377\220\377\221\377\222\377\223\377\224\377\225\377\226\377\227\377\230\377\231\377\232\377\233\377\234\377\235\377\236\377\237\240", 0 } , { NULL, NULL, 0 } }; sm_test_begin(argc, argv, "test meta quoting"); mode = 0; if (argc > 1) mode = atoi(argv[1]); for (i = 0; i < sizeof(line_out); i++) line_out[i] = '\0'; for (i = 0; i < sizeof(line_in); i++) line_in[i] = '\0'; for (i = 0; i < sizeof(line_in) / 2; i++) { char ch; ch = 0200 + i; if ('\0' == ch) ch = '0'; line_in[i] = ch; } los = sizeof(line_out) / 2; obp = quote_unquote(line_in, line_out, los, 0, mode); if (obp != line_out) SM_FREE(obp); for (i = 0; i < sizeof(line_in); i++) line_in[i] = '\0'; for (i = 0; i < sizeof(line_in) / 2; i++) { char ch; ch = 0200 + i; if ('\0' == ch) ch = '0'; line_in[i] = ch; } los = sizeof(line_in); obp = quote_unquote(line_in, line_in, los, 0, mode); if (obp != line_in) SM_FREE(obp); for (i = 0; inout[i].qic_in != NULL; i++) { los = sizeof(line_out) / 2; obp = quote_unquote(inout[i].qic_in, line_out, los, inout[i].qic_exp, mode); cmp = strcmp(inout[i].qic_out, obp); SM_TEST(inout[i].qic_exp == cmp); if (inout[i].qic_exp != cmp && !SmTestVerbose) { char *bp; bp = str2prt(obp); fprintf(stderr, "got: %s\n", bp); bp = str2prt(inout[i].qic_out); fprintf(stderr, "exp:%s\n", bp); fprintf(stderr, "cmp=%d\n", cmp); show_diff(inout[i].qic_in, inout[i].qic_out); } if (obp != line_out) SM_FREE(obp); } /* use same buffer for in and out */ for (i = 0; inout[i].qic_in != NULL; i++) { bool same; same = strcmp(inout[i].qic_in, inout[i].qic_out) == 0; los = sm_strlcpy(line, inout[i].qic_in, sizeof(line)); SM_TEST(los + 1 < sizeof(line)); ++los; obp = quote_unquote(line, line, los, inout[i].qic_exp, mode); cmp = strcmp(inout[i].qic_out, obp); SM_TEST(inout[i].qic_exp == cmp); if (inout[i].qic_exp != cmp && !SmTestVerbose) { char *bp; bp = str2prt(obp); fprintf(stderr, "got: %s\n", bp); bp = str2prt(inout[i].qic_out); fprintf(stderr, "exp:%s\n", bp); fprintf(stderr, "cmp=%d\n", cmp); show_diff(inout[i].qic_in, inout[i].qic_out); } if (obp != line) { SM_TEST(!same); if (same) show_diff(obp, inout[i].qic_out); SM_FREE(obp); } } /* use NULL buffer for out */ for (i = 0; inout[i].qic_in != NULL; i++) { los = 0; obp = quote_unquote(inout[i].qic_in, NULL, los, inout[i].qic_exp, mode); SM_TEST(obp != NULL); cmp = strcmp(inout[i].qic_out, obp); SM_TEST(inout[i].qic_exp == cmp); if (inout[i].qic_exp != cmp && !SmTestVerbose) { char *bp; bp = str2prt(obp); fprintf(stderr, "got: %s\n", bp); bp = str2prt(inout[i].qic_out); fprintf(stderr, "exp:%s\n", bp); fprintf(stderr, "cmp=%d\n", cmp); show_diff(inout[i].qic_in, inout[i].qic_out); } } los = -1; obp = quote_internal_chars(NULL, NULL, &los, NULL); SM_TEST(NULL == obp); SM_TEST(-1 == los); sm_strlcpy(line_in, "nothing", sizeof(line_in)); los = -123; obp = quote_internal_chars(line_in, NULL, &los, NULL); SM_TEST(NULL != obp); SM_TEST(los > 0); return sm_test_end(); } sendmail-8.18.1/libsm/strcaseeq.c0000644000372400037240000000341014556365350016231 0ustar xbuildxbuild/* * Copyright (c) 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include #if USE_EAI #include #include #include /* ** SM_STRCASEEQ -- are two strings equal (case-insensitive)? ** ** Parameters: ** s1 -- string ** s2 -- string ** ** Returns: ** true iff s1 == s2 */ bool sm_strcaseeq(s1, s2) const char *s1; const char *s2; { char *l1, *l2; char *f1; bool same; if (asciistr(s1)) { if (!asciistr(s2)) return false; return (sm_strcasecmp(s1, s2) == 0); } if (asciistr(s2)) return false; l1 = sm_lowercase(s1); if (l1 != s1) { f1 = sm_strdup_x(l1); l1 = f1; } else f1 = NULL; l2 = sm_lowercase(s2); while (*l1 == *l2 && '\0' != *l1) l1++, l2++; same = *l1 == *l2; SM_FREE(f1); return same; } /* ** SM_STRNCASEEQ -- are two strings (up to a length) equal (case-insensitive)? ** ** Parameters: ** s1 -- string ** s2 -- string ** n -- maximum length to compare ** ** Returns: ** true iff s1 == s2 (for up to the first n char) */ bool sm_strncaseeq(s1, s2, n) const char *s1; const char *s2; size_t n; { char *l1, *l2; char *f1; bool same; if (0 == n) return true; if (asciinstr(s1, n)) { if (!asciinstr(s2, n)) return false; return (sm_strncasecmp(s1, s2, n) == 0); } if (asciinstr(s2, n)) return false; l1 = sm_lowercase(s1); if (l1 != s1) { f1 = sm_strdup_x(l1); l1 = f1; } else f1 = NULL; l2 = sm_lowercase(s2); while (*l1 == *l2 && '\0' != *l1 && --n > 0) l1++, l2++; same = *l1 == *l2; SM_FREE(f1); return same; } #endif /* USE_EAI */ sendmail-8.18.1/libsm/heap.html0000644000372400037240000003210614556365350015702 0ustar xbuildxbuild libsm : Memory Allocation Back to libsm overview

    libsm : Memory Allocation


    $Id: heap.html,v 1.9 2000-12-08 21:41:42 ca Exp $

    Introduction

    The heap package provides a layer of abstraction on top of malloc, realloc and free that provides optional error checking and memory leak detection, and which optionally raises an exception when an allocation request cannot be satisfied.

    Synopsis 

    #include <sm/heap.h>

/*
**  Wrappers for malloc, realloc, free
*/
void *sm_malloc(size_t size);
void *sm_realloc(void *ptr, size_t size);
void  sm_free(void *ptr);

/*
**  Wrappers for malloc, realloc that raise an exception instead of
**  returning NULL on heap exhaustion.
*/
void *sm_malloc_x(size_t size);
void *sm_realloc_x(void *ptr, size_t size);

/*
**  Print a list of currently allocated blocks,
**  used to diagnose memory leaks.
*/
void  sm_heap_report(FILE *stream, int verbosity);

/*
**  Low level interfaces.
*/
int sm_heap_group();
int sm_heap_setgroup(int g);
int sm_heap_newgroup();
void *sm_malloc_tagged(size_t size, char *file, int line, int group);
void *sm_malloc_tagged_x(size_t size, char *file, int line, int group);
bool  sm_heap_register(void *ptr, size_t size, char *file, int line);

    How to allocate and free memory

    sm_malloc, sm_realloc and sm_free are portable plug in replacements for malloc, realloc and free that provide error checking and memory leak detection. sm_malloc_x and sm_realloc_x are variants of sm_malloc and sm_realloc that raise an exception on error. To use the package effectively, all calls to malloc, realloc and free should be replaced by calls to the corresponding sm_* routines.
    void *sm_malloc(size_t size)
    This function is a plug-in replacement for malloc. It allocates size bytes of memory on the heap and returns a pointer to it, or it returns NULL on failure.

    The C standard says that malloc(0) may return either NULL or a non-NULL value. To ensure consistent behaviour on all platforms, sm_malloc(0) is equivalent to sm_malloc(1).

    In addition, if heap checking is enabled, then sm_malloc maintains a hash table describing all currently allocated memory blocks. This table is used for argument validity checking in sm_realloc and sm_free, and it can be printed using sm_heap_report as an aid to finding memory leaks.

    void *sm_malloc_x(size_t size)
    This function is just like sm_malloc except that it raises the SmHeapOutOfMemory exception instead of returning NULL on error.

    void *sm_realloc(void *ptr, size_t size)
    This function is a plug-in replacement for realloc. If ptr is null then this call is equivalent to sm_malloc(size). Otherwise, the size of the object pointed to by ptr is changed to size bytes, and a pointer to the (possibly moved) object is returned. If the space cannot be allocated, then the object pointed to by ptr is unchanged and NULL is returned.

    If size is 0 then we pretend that size is 1. This may be a mistake.

    If ptr is not NULL and heap checking is enabled, then ptr is required to be a value that was previously returned by sm_malloc or sm_realloc, and which has not yet been freed by sm_free. If this condition is not met, then the program is aborted using sm_abort.

    void *sm_realloc_x(void *ptr, size_t size)
    This function is just like sm_realloc except that it raises the SmHeapOutOfMemory exception instead of returning NULL on error.

    void sm_free(void *ptr)
    This function is a plug-in replacement for free. If heap checking is disabled, then this function is equivalent to a call to free. Otherwise, the following additional semantics apply.

    If ptr is NULL, this function has no effect.

    Otherwise, ptr is required to be a value that was previously returned by sm_malloc or sm_realloc, and which has not yet been freed by sm_free. If this condition is not met, then the program is aborted using sm_abort.

    Otherwise, if there is no error, then the block pointed to by ptr will be set to all zeros before free() is called. This is intended to assist in detecting the use of dangling pointers.

    How to control tag information

    When heap checking is enabled, the heap package maintains a hash table which associates the following values with each currently allocated block:
    size_t size
    The size of the block.
    char *tag
    By default, this is the name of the source file from which the block was allocated, but you can specify an arbitrary string pointer, or NULL.
    int num
    By default, this is the line number from which the block was allocated.
    int group
    By convention, group==0 indicates that the block is permanently allocated and will never be freed. The meanings of other group numbers are defined by the application developer. Unless you take special action, all blocks allocated by sm_malloc and sm_malloc_x will be assigned to group 1.
    These tag values are printed by sm_heap_report, and are used to help analyze memory allocation behaviour and to find memory leaks. The following functions give you precise control over the tag values associated with each allocated block.
    void *sm_malloc_tagged(size_t size, int tag, int num, int group)
    Just like sm_malloc, except you directly specify all of the tag values. If heap checking is disabled at compile time, then a call to sm_malloc_tagged is macro expanded to a call to malloc.

    Note that the expression sm_malloc(size) is macro expanded to 

    sm_malloc_tagged(size, __FILE__, __LINE__, sm_heap_group())
    void *sm_malloc_tagged_x(size_t size, int tag, int num, int group)
    A variant of sm_malloc_tagged that raises an exception on error. A call to sm_malloc_x is macro expanded to a call to sm_malloc_tagged_x.

    int sm_heap_group()
    The heap package maintains a thread-local variable containing the current group number. This is the group that sm_malloc and sm_malloc_x will assign a newly allocated block to. The initial value of this variable is 1. The current value of this variable is returned by sm_heap_group().

    int sm_heap_setgroup(int g)
    Set the current group to the specified value.
    Here are two examples of how you might use these interfaces.
    1. One way to detect memory leaks is to turn on heap checking and call sm_heap_report(stdout,2) when the program exits. This prints a list of all allocated blocks that do not belong to group 0. (Blocks in group 0 are assumed to be permanently allocated, and so their existence at program exit does not indicate a leak.) If you want to allocate a block and assign it to group 0, you have two choices: 
      int g = sm_heap_group();
sm_heap_setgroup(0);
p = sm_malloc_x(size);
sm_heap_setgroup(g);
      or 
      p = sm_malloc_tagged_x(size, __FILE__, __LINE__, 0);
    2. Suppose you have a utility function foo_alloc which allocates and initializes a 'foo' object. When sm_heap_report is called, all unfreed 'foo' objects will be reported to have the same source code file name and line number. That might make it difficult to determine where a memory leak is.

      Here is how you can arrange for more precise reporting for unfreed foo objects: 

      #include <sm/heap.h>

#if SM_HEAP_CHECK
#  define foo_alloc_x() foo_alloc_tagged_x(__FILE__,__LINE)
   FOO *foo_alloc_tagged_x(char *, int);
#else
   FOO *foo_alloc_x(void);
#  define foo_alloc_tagged_x(file,line) foo_alloc_x()
#endif

...

#if SM_HEAP_CHECK
FOO *
foo_alloc_tagged_x(char *file, int line)
#else
FOO *
foo_alloc_x(void)
#endif
{
	FOO *p;

	p = sm_malloc_tagged_x(sizeof(FOO), file, line, sm_heap_group());
	...
	return p;
}

    How to dump the block list

    To perform memory leak detection, you need to arrange for your program to call sm_heap_report at appropriate times.
    void sm_heap_report(FILE *stream, int verbosity)
    If heap checking is disabled, this function does nothing. If verbosity <= 0, this function does nothing.

    If verbosity >= 1, then sm_heap_report prints a single line to stream giving the total number of bytes currently allocated. If you call sm_heap_report each time the program has reached a "ground state", and the reported amount of heap storage is monotonically increasing, that indicates a leak.

    If verbosity >= 2, then sm_heap_report additionally prints one line for each block of memory currently allocated, providing that the group != 0. (Such blocks are assumed to be permanently allocated storage, and are not reported to cut down the level of noise.)

    If verbosity >= 3, then sm_heap_report prints one line for each allocated block, regardless of the group.

    How to enable heap checking

    The overhead of using the package can be made as small as you want. You have three options:
    1. If you compile your software with -DSM_HEAP_CHECK=0 then sm_malloc, sm_realloc and sm_free will be redefined as macros that call malloc, realloc, and free. In this case, there is zero overhead.
    2. If you do not define -DSM_HEAP_CHECK=0, and you do not explicitly turn on heap checking at run time, then your program will run without error checking and memory leak detection, and the additional cost of calling sm_malloc, sm_realloc and sm_free is a function call and test. That overhead is sufficiently low that the checking code can be left compiled in a production environment.
    3. If you do not define -DSM_HEAP_CHECK=0, and you explicitly turn on heap checking at run time, then the additional cost of calling sm_malloc, sm_realloc and sm_free is a hash table lookup.
    Here's how to modify your application to use the heap package. First, change all calls to malloc, realloc and free to sm_malloc, sm_realloc and sm_free. Make sure that there is a -d command line option that uses the libsm debug package to enable named debug options. Add the following code to your program just before it calls exit, or register an atexit handler function containing the following code: 
    #if SM_HEAP_CHECK
	/* dump the heap, if we are checking for memory leaks */
	if (sm_debug_active(&SmHeapCheck, 2))
		sm_heap_report(stdout, sm_debug_level(&SmHeapCheck) - 1);
#endif
    To turn on heap checking, use the command line option "-dsm_check_heap.1". This will cause a table of all currently allocated blocks to be maintained. The table is used by sm_realloc and sm_free to perform validity checking on the first argument.

    The command line option "-dsm_check_heap.2" will cause your application to invoke sm_heap_report with verbosity=1 just before exit. That will print a single line reporting total storage allocation.

    The command line option "-dsm_check_heap.3" will cause your application to invoke sm_heap_report with verbosity=2 just before exit. This will print a list of all leaked blocks.

    The command line option "-dsm_check_heap.4" will cause your application to invoke sm_heap_report with verbosity=3 just before exit. This will print a list of all allocated blocks.

    Using sm_heap_register

    Suppose you call a library routine foo that allocates a block of storage for you using malloc, and expects you to free the block later using free. Because the storage was not allocated using sm_malloc, you will normally get an abort if you try to pass the pointer to sm_free. The way to fix this problem is to 'register' the pointer returned by foo with the heap package, by calling sm_heap_register: 
    bool sm_heap_register(ptr, size, file, line, group)
    The 'ptr' argument is the pointer returned by foo. The 'size' argument can be smaller than the actual size of the allocated block, but it must not be larger. The file and line arguments indicate at which line of source code the block was allocated, and is printed by sm_heap_report. For group, you probably want to pass sm_heap_group().

    This function returns true on success, or false if it failed due to heap exhaustion. sendmail-8.18.1/libsm/wsetup.c0000644000372400037240000000361214556365350015572 0ustar xbuildxbuild/* * Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: wsetup.c,v 1.21 2013-11-22 20:51:44 ca Exp $") #include #include #include #include "local.h" /* ** SM_WSETUP -- check writing is safe ** ** Various output routines call wsetup to be sure it is safe to write, ** because either flags does not include SMMWR, or buf is NULL. ** Used in the macro "cantwrite" found in "local.h". ** ** Parameters: ** fp -- the file pointer ** ** Results: ** Failure: SM_IO_EOF and sets errno ** Success: 0 (zero) */ int sm_wsetup(fp) register SM_FILE_T *fp; { /* make sure stdio is set up */ if (!Sm_IO_DidInit) sm_init(); /* If we are not writing, we had better be reading and writing. */ if ((fp->f_flags & SMWR) == 0) { if ((fp->f_flags & SMRW) == 0) { errno = EBADF; return SM_IO_EOF; } if (fp->f_flags & SMRD) { /* clobber any ungetc data */ if (HASUB(fp)) FREEUB(fp); /* discard read buffer */ fp->f_flags &= ~(SMRD|SMFEOF); fp->f_r = 0; fp->f_p = fp->f_bf.smb_base; } fp->f_flags |= SMWR; } /* Make a buffer if necessary, then set w. */ if (fp->f_bf.smb_base == NULL) sm_makebuf(fp); if (fp->f_flags & SMLBF) { /* ** It is line buffered, so make lbfsize be -bufsize ** for the sm_putc() macro. We will change lbfsize back ** to 0 whenever we turn off SMWR. */ fp->f_w = 0; fp->f_lbfsize = -fp->f_bf.smb_size; } else fp->f_w = fp->f_flags & SMNBF ? 0 : fp->f_bf.smb_size; return 0; } sendmail-8.18.1/libsm/niprop.c0000644000372400037240000001123614556365350015553 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: niprop.c,v 1.9 2013-11-22 20:51:43 ca Exp $") #if NETINFO #include #include #include #include #include #include #include #include /* ** NI_PROPVAL -- NetInfo property value lookup routine ** ** Parameters: ** keydir -- the NetInfo directory name in which to search ** for the key. ** keyprop -- the name of the property in which to find the ** property we are interested. Defaults to "name". ** keyval -- the value for which we are really searching. ** valprop -- the property name for the value in which we ** are interested. ** sepchar -- if non-nil, this can be multiple-valued, and ** we should return a string separated by this ** character. ** ** Returns: ** NULL -- if: ** 1. the directory is not found ** 2. the property name is not found ** 3. the property contains multiple values ** 4. some error occurred ** else -- the value of the lookup. ** ** Example: ** To search for an alias value, use: ** ni_propval("/aliases", "name", aliasname, "members", ',') ** ** Notes: ** Caller should free the return value of ni_proval */ # include # define LOCAL_NETINFO_DOMAIN "." # define PARENT_NETINFO_DOMAIN ".." # define MAX_NI_LEVELS 256 char * ni_propval(keydir, keyprop, keyval, valprop, sepchar) char *keydir; char *keyprop; char *keyval; char *valprop; int sepchar; { char *propval = NULL; int i; int j, alen, l; void *ni = NULL; void *lastni = NULL; ni_status nis; ni_id nid; ni_namelist ninl; register char *p; char keybuf[1024]; /* ** Create the full key from the two parts. ** ** Note that directory can end with, e.g., "name=" to specify ** an alternate search property. */ i = strlen(keydir) + strlen(keyval) + 2; if (keyprop != NULL) i += strlen(keyprop) + 1; if (i >= sizeof keybuf) return NULL; (void) sm_strlcpyn(keybuf, sizeof keybuf, 2, keydir, "/"); if (keyprop != NULL) { (void) sm_strlcat2(keybuf, keyprop, "=", sizeof keybuf); } (void) sm_strlcat(keybuf, keyval, sizeof keybuf); # if 0 if (tTd(38, 21)) sm_dprintf("ni_propval(%s, %s, %s, %s, %d) keybuf='%s'\n", keydir, keyprop, keyval, valprop, sepchar, keybuf); # endif /* ** If the passed directory and property name are found ** in one of netinfo domains we need to search (starting ** from the local domain moving all the way back to the ** root domain) set propval to the property's value ** and return it. */ for (i = 0; i < MAX_NI_LEVELS && propval == NULL; i++) { if (i == 0) { nis = ni_open(NULL, LOCAL_NETINFO_DOMAIN, &ni); # if 0 if (tTd(38, 20)) sm_dprintf("ni_open(LOCAL) = %d\n", nis); # endif } else { if (lastni != NULL) ni_free(lastni); lastni = ni; nis = ni_open(lastni, PARENT_NETINFO_DOMAIN, &ni); # if 0 if (tTd(38, 20)) sm_dprintf("ni_open(PARENT) = %d\n", nis); # endif } /* ** Don't bother if we didn't get a handle on a ** proper domain. This is not necessarily an error. ** We would get a positive ni_status if, for instance ** we never found the directory or property and tried ** to open the parent of the root domain! */ if (nis != 0) break; /* ** Find the path to the server information. */ if (ni_pathsearch(ni, &nid, keybuf) != 0) continue; /* ** Find associated value information. */ if (ni_lookupprop(ni, &nid, valprop, &ninl) != 0) continue; # if 0 if (tTd(38, 20)) sm_dprintf("ni_lookupprop: len=%d\n", ninl.ni_namelist_len); # endif /* ** See if we have an acceptable number of values. */ if (ninl.ni_namelist_len <= 0) continue; if (sepchar == '\0' && ninl.ni_namelist_len > 1) { ni_namelist_free(&ninl); continue; } /* ** Calculate number of bytes needed and build result */ alen = 1; for (j = 0; j < ninl.ni_namelist_len; j++) alen += strlen(ninl.ni_namelist_val[j]) + 1; propval = p = sm_malloc(alen); if (propval == NULL) goto cleanup; for (j = 0; j < ninl.ni_namelist_len; j++) { (void) sm_strlcpy(p, ninl.ni_namelist_val[j], alen); l = strlen(p); p += l; *p++ = sepchar; alen -= l + 1; } *--p = '\0'; ni_namelist_free(&ninl); } cleanup: if (ni != NULL) ni_free(ni); if (lastni != NULL && ni != lastni) ni_free(lastni); # if 0 if (tTd(38, 20)) sm_dprintf("ni_propval returns: '%s'\n", propval); # endif return propval; } #endif /* NETINFO */ sendmail-8.18.1/libsm/strcasecmp.c0000644000372400037240000000622314556365350016410 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1987, 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: strcasecmp.c,v 1.16 2013-11-22 20:51:43 ca Exp $") #include #include #include /* ** SM_STRCASECMP -- 8-bit clean version of strcasecmp ** ** Thank you, vendors, for making this all necessary. */ /* ** This array is designed for mapping upper and lower case letter ** together for a case independent comparison. The mappings are ** based upon ascii character sequences. */ const unsigned char charmap[] = { 0000, 0001, 0002, 0003, 0004, 0005, 0006, 0007, 0010, 0011, 0012, 0013, 0014, 0015, 0016, 0017, 0020, 0021, 0022, 0023, 0024, 0025, 0026, 0027, 0030, 0031, 0032, 0033, 0034, 0035, 0036, 0037, 0040, 0041, 0042, 0043, 0044, 0045, 0046, 0047, 0050, 0051, 0052, 0053, 0054, 0055, 0056, 0057, 0060, 0061, 0062, 0063, 0064, 0065, 0066, 0067, 0070, 0071, 0072, 0073, 0074, 0075, 0076, 0077, 0100, 0141, 0142, 0143, 0144, 0145, 0146, 0147, 0150, 0151, 0152, 0153, 0154, 0155, 0156, 0157, 0160, 0161, 0162, 0163, 0164, 0165, 0166, 0167, 0170, 0171, 0172, 0133, 0134, 0135, 0136, 0137, 0140, 0141, 0142, 0143, 0144, 0145, 0146, 0147, 0150, 0151, 0152, 0153, 0154, 0155, 0156, 0157, 0160, 0161, 0162, 0163, 0164, 0165, 0166, 0167, 0170, 0171, 0172, 0173, 0174, 0175, 0176, 0177, 0200, 0201, 0202, 0203, 0204, 0205, 0206, 0207, 0210, 0211, 0212, 0213, 0214, 0215, 0216, 0217, 0220, 0221, 0222, 0223, 0224, 0225, 0226, 0227, 0230, 0231, 0232, 0233, 0234, 0235, 0236, 0237, 0240, 0241, 0242, 0243, 0244, 0245, 0246, 0247, 0250, 0251, 0252, 0253, 0254, 0255, 0256, 0257, 0260, 0261, 0262, 0263, 0264, 0265, 0266, 0267, 0270, 0271, 0272, 0273, 0274, 0275, 0276, 0277, 0300, 0301, 0302, 0303, 0304, 0305, 0306, 0307, 0310, 0311, 0312, 0313, 0314, 0315, 0316, 0317, 0320, 0321, 0322, 0323, 0324, 0325, 0326, 0327, 0330, 0331, 0332, 0333, 0334, 0335, 0336, 0337, 0340, 0341, 0342, 0343, 0344, 0345, 0346, 0347, 0350, 0351, 0352, 0353, 0354, 0355, 0356, 0357, 0360, 0361, 0362, 0363, 0364, 0365, 0366, 0367, 0370, 0371, 0372, 0373, 0374, 0375, 0376, 0377, }; int sm_strcasecmp(s1, s2) const char *s1, *s2; { const unsigned char *us1 = (const unsigned char *)s1; const unsigned char *us2 = (const unsigned char *)s2; while (charmap[*us1] == charmap[*us2]) { if (*us1 == '\0') return 0; ++us1; ++us2; } return charmap[*us1] - charmap[*us2]; } int sm_strncasecmp(s1, s2, n) const char *s1, *s2; register size_t n; { if (n != 0) { register const unsigned char *cm = charmap; register const unsigned char *us1 = (const unsigned char *)s1; register const unsigned char *us2 = (const unsigned char *)s2; do { if (cm[*us1] != cm[*us2++]) return (cm[*us1] - cm[*--us2]); if (*us1++ == '\0') break; } while (--n != 0); } return 0; } sendmail-8.18.1/libsm/setvbuf.c0000644000372400037240000001035014556365350015716 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: setvbuf.c,v 1.33 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include #include #include #include "local.h" /* ** SM_IO_SETVBUF -- set the buffering type for a file ** ** Set one of the different kinds of buffering, optionally including ** a buffer. ** If 'size' is == 0 then an "optimal" size will be selected. ** If 'buf' is == NULL then space will be allocated at 'size'. ** ** Parameters: ** fp -- the file that buffering is to be changed for ** timeout -- time allowed for completing the function ** buf -- buffer to use ** mode -- buffering method to use ** size -- size of 'buf' ** ** Returns: ** Failure: SM_IO_EOF ** Success: 0 (zero) */ int sm_io_setvbuf(fp, timeout, buf, mode, size) SM_FILE_T *fp; int timeout; char *buf; int mode; size_t size; { int ret, flags; size_t iosize; int ttyflag; int fd; struct timeval to; SM_REQUIRE_ISA(fp, SmFileMagic); /* ** Verify arguments. The `int' limit on `size' is due to this ** particular implementation. Note, buf and size are ignored ** when setting SM_IO_NBF. */ if (mode != SM_IO_NBF) if ((mode != SM_IO_FBF && mode != SM_IO_LBF && mode != SM_IO_NOW) || size > INT_MAX) return SM_IO_EOF; /* ** Write current buffer, if any. Discard unread input (including ** ungetc data), cancel line buffering, and free old buffer if ** malloc()ed. We also clear any eof condition, as if this were ** a seek. */ ret = 0; SM_CONVERT_TIME(fp, fd, timeout, &to); (void) sm_flush(fp, &timeout); if (HASUB(fp)) FREEUB(fp); fp->f_r = fp->f_lbfsize = 0; flags = fp->f_flags; if (flags & SMMBF) { sm_free((void *) fp->f_bf.smb_base); fp->f_bf.smb_base = NULL; } flags &= ~(SMLBF | SMNBF | SMMBF | SMOPT | SMNPT | SMFEOF | SMNOW | SMFBF); /* If setting unbuffered mode, skip all the hard work. */ if (mode == SM_IO_NBF) goto nbf; /* ** Find optimal I/O size for seek optimization. This also returns ** a `tty flag' to suggest that we check isatty(fd), but we do not ** care since our caller told us how to buffer. */ flags |= sm_whatbuf(fp, &iosize, &ttyflag); if (size == 0) { buf = NULL; /* force local allocation */ size = iosize; } /* Allocate buffer if needed. */ if (buf == NULL) { if ((buf = sm_malloc(size)) == NULL) { /* ** Unable to honor user's request. We will return ** failure, but try again with file system size. */ ret = SM_IO_EOF; if (size != iosize) { size = iosize; buf = sm_malloc(size); } } if (buf == NULL) { /* No luck; switch to unbuffered I/O. */ nbf: fp->f_flags = flags | SMNBF; fp->f_w = 0; fp->f_bf.smb_base = fp->f_p = fp->f_nbuf; fp->f_bf.smb_size = 1; return ret; } flags |= SMMBF; } /* ** Kill any seek optimization if the buffer is not the ** right size. ** ** SHOULD WE ALLOW MULTIPLES HERE (i.e., ok iff (size % iosize) == 0)? */ if (size != iosize) flags |= SMNPT; /* ** Fix up the SM_FILE_T fields, and set sm_cleanup for output flush on ** exit (since we are buffered in some way). */ if (mode == SM_IO_LBF) flags |= SMLBF; else if (mode == SM_IO_NOW) flags |= SMNOW; else if (mode == SM_IO_FBF) flags |= SMFBF; fp->f_flags = flags; fp->f_bf.smb_base = fp->f_p = (unsigned char *)buf; fp->f_bf.smb_size = size; /* fp->f_lbfsize is still 0 */ if (flags & SMWR) { /* ** Begin or continue writing: see sm_wsetup(). Note ** that SMNBF is impossible (it was handled earlier). */ if (flags & SMLBF) { fp->f_w = 0; fp->f_lbfsize = -fp->f_bf.smb_size; } else fp->f_w = size; } else { /* begin/continue reading, or stay in intermediate state */ fp->f_w = 0; } atexit(sm_cleanup); return ret; } sendmail-8.18.1/libsm/cdefs.html0000644000372400037240000000462014556365350016051 0ustar xbuildxbuild libsm : C Language Portability Macros Back to libsm overview

    libsm : C Language Portability Macros


    $Id: cdefs.html,v 1.2 2000-12-07 17:33:09 dmoen Exp $

    Description

    The header file <sm/cdefs.h> defines portable interfaces to non-portable features of various C compilers. It also assists you in writing C header files that are compatible with C++.
    __P(parameterlist)
    This macro is used to write portable function prototypes. For example, 
    int foo __P((int));
    __CONCAT(x,y)
    This macro concatenates two tokens x and y, forming a single token xy. Warning: make sure there is no white space around the arguments x and y.

    __STRING(x)
    This macro converts the token sequence x into a string literal.

    __BEGIN_DECLS, __END_DECLS
    These macros are used to write C header files that are compatible with C++ compilers. Put __BEGIN_DECLS before the first function or variable declaration in your header file, and put __END_DECLS after the last function or variable declaration.

    const, signed, volatile
    For pre-ANSI C compilers, const, signed and volatile are defined as empty macros. This means you can use these keywords without introducing portability problems.

    SM_DEAD(function_declaration)
    This macro modifies a prototype of a function that does not return to its caller. With some versions of gcc, this will result in slightly better code, and can suppress some useless warnings produced by gcc -Wall. For example, 
    SM_DEAD(void exit __P((int)));
    SM_UNUSED(variable_declaration)
    This macro modifies a definition of an unused local variable, global variable or function parameter in order to suppress compiler warnings. Examples: 
    SM_UNUSED(static const char Id[]) = "@(#)$Id: cdefs.html,v 1.2 2000-12-07 17:33:09 dmoen Exp $";
void
foo(x)
	SM_UNUSED(int x);
{
	SM_UNUSED(int y) = 0;
	return 0;
}
void
bar(SM_UNUSED(int x))
{
	return 0;
}
    sendmail-8.18.1/libsm/t-str2prt.c0000644000372400037240000000263014556365350016123 0ustar xbuildxbuild/* * Copyright (c) 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-qic.c,v 1.10 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include extern bool SmTestVerbose; struct sm_qic_S { char *qic_in; char *qic_out; int qic_exp; }; typedef struct sm_qic_S sm_qic_T; int main(argc, argv) int argc; char *argv[]; { char *obp; int i, cmp; sm_qic_T inout[] = { { "", "", 0 } , { "abcdef", "abcdef", 0 } , { "01234567890123456789", "01234567890123456789", 0 } , { "\\", "\\\\", 0 } , { "\\001", "\\\\001", 0 } , { "01234567890123456789\\001", "01234567890123456789\\\\001", 0 } , { NULL, NULL, 0 } }; sm_test_begin(argc, argv, "test meta quoting"); for (i = 0; inout[i].qic_in != NULL; i++) { obp = str2prt(inout[i].qic_in); cmp = strcmp(inout[i].qic_out, obp); SM_TEST(inout[i].qic_exp == cmp); if (inout[i].qic_exp != cmp && SmTestVerbose) { fprintf(stderr, "in: %s\n", inout[i].qic_in); fprintf(stderr, "got: %s\n", obp); fprintf(stderr, "exp: %s\n", inout[i].qic_out); fprintf(stderr, "cmp=%d\n", cmp); } } return sm_test_end(); } sendmail-8.18.1/libsm/fwrite.c0000644000372400037240000000305514556365350015544 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fwrite.c,v 1.25 2013-11-22 20:51:43 ca Exp $") #include #include #include #include "local.h" #include "fvwrite.h" /* ** SM_IO_WRITE -- write to a file pointer ** ** Parameters: ** fp -- file pointer writing to ** timeout -- time to complete the write ** buf -- location of data to be written ** size -- number of bytes to be written ** ** Result: ** Failure: returns 0 _and_ sets errno ** Success: returns >=0 with errno unchanged, where the ** number returned is the number of bytes written. */ size_t sm_io_write(fp, timeout, buf, size) SM_FILE_T *fp; int timeout; const void *buf; size_t size; { struct sm_uio uio; struct sm_iov iov; SM_REQUIRE_ISA(fp, SmFileMagic); if (fp->f_write == NULL) { errno = ENODEV; return 0; } iov.iov_base = (void *) buf; uio.uio_resid = iov.iov_len = size; uio.uio_iov = &iov; uio.uio_iovcnt = 1; /* The usual case is success (sm_fvwrite returns 0) */ if (sm_fvwrite(fp, timeout, &uio) == 0) return size; /* else return number of bytes actually written */ return size - uio.uio_resid; } sendmail-8.18.1/libsm/t-notify.c0000644000372400037240000001100414556365350016006 0ustar xbuildxbuild/* * Copyright (c) 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include #include #if _FFR_DMTRIGGER || _FFR_NOTIFY # include # include # include # include # include # include # include # include # include "notify.h" static int Verbose = 0; #define MAX_CHILDREN 256 #define MAX_MSGS 1024 static pid_t pids[MAX_CHILDREN]; static char msgs[MAX_CHILDREN][MAX_MSGS]; /* ** NOTIFY_WR -- test of notify write feature ** ** Parameters: ** pid -- pid of process ** nmsgs -- number of messages to write ** ** Returns: ** >=0 on success ** < 0 on failure */ static int notify_wr(pid, nmsgs) pid_t pid; int nmsgs; { int r, i; size_t len; char buf[64]; #define TSTSTR "qf0001" r = sm_notify_start(false, 0); if (r < 0) { perror("sm_notify_start failed"); return -1; } for (i = 0; i < nmsgs; i++) { len = sm_snprintf(buf, sizeof(buf), "%s-%ld_%d", TSTSTR, (long) pid, i); r = sm_notify_snd(buf, len); SM_TEST(r >= 0); } return r; } static int validpid(nproc, cpid) int nproc; pid_t cpid; { int i; for (i = 0; i < nproc; i++) if (cpid == pids[i]) return i; if (Verbose > 0) fprintf(stderr, "pid=%ld not found, nproc=%d\n", (long) cpid, nproc); return -1; } /* ** NOTIFY_RD -- test of notify read feature ** ** Parameters: ** nproc -- number of processes started ** nmsgs -- number of messages to read for each process ** ** Returns: ** 0 on success ** < 0 on failure */ static int notify_rd(nproc, nmsgs) int nproc; int nmsgs; { int r, i, pidx; long cpid; char buf[64], *p; #define TSTSTR "qf0001" r = sm_notify_start(true, 0); if (r < 0) { perror("sm_notify_start failed"); return -1; } for (i = 0; i < nmsgs * nproc; i++) { do { r = sm_notify_rcv(buf, sizeof(buf), 5 * SM_MICROS); SM_TEST(r >= 0); } while (0 == r); if (r < 0) { fprintf(stderr, "pid=%ld, rcv=%d, i=%d\n", (long)getpid(), r, i); return r; } if (r > 0 && r < sizeof(buf)) buf[r] = '\0'; buf[sizeof(buf) - 1] = '\0'; if (Verbose > 0) fprintf(stderr, "pid=%ld, buf=\"%s\", i=%d\n", (long)getpid(), buf, i); SM_TEST(strncmp(buf, TSTSTR, sizeof(TSTSTR) - 1) == 0); SM_TEST(r > sizeof(TSTSTR)); r = sscanf(buf + sizeof(TSTSTR), "%ld", &cpid); SM_TEST(1 == r); pidx = validpid(nproc, (pid_t)cpid); SM_TEST(pidx >= 0); SM_TEST(pidx < nproc); p = strchr(buf, '_'); SM_TEST(NULL != p); if (NULL != p && pidx < nproc && pidx >= 0) { int n; r = sscanf(p + 1, "%d", &n); SM_TEST(1 == r); SM_TEST(n >= 0); SM_TEST(n < nmsgs); if (1 == r && n < nmsgs && n >= 0) { SM_TEST('\0' == msgs[pidx][n]); msgs[pidx][n] = 'f'; } } } return 0; } int main(argc, argv) int argc; char *argv[]; { int i; int r = 0; int nproc = 1; int nmsgs = 1; pid_t pid; # define OPTIONS "n:p:V" while ((i = getopt(argc, argv, OPTIONS)) != -1) { switch ((char) i) { case 'n': nmsgs = atoi(optarg); if (nmsgs < 1) { errno = EINVAL; fprintf(stderr, "-%c: must be >0\n", (char) i); return 1; } if (nmsgs >= MAX_MSGS) { errno = EINVAL; fprintf(stderr, "-%c: must be <%d\n", (char) i, MAX_MSGS); return 1; } break; case 'p': nproc = atoi(optarg); if (nproc < 1) { errno = EINVAL; fprintf(stderr, "-%c: must be >0\n", (char) i); return 1; } if (nproc >= MAX_CHILDREN) { errno = EINVAL; fprintf(stderr, "-%c: must be <%d\n", (char) i, MAX_CHILDREN); return 1; } break; case 'V': ++Verbose; break; default: break; } } memset(msgs, '\0', sizeof(msgs)); sm_test_begin(argc, argv, "test notify"); r = sm_notify_init(0); SM_TEST(r >= 0); if (r < 0) { perror("sm_notify_init failed\n"); return r; } pid = 0; for (i = 0; i < nproc; i++) { if ((pid = fork()) < 0) { perror("fork failed\n"); return -1; } if (pid == 0) { /* give the parent the chance to set up data */ sleep(1); r = notify_wr(getpid(), nmsgs); break; } if (pid > 0) pids[i] = pid; } if (pid > 0) r = notify_rd(nproc, nmsgs); SM_TEST(r >= 0); return sm_test_end(); } #else /* _FFR_DMTRIGGER */ int main(argc, argv) int argc; char *argv[]; { printf("SKIPPED: no _FFR_DMTRIGGER || _FFR_NOTIFY\n"); return 0; } #endif /* _FFR_DMTRIGGER || _FFR_NOTIFY */ sendmail-8.18.1/libsm/t-strl.c0000644000372400037240000000703614556365350015474 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_IDSTR(id, "@(#)$Id: t-strl.c,v 1.16 2013-11-22 20:51:44 ca Exp $") #include #include #include #include #include #define MAXL 16 #define N 5 #define SIZE 128 int main(argc, argv) int argc; char *argv[]; { char *s1, *s2, *s3; int one, two, k; char src1[N][SIZE], dst1[SIZE], dst2[SIZE]; char *r; sm_test_begin(argc, argv, "test strl* string functions"); s1 = "abc"; s2 = "123"; s3 = sm_malloc_x(MAXL); SM_TEST(sm_strlcpy(s3, s1, 4) == 3); SM_TEST(strcmp(s1, s3) == 0); SM_TEST(sm_strlcat(s3, s2, 8) == 6); r ="abc123"; SM_TEST(strcmp(s3, r) == 0); SM_TEST(sm_strlcpy(s3, s1, 2) == 3); r = "a"; SM_TEST(strcmp(s3, r) == 0); SM_TEST(sm_strlcat(s3, s2, 3) == 4); r = "a1"; SM_TEST(strcmp(s3, r) == 0); SM_TEST(sm_strlcpy(s3, s1, 4) == 3); r = ":"; SM_TEST(sm_strlcat2(s3, r, s2, MAXL) == 7); r = "abc:123"; SM_TEST(strcmp(s3, r) == 0); SM_TEST(sm_strlcpy(s3, s1, 4) == 3); r = ":"; SM_TEST(sm_strlcat2(s3, r, s2, 6) == 7); r = "abc:1"; SM_TEST(strcmp(s3, r) == 0); SM_TEST(sm_strlcpy(s3, s1, 4) == 3); r = ":"; SM_TEST(sm_strlcat2(s3, r, s2, 2) == 7); r = "abc"; SM_TEST(strcmp(s3, r) == 0); SM_TEST(sm_strlcpy(s3, s1, 4) == 3); r = ":"; SM_TEST(sm_strlcat2(s3, r, s2, 4) == 7); r = "abc"; SM_TEST(strcmp(s3, r) == 0); SM_TEST(sm_strlcpy(s3, s1, 4) == 3); r = ":"; SM_TEST(sm_strlcat2(s3, r, s2, 5) == 7); r = "abc:"; SM_TEST(strcmp(s3, r) == 0); SM_TEST(sm_strlcpy(s3, s1, 4) == 3); r = ":"; SM_TEST(sm_strlcat2(s3, r, s2, 6) == 7); r = "abc:1"; SM_TEST(strcmp(s3, r) == 0); for (k = 0; k < N; k++) { (void) sm_strlcpy(src1[k], "abcdef", sizeof src1); } one = sm_strlcpyn(dst1, sizeof dst1, 3, src1[0], "/", src1[1]); two = sm_snprintf(dst2, sizeof dst2, "%s/%s", src1[0], src1[1]); SM_TEST(one == two); SM_TEST(strcmp(dst1, dst2) == 0); one = sm_strlcpyn(dst1, 10, 3, src1[0], "/", src1[1]); two = sm_snprintf(dst2, 10, "%s/%s", src1[0], src1[1]); SM_TEST(one == two); SM_TEST(strcmp(dst1, dst2) == 0); one = sm_strlcpyn(dst1, 5, 3, src1[0], "/", src1[1]); two = sm_snprintf(dst2, 5, "%s/%s", src1[0], src1[1]); SM_TEST(one == two); SM_TEST(strcmp(dst1, dst2) == 0); one = sm_strlcpyn(dst1, 0, 3, src1[0], "/", src1[1]); two = sm_snprintf(dst2, 0, "%s/%s", src1[0], src1[1]); SM_TEST(one == two); SM_TEST(strcmp(dst1, dst2) == 0); one = sm_strlcpyn(dst1, sizeof dst1, 5, src1[0], "/", src1[1], "/", src1[2]); two = sm_snprintf(dst2, sizeof dst2, "%s/%s/%s", src1[0], src1[1], src1[2]); SM_TEST(one == two); SM_TEST(strcmp(dst1, dst2) == 0); one = sm_strlcpyn(dst1, 15, 5, src1[0], "/", src1[1], "/", src1[2]); two = sm_snprintf(dst2, 15, "%s/%s/%s", src1[0], src1[1], src1[2]); SM_TEST(one == two); SM_TEST(strcmp(dst1, dst2) == 0); one = sm_strlcpyn(dst1, 20, 5, src1[0], "/", src1[1], "/", src1[2]); two = sm_snprintf(dst2, 20, "%s/%s/%s", src1[0], src1[1], src1[2]); SM_TEST(one == two); SM_TEST(strcmp(dst1, dst2) == 0); one = sm_strlcpyn(dst1, sizeof dst1, 0); SM_TEST(one == 0); r = ""; SM_TEST(strcmp(dst1, r) == 0); one = sm_strlcpyn(dst1, 20, 1, src1[0]); two = sm_snprintf(dst2, 20, "%s", src1[0]); SM_TEST(one == two); one = sm_strlcpyn(dst1, 2, 1, src1[0]); two = sm_snprintf(dst2, 2, "%s", src1[0]); SM_TEST(one == two); return sm_test_end(); } sendmail-8.18.1/libsm/vfscanf.c0000644000372400037240000004541614556365350015701 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: vfscanf.c,v 1.55 2013-11-22 20:51:44 ca Exp $") #include #include #include #include #include #include #include #include #include #include #include #include "local.h" #define BUF 513 /* Maximum length of numeric string. */ /* Flags used during conversion. */ #define LONG 0x01 /* l: long or double */ #define SHORT 0x04 /* h: short */ #define QUAD 0x08 /* q: quad (same as ll) */ #define SUPPRESS 0x10 /* suppress assignment */ #define POINTER 0x20 /* weird %p pointer (`fake hex') */ #define NOSKIP 0x40 /* do not skip blanks */ /* ** The following are used in numeric conversions only: ** SIGNOK, NDIGITS, DPTOK, and EXPOK are for floating point; ** SIGNOK, NDIGITS, PFXOK, and NZDIGITS are for integral. */ #define SIGNOK 0x080 /* +/- is (still) legal */ #define NDIGITS 0x100 /* no digits detected */ #define DPTOK 0x200 /* (float) decimal point is still legal */ #define EXPOK 0x400 /* (float) exponent (e+3, etc) still legal */ #define PFXOK 0x200 /* 0x prefix is (still) legal */ #define NZDIGITS 0x400 /* no zero digits detected */ /* Conversion types. */ #define CT_CHAR 0 /* %c conversion */ #define CT_CCL 1 /* %[...] conversion */ #define CT_STRING 2 /* %s conversion */ #define CT_INT 3 /* integer, i.e., strtoll or strtoull */ #define CT_FLOAT 4 /* floating, i.e., strtod */ static void scanalrm __P((int)); static unsigned char *sm_sccl __P((char *, unsigned char *)); static jmp_buf ScanTimeOut; /* ** SCANALRM -- handler when timeout activated for sm_io_vfscanf() ** ** Returns flow of control to where setjmp(ScanTimeOut) was set. ** ** Parameters: ** sig -- unused ** ** Returns: ** does not return ** ** Side Effects: ** returns flow of control to setjmp(ScanTimeOut). ** ** NOTE: THIS CAN BE CALLED FROM A SIGNAL HANDLER. DO NOT ADD ** ANYTHING TO THIS ROUTINE UNLESS YOU KNOW WHAT YOU ARE ** DOING. */ /* ARGSUSED0 */ static void scanalrm(sig) int sig; { longjmp(ScanTimeOut, 1); } /* ** SM_VFSCANF -- convert input into data units ** ** Parameters: ** fp -- file pointer for input data ** timeout -- time intvl allowed to complete (milliseconds) ** fmt0 -- format for finding data units ** ap -- vectors for memory location for storing data units ** ** Results: ** Success: number of data units assigned ** Failure: SM_IO_EOF */ int sm_vfscanf(fp, timeout, fmt0, ap) register SM_FILE_T *fp; int SM_NONVOLATILE timeout; char const *fmt0; va_list ap; { register unsigned char *SM_NONVOLATILE fmt = (unsigned char *) fmt0; register int c; /* character from format, or conversion */ register size_t width; /* field width, or 0 */ register char *p; /* points into all kinds of strings */ register int n; /* handy integer */ register int flags; /* flags as defined above */ register char *p0; /* saves original value of p when necessary */ int nassigned; /* number of fields assigned */ int nread; /* number of characters consumed from fp */ int base; /* base argument to strtoll/strtoull */ /* conversion function (strtoll/strtoull) */ ULONGLONG_T (*ccfn) __P((const char *, char **, int)); char ccltab[256]; /* character class table for %[...] */ char buf[BUF]; /* buffer for numeric conversions */ SM_EVENT *evt = NULL; /* `basefix' is used to avoid `if' tests in the integer scanner */ static short basefix[17] = { 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 }; if (timeout == SM_TIME_DEFAULT) timeout = fp->f_timeout; if (timeout == SM_TIME_IMMEDIATE) { /* ** Filling the buffer will take time and we are wanted to ** return immediately. So... */ errno = EAGAIN; return SM_IO_EOF; } if (timeout != SM_TIME_FOREVER) { if (setjmp(ScanTimeOut) != 0) { errno = EAGAIN; return SM_IO_EOF; } evt = sm_seteventm(timeout, scanalrm, 0); } nassigned = 0; nread = 0; base = 0; /* XXX just to keep gcc happy */ ccfn = NULL; /* XXX just to keep gcc happy */ for (;;) { c = *fmt++; if (c == 0) { if (evt != NULL) sm_clrevent(evt); /* undo our timeout */ return nassigned; } if (isspace(c)) { while ((fp->f_r > 0 || sm_refill(fp, SM_TIME_FOREVER) == 0) && isspace(*fp->f_p)) nread++, fp->f_r--, fp->f_p++; continue; } if (c != '%') goto literal; width = 0; flags = 0; /* ** switch on the format. continue if done; ** break once format type is derived. */ again: c = *fmt++; switch (c) { case '%': literal: if (fp->f_r <= 0 && sm_refill(fp, SM_TIME_FOREVER)) goto input_failure; if (*fp->f_p != c) goto match_failure; fp->f_r--, fp->f_p++; nread++; continue; case '*': flags |= SUPPRESS; goto again; case 'h': flags |= SHORT; goto again; case 'l': if (*fmt == 'l') { fmt++; flags |= QUAD; } else { flags |= LONG; } goto again; case 'q': flags |= QUAD; goto again; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': width = width * 10 + c - '0'; goto again; /* ** Conversions. ** Those marked `compat' are for 4.[123]BSD compatibility. ** ** (According to ANSI, E and X formats are supposed ** to the same as e and x. Sorry about that.) */ case 'D': /* compat */ flags |= LONG; /* FALLTHROUGH */ case 'd': c = CT_INT; ccfn = (ULONGLONG_T (*)())sm_strtoll; base = 10; break; case 'i': c = CT_INT; ccfn = (ULONGLONG_T (*)())sm_strtoll; base = 0; break; case 'O': /* compat */ flags |= LONG; /* FALLTHROUGH */ case 'o': c = CT_INT; ccfn = sm_strtoull; base = 8; break; case 'u': c = CT_INT; ccfn = sm_strtoull; base = 10; break; case 'X': case 'x': flags |= PFXOK; /* enable 0x prefixing */ c = CT_INT; ccfn = sm_strtoull; base = 16; break; case 'E': case 'G': case 'e': case 'f': case 'g': c = CT_FLOAT; break; case 's': c = CT_STRING; break; case '[': fmt = sm_sccl(ccltab, fmt); flags |= NOSKIP; c = CT_CCL; break; case 'c': flags |= NOSKIP; c = CT_CHAR; break; case 'p': /* pointer format is like hex */ flags |= POINTER | PFXOK; c = CT_INT; ccfn = sm_strtoull; base = 16; break; case 'n': if (flags & SUPPRESS) /* ??? */ continue; if (flags & SHORT) *SM_VA_ARG(ap, short *) = nread; else if (flags & LONG) *SM_VA_ARG(ap, long *) = nread; else *SM_VA_ARG(ap, int *) = nread; continue; /* Disgusting backwards compatibility hacks. XXX */ case '\0': /* compat */ if (evt != NULL) sm_clrevent(evt); /* undo our timeout */ return SM_IO_EOF; default: /* compat */ if (isupper(c)) flags |= LONG; c = CT_INT; ccfn = (ULONGLONG_T (*)()) sm_strtoll; base = 10; break; } /* We have a conversion that requires input. */ if (fp->f_r <= 0 && sm_refill(fp, SM_TIME_FOREVER)) goto input_failure; /* ** Consume leading white space, except for formats ** that suppress this. */ if ((flags & NOSKIP) == 0) { while (isspace(*fp->f_p)) { nread++; if (--fp->f_r > 0) fp->f_p++; else if (sm_refill(fp, SM_TIME_FOREVER)) goto input_failure; } /* ** Note that there is at least one character in ** the buffer, so conversions that do not set NOSKIP ** can no longer result in an input failure. */ } /* Do the conversion. */ switch (c) { case CT_CHAR: /* scan arbitrary characters (sets NOSKIP) */ if (width == 0) width = 1; if (flags & SUPPRESS) { size_t sum = 0; for (;;) { if ((size_t) (n = fp->f_r) < width) { sum += n; width -= n; fp->f_p += n; if (sm_refill(fp, SM_TIME_FOREVER)) { if (sum == 0) goto input_failure; break; } } else { sum += width; fp->f_r -= width; fp->f_p += width; break; } } nread += sum; } else { size_t r; r = sm_io_read(fp, SM_TIME_FOREVER, (void *) SM_VA_ARG(ap, char *), width); if (r == 0) goto input_failure; nread += r; nassigned++; } break; case CT_CCL: /* scan a (nonempty) character class (sets NOSKIP) */ if (width == 0) width = (size_t)~0; /* `infinity' */ /* take only those things in the class */ if (flags & SUPPRESS) { n = 0; while (ccltab[*fp->f_p] != '\0') { n++, fp->f_r--, fp->f_p++; if (--width == 0) break; if (fp->f_r <= 0 && sm_refill(fp, SM_TIME_FOREVER)) { if (n == 0) /* XXX how? */ goto input_failure; break; } } if (n == 0) goto match_failure; } else { p0 = p = SM_VA_ARG(ap, char *); while (ccltab[*fp->f_p] != '\0') { fp->f_r--; *p++ = *fp->f_p++; if (--width == 0) break; if (fp->f_r <= 0 && sm_refill(fp, SM_TIME_FOREVER)) { if (p == p0) goto input_failure; break; } } n = p - p0; if (n == 0) goto match_failure; *p = 0; nassigned++; } nread += n; break; case CT_STRING: /* like CCL, but zero-length string OK, & no NOSKIP */ if (width == 0) width = (size_t)~0; if (flags & SUPPRESS) { n = 0; while (!isspace(*fp->f_p)) { n++, fp->f_r--, fp->f_p++; if (--width == 0) break; if (fp->f_r <= 0 && sm_refill(fp, SM_TIME_FOREVER)) break; } nread += n; } else { p0 = p = SM_VA_ARG(ap, char *); while (!isspace(*fp->f_p)) { fp->f_r--; *p++ = *fp->f_p++; if (--width == 0) break; if (fp->f_r <= 0 && sm_refill(fp, SM_TIME_FOREVER)) break; } *p = 0; nread += p - p0; nassigned++; } continue; case CT_INT: /* scan an integer as if by strtoll/strtoull */ #if SM_CONF_BROKEN_SIZE_T if (width == 0 || width > sizeof(buf) - 1) width = sizeof(buf) - 1; #else /* SM_CONF_BROKEN_SIZE_T */ /* size_t is unsigned, hence this optimisation */ if (--width > sizeof(buf) - 2) width = sizeof(buf) - 2; width++; #endif /* SM_CONF_BROKEN_SIZE_T */ flags |= SIGNOK | NDIGITS | NZDIGITS; for (p = buf; width > 0; width--) { c = *fp->f_p; /* ** Switch on the character; `goto ok' ** if we accept it as a part of number. */ switch (c) { /* ** The digit 0 is always legal, but is ** special. For %i conversions, if no ** digits (zero or nonzero) have been ** scanned (only signs), we will have ** base==0. In that case, we should set ** it to 8 and enable 0x prefixing. ** Also, if we have not scanned zero digits ** before this, do not turn off prefixing ** (someone else will turn it off if we ** have scanned any nonzero digits). */ case '0': if (base == 0) { base = 8; flags |= PFXOK; } if (flags & NZDIGITS) flags &= ~(SIGNOK|NZDIGITS|NDIGITS); else flags &= ~(SIGNOK|PFXOK|NDIGITS); goto ok; /* 1 through 7 always legal */ case '1': case '2': case '3': case '4': case '5': case '6': case '7': base = basefix[base]; flags &= ~(SIGNOK | PFXOK | NDIGITS); goto ok; /* digits 8 and 9 ok iff decimal or hex */ case '8': case '9': base = basefix[base]; if (base <= 8) break; /* not legal here */ flags &= ~(SIGNOK | PFXOK | NDIGITS); goto ok; /* letters ok iff hex */ case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': /* no need to fix base here */ if (base <= 10) break; /* not legal here */ flags &= ~(SIGNOK | PFXOK | NDIGITS); goto ok; /* sign ok only as first character */ case '+': case '-': if (flags & SIGNOK) { flags &= ~SIGNOK; goto ok; } break; /* x ok iff flag still set & 2nd char */ case 'x': case 'X': if (flags & PFXOK && p == buf + 1) { base = 16; /* if %i */ flags &= ~PFXOK; goto ok; } break; } /* ** If we got here, c is not a legal character ** for a number. Stop accumulating digits. */ break; ok: /* c is legal: store it and look at the next. */ *p++ = c; if (--fp->f_r > 0) fp->f_p++; else if (sm_refill(fp, SM_TIME_FOREVER)) break; /* SM_IO_EOF */ } /* ** If we had only a sign, it is no good; push ** back the sign. If the number ends in `x', ** it was [sign] '0' 'x', so push back the x ** and treat it as [sign] '0'. */ if (flags & NDIGITS) { if (p > buf) (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, *(unsigned char *)--p); goto match_failure; } c = ((unsigned char *)p)[-1]; if (c == 'x' || c == 'X') { --p; (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, c); } if ((flags & SUPPRESS) == 0) { ULONGLONG_T res; *p = 0; res = (*ccfn)(buf, (char **)NULL, base); if (flags & POINTER) *SM_VA_ARG(ap, void **) = (void *)(long) res; else if (flags & QUAD) *SM_VA_ARG(ap, LONGLONG_T *) = res; else if (flags & LONG) *SM_VA_ARG(ap, long *) = res; else if (flags & SHORT) *SM_VA_ARG(ap, short *) = res; else *SM_VA_ARG(ap, int *) = res; nassigned++; } nread += p - buf; break; case CT_FLOAT: /* scan a floating point number as if by strtod */ if (width == 0 || width > sizeof(buf) - 1) width = sizeof(buf) - 1; flags |= SIGNOK | NDIGITS | DPTOK | EXPOK; for (p = buf; width; width--) { c = *fp->f_p; /* ** This code mimics the integer conversion ** code, but is much simpler. */ switch (c) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': flags &= ~(SIGNOK | NDIGITS); goto fok; case '+': case '-': if (flags & SIGNOK) { flags &= ~SIGNOK; goto fok; } break; case '.': if (flags & DPTOK) { flags &= ~(SIGNOK | DPTOK); goto fok; } break; case 'e': case 'E': /* no exponent without some digits */ if ((flags&(NDIGITS|EXPOK)) == EXPOK) { flags = (flags & ~(EXPOK|DPTOK)) | SIGNOK | NDIGITS; goto fok; } break; } break; fok: *p++ = c; if (--fp->f_r > 0) fp->f_p++; else if (sm_refill(fp, SM_TIME_FOREVER)) break; /* SM_IO_EOF */ } /* ** If no digits, might be missing exponent digits ** (just give back the exponent) or might be missing ** regular digits, but had sign and/or decimal point. */ if (flags & NDIGITS) { if (flags & EXPOK) { /* no digits at all */ while (p > buf) (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, *(unsigned char *)--p); goto match_failure; } /* just a bad exponent (e and maybe sign) */ c = *(unsigned char *) --p; if (c != 'e' && c != 'E') { (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, c); /* sign */ c = *(unsigned char *)--p; } (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, c); } if ((flags & SUPPRESS) == 0) { double res; *p = 0; res = strtod(buf, (char **) NULL); if (flags & LONG) *SM_VA_ARG(ap, double *) = res; else *SM_VA_ARG(ap, float *) = res; nassigned++; } nread += p - buf; break; } } input_failure: if (evt != NULL) sm_clrevent(evt); /* undo our timeout */ return nassigned ? nassigned : -1; match_failure: if (evt != NULL) sm_clrevent(evt); /* undo our timeout */ return nassigned; } /* ** SM_SCCL -- sequenced character comparison list ** ** Fill in the given table from the scanset at the given format ** (just after `['). Return a pointer to the character past the ** closing `]'. The table has a 1 wherever characters should be ** considered part of the scanset. ** ** Parameters: ** tab -- array flagging "active" char's to match (returned) ** fmt -- character list (within "[]") ** ** Results: */ static unsigned char * sm_sccl(tab, fmt) register char *tab; register unsigned char *fmt; { register int c, n, v; /* first `clear' the whole table */ c = *fmt++; /* first char hat => negated scanset */ if (c == '^') { v = 1; /* default => accept */ c = *fmt++; /* get new first char */ } else v = 0; /* default => reject */ /* should probably use memset here */ for (n = 0; n < 256; n++) tab[n] = v; if (c == 0) return fmt - 1; /* format ended before closing ] */ /* ** Now set the entries corresponding to the actual scanset ** to the opposite of the above. ** ** The first character may be ']' (or '-') without being special; ** the last character may be '-'. */ v = 1 - v; for (;;) { tab[c] = v; /* take character c */ doswitch: n = *fmt++; /* and examine the next */ switch (n) { case 0: /* format ended too soon */ return fmt - 1; case '-': /* ** A scanset of the form ** [01+-] ** is defined as `the digit 0, the digit 1, ** the character +, the character -', but ** the effect of a scanset such as ** [a-zA-Z0-9] ** is implementation defined. The V7 Unix ** scanf treats `a-z' as `the letters a through ** z', but treats `a-a' as `the letter a, the ** character -, and the letter a'. ** ** For compatibility, the `-' is not considered ** to define a range if the character following ** it is either a close bracket (required by ANSI) ** or is not numerically greater than the character ** we just stored in the table (c). */ n = *fmt; if (n == ']' || n < c) { c = '-'; break; /* resume the for(;;) */ } fmt++; do { /* fill in the range */ tab[++c] = v; } while (c < n); #if 1 /* XXX another disgusting compatibility hack */ /* ** Alas, the V7 Unix scanf also treats formats ** such as [a-c-e] as `the letters a through e'. ** This too is permitted by the standard.... */ goto doswitch; #else c = *fmt++; if (c == 0) return fmt - 1; if (c == ']') return fmt; break; #endif case ']': /* end of scanset */ return fmt; default: /* just another character */ c = n; break; } } /* NOTREACHED */ } sendmail-8.18.1/libsm/uxtext_unquote.c0000644000372400037240000001443514556365350017371 0ustar xbuildxbuild/* * Copyright (c) 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include /* ** based on ** https://github.com/aox/encodings/utf.cpp ** see license.txt included below. */ #if USE_EAI #include #define SM_ISDIGIT(c) (isascii(c) && isdigit(c)) #include /* for prototype */ #include # if 0 /* ** RFC 6533: ** ** In the ABNF below, all productions not defined in this document are ** defined in Appendix B of [RFC5234], in Section 4 of [RFC3629], or in ** [RFC3464]. ** ** utf-8-type-addr = "utf-8;" utf-8-enc-addr ** utf-8-address = Mailbox ; Mailbox as defined in [RFC6531]. ** utf-8-enc-addr = utf-8-addr-xtext / ** utf-8-addr-unitext / ** utf-8-address ** utf-8-addr-xtext = 1*(QCHAR / EmbeddedUnicodeChar) ** ; 7bit form of utf-8-addr-unitext. ** ; Safe for use in the ORCPT [RFC3461] ** ; parameter even when SMTPUTF8 SMTP ** ; extension is not advertised. ** utf-8-addr-unitext = 1*(QUCHAR / EmbeddedUnicodeChar) ** ; MUST follow utf-8-address ABNF when ** ; dequoted. ** ; Safe for using in the ORCPT [RFC3461] ** ; parameter when SMTPUTF8 SMTP extension ** ; is also advertised. ** QCHAR = %x21-2a / %x2c-3c / %x3e-5b / %x5d-7e ** ; ASCII printable characters except ** ; CTLs, SP, '\', '+', '='. ** QUCHAR = QCHAR / UTF8-2 / UTF8-3 / UTF8-4 ** ; ASCII printable characters except ** ; CTLs, SP, '\', '+' and '=', plus ** ; other Unicode characters encoded in UTF-8 ** EmbeddedUnicodeChar = %x5C.78 "{" HEXPOINT "}" ** ; starts with "\x" ** HEXPOINT = ( ( "0"/"1" ) %x31-39 ) / "10" / "20" / ** "2B" / "3D" / "7F" / ; all xtext-specials ** "5C" / (HEXDIG8 HEXDIG) / ; 2-digit forms ** ( NZHEXDIG 2(HEXDIG) ) / ; 3-digit forms ** ( NZDHEXDIG 3(HEXDIG) ) / ; 4-digit forms excluding ** ( "D" %x30-37 2(HEXDIG) ) / ; ... surrogate ** ( NZHEXDIG 4(HEXDIG) ) / ; 5-digit forms ** ( "10" 4*HEXDIG ) ; 6-digit forms ** ; represents either "\" or a Unicode code point outside ** ; the ASCII repertoire ** HEXDIG8 = %x38-39 / "A" / "B" / "C" / "D" / "E" / "F" ** ; HEXDIG excluding 0-7 ** NZHEXDIG = %x31-39 / "A" / "B" / "C" / "D" / "E" / "F" ** ; HEXDIG excluding "0" ** NZDHEXDIG = %x31-39 / "A" / "B" / "C" / "E" / "F" ** ; HEXDIG excluding "0" and "D" */ # endif /* 0 */ /* ** UXTEXT_UNQUOTE -- "unquote" a utf-8-addr-unitext ** ** Parameters: ** quoted -- original string [x] ** unquoted -- "decoded" string [x] (buffer provided by caller) ** if NULL this is basically a syntax check. ** olen -- length of unquoted (must be > 0) ** ** Returns: ** >0: length of "decoded" string ** <0: error */ int uxtext_unquote(quoted, unquoted, olen) const char *quoted; char *unquoted; int olen; { const unsigned char *cp; int ch, len; #define APPCH(ch) do \ { \ if (len >= olen) \ return 0 - olen; \ if (NULL != unquoted) \ unquoted[len] = (char) (ch); \ len++; \ } while (0) SM_REQUIRE(olen > 0); SM_REQUIRE(NULL != quoted); len = 0; for (cp = (const unsigned char *) quoted; (ch = *cp) != 0; cp++) { if (ch == '\\' && cp[1] == 'x' && cp[2] == '{') { int uc = 0; cp += 2; while ((ch = *++cp) != '}') { if (SM_ISDIGIT(ch)) uc = (uc << 4) + (ch - '0'); else if (ch >= 'a' && ch <= 'f') uc = (uc << 4) + (ch - 'a' + 10); else if (ch >= 'A' && ch <= 'F') uc = (uc << 4) + (ch - 'A' + 10); else return 0 - len; if (uc > 0x10ffff) return 0 - len; } if (uc < 0x80) APPCH(uc); else if (uc < 0x800) { APPCH(0xc0 | ((char) (uc >> 6))); APPCH(0x80 | ((char) (uc & 0x3f))); } else if (uc < 0x10000) { APPCH(0xe0 | ((char) (uc >> 12))); APPCH(0x80 | ((char) (uc >> 6) & 0x3f)); APPCH(0x80 | ((char) (uc & 0x3f))); } else if (uc < 0x200000) { APPCH(0xf0 | ((char) (uc >> 18))); APPCH(0x80 | ((char) (uc >> 12) & 0x3f)); APPCH(0x80 | ((char) (uc >> 6) & 0x3f)); APPCH(0x80 | ((char) (uc & 0x3f))); } else if (uc < 0x4000000) { APPCH(0xf8 | ((char) (uc >> 24))); APPCH(0x80 | ((char) (uc >> 18) & 0x3f)); APPCH(0x80 | ((char) (uc >> 12) & 0x3f)); APPCH(0x80 | ((char) (uc >> 6) & 0x3f)); APPCH(0x80 | ((char) (uc & 0x3f))); } else { APPCH(0xfc | ((char) (uc >> 30))); APPCH(0x80 | ((char) (uc >> 24) & 0x3f)); APPCH(0x80 | ((char) (uc >> 18) & 0x3f)); APPCH(0x80 | ((char) (uc >> 12) & 0x3f)); APPCH(0x80 | ((char) (uc >> 6) & 0x3f)); APPCH(0x80 | ((char) (uc & 0x3f))); } } else APPCH(ch); } APPCH('\0'); return len; } # if 0 aox/doc/readme/license.txt Copyright (c) 2003-2014, Archiveopteryx and its contributors. Permission to use, copy, modify, and distribute this software and its documentation for any purpose, without fee, and without a written agreement is hereby granted, provided that the above copyright notice and this paragraph and the following two paragraphs appear in all copies. IN NO EVENT SHALL ORYX BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF ORYX HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ORYX SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" BASIS, AND ORYX HAS NO OBLIGATIONS TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. # endif /* 0 */ #endif /* USE_EAI */ sendmail-8.18.1/libsm/fread.c0000644000372400037240000000444114556365350015325 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fread.c,v 1.29 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include "local.h" /* ** SM_IO_READ -- read data from the file pointer ** ** Parameters: ** fp -- file pointer to read from ** timeout -- time to complete the read ** buf -- location to place read data ** size -- size of each chunk of data ** ** Returns: ** Failure: returns 0 (zero) _and_ sets errno ** Success: returns the number of whole chunks read. ** ** A read returning 0 (zero) is only an indication of error when errno ** has been set. */ size_t sm_io_read(fp, timeout, buf, size) SM_FILE_T *fp; int timeout; void *buf; size_t size; { register size_t resid = size; register char *p; register int r; SM_REQUIRE_ISA(fp, SmFileMagic); if (fp->f_read == NULL) { errno = ENODEV; return 0; } /* ** The ANSI standard requires a return value of 0 for a count ** or a size of 0. Peculiarily, it imposes no such requirements ** on fwrite; it only requires read to be broken. */ if (resid == 0) return 0; if (fp->f_r < 0) fp->f_r = 0; p = buf; while ((int) resid > (r = fp->f_r)) { (void) memcpy((void *) p, (void *) fp->f_p, (size_t) r); fp->f_p += r; /* fp->f_r = 0 ... done in sm_refill */ p += r; resid -= r; if ((fp->f_flags & SMNOW) != 0 && r > 0) { /* ** Take whatever we have available. Spend no more time ** trying to get all that has been requested. ** This is needed on some file types (such as ** SASL) that would jam when given extra, untimely ** reads. */ fp->f_r -= r; return size - resid; } if (sm_refill(fp, timeout) != 0) { /* no more input: return partial result */ return size - resid; } } (void) memcpy((void *) p, (void *) fp->f_p, resid); fp->f_r -= resid; fp->f_p += resid; return size; } sendmail-8.18.1/libsm/syslogio.c0000644000372400037240000001015414556365350016112 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: syslogio.c,v 1.30 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #ifdef SM_RPOOL # include #endif #include #include "local.h" /* ** Overall: ** This is a output file type that copies its output to the syslog daemon. ** Each line of output is written as a separate syslog message. ** The client is responsible for calling openlog() before writing to ** any syslog file, and calling closelog() after all syslog output is complete. ** The only state associated with a syslog file is 'int priority', ** which we store in fp->f_ival. */ /* ** SM_SYSLOGOPEN -- open a file pointer to syslog ** ** Parameters: ** fp -- file pointer assigned for the open ** info -- priority level of the syslog messages ** flags -- not used ** rpool -- ignored ** ** Returns: ** 0 (zero) success always (see Overall) */ int sm_syslogopen(fp, info, flags, rpool) SM_FILE_T *fp; const void *info; int flags; const void *rpool; { int *priority = (int *)info; fp->f_ival = *priority; return 0; } /* ** SM_SYSLOGREAD -- read function for syslog ** ** This is a "stub" function (placeholder) that always returns an error. ** It is an error to read syslog. ** ** Parameters: ** fp -- the file pointer ** buf -- buffer to place the data read ** n -- number of bytes to read ** ** Returns: ** -1 (error) always and sets errno */ ssize_t sm_syslogread(fp, buf, n) SM_FILE_T *fp; char *buf; size_t n; { /* an error to read */ errno = ENODEV; return -1; } /* ** SM_SYSLOGWRITE -- write function for syslog ** ** Send output to syslog. ** ** Parameters: ** fp -- the file pointer ** buf -- buffer that the write data comes from ** n -- number of bytes to write ** ** Returns: ** 0 (zero) for success always */ /* ** XXX TODO: more work needs to be done to ensure that each line of output ** XXX written to a syslog file is mapped to exactly one syslog message. */ ssize_t sm_syslogwrite(fp, buf, n) SM_FILE_T *fp; char const *buf; size_t n; { syslog(fp->f_ival, "%s", buf); return 0; } /* ** SM_SYSLOGSEEK -- position the syslog file offset ** ** This is a "stub" function (placeholder) that always returns an error. ** It is an error to seek syslog. ** ** Parameters: ** fp -- the file pointer ** offset -- the new offset position relative to 'whence' ** whence -- flag indicating start of 'offset' ** ** Returns: ** -1 (error) always. */ off_t sm_syslogseek(fp, offset, whence) SM_FILE_T *fp; off_t offset; int whence; { errno = ENODEV; return -1; } /* ** SM_SYSLOGCLOSE -- close the syslog file pointer ** ** Parameters: ** fp -- the file pointer ** ** Returns: ** 0 (zero) success always (see Overall) ** */ int sm_syslogclose(fp) SM_FILE_T *fp; { return 0; } /* ** SM_SYSLOGSETINFO -- set information for the file pointer ** ** Parameters: ** fp -- the file pointer being set ** what -- what information is being set ** valp -- information content being set to ** ** Returns: ** -1 on failure ** 0 (zero) on success ** ** Side Effects: ** Sets internal file pointer data */ int sm_syslogsetinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { switch (what) { case SM_IO_SL_PRIO: fp->f_ival = *((int *)(valp)); return 0; default: errno = EINVAL; return -1; } } /* ** SM_SYSLOGGETINFO -- get information relating to the file pointer ** ** Parameters: ** fp -- the file pointer being queried ** what -- the information type being queried ** valp -- location to placed queried information ** ** Returns: ** 0 (zero) on success ** -1 on failure ** ** Side Effects: ** Fills in 'valp' with data. */ int sm_sysloggetinfo(fp, what, valp) SM_FILE_T *fp; int what; void *valp; { switch (what) { case SM_IO_SL_PRIO: *((int *)(valp)) = fp->f_ival; return 0; default: errno = EINVAL; return -1; } } sendmail-8.18.1/libsm/fget.c0000644000372400037240000000457514556365350015201 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fget.c,v 1.26 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include "local.h" /* ** SM_IO_FGETS -- get a string from a file ** ** Read at most n-1 characters from the given file. ** Stop when a newline has been read, or the count ('n') runs out. ** ** Parameters: ** fp -- the file to read from ** timeout -- time to complete reading the string in milliseconds ** buf -- buffer to place read string in ** n -- size of 'buf' ** ** Returns: ** success: number of characters ** failure: -1 ** timeout: -1 and errno set to EAGAIN ** ** Side Effects: ** may move the file pointer */ int sm_io_fgets(fp, timeout, buf, n) register SM_FILE_T *fp; int timeout; char *buf; register int n; { int len, r; char *s; unsigned char *p, *t; SM_REQUIRE_ISA(fp, SmFileMagic); if (n <= 0) /* sanity check */ return -1; s = buf; n--; /* leave space for NUL */ r = 0; while (n > 0) { /* If the buffer is empty, refill it. */ if ((len = fp->f_r) <= 0) { /* ** Timeout is only passed if we can't get the data ** from the buffer (which is counted as immediately). */ if (sm_refill(fp, timeout) != 0) { /* EOF/error: stop with partial or no line */ if (s == buf) return -1; break; } len = fp->f_r; } p = fp->f_p; /* ** Scan through at most n bytes of the current buffer, ** looking for '\n'. If found, copy up to and including ** newline, and stop. Otherwise, copy entire chunk ** and loop. */ if (len > n) len = n; t = (unsigned char *) memchr((void *) p, '\n', len); if (t != NULL) { len = ++t - p; r += len; fp->f_r -= len; fp->f_p = t; (void) memcpy((void *) s, (void *) p, len); s[len] = 0; return r; } fp->f_r -= len; fp->f_p += len; (void) memcpy((void *) s, (void *) p, len); s += len; r += len; n -= len; } *s = 0; return r; } sendmail-8.18.1/libsm/vfprintf.c0000644000372400037240000006016714556365350016111 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: vfprintf.c,v 1.55 2013-11-22 20:51:44 ca Exp $") /* ** Overall: ** Actual printing innards. ** This code is large and complicated... */ #include #include #include #include #include #include #include #include #include #include "local.h" #include "fvwrite.h" static int sm_bprintf __P((SM_FILE_T *, const char *, va_list)); static void sm_find_arguments __P((const char *, va_list , va_list **)); static void sm_grow_type_table_x __P((unsigned char **, int *)); static int sm_print __P((SM_FILE_T *, int, struct sm_uio *)); /* ** SM_PRINT -- print/flush to the file ** ** Flush out all the vectors defined by the given uio, ** then reset it so that it can be reused. ** ** Parameters: ** fp -- file pointer ** timeout -- time to complete operation (milliseconds) ** uio -- vector list of memory locations of data for printing ** ** Results: ** Success: 0 (zero) ** Failure: */ static int sm_print(fp, timeout, uio) SM_FILE_T *fp; int timeout; register struct sm_uio *uio; { register int err; if (uio->uio_resid == 0) { uio->uio_iovcnt = 0; return 0; } err = sm_fvwrite(fp, timeout, uio); uio->uio_resid = 0; uio->uio_iovcnt = 0; return err; } /* ** SM_BPRINTF -- allow formatting to an unbuffered file. ** ** Helper function for `fprintf to unbuffered unix file': creates a ** temporary buffer (via a "fake" file pointer). ** We only work on write-only files; this avoids ** worries about ungetc buffers and so forth. ** ** Parameters: ** fp -- the file to send the o/p to ** fmt -- format instructions for the o/p ** ap -- vectors of data units used for formatting ** ** Results: ** Failure: SM_IO_EOF and errno set ** Success: number of data units used in the formatting ** ** Side effects: ** formatted o/p can be SM_IO_BUFSIZ length maximum */ static int sm_bprintf(fp, fmt, ap) SM_FILE_T *fp; const char *fmt; va_list ap; { int ret; SM_FILE_T fake; unsigned char buf[SM_IO_BUFSIZ]; extern const char SmFileMagic[]; /* copy the important variables */ fake.sm_magic = SmFileMagic; fake.f_timeout = SM_TIME_FOREVER; fake.f_timeoutstate = SM_TIME_BLOCK; fake.f_flags = fp->f_flags & ~SMNBF; fake.f_file = fp->f_file; fake.f_cookie = fp->f_cookie; fake.f_write = fp->f_write; fake.f_close = NULL; fake.f_open = NULL; fake.f_read = NULL; fake.f_seek = NULL; fake.f_setinfo = fake.f_getinfo = NULL; fake.f_type = "sm_bprintf:fake"; /* set up the buffer */ fake.f_bf.smb_base = fake.f_p = buf; fake.f_bf.smb_size = fake.f_w = sizeof(buf); fake.f_lbfsize = 0; /* not actually used, but Just In Case */ /* do the work, then copy any error status */ ret = sm_io_vfprintf(&fake, SM_TIME_FOREVER, fmt, ap); if (ret >= 0 && sm_io_flush(&fake, SM_TIME_FOREVER)) ret = SM_IO_EOF; /* errno set by sm_io_flush */ if (fake.f_flags & SMERR) fp->f_flags |= SMERR; return ret; } #define BUF 40 #define STATIC_ARG_TBL_SIZE 8 /* Size of static argument table. */ /* Macros for converting digits to letters and vice versa */ #define to_digit(c) ((c) - '0') #define is_digit(c) ((unsigned) to_digit(c) <= 9) #define to_char(n) ((char) (n) + '0') /* Flags used during conversion. */ #define ALT 0x001 /* alternate form */ #define HEXPREFIX 0x002 /* add 0x or 0X prefix */ #define LADJUST 0x004 /* left adjustment */ #define LONGINT 0x010 /* long integer */ #define QUADINT 0x020 /* quad integer */ #define SHORTINT 0x040 /* short integer */ #define ZEROPAD 0x080 /* zero (as opposed to blank) pad */ #define FPT 0x100 /* Floating point number */ /* ** SM_IO_VFPRINTF -- performs actual formatting for o/p ** ** Parameters: ** fp -- file pointer for o/p ** timeout -- time to complete the print ** fmt0 -- formatting directives ** ap -- vectors with data units for formatting ** ** Results: ** Success: number of data units used for formatting ** Failure: SM_IO_EOF and sets errno */ int sm_io_vfprintf(fp, timeout, fmt0, ap) SM_FILE_T *fp; int timeout; const char *fmt0; va_list ap; { register char *fmt; /* format string */ register int ch; /* character from fmt */ register int n, m, n2; /* handy integers (short term usage) */ register char *cp; /* handy char pointer (short term usage) */ register struct sm_iov *iovp;/* for PRINT macro */ register int flags; /* flags as above */ int ret; /* return value accumulator */ int width; /* width from format (%8d), or 0 */ int prec; /* precision from format (%.3d), or -1 */ char sign; /* sign prefix (' ', '+', '-', or \0) */ wchar_t wc; ULONGLONG_T _uquad; /* integer arguments %[diouxX] */ enum { OCT, DEC, HEX } base;/* base for [diouxX] conversion */ int dprec; /* a copy of prec if [diouxX], 0 otherwise */ int realsz; /* field size expanded by dprec */ int size; /* size of converted field or string */ char *xdigs="0123456789abcdef"; /* digits for [xX] conversion */ #define NIOV 8 struct sm_uio uio; /* output information: summary */ struct sm_iov iov[NIOV];/* ... and individual io vectors */ char buf[BUF]; /* space for %c, %[diouxX], %[eEfgG] */ char ox[2]; /* space for 0x hex-prefix */ va_list *argtable; /* args, built due to positional arg */ va_list statargtable[STATIC_ARG_TBL_SIZE]; int nextarg; /* 1-based argument index */ va_list orgap; /* original argument pointer */ /* ** Choose PADSIZE to trade efficiency vs. size. If larger printf ** fields occur frequently, increase PADSIZE and make the initialisers ** below longer. */ #define PADSIZE 16 /* pad chunk size */ static char blanks[PADSIZE] = {' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '}; static char zeroes[PADSIZE] = {'0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0'}; /* ** BEWARE, these `goto error' on error, and PAD uses `n'. */ #define PRINT(ptr, len) do { \ iovp->iov_base = (ptr); \ iovp->iov_len = (len); \ uio.uio_resid += (len); \ iovp++; \ if (++uio.uio_iovcnt >= NIOV) \ { \ if (sm_print(fp, timeout, &uio)) \ goto error; \ iovp = iov; \ } \ } while (0) #define PAD(howmany, with) do \ { \ if ((n = (howmany)) > 0) \ { \ while (n > PADSIZE) { \ PRINT(with, PADSIZE); \ n -= PADSIZE; \ } \ PRINT(with, n); \ } \ } while (0) #define FLUSH() do \ { \ if (uio.uio_resid && sm_print(fp, timeout, &uio)) \ goto error; \ uio.uio_iovcnt = 0; \ iovp = iov; \ } while (0) /* ** To extend shorts properly, we need both signed and unsigned ** argument extraction methods. */ #define SARG() \ (flags&QUADINT ? SM_VA_ARG(ap, LONGLONG_T) : \ flags&LONGINT ? GETARG(long) : \ flags&SHORTINT ? (long) (short) GETARG(int) : \ (long) GETARG(int)) #define UARG() \ (flags&QUADINT ? SM_VA_ARG(ap, ULONGLONG_T) : \ flags&LONGINT ? GETARG(unsigned long) : \ flags&SHORTINT ? (unsigned long) (unsigned short) GETARG(int) : \ (unsigned long) GETARG(unsigned int)) /* ** Get * arguments, including the form *nn$. Preserve the nextarg ** that the argument can be gotten once the type is determined. */ #define GETASTER(val) \ n2 = 0; \ cp = fmt; \ while (is_digit(*cp)) \ { \ n2 = 10 * n2 + to_digit(*cp); \ cp++; \ } \ if (*cp == '$') \ { \ int hold = nextarg; \ if (argtable == NULL) \ { \ argtable = statargtable; \ sm_find_arguments(fmt0, orgap, &argtable); \ } \ nextarg = n2; \ val = GETARG(int); \ nextarg = hold; \ fmt = ++cp; \ } \ else \ { \ val = GETARG(int); \ } /* ** Get the argument indexed by nextarg. If the argument table is ** built, use it to get the argument. If its not, get the next ** argument (and arguments must be gotten sequentially). */ #if SM_VA_STD # define GETARG(type) \ (((argtable != NULL) ? (void) (ap = argtable[nextarg]) : (void) 0), \ nextarg++, SM_VA_ARG(ap, type)) #else /* SM_VA_STD */ # define GETARG(type) \ ((argtable != NULL) ? (*((type*)(argtable[nextarg++]))) : \ (nextarg++, SM_VA_ARG(ap, type))) #endif /* SM_VA_STD */ /* sorry, fprintf(read_only_file, "") returns SM_IO_EOF, not 0 */ if (cantwrite(fp)) { errno = EBADF; return SM_IO_EOF; } /* optimise fprintf(stderr) (and other unbuffered Unix files) */ if ((fp->f_flags & (SMNBF|SMWR|SMRW)) == (SMNBF|SMWR) && fp->f_file >= 0) return sm_bprintf(fp, fmt0, ap); fmt = (char *) fmt0; argtable = NULL; nextarg = 1; SM_VA_COPY(orgap, ap); uio.uio_iov = iovp = iov; uio.uio_resid = 0; uio.uio_iovcnt = 0; ret = 0; /* Scan the format for conversions (`%' character). */ for (;;) { cp = fmt; n = 0; while ((wc = *fmt) != '\0') { if (wc == '%') { n = 1; break; } fmt++; } if ((m = fmt - cp) != 0) { PRINT(cp, m); ret += m; } if (n <= 0) goto done; fmt++; /* skip over '%' */ flags = 0; dprec = 0; width = 0; prec = -1; sign = '\0'; rflag: ch = *fmt++; reswitch: switch (ch) { case ' ': /* ** ``If the space and + flags both appear, the space ** flag will be ignored.'' ** -- ANSI X3J11 */ if (!sign) sign = ' '; goto rflag; case '#': flags |= ALT; goto rflag; case '*': /* ** ``A negative field width argument is taken as a ** - flag followed by a positive field width.'' ** -- ANSI X3J11 ** They don't exclude field widths read from args. */ GETASTER(width); if (width >= 0) goto rflag; width = -width; /* FALLTHROUGH */ case '-': flags |= LADJUST; goto rflag; case '+': sign = '+'; goto rflag; case '.': if ((ch = *fmt++) == '*') { GETASTER(n); prec = n < 0 ? -1 : n; goto rflag; } n = 0; while (is_digit(ch)) { n = 10 * n + to_digit(ch); ch = *fmt++; } if (ch == '$') { nextarg = n; if (argtable == NULL) { argtable = statargtable; sm_find_arguments(fmt0, orgap, &argtable); } goto rflag; } prec = n < 0 ? -1 : n; goto reswitch; case '0': /* ** ``Note that 0 is taken as a flag, not as the ** beginning of a field width.'' ** -- ANSI X3J11 */ flags |= ZEROPAD; goto rflag; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': n = 0; do { n = 10 * n + to_digit(ch); ch = *fmt++; } while (is_digit(ch)); if (ch == '$') { nextarg = n; if (argtable == NULL) { argtable = statargtable; sm_find_arguments(fmt0, orgap, &argtable); } goto rflag; } width = n; goto reswitch; case 'h': flags |= SHORTINT; goto rflag; case 'l': if (*fmt == 'l') { fmt++; flags |= QUADINT; } else { flags |= LONGINT; } goto rflag; case 'q': flags |= QUADINT; goto rflag; case 'c': *(cp = buf) = GETARG(int); size = 1; sign = '\0'; break; case 'D': flags |= LONGINT; /*FALLTHROUGH*/ case 'd': case 'i': _uquad = SARG(); if ((LONGLONG_T) _uquad < 0) { _uquad = -(LONGLONG_T) _uquad; sign = '-'; } base = DEC; goto number; case 'e': case 'E': case 'f': case 'g': case 'G': { double val; char *p; char fmt[16]; char out[150]; size_t len; /* ** This code implements floating point output ** in the most portable manner possible, ** relying only on 'sprintf' as defined by ** the 1989 ANSI C standard. ** We silently cap width and precision ** at 120, to avoid buffer overflow. */ val = GETARG(double); p = fmt; *p++ = '%'; if (sign) *p++ = sign; if (flags & ALT) *p++ = '#'; if (flags & LADJUST) *p++ = '-'; if (flags & ZEROPAD) *p++ = '0'; *p++ = '*'; if (prec >= 0) { *p++ = '.'; *p++ = '*'; } *p++ = ch; *p = '\0'; if (width > 120) width = 120; if (prec > 120) prec = 120; if (prec >= 0) #if HASSNPRINTF snprintf(out, sizeof(out), fmt, width, prec, val); #else sprintf(out, fmt, width, prec, val); #endif else #if HASSNPRINTF snprintf(out, sizeof(out), fmt, width, val); #else sprintf(out, fmt, width, val); #endif len = strlen(out); PRINT(out, len); FLUSH(); continue; } case 'n': if (flags & QUADINT) *GETARG(LONGLONG_T *) = ret; else if (flags & LONGINT) *GETARG(long *) = ret; else if (flags & SHORTINT) *GETARG(short *) = ret; else *GETARG(int *) = ret; continue; /* no output */ case 'O': flags |= LONGINT; /*FALLTHROUGH*/ case 'o': _uquad = UARG(); base = OCT; goto nosign; case 'p': /* ** ``The argument shall be a pointer to void. The ** value of the pointer is converted to a sequence ** of printable characters, in an implementation- ** defined manner.'' ** -- ANSI X3J11 */ /* NOSTRICT */ { union { void *p; ULONGLONG_T ll; unsigned long l; unsigned i; } u; u.p = GETARG(void *); if (sizeof(void *) == sizeof(ULONGLONG_T)) _uquad = u.ll; else if (sizeof(void *) == sizeof(long)) _uquad = u.l; else _uquad = u.i; } base = HEX; xdigs = "0123456789abcdef"; flags |= HEXPREFIX; ch = 'x'; goto nosign; case 's': if ((cp = GETARG(char *)) == NULL) cp = "(null)"; if (prec >= 0) { /* ** can't use strlen; can only look for the ** NUL in the first `prec' characters, and ** strlen() will go further. */ char *p = memchr(cp, 0, prec); if (p != NULL) { size = p - cp; if (size > prec) size = prec; } else size = prec; } else size = strlen(cp); sign = '\0'; break; case 'U': flags |= LONGINT; /*FALLTHROUGH*/ case 'u': _uquad = UARG(); base = DEC; goto nosign; case 'X': xdigs = "0123456789ABCDEF"; goto hex; case 'x': xdigs = "0123456789abcdef"; hex: _uquad = UARG(); base = HEX; /* leading 0x/X only if non-zero */ if (flags & ALT && _uquad != 0) flags |= HEXPREFIX; /* unsigned conversions */ nosign: sign = '\0'; /* ** ``... diouXx conversions ... if a precision is ** specified, the 0 flag will be ignored.'' ** -- ANSI X3J11 */ number: if ((dprec = prec) >= 0) flags &= ~ZEROPAD; /* ** ``The result of converting a zero value with an ** explicit precision of zero is no characters.'' ** -- ANSI X3J11 */ cp = buf + BUF; if (_uquad != 0 || prec != 0) { /* ** Unsigned mod is hard, and unsigned mod ** by a constant is easier than that by ** a variable; hence this switch. */ switch (base) { case OCT: do { *--cp = to_char(_uquad & 7); _uquad >>= 3; } while (_uquad); /* handle octal leading 0 */ if (flags & ALT && *cp != '0') *--cp = '0'; break; case DEC: /* many numbers are 1 digit */ while (_uquad >= 10) { *--cp = to_char(_uquad % 10); _uquad /= 10; } *--cp = to_char(_uquad); break; case HEX: do { *--cp = xdigs[_uquad & 15]; _uquad >>= 4; } while (_uquad); break; default: cp = "bug in sm_io_vfprintf: bad base"; size = strlen(cp); goto skipsize; } } size = buf + BUF - cp; skipsize: break; default: /* "%?" prints ?, unless ? is NUL */ if (ch == '\0') goto done; /* pretend it was %c with argument ch */ cp = buf; *cp = ch; size = 1; sign = '\0'; break; } /* ** All reasonable formats wind up here. At this point, `cp' ** points to a string which (if not flags&LADJUST) should be ** padded out to `width' places. If flags&ZEROPAD, it should ** first be prefixed by any sign or other prefix; otherwise, ** it should be blank padded before the prefix is emitted. ** After any left-hand padding and prefixing, emit zeroes ** required by a decimal [diouxX] precision, then print the ** string proper, then emit zeroes required by any leftover ** floating precision; finally, if LADJUST, pad with blanks. ** ** Compute actual size, so we know how much to pad. ** size excludes decimal prec; realsz includes it. */ realsz = dprec > size ? dprec : size; if (sign) realsz++; else if (flags & HEXPREFIX) realsz+= 2; /* right-adjusting blank padding */ if ((flags & (LADJUST|ZEROPAD)) == 0) PAD(width - realsz, blanks); /* prefix */ if (sign) { PRINT(&sign, 1); } else if (flags & HEXPREFIX) { ox[0] = '0'; ox[1] = ch; PRINT(ox, 2); } /* right-adjusting zero padding */ if ((flags & (LADJUST|ZEROPAD)) == ZEROPAD) PAD(width - realsz, zeroes); /* leading zeroes from decimal precision */ PAD(dprec - size, zeroes); /* the string or number proper */ PRINT(cp, size); /* left-adjusting padding (always blank) */ if (flags & LADJUST) PAD(width - realsz, blanks); /* finally, adjust ret */ ret += width > realsz ? width : realsz; FLUSH(); /* copy out the I/O vectors */ } done: FLUSH(); error: SM_VA_END_COPY(orgap); if ((argtable != NULL) && (argtable != statargtable)) sm_free(argtable); return sm_error(fp) ? SM_IO_EOF : ret; /* NOTREACHED */ } /* Type ids for argument type table. */ #define T_UNUSED 0 #define T_SHORT 1 #define T_U_SHORT 2 #define TP_SHORT 3 #define T_INT 4 #define T_U_INT 5 #define TP_INT 6 #define T_LONG 7 #define T_U_LONG 8 #define TP_LONG 9 #define T_QUAD 10 #define T_U_QUAD 11 #define TP_QUAD 12 #define T_DOUBLE 13 #define TP_CHAR 15 #define TP_VOID 16 /* ** SM_FIND_ARGUMENTS -- find all args when a positional parameter is found. ** ** Find all arguments when a positional parameter is encountered. Returns a ** table, indexed by argument number, of pointers to each arguments. The ** initial argument table should be an array of STATIC_ARG_TBL_SIZE entries. ** It will be replaced with a malloc-ed one if it overflows. ** ** Parameters: ** fmt0 -- formatting directives ** ap -- vector list of data unit for formatting consumption ** argtable -- an indexable table (returned) of 'ap' ** ** Results: ** none. */ static void sm_find_arguments(fmt0, ap, argtable) const char *fmt0; va_list ap; va_list **argtable; { register char *fmt; /* format string */ register int ch; /* character from fmt */ register int n, n2; /* handy integer (short term usage) */ register char *cp; /* handy char pointer (short term usage) */ register int flags; /* flags as above */ unsigned char *typetable; /* table of types */ unsigned char stattypetable[STATIC_ARG_TBL_SIZE]; int tablesize; /* current size of type table */ int tablemax; /* largest used index in table */ int nextarg; /* 1-based argument index */ /* Add an argument type to the table, expanding if necessary. */ #define ADDTYPE(type) \ ((nextarg >= tablesize) ? \ (sm_grow_type_table_x(&typetable, &tablesize), 0) : 0, \ typetable[nextarg++] = type, \ (nextarg > tablemax) ? tablemax = nextarg : 0) #define ADDSARG() \ ((flags & LONGINT) ? ADDTYPE(T_LONG) : \ ((flags & SHORTINT) ? ADDTYPE(T_SHORT) : ADDTYPE(T_INT))) #define ADDUARG() \ ((flags & LONGINT) ? ADDTYPE(T_U_LONG) : \ ((flags & SHORTINT) ? ADDTYPE(T_U_SHORT) : ADDTYPE(T_U_INT))) /* Add * arguments to the type array. */ #define ADDASTER() \ n2 = 0; \ cp = fmt; \ while (is_digit(*cp)) \ { \ n2 = 10 * n2 + to_digit(*cp); \ cp++; \ } \ if (*cp == '$') \ { \ int hold = nextarg; \ nextarg = n2; \ ADDTYPE (T_INT); \ nextarg = hold; \ fmt = ++cp; \ } \ else \ { \ ADDTYPE (T_INT); \ } fmt = (char *) fmt0; typetable = stattypetable; tablesize = STATIC_ARG_TBL_SIZE; tablemax = 0; nextarg = 1; (void) memset(typetable, T_UNUSED, STATIC_ARG_TBL_SIZE); /* Scan the format for conversions (`%' character). */ for (;;) { for (cp = fmt; (ch = *fmt) != '\0' && ch != '%'; fmt++) /* void */; if (ch == '\0') goto done; fmt++; /* skip over '%' */ flags = 0; rflag: ch = *fmt++; reswitch: switch (ch) { case ' ': case '#': goto rflag; case '*': ADDASTER(); goto rflag; case '-': case '+': goto rflag; case '.': if ((ch = *fmt++) == '*') { ADDASTER(); goto rflag; } while (is_digit(ch)) { ch = *fmt++; } goto reswitch; case '0': goto rflag; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': n = 0; do { n = 10 * n + to_digit(ch); ch = *fmt++; } while (is_digit(ch)); if (ch == '$') { nextarg = n; goto rflag; } goto reswitch; case 'h': flags |= SHORTINT; goto rflag; case 'l': flags |= LONGINT; goto rflag; case 'q': flags |= QUADINT; goto rflag; case 'c': ADDTYPE(T_INT); break; case 'D': flags |= LONGINT; /*FALLTHROUGH*/ case 'd': case 'i': if (flags & QUADINT) { ADDTYPE(T_QUAD); } else { ADDSARG(); } break; case 'e': case 'E': case 'f': case 'g': case 'G': ADDTYPE(T_DOUBLE); break; case 'n': if (flags & QUADINT) ADDTYPE(TP_QUAD); else if (flags & LONGINT) ADDTYPE(TP_LONG); else if (flags & SHORTINT) ADDTYPE(TP_SHORT); else ADDTYPE(TP_INT); continue; /* no output */ case 'O': flags |= LONGINT; /*FALLTHROUGH*/ case 'o': if (flags & QUADINT) ADDTYPE(T_U_QUAD); else ADDUARG(); break; case 'p': ADDTYPE(TP_VOID); break; case 's': ADDTYPE(TP_CHAR); break; case 'U': flags |= LONGINT; /*FALLTHROUGH*/ case 'u': if (flags & QUADINT) ADDTYPE(T_U_QUAD); else ADDUARG(); break; case 'X': case 'x': if (flags & QUADINT) ADDTYPE(T_U_QUAD); else ADDUARG(); break; default: /* "%?" prints ?, unless ? is NUL */ if (ch == '\0') goto done; break; } } done: /* Build the argument table. */ if (tablemax >= STATIC_ARG_TBL_SIZE) { *argtable = (va_list *) sm_malloc(sizeof(va_list) * (tablemax + 1)); } for (n = 1; n <= tablemax; n++) { SM_VA_COPY((*argtable)[n], ap); switch (typetable [n]) { case T_UNUSED: (void) SM_VA_ARG(ap, int); break; case T_SHORT: (void) SM_VA_ARG(ap, int); break; case T_U_SHORT: (void) SM_VA_ARG(ap, int); break; case TP_SHORT: (void) SM_VA_ARG(ap, short *); break; case T_INT: (void) SM_VA_ARG(ap, int); break; case T_U_INT: (void) SM_VA_ARG(ap, unsigned int); break; case TP_INT: (void) SM_VA_ARG(ap, int *); break; case T_LONG: (void) SM_VA_ARG(ap, long); break; case T_U_LONG: (void) SM_VA_ARG(ap, unsigned long); break; case TP_LONG: (void) SM_VA_ARG(ap, long *); break; case T_QUAD: (void) SM_VA_ARG(ap, LONGLONG_T); break; case T_U_QUAD: (void) SM_VA_ARG(ap, ULONGLONG_T); break; case TP_QUAD: (void) SM_VA_ARG(ap, LONGLONG_T *); break; case T_DOUBLE: (void) SM_VA_ARG(ap, double); break; case TP_CHAR: (void) SM_VA_ARG(ap, char *); break; case TP_VOID: (void) SM_VA_ARG(ap, void *); break; } SM_VA_END_COPY((*argtable)[n]); } if ((typetable != NULL) && (typetable != stattypetable)) sm_free(typetable); } /* ** SM_GROW_TYPE_TABLE -- Increase the size of the type table. ** ** Parameters: ** tabletype -- type of table to grow ** tablesize -- requested new table size ** ** Results: ** Raises an exception if can't allocate memory. */ static void sm_grow_type_table_x(typetable, tablesize) unsigned char **typetable; int *tablesize; { unsigned char *oldtable = *typetable; int newsize = *tablesize * 2; if (*tablesize == STATIC_ARG_TBL_SIZE) { *typetable = (unsigned char *) sm_malloc_x(sizeof(unsigned char) * newsize); (void) memmove(*typetable, oldtable, *tablesize); } else { *typetable = (unsigned char *) sm_realloc_x(typetable, sizeof(unsigned char) * newsize); } (void) memset(&typetable [*tablesize], T_UNUSED, (newsize - *tablesize)); *tablesize = newsize; } sendmail-8.18.1/libsm/ungetc.c0000644000372400037240000000767114556365350015541 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: ungetc.c,v 1.31 2013-11-22 20:51:44 ca Exp $") #include #include #include #include #include #include #include #include #include #include "local.h" static void sm_submore_x __P((SM_FILE_T *)); /* ** SM_SUBMORE_X -- expand ungetc buffer ** ** Expand the ungetc buffer `in place'. That is, adjust fp->f_p when ** the buffer moves, so that it points the same distance from the end, ** and move the bytes in the buffer around as necessary so that they ** are all at the end (stack-style). ** ** Parameters: ** fp -- the file pointer ** ** Results: ** none. ** ** Exceptions: ** F:sm_heap -- out of memory */ static void sm_submore_x(fp) SM_FILE_T *fp; { register int i; register unsigned char *p; if (fp->f_ub.smb_base == fp->f_ubuf) { /* Get a buffer; f_ubuf is fixed size. */ p = sm_malloc_x((size_t) SM_IO_BUFSIZ); fp->f_ub.smb_base = p; fp->f_ub.smb_size = SM_IO_BUFSIZ; p += SM_IO_BUFSIZ - sizeof(fp->f_ubuf); for (i = sizeof(fp->f_ubuf); --i >= 0;) p[i] = fp->f_ubuf[i]; fp->f_p = p; return; } i = fp->f_ub.smb_size; p = sm_realloc_x(fp->f_ub.smb_base, i << 1); /* no overlap (hence can use memcpy) because we doubled the size */ (void) memcpy((void *) (p + i), (void *) p, (size_t) i); fp->f_p = p + i; fp->f_ub.smb_base = p; fp->f_ub.smb_size = i << 1; } /* ** SM_IO_UNGETC -- place a character back into the buffer just read ** ** Parameters: ** fp -- the file pointer affected ** timeout -- time to complete ungetc ** c -- the character to place back ** ** Results: ** On success, returns value of character placed back, 0-255. ** Returns SM_IO_EOF if c == SM_IO_EOF or if last operation ** was a write and flush failed. ** ** Exceptions: ** F:sm_heap -- out of memory */ int sm_io_ungetc(fp, timeout, c) register SM_FILE_T *fp; int timeout; int c; { SM_REQUIRE_ISA(fp, SmFileMagic); if (c == SM_IO_EOF) return SM_IO_EOF; if (timeout == SM_TIME_IMMEDIATE) { /* ** Ungetting the buffer will take time and we are wanted to ** return immediately. So... */ errno = EAGAIN; return SM_IO_EOF; } if (!Sm_IO_DidInit) sm_init(); if ((fp->f_flags & SMRD) == 0) { /* ** Not already reading: no good unless reading-and-writing. ** Otherwise, flush any current write stuff. */ if ((fp->f_flags & SMRW) == 0) return SM_IO_EOF; if (fp->f_flags & SMWR) { if (sm_flush(fp, &timeout)) return SM_IO_EOF; fp->f_flags &= ~SMWR; fp->f_w = 0; fp->f_lbfsize = 0; } fp->f_flags |= SMRD; } c = (unsigned char) c; /* ** If we are in the middle of ungetc'ing, just continue. ** This may require expanding the current ungetc buffer. */ if (HASUB(fp)) { if (fp->f_r >= fp->f_ub.smb_size) sm_submore_x(fp); *--fp->f_p = c; fp->f_r++; return c; } fp->f_flags &= ~SMFEOF; /* ** If we can handle this by simply backing up, do so, ** but never replace the original character. ** (This makes sscanf() work when scanning `const' data.) */ if (fp->f_bf.smb_base != NULL && fp->f_p > fp->f_bf.smb_base && fp->f_p[-1] == c) { fp->f_p--; fp->f_r++; return c; } /* ** Create an ungetc buffer. ** Initially, we will use the `reserve' buffer. */ fp->f_ur = fp->f_r; fp->f_up = fp->f_p; fp->f_ub.smb_base = fp->f_ubuf; fp->f_ub.smb_size = sizeof(fp->f_ubuf); fp->f_ubuf[sizeof(fp->f_ubuf) - 1] = c; fp->f_p = &fp->f_ubuf[sizeof(fp->f_ubuf) - 1]; fp->f_r = 1; return c; } sendmail-8.18.1/libsm/rpool.c0000644000372400037240000002773014556365350015405 0ustar xbuildxbuild/* * Copyright (c) 2000-2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: rpool.c,v 1.29 2013-11-22 20:51:43 ca Exp $") /* ** resource pools ** For documentation, see rpool.html */ #include #include #include #include #include #if _FFR_PERF_RPOOL # include #endif const char SmRpoolMagic[] = "sm_rpool"; typedef union { SM_POOLLINK_T link; char align[SM_ALIGN_SIZE]; } SM_POOLHDR_T; static char *sm_rpool_allocblock_x __P((SM_RPOOL_T *, size_t)); static char *sm_rpool_allocblock __P((SM_RPOOL_T *, size_t)); /* ** Tune this later */ #define POOLSIZE 4096 #define BIG_OBJECT_RATIO 10 /* ** SM_RPOOL_ALLOCBLOCK_X -- allocate a new block for an rpool. ** ** Parameters: ** rpool -- rpool to which the block should be added. ** size -- size of block. ** ** Returns: ** Pointer to block. ** ** Exceptions: ** F:sm_heap -- out of memory */ static char * sm_rpool_allocblock_x(rpool, size) SM_RPOOL_T *rpool; size_t size; { SM_POOLLINK_T *p; p = sm_malloc_x(sizeof(SM_POOLHDR_T) + size); p->sm_pnext = rpool->sm_pools; rpool->sm_pools = p; return (char*) p + sizeof(SM_POOLHDR_T); } /* ** SM_RPOOL_ALLOCBLOCK -- allocate a new block for an rpool. ** ** Parameters: ** rpool -- rpool to which the block should be added. ** size -- size of block. ** ** Returns: ** Pointer to block, NULL on failure. */ static char * sm_rpool_allocblock(rpool, size) SM_RPOOL_T *rpool; size_t size; { SM_POOLLINK_T *p; p = sm_malloc(sizeof(SM_POOLHDR_T) + size); if (p == NULL) return NULL; p->sm_pnext = rpool->sm_pools; rpool->sm_pools = p; return (char*) p + sizeof(SM_POOLHDR_T); } /* ** SM_RPOOL_MALLOC_TAGGED_X -- allocate memory from rpool ** ** Parameters: ** rpool -- rpool from which memory should be allocated; ** can be NULL, use sm_malloc() then. ** size -- size of block. ** file -- filename. ** line -- line number in file. ** group -- heap group for debugging. ** ** Returns: ** Pointer to block. ** ** Exceptions: ** F:sm_heap -- out of memory ** ** Notice: XXX ** if size == 0 and the rpool is new (no memory ** allocated yet) NULL is returned! ** We could solve this by ** - wasting 1 byte (size < avail) ** - checking for rpool->sm_poolptr != NULL ** - not asking for 0 sized buffer */ void * #if SM_HEAP_CHECK sm_rpool_malloc_tagged_x(rpool, size, file, line, group) SM_RPOOL_T *rpool; size_t size; char *file; int line; int group; #else /* SM_HEAP_CHECK */ sm_rpool_malloc_x(rpool, size) SM_RPOOL_T *rpool; size_t size; #endif /* SM_HEAP_CHECK */ { char *ptr; if (rpool == NULL) return sm_malloc_tagged_x(size, file, line, group); /* Ensure that size is properly aligned. */ if (size & SM_ALIGN_BITS) size = (size & ~SM_ALIGN_BITS) + SM_ALIGN_SIZE; /* The common case. This is optimized for speed. */ if (size <= rpool->sm_poolavail) { ptr = rpool->sm_poolptr; rpool->sm_poolptr += size; rpool->sm_poolavail -= size; return ptr; } /* ** The slow case: we need to call malloc. ** The SM_REQUIRE assertion is deferred until now, for speed. ** That's okay: we set rpool->sm_poolavail to 0 when we free an rpool, ** so the common case code won't be triggered on a dangling pointer. */ SM_REQUIRE(rpool->sm_magic == SmRpoolMagic); /* ** If size > sm_poolsize, then malloc a new block especially for ** this request. Future requests will be allocated from the ** current pool. ** ** What if the current pool is mostly unallocated, and the current ** request is larger than the available space, but < sm_poolsize? ** If we discard the current pool, and start allocating from a new ** pool, then we will be wasting a lot of space. For this reason, ** we malloc a block just for the current request if size > ** sm_bigobjectsize, where sm_bigobjectsize <= sm_poolsize. ** Thus, the most space that we will waste at the end of a pool ** is sm_bigobjectsize - 1. */ if (size > rpool->sm_bigobjectsize) { #if _FFR_PERF_RPOOL ++rpool->sm_nbigblocks; #endif return sm_rpool_allocblock_x(rpool, size); } SM_ASSERT(rpool->sm_bigobjectsize <= rpool->sm_poolsize); ptr = sm_rpool_allocblock_x(rpool, rpool->sm_poolsize); rpool->sm_poolptr = ptr + size; rpool->sm_poolavail = rpool->sm_poolsize - size; #if _FFR_PERF_RPOOL ++rpool->sm_npools; #endif return ptr; } /* ** SM_RPOOL_MALLOC_TAGGED -- allocate memory from rpool ** ** Parameters: ** rpool -- rpool from which memory should be allocated; ** can be NULL, use sm_malloc() then. ** size -- size of block. ** file -- filename. ** line -- line number in file. ** group -- heap group for debugging. ** ** Returns: ** Pointer to block, NULL on failure. ** ** Notice: XXX ** if size == 0 and the rpool is new (no memory ** allocated yet) NULL is returned! ** We could solve this by ** - wasting 1 byte (size < avail) ** - checking for rpool->sm_poolptr != NULL ** - not asking for 0 sized buffer */ void * #if SM_HEAP_CHECK sm_rpool_malloc_tagged(rpool, size, file, line, group) SM_RPOOL_T *rpool; size_t size; char *file; int line; int group; #else /* SM_HEAP_CHECK */ sm_rpool_malloc(rpool, size) SM_RPOOL_T *rpool; size_t size; #endif /* SM_HEAP_CHECK */ { char *ptr; if (rpool == NULL) return sm_malloc_tagged(size, file, line, group); /* Ensure that size is properly aligned. */ if (size & SM_ALIGN_BITS) size = (size & ~SM_ALIGN_BITS) + SM_ALIGN_SIZE; /* The common case. This is optimized for speed. */ if (size <= rpool->sm_poolavail) { ptr = rpool->sm_poolptr; rpool->sm_poolptr += size; rpool->sm_poolavail -= size; return ptr; } /* ** The slow case: we need to call malloc. ** The SM_REQUIRE assertion is deferred until now, for speed. ** That's okay: we set rpool->sm_poolavail to 0 when we free an rpool, ** so the common case code won't be triggered on a dangling pointer. */ SM_REQUIRE(rpool->sm_magic == SmRpoolMagic); /* ** If size > sm_poolsize, then malloc a new block especially for ** this request. Future requests will be allocated from the ** current pool. ** ** What if the current pool is mostly unallocated, and the current ** request is larger than the available space, but < sm_poolsize? ** If we discard the current pool, and start allocating from a new ** pool, then we will be wasting a lot of space. For this reason, ** we malloc a block just for the current request if size > ** sm_bigobjectsize, where sm_bigobjectsize <= sm_poolsize. ** Thus, the most space that we will waste at the end of a pool ** is sm_bigobjectsize - 1. */ if (size > rpool->sm_bigobjectsize) { #if _FFR_PERF_RPOOL ++rpool->sm_nbigblocks; #endif return sm_rpool_allocblock(rpool, size); } SM_ASSERT(rpool->sm_bigobjectsize <= rpool->sm_poolsize); ptr = sm_rpool_allocblock(rpool, rpool->sm_poolsize); if (ptr == NULL) return NULL; rpool->sm_poolptr = ptr + size; rpool->sm_poolavail = rpool->sm_poolsize - size; #if _FFR_PERF_RPOOL ++rpool->sm_npools; #endif return ptr; } /* ** SM_RPOOL_NEW_X -- create a new rpool. ** ** Parameters: ** parent -- pointer to parent rpool, can be NULL. ** ** Returns: ** Pointer to new rpool. */ SM_RPOOL_T * sm_rpool_new_x(parent) SM_RPOOL_T *parent; { SM_RPOOL_T *rpool; rpool = sm_malloc_x(sizeof(SM_RPOOL_T)); if (parent == NULL) rpool->sm_parentlink = NULL; else { SM_TRY rpool->sm_parentlink = sm_rpool_attach_x(parent, (SM_RPOOL_RFREE_T) sm_rpool_free, (void *) rpool); SM_EXCEPT(exc, "*") sm_free(rpool); sm_exc_raise_x(exc); SM_END_TRY } rpool->sm_magic = SmRpoolMagic; rpool->sm_poolsize = POOLSIZE - sizeof(SM_POOLHDR_T); rpool->sm_bigobjectsize = rpool->sm_poolsize / BIG_OBJECT_RATIO; rpool->sm_poolptr = NULL; rpool->sm_poolavail = 0; rpool->sm_pools = NULL; rpool->sm_rptr = NULL; rpool->sm_ravail = 0; rpool->sm_rlists = NULL; #if _FFR_PERF_RPOOL rpool->sm_nbigblocks = 0; rpool->sm_npools = 0; #endif return rpool; } /* ** SM_RPOOL_SETSIZES -- set sizes for rpool. ** ** Parameters: ** poolsize -- size of a single rpool block. ** bigobjectsize -- if this size is exceeded, an individual ** block is allocated (must be less or equal poolsize). ** ** Returns: ** none. */ void sm_rpool_setsizes(rpool, poolsize, bigobjectsize) SM_RPOOL_T *rpool; size_t poolsize; size_t bigobjectsize; { SM_REQUIRE(poolsize >= bigobjectsize); if (poolsize == 0) poolsize = POOLSIZE - sizeof(SM_POOLHDR_T); if (bigobjectsize == 0) bigobjectsize = poolsize / BIG_OBJECT_RATIO; rpool->sm_poolsize = poolsize; rpool->sm_bigobjectsize = bigobjectsize; } /* ** SM_RPOOL_FREE -- free an rpool and release all of its resources. ** ** Parameters: ** rpool -- rpool to free. ** ** Returns: ** none. */ void sm_rpool_free(rpool) SM_RPOOL_T *rpool; { SM_RLIST_T *rl, *rnext; SM_RESOURCE_T *r, *rmax; SM_POOLLINK_T *pp, *pnext; if (rpool == NULL) return; /* ** It's important to free the resources before the memory pools, ** because the resource free functions might modify the contents ** of the memory pools. */ rl = rpool->sm_rlists; if (rl != NULL) { rmax = rpool->sm_rptr; for (;;) { for (r = rl->sm_rvec; r < rmax; ++r) { if (r->sm_rfree != NULL) r->sm_rfree(r->sm_rcontext); } rnext = rl->sm_rnext; sm_free(rl); if (rnext == NULL) break; rl = rnext; rmax = &rl->sm_rvec[SM_RLIST_MAX]; } } /* ** Now free the memory pools. */ for (pp = rpool->sm_pools; pp != NULL; pp = pnext) { pnext = pp->sm_pnext; sm_free(pp); } /* ** Disconnect rpool from its parent. */ if (rpool->sm_parentlink != NULL) *rpool->sm_parentlink = NULL; /* ** Setting these fields to zero means that any future to attempt ** to use the rpool after it is freed will cause an assertion failure. */ rpool->sm_magic = NULL; rpool->sm_poolavail = 0; rpool->sm_ravail = 0; #if _FFR_PERF_RPOOL if (rpool->sm_nbigblocks > 0 || rpool->sm_npools > 1) syslog(LOG_NOTICE, "perf: rpool=%lx, sm_nbigblocks=%d, sm_npools=%d", (long) rpool, rpool->sm_nbigblocks, rpool->sm_npools); rpool->sm_nbigblocks = 0; rpool->sm_npools = 0; #endif /* _FFR_PERF_RPOOL */ sm_free(rpool); } /* ** SM_RPOOL_ATTACH_X -- attach a resource to an rpool. ** ** Parameters: ** rpool -- rpool to which resource should be attached. ** rfree -- function to call when rpool is freed. ** rcontext -- argument for function to call when rpool is freed. ** ** Returns: ** Pointer to allocated function. ** ** Exceptions: ** F:sm_heap -- out of memory */ SM_RPOOL_ATTACH_T sm_rpool_attach_x(rpool, rfree, rcontext) SM_RPOOL_T *rpool; SM_RPOOL_RFREE_T rfree; void *rcontext; { SM_RLIST_T *rl; SM_RPOOL_ATTACH_T a; SM_REQUIRE_ISA(rpool, SmRpoolMagic); if (rpool->sm_ravail == 0) { rl = sm_malloc_x(sizeof(SM_RLIST_T)); rl->sm_rnext = rpool->sm_rlists; rpool->sm_rlists = rl; rpool->sm_rptr = rl->sm_rvec; rpool->sm_ravail = SM_RLIST_MAX; } a = &rpool->sm_rptr->sm_rfree; rpool->sm_rptr->sm_rfree = rfree; rpool->sm_rptr->sm_rcontext = rcontext; ++rpool->sm_rptr; --rpool->sm_ravail; return a; } #if DO_NOT_USE_STRCPY /* ** SM_RPOOL_STRDUP_X -- Create a copy of a C string ** ** Parameters: ** rpool -- rpool to use. ** s -- the string to copy. ** ** Returns: ** pointer to newly allocated string. */ char * # if SM_HEAP_CHECK > 2 sm_rpool_strdup_tagged_x # else sm_rpool_strdup_x # endif (rpool, s # if SM_HEAP_CHECK > 2 , tag, line, group # endif ) SM_RPOOL_T *rpool; const char *s; # if SM_HEAP_CHECK > 2 char *tag; int line; int group; # else # define tag "sm_rpool_strdup_x" # define line 1 # define group 1 # endif { size_t l; char *n; l = strlen(s); SM_ASSERT(l + 1 > l); # if SM_HEAP_CHECK n = sm_rpool_malloc_tagged_x(rpool, l + 1, tag, line, group); # else n = sm_rpool_malloc_x(rpool, l + 1); # endif sm_strlcpy(n, s, l + 1); return n; } # if SM_HEAP_CHECK <= 2 # undef tag # undef line # undef group # endif #endif /* DO_NOT_USE_STRCPY */ sendmail-8.18.1/libsm/strl.c0000644000372400037240000001702614556365350015233 0ustar xbuildxbuild/* * Copyright (c) 1999-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: strl.c,v 1.32 2013-11-22 20:51:43 ca Exp $") #include #include /* ** Notice: this file is used by libmilter. Please try to avoid ** using libsm specific functions. */ /* ** XXX the type of the length parameter has been changed ** from size_t to ssize_t to avoid theoretical problems with negative ** numbers passed into these functions. ** The real solution to this problem is to make sure that this doesn't ** happen, but for now we'll use this workaround. */ /* ** SM_STRLCPY -- size bounded string copy ** ** This is a bounds-checking variant of strcpy. ** If size > 0, copy up to size-1 characters from the nul terminated ** string src to dst, nul terminating the result. If size == 0, ** the dst buffer is not modified. ** Additional note: this function has been "tuned" to run fast and tested ** as such (versus versions in some OS's libc). ** ** The result is strlen(src). You can detect truncation (not all ** of the characters in the source string were copied) using the ** following idiom: ** ** char *s, buf[BUFSIZ]; ** ... ** if (sm_strlcpy(buf, s, sizeof(buf)) >= sizeof(buf)) ** goto overflow; ** ** Parameters: ** dst -- destination buffer ** src -- source string ** size -- size of destination buffer ** ** Returns: ** strlen(src) */ size_t sm_strlcpy(dst, src, size) register char *dst; register const char *src; ssize_t size; { register ssize_t i; if (size-- <= 0) return strlen(src); for (i = 0; i < size && (dst[i] = src[i]) != 0; i++) continue; dst[i] = '\0'; if (src[i] == '\0') return i; else return i + strlen(src + i); } /* ** SM_STRLCAT -- size bounded string concatenation ** ** This is a bounds-checking variant of strcat. ** If strlen(dst) < size, then append at most size - strlen(dst) - 1 ** characters from the source string to the destination string, ** nul terminating the result. Otherwise, dst is not modified. ** ** The result is the initial length of dst + the length of src. ** You can detect overflow (not all of the characters in the ** source string were copied) using the following idiom: ** ** char *s, buf[BUFSIZ]; ** ... ** if (sm_strlcat(buf, s, sizeof(buf)) >= sizeof(buf)) ** goto overflow; ** ** Parameters: ** dst -- nul-terminated destination string buffer ** src -- nul-terminated source string ** size -- size of destination buffer ** ** Returns: ** total length of the string tried to create ** (= initial length of dst + length of src) */ size_t sm_strlcat(dst, src, size) register char *dst; register const char *src; ssize_t size; { register ssize_t i, j, o; o = strlen(dst); if (size < o + 1) return o + strlen(src); size -= o + 1; for (i = 0, j = o; i < size && (dst[j] = src[i]) != 0; i++, j++) continue; dst[j] = '\0'; if (src[i] == '\0') return j; else return j + strlen(src + i); } /* ** SM_STRLCAT2 -- append two strings to dst obeying length and ** '\0' terminate it ** ** strlcat2 will append at most len - strlen(dst) - 1 chars. ** terminates with '\0' if len > 0 ** dst = dst "+" src1 "+" src2 ** use this instead of sm_strlcat(dst,src1); sm_strlcat(dst,src2); ** for better speed. ** ** Parameters: ** dst -- "destination" string. ** src1 -- "from" string 1. ** src2 -- "from" string 2. ** len -- max. length of "destination" string. ** ** Returns: ** total length of the string tried to create ** (= initial length of dst + length of src) ** if this is greater than len then an overflow would have ** occurred. ** */ size_t sm_strlcat2(dst, src1, src2, len) register char *dst; register const char *src1; register const char *src2; ssize_t len; { register ssize_t i, j, o; /* current size of dst */ o = strlen(dst); /* max. size is less than current? */ if (len < o + 1) return o + strlen(src1) + strlen(src2); len -= o + 1; /* space left in dst */ /* copy the first string; i: index in src1; j: index in dst */ for (i = 0, j = o; i < len && (dst[j] = src1[i]) != 0; i++, j++) continue; /* src1: end reached? */ if (src1[i] != '\0') { /* no: terminate dst; there is space since i < len */ dst[j] = '\0'; return j + strlen(src1 + i) + strlen(src2); } len -= i; /* space left in dst */ /* copy the second string; i: index in src2; j: index in dst */ for (i = 0; i < len && (dst[j] = src2[i]) != 0; i++, j++) continue; dst[j] = '\0'; /* terminate dst; there is space since i < len */ if (src2[i] == '\0') return j; else return j + strlen(src2 + i); } /* ** SM_STRLCPYN -- concatenate n strings and assign the result to dst ** while obeying length and '\0' terminate it ** ** dst = src1 "+" src2 "+" ... ** use this instead of sm_snprintf() for string values ** and repeated sm_strlc*() calls for better speed. ** ** Parameters: ** dst -- "destination" string. ** len -- max. length of "destination" string. ** n -- number of strings ** strings... ** ** Returns: ** total length of the string tried to create ** (= initial length of dst + length of src) ** if this is greater than len then an overflow would have ** occurred. */ size_t #ifdef __STDC__ sm_strlcpyn(char *dst, ssize_t len, int n, ...) #else /* __STDC__ */ sm_strlcpyn(dst, len, n, va_alist) register char *dst; ssize_t len; int n; va_dcl #endif /* __STDC__ */ { register ssize_t i, j; char *str; SM_VA_LOCAL_DECL SM_VA_START(ap, n); if (len-- <= 0) /* This allows space for the terminating '\0' */ { i = 0; while (n-- > 0) i += strlen(SM_VA_ARG(ap, char *)); SM_VA_END(ap); return i; } j = 0; /* index in dst */ /* loop through all source strings */ while (n-- > 0) { str = SM_VA_ARG(ap, char *); /* copy string; i: index in str; j: index in dst */ for (i = 0; j < len && (dst[j] = str[i]) != 0; i++, j++) continue; /* str: end reached? */ if (str[i] != '\0') { /* no: terminate dst; there is space since j < len */ dst[j] = '\0'; j += strlen(str + i); while (n-- > 0) j += strlen(SM_VA_ARG(ap, char *)); SM_VA_END(ap); return j; } } SM_VA_END(ap); dst[j] = '\0'; /* terminate dst; there is space since j < len */ return j; } #if 0 /* ** SM_STRLAPP -- append string if it fits into buffer. ** ** If size > 0, copy up to size-1 characters from the nul terminated ** string src to dst, nul terminating the result. If size == 0, ** the dst buffer is not modified. ** ** This routine is useful for appending strings in a loop, e.g, instead of ** s = buf; ** for (ptr, ptr != NULL, ptr = next->ptr) ** { ** (void) sm_strlcpy(s, ptr->string, sizeof buf - (s - buf)); ** s += strlen(s); ** } ** replace the loop body with: ** if (!sm_strlapp(*s, ptr->string, sizeof buf - (s - buf))) ** break; ** it's faster... ** ** XXX interface isn't completely clear (yet), hence this code is ** not available. ** ** ** Parameters: ** dst -- (pointer to) destination buffer ** src -- source string ** size -- size of destination buffer ** ** Returns: ** true if strlen(src) < size ** ** Side Effects: ** modifies dst if append succeeds (enough space). */ bool sm_strlapp(dst, src, size) register char **dst; register const char *src; ssize_t size; { register size_t i; if (size-- <= 0) return false; for (i = 0; i < size && ((*dst)[i] = src[i]) != '\0'; i++) continue; (*dst)[i] = '\0'; if (src[i] == '\0') { *dst += i; return true; } /* undo */ (*dst)[0] = '\0'; return false; } #endif /* 0 */ sendmail-8.18.1/libsm/README0000644000372400037240000001053414556365350014760 0ustar xbuildxbuild# Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # $Id: README,v 1.25 2013-11-22 20:51:42 ca Exp $ # Libsm is a library of generally useful C abstractions. For documentation, see index.html. Libsm stands alone; it depends on no other sendmail libraries, and the only sendmail header files it depends on are its own, which reside in ../include/sm. The t-*.c files are regression tests. These tests are incomplete: we do not yet test all of the APIs, and we have not yet converted all tests to use the test harness. If a test fails read the explanation it generates. Sometimes it is sufficient to change a compile time flag, which are also listed below. If that does not help, check the sendmail/README files for problems on your OS. The b-*.c files are benchmarks that compare system routines with those provided by libsm. By default sendmail uses the routines provided by the OS. In several cases, the routines provided by libsm are faster than those of the OS. If your OS provides the routines, you can compare the performance of them with the libsm versions by running the programs with the option -d (by default the programs just issue an explanation when/how to use them). The programs are: b-strcmp.c tests strcasecmp(). +----------------------+ | CONFIGURATION MACROS | +----------------------+ Libsm uses a set of C preprocessor macros to specify platform specific features of the C compiler and standard C libraries. If you are porting sendmail to a new platform, you may need to tweak the values of some of these macros. The following macros are given default values in . If the default value is wrong for a given platform, then a platform specific value is specified in one of two ways: - A -D option is added to the confENVDEF macro; this change can be made to the platform M4 file in devtools/OS, or to the site.config.m4 file in devtools/Site. - The confSM_OS_HEADER macro in the platform M4 file defines sm_os_foo, which forces "sm/os/sm_os_foo.h" to be included by "sm/config.h" via a link that is made from "sm_os.h" to "sm/os/sm_os_foo.h". Platform specific configuration macro settings are added to . SM_CONF_STDBOOL_H Set to 1 if the header file exists, and defines true, false and bool. SM_CONF_SYS_CDEFS_H Set to 1 if the header file exists, and defines __P. You may need to do this to eliminate warnings about __P being multiply defined. SM_CONF_STDDEF_H Set to 0 if the header file does not exist. SM_CONF_SETITIMER Set to 0 if the setitimer function is not available. SM_CONF_SYSEXITS_H Set to 1 if exists, and sets the EX_* macros to values different from the default BSD values in . SM_CONF_UID_GID Set to 0 if does not define uid_t and gid_t. SM_CONF_SSIZE_T Set to 0 if does not define ssize_t. SM_CONF_BROKEN_SIZE_T Set to 1 if size_t is not unsigned. SM_CONF_LONGLONG Set to 1 if your C compiler supports the 'long long' type. This will be set automatically if you use gcc or a C compiler that conforms to the 1999 ISO C standard. SM_CONF_QUAD_T Set to 1 if your C compiler does not support 'long long', but defines quad_t as an integral type. SM_CONF_SHM Set to 1 if System V shared memory APIs are available. SM_CONF_MSG Set to 1 if System V message queues are available. SM_CONF_SEM Set to 1 if semaphores are available. SM_CONF_BROKEN_STRTOD Set to 1 if your strtod() does not work properly. SM_CONF_LDAP_INITIALIZE Set to 1 if your LDAP client libraries include ldap_initialize(3). SM_CONF_LDAP_MEMFREE Set to 1 if your LDAP client libraries include ldap_memfree(3). SM_IO_MAX_BUF_FILE Set this to a useful buffer size for regular files if stat(2) does not return a value for st_blksize that is the "optimal blocksize for I/O". SM_IO_MAX_BUF Set this to a useful maximum buffer size for other than regular files if stat(2) does not return a value for st_blksize that is the "optimal blocksize for I/O". SM_IO_MIN_BUF Set this to a useful minimum buffer size for other than regular files if stat(2) does not return a value for st_blksize that is the "optimal blocksize for I/O". sendmail-8.18.1/libsm/t-streq.c0000644000372400037240000000324414556365350015643 0ustar xbuildxbuild/* * Copyright (c) 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-qic.c,v 1.10 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include extern bool SmTestVerbose; static int tstrncaseeq(s1, s2, len) char *s1; char *s2; size_t len; { return SM_STRNCASEEQ(s1, s2, len); } static void usage(prg) const char *prg; { fprintf(stderr, "usage: %s [options]\n", prg); fprintf(stderr, "options:\n"); } static void hack(str) char *str; { char c; /* replace just one \x char */ while ((c = *str++) != '\0') { if (c != '\\') continue; c = *str; switch (c) { case 'n': c ='\n'; break; case 't': c ='\t'; break; case 'r': c ='\r'; break; /* case 'X': c ='\X'; break; */ default: c ='\0'; break; } *(str - 1) = c; *str = '\0'; break; } } int main(argc, argv) int argc; char *argv[]; { int o, len; #define MAXL 1024 char s1[MAXL], s2[MAXL]; while ((o = getopt(argc, argv, "h")) != -1) { switch ((char) o) { default: usage(argv[0]); exit(1); } } sm_test_begin(argc, argv, "test strncaseeq"); while (fscanf(stdin, "%d:%s\n", &len, s1) == 2 && fscanf(stdin, "%d:%s\n", &o,s2) == 2) { int r; hack(s1); hack(s2); SM_TEST(tstrncaseeq(s1, s2, len) == o); if ((r = tstrncaseeq(s1, s2, len)) != o) fprintf(stderr, "\"%s\"\n\"%s\"\n%d!=%d\n", s1, s2, o, r); } return sm_test_end(); } sendmail-8.18.1/libsm/mbdb.c0000644000372400037240000004100514556365350015145 0ustar xbuildxbuild/* * Copyright (c) 2001-2003,2009 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: mbdb.c,v 1.43 2014-01-08 17:03:15 ca Exp $") #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #if LDAPMAP && _LDAP_EXAMPLE_ # include #endif typedef struct { char *mbdb_typename; int (*mbdb_initialize) __P((char *)); int (*mbdb_lookup) __P((char *name, SM_MBDB_T *user)); void (*mbdb_terminate) __P((void)); } SM_MBDB_TYPE_T; static int mbdb_pw_initialize __P((char *)); static int mbdb_pw_lookup __P((char *name, SM_MBDB_T *user)); static void mbdb_pw_terminate __P((void)); #if LDAPMAP && _LDAP_EXAMPLE_ static struct sm_ldap_struct LDAPLMAP; static int mbdb_ldap_initialize __P((char *)); static int mbdb_ldap_lookup __P((char *name, SM_MBDB_T *user)); static void mbdb_ldap_terminate __P((void)); #endif /* LDAPMAP && _LDAP_EXAMPLE_ */ static SM_MBDB_TYPE_T SmMbdbTypes[] = { { "pw", mbdb_pw_initialize, mbdb_pw_lookup, mbdb_pw_terminate }, #if LDAPMAP && _LDAP_EXAMPLE_ { "ldap", mbdb_ldap_initialize, mbdb_ldap_lookup, mbdb_ldap_terminate }, #endif { NULL, NULL, NULL, NULL } }; static SM_MBDB_TYPE_T *SmMbdbType = &SmMbdbTypes[0]; /* ** SM_MBDB_INITIALIZE -- specify which mailbox database to use ** ** If this function is not called, then the "pw" implementation ** is used by default; this implementation uses getpwnam(). ** ** Parameters: ** mbdb -- Which mailbox database to use. ** The argument has the form "name" or "name.arg". ** "pw" means use getpwnam(). ** ** Results: ** EX_OK on success, or an EX_* code on failure. */ int sm_mbdb_initialize(mbdb) char *mbdb; { size_t namelen; int err; char *name; char *arg; SM_MBDB_TYPE_T *t; SM_REQUIRE(mbdb != NULL); name = mbdb; arg = strchr(mbdb, '.'); if (arg == NULL) namelen = strlen(name); else { namelen = arg - name; ++arg; } for (t = SmMbdbTypes; t->mbdb_typename != NULL; ++t) { if (strlen(t->mbdb_typename) == namelen && strncmp(name, t->mbdb_typename, namelen) == 0) { err = EX_OK; if (t->mbdb_initialize != NULL) err = t->mbdb_initialize(arg); if (err == EX_OK) SmMbdbType = t; return err; } } return EX_UNAVAILABLE; } /* ** SM_MBDB_TERMINATE -- terminate connection to the mailbox database ** ** Because this function closes any cached file descriptors that ** are being held open for the connection to the mailbox database, ** it should be called for security reasons prior to dropping privileges ** and execing another process. ** ** Parameters: ** none. ** ** Results: ** none. */ void sm_mbdb_terminate() { if (SmMbdbType->mbdb_terminate != NULL) SmMbdbType->mbdb_terminate(); } /* ** SM_MBDB_LOOKUP -- look up a local mail recipient, given name ** ** Parameters: ** name -- name of local mail recipient ** user -- pointer to structure to fill in on success ** ** Results: ** On success, fill in *user and return EX_OK. ** If the user does not exist, return EX_NOUSER. ** If a temporary failure (eg, a network failure) occurred, ** return EX_TEMPFAIL. Otherwise return EX_OSERR. */ int sm_mbdb_lookup(name, user) char *name; SM_MBDB_T *user; { int ret = EX_NOUSER; if (SmMbdbType->mbdb_lookup != NULL) ret = SmMbdbType->mbdb_lookup(name, user); return ret; } /* ** SM_MBDB_FROMPW -- copy from struct pw to SM_MBDB_T ** ** Parameters: ** user -- destination user information structure ** pw -- source passwd structure ** ** Results: ** none. */ void sm_mbdb_frompw(user, pw) SM_MBDB_T *user; struct passwd *pw; { SM_REQUIRE(user != NULL); (void) sm_strlcpy(user->mbdb_name, pw->pw_name, sizeof(user->mbdb_name)); user->mbdb_uid = pw->pw_uid; user->mbdb_gid = pw->pw_gid; sm_pwfullname(pw->pw_gecos, pw->pw_name, user->mbdb_fullname, sizeof(user->mbdb_fullname)); (void) sm_strlcpy(user->mbdb_homedir, pw->pw_dir, sizeof(user->mbdb_homedir)); (void) sm_strlcpy(user->mbdb_shell, pw->pw_shell, sizeof(user->mbdb_shell)); } /* ** SM_PWFULLNAME -- build full name of user from pw_gecos field. ** ** This routine interprets the strange entry that would appear ** in the GECOS field of the password file. ** ** Parameters: ** gecos -- name to build. ** user -- the login name of this user (for &). ** buf -- place to put the result. ** buflen -- length of buf. ** ** Returns: ** none. */ #if _FFR_HANDLE_ISO8859_GECOS static char Latin1ToASCII[128] = { 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 33, 99, 80, 36, 89, 124, 36, 34, 99, 97, 60, 45, 45, 114, 45, 111, 42, 50, 51, 39, 117, 80, 46, 44, 49, 111, 62, 42, 42, 42, 63, 65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73, 68, 78, 79, 79, 79, 79, 79, 88, 79, 85, 85, 85, 85, 89, 80, 66, 97, 97, 97, 97, 97, 97, 97, 99, 101, 101, 101, 101, 105, 105, 105, 105, 100, 110, 111, 111, 111, 111, 111, 47, 111, 117, 117, 117, 117, 121, 112, 121 }; #endif /* _FFR_HANDLE_ISO8859_GECOS */ void sm_pwfullname(gecos, user, buf, buflen) register char *gecos; char *user; char *buf; size_t buflen; { register char *p; register char *bp = buf; if (*gecos == '*') gecos++; /* copy gecos, interpolating & to be full name */ for (p = gecos; *p != '\0' && *p != ',' && *p != ';' && *p != '%'; p++) { if (bp >= &buf[buflen - 1]) { /* buffer overflow -- just use login name */ (void) sm_strlcpy(buf, user, buflen); return; } if (*p == '&') { /* interpolate full name */ (void) sm_strlcpy(bp, user, buflen - (bp - buf)); *bp = toupper(*bp); bp += strlen(bp); } else { #if _FFR_HANDLE_ISO8859_GECOS if ((unsigned char) *p >= 128) *bp++ = Latin1ToASCII[(unsigned char) *p - 128]; else #endif /* "else" in #if code above */ *bp++ = *p; } } *bp = '\0'; } /* ** /etc/passwd implementation. */ /* ** MBDB_PW_INITIALIZE -- initialize getpwnam() version ** ** Parameters: ** arg -- unused. ** ** Results: ** EX_OK. */ /* ARGSUSED0 */ static int mbdb_pw_initialize(arg) char *arg; { return EX_OK; } /* ** MBDB_PW_LOOKUP -- look up a local mail recipient, given name ** ** Parameters: ** name -- name of local mail recipient ** user -- pointer to structure to fill in on success ** ** Results: ** On success, fill in *user and return EX_OK. ** Failure: EX_NOUSER. */ static int mbdb_pw_lookup(name, user) char *name; SM_MBDB_T *user; { struct passwd *pw; #if HESIOD && !HESIOD_ALLOW_NUMERIC_LOGIN /* DEC Hesiod getpwnam accepts numeric strings -- short circuit it */ { char *p; for (p = name; *p != '\0'; p++) if (!isascii(*p) || !isdigit(*p)) break; if (*p == '\0') return EX_NOUSER; } #endif /* HESIOD && !HESIOD_ALLOW_NUMERIC_LOGIN */ errno = 0; pw = getpwnam(name); if (pw == NULL) { #if _FFR_USE_GETPWNAM_ERRNO /* ** Only enable this code iff ** user unknown <-> getpwnam() == NULL && errno == 0 ** (i.e., errno unchanged); see the POSIX spec. */ if (errno != 0) return EX_TEMPFAIL; #endif /* _FFR_USE_GETPWNAM_ERRNO */ return EX_NOUSER; } sm_mbdb_frompw(user, pw); return EX_OK; } /* ** MBDB_PW_TERMINATE -- terminate connection to the mailbox database ** ** Parameters: ** none. ** ** Results: ** none. */ static void mbdb_pw_terminate() { endpwent(); } #if LDAPMAP && _LDAP_EXAMPLE_ /* ** LDAP example implementation based on RFC 2307, "An Approach for Using ** LDAP as a Network Information Service": ** ** ( nisSchema.1.0 NAME 'uidNumber' ** DESC 'An integer uniquely identifying a user in an ** administrative domain' ** EQUALITY integerMatch SYNTAX 'INTEGER' SINGLE-VALUE ) ** ** ( nisSchema.1.1 NAME 'gidNumber' ** DESC 'An integer uniquely identifying a group in an ** administrative domain' ** EQUALITY integerMatch SYNTAX 'INTEGER' SINGLE-VALUE ) ** ** ( nisSchema.1.2 NAME 'gecos' ** DESC 'The GECOS field; the common name' ** EQUALITY caseIgnoreIA5Match ** SUBSTRINGS caseIgnoreIA5SubstringsMatch ** SYNTAX 'IA5String' SINGLE-VALUE ) ** ** ( nisSchema.1.3 NAME 'homeDirectory' ** DESC 'The absolute path to the home directory' ** EQUALITY caseExactIA5Match ** SYNTAX 'IA5String' SINGLE-VALUE ) ** ** ( nisSchema.1.4 NAME 'loginShell' ** DESC 'The path to the login shell' ** EQUALITY caseExactIA5Match ** SYNTAX 'IA5String' SINGLE-VALUE ) ** ** ( nisSchema.2.0 NAME 'posixAccount' SUP top AUXILIARY ** DESC 'Abstraction of an account with POSIX attributes' ** MUST ( cn $ uid $ uidNumber $ gidNumber $ homeDirectory ) ** MAY ( userPassword $ loginShell $ gecos $ description ) ) ** */ # define MBDB_LDAP_LABEL "MailboxDatabase" # ifndef MBDB_LDAP_FILTER # define MBDB_LDAP_FILTER "(&(objectClass=posixAccount)(uid=%0))" # endif # ifndef MBDB_DEFAULT_LDAP_BASEDN # define MBDB_DEFAULT_LDAP_BASEDN NULL # endif # ifndef MBDB_DEFAULT_LDAP_SERVER # define MBDB_DEFAULT_LDAP_SERVER NULL # endif /* ** MBDB_LDAP_INITIALIZE -- initialize LDAP version ** ** Parameters: ** arg -- LDAP specification ** ** Results: ** EX_OK on success, or an EX_* code on failure. */ static int mbdb_ldap_initialize(arg) char *arg; { sm_ldap_clear(&LDAPLMAP); LDAPLMAP.ldap_base = MBDB_DEFAULT_LDAP_BASEDN; LDAPLMAP.ldap_host = MBDB_DEFAULT_LDAP_SERVER; LDAPLMAP.ldap_filter = MBDB_LDAP_FILTER; /* Only want one match */ LDAPLMAP.ldap_sizelimit = 1; /* interpolate new ldap_base and ldap_host from arg if given */ if (arg != NULL && *arg != '\0') { char *new; char *sep; size_t len; len = strlen(arg) + 1; new = sm_malloc(len); if (new == NULL) return EX_TEMPFAIL; (void) sm_strlcpy(new, arg, len); sep = strrchr(new, '@'); if (sep != NULL) { *sep++ = '\0'; LDAPLMAP.ldap_host = sep; } LDAPLMAP.ldap_base = new; } return EX_OK; } /* ** MBDB_LDAP_LOOKUP -- look up a local mail recipient, given name ** ** Parameters: ** name -- name of local mail recipient ** user -- pointer to structure to fill in on success ** ** Results: ** On success, fill in *user and return EX_OK. ** Failure: EX_NOUSER. */ #define NEED_FULLNAME 0x01 #define NEED_HOMEDIR 0x02 #define NEED_SHELL 0x04 #define NEED_UID 0x08 #define NEED_GID 0x10 static int mbdb_ldap_lookup(name, user) char *name; SM_MBDB_T *user; { int msgid; int need; int ret; int save_errno; LDAPMessage *entry; BerElement *ber; char *attr = NULL; if (strlen(name) >= sizeof(user->mbdb_name)) { errno = EINVAL; return EX_NOUSER; } if (LDAPLMAP.ldap_filter == NULL) { /* map not initialized, but don't have arg here */ errno = EFAULT; return EX_TEMPFAIL; } if (LDAPLMAP.ldap_pid != getpid()) { /* re-open map in this child process */ LDAPLMAP.ldap_ld = NULL; } if (LDAPLMAP.ldap_ld == NULL) { /* map not open, try to open now */ if (!sm_ldap_start(MBDB_LDAP_LABEL, &LDAPLMAP)) return EX_TEMPFAIL; } sm_ldap_setopts(LDAPLMAP.ldap_ld, &LDAPLMAP); msgid = sm_ldap_search(&LDAPLMAP, name); if (msgid == -1) { save_errno = sm_ldap_geterrno(LDAPLMAP.ldap_ld) + E_LDAPBASE; # ifdef LDAP_SERVER_DOWN if (errno == LDAP_SERVER_DOWN) { /* server disappeared, try reopen on next search */ sm_ldap_close(&LDAPLMAP); } # endif /* LDAP_SERVER_DOWN */ errno = save_errno; return EX_TEMPFAIL; } /* Get results */ ret = ldap_result(LDAPLMAP.ldap_ld, msgid, 1, (LDAPLMAP.ldap_timeout.tv_sec == 0 ? NULL : &(LDAPLMAP.ldap_timeout)), &(LDAPLMAP.ldap_res)); if (ret != LDAP_RES_SEARCH_RESULT && ret != LDAP_RES_SEARCH_ENTRY) { if (ret == 0) errno = ETIMEDOUT; else errno = sm_ldap_geterrno(LDAPLMAP.ldap_ld); ret = EX_TEMPFAIL; goto abort; } entry = ldap_first_entry(LDAPLMAP.ldap_ld, LDAPLMAP.ldap_res); if (entry == NULL) { int rc; /* ** We may have gotten an LDAP_RES_SEARCH_RESULT response ** with an error inside it, so we have to extract that ** with ldap_parse_result(). This can happen when talking ** to an LDAP proxy whose backend has gone down. */ save_errno = ldap_parse_result(LDAPLMAP.ldap_ld, LDAPLMAP.ldap_res, &rc, NULL, NULL, NULL, NULL, 0); if (save_errno == LDAP_SUCCESS) save_errno = rc; if (save_errno == LDAP_SUCCESS) { errno = ENOENT; ret = EX_NOUSER; } else { errno = save_errno; ret = EX_TEMPFAIL; } goto abort; } # if !defined(LDAP_VERSION_MAX) && !defined(LDAP_OPT_SIZELIMIT) /* ** Reset value to prevent lingering ** LDAP_DECODING_ERROR due to ** OpenLDAP 1.X's hack (see below) */ LDAPLMAP.ldap_ld->ld_errno = LDAP_SUCCESS; # endif /* !defined(LDAP_VERSION_MAX) !defined(LDAP_OPT_SIZELIMIT) */ ret = EX_OK; need = NEED_FULLNAME|NEED_HOMEDIR|NEED_SHELL|NEED_UID|NEED_GID; for (attr = ldap_first_attribute(LDAPLMAP.ldap_ld, entry, &ber); attr != NULL; attr = ldap_next_attribute(LDAPLMAP.ldap_ld, entry, ber)) { char **vals; vals = ldap_get_values(LDAPLMAP.ldap_ld, entry, attr); if (vals == NULL) { errno = sm_ldap_geterrno(LDAPLMAP.ldap_ld); if (errno == LDAP_SUCCESS) { ldap_memfree(attr); continue; } /* Must be an error */ errno += E_LDAPBASE; ret = EX_TEMPFAIL; goto abort; } # if !defined(LDAP_VERSION_MAX) && !defined(LDAP_OPT_SIZELIMIT) /* ** Reset value to prevent lingering ** LDAP_DECODING_ERROR due to ** OpenLDAP 1.X's hack (see below) */ LDAPLMAP.ldap_ld->ld_errno = LDAP_SUCCESS; # endif /* !defined(LDAP_VERSION_MAX) !defined(LDAP_OPT_SIZELIMIT) */ if (vals[0] == NULL || vals[0][0] == '\0') goto skip; if (strcasecmp(attr, "gecos") == 0) { if (!bitset(NEED_FULLNAME, need) || strlen(vals[0]) >= sizeof(user->mbdb_fullname)) goto skip; sm_pwfullname(vals[0], name, user->mbdb_fullname, sizeof(user->mbdb_fullname)); need &= ~NEED_FULLNAME; } else if (strcasecmp(attr, "homeDirectory") == 0) { if (!bitset(NEED_HOMEDIR, need) || strlen(vals[0]) >= sizeof(user->mbdb_homedir)) goto skip; (void) sm_strlcpy(user->mbdb_homedir, vals[0], sizeof(user->mbdb_homedir)); need &= ~NEED_HOMEDIR; } else if (strcasecmp(attr, "loginShell") == 0) { if (!bitset(NEED_SHELL, need) || strlen(vals[0]) >= sizeof(user->mbdb_shell)) goto skip; (void) sm_strlcpy(user->mbdb_shell, vals[0], sizeof(user->mbdb_shell)); need &= ~NEED_SHELL; } else if (strcasecmp(attr, "uidNumber") == 0) { char *p; if (!bitset(NEED_UID, need)) goto skip; for (p = vals[0]; *p != '\0'; p++) { /* allow negative numbers */ if (p == vals[0] && *p == '-') { /* but not simply '-' */ if (*(p + 1) == '\0') goto skip; } else if (!isascii(*p) || !isdigit(*p)) goto skip; } user->mbdb_uid = atoi(vals[0]); need &= ~NEED_UID; } else if (strcasecmp(attr, "gidNumber") == 0) { char *p; if (!bitset(NEED_GID, need)) goto skip; for (p = vals[0]; *p != '\0'; p++) { /* allow negative numbers */ if (p == vals[0] && *p == '-') { /* but not simply '-' */ if (*(p + 1) == '\0') goto skip; } else if (!isascii(*p) || !isdigit(*p)) goto skip; } user->mbdb_gid = atoi(vals[0]); need &= ~NEED_GID; } skip: ldap_value_free(vals); ldap_memfree(attr); } errno = sm_ldap_geterrno(LDAPLMAP.ldap_ld); /* ** We check errno != LDAP_DECODING_ERROR since ** OpenLDAP 1.X has a very ugly *undocumented* ** hack of returning this error code from ** ldap_next_attribute() if the library freed the ** ber attribute. See: ** http://www.openldap.org/lists/openldap-devel/9901/msg00064.html */ if (errno != LDAP_SUCCESS && errno != LDAP_DECODING_ERROR) { /* Must be an error */ errno += E_LDAPBASE; ret = EX_TEMPFAIL; goto abort; } abort: save_errno = errno; if (attr != NULL) { ldap_memfree(attr); attr = NULL; } if (LDAPLMAP.ldap_res != NULL) { ldap_msgfree(LDAPLMAP.ldap_res); LDAPLMAP.ldap_res = NULL; } if (ret == EX_OK) { if (need == 0) { (void) sm_strlcpy(user->mbdb_name, name, sizeof(user->mbdb_name)); save_errno = 0; } else { ret = EX_NOUSER; save_errno = EINVAL; } } errno = save_errno; return ret; } /* ** MBDB_LDAP_TERMINATE -- terminate connection to the mailbox database ** ** Parameters: ** none. ** ** Results: ** none. */ static void mbdb_ldap_terminate() { sm_ldap_close(&LDAPLMAP); } #endif /* LDAPMAP && _LDAP_EXAMPLE_ */ sendmail-8.18.1/libsm/vsnprintf.c0000644000372400037240000000356214556365350016300 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: vsnprintf.c,v 1.24 2013-11-22 20:51:44 ca Exp $") #include #include #include "local.h" /* ** SM_VSNPRINTF -- format data for "output" into a string ** ** Assigned 'str' to a "fake" file pointer. This allows common ** o/p formatting function sm_vprintf() to be used. ** ** Parameters: ** str -- location for output ** n -- maximum size for o/p ** fmt -- format directives ** ap -- data unit vectors for use by 'fmt' ** ** Results: ** result from sm_io_vfprintf() ** ** Side Effects: ** Limits the size ('n') to INT_MAX. */ int sm_vsnprintf(str, n, fmt, ap) char *str; size_t n; const char *fmt; va_list ap; { int ret; char dummy; SM_FILE_T fake; /* While snprintf(3) specifies size_t stdio uses an int internally */ if (n > INT_MAX) n = INT_MAX; /* Stdio internals do not deal correctly with zero length buffer */ if (n == 0) { str = &dummy; n = 1; } fake.sm_magic = SmFileMagic; fake.f_timeout = SM_TIME_FOREVER; fake.f_timeoutstate = SM_TIME_BLOCK; fake.f_file = -1; fake.f_flags = SMWR | SMSTR; fake.f_bf.smb_base = fake.f_p = (unsigned char *)str; fake.f_bf.smb_size = fake.f_w = n - 1; fake.f_close = NULL; fake.f_open = NULL; fake.f_read = NULL; fake.f_write = NULL; fake.f_seek = NULL; fake.f_setinfo = fake.f_getinfo = NULL; fake.f_type = "sm_vsnprintf:fake"; ret = sm_io_vfprintf(&fake, SM_TIME_FOREVER, fmt, ap); *fake.f_p = 0; return ret; } sendmail-8.18.1/libsm/notify.c0000644000372400037240000000657214556365350015563 0ustar xbuildxbuild/* * Copyright (c) 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #if _FFR_DMTRIGGER && _FFR_NOTIFY < 2 #include /* FDSET_CAST */ #include #include #include #include "notify.h" #include #include #include #include #include #include #include #include #include #include #include /* for memset() */ static int Notifypipe[2]; #define NotifyRDpipe Notifypipe[0] #define NotifyWRpipe Notifypipe[1] #define CLOSEFD(fd) do { \ if ((fd) != -1) { \ (void) close(fd); \ fd = - 1; \ } \ } while (0) \ /* ** SM_NOTIFY_INIT -- initialize notify system ** ** Parameters: ** flags -- ignored ** ** Returns: ** 0: success ** <0: -errno */ int sm_notify_init(flags) int flags; { if (pipe(Notifypipe) < 0) return -errno; return 0; } /* ** SM_NOTIFY_START -- start notify system ** ** Parameters: ** owner -- owner. ** flags -- currently ignored. ** ** Returns: ** 0: success ** <0: -errno */ int sm_notify_start(owner, flags) bool owner; int flags; { int r; r = 0; if (owner) CLOSEFD(NotifyWRpipe); else CLOSEFD(NotifyRDpipe); return r; } /* ** SM_NOTIFY_STOP -- stop notify system ** ** Parameters: ** owner -- owner. ** flags -- currently ignored. ** ** Returns: ** 0: success ** <0: -errno */ int sm_notify_stop(owner, flags) bool owner; int flags; { if (owner) CLOSEFD(NotifyRDpipe); else CLOSEFD(NotifyWRpipe); return 0; } /* ** SM_NOTIFY_SND -- send notification ** ** Parameters: ** buf -- where to write data ** buflen -- len of buffer ** ** Returns: ** 0: success ** <0: -errno */ int sm_notify_snd(buf, buflen) char *buf; size_t buflen; { int r; int save_errno; size_t len; char netstr[MAX_NETSTR]; SM_REQUIRE(buf != NULL); SM_REQUIRE(buflen > 0); if (NotifyWRpipe < 0) return -EINVAL; if (buflen >= MAX_NETSTR - 7) return -E2BIG; /* XXX "TOO LARGE"? */ len = sm_snprintf(netstr, sizeof(netstr), "%04d:%s,", (int)buflen, buf); r = write(NotifyWRpipe, netstr, len); save_errno = errno; SM_DBG((stderr, "pid=%ld, write=%d, fd=%d, e=%d\n", (long)getpid(), r, NotifyWRpipe, save_errno)); return r >= 0 ? 0 : -save_errno; } /* ** SM_NOTIFY_RCV -- receive notification ** ** Parameters: ** buf -- where to write data ** buflen -- len of buffer ** tmo -- timeout (micro seconds) ** ** Returns: ** 0: EOF (XXX need to provide info about client) ** >0: length of received data ** <0: -errno */ int sm_notify_rcv(buf, buflen, tmo) char *buf; size_t buflen; long tmo; { int r, len; int save_errno; fd_set readfds; struct timeval timeout, *tval; SM_REQUIRE(buf != NULL); SM_REQUIRE(buflen > NETSTRPRE + 2); if (NotifyRDpipe < 0) return -EINVAL; FD_ZERO(&readfds); SM_FD_SET(NotifyRDpipe, &readfds); SM_MICROS2TVAL(tmo, tval, timeout); do { r = select(NotifyRDpipe + 1, FDSET_CAST &readfds, NULL, NULL, tval); save_errno = errno; SM_DBG((stderr, "pid=%ld, select=%d, fd=%d, e=%d\n", (long)getpid(), r, NotifyRDpipe, save_errno)); } while (r < 0 && save_errno == EINTR); RDNETSTR(r, NotifyRDpipe, (void)0); } #endif /* _FFR_DMTRIGGER && _FFR_NOTIFY < 2 */ sendmail-8.18.1/libsm/t-types.c0000644000372400037240000000531214556365350015647 0ustar xbuildxbuild/* * Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-types.c,v 1.19 2013-11-22 20:51:44 ca Exp $") #include #include #include #include #include int main(argc, argv) int argc; char **argv; { LONGLONG_T ll; LONGLONG_T volatile lt; ULONGLONG_T ull; char buf[128]; char *r; sm_test_begin(argc, argv, "test standard integral types"); SM_TEST(sizeof(LONGLONG_T) == sizeof(ULONGLONG_T)); /* ** sendmail assumes that ino_t, off_t and void* can be cast ** to ULONGLONG_T without losing information. */ if (!SM_TEST(sizeof(ino_t) <= sizeof(ULONGLONG_T)) || !SM_TEST(sizeof(off_t) <= sizeof(ULONGLONG_T)) || !SM_TEST(sizeof(void*) <= sizeof(ULONGLONG_T))) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "\ Your C compiler appears to support a 64 bit integral type,\n\ but libsm is not configured to use it. You will need to set\n\ either SM_CONF_LONGLONG or SM_CONF_QUAD_T to 1. See libsm/README\n\ for more details.\n"); } /* ** Most compilers notice that LLONG_MIN - 1 generate an underflow. ** Some compiler generate code that will use the 'X' status bit ** in a CPU and hence (LLONG_MIN - 1 > LLONG_MIN) will be false. ** So we have to decide whether we want compiler warnings or ** a wrong test... ** Question: where do we really need what this test tests? */ #if SM_CONF_TEST_LLONG ll = LLONG_MIN; (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "\ Your C compiler maybe issued a warning during compilation,\n\ please IGNORE the compiler warning!.\n"); lt = LLONG_MIN - 1; SM_TEST(lt > ll); sm_snprintf(buf, sizeof(buf), "%llx", ll); r = "0"; if (!SM_TEST(buf[0] == '8') || !SM_TEST(strspn(&buf[1], r) == sizeof(ll) * 2 - 1)) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "oops: LLONG_MIN=%s\n", buf); } ll = LLONG_MAX; lt = ll + 1; SM_TEST(lt < ll); sm_snprintf(buf, sizeof(buf), "%llx", ll); r = "f"; if (!SM_TEST(buf[0] == '7') || !SM_TEST(strspn(&buf[1], r) == sizeof(ll) * 2 - 1)) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "oops: LLONG_MAX=%s\n", buf); } #endif /* SM_CONF_TEST_LLONG */ ull = ULLONG_MAX; SM_TEST(ull + 1 == 0); sm_snprintf(buf, sizeof(buf), "%llx", ull); r = "f"; SM_TEST(strspn(buf, r) == sizeof(ll) * 2); /* ** If QUAD_MAX is defined by then quad_t is defined. ** Make sure LONGLONG_T is at least as big as quad_t. */ #ifdef QUAD_MAX SM_TEST(QUAD_MAX <= LLONG_MAX); #endif return sm_test_end(); } sendmail-8.18.1/libsm/fflush.c0000644000372400037240000000615014556365350015532 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2005, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: fflush.c,v 1.46 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include #include #include #include #include #include "local.h" #include /* ** SM_IO_FLUSH -- flush the buffer for a 'fp' to the "file" ** ** Flush a single file. We don't allow this function to flush ** all open files when fp==NULL any longer. ** ** Parameters: ** fp -- the file pointer buffer to flush ** timeout -- time to complete the flush ** ** Results: ** Failure: SM_IO_EOF and sets errno ** Success: 0 (zero) */ int sm_io_flush(fp, timeout) register SM_FILE_T *fp; int SM_NONVOLATILE timeout; { int fd; struct timeval to; SM_REQUIRE_ISA(fp, SmFileMagic); if ((fp->f_flags & (SMWR | SMRW)) == 0) { /* ** The file is not opened for writing, so it cannot be flushed ** (writable means SMWR [write] or SMRW [read/write]. */ errno = EBADF; return SM_IO_EOF; } SM_CONVERT_TIME(fp, fd, timeout, &to); /* Now do the flush */ return sm_flush(fp, (int *) &timeout); } /* ** SM_FLUSH -- perform the actual flush ** ** Assumes that 'fp' has been validated before this function called. ** ** Parameters: ** fp -- file pointer to be flushed ** timeout -- max time allowed for flush (milliseconds) ** ** Results: ** Success: 0 (zero) ** Failure: SM_IO_EOF and errno set ** ** Side Effects: ** timeout will get updated with the time remaining (if any) */ int sm_flush(fp, timeout) register SM_FILE_T *fp; int *timeout; { register unsigned char *p; register int n, t; int fd; SM_REQUIRE_ISA(fp, SmFileMagic); t = fp->f_flags; if ((t & SMWR) == 0) return 0; if (t & SMSTR) { *fp->f_p = '\0'; return 0; } if ((p = fp->f_bf.smb_base) == NULL) return 0; n = fp->f_p - p; /* write this much */ if ((fd = sm_io_getinfo(fp, SM_IO_WHAT_FD, NULL)) == -1) { /* can't get an fd, likely internal 'fake' fp */ errno = 0; fd = -1; } /* ** Set these immediately to avoid problems with longjmp and to allow ** exchange buffering (via setvbuf) in user write function. */ fp->f_p = p; fp->f_w = t & (SMLBF|SMNBF) ? 0 : fp->f_bf.smb_size; /* implies SMFBF */ for (; n > 0; n -= t, p += t) { errno = 0; /* needed to ensure EOF correctly found */ /* Call the file type's write function */ t = (*fp->f_write)(fp, (char *)p, n); if (t <= 0) { if (t == 0 && errno == 0) break; /* EOF found */ if (IS_IO_ERROR(fd, t, *timeout)) { fp->f_flags |= SMERR; /* errno set by fp->f_write */ return SM_IO_EOF; } SM_IO_WR_TIMEOUT(fp, fd, *timeout); t = 0; } } return 0; } sendmail-8.18.1/libsm/shm.c0000644000372400037240000000541014556365350015030 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2003, 2005 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: shm.c,v 1.20 2013-11-22 20:51:43 ca Exp $") #if SM_CONF_SHM # include # include # include # include # include # include /* ** SM_SHMSTART -- initialize shared memory segment. ** ** Parameters: ** key -- key for shared memory. ** size -- size of segment. ** shmflag -- initial flags. ** shmid -- pointer to return id. ** owner -- create segment. ** ** Returns: ** pointer to shared memory segment, ** NULL on failure. ** ** Side Effects: ** attaches shared memory segment. */ void * sm_shmstart(key, size, shmflg, shmid, owner) key_t key; int size; int shmflg; int *shmid; bool owner; { int save_errno; void *shm = SM_SHM_NULL; /* default: user/group accessible */ if (shmflg == 0) shmflg = SHM_R|SHM_W|(SHM_R>>3)|(SHM_W>>3); if (owner) shmflg |= IPC_CREAT|IPC_EXCL; *shmid = shmget(key, size, shmflg); if (*shmid < 0) goto error; shm = shmat(*shmid, (void *) 0, 0); if (shm == SM_SHM_NULL) goto error; return shm; error: save_errno = errno; if (shm != SM_SHM_NULL || *shmid >= 0) sm_shmstop(shm, *shmid, owner); *shmid = SM_SHM_NO_ID; errno = save_errno; return (void *) 0; } /* ** SM_SHMSTOP -- stop using shared memory segment. ** ** Parameters: ** shm -- pointer to shared memory. ** shmid -- id. ** owner -- delete segment. ** ** Returns: ** 0 on success. ** < 0 on failure. ** ** Side Effects: ** detaches (and maybe removes) shared memory segment. */ int sm_shmstop(shm, shmid, owner) void *shm; int shmid; bool owner; { int r; if (shm != SM_SHM_NULL && (r = shmdt(shm)) < 0) return r; if (owner && shmid >= 0 && (r = shmctl(shmid, IPC_RMID, NULL)) < 0) return r; return 0; } /* ** SM_SHMSETOWNER -- set owner/group/mode of shared memory segment. ** ** Parameters: ** shmid -- id. ** uid -- uid to use ** gid -- gid to use ** mode -- mode to use ** ** Returns: ** 0 on success. ** < 0 on failure. */ #ifdef __STDC__ int sm_shmsetowner(int shmid, uid_t uid, gid_t gid, MODE_T mode) #else /* __STDC__ */ int sm_shmsetowner(shmid, uid, gid, mode) int shmid; uid_t uid; gid_t gid; MODE_T mode; #endif /* __STDC__ */ { int r; struct shmid_ds shmid_ds; memset(&shmid_ds, 0, sizeof(shmid_ds)); if ((r = shmctl(shmid, IPC_STAT, &shmid_ds)) < 0) return r; shmid_ds.shm_perm.uid = uid; shmid_ds.shm_perm.gid = gid; shmid_ds.shm_perm.mode = mode; if ((r = shmctl(shmid, IPC_SET, &shmid_ds)) < 0) return r; return 0; } #endif /* SM_CONF_SHM */ sendmail-8.18.1/libsm/sem.c0000644000372400037240000001106614556365350015031 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2005, 2008 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: sem.c,v 1.15 2013-11-22 20:51:43 ca Exp $") #if SM_CONF_SEM # include # include # include # include # include # include # include /* ** SM_SEM_START -- initialize semaphores ** ** Parameters: ** key -- key for semaphores. ** nsem -- number of semaphores. ** semflg -- flag for semget(), if 0, use a default. ** owner -- create semaphores. ** ** Returns: ** id for semaphores. ** < 0 on failure. */ int sm_sem_start(key, nsem, semflg, owner) key_t key; int nsem; int semflg; bool owner; { int semid, i, err; unsigned short *semvals; semvals = NULL; if (semflg == 0) semflg = (SEM_A|SEM_R)|((SEM_A|SEM_R) >> 3); if (owner) semflg |= IPC_CREAT|IPC_EXCL; semid = semget(key, nsem, semflg); if (semid < 0) goto error; if (owner) { union semun semarg; semvals = (unsigned short *) sm_malloc(nsem * sizeof semvals); if (semvals == NULL) goto error; semarg.array = semvals; /* initialize semaphore values to be available */ for (i = 0; i < nsem; i++) semvals[i] = 1; if (semctl(semid, 0, SETALL, semarg) < 0) goto error; } return semid; error: err = errno; if (semvals != NULL) sm_free(semvals); if (semid >= 0) sm_sem_stop(semid); return (err > 0) ? (0 - err) : -1; } /* ** SM_SEM_STOP -- stop using semaphores. ** ** Parameters: ** semid -- id for semaphores. ** ** Returns: ** 0 on success. ** < 0 on failure. */ int sm_sem_stop(semid) int semid; { return semctl(semid, 0, IPC_RMID, NULL); } /* ** SM_SEM_ACQ -- acquire semaphore. ** ** Parameters: ** semid -- id for semaphores. ** semnum -- number of semaphore. ** timeout -- how long to wait for operation to succeed. ** ** Returns: ** 0 on success. ** < 0 on failure. */ int sm_sem_acq(semid, semnum, timeout) int semid; int semnum; int timeout; { int r; struct sembuf semops[1]; semops[0].sem_num = semnum; semops[0].sem_op = -1; semops[0].sem_flg = SEM_UNDO | (timeout != SM_TIME_FOREVER ? 0 : IPC_NOWAIT); if (timeout == SM_TIME_IMMEDIATE || timeout == SM_TIME_FOREVER) return semop(semid, semops, 1); do { r = semop(semid, semops, 1); if (r == 0) return r; sleep(1); --timeout; } while (timeout > 0); return r; } /* ** SM_SEM_REL -- release semaphore. ** ** Parameters: ** semid -- id for semaphores. ** semnum -- number of semaphore. ** timeout -- how long to wait for operation to succeed. ** ** Returns: ** 0 on success. ** < 0 on failure. */ int sm_sem_rel(semid, semnum, timeout) int semid; int semnum; int timeout; { int r; struct sembuf semops[1]; # if PARANOID /* XXX should we check whether the value is already 0 ? */ SM_REQUIRE(sm_get_sem(semid, semnum) > 0); # endif semops[0].sem_num = semnum; semops[0].sem_op = 1; semops[0].sem_flg = SEM_UNDO | (timeout != SM_TIME_FOREVER ? 0 : IPC_NOWAIT); if (timeout == SM_TIME_IMMEDIATE || timeout == SM_TIME_FOREVER) return semop(semid, semops, 1); do { r = semop(semid, semops, 1); if (r == 0) return r; sleep(1); --timeout; } while (timeout > 0); return r; } /* ** SM_SEM_GET -- get semaphore value. ** ** Parameters: ** semid -- id for semaphores. ** semnum -- number of semaphore. ** ** Returns: ** value of semaphore on success. ** < 0 on failure. */ int sm_sem_get(semid, semnum) int semid; int semnum; { int semval; if ((semval = semctl(semid, semnum, GETVAL, NULL)) < 0) return -1; return semval; } /* ** SM_SEMSETOWNER -- set owner/group/mode of semaphores. ** ** Parameters: ** semid -- id for semaphores. ** uid -- uid to use ** gid -- gid to use ** mode -- mode to use ** ** Returns: ** 0 on success. ** < 0 on failure. */ #ifdef __STDC__ int sm_semsetowner(int semid, uid_t uid, gid_t gid, MODE_T mode) #else /* __STDC__ */ int sm_semsetowner(semid, uid, gid, mode) int semid; uid_t uid; gid_t gid; MODE_T mode; #endif /* __STDC__ */ { int r; struct semid_ds semidds; union semun { int val; struct semid_ds *buf; ushort *array; } arg; memset(&semidds, 0, sizeof(semidds)); arg.buf = &semidds; if ((r = semctl(semid, 1, IPC_STAT, arg)) < 0) return r; semidds.sem_perm.uid = uid; semidds.sem_perm.gid = gid; semidds.sem_perm.mode = mode; if ((r = semctl(semid, 1, IPC_SET, arg)) < 0) return r; return 0; } #endif /* SM_CONF_SEM */ sendmail-8.18.1/libsm/b-strcmp.c0000644000372400037240000000663014556365350015775 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: b-strcmp.c,v 1.15 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include #include #define toseconds(x, y) (x.tv_sec - y.tv_sec) #define SIZE 512 #define LOOPS 4000000L /* initial number of loops */ #define MAXTIME 30L /* "maximum" time to run single test */ void fatal __P((char *)); void purpose __P((void)); int main __P((int, char *[])); void fatal(str) char *str; { perror(str); exit(1); } void purpose() { printf("This program benchmarks the performance differences between\n"); printf("strcasecmp() and sm_strcasecmp().\n"); printf("These tests may take several minutes to complete.\n"); } int main(argc, argv) int argc; char *argv[]; { long a; int k; bool doit = false; long loops; long j; long one, two; struct timeval t1, t2; char src1[SIZE], src2[SIZE]; # define OPTIONS "d" while ((k = getopt(argc, argv, OPTIONS)) != -1) { switch ((char) k) { case 'd': doit = true; break; default: break; } } if (!doit) { purpose(); printf("If you want to run it, specify -d as option.\n"); return 0; } /* Run-time comments to the user */ purpose(); printf("\n"); for (k = 0; k < 3; k++) { switch (k) { case 0: (void) sm_strlcpy(src1, "1234567890", SIZE); (void) sm_strlcpy(src2, "1234567890", SIZE); break; case 1: (void) sm_strlcpy(src1, "1234567890", SIZE); (void) sm_strlcpy(src2, "1234567891", SIZE); break; case 2: (void) sm_strlcpy(src1, "1234567892", SIZE); (void) sm_strlcpy(src2, "1234567891", SIZE); break; } printf("Test %d: strcasecmp(%s, %s) versus sm_strcasecmp()\n", k, src1, src2); loops = LOOPS; for (;;) { j = 0; if (gettimeofday(&t1, NULL) < 0) fatal("gettimeofday"); for (a = 0; a < loops; a++) j += strcasecmp(src1, src2); if (gettimeofday(&t2, NULL) < 0) fatal("gettimeofday"); one = toseconds(t2, t1); printf("\tstrcasecmp() result: %ld seconds [%ld]\n", one, j); j = 0; if (gettimeofday(&t1, NULL) < 0) fatal("gettimeofday"); for (a = 0; a < loops; a++) j += sm_strcasecmp(src1, src2); if (gettimeofday(&t2, NULL) < 0) fatal("gettimeofday"); two = toseconds(t2, t1); printf("\tsm_strcasecmp() result: %ld seconds [%ld]\n", two, j); if (abs(one - two) > 2) break; loops += loops; if (loops < 0L || one > MAXTIME) { printf("\t\t** results too close: no decision\n"); break; } else { printf("\t\t** results too close redoing test %ld times **\n", loops); } } } printf("\n\n"); printf("Interpreting the results:\n"); printf("\tFor differences larger than 2 seconds, the lower value is\n"); printf("\tbetter and that function should be used for performance\n"); printf("\treasons.\n\n"); printf("This program will re-run the tests when the difference is\n"); printf("less than 2 seconds.\n"); printf("The result will vary depending on the compiler optimization\n"); printf("level used. Compiling the sendmail libsm library with a\n"); printf("better optimization level can change the results.\n"); return 0; } sendmail-8.18.1/libsm/exc.c0000644000372400037240000003206614556365350015027 0ustar xbuildxbuild/* * Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: exc.c,v 1.50 2013-11-22 20:51:42 ca Exp $") /* ** exception handling ** For documentation, see exc.html */ #include #include #include #include #include #include #include #include const char SmExcMagic[] = "sm_exc"; const char SmExcTypeMagic[] = "sm_exc_type"; /* ** SM_ETYPE_PRINTF -- printf for exception types. ** ** Parameters: ** exc -- exception. ** stream -- file for output. ** ** Returns: ** none. */ /* ** A simple formatted print function that can be used as the print function ** by most exception types. It prints the printcontext string, interpreting ** occurrences of %0 through %9 as references to the argument vector. ** If exception argument 3 is an int or long, then %3 will print the ** argument in decimal, and %o3 or %x3 will print it in octal or hex. */ void sm_etype_printf(exc, stream) SM_EXC_T *exc; SM_FILE_T *stream; { size_t n = strlen(exc->exc_type->etype_argformat); const char *p, *s; char format; for (p = exc->exc_type->etype_printcontext; *p != '\0'; ++p) { if (*p != '%') { (void) sm_io_putc(stream, SM_TIME_DEFAULT, *p); continue; } ++p; if (*p == '\0') { (void) sm_io_putc(stream, SM_TIME_DEFAULT, '%'); break; } if (*p == '%') { (void) sm_io_putc(stream, SM_TIME_DEFAULT, '%'); continue; } format = '\0'; if (isalpha(*p)) { format = *p++; if (*p == '\0') { (void) sm_io_putc(stream, SM_TIME_DEFAULT, '%'); (void) sm_io_putc(stream, SM_TIME_DEFAULT, format); break; } } if (isdigit(*p)) { size_t i = *p - '0'; if (i < n) { switch (exc->exc_type->etype_argformat[i]) { case 's': case 'r': s = exc->exc_argv[i].v_str; if (s == NULL) s = "(null)"; sm_io_fputs(stream, SM_TIME_DEFAULT, s); continue; case 'i': sm_io_fprintf(stream, SM_TIME_DEFAULT, format == 'o' ? "%o" : format == 'x' ? "%x" : "%d", exc->exc_argv[i].v_int); continue; case 'l': sm_io_fprintf(stream, SM_TIME_DEFAULT, format == 'o' ? "%lo" : format == 'x' ? "%lx" : "%ld", exc->exc_argv[i].v_long); continue; case 'e': sm_exc_write(exc->exc_argv[i].v_exc, stream); continue; } } } (void) sm_io_putc(stream, SM_TIME_DEFAULT, '%'); if (format) (void) sm_io_putc(stream, SM_TIME_DEFAULT, format); (void) sm_io_putc(stream, SM_TIME_DEFAULT, *p); } } /* ** Standard exception types. */ /* ** SM_ETYPE_OS_PRINT -- Print OS related exception. ** ** Parameters: ** exc -- exception. ** stream -- file for output. ** ** Returns: ** none. */ static void sm_etype_os_print __P(( SM_EXC_T *exc, SM_FILE_T *stream)); static void sm_etype_os_print(exc, stream) SM_EXC_T *exc; SM_FILE_T *stream; { int err = exc->exc_argv[0].v_int; char *syscall = exc->exc_argv[1].v_str; char *sysargs = exc->exc_argv[2].v_str; if (sysargs) sm_io_fprintf(stream, SM_TIME_DEFAULT, "%s: %s failed: %s", sysargs, syscall, sm_errstring(err)); else sm_io_fprintf(stream, SM_TIME_DEFAULT, "%s failed: %s", syscall, sm_errstring(err)); } /* ** SmEtypeOs represents the failure of a Unix system call. ** The three arguments are: ** int errno (eg, ENOENT) ** char *syscall (eg, "open") ** char *sysargs (eg, NULL or "/etc/mail/sendmail.cf") */ const SM_EXC_TYPE_T SmEtypeOs = { SmExcTypeMagic, "E:sm.os", "isr", sm_etype_os_print, NULL, }; /* ** SmEtypeErr is a completely generic error which should only be ** used in applications and test programs. Libraries should use ** more specific exception codes. */ const SM_EXC_TYPE_T SmEtypeErr = { SmExcTypeMagic, "E:sm.err", "r", sm_etype_printf, "%0", }; /* ** SM_EXC_VNEW_X -- Construct a new exception object. ** ** Parameters: ** etype -- type of exception. ** ap -- varargs. ** ** Returns: ** pointer to exception object. */ /* ** This is an auxiliary function called by sm_exc_new_x and sm_exc_raisenew_x. ** ** If an exception is raised, then to avoid a storage leak, we must: ** (a) Free all storage we have allocated. ** (b) Free all exception arguments in the varargs list. ** Getting this right is tricky. ** ** To see why (b) is required, consider the code fragment ** SM_EXCEPT(exc, "*") ** sm_exc_raisenew_x(&MyEtype, exc); ** SM_END_TRY ** In the normal case, sm_exc_raisenew_x will allocate and raise a new ** exception E that owns exc. When E is eventually freed, exc is also freed. ** In the exceptional case, sm_exc_raisenew_x must free exc before raising ** an out-of-memory exception so that exc is not leaked. */ static SM_EXC_T *sm_exc_vnew_x __P((const SM_EXC_TYPE_T *, va_list)); static SM_EXC_T * sm_exc_vnew_x(etype, ap) const SM_EXC_TYPE_T *etype; va_list ap; { /* ** All variables that are modified in the SM_TRY clause and ** referenced in the SM_EXCEPT clause must be declared volatile. */ /* NOTE: Type of si, i, and argc *must* match */ SM_EXC_T * volatile exc = NULL; int volatile si = 0; SM_VAL_T * volatile argv = NULL; int i, argc; SM_REQUIRE_ISA(etype, SmExcTypeMagic); argc = strlen(etype->etype_argformat); SM_TRY { /* ** Step 1. Allocate the exception structure. ** On failure, scan the varargs list and free all ** exception arguments. */ exc = sm_malloc_x(sizeof(SM_EXC_T)); exc->sm_magic = SmExcMagic; exc->exc_refcount = 1; exc->exc_type = etype; exc->exc_argv = NULL; /* ** Step 2. Allocate the argument vector. ** On failure, free exc, scan the varargs list and free all ** exception arguments. On success, scan the varargs list, ** and copy the arguments into argv. */ argv = sm_malloc_x(argc * sizeof(SM_VAL_T)); exc->exc_argv = argv; for (i = 0; i < argc; ++i) { switch (etype->etype_argformat[i]) { case 'i': argv[i].v_int = SM_VA_ARG(ap, int); break; case 'l': argv[i].v_long = SM_VA_ARG(ap, long); break; case 'e': argv[i].v_exc = SM_VA_ARG(ap, SM_EXC_T*); break; case 's': argv[i].v_str = SM_VA_ARG(ap, char*); break; case 'r': SM_REQUIRE(etype->etype_argformat[i+1] == '\0'); argv[i].v_str = SM_VA_ARG(ap, char*); break; default: sm_abort("sm_exc_vnew_x: bad argformat '%c'", etype->etype_argformat[i]); } } /* ** Step 3. Scan argv, and allocate space for all ** string arguments. si is the number of elements ** of argv that have been processed so far. ** On failure, free exc, argv, all the exception arguments ** and all of the strings that have been copied. */ for (si = 0; si < argc; ++si) { switch (etype->etype_argformat[si]) { case 's': { char *str = argv[si].v_str; if (str != NULL) argv[si].v_str = sm_strdup_x(str); } break; case 'r': { char *fmt = argv[si].v_str; if (fmt != NULL) argv[si].v_str = sm_vstringf_x(fmt, ap); } break; } } } SM_EXCEPT(e, "*") { if (exc == NULL || argv == NULL) { /* ** Failure in step 1 or step 2. ** Scan ap and free all exception arguments. */ for (i = 0; i < argc; ++i) { switch (etype->etype_argformat[i]) { case 'i': (void) SM_VA_ARG(ap, int); break; case 'l': (void) SM_VA_ARG(ap, long); break; case 'e': sm_exc_free(SM_VA_ARG(ap, SM_EXC_T*)); break; case 's': case 'r': (void) SM_VA_ARG(ap, char*); break; } } } else { /* ** Failure in step 3. Scan argv and free ** all exception arguments and all string ** arguments that have been duplicated. ** Then free argv. */ for (i = 0; i < argc; ++i) { switch (etype->etype_argformat[i]) { case 'e': sm_exc_free(argv[i].v_exc); break; case 's': case 'r': if (i < si) sm_free(argv[i].v_str); break; } } sm_free(argv); } sm_free(exc); sm_exc_raise_x(e); } SM_END_TRY return exc; } /* ** SM_EXC_NEW_X -- Construct a new exception object. ** ** Parameters: ** etype -- type of exception. ** ... -- varargs. ** ** Returns: ** pointer to exception object. */ SM_EXC_T * #if SM_VA_STD sm_exc_new_x( const SM_EXC_TYPE_T *etype, ...) #else /* SM_VA_STD */ sm_exc_new_x(etype, va_alist) const SM_EXC_TYPE_T *etype; va_dcl #endif /* SM_VA_STD */ { SM_EXC_T *exc; SM_VA_LOCAL_DECL SM_VA_START(ap, etype); exc = sm_exc_vnew_x(etype, ap); SM_VA_END(ap); return exc; } /* ** SM_EXC_FREE -- Destroy a reference to an exception object. ** ** Parameters: ** exc -- exception object. ** ** Returns: ** none. */ void sm_exc_free(exc) SM_EXC_T *exc; { if (exc == NULL) return; SM_REQUIRE(exc->sm_magic == SmExcMagic); if (exc->exc_refcount == 0) return; if (--exc->exc_refcount == 0) { int i, c; for (i = 0; (c = exc->exc_type->etype_argformat[i]) != '\0'; ++i) { switch (c) { case 's': case 'r': sm_free(exc->exc_argv[i].v_str); break; case 'e': sm_exc_free(exc->exc_argv[i].v_exc); break; } } exc->sm_magic = NULL; sm_free(exc->exc_argv); sm_free(exc); } } /* ** SM_EXC_MATCH -- Match exception category against a glob pattern. ** ** Parameters: ** exc -- exception. ** pattern -- glob pattern. ** ** Returns: ** true iff match. */ bool sm_exc_match(exc, pattern) SM_EXC_T *exc; const char *pattern; { if (exc == NULL) return false; SM_REQUIRE(exc->sm_magic == SmExcMagic); return sm_match(exc->exc_type->etype_category, pattern); } /* ** SM_EXC_WRITE -- Write exception message to a stream (wo trailing newline). ** ** Parameters: ** exc -- exception. ** stream -- file for output. ** ** Returns: ** none. */ void sm_exc_write(exc, stream) SM_EXC_T *exc; SM_FILE_T *stream; { SM_REQUIRE_ISA(exc, SmExcMagic); exc->exc_type->etype_print(exc, stream); } /* ** SM_EXC_PRINT -- Print exception message to a stream (with trailing newline). ** ** Parameters: ** exc -- exception. ** stream -- file for output. ** ** Returns: ** none. */ void sm_exc_print(exc, stream) SM_EXC_T *exc; SM_FILE_T *stream; { SM_REQUIRE_ISA(exc, SmExcMagic); exc->exc_type->etype_print(exc, stream); (void) sm_io_putc(stream, SM_TIME_DEFAULT, '\n'); } SM_EXC_HANDLER_T *SmExcHandler = NULL; static SM_EXC_DEFAULT_HANDLER_T SmExcDefaultHandler = NULL; /* ** SM_EXC_NEWTHREAD -- Initialize exception handling for new process/thread. ** ** Parameters: ** h -- default exception handler. ** ** Returns: ** none. */ /* ** Initialize a new process or a new thread by clearing the ** exception handler stack and optionally setting a default ** exception handler function. Call this at the beginning of main, ** or in a new process after calling fork, or in a new thread. ** ** This function is a luxury, not a necessity. ** If h != NULL then you can get the same effect by ** wrapping the body of main, or the body of a forked child ** or a new thread in SM_TRY ... SM_EXCEPT(e,"*") h(e); SM_END_TRY. */ void sm_exc_newthread(h) SM_EXC_DEFAULT_HANDLER_T h; { SmExcHandler = NULL; SmExcDefaultHandler = h; } /* ** SM_EXC_RAISE_X -- Raise an exception. ** ** Parameters: ** exc -- exception. ** ** Returns: ** doesn't. */ void SM_DEAD_D sm_exc_raise_x(exc) SM_EXC_T *exc; { SM_REQUIRE_ISA(exc, SmExcMagic); if (SmExcHandler == NULL) { if (SmExcDefaultHandler != NULL) { SM_EXC_DEFAULT_HANDLER_T h; /* ** If defined, the default handler is expected ** to terminate the current thread of execution ** using exit() or pthread_exit(). ** If it instead returns normally, then we fall ** through to the default case below. If it ** raises an exception, then sm_exc_raise_x is ** re-entered and, because we set SmExcDefaultHandler ** to NULL before invoking h, we will again ** end up in the default case below. */ h = SmExcDefaultHandler; SmExcDefaultHandler = NULL; (*h)(exc); } /* ** No exception handler, so print the error and exit. ** To override this behaviour on a program wide basis, ** call sm_exc_newthread or put an exception handler in main(). ** ** XXX TODO: map the exception category to an exit code ** XXX from . */ sm_exc_print(exc, smioerr); exit(255); } if (SmExcHandler->eh_value == NULL) SmExcHandler->eh_value = exc; else sm_exc_free(exc); sm_longjmp_nosig(SmExcHandler->eh_context, 1); } /* ** SM_EXC_RAISENEW_X -- shorthand for sm_exc_raise_x(sm_exc_new_x(...)) ** ** Parameters: ** etype -- type of exception. ** ap -- varargs. ** ** Returns: ** none. */ void SM_DEAD_D #if SM_VA_STD sm_exc_raisenew_x( const SM_EXC_TYPE_T *etype, ...) #else sm_exc_raisenew_x(etype, va_alist) const SM_EXC_TYPE_T *etype; va_dcl #endif { SM_EXC_T *exc; SM_VA_LOCAL_DECL SM_VA_START(ap, etype); exc = sm_exc_vnew_x(etype, ap); SM_VA_END(ap); sm_exc_raise_x(exc); } sendmail-8.18.1/libsm/index.html0000644000372400037240000001372014556365350016075 0ustar xbuildxbuild libsm Overview

    libsm Overview


    $Id: index.html,v 1.14 2001-02-13 21:21:25 gshapiro Exp $

    Introduction

    Libsm is a library of generally useful C abstractions. Libsm stands alone; it depends on no other sendmail libraries, and the only sendmail header files it depends on are its own, which reside in ../include/sm.

    Contents

    Here is the current set of packages:
    gen: general definitions
    debug: debugging and tracing
    assert: assertion handling and aborts
    heap: memory allocation
    exc: exception handling
    rpool: resource pools
    cdefs: C language portability macros
    io: buffered i/o

    Naming Conventions

    Some of the symbols defined by libsm come from widely used defacto or dejure standards. Examples include size_t (from the C 89 standard), bool (from the C 99 standard), strerror (from Posix), and __P (from BSD and Linux). In these cases, we use the standard name rather than inventing a new name. We import the name from the appropriate header file when possible, or define it ourselves when necessary. When you are using one of these abstractions, you must include the appropriate libsm header file. For example, when you are using strerror, you must include <sm/string.h> instead of <string.h>.

    When we aren't implementing a standard interface, we use a naming convention that attempts to maximize portability across platforms, and minimize conflicts with other libraries. Except for a few seemingly benign exceptions, all names begin with SM_, Sm or sm_.

    The ISO C, Posix and Unix standards forbid applications from using names beginning with __ or _[A-Z], and place restrictions on what sorts of names can begin with _[a-z]. Such names are reserved for the compiler and the standard libraries. For this reason, we avoid defining any names that begin with _. For example, all libsm header file idempotency macros have the form SM_FOO_H (no leading _).

    Type names begin with SM_ and end with _T. Note that the Posix standard reserves all identifiers ending with _t.

    All functions that are capable of raising an exception have names ending in _x, and developers are encouraged to use this convention when writing new code. This naming convention may seem unnecessary at first, but it becomes extremely useful during maintenance, when you are attempting to reason about the correctness of a block of code, and when you are trying to track down exception-related bugs in existing code.

    Coding Conventions

    The official style for function prototypes in libsm header files is 
    extern int
foo __P((
	int _firstarg,
	int _secondarg));
    The extern is useless, but required for stylistic reasons. The parameter names are optional; if present they are lowercase and begin with _ to avoid namespace conflicts. Each parameter is written on its own line to avoid very long lines.

    For each structure struct sm_foo defined by libsm, there is a typedef: 

    typedef struct sm_foo SM_FOO_T;
    and there is a global variable which is defined as follows: 
    const char SmFooMagic[] = "sm_foo";
    The first member of each structure defined by libsm is 
    const char *sm_magic;
    For all instances of struct sm_foo, sm_magic contains SmFooMagic, which points to a unique character string naming the type. It is used for debugging and run time type checking.

    Each function with a parameter declared SM_FOO_T *foo contains the following assertion: 

    SM_REQUIRE_ISA(foo, SmFooMagic);
    which is equivalent to 
    SM_REQUIRE(foo != NULL && foo->sm_magic == SmFooMagic);
    When an object of type SM_FOO_T is deallocated, the member sm_magic is set to NULL. That will cause the above assertion to fail if a dangling pointer is used.

    Additional Design Goals

    Here are some of my design goals:

    • The sm library is self contained; it does not depend on any other sendmail libraries or header files.

    • The sm library must be compatible with shared libraries, even on platforms with weird implementation restrictions. I assume that a shared library can export global variables; the debug package relies on this assumption. I do not assume that if an application redefines a function defined in a shared library, the shared library will use the version of the function defined in the application in preference to the version that it defines. For this reason, I provide interfaces for registering handler functions in cases where an application might need to override standard behaviour.

    • The sm library must be compatible with threads. The debug package presents a small problem: I don't want sm_debug_active to acquire and release a lock. So I assume that there exists an integral type SM_ATOMIC_INT_T (see <sm/gen.h>) that can be accessed and updated atomically. I assume that locking must be used to guard updates and accesses to any other type, and I have designed the interfaces accordingly.
    sendmail-8.18.1/libsm/glue.h0000644000372400037240000000133314556365350015202 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: glue.h,v 1.7 2013-11-22 20:51:43 ca Exp $ */ /* ** The first few FILEs are statically allocated; others are dynamically ** allocated and linked in via this glue structure. */ extern struct sm_glue { struct sm_glue *gl_next; int gl_niobs; SM_FILE_T *gl_iobs; } smglue; sendmail-8.18.1/libsm/debug.c0000644000372400037240000002164014556365350015332 0ustar xbuildxbuild/* * Copyright (c) 2000, 2001, 2003, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: debug.c,v 1.33 2013-11-22 20:51:42 ca Exp $") /* ** libsm debugging and tracing ** For documentation, see debug.html. */ #include #include #if _FFR_DEBUG_PID_TIME #include #include #include #include #endif /* _FFR_DEBUG_PID_TIME */ #include #include #include #include #include #include #include #include static void sm_debug_reset __P((void)); static const char *parse_named_setting_x __P((const char *)); /* ** Abstractions for printing trace messages. */ /* ** The output file to which trace output is directed. ** There is a controversy over whether this variable ** should be process global or thread local. ** To make the interface more abstract, we've hidden the ** variable behind access functions. */ static SM_FILE_T *SmDebugOutput = smioout; /* ** SM_DEBUG_FILE -- Returns current debug file pointer. ** ** Parameters: ** none. ** ** Returns: ** current debug file pointer. */ SM_FILE_T * sm_debug_file() { return SmDebugOutput; } /* ** SM_DEBUG_SETFILE -- Sets debug file pointer. ** ** Parameters: ** fp -- new debug file pointer. ** ** Returns: ** none. ** ** Side Effects: ** Sets SmDebugOutput. */ void sm_debug_setfile(fp) SM_FILE_T *fp; { SmDebugOutput = fp; } /* ** SM_DEBUG_CLOSE -- Close debug file pointer. ** ** Parameters: ** none. ** ** Returns: ** none. ** ** Side Effects: ** Closes SmDebugOutput. */ void sm_debug_close() { if (SmDebugOutput != NULL && SmDebugOutput != smioout) { sm_io_close(SmDebugOutput, SM_TIME_DEFAULT); SmDebugOutput = NULL; } } /* ** SM_DPRINTF -- printf() for debug output. ** ** Parameters: ** fmt -- format for printf() ** ** Returns: ** none. */ #if _FFR_DEBUG_PID_TIME SM_DEBUG_T SmDBGPidTime = SM_DEBUG_INITIALIZER("sm_trace_pid_time", "@(#)$Debug: sm_trace_pid_time - print pid and time in debug $"); #endif void #if SM_VA_STD sm_dprintf(char *fmt, ...) #else /* SM_VA_STD */ sm_dprintf(fmt, va_alist) char *fmt; va_dcl #endif /* SM_VA_STD */ { SM_VA_LOCAL_DECL #if _FFR_DEBUG_PID_TIME static struct timeval lasttv; #endif if (SmDebugOutput == NULL) return; #if _FFR_DEBUG_PID_TIME /* note: this is ugly if the output isn't a full line! */ if (sm_debug_active(&SmDBGPidTime, 3)) { struct timeval tv, tvd; gettimeofday(&tv, NULL); if (timerisset(&lasttv)) timersub(&tv, &lasttv, &tvd); else timerclear(&tvd); sm_io_fprintf(SmDebugOutput, SmDebugOutput->f_timeout, "%ld: %ld.%06ld ", (long) getpid(), (long) tvd.tv_sec, (long) tvd.tv_usec); lasttv = tv; } else if (sm_debug_active(&SmDBGPidTime, 2)) { struct timeval tv; gettimeofday(&tv, NULL); sm_io_fprintf(SmDebugOutput, SmDebugOutput->f_timeout, "%ld: %ld.%06ld ", (long) getpid(), (long) tv.tv_sec, (long) tv.tv_usec); } else if (sm_debug_active(&SmDBGPidTime, 1)) { static char str[32] = "[1900-00-00/00:00:00] "; struct tm *tmp; time_t currt; currt = time((time_t *)0); tmp = localtime(&currt); snprintf(str, sizeof(str), "[%d-%02d-%02d/%02d:%02d:%02d] ", 1900 + tmp->tm_year, /* HACK */ tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec); sm_io_fprintf(SmDebugOutput, SmDebugOutput->f_timeout, "%ld: %s ", (long) getpid(), str); } #endif /* _FFR_DEBUG_PID_TIME */ SM_VA_START(ap, fmt); sm_io_vfprintf(SmDebugOutput, SmDebugOutput->f_timeout, fmt, ap); SM_VA_END(ap); } /* ** SM_DFLUSH -- Flush debug output. ** ** Parameters: ** none. ** ** Returns: ** none. */ void sm_dflush() { sm_io_flush(SmDebugOutput, SM_TIME_DEFAULT); } /* ** This is the internal database of debug settings. ** The semantics of looking up a setting in the settings database ** are that the *last* setting specified in a -d option on the sendmail ** command line that matches a given SM_DEBUG structure is the one that is ** used. That is necessary to conform to the existing semantics of ** the sendmail -d option. We store the settings as a linked list in ** reverse order, so when we do a lookup, we take the *first* entry ** that matches. */ typedef struct sm_debug_setting SM_DEBUG_SETTING_T; struct sm_debug_setting { const char *ds_pattern; unsigned int ds_level; SM_DEBUG_SETTING_T *ds_next; }; SM_DEBUG_SETTING_T *SmDebugSettings = NULL; /* ** We keep a linked list of SM_DEBUG structures that have been initialized, ** for use by sm_debug_reset. */ SM_DEBUG_T *SmDebugInitialized = NULL; const char SmDebugMagic[] = "sm_debug"; /* ** SM_DEBUG_RESET -- Reset SM_DEBUG structures. ** ** Reset all SM_DEBUG structures back to the uninitialized state. ** This is used by sm_debug_addsetting to ensure that references to ** SM_DEBUG structures that occur before sendmail processes its -d flags ** do not cause those structures to be permanently forced to level 0. ** ** Parameters: ** none. ** ** Returns: ** none. */ static void sm_debug_reset() { SM_DEBUG_T *debug; for (debug = SmDebugInitialized; debug != NULL; debug = debug->debug_next) { debug->debug_level = SM_DEBUG_UNKNOWN; } SmDebugInitialized = NULL; } /* ** SM_DEBUG_ADDSETTING_X -- add an entry to the database of debug settings ** ** Parameters: ** pattern -- a shell-style glob pattern (see sm_match). ** WARNING: the storage for 'pattern' will be owned by ** the debug package, so it should either be a string ** literal or the result of a call to sm_strdup_x. ** level -- a non-negative integer. ** ** Returns: ** none. ** ** Exceptions: ** F:sm_heap -- out of memory */ void sm_debug_addsetting_x(pattern, level) const char *pattern; int level; { SM_DEBUG_SETTING_T *s; SM_REQUIRE(pattern != NULL); SM_REQUIRE(level >= 0); s = sm_malloc_x(sizeof(SM_DEBUG_SETTING_T)); s->ds_pattern = pattern; s->ds_level = (unsigned int) level; s->ds_next = SmDebugSettings; SmDebugSettings = s; sm_debug_reset(); } /* ** PARSE_NAMED_SETTING_X -- process a symbolic debug setting ** ** Parameters: ** s -- Points to a non-empty \0 or , terminated string, ** of which the initial character is not a digit. ** ** Returns: ** pointer to terminating \0 or , character. ** ** Exceptions: ** F:sm.heap -- out of memory. ** ** Side Effects: ** adds the setting to the database. */ static const char * parse_named_setting_x(s) const char *s; { const char *pat, *endpat; int level; pat = s; while (*s != '\0' && *s != ',' && *s != '.') ++s; endpat = s; if (*s == '.') { ++s; level = 0; while (isascii(*s) && isdigit(*s)) { level = level * 10 + (*s - '0'); ++s; } if (level < 0) level = 0; } else level = 1; sm_debug_addsetting_x(sm_strndup_x(pat, endpat - pat), level); /* skip trailing junk */ while (*s != '\0' && *s != ',') ++s; return s; } /* ** SM_DEBUG_ADDSETTINGS_X -- process a list of debug options ** ** Parameters: ** s -- a list of debug settings, eg the argument to the ** sendmail -d option. ** ** The syntax of the string s is as follows: ** ** ::= | "," ** ::= | "." ** ::= [a-zA-Z_*?][a-zA-Z0-9_*?]* ** ** However, note that we skip over anything we don't ** understand, rather than report an error. ** ** Returns: ** none. ** ** Exceptions: ** F:sm.heap -- out of memory ** ** Side Effects: ** updates the database of debug settings. */ void sm_debug_addsettings_x(s) const char *s; { for (;;) { if (*s == '\0') return; if (*s == ',') { ++s; continue; } s = parse_named_setting_x(s); } } /* ** SM_DEBUG_LOADLEVEL -- Get activation level of the specified debug object. ** ** Parameters: ** debug -- debug object. ** ** Returns: ** Activation level of the specified debug object. ** ** Side Effects: ** Ensures that the debug object is initialized. */ int sm_debug_loadlevel(debug) SM_DEBUG_T *debug; { if (debug->debug_level == SM_DEBUG_UNKNOWN) { SM_DEBUG_SETTING_T *s; for (s = SmDebugSettings; s != NULL; s = s->ds_next) { if (sm_match(debug->debug_name, s->ds_pattern)) { debug->debug_level = s->ds_level; goto initialized; } } debug->debug_level = 0; initialized: debug->debug_next = SmDebugInitialized; SmDebugInitialized = debug; } return (int) debug->debug_level; } /* ** SM_DEBUG_LOADACTIVE -- Activation level reached? ** ** Parameters: ** debug -- debug object. ** level -- level to check. ** ** Returns: ** true iff the activation level of the specified debug ** object >= level. ** ** Side Effects: ** Ensures that the debug object is initialized. */ bool sm_debug_loadactive(debug, level) SM_DEBUG_T *debug; int level; { return sm_debug_loadlevel(debug) >= level; } sendmail-8.18.1/libsm/t-ixlen.c0000644000372400037240000000476414556365350015634 0ustar xbuildxbuild/* * Copyright (c) 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-qic.c,v 1.10 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include #if _FFR_8BITENVADDR extern bool SmTestVerbose; static int Verbose = 0; static void chkilenx(str, len) const char *str; int len; { int xlen; xlen = ilenx(str); SM_TEST(len == xlen); if (len != xlen) fprintf(stderr, "str=\"%s\", len=%d, expected=%d\n", str, xlen, len); } static void chkilen(str) char *str; { char *obp; int outlen, leni, lenx, ilen; char line_in[1024]; XLENDECL lenx = strlen(str); sm_strlcpy(line_in, str, sizeof(line_in)); obp = quote_internal_chars(str, NULL, &outlen, NULL); leni = strlen(obp); for (ilen = 0; *obp != '\0'; obp++, ilen++) { XLEN(*obp); } if (Verbose) fprintf(stderr, "str=\"%s\", ilen=%d, xlen=%d\n", str, ilen, xlen); SM_TEST(ilen == leni); if (ilen != leni) fprintf(stderr, "str=\"%s\", ilen=%d, leni=%d\n", str, ilen, leni); SM_TEST(xlen == lenx); if (xlen != lenx) fprintf(stderr, "str=\"%s\", xlen=%d, lenx=%d\n", str, xlen, lenx); } static void chkxleni(str, len) const char *str; int len; { int ilen; ilen = xleni(str); SM_TEST(len == ilen); if (len != ilen) fprintf(stderr, "str=\"%s\", len=%d, expected=%d\n", str, ilen, len); } static void usage(prg) const char *prg; { fprintf(stderr, "usage: %s [options]\n", prg); fprintf(stderr, "options:\n"); fprintf(stderr, "-x xleni\n"); } int main(argc, argv) int argc; char *argv[]; { int o, len; bool x, both; char line[1024]; x = both = false; while ((o = getopt(argc, argv, "bxV")) != -1) { switch ((char) o) { case 'b': both = true; break; case 'x': x = true; break; case 'V': Verbose++; break; default: usage(argv[0]); exit(1); } } sm_test_begin(argc, argv, "test ilenx"); if (both) { while (fscanf(stdin, "%s\n", line) == 1) chkilen(line); return sm_test_end(); } while (fscanf(stdin, "%d:%s\n", &len, line) == 2) { if (x) chkxleni(line, len); else chkilenx(line, len); } return sm_test_end(); } #else /* _FFR_8BITENVADDR */ int main(argc, argv) int argc; char *argv[]; { return 0; } #endif /* _FFR_8BITENVADDR */ sendmail-8.18.1/libsm/lowercase.c0000644000372400037240000000671214556365350016233 0ustar xbuildxbuild/* * Copyright (c) 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include #include #include #include #if USE_EAI # include # include # include # include # include /* ** ASCIISTR -- check whether a string is printable ASCII ** ** Parameters: ** str -- string ** ** Returns: ** TRUE iff printable ASCII */ bool asciistr(str) const char *str; { unsigned char ch; if (str == NULL) return true; while ((ch = (unsigned char)*str) != '\0' && ch >= 32 && ch < 127) str++; return ch == '\0'; } /* ** ASCIINSTR -- check whether a string is printable ASCII up to len ** ** Parameters: ** str -- string ** len -- length to check ** ** Returns: ** TRUE iff printable ASCII */ bool asciinstr(str, len) const char *str; size_t len; { unsigned char ch; int n; if (str == NULL) return true; SM_REQUIRE(len < INT_MAX); n = 0; while (n < len && (ch = (unsigned char)*str) != '\0' && ch >= 32 && ch < 127) { n++; str++; } return n == len || ch == '\0'; } #endif /* USE_EAI */ /* ** MAKELOWER -- Translate a line into lower case ** ** Parameters: ** p -- string to translate (modified in place if possible). [A] ** ** Returns: ** lower cased string ** ** Side Effects: ** String p is translated to lower case if possible. */ char * makelower(p) char *p; { char c; char *orig; if (p == NULL) return p; orig = p; #if USE_EAI if (!asciistr(p)) return (char *)sm_lowercase(p); #endif for (; (c = *p) != '\0'; p++) if (isascii(c) && isupper(c)) *p = tolower(c); return orig; } #if USE_EAI /* ** SM_LOWERCASE -- lower case a UTF-8 string ** Note: this should ONLY be applied to a UTF-8 string, ** i.e., the caller should check first if it isn't an ASCII string. ** ** Parameters: ** str -- original string ** ** Returns: ** lower case version of string [S] ** ** How to return an error description due to failed unicode calls? ** However, is that even relevant? */ char * sm_lowercase(str) const char *str; { int olen, ilen; UErrorCode error; ssize_t req; int n; static UCaseMap *csm = NULL; static char *out = NULL; static int outlen = 0; # if SM_CHECK_REQUIRE if (sm_debug_active(&SmExpensiveRequire, 3)) SM_REQUIRE(!asciistr(str)); # endif /* an empty string is always ASCII */ SM_REQUIRE(NULL != str && '\0' != *str); if (NULL == csm) { error = U_ZERO_ERROR; csm = ucasemap_open("en_US", U_FOLD_CASE_DEFAULT, &error); if (U_SUCCESS(error) == 0) { /* syserr("ucasemap_open error: %s", u_errorName(error)); */ return NULL; } } ilen = strlen(str); olen = ilen + 1; if (olen > outlen) { outlen = olen; out = sm_realloc_x(out, outlen); } for (n = 0; n < 3; n++) { error = U_ZERO_ERROR; req = ucasemap_utf8FoldCase(csm, out, olen, str, ilen, &error); if (U_SUCCESS(error)) { if (req >= olen) { outlen = req + 1; out = sm_realloc_x(out, outlen); out[req] = '\0'; } break; } else if (error == U_BUFFER_OVERFLOW_ERROR) { outlen = req + 1; out = sm_realloc_x(out, outlen); olen = outlen; } else { /* syserr("conversion error for \"%s\": %s", str, u_errorName(error)); */ return NULL; } } return out; } #endif /* USE_EAI */ sendmail-8.18.1/libsm/inet6_ntop.c0000644000372400037240000000214414556365350016327 0ustar xbuildxbuild/* * Copyright (c) 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: inet6_ntop.c,v 1.2 2013-11-22 20:51:43 ca Exp $") #if NETINET6 # include # include # include # include # include /* ** SM_INET6_NTOP -- convert IPv6 address to ASCII string (uncompressed) ** ** Parameters: ** ipv6 -- IPv6 address ** dst -- ASCII representation of address (output) ** len -- length of dst ** ** Returns: ** error: NULL */ char * sm_inet6_ntop(ipv6, dst, len) const void *ipv6; char *dst; size_t len; { SM_UINT16 *u16; int r; u16 = (SM_UINT16 *)ipv6; r = sm_snprintf(dst, len, "%x:%x:%x:%x:%x:%x:%x:%x" , htons(u16[0]) , htons(u16[1]) , htons(u16[2]) , htons(u16[3]) , htons(u16[4]) , htons(u16[5]) , htons(u16[6]) , htons(u16[7]) ); if (r > 0) return dst; return NULL; } #endif /* NETINET6 */ sendmail-8.18.1/libsm/rpool.html0000644000372400037240000001412614556365350016122 0ustar xbuildxbuild libsm : Resource Pools Back to libsm overview

    libsm : Resource Pools


    $Id: rpool.html,v 1.4 2000-12-07 17:33:09 dmoen Exp $

    Introduction

    A resource pool is an object that owns a collection of objects that can be freed all at once.

    Resource pools simplify storage management.

    Resource pools also speed up memory management. For example, here are some memory allocation statistics from a run of `sendmail -q` that delivered 3 messages: 

         18	1	     82	12	     87	24	      7	42	      2	84
   3046	2	     18	13	      6	25	     89	44	      2	88
    728	3	     15	14	      2	26	     14	48	      1	91
     31	4	      9	15	      3	27	    104	52	      3	92
    103	5	    394	16	     80	28	      8	56	      2	96
    125	6	     16	17	      1	31	      2	60	      1	100
     45	7	     14	18	     59	32	     10	64	      9	108
    130	8	      6	19	      1	33	      6	68	      3	135
     40	9	    111	20	      7	34	      1	72	     10	140
     37	10	      7	21	     54	36	     10	76
     34	11	      4	22	     38	40	      5	80
    The second number in each pair is the size of a memory block; the first number is the number of blocks of that size. We can see that sendmail allocates large numbers of 2 byte blocks. These memory blocks can be allocated and freed more quickly using resource pools, because:
    • When you allocate a small block from a resource pool, the rpool implementation carves off a chunk of a large preallocated block, and hands you a pointer to it.
    • When you free a resource pool, only a small number of large blocks need to be freed.

    Synopsis 

    #include <sm/rpool.h>

typedef void (*SM_RPOOL_RFREE_T)(void *rcontext);
typedef struct sm_rpool SM_RPOOL_T;
typedef ... SM_RPOOL_ATTACH_T;

SM_RPOOL_T *
sm_rpool_new_x(
	SM_RPOOL_T *parent);

void
sm_rpool_free(
	SM_RPOOL_T *rpool);

void *
sm_rpool_malloc_x(
	SM_RPOOL_T *rpool,
	size_t size);

SM_RPOOL_ATTACH_T
sm_rpool_attach_x(
	SM_RPOOL_T *rpool,
	SM_RPOOL_RFREE_T rfree,
	void *rcontext);

void
sm_rpool_detach(
	SM_RPOOL_ATTACH_T);

void
sm_rpool_setsizes(
	SM_RPOOL_T *rpool,
	size_t poolsize,
	size_t bigobjectsize);

    Description

    SM_RPOOL_T *sm_rpool_new_x(SM_RPOOL_T *parent)
    Create a new resource pool object. Raise an exception if there is insufficient heap space. Initially, no memory is allocated for memory pools or resource lists.

    If parent != NULL then the new rpool will be added as a resource to the specified parent rpool, so that when the parent is freed, the child is also freed. However, even if a parent is specified, you can free the rpool at any time, and it will be automatically disconnected from the parent.

    void *sm_rpool_malloc_x(SM_RPOOL_T *rpool, size_t size)
    Allocate a block of memory from a memory pool owned by the rpool. Raise an exception if there is insufficient heap space. A series of small allocation requests can be satisfied allocating them from the same memory pool, which reduces the number of calls to malloc. All of the memory allocated by sm_rpool_malloc_x is freed when the rpool is freed, and not before then.

    void sm_rpool_setsizes(SM_RPOOL_T *rpool, size_t poolsize, size_t bigobjectsize)
    Set memory pool parameters. You can safely call this function at any time, but an especially good time to call it is immediately after creating the rpool, before any pooled objects have been allocated using sm_rpool_malloc_x.

    poolsize is the number of bytes of pool memory that will be available in the next pool object to be allocated. If you happen to know the total number of bytes of memory that you will allocate from an rpool using sm_rpool_malloc_x (including alignment padding), then you can pass that value as the poolsize, and only a single pool will be allocated during the lifetime of the rpool. poolsize is an optimization, not a hard limit: if you allocate more than this number of bytes from the rpool, then more than one memory pool may be allocated by the rpool to satisfy your requests.

    bigobjectsize is a value <= poolsize. It is used when an sm_rpool_malloc_x request exceeds the number of bytes available in the current pool. If the request is > bigobjectsize then the request will be satisfied by allocating a new block just for this specific request, and the current pool is not affected. If the request is <= bigobjectsize then the current pool is closed and a new memory pool is allocated, from which the request is satisfied. Consequently, no more than bigobjectsize-1 bytes will ever be wasted at the end of a given pool.

    If poolsize or bigobjectsize are 0, then suitable default values are chosen.

    SM_RPOOL_ATTACH_T sm_rpool_attach_x(SM_RPOOL_T *rpool, SM_RPOOL_RFREE_T rfree, void *rcontext)
    Attach an object to a resource pool, along with its free function. When the rpool is freed, the specified object will also be freed. Raise an exception if there is insufficient heap space.

    The return value is a magic cookie which, if passed to sm_rpool_detach, disconnects the object from the resource pool, which prevents the object's free function from being called when the rpool is freed.

    void sm_rpool_detach(SM_RPOOL_ATTACH_T a)
    The argument is a magic cookie returned by sm_rpool_attach_t, and refers to the object that was attached to an rpool by a specific call to sm_rpool_attach_t. Disconnect the object from the resource pool, which prevents the object's free function from being called when the rpool is freed.

    void sm_rpool_free(SM_RPOOL_T *rpool)
    Free an rpool object. All memory allocated using sm_rpool_malloc_x and all objects attached using sm_rpool_attach_x are freed at this time. If the rpool has a parent rpool, it is detached from its parent.
    sendmail-8.18.1/libsm/t-fopen.c0000644000372400037240000000155314556365350015615 0ustar xbuildxbuild/* * Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-fopen.c,v 1.10 2013-11-22 20:51:43 ca Exp $") #include #include #include /* ARGSUSED0 */ int main(argc, argv) int argc; char *argv[]; { int m, r; SM_FILE_T *out; sm_test_begin(argc, argv, "test sm_io_fopen"); out = sm_io_fopen("foo", O_WRONLY|O_APPEND|O_CREAT, 0666); SM_TEST(out != NULL); if (out != NULL) { (void) sm_io_fprintf(out, SM_TIME_DEFAULT, "foo\n"); r = sm_io_getinfo(out, SM_IO_WHAT_MODE, &m); SM_TEST(r == 0); SM_TEST(m == SM_IO_WRONLY); sm_io_close(out, SM_TIME_DEFAULT); } return sm_test_end(); } sendmail-8.18.1/libsm/t-fget.c0000644000372400037240000000332414556365350015431 0ustar xbuildxbuild/* * Copyright (c) 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-fget.c,v 1.2 2013-11-22 20:51:43 ca Exp $") #include #include #include #include void check(char *msg, int l) { SM_FILE_T *wfp, *rfp; char buf[256]; size_t n; int r, i; static char fn[] = "tfget"; wfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, fn, SM_IO_WRONLY_B, NULL); SM_TEST(wfp != NULL); for (i = 0; i < l; i++) { r = sm_io_putc(wfp, SM_TIME_DEFAULT, msg[i]); SM_TEST(r >= 0); } r = sm_io_close(wfp, SM_TIME_DEFAULT); SM_TEST(r == 0); rfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, fn, SM_IO_RDONLY_B, NULL); SM_TEST(rfp != NULL); n = sizeof(buf); r = sm_io_fgets(rfp, SM_TIME_DEFAULT, buf, n); if (l == 0) { SM_TEST(r == -1); SM_TEST(errno == 0); } else { SM_TEST(r == l); if (r != l) fprintf(stderr, "buf='%s', in='%s', r=%d, l=%d\n", buf, msg, r, l); } SM_TEST(memcmp(buf, msg, l) == 0); r = sm_io_close(rfp, SM_TIME_DEFAULT); SM_TEST(r == 0); } int main(argc, argv) int argc; char **argv; { char res[256]; int l; sm_test_begin(argc, argv, "test fget"); check("", strlen("")); check("\n", strlen("\n")); check("test\n", strlen("test\n")); l = snprintf(res, sizeof(res), "%c%s\n", '\0', "test ing"); check(res, l); l = snprintf(res, sizeof(res), "%c%s%c\n", '\0', "test ing", '\0'); check(res, l); l = snprintf(res, sizeof(res), "%c%s%c%s\n", '\0', "test ing", '\0', "eol"); check(res, l); return sm_test_end(); } sendmail-8.18.1/libsm/makebuf.c0000644000372400037240000000653314556365350015662 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_RCSID("@(#)$Id: makebuf.c,v 1.27 2013-11-22 20:51:43 ca Exp $") #include #include #include #include #include #include #include #include "local.h" /* ** SM_MAKEBUF -- make a buffer for the file ** ** Parameters: ** fp -- the file to be buffered ** ** Returns: ** nothing ** ** Allocate a file buffer, or switch to unbuffered I/O. ** By default tty devices default to line buffered. */ void sm_makebuf(fp) register SM_FILE_T *fp; { register void *p; register int flags; size_t size; int couldbetty; if (fp->f_flags & SMNBF) { fp->f_bf.smb_base = fp->f_p = fp->f_nbuf; fp->f_bf.smb_size = 1; return; } flags = sm_whatbuf(fp, &size, &couldbetty); if ((p = sm_malloc(size)) == NULL) { fp->f_flags |= SMNBF; fp->f_bf.smb_base = fp->f_p = fp->f_nbuf; fp->f_bf.smb_size = 1; return; } if (!Sm_IO_DidInit) sm_init(); flags |= SMMBF; fp->f_bf.smb_base = fp->f_p = p; fp->f_bf.smb_size = size; if (couldbetty && isatty(fp->f_file)) flags |= SMLBF; fp->f_flags |= flags; } /* ** SM_WHATBUF -- determine proper buffer for a file (internal) ** ** Plus it fills in 'bufsize' for recommended buffer size and ** fills in flag to indicate if 'fp' could be a tty (nothing ** to do with "betty" :-) ). ** ** Parameters: ** fp -- file pointer to be buffered ** bufsize -- new buffer size (a return) ** couldbetty -- could be a tty (returns) ** ** Returns: ** Success: ** on error: ** SMNPT -- not seek opimized ** SMOPT -- seek opimized */ int sm_whatbuf(fp, bufsize, couldbetty) register SM_FILE_T *fp; size_t *bufsize; int *couldbetty; { struct stat st; if (fp->f_file < 0 || fstat(fp->f_file, &st) < 0) { *couldbetty = 0; *bufsize = SM_IO_BUFSIZ; return SMNPT; } /* could be a tty iff it is a character device */ *couldbetty = S_ISCHR(st.st_mode); if (st.st_blksize == 0) { *bufsize = SM_IO_BUFSIZ; return SMNPT; } #if SM_IO_MAX_BUF_FILE > 0 if (S_ISREG(st.st_mode) && st.st_blksize > SM_IO_MAX_BUF_FILE) st.st_blksize = SM_IO_MAX_BUF_FILE; #endif #if SM_IO_MAX_BUF > 0 || SM_IO_MIN_BUF > 0 if (!S_ISREG(st.st_mode)) { # if SM_IO_MAX_BUF > 0 if (st.st_blksize > SM_IO_MAX_BUF) st.st_blksize = SM_IO_MAX_BUF; # if SM_IO_MIN_BUF > 0 else # endif # endif /* SM_IO_MAX_BUF > 0 */ # if SM_IO_MIN_BUF > 0 if (st.st_blksize < SM_IO_MIN_BUF) st.st_blksize = SM_IO_MIN_BUF; # endif } #endif /* SM_IO_MAX_BUF > 0 || SM_IO_MIN_BUF > 0 */ /* ** Optimise fseek() only if it is a regular file. (The test for ** sm_std_seek is mainly paranoia.) It is safe to set _blksize ** unconditionally; it will only be used if SMOPT is also set. */ if ((fp->f_flags & SMSTR) == 0) { *bufsize = st.st_blksize; fp->f_blksize = st.st_blksize; } else *bufsize = SM_IO_BUFSIZ; if ((st.st_mode & S_IFMT) == S_IFREG && fp->f_seek == sm_stdseek) return SMOPT; else return SMNPT; } sendmail-8.18.1/libsm/cf.c0000644000372400037240000000377014556365350014640 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: cf.c,v 1.8 2013-11-22 20:51:42 ca Exp $") #include #include #include #include #include #include #include /* ** SM_CF_GETOPT -- look up option values in the sendmail.cf file ** ** Open the sendmail.cf file and parse all of the 'O' directives. ** Each time one of the options named in the option vector optv ** is found, store a malloced copy of the option value in optv. ** ** Parameters: ** path -- pathname of sendmail.cf file ** optc -- size of option vector ** optv -- pointer to option vector ** ** Results: ** 0 on success, or an errno value on failure. ** An exception is raised on malloc failure. */ int sm_cf_getopt(path, optc, optv) char *path; int optc; SM_CF_OPT_T *optv; { SM_FILE_T *cfp; char buf[2048]; char *p; char *id; char *idend; char *val; int i; cfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, path, SM_IO_RDONLY, NULL); if (cfp == NULL) return errno; while (sm_io_fgets(cfp, SM_TIME_DEFAULT, buf, sizeof(buf)) >= 0) { p = strchr(buf, '\n'); if (p != NULL) *p = '\0'; if (buf[0] != 'O' || buf[1] != ' ') continue; id = &buf[2]; val = strchr(id, '='); if (val == NULL) val = idend = id + strlen(id); else { idend = val; ++val; while (*val == ' ') ++val; while (idend > id && idend[-1] == ' ') --idend; *idend = '\0'; } for (i = 0; i < optc; ++i) { if (SM_STRCASEEQ(optv[i].opt_name, id)) { optv[i].opt_val = sm_strdup_x(val); break; } } } if (sm_io_error(cfp)) { int save_errno = errno; (void) sm_io_close(cfp, SM_TIME_DEFAULT); errno = save_errno; return errno; } (void) sm_io_close(cfp, SM_TIME_DEFAULT); return 0; } sendmail-8.18.1/libsm/t-string.c0000644000372400037240000000171014556365350016007 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #include SM_IDSTR(id, "@(#)$Id: t-string.c,v 1.12 2013-11-22 20:51:43 ca Exp $") #include #include #include #include int main(argc, argv) int argc; char **argv; { char *s; char buf[4096]; char foo[4]; char *r; int n; sm_test_begin(argc, argv, "test string utilities"); s = sm_stringf_x("%.3s%03d", "foobar", 42); r = "foo042"; SM_TEST(strcmp(s, r) == 0); s = sm_stringf_x("+%*x+", 2000, 0xCAFE); sm_snprintf(buf, 4096, "+%*x+", 2000, 0xCAFE); SM_TEST(strcmp(s, buf) == 0); foo[3] = 1; n = sm_snprintf(foo, sizeof(foo), "foobar%dbaz", 42); SM_TEST(n == 11); r = "foo"; SM_TEST(strcmp(foo, r) == 0); return sm_test_end(); } sendmail-8.18.1/test/0000755000372400037240000000000014556365433013750 5ustar xbuildxbuildsendmail-8.18.1/test/Makefile.m40000644000372400037240000000070414556365350015726 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 1.6 2013-04-01 21:04:29 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') bldPRODUCT_START(`executable', `test') define(`bldSOURCES', `t_dropgid.c ') bldPRODUCT_END include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/sm-test.m4') dnl smtest(`getipnode') smtest(`t_dropgid') smtest(`t_exclopen') smtest(`t_pathconf') smtest(`t_seteuid') smtest(`t_setgid') smtest(`t_setreuid') smtest(`t_setuid') dnl smtest(`t_snprintf') bldFINISH sendmail-8.18.1/test/t_snprintf.c0000644000372400037240000000155514556365350016306 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include #ifndef lint static char id[] = "@(#)$Id: t_snprintf.c,v 8.5 2013-11-22 20:52:01 ca Exp $"; #endif #define TEST_STRING "1234567890" int main(argc, argv) int argc; char **argv; { int r; char buf[5]; r = snprintf(buf, sizeof buf, "%s", TEST_STRING); if (buf[sizeof buf - 1] != '\0' || r != strlen(TEST_STRING)) { fprintf(stderr, "Add the following to devtools/Site/site.config.m4:\n\n"); fprintf(stderr, "APPENDDEF(`confENVDEF', `-DSNPRINTF_IS_BROKEN=1')\n\n"); exit(EX_OSERR); } fprintf(stderr, "snprintf() appears to work properly\n"); exit(EX_OK); } sendmail-8.18.1/test/t_setreuid.c0000644000372400037240000000575014556365350016270 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ /* ** This program checks to see if your version of setreuid works. ** Compile it, make it set-user-ID root, and run it as yourself (NOT as ** root). If it won't compile or outputs any MAYDAY messages, don't ** define HASSETREUID in conf.h. ** ** Compilation is trivial -- just "cc t_setreuid.c". Make it set-user-ID, ** root and then execute it as a non-root user. */ #include #include #include #include #ifndef lint static char id[] = "@(#)$Id: t_setreuid.c,v 8.10 2013-11-22 20:52:01 ca Exp $"; #endif #ifdef __hpux # define setreuid(r, e) setresuid(r, e, -1) #endif static void printuids(str, r, e) char *str; uid_t r, e; { printf("%s (should be %d/%d): r/euid=%d/%d\n", str, (int) r, (int) e, (int) getuid(), (int) geteuid()); } int main(argc, argv) int argc; char **argv; { int fail = 0; uid_t realuid = getuid(); printuids("initial uids", realuid, 0); if (geteuid() != 0) { printf("SETUP ERROR: re-run set-user-ID root\n"); exit(1); } if (getuid() == 0) { printf("SETUP ERROR: must be run by a non-root user\n"); exit(1); } if (setreuid(0, 1) < 0) { fail++; printf("setreuid(0, 1) failure\n"); } printuids("after setreuid(0, 1)", 0, 1); if (getuid() != 0) { fail++; printf("MAYDAY! Wrong real uid\n"); } if (geteuid() != 1) { fail++; printf("MAYDAY! Wrong effective uid\n"); } /* do activity here */ if (setreuid(-1, 0) < 0) { fail++; printf("setreuid(-1, 0) failure\n"); } printuids("after setreuid(-1, 0)", 0, 0); if (setreuid(realuid, 0) < 0) { fail++; printf("setreuid(%d, 0) failure\n", (int) realuid); } printuids("after setreuid(realuid, 0)", realuid, 0); if (geteuid() != 0) { fail++; printf("MAYDAY! Wrong effective uid\n"); } if (getuid() != realuid) { fail++; printf("MAYDAY! Wrong real uid\n"); } printf("\n"); if (setreuid(0, 2) < 0) { fail++; printf("setreuid(0, 2) failure\n"); } printuids("after setreuid(0, 2)", 0, 2); if (geteuid() != 2) { fail++; printf("MAYDAY! Wrong effective uid\n"); } if (getuid() != 0) { fail++; printf("MAYDAY! Wrong real uid\n"); } /* do activity here */ if (setreuid(-1, 0) < 0) { fail++; printf("setreuid(-1, 0) failure\n"); } printuids("after setreuid(-1, 0)", 0, 0); if (setreuid(realuid, 0) < 0) { fail++; printf("setreuid(%d, 0) failure\n", (int) realuid); } printuids("after setreuid(realuid, 0)", realuid, 0); if (geteuid() != 0) { fail++; printf("MAYDAY! Wrong effective uid\n"); } if (getuid() != realuid) { fail++; printf("MAYDAY! Wrong real uid\n"); } if (fail) { printf("\nThis system cannot use setreuid\n"); exit(1); } printf("\nIt is safe to define HASSETREUID on this system\n"); exit(0); } sendmail-8.18.1/test/t_dropgid.c0000644000372400037240000000677614556365350016105 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ /* ** This program checks to see if your version of setgid works. ** Compile it, make it set-group-ID guest, and run it as yourself (NOT as ** root and not as member of the group guest). ** ** Compilation is trivial -- just "cc t_dropgid.c". Make it set-group-ID ** guest and then execute it as a non-root user. */ #include #include #include #include #ifndef lint static char id[] = "@(#)$Id: t_dropgid.c,v 1.7 2013-11-22 20:52:01 ca Exp $"; #endif static void printgids(str, r, e) char *str; gid_t r, e; { printf("%s (should be %d/%d): r/egid=%d/%d\n", str, (int) r, (int) e, (int) getgid(), (int) getegid()); } /* define only one of these */ #if HASSETEGID # define SETGIDCALL "setegid" #endif #if HASSETREGID # define SETGIDCALL "setregid" #endif #if HASSETRESGID # define SETGIDCALL "setresgid" #endif #ifndef SETGIDCALL # define SETGIDCALL "setgid" #endif int main(argc, argv) int argc; char **argv; { int fail = 0; int res; gid_t realgid = getgid(); gid_t effgid = getegid(); char *prg = argv[0]; printgids("initial gids", realgid, effgid); if (effgid == realgid) { printf("SETUP ERROR: re-run set-group-ID guest\n"); printf("Use chgrp(1) and chmod(1)\n"); printf("For example, do this as root "); printf("(nobody is the name of a group in this example):\n"); printf("# chgrp nobody %s\n", prg); printf("# chmod g+s nobody %s\n", prg); exit(1); } #if HASSETREGID res = setregid(realgid, realgid); printf("setregid(%d)=%d %s\n", (int) realgid, res, res < 0 ? "failure" : "ok"); printgids("after setregid()", realgid, realgid); #endif /* HASSETREGID */ #if HASSETRESGID res = setresgid(realgid, realgid, realgid); printf("setresgid(%d)=%d %s\n", (int) realgid, res, res < 0 ? "failure" : "ok"); printgids("after setresgid()", realgid, realgid); #endif /* HASSETRESGID */ #if HASSETEGID res = setegid(realgid); printf("setegid(%d)=%d %s\n", (int) realgid, res, res < 0 ? "failure" : "ok"); printgids("after setegid()", realgid, realgid); #endif /* HASSETEGID */ res = setgid(realgid); printf("setgid(%d)=%d %s\n", (int) realgid, res, res < 0 ? "failure" : "ok"); printgids("after setgid()", realgid, realgid); if (getegid() != realgid) { fail++; printf("MAYDAY! Wrong effective gid\n"); } if (getgid() != realgid) { fail++; printf("MAYDAY! Wrong real gid\n"); } /* do activity here */ if (setgid(effgid) == 0) { fail++; printf("MAYDAY! setgid(%d) succeeded (should have failed)\n", effgid); } else { printf("setgid(%d) failed (this is correct)\n", effgid); } printgids("after setgid() to egid", realgid, realgid); if (getegid() != realgid) { fail++; printf("MAYDAY! Wrong effective gid\n"); } if (getgid() != realgid) { fail++; printf("MAYDAY! Wrong real gid\n"); } printf("\n"); if (fail > 0) { printf("\nThis system cannot use %s to give up set-group-ID rights\n", SETGIDCALL); #if !HASSETEGID printf("Maybe compile with -DHASSETEGID and try again\n"); #endif #if !HASSETREGID printf("Maybe compile with -DHASSETREGID and try again\n"); #endif #if !HASSETRESGID printf("Maybe compile with -DHASSETRESGID and try again\n"); #endif exit(1); } printf("\nIt is possible to use %s on this system\n", SETGIDCALL); exit(0); } sendmail-8.18.1/test/t_setgid.c0000644000372400037240000000450614556365350015721 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ /* ** This program checks to see if your version of setgid works. ** Compile it, make it set-group-ID guest, and run it as yourself (NOT as ** root and not as member of the group guest). ** ** Compilation is trivial -- just "cc t_setgid.c". Make it set-group-ID, ** guest and then execute it as a non-root user. */ #include #include #include #include #ifndef lint static char id[] = "@(#)$Id: t_setgid.c,v 1.7 2013-11-22 20:52:01 ca Exp $"; #endif static void printgids(str, r, e) char *str; gid_t r, e; { printf("%s (should be %d/%d): r/egid=%d/%d\n", str, (int) r, (int) e, (int) getgid(), (int) getegid()); } int main(argc, argv) int argc; char **argv; { int fail = 0; int res; gid_t realgid = getgid(); gid_t effgid = getegid(); printgids("initial gids", realgid, effgid); if (effgid == realgid) { printf("SETUP ERROR: re-run set-group-ID guest\n"); exit(1); } #if SM_CONF_SETREGID res = setregid(effgid, effgid); #else res = setgid(effgid); #endif printf("setgid(%d)=%d %s\n", (int) effgid, res, res < 0 ? "failure" : "ok"); #if SM_CONF_SETREGID printgids("after setregid()", effgid, effgid); #else printgids("after setgid()", effgid, effgid); #endif if (getegid() != effgid) { fail++; printf("MAYDAY! Wrong effective gid\n"); } if (getgid() != effgid) { fail++; printf("MAYDAY! Wrong real gid\n"); } /* do activity here */ if (setgid(0) == 0) { fail++; printf("MAYDAY! setgid(0) succeeded (should have failed)\n"); } else { printf("setgid(0) failed (this is correct)\n"); } printgids("after setgid(0)", effgid, effgid); if (getegid() != effgid) { fail++; printf("MAYDAY! Wrong effective gid\n"); } if (getgid() != effgid) { fail++; printf("MAYDAY! Wrong real gid\n"); } printf("\n"); if (fail > 0) { printf("\nThis system cannot use %s to set the real gid to the effective gid\nand clear the saved gid.\n", #if SM_CONF_SETREGID "setregid" #else "setgid" #endif ); exit(1); } printf("\nIt is possible to use setgid on this system\n"); exit(0); } sendmail-8.18.1/test/Makefile0000644000372400037240000000053214556365350015406 0ustar xbuildxbuild# $Id: Makefile,v 1.2 2006-05-30 18:50:26 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/test/Build0000755000372400037240000000052314556365350014733 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 1.2 2013-11-22 20:52:01 ca Exp $ exec sh ../devtools/bin/Build $* sendmail-8.18.1/test/Results0000644000372400037240000001523114556365350015334 0ustar xbuildxbuild+------------+ | t_setreuid | +------------+ The following are results of running t_setreuid on various architectures. OPSYS VERSION STATUS DATE TESTER/NOTES ===== ======= ====== ==== ============ SunOS 4.1 OK 93.07.19 eric SunOS 4.1.2 OK 93.07.19 eric SunOS 4.1.3 OK 93.09.25 Robert Elz BSD 4.4 OK 93.07.19 eric (weird results, but functional) BSD 4.3Utah OK 93.07.19 eric FreeBSD 2.1-sta OK 96.04.14 Jaye Mathisen Ultrix 4.2A OK 93.07.19 eric Ultrix 4.3A OK 93.07.19 Allan Johannesen Ultrix 4.5 OK 96.09.18 Gregory Neil Shapiro HP-UX 8.07 OK 93.07.19 eric (on 7xx series) HP-UX 8.02 OK 93.07.19 Michael Corrigan (on 8xx series) HP-UX 8.00 OK 93.07.21 Michael Corrigan (on 3xx/4xx series) HP-UX 9.01 OK 93.11.19 Cassidy (on 7xx series) Solaris 2.1 Solaris 2.2 FAIL 93.07.19 Bill Wisner Solaris 2.3 FAIL 95.11.22 Scott J. Kramer Solaris 2.5 OK 96.02.29 Carson Gaspar Solaris 2.5.1 OK 96.11.29 Gregory Neil Shapiro OSF/1 T1.3-4 OK 93.07.19 eric (on DEC Alpha) OSF/1 1.3 OK 94.12.10 Jeff A. Earickson (on Intel Paragon) OSF/1 3.2D OK 96.09.18 Gregory Neil Shapiro OSF/1 4.0 OK 96.09.18 Gregory Neil Shapiro CxOS 11.5 OK 96.07.08 Eric Schnoebelen CxOS 11.0 OK 93.01.21 Eric Schnoebelen (CxOS 11.0 beta 1) CxOS 10.x OK 93.01.21 Eric Schnoebelen AIX 3.1.5 FAIL 93.08.07 David J. N. Begley AIX 3.2.3e FAIL 93.07.26 Steve Bauer AIX 3.2.4 FAIL 93.10.07 David J. N. Begley AIX 3.2.5 FAIL 94.05.17 Steve Bauer AIX 4.1 FAIL 96.10.21 Hakan Lindholm AIX 4.2 OK 96.10.16 Steve Bauer IRIX 4.0.4 OK 93.09.25 Robert Elz IRIX 5.2 OK 94.12.06 Mark Andrews IRIX 5.3 OK 94.12.06 Mark Andrews IRIX 6.2 OK 96.09.16 Kari E. Hurtta IRIX 6.3 OK 97.02.10 Mark Andrews SCO 3.2v4.0 OK 93.10.02 Peter Wemm (with -lsocket from 3.2v4 devsys) NeXT 2.1 OK 93.07.28 eric NeXT 3.0 OK 34.05.05 Kevin John Wang Linux 0.99p10 OK 93.08.08 Karl London Linux 0.99p13 OK 93.09.27 Christian Kuhtz Linux 0.99p14 OK 93.11.30 Christian Kuhtz Linux 1.0 OK 94.03.19 Shayne Smith Linux 1.2.13 OK 95.11.02 Sven Neuhaus Linux 2.0.17 OK 96.09.03 Horst von Brand Linux 2.1.109 OK 98.07.21 John Kennedy BSD/386 1.0 OK 93.11.13 Tony Sanders DELL 2.2 OK 93.11.15 Peter Wemm (using -DSETEUID) Pyramid 5.0d OK 95.01.14 David Miller +-----------+ | t_seteuid | +-----------+ The following are results of running t_seteuid on various architectures. OPSYS VERSION STATUS DATE TESTER/NOTES ===== ======= ====== ==== ============ Solaris 2.3 OK 95.11.22 Scott J. Kramer Solaris 2.4 OK 95.09.22 Thomas 'Mike' Michlmayr Solaris 2.5 OK 96.02.29 Carson Gaspar Solaris 2.5.1 OK 96.11.29 Gregory Neil Shapiro Linux 1.2.13 FAIL 95.11.02 Sven Neuhaus Linux 2.0.17 FAIL 96.09.03 Horst von Brand Linux 2.1.109 FAIL 98.07.21 John Kennedy AIX 4.1 OK 96.10.21 Hakan Lindholm IRIX 5.2 OK 95.12.01 Mark Andrews IRIX 5.3 OK 95.12.01 Mark Andrews IRIX 6.2 OK 96.09.16 Kari E. Hurtta IRIX 6.3 OK 97.02.10 Mark Andrews FreeBSD 2.1-sta OK 96.04.14 Jaye Mathisen Ultrix 4.5 FAIL 96.09.18 Gregory Neil Shapiro OSF/1 3.2D OK 96.09.18 Gregory Neil Shapiro OSF/1 4.0 OK 96.09.18 Gregory Neil Shapiro CxOS 11.5 FAIL 96.07.08 Eric Schnoebelen +------------+ | t_pathconf | +------------+ The following are the results of running t_pathconf.c. Safe means that the underlying filesystem (in NFS, the filesystem on the server) does not permit regular (non-root) users to chown their files to another user. Unsafe means that they can. Typically, BSD-based systems do not permit giveaway and System V-based systems do. However, some systems (e.g., Solaris) can set this on a per-system or per-filesystem basis. Entries are the return value of pathconf, the errno value, and a * if chown disagreed with the result of the pathconf call, and a ? if the test has not been run. A mark of [R] means that the local filesystem has chown set to be restricted, [U] means that it is set to be unrestricted. Safe Filesystem Unsafe Filesystem SYSTEM LOCAL NFS-V2 NFS-V3 NFS-V2 NFS-V3 SunOS 4.1.3_U1 1/0 -1/EINVAL* n/a -1/EINVAL? n/a SunOS 4.1.4 1/0 -1/EINVAL* n/a -1/EINVAL n/a AIX 3.2 0/0 0/0 Solaris 2.4 1/0 -1/EINVAL* Solaris 2.5 1/0 -1/EINVAL* 1/0 0/0? Solaris 2.5.1 1/0 -1/EINVAL* 0/0 DEC OSF1 3.0 0/0 0/0 DEC OSF1 3.2D-2 0/0 0/0 0/0 DEC OSF1 4.0A 0/0 0/0 0/0 DEC OSF 4.0B 0/0 0/0 0/0 Ultrix 4.3 0/0 0/0 n/a n/a Ultrix 4.5 1/0 1/0 HP-UX 9.05 -1/0 -1/EOPNOTSUPP* -1/EOPNOTSUPP HP-UX 9.05[R] 1/0 -1/EOPNOTSUPP* -1/EOPNOTSUPP* HP-UX 10.10 -1/0 -1/EOPNOTSUPP* -1/EOPNOTSUPP HP-UX 10.20 -1/EOPNOTSUPP? -1/EOPNOTSUPP? HP-UX 10.30 -1/0 -1/EOPNOTSUPP -1/EOPNOTSUPP BSD/OS 2.1 1/0 FreeBSD 2.1.7 1/0 -1/EINVAL* -1/EINVAL Irix 5.3 -1/0* -1/0 Irix 6.2 1/0 -1/0 0/0* Irix 6.2 -1/0 -1/0 Irix 6.3 R10000 -1/0 -1/0 0/0* A/UX 3.1.1 1/0 DomainOS [R] -1/0* DomainOS [U] -1/0 NCR MP-RAS 2 -1/0 NCR MP-RAS 3 -1/0 Linux 2.0.27 1/0 1/0 +-----------+ | t_dropgid | +-----------+ The following are results of running t_dropgid on various architectures. OPSYS VERSION STATUS DATE TESTER/NOTES ===== ======= ====== ==== ============ AIX 4.3.3 FAILS 2001-09-22 Valdis Kletnieks BSD/OS 4.2 OK 2001-09-22 Vernon Schryver FreeBSD 3.2 OK 2001-09-22 ca FreeBSD 4.4 OK 2001-09-29 ca HP-UX 11.00 HASSETRESGID 2001-09-22 ca IRIX 6.5 FAILS 2001-09-22 Mark D. Roth Linux 2.0.35 HASSETREGID 2001-09-22 Neil W Rickert Linux 2.2.12 HASSETREGID 2001-09-22 ca Linux 2.2.16 HASSETREGID 2001-09-22 Neil W Rickert Linux 2.4.9 HASSETREGID 2001-09-22 Derek Balling NetBSD 1.5 OK 2001-09-22 Kimmo Suominen OpenBSD 2.8 HASSETEGID 2001-09-22 ca SCO 5.0.5 FAILS 2001-09-22 Phillip Porch SunOS 5.7 HASSETREGID 2001-09-22 Neil W Rickert SunOS 5.8 HASSETREGID 2001-09-22 ca SunOS 5.9 HASSETREGID 2001-09-22 Neil W Rickert $Revision: 8.3 $, Last updated $Date: 2001-09-30 01:32:33 $ sendmail-8.18.1/test/t_pathconf.c0000644000372400037240000000406714556365350016246 0ustar xbuildxbuild/* * Copyright (c) 1999 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ /* ** The following test program tries the pathconf(2) routine. It should ** be run in a non-NFS-mounted directory (e.g., /tmp) and on remote (NFS) ** mounted directories running both NFS-v2 and NFS-v3 from systems that ** both do and do not permit file giveaway. */ #include #include #include #include #include #include #include #ifdef EX_OK # undef EX_OK /* unistd.h may have another use for this */ #endif #include #ifndef lint static char id[] = "@(#)$Id: t_pathconf.c,v 8.7 2013-11-22 20:52:01 ca Exp $"; #endif int main(argc, argv) int argc; char **argv; { int fd; int i; char tbuf[100]; extern int errno; if (geteuid() == 0) { printf("*** Run me as a non-root user! ***\n"); exit(EX_USAGE); } strcpy(tbuf, "TXXXXXX"); fd = mkstemp(tbuf); if (fd < 0) { printf("*** Could not create test file %s\n", tbuf); exit(EX_CANTCREAT); } errno = 0; i = pathconf(".", _PC_CHOWN_RESTRICTED); printf("pathconf(.) returns %2d, errno = %d\n", i, errno); errno = 0; i = pathconf(tbuf, _PC_CHOWN_RESTRICTED); printf("pathconf(%s) returns %2d, errno = %d\n", tbuf, i, errno); errno = 0; i = fpathconf(fd, _PC_CHOWN_RESTRICTED); printf("fpathconf(%s) returns %2d, errno = %d\n", tbuf, i, errno); if (errno == 0 && i >= 0) { /* so it claims that it doesn't work -- try anyhow */ printf(" fpathconf claims that chown is safe "); if (fchown(fd, 1, 1) >= 0) printf("*** but fchown works anyhow! ***\n"); else printf("and fchown agrees\n"); } else { /* well, let's see what really happens */ printf(" fpathconf claims that chown is not safe "); if (fchown(fd, 1, 1) >= 0) printf("as indeed it is not\n"); else printf("*** but in fact it is safe ***\n"); } (void) unlink(tbuf); exit(EX_OK); } sendmail-8.18.1/test/t_setuid.c0000644000372400037240000000415714556365350015741 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ /* ** This program checks to see if your version of setuid works. ** Compile it, make it set-user-ID root, and run it as yourself (NOT as ** root). ** ** NOTE: This should work everywhere, but Linux has the ability ** to use the undocumented setcap() call to make this break. ** ** Compilation is trivial -- just "cc t_setuid.c". Make it set-user-ID, ** root and then execute it as a non-root user. */ #include #include #include #include #ifndef lint static char id[] = "@(#)$Id: t_setuid.c,v 8.8 2013-11-22 20:52:01 ca Exp $"; #endif static void printuids(str, r, e) char *str; uid_t r, e; { printf("%s (should be %d/%d): r/euid=%d/%d\n", str, (int) r, (int) e, (int) getuid(), (int) geteuid()); } int main(argc, argv) int argc; char **argv; { int fail = 0; uid_t realuid = getuid(); printuids("initial uids", realuid, 0); if (geteuid() != 0) { printf("SETUP ERROR: re-run set-user-ID root\n"); exit(1); } if (getuid() == 0) { printf("SETUP ERROR: must be run by a non-root user\n"); exit(1); } if (setuid(1) < 0) printf("setuid(1) failure\n"); printuids("after setuid(1)", 1, 1); if (geteuid() != 1) { fail++; printf("MAYDAY! Wrong effective uid\n"); } if (getuid() != 1) { fail++; printf("MAYDAY! Wrong real uid\n"); } /* do activity here */ if (setuid(0) == 0) { fail++; printf("MAYDAY! setuid(0) succeeded (should have failed)\n"); } else { printf("setuid(0) failed (this is correct)\n"); } printuids("after setuid(0)", 1, 1); if (geteuid() != 1) { fail++; printf("MAYDAY! Wrong effective uid\n"); } if (getuid() != 1) { fail++; printf("MAYDAY! Wrong real uid\n"); } printf("\n"); if (fail) { printf("\nThis system cannot use setuid (maybe use setreuid)\n"); exit(1); } printf("\nIt is safe to use setuid on this system\n"); exit(0); } sendmail-8.18.1/test/t_seteuid.c0000644000372400037240000000514214556365350016101 0ustar xbuildxbuild/* * Copyright (c) 1999-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ /* ** This program checks to see if your version of seteuid works. ** Compile it, make it set-user-ID root, and run it as yourself (NOT as ** root). If it won't compile or outputs any MAYDAY messages, don't ** define USESETEUID in conf.h. ** ** NOTE: It is not sufficient to have seteuid in your library. ** You must also have saved uids that function properly. ** ** Compilation is trivial -- just "cc t_seteuid.c". Make it set-user-ID ** root and then execute it as a non-root user. */ #include #include #include #include #ifndef lint static char id[] = "@(#)$Id: t_seteuid.c,v 8.9 2013-11-22 20:52:01 ca Exp $"; #endif #ifdef __hpux # define seteuid(e) setresuid(-1, e, -1) #endif static void printuids(str, r, e) char *str; uid_t r, e; { printf("%s (should be %d/%d): r/euid=%d/%d\n", str, (int) r, (int) e, (int) getuid(), (int) geteuid()); } int main(argc, argv) int argc; char **argv; { int fail = 0; uid_t realuid = getuid(); printuids("initial uids", realuid, 0); if (geteuid() != 0) { printf("SETUP ERROR: re-run set-user-ID root\n"); exit(1); } if (getuid() == 0) { printf("SETUP ERROR: must be run by a non-root user\n"); exit(1); } if (seteuid(1) < 0) printf("seteuid(1) failure\n"); printuids("after seteuid(1)", realuid, 1); if (geteuid() != 1) { fail++; printf("MAYDAY! Wrong effective uid\n"); } /* do activity here */ if (seteuid(0) < 0) { fail++; printf("seteuid(0) failure\n"); } printuids("after seteuid(0)", realuid, 0); if (geteuid() != 0) { fail++; printf("MAYDAY! Wrong effective uid\n"); } if (getuid() != realuid) { fail++; printf("MAYDAY! Wrong real uid\n"); } printf("\n"); if (seteuid(2) < 0) { fail++; printf("seteuid(2) failure\n"); } printuids("after seteuid(2)", realuid, 2); if (geteuid() != 2) { fail++; printf("MAYDAY! Wrong effective uid\n"); } /* do activity here */ if (seteuid(0) < 0) { fail++; printf("seteuid(0) failure\n"); } printuids("after seteuid(0)", realuid, 0); if (geteuid() != 0) { fail++; printf("MAYDAY! Wrong effective uid\n"); } if (getuid() != realuid) { fail++; printf("MAYDAY! Wrong real uid\n"); } if (fail) { printf("\nThis system cannot use seteuid\n"); exit(1); } printf("\nIt is safe to define USESETEUID on this system\n"); exit(0); } sendmail-8.18.1/test/t_exclopen.c0000644000372400037240000000472314556365350016260 0ustar xbuildxbuild/* * Copyright (c) 1999 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ /* ** This program tests your system to see if you have the lovely ** security-defeating semantics that an open with O_CREAT|O_EXCL ** set will successfully open a file named by a symbolic link that ** points to a non-existent file. Sadly, Posix is mute on what ** should happen in this situation. ** ** Results to date: ** AIX 3.2 OK ** BSD family OK ** BSD/OS 2.1 OK ** FreeBSD 2.1 OK ** DEC OSF/1 3.0 OK ** HP-UX 9.04 FAIL ** HP-UX 9.05 FAIL ** HP-UX 9.07 OK ** HP-UX 10.01 OK ** HP-UX 10.10 OK ** HP-UX 10.20 OK ** Irix 5.3 OK ** Irix 6.2 OK ** Irix 6.3 OK ** Irix 6.4 OK ** Linux OK ** NeXT 2.1 OK ** Solaris 2.x OK ** SunOS 4.x OK ** Ultrix 4.3 OK */ #include #include #include #include #include #include #include #include #include #ifndef lint static char id[] = "@(#)$Id: t_exclopen.c,v 8.7 2013-11-22 20:52:01 ca Exp $"; #endif static char Attacker[128]; static char Attackee[128]; static void bail(status) int status; { (void) unlink(Attacker); (void) unlink(Attackee); exit(status); } int main(argc, argv) int argc; char **argv; { struct stat st; sprintf(Attacker, "/tmp/attacker.%d.%ld", getpid(), time(NULL)); sprintf(Attackee, "/tmp/attackee.%d.%ld", getpid(), time(NULL)); if (symlink(Attackee, Attacker) < 0) { printf("Could not create %s->%s symlink: %d\n", Attacker, Attackee, errno); bail(1); } (void) unlink(Attackee); if (stat(Attackee, &st) >= 0) { printf("%s already exists -- remove and try again.\n", Attackee); bail(1); } if (open(Attacker, O_WRONLY|O_CREAT|O_EXCL, 0644) < 0) { int save_errno = errno; if (stat(Attackee, &st) >= 0) { printf("Weird. Open failed but %s was created anyhow (errno = %d)\n", Attackee, save_errno); bail(1); } printf("Good show! Exclusive open works properly with symbolic links (errno = %d).\n", save_errno); bail(0); } if (stat(Attackee, &st) < 0) { printf("Weird. Open succeeded but %s was not created\n", Attackee); bail(2); } printf("Bad news: you can do an exclusive open through a symbolic link\n"); printf("\tBe sure you #define BOGUS_O_EXCL in conf.h\n"); bail(1); /* NOTREACHED */ exit(0); } sendmail-8.18.1/test/README0000644000372400037240000000213614556365350014630 0ustar xbuildxbuild# Copyright (c) 2001 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # $Id: README,v 1.3 2013-11-22 20:52:01 ca Exp $ # This directory contains several programs to test various OS calls. If your OS is not listed in the Results file, you should run those test programs. Most of them have instructions at the begin of source code, at least those which are important. Notice: most of these programs require set-user-ID or set-group-ID installation. Hence they are not tested automatically. t_dropgid.c test how to drop saved-gid for a set-group-ID program t_exclopen.c test for security-defeating semantics that an open with O_CREAT|O_EXCL set will successfully open a file named by a symbolic link that to a non-existent file t_pathconf.c test whether pathconf(2) works t_seteuid.c test whether seteuid(2) works t_setgid.c test whether setgid(2) works t_setreuid.c test whether setreuid(2) works t_setuid.c test whether setuid(2) works sendmail-8.18.1/README0000644000372400037240000004270114556365350013653 0ustar xbuildxbuild SENDMAIL RELEASE 8 This directory has the latest sendmail(TM) software from Proofpoint, Inc. Report any bugs to sendmail-bugs-YYYY@support.sendmail.org where YYYY is the current year, e.g., 2023. There is a web site at https://www.sendmail.org/ -- see that site for the latest updates. +--------------+ | INTRODUCTION | +--------------+ 0. The vast majority of queries about sendmail are answered in the README files noted below. 1. Read this README file, especially this introduction, and the DIRECTORY PERMISSIONS sections. 2. Read the INSTALL file in this directory. 3. Read sendmail/README, especially: a. the introduction b. the BUILDING SENDMAIL section c. the relevant part(s) of the OPERATING SYSTEM AND COMPILE QUIRKS section You may also find these useful: d. sendmail/SECURITY e. devtools/README f. devtools/Site/README g. libmilter/README h. mail.local/README i. smrsh/README 4. Read cf/README. Sendmail is a trademark of Proofpoint, Inc. US Patent Numbers 6865671, 6986037. +-----------------------+ | DIRECTORY PERMISSIONS | +-----------------------+ Sendmail often gets blamed for many problems that are actually the result of other problems, such as overly permissive modes on directories. For this reason, sendmail checks the modes on system directories and files to determine if they can be trusted. For sendmail to run without complaining, you MUST execute the following command: chmod go-w / /etc /etc/mail /usr /var /var/spool /var/spool/mqueue chown root / /etc /etc/mail /usr /var /var/spool /var/spool/mqueue You will probably have to tweak this for your environment (for example, some systems put the spool directory into /usr/spool instead of /var/spool). If you set the RunAsUser option in your sendmail.cf, the /var/spool/mqueue directory will have to be owned by the RunAsUser user. As a general rule, after you have compiled sendmail, run the command sendmail -v -bi to initialize the alias database. If it gives messages such as WARNING: writable directory /etc WARNING: writable directory /var/spool/mqueue then the directories listed have inappropriate write permissions and should be secured to avoid various possible security attacks. Beginning with sendmail 8.9, these checks have become more strict to prevent users from being able to access files they would normally not be able to read. In particular, .forward and :include: files in unsafe directory paths (directory paths which are group or world writable) will no longer be allowed. This would mean that if user joe's home directory was writable by group staff, sendmail would not use his .forward file. This behavior can be altered, at the expense of system security, by setting the DontBlameSendmail option. For example, to allow .forward files in group writable directories: O DontBlameSendmail=forwardfileingroupwritabledirpath Or to allow them in both group and world writable directories: O DontBlameSendmail=forwardfileinunsafedirpath Items from these unsafe .forward and :include: files will be marked as unsafe addresses -- the items can not be deliveries to files or programs. This behavior can also be altered via DontBlameSendmail: O DontBlameSendmail=forwardfileinunsafedirpath, forwardfileinunsafedirpathsafe The first flag allows the .forward file to be read, the second allows the items in the file to be marked as safe for file and program delivery. Other files affected by this strengthened security include class files (i.e., Fw /etc/mail/local-host-names), persistent host status files, and the files specified by the ErrorHeader and HelpFile options. Similar DontBlameSendmail flags are available for the class, ErrorHeader, and HelpFile files. If you have an unsafe configuration of .forward and :include: files, you can make it safe by finding all such files, and doing a "chmod go-w $FILE" on each. Also, do a "chmod go-w $DIR" for each directory in the file's path. +--------------------------+ | FILE AND MAP PERMISSIONS | +--------------------------+ Any application which uses either flock() or fcntl() style locking or other APIs that use one of these locking methods (such as open() with O_EXLOCK and O_SHLOCK) on files readable by other local untrusted users may be susceptible to local denial of service attacks. File locking is used throughout sendmail for a variety of files including aliases, maps, statistics, and the pid file. Any user who can open one of these files can prevent sendmail or it's associated utilities, e.g., makemap or newaliases, from operating properly. This can also affect sendmail's ability to update status files such as statistics files. For system which use flock() for file locking, a user's ability to obtain an exclusive lock prevents other sendmail processes from reading certain files such as alias or map databases. A workaround for this problem is to protect all sendmail files such that they can't be opened by untrusted users. As long as users can not open a file, they can not lock it. Since queue files should already have restricted permissions, the only files that need adjustment are alias, map, statistics, and pid files. These files should be owned by root or the trusted user specified in the TrustedUser option. Changing the permissions to be only readable and writable by that user is sufficient to avoid the denial of service. For example, depending on the paths you use, these commands would be used: chmod 0640 /etc/mail/aliases /etc/mail/aliases.{db,pag,dir} chmod 0640 /etc/mail/*.{db,pag,dir} chmod 0640 /etc/mail/statistics /var/log/sendmail.st chmod 0600 /var/run/sendmail.pid /etc/mail/sendmail.pid If the permissions 0640 are used, be sure that only trusted users belong to the group assigned to those files. Otherwise, files should not even be group readable. As of sendmail 8.12.4, the permissions shown above are the default permissions for newly created files. Note that the denial of service on the plain text aliases file (/etc/mail/aliases) only prevents newaliases from rebuilding the aliases file. The same is true for the database files on systems which use fcntl() style locking. Since it does not interfere with normal operations, sites may chose to leave these files readable. Also, it is not necessary to protect the text files associated with map databases as makemap does not lock those files. +-----------------------+ | RELATED DOCUMENTATION | +-----------------------+ There are other files you should read. Rooted in this directory are: FAQ The FAQ (frequently answered questions) is no longer maintained with the sendmail release. It is available at http://www.sendmail.org/faq/ . The file FAQ is a reminder of this and a pointer to the web page. INSTALL Installation instructions for building and installing sendmail. KNOWNBUGS Known bugs in the current release. RELEASE_NOTES A detailed description of the changes in each version. This is quite long, but informative. sendmail/README Details on compiling and installing sendmail. cf/README Details on configuring sendmail. doc/op/op.me The sendmail Installation & Operations Guide. In addition to the shipped PostScript version, plain text and PDF versions can be generating using (assuming the required conversion software is installed on your system, see doc/op/Makefile): cd doc/op && make op.txt op.pdf Be warned: on some systems calling make in doc/op/ will cause errors due to nroff/groff problems. Known problems are: - running this off on systems with an old version of -me, you need to add the following macro to the macros: .de sm \s-1\\$1\\s0\\$2 .. This sets a word in a smaller pointsize. +--------------+ | RELATED RFCS | +--------------+ There are several related RFCs that you may wish to read -- they are available from several sites, see http://www.rfc-editor.org/ http://www.ietf.org/ Important RFCs for electronic mail are: RFC821 SMTP protocol RFC822 Mail header format RFC974 MX routing RFC976 UUCP mail format RFC1123 Host requirements (modifies 821, 822, and 974) RFC1344 Implications of MIME for Internet Mail Gateways RFC1413 Identification server RFC1428 Transition of Internet Mail from Just-Send-8 to 8-bit SMTP/MIME RFC1652 SMTP Service Extension for 8bit-MIMEtransport RFC1869 SMTP Service Extensions (ESMTP spec) RFC1870 SMTP Service Extension for Message Size Declaration RFC1891 SMTP Service Extension for Delivery Status Notifications RFC1892 Multipart/Report Content Type for the Reporting of Mail System Administrative Messages RFC1893 Enhanced Mail System Status Codes RFC1894 An Extensible Message Format for Delivery Status Notifications RFC1985 SMTP Service Extension for Remote Message Queue Starting RFC2033 Local Mail Transfer Protocol (LMTP) RFC2034 SMTP Service Extension for Returning Enhanced Error Codes RFC2045 Multipurpose Internet Mail Extensions (MIME) Part One: Format of Internet Message Bodies RFC2476 Message Submission RFC2487 SMTP Service Extension for Secure SMTP over TLS RFC2554 SMTP Service Extension for Authentication RFC2821 Simple Mail Transfer Protocol RFC2822 Internet Message Format RFC2852 Deliver By SMTP Service Extension RFC2920 SMTP Service Extension for Command Pipelining RFC5321 Simple Mail Transfer Protocol RFC5322 Internet Message Format RFC6530 Overview and Framework for Internationalized Email RFC6531 SMTP Extension for Internationalized Email RFC6532 Internationalized Email Headers RFC6533 Internationalized Delivery Status and Disposition Notifications RFC8461 SMTP MTA Strict Transport Security (MTA-STS) Other standards that may be of interest (but which are less directly relevant to sendmail) are: RFC987 Mapping between RFC822 and X.400 RFC1049 Content-Type header field (extension to RFC822) Warning to AIX users: this version of sendmail does not implement MB, MR, or MG DNS resource records, as defined (as experiments) in RFC1035. +---------+ | WARNING | +---------+ Since sendmail 8.11 and later includes hooks to cryptography, the following information from OpenSSL applies to sendmail as well. PLEASE REMEMBER THAT EXPORT/IMPORT AND/OR USE OF STRONG CRYPTOGRAPHY SOFTWARE, PROVIDING CRYPTOGRAPHY HOOKS OR EVEN JUST COMMUNICATING TECHNICAL DETAILS ABOUT CRYPTOGRAPHY SOFTWARE IS ILLEGAL IN SOME PARTS OF THE WORLD. SO, WHEN YOU IMPORT THIS PACKAGE TO YOUR COUNTRY, RE-DISTRIBUTE IT FROM THERE OR EVEN JUST EMAIL TECHNICAL SUGGESTIONS OR EVEN SOURCE PATCHES TO THE AUTHOR OR OTHER PEOPLE YOU ARE STRONGLY ADVISED TO PAY CLOSE ATTENTION TO ANY EXPORT/IMPORT AND/OR USE LAWS WHICH APPLY TO YOU. THE AUTHORS ARE NOT LIABLE FOR ANY VIOLATIONS YOU MAKE HERE. SO BE CAREFUL, IT IS YOUR RESPONSIBILITY. If you use OpenSSL then make sure you read their README file which contains information about patents etc. +-------------------+ | DATABASE ROUTINES | +-------------------+ IF YOU WANT TO RUN THE NEW BERKELEY DB SOFTWARE: **** DO NOT **** use the version that was on the Net2 tape -- it has a number of nefarious bugs that were bad enough when I got them; you shouldn't have to go through the same thing. Instead, get a new version via the web at http://www.sleepycat.com/. This software is highly recommended; it gets rid of several stupid limits, it's much faster, and the interface is nicer to animals and plants. If the Berkeley DB include files are installed in a location other than those which your compiler searches, you will need to provide that directory when building: ./Build -I/path/to/include/directory If you are using Berkeley DB versions 1.85 or 1.86, you are *strongly* urged to upgrade to DB version 2 or later, available from http://www.sleepycat.com/. Berkeley DB versions 1.85 and 1.86 are known to be broken in various nasty ways (see http://www.sleepycat.com/db.185.html), and can cause sendmail to dump core. In addition, the newest versions of gcc and the Solaris compilers perform optimizations in those versions that may cause fairly random core dumps. If you have no choice but to use Berkeley DB 1.85 or 1.86, and you are using both Berkeley DB and files in the UNIX ndbm format, remove ndbm.h and ndbm.o from the DB library after building it. You should also apply all of the patches for DB 1.85 and 1.86 found at the Sleepycat web site (see http://www.sleepycat.com/db.185.html), as they fix some of the known problems. If you are using a version of Berkeley DB 2 previous to 2.3.15, and you are using both Berkeley DB and files in the UNIX ndbm format, remove dbm.o from the DB library after building it. No other changes are necessary. If you are using Berkeley DB version 2.3.15 or greater, no changes are necessary. The underlying database file formats changed between Berkeley DB versions 1.85 and 1.86, again between DB 1.86 and version 2.0, and finally between DB 2.X and 3.X. If you are upgrading from one of those versions, you must recreate your database file(s). Do this by rebuilding all maps with makemap and rebuilding the alias file with newaliases. File locking using fcntl() does not interoperate with Berkeley DB 5.x (and probably later). Use CDB, flock() (-DHASFLOCK), or an earlier Berkeley DB version. +--------------------+ | HOST NAME SERVICES | +--------------------+ If you are using NIS or /etc/hosts, it is critical that you list the long (fully qualified) name somewhere (preferably first) in the /etc/hosts file used to build the NIS database. For example, the line should read 128.32.149.68 mastodon.CS.Berkeley.EDU mastodon **** NOT **** 128.32.149.68 mastodon If you do not include the long name, sendmail will complain loudly about ``unable to qualify my own domain name (mastodon) -- using short name'' and conclude that your canonical name is the short version and use that in messages. The name "mastodon" doesn't mean much outside of Berkeley, and so this creates incorrect and unreplyable messages. +-------------+ | USE WITH MH | +-------------+ This version of sendmail notices and reports certain kinds of SMTP protocol violations that were ignored by older versions. If you are running MH you may wish to install the patch in contrib/mh.patch that will prevent these warning reports. This patch also works with the old version of sendmail, so it's safe to go ahead and install it. +----------------+ | USE WITH IDENT | +----------------+ Sendmail 8 supports the IDENT protocol, as defined by RFC 1413. Note that the RFC states a client should wait at least 30 seconds for a response. As of 8.10.0, the default Timeout.ident is 5 seconds as many sites have adopted the practice of dropping IDENT queries. This has lead to delays processing mail. +-------------------------+ | INTEROPERATION PROBLEMS | +-------------------------+ Microsoft Exchange Server 5.0 We have had a report that ``about 7% of messages from Sendmail to Exchange were not being delivered with status messages of "connection reset" and "I/O error".'' Upgrading Exchange from Version 5.0 to Version 5.5 Service Pack 2 solved this problem. CommuniGate Pro CommuniGate Pro 3.2.4 does not accept the AUTH= -parameter on the MAIL FROM command if the client is not authenticated. Use define(`confAUTH_OPTIONS', `A') in .mc file if you have compiled sendmail with Cyrus SASL and you communicate with CommuniGate Pro servers. +---------------------+ | DIRECTORY STRUCTURE | +---------------------+ The structure of this directory tree is: cf Source for sendmail configuration files. These are different than what you've seen before. They are a fairly dramatic rewrite, requiring the new sendmail (since they use new features). contrib Some contributed tools to help with sendmail. THESE ARE NOT SUPPORTED by sendmail -- contact the original authors if you have problems. (This directory is not on the 4.4BSD tape.) devtools Build environment. See devtools/README. doc Documentation. If you are getting source, read op.me -- it's long, but worth it. editmap A program to edit and query maps that have been created with makemap, e.g., adding and deleting entries. include Include files used by multiple programs in the distribution. libsmdb sendmail database library with support for Berkeley DB 1.X, Berkeley DB 2.X, Berkeley DB 3.X, and NDBM. libsmutil sendmail utility library with functions used by different programs. mail.local The source for the local delivery agent used for 4.4BSD. THIS IS NOT PART OF SENDMAIL! and may not compile everywhere, since it depends on some 4.4-isms. Warning: it does mailbox locking differently than other systems. mailstats Statistics printing program. makemap A program that creates the keyed maps used by the $( ... $) construct in sendmail. It is primitive but effective. It takes a very simple input format, so you will probably expect to preprocess must human-convenient formats using sed scripts before this program will like them. But it should be functionally complete. praliases A program to print the map version of the aliases file. rmail Source for rmail(8). This is used as a delivery agent for for UUCP, and could presumably be used by other non-socket oriented mailers. Older versions of rmail are probably deficient. RMAIL IS NOT PART OF SENDMAIL!!! The 4.4BSD source is included for you to look at or try to port to your system. There is no guarantee it will even compile on your operating system. smrsh The "sendmail restricted shell", which can be used as a replacement for /bin/sh in the prog mailer to provide increased security control. NOT PART OF SENDMAIL! sendmail Source for the sendmail program itself. test Some test scripts (currently only for compilation aids). vacation Source for the vacation program. NOT PART OF SENDMAIL! sendmail-8.18.1/RELEASE_NOTES0000644000372400037240000211123114556365350014743 0ustar xbuildxbuild SENDMAIL RELEASE NOTES This listing shows the version of the sendmail binary, the version of the sendmail configuration files, the date of release, and a summary of the changes in that release. 8.18.1/8.18.1 2024/01/31 sendmail is now stricter in following the RFCs and rejects some invalid input with respect to line endings and pipelining: - Prevent transaction stuffing by ensuring SMTP clients wait for the HELO/EHLO and DATA response before sending further SMTP commands. This can be disabled using the new srv_features option 'F'. Issue reported by Yepeng Pan and Christian Rossow from CISPA Helmholtz Center for Information Security. - Accept only CRLF . CRLF as end of an SMTP message as required by the RFCs, which can disabled by the new srv_features option 'O'. - Do not accept a CR or LF except in the combination CRLF (as required by the RFCs). These checks can be disabled by the new srv_features options 'U' and 'G', respectively. In this case it is suggested to use 'u2' and 'g2' instead so the server replaces offending bare CR or bare LF with a space. It is recommended to only turn these protections off for trusted networks due to the potential for abuse. Full DANE support is available if OpenSSL versions 1.1.1 or 3.x are used, i.e., TLSA RR 2-x-y and 3-x-y are supported as required by RFC 7672. OpenSSL version 3.0.x is supported. Note: OpenSSL 3 loads by default an openssl.cnf file from a location specified in the library which may cause unwanted behaviour in sendmail. Hence sendmail sets the environment variable OPENSSL_CONF to /etc/mail/sendmail.ossl to override the default. The file name can be changed by defining confOPENSSL_CNF in the mc file; using an empty value prevents setting OPENSSL_CONF. Note: referring to a file which does not exist does not cause an an error. Two new values have been added for {verify}: "DANE_TEMP": DANE verification failed temporarily. "DANE_NOTLS": DANE was required but STARTTLS was not offered by the server. The default rules return a temporary error for these cases, so delivery is not attempted. If the TLS setup code in the client fails and DANE requirements exist then {verify} will be set to "DANE_TEMP" thus preventing delivery by default. DANE related logging has been slightly changed for clarification: "DANE configured in DNS but no STARTTLS available" changed to "DANE configured in DNS but STARTTLS not offered" When the compile time option USE_EAI is enabled, vacation could fail to respond when it should (the code change in 8.17.2 was incomplete). Problem reported by Alex Hautequest. If SMTPUTF8 BODY=7BIT are used as parameters for the MAIL command the parsing of UTF8 addresses could fail (USE_EAI). If a reply to a previous RCPT was received while sending another RCPT in pipelining mode then parts of the reply could have been assigned to the wrong RCPT. New DontBlameSendmail option CertOwner to relax requirement for certificate public and private key ownership. Based on suggestion from Marius Strobl of the FreeBSD project. clt_features was not checked for connections via Unix domain sockets. CONFIG: FEATURE(`enhdnsbl') did not handle multiple replies from DNS lookups thus potentially causing random "false negatives". Note: the fix creates an incompatibility: the arguments must not have a trailing dot anymore because the -a. option has been removed (as it only applies to the entire result, not individual values). CONFIG: New FEATURE(`fips3') for basic FIPS support in OpenSSL 3. VACATION: Add support for Return-Path header to set sender to match OpenBSD and NetBSD functionality. VACATION: Honor RFC3834 and avoid an auto-reply if 'Auto-Submitted: no' is found in the headers to match OpenBSD and NetBSD functionality. VACATION: Avoid an auto-reply if a 'List-Id:' is found in the headers to match OpenBSD functionality. VACATION: Add support for $SUBJECT in .vacation.msg which is replaced with the first line of the subject of the original message to match OpenBSD and NetBSD functionality. Portability: Add support for Darwin 23. New Files: cf/feature/fips3.m4 devtools/OS/Darwin.23.x 8.17.2/8.17.2 2023/06/03 Make sure DANE checks (if enabled) are performed even if CACertPath or CACertFile are not set or unusable. Note: if the code to set up TLS in the client fails, then {verify} will be set to TEMP but DANE requirements will be ignored, i.e., by default mail will be sent without STARTTLS. This can be changed via a LOCAL_TLS_SERVER ruleset. Pass server name to clt_features ruleset instead of client name to account for limitations in macro availability described below in CONFIG section. This may break custom clt_features rulesets which expect to receive the client name as input. Fix a regression introduced in 8.17.1: aliases file which contain continuation lines caused parsing errors. Add an FFR (for future release) compile time option _FFR_LOG_STAGE to log the protocol stage as stage= for some errors during delivery attempts to make troubleshooting simpler. This new logging may be enabled in a future release. When EAI is enabled, milters also got the arguments of MAIL/RCPT commands in argv[0] for xxfi_envfrom()/xxfi_envrcpt() callbacks instead of just the mail address. Problem reported by Dilyan Palauzo. When EAI is enabled, mailq prints UTF-8 addresses as such if SMTPUTF8 was used. When EAI is enabled, the $h macro is now in the correct format. Previously this could cause wrong values for relay= in log entries and the mailer argument vector. When the compile time option USE_EAI is enabled, vacation could fail to respond when it should. Problem reported by Alex Hautequest. When EAI was enabled, header truncation might not have been logged even when it happened. Problem reported by Werner Wiethege. Handle a possible change in an upcoming release of Cyrus-SASL (2.1.28) by changing the definition of an internal flag. Patch from Dilyan Palauzo. Avoid an assertion failure when an smtps connection is made to the server and a milter is unavailable. Problem reported by Dilyan Palauzo. Fixed some spelling errors in documentation and comments, based on a codespell report by Jens Schleusener of fossies.org. The result of try_tls is now logged using status= instead of reject=. If tls_rcpt rejected the delivery of a recipient then a bogus dsn= entry might have been logged under some circumstances. If a server replied with 421 to a RCPT command then a bogus reply= might have been logged. When quoting the value for ${currHeader} avoid causing a syntax error (Unbalanced '"') when truncating a header value which is too long. Problem reported by Werner Wiethege. Reduce the performance impact of a change introduced in 8.12.9: the default for MaxMimeHeaderLength was set to 2048/1024. Problem reported by Tabata Shintaro of Internet Initiative Japan Inc. CONFIG: The default clt_features ruleset tried to access ${server_name} and ${server_addr} which are not set when the ruleset is invoked. Only the server name is available which is passed as an argument. CONFIG: Properly quote host variable to prevent cf build breakage when a hostname contains 'dnl'. Problem reported by Maxim Shalomikhin of Kaspersky. DEVTOOLS: Add configure.sh support for BSD's mandoc as an alternative man page formatting tool. DOC: Document that USAGE is a possible value for {verify}. LIBMILTER: The macros for the EOH and EOM callbacks are sent in reverse order which means accessing macros in the EOM callback got the macro for the EOH callback. Store those macros in the expected order in libmilter. Note: this does not affect sendmail because the macros for both callbacks are the same because the message is sent to libmilter after it is completely read by sendmail. Fix and problem report from David Buergin. Portability: Make use of IN_LOOPBACK, if defined, to determine if using a loopback address. Patch from Mike Karels of FreeBSD. On Linux use gethostbyname2(3) if glibc 2.19 or newer is used to avoid potential problems with IPv6 lookups. Patch from Werner Wiethege. Add support for Darwin 21 and Darwin 22. Solaris 12 has been renamed to Solaris 11.4, hence adapt a condition for sigwait(2) taking one argument. Patch from John Beck. New Files: devtools/M4/UNIX/sharedlib.m4 devtools/OS/Darwin.21.x devtools/OS/Darwin.22.x sendmail/sched.c libsm/notify.h 8.17.1/8.17.1 2021/08/17 Deprecation notice: due to compatibility problems with some third party code, we plan to finally switch from K&R to ANSI C. If you are using sendmail on a system which does not have a compiler for ANSI C contact us with details as soon as possible so we can determine how to proceed. Experimental support for SMTPUTF8 (EAI, see RFC 6530-6533) is available when using the compile time option USE_EAI (see also devtools/Site/site.config.m4.sample for other required settings) and the cf option SMTPUTF8. If a mail submission via the command line requires the use of SMTPUTF8, e.g., because a header uses UTF-8 encoding, but the addresses on the command line are all ASCII, then the new option -U must be used, and the cf option SMTPUTF8 must be set in submit.cf. Please test and provide feedback. Experimental support for SMTP MTA Strict Transport Security (MTA-STS, see RFC 8461) is available when using - the compile time option _FFR_MTA_STS (which requires STARTTLS, MAP_REGEX, SOCKETMAP, and _FFR_TLS_ALTNAMES), - FEATURE(sts), which implicitly sets the cf option StrictTransportSecurity, - postfix-mta-sts-resolver, see https://github.com/Snawoot/postfix-mta-sts-resolver.git New ruleset check_other which is called for all unknown SMTP commands in the server and for commands which do not have specific rulesets, e.g., NOOP and VERB. New ruleset clt_features which can be used to select features in the SMTP client per server. Currently only two flags are available: D/M to disable DANE/MTA-STS, respectively. New compile time option NO_EOH_FIELDS to disable the special meaning of the headers Message: and Text: to denote the end of the message header. Avoid leaking session macros for an envelope between delivery attempts to different servers. This problem could have affected check_compat. Avoid leaking actual SMTP replies between delivery attempts to different servers which could cause bogus logging of reply= entries. Change default SMTP reply code for STARTTLS related problems from 403 to 454 to better match the RFCs. Fix a theoretical buffer overflow when encountering an unknown/unsupported socket address family on an operating system where sa_data is larger than 30 (the standard is 14). Based on patch by Toomas Soome. Several potential memory leaks and other similar problems (mostly in error handling code) have been fixed. Problems reported by Tomas Korbar of RedHat. Previously the commands GET, POST, CONNECT, or USER terminate a connection immediately only if sent as first command. Now this is also done if any of these is sent directly after STARTTLS or if the 'h' option is set via srv_features. CDB map locking has been changed so a sendmail process which does have a CDB map open does not block an in-place update of the map by makemap. The simple workaround for that problem in earlier versions is to create the map under a different name and then move it into place. On some systems the rejection of a RCPT by a milter could silently fail. CONFIG: New FEATURE(`check_other') to provide a default check_other ruleset. CONFIG: FEATURE(`tls_failures') is deprecated and will be removed in future versions because it has a fundamental problem: it is message oriented but STARTTLS is session oriented. For example, having multiple RCPTs in one envelope for different destinations, with different temporary errors, does not work properly, as the persistent macro applies to all RCPTs and hence implicitly to all destinations (servers). The option TLSFallbacktoClear should be used if needed. CONTRIB: AuthRealm.p0 has been modified for 8.16.1 by Anne Bennett. CONTRIB: Added cidrexpand -O option for suppressing duplicates from a CIDR expansion that overlaps a later entry and -S option for skipping comments exactly like makemap does. MAIL.LOCAL: Enhance some error messages to simplify troubleshooting. Portability: Add support for Darwin 19 & 20. Use proper FreeBSD version define to allow for cross compiling. Fix from Brooks Davis of the FreeBSD project. NOTE: File locking using fcntl() does not interoperate with Berkeley DB 5.x (and probably later). Use CDB, flock() (-DHASFLOCK), or an earlier Berkeley DB version. Problem noted by Harald Hannelius. New Files: cf/feature/check_other.m4 cf/feature/sts.m4 devtools/OS/Darwin.19.x devtools/OS/Darwin.20.x include/sm/ixlen.h libsm/ilenx.c libsm/lowercase.c libsm/strcaseeq.c libsm/t-ixlen.c libsm/t-ixlen.sh libsm/t-streq.c libsm/t-streq.sh libsm/utf8_valid.c libsm/uxtext_unquote.c libsm/xleni.c libsmutil/t-lockfile.c libsmutil/t-lockfile-0.sh libsmutil/t-maplock-0.sh 8.16.1/8.16.1 2020/07/05 SECURITY: If sendmail tried to reuse an SMTP session which had already been closed by the server, then the connection cache could have invalid information about the session. One possible consequence was that STARTTLS was not used even if offered. This problem has been fixed by clearing out all relevant status information when a closed session is encountered. OpenSSL versions before 0.9.8 are no longer supported. OpenSSL version 1.1.0 and 1.1.1 are supported. Initial support for DANE (see RFC 7672 et.al.) is available if the compile time option DANE is set. Only TLSA RR 3-1-x is currently implemented. New options SSLEngine and SSLEnginePath to support OpenSSL engines. Note: this feature has so far only been tested with the "chil" engine; please report problems with other engines if you encounter any. New option CRLPath to specify a directory which contains hashes pointing to certificate revocations files. Based on patch from Al Smith. New rulesets tls_srv_features and tls_clt_features which can return a (semicolon separated) list of TLS related options, e.g., CipherList, CertFile, KeyFile, see doc/op/op.me for details. To automatically handle TLS interoperability problems for outgoing mail, sendmail can now immediately try a connection again without STARTTLS after a TLS handshake failure. This can be configured globally via the option TLSFallbacktoClear or per session via the 'C' flag of tls_clt_features. This also adds the new value "CLEAR" for the macro {verify}: STARTTLS has been disabled internally for a clear text delivery attempt. Apply Timeout.starttls also to the server waiting for the TLS handshake to begin. Based on patch from Simon Hradecky. New compile time option TLS_EC to enable the use of elliptic curve cryptography in STARTTLS (previously available as _FFR_TLS_EC). Handle MIME boundaries specified in headers which contain CRLF. Fix detection of loopback net (it was broken when compiled with NETINET6) and only set the macros {if_addr_out} and {if_family_out} if the interface of the outgoing connection does not belong to the loopback net. Fix logic to enable a milter to delete a recipient in DeliveryMode=interactive even if it might be subject to alias expansion. Log name of a milter making changes (this was missing for some functions). Log the actual reply of a server when an SMTP delivery problem occurs in a "reply=" field if possible. Log user= for failed AUTH attempts if possible. Based on patch from Packet Hack, Jim Hranicky, Kevin A. McGrail, and Joe Quinn. Add CDB as map type. Note: CDB is a "Constant DataBase", i.e., no changes can be made after it is created, hence it does not work with vacation(1) nor editmap(8) (except for query mode). Fix some memory leaks (mostly in error cases) and properly handle copied varargs in sm_io_vfprintf(). The issues were found using Coverity Scan and reported (including patches) by Ondřej Lysoněk of Red Hat. Do not override ServerSSLOptions and ClientSSLOptions when they are specified on the command line. Based on patch from Hiroki Sato. Add RFC7505 Null MX support for domains that declare they do not accept mail. New compile time option LDAP_NETWORK_TIMEOUT which is set automatically when LDAPMAP is used and LDAP_OPT_NETWORK_TIMEOUT is available to enable the new -c option for LDAP maps to specify the network timeout. CONFIG: New FEATURE(`tls_session_features') to enable standard rules for tls_srv_features and tls_clt_features; for details see cf/README. CONFIG: New options confSSL_ENGINE and confSSL_ENGINE_PATH for SSLEngine and SSLEnginePath, respectively. CONFIG: New options confDANE to enable DANE support. CONFIG: New option confTLS_FALLBACK_TO_CLEAR for TLSFallbacktoClear. CONFIG: New extension CITag: for TLS restrictions, see cf/README for details. CONFIG: FEATURE(`blacklist_recipients') renamed to FEATURE(`blocklist_recipients'). CONTRIB: cidrexpand updated to support IPv6 CIDR ranges and to canonicalize IPv6 addresses; if cidrexpand is used with IPv6 addresses then UseCompressedIPv6Addresses must be disabled. DOC: The dns map can return multiple values in a single result if the -z option is used. DOC: Note to set MustQuoteChars=. due to DKIM signatures. LIBMILTER: Fix typo in a macro. Patch from Ignacio Goyret of Alcatel-Lucent. LIBMILTER: Fix reference in xxfi_negotiate documentation. Patch from Sven Neuhaus. LIBMILTER: Fix function name in smfi_addrcpt_par documentation. Patch from G.W. Haywood. LIBMILTER: Fix a potential memory leak in smfi_setsymlist(). Patch from Martin Svec. MAKEMAP: New map type "implicit" refers to the first available type, i.e., it depends on the compile time options NEWDB, DBM, and CDB. This can be used in conjunction with the "implicit" map type in sendmail.cf. Note: makemap, libsmdb, and sendmail must be compiled with the same options (and library versions of course). Portability: Add support for Darwin 14-18 (Mac OS X 10.x). New option HAS_GETHOSTBYNAME2: set if your system supports gethostbyname2(2). Set SM_CONF_SEM=2 for FreeBSD 12 and later due to changes in sys/sem.h On Linux set MAXHOSTNAMELEN (the maximum length of a FQHN) to 256 if it is less than that value. New Files: cf/feature/blocklist_recipients.m4 cf/feature/check_cert_altnames.m4 cf/feature/tls_failures.m4 devtools/OS/Darwin.14.x devtools/OS/Darwin.15.x devtools/OS/Darwin.16.x devtools/OS/Darwin.17.x devtools/OS/Darwin.18.x include/sm/notify.h libsm/notify.c libsm/t-notify.c libsmdb/smcdb.c sendmail/ratectrl.h sendmail/tls.h sendmail/tlsh.c 8.15.2/8.15.2 2015/07/03 If FEATURE(`nopercenthack') is used then some bogus input triggered a recursion which was caught and logged as SYSERR: rewrite: excessive recursion (max 50) ... Fix based on patch from Ondrej Holas. DHParameters now by default uses an included 2048 bit prime. The value 'none' previously caused a log entry claiming there was an error "cannot read or set DH parameters". Also note that this option applies to the server side only. The U= mailer field didn't accept group names containing hyphens, underbars, or periods. Based on patch from David Gwynne of the University of Queensland. CONFIG: Allow connections from IPv6:0:0:0:0:0:0:0:1 to relay again. Patch from Lars-Johan Liman of Netnod Internet Exchange. CONFIG: New option UseCompressedIPv6Addresses to select between compressed and uncompressed IPv6 addresses. The default value depends on the compile-time option IPV6_FULL: For 1 the default is False, for 0 it is True, thus preserving the current behaviour. Based on patch from John Beck of Oracle. CONFIG: Account for IPv6 localhost addresses in FEATURE(`block_bad_helo'). Suggested by Andrey Chernov from FreeBSD and Robert Scheck from the Fedora Project. CONFIG: Account for IPv6 localhost addresses in check_mail ruleset. LIBMILTER: Deal with more invalid protocol data to avoid potential crashes. Problem noted by Dimitri Kirchner. LIBMILTER: Allow a milter to specify an empty macro list ("", not NULL) in smfi_setsymlist() so no macro is sent for the selected stage. MAKEMAP: A change to check TrustedUser in fewer cases which was made in 2013 caused a potential regression when makemap was run as root (which should not be done anyway). Note: sendmail often contains options "For Future Releases" (prefix _FFR_) which might be enabled in a subsequent version or might simply be removed as they turned out not to be really useful. These features are usually not documented but if they are, then the required (FFR) options are listed in - doc/op/op.* for rulesets and macros, - cf/README for mc/cf options. 8.15.1/8.15.1 2014/12/06 SECURITY: Properly set the close-on-exec flag for file descriptors (except stdin, stdout, and stderr) before executing mailers. If header rewriting fails due to a temporary map lookup failure, queue the mail for later retry instead of sending it without rewriting the header. Note: this is done while the mail is being sent and hence the transaction is aborted, which only works for SMTP/LMTP mailers hence the handling of temporary map failures is suppressed for other mailers. SMTP/LMTP servers may complain about aborted transactions when this problem occurs. See also "DNS Lookups" in sendmail/TUNING. Incompatible Change: Use uncompressed IPv6 addresses by default, i.e., they will not contain "::". For example, instead of ::1 it will be 0:0:0:0:0:0:0:1. This permits a zero subnet to have a more specific match, such as different map entries for IPv6:0:0 vs IPv6:0. This change requires that configuration data (including maps, files, classes, custom ruleset, etc) must use the same format, so make certain such configuration data is updated before using 8.15. As a very simple check search for patterns like 'IPv6:[0-9a-fA-F:]*::' and 'IPv6::'. If necessary, the prior format can be retained by compiling with: APPENDDEF(`conf_sendmail_ENVDEF', `-DIPV6_FULL=0') in your devtools/Site/site.config.m4 file. If debugging is turned on (-d0.14) also print the OpenSSL versions, both build time and run time (provided STARTTLS is compiled in). If a connection to the MTA is dropped by the client before its hostname can be validated, treat it as "may be forged", so that the unvalidated hostname is not passed to a milter in xxfi_connect(). Add a timeout for communication with socket map servers which can be specified using the -d option. Add a compile time option HESIOD_ALLOW_NUMERIC_LOGIN to allow numeric logins even if HESIOD is enabled. The new option CertFingerprintAlgorithm specifies the finger- print algorithm (digest) to use for the presented cert. If the option is not set, md5 is used and the macro {cert_md5} contains the cert fingerprint. However, if the option is set, the specified algorithm (e.g., sha1) is used and the macro {cert_fp} contains the cert fingerprint. That is, as long as the option is not set, the behaviour does not change, but otherwise, {cert_md5} is superseded by {cert_fp} even if you set CertFingerprintAlgorithm to md5. The options ServerSSLOptions and ClientSSLOptions can be used to set SSL options for the server and client side respectively. See SSL_CTX_set_options(3) for a list. Note: this change turns on SSL_OP_NO_SSLv2 and SSL_OP_NO_TICKET for the client. See doc/op/op.me for details. The option CipherList sets the list of ciphers for STARTTLS. See ciphers(1) for possible values. Do not log "STARTTLS: internal error: tls_verify_cb: ssl == NULL" if a CRLFile is in use (and LogLevel is 14 or higher.) Store a more specific TLS protocol version in ${tls_version} instead of a generic one, e.g., TLSv1 instead of TLSv1/SSLv3. Properly set {client_port} value on little endian machines. Patch from Kelsey Cummings of Sonic.net. Per RFC 3848, indicate in the Received: header whether SSL or SMTP AUTH was negotiated by setting the protocol clause to ESMTPS, ESMTPA, or ESMTPSA instead of ESMTP. If the 'C' flag is listed as TLSSrvOptions the requirement for the TLS server to have a cert is removed. This only works under very specific circumstances and should only be used if the consequences are understood, e.g., clients may not work with a server using this. The options ClientCertFile, ClientKeyFile, ServerCertFile, and ServerKeyFile can take a second file name, which must be separated from the first with a comma (note: do not use any spaces) to set up a second cert/key pair. This can be used to have certs of different types, e.g., RSA and DSA. A new map type "arpa" is available to reverse an IP (IPv4 or IPv6) address. It returns the string for the PTR lookup, but without trailing {ip6,in-addr}.arpa. New operation mode 'C' just checks the configuration file, e.g., sendmail -C new.cf -bC will perform a basic syntax/consistency check of new.cf. The mailer flag 'I' is deprecated and will be removed in a future version. Allow local (not just TCP) socket connections to the server, e.g., O DaemonPortOptions=Family=local, Addr=/var/mta/server.sock can be used. If the new option MaxQueueAge is set to a value greater than zero, entries in the queue will be retried during a queue run only if the individual retry time has been reached which is doubled for each attempt. The maximum retry time is limited by the specified value. New DontBlameSendmail option GroupReadableDefaultAuthInfoFile to relax requirement for DefaultAuthInfo file. Reset timeout after receiving a message to appropriate value if STARTTLS is in use. Based on patch by Kelsey Cummings of Sonic.net. Report correct error messages from the LDAP library for a range of small negative return values covering those used by OpenLDAP. Fix compilation with Berkeley DB 5.0 and 6.0. Patch from Allan E Johannesen of Worcester Polytechnic Institute. CONFIG: FEATURE(`nopercenthack') takes one parameter: reject or nospecial which describes whether to disallow "%" in the local part of an address. DEVTOOLS: Fix regression in auto-detection of libraries when only shared libraries are available. Problem reported by Bryan Costales. LIBMILTER: Mark communication socket as close-on-exec in case a user's filter starts other applications. Based on patch from Paul Howarth. Portability: SunOS 5.12 has changed the API for sigwait(2) to conform with XPG7. Based on patch from Roger Faulkner of Oracle. Deleted Files: libsm/path.c 8.14.9/8.14.9 2014/05/21 SECURITY: Properly set the close-on-exec flag for file descriptors (except stdin, stdout, and stderr) before executing mailers. Fix a misformed comment in conf.c: "/*" within comment which may cause a compilation error on some systems. Problem reported by John Beck of Oracle. DEVTOOLS: Fix regression in auto-detection of libraries when only shared libraries are available. Problem reported by Bryan Costales. 8.14.8/8.14.8 2014/01/26 Properly initialize all OpenSSL algorithms for versions before OpenSSL 0.9.8o. Without this SHA2 algorithms may not work properly, causing for example failures for certs that use sha256WithRSAEncryption as signature algorithm. When looking up hostnames, ensure only to return those records for the requested family (AF_INET or AF_INET6). On system that have NEEDSGETIPNODE and NETINET6 this may have failed and cause delivery problems. Problem noted by Kees Cook. A new mailer flag '!' is available to suppress an MH hack that drops an explicit From: header if it is the same as what sendmail would generate. Add an FFR (for future release) to use uncompressed IPv6 addresses, i.e., they will not contain "::". For example, instead of ::1 it will be 0:0:0:0:0:0:0:1. This means that configuration data (including maps, files, classes, custom ruleset, etc) have to use the same format. This will be turned on in 8.15. It can be enabled in 8.14 by compiling with: APPENDDEF(`conf_sendmail_ENVDEF', `-D_FFR_IPV6_FULL') in your devtools/Site/site.config.m4 file. Add an additional case for the WorkAroundBrokenAAAA check when dealing with broken nameservers by ignoring SERVFAIL errors returned on T_AAAA (IPv6) lookups at delivery time. Problem noted by Pavel Timofeev of OCS. If available, pass LOGIN_SETCPUMASK and LOGIN_SETLOGINCLASS to setusercontext() on deliveries as a different user. Patch from Edward Tomasz Napierala from FreeBSD. Avoid compiler warnings from a change in Cyrus-SASL 2.1.25. Patch from Hajimu UMEMOTO from FreeBSD. Add support for DHParameters 2048-bit primes. CONFIG: Accept IPv6 literals when evaluating the HELO/EHLO argument in FEATURE(`block_bad_helo'). Suggested by Andrey Chernov. LIBSMDB: Add a missing check for malloc() in libsmdb/smndbm.c. Patch from Bill Parker. LIBSMDB: Fix minor memory leaks in libsmdb/ if allocations fail. Patch from John Beck of Oracle. Portability: Add support for Darwin 12.x and 13.x (Mac OS X 10.8 and 10.9). On Linux use socklen_t as the type for the 3rd argument for getsockname/getpeername if the glibc version is at least 2.1. New Files: devtools/OS/Darwin.12.x devtools/OS/Darwin.13.x 8.14.7/8.14.7 2013/04/21 Drop support for IPv4-mapped IPv6 addresses to prevent the MTA from using a mapped address over a legitimate IPv6 address and to enforce the proper semantics over the IPv6 connection. Problem noted by Ulrich Sporlein. Fix a regression introduced in 8.14.6: the wrong list of macros was sent to a milter in the EHLO stage. Problem found by Fabrice Bellet, reported via RedHat (Jaroslav Skarvada). Fix handling of ORCPT parameter for DSNs: xtext decoding was not performed and a wrong syntax check was applied to the "addr-type" field. Problem noted by Dan Lukes of Obludarium. Fix handling of NUL characters in the MIME conversion functions so that message bodies containing them will be sent on properly. Note: this usually also affects mails that are not converted as those functions are used for other purposes too. Problem noted by Elchonon Edelson of Lockheed Martin. Do not perform "duplicate" elimination of recipients if they resolve to the error mailer using a temporary failure (4xy) via ruleset 0. Problem noted by Akira Takahashi of IIJ. CONTRIB: Updated version of etrn.pl script from John Beck of Oracle. Portability: Unlike gcc, clang doesn't apply full prototypes to K&R definitions. 8.14.6/8.14.6 2012/12/23 Fix a regression introduced in 8.14.5: if a server offers two AUTH lines, the MTA would not read them after STARTTLS has been used and hence SMTP AUTH for the client side would fail. Problem noted by Lena. Do not cache hostnames internally in a non case sensitive way as that may cause addresses to change from lower case to upper case or vice versa. These header modifications can cause problems with milters that rely on receiving headers in the same way as they are being sent out such as a DKIM signing milter. If MaxQueueChildren is set then it was possible that new queue runners could not be started anymore because an internal counter was subject to a race condition. If a milter decreases the timeout it waits for a communication with the MTA, the MTA might experience a write() timeout. In some situations, the resulting error might have been ignored. Problem noted by Werner Wiethege. Note: decreasing the communication timeout in a milter should not be done without considering the potential problems. smfi_setsymlist() now properly sets the list of macros for the milter which invoked it, instead of a global list for all milters. Problem reported by David Shrimpton of the University of Queensland. If Timeout.resolver.retrans is set to a value larger than 20, then resolver.retry was temporarily set to 0 for gethostbyaddr() lookups. Now it is set to 1 instead. Patch from Peter. If sendmail could not lock the statistics file due to a system error, and sendmail later sends a DSN for a mail that triggered such an error, then sendmail tried to access memory that was freed before (causing a crash on some systems). Problem reported by Ryan Stone. Do not log negative values for size= nor pri= to avoid confusing log parsers, instead limit the values to LONG_MAX. Account for an API change in newer versions of Cyrus-SASL. Patch from Hajimu UMEMOTO from FreeBSD. Do not try to resolve link-local addresses for IPv4 (just as it is done for IPv6). Patch from John Beck of Oracle. Improve logging of client and server STARTTLS connection failures that may be due to incompatible cipher lists by including the reason for the failure in a single log line. Suggested by James Carey of Boeing. Portability: Add support for Darwin 11.x (Mac OS X 10.7). Add support for SunOS 5.12 (aka Solaris 12). Patch from John Beck of Oracle. New Files: devtools/OS/Darwin.11.x devtools/OS/SunOS.5.12 8.14.5/8.14.5 2011/05/17 Do not cache SMTP extensions across connections as the cache is based on hostname which may not be a unique identifier for a server, i.e., different machines may have the same hostname but provide different SMTP extensions. Problem noted by Jim Hermann. Avoid an out-of-bounds access in case a resolver reply for a DNS map lookup returns a size larger than 1K. Based on a patch from Dr. Werner Fink of SuSE. If a job is aborted using the interrupt signal (e.g., control-C from the keyboard), perform minimal cleanup to avoid invoking functions that are not signal-safe. Note: in previous versions the mail might have been queued up already and would be delivered subsequently, now an interrupt will always remove the queue files and thus prevent delivery. Per RFC 6176, when operating as a TLS client, do not offer SSLv2. Since TLS session resumption is never used as a client, disable use of RFC 4507-style session tickets. Work around gcc4 versions which reverse 25 years of history and no longer align char buffers on the stack, breaking calls to resolver functions on strict alignment platforms. Found by Stuart Henderson of OpenBSD. Read at most two AUTH lines from a server greeting (up to two lines are read because servers may use "AUTH mechs" and "AUTH=mechs"). Otherwise a malicious server may exhaust the memory of the client. Bug report by Nils of MWR InfoSecurity. Avoid triggering an assertion in the OpenLDAP code when the connection to an LDAP server is lost while making a query. Problem noted and patch provided by Andy Fiddaman. If ConnectOnlyTo is set and sendmail is compiled with NETINET6 it would try to use an IPv6 address if an IPv4 (or unparseable) address is specified. If SASLv2 is used, make sure that the macro {auth_authen} is stored in xtext format to avoid problems with parsing it. Problem noted by Christophe Wolfhugel. CONFIG: FEATURE(`ldap_routing') in 8.14.4 tried to add a missing -T that is required, but failed for some cases that did not use LDAP. This change has been undone until a better solution can be implemented. Problem found by Andy Fiddaman. CONFIG: Add cf/ostype/solaris11.m4 for Solaris11 support. Contributed by Casper Dik of Oracle. CONTRIB: qtool.pl: Deal with H entries that do not have a letter between the question marks. Patch from Stefan Christensen. DOC: Use a better description for the -i option in sendmail. Patch from Mitchell Berger. Portability: Add support for Darwin 10.x (Mac OS X 10.6). Enable HAVE_NANOSLEEP for FreeBSD 3 and later. Patch from John Marshall. Enable HAVE_NANOSLEEP for OpenBSD 4.3 and later. Use new directory "/system/volatile" for PidFile on Solaris 11. Patch from Casper Dik of Oracle. Fix compilation on Solaris 11 (and maybe some other OSs) when using OpenSSL 1.0. Based on patch from Jan Pechanec of Oracle. Set SOCKADDR_LEN_T and SOCKOPT_LEN_T to socklen_t for Solaris 11. Patch from Roger Faulkner of Oracle. New Files: cf/ostype/solaris11.m4 8.14.4/8.14.4 2009/12/30 SECURITY: Handle bogus certificates containing NUL characters in CNs by placing a string indicating a bad certificate in the {cn_subject} or {cn_issuer} macro. Patch inspired by Matthias Andree's changes for fetchmail. During the generation of a queue identifier an integer overflow could occur which might result in bogus characters being used. Based on patch from John Vannoy of Pepperdine University. The value of headers, e.g., Precedence, Content-Type, et.al., was not processed correctly. Patch from Per Hedeland. Between 8.11.7 and 8.12.0 the length limitation on a return path was erroneously reduced from MAXNAME (256) to MAXSHORTSTR (203). Patch from John Gardiner Myers of Proofpoint; the problem was also noted by Steve Hubert of University of Washington. Prevent a crash when a hostname lookup returns a seemingly valid result which contains a NULL pointer (this seems to be happening on some Linux versions). The process title was missing the current load average when the MTA was delaying connections due to DelayLA. Patch from Dick St.Peters of NetHeaven. Do not reset the number of queue entries in shared memory if only some of them are processed. Fix overflow of an internal array when parsing some replies from a milter. Problem found by Scott Rotondo of Sun Microsystems. If STARTTLS is turned off in the server (via M=S) then it would not be initialized for use in the client either. Patch from Kazuteru Okahashi of IIJ. If a Diffie-Hellman cipher is selected for STARTTLS, the handshake could fail with some TLS implementations because the prime used by the server is not long enough. Note: the initialization of the DSA/DH parameters for the server can take a significant amount of time on slow machines. This can be turned off by setting DHParameters to none or a file (see doc/op/op.me). Patch from Petr Lampa of the Brno University of Technology. Fix handling of `b' modifier for DaemonPortOptions on little endian machines for loopback address. Patch from John Beck of Sun Microsystems. Fix a potential memory leak in libsmdb/smdb1.c found by parfait. Based on patch from Jonathan Gray of OpenBSD. If a milter sets the reply code to "421" during the transfer of the body, the SMTP server will terminate the SMTP session with that error to match the behavior of the other callbacks. Return EX_IOERR (instead of 0) if a mail submission fails due to missing disk space in the mail queue. Based on patch from Martin Poole of RedHat. CONFIG: Using FEATURE(`ldap_routing')'s `nodomain' argument would cause addresses not found in LDAP to be misparsed. CONFIG: Using a CN restriction did not work for TLS_Clt as it referred to a wrong macro. Patch from John Gardiner Myers of Proofpoint. CONFIG: The option relaytofulladdress of FEATURE(`access_db') did not work if FEATURE(`relay_hosts_only') is used too. Problem noted by Kristian Shaw. CONFIG: The internal function lower() was broken and hence strcasecmp() did not work either, which could cause problems for some FEATURE()s if upper case arguments were used. Patch from Vesa-Matti J Kari of the University of Helsinki. LIBMILTER: Fix internal check whether a milter application is compiled against the same version of libmilter as it is linked against (especially useful for dynamic libraries). LIBMILTER: Fix memory leak that occurred when smfi_setsymlist() was used. Based on patch by Dan Lukes. LIBMILTER: Document the effect of SMFIP_HDR_LEADSPC for filters which add, insert, or replace headers. From Benjamin Pineau. LIBMILTER: Fix error messages which refer to "select()" to be correct if SM_CONF_POLL is used. Based on patch from John Nemeth. LIBSM: Fix handling of LDAP search failures where the error is carried in the search result itself, such as seen with OpenLDAP proxy servers. VACATION: Do not refer to a local variable outside its scope. Based on patch from Mark Costlow of Southwest Cyberport. Portability: Enable HAVE_NANOSLEEP for SunOS 5.11. Patch from John Beck of Sun Microsystems. Drop NISPLUS from default SunOS 5.11 map definitions. Patch from John Beck of Sun Microsystems. 8.14.3/8.14.3 2008/05/03 During ruleset processing the generation of a key for a map lookup and the parsing of the default value was broken for some macros, e.g., $|, which caused the BlankSub character to be inserted into the workspace and thus failures, e.g., rules that should have matched did not. 8.14.2 caused a regression: it accessed (macro) storage which was freed before. First instance of the problem reported by Matthew Dillon of DragonFlyBSD; variations of the same bug reported by Todd C. Miller of OpenBSD, Moritz Jodeit, and Dave Hayes. Improve pathname length checks for persistent host status. Patch from Joerg Sonnenberger of DragonFlyBSD. Reword misleading SMTP reply text for FEATURE(`badmx'). Problem noted by Beth Halsema. The read timeout was fixed to be Timeout.datablock if STARTTLS was activated. This may cause problems if that value is lowered from its default. Problem noted by Jens Elkner. CONFIG: Using LOCAL_TLS_CLIENT caused the tls_client ruleset to operate incorrectly. Problem found by Werner Wiethege. LIBMILTER: Omitting some protocol steps via the xxfi_negotiate() callback did not work properly. The patchlevel of libmilter has been set to 1 so a milter can determine whether libmilter contains this fix. MAKEMAP: If a delimiter is specified (-t) use that also when dumping a map. Patch from Todd C. Miller of OpenBSD. Portability: Add support for Darwin 9.x (Mac OS X 10.5). Support shared libraries in Darwin 8 and 9. Patch from Chris Behrens of Concentric. Add support for SCO OpenServer 6, patch from Boyd Gerber. DEVTOOLS: Clarify that confSHAREDLIBDIR requires a trailing slash. New Files: devtools/OS/Darwin.9.x devtools/OS/OSR.i386 8.14.2/8.14.2 2007/11/01 If a message was queued and it contained 8 bit characters in a From: or To: header, then those characters could be "mistaken" for internal control characters during a queue run and trigger various consistency checks. Problem noted by Neil Rickert of Northern Illinois University. If MaxMimeHeaderLength is set to a value greater than 0 (which it is by default) then even if the Linelimit parameter is 0, sendmail corrupted in the non-transfer-encoding case every MAXLINE-1 characters. Patch from John Gardiner Myers of Proofpoint. Setting the suboption DeliveryMode for DaemonPortOptions did not work in earlier 8.14 versions. Note: DeliveryMode=interactive is silently converted to background if a milter can reject or delete a recipient. Prior to 8.14 this happened only if milter could delete recipients. ClientRate should trigger when the limit was exceeded (as documented), not when it was reached. Patch from John Beck of Sun Microsystems. Force a queue run for -qGqueuegroup even if no runners are specified (R=0) and forking (F=f) is requested. When multiple results are requested for a DNS map lookup (-z and -Z), return only those that are relevant for the query (not also those in the "additional section".) If the message transfer time to sendmail (when acting as server) exceeds Timeout.queuewarn or Timeout.queuereturn and the message is refused (by a milter), sendmail previously created a delivery status notification (DSN). Patch from Doug Heath of The Hertz Corporation. A code change in Cyrus-SASL 2.1.22 for sasl_decode64() requires the MTA to deal with some input (i.e., "=") itself. Problem noted by Eliot Lear. sendmail counted a delivery as successful if PIPELINING is compiled in but not offered by the server and the delivery failed temporarily. Patch from Werner Wiethege. If getting the result of an LDAP query times out then close the map so it will be reopened on the next lookup. This should help "failover" configurations that specify more than one LDAP server. If check_compat returns $#discard then a "savemail panic" could be triggered under some circumstances (e.g., requiring a system which does not have the compile time flag HASFLOCK set). Based on patch by Motonori Nakamura of National Institute of Informatics, Japan. If a milter rejected a recipient, the count for nrcpts= in the logfile entry might have been wrong. Problem found by Petra Humann of TU Dresden. If a milter invoked smfi_chgfrom() where ESMTP arguments are not NULL, the message body was lost. Patch from Motonori Nakamura of National Institute of Informatics, Japan. sendmail(8) had a bogus space in -qGname. Patch from Peng Haitao. CONTRIB: buildvirtuser: Preserve ownership and permissions when replacing files. CONTRIB: buildvirtuser: Skip dot-files (e.g., .cvsignore) when reading the /etc/mail/virtusers/ directory. CONTRIB: buildvirtuser: Emit warnings instead of exiting where appropriate. LIBMILTER: Fix ABI backwards compatibility so milters compiled against an older libmilter.so shared library can use an 8.14 libmilter.so shared library. LIBMILTER: smfi_version() did not properly extract the patchlevel from the version number, however, the returned value was correct for the current libmilter version. 8.14.1/8.14.1 2007/04/03 Even though a milter rejects a recipient the MTA will still keep it in its list of recipients and deliver to it if the transaction is accepted. This is a regression introduced in 8.14.0 due to the change for SMFIP_RCPT_REJ. Bug found by Andy Fiddaman. The new DaemonPortOptions which begin with a lower case character could not be set in 8.14.0. If a server shut down the connection in response to a STARTTLS command, sendmail would log a misleading error message due to an internal inconsistency. Problem found by Werner Wiethege. Document how some sendmail.cf options change the behavior of mailq. Noted by Paul Menchini of the North Carolina School of Science and Mathematics. CONFIG: Add confSOFT_BOUNCE m4 option for setting SoftBounce. CONFIG: 8.14.0's RELEASE_NOTES failed to mention the addition of the confMAX_NOOP_COMMANDS and confSHARED_MEMORY_KEY_FILE m4 options for setting MaxNOOPCommands and SharedMemoryKeyFile. CONFIG: Add confMILTER_MACROS_EOH and confMILTER_MACROS_DATA m4 options for setting Milter.macros.eoh and Milter.macros.data. CONTRIB: Use flock() and fcntl() in qtool.pl if necessary. Patch from Daniel Carroll of Mesa State College. LIBMILTER: Make sure an unknown command does not affect the currently available macros. Problem found by Andy Fiddaman. LIBMILTER: The MTA did not offer SMFIF_SETSYMLIST during option negotiation. Problem reported by Bryan Costales. LIBMILTER: Fix several minor errors in the documentation. Patches from Bryan Costales. PORTABILITY FIXES: AIX 5.{1,2}: libsm/util.c failed to compile due to redefinition of several macros, e.g., SIG_ERR. Patch from Jim Pirzyk with assistance by Bob Booth, University of Illinois at Urbana-Champaign. Add support for QNX.6. Patch from Sean Boudreau of QNX Software Systems. New Files: devtools/M4/depend/QNX6.m4 devtools/OS/QNX.6.x include/sm/os/sm_os_qnx.h New Files added in 8.14.0, but not shown in the release notes entry: libmilter/docs/smfi_chgfrom.html libmilter/docs/smfi_version.html 8.14.0/8.14.0 2007/01/31 Header field values are now 8 bit clean. Notes: - header field names are still restricted to 7 bit. - RFC 2822 allows only 7 bit (US-ASCII) characters in headers. Preserve spaces after the colon in a header. Previously, any number of spaces after the colon would be changed to exactly one space. In some cases of deeply nested aliases/forwarding, mail can be silently lost. Moreover, the MaxAliasRecursion limit may be reached too early, e.g., the counter may be off by a factor of 4 in case of a sequence of .forward files that refer to others. Patch from Motonori Nakamura of Kyoto University. Fix a regression in 8.13.8: if InputMailFilters is set then "sendmail -bs" can trigger an assertion because the hostname of the client is undefined. It is now set to "localhost" for the xxfi_connect() callback. Avoid referencing a freed variable during cleanup when terminating. Problem reported and diagnosed by Joe Maimon. New option HeloName to set the name for the HELO/EHLO command. Patch from Nik Clayton. New option SoftBounce to issue temporary errors (4xy) instead of permanent errors (5xy). This can be useful for testing. New suboptions for DaemonPortOptions to set them individually per daemon socket: DeliveryMode DeliveryMode refuseLA RefuseLA delayLA DelayLA queueLA QueueLA children MaxDaemonChildren New option -K for LDAP maps to replace %1 through %9 in the lookup key with the LDAP escaped contents of the arguments specified in the map lookup. Loosely based on patch from Wolfgang Hottgenroth. Log the time after which a greet_pause delay triggered. Patch from Nik Clayton. If a client is rejected via TCP wrapper or some other check performed by validate_connection() (in conf.c) then do not also invoke greet_pause. Problem noted by Jim Pirzyk of the University of Illinois at Urbana-Champaign. If a client terminates the SMTP connection during a pause introduced by greet_pause, then a misleading message was logged previously. Problem noted by Vernon Schryver et.al., patch from Matej Vela. New command "mstat" for control socket to provide "machine readable" status. New named config file rule check_eom which is called at the end of a message, its parameter is the size of the message. If the macro {addr_type} indicates that the current address is a header address it also distinguishes between recipient and sender addresses (as it is done for envelope addresses). When a macro is set in check_relay, then its value is accessible by all transactions in the same SMTP session. Increase size of key for ldap lookups to 1024 (MAXKEY). New option MaxNOOPCommands to override default of 20 for the number of "useless" commands before the SMTP server will slow down responding. New option SharedMemoryKeyFile: if shared memory support is enabled, the MTA can be asked to select a shared memory key itself by setting SharedMemoryKey to -1 and specifying a file where to store the selected key. Try to deal with open HTTP proxies that are used to send spam by recognizing some commands from them. If the first command from the client is GET, POST, CONNECT, or USER, then the connection is terminated immediately. New PrivacyOptions noactualrecipient to avoid putting X-Actual-Recipient lines in DSNs revealing the actual account that addresses map to. Patch from Dan Harkless. New options B, z, and Z for DNS maps: -B: specify a domain that is always appended to queries. -z: specify the delimiter at which to cut off the result of a query if it is too long. -Z: specify the maximum number of entries to be concatenated to form the result of a lookup. New target "check" in the Makefile of libsm: instead of running tests implicitly while building libsm, they must be explicitly started by using "make check". Fixed some inconsistent checks for NULL pointers that have been reported by the SATURN tool which has been developed by Isil Dillig and Thomas Dillig of Stanford University. Fix a potential race condition caused by a signal handler for terminated child processes. Problem noted by David F. Skoll. When a milter deleted a recipient, that recipient could cause a queue group selection. This has been disabled as it was not intended. New operator 'r' for the arith map to return a random number. Patch from Motonori Nakamura of Kyoto University. New compile time option MILTER_NO_NAGLE to turn off the Nagle algorithm for communication with libmilter ("cork" on Linux), which may improve the communication performance on some operating systems. Patch from John Gardiner Myers of Proofpoint. If sendmail received input that contained a CR without subsequent LF (thus violating RFC 2821 (2.3.7)), it could previously generate an additional blank line in the output as the last line. Restarting persistent queue runners by sending a HUP signal to the "queue control process" (QCP) works now. Increase the length of an input line to 12288 to deal with really long lines during SMTP AUTH negotiations. Problem noted by Werner Wiethege. If ARPANET mode (-ba) was selected STARTTLS would fail (due to a missing initialization call for that case). Problem noted by Neil Rickert of Northern Illinois University. If sendmail is linked against a library that initializes Cyrus-SASL before sendmail did it (such as libnss-ldap), then SMTP AUTH could fail for the sendmail client. A patch by Moritz Both works around the API design flaw of Cyrus-SASLv2. CONFIG: Make it possible to unset the StatusFile option by undefining STATUS_FILE. By not setting StatusFile, the MTA will not attempt to open a statistics file on each delivery. CONFIG: New FEATURE(`require_rdns') to reject messages from SMTP clients whose IP address does not have proper reverse DNS. Contributed by Neil Rickert of Northern Illinois University and John Beck of Sun Microsystems. CONFIG: New FEATURE(`block_bad_helo') to reject messages from SMTP clients which provide a HELO/EHLO argument which is either unqualified, or is one of our own names (i.e., the server name instead of the client name). Contributed by Neil Rickert of Northern Illinois University and John Beck of Sun Microsystems. CONFIG: New FEATURE(`badmx') to reject envelope sender addresses (MAIL) whose domain part resolves to a "bad" MX record. Based on contribution from William Dell Wisner. CONFIG: New macros SMTP_MAILER_LL and RELAY_MAILER_LL to override the maximum line length of the smtp mailers. CONFIG: New option `relaytofulladdress' for FEATURE(`access_db') to allow entries in the access map to be of the form To:user@example.com RELAY CONFIG: New subsuboptions eoh and data to specify the list of macros a milter should receive at those stages in the SMTP dialogue. CONFIG: New option confHELO_NAME for HeloName to set the name for the HELO/EHLO command. CONFIG: dnsbl and enhdnsbl can now also discard or quarantine messages by using those values as second argument. Patches from Nelson Fung. CONTRIB: cidrexpand uses a hash symbol as comment character and ignores everything after it unless it is in quotes or preceded by a backslash. DEVTOOLS: New macro confMKDIR: if set to a program that creates directories, then it used for "make install" to create the required installation directories. DEVTOOLS: New macro confCCLINK to specify the linker to use for executables (defaults to confCC). LIBMILTER: A new version of the milter API has been created that has several changes which are listed below and documented in the webpages reachable via libmilter/docs/index.html. LIBMILTER: The meaning of the version macro SMFI_VERSION has been changed. It now refers only to the version of libmilter, not to the protocol version (which is used only internally, it is not user/milter-programmer visible). Additionally, a version function smfi_version() has been introduced such that a milter program can check the libmilter version also at runtime which is useful if a shared library is used. LIBMILTER: A new callback xxfi_negotiate() can be used to dynamically (i.e., at runtime) determine the available protocol actions and features of the MTA and also to specify which of these a milter wants to use. This allows for more flexibility than hardcoding these flags in the xxfi_flags field of the smfiDesc structure. LIBMILTER: A new callback xxfi_data() is available so milters can act on the DATA command. LIBMILTER: A new callback xxfi_unknown() is available so milters can receive also unknown SMTP commands. LIBMILTER: A new return code SMFIS_NOREPLY has been added which can be used by the xxfi_header() callback provided the milter requested the SMFIP_NOHREPL protocol action. LIBMILTER: The new return code SMFIS_SKIP can be used in the xxfi_body() callback to skip over further body chunks and directly advance to the xxfi_eom() callback. This is useful if a milter can make a decision based on the body chunks it already received without reading the entire rest of the body and the milter wants to invoke functions that are only available from the xxfi_eom() callback. LIBMILTER: A new function smfi_addrcpt_par() can be used to add new recipients including ESMTP parameters. LIBMILTER: A new function smfi_chgfrom() can be used to change the envelope sender including ESMTP parameters. LIBMILTER: A milter can now request to be informed about rejected recipients (RCPT) too. This requires to set the protocol flag SMFIP_RCPT_REJ during option negotiation. Whether a RCPT has been rejected can be checked by comparing the value of the macro {rcpt_mailer} with "error". LIBMILTER: A milter can now override the list of macros that it wants to receive from the MTA for each protocol step by invoking the function smfi_setsymlist() during option negotiation. LIBMILTER: A milter can receive header field values with all leading spaces by requesting the SMFIP_HDR_LEADSPC protocol action. Also, if the flag is set then the MTA does not add a leading space to headers that are added, inserted, or replaced. LIBMILTER: If a milter sets the reply code to "421" for the HELO callback, the SMTP server will terminate the SMTP session with that error to match the behavior of all other callbacks. New Files: cf/feature/badmx.m4 cf/feature/block_bad_helo.m4 cf/feature/require_rdns.m4 devtools/M4/UNIX/check.m4 include/sm/misc.h include/sm/sendmail.h include/sm/tailq.h libmilter/docs/smfi_addrcpt_par.html libmilter/docs/smfi_setsymlist.html libmilter/docs/xxfi_data.html libmilter/docs/xxfi_negotiate.html libmilter/docs/xxfi_unknown.html libmilter/example.c libmilter/monitor.c libmilter/worker.c libsm/memstat.c libsm/t-memstat.c libsm/t-qic.c libsm/util.c sendmail/daemon.h sendmail/map.h 8.13.8/8.13.8 2006/08/09 Fix a regression in 8.13.7: if shared memory is activated, then the server can erroneously report that there is insufficient disk space. Additionally make sure that an internal variable is set properly to avoid those misleading errors. Based on patch from Steve Hubert of University of Washington. Fix a regression in 8.13.7: the PidFile could be removed after the process that forks the daemon exited, i.e., if sendmail -bd is invoked. Problem reported by Kan Sasaki of Fusion Communications Corp. and Werner Wiethege. Avoid opening qf files if QueueSortOrder is "none". Patch from David F. Skoll. Avoid a crash when finishing due to referencing a freed variable. Problem reported and diagnosed by Moritz Jodeit. CONTRIB: cidrexpand now deals with /0 by issuing the entire IPv4 range (0..255). LIBMILTER: The "hostname" argument of the xxfi_connect() callback previously was the equivalent of {client_ptr}. However, this did not match the documentation of the function, hence it has been changed to {client_name}. See doc/op/op.me about these macros. 8.13.7/8.13.7 2006/06/14 A malformed MIME structure with many parts can cause sendmail to crash while trying to send a mail due to a stack overflow, e.g., if the stack size is limited (ulimit -s). This happens because the recursion of the function mime8to7() was not restricted. The function is called for MIME 8 to 7 bit conversion and also to enforce MaxMimeHeaderLength. To work around this problem, recursive calls are limited to a depth of MAXMIMENESTING (20); message content after this limit is treated as opaque and is not checked further. Problem noted by Frank Sheiness. The changes to the I/O layer in 8.13.6 caused a regression for SASL mechanisms that use the security layer, e.g., DIGEST-MD5. Problem noted by Robert Stampfli. If a timeout occurs while reading a message (during the DATA phase) a df file might have been left behind in the queue. This was another side effect of the changes to the I/O layer made in 8.13.6. Several minor problems have been fixed that were found by a Coverity scan of sendmail 8 as part of the NetBSD distribution. See http://scan.coverity.com/ Note: the scan generated also a lot of "false positives", e.g., "error" reports about situations that cannot happen. Most of those code places are marked with lint(1) comments like NOTREACHED, but Coverity does not understand those. Hence an explicit assertion has been added in some cases to avoid those false positives. If the start of the sendmail daemon fails due to a configuration error then in some cases shared memory segments or pid files were not removed. If DSN support is disabled via access_db, then related ESMTP parameters for MAIL and RCPT should be rejected. Problem reported by Akihiro Sagawa. Enabling zlib compression in OpenSSL 0.9.8[ab] breaks the padding bug work-around. Hence if sendmail is linked against either of these versions and compression is available, the padding bug work-around is turned off. Based on patch from Victor Duchovni of Morgan Stanley. CONFIG: FEATURE(`dnsbl') and FEATURE(`enhdnsbl') used blackholes.mail-abuse.org as default domain for lookups, however, that list is no longer available. To avoid further problems, no default value is available anymore, but an argument must be specified. Portability: Fix compilation on OSF/1 for sfsasl.c. Patch from Pieter Bowman of the University of Utah. 8.13.6/8.13.6 2006/03/22 SECURITY: Replace unsafe use of setjmp(3)/longjmp(3) in the server and client side of sendmail with timeouts in the libsm I/O layer and fix problems in that code. Also fix handling of a buffer in sm_syslog() which could have been used as an attack vector to exploit the unsafe handling of setjmp(3)/longjmp(3) in combination with signals. Problem detected by Mark Dowd of ISS X-Force. Handle theoretical integer overflows that could triggered if the server accepted headers larger than the maximum (signed) integer value. This is prevented in the default configuration by restricting the size of a header, and on most machines memory allocations would fail before reaching those values. Problems found by Phil Brass of ISS. If a server returns 421 for an RSET command when trying to start another transaction in a session while sending mail, do not trigger an internal consistency check. Problem found by Allan E Johannesen of Worcester Polytechnic Institute. If a server returns a 5xy error code (other than 501) in response to a STARTTLS command despite the fact that it advertised STARTTLS and that the code is not valid according to RFC 2487 treat it nevertheless as a permanent failure instead of a protocol error (which has been changed to a temporary error in 8.13.5). Problem reported by Jeff A. Earickson of Colby College. Clear SMTP state after a HELO/EHLO command. Patch from John Myers of Proofpoint. Observe MinQueueAge option when gathering entries from the queue for sorting etc instead of waiting until the entries are processed. Patch from Brian Fundakowski Feldman. Set up TLS session cache to properly handle clients that try to resume a stored TLS session. Properly count the number of (direct) child processes such that a configured value (MaxDaemonChildren) is not exceeded. Based on patch from Attila Bruncsak. LIBMILTER: Remove superfluous backslash in macro definition (libmilter.h). Based on patch from Mike Kupfer of Sun Microsystems. LIBMILTER: Don't try to set SO_REUSEADDR on UNIX domain sockets. This generates an error message from libmilter on Solaris, though other systems appear to just discard the request silently. LIBMILTER: Deal with sigwait(2) implementations that return -1 and set errno instead of returning an error code directly. Patch from Chris Adams of HiWAAY Informations Services. Portability: Fix compilation checks for closefrom(3) and statvfs(2) in NetBSD. Problem noted by S. Moonesamy, patch from Andrew Brown. 8.13.5/8.13.5 2005/09/16 Store the filesystem identifier of the df/ subdirectory (if it exists) in an internal structure instead of the base directory. This structure is used decide whether there is enough free disk space when selecting a queue, hence without this change queue selection could fail if a df/ subdirectory exists and is on a different filesystem than the base directory. Use the queue index of the df file (instead of the qf file) for checking whether a link(2) operation can be used to split an envelope across queue groups. Problem found by Werner Wiethege. If the list of items in the queue is larger than the maximum number of items to process, sort the queue first and then cut the list off instead of the other way around. Patch from Matej Vela of Rudjer Boskovic Institute. Fix helpfile to show full entry for ETRN. Problem noted by Penelope Fudd, patch from Neil Rickert of Northern Illinois University. FallbackSmartHost should also be tried on temporary errors. From John Beck of Sun Microsystems. When a server responds with 421 to the STARTTLS command then treat it as a temporary error, not as protocol error. Problem noted by Andrey J. Melnikoff. Properly define two functions in libsm as static because their prototype used static too. Patch from Peter Klein. Fix syntax errors in helpfile for MAIL and RCPT commands. LIBMILTER: When smfi_replacebody() is called with bodylen equals zero then do not silently ignore that call. Patch from Gurusamy Sarathy of Active State. LIBMILTER: Recognize "421" also in a multi-line reply to terminate the SMTP session with that error. Fix from Brian Kantor. Portability: New option HASSNPRINTF which can be set if the OS has a properly working snprintf(3) to get rid of the last two (safe) sprintf(3) calls in the source code. Add support for AIX 5.3. Add support for SunOS 5.11 (aka Solaris 11). Add support for Darwin 8.x. Patch from Lyndon Nerenberg. OpenBSD 3.7 has removed support for NETISO. CONFIG: Add OSTYPE(freebsd6) for FreeBSD 6.X. Set DontBlameSendmail to AssumeSafeChown and GroupWritableDirPathSafe for OSTYPE(darwin). Patch from Lyndon Nerenberg. Some features still used 4.7.1 as enhanced status code which was supposed to be eliminated in 8.13.0 because some broken systems misinterpret it as a permanent error. Patch from Matej Vela of Rudjer Boskovic Institute. Some default values in a generated cf file did not match the defaults in the sendmail binary. Problem noted by Mike Pechkin. New Files: cf/ostype/freebsd6.m4 devtools/OS/AIX.5.3 devtools/OS/Darwin.8.x devtools/OS/SunOS.5.11 include/sm/time.h 8.13.4/8.13.4 2005/03/27 The bug fixes in 8.13.3 for connection handling uncovered a different error which could result in connections that stay in CLOSE_WAIT state due to a variable that was not properly initialized. Problem noted by Michael Sims. Deal with empty hostnames in hostsignature(). This bug could lead to an endless loop when doing LMTP deliveries to another host. Problem first reported by Martin Lathoud and tracked down by Gael Roualland. Make sure return parameters are initialized in getmxrr(). Problem found by Gael Roualland using valgrind. If shared memory is used and the RunAsUser option is set, then the owner and group of the shared memory segment is set to the ids specified RunAsUser and the access mode is set to 0660 to allow for updates by sendmail processes. The number of queue entries that is (optionally) kept in shared memory was wrong in some cases, e.g., envelope splitting and bounce generation. Undo a change made in 8.13.0 to silently truncate long strings in address rewriting because the message can be triggered for header checks where long strings are legitimate. Problem reported by Mary Verge DeSisto, and tracked down with the help of John Beck of Sun Microsystems. The internal stab map did not obey the -m flag. Patch from Rob McMahon of Warwick University, England. The socket map did not obey the -f flag. Problem noted by Dan Ringdahl, forwarded by Andrzej Filip. The addition of LDAP recursion in 8.13.0 broke enforcement of the LDAP map -1 argument which tells the MTA to only return success if and only if a single LDAP match is found. Add additional error checks in the MTA for milter communication to avoid a possible segmentation fault. Based on patch by Joe Maimon. Do not trigger an assertion if X509_digest() returns success but does not assign a value to its output parameter. Based on patch by Brian Kantor. Add more checks when resetting internal AUTH data (applies only to Cyrus SASL version 2). Otherwise an SMTP session might be dropped after an AUTH failure. Portability: Add LA_LONGLONG as valid LA_TYPE type for systems that use "long long" to read load average data, e.g., AIX 5.1 in 32 bit mode. Note: this has to be set "by hand", it is not (yet) automatically detected. Problem noted by Burak Bilen. Use socklen_t for accept(), etc. on AIX 5.x. This should fix problems when compiling in 64 bit mode. Problem first reported by Harry Meiert of University of Bremen. New Files: include/sm/sem.h libsm/sem.c libsm/t-sem.c 8.13.3/8.13.3 2005/01/11 Enhance handling of I/O errors, especially EOF, when STARTTLS is active. Make sure a connection is not reused after it has been closed due to a 421 error. Problem found by Allan E Johannesen of Worcester Polytechnic Institute. Avoid triggering an assertion when sendmail is interrupted while closing a connection. Problem found by Allan E Johannesen of Worcester Polytechnic Institute. Regression: a change in 8.13.2 caused sendmail not to try the next MX host (or FallbackMXhost if configured) when, at connection open, the current server returns a 4xy or 5xy SMTP reply code. Problem noted by Mark Tranchant. 8.13.2/8.13.2 2004/12/15 Do not split the first header even if it exceeds the internal buffer size. Previously a part of such a header would end up in the body of the message. Problem noted by Simple Nomad of BindView. Do not complain about "cataddr: string too long" when checking headers that do not contain RFC 2822 addresses. Problem noted by Rich Graves of Brandeis University. If a server returns a 421 reply to the RSET command between message deliveries, do not attempt to deliver any more messages on that connection. This prevents bogus "Bad file number" recipient status. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. Allow trailing white space in EHLO command as recommended by RFC 2821. Problem noted by Ralph Santagato of SBC Services. Deal with clients which use AUTH but negotiate a smaller buffer size for data exchanges than the value used by sendmail, e.g., Cyrus IMAP lmtp server. Based on patch by Jamie Clark. When passing ESMTP arguments for RCPT to a milter, do not cut them off at a comma. Problem noted by Krzysztof Oledzki. Add more logging to milter change header functions to complement existing logging. Based on patch from Gurusamy Sarathy of Active State. Include in include/sm/config.h when LDAPMAP is defined. Patch from Edgar Hoch of the University of Stuttgart. Fix DNS lookup if IPv6 is enabled when converting an IP address to a hostname for use with SASL. Problem noted by Ken Jones; patch from Hajimu UMEMOTO. CONFIG: For consistency enable MODIFY_MAILER_FLAGS for the prog mailer. Patch from John Beck of Sun Microsystems. LIBMILTER: It was possible that xxfi_abort() was called after xxfi_eom() for a message if some timeouts were triggered. Patch from Alexey Kravchuk. LIBMILTER: Slightly rearrange mutex use in listener.c to allow different threads to call smfi_opensocket() and smfi_main(). Patch from Jordan Ritter of Cloudmark. MAIL.LOCAL: Properly terminate MBDB before exiting. Problem noted by Nelson Fung. MAIL.LOCAL: make strip-mail.local used a wrong path to access mail.local. Problem noted by William Park. VACATION: Properly terminate MBDB before exiting. Problem noted by Nelson Fung. Portability: Add support for DragonFly BSD. New Files: cf/ostype/dragonfly.m4 devtools/OS/DragonFly include/sm/os/sm_os_dragonfly.h Deleted Files: libsm/vsscanf.c 8.13.1/8.13.1 2004/07/30 Using the default AliasFile ldap: specification would cause the objectClasses of the LDAP response to be included in the alias expansion. Problem noted by Brenden Conte of Rensselaer Polytechnic Institute. Fix support for a fallback smart host for system where DNS is (partially) available. From John Beck of Sun Microsystems. Fix SuperSafe=PostMilter behavior when a milter replaces a body but the data file is not yet stored on disk because it is smaller than the size of the memory buffer. Problem noted by David Russell. Fix certificate revocation list support; if a CRL was specified but the other side presented a cert that was signed by a different (trusted) CA than the one which issued the CRL, verification would always fail. Problem noted by Al Smith. Run mailer programs as the RunAsUser when RunAsUser is set and the F=S mailer flag is set without a U= mailer equate. Problem noted by John Gardiner Myers of Proofpoint. ${nbadrcpts} was off by one if BadRcptThrottle is zero. Patch from Sung-hoon Choi of DreamWiz Inc. CONFIG: Emit a warning if FEATURE(`access_db') is used after FEATURE(`greet_pause') because then the latter will not use the access map. Note: if no default value is given for FEATURE(`greet_pause') then it issues an error if FEATURE(`access_db') is not specified before it. Problem noted by Alexander Dalloz of University of Bielefeld. CONFIG: Invoke ruleset Local_greet_pause if FEATURE(`greet_pause') is used to give more flexibility for local changes. Portability: Fix a 64 bit problem in the socket map code. Problem noted by Geoff Adams. NetBSD 2.0F has closefrom(3). Patch from Andrew Brown. NetBSD can use sysctl(3) to get the number of CPUs in a system. Patch from Andrew Brown. Add a README file in doc/op/ to explain potential incompatibilities with various *roff related tools. Problem tracked down by Per Hedeland. New Files: doc/op/README 8.13.0/8.13.0 2004/06/20 Do not include AUTH data in a bounce to avoid leaking confidential information. See also cf/README about MSP and the section "Providing SMTP AUTH Data when sendmail acts as Client". Problem noted by Neil Rickert of Northern Illinois University. Fix compilation error in libsm/clock.c for -D_FFR_SLEEP_USE_SELECT=n and -DSM_CONF_SETITIMER=0. Problem noted by Juergen Georgi of RUS University of Stuttgart. Fix bug in conversion from 8bit to quoted-printable. Problem found by Christof Haerens, patch from Per Hedeland. Add support for LDAP recursion based on types given to attribute specifications in an LDAP map definition. This allows LDAP queries to return a new query, a DN, or an LDAP URL which will in turn be queried. See the ``LDAP Recursion'' section of doc/op/op.me for more information. Based on patch from Andrew Baucom. Extend the default LDAP specifications for AliasFile (O AliasFile=ldap:) and file classes (F{X}@LDAP) to include support for LDAP recursion via new attributes. See ``USING LDAP FOR ALIASES, MAPS, and CLASSES'' section of cf/README for more information. New option for LDAP maps: the -w option allows you to specify the LDAP API/protocol version to use. The default depends on the LDAP library. New option for LDAP maps: the -H option allows you to specify an LDAP URI instead of specifying the LDAP server via -h host and -p port. This also allows for the use of LDAP over SSL and connections via named sockets if your LDAP library supports it. New compile time flag SM_CONF_LDAP_INITIALIZE: set this if ldap_initialize(3) is available (and LDAPMAP is set). If MaxDaemonChildren is set and a command is repeated too often during a SMTP session then terminate it just like it is done for too many bad SMTP commands. Basic connection rate control support has been added: the daemon maintains the number of incoming connections per client IP address and total in the macros {client_rate} and {total_rate}, respectively. These macros can be used in the cf file to impose connection rate limits. A new option ConnectionRateWindowSize (default: 60s) determines the length of the interval for which the number of connections is stored. Based on patch from Jose Marcio Martins da Cruz, Ecole des Mines de Paris. Add optional protection from open proxies and SMTP slammers which send SMTP traffic without waiting for the SMTP greeting. If enabled by the new ruleset greet_pause (see FEATURE(`greet_pause')), sendmail will wait the specified amount of time before sending the initial 220 SMTP greeting. If any traffic is received before then, a 554 SMTP response is sent and all SMTP commands are rejected during that connection. If 32 NOOP (or unknown/bad) commands are issued by a client the SMTP server could sleep for a very long time. Fix based on patch from Tadashi Kobayashi of IIJ. Fix a potential memory leak in persistent queue runners if the number of entries in the queue exceeds the limit of jobs. Problem noted by Steve Hubert of University of Washington. Do not use 4.7.1 as enhanced status code because some broken systems misinterpret it as a permanent error. New value for SuperSafe: PostMilter which will delay fsync() until all milters accepted the mail. This can increase performance if many mails are rejected by milters due to body scans. Based on patch from David F. Skoll. New macro {msg_id} which contains the value of the Message-Id: header, whether provided by the client or generated by sendmail. New macro {client_connections} which contains the number of open connections in the SMTP server for the client IP address. Based on patch from Jose Marcio Martins da Cruz, Ecole des Mines de Paris. sendmail will now remove its pidfile when it exits. This was done to prevent confusion caused by running sendmail stop scripts two or more times, where the second and subsequent runs would report misleading error messages about sendmail's pid no longer existing. See section 1.3.15 of doc/op/op.me for a discussion of the implications of this, including how to correct broken scripts which may have depended on the old behavior. From John Beck of Sun Microsystems. Support per-daemon input filter lists which override the default filter list specified in InputMailFilters. The filters can be listed in the I= equate of DaemonPortOptions. Do not add all domain prefixes of the hostname to class 'w'. If your configuration relies on this behavior, you have to add those names to class 'w' yourself. Problem noted by Sander Eerkes. Support message quarantining in the mail queue. Quarantined messages are not run on normal queue displays or runs unless specifically requested with -qQ. Quarantined queue files are named with an hf prefix instead of a qf prefix. The -q command line option now can specify which queue to display or run. -qQ operates on quarantined queue items. -qL operates on lost queue items. Restricted mail queue runs and displays can be done based on the quarantined reason using -qQtext to run or display quarantined items if the quarantine reason contains the given text. Similarly, -q!Qtext will run or display quarantined items which do not have the given text in the quarantine reason. Items in the queue can be quarantined or unquarantined using the new -Q option. See doc/op/op.me for more information. When displaying the quarantine mailq with 'mailq -qQ', the quarantine reason is shown in a new line prefixed by "QUARANTINE:". A new error code for the $#error mailer, $@ quarantine, can be used to quarantine messages in check_* (except check_compat) and header check rulesets. The $: of the mailer triplet will be used for the quarantine reason. Add a new quarantine count to the mailstats collected. Add a new macro ${quarantine} which is the quarantine reason for a message if it is quarantined. New map type "socket" for a trivial query protocol over UNIX domain or TCP sockets (requires compile time option SOCKETMAP). See sendmail/README and doc/op/op.me for details as well as socketmapServer.pl and socketmapClient.pl in contrib. Code donated by Bastiaan Bakker of LifeLine Networks. Define new macro ${client_ptr} which holds the result of the PTR lookup for the client IP address. Note: this is the same as ${client_name} if and only if ${client_resolve} is OK. Add a new macro ${nbadrcpts} which contains the number of bad recipients received so far in a transaction. Call check_relay with the value of ${client_name} to deal with bogus DNS entries. See also FEATURE(`use_client_ptr'). Problem noted by Kai Schlichting. Treat Delivery-Receipt-To: headers the same as Return-Receipt-To: headers (turn them into DSNs). Delivery-Receipt-To: is apparently used by SIMS (Sun Internet Mail System). Enable connection caching for LPC mailers. Patch from Christophe Wolfhugel of France Telecom Oleane. Do not silently truncate long strings in address rewriting. Add support for Cyrus SASL version 2. From Kenneth Murchison of Oceana Matrix Ltd. Add a new AuthOption=m flag to require the use of mechanisms which support mutual authentication. From Kenneth Murchison of Oceana Matrix Ltd. Fix logging of TLS related problems (introduced in 8.12.11). The macros {auth_author} and {auth_authen} are stored in xtext format just like the STARTTLS related macros to avoid problems with parsing them. Problem noted by Pierangelo Masarati of SysNet s.n.c. New option AuthRealm to set the authentication realm that is passed to the Cyrus SASL library. Patch from Gary Mills of the University of Manitoba. Enable AUTH mechanism EXTERNAL if STARTTLS verification was successful, otherwise relaying would be allowed if EXTERNAL is listed in TRUST_AUTH_MECH() and STARTTLS is active. Add basic support for certificate revocation lists. Note: if a CRLFile is specified but the file is unusable, STARTTLS is disabled. Based on patch by Ralf Hornik. Enable workaround for inconsistent Cyrus SASLv1 API for mechanisms DIGEST-MD5 and LOGIN. Write pid to file also if sendmail only acts as persistent queue runner. Proposed by Gary Mills of the University of Manitoba. Keep daemon pid file(s) locked so other daemons don't try to overwrite each other's pid files. Increase maximum length of logfile fields for {cert_subject} and {cert_issuer} from 128 to 256. Requested by Christophe Wolfhugel of France Telecom. Log the TLS verification message on the STARTTLS= log line at LogLevel 12 or higher. If the MSP is invoked with the verbose option (-v) then it will try to use the SMTP command VERB to propagate this option to the MTA which in turn will show the delivery just like it was done before the default 8.12 separation of MSP and MTA. Based on patch by Per Hedeland. If a daemon is refusing connections for longer than the time specified by the new option RejectLogInterval (default: 3 hours) due to high load, log this information. Patch from John Beck of Sun Microsystems. Remove the ability for non-trusted users to raise the value of CheckpointInterval on the command line. New mailer flag 'B' to strip leading backslashes, which is a subset of the functionality of the 's' flag. New mailer flag 'W' to ignore long term host status information. Patch from Juergen Georgi of RUS University of Stuttgart. Enable generic mail filter API (milter) by default. To turn it off, add -DMILTER=0 to the compile time options. An internal SMTP session discard flag was lost after an RSET/HELO/EHLO causing subsequent messages to be sent instead of being discarded. This also caused milter callbacks to be called out of order after the SMTP session was reset. New option RequiresDirfsync to turn off the compile time flag REQUIRES_DIR_FSYNC at runtime. See sendmail/README for further information. New command line option -D logfile to send debug output to the indicated log file instead of stdout. Add Timeout.queuereturn.dsn and Timeout.queuewarn.dsn to control queue return and warning times for delivery status notifications. New queue sort order option: 'n'one for not sorting the queue entries at all. Several more return values for ruleset srv_features have been added to enable/disable certain features in the server per connection. See doc/op/op.me for details. Support for SMTP over SSL (smtps), activated by Modifier=s for DaemonPortOptions. Continue with DNS lookups on ECONNREFUSED and TRY_AGAIN when trying to canonify hostnames. Suggested by Neil Rickert of Northern Illinois University. Add support for a fallback smart host (option FallbackSmartHost) to be tried as a last resort after all other fallbacks. This is designed for sites with partial DNS (e.g., an accurate view of inside the company, but an incomplete view of outside). From John Beck of Sun Microsystems. Enable timeout for STARTTLS even if client does not start the TLS handshake. Based on patch by Andrey J. Melnikoff. Remove deprecated -v option for PH map, use -k instead. Patch from Mark Roth of the University of Illinois at Urbana-Champaign. libphclient is version 1.2.x by default, if version 1.1.x is required then compile with -DNPH_VERSION=10100. Patch from Mark Roth of the University of Illinois at Urbana-Champaign. Add Milter.macros.eom, allowing macros to be sent to milter applications for use in the xxfi_eom() callback. New macro {time} which contains the output of the time(3) function, i.e., the number of seconds since 0 hours, 0 minutes, 0 seconds, January 1, 1970, Coordinated Universal Time (UTC). If check_relay sets the reply code to "421" the SMTP server will terminate the SMTP session with a 421 error message. Get rid of dead code that tried to access the environment variable HOSTALIASES. Deprecate the use of ErrorMode=write. To enable this in 8.13 compile with -DUSE_TTYPATH=1. Header check rulesets using $>+ (do not strip comments) will get the header value passed in without balancing quotes, parentheses, and angle brackets. Based on patch from Oleg Bulyzhin. Do not complain and fix up unbalanced quotes, parentheses, and angle brackets when reading in rulesets. This allows rules to be written for header checks to catch strings that contain quotes, parentheses, and/or angle brackets. Based on patch from Oleg Bulyzhin. Do not close socket when accept(2) in the daemon encounters some temporary errors like ECONNABORTED. Added list of CA certificates that are used by members of the sendmail consortium, see CACerts. Portability: Two new compile options have been added: HASCLOSEFROM System has closefrom(3). HASFDWALK System has fdwalk(3). Based on patch from John Beck of Sun Microsystems. The Linux kernel version 2.4 series has a broken flock() so change to using fcntl() locking until they can fix it. Be sure to update other sendmail related programs to match locking techniques. New compile time option NEEDINTERRNO which should be set if does not declare errno itself. Support for UNICOS/mk and UNICOS/mp added, some changes for UNICOS. Patches contributed by Aaron Davis and Brian Ginsbach, Cray Inc., and Manu Mahonen of Center for Scientific Computing. Add support for Darwin 7.0/Mac OS X 10.3 (a.k.a. Panther). Extend support to Darwin 7.x/Mac OS X 10.3 (a.k.a. Panther). Remove path from compiler definition for Interix because Interix 3.0 and 3.5 put gcc in different locations. Also use to get the correct major()/minor() definitions. Based on feedback from Mark Funkenhauser. CONFIG: Add support for LDAP recursion to the default LDAP searches for maps via new attributes. See the ``USING LDAP FOR ALIASES, MAPS, and CLASSES'' section of cf/README and cf/sendmail.schema for more information. CONFIG: Make sure confTRUSTED_USER is valid even if confRUN_AS_USER is of the form "user:group" when used for submit.mc. Problem noted by Carsten P. Gehrke, patch from Neil Rickert of Northern Illinois University. CONFIG: Add a new access DB value of QUARANTINE:reason which instructs the check_* (except check_compat) to quarantine the message using the given reason. CONFIG: Use "dns -R A" as map type for dnsbl (just as for enhdnsbl) instead of "host" to avoid problem with looking up other DNS records than just A. CONFIG: New option confCONNECTION_RATE_WINDOW_SIZE to define the length of the interval for which the number of incoming connections is maintained. CONFIG: New FEATURE(`ratecontrol') to set the limits for connection rate control for individual hosts or nets. CONFIG: New FEATURE(`conncontrol') to set the limits for the number of open SMTP connections for individual hosts or nets. CONFIG: New FEATURE(`greet_pause') enables open proxy and SMTP slamming protection described above. The feature can take an argument specifying the milliseconds to wait and/or use the access database to look the pause time based on client hostname, domain, IP address, or subnet. CONFIG: New FEATURE(`use_client_ptr') to have check_relay use $&{client_ptr} as its first argument. This is useful for rejections based on the unverified hostname of client, which turns on the same behavior as in earlier sendmail versions when delay_checks was not in use. See also entry above about check_relay being invoked with ${client_name}. CONFIG: New option confREJECT_LOG_INTERVAL to specify the log interval when refusing connections for this long. CONFIG: Remove quotes around usage of confREJECT_MSG; in some cases this requires a change in a mc file. Requested by Ted Roberts of Electronic Data Systems. CONFIG: New option confAUTH_REALM to set the authentication realm that is passed to the Cyrus SASL library. Patch from Gary Mills of the University of Manitoba. CONFIG: Rename the (internal) classes {tls}/{src} to {Tls}/{Src} to follow the naming conventions. CONFIG: Add a third optional argument to local_lmtp to specify the A= argument. CONFIG: Remove the f flag from the default mailer flags of local_lmtp. CONFIG: New option confREQUIRES_DIR_FSYNC to turn off the compile time flag REQUIRES_DIR_FSYNC at runtime. CONFIG: New LOCAL_UUCP macro to insert rules into the generated cf file at the same place where MAILER(`uucp') inserts its rules. CONFIG: New options confTO_QUEUERETURN_DSN and confTO_QUEUEWARN_DSN to control queue return and warning times for delivery status notifications. CONFIG: New option confFALLBACK_SMARTHOST to define FallbackSmartHost. CONFIG: Add the mc file which has been used to create the cf file to the end of the cf file when using make in cf/cf/. Patch from Richard Rognlie. CONFIG: FEATURE(nodns) has been removed, it was a no-op since 8.9. Use ServiceSwitchFile to turn off DNS lookups, see doc/op/op.me. CONFIG: New option confMILTER_MACROS_EOM (sendmail Milter.macros.eom option) defines macros to be sent to milter applications for use in the xxfi_eom() callback. CONFIG: New option confCRL to specify file which contains certificate revocations lists. CONFIG: Add a new value (sendertoo) for the third argument to FEATURE(`ldap_routing') which will reject the SMTP MAIL From: command if the sender address doesn't exist in LDAP. See cf/README for more information. CONFIG: Add a fifth argument to FEATURE(`ldap_routing') which instructs the rulesets on whether or not to do a domain lookup if a full address lookup doesn't match. See cf/README for more information. CONFIG: Add a sixth argument to FEATURE(`ldap_routing') which instructs the rulesets on whether or not to queue the mail or give an SMTP temporary error if the LDAP server can't be reached. See cf/README for more information. Based on patch from Billy Ray Miller of Caterpillar. CONFIG: Experimental support for MTAMark, see cf/README for details. CONFIG: New option confMESSAGEID_HEADER to define a different Message-Id: header format. Patch from Bastiaan Bakker of LifeLine Networks. CONTRIB: New version of cidrexpand which uses Net::CIDR. From Derek J. Balling. CONTRIB: oldbind.compat.c has been removed due to security problems. Found by code inspection done by Reasoning, Inc. DEVTOOLS: Add an example file for devtools/Site/, contributed by Neil Rickert of Northern Illinois University. LIBMILTER: Add new function smfi_quarantine() which allows the filter's EOM routine to quarantine the current message. Filters which use this function must include the SMFIF_QUARANTINE flag in the registered smfiDesc structure. LIBMILTER: If a milter sets the reply code to "421", the SMTP server will terminate the SMTP session with that error. LIBMILTER: Upon filter shutdown, libmilter will not remove a named socket in the file system if it is running as root. LIBMILTER: Add new function smfi_progress() which allows the filter to notify the MTA that an EOM operation is still in progress, resetting the timeout. LIBMILTER: Add new function smfi_opensocket() which allows the filter to attempt to establish the interface socket, and detect failure to do so before calling smfi_main(). LIBMILTER: Add new function smfi_setmlreply() which allows the filter to return a multi-line SMTP reply. LIBMILTER: Deal with more temporary errors in accept() by ignoring them instead of stopping after too many occurred. Suggested by James Carlson of Sun Microsystems. LIBMILTER: Fix a descriptor leak in the sample program found in docs/sample.html. Reported by Dmitry Adamushko. LIBMILTER: The sample program also needs to use SMFIF_ADDRCPT. Reported by Carl Byington of 510 Software Group. LIBMILTER: Document smfi_stop() and smfi_setdbg(). Patches from Bryan Costales. LIBMILTER: New compile time option SM_CONF_POLL; define this if poll(2) should be used instead of select(2). LIBMILTER: New function smfi_insheader() and related protocol amendments to support header insertion operations. MAIL.LOCAL: Add support for hashed mail directories, see mail.local/README. Contributed by Chris Adams of HiWAAY Informations Services. MAILSTATS: Display quarantine message counts. MAKEMAP: Add new flag -D to specify the comment character to use instead of '#'. VACATION: Add new flag -j to auto-respond to messages regardless of whether or not the recipient is listed in the To: or Cc: headers. VACATION: Add new flag -R to specify the envelope sender address for the auto-response message. New Files: CACerts cf/feature/conncontrol.m4 cf/feature/greet_pause.m4 cf/feature/mtamark.m4 cf/feature/ratecontrol.m4 cf/feature/use_client_ptr.m4 cf/ostype/unicos.m4 cf/ostype/unicosmk.m4 cf/ostype/unicosmp.m4 contrib/socketmapClient.pl contrib/socketmapServer.pl devtools/OS/Darwin.7.0 devtools/OS/UNICOS-mk devtools/OS/UNICOS-mp devtools/Site/site.config.m4.sample include/sm/os/sm_os_unicos.h include/sm/os/sm_os_unicosmk.h include/sm/os/sm_os_unicosmp.h libmilter/docs/smfi_insheader.html libmilter/docs/smfi_progress.html libmilter/docs/smfi_quarantine.html libmilter/docs/smfi_setdbg.html libmilter/docs/smfi_setmlreply.html libmilter/docs/smfi_stop.html sendmail/ratectrl.c Deleted Files: cf/feature/nodns.m4 contrib/oldbind.compat.c devtools/OS/CRAYT3E.2.0.x devtools/OS/CRAYTS.10.0.x libsm/vsprintf.c Renamed Files: devtools/OS/Darwin.7.0 => devtools/OS/Darwin.7.x 8.12.11/8.12.11 2004/01/18 Use QueueFileMode when opening qf files. This error was a regression in 8.12.10. Problem detected and diagnosed Lech Szychowski of the Polish Power Grid Company. Properly count the number of queue runners in a work group and make sure the total limit of MaxQueueChildren is not exceeded. Based on patch from Takayuki Yoshizawa of Techfirm, Inc. Take care of systems that can generate time values where the seconds can exceed the usual range of 0 to 59. Problem noted by Randy Diffenderfer of EDS. Avoid regeneration of identical queue identifiers by processes whose process id is the same as that of the initial sendmail process that was used to start the daemon. Problem noted by Randy Diffenderfer of EDS. When a milter invokes smfi_delrcpt() compare the supplied recipient address also against the printable addresses of the current list to deal with rewritten addresses. Based on patch from Sean Hanson of The Asylum. BadRcptThrottle now also works for addresses which return the error mailer, e.g., virtusertable entries with the right hand side error:. Patch from Per Hedeland. Fix printing of 8 bit characters as octals in log messages. Based on patch by Andrey J. Melnikoff. Undo change of algorithm for MIME 7-bit base64 encoding to 8-bit text that has been introduced in 8.12.3. There are some examples where the new code fails, but the old code works. To get the 8.12.3-8.12.10 version, compile sendmail with -DMIME7TO8_OLD=0. If you have an example of improper 7 to 8 bit conversion please send it to us. Return normal error code for unknown SMTP commands instead of the one specified by check_relay or a milter for a connection. Problem noted by Andrzej Filip. Some ident responses contain data after the terminating CRLF which causes sendmail to log "POSSIBLE ATTACK...newline in string". To avoid this everything after LF is ignored. If the operating system supports O_EXLOCK and HASFLOCK is set then a possible race condition for creating qf files can be avoided. Note: the race condition does not exist within sendmail, but between sendmail and an external application that accesses qf files. Log the proper options name for TLS related mising files for the CACertPath, CACertFile, and DHParameters options. Do not split an envelope if it will be discarded, otherwise df files could be left behind. Problem found by Wolfgang Breyha. The use of the environment variables HOME and HOSTALIASES has been deprecated and will be removed in version 8.13. This only effects configuration which preserve those variable via the 'E' command in the cf file as sendmail clears out its entire environment. Portability: Add support for Darwin 7.0/Mac OS X 10.3 (a.k.a. Panther). Solaris 10 has unsetenv(), patch from Craig Mohrman of Sun Microsystems. LIBMILTER: Add extra checks in case a broken MTA sends bogus data to libmilter. Based on code review by Rob Grzywinski. SMRSH: Properly assemble commands that contain '&&' or '||'. Problem noted by Eric Lee of Talking Heads. New Files: devtools/OS/Darwin.7.0 8.12.10/8.12.10 2003/09/24 (Released: 2003/09/17) SECURITY: Fix a buffer overflow in address parsing. Problem detected by Michal Zalewski, patch from Todd C. Miller of Courtesan Consulting. Fix a potential buffer overflow in ruleset parsing. This problem is not exploitable in the default sendmail configuration; only if non-standard rulesets recipient (2), final (4), or mailer-specific envelope recipients rulesets are used then a problem may occur. Problem noted by Timo Sirainen. Accept 0 (and 0/0) as valid input for set MaxMimeHeaderLength. Problem noted by Thomas Schulz. Add several checks to avoid (theoretical) buffer over/underflows. Properly count message size when performing 7->8 or 8->7 bit MIME conversions. Problem noted by Werner Wiethege. Properly compute message priority based on size of entire message, not just header. Problem noted by Axel Holscher. Reset SevenBitInput to its configured value between SMTP transactions for broken clients which do not properly announce 8 bit data. Problem noted by Stefan Roehrich. Set {addr_type} during queue runs when processing recipients. Based on patch from Arne Jansen. Better error handling in case of (very unlikely) queue-id conflicts. Perform better error recovery for address parsing, e.g., when encountering a comment that is too long. Problem noted by Tanel Kokk, Union Bank of Estonia. Add ':' to the allowed character list for bogus HELO/EHLO checking. It is used for IPv6 domain literals. Patch from Iwaizako Takahiro of FreeBit Co., Ltd. Reset SASL connection context after a failed authentication attempt. Based on patch from Rob Siemborski of CMU. Check Berkeley DB compile time version against run time version to make sure they match. Do not attempt AAAA (IPv6) DNS lookups if IPv6 is not enabled in the kernel. When a milter adds recipients and one of them causes an error, do not ignore the other recipients. Problem noted by Bart Duchesne. CONFIG: Use specified SMTP error code in mailertable entries which lack a DSN, i.e., "error:### Text". Problem noted by Craig Hunt. CONFIG: Call Local_trust_auth with the correct argument. Patch from Jerome Borsboom. CONTRIB: Better handling of temporary filenames for doublebounce.pl and expn.pl to avoid file overwrites, etc. Patches from Richard A. Nelson of Debian and Paul Szabo. MAIL.LOCAL: Fix obscure race condition that could lead to an improper mailbox truncation if close() fails after the mailbox is fsync()'ed and a new message is delivered after the close() and before the truncate(). MAIL.LOCAL: If mail delivery fails, do not leave behind a stale lockfile (which is ignored after the lock timeout). Patch from Oleg Bulyzhin of Cronyx Plus LLC. Portability: Port for AIX 5.2. Thanks to Steve Hubert of University of Washington for providing access to a computer with AIX 5.2. setreuid(2) works on OpenBSD 3.3. Patch from Todd C. Miller of Courtesan Consulting. Allow for custom definition of SMRSH_CMDDIR and SMRSH_PATH on all operating systems. Patch from Robert Harker of Harker Systems. Use strerror(3) on Linux. If this causes a problem on your Linux distribution, compile with -DHASSTRERROR=0 and tell sendmail.org about it. New Files: devtools/OS/AIX.5.2 8.12.9/8.12.9 2003/03/29 SECURITY: Fix a buffer overflow in address parsing due to a char to int conversion problem which is potentially remotely exploitable. Problem found by Michal Zalewski. Note: an MTA that is not patched might be vulnerable to data that it receives from untrusted sources, which includes DNS. To provide partial protection to internal, unpatched sendmail MTAs, 8.12.9 changes by default (char)0xff to (char)0x7f in headers etc. To turn off this conversion compile with -DALLOW_255 or use the command line option -d82.101. To provide partial protection for internal, unpatched MTAs that may be performing 7->8 or 8->7 bit MIME conversions, the default for MaxMimeHeaderLength has been changed to 2048/1024. Note: this does have a performance impact, and it only protects against frontal attacks from the outside. To disable the checks and return to pre-8.12.9 defaults, set MaxMimeHeaderLength to 0/0. Do not complain about -ba when submitting mail. Problem noted by Derek Wueppelmann. Fix compilation with Berkeley DB 1.85 on systems that do not have flock(2). Problem noted by Andy Harper of Kings College London. Properly initialize data structure for dns maps to avoid various errors, e.g., looping processes. Problem noted by Maurice Makaay of InterNLnet B.V. CONFIG: Prevent multiple application of rule to add smart host. Patch from Andrzej Filip. CONFIG: Fix queue group declaration in MAILER(`usenet'). CONTRIB: buildvirtuser: New option -t builds the virtusertable text file instead of the database map. Portability: Revert wrong change made in 8.12.7 and actually use the builtin getopt() version in sendmail on Linux. This can be overridden by using -DSM_CONF_GETOPT=0 in which case the OS supplied version will be used. 8.12.8/8.12.8 2003/02/11 SECURITY: Fix a remote buffer overflow in header parsing by dropping sender and recipient header comments if the comments are too long. Problem noted by Mark Dowd of ISS X-Force. Fix a potential non-exploitable buffer overflow in parsing the .cf queue settings and potential buffer underflow in parsing ident responses. Problem noted by Yichen Xie of Stanford University Compilation Group. Fix ETRN #queuegroup command: actually start a queue run for the selected queue group. Problem noted by Jos Vos. If MaxMimeHeaderLength is set and a malformed MIME header is fixed, log the fixup as "Fixed MIME header" instead of "Truncated MIME header". Problem noted by Ian J Hart. CONFIG: Fix regression bug in proto.m4 that caused a bogus error message: "FEATURE() should be before MAILER()". MAIL.LOCAL: Be more explicit in some error cases, i.e., whether a mailbox has more than one link or whether it is not a regular file. Patch from John Beck of Sun Microsystems. 8.12.7/8.12.7 2002/12/29 Properly clean up macros to avoid persistence of session data across various connections. This could cause session oriented restrictions, e.g., STARTTLS requirements, to erroneously allow a connection. Problem noted by Tim Maletic of Priority Health. Do not lookup MX records when sorting the MSP queue. The MSP only needs to relay all mail to the MTA. Problem found by Gary Mills of the University of Manitoba. Do not restrict the length of connection information to 100 characters in some logging statements. Problem noted by Erik Parker. When converting an enhanced status code to an exit status, use EX_CONFIG if the first digit is not 2, 4, or 5 or if *.1.5 is used. Reset macro $x when receiving another MAIL command. Problem noted by Vlado Potisk of Wigro s.r.o. Don't bother setting the permissions on the build area statistics file, the proper permissions will be put on the file at install time. This fixes installation over NFS for some users. Problem noted by Martin J. Dellwo of 3-Dimensional Pharmaceuticals, Inc. Fix problem of decoding SASLv2 encrypted data. Problem noted by Alex Deiter of Mobile TeleSystems, Komi Republic. Log milter socket open errors at MilterLogLevel 1 or higher instead of 11 or higher. Print early system errors to the console instead of silently exiting. Problem noted by James Jong of IBM. Do not process a queue group if Runners is set to 0, regardless of whether F=f or sendmail is run in verbose mode (-v). The use of -qGname will still force queue group "name" to be run even if Runners=0. Change the level for logging the fact that a daemon is refusing connections due to high load from LOG_INFO to LOG_NOTICE. Patch from John Beck of Sun Microsystems. Use location information for submit.cf from NetInfo (/locations/sendmail/submit.cf) if available. Re-enable ForkEachJob which was lost in 8.12.0. Problem noted by Neil Rickert of Northern Illinois University. Make behavior of /canon in debug mode consistent with usage in rulesets. Patch from Shigeno Kazutaka of IIJ. Fix a potential memory leak in envelope splitting. Problem noted by John Majikes of IBM. Do not try to share an mailbox database LDAP connection across different processes. Problem noted by Randy Kunkee. Fix logging for undelivered recipients when the SMTP connection times out during message collection. Problem noted by Neil Rickert of Northern Illinois University. Avoid problems with QueueSortOrder=random due to problems with qsort() on Solaris (and maybe some other operating systems). Problem noted by Stephan Schulz of Gruner+Jahr.. If -f "" is specified, set the sender address to "<>". Problem noted by Matthias Andree. Fix formatting problem of footnotes for plain text output on some versions of tmac. Patch from Per Hedeland. Portability: Berkeley DB 4.1 support (requires at least 4.1.25). Some getopt(3) implementations in GNU/Linux are broken and pass a NULL pointer to an option which requires an argument, hence the builtin version of sendmail is used instead. This can be overridden by using -DSM_CONF_GETOPT=0. Problem noted by Vlado Potisk of Wigro s.r.o. Support for nph-1.2.0 from Mark D. Roth of the University of Illinois at Urbana-Champaign. Support for FreeBSD 5.0's MAC labeling from Robert Watson of the TrustedBSD Project. Support for reading the number of processors on an IRIX system from Michel Bourget of SGI. Support for UnixWare 7.1 based on input from Larry Rosenman. Interix support from Nedelcho Stanev of Atlantic Sky Corporation. Update Mac OS X/Darwin portability from Wilfredo Sanchez. CONFIG: Enforce tls_client restrictions even if delay_checks is used. Problem noted by Malte Starostik. CONFIG: Deal with an empty hostname created via bogus DNS entries to get around access restrictions. Problem noted by Kai Schlichting. CONFIG: Use FEATURE(`msp', `[127.0.0.1]') in submit.mc by default to avoid problems with hostname resolution for localhost which on many systems does not resolve to 127.0.0.1 (or ::1 for IPv6). If you do not use IPv4 but only IPv6 then you need to change submit.mc accordingly, see the comment in the file itself. CONFIG: Set confDONT_INIT_GROUPS to True in submit.mc to avoid error messages from initgroups(3) on AIX 4.3 when sending mail to non-existing users. Problem noted by Mark Roth of the University of Illinois at Urbana-Champaign. CONFIG: Allow local_procmail to override local_lmtp settings. CONFIG: Always allow connections from 127.0.0.1 or IPv6:::1 to relay. CONTRIB: cidrexpand: Deal with the prefix tags that may be included in access_db. CONTRIB: New version of doublebounce.pl contributed by Leo Bicknell. LIBMILTER: On Solaris libmilter may get into an endless loop if an error in the communication from/to the MTA occurs. Patch from Gurusamy Sarathy of Active State. LIBMILTER: Ignore EINTR from sigwait(3) which may happen on Tru64. Patch from from Jose Marcio Martins da Cruz of Ecole Nationale Superieure des Mines de Paris. MAIL.LOCAL: Fix a truncation race condition if the close() on the mailbox fails. Problem noted by Tomoko Fukuzawa of Sun Microsystems. MAIL.LOCAL: Fix a potential file descriptor leak if mkstemp(3) fails. Patch from John Beck of Sun Microsystems. SMRSH: SECURITY: Only allow regular files or symbolic links to be used for a command. Problem noted by David Endler of iDEFENSE, Inc. New Files: devtools/OS/Interix include/sm/bdb.h 8.12.6/8.12.6 2002/08/26 Do not add the FallbackMXhost (or its MX records) to the list returned by the bestmx map when -z is used as option. Otherwise sendmail may act as an open relay if FallbackMXhost and FEATURE(`relay_based_on_MX') are used together. Problem noted by Alexander Ignatyev. Properly split owner- mailing list messages when SuperSafe is set to interactive. Problem noted by Todd C. Miller of Courtesan Consulting. Make sure that an envelope is queued in the selected queue group even if some recipients are deleted or invalid. Problem found by Chris Adams of HiWAAY Informations Services. Do not send a bounce message if a message is completely collected from the SMTP client. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Provide an 'install-submit-st' target for sendmail/Makefile to install the MSP statistics file using the file named in the confMSP_STFILE devtools variable. Requested by Jeff Earickson of Colby College. Queue up mail with a temporary error if setusercontext() fails during a delivery attempt. Patch from Todd C. Miller of Courtesan Consulting. Fix handling of base64 encoded client authentication data for SMTP AUTH. Patch from Elena Slobodnik of life medien GmbH. Set the OpenLDAP option LDAP_OPT_RESTART so the client libraries restart interrupted system calls. Problem noted by Luiz Henrique Duma of BSIOne. Prevent a segmentation fault if a program passed a NULL envp using execve(). Document a problem with the counting of queue runners that may cause delays if MaxQueueChildren is set too low. Problem noted by Ian Duplisse of Cable Television Laboratories, Inc. If discarding a message based on a recipient, don't try to look up the recipient in the mailbox database if F=w is set. This allows users to discard bogus recipients when dealing with spammers without tipping them off. Problem noted by Neil Rickert of Northern Illinois University. If applying a header check to a header with unstructured data, e.g., Subject:, then do not run syntax checks that are supposed for addresses on the header content. Count messages rejected/discarded via the check_data ruleset. Portability: Fix compilation on systems which do not allow simple copying of the variable argument va_list. Based on fix from Scott Walters. Fix NSD map open bug. From Michel Bourget of SGI. Add some additional IRIX shells to the default shell list. From Michel Bourget of SGI. Fix compilation issues on Mac OS X 10.2 (Darwin 6.0). NETISO support has been dropped. CONFIG: There was a seemingly minor change in 8.12.4 with respect to handling entries of IP nets/addresses with RHS REJECT. These would be rejected in check_rcpt instead of only being activated in check_relay. This change has been made to avoid potential bogus temporary rejection of relay attempts "450 4.7.1 Relaying temporarily denied. Cannot resolve PTR record for ..." if delay_checks is enabled. However, this modification causes a change of behavior if an IP net/address is listed in the access map with REJECT and a host/domain name is listed with OK or RELAY, hence it has been reversed such that the behavior of 8.12.3 is restored. The original change was made on request of Neil Rickert of Northern Illinois University, the side effect has been found by Stefaan Van Hoornick. CONFIG: Make sure delay_checks works even for sender addresses using the local hostname ($j) or domains in class {P}. Based on patch from Neil Rickert of Northern Illinois University. CONFIG: Fix temporary error handling for LDAP Routing lookups. Fix from Andrzej Filip. CONTRIB: New version of etrn.pl script and external man page (etrn.0) from John Beck of Sun Microsystems. LIBMILTER: Protect a free(3) operation from being called with a NULL pointer. Problem noted by Andrey J. Melnikoff. LIBMILTER: Protect against more interrupted select() calls. Based on patch from Jose Marcio Martins da Cruz of Ecole Nationale Superieure des Mines de Paris. New Files: contrib/etrn.0 8.12.5/8.12.5 2002/06/25 SECURITY: The DNS map can cause a buffer overflow if the user specifies a dns map using TXT records in the configuration file and a rogue DNS server is queried. None of the sendmail supplied configuration files use this option hence they are not vulnerable. Problem noted independently by Joost Pol of PINE Internet and Anton Rang of Sun Microsystems. Unprintable characters in responses from DNS servers for the DNS map type are changed to 'X' to avoid potential problems with rogue DNS servers. Require a suboption when setting the Milter option. Problem noted by Bryan Costales. Do not silently overwrite command line settings for DirectSubmissionModifiers. Problem noted by Bryan Costales. Prevent a segmentation fault when clearing the event list by turning off alarms before checking if event list is empty. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. Close a potential race condition in transitioning a memory buffered file onto disk. From Janani Devarajan of Sun Microsystems. Portability: Include paths.h on Linux systems running glibc 2.0 or later to get the definition for _PATH_SENDMAIL, used by rmail and vacation. Problem noted by Kevin A. McGrail of Peregrine Hardware. NOTE: Linux appears to have broken flock() again. Unless the bug is fixed before sendmail 8.13 is shipped, 8.13 will change the default locking method to fcntl() for Linux kernel 2.4 and later. You may want to do this in 8.12 by compiling with -DHASFLOCK=0. Be sure to update other sendmail related programs to match locking techniques. 8.12.4/8.12.4 2002/06/03 SECURITY: Inherent limitations in the UNIX file locking model can leave systems open to a local denial of service attack. Be sure to read the "FILE AND MAP PERMISSIONS" section of the top level README for more information. Problem noted by lumpy. Use TempFileMode (defaults to 0600) for the permissions of PidFile instead of 0644. Change the default file permissions for new alias database files from 0644 to 0640. This can be overridden at compile time by setting the DBMMODE macro. Fix a potential core dump problem if the environment variable NAME is set. Problem noted by Beth A. Chaney of Purdue University. Expand macros before passing them to libmilter. Problem noted by Jose Marcio Martins da Cruz of Ecole Nationale Superieure des Mines de Paris. Rewind the df (message body) before truncating it when libmilter replaces the body of a message. Problem noted by Gisle Aas of Active State. Change SMTP reply code for AUTH failure from 500 to 535 and the initial zero-length response to "=" per RFC 2554. Patches from Kenneth Murchison of Oceana Matrix Ltd. Do not try to fix broken message/rfc822 MIME attachments by inserting a MIME-Version: header when MaxMimeHeaderLength is set and no 8 to 7 bit conversion is needed. Based on patch from Rehor Petr of ICZ (Czech Republic). Do not log "did not issue MAIL/EXPN/VRFY/ETRN" if the connection is rejected anyway. Noted by Chris Loelke. Mention the submission mail queue in the mailq man page. Requested by Bill Fenner of AT&T. Set ${msg_size} macro when reading a message from the command line or the queue. Detach from shared memory before dropping privileges back to user who started sendmail. If AllowBogusHELO is set to false (default) then also complain if the argument to HELO/EHLO contains white space. Suggested by Seva Gluschenko of Cronyx Plus. Allow symbolicly linked forward files in writable directory paths if both ForwardFileInUnsafeDirPath and LinkedForwardFileInWritableDir DontBlameSendmail options are set. Problem noted by Werner Spirk of Leibniz-Rechenzentrum Munich. Portability: Operating systems that lack the ftruncate() call will not be able to use Milter's body replacement feature. This only affects Altos, Maxion, and MPE/iX. Digital UNIX 5.0 has changed flock() semantics to be non-compliant. Problem noted by Martin Mokrejs of Charles University in Prague. The sparc64 port of FreeBSD 5.0 now supports shared memory. CONFIG: FEATURE(`preserve_luser_host') needs the macro map. Problem noted by Andrzej Filip. CONFIG: Using 'local:' as a mailertable value with FEATURE(`preserve_luser_host') and LUSER_RELAY caused mail to be misaddressed. Problem noted by Andrzej Filip. CONFIG: Provide a workaround for DNS based rejection lists that fail for AAAA queries. Problem noted by Chris Boyd. CONFIG: Accept the machine's hostname as resolvable when checking the sender address. This allows locally submitted mail to be accepted if the machine isn't connected to a nameserver and doesn't have an /etc/hosts entry for itself. Problem noted by Robert Watson of the TrustedBSD Project. CONFIG: Use deferred expansion for checking the ${deliveryMode} macro in case the SMTP VERB command is used. Problem noted by Bryan Costales. CONFIG: Avoid a duplicate '@domain' virtusertable lookup if no matches are found. Fix from Andrzej Filip. CONFIG: Fix wording in default dnsbl rejection message. Suggested by Lou Katz of Metron Computerware, Ltd. CONFIG: Add mailer cyrusv2 for Cyrus V2. Contributed by Kenneth Murchison of Oceana Matrix Ltd. CONTRIB: Fix wording in default dnsblaccess rejection message to match dnsbl change. DEVTOOLS: Add new option for access mode of statistics file, confSTMODE, which specifies the permissions when initially installing the sendmail statistics file. LIBMILTER: Mark the listening socket as close-on-exec in case a user's filter starts other applications. LIBSM: Allow the MBDB initialize, lookup, and/or terminate functions in SmMbdbTypes to be set to NULL. MAKEMAP: Change the default file permissions for new databases from 0644 to 0640. This can be overridden at compile time by setting the DBMMODE macro. SMRSH: Fix man page bug: replace SMRSH_CMDBIN with SMRSH_CMDDIR. Problem noted by Dave Alden of Ohio State University. VACATION: When listing the vacation database (-l), don't show bogus timestamps for excluded (-x) addresses. Problem noted by Bryan Costales. New Files: cf/mailer/cyrusv2.m4 8.12.3/8.12.3 2002/04/05 NOTICE: In general queue files should not be moved if queue groups are used. In previous versions this could cause mail not to be delivered if a queue file is repeatedly moved by an external process whenever sendmail moved it back into the right place. Some precautions have been taken to avoid moving queue files if not really necessary. sendmail may use links to refer to queue files and it may store the path of data files in queue files. Hence queue files should not be moved unless those internals are understood and the integrity of the files is not compromised. Problem noted by Anne Bennett of Concordia University. If an error mail is created, and the mail is split across different queue directories, and SuperSafe is off, then write the mail to disk before splitting it, otherwise an assertion is triggered. Problem tracked down by Henning Schmiedehausen of INTERMETA. Fix possible race condition that could cause sendmail to forget running queues. Problem noted by Jeff Wasilko of smoe.org. Handle bogus qf files better without triggering assertions. Problem noted by Guy Feltin. Protect against interrupted select() call when enforcing Milter read and write timeouts. Patch from Gurusamy Sarathy of ActiveState. Matching queue IDs with -qI should be case sensitive. Problem noted by Anne Bennett of Concordia University. If privileges have been dropped, don't try to change group ID to the RunAsUser group. Problem noted by Neil Rickert of Northern Illinois University. Fix SafeFileEnvironment path munging when the specified path contains a trailing slash. Based on patch from Dirk Meyer of Dinoex. Do not limit sendmail command line length to SM_ARG_MAX (usually 4096). Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. Clear full name of sender for each new envelope to avoid bogus data if several mails are sent in one session and some of them do not have a From: header. Problem noted by Bas Haakman. Change timeout check such that cached information about a connection will be immediately invalid if ConnectionCacheTimeout is zero. Based on patch from David Burns of Portland State University. Properly count message size for mailstats during mail collection. Problem noted by Werner Wiethege. Log complete response from LMTP delivery agent on failure. Based on patch from Motonori Nakamura of Kyoto University. Provide workaround for getopt() implementations that do not catch missing arguments. Fix the message size calculation if the message body is replaced by a milter filter and buffered file I/O is being used. Problem noted by Sergey Akhapkin of Dr.Web. Do not honor SIGUSR1 requests if running with extra privileges. Problem noted by Werner Wiethege. Prevent a file descriptor leak on mail delivery if the initial connect fails and DialDelay is set. Patch from Servaas Vandenberghe of Katholieke Universiteit Leuven. Properly deal with a case where sendmail is called by root running a set-user-ID (non-root) program. Problem noted by Jon Lusky of ISS Atlanta. Avoid leaving behind stray transcript (xf) files if multiple queue directories are used and mail is sent to a mailing list which has an owner- alias. Problem noted by Anne Bennett of Concordia University. Fix class map parsing code if optional key is specified. Problem found by Mario Nigrovic. The SMTP daemon no longer tries to fix up improperly dot-stuffed incoming messages. A leading dot is always stripped by the SMTP receiver regardless of whether or not it is followed by another dot. Problem noted by Jordan Ritter of darkridge.com. Fix corruption when doing automatic MIME 7-bit quoted-printable or base64 encoding to 8-bit text. Problem noted by Mark Elvers. Correct the statistics gathered for total number of connections. Instead of being the exact same number as the total number of messages (T line in mailstats) it now represents the total number of TCP connections. Be more explicit about syntax errors in addresses, especially non-ASCII characters, and properly create DSNs if necessary. Problem noted by Leena Heino of the University of Tampere. Prevent small timeouts from being lost on slow machines if itimers are used. Problem noted by Suresh Ramasubramanian. Prevent a race condition on child cleanup for delivery to files. Problem noted by Fletcher Mattox of the University of Texas. Change the SMTP error code for temporary map failures from 421 to 451. Do not assume that realloc(NULL, size) works on all OS (this was only done in one place: queue group creation). Based on patch by Bryan Costales. Initialize Timeout.iconnect in the code to prevent randomly short timeouts. Problem noted by Bradley Watts of AT&T Canada. Do not try to send a second SMTP QUIT command if the remote responds to a MAIL command with a 421 reply or on I/O errors. By doing so, the host was marked as having a temporary problem and other mail destined for that host was queued for the next queue run. Problem noted by Fletcher Mattox of the University of Texas, Allan E Johannesen of Worcester Polytechnic Institute, Larry Greenfield of CMU, and Neil Rickert of Northern Illinois University. Ignore error replies from the SMTP QUIT command (including servers which drop the connection instead of responding to the command). Portability: Check LDAP_API_VERSION to determine if ldap_memfree() is available. Define HPUX10 when building on HP-UX 10.X. That platform now gets the proper _PATH_SENDMAIL and SMRSH_CMDDIR settings. Patch from Elias Halldor Agustsson of Skyrr. Fix dependency building on Mac OS X and Darwin. Problem noted by John Beck. Preliminary support for the sparc64 port of FreeBSD 5.0. Add /sbin/sh as an acceptable user shell on HP-UX. From Rajesh Somasund of Hewlett-Packard. CONFIG: Add FEATURE(`authinfo') to allow a separate database for SMTP AUTH information. This feature was actually added in 8.12.0 but a release note was not included. CONFIG: Do not bounce mail if FEATURE(`ldap_routing')'s bounce parameter is set and the LDAP lookup returns a temporary error. CONFIG: Honor FEATURE(`relay_hosts_only') when using FEATURE(`relay_mail_from', `domain'). Problem noted by Krzysztof Oledzki. CONFIG: FEATURE(`msp') now disables any type of alias initialization as aliases are not needed for the MSP. CONFIG: Allow users to override RELAY_MAILER_ARGS when FEATURE(`msp') is in use. Patch from Andrzej Filip. CONFIG: FEATURE(`msp') uses `[localhost]' as default instead of `localhost' and turns on MX lookups for the SMTP mailers. This will only have an effect if a parameter is specified, i.e., an MX lookup will be performed on the hostname unless it is embedded in square brackets. Problem noted by Theo Van Dinter of Collective Technologies. CONFIG: Set confTIME_ZONE to USE_TZ in submit.mc (TimeZoneSpec= in submit.cf) to use $TZ for time stamps. This is a compromise to allow for the proper time zone on systems where the default results in misleading time stamps. That is, syslog time stamps and Date headers on submitted mail will use the user's $TZ setting. Problem noted by Mark Roth of the University of Illinois at Urbana-Champaign, solution proposed by Neil Rickert of Northern Illinois University. CONFIG: Mac OS X (Darwin) ships with mail.local as non-set-user-ID binary. Adjust local mailer flags accordingly. Problem noted by John Beck. CONTRIB: Add a warning to qtool.pl to not move queue files around if queue groups are used. CONTRIB: buildvirtuser: Add -f option to force rebuild. CONTRIB: smcontrol.pl: Add -f option to specify control socket. CONTRIB: smcontrol.pl: Add support for 'memdump' command. Suggested by Bryan Costales. DEVTOOLS: Add dependency generation for test programs. LIBMILTER: Remove conversion of port number for the socket structure that is passed to xxfi_connect(). Notice: this fix requires that sendmail and libmilter both have this change; mixing versions may lead to wrong port values depending on the endianness of the involved systems. Problem noted by Gisle Aas of ActiveState. LIBMILTER: If smfi_setreply() sets a custom reply code of '4XX' but SMFI_REJECT is returned, ignore the custom reply. Do the same if '5XX' is used and SMFI_TEMPFAIL is returned. LIBMILTER: Install include files in ${INCLUDEDIR}/libmilter/ as required by mfapi.h. Problem noted by Jose Marcio Martins da Cruz of Ecole Nationale Superieure des Mines de Paris. LIBSM: Add SM_CONF_LDAP_MEMFREE as a configuration define. Set this to 1 if your LDAP client libraries include ldap_memfree(). LIBSMDB: Avoid a file creation race condition for Berkeley DB 1.X and NDBM on systems with the O_EXLOCK open(2) flag. SMRSH: Fix compilation problem on some operating systems. Problem noted by Christian Krackowizer of schuler technodat GmbH. VACATION: Allow root to operate on user vacation databases. Based on patch from Greg Couch of the University of California, San Francisco. VACATION: Don't ignore -C option. Based on patch by Bryan Costales. VACATION: Clarify option usage in the man page. Problem noted by Joe Barbish. New Files: libmilter/docs/smfi_setbacklog.html 8.12.2/8.12.2 2002/01/13 Don't complain too much if stdin, stdout, or stderr are missing at startup, only log an error message. Fix potential problem if an unknown operation mode (character following -b) has been specified. Prevent purgestat from looping even if someone changes the permissions or owner of hoststatus files. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Properly record dropped connections in persistent host status. Problem noted by Ulrich Windl of the Universitat Regensburg. Remove newlines from recipients read via sendmail -t to prevent SMTP protocol errors when sending the RCPT command. Problem noted by William D. Colburn of the New Mexico Institute of Mining and Technology. Only log milter body replacements once instead of for each body chunk sent by a filter. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. In 8.12.0 and 8.12.1, the headers were mistakenly not included in the message size calculation. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Since 8.12 no longer forks at the SMTP MAIL command, the daemon needs to collect children status to avoid zombie processes. Problem noted by Chris Adams of HiWAAY Informations Services. Shut down "nullserver" and ETRN-only connections after 25 bad commands are issued. This makes it consistent with normal SMTP connections. Avoid duplicate logging of milter rejections. Problem noted by William D. Colburn of the New Mexico Institute of Mining and Technology. Error and delay DSNs were being sent to postmaster instead of the message sender if the sender had used a deprecated RFC822 source route. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Fix FallbackMXhost behavior for temporary errors during address parsing. Problem noted by Jorg Bielak from Coastal Web Online. For systems on which stat(2) does not return a value for st_blksize that is the "optimal blocksize for I/O" three new compile time flags are available: SM_IO_MAX_BUF_FILE, SM_IO_MIN_BUF, and SM_IO_MAX_BUF, which define an upper limit for regular files, and a lower and upper limit for other file types, respectively. Fix a potential deadlock if two events are supposed to occur at exactly the same time. Problem noted by Valdis Kletnieks of Virginia Tech. Perform envelope splitting for aliases listed directly in the alias file, not just for include/.forward files. Problem noted by John Beck of Sun Microsystems. Allow selection of queue group for mailq using -qGgroup. Based on patch by John Beck of Sun Microsystems. Make sure cached LDAP connections used my multiple maps in the same process are closed. Patch from Taso N. Devetzis. If running as root, allow reading of class files in protected directories. Patch from Alexander Talos of the University of Vienna. Correct a few LDAP related memory leaks. Patch from David Powell of Sun Microsystems. Allow specification of an empty realm via the authinfo ruleset. This is necessary to interoperate as an SMTP AUTH client with servers that do not support realms when using CRAM-MD5. Problem noted by Bjoern Voigt of TU Berlin. Avoid a potential information leak if AUTH PLAIN is used and the server gets stuck while processing that command. Problem noted by Chris Adams from HiWAAY Informations Services. In addition to printing errors when parsing recipients during command line invocations log them to make it simpler to understand possible DSNs to postmaster. Do not use FallbackMXhost on mailers which have the F=0 flag set. Allow local mailers (F=l) to specify a host for TCP connections instead of forcing localhost. Obey ${DESTDIR} for installation of the client mail queue and submit.cf. Patch from Peter 'Luna' Runestig. Re-enable support for -M option which was broken in 8.12.1. Problem noted by Neil Rickert of Northern Illinois University. If a remote server violates the SMTP standard by unexpectedly dropping the connection during an SMTP transaction, stop sending commands. This prevents bogus "Bad file number" recipient status. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. Do not use a size estimate of 100 for postmaster bounces, it's almost always too small; do not guess the size at all. New VENDOR_DEC for Compaq/DEC. Requested by James Seagraves of Compaq Computer Corp. Fix DaemonPortOptions IPv6 address parsing such that ::1 works properly. Problem noted by Valdis Kletnieks of Virginia Tech. Portability: Fix IPv6 network interface probing on HP-UX 11.X. Based on patch provided by HP. Mac OS X (aka Darwin) has a broken setreuid() call, but a working seteuid() call. From Daniel J. Luke. Use proper type for a 32-bit integer on SINIX. From Ganu Sachin of Siemens. Set SM_IO_MIN_BUF (4K) and SM_IO_MAX_BUF (8K) for HP-UX. Reduce optimization from +O3 to +O2 on HP-UX 11. This fixes a problem that caused additional bogus characters to be written to the qf file. Problem noted by Tapani Tarvainen. Set LDA_USE_LOCKF by default for UnixWare. Problem noted by Boyd Lynn Gerber. Add support for HP MPE/iX. See sendmail/README for port information. From Mark Bixby of Hewlett-Packard. New portability defines HASNICE, HASRRESVPORT, USE_ENVIRON, USE_DOUBLE_FORK, and NEEDLINK. See sendmail/README for more information. From Mark Bixby of Hewlett-Packard. If an OS doesn't have a method of finding free disk space (SFS_NONE), lie and say there is plenty of space. From Mark Bixby of Hewlett-Packard. Add support for AIX 5.1. From Valdis Kletnieks of Virginia Tech. Fix man page location for NeXTSTEP. From Hisanori Gogota of the NTT/InterCommunication Center. Do not assume that strerror() always returns a string. Problem noted by John Beck of Sun Microsystems. CONFIG: Add OSTYPE(freebsd5) for FreeBSD 5.X, which has removed UUCP from the base operating system. From Mark Murray of FreeBSD Services, Ltd. CONFIG: Add OSTYPE(mpeix) and a generic .mc file for HP MPE/iX systems. From Mark Bixby of Hewlett-Packard. CONFIG: Add support for selecting a queue group for all mailers. Based on proposal by Stephen L. Ulmer of the University of Florida. CONFIG: Fix error reporting for compat_check.m4. Problem noted by Altin Waldmann. CONFIG: Do not override user selections for confRUN_AS_USER and confTRUSTED_USER in FEATURE(msp). From Mark Bixby of Hewlett-Packard. LIBMILTER: Fix bug that prevented the removal of a socket after libmilter terminated. Problem reported by Andrey V. Pevnev of MSFU. LIBMILTER: Fix configuration error that required libsm for linking. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. LIBMILTER: Portability fix for OpenUNIX. Patch from Larry Rosenman. LIBMILTER: Fix a theoretical memory leak and a possible attempt to free memory twice. LIBSM: Fix a potential segmentation violation in the I/O library. Problem found and analyzed by John Beck and Tim Haley of Sun Microsystems. LIBSM: Do not clear the LDAP configuration information when terminating the mailbox database connection in the LDAP example code. Problem noted by Nikos Voutsinas of the University of Athens. New Files: cf/cf/generic-mpeix.cf cf/cf/generic-mpeix.mc cf/ostype/freebsd5.m4 cf/ostype/mpeix.m4 devtools/OS/AIX.5.1 devtools/OS/MPE-iX include/sm/os/sm_os_mpeix.h libsm/mpeix.c 8.12.1/8.12.1 2001/10/01 SECURITY: Check whether dropping group privileges actually succeeded to avoid possible compromises of the mail system by supplying bogus data. Add configuration options for different set*gid() calls to reset saved gid. Problem found by Michal Zalewski. PRIVACY: Prevent information leakage when sendmail has extra privileges by disabling debugging (command line -d flag) during queue runs and disabling ETRN when sendmail -bs is used. Suggested by Michal Zalewski. Avoid memory corruption problems resulting from bogus .cf files. Problem found by Michal Zalewski. Set the ${server_addr} macro to name of mailer when doing LMTP delivery. LMTP systems may offer SMTP Authentication or STARTTLS causing sendmail to use this macro in rulesets. If debugging is turned on (-d0.10) print not just the default values for configuration file and pid file but also the selected values. Problem noted by Brad Chapman. Continue dealing with broken nameservers by ignoring SERVFAIL errors returned on T_AAAA (IPv6) lookups at delivery time if ResolverOptions=WorkAroundBrokenAAAA is set. Previously this only applied to hostname canonification. Problem noted by Bill Fenner of AT&T Research. Ignore comments in NIS host records when trying to find the canonical name for a host. When sendmail has extra privileges, limit mail submission command line flags (i.e., -G, -h, -F, etc.) to mail submission operating modes (i.e., -bm, -bs, -bv, etc.). Idea based on suggestion from Michal Zalewski. Portability: AIX: Use `oslevel` if available to determine OS version. `uname` does not given complete information. Problem noted by Keith Neufeld of the Cessna Aircraft Company. OpenUNIX: Use lockf() for LDA delivery (affects mail.local). Problem noticed by Boyd Lynn Gerber of ZENEX. Avoid compiler warnings by not using pointers to pass integers. Problem noted by Todd C. Miller of Courtesan Consulting. CONFIG: Add restrictqrun to PrivacyOptions for the MSP to minimize problems with potential misconfigurations. CONFIG: Fix comment showing default value of MaxHopCount. Problem noted by Greg Robinson of the Defence Science and Technology Organisation of Australia. CONFIG: dnsbl: If an argument specifies an error message in case of temporary lookup failures for DNS based blocklists then use it. LIBMILTER: Install mfdef.h, required by mfapi.h. Problem noted by Richard A. Nelson of Debian. LIBMILTER: Add __P definition for OS that lack it. Problem noted by Chris Adams from HiWAAY Informations Services. LIBSMDB: Fix a lock race condition that affects makemap, praliases, and vacation. MAKEMAP: Avoid going beyond the end of an input line if it does not contain a value for a key. Based on patch from Mark Bixby from Hewlett-Packard. New Files: test/Build test/Makefile test/Makefile.m4 test/README test/t_dropgid.c test/t_setgid.c Deleted Files: include/sm/stdio.h include/sm/sysstat.h 8.12.0/8.12.0 2001/09/08 *NOTICE*: The default installation of sendmail does not use set-user-ID root anymore. You need to create a new user and a new group before installing sendmail (both called smmsp by default). The installation process tries to install /etc/mail/submit.cf and creates /var/spool/clientmqueue by default. Please see sendmail/SECURITY for details. SECURITY: Check for group and world writable forward and :include: files. These checks can be turned off if absolutely necessary using the DontBlameSendmail option and the new flags: GroupWritableForwardFile WorldWritableForwardFile GroupWritableIncludeFile WorldWritableIncludeFile Problem noted by Slawek Zak of Politechnika Warszawska, SECURITY: Drop privileges when using address test mode. Suggested by Michal Zalewski of the "Internet for Schools" project (IdS). Fixed problem of a global variable being used for a timeout jump point where the variable could become overused for more than one timeout concurrently. This erroneous behavior resulted in a corrupted stack causing a core dump. The timeout is now handled via libsm. Problem noted by Michael Shapiro, John Beck, and Carl Smith of Sun Microsystems. If sendmail is set-group-ID then that group ID is used for permission checks (group ID of RunAsUser). This allows use of a set-group-ID sendmail binary for initial message submission and no set-user-ID root sendmail is needed. For details see sendmail/SECURITY. Log a warning if a non-trusted user changes the syslog label. Based on notice from Bryan Costales of SL3D, Inc. If sendmail is called for initial delivery, try to use submit.cf with a fallback of sendmail.cf as configuration file. See sendmail/SECURITY. New configuration file option UseMSP to allow group writable queue files if the group is the same as that of a set-group-ID sendmail binary. See sendmail/SECURITY. The .cf file is chosen based on the operation mode. For -bm (default), -bs, and -t it is submit.cf if it exists for all others it is sendmail.cf (to be backward compatible). This selection can be changed by the new option -Ac or -Am (alternative .cf file: client or mta). See sendmail/SECURITY. The SMTP server no longer forks on each MAIL command. The ONEX command has been removed. Implement SMTP PIPELINING per RFC 2920. It can be turned off at compile time or per host (ruleset). New option MailboxDatabase specifies the type of mailbox database used to look up local mail recipients; the default value is "pw", which means to use getpwnam(). New mailbox database types can be added by adding custom code to libsm/mbdb.c. Queue file names are now 15 characters long, rather than 14 characters long, to accommodate envelope splitting. File systems with a 14 character file name length limit are no longer supported. Recipient list used for delivery now gets internally ordered by hostsignature (character string version of MX RR). This orders recipients for the same MX RR's together meaning smaller portions of the list need to be scanned (instead of the whole list) each delivery() pass to determine piggybacking. The significance of the change is better the larger the recipient list. Hostsignature is now created during recipient list creation rather than just before delivery. Enhancements for more opportunistic piggybacking. Previous piggybacking (called coincidental) extended to coattail piggybacking. Rather than complete MX RR matching (coincidental) piggybacking is done if just the lowest value preference matches (coattail). If sendmail receives a temporary error on a RCPT TO: command, it will try other MX hosts if available. DefaultAuthInfo can contain a list of mechanisms to be used for outgoing (client-side) SMTP Authentication. New modifier 'A' for DaemonPortOptions/ClientPortOptions to disable AUTH (overrides 'a' modifier in DaemonPortOptions). Based on patch from Lyndon Nerenberg of Messaging Direct. Enable AUTH mechanism EXTERNAL if STARTTLS is used. A new ruleset authinfo can be used to return client side authentication information for AUTH instead of DefaultAuthInfo. Therefore the DefaultAuthInfo option is deprecated and will be removed in future versions. Accept any SMTP continuation code 3xy for AUTH even though RFC 2554 requires 334. Mercury 1.48 is a known offender. Add new option AuthMaxBits to limit the overall encryption strength for the security layer in SMTP AUTH (SASL). See doc/op/op.me for details. Introduce new STARTTLS related macros {cn_issuer}, {cn_subject}, {cert_md5} which hold the CN (common name) of the CA that signed the presented certificate, the CN and the MD5 hash of the presented certificate, respectively. New ruleset try_tls to decide whether to try (as client) STARTTLS. New ruleset srv_features to enable/disable certain features in the server per connection. See doc/op/op.me for details. New ruleset tls_rcpt to decide whether to send e-mail to a particular recipient; useful to decide whether a connection is secure enough on a per recipient basis. New option TLSSrvOptions to modify some aspects of the server for STARTTLS. If no certificate has been requested, the macro {verify} has the value "NOT". New M=S modifier for ClientPortOptions/DaemonPortOptions to turn off using/offering STARTTLS when delivering/receiving e-mail. Macro expand filenames/directories for certs and keys in the .cf file. Proposed by Neil Rickert of Northern Illinois University. Generate an ephemeral RSA key for a STARTTLS connection only if really required. This change results in a noticeable performance gains on most machines. Moreover, if shared memory is in use, reuse the key several times. Add queue groups which can be used to group queue directories with the same behavior together. See doc/op/op.me for details. If the new option FastSplit (defaults to one) has a value greater than zero, it suppresses the MX lookups on addresses when they are initially sorted which may result in faster envelope splitting. If the mail is submitted directly from the command line, then the value also limits the number of processes to deliver the envelopes; if more envelopes are created they are only queued up and must be taken care of by a queue run. The check for 'enough disk space' now pays attention to which file system each queue directory resides in. All queue runners can be cleanly terminated via SIGTERM to parent. New option QueueFileMode for the default permissions of queue files. Add parallel queue runner code. Allows multiple queue runners per work group (one or more queues in a multi-queue environment collected together) to process the same work list at the same time. Option MaxQueueChildren added to limit the number of concurrently active queue runner processes. New option MaxRunnersPerQueue to specify the maximum number of queue runners per queue group. Queue member selection by substring pattern matching now allows the pattern to be negated. For -qI, -qR and -qS it is permissible for -q!I, -q!R and -q!S to mean remove members of the queue that match during processing. New -qp[time] option is similar to -qtime, except that instead of periodically forking a child to process the queue, a single child is forked for each queue that sleeps between queue runs. A SIGHUP signal can be sent to restart this persistent queue runner. The SIGHUP signal now restarts a timed queue run process (i.e., a sendmail process which only runs the queue at an interval: sendmail -q15m). New option NiceQueueRun to set the priority of queue runners. Proposed by Thom O'Connor. sendmail will run the queue(s) in the background when invoked with -q unless the new -qf option or -v is used. QueueSortOrder=Random sorts the queue randomly, which is useful if several queue runners are started by hand to avoid contention. QueueSortOrder=Modification sorts the queue by the modification time of the qf file (older entries first). Support Deliver By SMTP Service Extension (RFC 2852) which allows a client to specify an amount of time within which an e-mail should be delivered. New option DeliverByMin added to set the minimum amount of time or disable the extension. Non-printable characters (ASCII: 0-31, 127) in mailbox addresses are not allowed unless escaped or quoted. Add support for a generic DNS map. Based on a patch contributed by Leif Johansson of Stockholm University, which was based on work by Assar Westerlund of Swedish Institute of Computer Science, Kista, and Johan Danielsson of Royal Institute of Technology, Stockholm, Sweden. MX records will be looked up for FallBackMXhost. To use the old behavior (no MX lookups), put the name in square brackets. Proposed by Thom O'Connor. Use shared memory to store free space of filesystems that are used for queues, if shared memory is available and if a key is set via SharedMemoryKey. This minimizes the number of system calls to check the available space. See doc/op/op.me for details. If shared memory is compiled in the option -bP can be used to print the number of entries in the queue(s). Enable generic mail filter API (milter). See libmilter/README and the usual documentation for details. Remove AutoRebuildAliases option, deprecated since 8.10. Remove '-U' (initial user submission) command line option as announced in 8.10. Remove support for non-standard SMTP command XUSR. Use an MSA instead. New macro {addr_type} which contains whether the current address is an envelope sender or recipient address. Suggested by Neil Rickert of Northern Illinois University. Two new options for host maps: -d (retransmission timeout), -r (number of retries). New option for LDAP maps: the -V allows you to specify a separator such that a lookup can return both an attribute and value separated by the given separator. Add new operators '%', '|', '&' (modulo, binary or, binary and) to map class arith. If DoubleBounceAddress expands to an empty string, ``double bounces'' (errors that occur when sending an error message) are dropped. New DontBlameSendmail options GroupReadableSASLDBFile and GroupWritableSASLDBFile to relax requirements for sasldb files. New DontBlameSendmail options GroupReadableKeyFile to relax requirements for files containing secret keys. This is necessary for the MSP if client authentification is used. Properly handle quoted filenames for class files (to allow for filenames with spaces). Honor the resolver option RES_NOALIASES when canonifying hostnames. Add macros to avoid the reuse of {if_addr} etc: {if_name_out} hostname of interface of outgoing connection. {if_addr_out} address of interface of outgoing connection. {if_family_out} family of interface of outgoing connection. The latter two are only set if the interface does not belong to the loopback net. Add macro {nrcpts} which holds the number of (validated) recipients. DialDelay option applies only to mailers with flag 'Z'. Patch from Juergen Georgi of RUS University of Stuttgart. New Timeout.lhlo,auth,starttls options to limit the time waiting for an answer to the LMTP LHLO, SMTP AUTH or STARTTLS command. New Timeout.aconnect option to limit the overall waiting time for all connections for a single delivery attempt to succeed. Limit the rate recipients in the SMTP envelope are accepted once a threshold number of recipients has been rejected (option BadRcptThrottle). From Gregory A Lundberg of the WU-FTPD Development Group. New option DelayLA to delay connections if the load averages exceeds the specified value. The default of 0 does not change the previous behavior. A value greater than 0 will cause sendmail to sleep for one second on most SMTP commands and before accepting connections if that load average is exceeded. Use a dynamic (instead of fixed-size) buffer for the list of recipients that are sent during a connection to a mailer. This also introduces a new mailer field 'r' which defines the maximum number of recipients (defaults to 100). Based on patch by Motonori Nakamura of Kyoto University. Add new F=1 mailer flag to disable sending of null characters ('\0'). Add new F=2 mailer flag to disable use of ESMTP, using SMTP instead. The deprecated [TCP] builtin mailer pathname (P=) is gone. Use [IPC] instead. IPC is no longer available as first mailer argument (A=) for [IPC] builtin mailer pathnames. Use TCP instead. PH map code updated to use the new libphclient API instead of the old libqiapi library. Contributed by Mark Roth of the University of Illinois at Urbana-Champaign. New option DirectSubmissionModifiers to define {daemon_flags} for direct (command line) submissions. New M=O modifier for DaemonPortOptions to ignore the socket in case of failures. Based on patch by Jun-ichiro itojun Hagino of the KAME Project. Add Disposition-Notification-To: (RFC 2298) to the list of headers whose content is rewritten similar to Reply-To:. Proposed by Andrzej Filip. Use STARTTLS/AUTH=server/client for logging incoming/outgoing STARTTLS/AUTH connections; log incoming connections at level 9 or higher. Use AUTH/STARTTLS instead of SASL/TLS for SMTP AUTH/STARTTLS related logfile entries. Convert unprintable characters (and backslash) into octal or C format before logging. Log recipients if no message is transferred but QUIT/RSET is given (at LogLevel 9/10 or higher). Log discarded recipients at LogLevel 10 or higher. Do not log "did not issue MAIL/EXPN/VRFY/ETRN" for connections in which most commands are rejected due to check_relay or TCP Wrappers if the host tries one of those commands anyway. Change logging format for cloned envelopes to be similar to that for DSNs ("old id: new id: clone"). Suggested by Ulrich Windl of the Universitat Regensburg. Added libsm, a C library of general purpose abstractions including assertions, tracing and debugging with named debug categories, exception handling, malloc debugging, resource pools, portability abstractions, and an extensible buffered I/O package. It will at some point replace libsmutil. See libsm/index.html for details. Fixed most memory leaks in sendmail which were previously taken care of by fork() and exit(). Use new sm_io*() functions in place of stdio calls. Allows for more consistent portablity amongst different platforms new and old (from new libsm). Common I/O pkg means just one buffering method needed instead of two ('bf_portable' and 'bf_torek' now just 'bf'). Sfio no longer needed as SASL/TLS code uses sm_io*() API's. New possible value 'interactive' for SuperSafe which can be used together with DeliveryMode=interactive is to avoid some disk synchronizations calls. Add per-recipient status information to mailq -v output. T_ANY queries are no longer used by sendmail. When compiling with "gcc -O -Wall" specify "-DSM_OMIT_BOGUS_WARNINGS" too (see include/sm/cdefs.h for more info). sendmail -d now has general support for named debug categories. See libsm/debug.html and section 3.4 of doc/op/op.me for details. Eliminate the "postmaster warning" DSNs on address parsing errors such as unbalanced angle brackets or parentheses. The DSNs generated by this condition were illegal (not RFC conform). Problem noted by Ulrich Windl of the Universitaet Regensburg. Do not issue a DSN if the ruleset localaddr resolves to the $#error mailer and the recipient has hence been rejected during the SMTP dialogue. Problem reported by Larry Greenfield of CMU. Deal with a case of multiple deliveries on misconfigured systems that do not have postmaster defined. If an email was sent from an address to which a DSN cannot be returned and in which at least one recipient address is non-deliverable, then that email had been delivered in each queue run. Problem reported by Matteo HCE Valsasna of Universita degli Studi dell'Insubria. The compilation options SMTP, DAEMON, and QUEUE have been removed, i.e., the corresponding code is always compiled in now. Log the command line in daemon/queue-run mode at LogLevel 10 and higher. Suggested by Robert Harker of Harker Systems. New ResolverOptions setting: WorkAroundBrokenAAAA. When attempting to canonify a hostname, some broken nameservers will return SERVFAIL (a temporary failure) on T_AAAA (IPv6) lookups. If you want to excuse this behavior, use this new flag. Suggested by Chris Foote of SE Network Access and Mark Roth of the University of Illinois at Urbana-Champaign. Free the memory allocated by getipnodeby{addr,name}(). Problem noted by Joy Latten of IBM. ConnectionRateThrottle limits the number of connections per second to each daemon individually, not the overall number of connections. Specifying only "ldap:" as an AliasFile specification will force sendmail to use a default alias schema as outlined in the ``USING LDAP FOR ALIASES, MAPS, and CLASSES'' section of cf/README. Add a new syntax for the 'F' (file class) sendmail.cf command. If the first character after the class name is not a '/' or a '|' and it contains an '@' (e.g., F{X}key@class:spec), the rest of the line will be parsed as a map lookup. This allows classes to be filled via a map lookup. See op.me for more syntax information. Specifically, this can be used for commands such as VIRTUSER_DOMAIN_FILE() to read the list of domains via LDAP (see the ``USING LDAP FOR ALIASES, MAPS, and CLASSES'' section of cf/README for an example). The new macro ${sendmailMTACluster} determines the LDAP cluster for the default schema used in the above two items. Unless DontBlameSendmail=RunProgramInUnsafeDirPath is set, log a warning if a program being run from a mailer or file class (e.g., F|/path/to/prog) is in an unsafe directory path. Unless DontBlameSendmail=RunWritableProgram is set, log a warning if a program being run from a mailer or file class (e.g., F|/path/to/prog) is group or world writable. Loopback interfaces (e.g., "lo0") are now probed for class {w} hostnames. Setting DontProbeInterfaces to "loopback" (without quotes) will disable this and return to the pre-8.12 behavior of only probing non-loopback interfaces. Suggested by Bryan Stansell of GNAC. In accordance with RFC 2821 section 4.1.4, accept multiple HELO/EHLO commands. Multiple ClientPortOptions settings are now allowed, one for each possible protocol family which may be used for outgoing connections. Restrictions placed on one family only affect outgoing connections on that particular family. Because of this change, the ${client_flags} macro is not set until the connection is established. Based on patch from Motonori Nakamura of Kyoto University. PrivacyOptions=restrictexpand instructs sendmail to drop privileges when the -bv option is given by users who are neither root nor the TrustedUser so users can not read private aliases, forwards, or :include: files. It also will override the -v (verbose) command line option. If the M=b modifier is set in DaemonPortOptions and the interface address can't be used for the outgoing connection, fall back to the settings in ClientPortOptions (if set). Problem noted by John Beck of Sun Microsystems. New named config file rule check_data for DATA command (input: number of recipients). Based on patch from Mark Roth of the University of Illinois at Urbana-Champaign. Add support for ETRN queue selection per RFC 1985. The queue group can be specified using the '#' option character. For example, 'ETRN #queuegroup'. If an LDAP server times out or becomes unavailable, close the current connection and reopen to get to one of the fallback servers. Patch from Paul Hilchey of the University of British Columbia. Make default error number on $#error messages 550 instead of 501 because 501 is not allowed on all commands. The .cf file option UnsafeGroupWrites is deprecated, it should be replaced with the settings GroupWritableForwardFileSafe and GroupWritableIncludeFileSafe in DontBlameSendmail if required. The deprecated ldapx map class has been removed. Use the ldap map class instead. Any IPv6 addresses used in configuration should be prefixed by the "IPv6:" tag to identify the address properly. For example, if you want to add the IPv6 address [2002:c0a8:51d2::23f4] to class {w}, you would need to add [IPv6:2002:c0a8:51d2::23f4]. Change the $&{opMode} macro if the operation mode changes while the MTA is running. For example, during a queue run. Add "use_inet6" as a new ResolverOptions flag to control the RES_USE_INET6 resolver option. Based on patch from Rick Nelson of IBM. The maximum number of commands before the MTA slows down when too many "light weight" commands have been received are now configurable during compile time. The current values and their defaults are: MAXBADCOMMANDS 25 unknown commands MAXNOOPCOMMANDS 20 NOOP, VERB, ONEX, XUSR MAXHELOCOMMANDS 3 HELO, EHLO MAXVRFYCOMMANDS 6 VRFY, EXPN MAXETRNCOMMANDS 8 ETRN Setting a value to 0 disables the check. Patch from Bryan Costales of SL3D, Inc. The header syntax H?${MyMacro}?X-My-Header: now not only checks if ${MyMacro} is defined but also that it is not empty. Properly quote usernames with special characters if they are used in headers. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Be sure to include the proper Final-Recipient: DSN header in bounce messages for messages for mailing list expanded addresses which are not delivered on the initial attempt. Do not treat errors as sticky when doing delivery via LMTP after the final dot has been sent to avoid affecting future deliveries. Problem reported by Larry Greenfield of CMU. New compile time flag REQUIRES_DIR_FSYNC which turns on support for file systems that require to call fsync() for a directory if the meta-data in it has been changed. This should be set at least for ReiserFS; it is enabled by default for Linux. See sendmail/README for further information. Avoid file locking deadlock when updating the statistics file if sendmail is signaled to terminate. Problem noted by Christophe Wolfhugel of France Telecom. Set the $c macro (hop count) as it is being set instead of when the envelope is initialized. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Properly count recipients for DeliveryMode defer and queue. Fix from Peter A. Friend of EarthLink. Treat invalid hesiod lookups as permanent errors instead of temporary errors. Problem noted by Russell McOrmond of flora.ca. Portability: Remove support for AIX 2, which supports only 14 character filenames and is outdated anyway. Suggested by Valdis Kletnieks of Virginia Tech. Change several settings for Irix 6: remove confSBINDIR, i.e., use default /usr/sbin, change owner/group of man pages and user-executable to root/sys, set optimization limit to 0 (unlimited). Based on patch from Ayamura Kikuchi, M.D, and proposal from Kari Hurtta of the Finnish Meteorological Institute. Do not assume LDAP support is installed by default under Solaris 8 and later. Add support for OpenUNIX. CONFIG: Increment version number of config file to 10. CONFIG: Add an install target and a README file in cf/cf. CONFIG: Don't accept addresses of the form a@b@, a@b@c, a@[b]c, etc. CONFIG: Reject empty recipient addresses (in check_rcpt). CONFIG: The access map uses an option of -T to deal with temporary lookup failures. CONFIG: New value for access map: SKIP, which causes the default action to be taken by aborting the search for domain names or IP nets. CONFIG: check_rcpt can deal with TEMPFAIL for either recipient or relay address as long as the other part allows the email to get through. CONFIG: Entries for virtusertable can make use of a third parameter "%3" which contains "+detail" of a wildcard match, i.e., an entry like user+*@domain. This allows handling of details by using %1%3 as the RHS. Additionally, a "+" wildcard has been introduced to match only non-empty details of addresses. CONFIG: Numbers for rulesets used by MAILERs have been removed and hence there is no required order within the MAILER section anymore except for MAILER(`uucp') which must come after MAILER(`smtp') if uucp-dom and uucp-uudom are used. CONFIG: Hosts listed in the generics domain class {G} (GENERICS_DOMAIN() and GENERICS_DOMAIN_FILE()) are treated as canonical. Suggested by Per Hedeland of Ericsson. CONFIG: If FEATURE(`delay_checks') is used, make sure that a lookup in the access map which returns OK or RELAY actually terminates check_* ruleset checking. CONFIG: New tag TLS_Rcpt: for access map to be used by ruleset tls_rcpt, see cf/README for details. CONFIG: Change format of Received: header line which reveals whether STARTTLS has been used to "(version=${tls_version} cipher=${cipher} bits=${cipher_bits} verify=${verify})". CONFIG: Use "Spam:" as tag for lookups for FEATURE(`delay_checks') options friends/haters instead of "To:" and enable specification of whole domains instead of just users. Notice: this change is not backward compatible. Suggested by Chris Adams from HiWAAY Informations Services. CONFIG: Allow for local extensions for most new rulesets, see cf/README for details. CONFIG: New FEATURE(`lookupdotdomain') to lookup also .domain in the access map. Proposed by Randall Winchester of the University of Maryland. CONFIG: New FEATURE(`local_no_masquerade') to avoid masquerading for the local mailer. Proposed by Ingo Brueckl of Wupper Online. CONFIG: confRELAY_MSG/confREJECT_MSG can override the default messages for an unauthorized relaying attempt/for access map entries with RHS REJECT, respectively. CONFIG: FEATURE(`always_add_domain') takes an optional argument to specify another domain to be added instead of the local one. Suggested by Richard H. Gumpertz of Computer Problem Solving. CONFIG: confAUTH_OPTIONS allows setting of Cyrus-SASL specific options, see doc/op/op.me for details. CONFIG: confAUTH_MAX_BITS sets the maximum encryption strength for the security layer in SMTP AUTH (SASL). CONFIG: If Local_localaddr resolves to $#ok, localaddr is terminated immediately. CONFIG: FEATURE(`enhdnsbl') is an enhanced version of dnsbl which allows checking of the return values of the DNS lookups. See cf/README for details. CONFIG: FEATURE(`dnsbl') allows now to specify the behavior for temporary lookup failures. CONFIG: New option confDELIVER_BY_MIN to specify minimum time for Deliver By (RFC 2852) or to turn off the extension. CONFIG: New option confSHARED_MEMORY_KEY to set the key for shared memory use. CONFIG: New FEATURE(`compat_check') to look up a key consisting of the sender and the recipient address delimited by the string "<@>", e.g., sender@sdomain<@>recipient@rdomain, in the access map. Based on code contributed by Mathias Koerber of Singapore Telecommunications Ltd. CONFIG: Add EXPOSED_USER_FILE() command to allow an exposed user file. Suggested by John Beck of Sun Microsystems. CONFIG: Don't use MAILER-DAEMON for error messages delivered via LMTP. Problem reported by Larry Greenfield of CMU. CONFIG: New FEATURE(`preserve_luser_host') to preserve the name of the recipient host if LUSER_RELAY is used. CONFIG: New FEATURE(`preserve_local_plus_detail') to preserve the +detail portion of the address when passing address to local delivery agent. Disables alias and .forward +detail stripping. Only use if LDA supports this. CONFIG: Removed deprecated FEATURE(`rbl'). CONFIG: Add LDAPROUTE_EQUIVALENT() and LDAPROUTE_EQUIVALENT_FILE() which allow you to specify 'equivalent' hosts for LDAP Routing lookups. Equivalent hostnames are replaced by the masquerade domain name for lookups. See cf/README for additional details. CONFIG: Add a fourth argument to FEATURE(`ldap_routing') which instructs the rulesets on what to do if the address being looked up has +detail information. See cf/README for more information. CONFIG: When chosing a new destination via LDAP Routing, also look up the new routing address/host in the mailertable. Based on patch from Don Badrak of the United States Census Bureau. CONFIG: Do not reject the SMTP Mail from: command if LDAP Routing is in use and the bounce option is enabled. Only reject recipients as user unknown. CONFIG: Provide LDAP support for the remaining database map features. See the ``USING LDAP FOR ALIASES AND MAPS'' section of cf/README for more information. CONFIG: Add confLDAP_CLUSTER which defines the ${sendmailMTACluster} macro used for LDAP searches as described above in ``USING LDAP FOR ALIASES, MAPS, AND CLASSES''. CONFIG: confCLIENT_OPTIONS has been replaced by CLIENT_OPTIONS(), which takes the options as argument and can be used multiple times; see cf/README for details. CONFIG: Add configuration macros for new options: confBAD_RCPT_THROTTLE BadRcptThrottle confDIRECT_SUBMISSION_MODIFIERS DirectSubmissionModifiers confMAILBOX_DATABASE MailboxDatabase confMAX_QUEUE_CHILDREN MaxQueueChildren confMAX_RUNNERS_PER_QUEUE MaxRunnersPerQueue confNICE_QUEUE_RUN NiceQueueRun confQUEUE_FILE_MODE QueueFileMode confFAST_SPLIT FastSplit confTLS_SRV_OPTIONS TLSSrvOptions See above (and related documentation) for further information. CONFIG: Add configuration variables for new timeout options: confTO_ACONNECT Timeout.aconnect confTO_AUTH Timeout.auth confTO_LHLO Timeout.lhlo confTO_STARTTLS Timeout.starttls CONFIG: Add configuration macros for mail filter API: confINPUT_MAIL_FILTERS InputMailFilters confMILTER_LOG_LEVEL Milter.LogLevel confMILTER_MACROS_CONNECT Milter.macros.connect confMILTER_MACROS_HELO Milter.macros.helo confMILTER_MACROS_ENVFROM Milter.macros.envfrom confMILTER_MACROS_ENVRCPT Milter.macros.envrcpt Mail filters can be defined via INPUT_MAIL_FILTER() and MAIL_FILTER(). See libmilter/README, cf/README, and doc/op/op.me for details. CONFIG: Add support for accepting temporarily unresolvable domains. See cf/README for details. Based on patch by Motonori Nakamura of Kyoto University. CONFIG: confDEQUOTE_OPTS can be used to specify options for the dequote map. CONFIG: New macro QUEUE_GROUP() to define queue groups. CONFIG: New FEATURE(`queuegroup') to select a queue group based on the full e-mail address or the domain of the recipient. CONFIG: Any IPv6 addresses used in configuration should be prefixed by the "IPv6:" tag to identify the address properly. For example, if you want to use the IPv6 address 2002:c0a8:51d2::23f4 in the access database, you would need to use IPv6:2002:c0a8:51d2::23f4 on the left hand side. This affects the access database as well as the relay-domains and local-host-names files. CONFIG: OSTYPE(aux) has been renamed to OSTYPE(a-ux). CONFIG: Avoid expansion of m4 keywords in SMART_HOST. CONFIG: Add MASQUERADE_EXCEPTION_FILE() for reading masquerading exceptions from a file. Suggested by Trey Breckenridge of Mississippi State University. CONFIG: Add LOCAL_USER_FILE() for reading local users (LOCAL_USER() -- $={L}) entries from a file. CONTRIB: dnsblaccess.m4 is a further enhanced version of enhdnsbl.m4 which allows to lookup error codes in the access map. Contributed by Neil Rickert of Northern Illinois University. DEVTOOLS: Add new options for installation of include and library files: confINCGRP, confINCMODE, confINCOWN, confLIBGRP, confLIBMODE, confLIBOWN. DEVTOOLS: Add new option confDONT_INSTALL_CATMAN to turn off installation of the the formatted man pages on operating systems which don't include cat directories. EDITMAP: New program for editing maps as supplement to makemap. MAIL.LOCAL: Mail.local now uses the libsm mbdb package to look up local mail recipients. New option -D mbdb specifies the mailbox database type. MAIL.LOCAL: New option "-h filename" which instructs mail.local to deliver the mail to the named file in the user's home directory instead of the system mail spool area. Based on patch from Doug Hardie of the Los Angeles Free-Net. MAILSTATS: New command line option -P which acts the same as -p but doesn't truncate the statistics file. MAKEMAP: Add new option -t to specify a different delimiter instead of white space. RMAIL: Invoke sendmail with '-G' to indicate this is a gateway submission. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. SMRSH: Use the vendor supplied directory on FreeBSD 3.3 and later. VACATION: Change Auto-Submitted: header value from auto-generated to auto-replied. From Kenneth Murchison of Oceana Matrix Ltd. VACATION: New option -d to send error/debug messages to stdout instead of syslog. VACATION: New option -U which prevents the attempt to lookup login in the password file. The -f and -m options must be used to specify the database and message file since there is no home directory for the default settings for these options. VACATION: Vacation now uses the libsm mbdb package to look up local mail recipients; it reads the MailboxDatabase option from the sendmail.cf file. New option -C cffile which specifies the path of the sendmail.cf file. New Directories: libmilter/docs New Files: cf/cf/README cf/cf/submit.cf cf/cf/submit.mc cf/feature/authinfo.m4 cf/feature/compat_check.m4 cf/feature/enhdnsbl.m4 cf/feature/msp.m4 cf/feature/local_no_masquerade.m4 cf/feature/lookupdotdomain.m4 cf/feature/preserve_luser_host.m4 cf/feature/preserve_local_plus_detail.m4 cf/feature/queuegroup.m4 cf/sendmail.schema contrib/dnsblaccess.m4 devtools/M4/UNIX/sm-test.m4 devtools/OS/OpenUNIX.5.i386 editmap/* include/sm/* libsm/* libsmutil/cf.c libsmutil/err.c sendmail/SECURITY sendmail/TUNING sendmail/bf.c sendmail/bf.h sendmail/sasl.c sendmail/sm_resolve.c sendmail/sm_resolve.h sendmail/tls.c Deleted Files: cf/feature/rbl.m4 cf/ostype/aix2.m4 devtools/OS/AIX.2 include/sendmail/cdefs.h include/sendmail/errstring.h include/sendmail/useful.h libsmutil/errstring.c sendmail/bf_portable.c sendmail/bf_portable.h sendmail/bf_torek.c sendmail/bf_torek.h sendmail/clock.c Renamed Files: cf/cf/generic-solaris2.mc => cf/cf/generic-solaris.mc cf/cf/generic-solaris2.cf => cf/cf/generic-solaris.cf cf/ostype/aux.m4 => cf/ostype/a-ux.m4 8.11.7/8.11.7 2003/03/29 SECURITY: Fix a remote buffer overflow in header parsing by dropping sender and recipient header comments if the comments are too long. Problem noted by Mark Dowd of ISS X-Force. SECURITY: Fix a buffer overflow in address parsing due to a char to int conversion problem which is potentially remotely exploitable. Problem found by Michal Zalewski. Note: an MTA that is not patched might be vulnerable to data that it receives from untrusted sources, which includes DNS. To provide partial protection to internal, unpatched sendmail MTAs, 8.11.7 changes by default (char)0xff to (char)0x7f in headers etc. To turn off this conversion compile with -DALLOW_255 or use the command line option -d82.101. To provide partial protection for internal, unpatched MTAs that may be performing 7->8 or 8->7 bit MIME conversions, the default for MaxMimeHeaderLength has been changed to 2048/1024. Note: this does have a performance impact, and it only protects against frontal attacks from the outside. To disable the checks and return to pre-8.11.7 defaults, set MaxMimeHeaderLength to 0/0. Properly clean up macros to avoid persistence of session data across various connections. This could cause session oriented restrictions, e.g., STARTTLS requirements, to erroneously allow a connection. Problem noted by Tim Maletic of Priority Health. Ignore comments in NIS host records when trying to find the canonical name for a host. Fix a memory leak when closing Hesiod maps. Set ${msg_size} macro when reading a message from the command line or the queue. Prevent a segmentation fault when clearing the event list by turning off alarms before checking if event list is empty. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. Fix a potential core dump problem if the environment variable NAME is set. Problem noted by Beth A. Chaney of Purdue University. Prevent a race condition on child cleanup for delivery to files. Problem noted by Fletcher Mattox of the University of Texas. CONFIG: Do not bounce mail if FEATURE(`ldap_routing')'s bounce parameter is set and the LDAP lookup returns a temporary error. CONFIG: Fix a syntax error in the try_tls ruleset if FEATURE(`access_db') is not enabled. LIBSMDB: Fix a lock race condition that affects makemap, praliases, and vacation. LIBSMDB: Avoid a file creation race condition for Berkeley DB 1.X and NDBM on systems with the O_EXLOCK open(2) flag. MAKEMAP: Avoid going beyond the end of an input line if it does not contain a value for a key. Based on patch from Mark Bixby from Hewlett-Packard. MAIL.LOCAL: Fix a truncation race condition if the close() on the mailbox fails. Problem noted by Tomoko Fukuzawa of Sun Microsystems. SMRSH: SECURITY: Only allow regular files or symbolic links to be used for a command. Problem noted by David Endler of iDEFENSE, Inc. 8.11.6/8.11.6 2001/08/20 SECURITY: Fix a possible memory access violation when specifying out-of-bounds debug parameters. Problem detected by Cade Cairns of SecurityFocus. Avoid leaking recipient information in unrelated DSNs. This could happen if a connection is aborted, several mails had been scheduled for delivery via that connection, and the timeout is reached such that several DSNs are sent next. Problem noted by Dileepan Moorkanat of Hewlett-Packard. Fix a possible segmentation violation when specifying too many wildcard operators in a rule. Problem detected by Werner Wiethege. Avoid a segmentation fault on non-matching Hesiod lookups. Problem noted by Russell McOrmond of flora.ca 8.11.5/8.11.5 2001/07/31 Fix a possible race condition when sending a HUP signal to restart the daemon. This could terminate the current process without starting a new daemon. Problem reported by Wolfgang Breyha of SE Netway Communications. Only apply MaxHeadersLength when receiving a message via SMTP or the command line. Problem noted by Andrey J. Melnikoff. When finding the system's local hostname on an IPv6-enabled system which doesn't have any IPv6 interface addresses, fall back to looking up only IPv4 addresses. Problem noted by Tim Bosserman of EarthLink. When commands were being rejected due to check_relay or TCP Wrappers, the ETRN command was not giving a response. Incoming IPv4 connections on a Family=inet6 daemon (using IPv4-mapped addresses) were incorrectly labeled as "may be forged". Problem noted by Per Steinar Iversen of Oslo University College. Shutdown address test mode cleanly on SIGTERM. Problem noted by Greg King of the OAO Corporation. Restore the original real uid (changed in main() to prevent out of band signals) before invoking a delivery agent. Some delivery agents use this for the "From " envelope "header". Problem noted by Leslie Carroll of the University at Albany. Mark closed file descriptors properly to avoid reuse. Problem noted by Jeff Bronson of J.D. Bronson, Inc. Setting Timeout options on the command line will also override their sub-suboptions in the .cf file, e.g., -O Timeout.queuereturn=2d will set all queuereturn timeouts to 2 days. Problem noted by Roger B.A. Klorese. Portability: BSD/OS has a broken setreuid() implementation. Problem noted by Vernon Schryver of Rhyolite Software. BSD/OS has /dev/urandom(4) (as of version 4.1/199910 ?). Noted by Vernon Schryver of Rhyolite Software. BSD/OS has fchown(2). Noted by Dave Yadallee of Netline 2000 Internet Solutions Inc. Solaris 2.X and later have strerror(3). From Sebastian Hagedorn of Cologne University. CONFIG: Fix parsing for IPv6 domain literals in addresses (user@[IPv6:address]). Problem noted by Liyuan Zhou. 8.11.4/8.11.4 2001/05/28 Clean up signal handling routines to reduce the chances of heap corruption and other potential race conditions. Terminating and restarting the daemon may not be instantaneous due to this change. Also, non-root users can no longer send out-of-band signals. Problem reported by Michal Zalewski of BindView. If LogLevel is greater than 9 and SASL fails to negotiate an encryption layer, avoid core dump logging the encryption strength. Problem noted by Miroslav Zubcic of Crol. If a server offers "AUTH=" and "AUTH " and the list of mechanisms is different in those two lines, sendmail might not have recognized (and used) all of the offered mechanisms. Fix an IP address lookup problem on Solaris 2.0 - 2.3. Patch from Kenji Miyake. This time, really don't use the .. directory when expanding QueueDirectory wildcards. If a process is interrupted while closing a map, don't try to close the same map again while exiting. Allow local mailers (F=l) to contact remote hosts (e.g., via LMTP). Problem noted by Norbert Klasen of the University of Tuebingen. If Timeout.QueueReturn was set to a value less the time it took to write a new queue file (e.g., 0 seconds), the bounce message would be lost. Problem noted by Lorraine L Goff of Oklahoma State University. Pass map argument vector into map rewriting engine for the regex and prog map types. Problem noted by Stephen Gildea of InTouch Systems, Inc. When closing an LDAP map due to a temporary error, close all of the other LDAP maps which share the original map's connection to the LDAP server. Patch from Victor Duchovni of Morgan Stanley. To detect changes of NDBM aliases files check the timestamp of the .pag file instead of the .dir file. Problem noted by Neil Rickert of Northern Illinois University. Don't treat temporary hesiod lookup failures as permanent. Patch from Werner Wiethege. If ClientPortOptions is set, make sure to create the outgoing socket with the family set in that option. Patch from Sean Farley. Avoid a segmentation fault trying to dereference a NULL pointer when logging a MaxHopCount exceeded error with an empty recipient list. Problem noted by Chris Adams of HiWAAY Internet Services. Fix DSN for "Too many hops" bounces. Problem noticed by Ulrich Windl of the Universitaet Regensburg. Fix DSN for "mail loops back to me" bounces. Problem noticed by Kari Hurtta of the Finnish Meteorological Institute. Portability: OpenBSD has a broken setreuid() implementation. CONFIG: Undo change from 8.11.1: change 501 SMTP reply code back to 553 since it is allowed by DRUMS. CONFIG: Add OSTYPE(freebsd4) for FreeBSD 4.X. DEVTOOLS: install.sh did not properly handle paths in the source file name argument. Noted by Kari Hurtta of the Finnish Meteorological Institute. DEVTOOLS: Add FAST_PID_RECYCLE to compile time options for OpenBSD since it generates random process ids. PRALIASES: Add back adaptive algorithm to deal with different endings of entries in the database (with/without trailing '\0'). Patch from John Beck of Sun Microsystems. New Files: cf/ostype/freebsd4.m4 8.11.3/8.11.3 2001/02/27 Prevent a segmentation fault when a bogus value was used in the LDAPDefaultSpec option's -r, -s, or -M flags and if a bogus option was used. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. Prevent "token too long" message by shortening {currHeader} which could be too long if the last copied character was a quote. Problem detected by Jan Krueger of digitalanswers communications consulting gmbh. Additional IPv6 check for unspecified addresses. Patch from Jun-ichiro itojun Hagino of the KAME Project. Do not ignore the ClientPortOptions setting if DaemonPortOptions Modifier=b (bind to same interface) is set and the connection came in from the command line. Do not bind to the loopback address if DaemonPortOptions Modifier=b (bind to same interface) is set. Patch from John Beck of Sun Microsystems. Properly deal with open failures on non-optional maps used in check_* rulesets by returning a temporary failure. Buffered file I/O files were not being properly fsync'ed to disk when they were committed. Properly encode '=' for the AUTH= parameter of the MAIL command. Problem noted by Hadmut Danisch. Under certain circumstances the macro {server_name} could be set to the wrong hostname (of a previous connection), which may cause some rulesets to return wrong results. This would usually cause mail to be queued up and delivered later on. Ignore F=z (LMTP) mailer flag if $u is given in the mailer A= equate. Problem noted by Motonori Nakamura of Kyoto University. Work around broken accept() implementations which only partially fill in the peer address if the socket is closed before accept() completes. Return an SMTP "421" temporary failure if the data file can't be opened where the "354" reply would normally be given. Prevent a CPU loop in trying to expand a macro which doesn't exist in a queue run. Problem noted by Gordon Lack of Glaxo Wellcome. If delivering via a program and that program exits with EX_TEMPFAIL, note that fact for the mailq display instead of just showing "Deferred". Problem noted by Motonori Nakamura of Kyoto University. If doing canonification via /etc/hosts, try both the fully qualified hostname as well as the first portion of the hostname. Problem noted by David Bremner of the University of New Brunswick. Portability: Fix a compilation problem for mail.local and rmail if SFIO is in use. Problem noted by Auteria Wally Winzer Jr. of Champion Nutrition. IPv6 changes for platforms using KAME. Patch from Jun-ichiro itojun Hagino of the KAME Project. OpenBSD 2.7 and higher has srandomdev(3). OpenBSD 2.8 and higher has BSDI-style login classes. Patch from Todd C. Miller of Courtesan Consulting. Unixware 7.1.1 doesn't allow h_errno to be set directly if sendmail is being compiled with -kthread. Problem noted by Orion Poplawski of CQG, Inc. CONTRIB: buildvirtuser: Substitute current domain for $DOMAIN and current left hand side for $LHS in virtuser files. DEVTOOLS: Do not pass make targets to recursive Build invocations. Problem noted by Jeff Bronson of J.D. Bronson, Inc. MAIL.LOCAL: In LMTP mode, do not return errors regarding problems storing the temporary message file until after the remote side has sent the final DATA termination dot. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. MAIL.LOCAL: If LMTP mode is set, give a temporary error if users are also specified on the command line. Patch from Motonori Nakamura of Kyoto University. PRALIASES: Skip over AliasFile specifications which aren't based on database files (i.e., only show dbm, hash, and btree). Renamed Files: devtools/OS/OSF1.V5.0 => devtools/OS/OSF1.V5.x 8.11.2/8.11.2 2000/12/29 Prevent a segmentation fault when trying to set a class in address test mode due to a negative array index. Audit other array indexing. This bug is not believed to be exploitable. Noted by Michal Zalewski of the "Internet for Schools" project (IdS). Add an FFR (for future release) to drop privileges when using address test mode. This will be turned on in 8.12. It can be enabled by compiling with: APPENDDEF(`conf_sendmail_ENVDEF', `-D_FFR_TESTMODE_DROP_PRIVS') in your devtools/Site/site.config.m4 file. Suggested by Michal Zalewski of the "Internet for Schools" project (IdS). Fix potential problem with Cyrus-SASL security layer which may have caused I/O errors, especially for mechanism DIGEST-MD5. When QueueSortOrder was set to host, sendmail might not read enough of the queue file to determine the host, making the sort sub-optimal. Problem noted by Jeff Earickson of Colby College. Don't issue DSNs for addresses which use the NOTIFY parameter (per RFC 1891) but don't have FAILURE as value. Initialize Cyrus-SASL library before the SMTP daemon is started. This implies that every change to SASL related files requires a restart of the daemon, e.g., Sendmail.conf, new SASL mechanisms (in form of shared libraries). Properly set the STARTTLS related macros during a queue run for a cached connection. Bug reported by Michael Kellen of NxNetworks, Inc. Log the server name in relay= for ruleset tls_server instead of the client name. Include original length of bad field/header when reporting MaxMimeHeaderLength problems. Requested by Ulrich Windl of the Universitat Regensburg. Fix delivery to set-user-ID files that are expanded from aliases in DeliveryMode queue. Problem noted by Ric Anderson of the University of Arizona. Fix LDAP map -m (match only) flag. Problem noted by Jeff Giuliano of Collective Technologies. Avoid using a negative argument for sleep() calls when delaying answers to EXPN/VRFY commands on systems which respond very slowly. Problem noted by Mikolaj J. Habryn of Optus Internet Engineering. Make sure the F=u flag is set in the default prog mailer definition. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Fix IPv6 check for unspecified addresses. Patch from Jun-ichiro itojun Hagino of the KAME Project. Fix return values for IRIX nsd map. From Kari Hurtta of the Finnish Meteorological Institute. Fix parsing of DaemonPortOptions and ClientPortOptions. Read all of the parameters to find Family= setting before trying to interpret Addr= and Port=. Problem noted by Valdis Kletnieks of Virginia Tech. When delivering to a file directly from an alias, do not call initgroups(); instead use the DefaultUser group information. Problem noted by Marc Schaefer of ALPHANET NF. RunAsUser now overrides the ownership of the control socket, if created. Otherwise, sendmail can not remove it upon close. Problem noted by Werner Wiethege. Fix ConnectionRateThrottle counting as the option is the number of overall connections, not the number of connections per socket. A future version may change this to per socket counting. Portability: Clean up libsmdb so it functions properly on platforms where sizeof(u_int32_t) != sizeof(size_t). Problem noted by Rein Tollevik of Basefarm AS. Fix man page formatting for compatibility with Solaris' whatis. From Stephen Gildea of InTouch Systems, Inc. UnixWare 7 includes snprintf() support. From Larry Rosenman. IPv6 changes for platforms using KAME. Patch from Jun-ichiro itojun Hagino of the KAME Project. Avoid a typedef compile conflict with Berkeley DB 3.X and Solaris 2.5 or earlier. Problem noted by Bob Hughes of Pacific Access. Add preliminary support for AIX 5. Contributed by Valdis Kletnieks of Virginia Tech. Solaris 9 load average support from Andrew Tucker of Sun Microsystems. CONFIG: Reject addresses of the form a!b if FEATURE(`nouucp', `r') is used. Problem noted by Phil Homewood of Asia Online, patch from Neil Rickert of Northern Illinois University. CONFIG: Change the default DNS based blocklist server for FEATURE(`dnsbl') to blackholes.mail-abuse.org. CONFIG: Deal correctly with the 'C' flag in {daemon_flags}, i.e., implicitly assume canonical host names. CONFIG: Deal with "::" in IPv6 addresses for access_db. Based on patch by Motonori Nakamura of Kyoto University. CONFIG: New OSTYPE(`aix5') contributed by Valdis Kletnieks of Virginia Tech. CONFIG: Pass the illegal header form through untouched instead of making it worse. Problem noted by Motonori Nakamura of Kyoto University. CONTRIB: Added buildvirtuser (see `perldoc contrib/buildvirtuser`). CONTRIB: qtool.pl: An empty queue is not an error. Problem noted by Jan Krueger of digitalanswers communications consulting gmbh. CONTRIB: domainmap.m4: Handle domains with '-' in them. From Mark Roth of the University of Illinois at Urbana-Champaign. DEVTOOLS: Change the internal devtools OS, REL, and ARCH m4 variables into bldOS, bldREL, and bldARCH to prevent namespace collisions. Problem noted by Motonori Nakamura of Kyoto University. RMAIL: Undo the 8.11.1 change to use -G when calling sendmail. It causes some changes in behavior and may break rmail for installations where sendmail is actually a wrapper to another MTA. The change will re-appear in a future version. SMRSH: Use the vendor supplied directory on HPUX 10.X, HPUX 11.X, and SunOS 5.8. Requested by Jeff A. Earickson of Colby College and John Beck of Sun Microsystems. VACATION: Fix pattern matching for addresses to ignore. VACATION: Don't reply to addresses of the form owner-* or *-owner. New Files: cf/ostype/aix5.m4 contrib/buildvirtuser devtools/OS/AIX.5.0 8.11.1/8.11.1 2000/09/27 Fix SMTP EXPN command output if the address expands to a single name. Fix from John Beck of Sun Microsystems. Don't try STARTTLS in the client if the PRNG has not been properly seeded. This problem only occurs on systems without /dev/urandom. Problem detected by Jan Krueger of digitalanswers communications consulting gmbh and Neil Rickert of Northern Illinois University. Don't use the . and .. directories when expanding QueueDirectory wildcards. Do not try to cache LDAP connections across processes as a parent process may close the connection before the child process has completed. Problem noted by Lai Yiu Fai of the Hong Kong University of Science and Technology and Wolfgang Hottgenroth of UUNET. Use Timeout.fileopen to limit the amount of time spent trying to read the LDAP secret from a file. Prevent SIGTERM from removing a command line submitted item after the user submits the message and before the first delivery attempt completes. Problem noted by Max France of AlphaNet. Fix from Neil Rickert of Northern Illinois University. Deal correctly with MaxMessageSize restriction if message size is greater than 2^31. Problem noted by Tim "Darth Dice" Bosserman of EarthLink. Turn off queue checkpointing if CheckpointInterval is set to zero. Treat an empty home directory (from getpw*() or $HOME) as non-existent instead of treating it as /. Problem noted by Todd C. Miller of Courtesan Consulting. Don't drop duplicate headers when reading a queued item. Problem noted by Motonori Nakamura of Kyoto University. Avoid bogus error text when logging the savemail panic "cannot save rejected email anywhere". Problem noted by Marc G. Fournier of Acadia University. If an LDAP search fails because the LDAP server went down, close the map so subsequent searches reopen the map. If there are multiple LDAP servers, the down server will be skipped and one of the others may be able to take over. Set the ${load_avg} macro to the current load average, not the previous load average query result. If a non-optional map used in a check_* ruleset can't be opened, return a temporary failure to the remote SMTP client instead of ignoring the map. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. Avoid a race condition when queuing up split envelopes by saving the split envelopes before the original envelope. Fix a bug in the PH_MAP code which caused mail to bounce instead of defer if the PH server could not be contacted. From Mark Roth of the University of Illinois at Urbana-Champaign. Prevent QueueSortOrder=Filename from interfering with -qR, -qS, and ETRN. Problem noted by Erik R. Leo of SoVerNet. Change error code for unrecognized parameters to the SMTP MAIL and RCPT commands from 501 to 555 per RFC 1869. Problem reported to Postfix by Robert Norris of Monash University. Prevent overwriting the argument of -B on certain OS. Problem noted by Matteo Gelosa of I.NET S.p.A. Use the proper routine for freeing memory with Netscape's LDAP client libraries. Patch from Paul Hilchey of the University of British Columbia. Portability: Move the NETINET6 define to devtools/OS/SunOS.5.{8,9} instead of defining it in conf.h so users can override the setting. Suggested by Henrik Nordstrom of Ericsson. On HP-UX 10.X and 11.X, use /usr/sbin/sendmail instead of /usr/lib/sendmail for rmail and vacation. From Jeff A. Earickson of Colby College. On HP-UX 11.X, use /usr/sbin instead of /usr/libexec (which does not exist). From Jeff A. Earickson of Colby College. Avoid using the UCB subsystem on NCR MP-RAS 3.x. From Tom Moore of NCR. NeXT 3.X and 4.X installs man pages in /usr/man. From Hisanori Gogota of NTT/InterCommunicationCenter. Solaris 8 and later include /var/run. The default PID file location is now /var/run/sendmail.pid. From John Beck of Sun Microsystems. SFIO includes snprintf() for those operating systems which do not. From Todd C. Miller of Courtesan Consulting. CONFIG: Use the result of _CERT_REGEX_SUBJECT_ not {cert_subject}. Problem noted by Kaspar Brand of futureLab AG. CONFIG: Change 553 SMTP reply code to 501 to avoid problems with errors in the MAIL address. CONFIG: Fix FEATURE(nouucp) usage in example .mc files. Problem noted by Ron Jarrell of Virginia Tech. CONFIG: Add support for Solaris 8 (and later) as OSTYPE(solaris8). Contributed by John Beck of Sun Microsystems. CONFIG: Set confFROM_HEADER such that the mail hub can possibly add GECOS information for an address. This more closely matches pre-8.10 nullclient behavior. From Per Hedeland of Ericsson. CONFIG: Fix MODIFY_MAILER_FLAGS(): apply the flag modifications for SMTP to all *smtp* mailers and those for RELAY to the relay mailer as described in cf/README. MAIL.LOCAL: Open the mailbox as the recipient not root so quotas are obeyed. Problem noted by Damian Kuczynski of NIK. MAKEMAP: Do not change a map's owner to the TrustedUser if using makemap to 'unmake' the map. RMAIL: Avoid overflowing the list of recipients being passed to sendmail. RMAIL: Invoke sendmail with '-G' to indicate this is a gateway submission. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. VACATION: Read the complete message to avoid "broken pipe" signals. VACATION: Do not cut off vacation.msg files which have a single dot as the only character on the line. New Files: cf/ostype/solaris8.m4 8.11.0/8.11.0 2000/07/19 SECURITY: If sendmail is installed as a non-root set-user-ID binary (not the normal case), some operating systems will still keep a saved-uid of the effective-uid when sendmail tries to drop all of its privileges. If sendmail needs to drop these privileges and the operating system doesn't set the saved-uid as well, exit with an error. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. SECURITY: sendmail depends on snprintf() NUL terminating the string it populates. It is possible that some broken implementations of snprintf() exist that do not do this. Systems in this category should compile with -DSNPRINTF_IS_BROKEN=1. Use test/t_snprintf.c to test your system and report broken implementations to sendmail-bugs@sendmail.org and your OS vendor. Problem noted by Slawomir Piotrowski of TELSAT GP. Support SMTP Service Extension for Secure SMTP (RFC 2487) (STARTTLS). Implementation influenced by the example programs of OpenSSL and the work of Lutz Jaenicke of TU Cottbus. Add new STARTTLS related options CACERTPath, CACERTFile, ClientCertFile, ClientKeyFile, DHParameters, RandFile, ServerCertFile, and ServerKeyFile. These are documented in cf/README and doc/op/op.me. New STARTTLS related macros: ${cert_issuer}, ${cert_subject}, ${tls_version}, ${cipher}, ${cipher_bits}, ${verify}, ${server_name}, and ${server_addr}. These are documented in cf/README and doc/op/op.me. Add support for the Entropy Gathering Daemon (EGD) for better random data. New DontBlameSendmail option InsufficientEntropy for systems which don't properly seed the PRNG for OpenSSL but want to try to use STARTTLS despite the security problems. Support the security layer in SMTP AUTH for mechanisms which support encryption. Based on code contributed by Tim Martin of CMU. Add new macro ${auth_ssf} to reflect the SMTP AUTH security strength factor. LDAP's -1 (single match only) flag was not honored if the -z (delimiter) flag was not given. Problem noted by ST Wong of the Chinese University of Hong Kong. Fix from Mark Adamson of CMU. Add more protection from accidentally tripping OpenLDAP 1.X's ld_errno == LDAP_DECODING_ERROR hack on ldap_next_attribute(). Suggested by Kurt Zeilenga of OpenLDAP. Fix the default family selection for DaemonPortOptions. As documented, unless a family is specified in a DaemonPortOptions option, "inet" is the default. It is also the default if no DaemonPortOptions value is set. Therefore, IPv6 users should configure additional sockets by adding DaemonPortOptions settings with Family=inet6 if they wish to also listen on IPv6 interfaces. Problem noted by Jun-ichiro itojun Hagino of the KAME Project. Set ${if_family} when setting ${if_addr} and ${if_name} to reflect the interface information for an outgoing connection. Not doing so was creating a mismatch between the socket family and address used in subsequent connections if the M=b modifier was set in DaemonPortOptions. Problem noted by John Beck of Sun Microsystems. If DaemonPortOptions modifier M=b is used, determine the socket family based on the IP address. ${if_family} is no longer persistent (i.e., saved in qf files). Patch from John Beck of Sun Microsystems. sendmail 8.10 and 8.11 reused the ${if_addr} and ${if_family} macros for both the incoming interface address/family and the outgoing interface address/family. In order for M=b modifier in DaemonPortOptions to work properly, preserve the incoming information in the queue file for later delivery attempts. Use SMTP error code and enhanced status code from check_relay in responses to commands. Problem noted by Jeff Wasilko of smoe.org. Add more vigilance in checking for putc() errors on output streams to protect from a bug in Solaris 2.6's putc(). Problem noted by Graeme Hewson of Oracle. The LDAP map -n option (return attribute names only) wasn't working. Problem noted by Ajay Matia. Under certain circumstances, an address could be listed as deferred but would be bounced back to the sender as failed to be delivered when it really should have been queued. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. Prevent a segmentation fault in a child SMTP process from getting the SMTP transaction out of sync. Problem noted by Per Hedeland of Ericsson. Turn off RES_DEBUG if SFIO is defined unless SFIO_STDIO_COMPAT is defined to avoid a core dump due to incompatibilities between sfio and stdio. Problem noted by Neil Rickert of Northern Illinois University. Don't log useless envelope ID on initial connection log. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Convert the free disk space shown in a control socket status query to kilobyte units. If TryNullMXList is True and there is a temporary DNS failure looking up the hostname, requeue the message for a later attempt. Problem noted by Ari Heikkinen of Pohjois-Savo Polytechnic. Under the proper circumstances, failed connections would be recorded as "Bad file number" instead of "Connection failed" in the queue file and persistent host status. Problem noted by Graeme Hewson of Oracle. Avoid getting into an endless loop if a non-hoststat directory exists within the hoststatus directory (e.g., lost+found). Patch from Valdis Kletnieks of Virginia Tech. Make sure Timeout.queuereturn=now returns a bounce message to the sender. Problem noted by Per Hedeland of Ericsson. If a message data file can't be opened at delivery time, panic and abort the attempt instead of delivering a message that states "<<< No Message Collected >>>". Fixup the GID checking code from 8.10.2 as it was overly restrictive. Problem noted by Mark G. Thomas of Mark G. Thomas Consulting. Preserve source port number instead of replacing it with the ident port number (113). Document the queue status characters in the mailq man page. Suggested by Ulrich Windl of the Universitat Regensburg. Process queued items in which none of the recipient addresses have host portions (or there are no recipients). Problem noted by Valdis Kletnieks of Virginia Tech. If a cached LDAP connection is used for multiple maps, make sure only the first to open the connection is allowed to close it so a later map close doesn't break the connection for other maps. Problem noted by Wolfgang Hottgenroth of UUNET. Netscape's LDAP libraries do not support Kerberos V4 authentication. Patch from Rainer Schoepf of the University of Mainz. Provide workaround for inconsistent handling of data passed via callbacks to Cyrus SASL prior to version 1.5.23. Mention ENHANCEDSTATUSCODES in the SMTP HELP helpfile. Omission noted by Ulrich Windl of the Universitat Regensburg. Portability: Add the ability to read IPv6 interface addresses into class 'w' under FreeBSD (and possibly others). From Jun Kuriyama of IMG SRC, Inc. and the FreeBSD Project. Replace code for finding the number of CPUs on HPUX. NCRUNIX MP-RAS 3.02 SO_REUSEADDR socket option does not work properly causing problems if the accept() fails and the socket needs to be reopened. Patch from Tom Moore of NCR. NetBSD uses a .0 extension of formatted man pages. From Andrew Brown of Crossbar Security. Return to using the IPv6 AI_DEFAULT flag instead of AI_V4MAPPED for calls to getipnodebyname(). The Linux implementation is broken so AI_ADDRCONFIG is stripped under Linux. From John Beck of Sun Microsystems and John Kennedy of Cal State University, Chico. CONFIG: Catch invalid addresses containing a ',' at the wrong place. Patch from Neil Rickert of Northern Illinois University. CONFIG: New variables for the new sendmail options: confCACERT_PATH CACERTPath confCACERT CACERTFile confCLIENT_CERT ClientCertFile confCLIENT_KEY ClientKeyFile confDH_PARAMETERS DHParameters confRAND_FILE RandFile confSERVER_CERT ServerCertFile confSERVER_KEY ServerKeyFile CONFIG: Provide basic rulesets for TLS policy control and add new tags to the access database to support these policies. See cf/README for more information. CONFIG: Add TLS information to the Received: header. CONFIG: Call tls_client ruleset from check_mail in case it wasn't called due to a STARTTLS command. CONFIG: If TLS_PERM_ERR is defined, TLS related errors are permanent instead of temporary. CONFIG: FEATURE(`relay_hosts_only') didn't work in combination with the access map and relaying to a domain without using a To: tag. Problem noted by Mark G. Thomas of Mark G. Thomas Consulting. CONFIG: Set confEBINDIR to /usr/sbin to match the devtools entry in OSTYPE(`linux') and OSTYPE(`mklinux'). From Tim Pierce of RootsWeb.com. CONFIG: Make sure FEATURE(`nullclient') doesn't use aliasing and forwarding to make it as close to the old behavior as possible. Problem noted by George W. Baltz of the University of Maryland. CONFIG: Added OSTYPE(`darwin') for Mac OS X and Darwin users. From Wilfredo Sanchez of Apple Computer, Inc. CONFIG: Changed the map names used by FEATURE(`ldap_routing') from ldap_mailhost and ldap_mailroutingaddress to ldapmh and ldapmra as underscores in map names cause problems if underscore is in OperatorChars. Problem noted by Bob Zeitz of the University of Alberta. CONFIG: Apply blacklist_recipients also to hosts in class {w}. Patch from Michael Tratz of Esosoft Corporation. CONFIG: Use A=TCP ... instead of A=IPC ... in SMTP mailers. CONTRIB: Add link_hash.sh to create symbolic links to the hash of X.509 certificates. CONTRIB: passwd-to-alias.pl: More protection from special characters; treat special shells as root aliases; skip entries where the GECOS full name and username match. From Ulrich Windl of the Universitat Regensburg. CONTRIB: qtool.pl: Add missing last_modified_time method and fix a typo. Patch from Graeme Hewson of Oracle. CONTRIB: re-mqueue.pl: Improve handling of a race between re-mqueue and sendmail. Patch from Graeme Hewson of Oracle. CONTRIB: re-mqueue.pl: Don't exit(0) at end so can be called as subroutine Patch from Graeme Hewson of Oracle. CONTRIB: Add movemail.pl (move old mail messages between queues by calling re-mqueue.pl) and movemail.conf (configuration script for movemail.pl). From Graeme Hewson of Oracle. CONTRIB: Add cidrexpand (expands CIDR blocks as a preprocessor to makemap). From Derek J. Balling of Yahoo,Inc. DEVTOOLS: INSTALL_RAWMAN installation option mistakenly applied any extension modifications (e.g., MAN8EXT) to the installation target. Patch from James Ralston of Carnegie Mellon University. DEVTOOLS: Add support for SunOS 5.9. DEVTOOLS: New option confLN contains the command used to create links. LIBSMDB: Berkeley DB 2.X and 3.X errors might be lost and not reported. MAIL.LOCAL: DG/UX portability. Problem noted by Tim Boyer of Denman Tire Corporation. MAIL.LOCAL: Prevent a possible DoS attack when compiled with -DCONTENTLENGTH. Based on patch from 3APA3A@SECURITY.NNOV.RU. MAILSTATS: Fix usage statement (-p and -o are optional). MAKEMAP: Change man page layout as workaround for problem with nroff and -man on Solaris 7. Patch from Larry Williamson. RMAIL: AIX 4.3 has snprintf(). Problem noted by David Hayes of Black Diamond Equipment, Limited. RMAIL: Prevent a segmentation fault if the incoming message does not have a From line. VACATION: Read all of the headers before deciding whether or not to respond instead of stopping after finding recipient. New Files: cf/ostype/darwin.m4 contrib/cidrexpand contrib/link_hash.sh contrib/movemail.conf contrib/movemail.pl devtools/OS/SunOS.5.9 test/t_snprintf.c 8.10.2/8.10.2 2000/06/07 SECURITY: Work around broken Linux setuid() implementation. On Linux, a normal user process has the ability to subvert the setuid() call such that it is impossible for a root process to drop its privileges. Problem noted by Wojciech Purczynski of elzabsoft.pl. SECURITY: Add more vigilance around set*uid(), setgid(), setgroups(), initgroups(), and chroot() calls. New Files: test/t_setuid.c 8.10.1/8.10.1 2000/04/06 SECURITY: Limit the choice of outgoing (client-side) SMTP Authentication mechanisms to those specified in AuthMechanisms to prevent information leakage. We do not recommend use of PLAIN for outgoing mail as it sends the password in clear text to possibly untrusted servers. See cf/README's DefaultAuthInfo section for additional information. Copy the ident argument for openlog() to avoid problems on some OSs. Based on patch from Rob Bajorek from Webhelp.com. Avoid bogus error message when reporting an alias line as too long. Avoid bogus socket error message if sendmail.cf version level is greater than sendmail binary supported version. Patch from John Beck of Sun Microsystems. Prevent a malformed ruleset (missing right hand side) from causing a segmentation fault when using address test mode. Based on patch from John Beck of Sun Microsystems. Prevent memory leak from use of NIS maps and yp_match(3). Problem noted by Gil Kloepfer of the University of Texas at Austin. Fix queue file permission checks to allow for TrustedUser ownership. Change logging of errors from the trust_auth ruleset to LogLevel 10 or higher. Avoid simple password cracking attacks against SMTP AUTH by using exponential delay after too many tries within one connection. Encode an initial empty AUTH challenge as '=', not as empty string. Avoid segmentation fault on EX_SOFTWARE internal error logs. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. Ensure that a header check which resolves to $#discard actually discards the message. Emit missing value warnings for aliases with no right hand side when newaliases is run instead of only when delivery is attempted to the alias. Remove AuthOptions missing value warning for consistency with other flag options. Portability: SECURITY: Specify a run-time shared library search path for AIX 4.X instead of using the dangerous AIX 4.X linker semantics. AIX 4.X users should consult sendmail/README for further information. Problem noted by Valdis Kletnieks of Virginia Tech. Avoid use of strerror(3) call. Problem noted by Charles Levert of Ecole Polytechnique de Montreal. DGUX requires -lsocket -lnsl and has a non-standard install program. From Tim Boyer of Denman Tire Corporation. HPUX 11.0 has a broken res_search() function. Updates to devtools/OS/NeXT.3.X, NeXT.4.X, and NEXTSTEP.4.X from J. P. McCann of E I A. Digital UNIX/Compaq Tru64 5.0 now includes snprintf(3). Problem noted by Michael Long of Info Avenue Internet Services, LLC. Modern (post-199912) OpenBSD versions include working strlc{at,py}(3) functions. From Todd C. Miller of Courtesan Consulting. SINIX doesn't have random(3). From Gerald Rinske of Siemens Business Services. CONFIG: Change error message about unresolvable sender domain to include the sender address. Proposed by Wolfgang Rupprecht of WSRCC. CONFIG: Fix usenet mailer calls. CONFIG: If RELAY_MAILER_FLAGS is not defined, use SMTP_MAILER_FLAGS to be backward compatible with 8.9. CONFIG: Change handling of default case @domain for virtusertable to allow for +*@domain to deal with +detail. CONTRIB: Remove converting.sun.configs -- it is obsolete. DEVTOOLS: confUBINMODE was being ignored. Fix from KITAZIMA, Tuneki of NEC. DEVTOOLS: Add to NCR platform list and include the architecture (i486). From Tom J. Moore of NCR. DEVTOOLS: SECURITY: Change method of linking with sendmail utility libraries to work around the AIX 4.X and SunOS 4.X linker's overloaded -L option. Problem noted by Valdis Kletnieks of Virginia Tech. DEVTOOLS: configure.sh was overriding the user's choice for confNROFF. Problem noted by Glenn A. Malling of Syracuse University. DEVTOOLS: New variables conf_prog_LIB_POST and confBLDVARIANT added for other internal projects but included in the open source release. LIBSMDB: Check for ".db" instead of simply "db" at the end of the map name to determine whether or not to add the extension. This fixes makemap when building the userdb file. Problem noted by Andrew J Cole of the University of Leeds. LIBSMDB: Allow a database to be opened for updating and created if it doesn't already exist. Problem noted by Rand Wacker of Sendmail. LIBSMDB: If type is SMDB_TYPE_DEFAULT and both NEWDB and NDBM are available, fall back to NDBM if NEWDB open fails. This fixes praliases. Patch from John Beck of Sun Microsystems. LIBSMUTIL: safefile()'s SFF_NOTEXCL check was being misinterpreted as SFF_NOWRFILES. OP.ME: Clarify some issues regarding mailer flags. Suggested by Martin Mokrejs of The Charles University and Neil Rickert of Northern Illinois University. PRALIASES: Restore 8.9.X functionality of being able to search for particular keys in a database by specifying the keys on the command line. Man page updated accordingly. Patch from John Beck of Sun Microsystems. VACATION: SunOS 4.X portability from Charles Levert of Ecole Polytechnique de Montreal. VACATION: Fix -t option which is ignored but available for compatibility with Sun's version, based on patch from Volker Dobler of Infratest Burke. New Files: devtools/M4/UNIX/smlib.m4 devtools/OS/OSF1.V5.0 Deleted Files: contrib/converting.sun.configs Deleted Directories (already done in 8.10.0 but not listed): doc/intro doc/usenix doc/changes 8.10.0/8.10.0 2000/03/01 ************************************************************* * The engineering department at Sendmail, Inc. has suffered * * the tragic loss of a key member of our engineering team. * * Julie Van Bourg was the Vice President of Engineering * * at Sendmail, Inc. during the development and deployment * * of this release. It was her vision, dedication, and * * support that has made this release a success. Julie died * * on October 26, 1999 of cancer. We have lost a leader, a * * coach, and a friend. * * * * This release is dedicated to her memory and to the joy, * * strength, ideals, and hope that she brought to all of us. * * Julie, we miss you! * ************************************************************* SECURITY: The safe file checks now back track through symbolic links to make sure the files can't be compromised due to poor permissions on the parent directories of the symbolic link target. SECURITY: Only root, TrustedUser, and users in class t can rebuild the alias map. Problem noted by Michal Zalewski of the "Internet for Schools" project (IdS). SECURITY: There is a potential for a denial of service attack if the AutoRebuildAliases option is set as a user can kill the sendmail process while it is rebuilding the aliases file (leaving it in an inconsistent state). This option and its use is deprecated and will be removed from a future version of sendmail. SECURITY: Make sure all file descriptors (besides stdin, stdout, and stderr) are closed before restarting sendmail. Problem noted by Michal Zalewski of the "Internet for Schools" project (IdS). Begin using /etc/mail/ for sendmail related files. This affects a large number of files. See cf/README for more details. The directory structure of the distribution has changed slightly for easier code sharing among the programs. Support SMTP AUTH (see RFC 2554). New macros for this purpose are ${auth_authen}, ${auth_type}, and ${auth_author} which hold the client's authentication credentials, the mechanism used for authentication, and the authorization identity (i.e., the AUTH= parameter if supplied). Based on code contributed by Tim Martin of CMU. On systems which use the Torek stdio library (all of the BSD distributions), use memory-buffered files to reduce file system overhead by not creating temporary files on disk. Contributed by Exactis.com, Inc. New option DataFileBufferSize to control the maximum size of a memory-buffered data (df) file before a disk-based file is used. Contributed by Exactis.com, Inc. New option XscriptFileBufferSize to control the maximum size of a memory-buffered transcript (xf) file before a disk-based file is used. Contributed by Exactis.com, Inc. sendmail implements RFC 2476 (Message Submission), e.g., it can now listen on several different ports. Use: O DaemonPortOptions=Name=MSA, Port=587, M=E to run a Message Submission Agent (MSA); this is turned on by default in m4-generated .cf files; it can be turned off with FEATURE(`no_default_msa'). The 'XUSR' SMTP command is deprecated. Mail user agents should begin using RFC 2476 Message Submission for initial user message submission. XUSR may disappear from a future release. The new '-G' (relay (gateway) submission) command line option indicates that the message being submitted from the command line is for relaying, not initial submission. This means the message will be rejected if the addresses are not fully qualified and no canonicalization will be done. Future releases may even reject improperly formed messages. The '-U' (initial user submission) command line option is deprecated and may be removed from a future release. Mail user agents should begin using '-G' to indicate that this is a relay submission (the inverse of -U). The next release of sendmail will assume that any message submitted from the command line is an initial user submission and act accordingly. If sendmail doesn't have enough privileges to run a .forward program or deliver to file as the owner of that file, the address is marked as unsafe. This means if RunAsUser is set, users won't be able to use programs or delivery to files in their .forward files. Administrators can override this by setting the DontBlameSendmail option to the new setting NonRootSafeAddr. Allow group or world writable directories if the sticky bit is set on the directory and DontBlameSendmail is set to TrustStickyBit. Based on patch from Chris Metcalf of InCert Software. Prevent logging of unsafe directory paths for non-existent forward files if the new DontWarnForwardFileInUnsafeDirPath bit is set in the DontBlameSendmail option. Requested by many. New Timeout.control option to limit the total time spent satisfying a control socket request. New Timeout.resolver options for controlling BIND resolver settings: Timeout.resolver.retrans Sets the resolver's retransmission time interval (in seconds). Sets both Timeout.resolver.retrans.first and Timeout.resolver.retrans.normal. Timeout.resolver.retrans.first Sets the resolver's retransmission time interval (in seconds) for the first attempt to deliver a message. Timeout.resolver.retrans.normal Sets the resolver's retransmission time interval (in seconds) for all resolver lookups except the first delivery attempt. Timeout.resolver.retry Sets the number of times to retransmit a resolver query. Sets both Timeout.resolver.retry.first and Timeout.resolver.retry.normal. Timeout.resolver.retry.first Sets the number of times to retransmit a resolver query for the first attempt to deliver a message. Timeout.resolver.retry.normal Sets the number of times to retransmit a resolver query for all resolver lookups except the first delivery attempt. Contributed by Exactis.com, Inc. Support multiple queue directories. To use multiple queues, supply a QueueDirectory option value ending with an asterisk. For example, /var/spool/mqueue/q* will use all of the directories or symbolic links to directories beginning with 'q' in /var/spool/mqueue as queue directories. Keep in mind, the queue directory structure should not be changed while sendmail is running. Queue runs create a separate process for running each queue unless the verbose flag is given on a non-daemon queue run. New items are randomly assigned to a queue. Contributed by Exactis.com, Inc. Support different directories for qf, df, and xf queue files; if subdirectories or symbolic links to directories of those names exist in the queue directories, they are used for the corresponding queue files. Keep in mind, the queue directory structure should not be changed while sendmail is running. Proposed by Mathias Koerber of Singapore Telecommunications Ltd. New queue file naming system which uses a filename guaranteed to be unique for 60 years. This allows queue IDs to be assigned without fancy file system locking. Queued items can be moved between queues easily. Contributed by Exactis.com, Inc. Messages which are undeliverable due to temporary address failures (e.g., DNS failure) will now go to the FallBackMX host, if set. Contributed by Exactis.com, Inc. New command line option '-L tag' which sets the identifier used for syslog. Contributed by Exactis.com, Inc. QueueSortOrder=Filename will sort the queue by filename. This avoids opening and reading each queue file when preparing to run the queue. Contributed by Exactis.com, Inc. Shared memory counters and microtimers functionality has been donated by Exactis.com, Inc. The SCCS ID tags have been replaced with RCS ID tags. Allow trusted users (those on a T line or in $=t) to set the QueueDirectory (Q) option without an X-Authentication-Warning: being added. Suggested by Michael K. Sanders. IPv6 support based on patches from John Kennedy of Cal State University, Chico, Motonori Nakamura of Kyoto University, and John Beck of Sun Microsystems. In low-disk space situations, where sendmail would previously refuse connections, still accept them, but only allow ETRN commands. Suggested by Mathias Koerber of Singapore Telecommunications Ltd. The [IPC] builtin mailer now allows delivery to a UNIX domain socket on systems which support them. This can be used with LMTP local delivery agents which listen on a named socket. An example mailer might be: Mexecmail, P=[IPC], F=lsDFMmnqSXzA5@/:|, E=\r\n, S=10, R=20/40, T=DNS/RFC822/X-Unix, A=FILE /var/run/lmtpd Code contributed by Lyndon Nerenberg of Messaging Direct. The [TCP] builtin mailer name is now deprecated. Use [IPC] instead. The first mailer argument in the [IPC] mailer is now checked for a legitimate value. Possible values are TCP (for TCP/IP connections), IPC (which will be deprecated in a future version), and FILE (for UNIX domain socket delivery). PrivacyOptions=goaway no longer includes the noetrn and the noreceipts flags. PrivacyOptions=nobodyreturn instructs sendmail not to include the body of the original message on delivery status notifications. Don't announce DSN if PrivacyOptions=noreceipts is set. Problem noted by Dan Bernstein, fix from Robert Harker of Harker Systems. Accept the SMTP RSET command even when rejecting commands due to TCP Wrappers or the check_relay ruleset. Problem noted by Steve Schweinhart of America Online. Warn if OperatorChars is set multiple times. OperatorChars should not be set after rulesets are defined. Suggested by Mitchell Blank Jr of Exec-PC. Do not report temporary failure on delivery to files. In interactive delivery mode, this would result in two SMTP responses after the DATA command. Problem noted by Nik Conwell of Boston University. Check file close when mailing to files. Problem noted by Nik Conwell of Boston University. Avoid a segmentation fault when using the LDAP map. Patch from Curtis W. Hillegas of Princeton University. Always bind to the LDAP server regardless of whether you are using ldap_open() or ldap_init(). Fix from Raj Kunjithapadam of @Home Network. New ruleset trust_auth to determine whether a given AUTH= parameter of the MAIL command should be trusted. See SMTP AUTH, cf/README, and doc/op/op.ps. Allow new named config file rules check_vrfy, check_expn, and check_etrn for VRFY, EXPN, and ETRN commands, respectively, similar to check_rcpt etc. Introduce new macros ${rcpt_mailer}, ${rcpt_host}, ${rcpt_addr}, ${mail_mailer}, ${mail_host}, ${mail_addr} that hold the results of parsing the RCPT and MAIL arguments, i.e. the resolved triplet from $#mailer $@host $:addr. From Kari Hurtta of the Finnish Meteorological Institute. New macro ${client_resolve} which holds the result of the resolve call for ${client_name}: OK, FAIL, FORGED, TEMP. Proposed by Kari Hurtta of the Finnish Meteorological Institute. New macros ${dsn_notify}, ${dsn_envid}, and ${dsn_ret} that hold the corresponding DSN parameter values. Proposed by Mathias Herberts. New macro ${msg_size} which holds the value of the SIZE= parameter, i.e., usually the size of the message (in an ESMTP dialogue), before the message has been collected, thereafter it holds the message size as computed by sendmail (and can be used in check_compat). The macro ${deliveryMode} now specifies the current delivery mode sendmail is using instead of the value of the DeliveryMode option. New macro ${ntries} holds the number of delivery attempts. Drop explicit From: if same as what would be generated only if it is a local address. From Motonori Nakamura of Kyoto University. Write pid to file also if sendmail only processes the queue. Proposed by Roy J. Mongiovi of Georgia Tech. Log "low on disk space" only when necessary. New macro ${load_avg} can be used to check the current load average. Suggested by Scott Gifford of The Internet Ramp. Return-Receipt-To: header implies DSN request if option RrtImpliesDsn is set. Flag -S for maps to specify the character which is substituted for spaces (instead of the default given by O BlankSub). Flag -D for maps: perform no lookup in deferred delivery mode. This flag is set by default for the host map. Based on a proposal from Ian MacPhedran of the University of Saskatchewan. Open maps only on demand, not at startup. Log warning about unsupported IP address families. New option MaxHeadersLength allows to specify a maximum length of the sum of all headers. This can be used to prevent a denial-of-service attack. New option MaxMimeHeaderLength which limits the size of MIME headers and parameters within those headers. This option is intended to protect mail user agents from buffer overflow attacks. Added option MaxAliasRecursion to specify the maximum depth of alias recursion. New flag F=6 for mailers to strip headers to seven bit. Map type syslog to log the key via syslogd. Entries in the alias file can be continued by putting a backslash directly before the newline. New option DeadLetterDrop to define the location of the system-wide dead.letter file, formerly hardcoded to /usr/tmp/dead.letter. If this option is not set (the default), sendmail will not attempt to save to a system-wide dead.letter file if it can not bounce the mail to the user nor postmaster. Instead, it will rename the qf file as it has in the past when the dead.letter file could not be opened. New option PidFile to define the location of the pid file. The value of this option is macro expanded. New option ProcessTitlePrefix specifies a prefix string for the process title shown in 'ps' listings. New macros for use with the PidFile and ProcessTitlePrefix options (along with the already existing macros): ${daemon_info} Daemon information, e.g. SMTP+queueing@00:30:00 ${daemon_addr} Daemon address, e.g., 0.0.0.0 ${daemon_family} Daemon family, e.g., inet, inet6, etc. ${daemon_name} Daemon name, e.g., MSA. ${daemon_port} Daemon port, e.g., 25 ${queue_interval} Queue run interval, e.g., 00:30:00 New macros especially for virtual hosting: ${if_name} hostname of interface of incoming connection. ${if_addr} address of interface of incoming connection. The latter is only set if the interface does not belong to the loopback net. If a message being accepted via a method other than SMTP and would be rejected by a header check, do not send the message. Suggested by Phil Homewood of Mincom Pty Ltd. Don't strip comments for header checks if $>+ is used instead of $>. Provide header value as quoted string in the macro ${currHeader} (possibly truncated to MAXNAME). Suggested by Jan Krueger of Unix-AG of University of Hannover. The length of the header value is stored in ${hdrlen}. H*: allows to specify a default ruleset for header checks. This ruleset will only be called if the individual header does not have its own ruleset assigned. Suggested by Jan Krueger of Unix-AG of University of Hannover. The name of the header field stored in ${hdr_name}. Comments (i.e., text within parentheses) in rulesets are not removed if the config file version is greater than or equal to 9. For example, "R$+ ( 1 ) $@ 1" matches the input "token (1)" but does not match "token". Avoid removing the Content-Transfer-Encoding MIME header on MIME messages. Problem noted by Sigurbjorn B. Larusson of Multimedia Consumer Services. Fix from Per Hedeland of Ericsson. Avoid duplicate Content-Transfer-Encoding MIME header on messages with 8-bit text in headers. Problem noted by Per Steinar Iversen of Oslo College. Fix from Per Hedeland of Ericsson. Avoid keeping maps locked longer than necessary when re-opening a modified database map file. Problem noted by Chris Adams of Renaissance Internet Services. Resolving to the $#error mailer with a temporary failure code (e.g., $#error $@ tempfail $: "400 Temporary failure") will now queue up the message instead of bouncing it. Be more liberal in acceptable responses to an SMTP RSET command as standard does not provide any indication of what to do when something other than 250 is received. Based on a patch from Steve Schweinhart of America Online. New option TrustedUser allows to specify a user who can own important files instead of root. This requires HASFCHOWN. Fix USERDB conditional so compiling with NEWDB or HESIOD and setting USERDB=0 works. Fix from Jorg Zanger of Schock. Fix another instance (similar to one in 8.9.3) of a network failure being mis-logged as "Illegal Seek" instead of whatever really went wrong. From John Beck of Sun Microsystems. $? tests also whether the macro is non-null. Print an error message if a mailer definition contains an invalid equate name. New mailer equate /= to specify a directory to chroot() into before executing the mailer program. Suggested by Igor Vinokurov. New mailer equate W= to specify the maximum time to wait for the mailer to return after sending all data to it. Only free memory from the process list when adding a new process into a previously filled slot. Previously, the memory was freed at removal time. Since removal can happen in a signal handler, this may leave the memory map in an inconsistent state. Problem noted by Jeff A. Earickson and David Cooley of Colby College. When using the UserDB @hostname catch-all, do not try to lookup local users in the passwd file. The UserDB code has already decided the message will be passed to another host for processing. Fix from Tony Landells of Burdett Buckeridge Young Limited. Support LDAP authorization via either a file containing the password or Kerberos V4 using the new map options '-ddistinguished_name', '-Mmethod', and '-Pfilename'. The distinguished_name is who to login as. The method can be one of LDAP_AUTH_NONE, LDAP_AUTH_SIMPLE, or LDAP_AUTH_KRBV4. The filename is the file containing the secret key for LDAP_AUTH_SIMPLE or the name of the Kerberos ticket file for LDAP_AUTH_KRBV4. Patch from Booker Bense of Stanford University. The ldapx map has been renamed to ldap. The use of ldapx is deprecated and will be removed in a future version. If the result of an LDAP search returns a multi-valued attribute and the map has the column delimiter set, it turns that response into a delimiter separated string. The LDAP map will traverse multiple entries as well. LDAP alias maps automatically set the column delimiter to the comma. Based on patch from Booker Bense of Stanford University and idea from Philip A. Prindeville of Mirapoint, Inc. Support return of multiple values for a single LDAP lookup. The values to be returned should be in a comma separated string. For example, `-v "email,emailother"'. Patch from Curtis W. Hillegas of Princeton University. Allow the use of LDAP for alias maps. If no LDAP attributes are specified in an LDAP map declaration, all attributes found in the match will be returned. Prevent commas in quoted strings in the AliasFile value from breaking up a single entry into multiple entries. This is needed for LDAP alias file specifications to allow for comma separated key and value strings. Keep connections to LDAP server open instead of opening and closing for each lookup. To reduce overhead, sendmail will cache connections such that multiple maps which use the same host, port, bind DN, and authentication will only result in a single connection to that host. Put timeout in the proper place for USE_LDAP_INIT. Be more careful about checking for errors and freeing memory on LDAP lookups. Use asynchronous LDAP searches to save memory and network resources. Do not copy LDAP query results if the map's match only flag is set. Increase portability to the Netscape LDAP libraries. Change the parsing of the LDAP filter specification. '%s' is still replaced with the literal contents of the map lookup key -- note that this means a lookup can be done using the LDAP special characters. The new '%0' token can be used instead of '%s' to encode the key buffer according to RFC 2254. For example, if the LDAP map specification contains '-k "(user=%s)"' and a lookup is done on "*", this would be equivalent to '-k "(user=*)"' -- matching ANY record with a user attribute. Instead, if the LDAP map specification contains '-k "(user=%0)"' and a lookup is done on "*", this would be equivalent to '-k "(user=\2A)"' -- matching a user with the name "*". New LDAP map flags: "-1" requires a single match to be returned, if more than one is returned, it is equivalent to no records being found; "-r never|always|search|find" sets the LDAP alias dereference option; "-Z size" limits the number of matches to return. New option LDAPDefaultSpec allows a default map specification for LDAP maps. The value should only contain LDAP specific settings such as "-h host -p port -d bindDN", etc. The settings will be used for all LDAP maps unless they are specified in the individual map specification ('K' command). This option should be set before any LDAP maps are defined. Prevent an NDBM alias file opening loop when the NDBM open continually fails. Fix from Roy J. Mongiovi of Georgia Tech. Reduce memory utilization for smaller symbol table entries. In particular, class entries get much smaller, which can be important if you have large classes. On network-related temporary failures, record the hostname which gave error in the queued status message. Requested by Ulrich Windl of the Universitat Regensburg. Add new F=% mailer flag to allow for a store and forward configuration. Mailers which have this flag will not attempt delivery on initial receipt of a message or on queue runs unless the queued message is selected using one of the -qI/-qR/-qS queue run modifiers or an ETRN request. Code provided by Philip Guenther of Gustavus Adolphus College. New option ControlSocketName which, when set, creates a daemon control socket. This socket allows an external program to control and query status from the running sendmail daemon via a named socket, similar to the ctlinnd interface to the INN news server. Access to this interface is controlled by the UNIX file permissions on the named socket on most UNIX systems (see sendmail/README for more information). An example control program is provided as contrib/smcontrol.pl. Change the default values of QueueLA from 8 to (8 * numproc) and RefuseLA from 12 to (12 * numproc) where numproc is the number of processors online on the system (if that can be determined). For single processor machines, this change has no effect. Don't return body of message to postmaster on "Too many hops" bounces. Based on fix from Motonori Nakamura of Kyoto University. Give more detailed DSN descriptions for some cases. Patch from Motonori Nakamura of Kyoto University. Logging of alias, forward file, and UserDB expansion now happens at LogLevel 11 or higher instead of 10 or higher. Logging of an envelope's complete delivery (the "done" message) now happens at LogLevel 10 or higher instead of 11 or higher. Logging of TCP/IP or UNIX standard input connections now happens at LogLevel 10 or higher. Previously, only TCP/IP connections were logged, and on at LogLevel 12 or higher. Setting LogLevel to 10 will now assist users in tracking frequent connection-based denial of service attacks. Log basic information about authenticated connections at LogLevel 10 or higher. Log SMTP Authentication mechanism and author when logging the sender information (from= syslog line). Log the DSN code for each recipient if one is available as a new equate (dsn=). Macro expand PostmasterCopy and DoubleBounceAddress options. New "ph" map for performing ph queries in rulesets, see sendmail/README for details. Contributed by Mark Roth of the University of Illinois at Urbana-Champaign. Detect temporary lookup failures in the host map if looking up a bracketed IP address. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Do not report a Remote-MTA on local deliveries. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. When a forward file points to an alias which runs a program, run the program as the default user and the default group, not the forward file user. This change also assures the :include: directives in aliases are also processed using the default user and group. Problem noted by Sergiu Popovici of DNT Romania. Prevent attempts to save a dead.letter file for a user with no home directory (/no/such/directory). Problem noted by Michael Brown of Finnigan FT/MS. Include message delay and number of tries when logging that a message has been completely delivered (LogLevel of 10 or above). Suggested by Nick Hilliard of Ireland Online. Log the sender of a message even if none of the recipients were accepted. If some of the recipients were rejected, it is helpful to know the sender of the message. Check the root directory (/) when checking a path for safety. Problem noted by John Beck of Sun Microsystems. Prevent multiple responses to the DATA command if DeliveryMode is interactive and delivering to an alias which resolves to multiple files. Macros in the helpfile are expanded if the helpfile version is 2 or greater (see below); the help function doesn't print the version of sendmail any longer, instead it is placed in the helpfile ($v). Suggested by Chuck Foster of UUNET PIPEX. Additionally, comment lines (starting with #) are skipped and a version line (#vers) is introduced. The helpfile version for 8.10.0 is 2, if no version or an older version is found, a warning is logged. The '#vers' directive should be placed at the top of the help file. Use fsync() when delivering to a file to guarantee the delivery to disk succeeded. Suggested by Nick Christenson. If delivery to a file is unsuccessful, truncate the file back to its length before the attempt. If a forward points to a filename for delivery, change to the user's uid before checking permissions on the file. This allows delivery to files on NFS mounted directories where root is remapped to nobody. Problem noted by Harald Daeubler of Universitaet Ulm. purgestat and sendmail -bH purge only expired (Timeout.hoststatus) host status files, not all files. Any macros stored in the class $={persistentMacros} will be saved in the queue file for the message and set when delivery is attempted on the queued item. Suggested by Kyle Jones of Wonderworks Inc. Add support for storing information between rulesets using the new macro map class. This can be used to store information between queue runs as well using $={persistentMacros}. Based on an idea from Jan Krueger of Unix-AG of University of Hannover. New map class arith to allow for computations in rules. The operation (+, -, *, /, l (for less than), and =) is given as key. The two operands are specified as arguments; the lookup returns the result of the computation. For example, "$(arith l $@ 4 $@ 2 $)" will return "FALSE" and "$(arith + $@ 4 $@ 2 $)" will return "6". Add new syntax for header declarations which decide whether to include the header based on a macro rather than a mailer flag: H?${MyMacro}?X-My-Header: ${MyMacro} This should be used along with $={persistentMacros}. It can be used for adding headers to a message based on the results of check_* and header check rulesets. Allow new named config file rule check_eoh which is called after all of the headers have been collected. The input to the ruleset the number of headers and the size of all of the headers in bytes separated by $|. This ruleset along with the macro storage map can be used to correlate information gathered between headers and to check for missing headers. See cf/README or doc/op/op.ps for an example. Change the default for the MeToo option to True to correspond to the clarification in the DRUMS SMTP Update spec. This option is deprecated and will be removed from a future version. Change the sendmail binary default for SendMimeErrors to True. Change the sendmail binary default for SuperSafe to True. Display ruleset names in debug and address test mode output if referencing a named ruleset. New mailer equate m= which will limit the number of messages delivered per connection on an SMTP or LMTP mailer. Improve QueueSortOrder=Host by reversing the hostname before using it to sort. Now all the same domains are really run through the queue together. If they have the same MX host, then they will have a much better opportunity to use the connection cache if available. This should be a reasonable performance improvement. Patch from Randall Winchester of the University of Maryland. If a message is rejected by a header check ruleset, log who would have received the message if it had not been rejected. New "now" value for Timeout.queuereturn to bounce entries from the queue immediately. No delivery attempt is made. Increase sleeping time exponentially after too many "bad" commands up to 4 minutes delay (compare MAX{BAD,NOOP,HELO,VRFY,ETRN}- COMMANDS). New option ClientPortOptions similar to DaemonPortOptions but for outgoing connections. New suboptions for DaemonPortOptions: Name (a name used for error messages and logging) and Modifiers, i.e. a require authentication b bind to interface through which mail has been received c perform hostname canonification f require fully qualified hostname h use name of interface for outgoing HELO command C don't perform hostname canonification E disallow ETRN (see RFC 2476) New suboption for ClientPortOptions: Modifiers, i.e. h use name of interface for HELO command The version number for queue files (qf) has been incremented to 4. Log unacceptable HELO/EHLO domain name attempts if LogLevel is set to 10 or higher. Suggested by Rick Troxel of the National Institutes of Health. If a mailer dies, print the status in decimal instead of octal format. Suggested by Michael Shapiro of Sun Microsystems. Limit the length of all MX records considered for delivery to 8k. Move message priority from sender to recipient logging. Suggested by Ulrich Windl of the Universitat Regensburg. Add support for Berkeley DB 3.X. Add fix for Berkeley DB 2.X fcntl() locking race condition. Requires a post-2.7.5 version of Berkeley DB. Support writing traffic log (sendmail -X option) to a FIFO. Patch submitted by Rick Heaton of Network Associates, Inc. Do not ignore Timeout settings in the .cf file when a Timeout sub-options is set on the command line. Problem noted by Graeme Hewson of Oracle. Randomize equal preference MX records each time delivery is attempted via a new connection to a host instead of once per session. Suggested by Scott Salvidio of Compaq. Implement enhanced status codes as defined by RFC 2034. Add [hostname] to class w for the names of all interfaces unless DontProbeInterfaces is set. This is useful for sending mails to hosts which have dynamically assigned names. If a message is bounced due to bad MIME conformance, avoid bouncing the bounce for the same reason. If the body is not 8-bit clean, and EightBitMode isn't set to pass8, the body will not be included in the bounce. Problem noted by Valdis Kletnieks of Virginia Tech. The timeout for sending a message via SMTP has been changed from '${msgsize} / 16 + (${nrcpts} * 300)' to a timeout which simply checks for progress on sending data every 5 minutes. This will detect the inability to send information quicker and reduce the number of processes simply waiting to timeout. Prevent a segmentation fault on systems which give a partial filled interface address structure when loading the system network interface addresses. Fix from Reinier Bezuidenhout of Nanoteq. Add a compile-time configuration macro, MAXINTERFACES, which indicates the number of interfaces to read when probing for hostnames and IP addresses for class w ($=w). The default value is 512. Based on idea from Reinier Bezuidenhout of Nanoteq. If the RefuseLA option is set to 0, do not reject connections based on load average. Allow ruleset 0 to have a name. Problem noted by Neil Rickert of Northern Illinois University. Expand the Return-Path: header at delivery time, after "owner-" envelope splitting has occurred. Don't try to sort the queue if there are no entries. Patch from Luke Mewburn from RMIT University. Add a "/quit" command to address test mode. Include the proper sender in the UNIX "From " line and Return-Path: header when undeliverable mail is saved to ~/dead.letter. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. The contents of a class can now be copied to another class using the syntax: "C{Dest} $={Source}". This would copy all of the items in class $={Source} into the class $={Dest}. Include original envelope's error transcript in bounces created for split (owner-) envelopes to see the original errors when the recipients were added. Based on fix from Motonori Nakamura of Kyoto University. Show reason for permanent delivery errors directly after the addresses. From Motonori Nakamura of Kyoto University. Prevent a segmentation fault when bouncing a split-envelope message. Patch from Motonori Nakamura of Kyoto University. If the specification for the queue run interval (-q###) has a syntax error, consider the error fatal and exit. Pay attention to CheckpointInterval during LMTP delivery. Problem noted by Motonori Nakamura of Kyoto University. On operating systems which have setlogin(2), use it to set the login name to the RunAsUserName when starting as a daemon. This is for delivery to programs which use getlogin(). Based on fix from Motonori Nakamura of Kyoto University. Differentiate between "command not implemented" and "command unrecognized" in the SMTP dialogue. Strip returns from forward and include files. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. Prevent a core dump when using 'sendmail -bv' on an address which resolves to the $#error mailer with a temporary failure. Based on fix from Neil Rickert of Northern Illinois University. Prevent multiple deliveries of a message with a "non-local alias" pointing to a local user, if canonicalization fails the message was requeued *and* delivered to the alias. If an invalid ruleset is declared, the ruleset name could be ignored and its rules added to S0. Instead, ignore the ruleset lines as well. Avoid incorrect Final-Recipient, Action, and X-Actual-Recipient success DSN fields as well as duplicate entries for a single address due to S5 and UserDB processing. Problems noted by Kari Hurtta of the Finnish Meteorological Institute. Turn off timeouts when exiting sendmail due to an interrupt signal to prevent the timeout from firing during the exit process. Problem noted by Michael Shapiro of Sun Microsystems. Do not append @MyHostName to non-RFC822 addresses output by the EXPN command or on Final-Recipient: and X-Actual-Recipient: DSN headers. Non-RFC822 addresses include deliveries to programs, file, DECnet, etc. Fix logic for determining if a local user is using -f or -bs to spoof their return address. Based on idea from Neil Rickert of Northern Illinois University and patch from Per Hedeland of Ericsson. Report the proper UID in the bounce message if an :include: file is owned by a uid that doesn't map to a username and the :include: file contains delivery to a file or program. Problem noted by John Beck of Sun Microsystems. Avoid the attempt of trying to send a second SMTP QUIT command if the remote server responds to the first QUIT with a 4xx response code and drops the connection. This behavior was noted by Ulrich Windl of the Universitat Regensburg when sendmail was talking to the Mercury 1.43 MTA. If a hostname lookup times out and ServiceSwitchFile is set but the file is not present, the lookup failure would be marked as a permanent failure instead of a temporary failure. Fix from Russell King of the ARM Linux Project. Handle aliases or forwards which deliver to programs using tabs instead of spaces between arguments. Problem noted by Randy Wormser. Fix from Neil Rickert of Northern Illinois University. Allow MaxRecipientsPerMessage option to be set on the command line by normal users (e.g., sendmail won't drop its root privileges) to allow overrides for message submission via 'sendmail -bs'. Set the names for help file and statistics file to "helpfile" and "statistics", respectively, if no parameters are given for them in the .cf file. Avoid bogus 'errbody: I/O Error -7' log messages when sending success DSN messages for messages relayed to non-DSN aware systems. Problem noted by Juergen Georgi of RUS University of Stuttgart and Kyle Tucker of Parexel International. Prevent +detail information from interfering with local delivery to multiple users in the same transaction (F=m). Add H_FORCE flag for the X-Authentication-Warning: header, so it will be added even if one already exists. Problem noted by Michal Zalewski of Marchew Industries. Stop processing SMTP commands if the SMTP connection is dropped. This prevents a remote system from flooding the connection with commands and then disconnecting. Previously, the server would process all of the buffered commands. Problem noted by Michal Zalewski of Marchew Industries. Properly process user-supplied headers beginning with '?'. Problem noted by Michal Zalewski of Marchew Industries. If multiple header checks resolve to the $#error mailer, use the last permanent (5XX) failure if any exist. Otherwise, use the last temporary (4XX) failure. RFC 1891 requires "hexchar" in a "xtext" to be upper case. Patch from Ronald F. Guilmette of Infinite Monkeys & Co. Timeout.ident now defaults to 5 seconds instead of 30 seconds to prevent the now common delays associated with mailing to a site which drops IDENT packets. Suggested by many. Persistent host status data is not reloaded disk when current data is available in the in-memory cache. Problem noted by Per Hedeland of Ericsson. mailq displays unprintable characters in addresses as their octal representation and a leading backslash. This avoids problems with "unprintable" characters. Problem noted by Michal Zalewski of the "Internet for Schools" project (IdS). The mail line length limit (L= equate) was adding the '!' indicator one character past the limit. This would cause subsequent hops to break the line again. The '!' is now placed in the last column of the limit if the line needs to be broken. Problem noted by Joe Pruett of Q7 Enterprises. Based on fix from Per Hedeland of Ericsson. If a resolver ANY query is larger than the UDP packet size, the resolver will fall back to TCP. However, some misconfigured firewalls block 53/TCP so the ANY lookup fails whereas an MX or A record might succeed. Therefore, don't fail on ANY queries. If an SMTP recipient is rejected due to syntax errors in the address, do not send an empty postmaster notification DSN to the postmaster. Problem noted by Neil Rickert of Northern Illinois University. Allow '_' and '.' in map names when parsing a sequence map specification. Patch from William Setzer of North Carolina State University. Fix hostname in logging of read timeouts for the QUIT command on cached connections. Problem noted by Neil Rickert of Northern Illinois University. Use a more descriptive entry to log "null" connections, i.e., "host did not issue MAIL/EXPN/VRFY/ETRN during connection". Fix a file descriptor leak in ONEX mode. Portability: Reverse signal handling logic such that sigaction(2) with the SA_RESTART flag is the preferred method and the other signal methods are only tried if SA_RESTART is not available. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. AIX 4.x supports the sa_len member of struct sockaddr. This allows network interface probing to work properly. Fix from David Bronder of the University of Iowa. AIX 4.3 has snprintf() support. Use "PPC" as the architecture name when building under AIX. This will be reflected in the obj.* directory name. Apple Darwin support based on Apple Rhapsody port. Fixed AIX 'make depend' method from Valdis Kletnieks of Virginia Tech. Digital UNIX has uname(2). GNU Hurd updates from Mark Kettenis of the University of Amsterdam. Improved HPUX 11.0 portability. Properly determine the number of CPUs on FreeBSD 2.X, FreeBSD 3.X, HP/UX 10.X and HP/UX 11.X. Remove special IRIX ABI cases from Build script and the OS files. Use the standard 'cc' options used by SGI in building the operating system. Users can override the defaults by setting confCC and confLIBSEARCHPATH appropriately. IRIX nsd map support from Bob Mende of SGI. Minor devtools fixes for IRIX from Bob Mende of SGI. Linux patch for IP_SRCROUTE support from Joerg Dorchain of MW EDV & ELECTRONIC. Linux now uses /usr/sbin for confEBINDIR in the build system. From MATSUURA Takanori of Osaka University. Remove special treatment for Linux PPC in the build system. From MATSUURA Takanori of Osaka University. Motorolla UNIX SYSTEM V/88 Release 4.0 support from Sergey Rusanov of the Republic of Udmurtia. NCR MP-RAS 3.x includes regular expression support. From Tom J. Moore of NCR. NEC EWS-UX/V series settings for _PATH_VENDOR_CF and _PATH_SENDMAILPID from Oota Toshiya of NEC Computers Group Planning Division. Minor NetBSD owner/group tweaks from Ayamura Kikuchi, M.D. NEWS-OS 6.X listed SYSLOG_BUFSIZE as 256 in confENVDEF and 1024 in conf.h. Since confENVDEF would be used, use that value in conf.h. Use NeXT's NETINFO to get domain name. From Gerd Knops of BITart Consulting. Use NeXT's NETINFO for alias and hostname resolution if AUTO_NETINFO_ALIASES and AUTO_NETINFO_HOSTS are defined. Patch from Wilfredo Sanchez of Apple Computer, Inc. NeXT portability tweaks. Problems reported by Dragan Milicic of the University of Utah and J. P. McCann of E I A. New compile flag FAST_PID_RECYCLE: set this if your system can reuse the same PID in the same second. New compile flag HASFCHOWN: set this if your OS has fchown(2). New compile flag HASRANDOM: set this to 0 if your OS does not have random(3). rand() will be used instead. New compile flag HASSRANDOMDEV: set this if your OS has srandomdev(3). New compile flag HASSETLOGIN: set this if your OS has setlogin(2). Replace SINIX and ReliantUNIX support with version specific SINIX files. From Gerald Rinske of Siemens Business Services. Use the 60-second load average instead of the 5 second load average on Compaq Tru64 UNIX (formerly Digital UNIX). From Chris Teakle of the University of Qld. Use ANSI C by default for Compaq Tru64 UNIX. Suggested by Randall Winchester of Swales Aerospace. Correct setgroups() prototype for Compaq Tru64 UNIX. Problem noted by Randall Winchester of Swales Aerospace. Hitachi 3050R/3050RX and 3500 Workstations running HI-UX/WE2 4.02, 6.10 and 7.10 from Motonori NAKAMURA of Kyoto University. New compile flag NO_GETSERVBYNAME: set this to disable use of getservbyname() on systems which can not lookup a service by name over NIS, such as HI-UX. Patch from Motonori NAKAMURA of Kyoto University. Use devtools/bin/install.sh on SCO 5.x. Problem noted by Sun Wenbing of the China Engineering and Technology Information Network. make depend didn't work properly on UNIXWARE 4.2. Problem noted by Ariel Malik of Netology, Ltd. Use /usr/lbin as confEBINDIR for Compaq Tru64 (Digital UNIX). Set confSTDIO_TYPE to torek for BSD-OS, FreeBSD, NetBSD, and OpenBSD. A recent Compaq Ultrix 4.5 Y2K patch has broken detection of local_hostname_length(). See sendmail/README for more details. Problem noted by Allan E Johannesen of Worcester Polytechnic Institute. CONFIG: Begin using /etc/mail/ for sendmail related files. This affects a large number of files. See cf/README for more details. CONFIG: New macro MAIL_SETTINGS_DIR contains the path (including trailing slash) for the mail settings directory. CONFIG: Increment version number of config file to 9. CONFIG: OSTYPE(`bsdi1.0') and OSTYPE(`bsdi2.0') have been deprecated and may be removed from a future release. BSD/OS users should begin using OSTYPE(`bsdi'). CONFIG: OpenBSD 2.4 installs mail.local non-set-user-ID root. This requires a new OSTYPE(`openbsd'). From Todd C. Miller of Courtesan Consulting. CONFIG: New OSTYPE(`hpux11') for HP/UX 11.X. CONFIG: A syntax error in check_mail would cause fake top-level domains (.BITNET, .DECNET, .FAX, .USENET, and .UUCP) to be improperly rejected as unresolvable. CONFIG: New FEATURE(`dnsbl') takes up to two arguments (name of DNS server, rejection message) and can be included multiple times. CONFIG: New FEATURE(`relay_mail_from') allows relaying if the mail sender is listed as RELAY in the access map (and tagged with From:). CONFIG: Optional tagging of LHS in the access map (Connect:, From:, To:) to enable finer control. CONFIG: New FEATURE(`ldap_routing') implements LDAP address routing. See cf/README for a complete description of the new functionality. CONFIG: New variables for the new sendmail options: confAUTH_MECHANISMS AuthMechanisms confAUTH_OPTIONS AuthOptions confCLIENT_OPTIONS ClientPortOptions confCONTROL_SOCKET_NAME ControlSocketName confDEAD_LETTER_DROP DeadLetterDrop confDEF_AUTH_INFO DefaultAuthInfo confDF_BUFFER_SIZE DataFileBufferSize confLDAP_DEFAULT_SPEC LDAPDefaultSpec confMAX_ALIAS_RECURSION MaxAliasRecursion confMAX_HEADERS_LENGTH MaxHeadersLength confMAX_MIME_HEADER_LENGTH MaxMimeHeaderLength confPID_FILE PidFile confPROCESS_TITLE_PREFIX ProcessTitlePrefix confRRT_IMPLIES_DSN RrtImpliesDsn confTO_CONTROL Timeout.control confTO_RESOLVER_RETRANS Timeout.resolver.retrans confTO_RESOLVER_RETRANS_FIRST Timeout.resolver.retrans.first confTO_RESOLVER_RETRANS_NORMAL Timeout.resolver.retrans.normal confTO_RESOLVER_RETRY Timeout.resolver.retry confTO_RESOLVER_RETRY_FIRST Timeout.resolver.retry.first confTO_RESOLVER_RETRY_NORMAL Timeout.resolver.retry.normal confTRUSTED_USER TrustedUser confXF_BUFFER_SIZE XscriptFileBufferSize CONFIG: confDAEMON_OPTIONS has been replaced by DAEMON_OPTIONS(), which takes the options as argument and can be used multiple times; see cf/README for details. CONFIG: Add a fifth mailer definition to MAILER(`smtp') called "dsmtp". This mail provides on-demand delivery using the F=% mailer flag described above. The "dsmtp" mailer definition uses the new DSMTP_MAILER_ARGS which defaults to "IPC $h". CONFIG: New variables LOCAL_MAILER_MAXMSGS, SMTP_MAILER_MAXMSGS, and RELAY_MAILER_MAXMSGS for setting the m= equate for the local, smtp, and relay mailers respectively. CONFIG: New variable LOCAL_MAILER_DSN_DIAGNOSTIC_CODE for setting the DSN Diagnostic-Code type for the local mailer. The value should be changed with care. CONFIG: FEATURE(`local_lmtp') now sets the DSN Diagnostic-Code type for the local mailer to the proper value of "SMTP". CONFIG: All included maps are no longer optional by default; if there there is a problem with a map, sendmail will complain. CONFIG: Removed root from class E; use EXPOSED_USER(`root') to get the old behavior. Suggested by Joe Pruett of Q7 Enterprises. CONFIG: MASQUERADE_EXCEPTION() defines hosts/subdomains which will not be masqueraded. Proposed by Arne Wichmann of MPI Saarbruecken, Griff Miller of PGS Tensor, Jayme Cox of Broderbund Software Inc. CONFIG: A list of exceptions for FEATURE(`nocanonify') can be specified by CANONIFY_DOMAIN or CANONIFY_DOMAIN_FILE, i.e., a list of domains which are passed to $[ ... $] for canonification. Based on an idea from Neil Rickert of Northern Illinois University. CONFIG: If `canonify_hosts' is specified as parameter for FEATURE(`nocanonify') then addresses which have only a hostname, e.g., , will be canonified. CONFIG: If FEATURE(`nocanonify') is turned on, a trailing dot is nevertheless added to addresses with more than one component in it. CONFIG: Canonification is no longer attempted for any host or domain in class 'P' ($=P). CONFIG: New class for matching virtusertable entries $={VirtHost} that can be populated by VIRTUSER_DOMAIN or VIRTUSER_DOMAIN_FILE. FEATURE(`virtuser_entire_domain') can be used to apply this class also to entire subdomains. Hosts in this class are treated as canonical in SCanonify2, i.e., a trailing dot is added. CONFIG: If VIRTUSER_DOMAIN() or VIRTUSER_DOMAIN_FILE() are used, include $={VirtHost} in $=R (hosts allowed to relay). CONFIG: FEATURE(`generics_entire_domain') can be used to apply the genericstable also to subdomains of $=G. CONFIG: Pass "+detail" as %2 for virtusertable lookups. Patch from Noam Freedman from University of Chicago. CONFIG: Pass "+detail" as %1 for genericstable lookups. Suggested by Raymond S Brand of rsbx.net. CONFIG: Allow @domain in genericstable to override masquerading. Suggested by Owen Duffy from Owen Duffy & Associates. CONFIG: LOCAL_DOMAIN() adds entries to class w. Suggested by Steve Hubert of University of Washington. CONFIG: OSTYPE(`gnuhurd') has been replaced by OSTYPE(`gnu') as GNU is now the canonical system name. From Mark Kettenis of the University of Amsterdam. CONFIG: OSTYPE(`unixware7') updates from Larry Rosenman. CONFIG: Do not include '=' in option expansion if there is no value associated with the option. From Andrew Brown of Graffiti World Wide, Inc. CONFIG: Add MAILER(`qpage') to define a new pager mailer. Contributed by Philip A. Prindeville of Enteka Enterprise Technology Services. CONFIG: MAILER(`cyrus') was not preserving case for mail folder names. Problem noted by Randall Winchester of Swales Aerospace. CONFIG: RELAY_MAILER_FLAGS can be used to define additional flags for the relay mailer. Suggested by Doug Hughes of Auburn University and Brian Candler. CONFIG: LOCAL_MAILER_FLAGS now includes 'P' (Add Return-Path: header) by default. Suggested by Per Hedeland of Ericsson. CONFIG: Use SMART_HOST for bracketed addresses, e.g., user@[host]. Suggested by Kari Hurtta of the Finnish Meteorological Institute. CONFIG: New macro MODIFY_MAILER_FLAGS to tweak *_MAILER_FLAGS; i.e., to set, add, or delete flags. CONFIG: If SMTP AUTH is used then relaying is allowed for any user who authenticated via a "trusted" mechanism, i.e., one that is defined via TRUST_AUTH_MECH(`list of mechanisms'). CONFIG: FEATURE(`delay_checks') delays check_mail and check_relay after check_rcpt and allows for exceptions from the checks. CONFIG: Map declarations have been moved into their associated feature files to allow greater flexibility in use of sequence maps. Suggested by Per Hedeland of Ericsson. CONFIG: New macro LOCAL_MAILER_EOL to override the default end of line string for the local mailer. Requested by Il Oh of Willamette Industries, Inc. CONFIG: Route addresses are stripped, i.e., <@a,@b,@c:user@d> is converted to CONFIG: Reject bogus return address of <@@hostname>, generated by Sun's older, broken configuration files. CONFIG: FEATURE(`nullclient') now provides the full rulesets of a normal configuration, allowing anti-spam checks to be performed. CONFIG: Don't return a permanent error (Relaying denied) if ${client_name} can't be resolved just temporarily. Suggested by Kari Hurtta of the Finnish Meteorological Institute. CONFIG: Change numbered rulesets into named (which still can be accessed by their numbers). CONFIG: FEATURE(`nouucp') takes one parameter: reject or nospecial which describes whether to disallow "!" in the local part of an address. CONFIG: Call Local_localaddr from localaddr (S5) which can be used to rewrite an address from a mailer which has the F=5 flag set. If the ruleset returns a mailer, the appropriate action is taken, otherwise the returned tokens are ignored. CONFIG: cf/ostype/solaris.m4 has been renamed to solaris2.pre5.m4 and cf/ostype/solaris2.m4 is now a copy of solaris2.ml.m4. The latter is kept around for backward compatibility. CONFIG: Allow ":D.S.N:" for mailer/virtusertable "error:" entries, where "D.S.N" is an RFC 1893 compliant error code. CONFIG: Use /usr/lbin as confEBINDIR for Compaq Tru64 (Digital UNIX). CONFIG: Remove second space between username and date in UNIX From_ line. Noted by Allan E Johannesen of Worcester Polytechnic Institute. CONFIG: Make sure all of the mailers have complete T= equates. CONFIG: Extend FEATURE(`local_procmail') so it can now take arguments overriding the mailer program, arguments, and mailer definition flags. This makes it possible to use other programs such as maildrop for local delivery. CONFIG: Emit warning if FEATURE(`local_lmtp') or FEATURE(`local_procmail') is given after MAILER(`local'). Patch from Richard A. Nelson of IBM. CONFIG: Add SMTP Authentication information to Received: header default value (confRECEIVED_HEADER). CONFIG: Remove `l' flag from USENET_MAILER_FLAGS as it is not a local mailer. Problem noted by Per Hedeland of Ericsson. CONTRIB: Added bounce-resender.pl from Brian R. Gaeke of the University of California at Berkeley. CONTRIB: Added domainmap.m4 from Mark D. Roth of the University of Illinois at Urbana-Champaign. CONTRIB: etrn.pl now recognizes bogus host names. Patch from Bruce Barnett of GE's R&D Lab. CONTRIB: Patches for re-mqueue.pl by Graeme Hewson of Oracle Corporation UK. CONTRIB: Added qtool.pl to assist in managing the queues. DEVTOOLS: Prevent user environment variables from interfering with the Build scripts. Problem noted by Ezequiel H. Panepucci of Yale University. DEVTOOLS: 'Build -M' will display the obj.* directory which will be used for building. DEVTOOLS: 'Build -A' will display the architecture that would be used for a fresh build. DEVTOOLS: New variable confRANLIB, set automatically by configure.sh. DEVTOOLS: New variable confRANLIBOPTS for the options to send to ranlib. DEVTOOLS: 'Build -O ' will have the object files build in /obj.*. Suggested by Bryan Costales of Exactis. DEVTOOLS: New variable confNO_MAN_BUILD which will prevent the building of the man pages when defined. Suggested by Bryan Costales. DEVTOOLS: New variables confNO_HELPFILE_INSTALL and confNO_STATISTICS_INSTALL which will prevent the installation of the sendmail helpfile and statistics file respectively. Suggested by Bryan Costales. DEVTOOLS: Recognize ReliantUNIX as SINIX. Patch from Gerald Rinske of Siemens Business Services. DEVTOOLS: New variable confSTDIO_TYPE which defines the type of stdio library. The new buffered file I/O depends on the Torek stdio library. This option can be either portable or torek. DEVTOOLS: New variables confSRCADD and confSMSRCADD which correspond to confOBJADD and confSMOBJADD respectively. They should contain the C source files for the object files listed in confOBJADD and confSMOBJADD. These file names will be passed to the 'make depend' stage of compilation. DEVTOOLS: New program specific variables for each of the programs in the sendmail distribution. Each has the form `conf_prog_ENVDEF', for example, `conf_sendmail_ENVDEF'. The new variables are conf_prog_ENVDEF, conf_prog_LIBS, conf_prog_SRCADD, and conf_prog_OBJADD. DEVTOOLS: Build system redesign. This should have little affect on building the distribution, but documentation on the changes are in devtools/README. DEVTOOLS: Don't allow 'Build -f file' if an object directory already exists. Suggested by Valdis Kletnieks of Virginia Tech. DEVTOOLS: Rename confSRCDIR to confSMSRCDIR since it only identifies the path to the sendmail source directory. confSRCDIR is a new variable which identifies the root of the source directories for all of the programs in the distribution. DEVTOOLS: confSRCDIR and confSMSRCDIR are now determined at Build time. They can both still be overridden by setting the m4 macro. DEVTOOLS: confSBINGRP now defaults to bin instead of kmem. DEVTOOLS: 'Build -Q prefix' uses devtools/Site/prefix.*.m4 for build configurations, and places objects in obj.prefix.*/. Complains as 'Build -f file' does for existing object directories. Suggested by Tom Smith of Digital Equipment Corporation. DEVTOOLS: Setting confINSTALL_RAWMAN will install unformatted manual pages in the directory tree specified by confMANROOTMAN. DEVTOOLS: If formatting the manual pages fails, copy in the preformatted pages from the distribution. The new variable confCOPY specifies the copying program. DEVTOOLS: Defining confFORCE_RMAIL will install rmail without question. Suggested by Terry Lambert of Whistle Communications. DEVTOOLS: confSTFILE and confHFFILE can be used to change the names of the installed statistics and help files, respectively. DEVTOOLS: Remove spaces in `uname -r` output when determining operating system identity. Problem noted by Erik Wachtenheim of Dartmouth College. DEVTOOLS: New variable confLIBSEARCHPATH to specify the paths that will be search for the libraries specified in confLIBSEARCH. Defaults to "/lib /usr/lib /usr/shlib". DEVTOOLS: New variables confSTRIP and confSTRIPOPTS for specifying how to strip binaries. These are used by the new install-strip target. DEVTOOLS: New config file site.post.m4 which is included after the others (if it exists). DEVTOOLS: Change order of LIBS: first product specific libraries then the default ones. MAIL.LOCAL: Will not be installed set-user-ID root. To use mail.local as local delivery agent without LMTP mode, use MODIFY_MAILER_FLAGS(`LOCAL', `+S') to set the S flag. MAIL.LOCAL: Do not reject addresses which would otherwise be accepted by sendmail. Suggested by Neil Rickert of Northern Illinois University. MAIL.LOCAL: New -7 option which causes LMTP mode not to advertise 8BITMIME in the LHLO response. Suggested by Kari Hurtta of the Finnish Meteorological Institute. MAIL.LOCAL: Add support for the maillock() routines by defining MAILLOCK when compiling. Also requires linking with -lmail. Patch from Neil Rickert of Northern Illinois University. MAIL.LOCAL: Create a Content-Length: header if CONTENTLENGTH is defined when compiling. Automatically set for Solaris 2.3 and later. Patch from Neil Rickert of Northern Illinois University. MAIL.LOCAL: Move the initialization of the 'notifybiff' address structure to the beginning of the program. This ensures that the getservbyname() is done before any seteuid to a possibly unauthenticated user. If you are using NIS+ and secure RPC on a Solaris system, this avoids syslog messages such as, "authdes_refresh: keyserv(1m) is unable to encrypt session key." Patch from Neil Rickert of Northern Illinois University. MAIL.LOCAL: Support group writable mail spool files when MAILGID is set to the gid to use (-DMAILGID=6) when compiling. Patch from Neil Rickert of Northern Illinois University. MAIL.LOCAL: When a mail message included lines longer than 2046 characters (in LMTP mode), mail.local split the incoming line up into 2046-character output lines (excluding the newline). If an input line was 2047 characters long (excluding CRLF) and the last character was a '.', mail.local saw it as the end of input, transferred it to the user mailbox and tried to write an `ok' back to sendmail. If the message was much longer, both sendmail and mail.local would deadlock waiting for each other to read what they have written. Problem noted by Peter Jeremy of Alcatel Australia Limited. MAIL.LOCAL: New option -b to return a permanent error instead of a temporary error if a mailbox exceeds quota. Suggested by Neil Rickert of Northern Illinois University. MAIL.LOCAL: The creation of a lockfile is subject to a global timeout to avoid starvation. MAIL.LOCAL: Properly parse addresses with multiple quoted local-parts. Problem noted by Ronald F. Guilmette of Infinite Monkeys & Co. MAIL.LOCAL: NCR MP/RAS 3.X portability from Tom J. Moore of NCR. MAILSTATS: New -p option to invoke program mode in which stats are printed in a machine readable fashion and the stats file is reset. Patch from Kevin Hildebrand of the University of Maryland. MAKEMAP: If running as root, automatically change the ownership of generated maps to the TrustedUser as specified in the sendmail configuration file. MAKEMAP: New -C option to accept an alternate sendmail configuration file to use for finding the TrustedUser option. MAKEMAP: New -u option to dump (unmap) a database. Based on code contributed by Roy Mongiovi of Georgia Tech. MAKEMAP: New -e option to allow empty values. Suggested by Philip A. Prindeville of Enteka Enterprise Technology Services. MAKEMAP: Compile cleanly on 64-bit operating systems. Problem noted by Gerald Rinske of Siemens Business Services. OP.ME: Correctly document interaction between F=S and U= mailer equates. Problem noted by Bob Halley of Internet Engines. OP.ME: Fixup Timeout documentation. From Graeme Hewson of Oracle Corporation UK. OP.ME: The Timeout [r] option was incorrectly listed as "safe" (e.g., sendmail would not drop root privileges if the option was specified on the command line). Problem noted by Todd C. Miller of Courtesan Consulting. PRALIASES: Handle the hash and btree map specifications for Berkeley DB. Patch from Brian J. Coan of the Institute for Global Communications. PRALIASES: Read the sendmail.cf file for the location(s) of the alias file(s) if the -f option is not used. Patch from John Beck of Sun Microsystems. PRALIASES: New -C option to specify an alternate sendmail configuration file to use for finding alias file(s). Patch from John Beck of Sun Microsystems. SMRSH: allow shell commands echo, exec, and exit. Allow command lists using || and &&. Based on patch from Brian J. Coan of the Institute for Global Communications. SMRSH: Update README for the new Build system. From Tim Pierce of RootsWeb Genealogical Data Cooperative. VACATION: Added vacation auto-responder to sendmail distribution. LIBSMDB: Added abstracted database library. Works with Berkeley DB 1.85, Berkeley DB 2.X, Berkeley DB 3.X, and NDBM. Changed Files: The Build script in the various program subdirectories are no longer symbolic links. They are now scripts which execute the actual Build script in devtools/bin. All the manual pages are now written against -man and not -mandoc as they were previously. Add a simple Makefile to every directory so make instead of Build will work (unless parameters are required for Build). New Directories: devtools/M4/UNIX include libmilter libsmdb libsmutil vacation Renamed Directories: BuildTools => devtools src => sendmail Deleted Files: cf/m4/nullrelay.m4 devtools/OS/Linux.ppc devtools/OS/ReliantUNIX devtools/OS/SINIX sendmail/ldap_map.h New Files: INSTALL PGPKEYS cf/cf/generic-linux.cf cf/cf/generic-linux.mc cf/feature/delay_checks.m4 cf/feature/dnsbl.m4 cf/feature/generics_entire_domain.m4 cf/feature/no_default_msa.m4 cf/feature/relay_mail_from.m4 cf/feature/virtuser_entire_domain.m4 cf/mailer/qpage.m4 cf/ostype/bsdi.m4 cf/ostype/hpux11.m4 cf/ostype/openbsd.m4 contrib/bounce-resender.pl contrib/domainmap.m4 contrib/qtool.8 contrib/qtool.pl devtools/M4/depend/AIX.m4 devtools/M4/list.m4 devtools/M4/string.m4 devtools/M4/subst_ext.m4 devtools/M4/switch.m4 devtools/OS/Darwin devtools/OS/GNU devtools/OS/SINIX.5.43 devtools/OS/SINIX.5.44 devtools/OS/m88k devtools/bin/find_in_path.sh mail.local/Makefile mailstats/Makefile makemap/Makefile praliases/Makefile rmail/Makefile sendmail/Makefile sendmail/bf.h sendmail/bf_portable.c sendmail/bf_portable.h sendmail/bf_torek.c sendmail/bf_torek.h sendmail/shmticklib.c sendmail/statusd_shm.h sendmail/timers.c sendmail/timers.h smrsh/Makefile vacation/Makefile Renamed Files: cf/ostype/gnuhurd.m4 => cf/ostype/gnu.m4 sendmail/cdefs.h => include/sendmail/cdefs.h sendmail/sendmail.hf => sendmail/helpfile sendmail/mailstats.h => include/sendmail/mailstats.h sendmail/pathnames.h => include/sendmail/pathnames.h sendmail/safefile.c => libsmutil/safefile.c sendmail/snprintf.c => libsmutil/snprintf.c sendmail/useful.h => include/sendmail/useful.h cf/ostype/solaris2.m4 => cf/ostype/solaris2.pre5.m4 Copied Files: cf/ostype/solaris2.ml.m4 => cf/ostype/solaris2.m4 8.9.3/8.9.3 1999/02/04 SECURITY: Limit message headers to a maximum of 32K bytes (total of all headers in a single message) to prevent a denial of service attack. This limit will be configurable in 8.10. Problem noted by Michal Zalewski of the "Internet for Schools" project (IdS). Prevent segmentation fault on an LDAP lookup if the LDAP map was closed due to an earlier failure. Problem noted by Jeff Wasilko of smoe.org. Fix from Booker Bense of Stanford University and Per Hedeland of Ericsson. Preserve the order of the MIME headers in multipart messages when performing the MIME header length check. This will allow PGP signatures to function properly. Problem noted by Lars Hecking of University College, Cork, Ireland. If ruleset 5 rewrote the local address to an :include: directive, the delivery would fail with an "aliasing/forwarding loop broken" error. Problem noted by Eric C Hagberg of Morgan Stanley. Fix from Per Hedeland of Ericsson. Allow -T to work for bestmx maps. Fix from Aaron Schrab of ExecPC Internet Systems. During the transfer of a message in an SMTP transaction, if a TCP timeout occurs, the message would be properly queued for later retry but the failure would be logged as "Illegal Seek" instead of a timeout. Problem noted by Piotr Kucharski of the Warsaw School of Economics (SGH) and Carles Xavier Munyoz Baldo of CTV Internet. Prevent multiple deliveries on a self-referencing alias if the F=w mailer flag is not set. Problem noted by Murray S. Kucherawy of Concentric Network Corporation and Per Hedeland of Ericsson. Do not strip empty headers but if there is no value and a default is defined in sendmail.cf, use the default. Problem noted by Philip Guenther of Gustavus Adolphus College and Christopher McCrory of Netus, Inc. Don't inherit information about the sender (notably the full name) in SMTP (-bs) mode, since this might be called from inetd. Accept any 3xx reply code in response to DATA command instead of requiring 354. This change will match the wording to be published in the updated SMTP specification from the DRUMS group of the IETF. Portability: AIX 4.2.0 or 4.2.1 may become updated by the fileset bos.rte.net level 4.2.0.2. This introduces the softlink /usr/lib/libbind.a which should not be used. It conflicts with the resolver built into libc.a. "bind" has been removed from the confLIBSEARCH BuildTools variable. Users who have installed BIND 8.X will have to add it back in their site.config.m4 file. Problem noted by Ole Holm Nielsen of the Technical University of Denmark. CRAY TS 10.0.x from Sven Nielsen of San Diego Supercomputer Center. Improved LDAP version 3 integration based on input from Kurt D. Zeilenga of the OpenLDAP Foundation, John Beck of Sun Microsystems, and Booker Bense of Stanford University. Linux doesn't have a standard way to get the timezone between different releases. Back out the change in 8.9.2 and don't attempt to derive a timezone. Problem reported by Igor S. Livshits of the University of Illinois at Urbana-Champaign and Michael Dickens of Tetranet Communications. Reliant UNIX, the new name for SINIX, from Gert-Jan Looy of Siemens/SNI. SunOS 5.8 from John Beck of Sun Microsystems. CONFIG: SCO UnixWare 2.1 and 7.0 need TZ to get the proper timezone. Problem noted by Petr Lampa of Technical University of Brno. CONFIG: Handle <@bestmx-host:user@otherhost> addressing properly when using FEATURE(bestmx_is_local). Patch from Neil W. Rickert of Northern Illinois University. CONFIG: Properly handle source routed and %-hack addresses on hosts which the mailertable remaps to local:. Patch from Neil W. Rickert of Northern Illinois University. CONFIG: Internal fixup of mailertable local: map value. Patch from Larry Parmelee of Cornell University. CONFIG: Only add back +detail from host portion of mailer triplet on local mailer triplets if it was originally +detail. Patch from Neil W. Rickert of Northern Illinois University. CONFIG: The bestmx_is_local checking done in check_rcpt would cause later checks to fail. Patch from Paul J Murphy of MIDS Europe. New Files: BuildTools/OS/CRAYTS.10.0.x BuildTools/OS/ReliantUNIX BuildTools/OS/SunOS.5.8 8.9.2/8.9.2 1998/12/30 SECURITY: Remove five second sleep on accepting daemon connections due to an accept() failure. This sleep could be used for a denial of service attack. Do not silently ignore queue files with names which are too long. Patch from Bryan Costales of InfoBeat, Inc. Do not store failures closing an SMTP session in persistent host status. Reported by Graeme Hewson of Oracle Corporation UK. Allow symbolic link forward files if they are in safe directories. Problem noted by Andreas Schott of the Max Planck Society. Missing columns in a text map could cause a segmentation fault. Fix from David Lee of the University of Durham. Note that for 8.9.X, PrivacyOptions=goaway also includes the noetrn flag. This is scheduled to change in a future version of sendmail. Problem noted by Theo Van Dinter of Chrysalis Symbolic Designa and Alan Brown of Manawatu Internet Services. When trying to do host canonification in a Wildcard MX environment, try an MX lookup of the hostname without the default domain appended. Problem noted by Olaf Seibert of Polderland Language & Speech Technology. Reject SMTP RCPT To: commands with only comments (i.e. 'RCPT TO: (comment)'. Problem noted by Earle Ake of Hassler Communication Systems Technology, Inc. Handle any number of %s in the LDAP filter spec. Patch from Per Hedeland of Ericsson. Clear ldapx open timeouts even if the map open failed to prevent a segmentation fault. Patch from Wayne Knowles of the National Institute of Water & Atmospheric Research Ltd. Do not syslog envelope clone messages when using address verification (-bv). Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Continue to perform queue runs while in daemon mode even if the daemon is rejecting connections due to a disk full condition. Problem noted by JR Oldroyd of TerraNet Internet Services. Include full filename on installation of the sendmail.hf file in case the $HFDIR directory does not exist. Problem noted by Josef Svitak of Montana State University. Close all maps when exiting the process with one exception. Berkeley DB can use internal shared memory locking for its memory pool. Closing a map opened by another process will interfere with the shared memory and locks of the parent process leaving things in a bad state. For Berkeley DB, only close the map if the current process is also the one that opened the map, otherwise only close the map file descriptor. Thanks to Yoseff Francus of Collective Technologies for volunteering his system for extended testing. Avoid null pointer dereference on XDEBUG output for SMTP reply failures. Problem noted by Carlos Canau of EUnet Portugal. On mailq and hoststat listings being piped to another program, such as more, if the pipe closes (i.e., the user quits more), stop sending output and exit. Patch from Allan E Johannesen of Worcester Polytechnic Institute. In accordance with the documentation, LDAP map lookup failures are now considered temporary failures instead of permanent failures unless the -t flag is used in the map definition. Problem noted by Booker Bense of Stanford University and Eric C. Hagberg of Morgan Stanley. Fix by one error reporting on long alias names. Problem noted by H. Paul Hammann of the Missouri Research and Education Network. Fix DontBlameSendmail=IncludeFileInUnsafeDirPath behavior. Problem noted by Barry S. Finkel of Argonne National Laboratory. When automatically converting from 8 bit to quoted printable MIME, be careful not to miss a multi-part boundary if that boundary is preceded by a boundary-like line. Problem noted by Andreas Raschle of Ansid Inc. Fix from Kari Hurtta of the Finnish Meteorological Institute. Avoid bogus reporting of "LMTP tobuf overflow" when the buffer has enough space for the additional address. Problem noted by Steve Cliffe of the University of Wollongong. Fix DontBlameSendmail=FileDeliveryToSymlink behavior. Problem noted by Alex Vorobiev of Swarthmore College. If the check_compat ruleset resolves to the $#discard mailer, discard the current recipient. Unlike check_relay, check_mail, and check_rcpt, the entire envelope is not discarded. Problem noted by RZ D. Rahlfs. Fix from Claus Assmann of Christian-Albrechts-University of Kiel. Avoid segmentation fault when reading ServiceSwitchFile files with bogus formatting. Patch from Kari Hurtta of the Finnish Meteorological Institute. Support Berkeley DB 2.6.4 API change. OP.ME: Pages weren't properly output on duplexed printers. Fix from Matthew Black of CSU Long Beach. Portability: Apple Rhapsody from Wilfredo Sanchez of Apple Computer, Inc. Avoid a clash with IRIX 6.2 getopt.h and the UserDatabase option structure. Problem noted by Ashley M. Kirchner of Photo Craft Laboratories, Inc. Break out IP address to hostname translation for reading network interface addresses into class 'w'. Patch from John Kennedy of Cal State University, Chico. AIX 4.x use -qstrict with -O3 to prevent the optimized from changing the semantics of the compiled program. From Simon Travaglia of the University of Waikato, New Zealand. FreeBSD 2.2.2 and later support setusercontext(). From Peter Wemm of DIALix. FreeBSD 3.x fix from Peter Wemm of DIALix. IRIX 5.x has a syslog buffer size of 512 bytes. From Nao NINOMIYA of Utsunomiya University. IRIX 6.5 64-bit Build support. LDAP Version 3 support from John Beck and Ravi Iyer of Sun Microsystems. Linux does not implement seteuid() properly. From John Kennedy of Cal State University, Chico. Linux timezone type was set improperly. From Takeshi Itoh of Bits Co., Ltd. NCR MP-RAS 3.x needs -lresolv for confLIBS. From Tom J. Moore of NCR. NeXT 4.x correction to man page path. From J. P. McCann of E I A. System V Rel 5.x (a.k.a UnixWare7 w/o BSD-Compatibility Libs) from Paul Gampe of the Asia Pacific Network Information Center. ULTRIX now requires an optimization limit of 970 from Allan E Johannesen of Worcester Polytechnic Institute. Fix extern declaration for sm_dopr(). Fix from Henk van Oers of Algemeen Nederlands Persbureau. CONFIG: Catch @hostname,user@anotherhost.domain as relaying. Problem noted by Mark Rogov of AirMedia, Inc. Fix from Claus Assmann of Christian-Albrechts-University of Kiel. CONFIG: Do not refer to http://maps.vix.com/ on RBL rejections as there are multiple RBL's available and the MAPS RBL may not be the one in use. Suggested by Alan Brown of Manawatu Internet Services. CONFIG: Properly strip route addresses (i.e., @host1:user@host2) when stripping down a recipient address to check for relaying. Patch from Claus Assmann of Christian-Albrechts-University of Kiel and Neil W Rickert of Northern Illinois University. CONFIG: Allow the access database to override RBL lookups. Patch from Claus Assmann of Christian-Albrechts-University of Kiel. CONFIG: UnixWare 7 support from Phillip P. Porch of The Porch Dot Com. CONFIG: Fixed check for deferred delivery mode warning. Patch from Claus Assmann of Christian-Albrechts-University of Kiel and Per Hedeland of Ericsson. CONFIG: If a recipient using % addressing is used, e.g. user%site@othersite, and othersite's MX records are now checked for local hosts if FEATURE(relay_based_on_MX) is used. Problem noted by Alexander Litvin of Lucky Net Ltd. Patch from Alexander Litvin of Lucky Net Ltd and Claus Assmann of Christian-Albrechts-University of Kiel. MAIL.LOCAL: Prevent warning messages from appearing in the LMTP stream. Do not allow more than one response per recipient. MAIL.LOCAL: Handle routed addresses properly when using LMTP. Fix from John Beck of Sun Microsystems. MAIL.LOCAL: Properly check for CRLF when using LMTP. Fix from John Beck of Sun Microsystems. MAIL.LOCAL: Substitute MAILER-DAEMON for the LMTP empty sender in the envelope From header. MAIL.LOCAL: Accept underscores in hostnames in LMTP mode. Problem noted by Glenn A. Malling of Syracuse University. MAILSTATS: Document msgsrej and msgsdis fields in the man page. Problem noted by Richard Wong of Princeton University. MAKEMAP: Build group list so group writable files are allowed with the -s flag. Problem noted by Curt Sampson of Internet Portal Services, Inc. PRALIASES: Automatically handle alias files created without the NULL byte at the end of the key. Patch from John Beck of Sun Microsystems. PRALIASES: Support Berkeley DB 2.6.4 API change. New Files: BuildTools/OS/IRIX64.6.5 BuildTools/OS/UnixWare.5.i386 cf/ostype/unixware7.m4 contrib/smcontrol.pl src/control.c 8.9.1/8.9.1 1998/07/02 If both an OS specific site configuration file and a generic site.config.m4 file existed, only the latter was used instead of both. Problem noted by Geir Johannessen of the Norwegian University of Science and Technology. Fix segmentation fault while converting 8 bit to 7 bit MIME multipart messages by trying to write to an unopened file descriptor. Fix from Kari Hurtta of the Finnish Meteorological Institute. Do not assume Message: and Text: headers indicate the end of the header area when parsing MIME headers. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Setting the confMAN#SRC Build variable would only effect the installation commands. The man pages would still be built with .0 extensions. Problem noted by Bryan Costales of InfoBeat, Inc. Installation of manual pages didn't honor the DESTDIR environment variable. Problem noted by Bryan Costales of InfoBeat, Inc. If the check_relay ruleset resolved to the discard mailer, messages were still delivered. Problem noted by Mirek Luc of NASK. Mail delivery to files would fail with an Operating System Error if sendmail was not running as root, i.e., RunAsUser was set. Problem noted by Leonard N. Zubkoff of Dandelion Digital. Prevent MinQueueAge from interfering from queued items created in the future, i.e., if the system clock was set ahead and then back. Problem noted by Michael Miller of the University of Natal, Pietermaritzburg. Do not advertise ETRN support in ESTMP EHLO reply if noetrn is set in the PrivacyOptions option. Fix from Ted Rule of Flextech TV. Log invalid persistent host status file lines instead of bouncing the message. Problem noted by David Lindes of DaveLtd Enterprises. Move creation of empty sendmail.st file from installation to compilation. Installation may be done from a read-only mount. Fix from Bryan Costales of InfoBeat, Inc. and Ric Anderson of the Oasis Research Center, Inc. Enforce the maximum number of User Database entries limit. Problem noted by Gary Buchanan of Credence Systems Inc. Allow dead.letter files in root's home directory. Problem noted by Anna Ullman of Sun Microsystems. Program deliveries in forward files could be marked unsafe if any directory listed in the ForwardPath option did not exist. Problem noted by Jorg Bielak of Coastal Web Online. Do not trust the length of the address structure returned by gethostbyname(). Problem noted by Chris Evans of Oxford University. If the SIZE= MAIL From: ESMTP parameter is too large, use the 5.3.4 DSN status code instead of 5.2.2. Similarly, for non-local deliveries, if the message is larger than the mailer maximum message size, use 5.3.4 instead of 5.2.3. Suggested by Antony Bowesman of Fujitsu/TeaWARE Mail/MIME System. Portability: Fix the check for an IP address reverse lookup for use in $&{client_name} on 64 bit platforms. From Gilles Gallot of Institut for Development and Resources in Intensive Scientific computing. BSD-OS uses .0 for man page extensions. From Jeff Polk of BSDI. DomainOS detection for Build. Also, version 10.4 and later ship a unistd.h. Fixes from Takanobu Ishimura of PICT Inc. NeXT 4.x uses /usr/lib/man/cat for its man pages. From J. P. McCann of E I A. SCO 4.X and 5.X include NDBM support. From Vlado Potisk of TEMPEST, Ltd. CONFIG: Do not pass spoofed PTR results through resolver for qualification. Problem noted by Michiel Boland of Digital Valley Internet Professionals; fix from Kari Hurtta of the Finnish Meteorological Institute. CONFIG: Do not try to resolve non-DNS hostnames such as UUCP, BITNET, and DECNET addresses for resolvable senders. Problem noted by Alexander Litvin of Lucky Net Ltd. CONFIG: Work around Sun's broken configuration which sends bounce messages as coming from @@hostname instead of <>. LMTP would not accept @@hostname. OP.ME: Corrections to complex sendmail startup script from Rick Troxel of the National Institutes of Health. RMAIL: Do not install rmail by default, require 'make force-install' as this rmail isn't the same as others. Suggested by Kari Hurtta of the Finnish Meteorological Institute. New Files: BuildTools/OS/DomainOS.10.4 8.9.0/8.9.0 1998/05/19 SECURITY: To prevent users from reading files not normally readable, sendmail will no longer open forward, :include:, class, ErrorHeader, or HelpFile files located in unsafe (i.e., group or world writable) directory paths. Sites which need the ability to override security can use the DontBlameSendmail option. See the README file for more information. SECURITY: Problems can occur on poorly managed systems, specifically, if maps or alias files are in world writable directories. This fixes the change added to 8.8.6 to prevent links in these world writable directories. SECURITY: Make sure ServiceSwitchFile option file is not a link if it is in a world writable directory. SECURITY: Never pass a tty to a mailer -- if a mailer can get at the tty it may be able to push bytes back to the senders input. Unfortunately this breaks -v mode. Problem noted by Wietse Venema of the Global Security Analysis Lab at IBM T.J. Watson Research. SECURITY: Empty group list if DontInitGroups is set to true to prevent program deliveries from picking up extra group privileges. Problem reported by Wolfgang Ley of DFN-CERT. SECURITY: The default value for DefaultUser is now set to the uid and gid of the first existing user mailnull, sendmail, or daemon that has a non-zero uid. If none of these exist, sendmail reverts back to the old behavior of using uid 1 and gid 1. This is a security problem for Linux which has chosen that uid and gid for user bin instead of daemon. If DefaultUser is set in the configuration file, that value overrides this default. SECURITY: Since 8.8.7, the check for non-set-user-ID binaries interfered with setting an alternate group id for the RunAsUser option. Problem noted by Randall Winchester of the University of Maryland. Add support for Berkeley DB 2.X. Based on patch from John Kennedy of Cal State University, Chico. Remove support for OLD_NEWDB (pre-1.5 version of Berkeley DB). Users which previously defined OLD_NEWDB=1 must now upgrade to the current version of Berkeley DB. Added support for regular expressions using the new map class regex. From Jan Krueger of Unix-AG of University of Hannover. Support for BIND 8.1.1's hesiod for hesiod maps and hesiod UserDatabases from Randall Winchester of the University of Maryland. Allow any shell for user shell on program deliveries on V1 configurations for backwards compatibility on machines which do not have getusershell(). Fix from John Beck of Sun Microsystems. On operating systems which change the process title by reusing the argument vector memory, sendmail could corrupt memory if the last argument was either "-q" or "-d". Problem noted by Frank Langbein of the University of Stuttgart. Support Local Mail Transfer Protocol (LMTP) between sendmail and mail.local on the F=z flag. Macro-expand the contents of the ErrMsgFile. Previously this was only done if you had magic characters (0x81) to indicate macro expansion. Now $x will be expanded. This means that real dollar signs have to be backslash escaped. TCP Wrappers expects "unknown" in the hostname argument if the reverse DNS lookup for the incoming connection fails. Problem noted by Randy Grimshaw of Syracuse University and Wietse Venema of the Global Security Analysis Lab at IBM T.J. Watson Research. DSN success bounces generated from an invocation of sendmail -t would be sent to both the sender and MAILER-DAEMON. Problem noted by Claus Assmann of Christian-Albrechts-University of Kiel. Avoid "Error 0" messages on delivery mailers which exit with a valid exit value such as EX_NOPERM. Fix from Andreas Luik of ISA Informationssysteme GmbH. Tokenize $&x expansions on right hand side of rules. This eliminates the need to use tricks like $(dequote "" $&{client_name} $) to cause the ${client_name} macro to be properly tokenized. Add the MaxRecipientsPerMessage option: this limits the number of recipients that will be accepted in a single SMTP transaction. After this number is reached, sendmail starts returning "452 Too many recipients" to all RCPT commands. This can be used to limit the number of recipients per envelope (in particular, to discourage use of the server for spamming). Note: a better approach is to restrict relaying entirely. Fixed pointer initialization for LDAP lmap struct, fixed -s option to ldapx map and added timeout for ldap_open call to avoid hanging sendmail in the event of hung LDAP servers. Patch from Booker Bense of Stanford University. Allow multiple -qI, -qR, or -qS queue run limiters. For example, '-qRfoo -qRbar' would deliver mail to recipients with foo or bar in their address. Patch from Allan E Johannesen of Worcester Polytechnic Institute. The bestmx map will now return a list of the MX servers for a host if passed a column delimiter via the -z map flag. This can be used to check if the server is an MX server for the recipient of a message. This can be used to help prevent relaying. Patch from Mitchell Blank Jr of Exec-PC. Mark failures for the *file* mailer and return bounce messages to the sender for those failures. Prevent bogus syslog timestamps on errors in sendmail.cf by preserving the TZ environment variable until TimeZoneSpec has been determined. Problem noted by Ralf Hildebrandt of Technical University of Braunschweig. Patch from Per Hedeland of Ericsson. Print test input in address test mode when input is not from the tty when the -v flag is given (i.e., sendmail -bt -v) to make output easier to decipher. Problem noted by Aidan Nichol of Procter & Gamble. The LDAP map -s flag was not properly parsed and the error message given included the remainder of the arguments instead of solely the argument in error. Problem noted by Aidan Nichol of Procter & Gamble. New DontBlameSendmail option. This option allows administrators to bypass some of sendmail's file security checks at the expense of system security. This should only be used if you are absolutely sure you know the consequences. The available DontBlameSendmail options are: Safe AssumeSafeChown ClassFileInUnsafeDirPath ErrorHeaderInUnsafeDirPath GroupWritableDirPathSafe GroupWritableForwardFileSafe GroupWritableIncludeFileSafe GroupWritableAliasFile HelpFileinUnsafeDirPath WorldWritableAliasFile ForwardFileInGroupWritableDirPath IncludeFileInGroupWritableDirPath ForwardFileInUnsafeDirPath IncludeFileInUnsafeDirPath ForwardFileInUnsafeDirPathSafe IncludeFileInUnsafeDirPathSafe MapInUnsafeDirPath LinkedAliasFileInWritableDir LinkedClassFileInWritableDir LinkedForwardFileInWritableDir LinkedIncludeFileInWritableDir LinkedMapInWritableDir LinkedServiceSwitchFileInWritableDir FileDeliveryToHardLink FileDeliveryToSymLink WriteMapToHardLink WriteMapToSymLink WriteStatsToHardLink WriteStatsToSymLink RunProgramInUnsafeDirPath RunWritableProgram New DontProbeInterfaces option to turn off the inclusion of all the interface names in $=w on startup. In particular, if you have lots of virtual interfaces, this option will speed up startup. However, unless you make other arrangements, mail sent to those addresses will be bounced. Automatically create alias databases if they don't exist and AutoRebuildAliases is set. Add PrivacyOptions=noetrn flag to disable the SMTP ETRN command. Suggested by Christophe Wolfhugel of the Institut Pasteur. Add PrivacyOptions=noverb flag to disable the SMTP VERB command. When determining the client host name ($&{client_name} macro), do a forward (A) DNS lookup on the result of the PTR lookup and compare results. If they differ or if the PTR lookup fails, &{client_name} will contain the IP address surrounded by square brackets (e.g., [127.0.0.1]). New map flag: -Tx appends "x" to lookups that return temporary failure (i.e, it is like -ax for the temporary failure case, in contrast to the success case). New syntax to do limited checking of header syntax. A config line of the form: HHeader: $>Ruleset causes the indicated Ruleset to be invoked on the Header when read. This ruleset works like the check_* rulesets -- that is, it can reject mail on the basis of the contents. Limit the size of the HELO/EHLO parameter to prevent spammers from hiding their connection information in Received: headers. When SingleThreadDelivery is active, deliveries to locked hosts are skipped. This will cause the delivering process to try the next MX host or queue the message if no other MX hosts are available. Suggested by Alexander Litvin. The [FILE] mailer type now delivers to the file specified in the A= equate of the mailer definition instead of $u. It also obeys all of the F= mailer flags such as the MIME 7/8 bit conversion flags. This is useful for defining a mailer which delivers to the same file regardless of the recipient (e.g., 'A=FILE /dev/null' to discard unwanted mail). Do not assume the identity of a remote connection is root@localhost if the remote connection closes the socket before the remote identity can be queried. Change semantics of the F=S mailer flag back to 8.7.5 behavior. Some mailers, including procmail, require that the real uid is left unchanged by sendmail. Problem noted by Per Hedeland of Ericsson. No longer is the src/obj*/Makefile selected from a large list -- it is now generated using the information in BuildTools/OS/ -- some of the details are determined dynamically via BuildTools/bin/configure.sh. The other programs in the sendmail distribution -- mail.local, mailstats, makemap, praliases, rmail, and smrsh -- now use the new Build method which creates an operating system specific Makefile using the information in BuildTools. Make 4xx reply codes to the SMTP MAIL command be non-sticky (i.e., a failure on one message won't affect future messages to the same host). This is necessary if the remote host sends a 451 error if the domain of the sender does not resolve as is common in anti-spam configurations. Problem noted by Mitchell Blank Jr of Exec-PC. New "discard" mailer for check_* rulesets and header checking rulesets. If one of the above rulesets resolves to the $#discard mailer, the commands will be accepted but the message will be completely discarded after it is accepting. This means that even if only one of the recipients resolves to the $#discard mailer, none of the recipients will receive the mail. Suggested by Brian Kantor. All but the last cloned envelope of a split envelope were queued instead of being delivered. Problem noted by John Caruso of CNET: The Computer Network. Fix deadlock situation in persistent host status file locking. Syslog an error if a user forward file could not be read due to an error. Patch from John Beck of Sun Microsystems. Use the first name returned on machine lookups when canonifying a hostname via NetInfo. Patch from Timm Wetzel of GWDG. Clear the $&{client_addr}, $&{client_name}, and $&{client_port} macros when delivering a bounce message to prevent rejection by a check_compat ruleset which uses these macros. Problem noted by Jens Hamisch of AgiX Internetservices GmbH. If the check_relay ruleset resolves to the the error mailer, the error in the $: portion of the resolved triplet is used in the rejection message given to the remote machine. Suggested by Scott Gifford of The Internet Ramp. Set the $&{client_addr}, $&{client_name}, and $&{client_port} macros before calling the check_relay ruleset. Suggested by Scott Gifford of The Internet Ramp. Sendmail would get a segmentation fault if a mailer exited with an exit code of 79. Problem noted by Aaron Schrab of ExecPC Internet. Fix from Christophe Wolfhugel of the Pasteur Institute. Separate snprintf/vsnprintf routines into separate file for use by mail.local. Allow multiple map lookups on right hand side, e.g., R$* $( host $1 $) $| $( passwd $1 $). Patch from Christophe Wolfhugel of the Pasteur Institute. Properly generate success DSN messages if requested for aliases which have owner- aliases. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Properly display delayed-expansion macros ($&{macroname}) in address test mode (-bt). Problem noted by Bryan Costales of InfoBeat, Inc. -qR could sometimes match names incorrectly. Problem noted by Lutz Euler of Lavielle EDV Systemberatung GmbH & Co. Include a magic number and version in the StatusFile for the mailstats command. Record the number of rejected and discarded messages in the StatusFile for display by the mailstats command. Patch from Randall Winchester of the University of Maryland. IDENT returns where the OSTYPE field equals "OTHER" now list the user portion as IDENT:username@site instead of username@site to differentiate the two. Suggested by Kari Hurtta of the Finnish Meteorological Institute. Enforce timeout for LDAP queries. Patch from Per Hedeland of Ericsson. Change persistent host status filename substitution so '/' is replaced by ':' instead of '|' to avoid clashes. Also avoid clashes with hostnames with leading dots. Fix from Mitchell Blank Jr. of Exec-PC. If the system lock table is full, only attempt to create a new queue entry five times before giving up. Previously, it was attempted indefinitely which could cause the partition to run out of inodes. Problem noted by Suzie Weigand of Stratus Computer, Inc. In verbose mode, warn if the sendmail.cf version is less than the currently supported version. Sorting for QueueSortOrder=host is now case insensitive. Patch from Randall S. Winchester of the University of Maryland. Properly quote a full name passed via the -F command line option, the Full-Name: header, or the NAME environment variable if it contains characters which must be quoted. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. Avoid possible race condition that unlocked a mail job before releasing the transcript file on systems that use flock(2). In some cases, this might result in a "Transcript Unavailable" message in error bounces. Accept SMTP replies which contain only a reply code and no accompanying text. Problem noted by Fernando Fraticelli of Digital Equipment Corporation. Portability: AIX 4.1 uses int for SOCKADDR_LEN_T from Motonori Nakamura of Kyoto University. AIX 4.2 requires before . Patch from Randall S. Winchester of the University of Maryland. AIX 4.3 from Valdis Kletnieks of Virginia Tech CNS. CRAY T3E from Manu Mahonen of Center for Scientific Computing in Finland. Digital UNIX now uses statvfs for determining free disk space. Patch from Randall S. Winchester of the University of Maryland. HP-UX 11.x from Richard Allen of Opin Kerfi HF and Regis McEwen of Progress Software Corporation. IRIX 64 bit fixes from Kari Hurtta of the Finnish Meteorological Institute. IRIX 6.2 configuration fix for mail.local from Michael Kyle of CIC/Advanced Computing Laboratory. IRIX 6.5 from Thomas H Jones II of SGI. IRIX 6.X load average code from Bob Mende of SGI. QNX from Glen McCready . SCO 4.2 and 5.x use /usr/bin instead of /usr/ucb for links to sendmail. Install with group bin instead of kmem as kmem does not exist. From Guillermo Freige of Gobernacion de la Pcia de Buenos Aires and Paul Fischer of BTG, Inc. SunOS 4.X does not include memmove(). Patch from Per Hedeland of Ericsson. SunOS 5.7 includes getloadavg() function for determining load average. Patch from John Beck of Sun Microsystems. CONFIG: Increment version number of config file. CONFIG: add DATABASE_MAP_TYPE to set the default type of database map for the various maps. The default is hash. Patch from Robert Harker of Harker Systems. CONFIG: new confEBINDIR m4 variable for defining the executable directory for certain programs. CONFIG: new FEATURE(local_lmtp) to use the new LMTP support for local mail delivery. By the default, /usr/libexec/mail.local is used. This is expected to be the mail.local shipped with 8.9 which is LMTP capable. The path is based on the new confEBINDIR m4 variable. CONFIG: Use confEBINDIR in determining path to smrsh for FEATURE(smrsh). Note that this changes the default from /usr/local/etc/smrsh to /usr/libexec/smrsh. To obtain the old path for smrsh, use FEATURE(smrsh, /usr/local/etc/smrsh). CONFIG: DOMAIN(generic) changes the default confFORWARD_PATH to include $z/.forward.$w+$h and $z/.forward+$h which allow the user to setup different .forward files for user+detail addressing. CONFIG: add confMAX_RCPTS_PER_MESSAGE, confDONT_PROBE_INTERFACES, and confDONT_BLAME_SENDMAIL to set MaxRecipientsPerMessage, DontProbeInterfaces, and DontBlameSendmail options. CONFIG: by default do not allow relaying (that is, accepting mail from outside your domain and sending it to another host outside your domain). CONFIG: new FEATURE(promiscuous_relay) to allow mail relaying from any site to any site. CONFIG: new FEATURE(relay_entire_domain) allows any host in your domain as defined by the 'm' class ($=m) to relay. CONFIG: new FEATURE(relay_based_on_MX) to allow relaying based on the MX records of the host portion of an incoming recipient. CONFIG: new FEATURE(access_db) which turns on the access database feature. This database gives you the ability to allow or refuse to accept mail from specified domains for administrative reasons. By default, names that are listed as "OK" in the access db are domain names, not host names. CONFIG: new confCR_FILE m4 variable for defining the name of the file used for class 'R'. Defaults to /etc/mail/relay-domains. CONFIG: new command RELAY_DOMAIN(domain) and RELAY_DOMAIN_FILE(file) to add items to class 'R' ($=R) for hosts allowed to relay. CONFIG: new FEATURE(relay_hosts_only) to change the behavior of FEATURE(access_db) and class 'R' to lookup individual host names only. CONFIG: new FEATURE(loose_relay_check). Normally, if a recipient using % addressing is used, e.g. user%site@othersite, and othersite is in class 'R', the check_rcpt ruleset will strip @othersite and recheck user@site for relaying. This feature changes that behavior. It should not be needed for most installations. CONFIG: new FEATURE(relay_local_from) to allow relaying if the domain portion of the mail sender is a local host. This should only be used if absolutely necessary as it opens a window for spammers. Patch from Randall S. Winchester of the University of Maryland. CONFIG: new FEATURE(blacklist_recipients) turns on the ability to block incoming mail destined for certain recipient usernames, hostnames, or addresses. CONFIG: By default, MAIL FROM: commands in the SMTP session will be refused if the host part of the argument to MAIL FROM: cannot be located in the host name service (e.g., DNS). CONFIG: new FEATURE(accept_unresolvable_domains) accepts unresolvable hostnames in MAIL FROM: SMTP commands. CONFIG: new FEATURE(accept_unqualified_senders) accepts MAIL FROM: senders which do not include a domain. CONFIG: new FEATURE(rbl) Turns on rejection of hosts found in the Realtime Blackhole List. You can specify the RBL name server to contact by specifying it as an optional argument. The default is rbl.maps.vix.com. For details, see http://maps.vix.com/rbl/. CONFIG: Call Local_check_relay, Local_check_mail, and Local_check_rcpt from check_relay, check_mail, and check_rcpt. Users with local rulesets should place the rules using LOCAL_RULESETS. If a Local_check_* ruleset returns $#OK, the message is accepted. If the ruleset returns a mailer, the appropriate action is taken, else the return of the ruleset is ignored. CONFIG: CYRUS_MAILER_FLAGS now includes the /:| mailer flags by default to support file, :include:, and program deliveries. CONFIG: Remove the default for confDEF_USER_ID so the binary can pick the proper default value. See the SECURITY note above for more information. CONFIG: FEATURE(nodns) now warns the user that the feature is a no-op. Patch from Kari Hurtta of the Finnish Meteorological Institute. CONFIG: OSTYPE(osf1) now sets DefaultUser (confDEF_USER_ID) to daemon since DEC's /bin/mail will drop the envelope sender if run as mailnull. See the Digital UNIX section of src/README for more information. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. CONFIG: .cf files are now stored in the same directory with the .mc files instead of in the obj directory. CONFIG: New options confSINGLE_LINE_FROM_HEADER, confALLOW_BOGUS_HELO, and confMUST_QUOTE_CHARS for setting SingleLineFromHeader, AllowBogusHELO, and MustQuoteChars respectively. MAIL.LOCAL: support -l flag to run LMTP on stdin/stdout. This SMTP-like protocol allows detailed reporting of delivery status on a per-user basis. Code donated by John Myers of CMU (now of Netscape). MAIL.LOCAL: HP-UX support from Randall S. Winchester of the University of Maryland. NOTE: mail.local is not compatible with the stock HP-UX mail format. Be sure to read mail.local/README. MAIL.LOCAL: Prevent other mail delivery agents from stealing a mailbox lock. Patch from Randall S. Winchester of the University of Maryland. MAIL.LOCAL: glibc portability from John Kennedy of Cal State University, Chico. MAIL.LOCAL: IRIX portability from Kari Hurtta of the Finnish Meteorological Institute. MAILSTATS: Display the number of rejected and discarded messages in the StatusFile. Patch from Randall Winchester of the University of Maryland. MAKEMAP: New -s flag to ignore safety checks on database map files such as linked files in world writable directories. MAKEMAP: Add support for Berkeley DB 2.X. Remove OLD_NEWDB support. PRALIASES: Add support for Berkeley DB 2.X. PRALIASES: Do not automatically include NDBM support. Problem noted by Ralf Hildebrandt of the Technical University of Braunschweig. RMAIL: Improve portability for other platforms. Patches from Randall S. Winchester of the University of Maryland and Kari Hurtta of the Finnish Meteorological Institute. Changed Files: src/Makefiles/Makefile.* files have been modified to use the new build mechanism and are now BuildTools/OS/*. src/makesendmail changed to symbolic link to src/Build. New Files: BuildTools/M4/header.m4 BuildTools/M4/depend/BSD.m4 BuildTools/M4/depend/CC-M.m4 BuildTools/M4/depend/NCR.m4 BuildTools/M4/depend/Solaris.m4 BuildTools/M4/depend/X11.m4 BuildTools/M4/depend/generic.m4 BuildTools/OS/AIX.4.2 BuildTools/OS/AIX.4.x BuildTools/OS/CRAYT3E.2.0.x BuildTools/OS/HP-UX.11.x BuildTools/OS/IRIX.6.5 BuildTools/OS/NEXTSTEP.4.x BuildTools/OS/NeXT.4.x BuildTools/OS/NetBSD.8.3 BuildTools/OS/QNX BuildTools/OS/SunOS.5.7 BuildTools/OS/dcosx.1.x.NILE BuildTools/README BuildTools/Site/README BuildTools/bin/Build BuildTools/bin/configure.sh BuildTools/bin/find_m4.sh BuildTools/bin/install.sh Makefile cf/cf/Build cf/cf/generic-hpux10.cf cf/feature/accept_unqualified_senders.m4 cf/feature/accept_unresolvable_domains.m4 cf/feature/access_db.m4 cf/feature/blacklist_recipients.m4 cf/feature/loose_relay_check.m4 cf/feature/local_lmtp.m4 cf/feature/promiscuous_relay.m4 cf/feature/rbl.m4 cf/feature/relay_based_on_MX.m4 cf/feature/relay_entire_domain.m4 cf/feature/relay_hosts_only.m4 cf/feature/relay_local_from.m4 cf/ostype/qnx.m4 contrib/doublebounce.pl mail.local/Build mail.local/Makefile.m4 mail.local/README mailstats/Build mailstats/Makefile.m4 makemap/Build makemap/Makefile.m4 praliases/Build praliases/Makefile.m4 rmail/Build rmail/Makefile.m4 rmail/rmail.0 smrsh/Build smrsh/Makefile.m4 src/Build src/Makefile.m4 src/snprintf.c Deleted Files: cf/cf/Makefile (replaced by Makefile.dist) mail.local/Makefile mail.local/Makefile.dist mailstats/Makefile mailstats/Makefile.dist makemap/Makefile makemap/Makefile.dist praliases/Makefile praliases/Makefile.dist rmail/Makefile smrsh/Makefile smrsh/Makefile.dist src/Makefile src/Makefiles/Makefile.AIX.4 (split into AIX.4.x and AIX.4.2) src/Makefiles/Makefile.SMP_DC.OSx.NILE (renamed BuildTools/OS/dcosx.1.x.NILE) src/Makefiles/Makefile.Utah (obsolete platform) Renamed Files: READ_ME => README cf/cf/Makefile.dist => Makefile cf/cf/obj/* => cf/cf/* src/READ_ME => src/README 8.8.8/8.8.8 1997/10/24 If the check_relay ruleset failed, the relay= field was logged incorrectly. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. If /usr/tmp/dead.letter already existed, sendmail could not add additional bounces to it. Problem noted by Thomas J. Arseneault of SRI International. If an SMTP mailer used a non-standard port number for the outgoing connection, it would be displayed incorrectly in verbose mode. Problem noted by John Kennedy of Cal State University, Chico. Log the ETRN parameter specified by the client before altering them to internal form. Suggested by Bob Kupiec of GES-Verio. EXPN and VRFY SMTP commands on malformed addresses were logging as User unknown with bogus delay= values. Change them to log the same as compliant addresses. Problem noted by Kari E. Hurtta of the Finnish Meteorological Institute. Ignore the debug resolver option unless using sendmail debug trace option for resolver. Problem noted by Greg Nichols of Wind River Systems. If SingleThreadDelivery was enabled and the remote server returned a protocol error on the DATA command, the connection would be closed but the persistent host status file would not be unlocked so other sendmail processes could not deliver to that host. Problem noted by Peter Wemm of DIALix. If queueing up a message due to an expensive mailer, don't increment the number of delivery attempts or set the last delivery attempt time so the message will be delivered on the next queue run regardless of MinQueueAge. Problem noted by Brian J. Coan of the Institute for Global Communications. Authentication warnings of "Processed from queue _directory_" and "Processed by _username_ with -C _filename_" would be logged with the incorrect timestamp. Problem noted by Kari E. Hurtta of the Finnish Meteorological Institute. Use a better heuristic for detecting GDBM. Log null connections on dropped connections. Problem noted by Jon Lewis of Florida Digital Turnpike. If class dbm maps are rebuilt, sendmail will now detect this and reopen the map. Previously, they could give stale results during a single message processing (but would recover when the next message was received). Fix from Joe Pruett of Q7 Enterprises. Do not log failures such as "User unknown" on -bv or SMTP VRFY requests. Problem noted by Kari E. Hurtta of the Finnish Meteorological Institute. Do not send a bounce message back to the sender regarding bad recipients if the SMTP connection is dropped before the message is accepted. Problem noted by Kari E. Hurtta of the Finnish Meteorological Institute. Use "localhost" instead of "[UNIX: localhost]" when connecting to sendmail via a UNIX pipe. This will allow rulesets using $&{client_name} to process without sending the string through dequote. Problem noted by Alan Barrett of Internet Africa. A combination of deferred delivery mode, a double bounce situation, and the inability to save a bounce message to /var/tmp/dead.letter would cause sendmail to send a bounce to postmaster but not remove the offending envelope from the queue causing it to create a new bounce message each time the queue was run. Problem noted by Brad Doctor of Net Daemons Associates. Remove newlines from hostname information returned via DNS. There are no known security implications of newlines in hostnames as sendmail filters newlines in all vital areas; however, this could cause confusing error messages. Starting with sendmail 8.8.6, mail sent with the '-t' option would be rejected if any of the specified addresses were bad. This behavior was modified to only reject the bad addresses and not the entire message. Problem noted by Jozsef Hollosi of SuperNet, Inc. Use Timeout.fileopen when delivering mail to a file. Suggested by Bryan Costales of InfoBeat, Inc. Display the proper Final-Recipient on DSN messages for non-SMTP mailers. Problem noted by Kari E. Hurtta of the Finnish Meteorological Institute. An error in calculating the available space in the list of addresses for logging deliveries could cause an address to be silently dropped. Include the initial user environment if sendmail is restarted via a HUP signal. This will give room for the process title. Problem noted by Jon Lewis of Florida Digital Turnpike. Mail could be delivered without a body if the machine does not support flock locking and runs out of processes during delivery. Fix from Chuck Lever of the University of Michigan. Drop recipient address from 251 and 551 SMTP responses per RFC 821. Problem noted by Kari E. Hurtta of the Finnish Meteorological Institute. Make sure non-rebuildable database maps are opened before the rebuildable maps (i.e., alias files) in case the database maps are needed for verifying the left hand side of the aliases. Problem noted by Lloyd Parkes of Victoria University. Make sure sender RFC822 source route addresses are alias expanded for bounce messages. Problem noted by Juergen Georgi of RUS University of Stuttgart. Minor lint fixes. Return a temporary error instead of a permanent error if an LDAP map search returns an error. This will allow sequenced maps which use other LDAP servers to be checked. Fix from Booker Bense of Stanford University. When automatically converting from quoted printable to 8bit text do not pad bare linefeeds with a space. Problem noted by Theo Nolte of the University of Technology Aachen, Germany. Portability: Non-standard C compilers may have had a problem compiling conf.c due to a standard C external declaration of setproctitle(). Problem noted by Ted Roberts of Electronic Data Systems. AUX: has a broken O_EXCL implementation. Reported by Jim Jagielski of jaguNET Access Services. BSD/OS: didn't compile if HASSETUSERCONTEXT was defined. Digital UNIX: Digital UNIX (and possibly others) moves loader environment variables into the loader memory area. If one of these environment variables (such as LD_LIBRARY_PATH) was the last environment variable, an invalid memory address would be used by the process title routine causing memory corruption. Problem noted by Sam Hartman of Mesa Internet Systems. GNU libc: uses an enum for _PC_CHOWN_RESTRICTED which caused chownsafe() to always return 0 even if the OS does not permit file giveaways. Problem noted by Yasutaka Sumi of The University of Tokyo. IRIX6: Syslog buffer size set to 512 bytes. Reported by Gerald Rinske of Siemens Business Services VAS. Linux: Pad process title with NULLs. Problem noted by Jon Lewis of Florida Digital Turnpike. SCO OpenServer 5.0: SIOCGIFCONF ioctl call returns an incorrect value for the number of interfaces. Problem noted by Chris Loelke of JetStream Internet Services. SINIX: Update for Makefile and syslog buffer size from Gerald Rinske of Siemens Business Services VAS. Solaris: Make sure HASGETUSERSHELL setting for SunOS is not used on a Solaris machine. Problem noted by Stephen Ma of Jtec Pty Limited. CONFIG: SINIX: Update from Gerald Rinske of Siemens Business Services VAS. MAKEMAP: Use a better heuristic for detecting GDBM. CONTRIB: expn.pl: Updated version from the author, David Muir Sharnoff. OP.ME: Document the F=i mailer flag. Problem noted by Per Hedeland of Ericsson. 8.8.7/8.8.7 1997/08/03 If using Berkeley DB on systems without O_EXLOCK (open a file with an exclusive lock already set -- i.e., almost all systems except 4.4-BSD derived systems), the initial attempt at rebuilding aliases file if the database didn't already exist would fail. Patch from Raymund Will of LST Software GmbH. Bogus incoming SMTP commands would reset the SMTP conversation. Problem noted by Fredrik Jnsson of the Royal Institute of Technology, Stockholm. Since TCP Wrappers includes setenv(), unsetenv(), and putenv(), some environments could give "multiple definitions" for these routines during compilation. If using TCP Wrappers, assume that these routines are included as though they were in the C library. Patch from Robert La Ferla. When a NEWDB database map was rebuilt at the same time it was being used by a queue run, the maps could be left locked for the duration of the queue run, causing other processes to hang. Problem noted by Kendall Libby of Shore.NET. In some cases, NoRecipientAction=add-bcc was being ignored, so the mail was passed on without any recipient header. This could cause problems downstream. Problem noted by Xander Jansen of SURFnet ExpertiseCentrum. Give error when GDBM is used with sendmail. GDBM's locking and linking of the .dir and .pag files interferes with sendmail's locking and security checks. Problems noted by Fyodor Yarochkin of the Kyrgyz Republic FreeNet. Don't fsync qf files if SuperSafe option is not set. Avoid extra calls to gethostbyname for addresses for which a gethostbyaddr found no value. Also, ignore any returns from gethostbyaddr that look like a dotted quad. If PTR lookup fails when looking up an SMTP peer, don't tag it as "may be forged", since at the network level we pretty much have to assume that the information is good. In some cases, errors during an SMTP session could leave files open or locked. Better handling of missing file descriptors (0, 1, 2) on startup. Better handling of non-set-user-ID binaries -- avoids certain obnoxious errors during testing. Errors in file locking of NEWDB maps had the incorrect file name printed in the error message. If the AllowBogusHELO option were set and an EHLO with a bad or missing parameter were issued, the EHLO behaved like a HELO. Load limiting never kicked in for incoming SMTP transactions if the DeliveryMode=background and any recipient was an alias or had a .forward file. From Nik Conwell of Boston University. On some non-Posix systems, the decision of whether chown(2) permits file giveaway was undefined. From Tetsu Ushijima of the Tokyo Institute of Technology. Fix race condition that could cause the body of a message to be lost (so only the header was delivered). This only occurs on systems that do not use flock(2), and only when a queue runner runs during a critical section in another message delivery. Based on a patch from Steve Schweinhart of Results Computing. If a qf file was found in a mail queue directory that had a problem (wrong ownership, bad format, etc.) and the file name was exactly MAXQFNAME bytes long, then instead of being tried once, it would be tried on every queue run. Problem noted by Bryan Costales of Mercury Mail. If the system supports an st_gen field in the status structure, include it when reporting that a file has changed after open. This adds a new compile flag, HAS_ST_GEN (0/1 option). This out to be checked as well as reported, since it is theoretically possible for an attacker to remove a file after it is opened and replace it with another file that has the same i-number, but some filesystems (notably AFS) return garbage in this field, and hence always look like the file has changed. As a practical matter this is not a security problem, since the files can be neither hard nor soft links, and on no filesystem (that I am aware of) is it possible to have two files on the same filesystem with the same i-number simultaneously. Delete the root Makefile from the distribution -- it is only for use internally, and does not work at customer sites. Fix botch that caused the second MAIL FROM: command in a single transaction to clear the entire transaction. Problem noted by John Kennedy of Cal State University, Chico. Work properly on machines that have _PATH_VARTMP defined without a trailing slash. (And a pox on vendors that decide to ignore the established conventions!) Problem noted by Gregory Neil Shapiro of WPI. Internal changes to make it easier to add another protocol family (intended for IPv6). Patches are from John Kennedy of CSU Chico. In certain cases, 7->8 bit MIME decoding of Base64 text could leave an extra space at the beginning of some lines. Problem noted by Charles Karney of Princeton University; fix based on a patch from Christophe Wolfhugel. Portability: Allow _PATH_VENDOR_CF to be set in Makefile for consistency with the _Sendmail_ book, 2nd edition. Note that the book is actually wrong: _PATH_SENDMAILCF should be used instead. AIX 3.x: Include . Patch from Gene Rackow of Argonne National Laboratory. OpenBSD from from Paul DuBois of the University of Wisconsin. RISC/os 4.0 from Paul DuBois of the University of Wisconsin. SunOS: Include to fix warning from util.c. From James Aldridge of EUnet Ltd. Solaris: Change STDIR (location of status file) to /etc/mail in Makefiles. Linux, Dynix, UNICOS: Remove -DNDBM and -lgdbm from Makefiles. Use NEWDB on Linux instead. NCR MP-RAS 3.x with STREAMware TCP/IP: SIOCGIFNUM ioctl exists but behaves differently than other OSes. Add SIOCGIFNUM_IS_BROKEN compile flag to get around the problem. Problem noted by Tom Moore of NCR Corp. HP-UX 9.x: fix compile warnings for old select API. Problem noted by Tom Smith of Digital Equipment Corp. UnixWare 2.x: compile warnings on offsetof macro. Problem noted by Tom Good of the Community Access Information Resource Network SCO 4.2: compile problems caused by a change in the type of the "length" parameters passed to accept, getpeername, getsockname, and getsockopt. Adds new compile flags SOCKADDR_SIZE_T and SOCKOPT_SIZE_T. Problem reported by Tom Good of St. Vincent's North Richmond Community Mental Health Center Residential Services. AIX 4: Use size_t for SOCKADDR_SIZE_T and SOCKOPT_SIZE_T. Suggested by Brett Hogden of Rochester Gas & Electric Corp. Linux: avoid compile problem for versions of that #define both setjmp and longjmp. Problem pointed out by J.R. Oldroyd of TerraNet. CONFIG: SCO UnixWare 2.1: Support for OSTYPE(sco-uw-2.1) from Christopher Durham of SCO. CONFIG: NEXTSTEP: define confCW_FILE to /etc/sendmail/sendmail.cw to match the usual configuration. Patch from Dennis Glatting of PlainTalk. CONFIG: MAILER(fax) called a program that hasn't existed for a long time. Convert to use the HylaFAX 4.0 conventions. Suggested by Harry Styron. CONFIG: Improve sample anti-spam rulesets in cf/cf/knecht.mc. These are the rulesets in use on sendmail.org. MAKEMAP: give error on GDBM files. MAIL.LOCAL: Make error messages a bit more explicit, for example, telling more details on what actually changed when "file changed after open". CONTRIB: etrn.pl: Ignore comments in Fw files. Support multiple Fw files. CONTRIB: passwd-to-alias.pl: Handle 8 bit characters and '-'. NEW FILES: src/Makefiles/Makefile.OpenBSD src/Makefiles/Makefile.RISCos.4_0 test/t_exclopen.c cf/ostype/sco-uw-2.1.m4 DELETED FILES: Makefile 8.8.6/8.8.6 1997/06/14 ************************************************************* * The extensive assistance of Gregory Neil Shapiro of WPI * * in preparing this release is gratefully appreciated. * * Sun Microsystems has also provided resources toward * * continued sendmail development. * ************************************************************* SECURITY: A few systems allow an open with the O_EXCL|O_CREAT open mode bits set to create a file that is a symbolic link that points nowhere. This makes it possible to create a root owned file in an arbitrary directory by inserting the symlink into a writable directory after the initial lstat(2) check determined that the file did not exist. The only verified example of a system having these odd semantics for O_EXCL and symbolic links was HP-UX prior to version 9.07. Most systems do not have the problem, since a exclusive create of a file disallows symbolic links. Systems that have been verified to NOT have the problem include AIX 3.x, *BSD, DEC OSF/1, HP-UX 9.07 and higher, Linux, SunOS, Solaris, and Ultrix. This is a potential exposure on systems that have this bug and which do not have a MAILER-DAEMON alias pointing at a legitimate account, since this will cause old mail to be dropped in /var/tmp/dead.letter. SECURITY: Problems can occur on poorly managed systems, specifically, if maps or alias files are in world writable directories. If your system has alias maps in writable directories, it is potentially possible for an attacker to replace the .db (or .dir and .pag) files by symbolic links pointing at another database; this can be used either to expose information (e.g., by pointing an alias file at /etc/spwd.db and probing for accounts), or as a denial-of-service attack (by trashing the password database). The fix disallows symbolic links entirely when rebuilding alias files or on maps that are in writable directories, and always warns on writable directories; 8.9 will probably consider writable directories to be fatal errors. This does not represent an exposure on systems that have alias files in unwritable system directories. SECURITY: disallow .forward or :include: files that are links (hard or soft) if the parent directory (or any directory in the path) is writable by anyone other than the owner. This is similar to the previous case for user files. This change should not affect most systems, but is necessary to prevent an attacker who can write the directory from pointing such files at other files that are readable only by the owner. SECURITY: Tighten safechown rules: many systems will say that they have a safe (restricted to root) chown even on files that are mounted from another system that allows owners to give away files. The new rules are very strict, trusting file ownership only in those few cases where the system has been verified to be at least as paranoid as necessary. However, it is possible to relax the rules to partially trust the ownership if the directory path is not world or group writable. This might allow someone who has a legitimate :include: file (referenced directly from /etc/aliases) to become another non-root user if the :include: file is in a non-writable directory on an NFS-mounted filesystem where the local system says that giveaway is denied but it is actually permitted. I believe this to be a very small set of cases. If in doubt, do not point :include: aliases at NFS-mounted filesystems. SECURITY: When setting a numeric group id using the RunAsUser option (e.g., "O RunAsUser=10:20", the group id would not be set. Implicit group ids (e.g., "O RunAsUser=mailnull") or alpha group ids (e.g., "O RunAsUser=mailuser:mailgrp") worked fine. The user id was still set properly. Problem noted by Uli Pralle of the Technical University of Berlin. Save the initial gid set for use when checking for if the PrivacyOptions=restrictmailq option is set. Problem reported by Wolfgang Ley of DFN-CERT. Make 55x reply codes to the SMTP DATA-"." be non-sticky (i.e., a failure on one message won't affect future messages to the same host). IP source route printing had an "off by one" error that would affect any options that came after the route option. Patch from Theo de Raadt. The "Message is too large" error didn't successfully bounce the error back to the sender. Problem reported by Stephen More of PSI; patch from Gregory Neil Shapiro of WPI. Change SMTP status code 553 to map into Extended code 5.1.0 (instead of 5.1.3); it apparently gets used in multiple ways. Suggested by John Myers of Portola Communications. Fix possible extra null byte generated during collection if errors occur at the beginning of the stream. Patch contributed by Andrey A. Chernov and Gregory Neil Shapiro. Code changes to avoid possible reentrant call of malloc/free within a signal handler. Problem noted by John Beck of Sun Microsystems. Move map initialization to be earlier so that check_relay ruleset will have the latest version of the map data. Problem noted by Paul Forgey of Metainfo; patch from Gregory Neil Shapiro. If there are fatal errors during the collection phase (e.g., message too large) don't send the bogus message. Avoid "cannot open xfAAA00000" messages when sending to aliases that have errors and have owner- aliases. Problem noted by Michael Barber of MTU; fix from Gregory Neil Shapiro of WPI. Avoid null pointer dereference on illegal Boundary= parameters in multipart/mixed Content-Type: header. Problem noted by Richard Muirden of RMIT University. Always print error messages during newaliases (-bi) even if the ErrorMode is not set to "print". Fix from Gregory Neil Shapiro. Test mode could core dump if you did a /map lookup in an optional map that could not be opened. Based on a fix from John Beck of Sun Microsystems. If DNS is misconfigured so that the last MX record tried points to a host that does not have an A record, but other MX records pointed to something reasonable, don't bounce the message with a "host unknown" error. Note that this should really be fixed in the zone file for the domain. Problem noted by Joe Rhett of Navigist, Inc. If a map fails (e.g., DNS times out) on all recipient addresses, mark the message as having been tried; otherwise the next queue run will not realize that this is a second attempt and will retry immediately. Problem noted by Bryan Costales of Mercury Mail. If the clock is set backwards, and a MinQueueAge is set, no jobs will be run until the later setting of the clock is reached. "Problem" (I use the term loosely) noted by Eric Hagberg of Morgan Stanley. If the load average rises above the cutoff threshold (above which sendmail will not process the queue at all) during a queue run, abort the queue run immediately. Problem noted by Bryan Costales of Mercury Mail. The variable queue processing algorithm (based on the message size, number of recipients, message precedence, and job age) was non-functional -- either the entire queue was processed or none of the queue was processed. The updated algorithm does no queue run if a single recipient zero size job will not be run. If there is a fatal ("panic") message that will cause sendmail to die immediately, never hold the error message for future printing. Force ErrorMode=print in -bt mode so that all errors are printed regardless of the setting of the ErrorMode option in the configuration file. Patch from Gregory Neil Shapiro. New compile flag HASSTRERROR says that this OS has the strerror(3) routine available in one of the libraries. Use it in conf.h. The -m (match only) flag now works on host class maps. If class hash or btree maps are rebuilt, sendmail will now detect this and reopen the map. Previously, they could give erroneous results during a single message processing (but would recover when the next message was received). Don't delete zero length queue files when doing queue runs until the files are at least ten minutes old. This avoids a potential race condition: the creator creates the qf file, getting back a file descriptor. The queue runner locks it and deletes it because it is zero length. The creator then writes the descriptor that is now for a disconnected file, and the job goes away. Based on a suggestion by Bryan Costales. When determining the "validated" host name ($_ macro), do a forward (A) DNS lookup on the result of the PTR lookup and compare results. If they differ or if the PTR lookup fails, tag the address as "may be forged". Log null connections (i.e., hosts that connect but do not do any substantive activity on the connection before disconnecting; "substantive" is defined to be MAIL, EXPN, VRFY, or ETRN. Always permit "writes" to /dev/null regardless of the link count. This is safe because /dev/null is special cased, and no open or write is ever actually attempted. Patch from Villy Kruse of TwinCom. If a message cannot be sent because of a 552 (exceeded storage allocation) response to the MAIL FROM:<>, and a SIZE= parameter was given, don't return the body in the bounce, since there is a very good chance that the message will double-bounce. Fix possible line truncation if a quoted-printable had an =00 escape in the body. Problem noted by Charles Karney of the Princeton Plasma Physics Laboratory. Notify flags (e.g., -NSUCCESS) were lost on user+detail addresses. Problem noted by Kari Hurtta of the Finnish Meteorological Institute. The MaxDaemonChildren option wasn't applying to queue runs as documented. Note that this increases the potential denial of service problems with this option: an attacker can connect many times, and thereby lock out queue runs as well as incoming connections. If you use this option, you should run the "sendmail -bd" and "sendmail -q30m" jobs separately to avoid this attack. Failure to limit noted by Matthew Dillon of BEST Internet Communications. Always give a message in newaliases if alias files cannot be opened instead of failing silently. Suggested by Gregory Neil Shapiro. This change makes the code match the O'Reilly book (2nd edition). Some older versions of the resolver could return with h_errno == -1 if no name server could be reached, causing mail to bounce instead of queueing. Treat this like TRY_AGAIN. Fix from John Beck of SunSoft. If a :include: file is owned by a user that does not have an entry in the passwd file, sendmail could dereference a null pointer. Problem noted by Satish Mynam of Sun Microsystems. Take precautions to make sure that the SMTP protocol cannot get out of sync if (for example) an alias file cannot be opened. Fix a possible race condition that can cause a SIGALRM to come in immediately after a SIGHUP, causing the new sendmail to die. Avoid possible hang on SVr3 systems when doing child reaping. Patch from Villy Kruse of TwinCom. Ignore improperly formatted SMTP reply codes. Previously these were partially processed, which could cause confusing error returns. Fix possible bogus pointer dereference when doing ldapx map lookups on some architectures. Portability: A/UX: from Jim Jagielski of NASA/GSFC. glibc: SOCK_STREAM was changed from a #define to an enum, thus breaking #ifdef SOCK_STREAM. Only option seems to be to assume SOCK_STREAM if __GNU_LIBRARY__ is defined. Problem reported by A Sun of the University of Washington. Solaris: use SIOCGIFNUM to get the number of interfaces on the system rather than guessing at compile time. Patch contributed by John Beck of Sun Microsystems. Intel Paragon: from Wendy Lin of Purdue University. GNU Hurd: from Miles Bader of the GNU project. RISC/os 4.50 from Harlan Stenn of PFCS Corporation. ISC Unix: wait never returns if SIGCLD signals are blocked. Unfortunately releasing them opens a race condition, but there appears to be no fix for this. Patch from Gregory Neil Shapiro. BIND 8.1 for IPv6 compatibility from John Kennedy. Solaris: a bug in strcasecmp caused characters with the high order bit set to apparently randomly match letters -- for example, $| (0233) matches "i" and "I". Problem noted by John Gregson of the University of Cambridge. IRIX 6.x: make Makefile.IRIX.6.2 apply to all 6.x. From Kari Hurtta. IRIX 6.x: Create Makefiles for systems that claim to be IRIX64 but are 6.2 or higher (so use the regular IRIX Makefile). IRIX 6.x: Fix load average computation on 64 bit kernels. Problem noted by Eric Hagberg of Morgan Stanley. CONFIG: Some canonification was still done for UUCP-like addresses even if FEATURE(nocanonify) was set. Problem pointed out by Brian Candler. CONFIG: In some cases UUCP mailers wouldn't properly recognize all local names as local. Problem noted by Jeff Polk of BSDI; fix provided by Gregory Neil Shapiro. CONFIG: The "local:user" syntax entries in mailertables and other "mailer:user" syntax locations returned an incorrect value for the $h macro. Problem noted by Gregory Neil Shapiro. CONFIG: Retain "+detail" information when forwarding mail to a MAIL_HUB, LUSER_RELAY, or LOCAL_RELAY. Patch from Philip Guenther of Gustavus Adolphus College. CONFIG: Make sure user+detail works for FEATURE(virtusertable); rules are the same as for aliasing. Based on a patch from Gregory Neil Shapiro. CONFIG: Break up parsing rules into several pieces; this should have no functional change in this release, but makes it possible to have better anti-spam rulesets in the future. CONFIG: Disallow double dots in host names to avoid having the HostStatusDirectory store status under the wrong name. In some cases this can be used as a denial-of-service attack. Problem noted by Ron Jarrell of Virginia Tech, patch from Gregory Neil Shapiro. CONFIG: Don't use F=m (multiple recipients per invocation) for MAILER(procmail), but do pass F=Pn9 (include Return-Path:, don't include From_, and convert to 8-bit). Suggestions from Kimmo Suominen and Roderick Schertler. CONFIG: Domains under $=M (specified with MASQUERADE_DOMAIN) were being masqueraded as though FEATURE(masquerade_entire_domain) was specified, even when it wasn't. MAIL.LOCAL: Solaris 2.6 has snprintf. From John Beck of SunSoft. MAIL.LOCAL: SECURITY: check to make sure that an attacker doesn't "slip in" a symbolic link between the lstat(2) call and the exclusive open. This is only a problem on System V derived systems that allow an exclusive create on files that are symbolic links pointing nowhere. MAIL.LOCAL: If the final mailbox close() failed, the user id was not reset back to root, which on some systems would cause later mailboxes to fail. Also, any partial message would not be truncated, which could result in repeated deliveries. Problem noted by Bruce Evans via Peter Wemm (FreeBSD developers). MAKEMAP: Handle cases where O_EXLOCK is #defined to be 0. A similar change to the sendmail map code was made in 8.8.3. Problem noted by Gregory Neil Shapiro. MAKEMAP: Give warnings on file problems such as map files that are symbolic links; although makemap is not set-user-ID root, it is often run as root and hence has the potential for the same sorts of problems as alias rebuilds. MAKEMAP: Change compilation so that it will link properly on NEXTSTEP. CONTRIB: etrn.pl: search for Cw as well as Fw lines in sendmail.cf. Accept an optional list of arguments following the server name for the ETRN arguments to use (instead of $=w). Other miscellaneous bug fixes. From Christian von Roques via John Beck of Sun Microsystems. CONTRIB: Add passwd-to-alias.pl, contributed by Kari Hurtta. This Perl script converts GECOS information in the /etc/passwd file into aliases, allowing for faster access to full name lookups; it is also clever about adding aliases (to root) for system accounts. NEW FILES: src/safefile.c cf/ostype/gnuhurd.m4 cf/ostype/irix6.m4 contrib/passwd-to-alias.pl src/Makefiles/Makefile.IRIX64.6.1 src/Makefiles/Makefile.IRIX64.6.x RENAMED FILES: src/Makefiles/Makefile.IRIX.6.2 => Makefile.IRIX.6.x src/Makefiles/Makefile.IRIX64 => Makefile.IRIX64.6.0 8.8.5/8.8.5 1997/01/21 SECURITY: Clear out group list during startup. Without this, sendmail will continue to run with the group permissions of the caller, even if RunAsUser is specified. SECURITY: Make purgestat (-bH) be root-only. This is not in response to any known attack, but it's best to be conservative. Suggested by Peter Wemm of DIALix. SECURITY: Fix buffer overrun problem in MIME code that has possible security implications. Patch from Alex Garthwaite of the University of Pennsylvania. Use of a -f flag with a phrase attached (e.g., "-f 'Full Name '") would truncate the address after "Full". Although the -f syntax is incorrect (since it is in the envelope, it shouldn't have comments and full names), the failure mode was unnecessarily awful. Fix a possible null pointer dereference when converting 8-bit data to a 7-bit format. Problem noted by Jim Hutchins of Sandia National Labs and David James of British Telecom. Clear out stale state that affected F=9 on SMTP mailers in queue runs. Although this really shouldn't be used (F=9 is for final delivery only, and using it on an SMTP mailer makes it possible for a message to be converted from 8->7->8->7 bits several times), it shouldn't have failed with a syserr. Problem noted by Eric Hagberg of Morgan Stanley. _Really_ fix the multiple :maildrop code in the user database module. Patch from Roy Mongiovi of Georgia Tech. Let F lines in the configuration file actually read root-only files if the configuration file is safe. Based on a patch from Keith Reynolds of SCO. ETRN followed by QUIT would hold the connection open until the queue run completed. Problem noted by Truck Lewis of TDK Semiconductor Corp. It turns out that despite the documentation, the TCP wrappers library does _not_ log rejected connections. Do the logging ourselves. Problem noted by Fletcher Mattox of the University of Texas at Austin. If sendmail finds a qf file in its queue directory that is an unknown version (e.g., when backing out to an old version), the error is reported on every queue run. Change it to only give the error once (and rename the qf => Qf). Patch from William A. Gianopoulos of Raytheon Company. Start a new session when doing background delivery; currently it ignored signals but didn't start a new signal, that caused some problems if a background process tried to send mail under certain circumstances. Problem noted by Eric Hagberg of Morgan Stanley; fix from Kari Hurtta. Simplify test for skipping a queue run to just check if the current load average is >= the queueing load average. Previously the check factored in some other parameters that caused it to essentially never skip the queue run. Patch from Bryan Costales. If the SMTP server is running in "nullserver" mode (that is, it is rejecting all commands), start sleeping after MAXBADCOMMAND (25) commands; this helps prevent a bad guy from putting you into a tight loop as a denial-of-service attack. Based on an e-mail conversation with Brad Knowles of AOL. Slow down when too many "light weight" commands have been issued; this helps prevent a class of denial-of-service attacks. The current values and defaults are: MAXNOOPCOMMANDS 20 NOOP, VERB, ONEX, XUSR MAXHELOCOMMANDS 3 HELO, EHLO MAXVRFYCOMMANDS 6 VRFY, EXPN MAXETRNCOMMANDS 8 ETRN These will probably be configurable in a future release. On systems that have uid_t typedefed to be an unsigned short, programs that had the F=S flag and no U= equate would be invoked with the real uid set to 65535 rather than being left unchanged. In some cases, NOTIFY=NEVER was not being honored. Problem noted by Steve Hubert of the University of Washington, Seattle. Mail that was Quoted-Printable encoded and had a soft line break on the last line (i.e., an incomplete continuation) had the last line dropped. Since this appears to be illegal it isn't clear what to do with it, but flushing the last line seems to be a better "fail soft" approach. Based on a patch from Eric Hagberg. If AllowBogusHELO and PrivacyOptions=needmailhelo are both set, a bogus HELO command still causes the "Polite people say HELO first" error message. Problem pointed out by Chris Thomas of UCLA; patch from John Beck of SunSoft. Handle "sendmail -bp -qSfoobar" properly if restrictqrun is set in PrivacyOptions. The -q shouldn't turn this command off. Problem noted by Murray Kucherawy of Pacific Bell Internet; based on a patch from Gregory Neil Shapiro of WPI. Don't consider SMTP reply codes 452 or 552 (exceeded storage allocation) in a DATA transaction to be sticky; these can occur because a message is too large, and smaller messages should still go through. Problem noted by Matt Dillon of Best Internet Communications. In some cases bounces were saved in /var/tmp/dead.letter even if they had been successfully delivered to the envelope sender. Problem noted Eric Hagberg of Morgan Stanley; solution from Gregory Neil Shapiro of WPI. Give better diagnostics on long alias lines. Based on code contributed by Patrick Gosling of the University of Cambridge. Increase the number of virtual interfaces that will be probed for alternate names. Problem noted by Amy Rich of Shore.Net. PORTABILITY: UXP/DS V20L10 for Fujitsu DS/90: Makefile patches from Toshiaki Nomura of Fujitsu Limited. SunOS with LDAP support: compile problems with struct timeval. Patch from Nick Cuccia of TCSI Corporation. SCO: from Keith Reynolds of SCO. Solaris: kstat load average computation wasn't being used. Fixes from Michael Ju. Tokarev of Telecom Service, JSC (Moscow). OpenBSD: from Jason Downs of teeny.org. Altos System V: from Tim Rice. Solaris 2.5: from Alan Perry of SunSoft. Solaris 2.6: from John Beck of SunSoft. Harris Nighthawk PowerUX (mh6000 box): from Bob Miorelli of Pratt & Whitney . CONFIG: It seems that I hadn't gotten the Received: line syntax _just_right_ yet. Tweak it again. I'll omit the names of the "contributors" (quantity two) in this one case. As of now, NO MORE DISCUSSION about the syntax of the Received: line. CONFIG: Although FEATURE(nullclient) uses EXPOSED_USER (class $=E), it never inserts that class into the output file. Fix it so it will honor EXPOSED_USER but will _not_ include root automatically in this class. Problem noted by Ronan KERYELL of Centre de Recherche en Informatique de l'cole Nationale Suprieure des Mines de Paris (CRI-ENSMP). CONFIG: Clean up handling of "local:" syntax in relay specifications such as LUSER_RELAY. This change permits the following syntaxes: ``local:'' will send to the same user on the local machine (e.g., in a mailertable entry for "host", ``local:'' will cause an address addressed to user@host to go to user on the local machone). ``local:user'' will send to the named user on the local machine. ``local:user@host'' is equivalent to ``local:user'' (the host is ignored). In all cases, the original user@host is passed in $@ (i.e., the detail information). Inspired by a report from Michael Fuhr. CONFIG: Strip quotes from the first word of an "error:" host indication. This lets you set (for example) the LUSER_RELAY to be ``error:\"5.1.1\" Your Message Here''. Note the use of the \" so that the resulting string is properly quoted. Problem noted by Gregory Neil Shapiro of WPI. OP.ME: documentation was inconsistent about whether sendmail did a NOOP or a RSET to probe the connection (it does a RSET). Inconsistency noted by Deeran Peethamparam. OP.ME: insert additional blank pages so it will print properly on a duplex printer. From Matthew Black of Cal State University, Long Beach. 8.8.4/8.8.4 1996/12/02 SECURITY: under some circumstances, an attacker could get additional permissions by hard linking to files that were group writable by the attacker. The solution is to disallow any files that have hard links -- this will affect .forward, :include:, and output files. Problem noted by Terry Kyriacopoulos of Interlog Internet Services. As a workaround, set UnsafeGroupWrites -- always a good idea. SECURITY: the TryNullMXList (w) option should not be safe -- if it is, it is possible to do a denial-of-service attack on MX hosts that rely on the use of the null MX list. There is no danger if you have this option turned off (the default). Problem noted by Dan Bernstein. Also, make the DontInitGroups unsafe. I know of no specific attack against this, although a denial-of-service attack is probably possible, but in theory you should not be able to safely tweak anything that affects the permissions that are used when mail is delivered. Purgestat could go into an infinite loop if one of the host status directories somehow became empty. Problem noted by Roy Mongiovi of Georgia Tech. Processes got "lost" when counting children due to a race condition. This caused "proc_list_probe: lost pid" messages to be logged. Problem noted by several people. On systems with System V SIGCLD child signal semantics (notably AIX and HP-UX), mail transactions would print the message "451 SMTP-MAIL: lost child: No child processes". Problem noted by several people. Miscellaneous compiler warnings on picky compilers (or when setting gcc to high warning levels). From Tom Moore of NCR Corp. SMTP protocol errors, and most errors on MAIL FROM: lines should not be persistent between runs, since they are based on the message rather than the host. Problem noted by Matt Dillon of Best Internet Communications. The F=7 flag was ignored on SMTP mailers. Problem noted by Tom Moore of NCR (a.k.a., AT&T Global Information Solutions). Avoid the possibility of having a child daemon run to completion (including closing the SMTP socket) before the parent has had a chance to close the socket; this can cause the parent to hang for a long time waiting for the socket to drain. Patch from Don Lewis of TDK Semiconductor. If the fork() failed in a queue run, the queue runners would not be rescheduled (so queue runs would stop). Patch from Don Lewis. Some error conditions in ETRN could cause output without an SMTP status code. Problem noted by Don Lewis. Multiple :maildrop addresses in the user database didn't work properly. Patch from Roy Mongiovi of Georgia Tech. Add ".db" automatically onto any user database spec that does not already have it; this is for consistency with makemap, the K line, and the documentation. Inconsistency pointed out by Roy Mongiovi. Allow sendmail to be properly called in nohup mode. Patch from Kyle Jones of UUNET. Change ETRN to ignore but still update host status files; previously it would ignore them and not save the updated status, which caused stale information to be maintained. Based on a patch from Christopher Davis of Kapor Enterprises Inc. Also, have ETRN ignore the MinQueueAge option. Patch long term host status to recover more gracefully from an empty host status file condition. Patch from NAKAMURA Motonori of Kyoto University. Several patches to signal handling code to fix potential race conditions from Don Lewis. Make it possible to compile with -DDAEMON=0 (previously it had some compile errors). This turns DAEMON, QUEUE, and SMTP into 0/1 compilation flags. Note that DAEMON is an obsolete compile flag; use NETINET instead. Solution based on a patch from Bryan Costales. PORTABILITY FIXES: AIX4: getpwnam() and getpwuid() do a sequential scan of the /etc/security/passwd file when called as root. This is very slow on some systems. To speed it up, use the (undocumented) _getpw{nam,uid}_shadow() routines. Patch from Chris Thomas of UCLA/OAC Systems Group. SCO 5.x: include -lprot in the Makefile. Patch from Bill Glicker of Burrelle's Information Service. NEWS-OS 4.x: need a definition for MODE_T to compile. Patch from Makoto MATSUSHITA of Osaka University. SunOS 4.0.3: compile problems. Patches from Andrew Cole of Leeds University and SASABE Tetsuro of the University of Tokyo. DG/UX 5.4.4.11 from Brian J. Murrell of InterLinx Support Services, Inc. Domain/OS from Don (Truck) Lewis of TDK Semiconductor Corp. I believe this to have only been a problem if you compiled with -DUSE_VENDOR_CF_PATH -- another reason to stick with /etc/sendmail.cf as your One True Path. Digital UNIX (OSF/1 on Alpha) load average computation from Martin Laubach of the Technischen Universitt Wien. CONFIG: change default Received: line to be multiple lines rather than one long one. By popular demand. MAIL.LOCAL: warnings weren't being logged on some systems. Patch from Jerome Berkman of U.C. Berkeley. MAKEMAP: be sure to zero hinfo to avoid cruft that can cause runs to take a very long time. Problem noted by Yoshiro YONEYA of NTT Software Corporation. CONTRIB: add etrn.pl, contributed by John Beck. NEW FILES: contrib/etrn.pl 8.8.3/8.8.3 1996/11/17 SECURITY: it was possible to get a root shell by lying to sendmail about argv[0] and then sending it a signal. Problem noted by Leshka Zakharoff on the best-of-security list. Log sendmail binary version number in "Warning: .cf version level (%d) exceeds program functionality (%d) message" -- this should make it clearer to people that they are running the wrong binary. Fix a problem that occurs when you open an SMTP connection and then do one or more ETRN commands followed by a MAIL command; at the end of the DATA phase sendmail would incorrectly report "451 SMTP-MAIL: lost child: No child processes". Problem noted by Eric Bishop of Virginia Tech. When doing text-based host canonification (typically /etc/hosts lookup), a null host name would match any /etc/hosts entry with space at the end of the line. Problem noted by Steve Hubert of the University of Washington, Seattle. 7 to 8 bit BASE64 MIME conversions could duplicate bits of text. Problem reported by Tom Smith of Digital Equipment Corp. Increase the size of the DNS answer buffer -- the standard UDP packet size PACKETSZ (512) is not sufficient for some nameserver answers containing very many resource records. The resolver may also switch to TCP and retry if it detects UDP packet overflow. Also, allow for the fact that the resolver routines res_query and res_search return the size of the *un*truncated answer in case the supplied answer buffer it not big enough to accommodate the entire answer. Patch from Eric Wassenaar. Improvements to MaxDaemonChildren code. If you think you have too many children, probe the ones you have to verify that they are still around. Suggested by Jared Mauch of CICnet, Inc. Also, do this probe before growing the vector of children pids; this previously caused the vector to grow indefinitely due to a race condition. Problem reported by Kyle Jones of UUNET. On some architectures, (from the Berkeley DB library) defines O_EXLOCK to zero; this fools the map compilation code into thinking that it can avoid race conditions by locking on open. Change it to check for O_EXLOCK non-zero. Problem noted by Leif Erlingsson of Data Lege. Always call res_init() on startup (if compiled in, of course) to allow the sendmail.cf file to tweak resolver flags; without it, flag tweaks in ResolverOptions are ignored. Patch from Andrew Sun of Merrill Lynch. Improvements to host status printing code. Suggested by Steve Hubert of the University of Washington, Seattle. Change MinQueueAge option processing to do the check for the job age when reading the queue file, rather than at the end; this avoids parsing the addresses, which can do DNS lookups. Problem noted by John Beck of InReference, Inc. When MIME was being 7->8 bit decoded, "From " lines weren't being properly escaped. Problem noted by Peter Nilsson of the University of Linkoping. In some cases, sendmail would retain root permissions during queue runs even if RunAsUser was set. Problem noted by Mark Thomas of Mark G. Thomas Consulting. If the F=l flag was set on an SMTP mailer to indicate that it is actually local delivery, and NOTIFY=SUCCESS is specified in the envelope, and the receiving SMTP server speaks DSN, then the DSN would be both generated locally and propagated to the other end. The U= mailer field didn't correctly extract the group id if the user id was numeric. Problem noted by Kenneth Herron of MCI Telecommunications Communications. If a message exceeded the fixed maximum size on input, the body of the message was included in the bounce. Note that this did not occur if it exceeded the maximum _output_ size. Problem reported by Kyle Jones of UUNET. PORTABILITY FIXES: AIX4: 4.1 doesn't have a working setreuid(2); change the AIX4 defines to use seteuid(2) instead, which works on 4.1 as well as 4.2. Problem noted by Hkan Lindholm of interAF, Sweden. AIX4: use tzname[] vector to determine time zone name. Patch from NAKAMURA Motonori of Kyoto University. MkLinux: add Makefile.Linux.ppc and OSTYPE(mklinux) support. Contributed by Paul DuBois . Solaris: kstat(3k) support for retrieving the load average. This adds the LA_KSTAT definition for LA_TYPE. The outline of the implementation was contributed by Michael Tokarev of Telecom Service, JSC, Moscow. HP-UX 10.0 gripes about the (perfectly legal!) forward declaration of struct rusage at the top of conf.h; change it to only be included if you are using gcc, which is apparently the only compiler that requires it in the first place. Problem noted by Jeff Earickson of Colby College. IRIX: don't default to using gcc. IRIX is a civilized operating system that comes with a decent compiler by default. Problem noted by Barry Bouwsma and Kari Hurtta. CONFIG: specify F=9 as default in FEATURE(local_procmail) for consistency with other local mailers. Inconsistency pointed out by Teddy Hogeborn . CONFIG: if the "limited best mx" feature is used (to reduce DNS overhead) as part of the bestmx_is_local feature, the domain part was dropped from the name. Patch from Steve Hubert of the University of Washington, Seattle. CONFIG: catch addresses of the form "user@.dom.ain"; these could end up being translated to the null host name, which would return any entry in /etc/hosts that had a space at the end of the line. Problem noted by Steve Hubert of the University of Washington, Seattle. CONFIG: add OSTYPE(aix4). From Michael Sofka of Rensselaer Polytechnic Institute. MAKEMAP: tweak hash and btree parameters for better performance. Patch from Matt Dillon of Best Internet Communications. NEW FILES: src/Makefiles/Makefile.Linux.ppc cf/ostype/aix4.m4 cf/ostype/mklinux.m4 8.8.2/8.8.2 1996/10/18 SECURITY: fix a botch in the 7-bit MIME patch; the previous patch changed the code but didn't fix the problem. PORTABILITY FIXES: Solaris: Don't use the system getusershell(3); it can apparently corrupt the heap in some circumstances. Problem found by Ken Pizzini of Spry, Inc. OP.ME: document several mailer flags that were accidentally omitted from this document. These flags were F=d, F=j, F=R, and F=9. CONFIG: no changes. 8.8.1/8.8.1 1996/10/17 SECURITY: unset all environment variables that the resolver will examine during queue runs and daemon mode. Problem noted by Dan Bernstein of the University of Illinois at Chicago. SECURITY: in some cases an illegal 7-bit MIME-encoded text/plain message could overflow a buffer if it was converted back to 8 bits. This caused core dumps and has the potential for a remote attack. Problem first noted by Gregory Shapiro of WPI. Avoid duplicate deliveries of error messages on systems that don't have flock(2) support. Patch from Motonori Nakamura of Kyoto University. Ignore null FallBackMX (V) options. If this option is null (as opposed to undefined) it can cause "null signature" syserrs on illegal host names. If a Base64 encoded text/plain message has no trailing newline in the encoded text, conversion back to 8 bits will drop the final line. Problem noted by Pierre David. If running with a RunAsUser, sendmail would give bogus "cannot setuid" (or seteuid, or setreuid) messages on some systems. Problem pointed out by Jordan Mendelson of Web Services, Inc. Always print error messages in -bv mode -- previously, -bv would be absolutely silent on errors if the error mode was sent to (say) mail-back. Problem noted by Kyle Jones of UUNET. If -qI/R/S is set (or the ETRN command is used), ignore all long term host status. This is necessary because it is common to do this when you know a host has just come back up. Disallow duplicate HELO/EHLO commands as required by RFC 1651 section 4.2. Excessive permissiveness noted by Lee Flight of the University of Leicester. If a service (such as NIS) is specified as the last entry in the service switch, but that service is not compiled in, sendmail would return a temporary failure when an entry was not found in the map. This caused the message to be queued instead of bouncing immediately. Problem noted by Harry Edmon of the University of Washington. PORTABILITY FIXES: Solaris 2.3 had compilation problems in conf.c. Several people pointed this out. NetBSD from Charles Hannum of MIT. AIX4 improvements based on info from Steve Bauer of South Dakota School of Mines & Technology. CONFIG: ``error:code message'' syntax was broken in virtusertable. Patch from Gil Kloepfer Jr. CONFIG: if FEATURE(nocanonify) was specified, hosts in $=M (set using MASQUERADE_DOMAIN) were not masqueraded unless they were also in $=w. Problem noted by Zoltan Basti of Softec. MAIL.LOCAL: patches to compile and link cleanly on AIX. Based on a patch from Eric Hagberg of Morgan Stanley. MAIL.LOCAL: patches to compile on NEXTSTEP. From Patrick Nolan of Stanford via Robert La Ferla. 8.8.0/8.8.0 1996/09/26 Under some circumstances, Bcc: headers would not be properly deleted. Pointed out by Jonathan Kamens of OpenVision. Log a warning if the sendmail daemon is invoked without a full pathname, which prevents "kill -1" from working. I was urged to put this in by Andrey A. Chernov of DEMOS (Russia). Fix small buffer overflow. Since the data in this buffer was not read externally, there was no security problem (and in fact probably wouldn't really overflow on most compilers). Pointed out by KIZU takashi of Osaka University. Fix problem causing domain literals such as [1.2.3.4] to be ignored if a FallbackMXHost was specified in the configuration file -- all mail would be sent to the fallback even if the original host was accessible. Pointed out by Munenari Hirayama of NSC (Japan). A message that didn't terminate with a newline would (sometimes) not have the trailing "." added properly in the SMTP dialogue, causing SMTP to hang. Patch from Per Hedeland of Ericsson. The DaemonPortOptions suboption to bind to a particular address was incorrect and nonfunctional due to a misunderstanding of the semantics of binding on a passive socket. Patch from NIIBE Yutaka of Mitsubishi Research Institute. Increase the number of MX hosts for a single name to 100 to better handle the truly huge service providers such as AOL, which has 13 at the moment (and climbing). In order to avoid trashing memory, the buffer for all names has only been slightly increased in size, to 12.8K from 10.2K -- this means that if a single name had 100 MX records, the average size of those records could not exceed 128 bytes. Requested by Brad Knowles of America On Line. Restore use of IDENT returns where the OSTYPE field equals "OTHER". Urged by Dan Bernstein of U.C. Berkeley. Print q_statdate and q_specificity in address structure debugging printout. Expand MCI structure flag bits for debugging output. Support IPv6-style domain literals, which can have colons between square braces. Log open file descriptors for the "cannot dup" messages in deliver(); this is an attempt to track down a bug that one person seems to be having (it may be a Solaris bug!). DSN NOTIFY parameters were not properly propagated across queue runs; this caused the NOTIFY info to sometimes be lost. Problem pointed out by Claus Assmann of the Christian-Albrechts-University of Kiel. The statistics gathered in the sendmail.st file were too high; in some cases failures (e.g., user unknown or temporary failure) would count as a delivery as far as the statistics were concerned. Problem noted by Tom Moore of AT&T GIS. Systems that don't have flock() would not send split envelopes in the initial run. Problem pointed out by Leonard Zubkoff of Dandelion Digital. Move buffer overflow checking -- these primarily involve distrusting results that may come from NIS and DNS. 4.4-BSD-derived systems, including FreeBSD, NetBSD, and BSD/OS didn't include and hence had the wrong pathnames for a few things like /var/tmp. Reported by Matthew Green. Conditions were reversed for the Priority: header, resulting in all values being interpreted as non-urgent except for non-urgent, which was interpreted as normal. Patch from Bryan Costales. The -o (optional) flag was being ignored on hash and btree maps since 8.7.2. Fix from Bryan Costales. Content-Types listed in class "q" will always be encoded as Quoted-Printable (or more accurately, will never be encoded as base64). The class can have primary types (e.g., "text") or full types (e.g., "text/plain"). Based on a suggestion by Marius Olafsson of the University of Iceland. Define ${envid} to be the original envelope id (from the ESMTP DSN dialogue) so it can be passed to programs in mailers. Define ${bodytype} to be the body type (from the -B flag or the BODY= ESMTP parameter) so it can be passed to programs in mailers. Cause the VRFY command to return 252 instead of 250 unless the F=q flag is set in the mailer descriptor. Suggested by John Myers of CMU. Implement ESMTP ETRN command to flush the queue for a specific host. The command takes a host name; data for that host is immediately (and asynchronously) flushed. Because this shares the -qR implementation, other hosts may be attempted, but there should be no security implications. Implementation from John Beck of InReference, Inc. See RFC 1985 for details. Add three new command line flags to pass in DSN parameters: -V envid (equivalent to ENVID=envid on the MAIL command), -R ret (equivalent to RET=ret on the MAIL command), and -Nnotify (equivalent to NOTIFY=notify on the RCPT command). Note that the -N flag applies to all recipients; there is no way to specify per-address notifications on the command line, nor is there an equivalent for the ORCPT= per-address parameter. Restore LogLevel option to be safe (it can only be increased); apparently I went into paranoid mode between 8.6 and 8.7 and made it unsafe. Pointed out by Dabe Murphy of the University of Maryland. New logging on log level 15: all SMTP traffic. Patches from Andrew Gross of San Diego Supercomputer Center. NetInfo property value searching code wasn't stopping when it found a match. This was causing the wrong values to be found (and had a memory leak). Found by Bastian Schleuter of TU-Berlin. Add new F=0 (zero) mailer flag to turn off MX lookups. It was pointed out by Bill Wisner of Electronics for Imaging that you can't use the bracket address form for the MAIL_HUB macro, since that causes the brackets to remain in the envelope recipient address used for delivery. The simple fix (stripping off the brackets in the config file) breaks the use of IP literal addresses. This flag will solve that problem. Add MustQuoteChars option. This is a list of characters that must be quoted if they are found in the phrase part of an address (that is, the full name part). The characters @,;:\()[] are always in this list and cannot be removed. The default is this list plus . and ' to match RFC 822. Add AllowBogusHELO option; if set, sendmail will allow HELO commands that do not include a host name for back compatibility with some stupid SMTP clients. Setting this violates RFC 1123 section 5.2.5. Add MaxDaemonChildren option; if this is set, sendmail will start rejecting connections if it has more than this many outstanding children accepting mail. Note that you may see more processes than this because of outgoing mail; this is for incoming connections only. Add ConnectionRateThrottle option. If set to a positive value, the number of incoming SMTP connections that will be permitted in a single second is limited to this number. Connections are not refused during this time, just deferred. The intent is to flatten out demand so that load average limiting can kick in. It is less radical than MaxDaemonChildren, which will stop accepting connections even if all the connections are idle (e.g., due to connection caching). Add Timeout.hoststatus option. This interval (defaulting to 30m) specifies how long cached information about the state of a host will be kept before they are considered stale and the host is retried. If you are using persistent host status (i.e., the HostStatusDirectory option is set) this will apply between runs; otherwise, it applies only within a single queue run and hence is useful only for hosts that have large queues that take a very long time to run. Add SingleLineFromHeader option. If set, From: headers are coerced into being a single line even if they had newlines in them when read. This is to get around a botch in Lotus Notes. Text class maps were totally broken -- if you ever retrieved the last item in a table it would be truncated. Problem noted by Gregory Neil Shapiro of WPI. Extend the lines printed by the mailq command (== the -bp flag) when -v is given to 120 characters; this allows more information to be displayed. Suggested by Gregory Neil Shapiro of WPI. Allow macro definitions (`D' lines) with unquoted commas; previously this was treated as end-of-input. Problem noted by Bryan Costales. The RET= envelope parameter (used for DSNs) wasn't properly written to the queue file. Fix from John Hughes of Atlantic Technologies, Inc. Close /var/tmp/dead.letter after a successful write -- otherwise if this happens in a queue run it can cause nasty delays. Problem noted by Mark Horton of AT&T. If userdb entries pointed to userdb entries, and there were multiple values for a given key, the database cursor would get trashed by the recursive call. Problem noted by Roy Mongiovi of Georgia Tech. Fixed by reading all the values and creating a comma-separated list; thus, the -v output will be somewhat different for this case. Fix buffer allocation problem with Hesiod-based userdb maps when HES_GETMAILHOST is defined. Based on a patch by Betty Lee of Stanford University. When envelopes were split due to aliases with owner- aliases, and there was some error on one of the lists, more than one of the owners would get the message. Problem pointed out by Roy Mongiovi of Georgia Tech. Detect excessive recursion in macro expansions, e.g., $X defined in terms of $Y which is defined in terms of $X. Problem noted by Bryan Costales; patch from Eric Wassenaar. When using F=U to get "ugly UUCP" From_ lines, a buffer could in some cases get trashed causing bogus From_ lines. Fix from Kyle Jones of UUNET. When doing load average initialization, if the nlist call for avenrun failed, the second and subsequent lookups wouldn't notice that fact causing bogus load averages to be returned. Noted by Casper Dik of Sun Holland. Fix problem with incompatibility with some versions of inet_aton that have changed the return value to unsigned, so a check for an error return of -1 doesn't work. Use INADDR_NONE instead. This could cause mail to addresses such as [foo.com] to bounce or get dropped. Problem noted by Christophe Wolfhugel of the Pasteur Institute. DSNs were inconsistent if a failure occurred during the DATA phase rather than the RCPT phase: the Action: would be correct, but the detailed status information would be wrong. Problem noted by Bob Snyder of General Electric Company. Add -U command line flag and the XUSR ESMTP extension, both indicating that this is the initial MUA->MTA submission. The flag current does nothing, but in future releases (when MUAs start using these flags) it will probably turn on things like DNS canonification. Default end-of-line string (E= specification on mailer [M] lines) to \r\n on SMTP mailers. Default remains \n on non-SMTP mailers. Change the internal definition for the *file* and *include* mailers to have $u in the argument vectors so that they aren't misinterpreted as SMTP mailers and thus use \r\n line termination. This will affect anyone who has redefined either of these in their configuration file. Don't assume that IDENT servers close the connection after a query; responses can be newline terminated. From Terry Kennedy of St. Peter's College. Avoid core dumps on erroneous configuration files that have $#mailer with nothing following. From Bryan Costales. Avoid null pointer dereference with high debug values in unlockqueue. Fix from Randy Martin of Clemson University. Fix possible buffer overrun when expanding very large macros. Fix from Kyle Jones of UUNET. After 25 EXPN or VRFY commands, start pausing for a second before processing each one. This avoids a certain form of denial of service attack. Potential attack pointed out by Bryan Costales. Allow new named (not numbered!) config file rules to do validity checking on SMTP arguments: check_mail for MAIL commands and check_rcpt for RCPT commands. These rulesets can do anything they want; their result is ignored unless they resolve to the $#error mailer, in which case the indicated message is printed and the command is rejected. Similarly, the check_compat ruleset is called before delivery with "from_addr $| to_addr" (the $| is a meta-symbol used to separate the two addresses); it can give a "this sender can't send to this recipient" notification. Note that this patch allows $| to stand alone in rulesets. Define new macros ${client_name}, ${client_addr}, and ${client_port} that have the name, IP address, and port number (respectively) of the SMTP client (that is, the entity at the other end of the connection. These can be used in (e.g.) check_rcpt to verify that someone isn't trying to relay mail through your host inappropriately. Be sure to use the deferred evaluation form, for example $&{client_name}, to avoid having these bound when sendmail reads the configuration file. Add new config file rule check_relay to check the incoming connection information. Like check_compat, it is passed the host name and host address separated by $| and can reject connections on that basis. Allow IDA-style recursive function calls. Code contributed by Mark Lovell and Paul Vixie. Eliminate the "No ! in UUCP From address!" message" -- instead, create a virtual UUCP address using either a domain address or the $k macro. Based on code contributed by Mark Lovell and Paul Vixie. Add Stanford LDAP map. Requires special libraries that are not included with sendmail. Contributed by Booker C. Bense ; contact him for support. See also the src/READ_ME file. Allow -dANSI to turn on ANSI escape sequences in debug output; this puts metasymbols (e.g., $+) in reverse video. Really useful only for debugging deep bits of code where it is important to distinguish between the single-character metasymbol $+ and the two characters $, +. Changed ruleset 89 (executed in dumpstate()) to a named ruleset, debug_dumpstate. Add new UnsafeGroupWrites option; if set, .forward and :include: files that are group writable are considered "unsafe" -- that is, programs and files referenced from such files are not valid recipients. Delete bogosity test for FallBackMXhost; this prevented it to be a name that was not in DNS or was a domain-literal. Problem noted by Tom May. Change the introduction to error messages to more clearly delineate permanent from temporary failures; if both existed in a single message it could be confusing. Suggested by John Beck of InReference, Inc. The IngoreDot (i) option didn't work for lines that were terminated with CRLF. Problem noted by Ted Stockwell of Secure Computing Corporation. Add a heuristic to improve the handling of unbalanced `<' signs in message headers. Problem reported by Matt Dillon of Best Internet Communications. Check for bogus characters in the 0200-0237 range; since these are used internally, very strange errors can occur if those characters appear in headers. Problem noted by Anders Gertz of Lysator. Implement 7 -> 8 bit MIME conversions. This only takes place if the recipient mailer has the F=9 flag set, and only works on text/plain body types. Code contributed by Marius Olafsson of the University of Iceland. Special case "postmaster" name so that it is always treated as lower case in alias files regardless of configuration settings; this prevents some potential problems where "Postmaster" or "POSTMASTER" might not match "postmaster". In most cases this change is a no-op. The -o map flag was ignored for text maps. Problem noted by Bryan Costales. The -a map flag was ignored for dequote maps. Problem noted by Bryan Costales. Fix core dump when a lookup of a class "prog" map returns no response. Patch from Bryan Costales. Log instances where sendmail is deferring or rejecting connections on LogLevel 14. Suggested by Kyle Jones of UUNET. Include port number in process title for network daemons. Suggested by Kyle Jones of UUNET. Send ``double bounces'' (errors that occur when sending an error message) to the address indicated in the DoubleBounceAddress option (default: postmaster). Previously they were always sent to postmaster. Suggested by Kyle Jones of UUNET. Add new mode, -bD, that acts like -bd in all respects except that it runs in foreground. This is useful for using with a wrapper that "watches" system services. Suggested by Kyle Jones of UUNET. Fix botch in spacing around (parenthesized) comments in addresses when the comment comes before the address. Patch from Motonori Nakamura of Kyoto University. Use the prefix "Postmaster notify" on the Subject: lines of messages that are being bounced to postmaster, rather than "Returned mail". This permits the person who is postmaster more easily determine what messages are to their role as postmaster versus bounces to mail they actually sent. Based on a suggestion by Motonori Nakamura. Add new value "time" for QueueSortOrder option; this causes the queue to be sorted strictly by the time of submission. Note that this can cause very bad behavior over slow lines (because large jobs will tend to delay small jobs) and on nodes with heavy traffic (because old things in the queue for hosts that are down delay processing of new jobs). Also, this does not guarantee that jobs will be delivered in submission order unless you also set DeliveryMode=queue. In general, it should probably only be used on the command line, and only in conjunction with -qRhost.domain. In fact, there are very few cases where it should be used at all. Based on an implementation by Motonori Nakamura. If a map lookup in ruleset 5 returns tempfail, queue the message in the same manner as other rulesets. Previously a temporary failure in ruleset 5 was ignored. Patch from Booker Bense of Stanford University. Don't proceed to the next MX host if an SMTP MAIL command returns a 5yz (permanent failure) code. The next MX host will still be tried if the connection cannot be opened in the first place or if the MAIL command returns a 4yz (temporary failure) code. (It's hard to know what to do here, since neither RFC 974 nor RFC 1123 specify when to proceed to the next MX host.) Suggested by Jonathan Kamens of OpenVision, Inc. Add new "-t" flag for map definitions (the "K" line in the .cf file). This causes map lookups that get a temporary failure (e.g., name server failure) to _not_ defer the delivery of the message. This should only be used if your configuration file is prepared to do something sensible in this case. Based on an idea by Gregory Shapiro of WPI. Fix problem finding network interface addresses. Patch from Motonori Nakamura. Don't reject qf entries that are not owned by your effective uid if you are not running set-user-ID; this makes management of certain kinds of firewall setups difficult. Patch suggested by Eamonn Coleman of Qualcomm. Add persistent host status. This keeps the information normally maintained within a single queue run in disk files that are shared between sendmail instances. The HostStatusDirectory is the directory in which the information is maintained. If not set, persistent host status is turned off. If not a full pathname, it is relative to the queue directory. A common value is ".hoststat". There are also two new operation modes: * -bh prints the status of hosts that have had recent connections. * -bH purges the host statuses. No attempt is made to save recent status information. This feature was originally written by Paul Vixie of Vixie Enterprises for KJS and adapted for V8 by Mark Lovell of Bigrock Consulting. Paul's funding of Mark and Mark's patience with my insistence that things fit cleanly into the V8 framework is gratefully appreciated. New SingleThreadDelivery option (requires HostStatusDirectory to operate). Avoids letting two sendmails on the local machine open connections to the same remote host at the same time. This reduces load on the other machine, but can cause mail to be delayed (for example, if one sendmail is delivering a huge message, other sendmails won't be able to send even small messages). Also, it requires another file descriptor (for the lock file) per connection, so you may have to reduce ConnectionCacheSize to avoid running out of per-process file descriptors. Based on the persistent host status code contributed by Paul Vixie and Mark Lovell. Allow sending to non-simple files (e.g., /dev/null) even if the SafeFileEnvironment option is set. Problem noted by Bryan Costales. The -qR flag mistakenly matched flags in the "R" line of the queue file. Problem noted by Bryan Costales. If a job was aborted using the interrupt signal (e.g., control-C from the keyboard), on some occasions an empty df file would be left around; these would collect in the queue directory. Problem noted by Bryan Costales. Change the makesendmail script to enhance the search for Makefiles based on release number. For example, on SunOS 5.5.1, it will search for Makefile.SunOS.5.5.1, Makefile.SunOS.5.5, and then Makefile.SunOS.5.x (in addition to the other rules, e.g., adding $arch). Problem noted by Jason Mastaler of Atlanta Webmasters. When creating maps using "newaliases", always map the keys to lower case when creating the map unless the -f flag is specified on the map itself. Previously this was done based on the F=u flag in the local mailer, which meant you could create aliases that you could never access. Problem noted by Bob Wu of DEC. When a job was read from the queue, the bits causing notification on failure or delay were always set. This caused those notifications to be sent even if NOTIFY=NEVER had been specified. Problem noted by Steve Hubert of the University of Washington, Seattle. Add new configurable routine validate_connection (in conf.c). This lets you decide if you are willing to accept traffic from this host. If it returns FALSE, all SMTP commands will return "550 Access denied". -DTCPWRAPPERS will include support for TCP wrappers; you will need to add -lwrap to the link line. (See src/READ_ME for details.) Don't include the "THIS IS A WARNING MESSAGE ONLY" banner on postmaster bounces. Some people seemed to think that this could be confusing (even though it is true). Suggested by Motonori Nakamura. Add new RunAsUser option; this causes sendmail to do a setuid to that user early in processing to avoid potential security problems. However, this means that all .forward and :include: files must be readable by that user, and all files to be written must be writable by that user and all programs will be executed by that user. It is also incompatible with the SafeFileEnvironment option. In other words, it may not actually add much to security. However, it should be useful on firewalls and other places where users don't have accounts and the aliases file is well constrained. Add Timeout.iconnect. This is like Timeout.connect except it is used only on the first attempt to delivery to an address. It could be set to be lower than Timeout.connect on the principle that the mail should go through quickly to responsive hosts; less responsive hosts get to wait for the next queue run. Fix a problem on Solaris that occasionally causes programs (such as vacation) to hang with their standard input connected to a UDP port. It also created some signal handling problems. The problems turned out to be an interaction between vfork(2) and some of the libraries, particularly NIS/NIS+. I am indebted to Tor Egge for this fix. Change user class map to do the same matching that actual delivery will do instead of just a /etc/passwd lookup. This adds fuzzy matching to the user map. Patch from Dan Oscarsson. The Timeout.* options are not safe -- they can be used to create a denial-of-service attack. Problem noted by Christophe Wolfhugel. Don't send PostmasterCopy messages in the event of a "delayed" notification. Suggested by Barry Bouwsma. Don't advertise "VERB" ESMTP extension if the "noexpn" privacy option is set, since this disables VERB mode. Suggested by John Hawkinson of MIT. Complain if the QueueDirectory (Q) option is not set. Problem noted by Motonori Nakamura of Kyoto University. Only queue messages on transient .forward open failures if there were no successful opens. The previous behavior caused it to queue even if a "fall back" .forward was found. Problem noted by Ann-Kian Yeo of the Dept. of Information Systems and Computer Science (DISCS), NUS, Singapore. Don't do 8->7 bit conversions when bouncing a MIME message that is bouncing because of a MIME error during 8->7 bit conversion; the encapsulated message will bounce again, causing a loop. Problem noted by Steve Hubert of the University of Washington. Create xf (transcript) files using the TempFileMode option value instead of 0644. Suggested by Ann-Kian Yeo of the National University of Singapore. Print errors if setgid/setuid/etc. fail during delivery. This helps detect cases where DefaultUser is set to something that the system can't cope with. PORTABILITY FIXES: Support for AIX/RS 2.2.1 from Mark Whetzel of Western Atlas International. Patches for Intel Paragon OSF/1 1.3 from Leo Bicknell . On DEC OSF/1 3.2 and earlier, the MatchGECOS code would only work on the first recipient of a message due to a bug in the getpwent family. If this is something you use, you can define DEC_OSF_BROKEN_GETPWENT=1 for a workaround. From Maximum Entropy of Sanford C. Bernstein and Associates. FreeBSD 1.1.5.1 uname -r returns a string containing parentheses, which breaks makesendmail. Reported by Piero Serini . Sequent DYNIX/ptx 4.0.2 patches from Jack Woolley of Systems and Computer Technology Corporation. Solaris 2.x: omit the UUCP grade parameter (-g flag) because it is system-dependent. Problem noted by J.J. Bailey of Bailey Computer Consulting. Pyramid NILE running DC/OSx support from Earle F. Ake of Hassler Communication Systems Technology, Inc. HP-UX 10.x compile glitches, reported by Anne Brink of the U.S. Army and James Byrne of Harte & Lyne Limited. NetBSD from Matthew Green of the NetBSD crew. SCO 5.x from Keith Reynolds of SCO. IRIX 6.2 from Robert Tarrall of the University of Colorado and Kari Hurtta of the Finnish Meteorological Institute. UXP/DS (Fujitsu/ICL DS/90 series) support from Diego R. Lopez, CICA (Seville). NCR SVR4 MP-RAS 3.x support from Tom Moore of NCR. PTX 3.2.0 from Kenneth Stailey of the US Department of Labor Employment Standards Administration. Altos System V (5.3.1) from Tim Rice of Multitalents. Concurrent Systems Corporation Maxion from Donald R. Laster Jr. NetInfo maps (improved debugging and multi-valued aliases) from Adrian Steinmann of Steinmann Consulting. ConvexOS 11.5 (including SecureWare C2 and the Share Scheduler) from Eric Schnoebelen of Convex. Linux 2.0 mail.local patches from Horst von Brand. NEXTSTEP 3.x compilation from Robert La Ferla. NEXTSTEP 3.x code changes from Allan J. Nathanson of NeXT. Solaris 2.5 configuration fixes for mail.local by Jim Davis of the University of Arizona. Solaris 2.5 has a working setreuid. Noted by David Linn of Vanderbilt University. Solaris changes for praliases, makemap, mailstats, and smrsh. Previously you had to add -DSOLARIS in Makefile.dist; this auto-detects. Based on a patch from Randall Winchester of the University of Maryland. CONFIG: add generic-nextstep3.3.mc file. Contributed by Robert La Ferla of Hot Software. CONFIG: allow mailertables to resolve to ``error:code message'' (where "code" is an exit status) on domains (previously worked only on hosts). Patch from Cor Bosman of Xs4all Foundation. CONFIG: hooks for IPv6-style domain literals. CONFIG: predefine ALIAS_FILE and change the prototype file so that if it is undefined the AliasFile option is never set; this should be transparent for most everyone. Suggested by John Myers of CMU. CONFIG: add FEATURE(limited_masquerade). Without this feature, any domain listed in $=w is masqueraded. With it, only those domains listed in a MASQUERADE_DOMAIN macro are masqueraded. CONFIG: add FEATURE(masquerade_entire_domain). This causes masquerading specified by MASQUERADE_DOMAIN to apply to all hosts under those domains as well as the domain headers themselves. For example, if a configuration had MASQUERADE_DOMAIN(foo.com), then without this feature only foo.com would be masqueraded; with it, *.foo.com would be masqueraded as well. Based on an implementation by Richard (Pug) Bainter of U. Texas. CONFIG: add FEATURE(genericstable) to do a more general rewriting of outgoing addresses. Defaults to ``hash -o /etc/genericstable''. Keys are user names; values are outgoing mail addresses. Yes, this does overlap with the user database, and figuring out just when to use which one may be tricky. Based on code contributed by Richard (Pug) Bainter of U. Texas with updates from Per Hedeland of Ericsson. CONFIG: add FEATURE(virtusertable) to do generalized rewriting of incoming addresses. Defaults to ``hash -o /etc/virtusertable''. Keys are either fully qualified addresses or just the host part (with the @ sign). For example, a table containing: info@foo.com foo-info info@bar.com bar-info @baz.org jane@elsewhere.net would send all mail destined for info@foo.com to foo-info (which is presumably an alias), mail addressed to info@bar.com to bar-info, and anything addressed to anyone at baz.org will be sent to jane@elsewhere.net. The names foo.com, bar.com, and baz.org must all be in $=w. Based on discussions with a great many people. CONFIG: add nullclient configurations to define SMTP_MAILER_FLAGS. Suggested by Richard Bainter. CONFIG: add FAX_MAILER_ARGS to tweak the arguments passed to the "fax" mailer. CONFIG: allow mailertable entries to resolve to local:user; this passes the original user@host in to procmail-style local mailers as the "detail" information to allow them to do additional clever processing. From Joe Pruett of Teleport Corporation. Delivery to the original user can be done by specifying "local:" (with nothing after the colon). CONFIG: allow any context that takes "mailer:domain" to also take "mailer:user@domain" to force mailing to the given user; "local:user" can also be used to do local delivery. This applies on *_RELAY and in the mailertable entries. Based on a suggestion by Ribert Kiessling of Easynet. CONFIG: Allow FEATURE(bestmx_is_local) to take an argument that limits the possible domains; this reduces the number of DNS lookups required to support this feature. For example, FEATURE(bestmx_is_local, my.site.com) limits the lookups to domains under my.site.com. Code contributed by Anthony Thyssen . CONFIG: LOCAL_RULESETS introduces any locally defined rulesets, such as the check_rcpt ruleset. Suggested by Gregory Shapiro of WPI. CONFIG: MAILER_DEFINITIONS introduces any mailer definitions, in the event you have to define local mailers. Suggested by Gregory Shapiro of WPI. CONFIG: fix cases where a three- (or more-) stage route-addr could be misinterpreted as a list:...; syntax. Based on a patch by Vlado Potisk . CONFIG: Fix masquerading of UUCP addresses when the UUCP relay is remotely connected. The address host!user was being converted to host!user@thishost instead of host!user@uurelay. Problem noted by William Gianopoulos of Raytheon Company. CONFIG: add confTO_ICONNECT to set Timeout.iconnect. CONFIG: change FEATURE(redirect) message from "User not local" to "User has moved"; the former wording was confusing if the new address is still on the local host. Based on a suggestion by Andreas Luik. CONFIG: add support in FEATURE(nullclient) for $=E (exposed users). However, the class is not pre-initialized to contain root. Suggested by Gregory Neil Shapiro. CONTRIB: Remove XLA code at the request of the author, Christophe Wolfhugel. CONTRIB: Add re-mqueue.pl, contributed by Paul Pomes of Qualcomm. MAIL.LOCAL: make it possible to compile mail.local on Solaris. Note well: this produces a slightly different mailbox format (no Content-Length: headers), file ownerships and modes are different (not owned by group mail; mode 600 instead of 660), and the local mailer flags will have to be tweaked (make them match bsd4.4) in order to use this mailer. Patches from Paul Hammann of the Missouri Research and Education Network. MAIL.LOCAL: in some cases it could return EX_OK even though there was a delivery error, such as if the ownership on the file was wrong or the mode changed between the initial stat and the open. Problem reported by William Colburn of the New Mexico Institute of Mining and Technology. MAILSTATS: handle zero length files more reliably. Patch from Bryan Costales. MAILSTATS: add man page contributed by Keith Bostic of BSDI. MAKEMAP: The -d flag (to allow duplicate keys) to a btree map wasn't honored. Fix from Michael Scott Shappe. PRALIASES: add man page contributed by Keith Bostic of BSDI. NEW FILES: src/Makefiles/Makefile.AIX.2 src/Makefiles/Makefile.IRIX.6.2 src/Makefiles/Makefile.maxion src/Makefiles/Makefile.NCR.MP-RAS.3.x src/Makefiles/Makefile.SCO.5.x src/Makefiles/Makefile.UXPDSV20 mailstats/mailstats.8 praliases/praliases.8 cf/cf/generic-nextstep3.3.mc cf/feature/genericstable.m4 cf/feature/limited_masquerade.m4 cf/feature/masquerade_entire_domain.m4 cf/feature/virtusertable.m4 cf/ostype/aix2.m4 cf/ostype/altos.m4 cf/ostype/maxion.m4 cf/ostype/solaris2.ml.m4 cf/ostype/uxpds.m4 contrib/re-mqueue.pl DELETED FILES: src/Makefiles/Makefile.Solaris contrib/xla/README contrib/xla/xla.c RENAMED FILES: src/Makefiles/Makefile.NCR3000 => Makefile.NCR.MP-RAS.2.x src/Makefiles/Makefile.SCO.3.2v4.2 => Makefile.SCO.4.2 src/Makefiles/Makefile.UXPDS => Makefile.UXPDSV10 src/Makefiles/Makefile.NeXT => Makefile.NeXT.2.x src/Makefiles/Makefile.NEXTSTEP => Makefile.NeXT.3.x 8.7.6/8.7.3 1996/09/17 SECURITY: It is possible to force getpwuid to fail when writing the queue file, causing sendmail to fall back to running programs as the default user. This is not exploitable from off-site. Workarounds include using a unique user for the DefaultUser (old u & g options) and using smrsh as the local shell. SECURITY: fix some buffer overruns; in at least one case this allows a local user to get root. This is not known to be exploitable from off-site. The workaround is to disable chfn(1) commands. 8.7.5/8.7.3 1996/03/04 Fix glitch in 8.7.4 when putting certain internal lines; this can in some case cause connections to hang or messages to have extra spaces in odd places. Patch from Eric Wassenaar; reports from Eric Hall of Chiron Corporation, Stephen Hansen of Stanford University, Dean Gaudet of HotWired, and others. 8.7.4/8.7.3 1996/02/18 SECURITY: In some cases it was still possible for an attacker to insert newlines into a queue file, thus allowing access to any user (except root). CONFIG: no changes -- it is not a bug that the configuration version number is unchanged. 8.7.3/8.7.3 1995/12/03 Fix botch in name server timeout in RCPT code; this problem caused two responses in SMTP, which breaks things horribly. Fix from Gregory Neil Shapiro of WPI. Verify that L= value on M lines cannot be negative, which could cause negative array subscripting. Not a security problem since this has to be in the config file, but it could have caused core dumps. Pointed out by Bryan Costales. Fix -d21 debug output for long macro names. Pointed out by Bryan Costales. PORTABILITY FIXES: SCO doesn't have ftruncate. From Bill Aten of Computerizers. IBM's version of arpa/nameser.h defaults to the wrong byte order. Tweak it to work properly. Based on fixes from Fletcher Mattox of UTexas and Betty Lee of Stanford University. CONFIG: add confHOSTS_FILE m4 variable to set HostsFile option. Deficiency pointed out by Bryan Costales of ICSI. 8.7.2/8.7.2 1995/11/19 REALLY fix the backslash escapes in SmtpGreetingMessage, OperatorChars, and UnixFromLine options. They were not properly repaired in 8.7.1. Completely delete the Bcc: header if and only if there are other valid recipient headers (To:, Cc: or Apparently-To:, the last being a historic botch, of course). If Bcc: is the only recipient header in the message, its value is tossed, but the header name is kept. The old behavior (always keep the header name and toss the value) allowed primary recipients to see that a Bcc: went to _someone_. Include queue id on ``Authentication-Warning: : set sender to
    using -f'' syslog messages. Suggested by Kari Hurtta. If a sequence or switch map lookup entry gets a tempfail but then continues on to another map type, but the name is not found, return a temporary failure from the sequence or switch map. For example, if hosts search ``dns files'' and DNS fails with a tempfail, the hosts map will go on and search files, but if it fails the whole thing should be a tempfail, not a permanent (host unknown) failure, even though that is the failure in the hosts.files map. This error caused hard bounces when it should have requeued. Aliases to files such as /users/bar/foo/inbox, with /users/bar/foo owned by bar mode 700 and inbox being set-user-ID bar stopped working properly due to excessive paranoia. Pointed out by John Hawkinson of Panix. An SMTP RCPT command referencing a host that gave a nameserver timeout would return a 451 command (8.6 accepted it and queued it locally). Revert to the 8.6 behavior in order to simplify queue management for clustered systems. Suggested by Gregory Neil Shapiro of WPI. The same problem could break MH, which assumes that the SMTP session will succeed (tsk, tsk -- mail gets lost!); this was pointed out by Stuart Pook of Infobiogen. Fix possible buffer overflow in munchstring(). This was not a security problem because you couldn't specify any argument to this without first giving up root privileges, but it is still a good idea to avoid future problems. Problem noted by John Hawkinson and Sam Hartman of MIT. ``452 Out of disk space for temp file'' messages weren't being printed. Fix from David Perlin of Nanosoft. Don't advertise the ESMTP DSN extension if the SendMimeErrors option is not set, since this is required to get the actual DSNs created. Problem pointed out by John Gardiner Myers of CMU. Log permission problems that cause .forward and :include: files to be untrusted or ignored on log level 12 and higher. Suggested by Randy Martin of Clemson University. Allow user ids in U= clauses of M lines to have hyphens and underscores. Fix overcounting of recipients -- only happened when sending to an alias. Pointed out by Mark Andrews of SGI and Jack Woolley of Systems and Computer Technology Corporation. If a message is sent to an address that fails, the error message that is returned could show some extraneous "success" information included even if the user did not request success notification, which was confusing. Pointed out by Allan Johannesen of WPI. Config files that had no AliasFile definition were defaulting to using /etc/aliases; this caused problems with nullclient configurations. Change it back to the 8.6 semantics of having no local alias file unless it is declared. Problem noted by Charles Karney of Princeton University. Fix compile problem if NOTUNIX is defined. Pointed out by Bryan Costales of ICSI. Map lookups of class "userdb" maps were always case sensitive; they should be controlled by the -f flag like other maps. Pointed out by Bjart Kvarme . Fix problem that caused some addresses to be passed through ruleset 5 even when they were tagged as "sticky" by prefixing the address with an "@". Patch from Thomas Dwyer III of Michigan Technological University. When converting a message to Quoted-Printable, prevent any lines with dots alone on a line by themselves. This is because of the preponderance of broken mailers that still get this wrong. Code contributed by Per Hedeland of Ericsson. Fix F{macro}/file construct -- it previously did nothing. Pointed out by Bjart Kvarme of USIT/UiO (Norway). Announce whether a cached connection is SMTP or ESMTP (in -v mode). Requested by Allan Johannesen. Delete check for text format of alias files -- it should be legal to have the database format of the alias files without the text version. Problem pointed out by Joe Rhett of Navigist, Inc. If "Ot" was specified with no value, the TZ variable was not properly imported from the environment. Pointed out by Frank Crawford . Some architectures core dumped on "program" maps that didn't have extra arguments. Patch from Booker C. Bense of Stanford University. Queue run processes would re-spawn daemons when given a SIGHUP; only the parent should do this. Fix from Brian Coan of the Association for Progressive Communications. If MinQueueAge was set and a message was considered but not run during a queue run and the Timeout.queuereturn interval was reached, a "timed out" error message would be returned that didn't include the failed address (and claimed to be a warning even though it was fatal). The fix is to not return such messages until they are actually tried, i.e., in the next MinQueueAge interval. Problem noted by Rein Tollevik of SINTEF RUNIT, Oslo. Add HES_GETMAILHOST compile flag to support MIT Hesiod distributions that have the hes_getmailhost() routine. DEC Hesiod distributions do not have this routine. Based on a patch from Betty Lee of Stanford University. Extensive cleanups to map open code to handle a locking race condition in ndbm, hash, and btree format database files on some (most non-4.4-BSD based) OS architectures. This should solve the occasional "user unknown" problem during alias rebuilds that has plagued me for quite some time. Based on a patch from Thomas Dwyer III of Michigan Technological University. PORTABILITY FIXES: Solaris: Change location of newaliases and mailq from /usr/ucb to /usr/bin to match Sun settings. From James B. Davis of TCI. DomainOS: Makefile.DomainOS doesn't require -ldbm. From Don Lewis of Silicon Systems. HP-UX 10: rename Makefile.HP-UX.10 => Makefile.HP-UX.10.x so that the makesendmail script will find it. Pointed out by Richard Allen of the University of Iceland. Also, use -Aa -D_HPUX_SOURCE instead of -Ae, which isn't supported on all compilers. UXPDS: compilation fixes from Diego R. Lopez. CONFIG: FAX mailer wasn't setting .FAX as a pseudo-domain unless you also had a FAX_RELAY. From Thomas.Tornblom@Hax.SE. CONFIG: Minor glitch in S21 -- attachment of local domain name didn't have trailing dot. From Jim Hickstein of Teradyne. CONFIG: Fix best_mx_is_local feature to allow nested addresses such as user%host@thishost. From Claude Scarpelli of Infobiogen (France). CONFIG: OSTYPE(hpux10) failed to define the location of the help file. Pointed out by Hannu Martikka of Nokia Telecommunications. CONFIG: Diagnose some inappropriate ordering in configuration files, such as FEATURE(smrsh) listed after MAILER(local). Based on a bug report submitted by Paul Hoffman of Proper Publishing. CONFIG: Make OSTYPE files consistently not override settings that have already been set. Previously it worked differently for different files. CONFIG: Change relay mailer to do masquerading like 8.6 did. My take is that this is wrong, but the change was causing problems for some people. From Per Hedeland of Ericsson. CONTRIB: bitdomain.c patch from John Gardiner Myers ; portability changes for Posix environments (no functional changes). 8.7.1/8.7.1 1995/10/01 Old macros that have become options (SmtpGreetingMessage, OperatorChars, and UnixFromLine) didn't allow backslash escapes in the options, where they previously had. Bug pointed out by John Hawkinson of MIT. Fix strange case of an executable called by a program map that returns a value but also a non-zero exit status; this would give contradictory results in the higher level; in particular, the default clause in the map lookup would be ignored. Change to ignore the value if the program returns non-zero exit status. From Tom Moore of AT&T GIS. Shorten parameters passed to syslog() in some contexts to avoid a bug in many vendors' implementations of that routine. Although this isn't really a bug in sendmail per se, and my solution has to assume that syslog() has at least a 1K buffer size internally (I know some vendors have shortened this dramatically -- they're on their own), sendmail is a popular target. Also, limit the size of %s arguments in sprintf. These both have possible security implications. Solutions suggested by Casper Dik of Sun's Network Security Group (Holland), Mark Seiden, and others. Fix a problem that might cause a non-standard -B (body type) parameter to be passed to the next server with undefined results. This could have security implications. If a filesystem was at > 100% utilization, the freediskspace() routine incorrectly returned an error rather than zero. Problem noted by G. Paul Ziemba of Alantec. Change MX sort order so that local hostnames (those in $=w) always sort first within a given preference. This forces the bestmx map to always return the local host first, if it is included in the list of highest priority MX records. From K. Robert Elz. Avoid some possible null pointer dereferences. Fixes from Randy Martin When sendmail starts up on systems that have no fully qualified domain name (FQDN) anywhere in the first matching host map (e.g., /etc/hosts if the hosts service searches "files dns"), sendmail would sleep to try to find a FQDN, which it really really needs. This has been changed to fall through to the next map type if it can't find a FQDN -- i.e., if the hosts file doesn't have a FQDN, it will try dns even though the short name was found in /etc/hosts. This is probably a crock, but many people have hosts files without FQDNs. Remember: domain names are your friends. Log a high-priority message if you can't find your FQDN during startup. Suggested by Simon Barnes of Schlumberger Limited. When using Hesiod, initialize it early to improve error reporting. Patch from Don Lewis of Silicon Systems, Inc. Apparently at least some versions of Linux have a 90 !minute! TCP connection timeout in the kernel. Add a new "connect" timeout to limit this time. Defaults to zero (use whatever the kernel provides). Based on code contributed by J.R. Oldroyd of TerraNet. Under some circumstances, a failed message would not be properly removed from the queue, causing tons of bogus error messages. (This fix eliminates the problematic EF_KEEPQUEUE flag.) Problem noted by Allan E Johannesen and Gregory Neil Shapiro of WPI. PORTABILITY FIXES: On IRIX 5.x, there was an inconsistency in the setting of sendmail.st location. Change the Makefile to install it in /var/sendmail.st to match the OSTYPE file and SGI standards. From Andre . Support for Fujitsu/ICL UXP/DS (For the DS/90 Series) from Diego R. Lopez . Linux compilation patches from J.R. Oldroyd of TerraNet, Inc. LUNA 2 Mach patches from Motonori Nakamura. SunOS Makefile was including -ldbm, which is for the old dbm library. The ndbm library is part of libc. CONFIG: avoid bouncing ``user@host.'' (note trailing dot) with ``local configuration error'' in nullclient configuration. Patch from Gregory Neil Shapiro of WPI. CONFIG: don't allow an alias file in nullclient configurations -- since all addresses are relayed, they give errors during rebuild. Suggested by Per Hedeland of Ericsson. CONFIG: local mailer on Solaris 2 should always get a -f flag because otherwise the F=S causes the From_ line to imply that root is the sender. Problem pointed out by Claude Scarpelli of Infobiogen (France). NEW FILES: cf/feature/use_ct_file.m4 (omitted from 8.7 by mistake) src/Makefiles/Makefile.KSR (omitted from 8.7 by mistake) src/Makefiles/Makefile.UXPDS 8.7/8.7 1995/09/16 Fix a problem that could cause sendmail to run out of file descriptors due to a trashed data structure after a vfork. Fix from Brian Coan of the Institute for Global Communications. Change the VRFY response if you have disabled VRFY -- some people seemed to think that it was too rude. Avoid reference to uninitialized file descriptor if HASFLOCK was not defined. This was used "safely" in the sense that it only did a stat, but it would have set the map modification time improperly. Problem pointed out by Roy Mongiovi of Georgia Tech. Clean up the Subject: line on warning messages and return receipts so that they don't say "Returned mail:"; this can be confusing. Move ruleset entry/exit debugging from 21.2 to 21.1 -- this is useful enough to make it worthwhile printing on "-d". Avoid logging alias statistics every time you read the alias file on systems with no database method compiled in. If you have a name with a trailing dot, and you try looking it up using gethostbyname without the dot (for /etc/hosts compatibility), be sure to turn off RES_DEFNAMES and RES_DNSRCH to avoid finding the wrong name accidentally. Problem noted by Charles Amos of the University of Maryland. Don't do timeouts in collect if you are not running SMTP. There is nothing that says you can't have a long running program piped into sendmail (possibly via /bin/mail, which just execs sendmail). Problem reported by Don "Truck" Lewis of Silicon Systems. Try gethostbyname() even if the DNS lookup fails iff option I is not set. This allows you to have hosts listed in NIS or /etc/hosts that are not known to DNS. It's normally a bad idea, but can be useful on firewall machines. This should really be broken out on a separate flag, I suppose. Avoid compile warnings against BIND 4.9.3, which uses function prototypes. From Don Lewis of Silicon Systems. Avoid possible incorrect diagnosis of DNS-related errors caused by things like attempts to resolve uucp names using $[ ... $] -- the fix is to clear h_errno at appropriate times. From Kyle Jones of UUNET. SECURITY: avoid denial-of-service attacks possible by destroying the alias database file by setting resource limits low. This involves adding two new compile-time options: HASSETRLIMIT (indicating that setrlimit(2) support is available) and HASULIMIT (indicating that ulimit(2) support is available -- the Release 3 form is used). The former is assumed on BSD-based systems, the latter on System V-based systems. Attack noted by Phil Brandenberger of Swarthmore University. New syntaxes in test (-bt) mode: ``.Dmvalue'' will define macro "m" to "value". ``.Ccvalue'' will add "value" to class "c". ``=Sruleset'' will dump the contents of the indicated ruleset. ``=M'' will display the known mailers. ``-ddebug-spec'' is equivalent to the command-line -d debug flag. ``$m'' will print the value of macro $m. ``$=c'' will print the contents of class $=c. ``/mx host'' returns the MX records for ``host''. ``/parse address'' will parse address, returning the value of crackaddr (essentially, the comment information) and the parsed address. ``/try mailer address'' will rewrite address into the form it will have when presented to the indicated mailer. ``/tryflags flags'' will set flags used by parsing. The flags can be `H' for header or `E' for envelope, and `S' for sender or `R' for recipient. These can be combined, so `HR' sets flags for header recipients. ``/canon hostname'' will try to canonify hostname and return the result. ``/map mapname key'' will look up `key' in the indicated `mapname' and return the result. Somewhat better handling of UNIX-domain socket addresses -- it should show the pathname rather than hex bytes. Restore ``-ba'' mode -- this reads a file from stdin and parses the header for envelope sender information and uses CRLF as message terminators. It was thought to be obsolete (used only for Arpanet NCP protocols), but it turns out that the UK ``Grey Book'' protocols require that functionality. Fix a fix in previous release -- if gethostname and gethostbyname return a name without dots, and if an attempt to canonify that name fails, wait one minute and try again. This can result in an extra 60 second delay on startup if your system hostname (as returned by hostname(1)) has no dot and no names listed in /etc/hosts or your NIS map have a dot. Check for proper domain name on HELO and EHLO commands per RFC 1123 section 5.2.5. Problem noted by Thomas Dwyer III of Michigan Technological University. Relax chownsafe rules slightly -- old version said that if you can't tell if _POSIX_CHOWN_RESTRICTED is set (that is, if fpathconf returned EINVAL or ENOSYS), assume that chown is not safe. The new version falls back to whether you are on a BSD system or not. This is important for SunOS, which apparently always returns one of those error codes. This impacts whether you can mail to files or not. Syntax errors such as unbalanced parentheses in the configuration file could be omitted if you had "Oem" prior to the syntax error in the config file. Change to always print the error message. It was especially weird because it would cause a "warning" message to be sent to the Postmaster for every message sent (but with no transcript). Problem noted by Gregory Paris of Motorola. Rewrite collect and putbody to handle full 8-bit data, including zero bytes. These changes are internally extensive, but should have minimal impact on external function. Allow full words for option names -- if the option letter is (apparently) a space, then take the word following -- e.g., O MatchGECOS=TRUE The full list of old and new names is as follows: 7 SevenBitInput 8 EightBitMode A AliasFile a AliasWait B BlankSub b MinFreeBlocks/MaxMessageSize C CheckpointInterval c HoldExpensive D AutoRebuildAliases d DeliveryMode E ErrorHeader e ErrorMode f SaveFromLine F TempFileMode G MatchGECOS H HelpFile h MaxHopCount i IgnoreDots I ResolverOptions J ForwardPath j SendMimeErrors k ConnectionCacheSize K ConnectionCacheTimeout L LogLevel l UseErrorsTo m MeToo n CheckAliases O DaemonPortOptions o OldStyleHeaders P PostmasterCopy p PrivacyOptions Q QueueDirectory q QueueFactor R DontPruneRoutes r, T Timeout S StatusFile s SuperSafe t TimeZoneSpec u DefaultUser U UserDatabaseSpec V FallbackMXHost v Verbose w TryNullMXList x QueueLA X RefuseLA Y ForkEachJob y RecipientFactor z ClassFactor Z RetryFactor The old macros that passed information into sendmail have been changed to options; those correspondences are: $e SmtpGreetingMessage $l UnixFromLine $o OperatorChars $q (deleted -- not necessary) To avoid possible problems with an older sendmail, configuration level 6 is accepted by this version of sendmail; any config file using the new names should specify "V6" in the configuration. Change address parsing to properly note that a phrase before a colon and a trailing semicolon are essentially the same as text outside of angle brackets (i.e., sendmail should treat them as comments). This is to handle the ``group name: addr1, addr2, ..., addrN;'' syntax (it will assume that ``group name:'' is a comment on the first address and the ``;'' is a comment on the last address). This requires config file support to get right. It does understand that :: is NOT this syntax, and can be turned off completely by setting the ColonOkInAddresses option. Level 6 config files added with new mailer flags: A Addresses are aliasable. i Do udb rewriting on envelope as well as header sender lines. Applies to the from address mailer flags rather than the recipient mailer flags. j Do udb rewriting on header recipient addresses. Applies to the sender mailer flags rather than the recipient mailer flags. k Disable check for loops when doing HELO command. o Always run as the mail recipient, even on local delivery. w Check for an /etc/passwd entry for this user. 5 Pass addresses through ruleset 5. : Check for :include: on this address. | Check for |program on this address. / Check for /file on this address. @ Look up sender header addresses in the user database. Applies to the mailer flags for the mailer corresponding to the envelope sender address, rather than to recipient mailer flags. Pre-level 6 configuration files set A, w, 5, :, |, /, and @ on the "local" mailer, the o flag on the "prog" and "*file*" mailers, and the ColonOkInAddresses option. Eight-to-seven bit MIME conversions. This borrows ideas from John Beck of Hewlett-Packard, who generously contributed their implementation to me, which I then didn't use (see mime.c for an explanation of why). This adds the EightBitMode option (a.k.a. `8') and an F=8 mailer flag to control handling of 8-bit data. These have to cope with two types of 8-bit data: unlabelled 8-bit data (that is, 8-bit data that is entered without declaring it as 8-bit MIME -- technically this is illegal according to the specs) and labelled 8-bit data (that is, it was declared as 8BITMIME in the ESMTP session or by using the -B8BITMIME command line flag). If the F=8 mailer flag is set then 8-bit data is sent to non-8BITMIME machines instead of converting to 7 bit (essentially using just-send-8 semantics). The values for EightBitMode are: m convert unlabelled 8-bit input to 8BITMIME, and do any necessary conversion of 8BITMIME to 7BIT (essentially, the full MIME option). p pass unlabelled 8-bit input, but convert labelled 8BITMIME input to 7BIT as required (default). s strict adherence: reject unlabelled 8-bit input, convert 8BITMIME to 7BIT as required. The F=8 flag is ignored. Unlabelled 8-bit data is rejected in mode `s' regardless of the setting of F=8. Add new internal class 'n', which is the set of MIME Content-Types which can not be 8 to 7 bit encoded because of other considerations. Types "multipart/*" and "message/*" are never directly encoded (although their components can be). Add new internal class 's', which is the set of subtypes of the MIME message/* content type that can be treated as though they are an RFC822 message. It is predefined to have "rfc822". Suggested By Kari Hurtta. Add new internal class 'e'. This is the set of MIME Content-Transfer-Encodings that can be converted to a seven bit format (Quoted-Printable or Base64). It is preinitialized to contain "7bit", "8bit", and "binary". Add C=charset mailer parameter and the the DefaultCharSet option (no short name) to set the default character set to use in the Content-Type: header when doing encoding of an 8-bit message which isn't marked as MIME into MIME format. If the C= parameter is set on the Envelope From address, use that as the default encoding; else use the DefaultCharSet option. If neither is set, it defaults to "unknown-8bit" as suggested by RFC 1428 section 3. Allow ``U=user:group'' field in mailer definition to set a default user and group that a mailer will be executed as. This overrides the 'u' and 'g' options, and if the `F=S' flag is also set, it is the uid/gid that will always be used (that is, the controlling address is ignored). The values may be numeric or symbolic; if only a symbolic user is given (no group) that user's default group in the passwd file is used as the group. Based on code donated by Chip Rosenthal of Unicom. Allow `u' option to also accept user:group as a value, in the same fashion as the U= mailer option. Add the symbolic time zone name in the Arpanet format dates (as a comment). This adds a new compile-time configuration flag: TZ_TYPE can be set to TZ_TM_NAME (use the value of (struct tm *)->tm_name), TZ_TM_ZONE (use the value of (struct tm *)->tm_zone), TZ_TZNAME (use extern char *tzname[(struct tm *)->tm_isdst]), TZ_TIMEZONE (use timezone()), or TZ_NONE (don't include the comment). Code from Chip Rosenthal. The "Timeout" option (formerly "r") is extended to allow suboptions. For example, O Timeout.helo = 2m There are also two new suboptions "queuereturn" and "queuewarn"; these subsume the old T option. Thus, to set them both the preferred new syntax is O Timeout.queuereturn = 5d O Timeout.queuewarn = 4h Sort queue by host name instead of by message priority if the QueueSortOrder option (no short name) is set is set to ``host''. This makes better use of the connection cache, but may delay more ``interactive'' messages behind large backlogs under some circumstances. This is probably a good option if you have high speed links or don't do lots of ``batch'' messages, but less good if you are using something like PPP on a 14.4 modem. Based on code contributed by Roy Mongiovi of Georgia Tech (my main contribution was to make it configurable). Save i-number of df file in qf file to simplify rebuilding of queue after disastrous disk crash. Suggested by Kyle Jones of UUNET; closely based on code from KJS DECWRL code written by Paul Vixie. NOTA BENE: The qf files produced by 8.7 are NOT back compatible with 8.6 -- that is, you can convert from 8.6 to 8.7, but not the other direction. Add ``F=d'' mailer flag to disable all use of angle brackets in route-addrs in envelopes; this is because in some cases they can be sent to the shell, which interprets them as I/O redirection. Don't include error file (option E) with return-receipts; this can be confusing. Don't send "Warning: cannot send" messages to owner-* or *-request addresses. Suggested by Christophe Wolfhugel of the Institut Pasteur, Paris. Allow -O command line flag to set long form options. Add "MinQueueAge" option to set the minimum time between attempts to run the queue. For example, if the queue interval (-q value) is five minutes, but the minimum queue age is fifteen minutes, jobs won't be tried more often than once every fifteen minutes. This can be used to give you more responsiveness if your delivery mode is set to queue-only. Allow "fileopen" timeout (default: 60 seconds) for opening :include: and .forward files. Add "-k", "-v", and "-z" flags to map definitions; these set the key field name, the value field name, and the field delimiter. The field delimiter can be a single character or the sequence "\t" or "\n" for tab or newline. These are for use by NIS+ and similar access methods. Change maps to always strip quotes before lookups; the -q flag turns off this behavior. Suggested by Motonori Nakamura. Add "nisplus" map class. Takes -k and -v flags to choose the key and value field names respectively. Code donated by Sun Microsystems. Add "hesiod" map class. The "file name" is used as the "HesiodNameType" parameter to hes_resolve(3). Returns the first value found for the match. Code donated by Scott Hutton of Indiana University. Add "netinfo" (NeXT NetInfo) map class. Maps can have a -k flag to specify the name of the property that is searched as the key and a -v flag to specify the name of the property that is returned as the value (defaults to "members"). The default map is "/aliases". Some code based on code contributed by Robert La Ferla of Hot Software. Add "text" map class. This does slow, linear searches through text files. The -z flag specifies a column delimiter (defaults to any sequence of white space), the -k flag sets the key column number, and the -v flag sets the value column number. Lines beginning with `#' are treated as comments. Add "program" map class to execute arbitrary programs. The search key is presented as the last argument; the output is one line read from the programs standard output. Exit statuses are from sysexits.h. Add "sequence" map class -- searches maps in sequence until it finds a match. For example, the declarations: Kmap1 ... Kmap2 ... Kmapseq sequence map1 map2 defines a map "mapseq" that first searches map1; if the value is found it is returned immediately, otherwise map2 is searched and the value returned. Add "switch" map class. This is much like "sequence" except that the ordering is fetched from an external file, usually the system service switch. The parameter is the name of the service to switch on, and the maps that it will use are the name of the switch map followed by ".service_type". For example, if the declaration of the map is Ksample switch hosts and the system service switch specifies that hosts are looked up using dns and nis in that order, then this is equivalent to Ksample sequence sample.dns sample.nis The subordinate maps (sample.*) must already be defined. Add "user" map class -- looks up users using getpwnam. Takes a "-v field" flag on the definition that tells what passwd entry to return -- legal values are name, passwd, uid, gid, gecos, dir, and shell. Generally expected to be used with the -m (matchonly) flag. Add "bestmx" map class -- returns the best MX value for the host listed as the value. If there are several "best" MX records for this host, one will be chosen at random. Add "userdb" map class -- looks up entries in the user database. The "file name" is actually the tag that will be used, typically "mailname". If there are multiple entries matching the name, the one chosen is undefined. Add multiple queue timeouts (both return and warning). These are set by the Precedence: or Priority: header fields to one of three values. If a Priority: is set and has value "normal", "urgent", or "non-urgent" the corresponding timeouts are used. If no priority is set, the Precedence: is consulted; if negative, non-urgent timeouts are used; if greater than zero, urgent timeouts are used. Otherwise, normal timeouts are used. The timeouts are set by setting the six timeouts queue{warn,return}.{urgent,normal,non-urgent}. Fix problem when a mail address is resolved to a $#error mailer with a temporary failure indication; it works in SMTP, but when delivering locally the mail is silently discarded. This patch, from Kyle Jones of UUNET, bounces it instead of queueing it (queueing is very hard). When using /etc/hosts or NIS-style lookups, don't assume that the first name in the list is the best one -- instead, search for the first one with a dot. For example, if an /etc/hosts entry reads 128.32.149.68 mammoth mammoth.CS.Berkeley.EDU this change will use the second name as the canonical machine name instead of the initial, unqualified name. Change dequote map to replace spaces in quoted text with a value indicated by the -s flag on the dequote map definition. For example, ``Mdequote dequote -s_'' will change "Foo Bar" into an unquoted Foo_Bar instead of leaving it quoted (because of the space character). Suggested by Dan Oscarsson for use in X.400 addresses. Implement long macro names as ${name}; long class names can be similarly referenced as $={name} and $~{name}. Definitions are (e.g.) ``D{name}value''. Names that have a leading lower case letter or punctuation characters are reserved for internal use by sendmail; i.e., config files should use names that begin with a capital letter. Based on code contributed by Dan Oscarsson. Fix core dump if getgrgid returns a null group list (as opposed to an empty group list, that is, a pointer to a list with no members). Fix from Andrew Chang of Sun Microsystems. Fix possible core dump if malloc fails -- if the malloc in xalloc failed, it called syserr which called newstr which called xalloc.... The newstr is now avoided for "panic" messages. Reported by Stuart Kemp of James Cook University. Improve connection cache timeouts; previously, they were not even checked if you were delivering to anything other than an IPC-connected host, so a series of (say) local mail deliveries could cause cached connections to be open much longer than the specified timeout. If an incoming message exceeds the maximum message size, stop writing the incoming bytes to the queue data file, since this can fill your mqueue partition -- this is a possible denial-of-service attack. Don't reject all numeric local user names unless HESIOD is defined. It turns out that Posix allows all-numeric user names. Fix from Tony Sanders of BSDI. Add service switch support. If the local OS has a service switch (e.g., /etc/nsswitch.conf on Solaris or /etc/svc.conf on DEC systems) that will be used; otherwise, it falls back to using a local mechanism based on the ServiceSwitchFile option (default: /etc/service.switch). For example, if the service switch lists "files" and "nis" for the aliases service, that will be the default lookup order. the "files" ("local" on DEC) service type expands to any alias files you listed in the configuration file, even if they aren't actually file lookups. Option I (NameServerOptions) no longer sets the "UseNameServer" variable which tells whether or not DNS should be considered canonical. This is now determined based on whether or not "dns" is in the service list for "hosts". Add preliminary support for the ESMTP "DSN" extension (Delivery Status Notifications). DSN notifications override Return-Receipt-To: headers, which are bogus anyhow -- support for them has been removed. Add T=mts-name-type/address-type/diagnostic-type keyletter to mailer definitions to define the types used in DSN returns for MTA names, addresses, and diagnostics respectively. Extend heuristic to force running in ESMTP mode to look for the five-character string "ESMTP" anywhere in the 220 greeting message (not just the second line). This is to provide better compatibility with other ESMTP servers. Print sequence number of job when running the queue so you can easily see how much progress you have made. Suggested by Peter Wemm of DIALix. Map newlines to spaces in logged message-ids; some versions of syslog truncate the rest of the line after newlines. Suggested by Fletcher Mattox of U. Texas. Move up forking for job runs so that if a message is split into multiple envelopes you don't get "fork storms" -- this also improves the connection cache utilization. Accept "<<>>", "<<<>>>", and so forth as equivalent to "<>" for the purposes of refusing to send error returns. Suggested by Motonori Nakamura of Ritsumeikan University. Relax rules on when a file can be written when referenced from the aliases file: use the default uid/gid instead of the real uid/gid. This allows you to create a file owned by and writable only by the default uid/gid that will work all the time (without having the set-user-ID bit set). Change suggested by Shau-Ping Lo and Andrew Cheng of Sun Microsystems. Add "DialDelay" option (no short name) to provide an "extra" delay for dial on demand systems. If this is non-zero and a connect fails, sendmail will wait this long and then try again. If it takes longer than the kernel timeout interval to establish the connection, this option can give the network software time to establish the link. The default units are seconds. Move logging of sender information to be as early as possible; previously, it could be delayed a while for SMTP mail sent to aliases. Suggested by Brad Knowles of the Defense Information Systems Agency. Call res_init() before setting RES_DEBUG; this is required by BIND 4.9.3, or so I'm told. From Douglas Anderson of the National Computer Security Center. Add xdelay= field in logs -- this is a transaction delay, telling you how long it took to deliver to this address on the last try. It is intended to be used for sorting mailing lists to favor "quick" addresses. Provided for use by the mailprio scripts (see below). If a map cannot be opened, and that map is non-optional, and an address requires that map for resolution, queue the map instead of bouncing it. This involves creating a pseudo-class of maps called "bogus-map" -- if a required map cannot be opened, the class is changed to bogus-map; all queries against bogus-map return "tempfail". The bogus-map class is not directly accessible. A sample implementation was donated by Jem Taylor of Glasgow University Computing Service. Fix a possible core dump when mailing to a program that talks SMTP on its standard input. Fix from Keith Moore of the University of Kentucky. Make it possible to resolve filenames to $#local $: @ /filename; previously, the "@" would cause it to not be recognized as a file. Problem noted by Brian Hill of U.C. Davis. Accept a -1 signal to re-exec the daemon. This only works if argv[0] is a full path to sendmail. Fix bug in "addr=..." field in O option on little-endian machines -- the network number wasn't being converted to network byte order. Patch from Kurt Lidl of Pix Technologies Corporation. Pre-initialize the resolver early on; this is to avoid a bug with BIND 4.9.3 that can cause the _res.retry field to get reset to zero, causing all name server lookups to time out. Fix from Matt Day of Artisoft. Restore T line (trusted users) in config file -- but instead of locking out the -f flag, they just tell whether or not an X-Authentication-Warning: will be added. This really just creates new entries in class 't', so "Ft/file/name" can be used to read trusted user names from a file. Trusted users are also allowed to execute programs even if they have a shell that isn't in /etc/shells. Improve NEWDB alias file rebuilding so it will create them properly if they do not already exist. This had been a MAYBENEXTRELEASE feature in 8.6.9. Check for @:@ entry in NIS maps before starting up to avoid (but not prevent, sigh) race conditions. This ought to be handled properly in ypserv, but isn't. Suggested by Michael Beirne of Motorola. Refuse connections if there isn't enough space on the filesystem holding the queue. Contributed by Robert Dana of Wolf Communications. Skip checking for directory permissions in the path to a file when checking for file permissions iff setreuid() succeeded -- it is unnecessary in that case. This avoids significant performance problems when looking for .forward files. Based on a suggestion by Win Bent of USC. Allow symbolic ruleset names. Syntax can be "Sname" to get an arbitrary ruleset number assigned or "Sname = integer" to assign a specific ruleset number. Reference is $>name_or_number. Names can be composed of alphas, digits, underscore, or hyphen (first character must be non-numeric). Allow -o flag on AliasFile lines to make the alias file optional. From Bryan Costales of ICSI. Add NoRecipientAction option to handle the case where there is no legal recipient header in the message. It can take on values: None Leave the message as is. The message will be passed on even though it is in technically illegal syntax. Add-To Add a To: header with any recipients that it can find from the envelope. This risks exposing Bcc: recipients. Add-Apparently-To Add an Apparently-To: header. This has almost no redeeming social value, and is provided only for back compatibility. Add-To-Undisclosed Add a header reading To: undisclosed-recipients:; which will have the effect of making the message legal without exposing Bcc: recipients. Add-Bcc To add an empty Bcc: header. There is a chance that mailers down the line will delete this header, which could cause exposure of Bcc: recipients. The default is NoRecipientAction=None. Truncate (rather than delete) Bcc: lines in the header. This should prevent later sendmails (at least, those that don't themselves delete Bcc:) from considering this message to be non-conforming -- although it does imply that non-blind recipients can see that a Bcc: was sent, albeit not to whom. Add SafeFileEnvironment option. If declared, files named as delivery targets must be regular files in addition to the regular checks. Also, if the option is non-null then it is used as the name of a directory that is used as a chroot(2) environment for the delivery; the file names listed in an alias or forward should include the name of this root. For example, if you run with O SafeFileEnvironment=/arch then aliases should reference "/arch/rest/of/path". If a value is given, sendmail also won't try to save to /usr/tmp/dead.letter (instead it just leaves the job in the queue as Qfxxxxxx). Inspired by *Hobbit*'s sendmail patch kit. Support -A flag for alias files; this will comma concatenate like entries. For example, given the aliases: list: member1 list: member2 and an alias file declared as: OAhash:-A /etc/aliases the final alias inserted will be "list: member1,member2"; without -A you will get an error on the second and subsequent alias for "list". Contributed by Bryan Costales of ICSI. Line-buffer transcript file. Suggested by Liudvikas Bukys. Fix a problem that could cause very long addresses to core dump in some special circumstances. Problem pointed out by Allan Johannesen. (Internal change.) Change interface to expand() (macro expansion) to be simpler and more consistent. Delete check for funny qf file names. This didn't really give any extra security and caused some people some problems. (If you -really- want this, define PICKY_QF_NAME_CHECK at compile time.) Suggested by Kyle Jones of UUNET. (Internal change.) Change EF_NORETURN to EF_NO_BODY_RETN and merge with DSN code; this is simpler and more consistent. This may affect some people who have written their own checkcompat() routine. (Internal change.) Eliminate `D' line in qf file. The df file is now assumed to be the same name as the qf file (with the `q' changed to a `d', of course). Avoid forking for delivery if all recipient mailers are marked as "expensive" -- this can be a major cost on some systems. Essentially, this forces sendmail into "queue only" mode if all it is going to do is queue anyway. Avoid sending a null message in some rather unusual circumstances (specifically, the RCPT command returns a temporary failure but the connection is lost before the DATA command). Fix from Scott Hammond of Secure Computing Corporation. Change makesendmail to use a somewhat more rational naming scheme: Makefiles and obj directories are named $os.$rel.$arch, where $os is the operating system (e.g., SunOS), $rel is the release number (e.g., 5.3), and $arch is the machine architecture (e.g., sun4). Any of these can be omitted, and anything after the first dot in a release number can be replaced with "x" (e.g., SunOS.4.x.sun4). The previous version used $os.$arch.$rel and was rather less general. Change makesendmail to do a "make depend" in the target directory when it is being created. This involves adding an empty "depend:" entry in most Makefiles. Ignore IDENT return value if the OSTYPE field returns "OTHER", as indicated by RFC 1413. Pointed out by Kari Hurtta of the Finnish Meteorological Institute. Fix problem that could cause multiple responses to DATA command on header syntax errors (e.g., lines beginning with colons). Problem noted by Jens Thomassen of the University of Oslo. Don't let null bytes in headers cause truncation of the rest of the header. Log Authentication-Warning:s. Suggested by Motonori Nakamura. Increase timeouts on message data puts to allow time for receivers to canonify addresses in headers on the fly. This is still a rather ugly heuristic. From Motonori Nakamura. Add "HasWildcardMX" suboption to ResolverOptions; if set, MX records are not used when canonifying names, and when MX lookups are done for addressing they must be fully qualified. This is useful if you have a wildcard MX record, although it may cause other problems. In general, don't use wildcard MX records. Patch from Motonori Nakamura. Eliminate default two-line SMTP greeting message. Instead of adding an extra "ESMTP spoken here" line, the word "ESMTP" is added between the first and second word of the first line of the greeting message (i.e., immediately after the host name). This eliminates the need for the BROKEN_SMTP_PEERS compile flag. Old sendmails won't see the ESMTP, but that's acceptable because SIZE was the only useful extension that old sendmails understand. Avoid gethostbyname calls on UNIX domain sockets during SIGUSR1 invoked state dumps. From Masaharu Onishi. Allow on-line comments in .forward and :include: files; they are introduced by the string "#@#", where is a space or a tab. This is intended for native representation of non-ASCII sets such as Japanese, where existing encodings would be unreadable or would lose data -- for example, NAKAMURA Motonori (romanized/less information) =?ISO-2022-JP?B?GyRCQ2ZCPBsoQg==?= =?ISO-2022-JP?B?GyRCQUdFNRsoQg==?= (with MIME encoding, not human readable) #@# ^[$BCfB<^[(B ^[$BAGE5^[(B (native encoding with ISO-2022-JP) The last form is human readable in the Japanese environment. Based on a fix from (surprise!) Motonori Nakamura. Don't make SMTP error returns on MAIL FROM: line be "sticky" for all messages to that host; these are most frequently associated with addresses rather than the host, with the exception of 421 (service shutting down). The effect was to cause queues to sometimes take an excessive time to flush. Reported by Robert Sargent of Southern Geographics Technologies and Eric Prestemon of American University. Add Nice=N mailer option to set the niceness at which a mailer will run. This is actually a relative niceness (that is, an increment on the background value). Log queue runs that are skipped due to high loads. They are logged at LOG_INFO priority iff the log level is > 8. Contributed by Bruce Nagel of Data General. Allow the error mailer to accept a DSN-style error status code instead of an sysexits status code in the host part. Anything with a dot will be interpreted as a DSN-style code. Add new mailer flag: F=3 will tell translations to Quoted-Printable to encode characters that might be munged by an EBCDIC system in addition to the set required by RFC 1521. The additional characters are !, ", #, $, @, [, \, ], ^, `, {, |, }, and ~. (Think of "IBM 360" as the mnemonic for this flag.) Change check for mailing to files to look for a pathname of [FILE] rather than looking for the mailer named *file*. The mapping of leading slashes still goes to the *file* mailer. This allows you to implement the *file* mailer as a separate program, for example, to insert a Content-Length: header or do special security policy. However, note that the usual initial checking for the file permissions is still done, and the program in question needs to be very careful about how it does the file write to avoid security problems. Be able to read ~root/.forward even if the path isn't accessible to regular users. This is disrecommended because sendmail sometimes does not run as root (e.g., when an unsafe option is specified on the command line), but should otherwise be safe because .forward files must be owned by the user for whom mail is being forwarded, and cannot be a symbolic link. Suggested by Forrest Aldrich of Wang Laboratories. Add new "HostsFile" option that is the pathname to the /etc/hosts file. This is used for canonifying hostnames when the service type is "files". Implement programs on F (read class from file) line. The syntax is Fc|/path/to/program to read the output from the program into class "c". Probe the network interfaces to find alternate names for this host. Requires the SIOCGIFCONF ioctl call. Code contributed by SunSoft. Add "E" configuration line to set or propagate environment variables into children. "E" will propagate the named variable from the environment when sendmail was invoked into any children it calls; "E=" sets the named variable to the indicated value. Any variables not explicitly named will not be in the child environment. However, sendmail still forces an "AGENT=sendmail" environment variable, in part to enforce at least one environment variable, since many programs and libraries die horribly if this is not guaranteed. Change heuristic for rebuilding both NEWDB and NDBM versions of alias databases -- new algorithm looks for the substring "/yp/" in the file name. This is more portable and involves less overhead. Suggested by Motonori Nakamura. Dynamically allocate the queue work list so that you don't lose jobs in large queue runs. The old QUEUESIZE compile parameter is replaced by QUEUESEGSIZE (the unit of allocation, which should not need to be changed) and the MaxQueueRunSize option, which is the absolute maximum number of jobs that will ever be handled in a single queue run. Based on code contributed by Brian Coan of the Institute for Global Communications. Log message when a message is dropped because it exceeds the maximum message size. Suggested by Leo Bicknell of Virginia Tech. Allow trusted users (those on a T line or in $=t) to use -bs without an X-Authentication-Warning: added. Suggested by Mark Thomas of Mark G. Thomas Consulting. Announce state of compile flags on -d0.1 (-d0.10 throws in the OS-dependent defines). The old semantic of -d0.1 to not run the daemon in background has been moved to -d99.100, and the old 52.5 flag (to avoid disconnect() from closing all output files) has been moved to 52.100. This makes things more consistent (flags below .100 don't change semantics) and separates out the backgrounding so that it doesn't happen automatically on other unrelated debugging flags. If -t is used but no addresses are found in the header, give an error message rather than just doing nothing. Fix from Motonori Nakamura. On systems (like SunOS) where the effective gid is not necessarily included in the group list returned by getgroups(), the `restrictmailq' option could sometimes cause an authorized user to not be able to use `mailq'. Fix from Charles Hannum of MIT. Allow symbolic service names for [IPC] mailers. Suggested by Gerry Magennis of Logica International. Add DontExpandCnames option to prevent $[ ... $] from expanding CNAMEs when running DNS. For example, if the name FTP.Foo.ORG is a CNAME for Cruft.Foo.ORG, then when sitting on a machine in the Foo.ORG domain a lookup of "FTP" returns "Cruft.Foo.ORG" if this option is not set, or "FTP.Foo.ORG" if it is set. This is technically illegal under RFC 822 and 1123, but the IETF is moving toward legalizing it. Note that turning on this option is not sufficient to guarantee that a downstream neighbor won't rewrite the address for you. Add "-m" flag to makesendmail script -- this tells you what object directory and Makefile it will use, but doesn't actually do the make. Do some additional checking on the contents of the qf file to try to detect attacks against the qf file. In particular, abort on any line beginning "From ", and add an "end of file" line -- any data after that line is prohibited. Always use /etc/sendmail.cf, regardless of the arbitrary vendor choices. This can be overridden in the Makefile by using either -DUSE_VENDOR_CF_PATH to get the vendor location (to the extent that we know it) or by defining _PATH_SENDMAILCF (which is a "hard override"). This allows sendmail 8 to have more consistent installation instructions. Allow macros on `K' line in config file. Suggested by Andrew Chang of Sun Microsystems. Improved symbol table hash function from Eric Wassenaar. This one is at least 50% faster. Fix problem that didn't notice that timeout on file open was a transient error. Fix from Larry Parmelee of Cornell University. Allow comments (lines beginning with a `#') in files read for classes. Suggested by Motonori Nakamura. Make SIGINT (usually ^C) in test mode return to the prompt instead of dropping out entirely. This makes testing some of the name server lookups easier to deal with when there are hung servers. From Motonori Nakamura. Add new ${opMode} macro that is set to the current operation mode (e.g., `s' for -bs, `t' for -bt, etc.). Suggested by Claude Marinier . Add new delivery mode (Odd) that defers all map lookups to queue runs. Kind of like queue-only mode (Odq) except it tries to avoid any external service requests; for dial-on-demand hosts that want to minimize DNS lookups when mail is being queued. For this to work you will also have to make sure that gethostbyname of your local host name does not do a DNS lookup. Improved handling of "out of space" conditions from John Myers of Carnegie Mellon. Improved security for mailing to files on systems that have fchmod(2) support. Improve "cannot send message for N days" message -- now says "could not send for past N days". Suggested by Tom Moore of AT&T Global Information Solutions. Less misleading Subject: line on messages sent to postmaster only. From Motonori Nakamura. Avoid duplicate error messages on bad command line flags. From Motonori Nakamura. Better error message for case where ruleset 0 falls off the end or otherwise does not resolve to a canonical triple. Fix a problem that could cause multiple bounce messages if a bad address was sent along with a good address to an SMTP site where that SMTP site returned a 4yz code in response to the final dot of the data. Problem reported by David James of British Telecom. Add "volatile" declarations so that gcc -O2 will work. Patches from Alexander Dupuy of System Management ARTS. Delete duplicates in MX lists -- believe it or not, there are sites that list the same host twice in an MX list. This deletion only works on adjacent preferences, so an MX list that had A=5, B=10, A=15 would leave both As, but one that had A=5, A=10, B=15 would reduce to A, B. This is intentional, just in case there is something weird I haven't thought of. Suggested by Barry Shein of Software Tool & Die. SECURITY: .forward files cannot be symbolic links. If they are, a bad guy can read your private files. PORTABILITY FIXES: Solaris 2 from Rob McMahon . System V Release 4 from Motonori Nakamura of Ritsumeikan University. This expands the disk size checking to include all (?) SVR4 configurations. System V Release 4 from Kimmo Suominen -- initgroups(3) and setrlimit(2) are both available. System V Release 4 from sob@sculley.ffg.com -- some versions apparently "have EX_OK defined in other headerfiles." Linux Makefile typo. Linux getusershell(3) is broken in Slackware 2.0 -- from Andrew Pam of Xanadu Australia. More Linux tweaking from John Kennedy of California State University, Chico. Cray changes from Eric Wassenaar: ``On Cray, shorts, ints, and longs are all 64 bits, and all structs are multiples of 64 bits. This means that the sizeof operator returns only multiples of 8. This requires adaptation of code that really deals with 32 bit or 16 bit fields, such as IP addresses or nameserver fields.'' DG/UX 5.4.3 from Mark T. Robinson . To get the old behavior, use -DDGUX_5_4_2. DG/UX hack: add _FORCE_MAIL_LOCAL_=yes environment variable to fix bogus /bin/mail behavior. Tandem NonStop-UX from Rick McCarty . This also cleans up some System V Release 4 compile problems. Solaris 2: sendmail.cw file should be in /etc/mail to match all the other configuration files. Fix from Glenn Barry of Emory University. Solaris 2.3: compile problem in conf.c. Fix from Alain Nissen of the University of Liege, Belgium. Ultrix: freespace calculation was incorrect. Fix from Takashi Kizu of Osaka University. SVR4: running in background gets a SIGTTOU because the emulation code doesn't realize that "getpeername" doesn't require reading the file. Fix from Peter Wemm of DIALix. Solaris 2.3: due to an apparent bug in the socket emulation library, sockets can get into a "wedged" state where they just return EPROTO; closing and re-opening the socket clears the problem. Fix from Bob Manson of Ohio State University. Hitachi 3050R & 3050RX running HI-UX/WE2: portability fixes from Akihiro Hashimoto ("Hash") of Chiba University. AIX changes to allow setproctitle to work from Rainer Schpf of Zentrum fr Datenverarbeitung der Universitt Mainz. AIX changes for load average from Ed Ravin of NASA/Goddard. SCO Unix from Chip Rosenthal of Unicom (code was using the wrong statfs call). ANSI C fixes from Adam Glass (NetBSD project). Stardent Titan/ANSI C fixes from Kate Hedstrom of Rutgers University. DG-UX fixes from Bruce Nagel of Data General. IRIX64 updates from Mark Levinson of the University of Rochester Medical Center. Altos System V (``the first UNIX/XENIX merge the Altos did for their Series 1000 & Series 2000 line; their merged code was licensed back to AT&T and Microsoft and became System V release 3.2'') from Tim Rice . OSF/1 running on Intel Paragon from Jeff A. Earickson of Intel Scalable Systems Division. Amdahl UTS System V 2.1.5 (SVr3-based) from Janet Jackson . System V Release 4 (statvfs semantic fix) from Alain Durand of I.M.A.G. HP-UX 10.x multiprocessor load average changes from Scott Hutton and Jeff Sumler of Indiana University. Cray CSOS from Scott Bolte of Cray Computer Corporation. Unicos 8.0 from Douglas K. Rand of the University of North Dakota, Scientific Computing Center. Solaris 2.4 fixes from Sanjay Dani of Dani Communications. ConvexOS 11.0 from Christophe Wolfhugel. IRIX 4.0.5 from David Ashton-Reader of CADcentre. ISC UNIX from J. J. Bailey. HP-UX 9.xx on the 8xx series machines from Remy Giraud of Meteo France. HP-UX configuration from Tom Lane . IRIX 5.2 and 5.3 from Kari E. Hurtta. FreeBSD 2.0 from Mike Hickey of Federal Data Corporation. Sony NEWS-OS 4.2.1R and 6.0.3 from Motonori Nakamura. Omron LUNA unios-b, mach from Motonori Nakamura. NEC EWS-UX/V 4.2 from Motonori Nakamura. NeXT 2.1 from Bryan Costales. AUX patch thanks to Mike Erwin of Apple Computer. HP-UX 10.0 from John Beck of Hewlett-Packard. Ultrix: allow -DBROKEN_RES_SEARCH=0 if you are using a non-DEC resolver. Suggested by Allan Johannesen. UnixWare 2.0 fixes from Petr Lampa of the Technical University of Brno (Czech Republic). KSR OS 1.2.2 support from Todd Miller of the University of Colorado. UX4800 support from Kazuhisa Shimizu of NEC. MAKEMAP: allow -d flag to allow insertion of duplicate aliases in type ``btree'' maps. The semantics of this are undefined for regular maps, but it can be useful for the user database. MAKEMAP: lock database file while rebuilding to avoid sendmail lookups while the rebuild is going on. There is a race condition between the open(... O_TRUNC ...) and the lock on the file, but it should be quite small. SMRSH: sendmail restricted shell added to the release. This can be used as an alternative to /bin/sh for the "prog" mailer, giving the local administrator more control over what programs can be run from sendmail. MAIL.LOCAL: add this local mailer to the tape. It is not really part of the release proper, and isn't fully supported; in particular, it does not run on System V based systems and never will. CONTRIB: a patch to rmail.c from Bill Gianopoulos of Raytheon to allow rmail to compile on systems that don't have function prototypes and systems that don't have snprintf. CONTRIB: add the "mailprio" scripts that will help you sort mailing lists by transaction delay times so that addresses that respond quickly get sent first. This is to prevent very sluggish servers from delaying other peoples' mail. Contributed by Tony Sanders of BSDI. CONTRIB: add the "bsdi.mc" file as contributed by Tony Sanders of BSDI. This has a lot of comments to help people out. CONFIG: Don't have .mc files include(../m4/cf.m4) -- instead, put this on the m4 command line. On GNU m4 (which supports the __file__ primitive) you can run m4 in an arbitrary directory -- use either: m4 ${CFDIR}/m4/cf.m4 config.mc > config.cf or m4 -I${CFDIR} m4/cf.m4 config.mc > config.cf On other versions of m4 that don't support __file__, you can use: m4 -D_CF_DIR_=${CFDIR}/ ${CFDIR}/m4/cf.m4 ... (Note the trailing slash on the _CF_DIR_ definition.) Old versions of m4 will default to _CF_DIR_=.. for back compatibility. CONFIG: fix mail from <> so it will properly convert to MAILER-DAEMON on local addresses. CONFIG: fix code that was supposed to catch colons in host names. Problem noted by John Gardiner Myers of CMU. CONFIG: allow use of SMTP_MAILER_MAX in nullclient configuration. From Paul Riddle of the University of Maryland, Baltimore County. CONFIG: Catch and reject "." as a host address. CONFIG: Generalize domaintable to look up all domains, not just unqualified ones. CONFIG: Delete OLD_SENDMAIL support -- as near as I can tell, it was never used and didn't work anyway. CONFIG: Set flags A, w, 5, :, /, |, and @ on the "local" mailer and d on all mailers in the UUCP class. CONFIG: Allow "user+detail" to be aliased specially: it will first look for an alias for "user+detail", then for "user+*", and finally for "user". This is intended for forwarding mail for system aliases such as root and postmaster to a centralized hub. CONFIG: add confEIGHT_BIT_HANDLING to set option 8 (see above). CONFIG: add smtp8 mailer; this has the F=8 (just-send-8) flag set. The F=8 flag is also set on the "relay" mailer, since this is expected to be another sendmail. CONFIG: avoid qualifying all UUCP addresses sent via SMTP with the name of the UUCP_RELAY -- in some cases, this is the wrong value (e.g., when we have local UUCP connections), and this can create unreplyable addresses. From Chip Rosenthal of Unicom. CONFIG: add confRECEIVED_HEADER to change the format of the Received: header inserted into all messages. Suggested by Gary Mills of the University of Manitoba. CONFIG: Make "notsticky" the default; use FEATURE(stickyhost) to get the old behavior. I did this upon observing that almost everyone needed this feature, and that the concept I was trying to make happen didn't work with some user agents anyway. FEATURE(notsticky) still works, but it is a no-op. CONFIG: Add LUSER_RELAY -- the host to which unrecognized user names are sent, rather than immediately diagnosing them as User Unknown. CONFIG: Add SMTP_MAILER_ARGS, ESMTP_MAILER_ARGS, SMTP8_MAILER_ARGS, and RELAY_MAILER_ARGS to set the arguments for the indicated mailers. All default to "IPC $h". Patch from Larry Parmelee of Cornell University. CONFIG: pop mailer needs F=n flag to avoid "annoying side effects on the client side" and F=P to get an appropriate return-path. From Kimmo Suominen. CONFIG: add FEATURE(local_procmail) to use the procmail program as the local mailer. For addresses of the form "user+detail" the "detail" part is passed to procmail via the -a flag. Contributed by Kimmo Suominen. CONFIG: add MAILER(procmail) to add an interface to procmail for use from mailertables. This lets you execute arbitrary procmail scripts. Contributed by Kimmo Suominen. CONFIG: add T= fields (MTS type) to local, smtp, and uucp mailers. CONFIG: add OSTYPE(ptx2) for DYNIX/ptx 2.x from Sequent. From Paul Southworth of CICNet Systems Support. CONFIG: use -a$g as default to UUCP mailers, instead of -a$f. This causes the null return path to be rewritten as MAILER-DAEMON; otherwise UUCP gets horribly confused. From Michael Hohmuth of Technische Universitat Dresden. CONFIG: Add FEATURE(bestmx_is_local) to cause any hosts that list us as the best possible MX record to be treated as though they were local (essentially, assume that they are included in $=w). This can cause additional DNS traffic, but is easier to administer if this fits your local model. It does not work reliably if there are multiple hosts that share the best MX preference. Code contributed by John Oleynick of Rutgers. CONFIG: Add FEATURE(smrsh) to use smrsh (the SendMail Restricted SHell) instead of /bin/sh as the program used for delivery to programs. If an argument is included, it is used as the path to smrsh; otherwise, /usr/local/etc/smrsh is assumed. CONFIG: Add LOCAL_MAILER_MAX and PROCMAILER_MAILER_MAX to limit the size of messages to the local and procmail mailers respectively. Contributed by Brad Knowles of the Defense Information Systems Agency. CONFIG: Handle leading ``phrase:'' and trailing ``;'' as comments (just like text outside of angle brackets) in order to properly deal with ``group: addr1, ... addrN;'' syntax. CONFIG: Require OSTYPE macro (the defaults really don't apply to any real systems any more) and tweak the DOMAIN macro so that it is less likely that users will accidentally use the Berkeley defaults. Also, create some generic files that really can be used in the real world. CONFIG: Add new configuration macros to set character sets for messages _arriving from_ various mailers: LOCAL_MAILER_CHARSET, SMTP_MAILER_CHARSET, and UUCP_MAILER_CHARSET. CONFIG: Change UUCP_MAX_SIZE to UUCP_MAILER_MAX for consistency. The old name will still be accepted for a while at least. CONFIG: Implement DECNET_RELAY as spec for host to which DECNET mail (.DECNET pseudo-domain or node::user) will be sent. As with all relays, it can be ``mailer:hostname''. Suggested by Scott Hutton. CONFIG: Add MAILER(mail11) to get DECnet support. Code contributed by Barb Dijker of Labyrinth Computer Services. CONFIG: change confCHECK_ALIASES to default to False -- it has poor performance for large alias files, and this confused many people. CONFIG: Add confCF_VERSION to append local information to the configuration version number displayed during SMTP startup. CONFIG: fix some.newsgroup.usenet@local.host syntax (previously it would only work when locally addressed. Fix from Edvard Tuinder of Cistron Internet Services. CONFIG: use ${opMode} to avoid error on .REDIRECT addresses if option "n" (CheckAliases) is set when rebuilding alias database. Based on code contributed by Claude Marinier. CONFIG: Allow mailertable to have values of the form ``error:code message''. The ``code'' is a status code derived from the sysexits codes -- e.g., NOHOST or UNAVAILABLE. Contributed by David James . CONFIG: add MASQUERADE_DOMAIN(domain list) to extend the list of sender domains that will be replaced with the masquerade name. These domains will not be treated as local, but if mail passes through with sender addresses in those domains they will be replaced by the masquerade name. These can also be specified in a file using MASQUERADE_DOMAIN_FILE(filename). CONFIG: add FEATURE(masquerade_envelope) to masquerade the envelope as well as the header. Substantial improvements to this code were contributed by Per Hedeland. CONFIG: add MAILER(phquery) to define a new "ph" mailer; this can be accessed from a mailertable to do CCSO ph lookups. Contributed by Kimmo Suominen. CONFIG: add MAILER(cyrus) to define a new Cyrus mailer; this can be used to define cyrus and cyrusbb mailers (for IMAP support). Contributed by John Gardiner Myers of Carnegie Mellon. CONFIG: add confUUCP_MAILER to select default mailer to use for UUCP addressing. Suggested by Tom Moore of AT&T GIS. NEW FILES: cf/cf/cs-hpux10.mc cf/cf/cs-solaris2.mc cf/cf/cyrusproto.mc cf/cf/generic-bsd4.4.mc cf/cf/generic-hpux10.mc cf/cf/generic-hpux9.mc cf/cf/generic-osf1.mc cf/cf/generic-solaris2.mc cf/cf/generic-sunos4.1.mc cf/cf/generic-ultrix4.mc cf/cf/huginn.cs.mc cf/domain/berkeley-only.m4 cf/domain/generic.m4 cf/feature/bestmx_is_local.m4 cf/feature/local_procmail.m4 cf/feature/masquerade_envelope.m4 cf/feature/smrsh.m4 cf/feature/stickyhost.m4 cf/feature/use_ct_file.m4 cf/m4/cfhead.m4 cf/mailer/cyrus.m4 cf/mailer/mail11.m4 cf/mailer/phquery.m4 cf/mailer/procmail.m4 cf/ostype/amdahl-uts.m4 cf/ostype/bsdi2.0.m4 cf/ostype/hpux10.m4 cf/ostype/irix5.m4 cf/ostype/isc4.1.m4 cf/ostype/ptx2.m4 cf/ostype/unknown.m4 contrib/bsdi.mc contrib/mailprio contrib/rmail.oldsys.patch mail.local/mail.local.0 makemap/makemap.0 smrsh/README smrsh/smrsh.0 smrsh/smrsh.8 smrsh/smrsh.c src/Makefiles/Makefile.CSOS src/Makefiles/Makefile.EWS-UX_V src/Makefiles/Makefile.HP-UX.10 src/Makefiles/Makefile.IRIX.5.x src/Makefiles/Makefile.IRIX64 src/Makefiles/Makefile.ISC src/Makefiles/Makefile.KSR src/Makefiles/Makefile.NEWS-OS.4.x src/Makefiles/Makefile.NEWS-OS.6.x src/Makefiles/Makefile.NEXTSTEP src/Makefiles/Makefile.NonStop-UX src/Makefiles/Makefile.Paragon src/Makefiles/Makefile.SCO.3.2v4.2 src/Makefiles/Makefile.SunOS.5.3 src/Makefiles/Makefile.SunOS.5.4 src/Makefiles/Makefile.SunOS.5.5 src/Makefiles/Makefile.UNIX_SV.4.x.i386 src/Makefiles/Makefile.uts.systemV src/Makefiles/Makefile.UX4800 src/aliases.0 src/mailq.0 src/mime.c src/newaliases.0 src/sendmail.0 test/t_seteuid.c RENAMED FILES: cf/cf/alpha.mc => cf/cf/s2k-osf1.mc cf/cf/chez.mc => cf/cf/chez.cs.mc cf/cf/hpux-cs-exposed.mc => cf/cf/cs-hpux9.mc cf/cf/osf1-cs-exposed.mc => cf/cf/cs-osf1.mc cf/cf/s2k.mc => cf/cf/s2k-ultrix4.mc cf/cf/sunos4.1-cs-exposed.mc => cf/cf/cs-sunos4.1.mc cf/cf/ultrix4.1-cs-exposed.mc => cf/cf/cs-ultrix4.mc cf/cf/vangogh.mc => cf/cf/vangogh.cs.mc cf/domain/Berkeley.m4 => cf/domain/Berkeley.EDU.m4 cf/domain/cs-exposed.m4 => cf/domain/CS.Berkeley.EDU.m4 cf/domain/eecs-hidden.m4 => cf/domain/EECS.Berkeley.EDU.m4 cf/domain/s2k.m4 => cf/domain/S2K.Berkeley.EDU.m4 cf/ostype/hpux.m4 => cf/ostype/hpux9.m4 cf/ostype/irix.m4 => cf/ostype/irix4.m4 cf/ostype/ultrix4.1.m4 => cf/ostype/ultrix4.m4 src/Makefile.* => src/Makefiles/Makefile.* src/Makefile.AUX => src/Makefiles/Makefile.A-UX src/Makefile.BSDI => src/Makefiles/Makefile.BSD-OS src/Makefile.DGUX => src/Makefiles/Makefile.dgux src/Makefile.RISCos => src/Makefiles/Makefile.UMIPS src/Makefile.SunOS.4.0.3 => src/Makefiles/Makefile.SunOS.4.0 OBSOLETED FILES: cf/cf/cogsci.mc cf/cf/cs-exposed.mc cf/cf/cs-hidden.mc cf/cf/hpux-cs-hidden.mc cf/cf/knecht.mc cf/cf/osf1-cs-hidden.mc cf/cf/sunos3.5-cs-exposed.mc cf/cf/sunos3.5-cs-hidden.mc cf/cf/sunos4.1-cs-hidden.mc cf/cf/ultrix4.1-cs-hidden.mc cf/domain/cs-hidden.m4 contrib/rcpt-streaming src/Makefiles/Makefile.SunOS.5.x 8.6.13/8.6.12 1996/01/25 SECURITY: In some cases it was still possible for an attacker to insert newlines into a queue file, thus allowing access to any user (except root). CONFIG: no changes -- it is not a bug that the configuration version number is unchanged. 8.6.12/8.6.12 1995/03/28 Fix to IDENT code (it was getting the size of the reply buffer too small, so nothing was ever accepted). Fix from several people, including Allan Johannesen, Shane Castle of the Boulder County Information Services, and Jeff Smith of Warwick University (all arrived within a few hours of each other!). Fix a problem that could cause large jobs to run out of file descriptors on systems that use vfork() rather than fork(). 8.6.11/8.6.11 1995/03/08 The ``possible attack'' message would be logged more often than necessary if you are using Pine as a user agent. The wrong host would be reported in the ``possible attack'' message when attempted from IDENT. In some cases the syslog buffer could be overflowed when reporting the ``possible attack'' message. This can cause denial of service attacks. Truncate the message to 80 characters to prevent this problem. When reading the IDENT response a loop is needed around the read from the network to ensure that you don't get partial lines. Password entries without any shell listed (that is, a null shell) wouldn't match as "ok". Problem noted by Rob McMahon. When running BIND 4.9.x a problem could occur because the _res.options field is initialized differently than it was historically -- this requires that sendmail call res_init before it tweaks any bits. Fix an incompatibility in openxscript() between the file open mode and the stdio mode passed to fdopen. This caused UnixWare 2.0 to have conniptions. Fix from Martin Sohnius of Novell Labs Europe. Fix problem with static linking of local getopt routine when using GNU's ld command. Fix from John Kennedy of Cal State Chico. It was possible to turn off privacy flags. Problem noted by *Hobbit*. Be more paranoid about writing files. Suggestions by *Hobbit* and Liudvikas Bukys. MAKEMAP: fixes for 64 bit machines (DEC Alphas in particular) from Spider Boardman. CONFIG: No changes (version number only, to keep it in sync with the binaries). 8.6.10/8.6.10 1995/02/10 SECURITY: Diagnose bogus values to some command line flags that could allow trash to get into headers and qf files. Validate the name of the user returned by the IDENT protocol. Some systems that really dislike IDENT send intentionally bogus information. Problem pointed out by Michael Bushnell of the Free Software Foundation. Has some security implications. Fix a problem causing error messages about DNS problems when the host name contained a percent sign to act oddly because it was passed as a printf-style format string. In some cases this could cause core dumps. Avoid possible buffer overrun in returntosender() if error message is quite long. From Fletcher Mattox of the University of Texas. Fix a problem that would silently drop "too many hops" error messages if and only if you were sending to an alias. From Jon Giltner of the University of Colorado and Dan Harton of Oak Ridge National Laboratory. Fix a bug that caused core dumps on some systems if -d11.2 was set and e->e_message was null. Fix from Bruce Nagel of Data General. Fix problem that can still cause df files to be left around after "hop count exceeded" messages. Fix from Andrew Chang and Shau-Ping Lo of SunSoft. Fix a problem that can cause buffer overflows on very long user names (as might occur if you piped to a program with a lot of arguments). Avoid returning an error and re-queueing if the host signature is null; this can occur on addresses like ``user@.''. Problem noted by Wesley Craig and the University of Michigan. Avoid possible calls to malloc(0) if MCI caching is turned off. Bug fix from Pierre David of the Laboratoire Parallelisme, Reseaux, Systemes et Modelisation (PRiSM), Universite de Versailles - St Quentin, and Jacky Thibault. Make a local copy of the line being sent via senttolist() -- in some cases, buffers could get trashed by map lookups causing it to do unexpected things. This also simplifies some of the map code. CONFIG: No changes (version number only, to keep it in sync with the binaries). 8.6.9/8.6.9 1994/04/19 Do all mail delivery completely disconnected from any terminal. This provides consistency with daemon delivery and may have some security implications. Make sure that malloc doesn't get called with zero size, since that fails on some systems. Reported by Ed Hill of the University of Iowa. Fix multi-line values for $e (SMTP greeting message). Reported by Mike O'Connor of Ford Motor Company. Avoid syserr if no NIS domain name is defined, but the map it is trying to open is optional. From Win Bent of USC. Changes for picky compilers from Ed Gould of Digital Equipment. Hesiod support for UDB from Todd Miller of the University of Colorado. Use "hesiod" as the service name in the U option. Fix a problem that failed to set the "authentic" host name (that is, the one derived from the socket info) if you called sendmail -bs from inetd. Based on code contributed by Todd Miller (this problem was also reported by Guy Helmer of Dakota State University). This also fixes a related problem reported by Liudvikas Bukys of the University of Rochester. Parameterize "nroff -h" in all the Makefiles so people with variant versions can use them easily. Suggested by Peter Collinson of Hillside Systems. SMTP "MAIL" commands with multiple ESMTP parameters required two spaces between parameters instead of one. Reported by Valdis Kletnieks of Virginia Tech. Reduce the number of system calls during message collection by using global timeouts around the collect() loop. This code was contributed by Eric Wassenaar. If the initial hostname name gathering results in a name without a dot (usually caused by NIS misconfiguration) and BIND is compiled in, directly access DNS to get the canonical name. This should make life easier for Solaris systems. If it still can't be resolved, and if the name server is listed as "required", try again in 30 seconds. If that also fails, exit immediately to avoid bogus "config error: mail loops back to myself" messages. Improve the "MAIL DELETED BECAUSE OF LACK OF DISK SPACE" error message to explain how much space was available and sound a bit less threatening. Suggested by Stan Janet of the National Institute of Standards and Technology. If mail is delivered to an alias that has an owner, deliver any requested return-receipt immediately, and strip the Return-Receipt-To: header from the subsequent message. This prevents a certain class of denial of service attack, arguably gives more reasonable semantics, and moves things more towards what will probably become a network standard. Suggested by Christopher Davis of Kapor Enterprises. Add a "noreceipts" privacy flag to turn off all return receipts without recompiling. Avoid printing ESMTP parameters as part of the error message if there are errors during parsing. This change is purely cosmetic. Avoid sending out error messages during the collect phase of SMTP; there is an MVS mailer from UCLA that gets confused by this. Of course, I think it's their bug.... Check for the $j macro getting undefined, losing a dot, or getting lost from $=w in the daemon before accepting a connection; if it is, it dumps state, prints a LOG_ALERT message, and drops core for debugging. This is an attempt to track down a bug that I thought was long since gone. If you see this, please forward the log fragment to sendmail@sendmail.ORG. Change OLD_NEWDB from a #ifdef to a #if so it can be turned off with -DOLD_NEWDB=0 on the command line. From Christophe Wolfhugel. Instead of trying to truncate the listen queue for the server SMTP port when the load average is too high, just close the port completely and reopen it later as needed. This ensures that the other end gets a quick "connection refused" response, and that the connection can be recovered later. In particular, some socket emulations seem to get confused if you tweak the listen queue size around and can never start listening to connections again. The down side is that someone could start up another daemon process in the interim, so you could have multiple daemons all not listening to connections; this could in turn cause the sendmail.pid file to be incorrect. A better approach might be to accept the connection and give a 421 code, but that could break other mailers in mysterious ways and have paging behavior implications. Fix a glitch in TCP-level debugging that caused flag 16.101 to set debugging on the wrong socket. From Eric Wassenaar. When creating a df* temporary file, be sure you truncate any existing data in the file -- otherwise system crashes and the like could result in extra data being sent. DOC: Replace the CHANGES-R5-R8 readme file with a paper in the doc directory. This includes some additional information. CONFIG: change UUCP rules to never add $U! or $k! on the front of recipient envelope addresses. This should have been handled by the $&h trick, but broke if people were mixing domainized and UUCP addresses. They should probably have converted all the way over to uucp-uudom instead of uucp-{new,old}, but the failure mode was to loop the mail, which was bad news. Portability fixes: Newer BSDI systems (several people). Older BSDI systems from Christophe Wolfhugel. Intergraph CLIX, from Paul Southworth of CICNet. UnixWare, from Evan Champion. NetBSD from Adam Glass. Solaris from Quentin Campbell of the University of Newcastle upon Tyne. IRIX from Dean Cookson and Bill Driscoll of Mitre Corporation. NCR 3000 from Kevin Darcy of Chrysler Financial Corporation. SunOS (it has setsid() and setvbuf() calls) from Jonathan Kamens of OpenVision Technologies. HP-UX from Tor Lillqvist. New Files: src/Makefile.CLIX src/Makefile.NCR3000 doc/changes/Makefile doc/changes/changes.me doc/changes/changes.ps 8.6.8/8.6.6 1994/03/21 SECURITY: it was possible to read any file as root using the E (error message) option. Reported by Richard Jones; fixed by Michael Corrigan and Christophe Wolfhugel. 8.6.7/8.6.6 1994/03/14 SECURITY: it was possible to get root access by using weird values to the -d flag. Thanks to Alain Durand of INRIA for forwarding me the notice from the bugtraq list. 8.6.6/8.6.6 1994/03/13 SECURITY: the ability to give files away on System V-based systems proved dangerous -- don't run as the owner of a :include: file on a system that allows giveaways. Unfortunately, this also applies to determining a valid shell. IMPORTANT: Previous versions weren't expiring old connections in the connection cache for a long time under some circumstances. This could result in resource exhaustion, both at your end and at the other end. This checks the connections for timeouts much more frequently. From Doug Anderson of NCSC. Fix a glitch that snuck in that caused programs to be run as the sender instead of the recipient if the mail was from a local user to another local user. From Motonori Nakamura of Kyoto University. Fix "wildcard" on /etc/shells matching -- instead of looking for "*", look for "/SENDMAIL/ANY/SHELL/". From Bryan Costales of ICSI. Change the method used to declare the "statfs" availability; instead of HASSTATFS and/or HASUSTAT with a ton of tweaking in conf.c, there is a single #define called SFS_TYPE which takes on one of six values (SFS_NONE for no statfs availability, SFS_USTAT for the ustat(2) syscall, SFS_4ARGS for a four argument statfs(2) call, and SFS_VFS, SFS_MOUNT, or SFS_STATFS for a two argument statfs(2) call with the declarations in , , or respectively). Fix glitch in NetInfo support that could return garbage if there was no "/locations/sendmail" property. From David Meyer of the University of Virginia. Change HASFLOCK from defined/not-defined to a 0/1 definition to allow Linux to turn it off even though it is a BSD-like system. Allow setting of "ident" timeout to zero to turn off the ident protocol entirely. Make 7-bit stripping local to a connection (instead of to a mailer); this allows you to specify that SMTP is a 7-bit channel, but revert to 8-bit should it advertise that it supports 8BITMIME. You still have to specify mailer flag 7 to get this stripping at all. Improve makesendmail script so it handles more cases automatically. Tighten up restrictions on taking ownership of :include: files to avoid problems on systems that allow you to give away files. Fix a problem that made it impossible to rebuild the alias file if it was on a read-only file system. From Harry Edmon of the University of Washington. Improve MX randomization function. From John Gardiner Myers of CMU. Fix a minor glitch causing a bogus message to be printed (used %s instead of %d in a printf string for the line number) when a bad queue file was read. From Harry Edmon. Allow $s to remain NULL on locally generated mail. I'm not sure this is necessary, but a lot of people have complained about it, and there is a legitimate question as to whether "localhost" is legal as an 822-style domain. Fix a problem with very short line lengths (mailer L= flag) in headers. This causes a leading space to be added onto continuation lines (including in the body!), and also tries to wrap headers containing addresses (From:, To:, etc) intelligently at the shorter line lengths. Problem Reported by Lars-Johan Liman of SUNET Operations Center. Log the real user name when logging syserrs, since these can have security implications. Suggested by several people. Fix address logging of cached connections -- it used to always log the numeric address as zero. This is a somewhat bogus implementation in that it does an extra system call, but it should be an inexpensive one. Fix from Motonori Nakamura. Tighten up handling of short syslog buffers even more -- there were cases where the outgoing relay= name was too long to share a line with delay= and mailer= logging. Limit the overhead on split envelopes to one open file descriptor per envelope -- previously the overhead was three descriptors. This was in response to a problem reported by P{r (Pell) Emanuelsson. Fixes to better handle the case of unexpected connection closes; this redirects the output to the transcript so the info is not lost. From Eric Wassenaar. Fix potential string overrun if you macro evaluate a string that has a naked $ at the end. Problem noted by James Matheson . Make default error number on $#error messages 553 (``Requested action not taken: mailbox name not allowed'') instead of 501 (``Syntax error in parameters or arguments'') to avoid bogus "protocol error" messages. Strip off any existing trailing dot on names during $[ ... $] lookup. This prevents it from ending up with two dots on the end of dot terminated names. From Wesley Craig of the University of Michigan and Bryan Costales of ICSI. Clean up file class reading so that the debugging information is more informative. It hadn't been using setclass, so you didn't see the class items being added. Avoid core dump if you are running a version of sendmail where NIS is compiled in, and you specify an NIS map, but NIS is not running. Fix from John Oleynick of Rutgers. Diagnose bizarre case where res_search returns a failure value, but sets h_errno to a success value. Make sure that "too many hops" messages are considered important enough to send an error to the Postmaster (that is, the address specified in the P option). This fix should help problems that cause the df file to be left around sometimes -- unfortunately, I can't seem to reproduce the problem myself. Avoid core dump (null pointer reference) on EXPN command; this only occurred if your log level was set to 10 or higher and the target account was an alias or had a .forward file. Problem noted by Janne Himanka. Avoid "denial of service" attacks by someone who is flooding your SMTP port with bad commands by shutting the connection after 25 bad commands are issued. From Kyle Jones of UUNET. Fix core dump on error messages with very long "to" buffers; fmtmsg overflows the message buffer. Fixed by trimming the to address to 203 characters. Problem reported by John Oleynick. Fix configuration for HASFLOCK -- there were some spots where a #ifndef was incorrectly #ifdef. Pointed out by George Baltz of the University of Maryland. Fix a typo in savemail() that could cause the error message To: lists to be incorrect in some places. From Motonori Nakamura. Fix a glitch that can cause duplicate error messages on split envelopes where an address on one of the lists has a name server failure. Fix from Voradesh Yenbut of the University of Washington. Fix possible bogus pointer reference on ESMTP parameters that don't have an ``=value'' part. CNAME loops caused an error message to be generated, but also re-queued the message. Changed to just re-queue the message (it's really hard to just bounce it because of the weird way the name server works in the presence of CNAME loops). Problem noted by James M.R.Matheson of Cambridge University. Avoid giving ``warning: foo owned process doing -bs'' messages if they use ``MAIL FROM:'' where foo is their true user name. Suggested by Andreas Stolcke of ICSI. Change the NAMED_BIND compile flag to be a 0/1 flag so you can override it easily in the Makefile -- that is, you can turn it off using -DNAMED_BIND=0. If a gethostbyname(...) of an address with a trailing dot fails, try it without the trailing dot. This is because if you have a version of gethostbyname() that falls back to NIS or the /etc/hosts file it will fail to find perfectly reasonable names that just don't happen to be dot terminated in the hosts file. You don't want to strip the dot first though because we're trying to ensure that country names that match one of your subdomains get a chance. PRALIASES: fix bogus output on non-null-terminated strings. From Bill Gianopoulos of Raytheon. CONFIG: Avoid rewriting anything that matches $w to be $j. This was in code intended to only catch the self-literal address (that is, [1.2.3.4], where 1.2.3.4 is your IP address), but the code was broken. However, it will still do this if $M is defined; this is necessary to get client configurations to work (sigh). Note that this means that $M overrides :mailname entries in the user database! Problem noted by Paul Southworth. CONFIG: Fix definition of Solaris help file location. From Steve Cliffe . CONFIG: Fix bug that broke news.group.USENET mappings. CONFIG: Allow declaration of SMTP_MAILER_MAX, FAX_MAILER_MAX, and USENET_MAILER_MAX to tweak the maximum message size for various mailers. CONFIG: Change definition of USENET_MAILER_ARGS to include argv[0] instead of assuming that it is "inews" for consistency with other mailers. From Michael Corrigan of UC San Diego. CONFIG: When mail is forwarded to a LOCAL_RELAY or a MAIL_HUB, qualify the address in the SMTP envelope as user@{relay|hub} instead of user@$j. From Bill Wisner of The Well. CONFIG: Fix route-addr syntax in nullrelay configuration set. CONFIG: Don't turn off case mapping of user names in the local mailer for IRIX. This was different than most every other system. CONFIG: Avoid infinite loops on certainly list:; syntaxes in envelope. Noted by Thierry Besancon . CONFIG: Don't include -z by default on uux line -- most systems don't want it set by default. Pointed out by Philippe Michel of Thomson CSF. CONFIG: Fix some bugs with mailertables -- for example, if your host name was foo.bar.ray.com and you matched against ".ray.com", the old implementation bound %1 to "bar" instead of "foo.bar". Also, allow "." in the mailertable to match anything -- essentially, take over SMART_HOST. This also moves matching of explicit local host names before the mailertable so they don't have to be special cased in the mailertable data. Reported by Bill Gianopoulos of Raytheon; the fix for the %1 binding problem was contributed by Nicholas Comanos of the University of Sydney. CONFIG: Don't include "root" in class $=L (users to deliver locally, even if a hub or relay exists) by default. This is because of the known bug where definition of both a LOCAL_RELAY and a MAIL_HUB causes $=L to ignore both and deliver into the local mailbox. CONFIG: Move up bitdomain and uudomain handling so that they are done before .UUCP class matching; uudomain was reported as ineffective before. This also frees up diversion 8 for future use. Problem reported by Kimmo Suominen. CONFIG: Don't try to convert dotted IP address (e.g., [1.2.3.4]) into host names. As pointed out by Jonathan Kamens, these are often used because either the forward or reverse mapping is broken; this translation makes it broken again. DOC: Clarify $@ and $: in the Install & Op Guide. From Kimmo Suominen. Portability fixes: Unicos from David L. Kensiski of Sterling Software. DomainOS from Don Lewis of Silicon Systems. GNU m4 1.0.3 from Karst Koymans of Utrecht University. Convex from Kimmo Suominen . NetBSD from Adam Glass . BSD/386 from Tony Sanders of BSDI. Apollo from Eric Wassenaar. DGUX from Doug Anderson. Sequent DYNIX/ptx 2.0 from Tim Wright of Sequent. NEW FILES: src/Makefile.DomainOS src/Makefile.PTX src/Makefile.SunOS.5.1 src/Makefile.SunOS.5.2 src/Makefile.SunOS.5.x src/mailq.1 cf/ostype/domainos.m4 doc/op/Makefile doc/intro/Makefile doc/usenix/Makefile 8.6.5/8.6.5 1994/01/13 Security fix: /.forward could be owned by anyone (the test to allow root to own any file was backwards). From Bob Campbell at U.C. Berkeley. Security fix: group ids were not completely set when programs were invoked. This caused programs to have group permissions they should not have had (usually group daemon instead of their own group). In particular, Perl scripts would refuse to run. Security: check to make sure files that are written are not symbolic links (at least under some circumstances). Although this does not respond to a specific known attack, it's just a good idea. Suggested by Christian Wettergren. Security fix: if a user had an NFS mounted home directory on a system with a restricted shell listed in their /etc/passwd entry, they could still execute any program by putting that in their .forward file. This fix prevents that by insisting that their shell appear in /etc/shells before allowing a .forward to execute a program or write a file. You can disable this by putting "*" in /etc/shells. It also won't permit world-writable :include: files to reference programs or files (there's no way to disable this). These behaviors are only one level deep -- for example, it is legal for a world-writable :include: file to reference an alias that writes a file, on the assumption that the alias file is well controlled. Security fix: root was not treated suspiciously enough when looking into subdirectories. This would potentially allow a cracker to examine files that were publicly readable but in a non-publicly searchable directory. Fix a problem that causes an error on QUIT on a cached connection to create problems on the current job. These are typically unrelated, so errors occur in the wrong place. Reset CurrentLA in sendall() -- this makes sendmail queue runs more responsive to load average, and fixes a problem that ignored the load average in locally generated mail. From Eric Wassenaar. Fix possible core dump on aliases with null LHS. From John Orthoefer of BB&N. Revert to using flock() whenever possible -- there are just too many bugs in fcntl() locking, particularly over NFS, that cause sendmail to fail in perverse ways. Fix a bug that causes the connection cache to get confused when sending error messages. This resulted in "unexpected close" messages. It should fix itself on the following queue run. Problem noted by Liudvikas Bukys of the University of Rochester. Include $k in $=k as documented in the Install & Op Guide. This seems odd, but it was documented.... From Michael Corrigan of UCSD. Fix problem that caused :include:s from alias files to be forced to be owned by root instead of daemon (actually DefUid). From Tim Irvin. Diagnose unrecognized I option values -- from Mortin Forssen of the Chalmers University of Technology. Make "error" mailer work consistently when there is no error code associated with it -- previously it returned OK even though there was a real problem. Now it assumes EX_UNAVAILABLE. Fix bug that caused the last header line of messages that had no body and which were terminated with EOF instead of "." to be discarded. Problem noted by Liudvikas Bukys. Fix core dump on SMTP mail to programs that failed -- it tried to go to a "next MX host" when none existed, causing a core dump. From der Mouse at McGill University. Change IDENTPROTO from a defined/not defined to a 0/1 switch; this makes it easier to turn it off (using -DIDENTPROTO=0 in the Makefile). From der Mouse. Fix YP_MASTER_NAME store to use the unupdated result of gethostname() (instead of myhostname(), which tries to fully qualify the name) to be consistent with SunOS. If your hostname is unqualified, this fixes transfers to secondary servers. Bug noted by Keith McMillan of Ameritech Services, Inc. Fix Ultrix problem: gethostbyname() can return a very large (> 500) h_length field, which causes the sockaddr to be trashed. Use the size of the sockaddr instead. Fix from Bob Manson of Ohio State. Don't assume "-a." on host lookups if NAMED_BIND is not defined -- this confuses gethostbyname on hosts file lookups, which doesn't understand the trailing dot convention. Log SMTP server subprocesses that die with a signal instead of from a clean exit. If you don't have option "I" set, don't assume that a DNS "host unknown" message is authoritative -- it might still be found in /etc/hosts. Fix a problem that would cause Deferred: messages to be sent as the subject of an error message, even though the actual cause of a message was more severe than that. Problem noted by Chris Seabrook of OSSI. Fix race condition in DBM alias file locking. From Kyle Jones of UUNET. Limit delivery syslog line length to avoid bugs in some versions of syslog(3). This adds a new compile time variable SYSLOG_BUFSIZE. From Jay Plett of Princeton University, which is in turn derived from IDA. Fix quotes inside of comments in addresses -- previously it insisted that they be balanced, but the 822 spec says that they should be ignored. Dump open file state to syslog upon receiving SIGUSR1 (for debugging). This also evaluates ruleset 89, if set (with the null input), and logs the result. This should be used sparingly, since the rewrite process is not reentrant. Change -qI, -qR, and -qS flags to be case-insensitive as documented in the Bat Book. If the mailer returned EX_IOERR or EX_OSERR, sendmail did not return an error message and did not requeue the message. Fix based on code from Roland Dirlewanger of Reseau Regional Aquarel, Bordeaux, France. Fix a problem that caused a seg fault if you got a 421 error code during some parts of connection initialization. I've only seen this when talking to buggy mailers on the other end, but it shouldn't give a seg fault in any case. From Amir Plivatsky. Fix core dump caused by a ruleset call that returns null. Fix from Bryan Costales of ICSI. Full-Name: field was being ignored. Fix from Motonori Nakamura of Kyoto University. Fix a possible problem with very long input lines in setproctitle. From P{r Emanuelsson. Avoid putting "This is a warning message" out on return receipts. Suggested by Douglas Anderson. Detect loops caused by recursive ruleset calls. Suggested by Bryan Costales. Initialize non-alias maps during alias rebuilds -- they may be needed for parsing. Problem noted by Douglas Anderson. Log sender address even if no message was collected in SMTP (e.g., if all RCPTs failed). Suggested by Motonori Nakamura. Don't reflect the owner-list contents into the envelope sender address if the value contains ", :, /, or | (to avoid illegal addresses appearing there). Efficiency hack for toktype macro -- from Craig Partridge of BB&N. Clean up DNS error printing so that a host name is always included. Remember to set $i during queue runs. Reported by Stephen Campbell of Dartmouth University. If the environment variable HOSTALIASES is set, use it during canonification as the name of a file with per-user host translations so that headers are properly mapped. Reported by Anne Bennett of Concordia University. Avoid printing misleading error message if SMTP mailer (not using [IPC]) should die on a core dump. Avoid incorrect diagnosis of "file 1 closed" when it is caused by the other end closing the connection. From Dave Morrison of Oracle. Improve several of the error messages printed by "mailq" to include a host name or other useful information. Add NetInfo preliminary support for NeXT systems. From Vince DeMarco. Fix a glitch that sometimes caused :include:s that pointed to NFS filesystems that were down to give an "aliasing/ forwarding loop broken" message instead of queueing the message for retry. Noted by William C Fenner of the NRL Connection Machine Facility. Fix a problem that could cause a core dump if the input sequence had (or somehow acquired) a \231 character. Make sure that route-addrs always have around them in non-SMTP envelopes (SMTP envelopes already do this properly). Avoid weird headers on unbalanced punctuation of the form: ``Joe User ; this has uucp-dom semantics but old UUCP syntax. This also permits "uucp-old" as an alias for "uucp" and "uucp-new" as a synonym for "suucp" for consistency. CONFIG: add POP mailer support (from Kimmo Suominen ). CONFIG: drop CSNET_RELAY support -- CSNET is long gone. CONFIG: fix bug caused with domain literal addresses (e.g., ``[128.32.131.12]'') when FEATURE(allmasquerade) was set; it would get an additional @masquerade.host added to the address. Problem noted by Peter Wan of Georgia Tech. CONFIG: make sure that the local UUCP name is in $=w. From Jim Murray of Stratus. CONFIG: changes to UUCP rewriting to simulate IDA-style "V" mailer flag. Briefly, if you are sending to host "foo", then it rewrites "foo!...!baz" to "...!baz", "foo!baz" remains "foo!baz", and anything else has the local name prepended. CONFIG: portability fixes for HP-UX. DOC: several minor problems fixed in the Install & Op Guide. MAKEMAP: fix core dump problem on lines that are too long or which lack newline. From Mark Delany. MAILSTATS: print sums of columns (total messages & kbytes in and out of the system). From Tom Ferrin of UC San Francisco Computer Graphics Lab. SIGNIFICANT USER- OR SYSAD-VISIBLE CHANGES: On HP-UX, /etc/sendmail.cf has been moved to /usr/lib/sendmail.cf to match HP sendmail. Permissions have been tightened up on world-writable :include: files and accounts that have shells that are not listed in /etc/shells. This may cause some .forward files that have worked before to start failing. SIGUSR1 dumps some state to the log. NEW FILES: src/Makefile.DGUX src/Makefile.Dynix src/Makefile.FreeBSD src/Makefile.Mach386 src/Makefile.NetBSD src/Makefile.RISCos src/Makefile.SCO src/Makefile.SVR4 src/Makefile.Titan cf/mailer/pop.m4 cf/ostype/bsdi1.0.m4 cf/ostype/dgux.m4 cf/ostype/dynix3.2.m4 cf/ostype/sco3.2.m4 makemap/Makefile.dist praliases/Makefile.dist 8.6.4/8.6.4 1993/10/31 Repair core-dump problem (write to read-only memory segment) if you fall back to the return-to-Postmaster case in savemail. Problem reported by Richard Liu. Immediately diagnose bogus sender addresses in SMTP. This makes quite certain that crackers can't use this class of attack. Reliability Fix: check return value from fclose() and fsync() in a few critical places. Minor problem in initsys() that reversed a condition for redirecting the output channel on queue runs. It's not clear this code even does anything. From Eric Wassenaar of the Dutch National Institute for Nuclear and High-Energy Physics. Fix some problems that caused queue runs to do "too much work", such as double-reading the Errors-To: header. From Eric Wassenaar. Error messages on writing the temporary file (including the data file) were getting suppressed in SMTP -- this fix causes them to be properly reported. From Eric Wassenaar. Some changes to support AF_UNIX sockets -- this will only really become relevant in the next release, but some people need it for local patches. From Michael Corrigan of UC San Diego. Use dynamically allocated memory (instead of static buffers) for macros defined in initsys() and settime(); since these can have different values depending on which envelope they are in. From Eric Wassenaar. Improve logging to show ctladdr on to= logging; this tells you what uid/gid processes ran as. Fix a problem that caused error messages to be discarded if the sender address was unparseable for some reason; this was supposed to fall back to the "return to postmaster" case. Improve aliaswait backoff algorithm. Portability patches for Linux (8.6.3 required another header file) (from Karl London) and SCO UNIX. CONFIG: patch prog mailer to not strip host name off of envelope addresses (so that it matches local again). From Christopher Davis. CONFIG: change uucp-dom mailer so that "<>" translates to $n; this prevents uux from seeing lines with null names like ``From Sat Oct 30 14:55:31 1993''. From Motonori Nakamura of Kyoto University. CONFIG: handle syntax correctly. This isn't legal, but it shouldn't fail miserably. From Motonori Nakamura. 8.6.2/8.6.2 1993/10/15 Put a "successful delivery" message in the transcript for addresses that get return-receipts. Put a prominent "this is only a warning" message in warning messages -- some people don't read carefully enough and end up sending the message several times. Include reason for temporary failure in the "warning" return message. Currently, it just says "cannot send for four hours". Fix the "Original message received" time generated for returntosender messages. It was previously listed as the current time. Bug reported by Eric Hagberg of Cornell University Medical College. If there is an error when writing the body of a message, don't send the trailing dot and wait for a response in sender SMTP, as this could cause the connection to hang up under some bizarre circumstances. From Eric Wassenaar. Fix some server SMTP synchronization problems caused when connections fail during message collection. From Eric Wassenaar. Fix a problem that can cause srvrsmtp to reject mail if the name server is down -- it accepts the RCPT but rejects the DATA command. Problem reported by Jim Murray of Stratus. Fix a problem that can cause core dumps if the config file incorrectly resolves to a null hostname. Reported by Allan Johannesen of WPI. Non-root use of -C flag, dangerous -f flags, and use of -oQ by non-root users were not put into X-Authentication-Warning:s as intended because the config file hadn't set the PrivacyOptions yet. Fix from Sven-Ove Westberg of the University of Lulea. Under very odd circumstances, the alias file rebuild code could get confused as to whether a database was open or not. Check "vendor code" on the end of V lines -- this is intended to provide a hook for vendor-specific configuration syntax. (This is a "new feature", but I've made an exception to my rule in a belief that this is a highly exceptional case.) Portability fixes for DG/UX (from Douglas Anderson of NCSC), SCO Unix (from Murray Kucherawy), A/UX, and OSF/1 (from Jon Forrest of UC Berkeley) CONFIG: fix ``mailer:host'' form of UUCP relay naming. 8.6.1/8.6 1993/10/08 Portability fixes for A/UX and Encore UMAX V. Fix error message handling -- if you had a name server down causing an error during parsing, that message was never propagated to the queue file. 8.6/8.6 1993/10/05 Configuration cleanup: make it easier to undo IDENTPROTO in conf.h (other systems have the same bug). If HASGETDTABLESIZE and _SC_OPEN_MAX are both defined, assume getdtablesize() instead of sysconf(); a disturbingly large number of systems defined _SC_OPEN_MAX in the header files but don't have the syscall. Another patch to really truly ignore MX records in getcanonname if trymx == FALSE. Fix problem that caused the "250 IAA25499 Message accepted for delivery" message to be omitted if there was an error in the header of the message (e.g., a bad Errors-To: line). Pointed out by Michael Corrigan of UCSD. Announce name of host we are chatting when we get errors; this is an IDA-ism suggested by Christophe Wolfhugel. Portability fixes for Alpha OSF/1 (from Anthony Baxter of the Australian Artificial Intelligence Institute), SCO Unix (from Murray Kucherawy of Hookup Communication Corp.), NeXT (from Vince DeMarco and myself), Linux (from Karl London ), BSDI (from Christophe Wolfhugel, and SVR4 on Dell (from Kimmo Suominen), AUX 3.0 on Macintosh, and ANSI C compilers. Some changes to get around gcc optimizer bugs. From Takahiro Kanbe. Fix error recovery in queueup if another tf file of the same name already exists. Problem stumbled over by Bill Wisner of The Well. Output YP_MASTER_NAME and YP_LAST_MODIFIED without null bytes. Problem noted by Keith McMillan of Ameritech Services. Deal with group permissions properly when opening .forward and :include: files. This relaxes the 8.1C restrictions slightly more. This includes proper setting of groups when reading :include: files, allowing you to read some files that you should be able to read but have previously been denied unless you owned them or they had "other" read permission. Make certain that $j is in $=w (after the .cf is read) so that if the user is forced to override some silly system, MX suppression will still work. Fix a couple of efficiency problems where newstr was double- calling expensive routines. In at least one case, it wasn't guaranteed that they would always return the same result. Problem noted by Christophe Wolfhugel. Fix null pointer dereference in putoutmsg -- only on an error condition from a non-SMTP mailer. From Motonori Nakamura. Macro expand "C" line class definitions before scanning so that "CX $Z" works. Fix problem that caused error message to be sent while still trying to send the original message if the connection is closed during a DATA command after getting an error on an RCPT command (pretty obscure). Problem reported by John Myers of CMU. Fix reply to NOOP to be 250 instead of 200 -- this is a long term bug. Fix a nasty bug causing core dumps when returning the "warning: cannot deliver for N hours -- will keep trying" message; it only occurred if you had PostmasterCopy set and only on some architectures. Although sendmail would keep trying, it would send error messages on each queue interval. This is an important fix. Allow u and g options to take user and group names respectively. Don't do a chdir into the queue directory in -bt mode to make ruleset testing a bit easier. Don't allow users to turn off logging (using -oL) on the command line -- command line can only raise, not lower, logging level. Set $u to the original recipient on the SMTP transaction or on the command line. This is only done if there is exactly one recipient. Technically, this does not meet the specs, because it does not guarantee a domain on the address. Fix a problem that dumped error messages on bad addresses if you used the -t flag. Problem noted by Josh Smith of Harvey Mudd College. Given an address such as `` '', auto-quote the first ``'' part, giving ``"" ''. This is to avoid the problem of people who use angle brackets in their full name information. Fix a null pointer dereference if you set option "l", have an Errors-To: header in the message, and have Errors-To: defined in the config file H lines. From J.R. Oldroyd. Put YPCOMPAT on #ifdef NIS instead -- it's one less thing to get wrong when compiling. Suggested by Rick McCarty of TI. Fix a problem that could pass negative SIZE parameter if the df file got lost; this would cause servers to always give a temporary failure, making the problem even worse. Problem noted by Allan Johannesen of WPI. Add "ident" timeout (one of the "r" option selectors) for IDENT protocol timeouts (30s default). Requested by Murray Kucherawy of HookUp Communication Corp. to handle bogus PC TCP/IP implementations. Change $w default definition to be just the first component of the domain name on config level 5. The $j macro defaults to the FQDN; $m remains as before. This lets well-behaved config files use any of the short, long, or subdomain names. Add makesendmail script in src to try to automate multi-architecture builds. I know, this is sub-optimal, but it is still helpful. Fix very obscure race condition that can cause a queue run to get a queue file for an already completed job. This problem has existed for years. Problem noted by the long suffering Allan Johannesen of WPI. Fix a problem that caused the raw sender name to be passed to udbsender instead of the canonified name -- this caused it to sometimes miss records that it should have found. Relax check of name on HELO packet so that a program using -bs that claims to be itself works properly. Restore rewriting of $: part of address through 2, R, 4 in buildaddr -- this requires passing a lot of flags to get it right. Unlike old versions, this ONLY rewrites recipient addresses, not sender addresses. Fix a bug that caused core dumps in config files that cannot resolve /file/name style addresses. Fix from Jonathan Kamens of OpenVision Technologies. Fix problem with fcntl locking that can cause error returns to be lost if the lock is lost; this required fully queueing everything, dropping the envelope (so errors would get returned), and then re-reading the queue from scratch. Fix a problem that caused aliases that redefine an otherwise true address to still send to the original address if and only if the alias failed in certain bizarre ways (e.g, if they pointed at a list:; syntax address). Problem pointed out by Jonathan Kamens. Remove support for frozen configuration files. They caused more trouble than it was worth. Fix problem that can cause error messages to get ignored when using both -odb and -t flags. Problem noted by Rob McNicholas at U.C. Berkeley. Include all "normal" variations on hostname in $=w. For example, if the host name is vangogh.cs.berkeley.edu, $=w will contain vangogh, vangogh.cs, and vangogh.cs.berkeley.edu. Add "restrictqrun" privacy flag -- without this, anyone can run the queue. Reset SmtpPhase global on initial connection creation so that messages don't come out with stale information. Pass an "ext" argument to lockfile so that error/log messages will properly reflect the true filename being locked. Put all [...] address forms into $=w -- this eliminates the need for MAXIPADDR in conf.h. Suggested by John Gardiner Myers of CMU. Fix a bug that can cause qf files to be left around even after an SMTP RSET command. Problem and fix from Michael Corrigan. Don't send a PostmasterCopy to errors when the Precedence: is negative. Error reports still go to the envelope sender address. Add LA_SHORT for load averages. Lock sendmail.st file when posting statistics. Add "SendBufSize" and "RcvBufSize" suboptions to "O" option to set the size of the TCP send and receive buffers; if you run over a slow slip line you may need to set these down (although it would be better to fix the SLIP implementation so that it's not necessary to recompile every program that does bulk data transfer). Allow null defaults on $( ... $) lookups. Problem reported by Amir Plivatsky. Diagnose crufty S and V config lines. This resulted from an observation that some people were using the SITE macro without the SITECONFIG macro first, which was causing bogus config files that were not caught. Fix makemap -f flag to turn off case folding (it was turning it on instead). THIS IS A USER VISIBLE CHANGE!!! Fix a problem that caused multiple error messages to be sent if you used "sendmail -t -oem -odb", your system uses fcntl locking, and one of the recipient addresses is unknown. Reset uid earlier in include() so that recursive .forwards or :include:s don't use the wrong uid. If file descriptor 0, 1, or 2 was closed when sendmail was called, the code to recover the descriptor was broken. This sometimes (only sometimes) caused problems with the alias file. Fix from Motonori Nakamura. Fix a problem that caused aliaswait to go into infinite recursion if the @:@ metasymbol wasn't found in the alias file. Improve error message on newaliases if database files cannot be opened or if running with no database format defined. Do a better estimation of the size of error messages when NoReturn is set. Problem noted by P{r (Pell) Emanuelsson. Fix a problem causing the "c" option (don't connect to expensive mailers) to be ignored in SMTP. Problem noted and the solution suggested by Robert Elz of The University of Melbourne. Improve connection caching algorithm by passing "[host]" to hostsignature, which strips the square brackets and returns the real name. This allows mailertable entries to match regular entries. Re-enable Return-Receipt-To: -- people seem to want this stupid feature, even if it doesn't work right. Catch and log attempts to try the "wiz" command in server SMTP. This also ups the log level from LOG_NOTICE to LOG_CRIT. Be more generous at assigning $z to the home directory -- do this for programs that are specified through a .forward file. Fix from Andrew Chang of Sun Microsystems. Always save a fatal error message in preference to a non-fatal error message so that the "subject" line of return messages is the best possible. CONFIG: reduce the number of quotes needed to quote configuration parameters with commas: two quotes should work now, e.g., define(ALIAS_FILE, ``/etc/aliases,/etc/aliases.local''). CONFIG: class $=Z is a set of UUCP hosts that use uucp-dom connections (domain-ized UUCP). CONFIG: fix bug in default maps (-o must be before database file name). Pointed out by Christophe Wolfhugel. CONFIG: add FEATURE(nodns) to state that we are not relying on DNS. This would presumably be used in UUCP islands. CONFIG: add OSTYPE(nextstep) and OSTYPE(linux). CONFIG: log $u in Received: line. This is in technical violation of the standards, since it doesn't guarantee a domain on the address. CONFIG: don't assume "m" in local mailer flags -- this means that if you redefine LOCAL_MAILER_FLAGS you will have to include the "m" flag should you want it. Apparently some Solaris 2.2 installations can't handle multiple local recipients. Problem noted by Josh Smith. CONFIG: add confDOMAIN_NAME to set $j (if undefined, $j defaults). CONFIG: change default version level from 4 to 5. CONFIG: add FEATURE(nullclient) to create a config file that forwards all mail to a hub without ever looking at the addresses in any detail. CONFIG: properly strip mailer: information off of relays when used to change .BITNET form into %-hack form. CONFIG: fix a problem that caused infinite loops if presented with an address such as "!foo". CONFIG: check for self literal (e.g., [128.32.131.12]) even if the reverse "PTR" mapping is broken. There's a better way to do this, but the change is fairly major and I want to hold it for another release. Problem noted by Bret Marquis. 8.5/8.5 1993/07/23 Serious bug: if you used a command line recipient that was unknown sendmail would not send a return message (it was treating everything as though it had an SMTP-style client that would do the return itself). Problem noted by Josh Smith. Change "trymx" option in getcanonname() to ignore all MX data, even during a T_ANY query. This actually didn't break anything, because the only time you called getcanonname with !trymx was if you already knew there were no MX records, but it is somewhat cleaner. From Motonori Nakamura. Don't call getcanonname from getmxrr if you already know there are no DNS records matching the name. Fix a problem causing error messages to always include "The original message was received ... from localhost". The correct original host information is now included. Previous change to cf/sh/makeinfo.sh doesn't port to Ultrix (their version of "test" doesn't have the -x flag). Change it to use -f instead. From John Myers. CONFIG: 8.4 mistakenly set the default SMTP-style mailer to esmtp -- it should be smtp. CONFIG: send all relayed mail using confRELAY_MAILER (defaults to "relay" (a variant of "smtp") if MAILER(smtp) is used, else "suucp" if MAILER(uucp) is used, else "unknown"); this cleans up the configs somewhat. This fixes a serious problem that caused route-addrs to get mistaken as relays, pointed out by John Myers. WARNING: this also causes the default on SMART_HOST to change from "suucp" to "relay" if you have MAILER(smtp) specified. 8.4/8.4 1993/07/22 Add option `w'. If you receive a message that comes to you because you are the best (lowest preference) target of an MX, and you haven't explicitly recognized the source MX host in your .cf file, this option will cause you to try the target host directly (as if there were no MX for it at all). If `w' is not set, this case is a configuration error. Beware: if `w' is set, senders may get bogus errors like "message timed out" or "host unknown" for problems that are really configuration errors. This option is disrecommended, provided only for compatibility with UIUC sendmail. Fix a problem that caused the incoming socket to be left open when sendmail forks after the DATA command. This caused calling systems to wait in FIN_WAIT_2 state until the entire list was processed and the child closed -- a potentially prodigious amount of time. Problem noted by Neil Rickert. Fix problem (created in 6.64) that caused mail sent to multiple addresses, one of which was a bad address, to completely suppress the sending of the message. This changes handling of EF_FATALERRS somewhat, and adds an EF_GLOBALERRS flag. This also fixes a potential problem with duplicate error messages if there is a syntax error in the header of a message that isn't noticed until late in processing. Original problem pointed out by Josh Smith of Harvey Mudd College. This release includes quite a bit of dickering with error handling (see below). Back out SMTP transaction if MAIL gets nested 501 error. This will only hurt already-broken software and should help humans. Fix a problem that broke aliases when neither NDBM nor NEWDB were compiled in. It would never read the alias file. Repair unbalanced `)' and `>' (the "open" versions are already repaired). Logging of "done" in dropenvelope() was incorrect: it would log this even when the queue file still existed. Change this to only log "done" (at log level 11) when the queue file is actually removed. From John Myers. Log "lost connection" in server SMTP at log level 20 if there is no pending transaction. Some senders just close the connection rather than sending QUIT. Fix a bug causing getmxrr to add a dot to the end of unqualified domains that do not have MX records -- this would cause the subsequent host name lookup to fail. The problem only occurred if you had FEATURE(nocanonify) set. Problem noted by Rick McCarty of Texas Instruments. Fix invocation of setvbuf when passed a -X flag -- I had unwittingly used an ANSI C extension, and this caused core dumps on some machines. Diagnose self-destructive alias loops on RCPT as well as EXPN. Previously it just gave an empty send queue, which then gave either "Need RCPT (recipient)" at the DATA (confusing, since you had given an RCPT command which returned 250) or just dropped the email, depending on whether you were running VERBose mode. Now it usually diagnoses this case as "aliasing/forwarding loop broken". Unfortunately, it still doesn't adequately diagnose some true error conditions. Add internal concept of "warning messages" using 6xx codes. These are not reported only to Postmaster. Unbalanced parens, brackets, and quotes are printed as 653 codes. They are always mapped to 5xx codes before use in SMTP. Clean up error messages to tell both the actual address that failed and the alias they arose from. This makes it somewhat easier to diagnose problems. Difficulty noted by Motonori Nakamura. Fix a problem that inappropriately added a ctladdr to addresses that shouldn't have had one during a queue run. This caused error messages to be handled differently during a queue run than a direct run. Don't print the qf name and line number if you get errors during the direct run of the queue from srvrsmtp -- this was just extra stuff for users to crawl through. Put command line flags on second line of pid file so you can auto-restart the daemon with all appropriate arguments. Use "kill `head -1 /etc/sendmail.pid`" to stop the daemon, and "eval `tail -1 /etc/sendmail.pid`" to restart it. Remove the ``setuid(getuid())'' in main -- this caused the IDENT daemon to screw up. This required that I change HASSETEUID to HASSETREUID and complicate the mode changing somewhat because both Ultrix and SunOS seem to have a bug causing seteuid() to set the saved uid as well as the effective. The program test/t_setreuid.c will test to see if your implementation of setreuid(2) is appropriately functional. The FallBackMXhost (option V) handling failed to properly identify fallback to yourself -- most of the code was there, but it wasn't being enabled. Problem noted by Murray Kucherawy of the University of Waterloo. Change :include: open timeout from ETIMEDOUT to an internal code EOPENTIMEOUT; this avoids adding "during SmtpPhase with CurHostName" in error messages, which can be confusing. Reported by Jonathan Kamens of OpenVision Technologies. Back out setpgrp (setpgid on POSIX systems) call to reset the process group id. The original fix was to get around some problems with recalcitrant MUAs, but it breaks any call from a shell that creates a process group id different from the process id. I could try to fix this by diddling the tty owner (using tcsetpgrp or equivalent) but this is too likely to break other things. Portability changes: Support -M as equivalent to -oM on Ultrix -- apparently DECnet calls sendmail with -MrDECnet -Ms -bs instead of using standard flags. Oh joy. This behavior reported by Jon Giltner of University of Colorado. SGI IRIX -- this includes several changes that should help other strict ANSI compilers. SCO Unix -- from Murray Kucherawy of HookUp Communication Corporation. Solaris running the Sun C compiler (which despite the documentation apparently doesn't define __STDC__ by default). ConvexOS from Eric Schnoebelen of Convex. Sony NEWS workstations and Omron LUNA workstations from Motonori Nakamura. CONFIG: add confTRY_NULL_MX_LIST to set option `w'. CONFIG: delete `C' and `e' from default SMTP mailers flags; several people have made a good argument that this creates more problems than it solves (although this may prove painful in the short run). CONFIG: generalize all the relays to accept a "mailer:host" format. CONFIG: move local processing in ruleset 0 into a new ruleset 98 (8 on old sendmail). Domain literal [a.b.c.d] addresses are also passed through this ruleset. CONFIG: if neither SMART_HOST nor MAILER(smtp) were defined, internet-style addresses would "fall off the end" of ruleset zero and be interpreted as local -- however, the angle brackets confused the recursive call. These are now diagnosed as "Unrecognized host name". CONFIG: USENET rules weren't included in S0 because of a mistaken ifdef(`_MAILER_USENET_') instead of ifdef(`_MAILER_usenet_'). Problem found by Rein Tollevik of SINTEF RUNIT, Oslo. CONFIG: move up LOCAL_RULE_0 processing so that it happens very early in ruleset 0; this allows .mc authors to bypass things like the "short circuit" code for local addresses. Prompted by a comment by Bill Wisner of The Well. CONFIG: add confSMTP_MAILER to define the mailer used (smtp or esmtp) to send SMTP mail. This allows you to default to esmtp but use a mailertable or other override to deal with broken servers. This logic was pointed out to me by Bill Wisner. Ditto for confLOCAL_MAILER. Changes to cf/sh/makeinfo.sh to make it portable to SVR4 environments. Ugly as sin. 8.3/8.3 1993/07/13 Fix setuid problems introduced in 8.2 that caused messages like "Cannot create qfXXXXXX: Invalid argument" or "Cannot reopen dfXXXXXX: Permission denied". This involved a new compile flag "HASSETEUID" that takes the place of the old _POSIX_SAVED_IDS -- it turns out that the POSIX interface is broken enough to break some systems badly. This includes some fixes for HP-UX. Also fixes problems where the real uid is not reset properly on startup (from Neil Rickert). Fix a problem that caused timed out messages to not report the addresses that timed out. Error messages are also more "user friendly". Drop required bandwidth on connections from 64 bytes/sec to 16 bytes/sec. Further Solaris portability changes -- doesn't require the BSD compatibility library. This also adds a new "HASGETDTABLESIZE" compile flag which can be used if you want to use getdtablesize(2) instead of sysconf(2). These are loosely based on changes from David Meyer at University of Oregon. This now seems to work, at least for quick test cases. Fix a problem that can cause duplicate error messages to be sent if you are in SMTP, you send to multiple addresses, and at least one of those addresses is good and points to an account that has a .forward file (whew!). Fix a problem causing messages to be discarded if checkcompat() returned EX_TEMPFAIL (because it didn't properly mark the "to" address). Problem noted by John Myers. Fix dfopen to return NULL if the open failed; I was depending on fdopen(-1) returning NULL, which isn't the case. This isn't serious, but does result in weird error diagnoses. From Michael Corrigan. CONFIG: add UUCP_MAX_SIZE M4 macro to set the maximum size of messages sent through UUCP-family mailers. Suggested by Bill Wisner of The Well. CONFIG: if both MAILER(uucp) and MAILER(smtp) are specified, include a "uucp-dom" mailer that uses domain-style addressing. Suggested by Bill Wisner. CONFIG: Add LOCAL_SHELL_FLAGS and LOCAL_SHELL_ARGS to match LOCAL_MAILER_FLAGS and LOCAL_MAILER_ARGS. Suggested by Christophe Wolfhugel. CONFIG: Add OSTYPE(aix3). From Christophe Wolfhugel. 8.2/8.2 1993/07/11 Don't drop out on config file parse errors in -bt mode. On older configuration files, assume option "l" (use Errors-To header) for back compatibility. NOTE: this DOES NOT imply an endorsement of the Errors-To: header in any way. Accept -x flag on AIX-3 as well as OSF/1. Why, why, why??? Don't log errors on EHLO -- it isn't a "real" error for an old SMTP server to give an error on this command, and logging it in the transcript can be confusing. Fix from Bill Wisner. IRIX compatibility changes provided by Dan Rich . Solaris 2 compatibility changes. Provided by Bob Cunningham , John Oleynick Debugging: -d17 was overloaded (hostsignature and usersmtp.c); move usersmtp (smtpinit and smtpmailfrom) to -d18 to match the other flags in that file. Flush transcript before fork in mailfile(). From Eric Wassenaar. Save h_errno in mci struct and improve error message display. Changes from Eric Wassenaar. Open /dev/null for the transcript if the create of the xf file failed; this avoids at least one possible null pointer reference in very weird cases. From Eric Wassenaar. Clean up statistics gathering; it was over-reporting because of forks. From Eric Wassenaar. Fix problem that causes old Return-Path: line to override new Return-Path: line (conf.c needs H_FORCE to avoid re-using old value). From Motonori Nakamura. Fix broken -m flag in K definition -- even if -m (match only) was specified, it would still replace the key with the value. Noted by Rick McCarty of Texas Instruments. If the name server timed out over several days, no "timed out" message would ever be sent back. The timeout code has been moved from markfailure() to dropenvelope() so that all such failures should be diagnosed. Pointed out by Christophe Wolfhugel and others. Relax safefile() constraints: directories in an include or forward path must be readable by self if the controlling user owns the entry, readable by all otherwise (e.g., when reading your .forward file, you have to own and have X permission in it; everyone needs X permission in the root and directories leading up to your home); include files must be readable by anyone, but need not be owned by you. If _POSIX_SAVED_IDS is defined, setuid to the owner before reading a .forward file; this gets around some problems on NFS mounts if root permission is not exported and the user's home directory isn't x'able. Additional NeXT portability enhancements from Axel Zinser. Additional HP-UX portability enhancements from Brian Bullen. Add a timeout around SMTP message writes; this assumes you can get throughput of at least 64 bytes/second. Note that this does not impact the "datafinal" default, which is separate; this is just intended to work around network clogs that will occur before the final dot is sent. From Eric Wassenaar. Change map code to set the "include null" flag adaptively -- it initially tries both, but if it finds anything matching without a null it never tries again with a null and vice versa. If -N is specified, it never tries without the null and creates new maps with a null byte. If -O is specified, it never tries with the null (for efficiency). If -N and -O are specified, you get -NO (get it?) lookup at all, so this would be a bad idea. If you don't specify either -N or -O, it adapts. Fix recognition of "same from address" so that MH submissions will insert the appropriate full name information; this used to work and got broken somewhere along the way. Some changes to eliminate some unnecessary SYSERRs in the log. For example, if you lost a connection, don't bother reporting that fact on the connection you lost. Add some "extended debugging" flags to try to track down why we get occasional problems with file descriptor one being closed when execing a mailer; it seems to only happen when there has been another error in the same transaction. This requires XDEBUG, defined by default in conf.h. Add "-X filename" command line flag, which logs both sides of all SMTP transactions. This is intended ONLY for debugging bad implementations of other mailers; start it up, send a message from a mailer that is failing, and then kill it off and examine the indicated log. This output is not intended to be particularly human readable. This also adds the HASSETVBUF compile flag, defaulted on if your compiler defines __STDC__. CONFIG: change SMART_HOST to override an SMTP mailer. If you have a local net that should get direct connects, you will need to use LOCAL_NET_CONFIG to catch these hosts. See cf/README for an example. CONFIG: add LOCAL_MAILER_ARGS (default: `mail -d $u') to handle sites that don't use the -d flag. CONFIG: hide recipient addresses as well as sender addresses behind $M if FEATURE(allmasquerade) is specified; this has been requested by several people, but can break local aliases. For example, if you mail to "localalias" this will be rewritten as "localalias@masqueradehost"; although initial delivery will work, replies will be broken. Use it sparingly. CONFIG: add FEATURE(domaintable). This maps unqualified domains to qualified domains in headers. I believe this is largely equivalent to the IDA feature of the same name. CONFIG: use $U as UUCP name instead of $k. This permits you to override the "system name" as your UUCP name -- in particular, to use domain-ized UUCP names. From Bill Wisner of The Well. CONFIG: create new mailer "esmtp" that always tries EHLO first. This is currently unused in the config files, but could be used in a mailertable entry. 8.1C/8.1B 1993/06/27 Serious security bug fix: it was possible to read any file on the system, regardless of ownership and permissions. If a subroutine returns a fully qualified address, return it immediately instead of feeding it back into rewriting. This fixes a problem with mailertable lookups. CONFIG: fix some M4 frotz (concat => CONCAT) 8.1B/8.1A 1993/06/12 Serious bug fix: pattern matching backup algorithm stepped by two tokens in classes instead of one. Found by Claus Assmann at University of Kiel, Germany. 8.1A/8.1A 1993/06/08 Another mailertable fix.... 8.1/8.1 1993/06/07 4.4BSD freeze. No semantic changes. sendmail-8.18.1/smrsh/0000755000372400037240000000000014556365433014125 5ustar xbuildxbuildsendmail-8.18.1/smrsh/smrsh.80000644000372400037240000000575014556365350015357 0ustar xbuildxbuild.\" Copyright (c) 1998-2004 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" Copyright (c) 1993 Eric P. Allman. All rights reserved. .\" Copyright (c) 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: smrsh.8,v 8.23 2013-11-22 20:52:00 ca Exp $ .\" .TH SMRSH 8 "$Date: 2013-11-22 20:52:00 $" .SH NAME smrsh \- restricted shell for sendmail .SH SYNOPSIS .B smrsh .B \-c command .SH DESCRIPTION The .I smrsh program is intended as a replacement for .I sh for use in the ``prog'' mailer in .IR sendmail (8) configuration files. It sharply limits the commands that can be run using the ``|program'' syntax of .I sendmail in order to improve the over all security of your system. Briefly, even if a ``bad guy'' can get sendmail to run a program without going through an alias or forward file, .I smrsh limits the set of programs that he or she can execute. .PP Briefly, .I smrsh limits programs to be in a single directory, by default /usr/adm/sm.bin, allowing the system administrator to choose the set of acceptable commands, and to the shell builtin commands ``exec'', ``exit'', and ``echo''. It also rejects any commands with the characters `\`', `<', `>', `;', `$', `(', `)', `\er' (carriage return), or `\en' (newline) on the command line to prevent ``end run'' attacks. It allows ``||'' and ``&&'' to enable commands like: ``"|exec /usr/local/bin/filter || exit 75"'' .PP Initial pathnames on programs are stripped, so forwarding to ``/usr/ucb/vacation'', ``/usr/bin/vacation'', ``/home/server/mydir/bin/vacation'', and ``vacation'' all actually forward to ``/usr/adm/sm.bin/vacation''. .PP System administrators should be conservative about populating the sm.bin directory. For example, a reasonable additions is .IR vacation (1), and the like. No matter how brow-beaten you may be, never include any shell or shell-like program (such as .IR perl (1)) in the sm.bin directory. Note that this does not restrict the use of shell or perl scripts in the sm.bin directory (using the ``#!'' syntax); it simply disallows execution of arbitrary programs. Also, including mail filtering programs such as .IR procmail (1) is a very bad idea. .IR procmail (1) allows users to run arbitrary programs in their .IR procmailrc (5). .SH COMPILATION Compilation should be trivial on most systems. You may need to use \-DSMRSH_PATH=\e"\fIpath\fP\e" to adjust the default search path (defaults to ``/bin:/usr/bin:/usr/ucb'') and/or \-DSMRSH_CMDDIR=\e"\fIdir\fP\e" to change the default program directory (defaults to ``/usr/adm/sm.bin''). .SH FILES /usr/adm/sm.bin \- default directory for restricted programs on most OSs .PP /var/adm/sm.bin \- directory for restricted programs on HP UX and Solaris .PP /usr/libexec/sm.bin \- directory for restricted programs on FreeBSD (>= 3.3) and DragonFly BSD .SH SEE ALSO sendmail(8) sendmail-8.18.1/smrsh/Makefile.m40000644000372400037240000000115314556365350016102 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.36 2006-06-28 21:08:04 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_LIBSM', `true') define(`confREQUIRE_SM_OS_H', `true') # sendmail dir SMSRCDIR= ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confENVDEF', `confMAPDEF') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`executable', `smrsh') define(`bldINSTALL_DIR', `E') define(`bldSOURCES', `smrsh.c ') bldPUSH_SMLIB(`sm') APPENDDEF(`confENVDEF', `-DNOT_SENDMAIL') bldPRODUCT_END bldPRODUCT_START(`manpage', `smrsh') define(`bldSOURCES', `smrsh.8') bldPRODUCT_END bldFINISH sendmail-8.18.1/smrsh/smrsh.00000644000372400037240000000624414556365431015346 0ustar xbuildxbuildSMRSH(8) SMRSH(8) NNAAMMEE smrsh - restricted shell for sendmail SSYYNNOOPPSSIISS ssmmrrsshh --cc command DDEESSCCRRIIPPTTIIOONN The _s_m_r_s_h program is intended as a replacement for _s_h for use in the ``prog'' mailer in _s_e_n_d_m_a_i_l(8) configuration files. It sharply limits the commands that can be run using the ``|program'' syntax of _s_e_n_d_m_a_i_l in order to improve the over all security of your system. Briefly, even if a ``bad guy'' can get sendmail to run a program without going through an alias or forward file, _s_m_r_s_h limits the set of programs that he or she can execute. Briefly, _s_m_r_s_h limits programs to be in a single directory, by default /usr/adm/sm.bin, allowing the system administrator to choose the set of acceptable commands, and to the shell builtin commands ``exec'', ``exit'', and ``echo''. It also rejects any commands with the charac- ters ``', `<', `>', `;', `$', `(', `)', `\r' (carriage return), or `\n' (newline) on the command line to prevent ``end run'' attacks. It allows ``||'' and ``&&'' to enable commands like: ``"|exec /usr/local/bin/filter || exit 75"'' Initial pathnames on programs are stripped, so forwarding to ``/usr/ucb/vacation'', ``/usr/bin/vacation'', ``/home/server/mydir/bin/vacation'', and ``vacation'' all actually for- ward to ``/usr/adm/sm.bin/vacation''. System administrators should be conservative about populating the sm.bin directory. For example, a reasonable additions is _v_a_c_a_t_i_o_n(1), and the like. No matter how brow-beaten you may be, never include any shell or shell-like program (such as _p_e_r_l(1)) in the sm.bin directory. Note that this does not restrict the use of shell or perl scripts in the sm.bin directory (using the ``#!'' syntax); it simply disallows execution of arbitrary programs. Also, including mail filtering pro- grams such as _p_r_o_c_m_a_i_l(1) is a very bad idea. _p_r_o_c_m_a_i_l(1) allows users to run arbitrary programs in their _p_r_o_c_m_a_i_l_r_c(5). CCOOMMPPIILLAATTIIOONN Compilation should be trivial on most systems. You may need to use -DSMRSH_PATH=\"_p_a_t_h\" to adjust the default search path (defaults to ``/bin:/usr/bin:/usr/ucb'') and/or -DSMRSH_CMDDIR=\"_d_i_r\" to change the default program directory (defaults to ``/usr/adm/sm.bin''). FFIILLEESS /usr/adm/sm.bin - default directory for restricted programs on most OSs /var/adm/sm.bin - directory for restricted programs on HP UX and Solaris /usr/libexec/sm.bin - directory for restricted programs on FreeBSD (>= 3.3) and DragonFly BSD SSEEEE AALLSSOO sendmail(8) $Date: 2013-11-22 20:52:00 $ SMRSH(8) sendmail-8.18.1/smrsh/Makefile0000644000372400037240000000053214556365350015563 0ustar xbuildxbuild# $Id: Makefile,v 8.5 1999-09-23 22:36:43 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/smrsh/Build0000755000372400037240000000052014556365350015105 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.5 2013-11-22 20:52:00 ca Exp $ exec ../devtools/bin/Build $* sendmail-8.18.1/smrsh/README0000644000372400037240000001336614556365350015014 0ustar xbuildxbuild README smrsh - sendmail restricted shell. This README file is provided as a courtesy of the CERT Coordination Center, Software Engineering Institute, Carnegie Mellon University. This file is intended as a supplement to the CERT advisory CA-93:16.sendmail.vulnerability, and to the software, smrsh.c, written by Eric Allman. The smrsh(8) program is intended as a replacement for /bin/sh in the program mailer definition of sendmail(8). This README file describes the steps needed to compile and install smrsh. smrsh is a restricted shell utility that provides the ability to specify, through a configuration, an explicit list of executable programs. When used in conjunction with sendmail, smrsh effectively limits sendmail's scope of program execution to only those programs specified in smrsh's configuration. smrsh has been written with portability in mind, and uses traditional Unix library utilities. As such, smrsh should compile on most Unix C compilers. smrsh should build on most systems with the enclosed Build script: host.domain% sh ./Build To compile smrsh.c by hand, use the following command: host.domain% cc -o smrsh smrsh.c For machines that provide dynamic linking, it is advisable to compile smrsh without dynamic linking. As an example with the Sun Microsystems compiler, you should compile with the -Bstatic option. host.domain% cc -Bstatic -o smrsh smrsh.c or host.domain% sh ./Build LDOPTS=-Bstatic With gcc, the GNU C compiler, use the -static option. host.domain% cc -static -o smrsh smrsh.c or host.domain% sh ./Build LDOPTS=-static The following C defines can be set defined to change the search path and the bin directory used by smrsh. -DSMRSH_PATH=\"path\" \"/bin:/usr/bin:/usr/ucb\" The default search path. -DSMRSH_CMDDIR=\"dir\" \"/usr/adm/sm.bin\" The default smrsh program directory These can be added to the devtools/Site/site.config.m4 file using the global M4 macro confENVDEF or the smrsh specific M4 macro conf_smrsh_ENVDEF. As root, install smrsh in /usr/libexec. Using the Build script: host.domain# sh ./Build install For manual installation: install smrsh in the /usr/libexec directory, with mode 511. host.domain# mv smrsh /usr/libexec host.domain# chmod 511 /usr/libexec/smrsh Next, determine the list of commands that smrsh should allow sendmail to run. This list of allowable commands can be determined by: 1. examining your /etc/mail/aliases file, to indicate what commands are being used by the system. 2. surveying your host's .forward files, to determine what commands users have specified. See the man page for aliases(5) if you are unfamiliar with the format of these specifications. Additionally, you should include in the list, popular commands such as /usr/ucb/vacation. You should NOT include interpreter programs such as sh(1), csh(1), perl(1), uudecode(1) or the stream editor sed(1) in your list of acceptable commands. If your platform doesn't have a default SMRSH_CMDDIR setting, you will next need to create the directory /usr/adm/sm.bin and populate it with the programs that your site feels are allowable for sendmail to execute. This directory is explicitly specified in the source code for smrsh, so changing this directory must be accompanied with a change in smrsh.c. You will have to be root to make these modifications. After creating the /usr/adm/sm.bin directory, either copy the programs to the directory, or establish links to the allowable programs from /usr/adm/sm.bin. Change the file permissions, so that these programs can not be modified by non-root users. If you use links, you should ensure that the target programs are not modifiable. To allow the popular vacation(1) program by creating a link in the /usr/adm/sm.bin directory, you should: host.domain# cd /usr/adm/sm.bin host.domain# ln -s /usr/ucb/vacation vacation After populating the /usr/adm/sm.bin directory, you can now configure sendmail to use the restricted shell. Save the current sendmail.cf file prior to modifying it, as a prudent precaution. Typically, the program mailer is defined by a single line in the sendmail configuration file, sendmail.cf. This file is traditionally found in the /etc, /usr/lib or /etc/mail directories, depending on the UNIX vendor. If you are unsure of the location of the actual sendmail configuration file, a search of the strings(1) output of the sendmail binary, will help to locate it. In order to configure sendmail to use smrsh, you must modify the Mprog definition in the sendmail.cf file, by replacing the /bin/sh specification with /usr/libexec/smrsh. As an example: In most Sun Microsystems' sendmail.cf files, the line is: Mprog, P=/bin/sh, F=lsDFMeuP, S=10, R=20, A=sh -c $u which should be changed to: Mprog, P=/usr/libexec/smrsh, F=lsDFMeuP, S=10, R=20, A=sh -c $u ^^^^^^^^^^^^^^^^^^ A more generic line may be: Mprog, P=/bin/sh, F=lsDFM, A=sh -c $u and should be changed to; Mprog, P=/usr/libexec/smrsh, F=lsDFM, A=sh -c $u After modifying the Mprog definition in the sendmail.cf file, if a frozen configuration file is being used, it is essential to create a new one. You can determine if you need a frozen configuration by discovering if a sendmail.fc file currently exists in either the /etc/, /usr/lib, or /etc/mail directories. The specific location can be determined using a search of the strings(1) output of the sendmail binary. In order to create a new frozen configuration, if it is required: host.domain# /usr/lib/sendmail -bz Now re-start the sendmail process. An example of how to do this on a typical system follows: host.domain# cat /var/run/sendmail.pid 130 /usr/sbin/sendmail -bd -q30m host.domain# /bin/kill -15 130 host.domain# /usr/sbin/sendmail -bd -q30m $Revision: 8.10 $, Last updated $Date: 2008-02-12 16:40:06 $ sendmail-8.18.1/smrsh/smrsh.c0000644000372400037240000002336214556365350015431 0ustar xbuildxbuild/* * Copyright (c) 1998-2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1993 Eric P. Allman. All rights reserved. * Copyright (c) 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_IDSTR(copyright, "@(#) Copyright (c) 1998-2004 Proofpoint, Inc. and its suppliers.\n\ All rights reserved.\n\ Copyright (c) 1993 Eric P. Allman. All rights reserved.\n\ Copyright (c) 1993\n\ The Regents of the University of California. All rights reserved.\n") SM_IDSTR(id, "@(#)$Id: smrsh.c,v 8.66 2013-11-22 20:52:00 ca Exp $") /* ** SMRSH -- sendmail restricted shell ** ** This is a patch to get around the prog mailer bugs in most ** versions of sendmail. ** ** Use this in place of /bin/sh in the "prog" mailer definition ** in your sendmail.cf file. You then create CMDDIR (owned by ** root, mode 755) and put links to any programs you want ** available to prog mailers in that directory. This should ** include things like "vacation" and "procmail", but not "sed" ** or "sh". ** ** Leading pathnames are stripped from program names so that ** existing .forward files that reference things like ** "/usr/bin/vacation" will continue to work. ** ** The following characters are completely illegal: ** < > ^ & ` ( ) \n \r ** The following characters are sometimes illegal: ** | & ** This is more restrictive than strictly necessary. ** ** To use this, add FEATURE(`smrsh') to your .mc file. ** ** This can be used on any version of sendmail. ** ** In loving memory of RTM. 11/02/93. */ #include #include #include #include #include #include #include #include #include #include #ifdef EX_OK # undef EX_OK #endif #include #include #include #include #include /* directory in which all commands must reside */ #ifndef CMDDIR # ifdef SMRSH_CMDDIR # define CMDDIR SMRSH_CMDDIR # else # define CMDDIR "/usr/adm/sm.bin" # endif #endif /* ! CMDDIR */ /* characters disallowed in the shell "-c" argument */ #define SPECIALS "<|>^();&`$\r\n" /* default search path */ #ifndef PATH # ifdef SMRSH_PATH # define PATH SMRSH_PATH # else # define PATH "/bin:/usr/bin:/usr/ucb" # endif #endif /* ! PATH */ char newcmdbuf[1000]; char *prg, *par; static void addcmd __P((char *, bool, size_t)); /* ** ADDCMD -- add a string to newcmdbuf, check for overflow ** ** Parameters: ** s -- string to add ** cmd -- it's a command: prepend CMDDIR/ ** len -- length of string to add ** ** Side Effects: ** changes newcmdbuf or exits with a failure. ** */ static void addcmd(s, cmd, len) char *s; bool cmd; size_t len; { if (s == NULL || *s == '\0') return; /* enough space for s (len) and CMDDIR + "/" and '\0'? */ if (sizeof newcmdbuf - strlen(newcmdbuf) <= len + 1 + (cmd ? (strlen(CMDDIR) + 1) : 0)) { (void)sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: command too long: %s\n", prg, par); #ifndef DEBUG syslog(LOG_WARNING, "command too long: %.40s", par); #endif exit(EX_UNAVAILABLE); } if (cmd) (void) sm_strlcat2(newcmdbuf, CMDDIR, "/", sizeof newcmdbuf); (void) strncat(newcmdbuf, s, len); } int main(argc, argv) int argc; char **argv; { register char *p; register char *q; register char *r; register char *cmd; int isexec; int save_errno; char *newenv[2]; char pathbuf[1000]; char specialbuf[32]; struct stat st; #ifndef DEBUG # ifndef LOG_MAIL openlog("smrsh", 0); # else openlog("smrsh", LOG_ODELAY|LOG_CONS, LOG_MAIL); # endif #endif /* ! DEBUG */ (void) sm_strlcpyn(pathbuf, sizeof pathbuf, 2, "PATH=", PATH); newenv[0] = pathbuf; newenv[1] = NULL; /* ** Do basic argv usage checking */ prg = argv[0]; if (argc != 3 || strcmp(argv[1], "-c") != 0) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "Usage: %s -c command\n", prg); #ifndef DEBUG syslog(LOG_ERR, "usage"); #endif exit(EX_USAGE); } par = argv[2]; /* ** Disallow special shell syntax. This is overly restrictive, ** but it should shut down all attacks. ** Be sure to include 8-bit versions, since many shells strip ** the address to 7 bits before checking. */ if (strlen(SPECIALS) * 2 >= sizeof specialbuf) { #ifndef DEBUG syslog(LOG_ERR, "too many specials: %.40s", SPECIALS); #endif exit(EX_UNAVAILABLE); } (void) sm_strlcpy(specialbuf, SPECIALS, sizeof specialbuf); for (p = specialbuf; *p != '\0'; p++) *p |= '\200'; (void) sm_strlcat(specialbuf, SPECIALS, sizeof specialbuf); /* ** Do a quick sanity check on command line length. */ if (strlen(par) > (sizeof newcmdbuf - sizeof CMDDIR - 2)) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: command too long: %s\n", prg, par); #ifndef DEBUG syslog(LOG_WARNING, "command too long: %.40s", par); #endif exit(EX_UNAVAILABLE); } q = par; newcmdbuf[0] = '\0'; isexec = false; while (*q != '\0') { /* ** Strip off a leading pathname on the command name. For ** example, change /usr/ucb/vacation to vacation. */ /* strip leading spaces */ while (*q != '\0' && isascii(*q) && isspace(*q)) q++; if (*q == '\0') { if (isexec) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: missing command to exec\n", prg); #ifndef DEBUG syslog(LOG_CRIT, "uid %d: missing command to exec", (int) getuid()); #endif exit(EX_UNAVAILABLE); } break; } /* find the end of the command name */ p = strpbrk(q, " \t"); if (p == NULL) cmd = &q[strlen(q)]; else { *p = '\0'; cmd = p; } /* search backwards for last / (allow for 0200 bit) */ while (cmd > q) { if ((*--cmd & 0177) == '/') { cmd++; break; } } /* cmd now points at final component of path name */ /* allow a few shell builtins */ if (strcmp(q, "exec") == 0 && p != NULL) { addcmd("exec ", false, strlen("exec ")); /* test _next_ arg */ q = ++p; isexec = true; continue; } else if (strcmp(q, "exit") == 0 || strcmp(q, "echo") == 0) { addcmd(cmd, false, strlen(cmd)); /* test following chars */ } else { char cmdbuf[MAXPATHLEN]; /* ** Check to see if the command name is legal. */ if (sm_strlcpyn(cmdbuf, sizeof cmdbuf, 3, CMDDIR, "/", cmd) >= sizeof cmdbuf) { /* too long */ (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: \"%s\" not available for sendmail programs (filename too long)\n", prg, cmd); if (p != NULL) *p = ' '; #ifndef DEBUG syslog(LOG_CRIT, "uid %d: attempt to use \"%s\" (filename too long)", (int) getuid(), cmd); #endif exit(EX_UNAVAILABLE); } #ifdef DEBUG (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "Trying %s\n", cmdbuf); #endif if (stat(cmdbuf, &st) < 0) { /* can't stat it */ (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: \"%s\" not available for sendmail programs (stat failed)\n", prg, cmd); if (p != NULL) *p = ' '; #ifndef DEBUG syslog(LOG_CRIT, "uid %d: attempt to use \"%s\" (stat failed)", (int) getuid(), cmd); #endif exit(EX_UNAVAILABLE); } if (!S_ISREG(st.st_mode) #ifdef S_ISLNK && !S_ISLNK(st.st_mode) #endif ) { /* can't stat it */ (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: \"%s\" not available for sendmail programs (not a file)\n", prg, cmd); if (p != NULL) *p = ' '; #ifndef DEBUG syslog(LOG_CRIT, "uid %d: attempt to use \"%s\" (not a file)", (int) getuid(), cmd); #endif exit(EX_UNAVAILABLE); } if (access(cmdbuf, X_OK) < 0) { /* oops.... crack attack possibility */ (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: \"%s\" not available for sendmail programs\n", prg, cmd); if (p != NULL) *p = ' '; #ifndef DEBUG syslog(LOG_CRIT, "uid %d: attempt to use \"%s\"", (int) getuid(), cmd); #endif exit(EX_UNAVAILABLE); } /* ** Create the actual shell input. */ addcmd(cmd, true, strlen(cmd)); } isexec = false; if (p != NULL) *p = ' '; else break; r = strpbrk(p, specialbuf); if (r == NULL) { addcmd(p, false, strlen(p)); break; } #if ALLOWSEMI if (*r == ';') { addcmd(p, false, r - p + 1); q = r + 1; continue; } #endif /* ALLOWSEMI */ if ((*r == '&' && *(r + 1) == '&') || (*r == '|' && *(r + 1) == '|')) { addcmd(p, false, r - p + 2); q = r + 2; continue; } (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: cannot use %c in command\n", prg, *r); #ifndef DEBUG syslog(LOG_CRIT, "uid %d: attempt to use %c in command: %s", (int) getuid(), *r, par); #endif exit(EX_UNAVAILABLE); } if (isexec) { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "%s: missing command to exec\n", prg); #ifndef DEBUG syslog(LOG_CRIT, "uid %d: missing command to exec", (int) getuid()); #endif exit(EX_UNAVAILABLE); } /* make sure we created something */ if (newcmdbuf[0] == '\0') { (void) sm_io_fprintf(smioerr, SM_TIME_DEFAULT, "Usage: %s -c command\n", prg); #ifndef DEBUG syslog(LOG_ERR, "usage"); #endif exit(EX_USAGE); } /* ** Now invoke the shell */ #ifdef DEBUG (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%s\n", newcmdbuf); #endif (void) execle("/bin/sh", "/bin/sh", "-c", newcmdbuf, (char *)NULL, newenv); save_errno = errno; #ifndef DEBUG syslog(LOG_CRIT, "Cannot exec /bin/sh: %s", sm_errstring(errno)); #endif errno = save_errno; sm_perror("/bin/sh"); exit(EX_OSFILE); /* NOTREACHED */ return EX_OSFILE; } sendmail-8.18.1/LICENSE0000644000372400037240000001022014556365350013767 0ustar xbuildxbuild SENDMAIL LICENSE The following license terms and conditions apply, unless a redistribution agreement or other license is obtained from Proofpoint, Inc., 892 Ross Street, Sunnyvale, CA, 94089, USA, or by electronic mail at sendmail-license@proofpoint.com. License Terms: Use, Modification and Redistribution (including distribution of any modified or derived work) in source and binary forms is permitted only if each of the following conditions is met: 1. Redistributions qualify as "freeware" or "Open Source Software" under one of the following terms: (a) Redistributions are made at no charge beyond the reasonable cost of materials and delivery. (b) Redistributions are accompanied by a copy of the Source Code or by an irrevocable offer to provide a copy of the Source Code for up to three years at the cost of materials and delivery. Such redistributions must allow further use, modification, and redistribution of the Source Code under substantially the same terms as this license. For the purposes of redistribution "Source Code" means the complete compilable and linkable source code of sendmail and associated libraries and utilities in the sendmail distribution including all modifications. 2. Redistributions of Source Code must retain the copyright notices as they appear in each Source Code file, these license terms, and the disclaimer/limitation of liability set forth as paragraph 6 below. 3. Redistributions in binary form must reproduce the Copyright Notice, these license terms, and the disclaimer/limitation of liability set forth as paragraph 6 below, in the documentation and/or other materials provided with the distribution. For the purposes of binary distribution the "Copyright Notice" refers to the following language: "Copyright (c) 1998-2014 Proofpoint, Inc. All rights reserved." 4. Neither the name of Proofpoint, Inc. nor the University of California nor names of their contributors may be used to endorse or promote products derived from this software without specific prior written permission. The name "sendmail" is a trademark of Proofpoint, Inc. 5. All redistributions must comply with the conditions imposed by the University of California on certain embedded code, which copyright Notice and conditions for redistribution are as follows: (a) Copyright (c) 1988, 1993 The Regents of the University of California. All rights reserved. (b) Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: (i) Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. (ii) Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. (iii) Neither the name of the University nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. 6. Disclaimer/Limitation of Liability: THIS SOFTWARE IS PROVIDED BY SENDMAIL, INC. AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SENDMAIL, INC., THE REGENTS OF THE UNIVERSITY OF CALIFORNIA OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. $Revision: 8.23 $, Last updated $Date: 2014-01-26 20:10:01 $, Document 139848.1 sendmail-8.18.1/doc/0000755000372400037240000000000014556365433013536 5ustar xbuildxbuildsendmail-8.18.1/doc/op/0000755000372400037240000000000014556365434014155 5ustar xbuildxbuildsendmail-8.18.1/doc/op/op.ps0000444000372400037240000354606214556365434015155 0ustar xbuildxbuild%!PS-Adobe-3.0 %%Creator: groff version 1.18.1.4 %%CreationDate: Tue Jan 30 22:39:22 2024 %%DocumentNeededResources: font Times-Bold %%+ font Times-Roman %%+ font Times-Italic %%+ font Symbol %%DocumentSuppliedResources: procset grops 1.18 1 %%Pages: 116 %%PageOrder: Ascend %%Orientation: Portrait %%EndComments %%BeginProlog %%BeginResource: procset grops 1.18 1 /setpacking where{ pop currentpacking true setpacking }if /grops 120 dict dup begin /SC 32 def /A/show load def /B{0 SC 3 -1 roll widthshow}bind def /C{0 exch ashow}bind def /D{0 exch 0 SC 5 2 roll awidthshow}bind def /E{0 rmoveto show}bind def /F{0 rmoveto 0 SC 3 -1 roll widthshow}bind def /G{0 rmoveto 0 exch ashow}bind def /H{0 rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def /I{0 exch rmoveto show}bind def /J{0 exch rmoveto 0 SC 3 -1 roll widthshow}bind def /K{0 exch rmoveto 0 exch ashow}bind def /L{0 exch rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def /M{rmoveto show}bind def /N{rmoveto 0 SC 3 -1 roll widthshow}bind def /O{rmoveto 0 exch ashow}bind def /P{rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def /Q{moveto show}bind def /R{moveto 0 SC 3 -1 roll widthshow}bind def /S{moveto 0 exch ashow}bind def /T{moveto 0 exch 0 SC 5 2 roll awidthshow}bind def /SF{ findfont exch [exch dup 0 exch 0 exch neg 0 0]makefont dup setfont [exch/setfont cvx]cvx bind def }bind def /MF{ findfont [5 2 roll 0 3 1 roll neg 0 0]makefont dup setfont [exch/setfont cvx]cvx bind def }bind def /level0 0 def /RES 0 def /PL 0 def /LS 0 def /MANUAL{ statusdict begin/manualfeed true store end }bind def /PLG{ gsave newpath clippath pathbbox grestore exch pop add exch pop }bind def /BP{ /level0 save def 1 setlinecap 1 setlinejoin 72 RES div dup scale LS{ 90 rotate }{ 0 PL translate }ifelse 1 -1 scale }bind def /EP{ level0 restore showpage }bind def /DA{ newpath arcn stroke }bind def /SN{ transform .25 sub exch .25 sub exch round .25 add exch round .25 add exch itransform }bind def /DL{ SN moveto SN lineto stroke }bind def /DC{ newpath 0 360 arc closepath }bind def /TM matrix def /DE{ TM currentmatrix pop translate scale newpath 0 0 .5 0 360 arc closepath TM setmatrix }bind def /RC/rcurveto load def /RL/rlineto load def /ST/stroke load def /MT/moveto load def /CL/closepath load def /Fr{ setrgbcolor fill }bind def /Fk{ setcmykcolor fill }bind def /Fg{ setgray fill }bind def /FL/fill load def /LW/setlinewidth load def /Cr/setrgbcolor load def /Ck/setcmykcolor load def /Cg/setgray load def /RE{ findfont dup maxlength 1 index/FontName known not{1 add}if dict begin { 1 index/FID ne{def}{pop pop}ifelse }forall /Encoding exch def dup/FontName exch def currentdict end definefont pop }bind def /DEFS 0 def /EBEGIN{ moveto DEFS begin }bind def /EEND/end load def /CNT 0 def /level1 0 def /PBEGIN{ /level1 save def translate div 3 1 roll div exch scale neg exch neg exch translate 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit []0 setdash /setstrokeadjust where{ pop false setstrokeadjust }if /setoverprint where{ pop false setoverprint }if newpath /CNT countdictstack def userdict begin /showpage{}def }bind def /PEND{ clear countdictstack CNT sub{end}repeat level1 restore }bind def end def /setpacking where{ pop setpacking }if %%EndResource %%IncludeResource: font Times-Bold %%IncludeResource: font Times-Roman %%IncludeResource: font Times-Italic %%IncludeResource: font Symbol grops begin/DEFS 1 dict def DEFS begin/u{.001 mul}bind def end/RES 72 def/PL 792 def/LS false def/ENC0[/asciicircum/asciitilde/Scaron/Zcaron /scaron/zcaron/Ydieresis/trademark/quotesingle/Euro/.notdef/.notdef /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef /.notdef/.notdef/space/exclam/quotedbl/numbersign/dollar/percent /ampersand/quoteright/parenleft/parenright/asterisk/plus/comma/hyphen /period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon /semicolon/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O /P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright/circumflex /underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y /z/braceleft/bar/braceright/tilde/.notdef/quotesinglbase/guillemotleft /guillemotright/bullet/florin/fraction/perthousand/dagger/daggerdbl /endash/emdash/ff/fi/fl/ffi/ffl/dotlessi/dotlessj/grave/hungarumlaut /dotaccent/breve/caron/ring/ogonek/quotedblleft/quotedblright/oe/lslash /quotedblbase/OE/Lslash/.notdef/exclamdown/cent/sterling/currency/yen /brokenbar/section/dieresis/copyright/ordfeminine/guilsinglleft /logicalnot/minus/registered/macron/degree/plusminus/twosuperior /threesuperior/acute/mu/paragraph/periodcentered/cedilla/onesuperior /ordmasculine/guilsinglright/onequarter/onehalf/threequarters /questiondown/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE /Ccedilla/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex /Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis /multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn /germandbls/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla /egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis /eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide/oslash /ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis]def /Times-Italic@0 ENC0/Times-Italic RE/Times-Roman@0 ENC0/Times-Roman RE /Times-Bold@0 ENC0/Times-Bold RE %%EndProlog %%Page: 1 1 %%BeginPageSetup BP %%EndPageSetup /F0 16/Times-Bold@0 SF<53454e444d41494c>236.833 143.4 Q/F1 10 /Times-Bold@0 SF<544d>-8 I/F2 12/Times-Bold@0 SF<494e5354>170.172 172.2 Q<414c4c41>-1.08 E<54494f4e20414e44204f50455241>-1.14 E <54494f4e204755494445>-1.14 E/F3 10/Times-Roman@0 SF <4572696320416c6c6d616e>263.42 196.2 Q<436c617573204173736d616e6e>256.75 208.2 Q<477265>244.75 220.2 Q<676f7279204e65696c205368617069726f>-.15 E <50726f6f66706f696e742c20496e632e>256.475 232.2 Q -.15<466f>234.465 268.2 S 2.5<7253>.15 G<656e646d61696c2056>-2.5 E<657273696f6e20382e3138> -1.11 E/F4 10/Times-Italic@0 SF<53656e646d61696c>97 312.6 Q/F5 8 /Times-Roman@0 SF<544d>-5 I F3 .1<696d706c656d656e747320612067656e657261 6c20707572706f736520696e7465726e657477>2.6 5 N .1 <6f726b206d61696c20726f7574696e672066>-.1 F .1 <6163696c69747920756e6465722074686520554e4958ae206f706572>-.1 F<2d>-.2 E .017<6174696e672073797374656d2e>72 324.6 R .017 <4974206973206e6f74207469656420746f20616e>5.017 F 2.517<796f>-.15 G .017 <6e65207472616e73706f72742070726f746f636f6c208a206974732066756e6374696f 6e206d6179206265206c696b>-2.517 F .017 <656e656420746f20612063726f7373626172207377697463682c>-.1 F 1.036<72656c 6179696e67206d657373616765732066726f6d206f6e6520646f6d61696e20696e746f20 616e6f74686572>72 336.6 R 6.036<2e49>-.55 G 3.536<6e74>-6.036 G 1.036<68 652070726f636573732c2069742063616e20646f2061206c696d6974656420616d6f756e 74206f66206d657373616765>-3.536 F .604<6865616465722065646974696e672074 6f2070757420746865206d65737361676520696e746f206120666f726d61742074686174 20697320617070726f70726961746520666f7220746865207265636569>72 348.6 R .604<76696e6720646f6d61696e2e>-.25 F .604<416c6c206f662074686973206973> 5.604 F<646f6e6520756e6465722074686520636f6e74726f6c206f66206120636f6e8c 6775726174696f6e208c6c652e>72 360.6 Q .711 <44756520746f2074686520726571756972656d656e7473206f66208d65>97 376.8 R .711<786962696c69747920666f72>-.15 F F4<73656e646d61696c>3.211 E F3 3.211<2c74>C .71 <686520636f6e8c6775726174696f6e208c6c652063616e207365656d20736f6d65> -3.211 F .71<7768617420756e61702d>-.25 F 2.893 <70726f61636861626c652e20486f>72 388.8 R<7765>-.25 E -.15<7665>-.25 G 1.193 -.4<722c2074>.15 H .393<6865726520617265206f6e6c792061206665>.4 F 2.893<7762>-.25 G .394<6173696320636f6e8c6775726174696f6e7320666f72206d 6f73742073697465732c20666f72207768696368207374616e6461726420636f6e8c6775 2d>-2.893 F .646<726174696f6e208c6c6573206861>72 400.8 R .946 -.15 <76652062>-.2 H .646<65656e20737570706c6965642e>.15 F .645 <4d6f7374206f7468657220636f6e8c6775726174696f6e732063616e2062652062> 5.646 F .645<75696c742062792061646a757374696e6720616e2065>-.2 F .645 <78697374696e6720636f6e8c677572612d>-.15 F <74696f6e208c6c6520696e6372656d656e74616c6c79>72 412.8 Q<2e>-.65 E F4 <53656e646d61696c>97 429 Q F3 .903 <6973206261736564206f6e2052464320383231202853696d706c65204d61696c2054> 3.403 F .904<72616e73706f72742050726f746f636f6c292c20524643203832322028 496e7465726e6574204d61696c2048656164657273>-.35 F -.15<466f>72 441 S 2.518<726d6174292c205246432039373420284d5820726f7574696e67292c2052464320 313132332028496e7465726e657420486f737420526571756972656d656e7473292c2052 4643203134313320284964656e74698c636174696f6e>.15 F<73657276>72 453 Q 1.868<6572292c2052464320313635322028534d545020384249544d494d452045787465 6e73696f6e292c2052464320313836392028534d5450205365727669636520457874656e 73696f6e73292c205246432031383730>-.15 F .671<28534d54502053495a45204578 74656e73696f6e292c2052464320313839312028534d54502044656c69>72 465 R -.15 <7665>-.25 G .671<727920537461747573204e6f74698c636174696f6e73292c205246 43203138393220284d756c7469706172742f5265706f7274292c>.15 F 1.273<524643 20313839332028456e68616e636564204d61696c2053797374656d205374617475732043 6f646573292c205246432031383934202844656c69>72 477 R -.15<7665>-.25 G 1.273 <727920537461747573204e6f74698c636174696f6e73292c205246432031393835>.15 F .639<28534d5450205365727669636520457874656e73696f6e20666f722052656d6f 7465204d657373616765205175657565205374617274696e67292c205246432032303333 20284c6f63616c204d6573736167652054>72 489 R<72616e736d697373696f6e>-.35 E .242<50726f746f636f6c292c2052464320323033342028534d545020536572766963 6520457874656e73696f6e20666f722052657475726e696e6720456e68616e6365642045 72726f7220436f646573292c20524643203230343520284d494d45292c>72 501 R .283 <524643203234373620284d657373616765205375626d697373696f6e292c2052464320 323438372028534d5450205365727669636520457874656e73696f6e20666f7220536563 75726520534d5450206f>72 513 R -.15<7665>-.15 G 2.782<7254>.15 G .282 <4c53292c20524643>-2.782 F .118<323535342028534d545020536572766963652045 7874656e73696f6e20666f722041757468656e7469636174696f6e292c20524643203238 3231202853696d706c65204d61696c2054>72 525 R .118 <72616e736665722050726f746f636f6c292c205246432032383232>-.35 F .904 <28496e7465726e6574204d6573736167652046>72 537 R .903 <6f726d6174292c205246432032383532202844656c69>-.15 F -.15<7665>-.25 G 3.403<7242>.15 G 3.403<7953>-3.403 G .903<4d5450205365727669636520457874 656e73696f6e292c2052464320323932302028534d54502053657276696365>-3.403 F 2.201<457874656e73696f6e20666f7220436f6d6d616e6420506970656c696e696e6729 2c20616e6420524643203735303520284120224e756c6c204d5822204e6f205365727669 6365205265736f75726365205265636f726420666f72>72 549 R .678 <446f6d61696e73205468617420416363657074204e6f204d61696c292e>72 561 R <486f>5.678 E<7765>-.25 E -.15<7665>-.25 G 1.478 -.4<722c2073>.15 H <696e6365>.4 E F4<73656e646d61696c>3.178 E F3 .678 <69732064657369676e656420746f2077>3.178 F .677 <6f726b20696e20612077696465722077>-.1 F .677<6f726c642c20696e206d616e> -.1 F<79>-.15 E <63617365732069742063616e20626520636f6e8c677572656420746f2065>72 573 Q <78636565642074686573652070726f746f636f6c732e>-.15 E <546865736520636173657320617265206465736372696265642068657265696e2e>5 E <416c74686f756768>97 589.2 Q F4<73656e646d61696c>3.547 E F3 1.048<697320 696e74656e64656420746f2072756e20776974686f757420746865206e65656420666f72 206d6f6e69746f72696e672c206974206861732061206e756d626572206f662066656174 75726573>3.547 F 1.972<74686174206d6179206265207573656420746f206d6f6e69 746f72206f722061646a75737420746865206f7065726174696f6e20756e64657220756e 757375616c2063697263756d7374616e6365732e>72 601.2 R 1.972 <546865736520666561747572657320617265>6.972 F<6465736372696265642e>72 613.2 Q .816<53656374696f6e206f6e652064657363726962657320686f>97 629.4 R 3.316<7774>-.25 G 3.316<6f64>-3.316 G 3.316<6f6162>-3.316 G<61736963> -3.316 E F4<73656e646d61696c>3.316 E F3 3.317 <696e7374616c6c6174696f6e2e2053656374696f6e>3.317 F<7477>3.317 E 3.317 <6f65>-.1 G .817<78706c61696e7320746865206461792d746f2d646179>-3.467 F .283<696e666f726d6174696f6e20796f752073686f756c64206b6e6f>72 641.4 R 2.783<7774>-.25 G 2.783<6f6d>-2.783 G .282 <61696e7461696e20796f7572206d61696c2073797374656d2e>-2.783 F .282 <496620796f75206861>5.282 F .582 -.15<766520612072>-.2 H<656c617469>.15 E -.15<7665>-.25 G .282 <6c79206e6f726d616c20736974652c207468657365207477>.15 F<6f>-.1 E .634 <73656374696f6e732073686f756c6420636f6e7461696e20737566>72 653.4 R .635< 8c6369656e7420696e666f726d6174696f6e20666f7220796f7520746f20696e7374616c 6c>-.25 F F4<73656e646d61696c>3.135 E F3 .635<616e64206b>3.135 F .635 <6565702069742068617070>-.1 F 4.435 -.65<792e2053>-.1 H .635 <656374696f6e207468726565>.65 F .51 <68617320696e666f726d6174696f6e207265>72 665.4 R -.05<6761>-.15 G .509 <7264696e672074686520636f6d6d616e64206c696e65206172>.05 F 3.009 <67756d656e74732e2053656374696f6e>-.18 F .509<666f7572206465736372696265 7320736f6d6520706172616d65746572732074686174206d6179>3.009 F .32 LW 76 675 72 675 DL 80 675 76 675 DL 84 675 80 675 DL 88 675 84 675 DL 92 675 88 675 DL 96 675 92 675 DL 100 675 96 675 DL 104 675 100 675 DL 108 675 104 675 DL 112 675 108 675 DL 116 675 112 675 DL 120 675 116 675 DL 124 675 120 675 DL 128 675 124 675 DL 132 675 128 675 DL 136 675 132 675 DL 140 675 136 675 DL 144 675 140 675 DL 148 675 144 675 DL 152 675 148 675 DL 156 675 152 675 DL 160 675 156 675 DL 164 675 160 675 DL 168 675 164 675 DL 172 675 168 675 DL 176 675 172 675 DL 180 675 176 675 DL 184 675 180 675 DL 188 675 184 675 DL 192 675 188 675 DL 196 675 192 675 DL 200 675 196 675 DL 204 675 200 675 DL 208 675 204 675 DL 212 675 208 675 DL 216 675 212 675 DL/F6 8/Times-Bold@0 SF<444953434c41494d45523a>93.6 687 Q F5<5468697320646f63756d656e746174696f6e20697320756e646572206d6f64698c 636174696f6e2e>2 E<53656e646d61696c20697320612074726164656d61726b206f66 2050726f6f66706f696e742c20496e632e>93.6 699 Q<55532050>4 E <6174656e74204e756d6265727320363836353637312c20363938363033372e>-.12 E F1<53656e646d61696c20496e7374616c6c6174696f6e20616e64204f7065726174696f 6e204775696465>72 756 Q<534d4d3a30382d31>200.86 E 0 Cg EP %%Page: 2 2 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 198.36<534d4d3a30382d322053656e646d61696c>72 60 R <496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF .362<626520736166656c7920747765616b>72 96 R 2.862<65642e2053656374696f6e>-.1 F<8c76>2.862 E 2.862<6563>-.15 G .362< 6f6e7461696e7320746865206e697474792d67726974747920696e666f726d6174696f6e 2061626f75742074686520636f6e8c6775726174696f6e208c6c652e>-2.862 F .363 <54686973207365632d>5.363 F .143<74696f6e20697320666f72206d61736f636869 73747320616e642070656f706c652077686f206d75737420777269746520746865697220 6f>72 108 R .142<776e20636f6e8c6775726174696f6e208c6c652e>-.25 F .142 <53656374696f6e207369782064657363726962657320636f6e8c672d>5.142 F .227< 75726174696f6e20746861742063616e20626520646f6e6520617420636f6d70696c6520 74696d652e>72 120 R .227<54686520617070656e646978>5.227 F .227 <6573206769>-.15 F .527 -.15<766520612062>-.25 H .227<726965662062>.15 F .227<75742064657461696c65642065>-.2 F .228 <78706c616e6174696f6e206f662061206e756d626572>-.15 F<6f6620666561747572 6573206e6f742064657363726962656420696e207468652072657374206f662074686520 7061706572>72 132 Q<2e>-.55 E 0 Cg EP %%Page: 7 3 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d37>200.86 E 2.5 <312e2042>72 96 R<4153494320494e5354>-.3 E<414c4c41>-.9 E<54494f4e>-.95 E/F1 10/Times-Roman@0 SF .127<546865726520617265207477>112 112.2 R 2.627 <6f62>-.1 G .126<6173696320737465707320746f20696e7374616c6c696e67>-2.627 F/F2 10/Times-Italic@0 SF<73656e646d61696c>2.626 E F1 5.126<2e46>C .126 <697273742c20796f75206861>-5.126 F .426 -.15<76652074>-.2 H 2.626<6f63> .15 G .126<6f6d70696c6520616e6420696e7374616c6c207468652062696e617279> -2.626 F<2e>-.65 E<4966>87 124.2 Q F2<73656e646d61696c>2.888 E F1 .388< 68617320616c7265616479206265656e20706f7274656420746f20796f7572206f706572 6174696e672073797374656d20746861742073686f756c642062652073696d706c652e> 2.888 F .389<5365636f6e642c20796f75206d757374>5.388 F -.2<6275>87 136.2 S .279<696c6420612072756e2d74696d6520636f6e8c6775726174696f6e208c6c652e> .2 F .278<546869732069732061208c6c652074686174>5.279 F F2 <73656e646d61696c>2.778 E F1 .278<7265616473207768656e206974207374617274 7320757020746861742064657363726962657320746865>2.778 F .531 <6d61696c657273206974206b6e6f>87 148.2 R .531<77732061626f75742c20686f> -.25 F 3.031<7774>-.25 G 3.031<6f70>-3.031 G .531 <61727365206164647265737365732c20686f>-3.031 F 3.031<7774>-.25 G 3.031 <6f72>-3.031 G -.25<6577>-3.031 G .531 <7269746520746865206d65737361676520686561646572>.25 F 3.031<2c61>-.4 G .532<6e64207468652073657474696e6773206f66>-3.031 F -.25<7661>87 160.2 S .869<72696f7573206f7074696f6e732e>.25 F .869<416c74686f7567682074686520 636f6e8c6775726174696f6e208c6c652063616e20626520717569746520636f6d706c65> 5.869 F .868 <782c206120636f6e8c6775726174696f6e2063616e20757375616c6c79206265>-.15 F -.2<6275>87 172.2 S 1.111<696c74207573696e6720616e204d342d62617365642063 6f6e8c6775726174696f6e206c616e67756167652e>.2 F 1.112 <417373756d696e6720796f75206861>6.112 F 1.412 -.15<76652074>-.2 H 1.112 <6865207374616e64617264>.15 F F2<73656e646d61696c>3.612 E F1 <64697374726962>3.612 E<752d>-.2 E<74696f6e2c20736565>87 184.2 Q F2 <63662f524541444d45>2.5 E F1 <666f72206675727468657220696e666f726d6174696f6e2e>2.5 E .192<5468652072 656d61696e646572206f6620746869732073656374696f6e2077696c6c20646573637269 62652074686520696e7374616c6c6174696f6e206f66>112 200.4 R F2 <73656e646d61696c>2.692 E F1 .192 <617373756d696e6720796f752063616e20757365206f6e65>2.692 F 1.431 <6f66207468652065>87 212.4 R 1.432<78697374696e6720636f6e8c677572617469 6f6e7320616e64207468617420746865207374616e6461726420696e7374616c6c617469 6f6e20706172616d6574657273206172652061636365707461626c652e>-.15 F 1.432 <416c6c20706174682d>6.432 F .977<6e616d657320616e642065>87 224.4 R .976 <78616d706c657320617265206769>-.15 F -.15<7665>-.25 G 3.476<6e66>.15 G .976<726f6d2074686520726f6f74206f6620746865>-3.476 F F2 <73656e646d61696c>3.476 E F1 .976<737562747265652c206e6f726d616c6c79> 3.476 F F2<2f7573722f7372>3.476 E<632f757372>-.37 E <2e7362696e2f73656e642d>-1.11 E<6d61696c>87 236.4 Q F1 <6f6e20342e344253442d62617365642073797374656d732e>2.5 E .165 <436f6e74696e7565207769746820746865206e65>112 252.6 R .165 <78742073656374696f6e20696620796f75206e6565642f77>-.15 F .166 <616e7420746f20636f6d70696c65>-.1 F F2<73656e646d61696c>2.666 E F1 2.666 <796f757273656c662e204966>2.666 F .166<796f75206861>2.666 F .466 -.15 <766520612072>-.2 H<756e2d>.15 E<6e696e672062696e61727920616c7265616479 206f6e20796f75722073797374656d2c20796f752073686f756c642070726f6261626c79 20736b697020746f2073656374696f6e20312e322e>87 264.6 Q F0 2.5 <312e312e20436f6d70696c696e67>87 288.6 R<53656e646d61696c>2.5 E F1 <416c6c>127 304.8 Q F2<73656e646d61696c>2.571 E F1 .071 <736f7572636520697320696e20746865>2.571 F F2<73656e646d61696c>2.571 E F1 <7375626469726563746f7279>2.571 E 5.071<2e54>-.65 G 2.571<6f63>-5.871 G .07<6f6d70696c652073656e646d61696c2c209963649a20696e746f20746865>-2.571 F F2<73656e642d>2.57 E<6d61696c>102 316.8 Q F1 <6469726563746f727920616e642074797065>2.5 E<2e2f4275696c64>142 333 Q 1.41<546869732077696c6c206c6561>102 349.2 R 1.711 -.15<76652074>-.2 H 1.411<68652062696e61727920696e20616e20617070726f7072696174656c79206e616d 6564207375626469726563746f7279>.15 F 3.911<2c65>-.65 G 1.411 <2e672e2c206f626a2e4253442d4f532e322e312e693338362e>-3.911 F<4974>6.411 E -.1<776f>102 361.2 S <726b7320666f72206d756c7469706c65206f626a6563742076>.1 E<657273696f6e73 20636f6d70696c6564206f7574206f66207468652073616d65206469726563746f7279> -.15 E<2e>-.65 E F0 2.5<312e312e312e2054>102 385.2 R <7765616b696e6720746865204275696c6420496e>-.74 E -.1<766f>-.4 G <636174696f6e>.1 E F1 -1.1<596f>142 401.4 S 2.905<7563>1.1 G .405 <616e206769>-2.905 F .705 -.15<76652070>-.25 H .405 <6172616d6574657273206f6e20746865>.15 F F2<4275696c64>2.905 E F1 2.905 <636f6d6d616e642e20496e>2.905 F .404 <6d6f737420636173657320746865736520617265206f6e6c792075736564207768656e> 2.905 F<746865>117 413.4 Q F2<6f626a2e2a>2.5 E F1 <6469726563746f7279206973208c72737420637265617465642e>5 E 1.6 -.8 <546f2072>5 H<6573746172742066726f6d20736372617463682c20757365>.8 E F2 <2d63>2.5 E F1 5<2e54>C<6865736520636f6d6d616e647320696e636c7564653a>-5 E117 429.6 Q F2<6c6962646972>2.5 E<73>-.1 E F1 2.5<416c>153 441.6 S<697374206f66206469726563746f7269657320746f2073656172636820666f72206c69 627261726965732e>-2.5 E117 457.8 Q F2<696e63646972>2.5 E<73>-.1 E F1 2.5<416c>153 469.8 S<697374206f66206469726563746f7269657320746f207365 6172636820666f7220696e636c756465208c6c65732e>-2.5 E117 486 Q F2 <656e>2.5 E<766172>-.4 E F1<3d>A F2<76616c7565>A F1<53657420616e20656e> 153 498 Q<7669726f6e6d656e742076>-.4 E <61726961626c6520746f20616e20696e64696361746564>-.25 E F2<76616c7565>2.5 E F1<6265666f726520636f6d70696c696e672e>2.5 E 23.42 117 514.2 R 2.5<616e>2.5 G -.25<6577>-2.5 G F2<6f626a2e2a>2.75 E F1 <74726565206265666f72652072756e6e696e672e>5 E117 530.4 Q F2 <73697465636f6e8c67>2.5 E F1 2.192<526561642074686520696e64696361746564 207369746520636f6e8c6775726174696f6e208c6c652e>153 542.4 R 2.193 <4966207468697320706172616d65746572206973206e6f742073706563698c65642c> 7.192 F F2<4275696c64>4.693 E F1<696e636c75646573>153 554.4 Q F2<616c6c> 11.512 E F1 9.012<6f6620746865208c6c6573>11.512 F F2<2442>11.511 E <55494c4454>-.1 E<4f4f4c532f536974652f73697465>-.18 E<2e246f736366>-.15 E<2e6d34>-.15 E F1<616e64>11.511 E F2<2442>11.511 E<55494c442d>-.1 E -.18<544f>153 566.4 S<4f4c532f536974652f73697465>.18 E<2e636f6e8c67>-.15 E<2e6d34>-.15 E F1 2.985<2c77>C .485<68657265202442>-2.985 F<55494c4454> -.1 E .485<4f4f4c53206973206e6f726d616c6c79>-.18 F F2<2e2e2f6465>2.985 E <76746f6f6c73>-.15 E F1 .485<616e6420246f736366206973>2.985 F .678 <7468652073616d65206e616d652061732075736564206f6e20746865>153 578.4 R F2 <6f626a2e2a>3.178 E F1<6469726563746f7279>5.678 E 5.678<2e53>-.65 G .678 <65652062656c6f>-5.678 F 3.178<7766>-.25 G .678 <6f722061206465736372697074696f6e206f66207468652073697465>-3.178 F <636f6e8c6775726174696f6e208c6c652e>153 590.4 Q 22.3117 606.6 R<6175746f2d636f6e8c6775726174696f6e2e>4.42 E F2<4275696c64>6.921 E F1 1.921<77696c6c2061>4.421 F -.2<766f>-.2 G 1.921<6964206175746f2d64 6574656374696e67206c69627261726965732069662074686973206973207365742e>.2 F<416c6c>6.921 E<6c696272617269657320616e64206d61702064658c6e6974696f6e 73206d7573742062652073706563698c656420696e20746865207369746520636f6e8c67 75726174696f6e208c6c652e>153 618.6 Q 5.607<4d6f7374206f7468657220706172 616d6574657273206172652070617373656420746f20746865>117 634.8 R F2 <6d616b>8.107 E<65>-.1 E F1 5.606 <70726f6772616d3b20666f722064657461696c7320736565>8.107 F F2<2442>8.106 E<55494c442d>-.1 E -.18<544f>117 646.8 S<4f4c532f524541444d45>.18 E F1 <2e>A F0 2.5<312e312e322e204372>102 670.8 R <656174696e672061205369746520436f6e8c6775726174696f6e2046696c65>-.18 E F1 4.321<5365652073656e646d61696c2f524541444d4520666f722076>142 687 R 4.322<6172696f757320636f6d70696c6174696f6e208d61677320746861742063616e20 6265207365742c20616e64206465>-.25 F<762d>-.25 E <746f6f6c732f524541444d4520666f722064657461696c7320686f>117 699 Q 2.5 <7774>-.25 G 2.5<6f73>-2.5 G<6574207468656d2e>-2.5 E 0 Cg EP %%Page: 8 4 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 198.36<534d4d3a30382d382053656e646d61696c>72 60 R <496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E 2.5<312e312e332e2054>102 96 R<7765616b696e6720746865204d616b>-.74 E <658c6c65>-.1 E/F1 10/Times-Italic@0 SF<53656e646d61696c>142 112.2 Q/F2 10/Times-Roman@0 SF 2.181<737570706f727473207477>4.681 F 4.681<6f64>-.1 G<6966>-4.681 E 2.181<666572656e7420666f726d61747320666f7220746865206c6f 63616c20286f6e206469736b292076>-.25 F 2.18 <657273696f6e206f66206461746162617365732c>-.15 F<6e6f7461626c7920746865> 117 124.2 Q F1<616c6961736573>2.5 E F2 2.5<64617461626173652e204174>2.5 F<6c65617374206f6e65206f662074686573652073686f756c642062652064658c6e6564 20696620617420616c6c20706f737369626c652e>2.5 E 48.94 <43444220436f6e7374616e74>117 140.4 R<4461746142617365202874696e>2.5 E <79636462292e>-.15 E 39.5<4e44424d20546865>117 156.6 R -.74<6060>3.166 G <6e65>.74 E 3.166<7744>-.25 G<424d27>-3.166 E 3.166<2766>-.74 G .666 <6f726d61742c2061>-3.166 F -.25<7661>-.2 G .666<696c61626c65206f6e206e65 61726c7920616c6c2073797374656d732061726f756e6420746f646179>.25 F 5.667 <2e54>-.65 G<686973>-5.667 E -.1<7761>189 168.6 S 3.541<7374>.1 G 1.041< 68652070726566657272656420666f726d6174207072696f7220746f20342e344253442e> -3.541 F 1.041<497420616c6c6f>6.041 F 1.041 <7773207375636820636f6d706c65>-.25 F 3.54<7874>-.15 G 1.04 <68696e6773206173>-3.54 F<6d756c7469706c652064617461626173657320616e6420 636c6f73696e6720612063757272656e746c79206f70656e2064617461626173652e>189 180.6 Q 32.84<4e4557444220546865>117 196.8 R<4265726b>3.787 E<656c65>-.1 E 3.787<7944>-.15 G 3.787<4270>-3.787 G 3.787<61636b6167652e204966> -3.787 F 1.288<796f75206861>3.788 F 1.588 -.15<76652074>-.2 H 1.288 <6869732c207573652069742e>.15 F 1.288<497420616c6c6f>6.288 F 1.288 <7773206c6f6e67207265636f7264732c>-.25 F 2.56<6d756c7469706c65206f70656e 206461746162617365732c207265616c20696e2d6d656d6f72792063616368696e672c20 616e6420736f20666f7274682e>189 208.8 R -1.1<596f>7.56 G 5.06<7563>1.1 G <616e>-5.06 E .468 <64658c6e65207468697320696e20636f6e6a756e6374696f6e2077697468>189 220.8 R/F3 9/Times-Roman@0 SF<4e44424d>2.968 E F2 2.968<3b69>C 2.968<6679> -2.968 G .469<6f7520646f2c206f6c6420616c69617320646174616261736573206172 6520726561642c>-2.968 F -.2<6275>189 232.8 S 3.108<7477>.2 G .608 <68656e2061206e65>-3.108 F 3.108<7764>-.25 G .608<6174616261736520697320 637265617465642069742077696c6c20626520696e204e4557444220666f726d61742e> -3.108 F .608<41732061206e61737479>5.608 F 1.803 <6861636b2c20696620796f75206861>189 244.8 R 2.104 -.15<7665204e>-.2 H 1.804<455744422c204e44424d2c20616e64204e49532064658c6e65642c20616e642069 662074686520616c696173208c6c65>.15 F .124 <6e616d6520696e636c756465732074686520737562737472696e6720992f79702f9a2c> 189 256.8 R F1<73656e646d61696c>2.623 E F2 .123 <77696c6c2063726561746520626f7468206e65>2.623 F 2.623<7761>-.25 G .123 <6e64206f6c642076>-2.623 F<6572>-.15 E<2d>-.2 E 1.08 <73696f6e73206f662074686520616c696173208c6c6520647572696e672061>189 268.8 R F1<6e65>3.58 E<77616c696173>-.15 E F2 3.58 <636f6d6d616e642e2054686973>3.58 F 1.08 <69732072657175697265642062656361757365>3.58 F .845<7468652053756e204e49 532f59502073797374656d207265616473207468652044424d2076>189 280.8 R .845 <657273696f6e206f662074686520616c696173208c6c652e>-.15 F<497427>5.845 E 3.345<7375>-.55 G .845<676c79206173>-3.345 F<73696e2c2062>189 292.8 Q <75742069742077>-.2 E<6f726b732e>-.1 E 1.112 <4966206e656974686572206f66207468657365206172652064658c6e65642c>117 309 R F1<73656e646d61696c>3.612 E F2 1.112<72656164732074686520616c69617320 8c6c6520696e746f206d656d6f7279206f6e2065>3.612 F -.15<7665>-.25 G 1.112 <727920696e>.15 F -.2<766f>-.4 G<636174696f6e2e>.2 E 1.043 <546869732063616e20626520736c6f>117 321 R 3.543<7761>-.25 G 1.043 <6e642073686f756c642062652061>-3.543 F -.2<766f>-.2 G 3.543 <696465642e205468657265>.2 F 1.043<61726520616c736f207365>3.543 F -.15 <7665>-.25 G 1.042 <72616c206d6574686f647320666f722072656d6f7465206461746162617365>.15 F <6163636573733a>117 333 Q<4c44>117 349.2 Q 43.79 <4150204c69676874776569676874>-.4 F <4469726563746f7279204163636573732050726f746f636f6c2e>2.5 E 53.39 <4e49532053756e27>117 365.4 R 2.5<734e>-.55 G<657477>-2.5 E<6f726b20496e 666f726d6174696f6e2053657276696365732028666f726d65726c79205950292e>-.1 E 28.94<4e4953504c55532053756e27>117 381.6 R 2.5<734e>-.55 G <49532b2073657276696365732e>-2.5 E 26.73<4e4554494e464f204e65585427>117 397.8 R 2.5<734e>-.55 G<6574496e666f20736572766963652e>-2.5 E 32.84 <484553494f4420486573696f64>117 414 R <73657276696365202866726f6d20417468656e61292e>2.5 E .085 <4f7468657220636f6d70696c6174696f6e208d616773206172652073657420696e>117 430.2 R F1<636f6e66>2.585 E<2e68>-.15 E F2 .086<616e642073686f756c642062 652070726564658c6e656420666f7220796f7520756e6c65737320796f75206172652070 6f7274696e67>2.586 F<746f2061206e65>117 442.2 Q 2.5<7765>-.25 G -.4 <6e76>-2.5 G 2.5<69726f6e6d656e742e2046>.4 F <6f72206d6f7265206f7074696f6e7320736565>-.15 E F1 <73656e646d61696c2f524541444d45>2.5 E F2<2e>A F0 2.5 <312e312e342e20436f6d70696c6174696f6e>102 466.2 R <616e6420696e7374616c6c6174696f6e>2.5 E F2 .309<4166746572206d616b696e67 20746865206c6f63616c2073797374656d20636f6e8c6775726174696f6e206465736372 696265642061626f>142 482.4 R -.15<7665>-.15 G 2.808<2c59>.15 G .308 <6f752073686f756c642062652061626c6520746f20636f6d2d>-3.908 F <70696c6520616e6420696e7374616c6c207468652073797374656d2e>117 494.4 Q<54 68652073637269707420994275696c649a20697320746865206265737420617070726f61 6368206f6e206d6f73742073797374656d733a>5 E<2e2f4275696c64>157 510.6 Q <546869732077696c6c20757365>117 526.8 Q F1<756e616d65>2.5 E F2 <28312920746f20637265617465206120637573746f6d204d616b>A <658c6c6520666f7220796f757220656e>-.1 E<7669726f6e6d656e742e>-.4 E<4966 20796f752061726520696e7374616c6c696e6720696e20746865207374616e6461726420 706c616365732c20796f752073686f756c642062652061626c6520746f20696e7374616c 6c207573696e67>142 543 Q<2e2f4275696c6420696e7374616c6c>157 559.2 Q 3.346<546869732073686f756c6420696e7374616c6c207468652062696e61727920696e 202f7573722f7362696e20616e6420637265617465206c696e6b732066726f6d202f7573 722f62696e2f6e65>117 575.4 R -.1<7761>-.25 G 3.346<6c696173657320616e64> .1 F .281<2f7573722f62696e2f6d61696c7120746f202f7573722f7362696e2f73656e 646d61696c2e>117 587.4 R .281<4f6e206d6f73742073797374656d73206974207769 6c6c20616c736f20666f726d617420616e6420696e7374616c6c206d616e207061676573 2e>5.281 F 1.056<4e6f746963653a206173206f662076>117 599.4 R 1.056 <657273696f6e20382e3132>-.15 F F1<73656e646d61696c>3.556 E F2 1.056<7769 6c6c206e6f206c6f6e67657220626520696e7374616c6c6564207365742d75736572> 3.556 F 1.056<2d494420726f6f7420627920646566>-.2 F 3.556 <61756c742e204966>-.1 F<796f75207265616c6c792077>117 611.4 Q<616e742074 6f2075736520746865206f6c64206d6574686f642c20796f752063616e20737065636966 7920697420617320746172>-.1 E<6765743a>-.18 E <2e2f4275696c6420696e7374616c6c2d7365742d75736572>157 627.6 Q<2d6964>-.2 E F0 2.5<312e322e20436f6e8c6775726174696f6e>87 655.8 R<46696c6573>2.5 E F1<53656e646d61696c>127 672 Q F2 2.079<63616e6e6f74206f7065726174652077 6974686f7574206120636f6e8c6775726174696f6e208c6c652e>4.58 F 2.079 <54686520636f6e8c6775726174696f6e2064658c6e657320746865206d61696c>7.079 F<64656c69>102 684 Q -.15<7665>-.25 G .888<7279206d656368616e69736d7320 756e64657273746f6f64206174207468697320736974652c20686f>.15 F 3.389<7774> -.25 G 3.389<6f61>-3.389 G .889<6363657373207468656d2c20686f>-3.389 F 3.389<7774>-.25 G 3.389<6f66>-3.389 G<6f7277>-3.389 E .889 <61726420656d61696c20746f2072656d6f7465>-.1 F .088<6d61696c207379737465 6d732c20616e642061206e756d626572206f662074756e696e6720706172616d65746572 732e>102 696 R .088<5468697320636f6e8c6775726174696f6e208c6c652069732064 657461696c656420696e20746865206c6174657220706f72>5.088 F<2d>-.2 E <74696f6e206f66207468697320646f63756d656e742e>102 708 Q 0 Cg EP %%Page: 9 5 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d39>200.86 E/F1 10/Times-Roman@0 SF<546865>127 96 Q/F2 10/Times-Italic@0 SF <73656e646d61696c>2.764 E F1 .264<636f6e8c6775726174696f6e2063616e206265 206461756e74696e67206174208c7273742e>2.764 F .264<5468652077>5.264 F .264<6f726c6420697320636f6d706c65>-.1 F .264 <782c20616e6420746865206d61696c20636f6e2d>-.15 F .109 <8c6775726174696f6e2072658d6563747320746861742e>102 108 R .109 <5468652064697374726962>5.109 F .108<7574696f6e20696e636c7564657320616e 206d342d626173656420636f6e8c6775726174696f6e207061636b616765207468617420 68696465732061206c6f74>-.2 F<6f662074686520636f6d706c65>102 120 Q <78697479>-.15 E 5<2e53>-.65 G<6565>-5 E F2<63662f524541444d45>2.5 E F1 <666f722064657461696c732e>2.5 E .657<4f757220636f6e8c6775726174696f6e20 8c6c6573206172652070726f636573736564206279>127 136.2 R F2<6d34>3.158 E F1 .658<746f2066>3.158 F .658<6163696c6974617465206c6f63616c20637573746f 6d697a6174696f6e3b20746865206469726563746f7279>-.1 F F2<6366>3.158 E F1 .397<6f6620746865>102 148.2 R F2<73656e646d61696c>2.897 E F1 <64697374726962>2.896 E .396<7574696f6e206469726563746f727920636f6e7461 696e732074686520736f75726365208c6c65732e>-.2 F .396 <54686973206469726563746f727920636f6e7461696e73207365>5.396 F -.15<7665> -.25 G .396<72616c207375622d>.15 F<6469726563746f726965733a>102 160.2 Q 61.73<636620426f7468>102 176.4 R .56<736974652d646570656e64656e7420616e 6420736974652d696e646570656e64656e74206465736372697074696f6e73206f662068 6f7374732e>3.06 F .56<54686573652063616e206265206c69742d>5.56 F .445 <6572616c20686f7374206e616d65732028652e672e2c2099756362>174 188.4 R -.25 <7661>-.15 G .445 <782e6d639a29207768656e2074686520686f737473206172652067>.25 F<617465> -.05 E -.1<7761>-.25 G .445<7973206f72206d6f72652067656e6572616c>.1 F .535<6465736372697074696f6e73202873756368206173209967656e657269632d736f 6c61726973322e6d639a20617320612067656e6572616c206465736372697074696f6e20 6f6620616e20534d54502d>174 200.4 R .93 <636f6e6e656374656420686f73742072756e6e696e6720536f6c6172697320322e782e> 174 212.4 R .93<46696c657320656e64696e67>5.93 F F0<2e6d63>3.43 E F1 <2860>3.43 E .93<604d3420436f6e8c6775726174696f6e27>-.74 F .93 <272920617265>-.74 F 1.785<74686520696e707574206465736372697074696f6e73 3b20746865206f757470757420697320696e2074686520636f72726573706f6e64696e67> 174 224.4 R F0<2e6366>4.285 E F1 4.285<8c6c652e20546865>4.285 F <67656e6572616c>4.285 E<737472756374757265206f66207468657365208c6c657320 6973206465736372696265642062656c6f>174 236.4 Q -.65<772e>-.25 G 39.5 <646f6d61696e20536974652d646570656e64656e74>102 252.6 R .428 <737562646f6d61696e206465736372697074696f6e732e>2.928 F .428 <546865736520617265207469656420746f207468652077>5.428 F .428 <617920796f7572206f72>-.1 F -.05<6761>-.18 G<6e697a612d>.05 E .776 <74696f6e2077>174 264.6 R .776 <616e747320746f20646f2061646472657373696e672e>-.1 F -.15<466f>5.777 G 3.277<7265>.15 G<78616d706c652c>-3.427 E F0 <646f6d61696e2f43532e4265726b>3.277 E<656c6579>-.1 E<2e454455>-.7 E <2e6d34>-.5 E F1 .777<6973206f7572>3.277 F 1.188<6465736372697074696f6e 20666f7220686f73747320696e207468652043532e4265726b>174 276.6 R<656c65> -.1 E -.65<792e>-.15 G 1.188<45445520737562646f6d61696e2e>.65 F 1.187 <546865736520617265207265666572656e636564>6.188 F<7573696e6720746865>174 288.6 Q/F3 9/Times-Roman@0 SF<444f4d41494e>2.5 E F0<6d34>2.5 E F1 <6d6163726f20696e20746865>2.5 E F0<2e6d63>2.5 E F1<8c6c652e>2.5 E 41.74 <666561747572652044658c6e6974696f6e73>102 304.8 R .728<6f66207370656369 8c63206665617475726573207468617420736f6d6520706172746963756c617220686f73 7420696e20796f75722073697465206d696768742077>3.228 F<616e742e>-.1 E 2.467<546865736520617265207265666572656e636564207573696e6720746865>174 316.8 R F3<464541>4.966 E<54555245>-.999 E F0<6d34>4.966 E F1 4.966 <6d6163726f2e20416e>4.966 F -.15<6578>4.966 G 2.466 <616d706c652066656174757265206973>.15 F 1.763 <7573655f63775f8c6c65202877686963682074656c6c73>174 328.8 R F2 <73656e646d61696c>4.263 E F1 1.764<746f207265616420616e202f6574632f6d61 696c2f6c6f63616c2d686f73742d6e616d6573208c6c65206f6e>4.263 F<7374617274 757020746f208c6e642074686520736574206f66206c6f63616c206e616d6573292e>174 340.8 Q 50.62<6861636b204c6f63616c>102 357 R 1.886 <6861636b732c207265666572656e636564207573696e6720746865>4.387 F F3<4841> 4.386 E<434b>-.36 E F0<6d34>4.386 E F1 4.386<6d6163726f2e2054>4.386 F 1.886<727920746f2061>-.35 F -.2<766f>-.2 G 1.886<69642074686573652e>.2 F <546865>6.886 E<706f696e74206f66206861>174 369 Q <76696e67207468656d206865726520697320746f206d616b>-.2 E 2.5<6569>-.1 G 2.5<7463>-2.5 G<6c656172207468617420746865>-2.5 E 2.5<7973>-.15 G <6d656c6c2e>-2.5 E 56.72<6d3420536974652d696e646570656e64656e74>102 385.2 R F2<6d34>2.538 E F1 .038 <28312920696e636c756465208c6c65732074686174206861>B .338 -.15<76652069> -.2 H .038 <6e666f726d6174696f6e20636f6d6d6f6e20746f20616c6c20636f6e8c67752d>.15 F <726174696f6e208c6c65732e>174 397.2 Q<546869732063616e2062652074686f7567 6874206f662061732061209923696e636c7564659a206469726563746f7279>5 E<2e> -.65 E 43.95<6d61696c65722044658c6e6974696f6e73>102 413.4 R .152 <6f66206d61696c6572732c207265666572656e636564207573696e6720746865>2.653 F F3<4d41494c4552>2.652 E F0<6d34>2.652 E F1 2.652<6d6163726f2e20546865> 2.652 F .152<6d61696c6572207479706573>2.652 F 1.786 <7468617420617265206b6e6f>174 425.4 R 1.787 <776e20696e20746869732064697374726962>-.25 F 1.787 <7574696f6e206172652066>-.2 F 1.787 <61782c206c6f63616c2c20736d74702c20757563702c20616e64207573656e65742e> -.1 F -.15<466f>6.787 G<72>.15 E -.15<6578>174 437.4 S<616d706c652c2074 6f20696e636c75646520737570706f727420666f722074686520555543502d6261736564 206d61696c6572732c2075736520994d41494c45522875756370299a2e>.15 E 43.39 <6f73747970652044658c6e6974696f6e73>102 453.6 R 1.157 <64657363726962696e672076>3.657 F 1.157 <6172696f7573206f7065726174696e672073797374656d20656e>-.25 F 1.156 <7669726f6e6d656e747320287375636820617320746865206c6f63612d>-.4 F <74696f6e206f6620737570706f7274208c6c6573292e>174 465.6 Q <546865736520617265207265666572656e636564207573696e6720746865>5 E F3 <4f5354595045>2.5 E F0<6d34>2.5 E F1<6d6163726f2e>2.5 E 60.61 <7368205368656c6c>102 481.8 R<8c6c6573207573656420627920746865>2.5 E F0 <6d34>2.5 E F1 -.2<6275>2.5 G<696c642070726f636573732e>.2 E -1.1<596f>5 G 2.5<7573>1.1 G<686f756c646e27>-2.5 E 2.5<7468>-.18 G -2.25 -.2 <61762065>-2.5 H<746f206d65737320776974682074686573652e>2.7 E 30.61 <73697465636f6e8c67204c6f63616c>102 498 R .251 <5555435020636f6e6e65637469>2.751 F .251 <7669747920696e666f726d6174696f6e2e>-.25 F .251<54686973206469726563746f 727920686173206265656e20737570706c616e74656420627920746865>5.251 F 1.077 <6d61696c65727461626c6520666561747572653b20616e>174 510 R 3.577<796e> -.15 G 1.577 -.25<65772063>-3.577 H 1.076<6f6e8c6775726174696f6e73207368 6f756c64207573652074686174206665617475726520746f20646f2055554350>.25 F <28616e64206f746865722920726f7574696e672e>174 522 Q<54686520757365206f66 2074686973206469726563746f727920697320646570726563617465642e>5 E .756 <496620796f752061726520696e2061206e65>127 538.2 R 3.256<7764>-.25 G .756 <6f6d61696e2028652e672e2c206120636f6d70616e>-3.256 F .757 <79292c20796f752077696c6c2070726f6261626c792077>-.15 F .757 <616e7420746f2063726561746520612063662f646f6d61696e>-.1 F .051 <8c6c6520666f7220796f757220646f6d61696e2e>102 550.2 R .051<546869732063 6f6e7369737473207072696d6172696c79206f662072656c61792064658c6e6974696f6e 7320616e6420666561747572657320796f752077>5.051 F .05 <616e7420656e61626c656420736974652d>-.1 F .915<776964653a20666f722065> 102 562.2 R .915<78616d706c652c204265726b>-.15 F<656c65>-.1 E<7927>-.15 E 3.415<7364>-.55 G .915<6f6d61696e2064658c6e6974696f6e2064658c6e657320 72656c61797320666f72204269744e455420616e642055554350>-3.415 F 5.916 <2e54>-1.11 G .916<6865736520617265>-5.916 F 1.52 <73706563698c6320746f204265726b>102 574.2 R<656c65>-.1 E 2.819 -.65 <792c2061>-.15 H 1.519<6e642073686f756c642062652066756c6c792d7175616c69 8c656420696e7465726e65742d7374796c6520646f6d61696e206e616d65732e>.65 F 1.519<506c6561736520636865636b20746f>6.519 F<6d616b>102 586.2 Q 2.5 <6563>-.1 G<65727461696e20746865>-2.5 E 2.5<7961>-.15 G <726520726561736f6e61626c6520666f7220796f757220646f6d61696e2e>-2.5 E 1.406<537562646f6d61696e73206174204265726b>127 602.4 R<656c65>-.1 E 3.906<7961>-.15 G 1.407<726520616c736f20726570726573656e74656420696e2074 68652063662f646f6d61696e206469726563746f7279>-3.906 F 6.407<2e46>-.65 G 1.407<6f722065>-6.557 F 1.407<78616d706c652c20746865>-.15 F .356 <646f6d61696e2043532e4265726b>102 614.4 R<656c65>-.1 E -.65<792e>-.15 G .356<4544552069732074686520436f6d707574657220536369656e636520737562646f 6d61696e2c20454543532e4265726b>.65 F<656c65>-.1 E -.65<792e>-.15 G .356 <4544552069732074686520456c65637472692d>.65 F 1.278<63616c20456e67696e65 6572696e6720616e6420436f6d707574657220536369656e63657320737562646f6d6169 6e2c20616e642053324b2e4265726b>102 626.4 R<656c65>-.1 E -.65<792e>-.15 G 1.278<4544552069732074686520536571756f69612032303030>.65 F 4.004 <737562646f6d61696e2e2059>102 638.4 R 1.504 <6f752077696c6c2070726f6261626c79206861>-1.1 F 1.804 -.15<76652074>-.2 H 4.004<6f61>.15 G 1.504<646420616e20656e74727920746f20746869732064697265 63746f727920746f20626520617070726f70726961746520666f7220796f7572>-4.004 F<646f6d61696e2e>102 650.4 Q -1.1<596f>127 666.6 S 4.372<7577>1.1 G 1.872<696c6c206861>-4.372 F 2.172 -.15<76652074>-.2 H 4.372<6f75>.15 G 1.872<7365206f7220637265617465>-4.372 F F0<2e6d63>4.372 E F1 1.872 <8c6c657320696e20746865>4.372 F F2<63662f6366>4.372 E F1 1.873 <7375626469726563746f727920666f7220796f757220686f7374732e>4.373 F 1.873 <54686973206973>6.873 F <64657461696c656420696e207468652063662f524541444d45208c6c652e>102 678.6 Q 0 Cg EP %%Page: 10 6 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d31302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E 2.5<312e332e2044657461696c73>87 96 R <6f6620496e7374616c6c6174696f6e2046696c6573>2.5 E/F1 10/Times-Roman@0 SF <546869732073756273656374696f6e2064657363726962657320746865208c6c657320 7468617420636f6d707269736520746865>127 112.2 Q/F2 10/Times-Italic@0 SF <73656e646d61696c>2.5 E F1<696e7374616c6c6174696f6e2e>2.5 E F0 2.5 <312e332e312e202f7573722f7362696e2f73656e646d61696c>102 136.2 R F1 1.831 <5468652062696e61727920666f72>142 154.4 R F2<73656e646d61696c>4.331 E F1 1.831<6973206c6f636174656420696e202f7573722f7362696e>4.331 F/F3 7 /Times-Roman@0 SF<31>-4 I F1 6.832<2e49>4 K 4.332<7473>-6.832 G 1.832 <686f756c64206265207365742d67726f75702d494420736d6d7370206173>-4.332 F .645<64657363726962656420696e2073656e646d61696c2f5345435552495459>117 166.4 R 5.644<2e46>-1.29 G .644 <6f7220736563757269747920726561736f6e732c202f2c202f757372>-5.794 F 3.144 <2c61>-.4 G .644<6e64202f7573722f7362696e2073686f756c64206265206f>-3.144 F<776e6564>-.25 E<627920726f6f742c206d6f64652030373535>117 180.4 Q F3 <32>-4 I F1<2e>4 I F0 2.5 <312e332e322e202f6574632f6d61696c2f73656e646d61696c2e6366>102 204.4 R F1 .889<5468697320697320746865206d61696e20636f6e8c6775726174696f6e208c6c65 20666f72>142 222.6 R F2<73656e646d61696c>3.389 E F3<33>-4 I F1 5.889 <2e54>4 K .89<686973206973206f6e65206f6620746865207477>-5.889 F 3.39 <6f6e>-.1 G .89<6f6e2d6c696272617279208c6c65>-3.39 F <6e616d657320636f6d70696c656420696e746f>117 236.6 Q F2<73656e646d61696c> 2.5 E F3<34>-4 I F1 2.5<2c74>4 K <6865206f74686572206973202f6574632f6d61696c2f7375626d69742e63662e>-2.5 E .721<54686520636f6e8c6775726174696f6e208c6c65206973206e6f726d616c6c7920 63726561746564207573696e67207468652064697374726962>142 252.8 R .721 <7574696f6e208c6c6573206465736372696265642061626f>-.2 F -.15<7665>-.15 G 5.721<2e49>.15 G<66>-5.721 E .64<796f75206861>117 264.8 R .94 -.15 <766520612070>-.2 H .64<6172746963756c61726c7920756e757375616c2073797374 656d20636f6e8c6775726174696f6e20796f75206d6179206e65656420746f2063726561 74652061207370656369616c2076>.15 F<657273696f6e2e>-.15 E<54686520666f72 6d6174206f662074686973208c6c652069732064657461696c656420696e206c61746572 2073656374696f6e73206f66207468697320646f63756d656e742e>117 276.8 Q F0 2.5<312e332e332e202f6574632f6d61696c2f7375626d69742e6366>102 300.8 R F1 .91<546869732069732074686520636f6e8c6775726174696f6e208c6c6520666f72>142 317 R F2<73656e646d61696c>3.411 E F1 .911<7768656e2069742069732075736564 20666f7220696e697469616c206d61696c207375626d697373696f6e2c20696e>3.411 F 1.005<7768696368206361736520697420697320616c736f2063616c6c65642060>117 329 R 1.004<604d61696c205375626d697373696f6e2050726f6772616d27>-.74 F 3.504<2728>-.74 G 1.004<4d53502920696e20636f6e747261737420746f2060> -3.504 F 1.004<604d61696c2054>-.74 F<72616e73666572>-.35 E<4167656e7427> 117 341 Q 3.87<2728>-.74 G<4d54>-3.87 E 3.87<41292e205374617274696e67> -.93 F 1.37<776974682076>3.87 F 1.37<657273696f6e20382e31322c>-.15 F F2 <73656e646d61696c>3.87 E F1 1.37<75736573206f6e65206f66207477>3.87 F 3.87<6f64>-.1 G<6966>-3.87 E 1.37 <666572656e7420636f6e8c6775726174696f6e>-.25 F .052<8c6c6573206261736564 206f6e20697473206f7065726174696f6e206d6f646520286f7220746865206e65>117 353 R<77>-.25 E F02.552 E F1 2.552<6f7074696f6e292e2046>2.552 F .051<6f7220696e697469616c206d61696c207375626d697373696f6e2c20692e652e2c 206966206f6e65>-.15 F .951<6f6620746865206f7074696f6e73>117 365 R F0 3.451 E F1<28646566>3.451 E<61756c74292c>-.1 E F03.451 E F1 3.451<2c6f>C<72>-3.451 E F03.451 E F1 .951<69732073706563698c65 642c207375626d69742e63662069732075736564202869662061>3.451 F -.25<7661> -.2 G .952<696c61626c65292c20666f72206f74686572>.25 F 2.28 <6f7065726174696f6e732073656e646d61696c2e636620697320757365642e>117 377 R 2.28<44657461696c732063616e20626520666f756e6420696e>7.28 F F2 <73656e646d61696c2f5345435552495459>4.78 E F1 7.28<2e73>C 2.28 <75626d69742e6366206973>-7.28 F .014<7368697070656420776974682073656e64 6d61696c2028696e2063662f63662f2920616e6420697320696e7374616c6c6564206279 20646566>117 389 R 2.514<61756c742e204966>-.1 F .014 <6368616e67657320746f2074686520636f6e8c6775726174696f6e206e656564>2.514 F<746f206265206d6164652c20737461727420776974682063662f63662f7375626d6974 2e6d6320616e6420666f6c6c6f>117 401 Q 2.5<7774>-.25 G <686520696e737472756374696f6e20696e2063662f524541444d452e>-2.5 E F0 2.5 <312e332e342e202f7573722f62696e2f6e6577616c6961736573>102 425 R F1 <546865>142 441.2 Q F2<6e65>2.5 E<77616c6961736573>-.15 E F1 <636f6d6d616e642073686f756c64206a7573742062652061206c696e6b20746f>2.5 E F2<73656e646d61696c>2.5 E F1<3a>A<726d20ad66202f7573722f62696e2f6e65>157 457.4 Q -.1<7761>-.25 G<6c6961736573>.1 E<6c6e20ad73202f7573722f7362696e 2f73656e646d61696c202f7573722f62696e2f6e65>157 469.4 Q -.1<7761>-.25 G <6c6961736573>.1 E <546869732063616e20626520696e7374616c6c656420696e207768617465>117 485.6 Q -.15<7665>-.25 G 2.5<7273>.15 G<6561726368207061746820796f752070726566 657220666f7220796f75722073797374656d2e>-2.5 E F0 2.5 <312e332e352e202f7573722f62696e2f686f737473746174>102 509.6 R F1<546865> 142 525.8 Q F2<686f737473746174>5.845 E F1 3.344 <636f6d6d616e642073686f756c64206a7573742062652061206c696e6b20746f>5.845 F F2<73656e646d61696c>5.844 E F1 5.844<2c69>C 5.844<6e6166>-5.844 G 3.344<617368696f6e2073696d696c617220746f>-5.944 F F2<6e65>117 537.8 Q <77616c6961736573>-.15 E F1 6.443<2e54>C 1.444<68697320636f6d6d616e6420 6c697374732074686520737461747573206f6620746865206c617374206d61696c207472 616e73616374696f6e207769746820616c6c2072656d6f746520686f7374732e>-6.443 F<546865>117 549.8 Q F03.857 E F1 1.357<8d61672077696c6c20707265> 3.857 F -.15<7665>-.25 G 1.357<6e74207468652073746174757320646973706c61 792066726f6d206265696e67207472756e63617465642e>.15 F 1.356 <49742066756e6374696f6e73206f6e6c79207768656e20746865>6.356 F F0 <486f7374537461747573446972>117 561.8 Q<6563746f7279>-.18 E F1 <6f7074696f6e206973207365742e>2.5 E .32 LW 76 580.4 72 580.4 DL 80 580.4 76 580.4 DL 84 580.4 80 580.4 DL 88 580.4 84 580.4 DL 92 580.4 88 580.4 DL 96 580.4 92 580.4 DL 100 580.4 96 580.4 DL 104 580.4 100 580.4 DL 108 580.4 104 580.4 DL 112 580.4 108 580.4 DL 116 580.4 112 580.4 DL 120 580.4 116 580.4 DL 124 580.4 120 580.4 DL 128 580.4 124 580.4 DL 132 580.4 128 580.4 DL 136 580.4 132 580.4 DL 140 580.4 136 580.4 DL 144 580.4 140 580.4 DL 148 580.4 144 580.4 DL 152 580.4 148 580.4 DL 156 580.4 152 580.4 DL 160 580.4 156 580.4 DL 164 580.4 160 580.4 DL 168 580.4 164 580.4 DL 172 580.4 168 580.4 DL 176 580.4 172 580.4 DL 180 580.4 176 580.4 DL 184 580.4 180 580.4 DL 188 580.4 184 580.4 DL 192 580.4 188 580.4 DL 196 580.4 192 580.4 DL 200 580.4 196 580.4 DL 204 580.4 200 580.4 DL 208 580.4 204 580.4 DL 212 580.4 208 580.4 DL 216 580.4 212 580.4 DL/F4 5/Times-Roman@0 SF<31>93.6 590.8 Q/F5 8 /Times-Roman@0 SF .385<5468697320697320757375616c6c79202f7573722f736269 6e206f6e20342e3442534420616e64206e65>3.2 J .385 <7765722073797374656d733b206d616e>-.2 F 2.385<7973>-.12 G .385 <797374656d7320696e7374616c6c20697420696e202f7573722f6c6962>-2.385 F 4.384<2e49>-.32 G .384 <756e6465727374616e6420697420697320696e202f7573722f7563626c6962206f6e>-2 F<53797374656d20562052656c6561736520342e>72 603.6 Q F4<32>93.6 614 Q F5 .149<536f6d652076>3.2 J .15<656e646f72732073686970207468656d206f>-.12 F .15<776e65642062792062696e3b20746869732063726561746573206120736563757269 747920686f6c652074686174206973206e6f742061637475616c6c792072656c61746564 20746f>-.2 F/F6 8/Times-Italic@0 SF<73656e646d61696c>2.15 E F5 4.15 <2e4f>C .15<7468657220696d706f7274616e742064692d>-4.15 F <726563746f7269657320746861742073686f756c64206861>72 626.8 Q .24 -.12 <76652072>-.16 H<6573747269637469>.12 E .24 -.12<7665206f>-.2 H<776e6572 736869707320616e64207065726d697373696f6e7320617265202f62696e2c202f757372 2f62696e2c202f6574632c202f6574632f6d61696c2c202f7573722f6574632c202f6c69 622c20616e64202f7573722f6c6962>-.08 E<2e>-.32 E F4<33>93.6 637.2 Q F5 <41637475616c6c79>3.2 I 2.332<2c74>-.52 G .332 <686520706174686e616d652076>-2.332 F .332<617269657320646570656e64696e67 206f6e20746865206f7065726174696e672073797374656d3b202f6574632f6d61696c20 69732074686520707265666572726564206469726563746f7279>-.2 F 4.332<2e53> -.52 G .332<6f6d65206f6c6465722073797374656d7320696e2d>-4.332 F 1.486 <7374616c6c20697420696e>72 650 R/F7 8/Times-Bold@0 SF <2f7573722f6c69622f73656e646d61696c2e6366>3.486 E F5 3.486<2c61>C 1.486 <6e64204927>-3.486 F 1.726 -.12<76652061>-.4 H 1.486 <6c736f207365656e20697420696e>.12 F F7<2f7573722f7563626c6962>3.486 E F5 5.486<2e49>C 3.486<6679>-5.486 G 1.486<6f752077>-3.486 F 1.487 <616e7420746f206d6f>-.08 F 1.727 -.12<76652074>-.12 H 1.487 <686973208c6c652c20616464202d445f50>.12 F -.888<4154>-.736 G <485f53454e444d41494c2d>.888 E .093<43463d5c222f8c6c652f6e616d655c222074 6f20746865208d6167732070617373656420746f20746865204320636f6d70696c6572> 72 659.6 R 4.093<2e4d>-.44 G -.12<6f76>-4.093 G .093<696e67207468697320 8c6c65206973206e6f74207265636f6d6d656e6465643a206f746865722070726f677261 6d7320616e642073637269707473206b6e6f>.12 F 2.093<776f>-.2 G 2.092<6674> -2.093 G<686973>-2.092 E<6c6f636174696f6e2e>72 669.2 Q F4<34>93.6 679.6 Q F5 .589<5468652073797374656d206c69627261726965732063616e20726566657265 6e6365206f74686572208c6c65733b20696e20706172746963756c6172>3.2 J 2.589 <2c73>-.32 G .589 <797374656d206c69627261727920737562726f7574696e65732074686174>-2.589 F F6<73656e646d61696c>2.588 E F5 .588 <63616c6c732070726f6261626c79207265666572656e6365>2.588 F F6 <2f6574632f706173737764>72 692.4 Q F5<616e64>2 E F6<2f6574632f72>2 E <65736f6c76>-.296 E<2e636f6e66>-.592 E F5<2e>A 0 Cg EP %%Page: 11 7 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3131>195.86 E 2.5<312e332e362e202f7573722f62696e2f707572>102 96 R<676573746174>-.1 E /F1 10/Times-Roman@0 SF .186 <5468697320636f6d6d616e6420697320616c736f2061206c696e6b20746f>142 112.2 R/F2 10/Times-Italic@0 SF<73656e646d61696c>2.687 E F1 5.187<2e49>C 2.687 <748d>-5.187 G .187<75736865732065>-2.687 F .187<787069726564202854>-.15 F .187<696d656f75742e686f73747374617475732920696e666f726d612d>-.35 F <74696f6e20746861742069732073746f72656420696e20746865>117 124.2 Q F0 <486f7374537461747573446972>2.5 E<6563746f7279>-.18 E F1<747265652e>2.5 E F0 2.5<312e332e372e202f76>102 148.2 R<61722f73706f6f6c2f6d7175657565> -.1 E F1 .218<546865206469726563746f7279>142 164.4 R F2 <2f7661722f73706f6f6c2f6d7175657565>2.718 E F1 .217<73686f756c6420626520 6372656174656420746f20686f6c6420746865206d61696c2071756575652e>2.718 F .217<54686973206469726563746f7279>5.217 F <73686f756c64206265206d6f6465203037303020616e64206f>117 176.4 Q <776e656420627920726f6f742e>-.25 E 1.191<5468652061637475616c2070617468 206f662074686973206469726563746f72792069732064658c6e656420627920746865> 142 192.6 R F0<5175657565446972>3.692 E<6563746f7279>-.18 E F1 1.192 <6f7074696f6e206f6620746865>3.692 F F2<73656e642d>3.692 E <6d61696c2e6366>117 204.6 Q F1 4.428<8c6c652e2054>4.428 F 4.428<6f75>-.8 G 1.928<7365206d756c7469706c65207175657565732c20737570706c7920612076> -4.428 F 1.928 <616c756520656e64696e67207769746820616e20617374657269736b2e>-.25 F -.15 <466f>6.927 G 4.427<7265>.15 G<78616d706c652c>-4.577 E F2 <2f7661722f73706f6f6c2f6d71756575652f71642a>117 216.6 Q F1 .737<77696c6c 2075736520616c6c206f6620746865206469726563746f72696573206f722073796d626f 6c6963206c696e6b7320746f206469726563746f72696573206265>3.236 F <67696e6e696e67>-.15 E .78<77697468206071642720696e>117 228.6 R F2 <2f7661722f73706f6f6c2f6d7175657565>3.28 E F1 .779 <6173207175657565206469726563746f726965732e>3.279 F .779<446f206e6f7420 6368616e676520746865207175657565206469726563746f72792073747275632d>5.779 F<74757265207768696c652073656e646d61696c2069732072756e6e696e672e>117 240.6 Q .897<4966207468657365206469726563746f72696573206861>142 256.8 R 1.197 -.15<76652073>-.2 H .898<75626469726563746f72696573206f722073796d 626f6c6963206c696e6b7320746f206469726563746f72696573206e616d656420607166> .15 F .898<272c20606466>.55 F<272c>.55 E 1.241<616e6420607866>117 268.8 R 1.241<272c207468656e2074686573652077696c6c206265207573656420666f722074 686520646966>.55 F 1.24<666572656e74207175657565208c6c652074797065732e> -.25 F 1.24<546861742069732c207468652064617461208c6c657320617265>6.24 F .246<73746f72656420696e2074686520606466>117 280.8 R 2.746<2773>.55 G <75626469726563746f7279>-2.746 E 2.746<2c74>-.65 G .246<6865207472616e73 6372697074208c6c6573206172652073746f72656420696e2074686520607866>-2.746 F 2.747<2773>.55 G<75626469726563746f7279>-2.747 E 2.747<2c61>-.65 G .247<6e6420616c6c206f74682d>-2.747 F <657273206172652073746f72656420696e2074686520607166>117 292.8 Q 2.5 <2773>.55 G<75626469726563746f7279>-2.5 E<2e>-.65 E 1.603<49662073686172 6564206d656d6f727920737570706f727420697320636f6d70696c656420696e2c>142 309 R F2<73656e646d61696c>4.102 E F1 1.602<73746f726573207468652061> 4.102 F -.25<7661>-.2 G 1.602 <696c61626c65206469736b737061636520696e2061>.25 F 1.064 <736861726564206d656d6f7279207365>117 321 R 1.064 <676d656e7420746f206d616b>-.15 F 3.564<6574>-.1 G 1.065<68652076>-3.564 F 1.065<616c7565732072656164696c792061>-.25 F -.25<7661>-.2 G 1.065<696c 61626c6520746f20616c6c206368696c6472656e20776974686f757420696e6375727269 6e67>.25 F .251<73797374656d206f>117 333 R -.15<7665>-.15 G 2.751 <72686561642e20496e>.15 F .251<7468697320636173652c206f6e6c792074686520 6461656d6f6e20757064617465732074686520646174613b20692e652e2c207468652073 656e646d61696c206461656d6f6e206372652d>2.751 F 1.036 <617465732074686520736861726564206d656d6f7279207365>117 345 R 1.037<676d 656e7420616e642064656c65746573206974206966206974206973207465726d696e6174 65642e>-.15 F 2.637 -.8<546f2075>6.037 H 1.037<736520746869732c>.8 F F2 <73656e646d61696c>3.537 E F1<6d757374>3.537 E<6861>117 357 Q 2.462 -.15 <76652062>-.2 H 2.162<65656e20636f6d70696c6564207769746820737570706f7274 20666f7220736861726564206d656d6f727920282d44534d5f434f4e465f53484d292061 6e6420746865206f7074696f6e>.15 F F0<53686172>117 369 Q <65644d656d6f72794b>-.18 E<6579>-.25 E F1 1.516 <6d757374206265207365742e>4.016 F 1.516 <4e6f746963653a20646f206e6f7420757365207468652073616d65206b>6.516 F 1.816 -.15<65792066>-.1 H<6f72>.15 E F2<73656e646d61696c>4.017 E F1 <696e>4.017 E -.2<766f>-.4 G<636174696f6e73>.2 E .032<7769746820646966> 117 381 R .032 <666572656e74207175657565206469726563746f72696573206f7220646966>-.25 F .032<666572656e742071756575652067726f7570206465636c61726174696f6e732e> -.25 F .031<41636365737320746f20736861726564206d656d6f7279>5.031 F 1.542 <6973206e6f7420636f6e74726f6c6c6564206279206c6f636b732c20692e652e2c2074 686572652069732061207261636520636f6e646974696f6e207768656e20646174612069 6e2074686520736861726564206d656d6f7279206973>117 393 R 2.844 <757064617465642e20486f>117 405 R<7765>-.25 E -.15<7665>-.25 G 1.144 -.4 <722c2073>.15 H .344<696e6365206f7065726174696f6e206f66>.4 F F2 <73656e646d61696c>2.844 E F1 .344<646f6573206e6f742072656c79206f6e207468 65206461746120696e2074686520736861726564206d656d6f7279>2.844 F<2c>-.65 E <7468697320646f6573206e6f74206e65>117 417 Q -.05<6761>-.15 G<7469>.05 E -.15<7665>-.25 G<6c7920696e8d75656e6365207468652062656861>.15 E <76696f72>-.2 E<2e>-.55 E F0 2.5<312e332e382e202f76>102 441 R <61722f73706f6f6c2f636c69656e746d7175657565>-.1 E F1 1.726 <546865206469726563746f7279>142 457.2 R F2 <2f7661722f73706f6f6c2f636c69656e746d7175657565>4.226 E F1 1.726<73686f 756c64206265206372656174656420746f20686f6c6420746865206d61696c2071756575 652e>4.226 F<54686973>6.727 E <6469726563746f72792073686f756c64206265206d6f6465203037373020616e64206f> 117 469.2 Q <776e6564206279207573657220736d6d73702c2067726f757020736d6d73702e>-.25 E .139<5468652061637475616c2070617468206f662074686973206469726563746f7279 2069732064658c6e656420627920746865>142 485.4 R F0<5175657565446972>2.639 E<6563746f7279>-.18 E F1 .139<6f7074696f6e206f6620746865>2.639 F F2 <7375626d69742e6366>2.639 E F1<8c6c652e>117 497.4 Q F0 2.5 <312e332e392e202f76>102 521.4 R <61722f73706f6f6c2f6d71756575652f2e686f737473746174>-.1 E F1 1.044 <546869732069732061207479706963616c2076>142 537.6 R 1.044 <616c756520666f7220746865>-.25 F F0<486f7374537461747573446972>3.545 E <6563746f7279>-.18 E F1 1.045 <6f7074696f6e2c20636f6e7461696e696e67206f6e65208c6c652070657220686f7374> 3.545 F<7468617420746869732073656e646d61696c2068617320636861747465642077 69746820726563656e746c79>117 549.6 Q 5<2e49>-.65 G 2.5<7469>-5 G 2.5 <736e>-2.5 G<6f726d616c6c792061207375626469726563746f7279206f66>-2.5 E F2<6d7175657565>2.5 E F1<2e>A F0 2.5 <312e332e31302e202f6574632f6d61696c2f616c69617365732a>102 573.6 R F1 .019<5468652073797374656d20616c6961736573206172652068656c6420696e20992f 6574632f6d61696c2f616c69617365739a2e>142 589.8 R 2.519<4173>5.019 G .019 <616d706c65206973206769>-2.519 F -.15<7665>-.25 G 2.519<6e69>.15 G 2.519 <6e99>-2.519 G<73656e646d61696c2f616c69617365739a>-2.519 E <776869636820696e636c7564657320736f6d6520616c6961736573207768696368>117 601.8 Q F2<6d757374>2.5 E F1<62652064658c6e65643a>2.5 E<63702073656e646d 61696c2f616c6961736573202f6574632f6d61696c2f616c6961736573>157 618 Q F2 <65646974202f6574632f6d61696c2f616c6961736573>157 630 Q F1 -1.1<596f>117 646.2 S 2.5<7573>1.1 G<686f756c642065>-2.5 E <7874656e642074686973208c6c65207769746820616e>-.15 E 2.5<7961>-.15 G<6c 6961736573207468617420617265206170726f706f7320746f20796f7572207379737465 6d2e>-2.5 E<4e6f726d616c6c79>142 662.4 Q F2<73656e646d61696c>7.983 E F1 5.483<6c6f6f6b7320617420612064617461626173652076>7.983 F 5.484<65727369 6f6e206f6620746865208c6c65732c2073746f7265642065697468657220696e>-.15 F 1.089<992f6574632f6d61696c2f616c69617365732e6469729a20616e6420992f657463 2f6d61696c2f616c69617365732e7061679a206f7220992f6574632f6d61696c2f616c69 617365732e64629a20646570656e64696e67206f6e207768696368>117 674.4 R .202 <6461746162617365207061636b61676520796f7520617265207573696e672e>117 686.4 R .202<5468652061637475616c2070617468206f662074686973208c6c652069 732064658c6e656420696e20746865>5.202 F F0<416c69617346696c65>2.703 E F1 .203<6f7074696f6e206f66>2.703 F<746865>117 698.4 Q F2 <73656e646d61696c2e6366>2.5 E F1<8c6c652e>2.5 E 0 Cg EP %%Page: 12 8 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d31322053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF .155<546865207065726d697373696f6e73206f66207468 6520616c696173208c6c6520616e64207468652064617461626173652076>142 96 R .154<657273696f6e732073686f756c64206265203036343020746f20707265>-.15 F -.15<7665>-.25 G .154<6e74206c6f63616c>.15 F .242 <64656e69616c206f6620736572766963652061747461636b732061732065>117 108 R .242<78706c61696e656420696e2074686520746f70206c65>-.15 F -.15<7665>-.25 G<6c>.15 E F0<524541444d45>2.742 E F1 .242 <696e207468652073656e646d61696c2064697374726962>2.742 F 2.742 <7574696f6e2e204966>-.2 F .909<746865207065726d697373696f6e732030363430 2061726520757365642c20626520737572652074686174206f6e6c792074727573746564 2075736572732062656c6f6e6720746f207468652067726f75702061737369676e656420 746f>117 120 R<74686f7365208c6c65732e>117 132 Q <4f74686572776973652c208c6c65732073686f756c64206e6f742065>5 E -.15<7665> -.25 G 2.5<6e62>.15 G 2.5<6567>-2.5 G<726f7570207265616461626c652e>-2.5 E F0 2.5<312e332e31312e202f6574632f72>102 156 R 2.5<636f>-.18 G 2.5 <722f>-2.5 G<6574632f696e69742e642f73656e646d61696c>-2.5 E F1 .155<4974 2077696c6c206265206e656365737361727920746f20737461727420757020746865>142 172.2 R/F2 10/Times-Italic@0 SF<73656e646d61696c>2.655 E F1 .156 <6461656d6f6e207768656e20796f75722073797374656d207265626f6f74732e>2.655 F .156<54686973206461652d>5.156 F 1.538<6d6f6e20706572666f726d73207477> 117 184.2 R 4.037<6f66>-.1 G 1.537<756e6374696f6e733a206974206c69737465 6e73206f6e2074686520534d545020736f636b>-4.037 F 1.537 <657420666f7220636f6e6e656374696f6e732028746f207265636569>-.1 F 1.837 -.15<7665206d>-.25 H<61696c>.15 E .442<66726f6d20612072656d6f7465207379 7374656d2920616e642069742070726f6365737365732074686520717565756520706572 696f646963616c6c7920746f20696e737572652074686174206d61696c20676574732064 656c69>117 196.2 R -.15<7665>-.25 G<726564>.15 E <7768656e20686f73747320636f6d652075702e>117 208.2 Q .894 <4966206e6563657373617279>142 224.4 R 3.393<2c61>-.65 G .893 <64642074686520666f6c6c6f>-3.393 F .893<77696e67206c696e657320746f20992f 6574632f72639a20286f7220992f6574632f72632e6c6f63616c9a20617320617070726f 7072696174652920696e20746865>-.25 F .312<617265612077686572652069742069 73207374617274696e6720757020746865206461656d6f6e73206f6e2061204253442d62 6173652073797374656d2c206f72206f6e20612053797374656d2d56>117 236.4 R .313<2d62617365642073797374656d>-1 F<696e206f6e65206f662074686520737461 72747570208c6c65732c207479706963616c6c7920992f6574632f696e69742e642f7365 6e646d61696c9a3a>117 248.4 Q<6966205b20ad66202f7573722f7362696e2f73656e 646d61696c20ad6120ad66202f6574632f6d61696c2f73656e646d61696c2e6366205d3b 207468656e>157 264.6 Q<286364202f76>193 276.6 Q <61722f73706f6f6c2f6d71756575653b20726d20ad662078662a29>-.25 E <2f7573722f7362696e2f73656e646d61696c20ad626420ad7133306d2026>193 288.6 Q<6563686f20ad6e20272073656e646d61696c27203e2f6465>193 300.6 Q <762f636f6e736f6c65>-.25 E<8c>157 312.6 Q 1.611<546865209963649a20616e64 2099726d9a20636f6d6d616e647320696e73757265207468617420616c6c207472616e73 6372697074208c6c6573206861>117 328.8 R 1.91 -.15<76652062>-.2 H 1.61 <65656e2072656d6f>.15 F -.15<7665>-.15 G 1.61<643b2065>.15 F <787472616e656f7573>-.15 E .772<7472616e736372697074208c6c6573206d617920 6265206c6566742061726f756e64206966207468652073797374656d20676f657320646f> 117 340.8 R .773<776e20696e20746865206d6964646c65206f662070726f63657373 696e672061206d65732d>-.25 F 3.922<736167652e20546865>117 352.8 R 1.422 <6c696e6520746861742061637475616c6c7920696e>3.922 F -.2<766f>-.4 G -.1 <6b65>.2 G<73>.1 E F2<73656e646d61696c>3.922 E F1 1.422<686173207477> 3.922 F 3.922<6f8d>-.1 G 1.422<6167733a2099ad62649a20636175736573206974 20746f206c697374656e206f6e20746865>-3.922 F<534d545020706f72742c20616e64 2099ad7133306d9a2063617573657320697420746f2072756e2074686520717565756520 65>117 364.8 Q -.15<7665>-.25 G<72792068616c6620686f7572>.15 E<2e>-.55 E .029<536f6d652070656f706c65207573652061206d6f726520636f6d706c65>142 381 R 2.529<7873>-.15 G .029<746172747570207363726970742c2072656d6f>-2.529 F .03<76696e67207a65726f206c656e6774682071662f68662f5166208c6c657320616e64 206466>-.15 F .023<8c6c657320666f72207768696368207468657265206973206e6f 2071662f68662f5166208c6c652e>117 393 R .022 <4e6f74652074686973206973206e6f7420616476697361626c652e>5.022 F -.15 <466f>5.022 G 2.522<7265>.15 G .022 <78616d706c652c2073656520466967757265203120666f72>-2.672 F<616e2065>117 405 Q<78616d706c65206f66206120636f6d706c65>-.15 E 2.5<7873>-.15 G <637269707420776869636820646f6573207468697320636c65616e2075702e>-2.5 E F0 2.5<312e332e31322e202f6574632f6d61696c2f68656c708c6c65>102 429 R F1 .16<54686973206973207468652068656c70208c6c652075736564206279207468652053 4d5450>142 445.2 R F0<48454c50>2.661 E F1 2.661<636f6d6d616e642e204974> 2.661 F .161<73686f756c6420626520636f706965642066726f6d209973656e642d> 2.661 F<6d61696c2f68656c708c6c659a3a>117 457.2 Q<63702073656e646d61696c 2f68656c708c6c65202f6574632f6d61696c2f68656c708c6c65>157 473.4 Q<546865 2061637475616c2070617468206f662074686973208c6c652069732064658c6e65642069 6e20746865>117 489.6 Q F0<48656c7046696c65>2.5 E F1 <6f7074696f6e206f6620746865>2.5 E F2<73656e646d61696c2e6366>2.5 E F1 <8c6c652e>2.5 E F0 2.5 <312e332e31332e202f6574632f6d61696c2f73746174697374696373>102 513.6 R F1 3.04<496620796f75207769736820746f20636f6c6c6563742073746174697374696373 2061626f757420796f7572206d61696c2074726166>142 529.8 R 3.04 <8c632c20796f752073686f756c642063726561746520746865208c6c65>-.25 F <992f6574632f6d61696c2f737461746973746963739a3a>117 541.8 Q <6370202f6465>157 558 Q <762f6e756c6c202f6574632f6d61696c2f73746174697374696373>-.25 E <63686d6f642030363030202f6574632f6d61696c2f73746174697374696373>157 570 Q .715<54686973208c6c6520646f6573206e6f742067726f>117 586.2 R 4.516 -.65 <772e2049>-.25 H 3.216<7469>.65 G 3.216<7370>-3.216 G .716<72696e746564 2077697468207468652070726f6772616d20996d61696c73746174732f6d61696c737461 74732e632e>-3.216 F 5.716<9a54>-.7 G .716<68652061637475616c2070617468> -5.716 F<6f662074686973208c6c652069732064658c6e656420696e20746865>117 598.2 Q F0<53>2.5 E F1<6f7074696f6e206f6620746865>2.5 E F2 <73656e646d61696c2e6366>2.5 E F1<8c6c652e>2.5 E F0 2.5 <312e332e31342e202f7573722f62696e2f6d61696c71>102 622.2 R F1<4966>142 638.4 Q F2<73656e646d61696c>3.44 E F1 .94<697320696e>3.44 F -.2<766f>-.4 G -.1<6b65>.2 G 3.44<6461>.1 G 3.44<7399>-3.44 G<6d61696c712c>-3.44 E 3.439<9a69>-.7 G 3.439<7477>-3.439 G .939 <696c6c2073696d756c61746520746865>-3.439 F F03.439 E F1 .939 <8d61672028692e652e2c>3.439 F F2<73656e646d61696c>3.439 E F1 .939 <77696c6c207072696e74>3.439 F<74686520636f6e74656e7473206f6620746865206d 61696c2071756575653b207365652062656c6f>117 650.4 Q 2.5<77292e2054686973> -.25 F<73686f756c642062652061206c696e6b20746f202f7573722f7362696e2f7365 6e646d61696c2e>2.5 E F0 2.5<312e332e31352e2073656e646d61696c2e706964>102 674.4 R F2<73656e646d61696c>142 690.6 Q F1 2.333<73746f7265732069747320 63757272656e742070696420696e20746865208c6c652073706563698c65642062792074 6865>4.833 F F0<50696446696c65>4.834 E F1 2.334<6f7074696f6e2028646566> 4.834 F 2.334<61756c74206973>-.1 F<5f50>117 702.6 Q -1.11<4154>-.92 G <485f53454e444d41494c504944292e>1.11 E F2<73656e646d61696c>5.697 E F1 <75736573>3.197 E F0 -.92<5465>3.197 G<6d7046696c654d6f6465>.92 E F1 .697<28776869636820646566>3.197 F .697 <61756c747320746f2030363030292061732074686520706572>-.1 F<2d>-.2 E 1.958 <6d697373696f6e73206f662074686174208c6c6520746f20707265>117 714.6 R -.15 <7665>-.25 G 1.958<6e74206c6f63616c2064656e69616c206f662073657276696365 2061747461636b732061732065>.15 F 1.958 <78706c61696e656420696e2074686520746f70206c65>-.15 F -.15<7665>-.25 G <6c>.15 E 0 Cg EP %%Page: 13 9 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3133>195.86 E .4 LW 77 108 72 108 DL 79 108 74 108 DL 84 108 79 108 DL 89 108 84 108 DL 94 108 89 108 DL 99 108 94 108 DL 104 108 99 108 DL 109 108 104 108 DL 114 108 109 108 DL 119 108 114 108 DL 124 108 119 108 DL 129 108 124 108 DL 134 108 129 108 DL 139 108 134 108 DL 144 108 139 108 DL 149 108 144 108 DL 154 108 149 108 DL 159 108 154 108 DL 164 108 159 108 DL 169 108 164 108 DL 174 108 169 108 DL 179 108 174 108 DL 184 108 179 108 DL 189 108 184 108 DL 194 108 189 108 DL 199 108 194 108 DL 204 108 199 108 DL 209 108 204 108 DL 214 108 209 108 DL 219 108 214 108 DL 224 108 219 108 DL 229 108 224 108 DL 234 108 229 108 DL 239 108 234 108 DL 244 108 239 108 DL 249 108 244 108 DL 254 108 249 108 DL 259 108 254 108 DL 264 108 259 108 DL 269 108 264 108 DL 274 108 269 108 DL 279 108 274 108 DL 284 108 279 108 DL 289 108 284 108 DL 294 108 289 108 DL 299 108 294 108 DL 304 108 299 108 DL 309 108 304 108 DL 314 108 309 108 DL 319 108 314 108 DL 324 108 319 108 DL 329 108 324 108 DL 334 108 329 108 DL 339 108 334 108 DL 344 108 339 108 DL 349 108 344 108 DL 354 108 349 108 DL 359 108 354 108 DL 364 108 359 108 DL 369 108 364 108 DL 374 108 369 108 DL 379 108 374 108 DL 384 108 379 108 DL 389 108 384 108 DL 394 108 389 108 DL 399 108 394 108 DL 404 108 399 108 DL 409 108 404 108 DL 414 108 409 108 DL 419 108 414 108 DL 424 108 419 108 DL 429 108 424 108 DL 434 108 429 108 DL 439 108 434 108 DL 444 108 439 108 DL 449 108 444 108 DL 454 108 449 108 DL 459 108 454 108 DL 464 108 459 108 DL 469 108 464 108 DL 474 108 469 108 DL 479 108 474 108 DL 484 108 479 108 DL 489 108 484 108 DL 494 108 489 108 DL 499 108 494 108 DL 504 108 499 108 DL/F1 10 /Times-Roman@0 SF<23212f62696e2f7368>72 132 Q 2.5<2372>72 144 S<656d6f> -2.5 E .3 -.15<7665207a>-.15 H <65726f206c656e6774682071662f68662f5166208c6c6573>.15 E<666f72207166>72 156 Q<8c6c6520696e2071662a2068662a2051662a>-.25 E<646f>72 168 Q <6966205b20ad7220247166>108 180 Q<8c6c65205d>-.25 E<7468656e>108 192 Q <6966205b202120ad7320247166>144 204 Q<8c6c65205d>-.25 E<7468656e>144 216 Q<6563686f20ad6e2022203c7a65726f3a20247166>180 228 Q <8c6c653e22203e202f6465>-.25 E<762f636f6e736f6c65>-.25 E <726d20ad6620247166>180 240 Q<8c6c65>-.25 E<8c>144 252 Q<8c>108 264 Q <646f6e65>72 276 Q 2.5<2372>72 288 S<656e616d65207466208c6c657320746f20 62652071662069662074686520716620646f6573206e6f742065>-2.5 E<78697374> -.15 E<666f72207466>72 300 Q<8c6c6520696e2074662a>-.25 E<646f>72 312 Q <7166>108 324 Q<8c6c653d606563686f20247466>-.25 E <8c6c65207c207365642027>-.25 E<732f742f712f2760>-.55 E <6966205b20ad7220247466>108 336 Q<8c6c6520ad61202120ad6620247166>-.25 E <8c6c65205d>-.25 E<7468656e>108 348 Q<6563686f20ad6e2022203c7265636f>144 360 Q -.15<7665>-.15 G<72696e673a20247466>.15 E<8c6c653e22203e202f6465> -.25 E<762f636f6e736f6c65>-.25 E<6d7620247466>144 372 Q<8c6c6520247166> -.25 E<8c6c65>-.25 E<656c7365>108 384 Q<6966205b20ad6620247466>144 396 Q <8c6c65205d>-.25 E<7468656e>144 408 Q<6563686f20ad6e2022203c65>180 420 Q <787472613a20247466>-.15 E<8c6c653e22203e202f6465>-.25 E <762f636f6e736f6c65>-.25 E<726d20ad6620247466>180 432 Q<8c6c65>-.25 E <8c>144 444 Q<8c>108 456 Q<646f6e65>72 468 Q 2.5<2372>72 480 S<656d6f> -2.5 E .3 -.15<76652064>-.15 H 2.5<668c>.15 G<6c65732077697468206e6f2063 6f72726573706f6e64696e672071662f68662f5166208c6c6573>-2.5 E <666f72206466>72 492 Q<8c6c6520696e2064662a>-.25 E<646f>72 504 Q<7166> 108 516 Q<8c6c653d606563686f20246466>-.25 E<8c6c65207c207365642027>-.25 E<732f642f712f2760>-.55 E<6866>108 528 Q<8c6c653d606563686f20246466>-.25 E<8c6c65207c207365642027>-.25 E<732f642f682f2760>-.55 E<5166>108 540 Q <8c6c653d606563686f20246466>-.25 E<8c6c65207c207365642027>-.25 E <732f642f512f2760>-.55 E<6966205b20ad7220246466>108 552 Q <8c6c6520ad61202120ad6620247166>-.25 E<8c6c6520ad61202120ad6620246866> -.25 E<8c6c6520ad61202120ad6620245166>-.25 E<8c6c65205d>-.25 E<7468656e> 108 564 Q<6563686f20ad6e2022203c696e636f6d706c6574653a20246466>144 576 Q <8c6c653e22203e202f6465>-.25 E<762f636f6e736f6c65>-.25 E<6d7620246466> 144 588 Q<8c6c6520606563686f20246466>-.25 E<8c6c65207c207365642027>-.25 E<732f642f442f2760>-.55 E<8c>108 600 Q<646f6e65>72 612 Q 2.5<2361>72 624 S<6e6e6f756e6365208c6c65732074686174206861>-2.5 E .3 -.15<76652062>-.2 H <65656e207361>.15 E -.15<7665>-.2 G 2.5<6464>.15 G <7572696e67206469736173746572207265636f>-2.5 E -.15<7665>-.15 G<7279>.15 E<666f72207866>72 636 Q<8c6c6520696e205b412d5a5d662a>-.25 E<646f>72 648 Q<6966205b20ad6620247866>108 660 Q<8c6c65205d>-.25 E<7468656e>108 672 Q <6563686f20ad6e2022203c70616e69633a20247866>144 684 Q <8c6c653e22203e202f6465>-.25 E<762f636f6e736f6c65>-.25 E<8c>108 696 Q <646f6e65>72 708 Q 0 Cg EP %%Page: 14 10 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d31342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<4669677572652031208a204120636f6d706c65>214.47 96 Q 2.5<7873>-.15 G<74617274757020736372697074>-2.5 E .4 LW 77 108 72 108 DL 79 108 74 108 DL 84 108 79 108 DL 89 108 84 108 DL 94 108 89 108 DL 99 108 94 108 DL 104 108 99 108 DL 109 108 104 108 DL 114 108 109 108 DL 119 108 114 108 DL 124 108 119 108 DL 129 108 124 108 DL 134 108 129 108 DL 139 108 134 108 DL 144 108 139 108 DL 149 108 144 108 DL 154 108 149 108 DL 159 108 154 108 DL 164 108 159 108 DL 169 108 164 108 DL 174 108 169 108 DL 179 108 174 108 DL 184 108 179 108 DL 189 108 184 108 DL 194 108 189 108 DL 199 108 194 108 DL 204 108 199 108 DL 209 108 204 108 DL 214 108 209 108 DL 219 108 214 108 DL 224 108 219 108 DL 229 108 224 108 DL 234 108 229 108 DL 239 108 234 108 DL 244 108 239 108 DL 249 108 244 108 DL 254 108 249 108 DL 259 108 254 108 DL 264 108 259 108 DL 269 108 264 108 DL 274 108 269 108 DL 279 108 274 108 DL 284 108 279 108 DL 289 108 284 108 DL 294 108 289 108 DL 299 108 294 108 DL 304 108 299 108 DL 309 108 304 108 DL 314 108 309 108 DL 319 108 314 108 DL 324 108 319 108 DL 329 108 324 108 DL 334 108 329 108 DL 339 108 334 108 DL 344 108 339 108 DL 349 108 344 108 DL 354 108 349 108 DL 359 108 354 108 DL 364 108 359 108 DL 369 108 364 108 DL 374 108 369 108 DL 379 108 374 108 DL 384 108 379 108 DL 389 108 384 108 DL 394 108 389 108 DL 399 108 394 108 DL 404 108 399 108 DL 409 108 404 108 DL 414 108 409 108 DL 419 108 414 108 DL 424 108 419 108 DL 429 108 424 108 DL 434 108 429 108 DL 439 108 434 108 DL 444 108 439 108 DL 449 108 444 108 DL 454 108 449 108 DL 459 108 454 108 DL 464 108 459 108 DL 469 108 464 108 DL 474 108 469 108 DL 479 108 474 108 DL 484 108 479 108 DL 489 108 484 108 DL 494 108 489 108 DL 499 108 494 108 DL 504 108 499 108 DL F0<524541444d45>117 144 Q F1 .64 <696e207468652073656e646d61696c2064697374726962>3.14 F 3.14 <7574696f6e2e204966>-.2 F .64<746865208c6c6520616c72656164792065>3.14 F .64<78697374732c207468656e206974206d69676874206265206e656365737361727920 746f>-.15 F <6368616e676520746865207065726d697373696f6e73206163636f7264696e676c79> 117 156 Q 2.5<2c65>-.65 G<2e672e2c>-2.5 E<63686d6f642030363030202f76>157 172.2 Q<61722f72756e2f73656e646d61696c2e706964>-.25 E 1.955 <4e6f74652074686174206173206f662076>117 188.4 R 1.956 <657273696f6e20382e31332c2074686973208c6c6520697320756e6c696e6b>-.15 F 1.956<6564207768656e>-.1 F/F2 10/Times-Italic@0 SF<73656e646d61696c> 4.456 E F1 -.15<6578>4.456 G 4.456<6974732e204173>.15 F 4.456<6172>4.456 G 1.956<6573756c74206f662074686973>-4.456 F 1.325 <6368616e67652c20612073637269707420737563682061732074686520666f6c6c6f> 117 200.4 R 1.324<77696e672c207768696368206d6179206861>-.25 F 1.624 -.15 <76652077>-.2 H<6f726b>.05 E 1.324 <6564207072696f7220746f20382e31332c2077696c6c206e6f206c6f6e676572>-.1 F -.1<776f>117 212.4 S<726b3a>.1 E 2.5<2373>157 228.6 S <746f7020262073746172742073656e646d61696c>-2.5 E<50494446494c453d2f76> 157 240.6 Q<61722f72756e2f73656e646d61696c2e706964>-.25 E <6b696c6c206068656164202d31202450494446494c4560>157 252.6 Q <607461696c202d31202450494446494c4560>157 264.6 Q .217<6265636175736520 697420617373756d6573207468617420746865207069648c6c652077696c6c207374696c 6c2065>117 280.8 R .218<786973742065>-.15 F -.15<7665>-.25 G 2.718<6e61> .15 G .218<66746572206b696c6c696e67207468652070726f6365737320746f207768 696368206974207265666572732e>-2.718 F<42656c6f>117 292.8 Q 2.5<7769>-.25 G 2.5<736173>-2.5 G<63726970742077686963682077696c6c2077>-2.5 E <6f726b20636f72726563746c79206f6e20626f7468206e65>-.1 E <77657220616e64206f6c6465722076>-.25 E<657273696f6e733a>-.15 E 2.5<2373> 157 309 S<746f7020262073746172742073656e646d61696c>-2.5 E <50494446494c453d2f76>157 321 Q<61722f72756e2f73656e646d61696c2e706964> -.25 E<7069643d6068656164202d31202450494446494c4560>157 333 Q <636d643d607461696c202d31202450494446494c4560>157 345 Q <6b696c6c2024706964>157 357 Q<24636d64>157 369 Q 1.311 <54686973206973206a75737420616e2065>117 385.2 R 1.311<78616d706c65207363 726970742c20697420646f6573206e6f7420706572666f726d20616e>-.15 F 3.81 <7965>-.15 G 1.31<72726f7220636865636b732c20652e672e2c207768657468657220 746865207069648c6c65>-3.81 F -.15<6578>117 397.2 S <6973747320617420616c6c2e>.15 E F0 2.5<312e332e31362e204d6170>102 421.2 R<46696c6573>2.5 E F1 2.465 -.8<546f2070>142 437.4 T<7265>.8 E -.15 <7665>-.25 G .865<6e74206c6f63616c2064656e69616c206f66207365727669636520 61747461636b732061732065>.15 F .865 <78706c61696e656420696e2074686520746f70206c65>-.15 F -.15<7665>-.25 G <6c>.15 E F0<524541444d45>3.366 E F1 .866<696e20746865>3.366 F 1.077 <73656e646d61696c2064697374726962>117 449.4 R 1.077<7574696f6e2c20746865 207065726d697373696f6e73206f66206d6170208c6c65732063726561746564206279> -.2 F F2<6d616b>3.577 E<656d6170>-.1 E F1 1.077 <73686f756c6420626520303634302e>3.577 F<546865>6.076 E .56<757365206f66 203036343020696d706c6965732074686174206f6e6c7920747275737465642075736572 732062656c6f6e6720746f207468652067726f75702061737369676e656420746f207468 6f7365208c6c65732e>117 461.4 R .56<49662074686f7365>5.56 F <8c6c657320616c72656164792065>117 473.4 Q<786973742c207468656e206974206d 69676874206265206e656365737361727920746f206368616e676520746865207065726d 697373696f6e73206163636f7264696e676c79>-.15 E 2.5<2c65>-.65 G<2e672e2c> -2.5 E<6364202f6574632f6d61696c>157 489.6 Q <63686d6f642030363430202a2e6462202a2e706167202a2e646972>157 501.6 Q F0 2.5<322e204e4f524d414c>72 529.8 R<4f50455241>2.5 E<54494f4e53>-.95 E 2.5 <322e312e20546865>87 553.8 R<53797374656d204c6f67>2.5 E F1 1.511 <5468652073797374656d206c6f6720697320737570706f7274656420627920746865> 127 570 R F2<7379736c6f>4.011 E<6764>-.1 E F1 1.511 <2838292070726f6772616d2e>1.666 F 1.511 <416c6c206d657373616765732066726f6d>6.511 F F2<73656e646d61696c>4.011 E F1<617265>4.011 E<6c6f6767656420756e64657220746865>102 584 Q/F3 9 /Times-Roman@0 SF<4c4f475f4d41494c>2.5 E F1 -.1<6661>2.5 G<63696c697479> .1 E/F4 7/Times-Roman@0 SF<35>-4 I F1<2e>4 I F0 2.5<322e312e312e2046>102 608 R<6f726d6174>-.25 E F1 .574<45616368206c696e6520696e2074686520737973 74656d206c6f6720636f6e7369737473206f6620612074696d657374616d702c20746865 206e616d65206f6620746865206d616368696e6520746861742067656e6572>142 624.2 R<2d>-.2 E .849 <617465642069742028666f72206c6f6767696e672066726f6d207365>117 636.2 R -.15<7665>-.25 G .849<72616c206d616368696e6573206f>.15 F -.15<7665>-.15 G 3.349<7274>.15 G .848<6865206c6f63616c2061726561206e657477>-3.349 F .848<6f726b292c207468652077>-.1 F .848<6f7264209973656e646d61696c3a9a2c> -.1 F<616e642061206d657373616765>117 650.2 Q F4<36>-4 I F1 5<2e4d>4 K <6f7374206d657373616765732061726520612073657175656e6365206f66>-5 E F2 <6e616d65>2.5 E F1<3d>A F2<76616c7565>A F1<70616972732e>2.5 E .32 LW 76 665.2 72 665.2 DL 80 665.2 76 665.2 DL 84 665.2 80 665.2 DL 88 665.2 84 665.2 DL 92 665.2 88 665.2 DL 96 665.2 92 665.2 DL 100 665.2 96 665.2 DL 104 665.2 100 665.2 DL 108 665.2 104 665.2 DL 112 665.2 108 665.2 DL 116 665.2 112 665.2 DL 120 665.2 116 665.2 DL 124 665.2 120 665.2 DL 128 665.2 124 665.2 DL 132 665.2 128 665.2 DL 136 665.2 132 665.2 DL 140 665.2 136 665.2 DL 144 665.2 140 665.2 DL 148 665.2 144 665.2 DL 152 665.2 148 665.2 DL 156 665.2 152 665.2 DL 160 665.2 156 665.2 DL 164 665.2 160 665.2 DL 168 665.2 164 665.2 DL 172 665.2 168 665.2 DL 176 665.2 172 665.2 DL 180 665.2 176 665.2 DL 184 665.2 180 665.2 DL 188 665.2 184 665.2 DL 192 665.2 188 665.2 DL 196 665.2 192 665.2 DL 200 665.2 196 665.2 DL 204 665.2 200 665.2 DL 208 665.2 204 665.2 DL 212 665.2 208 665.2 DL 216 665.2 212 665.2 DL/F5 5/Times-Roman@0 SF<35>93.6 675.6 Q/F6 8/Times-Roman@0 SF<457863657074206f6e20556c747269782c20776869 636820646f6573206e6f7420737570706f72742066>3.2 I <6163696c697469657320696e20746865207379736c6f672e>-.08 E F5<36>93.6 689.2 Q F6<5468697320666f726d6174206d61792076>3.2 I <61727920736c696768746c7920696620796f75722076>-.2 E <656e646f7220686173206368616e676564207468652073796e7461782e>-.12 E 0 Cg EP %%Page: 15 11 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3135>195.86 E /F1 10/Times-Roman@0 SF .68<546865207477>142 96 R 3.18<6f6d>-.1 G .68<6f 737420636f6d6d6f6e206c696e657320617265206c6f67676564207768656e2061206d65 73736167652069732070726f6365737365642e>-3.18 F .68 <546865208c727374206c6f677320746865>5.68 F .376<72656365697074206f662061 206d6573736167653b2074686572652077696c6c2062652065>117 108 R .376 <786163746c79206f6e65206f6620746865736520706572206d6573736167652e>-.15 F .376<536f6d65208c656c6473206d6179206265206f6d69742d>5.376 F <74656420696620746865>117 120 Q 2.5<7964>-.15 G 2.5<6f6e>-2.5 G <6f7420636f6e7461696e20696e746572657374696e6720696e666f726d6174696f6e2e> -2.5 E<4669656c6473206172653a>5 E 50.06<66726f6d20546865>117 136.2 R <656e>2.5 E -.15<7665>-.4 G<6c6f70652073656e64657220616464726573732e>.15 E 53.95<73697a6520546865>117 152.4 R <73697a65206f6620746865206d65737361676520696e2062797465732e>2.5 E 50.06 <636c61737320546865>117 168.6 R<636c6173732028692e652e2c206e756d65726963 20707265636564656e636529206f6620746865206d6573736167652e>2.5 E 58.39 <70726920546865>117 184.8 R<696e697469616c206d657373616765207072696f7269 747920287573656420666f7220717565756520736f7274696e67292e>2.5 E 45.06 <6e726370747320546865>117 201 R 1.514<6e756d626572206f6620656e>4.014 F -.15<7665>-.4 G 1.515<6c6f706520726563697069656e747320666f72207468697320 6d6573736167652028616674657220616c696173696e6720616e6420666f72>.15 F<2d> -.2 E -.1<7761>189 213 S<7264696e67292e>.1 E 45.05<6d7367696420546865> 117 229.2 R<6d657373616765206964206f6620746865206d657373616765202866726f 6d2074686520686561646572292e>2.5 E 32.28<626f64797479706520546865>117 245.4 R 3.144<6d65737361676520626f64792074797065202837424954206f72203842 49544d494d45292c2061732064657465726d696e65642066726f6d20746865>5.644 F <656e>189 257.4 Q -.15<7665>-.4 G<6c6f70652e>.15 E 48.39 <70726f746f20546865>117 273.6 R <70726f746f636f6c207573656420746f207265636569>2.5 E .3 -.15<76652074> -.25 H <686973206d6573736167652028652e672e2c2045534d5450206f72205555435029>.15 E 37.84<6461656d6f6e20546865>117 289.8 R <6461656d6f6e206e616d652066726f6d20746865>2.5 E F0<4461656d6f6e50>2.5 E <6f72744f7074696f6e73>-.2 E F1<73657474696e672e>2.5 E 49.51 <72656c617920546865>117 306 R <6d616368696e652066726f6d2077686963682069742077>2.5 E<6173207265636569> -.1 E -.15<7665>-.25 G<642e>.15 E .43<546865726520697320616c736f206f6e65 206c696e65206c6f67676564207065722064656c69>117 322.2 R -.15<7665>-.25 G .43<727920617474656d70742028736f2074686572652063616e206265207365>.15 F -.15<7665>-.25 G .43<72616c20706572206d6573736167652069662064656c69>.15 F<762d>-.25 E<657279206973206465666572726564206f722074686572652061726520 6d756c7469706c6520726563697069656e7473292e>117 334.2 Q <4669656c6473206172653a>5 E 61.72<746f2041>117 350.4 R<636f6d6d612d7365 70617261746564206c697374206f662074686520726563697069656e747320746f207468 6973206d61696c6572>2.5 E<2e>-.55 E 41.73<63746c6164647220546865>117 366.6 R -.74<6060>2.727 G .227<636f6e74726f6c6c696e67207573657227>.74 F .226<272c20746861742069732c20746865206e616d65206f6620746865207573657220 77686f73652063726564656e7469616c7320776520757365>-.74 F <666f722064656c69>189 378.6 Q -.15<7665>-.25 G<7279>.15 E<2e>-.65 E 47.84<64656c617920546865>117 394.8 R 1.205<746f74616c2064656c6179206265 747765656e207468652074696d652074686973206d6573736167652077>3.705 F 1.205 <6173207265636569>-.1 F -.15<7665>-.25 G 3.705<6461>.15 G 1.205 <6e64207468652063757272656e74>-3.705 F<64656c69>189 406.8 Q -.15<7665> -.25 G<727920617474656d70742e>.15 E 42.84<7864656c617920546865>117 423 R .116 <616d6f756e74206f662074696d65206e656564656420696e20746869732064656c69> 2.616 F -.15<7665>-.25 G .116 <727920617474656d707420286e6f726d616c6c7920696e646963617469>.15 F .415 -.15<7665206f>-.25 H 2.615<6674>.15 G<6865>-2.615 E <7370656564206f662074686520636f6e6e656374696f6e292e>189 435 Q 43.95 <6d61696c657220546865>117 451.2 R <6e616d65206f6620746865206d61696c6572207573656420746f2064656c69>2.5 E -.15<7665>-.25 G 2.5<7274>.15 G 2.5<6f74>-2.5 G <68697320726563697069656e742e>-2.5 E 49.51<72656c617920546865>117 467.4 R<6e616d65206f662074686520686f737420746861742061637475616c6c792061636365 7074656420286f722072656a656374656429207468697320726563697069656e742e>2.5 E 55.61<64736e20546865>117 483.6 R <656e68616e636564206572726f7220636f646520285246432032303334292069662061> 2.5 E -.25<7661>-.2 G<696c61626c652e>.25 E 55.61<7374617420546865>117 499.8 R<64656c69>2.5 E -.15<7665>-.25 G<7279207374617475732e>.15 E 1.012 <4e6f7420616c6c208c656c6473206172652070726573656e7420696e20616c6c206d65 7373616765733b20666f722065>117 516 R 1.012<78616d706c652c20746865207265 6c617920697320757375616c6c79206e6f74206c697374656420666f72206c6f63616c> -.15 F<64656c69>117 528 Q -.15<7665>-.25 G<726965732e>.15 E F0 2.5 <322e312e322e204c65>102 552 R -.1<7665>-.15 G<6c73>.1 E F1 .205 <496620796f75206861>142 568.2 R -.15<7665>-.2 G/F2 10/Times-Italic@0 SF <7379736c6f>2.855 E<6764>-.1 E F1 .205<283829206f7220616e2065717569> 1.666 F -.25<7661>-.25 G .205<6c656e7420696e7374616c6c65642c20796f752077 696c6c2062652061626c6520746f20646f206c6f6767696e672e>.25 F .204 <5468657265206973>5.204 F 2.787<616c>117 580.2 S<6172>-2.787 E .287<6765 20616d6f756e74206f6620696e666f726d6174696f6e20746861742063616e206265206c 6f676765642e>-.18 F .287<546865206c6f6720697320617272616e67656420617320 612073756363657373696f6e206f66206c65>5.287 F -.15<7665>-.25 G<6c732e>.15 E .651<417420746865206c6f>117 592.2 R .651<77657374206c65>-.25 F -.15 <7665>-.25 G 3.151<6c6f>.15 G .651<6e6c792065>-3.151 F .651<787472656d65 6c7920737472616e676520736974756174696f6e7320617265206c6f676765642e>-.15 F .65<4174207468652068696768657374206c65>5.651 F -.15<7665>-.25 G .65 <6c2c2065>.15 F -.15<7665>-.25 G 3.15<6e74>.15 G<6865>-3.15 E .825 <6d6f7374206d756e64616e6520616e6420756e696e746572657374696e672065>117 604.2 R -.15<7665>-.25 G .825 <6e747320617265207265636f7264656420666f7220706f73746572697479>.15 F 5.826<2e41>-.65 G 3.326<736163>-5.826 G<6f6e>-3.326 E -.15<7665>-.4 G .826<6e74696f6e2c206c6f67206c65>.15 F -.15<7665>-.25 G<6c73>.15 E .201< 756e6465722074656e2061726520636f6e736964657265642067656e6572616c6c792099 75736566756c3b9a206c6f67206c65>117 616.2 R -.15<7665>-.25 G .201 <6c732061626f>.15 F .501 -.15<76652036>-.15 H 2.701<3461>.15 G .2 <726520726573657276>-2.701 F .2<656420666f7220646562>-.15 F .2 <756767696e6720707572>-.2 F<2d>-.2 E 2.5<706f7365732e204c65>117 628.2 R -.15<7665>-.25 G<6c732066726f6d203131ad36342061726520726573657276>.15 E <656420666f722076>-.15 E<6572626f736520696e666f726d6174696f6e2074686174 20736f6d65207369746573206d696768742077>-.15 E<616e742e>-.1 E 2.5<4163> 142 644.4 S <6f6d706c657465206465736372697074696f6e206f6620746865206c6f67206c65>-2.5 E -.15<7665>-.25 G<6c73206973206769>.15 E -.15<7665>-.25 G 2.5<6e69>.15 G 2.5<6e73>-2.5 G<656374696f6e2060>-2.5 E<604c6f67204c65>-.74 E -.15 <7665>-.25 G<6c27>.15 E<272e>-.74 E F0 2.5<322e322e2044756d70696e67>87 668.4 R<5374617465>2.5 E F1 -1.1<596f>127 684.6 S 2.563<7563>1.1 G .063 <616e2061736b>-2.563 F F2<73656e646d61696c>2.563 E F1 .064<746f206c6f67 20612064756d70206f6620746865206f70656e208c6c657320616e642074686520636f6e 6e656374696f6e2063616368652062792073656e64696e672069742061>2.563 F/F3 9 /Times-Roman@0 SF<53494755535231>102 696.6 Q F1 2.5 <7369676e616c2e20546865>2.5 F <726573756c747320617265206c6f67676564206174>2.5 E F3<4c4f475f444542>2.5 E<5547>-.09 E F1<7072696f72697479>2.5 E<2e>-.65 E 0 Cg EP %%Page: 16 12 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d31362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E 2.5<322e332e20546865>87 96 R<4d61696c20517565756573>2.5 E/F1 10 /Times-Roman@0 SF .649 <4d61696c206d65737361676573206d6179206569746865722062652064656c69>127 112.2 R -.15<7665>-.25 G .648<72656420696d6d6564696174656c79206f72206265 2068656c6420666f72206c617465722064656c69>.15 F -.15<7665>-.25 G<7279>.15 E 5.648<2e48>-.65 G .648<656c64206d65732d>-5.648 F<73616765732061726520 706c6163656420696e746f206120686f6c64696e67206469726563746f72792063616c6c 65642061206d61696c2071756575652e>102 124.2 Q 2.5<416d>127 140.4 S<61696c 206d657373616765206d61792062652071756575656420666f7220746865736520726561 736f6e733a>-2.5 E 5<8349>107 156.6 S 2.546<66616d>-5 G .047 <61696c206d6573736167652069732074656d706f726172696c7920756e64656c69> -2.546 F -.15<7665>-.25 G .047 <7261626c652c2069742069732071756575656420616e642064656c69>.15 F -.15 <7665>-.25 G .047<727920697320617474656d70746564206c61746572>.15 F 5.047 <2e49>-.55 G 2.547<6674>-5.047 G<6865>-2.547 E .141<6d657373616765206973 2061646472657373656420746f206d756c7469706c6520726563697069656e74732c2069 7420697320717565756564206f6e6c7920666f722074686f736520726563697069656e74 7320746f2077686f6d2064656c69>115.5 168.6 R<762d>-.25 E <657279206973206e6f7420696d6d6564696174656c7920706f737369626c652e>115.5 180.6 Q 5<8349>107 192.6 S 2.5<6674>-5 G<686520537570657253616665206f70 74696f6e2069732073657420746f20747275652c20616c6c206d61696c206d6573736167 65732061726520717565756564207768696c652064656c69>-2.5 E -.15<7665>-.25 G <727920697320617474656d707465642e>.15 E 5<8349>107 204.6 S 3.258<6674>-5 G .758<68652044656c69>-3.258 F -.15<7665>-.25 G .758<72794d6f6465206f70 74696f6e2069732073657420746f2071756575652d6f6e6c79206f72206465666572>.15 F 3.258<2c61>-.4 G .758 <6c6c206d61696c206973207175657565642c20616e64206e6f20696d6d656469617465> -3.258 F<64656c69>115.5 216.6 Q -.15<7665>-.25 G <727920697320617474656d707465642e>.15 E 5<8349>107 228.6 S 2.815<6674>-5 G .315<6865206c6f61642061>-2.815 F -.15<7665>-.2 G .315 <72616765206265636f6d657320686967686572207468616e207468652076>.15 F .314 <616c7565206f66207468652051756575654c41206f7074696f6e20616e6420746865> -.25 F F0<517565756546>2.814 E<6163746f72>-.25 E F1<28>115.5 240.6 Q F0 <71>A F1 3.442<296f>C .942<7074696f6e206469>-3.442 F .942 <76696465642062792074686520646966>-.25 F .942 <666572656e636520696e207468652063757272656e74206c6f61642061>-.25 F -.15 <7665>-.2 G .942<7261676520616e6420746865>.15 F F0<51756575654c41>3.442 E F1 .942<6f7074696f6e20706c7573>3.442 F .403<6f6e65206973206c6573732074 68616e20746865207072696f72697479206f6620746865206d6573736167652c206d6573 7361676573206172652071756575656420726174686572207468616e20696d6d65646961 74656c792064656c69>115.5 252.6 R<762d>-.25 E<657265642e>115.5 264.6 Q 5 <834f>107 276.6 S .744 <6e65206f72206d6f72652061646472657373657320617265206d61726b>-5 F .745 <65642061732065>-.1 F<7870656e7369>-.15 E 1.045 -.15<76652061>-.25 H .745<6e642064656c69>.15 F -.15<7665>-.25 G .745 <727920697320706f7374706f6e656420756e74696c20746865206e65>.15 F .745 <7874207175657565>-.15 F <72756e206f72206f6e65206f72206d6f7265206164647265737320617265206d61726b> 115.5 288.6 Q<65642061732068656c6420766961206d61696c65722077686963682075 7365732074686520686f6c64206d61696c6572208d61672e>-.1 E 5<8354>107 300.6 S<6865206d61696c206d65737361676520686173206265656e206d61726b>-5 E<656420 61732071756172616e74696e6564207669612061206d61696c208c6c746572206f722072 756c65736574732e>-.1 E F0 2.5<322e332e312e205175657565>102 324.6 R<4772> 2.5 E<6f75707320616e6420517565756520446972>-.18 E<6563746f72696573>-.18 E F1 .339 <546865726520617265206f6e65206f72206d6f7265206d61696c207175657565732e> 142 340.8 R .339<45616368206d61696c2071756575652062656c6f6e677320746f20 612071756575652067726f75702e>5.339 F .338<5468657265206973>5.338 F<616c> 117 352.8 Q -.1<7761>-.1 G .616<7973206120646566>.1 F .616 <61756c742071756575652067726f757020746861742069732063616c6c65642060>-.1 F<606d717565756527>-.74 E 3.117<2728>-.74 G .617 <7768696368206973207768657265206d6573736167657320676f20627920646566> -3.117 F<61756c74>-.1 E 2.244 <756e6c657373206f74686572776973652073706563698c6564292e>117 364.8 R 2.244<546865206469726563746f7279206f72206469726563746f726965732077686963 6820636f6d70726973652074686520646566>7.244 F 2.243<61756c74207175657565> -.1 F 1.379<67726f7570206172652073706563698c6564206279207468652051756575 654469726563746f7279206f7074696f6e2e>117 376.8 R 1.379<5468657265206172 65207a65726f206f72206d6f7265206164646974696f6e616c206e616d6564>6.379 F <71756575652067726f757073206465636c61726564207573696e6720746865>117 388.8 Q F0<51>2.5 E F1 <636f6d6d616e6420696e2074686520636f6e8c6775726174696f6e208c6c652e>2.5 E .182<427920646566>142 405 R .181<61756c742c206120717565756564206d657373 61676520697320706c6163656420696e207468652071756575652067726f757020617373 6f636961746564207769746820746865208c727374207265636970692d>-.1 F 1.18 <656e7420696e2074686520726563697069656e74206c6973742e>117 417 R 3.68 <4172>6.18 G 1.181<6563697069656e742061646472657373206973206d6170706564 20746f20612071756575652067726f757020617320666f6c6c6f>-3.68 F 3.681 <77732e2046697273742c>-.25 F<6966>3.681 E 1.222 <746865726520697320612072756c657365742063616c6c65642060>117 429 R <607175657565>-.74 E<67726f757027>-.15 E 1.222<272c20616e64206966207468 69732072756c65736574206d61707320746865206164647265737320746f206120717565 75652067726f7570>-.74 F 1.39<6e616d652c207468656e2074686174207175657565 2067726f75702069732063686f73656e2e>117 441 R 1.39 <546861742069732c20746865206172>6.39 F 1.39<67756d656e7420666f7220746865 2072756c657365742069732074686520726563697069656e74>-.18 F .44<6164647265 73732028692e652e2c2074686520616464726573732070617274206f6620746865207265 736f6c76>117 453 R .439 <656420747269706c652920616e642074686520726573756c742073686f756c64206265> -.15 F F0<2423>2.939 E F1<666f6c6c6f>2.939 E .439<77656420627920746865> -.25 F .768<6e616d65206f6620612071756575652067726f75702e>117 465 R .769< 4f74686572776973652c20696620746865206d61696c6572206173736f63696174656420 776974682074686520616464726573732073706563698c65732061207175657565>5.768 F<67726f75702c207468656e20746861742071756575652067726f75702069732063686f 73656e2e>117 477 Q<4f74686572776973652c2074686520646566>5 E <61756c742071756575652067726f75702069732063686f73656e2e>-.1 E 3.379 <416d>142 493.2 S .879<6573736167652077697468206d756c7469706c6520726563 697069656e74732077696c6c2062652073706c697420696620646966>-3.379 F .878 <666572656e742071756575652067726f757073206172652063686f73656e206279>-.25 F<746865206d617070696e67206f6620726563697069656e747320746f20717565756520 67726f7570732e>117 505.2 Q 1.606<5768656e2061206d6573736167652069732070 6c6163656420696e20612071756575652067726f75702c20616e64207468652071756575 652067726f757020686173206d6f7265207468616e206f6e65>142 521.4 R <71756575652c20612071756575652069732073656c65637465642072616e646f6d6c79> 117 533.4 Q<2e>-.65 E 1.633<49662061206d6573736167652077697468206d756c74 69706c6520726563697069656e747320697320706c6163656420696e746f206120717565 75652067726f75702077697468207468652027>142 549.6 R 1.632 <7227206f7074696f6e>-.5 F 1.055<286d6178696d756d206e756d626572206f662072 6563697069656e747320706572206d657373616765292073657420746f206120706f7369 7469>117 561.6 R 1.356 -.15<76652076>-.25 H<616c7565>-.1 E/F2 10 /Times-Italic@0 SF<4e>3.556 E F1 3.556<2c61>C 1.056 <6e6420696620746865726520617265206d6f7265>-3.556 F<7468616e>117 573.6 Q F2<4e>2.905 E F1 .405<726563697069656e747320696e20746865206d657373616765 2c207468656e20746865206d6573736167652077696c6c2062652073706c697420696e74 6f206d756c7469706c65206d657373616765732c2065616368206f66>2.905 F <7768696368206861>117 585.6 Q .3 -.15<76652061>-.2 H 2.5<746d>.15 G <6f7374>-2.5 E F2<4e>2.5 E F1<726563697069656e74732e>2.5 E .06<4e6f7469 63653a206966206d756c7469706c652071756575652067726f7570732061726520757365 642c20646f>142 601.8 R F0<6e6f74>2.56 E F1<6d6f>2.56 E .36 -.15 <76652071>-.15 H .06 <75657565208c6c65732061726f756e642c20652e672e2c20696e746f2061206469662d> .15 F 1.436<666572656e74207175657565206469726563746f7279>117 613.8 R 6.436<2e54>-.65 G 1.436<686973206d6179206861>-6.436 F 1.735 -.15 <76652077>-.2 H 1.435<65697264206566>.15 F 1.435<666563747320616e642063 616e206361757365206d61696c206e6f7420746f2062652064656c69>-.25 F -.15 <7665>-.25 G<7265642e>.15 E<5175657565208c6c657320616e64206469726563746f 726965732073686f756c642062652074726561746564206173206f706171756520616e64 2073686f756c64206e6f74206265206d616e6970756c61746564206469726563746c79> 117 625.8 Q<2e>-.65 E F0 2.5<322e332e322e205175657565>102 649.8 R <52756e73>2.5 E F2<73656e646d61696c>142 666 Q F1 1<686173207477>3.5 F 3.5<6f64>-.1 G<6966>-3.5 E 1<666572656e742077>-.25 F 1.001 <61797320746f2070726f63657373207468652071756575652873292e>-.1 F 1.001 <546865208c727374206f6e6520697320746f207374617274207175657565>6.001 F .104<72756e6e657273206166746572206365727461696e20696e74657276>117 678 R .104<616c73202860>-.25 F<606e6f726d616c27>-.74 E 2.604<2771>-.74 G .103< 756575652072756e6e657273292c20746865207365636f6e64206f6e6520697320746f20 6b>-2.604 F .103<6565702071756575652072756e6e6572>-.1 F .4 <70726f6365737365732061726f756e64202860>117 690 R <6070657273697374656e7427>-.74 E 2.9<2771>-.74 G .401 <756575652072756e6e657273292e>-2.9 F<486f>5.401 E 2.901<7774>-.25 G 2.901<6f73>-2.901 G .401<656c65637420656974686572206f662074686573652074 7970657320697320646973637573736564>-2.901 F 1.349 <696e2074686520617070656e6469782060>117 702 R 1.348 <60434f4d4d414e44204c494e4520464c41>-.74 F<475327>-.4 E 3.848 <272e2050657273697374656e74>-.74 F 1.348 <71756575652072756e6e657273206861>3.848 F 1.648 -.15<76652074>-.2 H 1.348<686520616476>.15 F<616e74616765>-.25 E .054<74686174206e6f206e65> 117 714 R 2.554<7770>-.25 G .054 <726f636573736573206e65656420746f20626520737061>-2.554 F .055 <776e6564206174206365727461696e20696e74657276>-.15 F .055 <616c733b20746865>-.25 F 2.555<796a>-.15 G .055 <75737420736c65657020666f7220612073706563698c65642074696d65>-2.555 F 0 Cg EP %%Page: 17 13 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3137>195.86 E /F1 10/Times-Roman@0 SF .554<616674657220746865>117 96 R 3.054<798c>-.15 G .554<6e697368656420612071756575652072756e2e>-3.054 F .554 <416e6f7468657220616476>5.554 F .554<616e74616765206f662070657273697374 656e742071756575652072756e6e6572732069732074686174206f6e6c79206f6e65> -.25 F .379<70726f636573732062656c6f6e67696e6720746f20612077>117 108 R .379<6f726b67726f75702028612077>-.1 F .38<6f726b67726f757020697320612073 6574206f662071756575652067726f7570732920636f6c6c656374732074686520646174 6120666f722061>-.1 F .489<71756575652072756e20616e64207468656e206d756c74 69706c652071756575652072756e6e6572206d617920676f206168656164207573696e67 207468617420646174612e>117 120 R .488 <546869732063616e207369676e698c63616e746c79>5.488 F .861<72656475636520 746865206469736b20492f4f206e656365737361727920746f2072656164207468652071 75657565208c6c657320636f6d706172656420746f207374617274696e67206d756c7469 706c652071756575652072756e2d>117 132 R .55<6e657273206469726563746c79> 117 144 R 5.55<2e54>-.65 G .55<6865697220646973616476>-5.55 F .55 <616e7461676520697320746861742061206e65>-.25 F 3.049<7771>-.25 G .549<75 6575652072756e206973206f6e6c79207374617274656420616674657220616c6c207175 6575652072756e6e657273>-3.049 F 1.043<62656c6f6e67696e6720746f2061206772 6f7570208c6e6973686564207468656972207461736b732e>117 156 R 1.044<496e20 63617365206f6e65206f66207468652071756575652072756e6e65727320747269657320 64656c69>6.043 F -.15<7665>-.25 G 1.044<727920746f2061>.15 F<736c6f>117 168 Q 3.283<7772>-.25 G .783<6563697069656e7420736974652061742074686520 656e64206f6620612071756575652072756e2c20746865206e65>-3.283 F .782<7874 2071756575652072756e206d6179206265207375627374616e7469616c6c792064656c61 7965642e>-.15 F .741<496e2067656e6572616c20746869732073686f756c64206265 20736d6f6f74686564206f75742064756520746f207468652064697374726962>117 180 R .741<7574696f6e206f662074686f736520736c6f>-.2 F 3.242<776a>-.25 G .742 <6f62732c20686f>-3.242 F<7765>-.25 E -.15<7665>-.25 G 1.542 -.4 <722c2066>.15 H<6f72>.4 E .142<7369746573207769746820736d616c6c206e756d 626572206f6620717565756520656e74726965732074686973206d6967687420696e7472 6f64756365206e6f7469636561626c652064656c6179732e>117 192 R .141 <496e2067656e6572616c2c20706572>5.141 F<2d>-.2 E<73697374656e7420717565 75652072756e6e65727320617265206f6e6c792075736566756c20666f72207369746573 207769746820626967207175657565732e>117 204 Q F0 2.5 <322e332e332e204d616e75616c>102 228 R<496e746572>2.5 E -.1<7665>-.1 G <6e74696f6e>.1 E F1 1.049<556e646572206e6f726d616c20636f6e646974696f6e73 20746865206d61696c2071756575652077696c6c2062652070726f636573736564207472 616e73706172656e746c79>142 244.2 R 6.049<2e48>-.65 G -.25<6f77>-6.049 G -2.15 -.25<65762065>.25 H 1.85 -.4<722c2079>.25 H<6f75>.4 E .152 <6d6179208c6e642074686174206d616e75616c20696e74657276>117 256.2 R .151 <656e74696f6e20697320736f6d6574696d6573206e6563657373617279>-.15 F 5.151 <2e46>-.65 G .151<6f722065>-5.301 F .151 <78616d706c652c2069662061206d616a6f7220686f737420697320646f>-.15 F<776e> -.25 E .103<666f72206120706572696f64206f662074696d6520746865207175657565 206d6179206265636f6d6520636c6f676765642e>117 268.2 R<416c74686f756768> 5.103 E/F2 10/Times-Italic@0 SF<73656e646d61696c>2.604 E F1 .104 <6f7567687420746f207265636f>2.604 F -.15<7665>-.15 G 2.604<7267>.15 G <726163652d>-2.604 E .249<66756c6c79207768656e2074686520686f737420636f6d 65732075702c20796f75206d6179208c6e6420706572666f726d616e636520756e616363 65707461626c792062616420696e20746865206d65616e74696d652e>117 280.2 R <496e>5.248 E .538<74686174206361736520796f752077>117 292.2 R .538<616e 7420746f20636865636b2074686520636f6e74656e74206f662074686520717565756520 616e64206d616e6970756c6174652069742061732065>-.1 F .539 <78706c61696e656420696e20746865206e65>-.15 F<7874>-.15 E<7477>117 304.2 Q 2.5<6f73>-.1 G<656374696f6e732e>-2.5 E F0 2.5 <322e332e342e205072696e74696e67>102 328.2 R<746865207175657565>2.5 E F1 .862<54686520636f6e74656e7473206f66207468652071756575652873292063616e20 6265207072696e746564207573696e6720746865>142 344.4 R F2<6d61696c71>3.361 E F1 .861<636f6d6d616e6420286f722062792073706563696679696e67>3.361 F <746865>117 356.4 Q F02.5 E F1<8d616720746f>2.5 E F2 <73656e646d61696c>2.5 E F1<293a>A<6d61696c71>157 372.6 Q 1.673<54686973 2077696c6c2070726f647563652061206c697374696e67206f6620746865207175657565 20696427>117 388.8 R 1.673<732c207468652073697a65206f6620746865206d6573 736167652c20746865206461746520746865206d657373616765>-.55 F .528<656e74 65726564207468652071756575652c20616e64207468652073656e64657220616e642072 6563697069656e74732e>117 400.8 R .527<496620736861726564206d656d6f727920 737570706f727420697320636f6d70696c656420696e2c20746865>5.527 F<8d6167> 117 412.8 Q F03.014 E F1 .514<63616e206265207573656420746f207072 696e7420746865206e756d626572206f6620656e747269657320696e2074686520717565 75652873292c2070726f>3.014 F .515 <766964656420612070726f636573732075706461746573>-.15 F .541 <74686520646174612e>117 424.8 R<486f>5.541 E<7765>-.25 E -.15<7665>-.25 G 1.341 -.4<722c2061>.15 H 3.041<7365>.4 G .541 <78706c61696e6564206561726c696572>-3.191 F 3.041<2c74>-.4 G .54<6865206f 7574707574206d6967687420626520736c696768746c792077726f6e672c2073696e6365 2061636365737320746f20746865>-3.041 F 1.43 <736861726564206d656d6f7279206973206e6f74206c6f636b>117 436.8 R 3.931 <65642e2046>-.1 F 1.431<6f722065>-.15 F 1.431<78616d706c652c2060>-.15 F <60756e6b6e6f>-.74 E 1.431<776e206e756d626572206f6620656e747269657327> -.25 F 3.931<276d>-.74 G 1.431<696768742062652073686f>-3.931 F<776e2e> -.25 E<54686520696e7465726e616c20636f756e746572732061726520757064617465 6420616674657220656163682071756575652072756e20746f2074686520636f72726563 742076>117 448.8 Q<616c7565206167>-.25 E<61696e2e>-.05 E F0 2.5 <322e332e352e2046>102 472.8 R<6f72>-.25 E<63696e6720746865207175657565> -.18 E F2<53656e646d61696c>142 489 Q F1 .353<73686f756c642072756e207468 65207175657565206175746f6d61746963616c6c7920617420696e74657276>2.853 F 2.852<616c732e205768656e>-.25 F .352 <7573696e67206d756c7469706c65207175657565732c2061>2.852 F .276 <73657061726174652070726f636573732077696c6c20627920646566>117 501 R .276 <61756c74206265206372656174656420746f2072756e2065616368206f662074686520 71756575657320756e6c657373207468652071756575652072756e20697320696e692d> -.1 F .614<746961746564206279206120757365722077697468207468652076>117 513 R .613<6572626f7365208d61672e>-.15 F .613<54686520616c676f726974686d 20697320746f207265616420616e6420736f7274207468652071756575652c20616e6420 7468656e20746f>5.613 F .159<617474656d707420746f2070726f6365737320616c6c 206a6f627320696e206f72646572>117 525 R 5.159<2e57>-.55 G .159 <68656e20697420617474656d70747320746f2072756e20746865206a6f622c>-5.159 F F2<73656e646d61696c>2.659 E F1 .159 <8c72737420636865636b7320746f20736565>2.659 F <696620746865206a6f62206973206c6f636b>117 537 Q 2.5<65642e204966>-.1 F <736f2c2069742069676e6f72657320746865206a6f62>2.5 E<2e>-.4 E .338<546865 7265206973206e6f20617474656d707420746f20696e737572652074686174206f6e6c79 206f6e652071756575652070726f636573736f722065>142 553.2 R .338 <786973747320617420616e>-.15 F 2.838<7974>-.15 G .338 <696d652c2073696e6365207468657265>-2.838 F .094<6973206e6f2067756172616e 74656520746861742061206a6f622063616e6e6f742074616b>117 565.2 R 2.595 <6566>-.1 G<6f7265>-2.595 E -.15<7665>-.25 G 2.595<7274>.15 G 2.595 <6f70>-2.595 G .095<726f636573732028686f>-2.595 F<7765>-.25 E -.15<7665> -.25 G -.4<722c>.15 G F2<73656e646d61696c>2.995 E F1 .095 <646f657320696e636c756465206865757269732d>2.595 F 1.086<7469637320746f20 74727920746f2061626f7274206a6f62732074686174206172652074616b696e67206162 7375726420616d6f756e7473206f662074696d653b20746563686e6963616c6c79>117 577.2 R 3.586<2c74>-.65 G 1.086<6869732076696f6c6174657320524643>-3.586 F .461<3832312c2062>117 589.2 R .461 <757420697320626c6573736564206279205246432031313233292e>-.2 F .461<4475 6520746f20746865206c6f636b696e6720616c676f726974686d2c20697420697320696d 706f737369626c6520666f72206f6e65206a6f6220746f>5.461 F 1.087 <667265657a652074686520656e746972652071756575652e>117 601.2 R<486f>6.086 E<7765>-.25 E -.15<7665>-.25 G 1.886 -.4<722c2061>.15 H 3.586<6e75>.4 G <6e636f6f706572617469>-3.586 E 1.386 -.15<76652072>-.25 H 1.086<65636970 69656e7420686f7374206f7220612070726f6772616d20726563697069656e7420746861 74>.15 F<6e65>117 613.2 Q -.15<7665>-.25 G 3.35<7272>.15 G .85 <657475726e732063616e20616363756d756c617465206d616e>-3.35 F 3.351<7970> -.15 G .851<726f63657373657320696e20796f75722073797374656d2e>-3.351 F <556e666f7274756e6174656c79>5.851 E 3.351<2c74>-.65 G .851 <68657265206973206e6f20636f6d2d>-3.351 F <706c6574656c792067656e6572616c2077>117 625.2 Q<617920746f20736f6c76>-.1 E 2.5<6574>-.15 G<6869732e>-2.5 E .082<496e20736f6d652063617365732c2079 6f75206d6179208c6e6420746861742061206d616a6f7220686f737420676f696e672064 6f>142 641.4 R .082 <776e20666f72206120636f75706c65206f662064617973206d617920637265617465> -.25 F 2.924<6170>117 653.4 S<726f686962697469>-2.924 E -.15<7665>-.25 G .424<6c79206c6172>.15 F .424<67652071756575652e>-.18 F .424 <546869732077696c6c20726573756c7420696e>5.424 F F2<73656e646d61696c> 2.924 E F1 .425<7370656e64696e6720616e20696e6f7264696e61746520616d6f756e 74206f662074696d65>2.924 F 1.085<736f7274696e67207468652071756575652e> 117 665.4 R 1.085<5468697320736974756174696f6e2063616e206265208c78>6.085 F 1.084<6564206279206d6f>-.15 F 1.084<76696e672074686520717565756520746f 20612074656d706f7261727920706c61636520616e64>-.15 F .022 <6372656174696e672061206e65>117 677.4 R 2.522<7771>-.25 G 2.522 <756575652e20546865>-2.522 F .022<6f6c642071756575652063616e206265207275 6e206c61746572207768656e20746865206f66>2.522 F .023 <66656e64696e6720686f73742072657475726e7320746f20736572766963652e>-.25 F 1.6 -.8<546f2064>142 693.6 T 2.5<6f74>.8 G <6869732c2069742069732061636365707461626c6520746f206d6f>-2.5 E .3 -.15 <76652074>-.15 H<686520656e74697265207175657565206469726563746f72793a> .15 E 0 Cg EP %%Page: 18 14 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d31382053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<6364202f76>157 96 Q<61722f73706f6f6c>-.25 E<6d76 206d7175657565206f6d71756575653b206d6b646972206d71756575653b2063686d6f64 2030373030206d7175657565>157 108 Q -1.1<596f>117 124.2 S 2.709<7573>1.1 G .209<686f756c64207468656e206b696c6c207468652065>-2.709 F .209<78697374 696e67206461656d6f6e202873696e63652069742077696c6c207374696c6c2062652070 726f63657373696e6720696e20746865206f6c642071756575652064697265632d>-.15 F<746f72792920616e64206372656174652061206e65>117 136.2 Q 2.5<7764>-.25 G <61656d6f6e2e>-2.5 E 1.6 -.8<546f2072>142 152.4 T<756e20746865206f6c6420 6d61696c2071756575652c2069737375652074686520666f6c6c6f>.8 E <77696e6720636f6d6d616e643a>-.25 E<2f7573722f7362696e2f73656e646d61696c 20ad43202f6574632f6d61696c2f71756575652e636620ad71>157 168.6 Q<546865> 117 184.8 Q F03.312 E F1 .813<8d61672073706563698c657320616e20616c 7465726e61746520636f6e8c6775726174696f6e208c6c65>3.312 F F0 <71756575652e6366>3.313 E F1 .813 <77686963682073686f756c6420726566657220746f20746865206d6f>3.313 F -.15 <7665>-.15 G<64>.15 E<7175657565206469726563746f7279>117 196.8 Q 2.5 <4f51>157 213 S<756575654469726563746f72793d2f76>-2.5 E <61722f73706f6f6c2f6f6d7175657565>-.25 E .649<616e6420746865>117 229.2 R F03.149 E F1 .649<8d6167207361797320746f206a7573742072756e2065> 3.149 F -.15<7665>-.25 G .648<7279206a6f6220696e207468652071756575652e> .15 F -1.1<596f>5.648 G 3.148<7563>1.1 G .648 <616e20616c736f207370656369667920746865206d6f>-3.148 F -.15<7665>-.15 G 3.148<6471>.15 G<75657565>-3.148 E <6469726563746f7279206f6e2074686520636f6d6d616e64206c696e65>117 241.2 Q <2f7573722f7362696e2f73656e646d61696c20ad6f512f76>157 257.4 Q <61722f73706f6f6c2f6f6d717565756520ad71>-.25 E -.2<6275>117 273.6 S 3.235<7474>.2 G .735 <686973207265717569726573207468617420796f7520646f206e6f74206861>-3.235 F 1.036 -.15<76652071>-.2 H .736<756575652067726f75707320696e207468652063 6f6e8c6775726174696f6e208c6c652c20626563617573652074686f736520617265>.15 F 1.071<6e6f74207375626469726563746f72696573206f6620746865206d6f>117 285.6 R -.15<7665>-.15 G 3.571<6464>.15 G<69726563746f7279>-3.571 E 6.071<2e53>-.65 G 1.071<6565207468652073656374696f6e2061626f75742060> -6.071 F 1.07<6051756575652047726f7570204465636c61726174696f6e27>-.74 F <27>-.74 E .011<666f722064657461696c733b20796f75206d6f7374206c696b>117 297.6 R .011<656c79206e656564206120646966>-.1 F .012<666572656e7420636f 6e8c6775726174696f6e208c6c6520746f20636f72726563746c79206465616c20776974 6820746869732070726f626c656d2e>-.25 F<486f>117 309.6 Q<7765>-.25 E -.15 <7665>-.25 G 1.818 -.4<722c20612070>.15 H 1.018<726f70657220636f6e8c6775 726174696f6e206f662071756575652067726f7570732073686f756c642061>.4 F -.2 <766f>-.2 G 1.017 <6964208c6c6c696e67207570207175657565206469726563746f726965732c20736f>.2 F .367<796f752073686f756c646e27>117 321.6 R 2.867<7472>-.18 G .367 <756e20696e746f20746869732070726f626c656d2e>-2.867 F .367 <496620796f75206861>5.367 F .668 -.15<766520612074>-.2 H<656e64656e63> .15 E 2.868<7974>-.15 G -2.1 -.25<6f772061>-2.868 H .368<72642076>.25 F -.1<6f79>-.2 G .368<65757269736d2c20796f752063616e2075736520746865>.1 F F0117 333.6 Q F1<8d616720746f2077>2.5 E <61746368207768617420697320676f696e67206f6e2e>-.1 E<5768656e207468652071 75657565206973208c6e616c6c7920656d70746965642c20796f752063616e2072656d6f> 142 349.8 Q .3 -.15<76652074>-.15 H<6865206469726563746f72793a>.15 E <726d646972202f76>157 366 Q<61722f73706f6f6c2f6f6d7175657565>-.25 E F0 2.5<322e332e362e2051756172616e74696e6564>102 394.2 R <5175657565204974656d73>2.5 E F1 1.183<497420697320706f737369626c652074 6f202271756172616e74696e6522206d61696c206d657373616765732c206f7468657277 697365206b6e6f>142 410.4 R 1.182<776e20617320656e>-.25 F -.15<7665>-.4 G 3.682<6c6f7065732e20456e>.15 F -.15<7665>-.4 G<6c6f706573>.15 E .097 <287175657565208c6c657329206172652073746f7265642062>117 422.4 R .097 <7574206e6f7420636f6e7369646572656420666f722064656c69>-.2 F -.15<7665> -.25 G .098<7279206f7220646973706c617920756e6c65737320746865202271756172 616e74696e6522207374617465206f66>.15 F 1.237<74686520656e>117 434.4 R -.15<7665>-.4 G 1.236<6c6f706520697320756e646f6e65206f722064656c69>.15 F -.15<7665>-.25 G 1.236<7279206f7220646973706c6179206f662071756172616e74 696e6564206974656d73206973207265717565737465642e>.15 F <51756172616e74696e6564>6.236 E 1.07 <6d657373616765732061726520746167676564206279207573696e67206120646966> 117 446.4 R 1.07 <666572656e74206e616d6520666f7220746865207175657565208c6c652c20276866> -.25 F 3.57<2769>.55 G 1.07<6e7374656164206f6620277166>-3.57 F 1.07 <272c20616e64206279>.55 F<616464696e67207468652071756172616e74696e652072 6561736f6e20746f20746865207175657565208c6c652e>117 458.4 Q<44656c69>142 474.6 Q -.15<7665>-.25 G .323<7279206f7220646973706c6179206f662071756172 616e74696e6564206974656d732063616e20626520726571756573746564207573696e67 20746865>.15 F F02.823 E F1 .322<8d616720746f>2.823 F/F2 10 /Times-Italic@0 SF<73656e646d61696c>2.822 E F1<6f72>117 486.6 Q F2 <6d61696c71>4.277 E F1 6.777<2e41>C<64646974696f6e616c6c79>-6.777 E 4.277<2c6d>-.65 G 1.778<6573736167657320616c726561647920696e207468652071 756575652063616e2062652071756172616e74696e6564206f7220756e71756172616e74 696e6564>-4.277 F<7573696e6720746865206e65>117 498.6 Q<77>-.25 E F0 2.5 E F1<8d616720746f2073656e646d61696c2e>2.5 E -.15<466f>5 G 2.5 <7265>.15 G<78616d706c652c>-2.65 E<73656e646d61696c202d51726561736f6e20 2d715b215d5b497c527c535d5b6d61746368737472696e675d>157 514.8 Q .875<5175 6172616e74696e657320746865206e6f726d616c207175657565206974656d73206d6174 6368696e67207468652063726974657269612073706563698c656420627920746865>117 531 R F0<2d715b215d5b497c527c535d5b6d617463682d>3.374 E<737472696e675d> 117 543 Q F1<7573696e672074686520726561736f6e206769>2.5 E -.15<7665>-.25 G 2.5<6e6f>.15 G 2.5<6e74>-2.5 G<6865>-2.5 E F02.5 E F1 2.5 <8d61672e204c696b>2.5 F -.25<6577>-.1 G<6973652c>.25 E<73656e646d61696c 202d7151202d515b726561736f6e5d202d715b215d5b497c527c537c515d5b6d61746368 737472696e675d>157 559.2 Q 1.164<4368616e6765207468652071756172616e7469 6e6520726561736f6e20666f72207468652071756172616e74696e6564206974656d7320 6d61746368696e67207468652063726974657269612073706563698c6564206279207468 65>117 575.4 R F0 <2d715b215d5b497c527c537c515d5b6d61746368737472696e675d>117 587.4 Q F1 <7573696e672074686520726561736f6e206769>2.5 E -.15<7665>-.25 G 2.5<6e6f> .15 G 2.5<6e74>-2.5 G<6865>-2.5 E F02.5 E F1 2.5<8d61672e204966> 2.5 F<7468657265206973206e6f20726561736f6e2c>2.5 E .757<756e71756172616e 74696e6520746865206d61746368696e67206974656d7320616e64206d616b>119.5 599.4 R 3.257<6574>-.1 G .757 <68656d206e6f726d616c207175657565206974656d732e>-3.257 F .757 <4e6f7465207468617420746865>5.757 F F03.257 E F1<8d6167>3.257 E< 74656c6c732073656e646d61696c20746f206f706572617465206f6e2071756172616e74 696e6564206974656d7320696e7374656164206f66206e6f726d616c206974656d732e> 117 611.4 Q F0 2.5<322e342e204469736b>87 635.4 R <426173656420436f6e6e656374696f6e20496e66>2.5 E<6f726d6174696f6e>-.25 E F2<53656e646d61696c>127 651.6 Q F1 .596<73746f7265732061206c6172>3.096 F .597<676520616d6f756e74206f6620696e666f726d6174696f6e2061626f7574206561 63682072656d6f74652073797374656d2069742068617320636f6e6e656374656420746f> -.18 F .003<696e206d656d6f7279>102 663.6 R 2.503<2e49>-.65 G 2.503<7469> -2.503 G 2.503<7370>-2.503 G .002<6f737369626c6520746f2070726573657276> -2.503 F 2.502<6573>-.15 G .002<6f6d65206f66207468697320696e666f726d6174 696f6e206f6e206469736b2061732077656c6c2c206279207573696e6720746865> -2.502 F F0<486f73745374612d>2.502 E<747573446972>102 675.6 Q <6563746f7279>-.18 E F1 .229<6f7074696f6e2c20736f2074686174206974206d61 7920626520736861726564206265747765656e207365>2.729 F -.15<7665>-.25 G .229<72616c20696e>.15 F -.2<766f>-.4 G .23<636174696f6e73206f66>.2 F F2 <73656e646d61696c>2.73 E F1 5.23<2e54>C .23<68697320616c6c6f>-5.23 F <7773>-.25 E .831<6d61696c20746f2062652071756575656420696d6d656469617465 6c79206f7220736b697070656420647572696e6720612071756575652072756e20696620 746865726520686173206265656e206120726563656e742066>102 687.6 R .831 <61696c75726520696e>-.1 F .371 <636f6e6e656374696e6720746f20612072656d6f7465206d616368696e652e>102 699.6 R .371<4e6f74653a20696e666f726d6174696f6e2061626f757420612072656d 6f74652073797374656d2069732073746f72656420696e2061208c6c652077686f7365> 5.371 F .694<706174686e616d6520636f6e7369737473206f662074686520636f6d70 6f6e656e7473206f662074686520686f73746e616d6520696e207265>102 711.6 R -.15<7665>-.25 G .693<727365206f72646572>.15 F 5.693<2e46>-.55 G .693 <6f722065>-5.843 F .693<78616d706c652c2074686520696e666f726d612d>-.15 F 1.102<74696f6e20666f72>102 723.6 R F0<686f73742e6578616d706c652e636f6d> 3.602 E F1 1.102<69732073746f72656420696e>3.602 F F0 <636f6d2e2f6578616d706c652e2f686f7374>3.602 E F1 6.103<2e46>C 1.103 <6f7220746f702d6c65>-6.253 F -.15<7665>-.25 G 3.603<6c64>.15 G 1.103 <6f6d61696e73206c696b>-3.603 F<65>-.1 E F0<636f6d>3.603 E F1<74686973> 3.603 E 0 Cg EP %%Page: 19 15 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3139>195.86 E /F1 10/Times-Roman@0 SF 1.382<63616e206372656174652061206c6172>102 96 R 1.381<6765206e756d626572206f66207375626469726563746f72696573207768696368 206f6e20736f6d65208c6c6573797374656d732063616e2065>-.18 F 1.381 <78686175737420736f6d65206c696d6974732e>-.15 F<4d6f72656f>102 108 Q -.15 <7665>-.15 G 2.432 -.4<722c2074>.15 H 1.632<686520706572666f726d616e6365 206f66206c6f6f6b75707320696e206469726563746f727920776974682074686f757361 6e6473206f6620656e74726965732063616e2062652066>.4 F 1.633 <6169726c7920736c6f>-.1 F<77>-.25 E<646570656e64696e67206f6e20746865208c 6c6573797374656d20696d706c656d656e746174696f6e2e>102 120 Q 1.439 <4164646974696f6e616c6c7920656e61626c696e67>127 136.2 R F0 <53696e676c65546872>3.939 E<65616444656c69>-.18 E -.1<7665>-.1 G<7279>.1 E F1 1.439<68617320746865206164646564206566>3.939 F 1.439 <66656374206f662073696e676c652d746872656164696e67206d61696c>-.25 F <64656c69>102 148.2 Q -.15<7665>-.25 G 1.61 <727920746f20612064657374696e6174696f6e2e>.15 F 1.611<546869732063616e20 62652071756974652068656c7066756c206966207468652072656d6f7465206d61636869 6e652069732072756e6e696e6720616e20534d5450>6.61 F<73657276>102 160.2 Q 1.011<6572207468617420697320656173696c79206f>-.15 F -.15<7665>-.15 G 1.011<726c6f61646564206f722063616e6e6f7420616363657074206d6f726520746861 6e20612073696e676c6520636f6e6e656374696f6e20617420612074696d652c2062>.15 F 1.01<75742063616e>-.2 F .458<636175736520736f6d65206d6573736167657320 746f2062652070756e74656420746f2061206675747572652071756575652072756e2e> 102 172.2 R .458<497420616c736f206170706c69657320746f>5.458 F/F2 10 /Times-Italic@0 SF<616c6c>2.958 E F1 .458 <686f7374732c20736f2073657474696e672074686973>2.958 F .282 <6265636175736520796f75206861>102 184.2 R .582 -.15<7665206f>-.2 H .281< 6e65206d616368696e65206f6e207369746520746861742072756e7320736f6d6520736f 667477>.15 F .281<617265207468617420697320656173696c79206f>-.1 F -.15 <7665>-.15 G .281<7272756e2063616e206361757365206d61696c>.15 F .315 <746f206f7468657220686f73747320746f20626520736c6f>102 196.2 R .315 <77656420646f>-.25 F 2.815<776e2e204966>-.25 F .315 <74686973206f7074696f6e206973207365742c20796f752070726f6261626c792077> 2.815 F .315<616e7420746f2073657420746865>-.1 F F0 <4d696e5175657565416765>2.815 E F1 .872 <6f7074696f6e2061732077656c6c20616e642072756e207468652071756575652066> 102 208.2 R .871<6169726c79206672657175656e746c793b20746869732077>-.1 F .871<6179206a6f627320746861742061726520736b6970706564206265636175736520 616e6f74686572>-.1 F F2<73656e646d61696c>102 220.2 Q F1 .363<6973207461 6c6b696e6720746f207468652073616d6520686f73742077696c6c206265207472696564 206167>2.863 F .364<61696e20717569636b6c7920726174686572207468616e206265 696e672064656c6179656420666f722061206c6f6e67>-.05 F<74696d652e>102 232.2 Q 1.099<546865206469736b20626173656420686f737420696e666f726d6174696f6e20 69732073746f72656420696e2061207375626469726563746f7279206f6620746865>127 248.4 R F0<6d7175657565>3.598 E F1 1.098 <6469726563746f72792063616c6c6564>3.598 F F0<2e686f737473746174>102 262.4 Q/F3 7/Times-Roman@0 SF<37>-4 I F1 6.749<2e52>4 K<656d6f>-6.749 E 1.749<76696e672074686973206469726563746f727920616e6420697473207375626469 726563746f726965732068617320616e206566>-.15 F 1.75 <666563742073696d696c617220746f20746865>-.25 F F2<707572>4.25 E -.1 <6765>-.37 G<73746174>.1 E F1 1.215 <636f6d6d616e6420616e6420697320636f6d706c6574656c7920736166652e>102 274.4 R<486f>6.215 E<7765>-.25 E -.15<7665>-.25 G -.4<722c>.15 G F2 <707572>4.115 E -.1<6765>-.37 G<73746174>.1 E F1 1.215 <6f6e6c792072656d6f>3.715 F -.15<7665>-.15 G 3.715<7365>.15 G 1.215 <787069726564202854>-3.865 F<696d656f75742e686f737473746174757329>-.35 E 3.539<646174612e20546865>102 286.4 R 1.039<696e666f726d6174696f6e20696e 207468657365206469726563746f726965732063616e2062652070657275736564207769 746820746865>3.539 F F2<686f737473746174>3.54 E F1 1.04 <636f6d6d616e642c2077686963682077696c6c>3.54 F .065<696e6469636174652074 686520686f7374206e616d652c20746865206c617374206163636573732c20616e642074 686520737461747573206f662074686174206163636573732e>102 298.4 R .064 <416e20617374657269736b20696e20746865206c656674206d6f737420636f6c2d> 5.065 F<756d6e20696e6469636174657320746861742061>102 310.4 Q F2 <73656e646d61696c>2.5 E F1 <70726f636573732063757272656e746c79206861732074686520686f7374206c6f636b> 2.5 E<656420666f72206d61696c2064656c69>-.1 E -.15<7665>-.25 G<7279>.15 E <2e>-.65 E .53<546865206469736b20626173656420636f6e6e656374696f6e20696e 666f726d6174696f6e2069732074726561746564207468652073616d652077>127 326.6 R .53<6179206173206d656d6f727920626173656420636f6e6e656374696f6e>-.1 F .536<696e666f726d6174696f6e20666f722074686520707572706f7365206f66207469 6d656f7574732e>102 338.6 R .536<427920646566>5.536 F .536 <61756c742c20696e666f726d6174696f6e2061626f757420686f73742066>-.1 F .536 <61696c757265732069732076>-.1 F .536<616c696420666f72203330>-.25 F 2.5 <6d696e757465732e2054686973>102 350.6 R <63616e2062652061646a7573746564207769746820746865>2.5 E F0 -.18<5469>2.5 G<6d656f75742e686f7374737461747573>.18 E F1<6f7074696f6e2e>2.5 E 1.51<54 686520636f6e6e656374696f6e20696e666f726d6174696f6e2073746f726564206f6e20 6469736b206d61792062652065>127 366.8 R 1.51<78706972656420617420616e> -.15 F 4.01<7974>-.15 G 1.51<696d65207769746820746865>-4.01 F F2<707572> 4.01 E -.1<6765>-.37 G<73746174>.1 E F1 2.093 <636f6d6d616e64206f7220627920696e>102 378.8 R -.2<766f>-.4 G 2.092 <6b696e672073656e646d61696c207769746820746865>.2 F F04.592 E F1 4.592<7377697463682e20546865>4.592 F 2.092 <636f6e6e656374696f6e20696e666f726d6174696f6e206d6179206265>4.592 F <766965>102 390.8 Q<776564207769746820746865>-.25 E F2<686f737473746174> 2.5 E F1<636f6d6d616e64206f7220627920696e>2.5 E -.2<766f>-.4 G <6b696e672073656e646d61696c207769746820746865>.2 E F02.5 E F1 <7377697463682e>2.5 E F0 2.5<322e352e20546865>87 414.8 R<536572>2.5 E <7669636520537769746368>-.1 E F1 1.416<54686520696d706c656d656e74617469 6f6e206f66206365727461696e2073797374656d20736572766963657320737563682061 7320686f737420616e642075736572206e616d65206c6f6f6b757020697320636f6e2d> 127 431 R 1.322 <74726f6c6c6564206279207468652073657276696365207377697463682e>102 443 R 1.321<49662074686520686f7374206f7065726174696e672073797374656d2073757070 6f72747320737563682061207377697463682c20616e642073656e646d61696c>6.322 F <6b6e6f>102 455 Q .383<77732061626f75742069742c>-.25 F F2 <73656e646d61696c>2.883 E F1 .383<77696c6c2075736520746865206e617469> 2.883 F .683 -.15<7665207665>-.25 H 2.883<7273696f6e2e20556c747269782c> .15 F .384<536f6c617269732c20616e6420444543204f53462f31206172652065> 2.883 F<78616d706c6573>-.15 E<6f6620737563682073797374656d73>102 469 Q F3<38>-4 I F1<2e>4 I .88<49662074686520756e6465726c79696e67206f70657261 74696e672073797374656d20646f6573206e6f7420737570706f72742061207365727669 6365207377697463682028652e672e2c2053756e4f5320342e582c2048502d>127 485.2 R .212<55582c2042534429207468656e>102 497.2 R F2<73656e646d61696c>2.712 E F1 .212<77696c6c2070726f>2.712 F .212 <766964652061207374756220696d706c656d656e746174696f6e2e>-.15 F<546865> 5.211 E F0<536572>2.711 E<7669636553776974636846696c65>-.1 E F1 .211 <6f7074696f6e20706f696e7473>2.711 F .937<746f20746865206e616d65206f6620 61208c6c652074686174206861732074686520736572766963652064658c6e6974696f6e 732e>102 509.2 R .937<45616368206c696e652068617320746865206e616d65206f66 2061207365727669636520616e6420746865>5.937 F<706f737369626c6520696d706c 656d656e746174696f6e73206f66207468617420736572766963652e>102 521.2 Q -.15<466f>5 G 2.5<7265>.15 G<78616d706c652c20746865208c6c653a>-2.65 E 12.94<686f73747320646e73>142 537.4 R<8c6c6573206e6973>2.5 E 6.84 <616c6961736573208c6c6573>142 549.4 R<6e6973>2.5 E .329 <77696c6c2061736b>102 565.6 R F2<73656e646d61696c>2.829 E F1 .328<746f20 6c6f6f6b20666f7220686f73747320696e2074686520446f6d61696e204e616d65205379 7374656d208c7273742e>2.829 F .328 <4966207468652072657175657374656420686f7374206e616d65206973>5.328 F .379 <6e6f7420666f756e642c206974207472696573206c6f63616c208c6c65732c20616e64 20696620746861742066>102 577.6 R .379 <61696c73206974207472696573204e49532e>-.1 F<53696d696c61726c79>5.379 E 2.879<2c77>-.65 G .379 <68656e206c6f6f6b696e6720666f7220616c69617365732069742077696c6c>-2.879 F <74727920746865206c6f63616c208c6c6573208c72737420666f6c6c6f>102 589.6 Q <776564206279204e49532e>-.25 E .494<4e6f746963653a2073696e6365>127 605.8 R F2<73656e646d61696c>2.994 E F1 .493<6d75737420616363657373204d58207265 636f72647320666f7220636f7272656374206f7065726174696f6e2c2069742077696c6c 2075736520444e53206966206974206973>2.993 F <636f6e8c677572656420696e20746865>102 617.8 Q F0<536572>2.5 E <7669636553776974636846696c65>-.1 E F1 2.5<8c6c652e2048656e6365>2.5 F <616e20656e747279206c696b>2.5 E<65>-.1 E 12.94<686f737473208c6c6573>142 634 R<646e73>2.5 E<77696c6c206e6f742061>102 650.2 Q -.2<766f>-.2 G <696420444e53206c6f6f6b7570732065>.2 E -.15<7665>-.25 G 2.5<6e69>.15 G 2.5<666168>-2.5 G <6f73742063616e20626520666f756e6420696e202f6574632f686f7374732e>-2.5 E .32 LW 76 659.8 72 659.8 DL 80 659.8 76 659.8 DL 84 659.8 80 659.8 DL 88 659.8 84 659.8 DL 92 659.8 88 659.8 DL 96 659.8 92 659.8 DL 100 659.8 96 659.8 DL 104 659.8 100 659.8 DL 108 659.8 104 659.8 DL 112 659.8 108 659.8 DL 116 659.8 112 659.8 DL 120 659.8 116 659.8 DL 124 659.8 120 659.8 DL 128 659.8 124 659.8 DL 132 659.8 128 659.8 DL 136 659.8 132 659.8 DL 140 659.8 136 659.8 DL 144 659.8 140 659.8 DL 148 659.8 144 659.8 DL 152 659.8 148 659.8 DL 156 659.8 152 659.8 DL 160 659.8 156 659.8 DL 164 659.8 160 659.8 DL 168 659.8 164 659.8 DL 172 659.8 168 659.8 DL 176 659.8 172 659.8 DL 180 659.8 176 659.8 DL 184 659.8 180 659.8 DL 188 659.8 184 659.8 DL 192 659.8 188 659.8 DL 196 659.8 192 659.8 DL 200 659.8 196 659.8 DL 204 659.8 200 659.8 DL 208 659.8 204 659.8 DL 212 659.8 208 659.8 DL 216 659.8 212 659.8 DL/F4 5 /Times-Roman@0 SF<37>93.6 670.2 Q/F5 8/Times-Roman@0 SF <546869732069732074686520757375616c2076>3.2 I<616c7565206f6620746865>-.2 E/F6 8/Times-Bold@0 SF<486f7374537461747573446972>2 E<6563746f7279>-.144 E F5<6f7074696f6e3b2069742063616e2c206f6620636f757273652c20676f20616e>2 E<79776865726520796f75206c696b>-.12 E 2<6569>-.08 G 2<6e79>-2 G <6f7572208c6c6573797374656d2e>-2 E F4<38>93.6 683.8 Q F5 .108<48502d5558 2031302068617320736572766963652073776974636820737570706f72742c2062>3.2 J .108<75742073696e636520746865204150497320617265206170706172656e746c7920 6e6f742061>-.16 F -.2<7661>-.16 G .107 <696c61626c6520696e20746865206c6962726172696573>.2 F/F7 8/Times-Italic@0 SF<73656e646d61696c>2.107 E F5 .107<646f6573206e6f742075736520746865> 2.107 F<6e617469>72 696.6 Q .24 -.12<76652073>-.2 H <6572766963652073776974636820696e20746869732072656c656173652e>.12 E 0 Cg EP %%Page: 20 16 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d32302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF .017 <4e6f74653a20696e20636f6e747261737420746f20746865>127 96 R/F2 10 /Times-Italic@0 SF<73656e646d61696c>2.518 E F1 .018<7374756220696d706c65 6d656e746174696f6e20736f6d65206f7065726174696e672073797374656d7320646f20 6e6f742070726573657276>2.518 F<65>-.15 E<74656d706f726172792066>102 108 Q 2.5<61696c757265732e2046>-.1 F<6f722065>-.15 E <78616d706c652c20696620444e532072657475726e732061205452>-.15 E<595f41> -.65 E<4741494e2073746174757320666f722074686973207365747570>-.4 E 12.94 <686f737473208c6c6573>142 124.2 R<646e73206d79686f73746e616d65>2.5 E -.2 <6275>102 140.4 S 3.435<746d>.2 G .935<79686f73746e616d6520646f6573206e 6f74208c6e64207468652072657175657374656420656e747279>-3.435 F 3.435 <2c74>-.65 G .934<68656e2061207065726d616e656e74206572726f72206973207265 7475726e656420746f>-3.435 F F2<73656e646d61696c>3.434 E F1 <7768696368206f62>102 152.4 Q<76696f75736c792063616e2063617573652070726f 626c656d732c20652e672e2c20616e20696d6d65646961746520626f756e636520696e73 74656164206f66206120646566657272616c2e>-.15 E 1.269<53657276696365207377 69746368657320617265206e6f7420636f6d706c6574656c7920696e7465>127 168.6 R 3.769<6772617465642e2046>-.15 F 1.269<6f722065>-.15 F 1.269 <78616d706c652c2064657370697465207468652066>-.15 F 1.27 <61637420746861742074686520686f7374>-.1 F .294 <656e747279206c697374656420696e207468652061626f>102 180.6 R .594 -.15 <7665206578>-.15 H .293<616d706c652073706563698c657320746f206c6f6f6b2069 6e204e49532c206f6e2053756e4f5320746869732077>.15 F<6f6e27>-.1 E 2.793 <7468>-.18 G .293<617070656e206265636175736520746865>-2.793 F <73797374656d20696d706c656d656e746174696f6e206f66>102 192.6 Q F2 -.1 <6765>2.5 G<74686f737462796e616d65>.1 E F1<28332920646f65736e27>1.666 E 2.5<7475>-.18 G<6e6465727374616e6420746869732e>-2.5 E F0 2.5 <322e362e20546865>87 216.6 R<416c696173204461746162617365>2.5 E F1 2.074 <416674657220726563697069656e742061646472657373657320617265207265616420 66726f6d2074686520534d545020636f6e6e656374696f6e206f7220636f6d6d616e6420 6c696e6520746865>127 232.8 R 4.574<7961>-.15 G<7265>-4.574 E .6<70617273 65642062792072756c6573657420302c207768696368206d757374207265736f6c76>102 244.8 R 3.1<6574>-.15 G 3.099<6f617b>-3.1 G F2<6d61696c6572>-3.099 E F1 <2c>A F2<686f7374>3.099 E F1<2c>A F2<61646472>3.099 E<657373>-.37 E F1 3.099<7d74>C 3.099<7269706c652e204966>-3.099 F .599 <746865208d6167732073656c6563746564206279>3.099 F<746865>102 256.8 Q F2 <6d61696c6572>3.099 E F1 .599<696e636c75646520746865>3.099 F F0<41>3.099 E F1 .599<28616c69617361626c6529208d61672c20746865>3.099 F F2<61646472> 3.099 E<657373>-.37 E F1 .6 <70617274206f662074686520747269706c65206973206c6f6f6b>3.099 F .6 <656420757020617320746865206b>-.1 F .9 -.15<65792028>-.1 H<692e652e2c> .15 E 1.046<746865206c6566742068616e6420736964652920696e2074686520616c69 61732064617461626173652e>102 268.8 R 1.045<4966207468657265206973206120 6d617463682c2074686520616464726573732069732064656c657465642066726f6d2074 68652073656e64>6.045 F .776<717565756520616e6420616c6c206164647265737365 73206f6e207468652072696768742068616e642073696465206f662074686520616c6961 732061726520616464656420696e20706c616365206f662074686520616c696173207468 61742077>102 280.8 R<6173>-.1 E 2.683<666f756e642e2054686973>102 292.8 R .183<697320612072656375727369>2.683 F .483 -.15<7665206f>-.25 H .183<70 65726174696f6e2c20736f20616c696173657320666f756e6420696e2074686520726967 68742068616e642073696465206f662074686520616c696173206172652073696d696c61 726c79>.15 F -.15<6578>102 304.8 S<70616e6465642e>.15 E 3.718 <54686520616c6961732064617461626173652065>127 321 R 3.718 <786973747320696e207477>-.15 F 6.218<6f66>-.1 G 6.218 <6f726d732e204f6e65>-6.218 F 3.718<69732061207465>6.218 F 3.718 <787420666f726d2c206d61696e7461696e656420696e20746865208c6c65>-.15 F F2 <2f6574632f6d61696c2f616c69617365732e>102 333 Q F1 <54686520616c696173657320617265206f662074686520666f726d>5 E <6e616d653a206e616d65312c206e616d65322c202e2e2e>142 349.2 Q<4f6e6c79206c 6f63616c206e616d6573206d617920626520616c69617365643b20652e672e2c>102 365.4 Q<6572696340707265702e61692e4d4954>142 381.6 Q <2e4544553a20657269634043532e4265726b>-.74 E<656c65>-.1 E -.65<792e>-.15 G<454455>.65 E 1.088<77696c6c206e6f74206861>102 399.8 R 1.388 -.15 <76652074>-.2 H 1.088<68652064657369726564206566>.15 F 1.088 <66656374202865>-.25 F 1.088<7863657074206f6e20707265702e61692e4d4954> -.15 F 1.088<2e4544552c20616e6420746865>-.74 F 3.588<7970>-.15 G 1.088 <726f6261626c7920646f6e27>-3.588 F 3.587<7477>-.18 G 1.087 <616e74206d6529>-3.687 F/F3 7/Times-Roman@0 SF<39>-4 I F1<2e>4 I .986<41 6c6961736573206d617920626520636f6e74696e756564206279207374617274696e6720 616e>102 411.8 R 3.486<7963>-.15 G .986<6f6e74696e756174696f6e206c696e65 7320776974682061207370616365206f72206120746162206f722062792070757474696e 672061>-3.486 F .776 <6261636b736c617368206469726563746c79206265666f726520746865206e65>102 423.8 R 3.276<776c696e652e20426c616e6b>-.25 F .776 <6c696e657320616e64206c696e6573206265>3.276 F .776 <67696e6e696e6720776974682061207368617270207369676e202899239a2920617265> -.15 F<636f6d6d656e74732e>102 435.8 Q .107<546865207365636f6e6420666f72 6d2069732070726f636573736564206279206f6e65206f66207468652061>127 454 R -.25<7661>-.2 G .108<696c61626c65206d61702074797065732c20652e672e2c>.25 F F2<6e64626d>2.608 E F1<283329>1.666 E F3<3130>-4 I F1 .108 <746865204265726b>2.608 4 N<656c65>-.1 E<79>-.15 E .102 <4442206c696272617279>102 466 R 2.602<2c6f>-.65 G<72>-2.602 E F2<636462> 2.602 E F1 5.102<2e54>C .102<6869732069732074686520666f726d2074686174> -5.102 F F2<73656e646d61696c>2.602 E F1 .102 <61637475616c6c79207573657320746f207265736f6c76>2.602 F 2.601<6561>-.15 G 2.601<6c69617365732e2054686973>-2.601 F .101<746563686e69717565206973> 2.601 F<7573656420746f20696d70726f>102 478 Q .3 -.15<76652070>-.15 H <6572666f726d616e63652e>.15 E<54686520636f6e74726f6c206f6620736561726368 206f726465722069732061637475616c6c79207365742062792074686520736572766963 65207377697463682e>127 494.2 Q<457373656e7469616c6c79>5 E 2.5<2c74>-.65 G<686520656e747279>-2.5 E 2.5<4f41>142 510.4 S <6c69617346696c653d7377697463683a616c6961736573>-2.5 E .926<697320616c> 102 526.6 R -.1<7761>-.1 G .927<797320616464656420617320746865208c727374 20616c69617320656e7472793b20616c736f2c20746865208c72737420616c696173208c 6c65206e616d6520776974686f7574206120636c6173732028652e672e2c20776974686f 7574>.1 F .269<996e69733a9a206f6e207468652066726f6e74292077696c6c206265 207573656420617320746865206e616d65206f6620746865208c6c6520666f7220612060> 102 538.6 R<608c6c657327>-.74 E 2.768<2765>-.74 G .268 <6e74727920696e2074686520616c6961736573207377697463682e>-2.768 F -.15 <466f>5.268 G<72>.15 E -.15<6578>102 550.6 S<616d706c652c20696620746865 20636f6e8c6775726174696f6e208c6c6520636f6e7461696e73>.15 E 2.5<4f41>142 566.8 S<6c69617346696c653d2f6574632f6d61696c2f616c6961736573>-2.5 E <616e642074686520736572766963652073776974636820636f6e7461696e73>102 583 Q 6.84<616c6961736573206e6973>142 599.2 R<8c6c6573206e6973706c7573>2.5 E 1.164<7468656e20616c69617365732077696c6c208c7273742062652073656172636865 6420696e20746865204e49532064617461626173652c207468656e20696e202f6574632f 6d61696c2f616c69617365732c207468656e20696e20746865204e49532b>102 615.4 R <64617461626173652e>102 627.4 Q -1.1<596f>127 643.6 S 2.5<7563>1.1 G <616e20616c736f20757365>-2.5 E/F4 9/Times-Roman@0 SF<4e4953>2.5 E F1 <2d626173656420616c696173208c6c65732e>A -.15<466f>5 G 2.5<7265>.15 G <78616d706c652c207468652073706563698c636174696f6e3a>-2.65 E .32 LW 76 665.2 72 665.2 DL 80 665.2 76 665.2 DL 84 665.2 80 665.2 DL 88 665.2 84 665.2 DL 92 665.2 88 665.2 DL 96 665.2 92 665.2 DL 100 665.2 96 665.2 DL 104 665.2 100 665.2 DL 108 665.2 104 665.2 DL 112 665.2 108 665.2 DL 116 665.2 112 665.2 DL 120 665.2 116 665.2 DL 124 665.2 120 665.2 DL 128 665.2 124 665.2 DL 132 665.2 128 665.2 DL 136 665.2 132 665.2 DL 140 665.2 136 665.2 DL 144 665.2 140 665.2 DL 148 665.2 144 665.2 DL 152 665.2 148 665.2 DL 156 665.2 152 665.2 DL 160 665.2 156 665.2 DL 164 665.2 160 665.2 DL 168 665.2 164 665.2 DL 172 665.2 168 665.2 DL 176 665.2 172 665.2 DL 180 665.2 176 665.2 DL 184 665.2 180 665.2 DL 188 665.2 184 665.2 DL 192 665.2 188 665.2 DL 196 665.2 192 665.2 DL 200 665.2 196 665.2 DL 204 665.2 200 665.2 DL 208 665.2 204 665.2 DL 212 665.2 208 665.2 DL 216 665.2 212 665.2 DL/F5 5/Times-Roman@0 SF<39>93.6 675.6 Q/F6 8/Times-Roman@0 SF<41637475616c6c79>3.2 I 2<2c61>-.52 G .24 -.12<6e79206d>-2 H<61696c6572207468617420686173207468652060>.12 E 1.776 -.888<4127206d>-.64 H<61696c6572208d6167207365742077696c6c207065726d6974 20616c696173696e673b2074686973206973206e6f726d616c6c79206c696d6974656420 746f20746865206c6f63616c206d61696c6572>.888 E<2e>-.44 E F5<3130>93.6 689.2 Q F6<546865>3.2 I/F7 8/Times-Italic@0 SF<6764626d>2 E F6 <7061636b61676520646f6573206e6f742077>2 E<6f726b2e>-.08 E 0 Cg EP %%Page: 21 17 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3231>195.86 E /F1 10/Times-Roman@0 SF 2.5<4f41>142 96 S <6c69617346696c653d2f6574632f6d61696c2f616c6961736573>-2.5 E 2.5<4f41> 142 108 S<6c69617346696c653d6e69733a6d61696c2e616c6961736573406d79>-2.5 E<2e6e69732e646f6d61696e>-.65 E .143<77696c6c208c7273742073656172636820 746865202f6574632f6d61696c2f616c6961736573208c6c6520616e64207468656e2074 6865206d6170206e616d656420996d61696c2e616c69617365739a20696e20996d79>102 124.2 R<2e6e69732e646f6d61696e9a2e>-.65 E -.8<5761>102 136.2 S .589 <726e696e673a20696620796f752062>.8 F .589<75696c6420796f7572206f>-.2 F <776e>-.25 E/F2 9/Times-Roman@0 SF<4e4953>3.089 E F1 .589 <2d626173656420616c696173208c6c65732c206265207375726520746f2070726f>B .59<7669646520746865>-.15 F F03.09 E F1 .59<8d616720746f>3.09 F/F3 10/Times-Italic@0 SF<6d616b>3.09 E<6564626d>-.1 E F1<283829>A .159 <746f206d61702075707065722063617365206c65747465727320696e20746865206b> 102 148.2 R -.15<6579>-.1 G 2.659<7374>.15 G 2.659<6f6c>-2.659 G -.25 <6f77>-2.659 G .159<657220636173653b206f74686572776973652c20616c69617365 7320776974682075707065722063617365206c65747465727320696e207468656972>.25 F<6e616d65732077>102 160.2 Q<6f6e27>-.1 E 2.5<746d>-.18 G <6174636820696e636f6d696e67206164647265737365732e>-2.5 E<4164646974696f 6e616c208d6167732063616e2062652061646465642061667465722074686520636f6c6f 6e2065>127 176.4 Q<786163746c79206c696b>-.15 E 2.5<6561>-.1 G F0<4b>A F1 <6c696e65208a20666f722065>2.5 E<78616d706c653a>-.15 E 2.5<4f41>142 192.6 S<6c69617346696c653d6e69733aad4e206d61696c2e616c6961736573406d79>-2.5 E <2e6e69732e646f6d61696e>-.65 E<77696c6c20736561726368207468652061707072 6f707269617465204e4953206d617020616e6420616c>102 208.8 Q -.1<7761>-.1 G <797320696e636c756465206e756c6c20627974657320696e20746865206b>.1 E -.15 <6579>-.1 G 5<2e41>-.5 G<6c736f3a>-5 E 2.5<4f41>142 225 S <6c69617346696c653d6e69733aad66206d61696c2e616c6961736573406d79>-2.5 E <2e6e69732e646f6d61696e>-.65 E<77696c6c20707265>102 241.2 Q -.15<7665> -.25 G<6e742073656e646d61696c2066726f6d20646f>.15 E <776e636173696e6720746865206b>-.25 E .3 -.15<65792062>-.1 H <65666f72652074686520616c696173206c6f6f6b75702e>.15 E F0 2.5 <322e362e312e20526562>102 265.2 R <75696c64696e672074686520616c696173206461746162617365>-.2 E F1<546865> 142 281.4 Q F3<68617368>3.079 E F1<6f72>3.079 E F3<64626d>3.079 E F1 -.15<7665>3.079 G .579 <7273696f6e206f6620746865206461746162617365206d617920626520726562>.15 F .58<75696c742065>-.2 F .58<78706c696369746c792062792065>-.15 F -.15 <7865>-.15 G .58<637574696e672074686520636f6d2d>.15 F<6d616e64>117 293.4 Q<6e65>157 309.6 Q -.1<7761>-.25 G<6c6961736573>.1 E <546869732069732065717569>117 325.8 Q -.25<7661>-.25 G <6c656e7420746f206769>.25 E<76696e67>-.25 E F3<73656e646d61696c>2.5 E F1 <746865>2.5 E F02.5 E F1<8d61673a>2.5 E <2f7573722f7362696e2f73656e646d61696c20ad6269>157 342 Q 1.77 <496620796f75206861>142 362.4 R 2.07 -.15<7665206d>-.2 H 1.77<756c746970 6c6520616c6961736573206461746162617365732073706563698c65642c20746865>.15 F F04.27 E F1 1.77<8d616720726562>4.27 F 1.77 <75696c647320616c6c20746865206461746162617365>-.2 F <747970657320697420756e6465727374616e64732028666f722065>117 374.4 Q <78616d706c652c2069742063616e20726562>-.15 E <75696c64204e44424d206461746162617365732062>-.2 E <7574206e6f74204e495320646174616261736573292e>-.2 E F0 2.5 <322e362e322e2050>102 398.4 R<6f74656e7469616c207072>-.2 E<6f626c656d73> -.18 E F1 1.131<5468657265206172652061206e756d626572206f662070726f626c65 6d7320746861742063616e206f6363757220776974682074686520616c69617320646174 61626173652e>142 414.6 R<546865>6.131 E 3.631<7961>-.15 G 1.131 <6c6c20726573756c74>-3.631 F 1.104<66726f6d2061>117 426.6 R F3 <73656e646d61696c>3.604 E F1 1.104 <70726f6365737320616363657373696e67207468652044424d2076>3.604 F 1.103 <657273696f6e207768696c65206974206973206f6e6c79207061727469616c6c792062> -.15 F 3.603<75696c742e2054686973>-.2 F<63616e>3.603 E 1.248 <68617070656e20756e646572207477>117 438.6 R 3.748<6f63>-.1 G 1.248<6972 63756d7374616e6365733a204f6e652070726f6365737320616363657373657320746865 206461746162617365207768696c6520616e6f746865722070726f63657373206973> -3.748 F<726562>117 450.6 Q .518 <75696c64696e672069742c206f72207468652070726f6365737320726562>-.2 F .518 <75696c64696e67207468652064617461626173652064696573202864756520746f2062 65696e67206b696c6c6564206f7220612073797374656d20637261736829>-.2 F <6265666f726520636f6d706c6574696e672074686520726562>117 462.6 Q <75696c642e>-.2 E .401<53656e646d61696c2068617320746872656520746563686e 697175657320746f2074727920746f2072656c6965>142 478.8 R .701 -.15 <76652074>-.25 H .401<686573652070726f626c656d732e>.15 F .401 <46697273742c2069742069676e6f72657320696e7465727275707473>5.401 F .045 <7768696c6520726562>117 490.8 R .045 <75696c64696e67207468652064617461626173653b20746869732061>-.2 F -.2 <766f>-.2 G .045<696473207468652070726f626c656d206f6620736f6d656f6e6520 61626f7274696e67207468652070726f63657373206c6561>.2 F .045<76696e672061> -.2 F .176<7061727469616c6c7920726562>117 502.8 R .176 <75696c742064617461626173652e>-.2 F .177<5365636f6e642c206974206c6f636b 732074686520646174616261736520736f75726365208c6c6520647572696e6720746865 20726562>5.176 F .177<75696c64208a2062>-.2 F .177<75742074686174>-.2 F .813<6d6179206e6f742077>117 514.8 R .813<6f726b206f>-.1 F -.15<7665>-.15 G 3.313<724e>.15 G .813 <4653206f7220696620746865208c6c6520697320756e7772697461626c652e>-3.313 F .812<54686972642c2061742074686520656e64206f662074686520726562>5.812 F .812<75696c64206974206164647320616e>-.2 F <616c696173206f662074686520666f726d>117 526.8 Q<403a2040>157 543 Q .336 <287768696368206973206e6f74206e6f726d616c6c79206c65>117 559.2 R -.05 <6761>-.15 G 2.836<6c292e204265666f7265>.05 F F3<73656e646d61696c>2.836 E F1 .336<77696c6c20616363657373207468652064617461626173652c206974206368 65636b7320746f20696e737572652074686174>2.836 F<7468697320656e7472792065> 117 573.2 Q<7869737473>-.15 E/F4 7/Times-Roman@0 SF<3131>-4 I F1<2e>4 I F0 2.5<322e362e332e204c697374>102 597.2 R -.1<6f77>2.5 G<6e657273>.1 E F1 .401<496620616e206572726f72206f6363757273206f6e2073656e64696e6720746f 2061206365727461696e20616464726573732c207361792099>142 613.4 R F3<78>A F1<9a2c>A F3<73656e646d61696c>2.9 E F1 .4 <77696c6c206c6f6f6b20666f7220616e20616c696173>2.9 F .417 <6f662074686520666f726d20996f>117 625.4 R<776e6572>-.25 E<2d>-.2 E F3 <78>A F1 2.917<9a74>C 2.917<6f72>-2.917 G<65636569>-2.917 E .717 -.15 <76652074>-.25 H .418<6865206572726f72732e>.15 F .418<546869732069732074 79706963616c6c792075736566756c20666f722061206d61696c696e67206c6973742077 6865726520746865>5.418 F 1.117<7375626d6974746572206f6620746865206c6973 7420686173206e6f20636f6e74726f6c206f>117 637.4 R -.15<7665>-.15 G 3.617 <7274>.15 G 1.116<6865206d61696e74656e616e6365206f6620746865206c69737420 697473656c663b20696e2074686973206361736520746865206c697374>-3.617 F <6d61696e7461696e65722077>117 649.4 Q<6f756c6420626520746865206f>-.1 E <776e6572206f6620746865206c6973742e>-.25 E -.15<466f>5 G 2.5<7265>.15 G <78616d706c653a>-2.65 E .32 LW 76 678.8 72 678.8 DL 80 678.8 76 678.8 DL 84 678.8 80 678.8 DL 88 678.8 84 678.8 DL 92 678.8 88 678.8 DL 96 678.8 92 678.8 DL 100 678.8 96 678.8 DL 104 678.8 100 678.8 DL 108 678.8 104 678.8 DL 112 678.8 108 678.8 DL 116 678.8 112 678.8 DL 120 678.8 116 678.8 DL 124 678.8 120 678.8 DL 128 678.8 124 678.8 DL 132 678.8 128 678.8 DL 136 678.8 132 678.8 DL 140 678.8 136 678.8 DL 144 678.8 140 678.8 DL 148 678.8 144 678.8 DL 152 678.8 148 678.8 DL 156 678.8 152 678.8 DL 160 678.8 156 678.8 DL 164 678.8 160 678.8 DL 168 678.8 164 678.8 DL 172 678.8 168 678.8 DL 176 678.8 172 678.8 DL 180 678.8 176 678.8 DL 184 678.8 180 678.8 DL 188 678.8 184 678.8 DL 192 678.8 188 678.8 DL 196 678.8 192 678.8 DL 200 678.8 196 678.8 DL 204 678.8 200 678.8 DL 208 678.8 204 678.8 DL 212 678.8 208 678.8 DL 216 678.8 212 678.8 DL/F5 5/Times-Roman@0 SF<3131>93.6 689.2 Q/F6 8/Times-Roman@0 SF <546865>3.2 I/F7 8/Times-Bold@0 SF<416c69617357>2 E<616974>-.52 E F6<6f 7074696f6e20697320726571756972656420696e2074686520636f6e8c6775726174696f 6e20666f72207468697320616374696f6e20746f206f63637572>2 E 4<2e54>-.44 G <6869732073686f756c64206e6f726d616c6c792062652073706563698c65642e>-4 E 0 Cg EP %%Page: 22 18 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d32322053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<756e69782d77697a617264733a2065726963407563626172 70612c20776e6a406d6f6e65742c206e6f7375636875736572>157 96 Q<2c>-.4 E <73616d406d617469737365>193 108 Q -.25<6f77>157 120 S<6e6572>.25 E <2d756e69782d77697a617264733a20756e69782d77697a617264732d72657175657374> -.2 E <756e69782d77697a617264732d726571756573743a20657269634075636261727061> 157 132 Q -.1<776f>117 148.2 S .689<756c64206361757365209965726963407563 62617270619a20746f2067657420746865206572726f7220746861742077696c6c206f63 637572207768656e20736f6d656f6e652073656e647320746f20756e69782d77697a2d> .1 F<617264732064756520746f2074686520696e636c7573696f6e206f6620996e6f73 756368757365729a206f6e20746865206c6973742e>117 160.2 Q .959 <4c697374206f>142 176.4 R .959 <776e65727320616c736f2063617573652074686520656e>-.25 F -.15<7665>-.4 G .959 <6c6f70652073656e646572206164647265737320746f206265206d6f64698c65642e> .15 F .958<54686520636f6e74656e7473206f6620746865>5.958 F -.25<6f77>117 188.4 S .428<6e657220616c69617320617265207573656420696620746865>.25 F 2.928<7970>-.15 G .428<6f696e7420746f20612073696e676c652075736572>-2.928 F 2.928<2c6f>-.4 G .429<746865727769736520746865206e616d65206f6620746865 20616c69617320697473656c6620697320757365642e>-2.928 F -.15<466f>117 200.4 S 3.455<7274>.15 G .955 <68697320726561736f6e2c20616e6420746f206f6265>-3.455 F 3.454<7949>-.15 G .954<6e7465726e657420636f6e>-3.454 F -.15<7665>-.4 G .954 <6e74696f6e732c2074686520996f>.15 F<776e6572>-.25 E .954 <2d9a2061646472657373206e6f726d616c6c7920706f696e747320617420746865>-.2 F .503<992d726571756573749a20616464726573733b20746869732063617573657320 6d6573736167657320746f20676f206f7574207769746820746865207479706963616c20 496e7465726e657420636f6e>117 212.4 R -.15<7665>-.4 G .504 <6e74696f6e206f66207573696e67>.15 F -.74<6060>117 224.4 S/F2 10 /Times-Italic@0 SF<6c697374>.74 E F1<2d7265717565737427>A 2.5<2761>-.74 G 2.5<7374>-2.5 G<68652072657475726e20616464726573732e>-2.5 E F0 2.5 <322e372e2055736572>87 248.4 R<496e66>2.5 E <6f726d6174696f6e204461746162617365>-.25 E F1 3.636<54686973206f7074696f 6e20697320646570726563617465642c207573652076697274757365727461626c652061 6e642067656e65726963737461626c6520696e73746561642061732065>127 264.6 R 3.635<78706c61696e656420696e>-.15 F F2<63662f524541444d45>102 276.6 Q F1 5.06<2e49>C 2.56<6679>-5.06 G .06<6f75206861>-2.56 F .36 -.15 <76652061207665>-.2 H .06<7273696f6e206f66>.15 F F2<73656e646d61696c> 2.56 E F1 .06<7769746820746865207573657220696e666f726d6174696f6e20646174 616261736520636f6d70696c656420696e2c20616e64>2.56 F .765<796f75206861> 102 288.6 R 1.065 -.15<76652073>-.2 H .764<706563698c6564206f6e65206f72 206d6f726520646174616261736573207573696e6720746865>.15 F F0<55>3.264 E F1 .764<6f7074696f6e2c20746865206461746162617365732077696c6c206265207365 61726368656420666f722061>3.264 F F2<75736572>102 300.6 Q F1 <3a6d61696c64726f7020656e747279>A 5<2e49>-.65 G 2.5<6666>-5 G<6f756e642c 20746865206d61696c2077696c6c2062652073656e7420746f207468652073706563698c 656420616464726573732e>-2.5 E F0 2.5<322e382e2050>87 324.6 R<6572>-.2 E <2d557365722046>-.37 E<6f7277617264696e6720282e66>-.25 E <6f72776172642046696c657329>-.25 E F1 .12 <417320616e20616c7465726e617469>127 340.8 R .42 -.15<76652074>-.25 H 2.62<6f74>.15 G .12<686520616c6961732064617461626173652c20616e>-2.62 F 2.62<7975>-.15 G .121<736572206d6179207075742061208c6c652077697468207468 65206e616d6520992e666f7277>-2.62 F .121<6172649a20696e20686973>-.1 F .205<6f722068657220686f6d65206469726563746f7279>102 352.8 R 5.205<2e49> -.65 G 2.705<6674>-5.205 G .205<686973208c6c652065>-2.705 F <78697374732c>-.15 E F2<73656e646d61696c>2.705 E F1 .205<72656469726563 7473206d61696c20666f722074686174207573657220746f20746865206c697374206f66 20616464726573736573>2.705 F .664 <6c697374656420696e20746865202e666f7277>102 364.8 R .664 <617264208c6c652e>-.1 F .665 <4e6f7465207468617420616c6961736573206172652066756c6c792065>5.664 F .665 <7870616e646564206265666f726520666f7277>-.15 F .665 <617264208c6c657320617265207265666572656e6365642e>-.1 F -.15<466f>102 376.8 S 2.5<7265>.15 G<78616d706c652c2069662074686520686f6d652064697265 63746f727920666f72207573657220996d636b757369636b9a206861732061202e666f72 77>-2.65 E<617264208c6c65207769746820636f6e74656e74733a>-.1 E <6d636b757369636b4065726e6965>142 393 Q<6b69726b4063616c646572>142 405 Q <7468656e20616e>102 421.2 Q 2.5<796d>-.15 G<61696c2061727269>-2.5 E<7669 6e6720666f7220996d636b757369636b9a2077696c6c2062652072656469726563746564 20746f207468652073706563698c6564206163636f756e74732e>-.25 E <41637475616c6c79>127 437.4 Q 3.375<2c74>-.65 G .874<686520636f6e8c6775 726174696f6e208c6c652064658c6e657320612073657175656e6365206f66208c6c656e 616d657320746f20636865636b2e>-3.375 F .874<427920646566>5.874 F .874 <61756c742c2074686973206973>-.1 F .516<746865207573657227>102 449.4 R 3.016<732e>-.55 G<666f7277>-3.016 E .517<617264208c6c652c2062>-.1 F .517 <75742063616e2062652064658c6e656420746f206265206d6f72652067656e6572616c 6c79207573696e6720746865>-.2 F F0 -.25<466f>3.017 G<727761726450>.25 E <617468>-.1 E F1 3.017<6f7074696f6e2e204966>3.017 F .183 <796f75206368616e676520746869732c20796f752077696c6c206861>102 461.4 R .482 -.15<76652074>-.2 H 2.682<6f69>.15 G .182<6e666f726d20796f75722075 7365722062617365206f6620746865206368616e67653b202e666f7277>-2.682 F .182 <617264206973207072657474792077656c6c20696e636f72>-.1 F<2d>-.2 E <706f726174656420696e746f2074686520636f6c6c65637469>102 473.4 Q .3 -.15 <76652073>-.25 H<7562636f6e7363696f75732e>.15 E F0 2.5 <322e392e205370656369616c>87 497.4 R<486561646572204c696e6573>2.5 E F1 <5365>127 513.6 Q -.15<7665>-.25 G 1.897 <72616c20686561646572206c696e6573206861>.15 F 2.197 -.15<76652073>-.2 H 1.897<70656369616c20696e746572707265746174696f6e732064658c6e656420627920 74686520636f6e8c6775726174696f6e208c6c652e>.15 F<4f7468657273>6.898 E <6861>102 525.6 Q 1.206 -.15<76652069>-.2 H .906 <6e746572707265746174696f6e732062>.15 F .906<75696c7420696e746f>-.2 F F2 <73656e646d61696c>3.406 E F1 .905<746861742063616e6e6f74206265206368616e 67656420776974686f7574206368616e67696e672074686520636f64652e>3.406 F <5468657365>5.905 E -.2<6275>102 537.6 S <696c742d696e73206172652064657363726962656420686572652e>.2 E F0 2.5 <322e392e312e20457272>102 561.6 R<6f72732d54>-.18 E<6f3a>-.92 E F1 .22 <4966206572726f7273206f6363757220616e>142 577.8 R .22<797768657265206475 72696e672070726f63657373696e672c2074686973206865616465722077696c6c206361 757365206572726f72206d6573736167657320746f20676f20746f>-.15 F <746865206c6973746564206164647265737365732e>117 589.8 Q <5468697320697320696e74656e64656420666f72206d61696c696e67206c697374732e> 5 E .385<546865204572726f72732d54>142 606 R .385<6f3a206865616465722077> -.8 F .384<6173206372656174656420696e2074686520626164206f6c642064617973 207768656e2055554350206469646e27>-.1 F 2.884<7475>-.18 G .384 <6e6465727374616e6420746865>-2.884 F .889 <64697374696e6374696f6e206265747765656e20616e20656e>117 618 R -.15<7665> -.4 G .889<6c6f706520616e642061206865616465723b20746869732077>.15 F .889 <61732061206861636b20746f2070726f>-.1 F .89 <7669646520776861742073686f756c64206e6f>-.15 F 3.39<7762>-.25 G<65>-3.39 E .81<7061737365642061732074686520656e>117 630 R -.15<7665>-.4 G .81 <6c6f70652073656e64657220616464726573732e>.15 F .809 <49742073686f756c6420676f2061>5.81 F -.1<7761>-.15 G 4.609 -.65 <792e2049>.1 H 3.309<7469>.65 G 3.309<736f>-3.309 G .809 <6e6c79207573656420696620746865>-3.309 F F0<557365457272>3.309 E <6f727354>-.18 E<6f>-.92 E F1<6f7074696f6e206973207365742e>117 642 Q <546865204572726f72732d54>142 658.2 Q<6f3a20686561646572206973206f66>-.8 E<8c6369616c6c79206465707265636174656420616e642077696c6c20676f2061>-.25 E -.1<7761>-.15 G 2.5<7969>.1 G 2.5<6e6166>-2.5 G <75747572652072656c656173652e>-2.5 E F0 2.5<322e392e322e2041>102 682.2 R <70706172>-.25 E<656e746c792d54>-.18 E<6f3a>-.92 E F1 .044<524643203832 32207265717569726573206174206c65617374206f6e6520726563697069656e74208c65 6c64202854>142 698.4 R .045 <6f3a2c2043633a2c206f72204263633a206c696e652920696e2065>-.8 F -.15<7665> -.25 G .045<7279206d6573736167652e>.15 F .045<49662061>5.045 F .562<6d65 737361676520636f6d657320696e2077697468206e6f20726563697069656e7473206c69 7374656420696e20746865206d657373616765207468656e>117 710.4 R F2 <73656e646d61696c>3.062 E F1 .562 <77696c6c2061646a7573742074686520686561646572>3.062 F .085<626173656420 6f6e2074686520994e6f526563697069656e74416374696f6e9a206f7074696f6e2e>117 722.4 R .085<4f6e65206f662074686520706f737369626c6520616374696f6e732069 7320746f2061646420616e2099>5.085 F<4170706172656e746c792d>-.8 E 0 Cg EP %%Page: 23 19 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3233>195.86 E /F1 10/Times-Roman@0 SF -.8<546f>117 96 S <3a9a20686561646572206c696e6520666f7220616e>.8 E 2.5<7972>-.15 G <6563697069656e74732069742069732061>-2.5 E -.1<7761>-.15 G<7265206f662e> .1 E .911<546865204170706172656e746c792d54>142 112.2 R .911<6f3a20686561 646572206973206e6f6e2d7374616e6461726420616e6420697320626f74682064657072 65636174656420616e64207374726f6e676c7920646973636f7572>-.8 F<2d>-.2 E <616765642e>117 124.2 Q F0 2.5<322e392e332e205072>102 148.2 R <65636564656e6365>-.18 E F1 .425<54686520507265636564656e63653a20686561 6465722063616e2062652075736564206173206120637275646520636f6e74726f6c206f 66206d657373616765207072696f72697479>142 164.4 R 5.425<2e49>-.65 G 2.925 <7474>-5.425 G .425<7765616b7320746865>-2.925 F .181<736f7274206f726465 7220696e2074686520717565756520616e642063616e20626520636f6e8c677572656420 746f206368616e676520746865206d6573736167652074696d656f75742076>117 176.4 R 2.681<616c7565732e20546865>-.25 F<70726563652d>2.681 E .234 <64656e6365206f662061206d65737361676520616c736f20636f6e74726f6c7320686f> 117 188.4 R 2.734<7764>-.25 G<656c69>-2.734 E -.15<7665>-.25 G .235<7279 20737461747573206e6f74698c636174696f6e73202844534e7329206172652070726f63 657373656420666f722074686174>.15 F<6d6573736167652e>117 200.4 Q F0 2.5 <322e31302e204944454e54>87 224.4 R<5072>2.5 E <6f746f636f6c20537570706f7274>-.18 E/F2 10/Times-Italic@0 SF <53656e646d61696c>127 240.6 Q F1 .746<737570706f72747320746865204944454e 542070726f746f636f6c2061732064658c6e656420696e2052464320313431332e>3.246 F .745<4e6f746520746861742074686520524643207374617465732061>5.745 F 1.36 <636c69656e742073686f756c642077>102 252.6 R 1.36<616974206174206c656173 74203330207365636f6e647320666f72206120726573706f6e73652e>-.1 F 1.361 <54686520646566>6.361 F 1.361<61756c742054>-.1 F 1.361 <696d656f75742e6964656e742069732035207365636f6e6473206173>-.35 F<6d616e> 102 264.6 Q 3.024<7973>-.15 G .524<69746573206861>-3.024 F .824 -.15 <76652061>-.2 H .524<646f7074656420746865207072616374696365206f66206472 6f7070696e67204944454e5420717565726965732e>.15 F .524 <5468697320686173206c65616420746f2064656c6179732070726f636573732d>5.524 F .451<696e67206d61696c2e>102 276.6 R .452<416c74686f756768207468697320 656e68616e636573206964656e74698c636174696f6e206f662074686520617574686f72 206f6620616e20656d61696c206d65737361676520627920646f696e6720612060>5.451 F<6063616c6c>-.74 E<6261636b27>102 288.6 Q 3.628<2774>-.74 G 3.628<6f74> -3.628 G 1.128<6865206f726967696e6174696e672073797374656d20746f20696e63 6c75646520746865206f>-3.628 F 1.127<776e6572206f66206120706172746963756c 61722054435020636f6e6e656374696f6e20696e20746865206175646974>-.25 F .164 <747261696c20697420697320696e206e6f2073656e736520706572666563743b206120 64657465726d696e656420666f72>102 300.6 R .164<6765722063616e20656173696c 792073706f6f6620746865204944454e542070726f746f636f6c2e>-.18 F .165 <54686520666f6c6c6f>5.165 F<772d>-.25 E <696e67206465736372697074696f6e2069732065>102 312.6 Q <78636572707465642066726f6d2052464320313431333a>-.15 E 2.5 <362e205365637572697479>127 328.8 R<436f6e73696465726174696f6e73>2.5 E .006<54686520696e666f726d6174696f6e2072657475726e6564206279207468697320 70726f746f636f6c206973206174206d6f737420617320747275737477>127 345 R <6f727468>-.1 E 2.505<7961>-.05 G 2.505<7374>-2.505 G .005 <686520686f73742070726f>-2.505 F .005<766964696e67206974204f52>-.15 F .273<746865206f72>127 357 R -.05<6761>-.18 G .273 <6e697a6174696f6e206f7065726174696e672074686520686f73742e>.05 F -.15 <466f>5.273 G 2.773<7265>.15 G .274 <78616d706c652c206120504320696e20616e206f70656e206c616220686173206665> -2.923 F 2.774<7769>-.25 G 2.774<6661>-2.774 G .574 -.15<6e792063>-2.774 H<6f6e74726f6c73>.15 E .987<6f6e20697420746f20707265>127 369 R -.15 <7665>-.25 G .986<6e74206120757365722066726f6d206861>.15 F .986 <76696e6720746869732070726f746f636f6c2072657475726e20616e>-.2 F 3.486 <7969>-.15 G .986<64656e74698c65722074686520757365722077>-3.486 F 3.486 <616e74732e204c696b>-.1 F<652d>-.1 E 1.441<776973652c206966207468652068 6f737420686173206265656e20636f6d70726f6d697365642074686520696e666f726d61 74696f6e2072657475726e6564206d617920626520636f6d706c6574656c79206572726f 2d>127 381 R<6e656f757320616e64206d69736c656164696e672e>127 393 Q .521< 546865204964656e74698c636174696f6e2050726f746f636f6c206973206e6f7420696e 74656e64656420617320616e20617574686f72697a6174696f6e206f7220616363657373 20636f6e74726f6c2070726f746f636f6c2e>127 409.2 R<4174>5.52 E 1.036 <626573742c2069742070726f>127 421.2 R 1.037<766964657320736f6d6520616464 6974696f6e616c206175646974696e6720696e666f726d6174696f6e2077697468207265 737065637420746f2054435020636f6e6e656374696f6e732e>-.15 F<4174>6.037 E -.1<776f>127 433.2 S<7273742c2069742063616e2070726f>.1 E<76696465206d69 736c656164696e672c20696e636f72726563742c206f72206d616c6963696f75736c7920 696e636f727265637420696e666f726d6174696f6e2e>-.15 E 1.006<54686520757365 206f662074686520696e666f726d6174696f6e2072657475726e65642062792074686973 2070726f746f636f6c20666f72206f74686572207468616e206175646974696e67206973 207374726f6e676c79206469732d>127 449.4 R 2.697 <636f7572616765642e2053706563698c63616c6c79>127 461.4 R 2.697<2c75>-.65 G .197<73696e67204964656e74698c636174696f6e2050726f746f636f6c20696e666f 726d6174696f6e20746f206d616b>-2.697 F 2.697<6561>-.1 G .197 <636365737320636f6e74726f6c20646563692d>-2.697 F .514<73696f6e73202d2065 697468657220617320746865207072696d617279206d6574686f642028692e652e2c206e 6f206f7468657220636865636b7329206f7220617320616e2061646a756e637420746f20 6f74686572206d6574686f6473>127 473.4 R <6d617920726573756c7420696e2061207765616b>127 485.4 Q <656e696e67206f66206e6f726d616c20686f7374207365637572697479>-.1 E<2e> -.65 E 1.778<416e204964656e74698c636174696f6e2073657276>127 501.6 R 1.778<6572206d6179207265>-.15 F -.15<7665>-.25 G 1.778<616c20696e666f72 6d6174696f6e2061626f75742075736572732c20656e7469746965732c206f626a656374 73206f722070726f636573736573>.15 F .337<7768696368206d69676874206e6f726d 616c6c7920626520636f6e7369646572656420707269>127 513.6 R -.25<7661>-.25 G 2.836<74652e20416e>.25 F .336<4964656e74698c636174696f6e2073657276> 2.836 F .336<65722070726f>-.15 F .336 <76696465732073657276696365207768696368>-.15 F .806<6973206120726f756768 20616e616c6f67206f66207468652043616c6c657249442073657276696365732070726f> 127 525.6 R .806<766964656420627920736f6d652070686f6e6520636f6d70616e69 657320616e64206d616e>-.15 F 3.306<796f>-.15 G<66>-3.306 E 1.398 <7468652073616d6520707269>127 537.6 R -.25<7661>-.25 G 1.698 -.15 <63792063>.25 H 1.398<6f6e73696465726174696f6e7320616e64206172>.15 F 1.398<67756d656e74732074686174206170706c7920746f207468652043616c6c657249 442073657276696365206170706c7920746f>-.18 F 3.545 <4964656e74698c636174696f6e2e204966>127 549.6 R 1.045<796f752077>3.545 F <6f756c646e27>-.1 E 3.545<7472>-.18 G 1.045 <756e206120228c6e676572222073657276>-3.545 F 1.046 <65722064756520746f20707269>-.15 F -.25<7661>-.25 G 1.346 -.15<63792063> .25 H 1.046<6f6e73696465726174696f6e7320796f75206d6179>.15 F<6e6f742077> 127 561.6 Q<616e7420746f2072756e20746869732070726f746f636f6c2e>-.1 E .377 <496e20736f6d6520636173657320796f75722073797374656d206d6179206e6f742077> 102 577.8 R .377<6f726b2070726f7065726c792077697468204944454e5420737570 706f72742064756520746f20612062>-.1 F .376 <756720696e20746865205443502f4950>-.2 F 3.675 <696d706c656d656e746174696f6e2e20546865>102 589.8 R 1.175<73796d70746f6d 732077696c6c206265207468617420666f7220736f6d6520686f7374732074686520534d 545020636f6e6e656374696f6e2077696c6c20626520636c6f736564>3.675 F .566 <616c6d6f737420696d6d6564696174656c79>102 601.8 R 5.566<2e49>-.65 G 3.066<6674>-5.566 G .565 <6869732069732074727565206f7220696620796f7520646f206e6f742077>-3.066 F .565<616e7420746f20757365204944454e54>-.1 F 3.065<2c79>-.74 G .565 <6f752073686f756c642073657420746865204944454e54>-3.065 F<74696d656f7574 20746f207a65726f3b20746869732077696c6c2064697361626c6520746865204944454e 542070726f746f636f6c2e>102 613.8 Q F0 2.5<332e20415247554d454e5453>72 637.8 R F1 .017<54686520636f6d706c657465206c697374206f66206172>112 654 R .017<67756d656e747320746f>-.18 F F2<73656e646d61696c>2.517 E F1 .017<69 732064657363726962656420696e2064657461696c20696e20417070656e64697820412e> 2.517 F .018<536f6d6520696d706f7274616e74>5.018 F<6172>87 666 Q <67756d656e7473206172652064657363726962656420686572652e>-.18 E F0 2.5 <332e312e205175657565>87 690 R<496e746572>2.5 E -.1<7661>-.1 G<6c>.1 E F1 .455<54686520616d6f756e74206f662074696d65206265747765656e20666f726b69 6e6720612070726f6365737320746f2072756e207468726f756768207468652071756575 652069732064658c6e656420627920746865>127 706.2 R F02.955 E F1 3.463<8d61672e204966>102 718.2 R .963 <796f752072756e20776974682064656c69>3.463 F -.15<7665>-.25 G .964 <7279206d6f64652073657420746f>.15 F F0<69>3.464 E F1<6f72>3.464 E F0<62> 3.464 E F1 .964<746869732063616e2062652072656c617469>3.464 F -.15<7665> -.25 G .964<6c79206c6172>.15 F .964 <67652c2073696e63652069742077696c6c206f6e6c79206265>-.18 F 0 Cg EP %%Page: 24 20 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d32342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<72656c65>102 96 Q -.25<7661>-.25 G .978 <6e74207768656e206120686f737420746861742077>.25 F .978<617320646f>-.1 F .978<776e20636f6d6573206261636b2075702e>-.25 F .978 <496620796f752072756e20696e>5.978 F F0<71>3.478 E F1 .978 <6d6f64652069742073686f756c642062652072656c617469>3.478 F -.15<7665>-.25 G<6c79>.15 E .468<73686f72742c2073696e63652069742064658c6e65732074686520 6d6178696d756d20616d6f756e74206f662074696d6520746861742061206d6573736167 65206d61792073697420696e207468652071756575652e>102 108 R .468 <2853656520616c736f>5.468 F <746865204d696e5175657565416765206f7074696f6e2e29>102 120 Q 1.336<524643 20313132332073656374696f6e20352e332e312e31207361797320746861742074686973 2076>127 136.2 R 1.335<616c75652073686f756c64206265206174206c6561737420 3330206d696e757465732028616c74686f7567682074686174>-.25 F <70726f6261626c7920646f65736e27>102 148.2 Q 2.5<746d>-.18 G<616b>-2.5 E 2.5<6573>-.1 G<656e736520696620796f75207573652060>-2.5 E <6071756575652d6f6e6c7927>-.74 E 2.5<276d>-.74 G<6f6465292e>-2.5 E .364 <4e6f746963653a20746865206d65616e696e67206f662074686520696e74657276>127 164.4 R .364<616c2074696d6520646570656e6473206f6e2077686574686572206e6f 726d616c2071756575652072756e6e657273206f72207065727369732d>-.25 F .208 <74656e742071756575652072756e6e6572732061726520757365642e>102 176.4 R -.15<466f>5.208 G 2.708<7274>.15 G .208<686520666f726d6572>-2.708 F 2.708<2c69>-.4 G 2.708<7469>-2.708 G 2.708<7374>-2.708 G .208<6865207469 6d65206265747765656e2073756273657175656e7420737461727473206f662061207175 6575652072756e2e>-2.708 F -.15<466f>102 188.4 S 3.349<7274>.15 G .849 <6865206c6174746572>-3.349 F 3.349<2c69>-.4 G 3.349<7469>-3.349 G 3.349 <7374>-3.349 G .849<68652074696d652073656e646d61696c2077>-3.349 F .85<61 69747320616674657220612070657273697374656e742071756575652072756e6e657220 686173208c6e6973686564206974732077>-.1 F .85<6f726b20746f>-.1 F .411 <737461727420746865206e65>102 200.4 R .411<7874206f6e652e>-.15 F .411<48 656e636520666f722070657273697374656e742071756575652072756e6e657273207468 697320696e74657276>5.411 F .41<616c2073686f756c642062652076>-.25 F .41 <657279206c6f>-.15 F 1.71 -.65<772c2074>-.25 H .41 <79706963616c6c79206e6f>.65 F<6d6f7265207468616e207477>102 212.4 Q 2.5 <6f6d>-.1 G<696e757465732e>-2.5 E F0 2.5<332e322e204461656d6f6e>87 236.4 R<4d6f6465>2.5 E F1 .084<496620796f7520616c6c6f>127 252.6 R 2.584<7769> -.25 G .084<6e636f6d696e67206d61696c206f>-2.584 F -.15<7665>-.15 G 2.585 <7261>.15 G 2.585<6e49>-2.585 G .085 <504320636f6e6e656374696f6e2c20796f752073686f756c64206861>-2.585 F .385 -.15<766520612064>-.2 H .085<61656d6f6e2072756e6e696e672e>.15 F <54686973>5.085 E .07<73686f756c642062652073657420627920796f7572>102 264.6 R/F2 10/Times-Italic@0 SF<2f6574632f72>2.57 E<63>-.37 E F1 .07 <8c6c65207573696e6720746865>2.57 F F02.57 E F1 2.569 <8d61672e20546865>2.57 F F02.569 E F1 .069 <8d616720616e6420746865>2.569 F F02.569 E F1 .069 <8d6167206d617920626520636f6d62696e6564>2.569 F <696e206f6e652063616c6c3a>102 276.6 Q <2f7573722f7362696e2f73656e646d61696c20ad626420ad7133306d>142 292.8 Q 1.14<416e20616c7465726e617469>127 313.2 R 1.44 -.15<76652061>-.25 H 1.14 <7070726f61636820697320746f20696e>.15 F -.2<766f>-.4 G 1.341 -.1 <6b652073>.2 H 1.141<656e646d61696c2066726f6d>.1 F F2<696e657464>3.641 E F1 1.141<283829202875736520746865>B F03.641 E F1 1.141 2.5 F 1.34<73656e646d61696c20746f207370 65616b20534d5450206f6e20697473207374616e6461726420696e70757420616e64206f 757470757420616e6420746f2072756e206173204d54>102 325.2 R 3.839 <41292e2054686973>-.93 F -.1<776f>3.839 G 1.339<726b7320616e64>.1 F <616c6c6f>102 337.2 Q .322<777320796f7520746f2077726170>-.25 F F2 <73656e646d61696c>2.822 E F1 .323 <696e20612054435020777261707065722070726f6772616d2c2062>2.823 F .323 <7574206d617920626520612062697420736c6f>-.2 F .323 <7765722073696e63652074686520636f6e8c67752d>-.25 F .346 <726174696f6e208c6c652068617320746f2062652072652d72656164206f6e2065>102 349.2 R -.15<7665>-.25 G .346 <7279206d657373616765207468617420636f6d657320696e2e>.15 F .345<49662079 6f7520646f20746869732c20796f75207374696c6c206e65656420746f206861>5.346 F .645 -.15<76652061>-.2 H F2<73656e646d61696c>102 361.2 Q F1 <72756e6e696e6720746f208d757368207468652071756575653a>2.5 E <2f7573722f7362696e2f73656e646d61696c20ad7133306d>142 377.4 Q F0 2.5 <332e332e2046>87 405.6 R<6f72>-.25 E<63696e6720746865205175657565>-.18 E F1 .04<496e20736f6d6520636173657320796f75206d6179208c6e6420746861742074 68652071756575652068617320676f7474656e20636c6f6767656420666f7220736f6d65 20726561736f6e2e>127 421.8 R -1.1<596f>5.04 G 2.54<7563>1.1 G .04 <616e20666f726365>-2.54 F 3.185<6171>102 433.8 S .685 <756575652072756e207573696e6720746865>-3.185 F F03.184 E F1 .684 <8d6167202877697468206e6f2076>3.184 F 3.184<616c7565292e204974>-.25 F .684<697320656e7465727461696e696e6720746f2075736520746865>3.184 F F0 3.184 E F1 .684<8d6167202876>3.184 F .684 <6572626f736529207768656e>-.15 F<7468697320697320646f6e6520746f2077>102 445.8 Q<6174636820776861742068617070656e733a>-.1 E <2f7573722f7362696e2f73656e646d61696c20ad7120ad76>142 462 Q -1.1<596f> 127 482.4 S 2.999<7563>1.1 G .499<616e20616c736f206c696d697420746865206a 6f627320746f2074686f73652077697468206120706172746963756c6172207175657565 206964656e74698c6572>-2.999 F 3<2c72>-.4 G .5 <6563697069656e742c2073656e646572>-3 F 3<2c71>-.4 G<756172>-3 E<2d>-.2 E 2.097<616e74696e6520726561736f6e2c206f722071756575652067726f757020757369 6e67206f6e65206f6620746865207175657565206d6f64698c6572732e>102 494.4 R -.15<466f>7.097 G 4.597<7265>.15 G 2.096 <78616d706c652c2099ad71526265726b>-4.747 F<656c65>-.1 E<799a>-.15 E 1.363<726573747269637473207468652071756575652072756e20746f206a6f62732074 686174206861>102 506.4 R 1.664 -.15<76652074>-.2 H 1.364 <686520737472696e6720996265726b>.15 F<656c65>-.1 E 1.364<799a20736f6d65> -.15 F 1.364<776865726520696e206f6e65206f662074686520726563697069656e74> -.25 F 2.843<6164647265737365732e2053696d696c61726c79>102 518.4 R 2.843 <2c99>-.65 G .342-2.843 F .408<756c6172207175657565 206964656e74698c6572732c20616e642099ad7151737472696e679a206c696d69747320 697420746f20706172746963756c61722071756172616e74696e656420726561736f6e73 20616e64206f6e6c79206f70657261746564>102 530.4 R 1.748<6f6e207175617261 6e74696e6564207175657565206974656d732c20616e642099ad7147737472696e679a20 6c696d69747320697420746f206120706172746963756c61722071756575652067726f75 702e>102 542.4 R 1.747<546865206e616d6564>6.747 F .388 <71756575652067726f75702077696c6c2062652072756e2065>102 554.4 R -.15 <7665>-.25 G 2.888<6e69>.15 G 2.888<6669>-2.888 G 2.888<7469>-2.888 G 2.888<7373>-2.888 G .388<657420746f206861>-2.888 F .688 -.15 <766520302072>-.2 H 2.888<756e6e6572732e2059>.15 F .388 <6f75206d617920616c736f20706c61636520616e>-1.1 F F0<21>2.889 E F1 .389 <6265666f726520746865>5.389 F F0<49>2.889 E F1<6f72>2.889 E F0<52>102 566.4 Q F1<6f72>3.053 E F0<53>3.053 E F1<6f72>3.053 E F0<51>3.053 E F1 .552<746f20696e6469636174652074686174206a6f627320617265206c696d69746564 20746f206e6f7420696e636c7564696e67206120706172746963756c6172207175657565 206964656e74698c6572>3.052 F 3.052<2c72>-.4 G<6563697069656e74>-3.052 E .251<6f722073656e646572>102 578.4 R 5.251<2e46>-.55 G .251<6f722065> -5.401 F .252<78616d706c652c2099ad71215273656174746c659a206c696d69747320 7468652071756575652072756e20746f206a6f6273207468617420646f206e6f74206861> -.15 F .552 -.15<76652074>-.2 H .252<686520737472696e672099736561742d> .15 F .297<746c659a20736f6d65>102 590.4 R .297<776865726520696e206f6e65 206f662074686520726563697069656e74206164647265737365732e>-.25 F .297<53 686f756c6420796f75206e65656420746f207465726d696e617465207468652071756575 65206a6f627320637572>5.297 F<2d>-.2 E<72656e746c792061637469>102 602.4 Q .3 -.15<76652074>-.25 H<68656e2061205349475445524d20746f2074686520706172 656e74206f66207468652070726f6365737320286f722070726f63657373657329207769 6c6c20636c65616e6c792073746f7020746865206a6f62732e>.15 E F0 2.5 <332e342e20446562>87 626.4 R<756767696e67>-.2 E F1 .255 <54686572652061726520612066>127 642.6 R .256<6169726c79206c6172>-.1 F .256<6765206e756d626572206f6620646562>-.18 F .256<7567208d6167732062>-.2 F .256<75696c7420696e746f>-.2 F F2<73656e646d61696c>2.756 E F1 5.256 <2e45>C .256<61636820646562>-5.256 F .256 <7567208d6167206861732061206361742d>-.2 F -.15<6567>102 654.6 S .502 <6f727920616e642061206c65>.15 F -.15<7665>-.25 G 3.002 <6c2e20486967686572>.15 F<6c65>3.002 E -.15<7665>-.25 G .502 <6c7320696e63726561736520746865206c65>.15 F -.15<7665>-.25 G 3.002<6c6f> .15 G 3.002<6664>-3.002 G<6562>-3.002 E .502<756767696e672061637469>-.2 F .502<766974793b20696e206d6f73742063617365732c2074686973206d65616e73> -.25 F .137 <746f207072696e74206f7574206d6f726520696e666f726d6174696f6e2e>102 666.6 R .137<54686520636f6e>5.137 F -.15<7665>-.4 G .137 <6e74696f6e2069732074686174206c65>.15 F -.15<7665>-.25 G .138 <6c732067726561746572207468616e206e696e652061726520996162737572642c>.15 F 2.638<9a69>-.7 G .138<2e652e2c20746865>-2.638 F<79>-.15 E .87<7072696e 74206f757420736f206d75636820696e666f726d6174696f6e207468617420796f752077> 102 678.6 R<6f756c646e27>-.1 E 3.369<746e>-.18 G .869 <6f726d616c6c792077>-3.369 F .869<616e7420746f20736565207468656d2065>-.1 F .869<786365707420666f7220646562>-.15 F<756767696e67>-.2 E <7468617420706172746963756c6172207069656365206f6620636f64652e>102 690.6 Q -1.1<596f>127 706.8 S 2.866<7573>1.1 G<686f756c64>-2.866 E F0<6e65> 2.866 E -.1<7665>-.15 G<72>.1 E F1 .366 <72756e20612070726f64756374696f6e2073656e646d61696c2073657276>2.866 F .366<657220696e20646562>-.15 F .366<7567206d6f64652e>-.2 F<4d616e>5.366 E 2.866<796f>-.15 G 2.866<6674>-2.866 G .366<686520646562>-2.866 F .366 <7567208d616773>-.2 F .907<77696c6c20726573756c7420696e20646562>102 718.8 R .907<7567206f7574707574206265696e672073656e74206f>-.2 F -.15 <7665>-.15 G 3.407<7274>.15 G .907 <686520534d5450206368616e6e656c20756e6c65737320746865206f7074696f6e> -3.407 F F03.407 E F1 .907<697320757365642e>3.407 F<54686973>5.907 E 0 Cg EP %%Page: 25 21 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3235>195.86 E /F1 10/Times-Roman@0 SF 1.225<77696c6c20636f6e66757365206d616e>102 96 R 3.725<796d>-.15 G 1.225<61696c2070726f6772616d732e>-3.725 F<486f>6.225 E <7765>-.25 E -.15<7665>-.25 G 2.025 -.4<722c2066>.15 H 1.225<6f72207465 7374696e6720707572706f7365732c2069742063616e2062652075736566756c20776865 6e2073656e64696e67>.4 F<6d61696c206d616e75616c6c79207669612074656c6e6574 20746f2074686520706f727420796f7520617265207573696e67207768696c6520646562> 102 108 Q<756767696e672e>-.2 E 2.754<4164>127 124.2 S<6562>-2.754 E .254 <75672063617465>-.2 F .254<676f72792069732065697468657220616e20696e7465> -.15 F<676572>-.15 E 2.754<2c6c>-.4 G<696b>-2.754 E 2.754<6534>-.1 G .254<322c206f722061206e616d652c206c696b>-2.754 F 2.754<6541>-.1 G 2.754 <4e53492e2059>-2.754 F .254 <6f752063616e207370656369667920612072616e6765>-1.1 F .928 <6f66206e756d6572696320646562>102 136.2 R .928<75672063617465>-.2 F .928 <676f72696573207573696e67207468652073796e7461782031372d34322e>-.15 F -1.1<596f>5.928 G 3.428<7563>1.1 G .928 <616e2073706563696679206120736574206f66206e616d656420646562>-3.428 F .929<756720636174652d>-.2 F .484 <676f72696573207573696e67206120676c6f62207061747465726e206c696b>102 148.2 R 2.984<6599>-.1 G 2.984<736d5f74726163655f2a9a2e204174>-2.984 F .484<70726573656e742c206f6e6c7920992a9a20616e6420993f9a>2.984 F .483 <61726520737570706f7274656420696e207468657365>5.483 F <676c6f62207061747465726e732e>102 160.2 Q<446562>127 176.4 Q <7567208d6167732061726520736574207573696e6720746865>-.2 E F02.5 E F1<6f7074696f6e3b207468652073796e7461782069733a>2.5 E<646562>142 192.6 Q <75672d8d61673a>-.2 E F036.78 E F1<646562>2.5 E<75672d6c697374>-.2 E<646562>142 204.6 Q 37.05<75672d6c6973743a20646562>-.2 F <75672d6f7074696f6e205b202c20646562>-.2 E<75672d6f7074696f6e205d2a>-.2 E <646562>142 216.6 Q 23.72<75672d6f7074696f6e3a20646562>-.2 F <75672d63617465>-.2 E<676f72696573205b202e20646562>-.15 E<75672d6c65>-.2 E -.15<7665>-.25 G 2.5<6c5d>.15 G<646562>142 228.6 Q<75672d63617465>-.2 E 8.89<676f726965733a20696e7465>-.15 F<676572207c20696e7465>-.15 E <67657220ad20696e7465>-.15 E<676572207c2063617465>-.15 E <676f72792d7061747465726e>-.15 E<63617465>142 240.6 Q 11.47<676f72792d70 61747465726e3a205b612d7a412d5a5f2a3f5d5b612d7a412d5a302d395f2a3f5d2a> -.15 F<646562>142 252.6 Q<75672d6c65>-.2 E -.15<7665>-.25 G 30.24 <6c3a20696e7465>.15 F<676572>-.15 E<776865726520737061636573206172652066 6f722072656164696e672065617365206f6e6c79>102 268.8 Q 5<2e46>-.65 G <6f722065>-5.15 E<78616d706c652c>-.15 E 58.99142 285 R <63617465>2.5 E<676f727920313220746f206c65>-.15 E -.15<7665>-.25 G 2.5 <6c31>.15 G 51.49142 297 R<63617465>2.5 E <676f727920313220746f206c65>-.15 E -.15<7665>-.25 G 2.5<6c33>.15 G 48.35 142 309 R<63617465>2.5 E <676f726965732033207468726f75676820313720746f206c65>-.15 E -.15<7665> -.25 G 2.5<6c31>.15 G 40.85142 321 R<63617465> 2.5 E<676f726965732033207468726f75676820313720746f206c65>-.15 E -.15 <7665>-.25 G 2.5<6c34>.15 G 45.66142 333 R <63617465>2.5 E<676f727920414e534920746f206c65>-.15 E -.15<7665>-.25 G 2.5<6c31>.15 G 15.39142 345 R <616c6c206e616d65642063617465>2.5 E <676f72696573206d61746368696e6720736d5f74726163655f2a20746f206c65>-.15 E -.15<7665>-.25 G 2.5<6c33>.15 G -.15<466f>102 361.2 S 3.283<726163>.15 G .783<6f6d706c657465206c697374206f66207468652061>-3.283 F -.25<7661>-.2 G .783<696c61626c6520646562>.25 F .783 <7567208d61677320796f752077696c6c206861>-.2 F 1.083 -.15<76652074>-.2 H 3.283<6f6c>.15 G .783<6f6f6b2061742074686520636f646520616e6420746865> -3.283 F/F2 10/Times-Italic@0 SF<545241>3.284 E<43452d>-.3 E<464c41>102 373.2 Q<4753>-.35 E F1 1.062 <8c6c6520696e207468652073656e646d61696c2064697374726962>3.562 F 1.062 <7574696f6e2028746865>-.2 F 3.562<7961>-.15 G 1.062 <726520746f6f2064796e616d696320746f206b>-3.562 F 1.062 <656570207468697320646f63756d656e7420757020746f2064617465292e>-.1 F -.15 <466f>102 385.2 S 2.5<72616c>.15 G<697374206f66206e616d656420646562>-2.5 E<75672063617465>-.2 E <676f7269657320696e207468652073656e646d61696c2062696e617279>-.15 E 2.5 <2c75>-.65 G<7365>-2.5 E <6964656e74202f7573722f7362696e2f73656e646d61696c207c206772657020446562> 142 401.4 Q<7567>-.2 E F0 2.5<332e352e204368616e67696e67>87 429.6 R <7468652056>2.5 E<616c756573206f66204f7074696f6e73>-.92 E F1 <4f7074696f6e732063616e206265206f>127 445.8 Q -.15<7665>-.15 G <7272696464656e207573696e6720746865>.15 E F02.5 E F1<6f72>2.5 E F0 2.5 E F1<636f6d6d616e64206c696e65208d6167732e>2.5 E -.15<466f>5 G 2.5<7265>.15 G<78616d706c652c>-2.65 E <2f7573722f7362696e2f73656e646d61696c20ad6f54326d>142 462 Q .02 <7365747320746865>102 478.2 R F0<54>2.52 E F1 .02 <2874696d656f757429206f7074696f6e20746f207477>2.52 F 2.52<6f6d>-.1 G .021 <696e7574657320666f7220746869732072756e206f6e6c793b207468652065717569> -2.52 F -.25<7661>-.25 G .021 <6c656e74206c696e65207573696e6720746865206c6f6e67206f7074696f6e>.25 F <6e616d65206973>102 490.2 Q<2f7573722f7362696e2f73656e646d61696c202d4f> 142 506.4 Q -.35<5469>-.4 G<6d656f75742e717565756572657475726e3d326d>.35 E .72<536f6d65206f7074696f6e73206861>127 526.8 R 1.02 -.15<76652073>-.2 H .72<6563757269747920696d706c69636174696f6e732e>.15 F .72 <53656e646d61696c20616c6c6f>5.72 F .72 <777320796f7520746f207365742074686573652c2062>-.25 F .72 <75742072656c696e71756973686573>-.2 F<697473207365742d75736572>102 540.8 Q<2d4944206f72207365742d67726f75702d4944207065726d697373696f6e7320746865 72656166746572>-.2 E/F3 7/Times-Roman@0 SF<3132>-4 I F1<2e>4 I F0 2.5 <332e362e2054>87 564.8 R<7279696e67206120446966666572>-.74 E <656e7420436f6e8c6775726174696f6e2046696c65>-.18 E F1 <416e20616c7465726e617469>127 581 Q .3 -.15<76652063>-.25 H<6f6e8c677572 6174696f6e208c6c652063616e2062652073706563698c6564207573696e6720746865> .15 E F02.5 E F1<8d61673b20666f722065>2.5 E<78616d706c652c>-.15 E< 2f7573722f7362696e2f73656e646d61696c20ad43746573742e636620ad6f512f746d70 2f6d7175657565>142 597.2 Q .68 <757365732074686520636f6e8c6775726174696f6e208c6c65>102 613.4 R F2 <746573742e6366>3.18 E F1 .68<696e7374656164206f662074686520646566>3.18 F<61756c74>-.1 E F2<2f6574632f6d61696c2f73656e646d61696c2e6366>3.18 E <2e>-.15 E F1 .68<496620746865>5.68 F F03.18 E F1 .68 <8d616720686173206e6f>3.18 F -.25<7661>102 625.4 S<6c756520697420646566> .25 E<61756c747320746f>-.1 E F2<73656e646d61696c2e6366>2.5 E F1 <696e207468652063757272656e74206469726563746f7279>2.5 E<2e>-.65 E F2 <53656e646d61696c>127 641.6 Q F1<6769>2.57 E -.15<7665>-.25 G 2.57<7375> .15 G 2.57<7073>-2.57 G<65742d75736572>-2.57 E .071<2d494420726f6f742070 65726d697373696f6e732028696620697420686173206265656e20696e7374616c6c6564 207365742d75736572>-.2 F .071<2d494420726f6f7429207768656e>-.2 F .779<79 6f75207573652074686973208d61672c20736f20697420697320636f6d6d6f6e20746f20 7573652061207075626c69636c79207772697461626c65206469726563746f7279202873 756368206173202f746d702920617320746865207175657565>102 653.6 R<64697265 63746f7279202851756575654469726563746f7279206f722051206f7074696f6e292077 68696c652074657374696e672e>102 665.6 Q .32 LW 76 675.2 72 675.2 DL 80 675.2 76 675.2 DL 84 675.2 80 675.2 DL 88 675.2 84 675.2 DL 92 675.2 88 675.2 DL 96 675.2 92 675.2 DL 100 675.2 96 675.2 DL 104 675.2 100 675.2 DL 108 675.2 104 675.2 DL 112 675.2 108 675.2 DL 116 675.2 112 675.2 DL 120 675.2 116 675.2 DL 124 675.2 120 675.2 DL 128 675.2 124 675.2 DL 132 675.2 128 675.2 DL 136 675.2 132 675.2 DL 140 675.2 136 675.2 DL 144 675.2 140 675.2 DL 148 675.2 144 675.2 DL 152 675.2 148 675.2 DL 156 675.2 152 675.2 DL 160 675.2 156 675.2 DL 164 675.2 160 675.2 DL 168 675.2 164 675.2 DL 172 675.2 168 675.2 DL 176 675.2 172 675.2 DL 180 675.2 176 675.2 DL 184 675.2 180 675.2 DL 188 675.2 184 675.2 DL 192 675.2 188 675.2 DL 196 675.2 192 675.2 DL 200 675.2 196 675.2 DL 204 675.2 200 675.2 DL 208 675.2 204 675.2 DL 212 675.2 208 675.2 DL 216 675.2 212 675.2 DL/F4 5/Times-Roman@0 SF<3132>93.6 685.6 Q/F5 8 /Times-Roman@0 SF .497<546861742069732c206974207365747320697473206566> 3.2 J<6665637469>-.2 E .737 -.12<76652075>-.2 H .497<696420746f20746865 207265616c207569643b20746875732c20696620796f75206172652065>.12 F -.12 <7865>-.12 G .497 <637574696e6720617320726f6f742c2061732066726f6d20726f6f7427>.12 F 2.497 <7363>-.44 G .497 <726f6e746162208c6c65206f7220647572696e672073797374656d>-2.497 F<737461 727475702074686520726f6f74207065726d697373696f6e732077696c6c207374696c6c 20626520686f6e6f7265642e>72 698.4 Q 0 Cg EP %%Page: 26 22 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d32362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E 2.5<332e372e204c6f6767696e67>87 96 R -.74<5472>2.5 G<61668c63>.74 E/F1 10/Times-Roman@0 SF<4d616e>127 112.2 Q 3.254<7953>-.15 G .754<4d54502069 6d706c656d656e746174696f6e7320646f206e6f742066756c6c7920696d706c656d656e 74207468652070726f746f636f6c2e>-3.254 F -.15<466f>5.754 G 3.254<7265>.15 G .755<78616d706c652c20736f6d6520706572>-3.404 F<2d>-.2 E 1.178<736f6e61 6c20636f6d707574657220626173656420534d54507320646f206e6f7420756e64657273 74616e6420636f6e74696e756174696f6e206c696e657320696e207265706c7920636f64 65732e>102 124.2 R 1.177<54686573652063616e206265>6.178 F -.15<7665>102 136.2 S .13<7279206861726420746f2074726163652e>.15 F .13<496620796f7520 73757370656374207375636820612070726f626c656d2c20796f752063616e2073657420 74726166>5.13 F .13<8c63206c6f6767696e67207573696e6720746865>-.25 F F0 2.63 E F1 2.63<8d61672e2046>2.63 F<6f72>-.15 E -.15<6578>102 148.2 S<616d706c652c>.15 E <2f7573722f7362696e2f73656e646d61696c20ad58202f746d702f74726166>142 164.4 Q<8c6320ad6264>-.25 E<77696c6c206c6f6720616c6c2074726166>102 180.6 Q<8c6320696e20746865208c6c65>-.25 E/F2 10/Times-Italic@0 SF <2f746d702f7472>2.5 E<6166>-.15 E<8c63>-.18 E F1<2e>A .998 <54686973206c6f67732061206c6f74206f6620646174612076>127 196.8 R .997 <65727920717569636b6c7920616e642073686f756c64>-.15 F F0<4e45564552>3.497 E F1 .997 <6265207573656420647572696e67206e6f726d616c206f7065726174696f6e732e> 3.497 F .962<4166746572207374617274696e6720757020737563682061206461656d 6f6e2c20666f7263652074686520657272616e7420696d706c656d656e746174696f6e20 746f2073656e642061206d65737361676520746f20796f757220686f73742e>102 208.8 R .609<416c6c206d6573736167652074726166>102 220.8 R .609 <8c6320696e20616e64206f7574206f66>-.25 F F2<73656e646d61696c>3.109 E F1 3.109<2c69>C .609 <6e636c7564696e672074686520696e636f6d696e6720534d54502074726166>-3.109 F .608<8c632c2077696c6c206265206c6f6767656420696e>-.25 F <74686973208c6c652e>102 232.8 Q F0 2.5<332e382e2054>87 256.8 R <657374696e6720436f6e8c6775726174696f6e2046696c6573>-.92 E F1 .643 <5768656e20796f752062>127 273 R .644<75696c64206120636f6e8c677572617469 6f6e207461626c652c20796f752063616e20646f2061206365727461696e20616d6f756e 74206f662074657374696e67207573696e6720746865209974657374>-.2 F <6d6f64659a206f66>102 285 Q F2<73656e646d61696c>2.5 E F1 5<2e46>C <6f722065>-5.15 E<78616d706c652c20796f7520636f756c6420696e>-.15 E -.2 <766f>-.4 G -.1<6b65>.2 G F2<73656e646d61696c>2.6 E F1<61733a>2.5 E <73656e646d61696c20ad627420ad43746573742e6366>142 301.2 Q .448 <77686963682077>102 317.4 R .448<6f756c6420726561642074686520636f6e8c67 75726174696f6e208c6c652099746573742e63669a20616e6420656e7465722074657374 206d6f64652e>-.1 F .447 <496e2074686973206d6f64652c20796f7520656e746572206c696e6573>5.447 F <6f662074686520666f726d3a>102 329.4 Q<72777365742061646472657373>142 345.6 Q<7768657265>102 361.8 Q F2<7277736574>3.006 E F1 .506 <697320746865207265>3.006 F .506<77726974696e672073657420796f752077>-.25 F .506<616e7420746f2075736520616e64>-.1 F F2<61646472>3.007 E<657373> -.37 E F1 .507 <697320616e206164647265737320746f206170706c79207468652073657420746f2e> 3.007 F -.7<5465>5.507 G<7374>.7 E .794<6d6f64652073686f>102 373.8 R .794<777320796f75207468652073746570732069742074616b>-.25 F .794 <65732061732069742070726f63656564732c208c6e616c6c792073686f>-.1 F .794< 77696e6720796f7520746865206164647265737320697420656e64732075702077697468 2e>-.25 F -1.1<596f>102 385.8 S 3.331<756d>1.1 G .832<617920757365206120 636f6d6d6120736570617261746564206c697374206f662072777365747320666f722073 657175656e7469616c206170706c69636174696f6e206f662072756c657320746f20616e 20696e7075742e>-3.331 F -.15<466f>5.832 G<72>.15 E -.15<6578>102 397.8 S <616d706c653a>.15 E<332c312c32312c34206d6f6e65743a626f6c6c617264>142 414 Q .622<8c727374206170706c6965732072756c6573657420746872656520746f207468 6520696e70757420996d6f6e65743a626f6c6c6172642e>102 430.2 R 5.622<9a52> -.7 G .622<756c65736574206f6e65206973207468656e206170706c69656420746f20 746865206f7574707574206f66>-5.622 F <72756c657365742074687265652c20666f6c6c6f>102 442.2 Q<7765642073696d696c 61726c792062792072756c6573657473207477656e74792d6f6e6520616e6420666f7572> -.25 E<2e>-.55 E 1.084<496620796f75206e656564206d6f72652064657461696c2c 20796f752063616e20616c736f20757365207468652099ad6432319a208d616720746f20 7475726e206f6e206d6f726520646562>127 458.4 R 3.585<756767696e672e2046> -.2 F<6f72>-.15 E -.15<6578>102 470.4 S<616d706c652c>.15 E <73656e646d61696c20ad627420ad6432312e3939>142 486.6 Q .689<7475726e7320 6f6e20616e20696e6372656469626c6520616d6f756e74206f6620696e666f726d617469 6f6e3b20612073696e676c652077>102 502.8 R .688<6f726420616464726573732069 732070726f6261626c7920676f696e6720746f207072696e74206f7574>-.1 F<7365> 102 514.8 Q -.15<7665>-.25 G<72616c2070616765732077>.15 E <6f727468206f6620696e666f726d6174696f6e2e>-.1 E -1.1<596f>127 531 S 2.574<7573>1.1 G .074<686f756c642062652077>-2.574 F .074 <61726e6564207468617420696e7465726e616c6c79>-.1 F<2c>-.65 E F2 <73656e646d61696c>2.575 E F1 .075 <6170706c6965732072756c65736574203320746f20616c6c206164647265737365732e> 2.575 F .075<496e2074657374206d6f6465>5.075 F<796f752077696c6c206861>102 543 Q .3 -.15<76652074>-.2 H 2.5<6f64>.15 G 2.5<6f74>-2.5 G <686174206d616e75616c6c79>-2.5 E 5<2e46>-.65 G<6f722065>-5.15 E <78616d706c652c206f6c6465722076>-.15 E<657273696f6e7320616c6c6f>-.15 E <77656420796f7520746f20757365>-.25 E 2.5<3062>142 559.2 S <727563654062726f6164636173742e736f6e>-2.5 E -.65<792e>-.15 G<636f6d>.65 E<546869732076>102 575.4 Q <657273696f6e207265717569726573207468617420796f75207573653a>-.15 E <332c302062727563654062726f6164636173742e736f6e>142 591.6 Q -.65<792e> -.15 G<636f6d>.65 E<4173206f662076>127 612 Q <657273696f6e20382e372c20736f6d65206f746865722073796e746178>-.15 E <6573206172652061>-.15 E -.25<7661>-.2 G <696c61626c6520696e2074657374206d6f64653a>.25 E -.834<2e4420782076>102 628.2 R 30.038<616c75652064658c6e6573>-.25 F<6d6163726f>2.953 E F2<78> 2.953 E F1 .453<746f206861>2.953 F .752 -.15<76652074>-.2 H .452 <686520696e64696361746564>.15 F F2<76616c7565>2.952 E F1 5.452<2e54>C .452<6869732069732075736566756c207768656e20646562>-5.452 F .452 <756767696e672072756c6573>-.2 F<746861742075736520746865>174 640.2 Q F0 <2426>2.5 E F2<78>A F1<73796e7461782e>2.5 E -.834<2e4320632076>102 656.4 R 31.148<616c75652061646473>-.25 F<74686520696e64696361746564>2.5 E F2 <76616c7565>2.5 E F1<746f20636c617373>2.5 E F2<63>2.5 E F1<2e>A -.834 <3d532072756c65736574>102 672.6 R<64756d70732074686520636f6e74656e747320 6f662074686520696e646963617465642072756c657365742e>32.474 E -.834 102 688.8 R 11.854<75672d73706563206973>-.2 F<65717569>2.5 E -.25<7661>-.25 G <6c656e7420746f2074686520636f6d6d616e642d6c696e65208d61672e>.25 E -1.11 <5665>102 705 S <7273696f6e20382e3920696e74726f6475636564206d6f72652066656174757265733a> 1.11 E 0 Cg EP %%Page: 27 23 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3237>195.86 E /F1 10/Times-Roman@0 SF 67.56<3f73>102 96 S<686f>-67.56 E <777320612068656c70206d6573736167652e>-.25 E 54.97<3d4d20646973706c6179> 102 112.2 R<746865206b6e6f>2.5 E<776e206d61696c6572732e>-.25 E 56.72 <246d207072696e74>102 128.4 R<7468652076>2.5 E <616c7565206f66206d6163726f206d2e>-.25 E 54.42<243d63207072696e74>102 144.6 R<74686520636f6e74656e7473206f6620636c61737320632e>2.5 E <2f6d7820686f7374>102 160.8 Q <72657475726e7320746865204d58207265636f72647320666f722060686f7374272e> 37.27 E<2f70617273652061646472657373>102 177 Q <706172736520616464726573732c2072657475726e696e67207468652076>15.63 E <616c7565206f66>-.25 E/F2 10/Times-Italic@0 SF<6372>2.5 E<6163>-.15 E <6b61646472>-.2 E F1 2.5<2c61>C <6e64207468652070617273656420616464726573732e>-2.5 E <2f747279206d61696c65722061646472>102 193.2 Q<7265>9.79 E<77726974652061 64647265737320696e746f2074686520666f726d2069742077696c6c206861>-.25 E .3 -.15<76652077>-.2 H<68656e2070726573656e74656420746f2074686520696e646963 61746564206d61696c6572>.15 E<2e>-.55 E<2f7472798d616773208d616773>102 209.4 Q 1.005<736574208d61677320757365642062792070617273696e672e>17.83 F 1.005<546865208d6167732063616e2062652060482720666f7220486561646572206f72 2060452720666f7220456e>6.005 F -.15<7665>-.4 G<6c6f70652c>.15 E .62<616e 642060532720666f722053656e646572206f722060522720666f7220526563697069656e 742e>174 221.4 R .62<54686573652063616e20626520636f6d62696e65642c206048 52272073657473208d616773>5.62 F <666f722068656164657220726563697069656e74732e>174 233.4 Q <2f63616e6f6e20686f73746e616d65>102 249.6 Q <74727920746f2063616e6f6e69667920686f73746e616d652e>4.51 E <2f6d6170206d61706e616d65206b>102 265.8 Q -.15<6579>-.1 G <6c6f6f6b20757020606b>174 277.8 Q -.15<6579>-.1 G 2.5<2769>.15 G 2.5 <6e74>-2.5 G<686520696e6469636174656420606d61706e616d65272e>-2.5 E 51.16 <2f717569742071756974>102 294 R<616464726573732074657374206d6f64652e>2.5 E F0 2.5<332e392e2050>87 310.2 R <657273697374656e7420486f73742053746174757320496e66>-.2 E <6f726d6174696f6e>-.25 E F1<5768656e>127 326.4 Q F0 <486f7374537461747573446972>2.569 E<6563746f7279>-.18 E F1 .069<69732065 6e61626c65642c20696e666f726d6174696f6e2061626f75742074686520737461747573 206f6620686f737473206973206d61696e7461696e6564206f6e>2.569 F .249<646973 6b20616e642063616e207468757320626520736861726564206265747765656e20646966> 102 338.4 R .249<666572656e7420696e7374616e74696174696f6e73206f66>-.25 F F2<73656e646d61696c>2.749 E F1 5.249<2e54>C .248 <686520737461747573206f6620746865206c61737420636f6e2d>-5.249 F<6e656374 696f6e207769746820656163682072656d6f746520686f7374206d617920626520766965> 102 350.4 Q<77656420776974682074686520636f6d6d616e643a>-.25 E <73656e646d61696c20ad6268>142 366.6 Q<5468697320696e666f726d6174696f6e20 6d6179206265208d757368656420776974682074686520636f6d6d616e643a>102 382.8 Q<73656e646d61696c20ad6248>142 399 Q 1.534 <466c757368696e672074686520696e666f726d6174696f6e20707265>102 415.2 R -.15<7665>-.25 G 1.534<6e7473206e65>.15 F<77>-.25 E F2<73656e646d61696c> 4.034 E F1 1.535 <70726f6365737365732066726f6d206c6f6164696e672069742c2062>4.035 F 1.535 <757420646f6573206e6f7420707265>-.2 F -.15<7665>-.25 G<6e74>.15 E -.15 <6578>102 427.2 S<697374696e672070726f6365737365732066726f6d207573696e67 207468652073746174757320696e666f726d6174696f6e207468617420746865>.15 E 2.5<7961>-.15 G<6c7265616479206861>-2.5 E -.15<7665>-.2 G<2e>.15 E F0 2.5<342e2054554e494e47>72 451.2 R F1 1.922<5468657265206172652061206e75 6d626572206f6620636f6e8c6775726174696f6e20706172616d657465727320796f7520 6d61792077>112 467.4 R 1.922 <616e7420746f206368616e67652c20646570656e64696e67206f6e20746865>-.1 F .366<726571756972656d656e7473206f6620796f757220736974652e>87 479.4 R .367<4d6f7374206f662074686573652061726520736574207573696e6720616e206f70 74696f6e20696e2074686520636f6e8c6775726174696f6e208c6c652e>5.366 F -.15 <466f>5.367 G 2.867<7265>.15 G<78616d706c652c>-3.017 E <746865206c696e6520994f2054>87 491.4 Q<696d656f75742e717565756572657475 726e3d35649a2073657473206f7074696f6e209954>-.35 E <696d656f75742e717565756572657475726e9a20746f207468652076>-.35 E <616c7565209935649a20288c76>-.25 E 2.5<6564>-.15 G<617973292e>-2.5 E .735<4d6f7374206f66207468657365206f7074696f6e73206861>112 507.6 R 1.035 -.15<76652061>-.2 H .735<7070726f70726961746520646566>.15 F .735 <61756c747320666f72206d6f73742073697465732e>-.1 F<486f>5.735 E<7765>-.25 E -.15<7665>-.25 G 1.535 -.4<722c2073>.15 H .735<69746573206861>.4 F .735<76696e672076>-.2 F .735<6572792068696768>-.15 F .045 <6d61696c206c6f616473206d6179208c6e6420746865>87 519.6 R 2.545<796e>-.15 G .046<65656420746f2074756e65207468656d20617320617070726f70726961746520 666f72207468656972206d61696c206c6f61642e>-2.545 F .046 <496e20706172746963756c6172>5.046 F 2.546<2c73>-.4 G .046<697465732065> -2.546 F<78706572692d>-.15 E 1.088<656e63696e672061206c6172>87 531.6 R 1.088<6765206e756d626572206f6620736d616c6c206d657373616765732c206d616e> -.18 F 3.588<796f>-.15 G 3.587<6677>-3.588 G 1.087 <68696368206172652064656c69>-3.587 F -.15<7665>-.25 G 1.087 <72656420746f206d616e>.15 F 3.587<7972>-.15 G 1.087 <6563697069656e74732c206d6179208c6e64>-3.587 F<7468617420746865>87 543.6 Q 2.5<796e>-.15 G<65656420746f2061646a7573742074686520706172616d65746572 73206465616c696e672077697468207175657565207072696f7269746965732e>-2.5 E .523<416c6c2076>112 559.8 R .523<657273696f6e73206f66>-.15 F F2 <73656e646d61696c>3.023 E F1 .524<7072696f7220746f20382e3720686164207369 6e676c6520636861726163746572206f7074696f6e206e616d65732e>3.023 F .524 <4173206f6620382e372c206f7074696f6e73206861>5.524 F -.15<7665>-.2 G 1.216<6c6f6e6720286d756c74692d636861726163746572206e616d6573292e>87 571.8 R 1.216<416c74686f756768206f6c642073686f7274206e616d65732061726520 7374696c6c2061636365707465642c206d6f7374206e65>6.216 F 3.715<776f>-.25 G 1.215<7074696f6e7320646f206e6f74>-3.715 F<6861>87 583.8 Q .3 -.15 <76652073>-.2 H<686f72742065717569>.15 E -.25<7661>-.25 G<6c656e74732e> .25 E .802<546869732073656374696f6e206f6e6c7920646573637269626573207468 65206f7074696f6e7320796f7520617265206d6f7374206c696b>112 600 R .802 <656c7920746f2077>-.1 F .802 <616e7420746f20747765616b3b20726561642073656374696f6e203520666f72>-.1 F <6d6f72652064657461696c732e>87 612 Q F0 2.5<342e312e2054>87 636 R <696d656f757473>-.18 E F1 .583<416c6c2074696d6520696e74657276>127 652.2 R .583 <616c732061726520736574207573696e672061207363616c65642073796e7461782e> -.25 F -.15<466f>5.583 G 3.083<7265>.15 G .583<78616d706c652c209931306d 9a20726570726573656e74732074656e206d696e757465732c>-3.233 F <776865726561732099326833306d9a20726570726573656e7473207477>102 664.2 Q 2.5<6f61>-.1 G<6e6420612068616c6620686f7572732e>-2.5 E <5468652066756c6c20736574206f66207363616c65732069733a>5 E 0 Cg EP %%Page: 28 24 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d32382053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 16.11<7373>142 96 S<65636f6e6473>-16.11 E 12.22 <6d6d>142 108 S<696e75746573>-12.22 E 15<6868>142 120 S<6f757273>-15 E 15<6464>142 132 S<617973>-15 E 12.78<7777>142 144 S<65656b73>-12.78 E F0 2.5<342e312e312e205175657565>102 172.2 R<696e746572>2.5 E -.1<7661>-.1 G <6c>.1 E F1 .18<546865206172>142 188.4 R .18<67756d656e7420746f20746865> -.18 F F02.68 E F1 .18<8d61672073706563698c657320686f>2.68 F 2.68 <776f>-.25 G .18<6674656e2061207375622d6461656d6f6e2077696c6c2072756e20 7468652071756575652e>-2.68 F .18<54686973206973>5.18 F .793<747970696361 6c6c792073657420746f206265747765656e208c667465656e206d696e7574657320616e 64206f6e6520686f7572>117 200.4 R 5.793<2e49>-.55 G 3.293<666e>-5.793 G .793<6f74207365742c206f722073657420746f207a65726f2c20746865207175657565 2077696c6c>-3.293 F .048 <6e6f742062652072756e206175746f6d61746963616c6c79>117 212.4 R 5.048 <2e52>-.65 G .048<464320313132332073656374696f6e20352e332e312e3120726563 6f6d6d656e647320746861742074686973206265206174206c65617374203330206d696e 757465732e>-5.048 F .501<53686f756c6420796f75206e65656420746f207465726d 696e61746520746865207175657565206a6f62732063757272656e746c792061637469> 117 224.4 R .801 -.15<76652074>-.25 H .5 <68656e2061205349475445524d20746f2074686520706172656e74206f66>.15 F<7468 652070726f6365737320286f722070726f636573736573292077696c6c20636c65616e6c 792073746f7020746865206a6f62732e>117 236.4 Q F0 2.5 <342e312e322e2052656164>102 260.4 R<74696d656f757473>2.5 E F1 -.35<5469> 142 276.6 S .297<6d656f75747320616c6c206861>.35 F .597 -.15<7665206f>-.2 H .297<7074696f6e206e616d6573209954>.15 F<696d656f75742e>-.35 E/F2 10 /Times-Italic@0 SF<7375626f7074696f6e>A F1 2.797<9a2e204d6f7374>B .298 <6f6620746865736520636f6e74726f6c20534d5450206f706572>2.797 F<2d>-.2 E 3.899<6174696f6e732e20546865>117 288.6 R<7265636f676e697a6564>3.899 E F2 <7375626f7074696f6e>3.899 E F1 1.399<732c20746865697220646566>B 1.398 <61756c742076>-.1 F 1.398 <616c7565732c20616e6420746865206d696e696d756d2076>-.25 F 1.398 <616c75657320616c6c6f>-.25 F 1.398<776564206279>-.25 F<5246432032383231 2073656374696f6e20342e352e332e3220286f722052464320313132332073656374696f 6e20352e332e3229206172653a>117 300.6 Q 38.4<636f6e6e65637420546865>117 316.8 R .16<74696d6520746f2077>2.66 F .161<61697420666f7220616e20534d54 5020636f6e6e656374696f6e20746f206f70656e2028746865>-.1 F F2 <636f6e6e656374>2.661 E F1 .161<2832292073797374656d2063616c6c29>B 1.154 <5b302c20756e73706563698c65645d2e>189 328.8 R 1.153 <4966207a65726f2c207573657320746865206b>6.153 F 1.153 <65726e656c20646566>-.1 F 3.653<61756c742e20496e>-.1 F 1.153 <6e6f20636173652063616e2074686973206f7074696f6e>3.653 F -.15<6578>189 340.8 S .518 <74656e64207468652074696d656f7574206c6f6e676572207468616e20746865206b> .15 F .518<65726e656c2070726f>-.1 F .519<76696465732c2062>-.15 F .519 <75742069742063616e2073686f7274656e2069742e>-.2 F<54686973>5.519 E .58 <697320746f206765742061726f756e64206b>189 352.8 R .579 <65726e656c7320746861742070726f>-.1 F .579<7669646520616e20616273757264 6c79206c6f6e6720636f6e6e656374696f6e2074696d656f757420283930>-.15 F <6d696e7574657320696e206f6e652063617365292e>189 364.8 Q 35.62 <69636f6e6e65637420546865>117 381 R .31<73616d65206173>2.81 F F2 <636f6e6e6563742c>2.81 E F1 -.15<6578>2.81 G .311<6365707420697420617070 6c696573206f6e6c7920746f2074686520696e697469616c20617474656d707420746f20 636f6e6e65637420746f>.15 F 2.75<6168>189 393 S .25 <6f737420666f722061206769>-2.75 F -.15<7665>-.25 G 2.75<6e6d>.15 G .25 <657373616765205b302c20756e73706563698c65645d2e>-2.75 F .25 <54686520636f6e63657074206973207468617420746869732073686f756c64206265> 5.25 F -.15<7665>189 405 S .766<72792073686f7274202861206665>.15 F 3.266 <7773>-.25 G .767<65636f6e6473293b20686f7374732074686174206172652077656c 6c20636f6e6e656374656420616e6420726573706f6e7369>-3.266 F 1.067 -.15 <76652077>-.25 H<696c6c>.15 E .027 <7468757320626520736572766963656420696d6d6564696174656c79>189 417 R 5.026<2e48>-.65 G .026<6f73747320746861742061726520736c6f>-5.026 F 2.526 <7777>-.25 G .026<696c6c206e6f7420686f6c64207570206f746865722064656c69> -2.526 F<762d>-.25 E<657269657320696e2074686520696e697469616c2064656c69> 189 429 Q -.15<7665>-.25 G<727920617474656d70742e>.15 E 33.96 <61636f6e6e656374205b302c>117 445.2 R 1.707 <756e73706563698c65645d20546865206f>4.207 F -.15<7665>-.15 G 1.707 <72616c6c2074696d656f75742077>.15 F 1.707<616974696e6720666f7220616c6c20 636f6e6e656374696f6e20666f7220612073696e676c65>-.1 F<64656c69>189 457.2 Q -.15<7665>-.25 G .153<727920617474656d707420746f20737563636565642e>.15 F .152<496620302c206e6f206f>5.152 F -.15<7665>-.15 G .152 <72616c6c206c696d6974206973206170706c6965642e>.15 F .152 <546869732063616e2062652075736564>5.152 F .521<746f20726573747269637420 74686520746f74616c20616d6f756e74206f662074696d6520747279696e6720746f2063 6f6e6e65637420746f2061206c6f6e67206c697374206f6620686f73742074686174>189 469.2 R .514<636f756c642061636365707420616e20652d6d61696c20666f72207468 6520726563697069656e742e>189 481.2 R .514 <546869732074696d656f757420646f6573206e6f74206170706c7920746f>5.514 F F0 -.25<4661>3.013 G<6c6c2d>.25 E<6261636b4d58686f7374>189 493.2 Q F1 2.677 <2c69>C .177<2e652e2c206966207468652074696d652069732065>-2.677 F .177 <78686175737465642c20746865>-.15 F F0 -.25<4661>2.677 G <6c6c6261636b4d58686f7374>.25 E F1 .178<6973207472696564206e65>2.678 F <78742e>-.15 E 46.16<696e697469616c20546865>117 509.4 R -.1<7761>2.5 G< 697420666f722074686520696e697469616c20323230206772656574696e67206d657373 616765205b356d2c20356d5d2e>.1 E 52.28<68656c6f20546865>117 525.6 R -.1 <7761>4.227 G 1.727<697420666f722061207265706c792066726f6d20612048454c4f 206f722045484c4f20636f6d6d616e64205b356d2c20756e73706563698c65645d2e>.1 F .1<54686973206d61792072657175697265206120686f7374206e616d65206c6f6f6b 75702c20736f208c76>189 537.6 R 2.6<656d>-.15 G .1 <696e757465732069732070726f6261626c79206120726561736f6e61626c65>-2.6 F <6d696e696d756d2e>189 549.6 Q 46.72<6d61696c8720546865>117 565.8 R -.1 <7761>2.5 G<697420666f722061207265706c792066726f6d2061204d41494c20636f6d 6d616e64205b31306d2c20356d5d2e>.1 E 48.95<726370748720546865>117 582 R -.1<7761>3.482 G .982<697420666f722061207265706c792066726f6d206120524350 5420636f6d6d616e64205b31682c20356d5d2e>.1 F .981 <546869732073686f756c64206265206c6f6e67>5.981 F 1.556<626563617573652069 7420636f756c6420626520706f696e74696e672061742061206c69737420746861742074 616b>189 594 R 1.556<65732061206c6f6e672074696d6520746f2065>-.1 F 1.556 <7870616e642028736565>-.15 F<62656c6f>189 606 Q<77292e>-.25 E 34.5 <64617461696e69748720546865>117 622.2 R -.1<7761>2.5 G <697420666f722061207265706c792066726f6d20612044>.1 E -1.21 -1.11 <41542041>-.4 H<636f6d6d616e64205b356d2c20326d5d2e>3.61 E 20.62 <64617461626c6f636b878820546865>117 638.4 R -.1<7761>2.696 G .196<697420 666f722072656164696e672061206461746120626c6f636b2028746861742069732c2074 686520626f6479206f6620746865206d657373616765292e>.1 F .196 <5b31682c20336d5d2e>5.196 F .621<546869732073686f756c64206265206c6f6e67 206265636175736520697420616c736f206170706c69657320746f2070726f6772616d73 20706970696e6720696e70757420746f>189 650.4 R F2<73656e642d>3.121 E <6d61696c>189 662.4 Q F1<7768696368206861>2.5 E .3 -.15<7665206e>-.2 H 2.5<6f67>.15 G<756172616e746565206f662070726f6d70746e6573732e>-2.5 E 30.06<646174618c6e616c8720546865>117 678.6 R -.1<7761>2.806 G .306<6974 20666f722061207265706c792066726f6d2074686520646f74207465726d696e6174696e 672061206d6573736167652e>.1 F .306<5b31682c2031306d5d2e>5.306 F .306 <49662074686973206973>5.306 F .883<73686f72746572207468616e207468652074 696d652061637475616c6c79206e656564656420666f7220746865207265636569>189 690.6 R -.15<7665>-.25 G 3.384<7274>.15 G 3.384<6f64>-3.384 G<656c69> -3.384 E -.15<7665>-.25 G 3.384<7274>.15 G .884<6865206d6573736167652c> -3.384 F<6475706c6963617465732077696c6c2062652067656e6572617465642e>189 702.6 Q<546869732069732064697363757373656420696e2052464320313034372e>5 E 0 Cg EP %%Page: 29 25 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3239>195.86 E /F1 10/Times-Roman@0 SF 55.06<7273657420546865>117 96 R -.1<7761>2.5 G< 697420666f722061207265706c792066726f6d2061205253455420636f6d6d616e64205b 356d2c20756e73706563698c65645d2e>.1 E 53.94<7175697420546865>117 112.2 R -.1<7761>2.5 G<697420666f722061207265706c792066726f6d20612051>.1 E <55495420636f6d6d616e64205b326d2c20756e73706563698c65645d2e>-.1 E 50.61 <6d69736320546865>117 128.4 R -.1<7761>2.761 G .261<697420666f7220612072 65706c792066726f6d206d697363656c6c616e656f7573202862>.1 F .261 <75742073686f72742920636f6d6d616e64732073756368206173204e4f4f50>-.2 F <286e6f2d6f7065726174696f6e2920616e6420564552422028676f20696e746f2076> 189 140.4 Q<6572626f7365206d6f6465292e>-.15 E <5b326d2c20756e73706563698c65645d2e>5 E 20.06<636f6d6d616e64878820496e> 117 156.6 R<73657276>2.5 E<657220534d5450>-.15 E 2.5<2c74>-1.11 G <68652074696d6520746f2077>-2.5 E <61697420666f7220616e6f7468657220636f6d6d616e642e>-.1 E <5b31682c20356d5d2e>5 E 44.5<6964656e748820546865>117 174.8 R <74696d656f75742077>2.5 E<616974696e6720666f722061207265706c7920746f2061 6e204944454e54207175657279205b3573>-.1 E/F2 7/Times-Roman@0 SF<3133>-4 I F1 2.5<2c75>4 K<6e73706563698c65645d2e>-2.5 E 53.94<6c686c6f20546865>117 191 R -.1<7761>2.5 G<697420666f722061207265706c7920746f20616e204c4d5450 204c484c4f20636f6d6d616e64205b326d2c20756e73706563698c65645d2e>.1 E 52.28<6175746820546865>117 207.2 R <74696d656f757420666f722061207265706c7920696e20616e20534d54502041>2.5 E <555448206469616c6f677565205b31306d2c20756e73706563698c65645d2e>-.55 E 42.83<7374617274746c7320546865>117 223.4 R .141 <74696d656f757420666f722061207265706c7920746f20616e20534d5450205354>2.64 F<4152>-.93 E .141 <54544c5320636f6d6d616e6420616e642074686520544c532068616e642d>-.6 F <7368616b>189 235.4 Q 2.5<655b>-.1 G<31682c20756e73706563698c65645d2e> -2.5 E 32.28<8c6c656f70656e8820546865>117 251.6 R <74696d656f757420666f72206f70656e696e67202e666f7277>2.5 E <61726420616e64203a696e636c7564653a208c6c6573205b3630732c206e6f6e655d2e> -.1 E 36.17<636f6e74726f6c8820546865>117 267.8 R .241 <74696d656f757420666f72206120636f6d706c65746520636f6e74726f6c20736f636b> 2.741 F .241<6574207472616e73616374696f6e20746f20636f6d706c657465205b32 6d2c206e6f6e655d2e>-.1 F 25.05<686f73747374617475738820486f>117 284 R 4.141<776c>-.25 G 1.642<6f6e672073746174757320696e666f726d6174696f6e2061 626f7574206120686f73742028652e672e2c20686f737420646f>-4.141 F 1.642 <776e292077696c6c20626520636163686564>-.25 F<6265666f726520697420697320 636f6e73696465726564207374616c65205b33306d2c20756e73706563698c65645d2e> 189 296 Q<7265736f6c76>117 312.2 Q<6572>-.15 E 3.28 <2e72657472616e738820546865>-.55 F<7265736f6c76>4.275 E<657227>-.15 E 4.275<7372>-.55 G 1.775 <657472616e736d697373696f6e2074696d6520696e74657276>-4.275 F 1.774 <616c2028696e207365636f6e647329205b76>-.25 F 4.274 <61726965735d2e2053657473>-.25 F<626f7468>4.274 E/F3 10/Times-Italic@0 SF -.55<5469>189 324.2 S<6d656f75742e72>.55 E<65736f6c766572>-.37 E <2e72>-1.11 E<657472>-.37 E<616e732e8c72>-.15 E<7374>-.1 E F1<616e64>2.5 E F3 -.55<5469>2.5 G<6d656f75742e72>.55 E<65736f6c766572>-.37 E<2e72> -1.11 E<657472>-.37 E<616e732e6e6f726d616c>-.15 E F1<2e>A<7265736f6c76> 117 340.4 Q<6572>-.15 E<2e72657472616e732e8c72737488>-.55 E .317 <546865207265736f6c76>189 352.4 R<657227>-.15 E 2.817<7372>-.55 G .317 <657472616e736d697373696f6e2074696d6520696e74657276>-2.817 F .317<616c20 28696e207365636f6e64732920666f7220746865208c72737420617474656d707420746f> -.25 F<64656c69>189 364.4 Q -.15<7665>-.25 G 2.5<72616d>.15 G <657373616765205b76>-2.5 E<61726965735d2e>-.25 E<7265736f6c76>117 380.6 Q<6572>-.15 E<2e72657472616e732e6e6f726d616c88>-.55 E 3.555 <546865207265736f6c76>189 392.6 R<657227>-.15 E 6.055<7372>-.55 G 3.555 <657472616e736d697373696f6e2074696d6520696e74657276>-6.055 F 3.554 <616c2028696e207365636f6e64732920666f7220616c6c207265736f6c76>-.25 F <6572>-.15 E<6c6f6f6b7570732065>189 404.6 Q <786365707420746865208c7273742064656c69>-.15 E -.15<7665>-.25 G <727920617474656d7074205b76>.15 E<61726965735d2e>-.25 E<7265736f6c76>117 420.8 Q<6572>-.15 E 11.61<2e72657472798820546865>-.55 F 3.838<6e756d6265 72206f662074696d657320746f2072657472616e736d69742061207265736f6c76>6.338 F 3.838<6572207175657279>-.15 F 8.838<2e53>-.65 G 3.839 <65747320626f7468>-8.838 F F3 -.55<5469>6.339 G<6d652d>.55 E<6f75742e72> 189 432.8 Q<65736f6c766572>-.37 E<2e72>-1.11 E<65747279>-.37 E<2e8c72> -.55 E<7374>-.1 E F1<616e64>2.5 E F3 -.55<5469>2.5 G<6d656f75742e72>.55 E<65736f6c766572>-.37 E<2e72>-1.11 E<65747279>-.37 E<2e6e6f726d616c>-.55 E F1<5b76>2.5 E<61726965735d2e>-.25 E<7265736f6c76>117 449 Q<6572>-.15 E <2e7265747279>-.55 E<2e8c72737488>-.65 E 1.66<546865206e756d626572206f66 2074696d657320746f2072657472616e736d69742061207265736f6c76>189 461 R 1.66<657220717565727920666f7220746865208c72737420617474656d707420746f> -.15 F<64656c69>189 473 Q -.15<7665>-.25 G 2.5<72616d>.15 G <657373616765205b76>-2.5 E<61726965735d2e>-.25 E<7265736f6c76>117 489.2 Q<6572>-.15 E<2e7265747279>-.55 E<2e6e6f726d616c88>-.65 E<546865206e756d 626572206f662074696d657320746f2072657472616e736d69742061207265736f6c76> 189 501.2 Q<657220717565727920666f7220616c6c207265736f6c76>-.15 E <6572206c6f6f6b757073>-.15 E -.15<6578>191.5 513.2 S <6365707420746865208c7273742064656c69>.15 E -.15<7665>-.25 G <727920617474656d7074205b76>.15 E<61726965735d2e>-.25 E -.15<466f>117 529.4 S 4.608<7263>.15 G 2.108<6f6d7061746962696c6974792077697468206f6c 6420636f6e8c6775726174696f6e208c6c65732c206966206e6f>-4.608 F F3 <7375626f7074696f6e>4.609 E F1 2.109 <69732073706563698c65642c20616c6c207468652074696d656f757473>4.609 F <6d61726b>117 541.4 Q .059<65642077697468206120646167676572202887292061 72652073657420746f2074686520696e646963617465642076>-.1 F 2.559 <616c75652e20416c6c>-.25 F -.2<6275>2.559 G 2.559<7474>.2 G .059 <686f7365206d61726b>-2.559 F .059 <65642077697468206120646f75626c65206461672d>-.1 F <67657220288829206170706c7920746f20636c69656e7420534d5450>117 553.4 Q <2e>-1.11 E -.15<466f>142 569.6 S 2.5<7265>.15 G <78616d706c652c20746865206c696e65733a>-2.65 E 2.5<4f54>157 585.8 S <696d656f75742e636f6d6d616e643d32356d>-2.85 E 2.5<4f54>157 597.8 S <696d656f75742e64617461626c6f636b3d3368>-2.85 E .343 <73657473207468652073657276>117 614 R .344<657220534d545020636f6d6d616e 642074696d656f757420746f203235206d696e7574657320616e642074686520696e7075 74206461746120626c6f636b2074696d656f757420746f207468726565>-.15 F <686f7572732e>117 626 Q F0 2.5<342e312e332e204d657373616765>102 650 R <74696d656f757473>2.5 E F1 .464 <41667465722073697474696e6720696e2074686520717565756520666f722061206665> 142 666.2 R 2.964<7764>-.25 G .464<6179732c20616e20756e64656c69>-2.964 F -.15<7665>-.25 G .464 <7261626c65206d6573736167652077696c6c2074696d65206f75742e>.15 F .463 <54686973206973>5.463 F 1.362<746f20696e737572652074686174206174206c6561 7374207468652073656e6465722069732061>117 678.2 R -.1<7761>-.15 G 1.362< 7265206f662074686520696e6162696c69747920746f2073656e642061206d6573736167 652e>.1 F 1.363<5468652074696d656f7574206973>6.363 F .32 LW 76 687.8 72 687.8 DL 80 687.8 76 687.8 DL 84 687.8 80 687.8 DL 88 687.8 84 687.8 DL 92 687.8 88 687.8 DL 96 687.8 92 687.8 DL 100 687.8 96 687.8 DL 104 687.8 100 687.8 DL 108 687.8 104 687.8 DL 112 687.8 108 687.8 DL 116 687.8 112 687.8 DL 120 687.8 116 687.8 DL 124 687.8 120 687.8 DL 128 687.8 124 687.8 DL 132 687.8 128 687.8 DL 136 687.8 132 687.8 DL 140 687.8 136 687.8 DL 144 687.8 140 687.8 DL 148 687.8 144 687.8 DL 152 687.8 148 687.8 DL 156 687.8 152 687.8 DL 160 687.8 156 687.8 DL 164 687.8 160 687.8 DL 168 687.8 164 687.8 DL 172 687.8 168 687.8 DL 176 687.8 172 687.8 DL 180 687.8 176 687.8 DL 184 687.8 180 687.8 DL 188 687.8 184 687.8 DL 192 687.8 188 687.8 DL 196 687.8 192 687.8 DL 200 687.8 196 687.8 DL 204 687.8 200 687.8 DL 208 687.8 204 687.8 DL 212 687.8 208 687.8 DL 216 687.8 212 687.8 DL/F4 5/Times-Roman@0 SF<3133> 93.6 698.2 Q/F5 8/Times-Roman@0 SF <4f6e20736f6d652073797374656d732074686520646566>3.2 I<61756c74206973207a 65726f20746f207475726e207468652070726f746f636f6c206f66>-.08 E 2<6665>-.2 G<6e746972656c79>-2 E<2e>-.52 E 0 Cg EP %%Page: 30 26 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d33302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF .134<7479706963616c6c792073657420746f208c76>117 96 R 2.634<6564>-.15 G 2.634<6179732e204974>-2.634 F .134 <697320736f6d6574696d657320636f6e7369646572656420636f6e>2.634 F -.15 <7665>-.4 G .134<6e69656e7420746f20616c736f2073656e6420612077>.15 F .134 <61726e696e67206d657373616765>-.1 F .532<696620746865206d65737361676520 697320696e20746865207175657565206c6f6e676572207468616e2061206665>117 108 R 3.032<7768>-.25 G .533 <6f7572732028617373756d696e6720796f75206e6f726d616c6c79206861>-3.032 F .833 -.15<76652067>-.2 H .533<6f6f6420636f6e2d>.15 F<6e65637469>117 120 Q 1.148<766974793b20696620796f7572206d65737361676573206e6f726d616c6c7920 746f6f6b207365>-.25 F -.15<7665>-.25 G 1.148 <72616c20686f75727320746f2073656e6420796f752077>.15 F<6f756c646e27>-.1 E 3.648<7477>-.18 G 1.148<616e7420746f20646f2074686973>-3.748 F .793 <626563617573652069742077>117 132 R<6f756c646e27>-.1 E 3.294<7462>-.18 G 3.294<6561>-3.294 G 3.294<6e75>-3.294 G .794<6e757375616c2065>-3.294 F -.15<7665>-.25 G 3.294<6e74292e205468657365>.15 F .794 <74696d656f7574732061726520736574207573696e6720746865>3.294 F F0 -.18 <5469>3.294 G<6d656f75742e717565756572>.18 E<652d>-.18 E<747572>117 144 Q<6e>-.15 E F1<616e64>3.076 E F0 -.18<5469>3.076 G <6d656f75742e7175657565776172>.18 E<6e>-.15 E F1 .576<6f7074696f6e732069 6e2074686520636f6e8c6775726174696f6e208c6c652028707265>3.076 F .576 <76696f75736c7920626f7468207765726520736574207573696e67>-.25 F<746865> 117 156 Q F0<54>2.5 E F1<6f7074696f6e292e>2.5 E 1.367<496620746865206d65 7373616765206973207375626d6974746564207573696e6720746865>142 172.2 R/F2 9/Times-Roman@0 SF<4e4f>3.867 E 1.617<5449465920534d5450>-.36 F F1 -.15 <6578>3.868 G 1.368<74656e73696f6e2c2077>.15 F 1.368 <61726e696e67206d657373616765732077696c6c>-.1 F .888 <6f6e6c792062652073656e74206966>117 184.2 R F2<4e4f>3.388 E <544946593d44454c41>-.36 E<59>-.945 E F1 .888<69732073706563698c65642e> 3.388 F .888<54686520717565756572657475726e20616e64207175657565>5.888 F -.1<7761>-.25 G .888<726e2074696d656f7574732063616e206265>.1 F .669<6675 7274686572207175616c698c65642077697468206120746167206261736564206f6e2074 686520507265636564656e63653a208c656c6420696e20746865206d6573736167653b20 746865>117 196.2 R 3.17<796d>-.15 G .67<757374206265206f6e65206f66>-3.17 F<997572>117 208.2 Q .938 <67656e749a2028696e6469636174696e67206120706f73697469>-.18 F 1.238 -.15 <7665206e>-.25 H .938<6f6e2d7a65726f20707265636564656e6365292c20996e6f72 6d616c9a2028696e6469636174696e672061207a65726f20707265636564656e6365292c> .15 F 3.495<6f7220996e6f6e2d7572>117 220.2 R 3.495 <67656e749a2028696e6469636174696e67206e65>-.18 F -.05<6761>-.15 G<7469> .05 E 3.795 -.15<76652070>-.25 H 5.995<7265636564656e636573292e2046>.15 F 3.495<6f722065>-.15 F 3.495<78616d706c652c2073657474696e67209954>-.15 F<696d656f75742e71756575652d>-.35 E -.1<7761>117 232.2 S<726e2e7572>.1 E .486<67656e743d31689a2073657473207468652077>-.18 F .486 <61726e696e672074696d656f757420666f72207572>-.1 F .486 <67656e74206d65737361676573206f6e6c7920746f206f6e6520686f7572>-.18 F 5.485<2e54>-.55 G .485<686520646566>-5.485 F .485<61756c74206966>-.1 F .205<6e6f20707265636564656e636520697320696e6469636174656420697320746f20 736574207468652074696d656f757420666f7220616c6c20707265636564656e6365732e> 117 244.2 R .205<496620746865206d657373616765206861732061206e6f726d616c> 5.205 F<28646566>117 256.2 Q 1.278 <61756c742920707265636564656e636520616e6420697420697320612064656c69>-.1 F -.15<7665>-.25 G 1.278 <727920737461747573206e6f74698c636174696f6e202844534e292c>.15 F F0 -.18 <5469>3.778 G<6d656f75742e717565756572>.18 E<65747572>-.18 E<6e2e64736e> -.15 E F1<616e64>117 268.2 Q F0 -.18<5469>2.675 G <6d656f75742e7175657565776172>.18 E<6e2e64736e>-.15 E F1 .175 <63616e206265207573656420746f206769>2.675 F .475 -.15<76652061>-.25 H 2.675<6e61>.15 G<6c7465726e617469>-2.675 E .475 -.15<76652077>-.25 H .175<61726e20616e642072657475726e2074696d6520666f722044534e732e>.05 F .242<5468652076>117 280.2 R .242<616c756520226e6f>-.25 F .242 <77222063616e206265207573656420666f72202d4f2054>-.25 F .241<696d656f7574 2e717565756572657475726e20746f2072657475726e20656e747269657320696d6d6564 696174656c7920647572696e672061>-.35 F<71756575652072756e2c20652e672e2c20 746f20626f756e6365206d6573736167657320696e646570656e64656e74206f66207468 6569722074696d6520696e207468652071756575652e>117 292.2 Q .28<53696e6365 207468657365206f7074696f6e732061726520676c6f62616c2c20616e642073696e6365 20796f752063616e6e6f74206b6e6f>142 308.4 R<77>-.25 E/F3 10 /Times-Italic@0 SF 2.78<6170>2.78 G<72696f7269>-2.78 E F1<686f>2.78 E 2.78<776c>-.25 G .28<6f6e6720616e6f7468657220686f7374>-2.78 F .476 <6f75747369646520796f757220646f6d61696e2077696c6c20626520646f>117 320.4 R .475<776e2c2061208c76>-.25 F 2.975<6564>-.15 G .475 <61792074696d656f7574206973207265636f6d6d656e6465642e>-2.975 F .475 <5468697320616c6c6f>5.475 F .475<7773206120726563697069656e74>-.25 F 1.579<746f208c78207468652070726f626c656d2065>117 332.4 R -.15<7665>-.25 G 4.079<6e69>.15 G 4.079<6669>-4.079 G 4.079<746f>-4.079 G 1.579 <636375727320617420746865206265>-4.079 F 1.58 <67696e6e696e67206f662061206c6f6e67207765656b>-.15 F 4.08 <656e642e20524643>-.1 F 1.58<313132332073656374696f6e>4.08 F<352e332e31 2e3120736179732074686174207468697320706172616d657465722073686f756c642062 652060>117 344.4 Q<606174206c656173742034ad35206461797327>-.74 E<272e> -.74 E<546865>142 360.6 Q F0 -.18<5469>2.923 G <6d656f75742e7175657565776172>.18 E<6e>-.15 E F1 -.25<7661>2.923 G .423 <6c75652063616e2062652070696767796261636b>.25 F .422<6564206f6e20746865> -.1 F F0<54>2.922 E F1 .422 <6f7074696f6e20627920696e6469636174696e6720612074696d65>2.922 F .845 <616674657220776869636820612077>117 372.6 R .845<61726e696e67206d657373 6167652073686f756c642062652073656e743b20746865207477>-.1 F 3.346<6f74> -.1 G .846 <696d656f7574732061726520736570617261746564206279206120736c6173682e> -3.346 F -.15<466f>5.846 G<72>.15 E -.15<6578>117 384.6 S <616d706c652c20746865206c696e65>.15 E -.4<4f54>157 400.8 S<35642f3468>.4 E .972<63617573657320656d61696c20746f2066>117 417 R .971 <61696c206166746572208c76>-.1 F 3.471<6564>-.15 G .971<6179732c2062> -3.471 F .971<757420612077>-.2 F .971<61726e696e67206d657373616765207769 6c6c2062652073656e7420616674657220666f757220686f7572732e>-.1 F<54686973> 5.971 E<73686f756c64206265206c6172>117 429 Q <676520656e6f756768207468617420746865206d6573736167652077696c6c206861> -.18 E .3 -.15<76652062>-.2 H<65656e207472696564207365>.15 E -.15<7665> -.25 G<72616c2074696d65732e>.15 E F0 2.5<342e322e2046>87 453 R <6f726b696e6720447572696e672051756575652052756e73>-.25 E F1 .848 <42792073657474696e6720746865>127 469.2 R F0 -.25<466f>3.348 G <726b456163684a>.25 E<6f62>-.15 E F1<28>3.348 E F0<59>A F1 3.348<296f>C <7074696f6e2c>-3.348 E F3<73656e646d61696c>3.348 E F1 .849 <77696c6c20666f726b206265666f7265206561636820696e6469>3.348 F .849 <76696475616c206d657373616765>-.25 F .486 <7768696c652072756e6e696e67207468652071756575652e>102 481.2 R .486 <54686973206f7074696f6e2077>5.486 F .486<617320757365642077697468206561 726c6965722072656c656173657320746f20707265>-.1 F -.15<7665>-.25 G<6e74> .15 E F3<73656e646d61696c>2.986 E F1 .486<66726f6d20636f6e2d>2.986 F 1.562<73756d696e67206c6172>102 493.2 R 1.562 <676520616d6f756e7473206f66206d656d6f7279>-.18 F 6.562<2e49>-.65 G 4.062 <7473>-6.562 G 1.562 <686f756c64206e6f206c6f6e676572206265206e65636573736172792077697468> -4.062 F F3<73656e646d61696c>4.062 E F1 4.062<382e31322e204966>4.062 F <746865>4.062 E F0 -.25<466f>102 505.2 S<726b456163684a>.25 E<6f62>-.15 E F1 .246<6f7074696f6e206973206e6f74207365742c>2.746 F F3 <73656e646d61696c>2.746 E F1 .245<77696c6c206b>2.745 F .245 <65657020747261636b206f6620686f73747320746861742061726520646f>-.1 F .245 <776e20647572696e6720612071756575652072756e2c>-.25 F <77686963682063616e20696d70726f>102 517.2 Q .3 -.15<76652070>-.15 H <6572666f726d616e6365206472616d61746963616c6c79>.15 E<2e>-.65 E <496620746865>127 533.4 Q F0 -.25<466f>2.5 G<726b456163684a>.25 E<6f62> -.15 E F1<6f7074696f6e206973207365742c>2.5 E F3<73656e646d61696c>2.5 E F1<63616e6e6f742075736520636f6e6e656374696f6e2063616368696e672e>2.5 E F0 2.5<342e332e205175657565>87 557.4 R<5072696f726974696573>2.5 E F1<4576> 127 573.6 Q 1.128<657279206d6573736167652069732061737369676e656420612070 72696f72697479207768656e206974206973208c72737420696e7374616e746961746564 2c20636f6e73697374696e67206f6620746865206d657373616765>-.15 F .286 <73697a652028696e20627974657329206f66>102 585.6 R .286<6673657420627920 746865206d65737361676520636c617373202877686963682069732064657465726d696e 65642066726f6d2074686520507265636564656e63653a20686561646572292074696d65 73>-.25 F .342<746865209977>102 597.6 R .342<6f726b20636c6173732066>-.1 F .343<6163746f729a20616e6420746865206e756d626572206f662072656369706965 6e74732074696d657320746865209977>-.1 F .343 <6f726b20726563697069656e742066>-.1 F<6163746f72>-.1 E 4.243 -.7 <2e9a2054>-.55 H .343<6865207072696f72697479>.7 F .073 <6973207573656420746f206f72646572207468652071756575652e>102 609.6 R .073 <486967686572206e756d6265727320666f7220746865207072696f72697479206d6561 6e207468617420746865206d6573736167652077696c6c2062652070726f636573736564> 5.073 F<6c61746572207768656e2072756e6e696e67207468652071756575652e>102 621.6 Q .328<546865206d6573736167652073697a6520697320696e636c7564656420 736f2074686174206c6172>127 637.8 R .329 <6765206d65737361676573206172652070656e616c697a65642072656c617469>-.18 F .629 -.15<76652074>-.25 H 2.829<6f73>.15 G .329 <6d616c6c206d657373616765732e>-2.829 F .285 <546865206d65737361676520636c61737320616c6c6f>102 649.8 R .285<77732075 7365727320746f2073656e64209968696768207072696f726974799a206d657373616765 7320627920696e636c7564696e6720612099507265636564656e63653a9a208c656c64> -.25 F .007<696e207468656972206d6573736167653b207468652076>102 661.8 R .007<616c7565206f662074686973208c656c64206973206c6f6f6b>-.25 F .008 <656420757020696e20746865>-.1 F F0<50>2.508 E F1 .008 <6c696e6573206f662074686520636f6e8c6775726174696f6e208c6c652e>2.508 F .008<53696e636520746865>5.008 F 1.967 <6e756d626572206f6620726563697069656e7473206166>102 673.8 R 1.967<666563 74732074686520616d6f756e74206f66206c6f61642061206d6573736167652070726573 656e747320746f207468652073797374656d2c207468697320697320616c736f>-.25 F <696e636c7564656420696e746f20746865207072696f72697479>102 685.8 Q<2e> -.65 E .53<54686520726563697069656e7420616e6420636c6173732066>127 702 R .53<6163746f72732063616e2062652073657420696e2074686520636f6e8c6775726174 696f6e208c6c65207573696e6720746865>-.1 F F0<526563697069656e7446>3.03 E <6163746f72>-.25 E F1<28>102 714 Q F0<79>A F1 3.443<2961>C<6e64>-3.443 E F0<436c61737346>3.443 E<6163746f72>-.25 E F1<28>3.442 E F0<7a>A F1 3.442 <296f>C .942<7074696f6e73207265737065637469>-3.442 F -.15<7665>-.25 G <6c79>.15 E 5.942<2e54>-.65 G<6865>-5.942 E 3.442<7964>-.15 G<6566> -3.442 E .942 <61756c7420746f2033303030302028666f722074686520726563697069656e742066> -.1 F .942<6163746f722920616e64>-.1 F 0 Cg EP %%Page: 31 27 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3331>195.86 E /F1 10/Times-Roman@0 SF<313830302028666f722074686520636c6173732066>102 96 Q 2.5<6163746f72292e20546865>-.1 F <696e697469616c207072696f726974792069733a>2.5 E/F2 10/Times-Italic@0 SF <707269>169.68 114 Q/F3 10/Symbol SF<3d>3.05 E F2<6d736773697a65>3.18 E F3<2d>2.27 E F1<28>1.72 E F2<636c617373>.2 E F32.3 E F0 <436c617373466163746f7229>1.71 E F3<2b>2.1 E F1<28>1.72 E F2<6e72637074> .36 E F32.71 E F0<526563697069656e74466163746f7229>1.94 E F1 <2852656d656d626572>102 132 Q 3.328<2c68>-.4 G .828<69676865722076> -3.328 F .828<616c75657320666f72207468697320706172616d657465722061637475 616c6c79206d65616e207468617420746865206a6f622077696c6c206265207472656174 65642077697468206c6f>-.25 F<776572>-.25 E<7072696f72697479>102 144 Q <2e29>-.65 E 1.519<546865207072696f72697479206f662061206a6f622063616e20 616c736f2062652061646a757374656420656163682074696d652069742069732070726f 6365737365642028746861742069732c20656163682074696d6520616e>127 160.2 R .235<617474656d7074206973206d61646520746f2064656c69>102 172.2 R -.15 <7665>-.25 G 2.736<7269>.15 G .236<7429207573696e6720746865209977>-2.736 F .236<6f726b2074696d652066>-.1 F<6163746f72>-.1 E 1.636 -.7<2c9a2073> -.4 H .236<657420627920746865>.7 F F0<526574727946>2.736 E<6163746f72> -.25 E F1<28>2.736 E F0<5a>A F1 2.736<296f>C 2.736 <7074696f6e2e2054686973>-2.736 F .367 <697320616464656420746f20746865207072696f72697479>102 184.2 R 2.867 <2c73>-.65 G 2.867<6f69>-2.867 G 2.867<746e>-2.867 G .366<6f726d616c6c79 206465637265617365732074686520707265636564656e6365206f6620746865206a6f62 2c206f6e207468652067726f756e64732074686174206a6f6273>-2.867 F .137 <74686174206861>102 196.2 R .437 -.15<76652066>-.2 H .137 <61696c6564206d616e>.05 F 2.637<7974>-.15 G .137 <696d65732077696c6c2074656e6420746f2066>-2.637 F .137<61696c206167>-.1 F .137<61696e20696e20746865206675747572652e>-.05 F<546865>5.137 E F0 <526574727946>2.637 E<6163746f72>-.25 E F1 .137<6f7074696f6e20646566> 2.637 F .138<61756c747320746f>-.1 F<39303030302e>102 208.2 Q F0 2.5 <342e342e204c6f6164>87 232.2 R<4c696d6974696e67>2.5 E F2 <53656e646d61696c>127 248.4 Q F1 .102<63616e2062652061736b>2.602 F .101 <656420746f207175657565202862>-.1 F .101<7574206e6f742064656c69>-.2 F -.15<7665>-.25 G .101 <7229206d61696c206966207468652073797374656d206c6f61642061>.15 F -.15 <7665>-.2 G .101<72616765206765747320746f6f2068696768>.15 F .483 <7573696e6720746865>102 260.4 R F0<51756575654c41>2.983 E F1<28>2.983 E F0<78>A F1 2.983<296f>C 2.983<7074696f6e2e205768656e>-2.983 F .483 <746865206c6f61642061>2.983 F -.15<7665>-.2 G .483<726167652065>.15 F .483<786365656473207468652076>-.15 F .484<616c7565206f6620746865>-.25 F F0<51756575654c41>2.984 E F1<6f7074696f6e2c>2.984 E .532 <7468652064656c69>102 272.4 R -.15<7665>-.25 G .532 <7279206d6f64652069732073657420746f>.15 F F0<71>3.032 E F1 .532 <287175657565206f6e6c792920696620746865>3.032 F F0<517565756546>3.032 E <6163746f72>-.25 E F1<28>3.032 E F0<71>A F1 3.032<296f>C .531 <7074696f6e206469>-3.032 F .531<76696465642062792074686520646966>-.25 F <666572656e6365>-.25 E .01<696e207468652063757272656e74206c6f61642061> 102 284.4 R -.15<7665>-.2 G .01<7261676520616e6420746865>.15 F F0 <51756575654c41>2.51 E F1 .01<6f7074696f6e20706c7573206f6e65206973206c65 7373207468616e20746865207072696f72697479206f6620746865206d657373616765> 2.51 F 2.5<8a74>102 296.4 S <6861742069732c20746865206d65737361676520697320717565756564206966>-2.5 E <663a>-.25 E F2<707269>252.26 319.81 Q F1<3e>3.16 E F0 <5175657565466163746f72>14.305 -7 M F2<4c41>-65.825 14 M F3<2d>2.12 E F0 <51756575654c41>1.85 E F3<2b>2.1 E F1<31>1.09 E .4 LW 353.79 317.21 276.73 317.21 DL<546865>102 343.07 Q F0<517565756546>2.616 E<6163746f72> -.25 E F1 .116<6f7074696f6e20646566>2.616 F .116<61756c747320746f203630 303030302c20736f206561636820706f696e74206f66206c6f61642061>-.1 F -.15 <7665>-.2 G .116<726167652069732077>.15 F .116 <6f72746820363030303030207072696f72697479>-.1 F <706f696e747320286173206465736372696265642061626f>102 355.07 Q -.15 <7665>-.15 G<292e>.15 E -.15<466f>127 371.27 S 3.893<7264>.15 G 1.393 <7261737469632063617365732c20746865>-3.893 F F0<5265667573654c41>3.893 E F1<28>3.893 E F0<58>A F1 3.893<296f>C 1.394 <7074696f6e2064658c6e65732061206c6f61642061>-3.893 F -.15<7665>-.2 G 1.394<72616765206174207768696368>.15 F F2<73656e646d61696c>3.894 E F1 <77696c6c>3.894 E .433<72656675736520746f20616363657074206e657477>102 383.27 R .432<6f726b20636f6e6e656374696f6e732e>-.1 F .432<4c6f63616c6c79 2067656e657261746564206d61696c2c20692e652e2c206d61696c207768696368206973 206e6f74207375626d697474656420766961>5.432 F .317<534d54502028696e636c75 64696e6720696e636f6d696e672055554350206d61696c292c206973207374696c6c2061 636365707465642e>102 395.27 R .318<4e6f74696365207468617420746865204d53 50207375626d697473206d61696c20746f20746865>5.317 F<4d54>102 407.27 Q 3.214<4176>-.93 G .714<696120534d5450>-3.214 F 3.214<2c61>-1.11 G .713< 6e642068656e6365206d61696c2077696c6c2062652071756575656420696e2074686520 636c69656e7420717565756520696e2073756368206120636173652e>-3.214 F .713 <5468657265666f7265206974206973>5.713 F<6e656365737361727920746f2072756e 2074686520636c69656e74206d61696c20717565756520706572696f646963616c6c79> 102 419.27 Q<2e>-.65 E F0 2.5<342e352e205265736f7572>87 443.27 R <6365204c696d697473>-.18 E F2<53656e646d61696c>127 459.47 Q F1 1.039 <686173207365>3.539 F -.15<7665>-.25 G 1.039<72616c20706172616d65746572 7320746f20636f6e74726f6c207265736f757263652075736167652e>.15 F 1.039 <426573696465732074686f7365206d656e74696f6e656420696e20746865>6.039 F <707265>102 471.47 Q 8.476 <76696f75732073656374696f6e2c20746865726520617265206174206c65617374>-.25 F F0<4d61784461656d6f6e4368696c6472>10.975 E<656e>-.18 E F1<2c>A F0 <436f6e6e656374696f6e52617465546872>10.975 E<6f74746c65>-.18 E F1<2c>A F0<4d617851756575654368696c6472>102 483.47 Q<656e>-.18 E F1 3.889<2c61>C <6e64>-3.889 E F0<4d617852756e6e65727350>3.889 E<65725175657565>-.2 E F1 6.389<2e54>C 1.389<6865206c6174746572207477>-6.389 F 3.889<6f6c>-.1 G 1.389<696d697420746865206e756d626572206f66>-3.889 F F2<73656e646d61696c> 3.889 E F1 1.315<70726f6365737365732074686174206f706572617465206f6e2074 68652071756575652e>102 495.47 R 1.315<5468657365206172652064697363757373 656420696e207468652073656374696f6e2060>6.315 F 1.315 <6051756575652047726f7570204465636c6172612d>-.74 F<74696f6e27>102 507.47 Q 2.712<272e20546865>-.74 F .212<666f726d6572207477>2.712 F 2.712<6f63> -.1 G .212<616e206265207573656420746f206c696d697420746865206e756d626572 206f6620696e636f6d696e6720636f6e6e656374696f6e732e>-2.712 F .212 <546865697220617070726f707269617465>5.212 F -.25<7661>102 519.47 S .062< 6c75657320646570656e64206f6e2074686520686f7374206f7065726174696e67207379 7374656d20616e6420746865206861726477>.25 F .062 <6172652c20652e672e2c20616d6f756e74206f66206d656d6f7279>-.1 F 5.062 <2e49>-.65 G 2.561<6e6d>-5.062 G<616e>-2.561 E 2.561<7973>-.15 G<69742d> -2.561 E 1.082<756174696f6e73206974206d696768742062652075736566756c2074 6f20736574206c696d69747320746f20707265>102 531.47 R -.15<7665>-.25 G 1.082<6e7420746f206861>.15 F 1.382 -.15<76652074>-.2 H 1.082 <6f6f206d616e>.15 F<79>-.15 E F2<73656e646d61696c>3.582 E F1 1.082 <70726f6365737365732c20686f>3.582 F<7765>-.25 E -.15<7665>-.25 G -.4 <722c>.15 G .652<7468657365206c696d6974732063616e206265206162>102 543.47 R .652<7573656420746f206d6f756e7420612064656e69616c206f6620736572766963 652061747461636b2e>-.2 F -.15<466f>5.652 G 3.152<7265>.15 G .652 <78616d706c652c206966>-3.302 F F0<4d61784461656d6f6e4368696c2d>3.152 E <6472>102 555.47 Q<656e3d3130>-.18 E F1 .9<7468656e20616e2061747461636b> 3.4 F .901<6572206e6565647320746f206f70656e206f6e6c7920313020534d545020 73657373696f6e7320746f207468652073657276>-.1 F<6572>-.15 E 3.401<2c6c> -.4 G<6561>-3.401 E 1.201 -.15<76652074>-.2 H .901 <68656d2069646c6520666f72>.15 F .591<6d6f7374206f66207468652074696d652c 20616e64206e6f206d6f726520636f6e6e656374696f6e732077696c6c20626520616363 65707465642e>102 567.47 R .591<49662074686973206f7074696f6e206973207365 74207468656e207468652074696d656f757473>5.591 F 1.187 <7573656420696e206120534d54502073657373696f6e2073686f756c64206265206c6f> 102 579.47 R 1.187<77657265642066726f6d20746865697220646566>-.25 F 1.187 <61756c742076>-.1 F 1.187 <616c75657320746f207468656972206d696e696d756d2076>-.25 F 1.187 <616c756573206173>-.25 F<73706563698c656420696e20524643203238323120616e 64206c697374656420696e2073656374696f6e20342e312e322e>102 591.47 Q F0 2.5 <342e362e204d6561737572>87 615.47 R <657320616761696e73742044656e69616c206f6620536572>-.18 E <766963652041747461636b73>-.1 E F2<53656e646d61696c>127 631.67 Q F1 1.674<68617320736f6d652062>4.174 F 1.674 <75696c742d696e206d65617375726573206167>-.2 F 1.673<61696e73742073696d70 6c652064656e69616c206f6620736572766963652028446f53292061747461636b732e> -.05 F<546865>6.673 E .913<534d54502073657276>102 643.67 R .913 <657220627920646566>-.15 F .913<61756c7420736c6f>-.1 F .913<777320646f> -.25 F .913<776e20696620746f6f206d616e>-.25 F 3.413<7962>-.15 G .913<61 6420636f6d6d616e64732061726520697373756564206f7220696620736f6d6520636f6d 6d616e6473>-3.413 F .034<61726520726570656174656420746f6f206f6674656e20 77697468696e20612073657373696f6e2e>102 655.67 R .033<44657461696c732063 616e20626520666f756e6420696e2074686520736f75726365208c6c65>5.033 F F0 <73656e646d61696c2f7372>2.533 E<7672736d74702e63>-.1 E F1 2.169<6279206c 6f6f6b696e6720666f7220746865206d6163726f2064658c6e6974696f6e73206f66>102 667.67 R F0<4d415842>4.669 E<4144434f4d4d414e4453>-.3 E F1<2c>A F0 <4d41584e4f4f50434f4d4d414e4453>4.669 E F1<2c>A F0 <4d415848454c4f434f4d4d414e4453>102 679.67 Q F1<2c>A F0 <4d415856524659434f4d4d414e4453>4.414 E F1 4.414<2c61>C<6e64>-4.414 E F0 <4d41584554524e434f4d4d414e4453>4.414 E F1 6.914<2e49>C 4.414<6661> -6.914 G<6e>-4.414 E .462<534d545020636f6d6d616e642069732069737375656420 6d6f7265206f6674656e207468616e2074686520636f72726573706f6e64696e67>102 691.67 R F0<4d4158636d64434f4d4d414e4453>2.962 E F1 -.25<7661>2.962 G .462<6c75652c207468656e>.25 F .217 <74686520726573706f6e73652069732064656c617965642065>102 703.67 R <78706f6e656e7469616c6c79>-.15 E 2.717<2c73>-.65 G .216<74617274696e6720 77697468206120736c6565702074696d65206f66206f6e65207365636f6e642c20757020 746f2061206d6178696d756d206f66>-2.717 F 1.687 <666f7572206d696e75746573202861732064658c6e6564206279>102 715.67 R F0 <4d415854494d454f5554>4.187 E F1 4.187<292e204966>B 1.687 <746865206f7074696f6e>4.187 F F0<4d61784461656d6f6e4368696c6472>4.187 E <656e>-.18 E F1 1.687<69732073657420746f2061>4.187 F 0 Cg EP %%Page: 32 28 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d33322053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF -.25<7661>102 96 S .735<6c7565206772656174657220 7468616e207a65726f2c207468656e207468697320636f756c64206d616b>.25 F 3.235 <656144>-.1 G .735<6f532061747461636b2065>-3.235 F -.15<7665>-.25 G 3.235<6e77>.15 G .734<6f7273652073696e6365206974206b>-3.335 F .734 <65657073206120636f6e6e656374696f6e>-.1 F .867 <6f70656e206c6f6e676572207468616e206e6563657373617279>102 108 R 5.867 <2e54>-.65 G .867<68657265666f7265206120636f6e6e656374696f6e206973207465 726d696e61746564207769746820612034323120534d5450207265706c7920636f646520 6966>-5.867 F .57<746865206e756d626572206f6620636f6d6d616e64732065>102 120 R .57<78636565647320746865206c696d697420627920612066>-.15 F .57 <6163746f72206f66207477>-.1 F 3.07<6f61>-.1 G<6e64>-3.07 E F0<4d415842> 3.07 E<4144434f4d4d414e4453>-.3 E F1 .57<697320736574>3.07 F <746f20612076>102 132 Q <616c75652067726561746572207468616e207a65726f202874686520646566>-.25 E <61756c74206973203235292e>-.1 E F0 2.5<342e372e2044656c69>87 156 R -.1 <7665>-.1 G<7279204d6f6465>.1 E F1 .253 <5468657265206172652061206e756d626572206f662064656c69>127 172.2 R -.15 <7665>-.25 G .253<7279206d6f6465732074686174>.15 F/F2 10/Times-Italic@0 SF<73656e646d61696c>2.753 E F1 .254 <63616e206f70657261746520696e2c2073657420627920746865>2.753 F F0 <44656c69>2.754 E -.1<7665>-.1 G<72794d6f6465>.1 E F1<28>102 184.2 Q F0 <64>A F1 3.599<2963>C 1.099<6f6e8c6775726174696f6e206f7074696f6e2e> -3.599 F 1.099<5468657365206d6f646573207370656369667920686f>6.099 F 3.598<7771>-.25 G 1.098 <7569636b6c79206d61696c2077696c6c2062652064656c69>-3.598 F -.15<7665> -.25 G 3.598<7265642e204c65>.15 F -.05<6761>-.15 G 3.598<6c6d>.05 G <6f646573>-3.598 E<6172653a>102 196.2 Q 17.22<6964>142 212.4 S<656c69> -17.22 E -.15<7665>-.25 G 2.5<7269>.15 G<6e74657261637469>-2.5 E -.15 <7665>-.25 G<6c79202873796e6368726f6e6f75736c7929>.15 E 15<6264>142 224.4 S<656c69>-15 E -.15<7665>-.25 G 2.5<7269>.15 G 2.5<6e62>-2.5 G <61636b67726f756e6420286173796e6368726f6e6f75736c7929>-2.5 E 15<7171>142 236.4 S<75657565206f6e6c792028646f6e27>-15 E 2.5<7464>-.18 G<656c69>-2.5 E -.15<7665>-.25 G<7229>.15 E 15<6464>142 248.4 S<656665722064656c69>-15 E -.15<7665>-.25 G<727920617474656d7074732028646f6e27>.15 E 2.5<7464> -.18 G<656c69>-2.5 E -.15<7665>-.25 G<7229>.15 E 1.273 <5468657265206172652074726164656f66>102 264.6 R 3.773<66732e204d6f6465> -.25 F 1.273<99699a206769>3.773 F -.15<7665>-.25 G 3.773<7374>.15 G 1.273<68652073656e6465722074686520717569636b>-3.773 F 1.273 <65737420666565646261636b2c2062>-.1 F 1.274<7574206d617920736c6f>-.2 F 3.774<7764>-.25 G -.25<6f77>-3.774 G 3.774<6e73>.25 G<6f6d65>-3.774 E .799<6d61696c65727320616e6420697320686172646c792065>102 276.6 R -.15 <7665>-.25 G 3.299<726e>.15 G<6563657373617279>-3.299 E 5.799<2e4d>-.65 G .799<6f64652099629a2064656c69>-5.799 F -.15<7665>-.25 G .799 <72732070726f6d70746c792062>.15 F .798<75742063616e206361757365206c6172> -.2 F .798<6765206e756d62657273206f66>-.18 F .223 <70726f63657373657320696620796f75206861>102 288.6 R .524 -.15 <76652061206d>-.2 H .224<61696c657220746861742074616b>.15 F .224 <65732061206c6f6e672074696d6520746f2064656c69>-.1 F -.15<7665>-.25 G 2.724<72616d>.15 G 2.724<6573736167652e204d6f6465>-2.724 F .224 <99719a206d696e696d697a657320746865>2.724 F .597 <6c6f6164206f6e20796f7572206d616368696e652c2062>102 300.6 R .597 <7574206d65616e7320746861742064656c69>-.2 F -.15<7665>-.25 G .596<727920 6d61792062652064656c6179656420666f7220757020746f207468652071756575652069 6e74657276>.15 F 3.096<616c2e204d6f6465>-.25 F .36 <99649a206973206964656e746963616c20746f206d6f64652099719a2065>102 312.6 R .36<7863657074207468617420697420616c736f20707265>-.15 F -.15<7665>-.25 G .36 <6e7473206c6f6f6b75707320696e206d61707320696e636c7564696e6720746865>.15 F F0<2d44>2.86 E F1 .36<8d61672066726f6d>2.86 F -.1<776f>102 324.6 S 2.076<726b696e6720647572696e672074686520696e697469616c207175657565207068 6173653b20697420697320696e74656e64656420666f722060>.1 F 2.075 <606469616c206f6e2064656d616e6427>-.74 F 4.575<2773>-.74 G 2.075 <6974657320776865726520444e53>-4.575 F .318 <6c6f6f6b757073206d6967687420636f7374207265616c206d6f6e65>102 336.6 R 4.118 -.65<792e2053>-.15 H .319<6f6d652073696d706c65206572726f72206d6573 73616765732028652e672e2c20686f737420756e6b6e6f>.65 F .319 <776e20647572696e672074686520534d5450>-.25 F<70726f746f636f6c292077696c 6c2062652064656c61796564207573696e672074686973206d6f64652e>102 348.6 Q <4d6f64652099629a2069732074686520757375616c20646566>5 E<61756c742e>-.1 E .052<496620796f752072756e20696e206d6f64652099719a20287175657565206f6e6c 79292c2099649a20286465666572292c206f722099629a202864656c69>127 364.8 R -.15<7665>-.25 G 2.552<7269>.15 G 2.552<6e62>-2.552 G <61636b67726f756e6429>-2.552 E F2<73656e646d61696c>2.551 E F1<77696c6c> 2.551 E 1.391<6e6f742065>102 376.8 R 1.392 <7870616e6420616c696173657320616e6420666f6c6c6f>-.15 F 3.892<772e>-.25 G <666f7277>-3.892 E 1.392<617264208c6c65732075706f6e20696e697469616c2072 656365697074206f6620746865206d61696c2e>-.1 F 1.392 <546869732073706565647320757020746865>6.392 F <726573706f6e736520746f205243505420636f6d6d616e64732e>102 388.8 Q<4d6f64 652099699a2073686f756c64206e6f7420626520757365642062792074686520534d5450 2073657276>5 E<6572>-.15 E<2e>-.55 E F0 2.5<342e382e204c6f67>87 412.8 R <4c65>2.5 E -.1<7665>-.15 G<6c>.1 E F1 1.041<546865206c65>127 429 R -.15 <7665>-.25 G 3.541<6c6f>.15 G 3.541<666c>-3.541 G 1.041 <6f6767696e672063616e2062652073657420666f72>-3.541 F F2 <73656e646d61696c>3.541 E F1 6.041<2e54>C 1.041<686520646566>-6.041 F 1.04<61756c74207573696e672061207374616e6461726420636f6e8c6775726174696f 6e206973>-.1 F<6c65>102 441 Q -.15<7665>-.25 G 2.622<6c39>.15 G 5.122 <2e54>-2.622 G .122<6865206c65>-5.122 F -.15<7665>-.25 G .122 <6c732061726520617070726f78696d6174656c7920617320666f6c6c6f>.15 F .122 <77732028736f6d65206c6f6720747970657320617265207573696e6720646966>-.25 F .122<666572656e74206c65>-.25 F -.15<7665>-.25 G 2.622<6c64>.15 G <6570656e64696e67>-2.622 E<6f6e2076>102 453 Q<6172696f75732066>-.25 E <6163746f7273293a>-.1 E 31<304d>102 469.2 S <696e696d616c206c6f6767696e672e>-31 E 31<3153>102 485.4 S <6572696f75732073797374656d2066>-31 E<61696c7572657320616e6420706f74656e 7469616c2073656375726974792070726f626c656d732e>-.1 E 31<324c>102 501.6 S <6f737420636f6d6d756e69636174696f6e7320286e657477>-31 E <6f726b2070726f626c656d732920616e642070726f746f636f6c2066>-.1 E <61696c757265732e>-.1 E 31<334f>102 517.8 S 1.238 <7468657220736572696f75732066>-31 F 1.238<61696c757265732c206d616c666f72 6d6564206164647265737365732c207472616e7369656e7420666f7277>-.1 F 1.237 <6172642f696e636c756465206572726f72732c20636f6e6e656374696f6e>-.1 F <74696d656f7574732e>138 529.8 Q 31<344d>102 546 S<696e6f722066>-31 E<61 696c757265732c206f7574206f66206461746520616c696173206461746162617365732c 20636f6e6e656374696f6e2072656a656374696f6e732076696120636865636b5f207275 6c65736574732e>-.1 E 31<354d>102 562.2 S <65737361676520636f6c6c656374696f6e20737461746973746963732e>-31 E 31 <3643>102 578.4 S<72656174696f6e206f66206572726f72206d657373616765732c20 5652465920616e64204558504e20636f6d6d616e64732e>-31 E 31<3744>102 594.6 S <656c69>-31 E -.15<7665>-.25 G<72792066>.15 E <61696c757265732028686f7374206f72207573657220756e6b6e6f>-.1 E <776e2c206574632e292e>-.25 E 31<3853>102 610.8 S <75636365737366756c2064656c69>-31 E -.15<7665>-.25 G <7269657320616e6420616c69617320646174616261736520726562>.15 E <75696c64732e>-.2 E 31<394d>102 627 S<65737361676573206265696e6720646566 6572726564202864756520746f206120686f7374206265696e6720646f>-31 E <776e2c206574632e292e>-.25 E 23.5<3130204461746162617365>102 643.2 R -.15<6578>2.5 G<70616e73696f6e2028616c6961732c20666f7277>.15 E<6172642c 20616e6420757365726462206c6f6f6b7570732920616e642061757468656e7469636174 696f6e20696e666f726d6174696f6e2e>-.1 E 23.5<3131204e4953>102 659.4 R <6572726f727320616e6420656e64206f66206a6f622070726f63657373696e672e>2.5 E 23.5<3132204c6f6773>102 675.6 R <616c6c20534d545020636f6e6e656374696f6e732e>2.5 E 23.5<3133204c6f67>102 691.8 R<6261642075736572207368656c6c732c208c6c6573207769746820696d70726f 706572207065726d697373696f6e732c20616e64206f74686572207175657374696f6e61 626c6520736974756174696f6e732e>2.5 E 23.5<3134204c6f6773>102 708 R <7265667573656420636f6e6e656374696f6e732e>2.5 E 0 Cg EP %%Page: 33 29 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3333>195.86 E /F1 10/Times-Roman@0 SF 23.5<3135204c6f67>102 96 R <616c6c20696e636f6d696e6720534d545020636f6d6d616e64732e>2.5 E 23.5 <3230204c6f6773>102 112.2 R .603 <617474656d70747320746f2072756e206c6f636b>3.102 F .603 <6564207175657565208c6c65732e>-.1 F .603 <546865736520617265206e6f74206572726f72732c2062>5.603 F .603 <75742063616e2062652075736566756c20746f206e6f7465206966>-.2 F <796f7572207175657565206170706561727320746f20626520636c6f676765642e>138 124.2 Q 23.5<3330204c6f7374>102 140.4 R<6c6f636b7320286f6e6c792069662075 73696e67206c6f636b6620696e7374656164206f66208d6f636b292e>2.5 E <4164646974696f6e616c6c79>102 156.6 Q 2.717<2c76>-.65 G .217 <616c7565732061626f>-2.967 F .516 -.15<76652036>-.15 H 2.716<3461>.15 G .216<726520726573657276>-2.716 F .216<656420666f722065>-.15 F .216 <787472656d656c792076>-.15 F .216<6572626f736520646562>-.15 F .216 <756767696e67206f75747075742e>-.2 F .216<4e6f206e6f726d616c2073697465> 5.216 F -.1<776f>102 168.6 S<756c642065>.1 E -.15<7665>-.25 G 2.5<7273> .15 G<65742074686573652e>-2.5 E F0 2.5<342e392e2046696c65>87 192.6 R <4d6f646573>2.5 E F1 .264<546865206d6f646573207573656420666f72208c6c6573 20646570656e64206f6e20776861742066756e6374696f6e616c69747920796f752077> 127 208.8 R .264<616e7420616e6420746865206c65>-.1 F -.15<7665>-.25 G 2.764<6c6f>.15 G 2.764<6673>-2.764 G .264<6563757269747920796f75>-2.764 F 2.561<726571756972652e20496e>102 220.8 R<6d616e>2.561 E 2.561<7963> -.15 G<61736573>-2.561 E/F2 10/Times-Italic@0 SF<73656e646d61696c>2.561 E F1 .06<646f6573206361726566756c20636865636b696e67206f6620746865206d6f 646573206f66208c6c657320616e64206469726563746f7269657320746f2061>2.561 F -.2<766f>-.2 G<6964>.2 E 1.335 <6163636964656e74616c20636f6d70726f6d6973653b20696620796f752077>102 232.8 R 1.336<616e7420746f206d616b>-.1 F 3.836<6569>-.1 G 3.836<7470> -3.836 G 1.336<6f737369626c6520746f206861>-3.836 F 1.636 -.15<76652067> -.2 H 1.336 <726f75702d7772697461626c6520737570706f7274208c6c657320796f75>.15 F <6d6179206e65656420746f2075736520746865>102 244.8 Q F0 <446f6e74426c616d6553656e646d61696c>2.5 E F1 <6f7074696f6e20746f207475726e206f66>2.5 E 2.5<6673>-.25 G <6f6d65206f6620746865736520636865636b732e>-2.5 E F0 2.5 <342e392e312e2054>102 268.8 R 2.5<6f73>-.92 G <756964206f72206e6f7420746f20737569643f>-2.5 E F2<53656e646d61696c>142 285 Q F1 .163 <6973206e6f206c6f6e67657220696e7374616c6c6564207365742d75736572>2.663 F .163<2d494420746f20726f6f742e>-.2 F .162 <73656e646d61696c2f53454355524954592065>5.163 F .162 <78706c61696e7320686f>-.15 F 2.662<7774>-.25 G<6f>-2.662 E .559 <636f6e8c6775726520616e6420696e7374616c6c>117 297 R F2<73656e646d61696c> 3.059 E F1 .559<776974686f7574207365742d75736572>3.059 F .559 <2d494420746f20726f6f742062>-.2 F .56 <7574207365742d67726f75702d49442077686963682069732074686520646566>-.2 F <61756c74>-.1 E <636f6e8c6775726174696f6e207374617274696e67207769746820382e31322e>117 309 Q 1.286<546865206461656d6f6e20757375616c6c792072756e7320617320726f6f 742c20756e6c657373206f74686572206d65617375726573206172652074616b>142 325.2 R 3.785<656e2e204174>-.1 F 1.285<74686520706f696e74207768657265> 3.785 F F2<73656e646d61696c>117 337.2 Q F1 .494<69732061626f757420746f> 2.994 F F2 -.2<6578>2.994 G<6563>.2 E F1 .494<2832292061206d61696c6572> 1.666 F 2.995<2c69>-.4 G 2.995<7463>-2.995 G .495<6865636b7320746f207365 652069662074686520757365726964206973207a65726f2028726f6f74293b2069662073 6f2c20697420726573657473>-2.995 F .334 <7468652075736572696420616e642067726f7570696420746f206120646566>117 349.2 R .333<61756c74202873657420627920746865>-.1 F F0<553d>2.833 E F1 .333<65717561746520696e20746865206d61696c6572206c696e653b20696620746861 74206973206e6f74207365742c20746865>2.833 F F0<44656661756c7455736572>117 361.2 Q F1 .121<6f7074696f6e2069732075736564292e>2.621 F .122 <546869732063616e206265206f>5.121 F -.15<7665>-.15 G .122 <7272696464656e2062792073657474696e6720746865>.15 F F0<53>2.622 E F1 .122<8d616720746f20746865206d61696c657220666f72206d61696c2d>2.622 F .804 <657273207468617420617265207472757374656420616e64206d757374206265206361 6c6c656420617320726f6f742e>117 373.2 R<486f>5.804 E<7765>-.25 E -.15 <7665>-.25 G 1.604 -.4<722c2074>.15 H .804<6869732077696c6c206361757365 206d61696c2070726f63657373696e6720746f206265>.4 F <6163636f756e74656420287573696e67>117 385.2 Q F2<7361>2.5 E F1<28382929 20746f20726f6f7420726174686572207468616e20746f2074686520757365722073656e 64696e6720746865206d61696c2e>1.666 E 3.557<416d>142 401.4 S 1.057 <6964646c652067726f756e6420697320746f2073657420746865>-3.557 F F0 <52756e417355736572>3.557 E F1 3.557<6f7074696f6e2e2054686973>3.557 F <636175736573>3.557 E F2<73656e646d61696c>3.557 E F1 1.058 <746f206265636f6d6520746865>3.557 F .392<696e64696361746564207573657220 617320736f6f6e2061732069742068617320646f6e652074686520737461727475702074 68617420726571756972657320726f6f7420707269>117 413.4 R<76696c65>-.25 E .392<67657320287072696d6172696c79>-.15 F 2.892<2c6f>-.65 G<70656e696e67> -2.892 E<746865>117 425.4 Q/F3 9/Times-Roman@0 SF<534d5450>3.741 E F1 <736f636b>3.741 E 3.741<6574292e204966>-.1 F 1.241<796f7520757365>3.741 F F0<52756e417355736572>3.741 E F1 3.741<2c74>C 1.241 <6865207175657565206469726563746f727920286e6f726d616c6c79>-3.741 F F2 <2f7661722f73706f6f6c2f6d7175657565>3.742 E F1<29>A 1.315 <73686f756c64206265206f>117 437.4 R 1.315 <776e656420627920746861742075736572>-.25 F 3.815<2c61>-.4 G 1.315<6e6420 616c6c208c6c657320616e64206461746162617365732028696e636c7564696e67207573 6572>-3.815 F F2<2e666f72776172>3.814 E<64>-.37 E F1 1.314 <8c6c65732c20616c696173>3.814 F .256 <8c6c65732c203a696e636c7564653a208c6c65732c20616e642065>117 449.4 R .256 <787465726e616c2064617461626173657329206d757374206265207265616461626c65 20627920746861742075736572>-.15 F 5.257<2e41>-.55 G .257 <6c736f2c2073696e63652073656e646d61696c>-5.257 F .836<77696c6c206e6f7420 62652061626c6520746f206368616e676520697473207569642c2064656c69>117 461.4 R -.15<7665>-.25 G .836 <727920746f2070726f6772616d73206f72208c6c65732077696c6c206265206d61726b> .15 F .836<656420617320756e736166652c20652e672e2c>-.1 F<756e64656c69>117 473.4 Q -.15<7665>-.25 G .814<7261626c652c20696e>.15 F F2 <2e666f72776172>3.314 E<64>-.37 E F1 3.314<2c61>C .814 <6c69617365732c20616e64203a696e636c7564653a208c6c65732e>-3.314 F .814 <41646d696e6973747261746f72732063616e206f>5.814 F -.15<7665>-.15 G .815 <72726964652074686973206279207365742d>.15 F .7<74696e6720746865>117 485.4 R F0<446f6e74426c616d6553656e646d61696c>3.2 E F1 .7 <6f7074696f6e20746f207468652073657474696e67>3.2 F F0 <4e6f6e526f6f745361666541646472>3.2 E F1<2e>A F0<52756e417355736572>5.7 E F1 .7<69732070726f62612d>3.2 F 1.186 <626c7920626573742073756974656420666f72208c7265>117 497.4 R -.1<7761> -.25 G 1.186<6c6c20636f6e8c6775726174696f6e73207468617420646f6e27>.1 F 3.686<7468>-.18 G -2.25 -.2<61762065>-3.686 H<7265>3.886 E 1.186 <67756c61722075736572206c6f67696e732e>-.15 F 1.186 <496620746865206f7074696f6e206973>6.186 F 1.443<75736564206f6e2061207379 7374656d20776869636820706572666f726d73206c6f63616c2064656c69>117 509.4 R -.15<7665>-.25 G<7279>.15 E 3.943<2c74>-.65 G 1.443 <68656e20746865206c6f63616c2064656c69>-3.943 F -.15<7665>-.25 G 1.442 <7279206167656e74206d757374206861>.15 F 1.742 -.15<76652074>-.2 H<6865> .15 E .974<70726f706572207065726d697373696f6e732028692e652e2c2075737561 6c6c79207365742d75736572>117 521.4 R .975 <2d494420726f6f74292073696e63652069742077696c6c20626520696e>-.2 F -.2 <766f>-.4 G -.1<6b65>.2 G 3.475<6462>.1 G 3.475<7974>-3.475 G<6865> -3.475 E F0<52756e417355736572>3.475 E F1<2c>A<6e6f7420627920726f6f742e> 117 533.4 Q F0 2.5<342e392e322e2054>102 557.4 R<7572>-.92 E <6e696e67206f666620736563757269747920636865636b73>-.15 E F2 <53656e646d61696c>142 573.6 Q F1 .648<69732076>3.148 F .648<657279207061 72746963756c61722061626f757420746865206d6f646573206f66208c6c657320746861 74206974207265616473206f72207772697465732e>-.15 F -.15<466f>5.648 G 3.148<7265>.15 G<78616d706c652c>-3.298 E .25<627920646566>117 585.6 R .251<61756c742069742077696c6c2072656675736520746f2072656164206d6f737420 8c6c65732074686174206172652067726f7570207772697461626c65206f6e2074686520 67726f756e6473207468617420746865>-.1 F 2.751<796d>-.15 G<69676874>-2.751 E<6861>117 597.6 Q 1.216 -.15<76652062>-.2 H .916<65656e2074616d70657265 64207769746820627920736f6d656f6e65206f74686572207468616e20746865206f>.15 F .916<776e65723b2069742077696c6c2065>-.25 F -.15<7665>-.25 G 3.416 <6e72>.15 G .916<656675736520746f2072656164208c6c657320696e>-3.416 F 1.456<67726f7570207772697461626c65206469726563746f726965732e>117 609.6 R 1.456<416c736f2c2073656e646d61696c2077696c6c2072656675736520746f20637265 6174652061206e65>6.456 F 3.957<7761>-.25 G 1.457 <6c696173657320646174616261736520696e20616e>-3.957 F .032 <756e73616665206469726563746f7279>117 621.6 R 5.032<2e59>-.65 G .031<6f 752063616e206765742061726f756e642074686973206279206d616e75616c6c79206372 656174696e6720746865206461746162617365208c6c6520617320612074727573746564 2075736572>-6.132 F <6168656164206f662074696d6520616e64207468656e20726562>117 633.6 Q <75696c64696e672074686520616c69617365732064617461626173652077697468>-.2 E F0<6e6577616c6961736573>2.5 E F1<2e>A .437<496620796f7520617265>142 649.8 R F2<7175697465>2.937 E F1 .437<73757265207468617420796f757220636f 6e8c6775726174696f6e206973207361666520616e6420796f752077>2.937 F<616e74> -.1 E F2<73656e646d61696c>2.938 E F1 .438<746f2061>2.938 F -.2<766f>-.2 G .438<6964207468657365>.2 F 1.187 <736563757269747920636865636b732c20796f752063616e207475726e206f66>117 661.8 R 3.687<6663>-.25 G 1.187 <65727461696e20636865636b73207573696e6720746865>-3.687 F F0 <446f6e74426c616d6553656e646d61696c>3.686 E F1 3.686 <6f7074696f6e2e2054686973>3.686 F 1.389<6f7074696f6e2074616b>117 673.8 R 1.389<6573206f6e65206f72206d6f7265206e616d657320746861742064697361626c65 20636865636b732e>-.1 F 1.39 <496e20746865206465736372697074696f6e73207468617420666f6c6c6f>6.389 F 2.69 -.65<772c2099>-.25 H<756e73616665>.65 E<6469726563746f72799a206d65 616e732061206469726563746f72792074686174206973207772697461626c6520627920 616e>117 685.8 Q<796f6e65206f74686572207468616e20746865206f>-.15 E <776e6572>-.25 E 5<2e54>-.55 G<68652076>-5 E<616c756573206172653a>-.25 E 15.73<53616665204e6f>117 702 R<7370656369616c2068616e646c696e672e>2.5 E 0 Cg EP %%Page: 34 30 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d33342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<417373756d655361666543686f>117 96 Q<776e>-.25 E .413<417373756d65207468617420746865>153 108 R/F2 10/Times-Italic@0 SF -.15<6368>2.913 G<6f776e>.15 E F1 .413 <73797374656d2063616c6c206973207265737472696374656420746f20726f6f742e> 2.913 F .413<53696e636520736f6d652076>5.413 F .412 <657273696f6e73206f6620554e4958>-.15 F .865<7065726d6974207265>153 120 R .865<67756c617220757365727320746f206769>-.15 F 1.166 -.15<7665206177> -.25 H .866<6179207468656972208c6c657320746f206f74686572207573657273206f 6e20736f6d65208c6c6573797374656d732c>.05 F F2<73656e642d>3.366 E <6d61696c>153 132 Q F1 .457 <6f6674656e2063616e6e6f7420617373756d6520746861742061206769>2.957 F -.15 <7665>-.25 G 2.956<6e8c>.15 G .456<6c652077>-2.956 F .456 <6173206372656174656420627920746865206f>-.1 F<776e6572>-.25 E 2.956 <2c70>-.4 G .456<6172746963756c61726c79207768656e>-2.956 F 1.474 <697420697320696e2061207772697461626c65206469726563746f7279>153 144 R 6.475<2e59>-.65 G 1.475 <6f752063616e207365742074686973208d616720696620796f75206b6e6f>-7.575 F 3.975<7774>-.25 G 1.475<686174208c6c65206769>-3.975 F -.15<7665>-.25 G -2.3 -.15<61772061>.15 H 3.975<7969>.15 G<73>-3.975 E <72657374726963746564206f6e20796f75722073797374656d2e>153 156 Q <436572744f776e6572>117 172.2 Q .694 <4163636570742063657274698c63617465207075626c696320616e6420707269>153 184.2 R -.25<7661>-.25 G .694<7465206b>.25 F .994 -.15<6579208c>-.1 H .694<6c657320776869636820617265206e6f74206f>.15 F .693 <776e65642062792052756e41735573657220666f72>-.25 F<5354>153 196.2 Q <4152>-.93 E<54544c532e>-.6 E <436c61737346696c65496e556e7361666544697250>117 212.4 Q<617468>-.15 E .493 <5768656e2072656164696e6720636c617373208c6c657320287573696e6720746865> 153 224.4 R F0<46>2.993 E F1 .493 <6c696e6520696e2074686520636f6e8c6775726174696f6e208c6c65292c20616c6c6f> 2.993 F 2.994<778c>-.25 G .494<6c6573207468617420617265>-2.994 F <696e20756e73616665206469726563746f726965732e>153 236.4 Q<446f6e7457>117 252.6 Q<61726e46>-.8 E<6f7277>-.15 E <61726446696c65496e556e7361666544697250>-.1 E<617468>-.15 E<507265>153 264.6 Q -.15<7665>-.25 G<6e74206c6f6767696e67206f6620756e73616665206469 726563746f727920706174682077>.15 E<61726e696e677320666f72206e6f6e2d65> -.1 E<78697374656e7420666f7277>-.15 E<617264208c6c65732e>-.1 E <4572726f72486561646572496e556e7361666544697250>117 280.8 Q<617468>-.15 E<416c6c6f>153 292.8 Q 2.5<7774>-.25 G <6865208c6c65206e616d656420696e20746865>-2.5 E F0<457272>2.5 E <6f72486561646572>-.18 E F1 <6f7074696f6e20746f20626520696e20616e20756e73616665206469726563746f7279> 2.5 E<2e>-.65 E<46696c6544656c69>117 309 Q -.15<7665>-.25 G<727954>.15 E <6f486172644c696e6b>-.8 E<416c6c6f>153 321 Q 2.5<7764>-.25 G<656c69>-2.5 E -.15<7665>-.25 G <727920746f208c6c65732074686174206172652068617264206c696e6b732e>.15 E <46696c6544656c69>117 337.2 Q -.15<7665>-.25 G<727954>.15 E <6f53796d4c696e6b>-.8 E<416c6c6f>153 349.2 Q 2.5<7764>-.25 G<656c69>-2.5 E -.15<7665>-.25 G <727920746f208c6c65732074686174206172652073796d626f6c6963206c696e6b732e> .15 E -.15<466f>117 365.4 S<7277>.15 E <61726446696c65496e47726f75705772697461626c6544697250>-.1 E<617468>-.15 E<416c6c6f>153 377.4 Q<77>-.25 E F2<2e666f72776172>2.5 E<64>-.37 E F1 <8c6c657320696e2067726f7570207772697461626c65206469726563746f726965732e> 2.5 E -.15<466f>117 393.6 S<7277>.15 E <61726446696c65496e556e7361666544697250>-.1 E<617468>-.15 E<416c6c6f>153 405.6 Q<77>-.25 E F2<2e666f72776172>2.5 E<64>-.37 E F1 <8c6c657320696e20756e73616665206469726563746f726965732e>2.5 E -.15<466f> 117 421.8 S<7277>.15 E<61726446696c65496e556e7361666544697250>-.1 E <61746853616665>-.15 E<416c6c6f>153 433.8 Q 2.612<7761>-.25 G F2 <2e666f72776172>A<64>-.37 E F1 .112<8c6c65207468617420697320696e20616e20 756e73616665206469726563746f727920746f20696e636c756465207265666572656e63 657320746f2070726f6772616d20616e64>2.612 F<8c6c65732e>153 445.8 Q <47726f75705265616461626c654b>117 462 Q -.15<6579>-.25 G<46696c65>.15 E <41636365707420612067726f75702d7265616461626c65206b>153 474 Q .3 -.15 <6579208c>-.1 H<6c6520666f72205354>.15 E<4152>-.93 E<54544c532e>-.6 E <47726f75705265616461626c655341534c444246696c65>117 490.2 Q<416363657074 20612067726f75702d7265616461626c65204379727573205341534c207061737377>153 502.2 Q<6f7264208c6c652e>-.1 E<47726f75705265616461626c65446566>117 518.4 Q<61756c7441757468496e666f46696c65>-.1 E <41636365707420612067726f75702d7265616461626c6520446566>153 530.4 Q <61756c7441757468496e666f208c6c6520666f72205341534c2e>-.1 E <47726f75705772697461626c65416c69617346696c65>117 546.6 Q<416c6c6f>153 558.6 Q 2.5<7767>-.25 G <726f75702d7772697461626c6520616c696173208c6c65732e>-2.5 E <47726f75705772697461626c6544697250>117 574.8 Q<61746853616665>-.15 E .224<4368616e6765207468652064658c6e6974696f6e206f662099756e736166652064 69726563746f72799a20746f20636f6e73696465722067726f75702d7772697461626c65 206469726563746f7269657320746f206265>153 586.8 R 2.5<736166652e2057>153 598.8 R <6f726c642d7772697461626c65206469726563746f726965732061726520616c>-.8 E -.1<7761>-.1 G<797320756e736166652e>.1 E<47726f75705772697461626c6546> 117 615 Q<6f7277>-.15 E<61726446696c65>-.1 E<416c6c6f>153 627 Q 2.5 <7767>-.25 G<726f7570207772697461626c65>-2.5 E F2<2e666f72776172>2.5 E <64>-.37 E F1<8c6c65732e>2.5 E<47726f75705772697461626c6546>117 643.2 Q <6f7277>-.15 E<61726446696c6553616665>-.1 E <4163636570742067726f75702d7772697461626c65>153 655.2 Q F2 <2e666f72776172>2.5 E<64>-.37 E F1<8c6c6573206173207361666520666f722070 726f6772616d20616e64208c6c652064656c69>2.5 E -.15<7665>-.25 G<7279>.15 E <2e>-.65 E<47726f75705772697461626c65496e636c75646546696c65>117 671.4 Q <416c6c6f>153 683.4 Q 2.5<7767>-.25 G<726f7570207772697461626c65>-2.5 E F2<3a696e636c7564653a>2.5 E F1<8c6c65732e>2.5 E <47726f75705772697461626c65496e636c75646546696c6553616665>117 699.6 Q <4163636570742067726f75702d7772697461626c65>153 711.6 Q F2 <3a696e636c7564653a>2.5 E F1<8c6c6573206173207361666520666f722070726f67 72616d20616e64208c6c652064656c69>2.5 E -.15<7665>-.25 G<7279>.15 E<2e> -.65 E 0 Cg EP %%Page: 35 31 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3335>195.86 E /F1 10/Times-Roman@0 SF<47726f75705772697461626c655341534c444246696c65> 117 96 Q<41636365707420612067726f75702d7772697461626c652043797275732053 41534c207061737377>153 108 Q<6f7264208c6c652e>-.1 E <48656c7046696c65496e556e7361666544697250>117 124.2 Q<617468>-.15 E <416c6c6f>153 136.2 Q 2.5<7774>-.25 G <6865208c6c65206e616d656420696e20746865>-2.5 E F0<48656c7046696c65>2.5 E F1 <6f7074696f6e20746f20626520696e20616e20756e73616665206469726563746f7279> 2.5 E<2e>-.65 E <496e636c75646546696c65496e47726f75705772697461626c6544697250>117 152.4 Q<617468>-.15 E<416c6c6f>153 164.4 Q<77>-.25 E/F2 10/Times-Italic@0 SF <3a696e636c7564653a>2.5 E F1 <8c6c657320696e2067726f7570207772697461626c65206469726563746f726965732e> 2.5 E<496e636c75646546696c65496e556e7361666544697250>117 180.6 Q<617468> -.15 E<416c6c6f>153 192.6 Q<77>-.25 E F2<3a696e636c7564653a>2.5 E F1 <8c6c657320696e20756e73616665206469726563746f726965732e>2.5 E <496e636c75646546696c65496e556e7361666544697250>117 208.8 Q <61746853616665>-.15 E<416c6c6f>153 220.8 Q 3.706<7761>-.25 G F2 <3a696e636c7564653a>A F1 1.206<8c6c65207468617420697320696e20616e20756e 73616665206469726563746f727920746f20696e636c756465207265666572656e636573 20746f2070726f6772616d>3.706 F<616e64208c6c65732e>153 232.8 Q <496e737566>117 249 Q<8c6369656e74456e74726f70>-.25 E<79>-.1 E -.35 <5472>153 261 S 3.212<7974>.35 G 3.212<6f75>-3.212 G .713<7365205354> -3.212 F<4152>-.93 E .713<54544c532065>-.6 F -.15<7665>-.25 G 3.213 <6e69>.15 G 3.213<6674>-3.213 G .713<68652050524e4720666f72204f70656e53 534c206973206e6f742070726f7065726c79207365656465642064657370697465> -3.213 F<7468652073656375726974792070726f626c656d732e>153 273 Q <4c696e6b>117 289.2 Q<6564416c69617346696c65496e5772697461626c65446972> -.1 E<416c6c6f>153 301.2 Q 2.5<7761>-.25 G 2.5<6e61>-2.5 G<6c696173208c 6c6520746861742069732061206c696e6b20696e2061207772697461626c652064697265 63746f7279>-2.5 E<2e>-.65 E<4c696e6b>117 317.4 Q <6564436c61737346696c65496e5772697461626c65446972>-.1 E<416c6c6f>153 329.4 Q 2.5<7763>-.25 G<6c617373208c6c6573207468617420617265206c696e6b73 20696e207772697461626c65206469726563746f726965732e>-2.5 E<4c696e6b>117 345.6 Q<656446>-.1 E<6f7277>-.15 E <61726446696c65496e5772697461626c65446972>-.1 E<416c6c6f>153 357.6 Q<77> -.25 E F2<2e666f72776172>2.5 E<64>-.37 E F1<8c6c657320746861742061726520 6c696e6b7320696e207772697461626c65206469726563746f726965732e>2.5 E <4c696e6b>117 373.8 Q <6564496e636c75646546696c65496e5772697461626c65446972>-.1 E<416c6c6f>153 385.8 Q<77>-.25 E F2<3a696e636c7564653a>2.5 E F1<8c6c657320746861742061 7265206c696e6b7320696e207772697461626c65206469726563746f726965732e>2.5 E <4c696e6b>117 402 Q<65644d6170496e5772697461626c65446972>-.1 E<416c6c6f> 153 414 Q 2.685<776d>-.25 G .185<6170208c6c6573207468617420617265206c69 6e6b7320696e207772697461626c65206469726563746f726965732e>-2.685 F .184 <5468697320696e636c7564657320616c696173206461746162617365208c6c65732e> 5.184 F<4c696e6b>117 430.2 Q <65645365727669636553776974636846696c65496e5772697461626c65446972>-.1 E <416c6c6f>153 442.2 Q 2.5<7774>-.25 G<6865207365727669636520737769746368 208c6c6520746f2062652061206c696e6b2065>-2.5 E -.15<7665>-.25 G 2.5<6e69> .15 G 2.5<6674>-2.5 G <6865206469726563746f7279206973207772697461626c652e>-2.5 E <4d6170496e556e7361666544697250>117 458.4 Q<617468>-.15 E<416c6c6f>153 470.4 Q 2.97<776d>-.25 G .47<6170732028652e672e2c>-2.97 F F2<68617368> 2.97 E F1<2c>A F2<627472>2.97 E<6565>-.37 E F1 2.97<2c61>C<6e64>-2.97 E F2<64626d>2.97 E F1 .47 <8c6c65732920696e20756e73616665206469726563746f726965732e>2.97 F .47 <5468697320696e636c7564657320616c696173>5.47 F <6461746162617365208c6c65732e>153 482.4 Q <4e6f6e526f6f745361666541646472>117 498.6 Q .485 <446f206e6f74206d61726b208c6c6520616e642070726f6772616d2064656c69>153 510.6 R -.15<7665>-.25 G .484<7269657320617320756e736166652069662073656e 646d61696c206973206e6f742072756e6e696e67207769746820726f6f74>.15 F <707269>153 522.6 Q<76696c65>-.25 E<6765732e>-.15 E <52756e50726f6772616d496e556e7361666544697250>117 538.8 Q<617468>-.15 E< 52756e2070726f6772616d7320746861742061726520696e207772697461626c65206469 726563746f7269657320776974686f7574206c6f6767696e6720612077>153 550.8 Q <61726e696e672e>-.1 E<52756e5772697461626c6550726f6772616d>117 567 Q <52756e2070726f6772616d732074686174206172652067726f75702d206f722077>153 579 Q <6f726c642d7772697461626c6520776974686f7574206c6f6767696e6720612077>-.1 E<61726e696e672e>-.1 E -.35<5472>117 595.2 S<757374537469636b>.35 E <79426974>-.15 E<416c6c6f>153 607.2 Q 3.405<7767>-.25 G .905 <726f7570206f722077>-3.405 F .905<6f726c64207772697461626c65206469726563 746f726965732069662074686520737469636b>-.1 F 3.405<7962>-.15 G .906 <697420697320736574206f6e20746865206469726563746f7279>-3.405 F 5.906 <2e44>-.65 G<6f>-5.906 E<6e6f74207365742074686973206f6e2073797374656d73 20776869636820646f206e6f7420686f6e6f722074686520737469636b>153 619.2 Q 2.5<7962>-.15 G<6974206f6e206469726563746f726965732e>-2.5 E -.8<576f>117 635.4 S<726c645772697461626c65416c69617346696c65>.8 E<4163636570742077> 153 647.4 Q<6f726c642d7772697461626c6520616c696173208c6c65732e>-.1 E -.8 <576f>117 663.6 S<726c645772697461626c6546>.8 E<6f7277>-.15 E <6172648c6c65>-.1 E<416c6c6f>153 675.6 Q 2.5<7777>-.25 G <6f726c64207772697461626c65>-2.6 E F2<2e666f72776172>2.5 E<64>-.37 E F1 <8c6c65732e>2.5 E -.8<576f>117 691.8 S <726c645772697461626c65496e636c7564658c6c65>.8 E<416c6c6f>153 703.8 Q 2.5<7777>-.25 G<6f726c64207772697461626c65>-2.6 E F2<3a696e636c7564653a> 2.5 E F1<8c6c65732e>2.5 E 0 Cg EP %%Page: 36 32 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d33362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<57726974654d617054>117 96 Q<6f486172644c696e6b> -.8 E<416c6c6f>153 108 Q 2.5<7777>-.25 G <726974657320746f206d6170732074686174206172652068617264206c696e6b732e> -2.5 E<57726974654d617054>117 124.2 Q<6f53796d4c696e6b>-.8 E<416c6c6f> 153 136.2 Q 2.5<7777>-.25 G<726974657320746f206d617073207468617420617265 2073796d626f6c6963206c696e6b732e>-2.5 E<5772697465537461747354>117 152.4 Q<6f486172644c696e6b>-.8 E<416c6c6f>153 164.4 Q 2.5<7774>-.25 G <686520737461747573208c6c6520746f20626520612068617264206c696e6b2e>-2.5 E <5772697465537461747354>117 180.6 Q<6f53796d4c696e6b>-.8 E<416c6c6f>153 192.6 Q 2.5<7774>-.25 G<686520737461747573208c6c6520746f2062652061207379 6d626f6c6963206c696e6b2e>-2.5 E F0 2.5<342e31302e20436f6e6e656374696f6e> 87 216.6 R<43616368696e67>2.5 E F1 .642 <5768656e2070726f63657373696e67207468652071756575652c>127 232.8 R/F2 10 /Times-Italic@0 SF<73656e646d61696c>3.142 E F1 .642 <77696c6c2074727920746f206b>3.142 F .642<65657020746865206c617374206665> -.1 F 3.142<776f>-.25 G .642 <70656e20636f6e6e656374696f6e73206f70656e20746f>-3.142 F -.2<61766f>102 244.8 S<6964207374617274757020616e642073687574646f>.2 E <776e20636f7374732e>-.25 E<54686973206f6e6c79206170706c69657320746f2049 504320616e64204c504320636f6e6e656374696f6e732e>5 E .286<5768656e20747279 696e6720746f206f70656e206120636f6e6e656374696f6e207468652063616368652069 73208c7273742073656172636865642e>127 261 R .287 <496620616e206f70656e20636f6e6e656374696f6e20697320666f756e642c>5.286 F 1.034<69742069732070726f62656420746f20736565206966206974206973207374696c 6c2061637469>102 273 R 1.333 -.15<76652062>-.25 H 3.533<7973>.15 G 1.033 <656e64696e672061>-3.533 F/F3 9/Times-Roman@0 SF<52534554>3.533 E F1 3.533<636f6d6d616e642e204974>3.533 F 1.033 <6973206e6f7420616e206572726f7220696620746869732066>3.533 F<61696c733b> -.1 E<696e73746561642c2074686520636f6e6e656374696f6e20697320636c6f736564 20616e642072656f70656e65642e>102 285 Q -1 -.8<5477206f>127 301.2 T .408< 706172616d657465727320636f6e74726f6c2074686520636f6e6e656374696f6e206361 6368652e>3.708 F<546865>5.408 E F0 <436f6e6e656374696f6e436163686553697a65>2.908 E F1<28>2.908 E F0<6b>A F1 2.908<296f>C .408<7074696f6e2064658c6e6573>-2.908 F .145<746865206e756d 626572206f662073696d756c74616e656f7573206f70656e20636f6e6e656374696f6e73 20746861742077696c6c206265207065726d69747465642e>102 313.2 R .145 <49662069742069732073657420746f207a65726f2c20636f6e6e656374696f6e73> 5.145 F .212<77696c6c20626520636c6f73656420617320717569636b6c7920617320 706f737369626c652e>102 325.2 R .212<54686520646566>5.212 F .212 <61756c74206973206f6e652e>-.1 F .213<546869732073686f756c64206265207365 7420617320617070726f70726961746520666f7220796f7572>5.212 F .63<73797374 656d2073697a653b2069742077696c6c206c696d69742074686520616d6f756e74206f66 2073797374656d207265736f75726365732074686174>102 337.2 R F2 <73656e646d61696c>3.129 E F1 .629 <77696c6c2075736520647572696e672071756575652072756e732e>3.129 F<4e65>102 349.2 Q -.15<7665>-.25 G 2.5<7273>.15 G <6574207468697320686967686572207468616e20342e>-2.5 E<546865>127 365.4 Q F0<436f6e6e656374696f6e436163686554>2.74 E<696d656f7574>-.18 E F1<28> 2.741 E F0<4b>A F1 2.741<296f>C .241<7074696f6e2073706563698c6573207468 65206d6178696d756d2074696d65207468617420616e>-2.741 F 2.741<7963>-.15 G .241<616368656420636f6e2d>-2.741 F .9 <6e656374696f6e2077696c6c206265207065726d697474656420746f2069646c652e> 102 377.4 R .899<5768656e207468652069646c652074696d652065>5.9 F .899 <78636565647320746869732076>-.15 F .899 <616c75652074686520636f6e6e656374696f6e20697320636c6f7365642e>-.25 F .34 <54686973206e756d6265722073686f756c6420626520736d616c6c2028756e64657220 74656e206d696e757465732920746f20707265>102 389.4 R -.15<7665>-.25 G .34 <6e7420796f752066726f6d206772616262696e6720746f6f206d616e>.15 F 2.84 <7972>-.15 G<65736f7572636573>-2.84 E <66726f6d206f7468657220686f7374732e>102 401.4 Q<54686520646566>5 E <61756c74206973208c76>-.1 E 2.5<656d>-.15 G<696e757465732e>-2.5 E F0 2.5 <342e31312e204e616d65>87 425.4 R<536572>2.5 E -.1<7665>-.1 G 2.5<7241>.1 G<6363657373>-2.5 E F1 .104<436f6e74726f6c206f6620686f737420616464726573 73206c6f6f6b7570732069732073657420627920746865>127 441.6 R F0 <686f737473>2.604 E F1 .103<7365727669636520656e74727920696e20796f757220 7365727669636520737769746368208c6c652e>2.603 F<4966>5.103 E .99 <796f7520617265206f6e20612073797374656d2074686174206861732062>102 453.6 R .99<75696c742d696e20736572766963652073776974636820737570706f7274202865 2e672e2c20556c747269782c20536f6c617269732c206f7220444543204f53462f3129> -.2 F .336<7468656e20796f75722073797374656d2069732070726f6261626c792063 6f6e8c67757265642070726f7065726c7920616c7265616479>102 465.6 R 5.335 <2e4f>-.65 G<74686572776973652c>-5.335 E F2<73656e646d61696c>2.835 E F1 .335<77696c6c20636f6e73756c7420746865208c6c65>2.835 F F0 <2f6574632f6d61696c2f736572>102 477.6 Q<766963652e737769746368>-.1 E F1 4.901<2c77>C 2.402<686963682073686f756c6420626520637265617465642e>-4.901 F F2<53656e646d61696c>7.402 E F1 2.402<6f6e6c792075736573207477>4.902 F 4.902<6f65>-.1 G<6e74726965733a>-4.902 E F0<686f737473>4.902 E F1 <616e64>4.902 E F0<616c6961736573>102 489.6 Q F1 2.746<2c61>C .246<6c74 686f7567682073797374656d20726f7574696e6573206d617920757365206f7468657220 736572766963657320286e6f7461626c7920746865>-2.746 F F0<706173737764> 2.746 E F1 .245<7365727669636520666f722075736572206e616d65>2.745 F <6c6f6f6b757073206279>102 501.6 Q F2 -.1<6765>2.5 G<7470776e616d65>.1 E F1<292e>A<486f>127 517.8 Q<7765>-.25 E -.15<7665>-.25 G 1.51 -.4 <722c2073>.15 H .711<6f6d652073797374656d732028737563682061732053756e4f 5320342e58292077696c6c20646f20444e53206c6f6f6b757073207265>.4 F -.05 <6761>-.15 G .711<72646c657373206f66207468652073657474696e67>.05 F 1.029 <6f662074686520736572766963652073776974636820656e747279>102 529.8 R 6.029<2e49>-.65 G 3.529<6e70>-6.029 G<6172746963756c6172>-3.529 E 3.529 <2c74>-.4 G 1.029<68652073797374656d20726f7574696e65>-3.529 F F2 -.1 <6765>3.529 G<74686f737462796e616d65>.1 E F1 1.028 <283329206973207573656420746f206c6f6f6b207570>B 1.868 <686f7374206e616d65732c20616e64206d616e>102 541.8 R 4.368<7976>-.15 G 1.868<656e646f722076>-4.518 F 1.869<657273696f6e732074727920736f6d652063 6f6d62696e6174696f6e206f6620444e532c204e49532c20616e64208c6c65206c6f6f6b 757020696e>-.15 F 1.731<2f6574632f686f73747320776974686f757420636f6e7375 6c74696e6720612073657276696365207377697463682e>102 553.8 R F2 <53656e646d61696c>6.731 E F1<6d616b>4.231 E 1.731 <6573206e6f20617474656d707420746f2077>-.1 F 1.73 <6f726b2061726f756e642074686973>-.1 F .367<70726f626c656d2c20616e642074 686520444e53206c6f6f6b75702077696c6c20626520646f6e6520616e>102 565.8 R <7977>-.15 E<6179>-.1 E 5.368<2e49>-.65 G 2.868<6679>-5.368 G .368 <6f7520646f206e6f74206861>-2.868 F .668 -.15<76652061206e>-.2 H <616d6573657276>.15 E .368<657220636f6e8c6775726564206174>-.15 F .464 <616c6c2c2073756368206173206174206120555543502d6f6e6c7920736974652c>102 577.8 R F2<73656e646d61696c>2.964 E F1 .464<77696c6c2067657420612099636f 6e6e656374696f6e20726566757365649a206d657373616765207768656e206974207472 69657320746f>2.964 F .423 <636f6e6e65637420746f20746865206e616d652073657276>102 589.8 R<6572>-.15 E 5.423<2e49>-.55 G 2.923<6674>-5.423 G<6865>-2.923 E F0<686f737473> 2.923 E F1 .424<73776974636820656e74727920686173207468652073657276696365 2099646e739a206c697374656420736f6d65>2.923 F .424 <776865726520696e20746865>-.25 F<6c6973742c>102 601.8 Q F2 <73656e646d61696c>3.313 E F1 .813<77696c6c20696e746572707265742074686973 20746f206d65616e20612074656d706f726172792066>3.313 F .813<61696c75726520 616e642077696c6c20717565756520746865206d61696c20666f72206c61746572207072 6f2d>-.1 F<63657373696e673b206f74686572776973652c2069742069676e6f726573 20746865206e616d652073657276>102 613.8 Q<657220646174612e>-.15 E .672<54 68652073616d6520746563686e69717565206973207573656420746f2064656369646520 7768657468657220746f20646f204d58206c6f6f6b7570732e>127 630 R .673 <496620796f752077>5.673 F .673<616e74204d5820737570706f72742c>-.1 F <796f75>102 642 Q F2<6d757374>2.5 E F1<6861>2.5 E .3 -.15<76652099>-.2 H <646e739a206c69737465642061732061207365727669636520696e20746865>.15 E F0 <686f737473>2.5 E F1<73776974636820656e747279>2.5 E<2e>-.65 E<546865>127 658.2 Q F0<5265736f6c76>3.87 E<65724f7074696f6e73>-.1 E F1<28>3.87 E F0 <49>A F1 3.869<296f>C 1.369<7074696f6e20616c6c6f>-3.869 F 1.369 <777320796f7520746f20747765616b206e616d652073657276>-.25 F 1.369 <6572206f7074696f6e732e>-.15 F 1.369<54686520636f6d6d616e64>6.369 F .892 <6c696e652074616b>102 670.2 R .892<6573206120736572696573206f66208d6167 7320617320646f63756d656e74656420696e>-.1 F F2 -.37<7265>3.392 G <736f6c766572>.37 E F1 .892<28332920287769746820746865206c656164696e6720 995245535f9a2064656c65746564292e>B<45616368>5.892 E<63616e20626520707265 636564656420627920616e206f7074696f6e616c20602b27206f722060>102 682.2 Q /F4 10/Symbol SF<2d>A F1 2.5<272e2046>B<6f722065>-.15 E <78616d706c652c20746865206c696e65>-.15 E 2.5<4f52>142 698.4 S <65736f6c76>-2.5 E<65724f7074696f6e733d2b4141>-.15 E<4f4e4c>-.55 E<59>-1 E F4<2d>2.5 E F1<444e53524348>A .862<7475726e73206f6e20746865204141>102 714.6 R<4f4e4c>-.55 E 3.362<5928>-1 G .862 <61636365707420617574686f726974617469>-3.362 F 1.162 -.15<76652061>-.25 H .861<6e7377657273206f6e6c792920616e64207475726e73206f66>.15 F 3.361 <6674>-.25 G .861<686520444e53524348202873656172636820746865>-3.361 F 0 Cg EP %%Page: 37 33 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3337>195.86 E /F1 10/Times-Roman@0 SF 2.039 <646f6d61696e207061746829206f7074696f6e732e>102 96 R 2.039 <4d6f7374207265736f6c76>7.039 F 2.039<6572206c696272617269657320646566> -.15 F 2.039<61756c7420444e535243482c204445464e>-.1 F 2.039 <414d45532c20616e642052454355525345>-.35 F .394 <8d616773206f6e20616e6420616c6c206f7468657273206f66>102 108 R 2.894 <662e204966>-.25 F .394<4e4554494e45543620697320656e61626c65642c206d6f73 74206c696272617269657320646566>2.894 F .393 <61756c7420746f205553455f494e4554362061732077656c6c2e>-.1 F -1.1<596f> 102 120 S 3.748<7563>1.1 G 1.248 <616e20616c736f20696e636c756465209948617357>-3.748 F 1.249<696c64636172 644d589a20746f2073706563696679207468617420746865726520697320612077696c64 63617264204d58207265636f7264206d61746368696e67>-.4 F .225 <796f757220646f6d61696e3b2074686973207475726e73206f66>102 132 R 2.724 <664d>-.25 G 2.724<586d>-2.724 G .224<61746368696e67207768656e2063616e6f 6e696679696e67206e616d65732c2077686963682063616e206c65616420746f20696e61 7070726f707269617465>-2.724 F 5.248 <63616e6f6e698c636174696f6e732e20557365>102 144 R<9957>5.249 E <6f726b41726f756e6442726f6b>-.8 E 2.749<656e414141419a207768656e2066>-.1 F 2.749<61636564207769746820612062726f6b>-.1 F 2.749 <656e206e616d6573657276>-.1 F 2.749<65722074686174>-.15 F .565 <72657475726e7320534552>102 156 R<5646>-.8 E .565 <41494c2028612074656d706f726172792066>-.74 F .564<61696c75726529206f6e20 545f4141414120284950763629206c6f6f6b75707320647572696e6720686f73746e616d 652063616e6f6e698c63612d>-.1 F 2.5<74696f6e2e204e6f746963653a>102 168 R< 6974206d69676874206265206e656365737361727920746f206170706c79207468652073 616d6520286f722073696d696c617229206f7074696f6e7320746f>2.5 E/F2 10 /Times-Italic@0 SF<7375626d69742e6366>2.5 E F1<746f6f2e>2.5 E -1.11 <5665>127 184.2 S 1.732<7273696f6e206c65>1.11 F -.15<7665>-.25 G 4.232 <6c3163>.15 G 1.733<6f6e8c6775726174696f6e732028736565207468652073656374 696f6e2061626f75742060>-4.232 F 1.733<60436f6e8c6775726174696f6e2056> -.74 F 1.733<657273696f6e204c65>-1.11 F -.15<7665>-.25 G<6c27>.15 E 1.733<2729207475726e>-.74 F .843<444e5352434820616e64204445464e>102 196.2 R .843<414d4553206f66>-.35 F 3.343<6677>-.25 G .842 <68656e20646f696e672064656c69>-3.343 F -.15<7665>-.25 G .842 <7279206c6f6f6b7570732c2062>.15 F .842<7574206c6561>-.2 F 1.142 -.15 <76652074>-.2 H .842<68656d206f6e2065>.15 F -.15<7665>-.25 G .842 <7279776865726520656c73652e>.15 F -1.11<5665>102 208.2 S 1.042 <7273696f6e2038206f66>1.11 F F2<73656e646d61696c>3.542 E F1 1.043<69676e 6f726573207468656d207768656e20646f696e672063616e6f6e698c636174696f6e206c 6f6f6b7570732028746861742069732c207768656e207573696e6720245b202e2e2e> 3.542 F .392<245d292c20616e6420616c>102 220.2 R -.1<7761>-.1 G .392 <797320646f657320746865207365617263682e>.1 F .392 <496620796f7520646f6e27>5.392 F 2.892<7477>-.18 G .392 <616e7420746f20646f206175746f6d61746963206e616d652065>-2.992 F .391 <7874656e73696f6e2c20646f6e27>-.15 F 2.891<7463>-.18 G .391 <616c6c20245b202e2e2e>-2.891 F<245d2e>102 232.2 Q .485<5468652073656172 63682072756c657320666f7220245b202e2e2e20245d2061726520736f6d65>127 248.4 R .485<7768617420646966>-.25 F .485 <666572656e74207468616e20757375616c2e>-.25 F .486 <496620746865206e616d65206265696e67206c6f6f6b>5.485 F .486<6564207570> -.1 F .11<686173206174206c65617374206f6e6520646f742c20697420616c>102 260.4 R -.1<7761>-.1 G .11 <79732074726965732074686520756e6d6f64698c6564206e616d65208c7273742e>.1 F .109<496620746861742066>5.109 F .109 <61696c732c20697420747269657320746865207265647563656420736561726368>-.1 F .124<706174682c20616e64206c6173746c792074726965732074686520756e6d6f64 698c6564206e616d65202862>102 272.4 R .124<7574206f6e6c7920666f72206e616d 657320776974686f7574206120646f742c2073696e6365206e616d657320776974682061 20646f74>-.2 F<6861>102 284.4 Q .789 -.15<76652061>-.2 H .489 <6c7265616479206265656e207472696564292e>.15 F .489<5468697320616c6c6f> 5.489 F .489<7773206e616d657320737563682061732060>-.25 F <607574632e435327>-.74 E 2.989<2774>-.74 G 2.988<6f6d>-2.989 G .488 <6174636820746865207369746520696e20437a6563686f736c6f>-2.988 F -.25 <7661>-.15 G<6b6961>.25 E 1.587<726174686572207468616e207468652073697465 20696e20796f7572206c6f63616c20436f6d707574657220536369656e63652064657061 72746d656e742e>102 296.4 R 1.588 <497420616c736f2070726566657273204120616e6420434e>6.587 F<414d45>-.35 E .513<7265636f726473206f>102 308.4 R -.15<7665>-.15 G 3.013<724d>.15 G 3.013<5872>-3.013 G .513<65636f726473208a20746861742069732c206966206974 208c6e647320616e204d58207265636f7264206974206d616b>-3.013 F .512 <6573206e6f7465206f662069742c2062>-.1 F .512<7574206b>-.2 F .512 <65657073206c6f6f6b696e672e>-.1 F 1.541<546869732077>102 320.4 R<6179> -.1 E 4.041<2c69>-.65 G 4.041<6679>-4.041 G 1.541<6f75206861>-4.041 F 1.841 -.15<766520612077>-.2 H 1.541<696c6463617264204d58207265636f726420 6d61746368696e6720796f757220646f6d61696e2c2069742077696c6c206e6f74206173 73756d65207468617420616c6c>.15 F<6e616d6573206d617463682e>102 332.4 Q 3.454 -.8<546f2063>127 348.6 T 1.853<6f6d706c6574656c79207475726e206f66> .8 F 4.353<6661>-.25 G 1.853<6c6c206e616d652073657276>-4.353 F 1.853<65 7220616363657373206f6e2073797374656d7320776974686f7574207365727669636520 73776974636820737570706f7274>-.15 F .941 <28737563682061732053756e4f5320342e582920796f752077696c6c206861>102 360.6 R 1.242 -.15<76652074>-.2 H 3.442<6f72>.15 G .942 <65636f6d70696c65207769746820ad444e>-3.442 F .942 <414d45445f42494e443d3020616e642072656d6f>-.35 F 1.242 -.15<766520ad> -.15 H<6c7265736f6c76>.15 E<66726f6d20746865206c697374206f66206c69627261 7269657320746f206265207365617263686564207768656e206c696e6b696e672e>102 372.6 Q F0 2.5<342e31322e204d6f>87 396.6 R<76696e67207468652050>-.1 E <6572>-.2 E<2d557365722046>-.37 E<6f72776172642046696c6573>-.25 E F1 .772<536f6d65207369746573206d6f756e742065616368207573657227>127 412.8 R 3.272<7368>-.55 G .772<6f6d65206469726563746f72792066726f6d2061206c6f63 616c206469736b206f6e2074686569722077>-3.272 F .772 <6f726b73746174696f6e2c20736f2074686174>-.1 F .614 <6c6f63616c206163636573732069732066>102 424.8 R 3.114<6173742e20486f>-.1 F<7765>-.25 E -.15<7665>-.25 G 1.414 -.4<722c2074>.15 H .614 <686520726573756c742069732074686174202e666f7277>.4 F .614<617264208c6c65 206c6f6f6b7570732066726f6d20612063656e7472616c206d61696c2073657276>-.1 F .615<657220617265>-.15 F<736c6f>102 436.8 Q 5.534 -.65<772e2049>-.25 H 4.234<6e73>.65 G 1.734<6f6d652063617365732c206d61696c2063616e2065>-4.234 F -.15<7665>-.25 G 4.234<6e62>.15 G 4.234<6564>-4.234 G<656c69>-4.234 E -.15<7665>-.25 G 1.734<726564206f6e206d616368696e657320696e617070726f70 72696174656c792062656361757365206f662061208c6c65>.15 F<73657276>102 448.8 Q<6572206265696e6720646f>-.15 E 2.5<776e2e20546865>-.25 F<70657266 6f726d616e63652063616e20626520657370656369616c6c792062616420696620796f75 2072756e20746865206175746f6d6f756e746572>2.5 E<2e>-.55 E<546865>127 465 Q F0 -.25<466f>2.743 G<727761726450>.25 E<617468>-.1 E F1<28>2.743 E F0 <4a>A F1 2.743<296f>C .243<7074696f6e20616c6c6f>-2.743 F .243 <777320796f7520746f2073657420612070617468206f6620666f7277>-.25 F .243 <617264208c6c65732e>-.1 F -.15<466f>5.243 G 2.743<7265>.15 G .244 <78616d706c652c2074686520636f6e2d>-2.893 F<8c67208c6c65206c696e65>102 477 Q 2.5<4f46>142 493.2 S<6f7277>-2.65 E<61726450>-.1 E<6174683d2f76> -.15 E<61722f666f7277>-.25 E<6172642f24753a247a2f2e666f7277>-.1 E <6172642e2477>-.1 E -.1<776f>102 509.4 S .208<756c64208c727374206c6f6f6b 20666f722061208c6c652077697468207468652073616d65206e616d6520617320746865 207573657227>.1 F 2.707<736c>-.55 G .207<6f67696e20696e202f76>-2.707 F <61722f666f7277>-.25 E .207 <6172643b2069662074686174206973206e6f7420666f756e64>-.1 F 1.17 <286f7220697320696e61636365737369626c652920746865208c6c652060>102 521.4 R<602e666f7277>-.74 E<6172642e>-.1 E F2<6d6163>A<68696e656e616d65>-.15 E F1 2.651 -.74<27272069>D 3.671<6e74>.74 G 1.171<6865207573657227>-3.671 F 3.671<7368>-.55 G 1.171 <6f6d65206469726563746f72792069732073656172636865642e>-3.671 F<41>6.171 E<7472756c792070657276>102 533.4 Q<65727365207369746520636f756c6420616c 736f207365617263682062792073656e646572206279207573696e67202472>-.15 E 2.5<2c24>-.4 G<732c206f722024662e>-2.5 E .69<496620796f7520637265617465 2061206469726563746f72792073756368206173202f76>127 549.6 R <61722f666f7277>-.25 E .69<6172642c2069742073686f756c64206265206d6f6465 20313737372028746861742069732c2074686520737469636b>-.1 F 3.19<7962>-.15 G<6974>-3.19 E .108<73686f756c6420626520736574292e>102 561.6 R .109<5573 6572732073686f756c642063726561746520746865208c6c6573206d6f64652030363434 2e>5.108 F .109 <4e6f7465207468617420796f75206d75737420757365207468652046>5.109 F <6f7277>-.15 E<61726446696c65496e2d>-.1 E<556e7361666544697250>102 573.6 Q .393<61746820616e642046>-.15 F<6f7277>-.15 E <61726446696c65496e556e7361666544697250>-.1 E .393 <61746853616665208d616773207769746820746865>-.15 F F0 <446f6e74426c616d6553656e646d61696c>2.892 E F1 .392<6f7074696f6e20746f> 2.892 F<616c6c6f>102 585.6 Q 3.781<7766>-.25 G<6f7277>-3.781 E 1.281 <617264208c6c657320696e20612077>-.1 F 1.281 <6f726c64207772697461626c65206469726563746f7279>-.1 F 6.281<2e54>-.65 G 1.281<686973206d6967687420616c736f206265207573656420617320612064656e6961 6c206f662073657276696365>-6.281 F 2.352 <61747461636b2028757365727320636f756c642063726561746520666f7277>102 597.6 R 2.351<617264208c6c657320666f72206f74686572207573657273293b206120 62657474657220617070726f616368206d6967687420626520746f20637265617465>-.1 F<2f76>102 609.6 Q<61722f666f7277>-.25 E 1.086<617264206d6f646520303735 3520616e642063726561746520656d707479208c6c657320666f72206561636820757365 72>-.1 F 3.586<2c6f>-.4 G 1.086<776e656420627920746861742075736572> -3.836 F 3.587<2c6d>-.4 G 1.087<6f646520303634342e>-3.587 F<4966>6.087 E <796f7520646f20746869732c20796f7520646f6e27>102 621.6 Q 2.5<7468>-.18 G -2.25 -.2<61762065>-2.5 H<746f207365742074686520446f6e74426c616d6553656e 646d61696c206f7074696f6e7320696e646963617465642061626f>2.7 E -.15<7665> -.15 G<2e>.15 E F0 2.5<342e31332e204672>87 645.6 R<6565205370616365>-.18 E F1 1.406<4f6e2073797374656d732074686174206861>127 661.8 R 1.706 -.15 <7665206f>-.2 H 1.405 <6e65206f66207468652073797374656d2063616c6c7320696e20746865>.15 F F2 <737461746673>3.905 E F1 1.405<2832292066>B 1.405 <616d696c792028696e636c7564696e67>-.1 F F2<73746174766673>3.905 E F1 <616e64>3.905 E F2<7573746174>102 673.8 Q F1 .839<292c20796f752063616e20 737065636966792061206d696e696d756d206e756d626572206f66206672656520626c6f 636b73206f6e20746865207175657565208c6c6573797374656d207573696e6720746865> B F0<4d696e2d>3.34 E<4672>102 685.8 Q<6565426c6f636b73>-.18 E F1<28> 2.554 E F0<62>A F1 2.554<296f>C 2.553<7074696f6e2e204966>-2.554 F .053 <746865726520617265206665>2.553 F .053<776572207468616e2074686520696e64 696361746564206e756d626572206f6620626c6f636b732066726565206f6e2074686520 8c6c6573797374656d>-.25 F 1.354<6f6e207768696368207468652071756575652069 73206d6f756e7465642074686520534d54502073657276>102 697.8 R 1.355<657220 77696c6c2072656a656374206d61696c20776974682074686520343532206572726f7220 636f64652e>-.15 F<54686973>6.355 E<696e>102 709.8 Q <76697465732074686520534d545020636c69656e7420746f20747279206167>-.4 E <61696e206c61746572>-.05 E<2e>-.55 E 0 Cg EP %%Page: 38 34 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d33382053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<4265>127 96 Q -.1<7761>-.25 G .746<7265206f6620 73657474696e672074686973206f7074696f6e20746f6f20686967683b2069742063616e 2063617573652072656a656374696f6e206f6620656d61696c207768656e207468617420 6d61696c2077>.1 F<6f756c64>-.1 E <62652070726f63657373656420776974686f757420646966>102 108 Q <8c63756c7479>-.25 E<2e>-.65 E F0 2.5<342e31342e204d6178696d756d>87 132 R<4d6573736167652053697a65>2.5 E F1 2.077 -.8<546f2061>127 148.2 T -.2 <766f>.6 G .477<6964206f>.2 F -.15<7665>-.15 G<728d6f>.15 E .478 <77696e6720796f75722073797374656d20776974682061206c6172>-.25 F .478 <6765206d6573736167652c20746865>-.18 F F0<4d61784d65737361676553697a65> 2.978 E F1 .478<6f7074696f6e2063616e206265>2.978 F .693<73657420746f2073 657420616e206162736f6c757465206c696d6974206f6e207468652073697a65206f6620 616e>102 160.2 R 3.193<796f>-.15 G .693<6e65206d6573736167652e>-3.193 F .692<546869732077696c6c20626520616476>5.692 F .692 <6572746973656420696e207468652045534d5450>-.15 F <6469616c6f67756520616e6420636865636b>102 172.2 Q <656420647572696e67206d65737361676520636f6c6c656374696f6e2e>-.1 E F0 2.5 <342e31352e20507269>87 196.2 R -.1<7661>-.1 G<637920466c616773>.1 E F1 <546865>127 212.4 Q F0<507269>2.96 E -.1<7661>-.1 G<63794f7074696f6e73> .1 E F1<28>2.96 E F0<70>A F1 2.96<296f>C .46<7074696f6e20616c6c6f>-2.96 F .46<777320796f7520746f20736574206365727461696e2060>-.25 F<60707269> -.74 E -.25<7661>-.25 G -.15<6379>.25 G 1.94 -.74<2727208d>.15 H 2.96 <6167732e2041637475616c6c79>.74 F 2.96<2c6d>-.65 G<616e>-2.96 E 2.96 <796f>-.15 G<66>-2.96 E .534<7468656d20646f6e27>102 224.4 R 3.034<7467> -.18 G -2.15 -.25<69762065>-3.034 H .534<796f7520616e>3.284 F 3.034 <7965>-.15 G .534<7874726120707269>-3.184 F -.25<7661>-.25 G -.15<6379> .25 G 3.034<2c72>-.5 G .534<6174686572206a75737420696e73697374696e672074 68617420636c69656e7420534d54502073657276>-3.034 F .533 <65727320757365207468652048454c4f>-.15 F 2.87<636f6d6d616e64206265666f72 65207573696e67206365727461696e20636f6d6d616e6473206f7220616464696e672065> 102 236.4 R 2.87<78747261206865616465727320746f20696e64696361746520706f 737369626c652073706f6f66>-.15 F<617474656d7074732e>102 248.4 Q .124 <546865206f7074696f6e2074616b>127 264.6 R .124<657320612073657269657320 6f66208d6167206e616d65733b20746865208c6e616c20707269>-.1 F -.25<7661> -.25 G .424 -.15<63792069>.25 H 2.624<7374>.15 G .124 <686520696e636c757369>-2.624 F .424 -.15<7665206f>-.25 H 2.624<726f>.15 G 2.624<6674>-2.624 G .123<686f7365208d6167732e>-2.624 F -.15<466f>5.123 G<72>.15 E -.15<6578>102 276.6 S<616d706c653a>.15 E 2.5<4f50>142 292.8 S <7269>-2.5 E -.25<7661>-.25 G -.15<6379>.25 G <4f7074696f6e733d6e6565646d61696c68656c6f2c206e6f65>.15 E<78706e>-.15 E .928<696e73697374732074686174207468652048454c4f206f722045484c4f20636f6d 6d616e642062652075736564206265666f72652061204d41494c20636f6d6d616e642069 7320616363657074656420616e64206469732d>102 309 R <61626c657320746865204558504e20636f6d6d616e642e>102 321 Q<546865208d6167 73206172652064657461696c656420696e2073656374696f6e20352e362e>127 337.2 Q F0 2.5<342e31362e2053656e64>87 361.2 R<746f204d652054>2.5 E<6f6f>-.92 E F1<4265>127 377.4 Q 1.075<67696e6e696e6720776974682076>-.15 F 1.075 <657273696f6e20382e31302c>-.15 F/F2 10/Times-Italic@0 SF <73656e646d61696c>3.575 E F1 1.075<696e636c7564657320627920646566>3.575 F 1.075<61756c74207468652028656e>-.1 F -.15<7665>-.4 G 1.074 <6c6f7065292073656e64657220696e20616e>.15 F 3.574<796c>-.15 G<697374> -3.574 E -.15<6578>102 389.4 S 3.464<70616e73696f6e732e2046>.15 F .964 <6f722065>-.15 F .964<78616d706c652c20696620996d6174749a2073656e64732074 6f2061206c697374207468617420636f6e7461696e7320996d6174749a206173206f6e65 206f6620746865206d656d62657273206865>-.15 F .228 <77696c6c20676574206120636f70>102 401.4 R 2.728<796f>-.1 G 2.728<6674> -2.728 G .228<6865206d6573736167652e>-2.728 F .228<496620746865>5.228 F F0<4d6554>2.728 E<6f6f>-.92 E F1 .228<6f7074696f6e2069732073657420746f> 2.728 F/F3 9/Times-Roman@0 SF -.666<4641>2.727 G<4c5345>.666 E F1 .227 <28696e2074686520636f6e8c6775726174696f6e208c6c65206f7220766961>2.727 F 1.022<74686520636f6d6d616e64206c696e65292c20746869732062656861>102 413.4 R 1.023<76696f72206973206368616e6765642c20692e652e2c207468652028656e>-.2 F -.15<7665>-.4 G 1.023<6c6f7065292073656e6465722069732065>.15 F 1.023 <78636c7564656420696e206c6973742065>-.15 F<7870616e2d>-.15 E <73696f6e732e>102 425.4 Q F0 2.5<352e20544845>72 449.4 R <57484f4c452053434f4f50204f4e2054484520434f4e464947555241>2.5 E <54494f4e2046494c45>-.95 E F1<546869732073656374696f6e206465736372696265 732074686520636f6e8c6775726174696f6e208c6c6520696e2064657461696c2e>112 465.6 Q .648<5468657265206973206f6e6520706f696e7420746861742073686f756c 64206265206d61646520636c65617220696d6d6564696174656c793a207468652073796e 746178206f662074686520636f6e8c6775726174696f6e208c6c65206973>112 481.8 R 1.076<64657369676e656420746f20626520726561736f6e61626c79206561737920746f 2070617273652c2073696e6365207468697320697320646f6e652065>87 493.8 R -.15 <7665>-.25 G 1.077<72792074696d65>.15 F F2<73656e646d61696c>3.577 E F1 1.077<7374617274732075702c20726174686572207468616e>3.577 F .303 <6561737920666f7220612068756d616e20746f2072656164206f722077726974652e>87 505.8 R .302<54686520636f6e8c6775726174696f6e208c6c652073686f756c642062 652067656e6572617465642076696120746865206d6574686f6420646573637269626564> 5.302 F<696e>87 517.8 Q F0<63662f524541444d45>3.657 E F1 3.657<2c69>C 3.657<7473>-3.657 G 1.157<686f756c64206e6f742062652065646974656420646972 6563746c7920756e6c65737320736f6d656f6e652069732066>-3.657 F 1.158 <616d696c69617220776974682074686520696e7465726e616c73206f6620746865>-.1 F<73796e74617820646573637269626564206865726520616e64206974206973206e6f74 20706f737369626c6520746f206163686965>87 529.8 Q .3 -.15<76652074>-.25 H <6865206465736972656420726573756c74207669612074686520646566>.15 E <61756c74206d6574686f642e>-.1 E .243 <54686520636f6e8c6775726174696f6e208c6c65206973206f72>112 546 R -.05 <6761>-.18 G .243<6e697a6564206173206120736572696573206f66206c696e65732c 2065616368206f66207768696368206265>.05 F .243 <67696e73207769746820612073696e676c65206368617261632d>-.15 F .102<746572 2064658c6e696e67207468652073656d616e7469637320666f7220746865207265737420 6f6620746865206c696e652e>87 558 R .102<4c696e6573206265>5.102 F .102<67 696e6e696e6720776974682061207370616365206f722061207461622061726520636f6e 74696e756174696f6e>-.15 F 1.323<6c696e65732028616c74686f7567682074686520 73656d616e7469637320617265206e6f742077656c6c2064658c6e656420696e206d616e> 87 570 R 3.823<7970>-.15 G 3.822<6c61636573292e20426c616e6b>-3.823 F 1.322<6c696e657320616e64206c696e6573206265>3.822 F<67696e6e696e67>-.15 E <7769746820612073686172702073796d626f6c2028602327292061726520636f6d6d65 6e74732e>87 582 Q F0 2.5<352e312e2052>87 606 R <616e642053208a20526577726974696e672052756c6573>2.5 E F1 .465<5468652063 6f7265206f6620616464726573732070617273696e672061726520746865207265>127 622.2 R .466<77726974696e672072756c65732e>-.25 F .466<546865736520617265 20616e206f7264657265642070726f64756374696f6e2073797374656d2e>5.466 F F2 <53656e646d61696c>102 634.2 Q F1 .19 <7363616e73207468726f7567682074686520736574206f66207265>2.69 F .19<7772 6974696e672072756c6573206c6f6f6b696e6720666f722061206d61746368206f6e2074 6865206c6566742068616e64207369646520284c485329206f66>-.25 F <7468652072756c652e>102 646.2 Q<5768656e20612072756c65206d6174636865732c 207468652061646472657373206973207265706c61636564206279207468652072696768 742068616e642073696465202852485329206f66207468652072756c652e>5 E .921 <546865726520617265207365>127 662.4 R -.15<7665>-.25 G .921 <72616c2073657473206f66207265>.15 F .921<77726974696e672072756c65732e> -.25 F .921<536f6d65206f6620746865207265>5.921 F .922<77726974696e672073 65747320617265207573656420696e7465726e616c6c7920616e64>-.25 F .36 <6d757374206861>102 674.4 R .66 -.15<76652073>-.2 H .36 <706563698c632073656d616e746963732e>.15 F .359<4f74686572207265>5.359 F .359<77726974696e67207365747320646f206e6f74206861>-.25 F .659 -.15 <76652073>-.2 H .359 <706563698c63616c6c792061737369676e65642073656d616e746963732c20616e64> .15 F<6d6179206265207265666572656e63656420627920746865206d61696c65722064 658c6e6974696f6e73206f72206279206f74686572207265>102 686.4 Q <77726974696e6720736574732e>-.25 E <5468652073796e746178206f66207468657365207477>127 702.6 Q 2.5<6f63>-.1 G <6f6d6d616e6473206172653a>-2.5 E 0 Cg EP %%Page: 39 35 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3339>195.86 E <53>142 96 Q/F1 10/Times-Italic@0 SF<6e>A/F2 10/Times-Roman@0 SF .248<53 657473207468652063757272656e742072756c65736574206265696e6720636f6c6c6563 74656420746f>102 112.2 R F1<6e>2.748 E F2 5.248<2e49>C 2.748<6679>-5.248 G .248<6f75206265>-2.748 F .249<67696e20612072756c65736574206d6f72652074 68616e206f6e636520697420617070656e647320746f20746865>-.15 F <6f6c642064658c6e6974696f6e2e>102 124.2 Q F0<52>142 140.4 Q F1 <6c68732072687320636f6d6d656e7473>A F2 1.185<546865208c656c6473206d7573 7420626520736570617261746564206279206174206c65617374206f6e65207461622063 68617261637465723b207468657265206d617920626520656d6265646465642073706163 657320696e20746865>102 156.6 R 2.594<8c656c64732e20546865>102 168.6 R F1 <6c6873>2.594 E F2 .095<69732061207061747465726e207468617420697320617070 6c69656420746f2074686520696e7075742e>2.594 F .095 <4966206974206d6174636865732c2074686520696e707574206973207265>5.095 F .095<7772697474656e20746f20746865>-.25 F F1<726873>2.595 E F2<2e>A <546865>102 180.6 Q F1<636f6d6d656e7473>2.5 E F2 <6172652069676e6f7265642e>2.5 E .427<4d6163726f2065>127 196.8 R .427 <7870616e73696f6e73206f662074686520666f726d>-.15 F F0<24>2.927 E F1<78>A F2 .427<61726520706572666f726d6564207768656e2074686520636f6e8c6775726174 696f6e208c6c6520697320726561642e>2.927 F 2.926<416c>5.426 G <69746572616c>-2.926 E F0<24>102 208.8 Q F2 .609 <63616e20626520696e636c75646564207573696e67>3.108 F F0<2424>3.109 E F2 5.609<2e45>C .609<7870616e73696f6e73206f662074686520666f726d>-5.609 F F0 <2426>3.109 E F1<78>A F2 .609<61726520706572666f726d65642061742072756e20 74696d65207573696e67206120736f6d652d>3.109 F .148 <77686174206c6573732067656e6572616c20616c676f726974686d2e>102 220.8 R .148<5468697320697320696e74656e646564206f6e6c7920666f72207265666572656e 63696e6720696e7465726e616c6c792064658c6e6564206d6163726f7320737563682061 73>5.148 F F0<2468>102 232.8 Q F2 <7468617420617265206368616e6765642061742072756e74696d652e>2.5 E F0 2.5 <352e312e312e20546865>102 256.8 R<6c6566742068616e642073696465>2.5 E F2 2.77<546865206c6566742068616e642073696465206f66207265>142 273 R 2.771 <77726974696e672072756c657320636f6e7461696e732061207061747465726e2e>-.25 F 2.771<4e6f726d616c2077>7.771 F 2.771<6f726473206172652073696d706c79> -.1 F<6d617463686564206469726563746c79>117 285 Q 5<2e4d>-.65 G<65746173 796e74617820697320696e74726f6475636564207573696e67206120646f6c6c61722073 69676e2e>-5 E<546865206d65746173796d626f6c73206172653a>5 E F0<242a>157 301.2 Q F2<4d61746368207a65726f206f72206d6f726520746f6b>10.14 E<656e73> -.1 E F0<242b>157 313.2 Q F2<4d61746368206f6e65206f72206d6f726520746f6b> 9.44 E<656e73>-.1 E F0<24ad>157 325.2 Q F2<4d617463682065>9.44 E <786163746c79206f6e6520746f6b>-.15 E<656e>-.1 E F0<243d>157 337.2 Q F1 <78>A F2<4d6174636820616e>5 E 2.5<7970>-.15 G <687261736520696e20636c617373>-2.5 E F1<78>2.5 E F0<247e>157 349.2 Q F1 <78>A F2<4d6174636820616e>7.37 E 2.5<7977>-.15 G <6f7264206e6f7420696e20636c617373>-2.6 E F1<78>2.5 E F2 .132<496620616e> 117 365.4 R 2.632<796f>-.15 G 2.632<6674>-2.632 G .132 <68657365206d617463682c20746865>-2.632 F 2.632<7961>-.15 G .132 <72652061737369676e656420746f207468652073796d626f6c>-2.632 F F0<24>2.632 E F1<6e>A F2 .131<666f72207265706c6163656d656e74206f6e207468652072696768 742068616e6420736964652c>2.632 F<7768657265>117 377.4 Q F1<6e>2.5 E F2 <69732074686520696e6465>2.5 E 2.5<7869>-.15 G 2.5<6e74>-2.5 G <6865204c48532e>-2.5 E -.15<466f>5 G 2.5<7265>.15 G <78616d706c652c20696620746865204c48533a>-2.65 E<24ad3a242b>157 393.6 Q <6973206170706c69656420746f2074686520696e7075743a>117 409.8 Q<554342>157 426 Q<415250>-.35 E<413a65726963>-.92 E <7468652072756c652077696c6c206d617463682c20616e64207468652076>117 442.2 Q<616c7565732070617373656420746f20746865205248532077696c6c2062653a>-.25 E 7.5<243120554342>157 458.4 R<415250>-.35 E<41>-.92 E 7.5 <24322065726963>157 470.4 R<4164646974696f6e616c6c79>142 490.8 Q 2.704 <2c74>-.65 G .204<6865204c48532063616e20696e636c756465>-2.704 F F0<2440> 2.704 E F2 .204<746f206d61746368207a65726f20746f6b>2.704 F 2.704 <656e732e2054686973>-.1 F<6973>2.704 E F1<6e6f74>2.704 E F2 .204 <626f756e6420746f2061>2.704 F F0<24>2.705 E F1<6e>A F2<6f6e>2.705 E<7468 65205248532c20616e64206973206e6f726d616c6c79206f6e6c79207573656420776865 6e206974207374616e647320616c6f6e6520696e206f7264657220746f206d6174636820 746865206e756c6c20696e7075742e>117 502.8 Q F0 2.5<352e312e322e20546865> 102 526.8 R<72696768742068616e642073696465>2.5 E F2 .649 <5768656e20746865206c6566742068616e642073696465206f662061207265>142 543 R .649<77726974696e672072756c65206d6174636865732c2074686520696e70757420 69732064656c6574656420616e64207265706c61636564206279>-.25 F 1.036 <7468652072696768742068616e6420736964652e>117 555 R -.8<546f>6.036 G -.1 <6b65>.8 G 1.036<6e732061726520636f70696564206469726563746c792066726f6d 207468652052485320756e6c65737320746865>.1 F 3.537<7962>-.15 G -.15<6567> -3.537 G 1.037<696e2077697468206120646f6c6c6172>.15 F 2.5 <7369676e2e204d65746173796d626f6c73>117 567 R<6172653a>2.5 E F0<24>157 583.2 Q F1<6e>A F2<5375627374697475746520696e64658c6e69746520746f6b> 40.55 E<656e>-.1 E F1<6e>2.5 E F2<66726f6d204c4853>2.5 E F0<245b>157 595.2 Q F1<6e616d65>A F0<245d>A F2<43616e6f6e6963616c697a65>12.23 E F1 <6e616d65>2.5 E F0<2428>157 607.2 Q F1<6d6170206b>A -.3<6579>-.1 G F0 <2440>2.8 E F1<6172>A<67756d656e7473>-.37 E F0<243a>2.5 E F1 <64656661756c74>A F0<2429>2.5 E F2<47656e6572616c697a6564206b>207.55 619.2 Q -.15<6579>-.1 G<6564206d617070696e672066756e6374696f6e>.15 E F0 <243e>157 631.2 Q F1<6e>A F2<9943616c6c9a2072756c65736574>34.85 E F1<6e> 2.5 E F0<2423>157 643.2 Q F1<6d61696c6572>A F2<5265736f6c76>14.44 E 2.5 <6574>-.15 G<6f>-2.5 E F1<6d61696c6572>2.5 E F0<2440>157 655.2 Q F1 <686f7374>A F2<53706563696679>19.58 E F1<686f7374>2.5 E F0<243a>157 667.2 Q F1<75736572>A F2<53706563696679>25 E F1<75736572>2.5 E F2 <546865>142 687.6 Q F0<24>3.137 E F1<6e>A F2 .637<73796e7461782073756273 746974757465732074686520636f72726573706f6e64696e672076>3.137 F .637 <616c75652066726f6d2061>-.25 F F0<242b>3.137 E F2<2c>A F0<24ad>3.137 E F2<2c>A F0<242a>3.137 E F2<2c>A F0<243d>3.137 E F2 3.137<2c6f>C<72> -3.137 E F0<247e>3.137 E F2 .636<6d61746368206f6e>3.136 F <746865204c48532e>117 699.6 Q<4974206d6179206265207573656420616e>5 E <7977686572652e>-.15 E 0 Cg EP %%Page: 40 36 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d34302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 2.705<4168>142 96 S .205 <6f7374206e616d6520656e636c6f736564206265747765656e>-2.705 F F0<245b> 2.705 E F1<616e64>2.705 E F0<245d>2.706 E F1 .206<6973206c6f6f6b>2.706 F .206<656420757020696e2074686520686f737420646174616261736528732920616e64 207265706c61636564>-.1 F 1.683 <6279207468652063616e6f6e6963616c206e616d65>117 110 R/F2 7/Times-Roman@0 SF<3134>-4 I F1 6.683<2e46>4 K 1.683<6f722065>-6.833 F 1.683<78616d706c 652c2099245b667470245d9a206d69676874206265636f6d6520996674702e43532e4265 726b>-.15 F<656c65>-.1 E -.65<792e>-.15 G 1.683<4544559a20616e64>.65 F 3.17<99245b5b3132382e33322e3133302e325d245d9a2077>117 122 R 3.17 <6f756c64206265636f6d65209976>-.1 F<616e676f67682e43532e4265726b>-.25 E <656c65>-.1 E -.65<792e>-.15 G<4544552e>.65 E<9a>-.7 E/F3 10 /Times-Italic@0 SF<53656e646d61696c>8.17 E F1 3.17 <7265636f676e697a657320697473>5.67 F<6e756d6572696320495020616464726573 7320776974686f75742063616c6c696e6720746865206e616d652073657276>117 134 Q <657220616e64207265706c616365732069742077697468206974732063616e6f6e6963 616c206e616d652e>-.15 E<546865>142 150.2 Q F0<2428>3.004 E F1<2e2e2e> 3.004 E F0<2429>5.504 E F1 .503<73796e7461782069732061206d6f72652067656e 6572616c20666f726d206f66206c6f6f6b75703b20697420757365732061206e616d6564 206d617020696e7374656164206f6620616e>3.003 F .809 <696d706c69636974206d61702e>117 162.2 R .809<4966206e6f206c6f6f6b757020 697320666f756e642c2074686520696e64696361746564>5.809 F F3 <64656661756c74>3.309 E F1 .81 <697320696e7365727465643b206966206e6f20646566>3.309 F .81 <61756c742069732073706563698c6564>-.1 F .776 <616e64206e6f206c6f6f6b7570206d6174636865732c207468652076>117 174.2 R .776<616c7565206973206c65667420756e6368616e6765642e>-.25 F<546865>5.776 E F3<6172>3.276 E<67756d656e7473>-.37 E F1 .775 <6172652070617373656420746f20746865206d617020666f72>3.275 F <706f737369626c65207573652e>117 186.2 Q<546865>142 202.4 Q F0<243e>2.619 E F3<6e>A F1 .119<73796e74617820636175736573207468652072656d61696e646572 206f6620746865206c696e6520746f206265207375627374697475746564206173207573 75616c20616e64207468656e20706173736564>2.619 F .587<617320746865206172> 117 214.4 R .587<67756d656e7420746f2072756c65736574>-.18 F F3<6e>3.087 E F1 5.587<2e54>C .587<6865208c6e616c2076>-5.587 F .586 <616c7565206f662072756c65736574>-.25 F F3<6e>3.086 E F1 .586<7468656e20 6265636f6d65732074686520737562737469747574696f6e20666f722074686973>3.086 F 3.758<72756c652e20546865>117 226.4 R F0<243e>3.758 E F1 1.258 <73796e7461782065>3.758 F 1.258<7870616e64732065>-.15 F -.15<7665>-.25 G 1.259<72797468696e67206166746572207468652072756c65736574206e616d6520746f 2074686520656e64206f6620746865207265706c6163656d656e74>.15 F .976<737472 696e6720616e64207468656e2070617373657320746861742061732074686520696e6974 69616c20696e70757420746f207468652072756c657365742e>117 238.4 R <52656375727369>5.976 E 1.276 -.15<76652063>-.25 H .976 <616c6c732061726520616c6c6f>.15 F 3.476<7765642e2046>-.25 F<6f72>-.15 E -.15<6578>117 250.4 S<616d706c652c>.15 E<243e3020243e33202431>157 266.6 Q -.15<6578>117 282.8 S<70616e64732024312c20706173736573207468617420746f 2072756c6573657420332c20616e64207468656e20706173736573207468652072657375 6c74206f662072756c65736574203320746f2072756c6573657420302e>.15 E<546865> 142 299 Q F0<2423>2.768 E F1 .268<73796e7461782073686f756c64>2.768 F F3 <6f6e6c79>2.768 E F1 .268<6265207573656420696e2072756c65736574207a65726f 2c206120737562726f7574696e65206f662072756c65736574207a65726f2c206f722072 756c6573657473>2.768 F .455<746861742072657475726e206465636973696f6e7320 28652e672e2c20636865636b5f72637074292e>117 311 R .455 <4974206361757365732065>5.455 F -.25<7661>-.25 G .454<6c756174696f6e206f 66207468652072756c6573657420746f207465726d696e61746520696d6d6564692d>.25 F<6174656c79>117 323 Q 2.565<2c61>-.65 G .065 <6e64207369676e616c7320746f>-2.565 F F3<73656e646d61696c>2.565 E F1 .065 <746861742074686520616464726573732068617320636f6d706c6574656c7920726573 6f6c76>2.565 F 2.565<65642e20546865>-.15 F .065 <636f6d706c6574652073796e74617820666f72>2.565 F <72756c6573657420302069733a>117 335 Q F0<2423>157 351.2 Q F3 <6d61696c6572>A F0<2440>2.5 E F3<686f7374>A F0<243a>2.5 E F3<75736572>A F1 .879<546869732073706563698c657320746865207b6d61696c6572>117 367.4 R 3.379<2c68>-.4 G .879<6f73742c20757365727d20332d7475706c652028747269706c 6529206e656365737361727920746f2064697265637420746865206d61696c6572> -3.379 F 5.878<2e4e>-.55 G .878<6f74653a20746865>-5.878 F .121 <746869726420656c656d656e742028>117 379.4 R F3<75736572>2.621 E F1 2.621 <2969>2.621 G 2.621<736f>-2.621 G .121<6674656e20616c736f2063616c6c6564> -2.621 F F3<61646472>2.621 E<657373>-.37 E F1 2.622<706172742e204966> 2.621 F .122<746865206d61696c6572206973206c6f63616c2074686520686f737420 70617274206d6179206265>2.622 F<6f6d6974746564>117 393.4 Q F2<3135>-4 I F1 5.967<2e54>4 K<6865>-5.967 E F3<6d61696c6572>3.467 E F1 .967 <6d75737420626520612073696e676c652077>3.467 F .967<6f72642c2062>-.1 F .967<757420746865>-.2 F F3<686f7374>3.467 E F1<616e64>3.467 E F3 <75736572>3.467 E F1 .967<6d6179206265206d756c74692d706172742e>3.467 F .968<496620746865>5.967 F F3<6d61696c6572>117 405.4 Q F1 1.119 <6973207468652062>3.619 F 1.119<75696c742d696e20495043206d61696c6572>-.2 F 3.619<2c74>-.4 G<6865>-3.619 E F3<686f7374>3.619 E F1 1.119<6d61792062 65206120636f6c6f6e20286f7220636f6d6d612920736570617261746564206c69737420 6f6620686f7374732e>3.619 F .207 <456163682069732073657061726174656c79204d582065>117 417.4 R .207<787061 6e64656420616e642074686520726573756c74732061726520636f6e636174656e617465 6420746f206d616b>-.15 F 2.707<6528>-.1 G .208 <657373656e7469616c6c7929206f6e65206c6f6e67>-2.707 F .588 <4d58206c6973742e>117 429.4 R .588 <486f73747320736570617261746564206279206120636f6d6d61206861>5.588 F .888 -.15<76652074>-.2 H .587<68652073616d65204d5820707265666572656e63652c20 616e6420666f72206561636820636f6c6f6e20736570612d>.15 F 1.491<7261746564 20686f737420746865204d5820707265666572656e636520697320696e63726561736564 2e>117 441.4 R<546865>6.491 E F3<75736572>3.991 E F1 1.492 <6973206c61746572207265>3.992 F 1.492 <7772697474656e20627920746865206d61696c6572>-.25 F<2d73706563698c63>-.2 E<656e>117 453.4 Q -.15<7665>-.4 G .753<6c6f7065207265>.15 F .753 <77726974696e672073657420616e642061737369676e656420746f20746865>-.25 F F0<2475>3.253 E F1 3.252<6d6163726f2e204173>3.253 F 3.252<6173>3.252 G .752 <70656369616c20636173652c20696620746865206d61696c65722073706563698c6564> -3.252 F .145<68617320746865>117 465.4 R F0<463d40>2.645 E F1 .146<8d61 672073706563698c656420616e6420746865208c72737420636861726163746572206f66 20746865>2.645 F F0<243a>2.646 E F1 -.25<7661>2.646 G .146 <6c75652069732099409a2c207468652099409a206973207374726970706564206f66> .25 F<662c>-.25 E<616e642061208d61672069732073657420696e2074686520616464 726573732064657363726970746f722074686174206361757365732073656e646d61696c 20746f206e6f7420646f2072756c6573657420352070726f63657373696e672e>117 477.4 Q<4e6f726d616c6c79>142 493.6 Q 3.252<2c6172>-.65 G .751<756c652074 686174206d61746368657320697320726574726965642c20746861742069732c20746865 2072756c65206c6f6f707320756e74696c2069742066>-3.252 F 3.251 <61696c732e2041>-.1 F .751<524853206d6179>3.251 F 1.085 <616c736f2062652070726563656465642062792061>117 505.6 R F0<2440>3.585 E F1 1.085<6f722061>3.585 F F0<243a>3.585 E F1 1.085 <746f206368616e676520746869732062656861>3.585 F<76696f72>-.2 E 6.085 <2e41>-.55 G F0<2440>-2.5 E F1 1.086 <7072658c7820636175736573207468652072756c6573657420746f>3.586 F 1.46<72 657475726e2077697468207468652072656d61696e646572206f66207468652052485320 6173207468652076>117 517.6 R 3.96<616c75652e2041>-.25 F F0<243a>3.96 E F1 1.46 <7072658c7820636175736573207468652072756c6520746f207465726d696e617465> 3.96 F<696d6d6564696174656c79>117 529.6 Q 3.756<2c62>-.65 G 1.256<757420 7468652072756c6573657420746f20636f6e74696e75653b20746869732063616e206265 207573656420746f2061>-3.956 F -.2<766f>-.2 G 1.256 <696420636f6e74696e756564206170706c69636174696f6e206f662061>.2 F 2.5 <72756c652e20546865>117 541.6 R<7072658c78206973207374726970706564206265 666f726520636f6e74696e75696e672e>2.5 E<546865>142 557.8 Q F0<2440>2.5 E F1<616e64>2.5 E F0<243a>2.5 E F1<7072658c78>2.5 E <6573206d617920707265636564652061>-.15 E F0<243e>2.5 E F1 <737065633b20666f722065>2.5 E<78616d706c653a>-.15 E 20.19<52242b20243a> 157 574 R<243e37202431>2.5 E 1.256<6d61746368657320616e>117 590.2 R 1.256 <797468696e672c20706173736573207468617420746f2072756c65736574207365>-.15 F -.15<7665>-.25 G 1.256<6e2c20616e6420636f6e74696e7565733b20746865>.15 F F0<243a>3.756 E F1 1.256<6973206e656365737361727920746f2061>3.756 F -.2<766f>-.2 G 1.256<696420616e>.2 F<696e8c6e697465206c6f6f702e>117 602.2 Q 1.205<537562737469747574696f6e206f636375727320696e20746865206f72 646572206465736372696265642c20746861742069732c20706172616d65746572732066 726f6d20746865204c485320617265207375627374692d>142 618.4 R .22<74757465 642c20686f73746e616d6573206172652063616e6f6e6963616c697a65642c2099737562 726f7574696e65739a206172652063616c6c65642c20616e64208c6e616c6c79>117 630.4 R F0<2423>2.719 E F1<2c>A F0<2440>2.719 E F1 2.719<2c61>C<6e64> -2.719 E F0<243a>2.719 E F1 .219<6172652070726f2d>2.719 F <6365737365642e>117 642.4 Q .32 LW 76 655.6 72 655.6 DL 80 655.6 76 655.6 DL 84 655.6 80 655.6 DL 88 655.6 84 655.6 DL 92 655.6 88 655.6 DL 96 655.6 92 655.6 DL 100 655.6 96 655.6 DL 104 655.6 100 655.6 DL 108 655.6 104 655.6 DL 112 655.6 108 655.6 DL 116 655.6 112 655.6 DL 120 655.6 116 655.6 DL 124 655.6 120 655.6 DL 128 655.6 124 655.6 DL 132 655.6 128 655.6 DL 136 655.6 132 655.6 DL 140 655.6 136 655.6 DL 144 655.6 140 655.6 DL 148 655.6 144 655.6 DL 152 655.6 148 655.6 DL 156 655.6 152 655.6 DL 160 655.6 156 655.6 DL 164 655.6 160 655.6 DL 168 655.6 164 655.6 DL 172 655.6 168 655.6 DL 176 655.6 172 655.6 DL 180 655.6 176 655.6 DL 184 655.6 180 655.6 DL 188 655.6 184 655.6 DL 192 655.6 188 655.6 DL 196 655.6 192 655.6 DL 200 655.6 196 655.6 DL 204 655.6 200 655.6 DL 208 655.6 204 655.6 DL 212 655.6 208 655.6 DL 216 655.6 212 655.6 DL/F4 5/Times-Roman@0 SF<3134>93.6 666 Q/F5 8 /Times-Roman@0 SF <546869732069732061637475616c6c7920636f6d706c6574656c792065717569>3.2 I -.2<7661>-.2 G<6c656e7420746f202428686f7374>.2 E/F6 8/Times-Italic@0 SF <686f73746e616d65>2 E F5 2<24292e20496e>B<706172746963756c6172>2 E 2 <2c61>-.32 G/F7 8/Times-Bold@0 SF<243a>A F5<646566>2 E <61756c742063616e20626520757365642e>-.08 E F4<3135>93.6 679.6 Q F5 -.88 <596f>3.2 K 2.726<756d>.88 G .726<61792077>-2.726 F .726<616e7420746f20 75736520697420666f72207370656369616c209970657220757365729a2065>-.08 F 2.726<7874656e73696f6e732e2046>-.12 F .726<6f722065>-.12 F .725<78616d70 6c652c20696e20746865206164647265737320996a676d2b666f6f40434d552e4544559a 3b2074686520992b666f6f9a>-.12 F<70617274206973206e6f742070617274206f6620 7468652075736572206e616d652c20616e642069732070617373656420746f2074686520 6c6f63616c206d61696c657220666f72206c6f63616c207573652e>72 692.4 Q 0 Cg EP %%Page: 41 37 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3431>195.86 E 2.5<352e312e332e2053656d616e74696373>102 96 R<6f662072>2.5 E <6577726974696e672072756c652073657473>-.18 E/F1 10/Times-Roman@0 SF 1.847<54686572652061726520736978207265>142 112.2 R 1.847 <77726974696e6720736574732074686174206861>-.25 F 2.147 -.15<76652073>-.2 H 1.847<706563698c632073656d616e746963732e>.15 F<4669>6.847 E 2.147 -.15 <7665206f>-.25 H 4.347<6674>.15 G 1.848 <68657365206172652072656c61746564206173>-4.347 F <6465706963746564206279208c6775726520312e>117 124.2 Q 1.029<52756c657365 742074687265652073686f756c64207475726e20746865206164647265737320696e746f 209963616e6f6e6963616c20666f726d2e>142 140.4 R 6.029<9a54>-.7 G 1.029 <68697320666f726d2073686f756c64206861>-6.029 F 1.329 -.15<76652074>-.2 H <6865>.15 E<62617369632073796e7461783a>117 152.4 Q <6c6f63616c2d7061727440686f73742d646f6d61696e2d73706563>157 168.6 Q <52756c65736574207468726565206973206170706c696564206279>117 184.8 Q/F2 10/Times-Italic@0 SF<73656e646d61696c>2.5 E F1 <6265666f726520646f696e6720616e>2.5 E<797468696e67207769746820616e>-.15 E 2.5<7961>-.15 G<6464726573732e>-2.5 E .301<4966206e6f2099409a20736967 6e2069732073706563698c65642c207468656e2074686520686f73742d646f6d61696e2d 73706563>142 201 R F2<6d6179>2.801 E F1 .302 <626520617070656e6465642028626f782099449a20696e204669672d>2.801 F .578< 7572652031292066726f6d207468652073656e6465722061646472657373202869662074 6865>117 213 R F0<43>3.077 E F1 .577<8d61672069732073657420696e20746865 206d61696c65722064658c6e6974696f6e20636f72726573706f6e64696e6720746f2074 6865>3.077 F F2<73656e64696e67>117 225 Q F1<6d61696c6572292e>2.5 E 1.021 <52756c65736574207a65726f206973206170706c6965642061667465722072756c6573 657420746872656520746f2061646472657373657320746861742061726520676f696e67 20746f2061637475616c6c792073706563696679>142 241.2 R 2.819 <726563697069656e74732e204974>117 253.2 R .319<6d757374207265736f6c76> 2.819 F 2.819<6574>-.15 G 2.819<6f61>-2.819 G F2<7b6d61696c6572>A 2.819 <2c68>-1.11 G .319<6f73742c2061646472>-2.819 F<6573737d>-.37 E F1 2.819 <747269706c652e20546865>2.819 F F2<6d61696c6572>2.819 E F1 .318 <6d7573742062652064658c6e656420696e20746865>2.819 F .751<6d61696c657220 64658c6e6974696f6e732066726f6d2074686520636f6e8c6775726174696f6e208c6c65 2e>117 265.2 R<546865>5.751 E F2<686f7374>3.251 E F1 .751 <69732064658c6e656420696e746f20746865>3.251 F F0<2468>3.251 E F1 .752 <6d6163726f20666f722075736520696e>3.252 F 1.203<746865206172>117 277.2 R 1.203<67762065>-.18 F 1.203 <7870616e73696f6e206f66207468652073706563698c6564206d61696c6572>-.15 F 6.203<2e4e>-.55 G 1.203<6f746963653a2073696e63652074686520656e>-6.203 F -.15<7665>-.4 G 1.203 <6c6f70652073656e64657220616464726573732077696c6c206265>.15 F .706 <7573656420696620612064656c69>117 289.2 R -.15<7665>-.25 G .706<72792073 7461747573206e6f74698c636174696f6e206d7573742062652073656e642c20692e652e 2c206974206d61792073706563696679206120726563697069656e742c20697420697320 616c736f2072756e>.15 F 1.549<7468726f7567682072756c65736574207a65726f2e> 117 301.2 R 1.549<49662072756c65736574207a65726f2072657475726e7320612074 656d706f72617279206572726f72>6.549 F F0<347879>4.048 E F1 1.548 <7468656e2064656c69>4.048 F -.15<7665>-.25 G 1.548 <72792069732064656665727265642e>.15 F .064<546869732063616e206265207573 656420746f2074656d706f726172696c792064697361626c652064656c69>117 313.2 R -.15<7665>-.25 G<7279>.15 E 2.564<2c65>-.65 G .064<2e672e2c206261736564 206f6e207468652074696d65206f662074686520646179206f72206f746865722076> -2.564 F<6172792d>-.25 E<696e6720706172616d65746572732e>117 325.2 Q<4974 2073686f756c64206e6f74206265207573656420746f2071756172616e74696e6520652d 6d61696c732e>5 E .453<52756c6573657473206f6e6520616e64207477>142 341.4 R 2.953<6f61>-.1 G .452<7265206170706c69656420746f20616c6c2073656e64657220 616e6420726563697069656e7420616464726573736573207265737065637469>-2.953 F -.15<7665>-.25 G<6c79>.15 E 5.452<2e54>-.65 G<6865>-5.452 E<79>-.15 E <617265206170706c696564206265666f726520616e>117 353.4 Q 2.5<7973>-.15 G< 706563698c636174696f6e20696e20746865206d61696c65722064658c6e6974696f6e2e> -2.5 E<546865>5 E 2.5<796d>-.15 G<757374206e65>-2.5 E -.15<7665>-.25 G 2.5<7272>.15 G<65736f6c76>-2.5 E<652e>-.15 E 1.265<52756c6573657420666f 7572206973206170706c69656420746f20616c6c2061646472657373657320696e207468 65206d6573736167652e>142 369.6 R 1.266 <4974206973207479706963616c6c79207573656420746f207472616e736c617465> 6.265 F<696e7465726e616c20746f2065>117 381.6 Q <787465726e616c20666f726d2e>-.15 E .653<496e206164646974696f6e2c2072756c 657365742035206973206170706c69656420746f20616c6c206c6f63616c206164647265 73736573202873706563698c63616c6c79>142 397.8 R 3.152<2c74>-.65 G .652 <686f73652074686174207265736f6c76>-3.152 F 3.152<6574>-.15 G 3.152<6f61> -3.152 G .296<6d61696c65722077697468207468652060463d3527208d616720736574 29207468617420646f206e6f74206861>117 409.8 R .596 -.15<76652061>-.2 H 2.796<6c69617365732e2054686973>.15 F<616c6c6f>2.796 E .296 <77732061206c617374206d696e75746520686f6f6b20666f72206c6f63616c>-.25 F <6e616d65732e>117 421.8 Q .4 LW 77 483.6 72 483.6 DL 79 483.6 74 483.6 DL 84 483.6 79 483.6 DL 89 483.6 84 483.6 DL 94 483.6 89 483.6 DL 99 483.6 94 483.6 DL 104 483.6 99 483.6 DL 109 483.6 104 483.6 DL 114 483.6 109 483.6 DL 119 483.6 114 483.6 DL 124 483.6 119 483.6 DL 129 483.6 124 483.6 DL 134 483.6 129 483.6 DL 139 483.6 134 483.6 DL 144 483.6 139 483.6 DL 149 483.6 144 483.6 DL 154 483.6 149 483.6 DL 159 483.6 154 483.6 DL 164 483.6 159 483.6 DL 169 483.6 164 483.6 DL 174 483.6 169 483.6 DL 179 483.6 174 483.6 DL 184 483.6 179 483.6 DL 189 483.6 184 483.6 DL 194 483.6 189 483.6 DL 199 483.6 194 483.6 DL 204 483.6 199 483.6 DL 209 483.6 204 483.6 DL 214 483.6 209 483.6 DL 219 483.6 214 483.6 DL 224 483.6 219 483.6 DL 229 483.6 224 483.6 DL 234 483.6 229 483.6 DL 239 483.6 234 483.6 DL 244 483.6 239 483.6 DL 249 483.6 244 483.6 DL 254 483.6 249 483.6 DL 259 483.6 254 483.6 DL 264 483.6 259 483.6 DL 269 483.6 264 483.6 DL 274 483.6 269 483.6 DL 279 483.6 274 483.6 DL 284 483.6 279 483.6 DL 289 483.6 284 483.6 DL 294 483.6 289 483.6 DL 299 483.6 294 483.6 DL 304 483.6 299 483.6 DL 309 483.6 304 483.6 DL 314 483.6 309 483.6 DL 319 483.6 314 483.6 DL 324 483.6 319 483.6 DL 329 483.6 324 483.6 DL 334 483.6 329 483.6 DL 339 483.6 334 483.6 DL 344 483.6 339 483.6 DL 349 483.6 344 483.6 DL 354 483.6 349 483.6 DL 359 483.6 354 483.6 DL 364 483.6 359 483.6 DL 369 483.6 364 483.6 DL 374 483.6 369 483.6 DL 379 483.6 374 483.6 DL 384 483.6 379 483.6 DL 389 483.6 384 483.6 DL 394 483.6 389 483.6 DL 399 483.6 394 483.6 DL 404 483.6 399 483.6 DL 409 483.6 404 483.6 DL 414 483.6 409 483.6 DL 419 483.6 414 483.6 DL 424 483.6 419 483.6 DL 429 483.6 424 483.6 DL 434 483.6 429 483.6 DL 439 483.6 434 483.6 DL 444 483.6 439 483.6 DL 449 483.6 444 483.6 DL 454 483.6 449 483.6 DL 459 483.6 454 483.6 DL 464 483.6 459 483.6 DL 469 483.6 464 483.6 DL 474 483.6 469 483.6 DL 479 483.6 474 483.6 DL 484 483.6 479 483.6 DL 489 483.6 484 483.6 DL 494 483.6 489 483.6 DL 499 483.6 494 483.6 DL 504 483.6 499 483.6 DL<61646472>91.915 578.2 Q 133.2 576 111.6 576 DL 133.2 576 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Fg 133.2 576 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Cg ST 154.8 586.8 MT 0 -21.6 RL -21.6 0 RL 0 21.6 RL CL ST<33>141.5 578.2 Q 176.4 576 154.8 576 DL 176.4 576 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Fg 176.4 576 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Cg ST 198 586.8 MT 0 -21.6 RL -21.6 0 RL 0 21.6 RL CL ST<44>183.59 578.2 Q 219.6 576 198 576 DL 277.2 558 255.6 558 DL 277.2 558 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Fg 277.2 558 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Cg ST 298.8 568.8 MT 0 -21.6 RL -21.6 0 RL 0 21.6 RL CL ST<31>285.5 560.2 Q 320.4 558 298.8 558 DL 320.4 558 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Fg 320.4 558 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Cg ST 342 568.8 MT 0 -21.6 RL -21.6 0 RL 0 21.6 RL CL ST<53>328.42 560.2 Q 363.6 558 342 558 DL 277.2 594 255.6 594 DL 277.2 594 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Fg 277.2 594 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Cg ST 298.8 604.8 MT 0 -21.6 RL -21.6 0 RL 0 21.6 RL CL ST<32>285.5 596.2 Q 320.4 594 298.8 594 DL 320.4 594 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Fg 320.4 594 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Cg ST 342 604.8 MT 0 -21.6 RL -21.6 0 RL 0 21.6 RL CL ST<52>327.865 596.2 Q 363.6 594 342 594 DL 421.2 576 399.6 576 DL 421.2 576 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Fg 421.2 576 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Cg ST 442.8 586.8 MT 0 -21.6 RL -21.6 0 RL 0 21.6 RL CL ST<34>429.5 578.2 Q 464.4 576 442.8 576 DL 464.4 576 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Fg 464.4 576 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Cg ST<6d7367> 466.865 578.2 Q 255.6 558 219.6 576 DL 255.6 594 219.6 576 DL 399.6 576 363.6 558 DL 399.6 576 363.6 594 DL 208.8 522 187.2 522 DL 208.8 522 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Fg 208.8 522 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Cg ST 230.4 532.8 MT 0 -21.6 RL -21.6 0 RL 0 21.6 RL CL ST<30>217.1 524.2 Q 252 522 230.4 522 DL 252 522 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Fg 252 522 MT -7.2 1.8 RL 0 -3.6 RL CL 0 Cg ST<7265736f6c76>265.69 524.2 Q <65642061646472657373>-.15 E 187.2 522 162 576 DL <4669677572652031208a205265>216.045 624 Q <77726974696e67207365742073656d616e74696373>-.25 E 2.5<448a73>209.35 636 S<656e64657220646f6d61696e206164646974696f6e>-2.5 E 2.5<538a6d>209.35 648 S<61696c6572>-2.5 E<2d73706563698c632073656e646572207265>-.2 E <77726974696e67>-.25 E 2.5<528a6d>209.35 660 S<61696c6572>-2.5 E <2d73706563698c6320726563697069656e74207265>-.2 E<77726974696e67>-.25 E 77 672 72 672 DL 79 672 74 672 DL 84 672 79 672 DL 89 672 84 672 DL 94 672 89 672 DL 99 672 94 672 DL 104 672 99 672 DL 109 672 104 672 DL 114 672 109 672 DL 119 672 114 672 DL 124 672 119 672 DL 129 672 124 672 DL 134 672 129 672 DL 139 672 134 672 DL 144 672 139 672 DL 149 672 144 672 DL 154 672 149 672 DL 159 672 154 672 DL 164 672 159 672 DL 169 672 164 672 DL 174 672 169 672 DL 179 672 174 672 DL 184 672 179 672 DL 189 672 184 672 DL 194 672 189 672 DL 199 672 194 672 DL 204 672 199 672 DL 209 672 204 672 DL 214 672 209 672 DL 219 672 214 672 DL 224 672 219 672 DL 229 672 224 672 DL 234 672 229 672 DL 239 672 234 672 DL 244 672 239 672 DL 249 672 244 672 DL 254 672 249 672 DL 259 672 254 672 DL 264 672 259 672 DL 269 672 264 672 DL 274 672 269 672 DL 279 672 274 672 DL 284 672 279 672 DL 289 672 284 672 DL 294 672 289 672 DL 299 672 294 672 DL 304 672 299 672 DL 309 672 304 672 DL 314 672 309 672 DL 319 672 314 672 DL 324 672 319 672 DL 329 672 324 672 DL 334 672 329 672 DL 339 672 334 672 DL 344 672 339 672 DL 349 672 344 672 DL 354 672 349 672 DL 359 672 354 672 DL 364 672 359 672 DL 369 672 364 672 DL 374 672 369 672 DL 379 672 374 672 DL 384 672 379 672 DL 389 672 384 672 DL 394 672 389 672 DL 399 672 394 672 DL 404 672 399 672 DL 409 672 404 672 DL 414 672 409 672 DL 419 672 414 672 DL 424 672 419 672 DL 429 672 424 672 DL 434 672 429 672 DL 439 672 434 672 DL 444 672 439 672 DL 449 672 444 672 DL 454 672 449 672 DL 459 672 454 672 DL 464 672 459 672 DL 469 672 464 672 DL 474 672 469 672 DL 479 672 474 672 DL 484 672 479 672 DL 489 672 484 672 DL 494 672 489 672 DL 499 672 494 672 DL 504 672 499 672 DL 0 Cg EP %%Page: 42 38 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d34322053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E 2.5<352e312e342e2052756c65736574>102 96 R<686f6f6b73>2.5 E/F1 10 /Times-Roman@0 SF 3.815<4166>142 112.2 S 1.815 -.25<65772065>-3.815 H 1.315<787472612072756c6573657473206172652064658c6e65642061732099686f6f6b 739a20746861742063616e2062652064658c6e656420746f20676574207370656369616c 2066656174757265732e>.1 F<546865>117 124.2 Q 3.467<7961>-.15 G .968 <726520616c6c206e616d65642072756c65736574732e>-3.467 F .968 <5468652099636865636b5f2a9a20666f726d7320616c6c206769>5.968 F 1.268 -.15 <76652061>-.25 H .968<63636570742f72656a656374207374617475733b2066>.15 F .968<616c6c696e67206f66>-.1 F 3.468<6674>-.25 G<6865>-3.468 E .207<656e 64206f722072657475726e696e67206e6f726d616c6c7920697320616e20616363657074 2c20616e64207265736f6c76696e6720746f>117 136.2 R F0<2423657272>2.707 E <6f72>-.18 E F1 .207 <697320612072656a656374206f722071756172616e74696e652e>2.707 F<51756172> 5.206 E<2d>-.2 E <616e74696e696e672069732063686f73656e2062792073706563696679696e67>117 148.2 Q F0<71756172616e74696e65>2.5 E F1<696e20746865207365636f6e642070 617274206f6620746865206d61696c657220747269706c65743a>2.5 E<24236572726f 722024402071756172616e74696e6520243a20526561736f6e20666f722071756172616e 74696e65>157 164.4 Q<4d616e>117 180.6 Q 3.12<796f>-.15 G 3.12<6674>-3.12 G .62<686573652063616e20616c736f207265736f6c76>-3.12 F 3.121<6574>-.15 G 3.121<6f74>-3.121 G .621<6865207370656369616c206d61696c6572206e616d65> -3.121 F F0<242364697363617264>3.121 E F1 3.121<3b74>C .621 <686973206163636570747320746865206d657373616765>-3.121 F .924 <61732074686f7567682069742077657265207375636365737366756c2062>117 192.6 R .923<7574207468656e20646973636172647320697420776974686f75742064656c69> -.2 F -.15<7665>-.25 G<7279>.15 E 5.923<2e4e>-.65 G .923 <6f74652c2074686973206d61696c65722063616e6e6f74206265>-5.923 F .681 <63686f73656e2061732061206d61696c657220696e2072756c6573657420302e>117 204.6 R .682<4e6f746520616c736f207468617420616c6c2099636865636b5f2a9a20 72756c6573657473206861>5.682 F .982 -.15<76652074>-.2 H 3.182<6f64>.15 G .682<65616c20776974682074656d706f2d>-3.182 F .683<726172792066>117 216.6 R .683<61696c757265732c20657370656369616c6c7920666f72206d6170206c6f6f6b 7570732c207468656d73656c76>-.1 F .682<65732c20692e652e2c20746865>-.15 F 3.182<7973>-.15 G .682 <686f756c642072657475726e20612074656d706f72617279206572726f72>-3.182 F <636f6465206f72206174206c6561737420746865>117 228.6 Q 2.5<7973>-.15 G <686f756c64206d616b>-2.5 E 2.5<656170>-.1 G <726f706572206465636973696f6e20696e2074686f73652063617365732e>-2.5 E F0 2.5<352e312e342e312e20636865636b5f72>117 252.6 R<656c6179>-.18 E F1 <546865>157 268.8 Q/F2 10/Times-Italic@0 SF -.15<6368>3.335 G<6563>.15 E <6b5f72>-.2 E<656c6179>-.37 E F1 .836<72756c657365742069732063616c6c6564 206166746572206120636f6e6e656374696f6e2069732061636365707465642062792074 6865206461656d6f6e2e>3.335 F .836<4974206973>5.836 F<6e6f742063616c6c65 64207768656e2073656e646d61696c2069732073746172746564207573696e6720746865> 132 280.8 Q F02.5 E F1 2.5<6f7074696f6e2e204974>2.5 F <697320706173736564>2.5 E<636c69656e742e686f73742e6e616d6520247c20636c69 656e742e686f73742e61646472657373>172 297 Q<7768657265>132 313.2 Q F0 <247c>4.017 E F1 1.517<69732061206d657461636861726163746572207365706172 6174696e6720746865207477>4.017 F 4.017<6f70>-.1 G 4.017 <617274732e2054686973>-4.017 F 1.517 <72756c657365742063616e2072656a65637420636f6e6e656374696f6e73>4.017 F .322<66726f6d2076>132 325.2 R .322<6172696f7573206c6f636174696f6e732e> -.25 F .322<4e6f74652074686174206974206f6e6c7920636865636b73207468652063 6f6e6e656374696e6720534d545020636c69656e74204950206164647265737320616e64> 5.322 F 3.464<686f73746e616d652e204974>132 337.2 R .963<646f6573206e6f74 20636865636b20666f72207468697264207061727479206d6573736167652072656c6179 696e672e>3.463 F<546865>5.963 E F2 -.15<6368>3.463 G<6563>.15 E<6b5f72> -.2 E<637074>-.37 E F1 .963<72756c65736574206469732d>3.463 F <6375737365642062656c6f>132 349.2 Q 2.5<7775>-.25 G<7375616c6c7920646f65 73207468697264207061727479206d6573736167652072656c617920636865636b696e67 2e>-2.5 E F0 2.5<352e312e342e322e20636865636b5f6d61696c>117 373.2 R F1 <546865>157 389.4 Q F2 -.15<6368>3.722 G<6563>.15 E<6b5f6d61696c>-.2 E F1 1.223<72756c6573657420697320706173736564207468652075736572206e616d65 20706172616d65746572206f6620746865>3.722 F/F3 9/Times-Roman@0 SF 1.223 <534d5450204d41494c>3.723 F F1<636f6d2d>3.723 E 2.5<6d616e642e204974>132 401.4 R <63616e20616363657074206f722072656a6563742074686520616464726573732e>2.5 E F0 2.5<352e312e342e332e20636865636b5f72>117 425.4 R<637074>-.18 E F1 <546865>157 441.6 Q F2 -.15<6368>3.918 G<6563>.15 E<6b5f72>-.2 E<637074> -.37 E F1 1.417<72756c6573657420697320706173736564207468652075736572206e 616d6520706172616d65746572206f6620746865>3.918 F F3 1.417 <534d54502052435054>3.917 F F1<636f6d2d>3.917 E 2.5<6d616e642e204974>132 453.6 R <63616e20616363657074206f722072656a6563742074686520616464726573732e>2.5 E F0 2.5<352e312e342e342e20636865636b5f64617461>117 477.6 R F1<546865> 157 493.8 Q F2 -.15<6368>3.245 G<6563>.15 E<6b5f64617461>-.2 E F1 .746 <72756c657365742069732063616c6c656420616674657220746865>3.245 F F3 .746 <534d54502044>3.246 F -1.089 -.999<41542041>-.36 H F1 .746 <636f6d6d616e642c2069747320706172616d6574657220697320746865>4.245 F <6e756d626572206f6620726563697069656e74732e>132 505.8 Q<49742063616e2061 6363657074206f722072656a6563742074686520636f6d6d616e642e>5 E F0 2.5 <352e312e342e352e20636865636b5f6f74686572>117 529.8 R F1<546865>157 546 Q F2 -.15<6368>3.613 G<6563>.15 E<6b5f6f74686572>-.2 E F1 1.113 <72756c6573657420697320696e>3.613 F -.2<766f>-.4 G -.1<6b65>.2 G 3.613 <6466>.1 G 1.113<6f7220616c6c20756e6b6e6f>-3.613 F 1.112 <776e20534d545020636f6d6d616e647320616e6420666f7220636f6d2d>-.25 F 1.232 <6d616e647320776869636820646f206e6f74206861>132 558 R 1.532 -.15 <76652073>-.2 H 1.232<706563698c632072756c65736574732c20652e672e2c204e4f 4f5020616e6420564552422e>.15 F 1.233 <496e7465726e616c20636865636b732c20652e672e2c>6.233 F .969 <74686f73652065>132 570 R .969 <78706c61696e656420696e20224d65617375726573206167>-.15 F .968<61696e7374 2044656e69616c206f6620536572766963652041747461636b73222c2061726520706572 666f726d6564208c7273742e>-.05 F<546865>5.968 E <72756c6573657420697320706173736564>132 582 Q<656e746972652d534d54502d63 6f6d6d616e6420247c20534d54502d7265706c792d8c7273742d6469676974>172 598.2 Q<7768657265>132 614.4 Q F0<247c>2.5 E F1<69732061206d657461636861726163 7465722073657061726174696e6720746865207477>2.5 E 2.5<6f70>-.1 G 2.5 <617274732e2046>-2.5 F<6f722065>-.15 E<78616d706c652c>-.15 E <5645524220247c2032>172 630.6 Q .187<72658d65637473207265636569>132 646.8 R .188<76696e67207468652022564552422220534d545020636f6d6d616e6420 616e642074686520696e74656e7420746f2072657475726e206120223258582220534d54 50207375632d>-.25 F<63657373207265706c79>132 658.8 Q 5<2e41>-.65 G <6c7465726e617469>-5 E -.15<7665>-.25 G<6c79>.15 E<2c>-.65 E <4a554e4b20545950453d4920247c2035>172 675 Q .438 <72658d65637473207265636569>132 691.2 R .438 <76696e672074686520756e6b6e6f>-.25 F .438<776e20224a554e4b20545950453d49 2220534d545020636f6d6d616e6420616e642074686520696e74656e7420746f20726574 75726e2061>-.25 F<223558582220534d54502066>132 703.2 Q <61696c757265207265706c79>-.1 E 5<2e49>-.65 G 2.5<6674>-5 G<68652072756c 657365742072657475726e732074686520534d5450207265706c7920636f646520343231 3a>-2.5 E 0 Cg EP %%Page: 43 39 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3433>195.86 E /F1 10/Times-Roman@0 SF <24236572726f7220244020342e372e3020243a203432312062616420636f6d6d616e64> 172 96 Q .594<7468652073657373696f6e206973207465726d696e617465642e>132 112.2 R .594<4e6f74653a206974206973206120626164206964656120746f20726574 75726e20746865206f726967696e616c20636f6d6d616e6420696e20746865206572726f 72>5.594 F<7465>132 124.2 Q .83<787420746f2074686520636c69656e7420617320 74686174206d69676874206265206162>-.15 F .83 <7573656420666f72206365727461696e2061747461636b732e>-.2 F .83 <5468652072756c657365742063616e6e6f74206f>5.83 F -.15<7665>-.15 G .83 <72726964652061>.15 F <72656a656374696f6e20747269676765726564206279207468652062>132 136.2 Q <75696c742d696e2072756c65732e>-.2 E F0 2.5 <352e312e342e362e20636865636b5f636f6d706174>117 160.2 R F1<546865>157 176.4 Q/F2 10/Times-Italic@0 SF -.15<6368>2.5 G<6563>.15 E <6b5f636f6d706174>-.2 E F1<72756c6573657420697320706173736564>2.5 E <73656e646572>172 192.6 Q <2d6164647265737320247c20726563697069656e742d61646472657373>-.2 E <7768657265>132 208.8 Q F0<247c>3.725 E F1 1.225<69732061206d6574616368 617261637465722073657061726174696e6720746865206164647265737365732e>3.725 F 1.225<49742063616e20616363657074206f722072656a656374206d61696c20747261 6e73666572>6.225 F 2.386<6265747765656e207468657365207477>132 220.8 R 4.886<6f61>-.1 G 2.386<6464726573736573206d756368206c696b>-4.886 F 4.885 <6574>-.1 G<6865>-4.885 E F2 -.15<6368>4.885 G<6563>.15 E <6b636f6d7061742829>-.2 E F1 4.885<66756e6374696f6e2e204e6f74653a>4.885 F 2.385<7768696c65206f74686572>4.885 F F2 -.15<6368>132 232.8 S<6563>.15 E<6b5f2a>-.2 E F1 1.99<72756c65736574732061726520696e>4.49 F -.2<766f> -.4 G -.1<6b65>.2 G 4.49<6464>.1 G 1.99<7572696e672074686520534d5450206d 61696c2072656365697074696f6e2073746167652028692e652e2c20696e207468652053 4d5450>-4.49 F<73657276>132 244.8 Q<6572292c>-.15 E F2 -.15<6368>2.5 G <6563>.15 E<6b5f636f6d706174>-.2 E F1<697320696e>2.5 E -.2<766f>-.4 G -.1<6b65>.2 G 2.5<6464>.1 G<7572696e6720746865206d61696c2064656c69>-2.5 E -.15<7665>-.25 G<72792073746167652e>.15 E F0 2.5 <352e312e342e372e20636865636b5f656f68>117 268.8 R F1<546865>157 285 Q F2 -.15<6368>2.5 G<6563>.15 E<6b5f656f68>-.2 E F1 <72756c6573657420697320706173736564>2.5 E<6e756d626572>172 301.2 Q <2d6f662d6865616465727320247c2073697a652d6f662d68656164657273>-.2 E <7768657265>132 317.4 Q F0<247c>3.803 E F1 1.303<69732061206d6574616368 617261637465722073657061726174696e6720746865206e756d626572732e>3.803 F 1.303 <5468657365206e756d626572732063616e206265207573656420666f722073697a65> 6.303 F .588<636f6d70617269736f6e73207769746820746865>132 329.4 R F0 <6172697468>3.088 E F1 3.088<6d61702e20546865>3.088 F .588<72756c657365 742069732074726967676572656420616674657220616c6c206f66207468652068656164 657273206861>3.088 F .888 -.15<76652062>-.2 H<65656e>.15 E 3.262 <726561642e204974>132 341.4 R .762<63616e206265207573656420746f20636f72 72656c61746520696e666f726d6174696f6e2067>3.262 F .761<617468657265642066 726f6d2074686f73652068656164657273207573696e6720746865>-.05 F F0 <6d616372>3.261 E<6f>-.18 E F1<73746f72616765206d61702e>132 353.4 Q<4f6e 6520706f737369626c652075736520697320746f20636865636b20666f722061206d6973 73696e6720686561646572>5 E 5<2e46>-.55 G<6f722065>-5.15 E <78616d706c653a>-.15 E<4b73746f72616765206d6163726f>172 369.6 Q <484d6573736167652d49643a20243e436865636b4d6573736167654964>172 381.6 Q <53436865636b4d6573736167654964>172 405.6 Q 2.5<2352>172 417.6 S <65636f7264207468652070726573656e6365206f662074686520686561646572>-2.5 E 88.83<52242a20243a>172 429.6 R<242873746f72616765207b4d6573736167654964 436865636b7d202440204f4b202429202431>2.5 E<523c20242b204020242b203e>172 441.6 Q<2440204f4b>49.56 E 88.83<52242a2024236572726f72>172 453.6 R <243a2035353320486561646572204572726f72>2.5 E<53636865636b5f656f68>172 477.6 Q 2.5<2343>172 489.6 S<6865636b20746865206d6163726f>-2.5 E 88.83 <52242a20243a>172 501.6 R 2.5<3c24>2.5 G <267b4d6573736167654964436865636b7d203e>-2.5 E 2.5<2343>172 513.6 S <6c65617220746865206d6163726f20666f7220746865206e65>-2.5 E <7874206d657373616765>-.15 E 88.83<52242a20243a>172 525.6 R <242873746f72616765207b4d6573736167654964436865636b7d202429202431>2.5 E 2.5<2348>172 537.6 S<61732061204d6573736167652d49643a20686561646572>-2.5 E<523c20242b203e>172 549.6 Q<2440204f4b>74.41 E 2.5<2341>172 561.6 S <6c6c6f>-2.5 E 2.5<776d>-.25 G <697373696e67204d6573736167652d49643a2066726f6d206c6f63616c206d61696c> -2.5 E 88.83<52242a20243a>172 573.6 R 2.5<3c24>2.5 G <267b636c69656e745f6e616d657d203e>-2.5 E<523c203e>172 585.6 Q <2440204f4b>87.55 E<523c20243d77203e>172 597.6 Q<2440204f4b>67.19 E 2.5 <234f>172 609.6 S<74686572776973652c2072656a65637420746865206d61696c> -2.5 E 88.83<52242a2024236572726f72>172 621.6 R <243a2035353320486561646572204572726f72>2.5 E -.25<4b65>132 637.8 S .459 <657020696e206d696e6420746865204d6573736167652d49643a206865616465722069 73206e6f7420612072657175697265642068656164657220616e64206973206e6f742061 2067756172616e74656564207370616d>.25 F<696e64696361746f72>132 649.8 Q 5 <2e54>-.55 G<6869732072756c6573657420697320616e2065>-5 E<78616d706c6520 616e642073686f756c642070726f6261626c79206e6f74206265207573656420696e2070 726f64756374696f6e2e>-.15 E F0 2.5<352e312e342e382e20636865636b5f656f6d> 117 673.8 R F1<546865>157 690 Q F2 -.15<6368>3.219 G<6563>.15 E <6b5f656f6d>-.2 E F1 .719<72756c657365742069732063616c6c6564206166746572 2074686520656e64206f662061206d6573736167652c2069747320706172616d65746572 20697320746865206d65732d>3.219 F<736167652073697a652e>132 702 Q<49742063 616e20616363657074206f722072656a65637420746865206d6573736167652e>5 E 0 Cg EP %%Page: 44 40 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d34342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E 2.5<352e312e342e392e20636865636b5f657472>117 96 R<6e>-.15 E/F1 10 /Times-Roman@0 SF<546865>157 112.2 Q/F2 10/Times-Italic@0 SF -.15<6368> 3.384 G<6563>.15 E<6b5f6574726e>-.2 E F1 .885<72756c65736574206973207061 737365642074686520706172616d65746572206f6620746865>3.384 F/F3 9 /Times-Roman@0 SF .885<534d5450204554524e>3.385 F F1 3.385 <636f6d6d616e642e204974>3.385 F<63616e>3.385 E <616363657074206f722072656a6563742074686520636f6d6d616e642e>132 124.2 Q F0 2.5<352e312e342e31302e20636865636b5f6578706e>117 148.2 R F1<546865> 157 164.4 Q F2 -.15<6368>3.615 G<6563>.15 E<6b5f65>-.2 E<78706e>-.2 E F1 1.115<72756c6573657420697320706173736564207468652075736572206e616d652070 6172616d65746572206f6620746865>3.615 F F3 1.114<534d5450204558504e>3.615 F F1<636f6d2d>3.614 E 2.5<6d616e642e204974>132 176.4 R <63616e20616363657074206f722072656a6563742074686520616464726573732e>2.5 E F0 2.5<352e312e342e31312e20636865636b5f76726679>117 200.4 R F1<546865> 157 216.6 Q F2 -.15<6368>3.816 G<6563>.15 E<6b5f76726679>-.2 E F1 1.317< 72756c6573657420697320706173736564207468652075736572206e616d652070617261 6d65746572206f6620746865>3.816 F F3 1.317<534d54502056524659>3.817 F F1 <636f6d2d>3.817 E 2.5<6d616e642e204974>132 228.6 R <63616e20616363657074206f722072656a6563742074686520636f6d6d616e642e>2.5 E F0 2.5<352e312e342e31322e20636c745f666561747572>117 252.6 R<6573>-.18 E F1<546865>157 268.8 Q F2<636c745f666561747572>2.623 E<6573>-.37 E F1 .123<72756c657365742069732063616c6c65642077697468207468652073657276> 2.623 F<657227>-.15 E 2.622<7368>-.55 G .122 <6f7374206e616d65206265666f72652073656e646d61696c20636f6e6e65637473> -2.622 F .142<746f20697420286f6e6c792069662073656e646d61696c20697320636f 6d70696c65642077697468205354>132 280.8 R<4152>-.93 E .143 <54544c53206f72205341534c292e>-.6 F .143 <546869732072756c657365742073686f756c642072657475726e>5.143 F F0<2423> 2.643 E F1<666f6c6c6f>132 292.8 Q .525<7765642062792061206c697374206f66 206f7074696f6e732028696e2067656e6572616c2c2073696e676c652063686172616374 6572732064656c696d69746564206279207768697465207370616365292e>-.25 F .524 <496620746865>5.524 F .596<72657475726e2076>132 304.8 R .596 <616c756520737461727473207769746820616e>-.25 F .596 <797468696e6720656c73652069742069732073696c656e746c792069676e6f7265642e> -.15 F .597 <47656e6572616c6c7920757070657220636173652063686172616374657273>5.596 F .302<7475726e206f66>132 316.8 R 2.802<666166>-.25 G .302 <656174757265207768696c65206c6f>-2.802 F .301 <77657220636173652063686172616374657273207475726e206974206f6e2e>-.25 F .301 <4f7074696f6e73206044272f604d272063617573652074686520636c69656e7420746f> 5.301 F .203<6e6f74207573652044>132 328.8 R<414e452f4d54>-.4 E .204 <412d5354532c207265737065637469>-.93 F -.15<7665>-.25 G<6c79>.15 E 2.704 <2c77>-.65 G .204 <686963682069732075736566756c20746f20696e7465726163742077697468204d54> -2.704 F .204<41732074686174206861>-.93 F .504 -.15<76652062>-.2 H <726f2d>.15 E -.1<6b65>132 340.8 S 3.155<6e44>.1 G<414e452f4d54>-3.555 E .655<412d535453207365747570732062792073696d706c79206e6f74207573696e6720 69742e>-.93 F .654<4e6f74653a20546865>5.655 F F2<64>3.154 E F1 .654 <6f7074696f6e20696e>3.154 F F2<746c735f636c745f666561747572>3.154 E <6573>-.37 E F1<746f207475726e206f66>132 352.8 Q 2.5<6644>-.25 G <414e4520646f6573206e6f742077>-2.9 E<6f726b207768656e207468652073657276> -.1 E<657220646f6573206e6f742065>-.15 E -.15<7665>-.25 G 2.5<6e6f>.15 G -.25<6666>-2.5 G<6572205354>.25 E<4152>-.93 E<54544c532e>-.6 E F0 2.5 <352e312e342e31332e2074727573745f61757468>117 376.8 R F1<546865>157 393 Q F2<74727573745f61757468>3.044 E F1 .545 <72756c6573657420697320706173736564207468652041>3.044 F .545 <5554483d20706172616d65746572206f6620746865>-.55 F F3 .545 <534d5450204d41494c>3.045 F F1<636f6d6d616e642e>3.045 E .636<4974206973 207573656420746f2064657465726d696e65207768657468657220746869732076>132 405 R .635<616c75652073686f756c6420626520747275737465642e20496e206f7264 657220746f206d616b>-.25 F 3.135<6574>-.1 G .635 <686973206465636973696f6e2c>-3.135 F .153 <7468652072756c65736574206d6179206d616b>132 417 R 2.653<6575>-.1 G .154 <7365206f66207468652076>-2.653 F<6172696f7573>-.25 E F0 <247b617574685f2a7d>2.654 E F1 2.654<6d6163726f732e204966>2.654 F .154 <7468652072756c6573657420646f6573207265736f6c76>2.654 F 2.654<6574>-.15 G 2.654<6f74>-2.654 G<6865>-2.654 E .019 <996572726f729a206d61696c6572207468652041>132 429 R .019<5554483d207061 72616d65746572206973206e6f74207472757374656420616e642068656e6365206e6f74 20706173736564206f6e20746f20746865206e65>-.55 F .018<78742072656c6179> -.15 F<2e>-.65 E F0 2.5<352e312e342e31342e20746c735f636c69656e74>117 453 R F1<546865>157 469.2 Q F2<746c735f636c69656e74>2.894 E F1 .395<72756c65 7365742069732063616c6c6564207768656e2073656e646d61696c206163747320617320 73657276>2.894 F .395<65723a2061667465722061205354>-.15 F<4152>-.93 E .395<54544c5320636f6d2d>-.6 F 1.1<6d616e6420686173206265656e206973737565 6420616e642074686520544c532068616e647368616b>132 481.2 R 3.6<6577>-.1 G 1.1<617320706572666f726d65642c20616e642066726f6d>-3.7 F F2 -.15<6368>3.6 G<6563>.15 E<6b5f6d61696c2e>-.2 E F1<546865>6.1 E 1.274 <706172616d65746572206973207468652076>132 493.2 R 1.274<616c7565206f66> -.25 F F0<247b76>3.774 E<65726966797d>-.1 E F1 1.275<616e64205354>3.775 F<4152>-.93 E 1.275<54544c53206f72204d41494c2c207265737065637469>-.6 F -.15<7665>-.25 G<6c79>.15 E 6.275<2e49>-.65 G 3.775<6674>-6.275 G 1.275 <68652072756c65736574>-3.775 F 1.27<646f6573207265736f6c76>132 505.2 R 3.77<6574>-.15 G 3.77<6f74>-3.77 G 1.27 <686520996572726f729a206d61696c6572>-3.77 F 3.769<2c74>-.4 G 1.269<6865 20617070726f707269617465206572726f7220636f64652069732072657475726e656420 746f2074686520636c69656e742c20666f72>-3.769 F<5354>132 517.2 Q<4152>-.93 E<54544c5320746869732068617070656e7320666f7220286d6f73742920737562736571 75656e7420636f6d6d616e64732e>-.6 E F0 2.5 <352e312e342e31352e20746c735f736572>117 541.2 R -.1<7665>-.1 G<72>.1 E F1<546865>157 557.4 Q F2<746c735f736572766572>3.053 E F1 .554<72756c6573 65742069732063616c6c6564207768656e2073656e646d61696c20616374732061732063 6c69656e742061667465722061205354>3.053 F<4152>-.93 E .554 <54544c5320636f6d2d>-.6 F .05<6d616e64202873686f756c6429206861>132 569.4 R .35 -.15<76652062>-.2 H .05<65656e206973737565642e>.15 F .049 <54686520706172616d65746572206973207468652076>5.05 F .049 <616c7565206f66>-.25 F F0<247b76>2.549 E<65726966797d>-.1 E F1 5.049 <2e49>C 2.549<6674>-5.049 G .049<68652072756c6573657420646f6573>-2.549 F <7265736f6c76>132 581.4 Q 2.514<6574>-.15 G 2.514<6f74>-2.514 G .014 <686520996572726f729a206d61696c6572>-2.514 F 2.514<2c74>-.4 G .014<6865 20636f6e6e656374696f6e2069732061626f72746564202874726561746564206173206e 6f6e2d64656c69>-2.514 F -.15<7665>-.25 G .015 <7261626c652077697468206120706572>.15 F<2d>-.2 E <6d616e656e74206f722074656d706f72617279206572726f72292e>132 593.4 Q F0 2.5<352e312e342e31362e20746c735f72>117 617.4 R<637074>-.18 E F1<546865> 157 633.6 Q F2<746c735f72>2.674 E<637074>-.37 E F1 .174<72756c6573657420 69732063616c6c656420656163682074696d65206265666f72652061205243505420636f 6d6d616e642069732073656e742e>2.674 F .173<54686520706172616d652d>5.173 F .494<746572206973207468652063757272656e7420726563697069656e742e>132 645.6 R .494<4966207468652072756c6573657420646f6573207265736f6c76>5.494 F 2.994<6574>-.15 G 2.995<6f74>-2.994 G .495 <686520996572726f729a206d61696c6572>-2.995 F 2.995<2c74>-.4 G .495 <6865205243505420636f6d2d>-2.995 F .717<6d616e64206973207375707072657373 6564202874726561746564206173206e6f6e2d64656c69>132 657.6 R -.15<7665> -.25 G .717<7261626c6520776974682061207065726d616e656e74206f722074656d70 6f72617279206572726f72292e>.15 F<54686973>5.716 E .308 <72756c6573657420616c6c6f>132 669.6 R .308 <777320746f207265717569726520656e6372797074696f6e206f722076>-.25 F .308 <6572698c636174696f6e206f662074686520726563697069656e7427>-.15 F 2.808 <734d>-.55 G 2.168 -.93<54412065>-2.808 H -.15<7665>.68 G 2.808<6e69>.15 G 2.808<6674>-2.808 G .308<6865206d61696c206973>-2.808 F<736f6d65686f> 132 681.6 Q 3.331<7772>-.25 G .831 <65646972656374656420746f20616e6f7468657220686f73742e>-3.331 F -.15 <466f>5.831 G 3.331<7265>.15 G .831 <78616d706c652c2073656e64696e67206d61696c20746f>-3.481 F F2<6c756b>3.331 E<6540656e646d61696c2e6f72>-.1 E<67>-.37 E F1<6d6179>3.33 E .879 <676574207265646972656374656420746f206120686f7374206e616d6564>132 693.6 R F2<64656174682e73746172>3.379 E F1 .879 <616e642068656e63652074686520746c735f73657276>3.379 F .88 <65722072756c657365742077>-.15 F<6f6e27>-.1 E 3.38<7461>-.18 G<70706c79> -3.38 E 5.88<2e42>-.65 G<79>-5.88 E 1.862<696e74726f647563696e6720706572 20726563697069656e74207265737472696374696f6e7320737563682061747461636b73 2028652e672e2c2076696120444e532073706f6f8c6e67292063616e206265206d616465> 132 705.6 R 2.5<696d706f737369626c652e20536565>132 717.6 R F2 <63662f524541444d45>2.5 E F1<686f>2.5 E 2.5<7774>-.25 G <6869732072756c657365742063616e20626520757365642e>-2.5 E 0 Cg EP %%Page: 45 41 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3435>195.86 E 2.5<352e312e342e31372e207372>117 96 R<765f666561747572>-.1 E<6573>-.18 E /F1 10/Times-Roman@0 SF<546865>157 112.2 Q/F2 10/Times-Italic@0 SF <7372765f666561747572>2.75 E<6573>-.37 E F1 .25<72756c657365742069732063 616c6c656420776974682074686520636f6e6e656374696e6720636c69656e7427>2.75 F 2.75<7368>-.55 G .25<6f7374206e616d65207768656e206120636c69656e74> -2.75 F .19<636f6e6e6563747320746f2073656e646d61696c2e>132 124.2 R .19 <546869732072756c657365742073686f756c642072657475726e>5.19 F F0<2423> 2.689 E F1<666f6c6c6f>2.689 E .189<7765642062792061206c697374206f66206f 7074696f6e732028696e2067656e6572616c2c>-.25 F .256<73696e676c6520636861 726163746572732064656c696d69746564206279207768697465207370616365292e>132 136.2 R .257<4966207468652072657475726e2076>5.257 F .257 <616c756520737461727473207769746820616e>-.25 F .257 <797468696e6720656c7365206974206973>-.15 F .267 <73696c656e746c792069676e6f7265642e>132 148.2 R .267<47656e6572616c6c79 20757070657220636173652063686172616374657273207475726e206f66>5.267 F 2.767<666166>-.25 G .267<656174757265207768696c65206c6f>-2.767 F .267 <7765722063617365206368617261632d>-.25 F .049 <74657273207475726e206974206f6e2e>132 160.2 R .049 <4f7074696f6e2060532720636175736573207468652073657276>5.049 F .049 <6572206e6f7420746f206f66>-.15 F .05<666572205354>-.25 F<4152>-.93 E .05 <54544c532c2077686963682069732075736566756c20746f20696e746572>-.6 F<2d> -.2 E .23<6163742077697468204d54>132 172.2 R<41732f4d55>-.93 E .229 <41732074686174206861>-.4 F .529 -.15<76652062>-.2 H<726f6b>.15 E .229 <656e205354>-.1 F<4152>-.93 E .229<54544c5320696d706c656d656e746174696f 6e732062792073696d706c79206e6f74206f66>-.6 F<666572696e67>-.25 E 3.362 <69742e20605627>132 184.2 R .862<7475726e73206f66>3.362 F 3.362<6674> -.25 G .863<6865207265717565737420666f72206120636c69656e742063657274698c 6361746520647572696e672074686520544c532068616e647368616b>-3.362 F 3.363 <652e204f7074696f6e73>-.1 F -.8<6041>3.363 G<27>-.31 E 2.036 <616e642060502720737570707265737320534d54502041>132 196.2 R 2.036 <55544820616e6420504950454c494e494e472c207265737065637469>-.55 F -.15 <7665>-.25 G<6c79>.15 E 7.036<2e60>-.65 G 2.036 <6327206973207468652065717569>-7.036 F -.25<7661>-.25 G 2.035 <6c656e7420746f>.25 F .229 <417574684f7074696f6e733d702c20692e652e2c20697420646f65736e27>132 208.2 R 2.729<7470>-.18 G .229<65726d6974206d656368616e69736d7320737573636570 7469626c6520746f2073696d706c65207061737369>-2.729 F .529 -.15<76652061> -.25 H .23<747461636b2028652e672e2c>.15 F .93<504c41494e2c204c4f47494e29 2c20756e6c6573732061207365637572697479206c617965722069732061637469>132 220.2 R -.15<7665>-.25 G 5.93<2e4f>.15 G .93 <7074696f6e20606c2720726571756972657320534d54502041>-5.93 F .93 <55544820666f722061>-.55 F 5.03<636f6e6e656374696f6e2e204f7074696f6e73> 132 232.2 R 2.531<2742272c202744272c202745272c20616e64202758272073757070 7265737320534d545020564552422c2044534e2c204554524e2c20616e64>5.03 F 1.635<4558504e2c207265737065637469>132 244.2 R -.15<7665>-.25 G<6c79>.15 E 6.635<2e49>-.65 G 4.135<666163>-6.635 G 1.635<6c69656e742073656e647320 6f6e65206f66207468652028485454502920636f6d6d616e647320474554>-4.135 F 4.134<2c50>-.74 G<4f5354>-4.134 E 4.134<2c43>-.74 G<4f4e2d>-4.134 E <4e454354>132 256.2 Q 2.973<2c6f>-.74 G 2.973<7255>-2.973 G .473<534552 2074686520636f6e6e656374696f6e20697320696d6d6564696174656c79207465726d69 6e6174656420696e2074686520666f6c6c6f>-2.973 F .474 <77696e672063617365733a2069662073656e74206173>-.25 F .361<8c72737420636f 6d6d616e642c2069662073656e74206173208c72737420636f6d6d616e64206166746572 205354>132 268.2 R<4152>-.93 E .36 <54544c532c206f722069662074686520276827206f7074696f6e206973207365742e> -.6 F<4f7074696f6e>5.36 E .662 <2746272064697361626c657320534d5450207472616e73616374696f6e2073747566> 132 280.2 R .663<8c6e672070726f74656374696f6e20776869636820697320656e61 626c656420627920646566>-.25 F 3.163<61756c742e20546865>-.1 F <70726f7465632d>3.163 E 3.489<74696f6e20636865636b7320666f7220636c69656e 74732077686963682074727920746f2073656e6420636f6d6d616e647320776974686f75 742077>132 292.2 R 3.488<616974696e6720666f72207468652073657276>-.1 F <6572>-.15 E 1.768<48454c4f2f45484c4f20616e642044>132 304.2 R -1.21 -1.11<41542041>-.4 H 4.268<726573706f6e73652e204f7074696f6e>5.378 F 1.768<276f2720636175736573207468652073657276>4.268 F 1.769 <657220746f20616363657074206f6e6c792043524c46202e>-.15 F .401<43524c4620 617320656e64206f6620616e20534d5450206d6573736167652061732072657175697265 6420627920746865205246437320776869636820697320616c736f206120646566656e73 65206167>132 316.2 R<61696e7374>-.05 E .99 <534d545020736d7567676c696e6720284356452d323032332d3531373635292e>132 328.2 R .99<4f7074696f6e20274f2720616c6c6f>5.99 F .99 <7773207468652073657276>-.25 F .99 <657220746f2061636365707420612073696e676c6520646f74>-.15 F .281<6f6e2061 206c696e6520627920697473656c6620617320656e64206f6620616e20534d5450206d65 73736167652e>132 340.2 R .281 <4f7074696f6e2027672720696e73747275637473207468652073657276>5.281 F .281 <657220746f2066>-.15 F .281<61696c20534d5450>-.1 F .473 <6d65737361676573207768696368206861>132 352.2 R .773 -.15<76652061204c> -.2 H 2.974<4677>.15 G .474<6974686f75742061204352206469726563746c792062 65666f726520697420282262617265204c4622292062792064726f7070696e6720746865 207365732d>-2.974 F .302<73696f6e2077697468206120343231206572726f72>132 364.2 R 5.302<2e4f>-.55 G .301<7074696f6e20274727206163636570747320534d 5450206d65737361676573207768696368206861>-5.302 F .601 -.15 <766520612022>-.2 H .301<62617265204c46222e>.15 F<4f7074696f6e>5.301 E .041<27752720696e73747275637473207468652073657276>132 376.2 R .041 <657220746f2066>-.15 F .041 <61696c20534d5450206d65737361676573207768696368206861>-.1 F .341 -.15 <766520612043>-.2 H 2.541<5277>.15 G .042 <6974686f75742061204c46206469726563746c79206166746572206974>-2.541 F .595<28226261726520435222292062792064726f7070696e6720746865207365737369 6f6e2077697468206120343231206572726f72>132 388.2 R 5.595<2e4f>-.55 G .595<7074696f6e20275527206163636570747320534d5450206d65737361676573> -5.595 F 2.257<7768696368206861>132 400.2 R 2.557 -.15<766520612022>-.2 H 2.257<62617265204352222e>.15 F 2.258<546865726520697320612076>7.258 F 2.258<617269616e7420666f7220746865206f7074696f6e732027752720616e64202767 273a2061202732272063616e206265>-.25 F .12 <617070656e64656420746f207468652073696e676c6520636861726163746572>132 412.2 R 2.62<2c69>-.4 G 2.619<6e77>-2.62 G .119 <686963682063617365207468652073657276>-2.619 F .119 <65722077696c6c207265706c61636520746865206f66>-.15 F .119 <66656e64696e672062617265204352>-.25 F .087 <6f722062617265204c46207769746820612073706163652e>132 424.2 R .088 <5468697320616c6c6f>5.087 F .088 <777320746f20616363657074206d61696c2066726f6d2062726f6b>-.25 F .088 <656e2073797374656d732c2062>-.1 F .088 <757420746865206d657373616765206973>-.2 F 1.339 <6d6f64698c656420746f2061>132 436.2 R -.2<766f>-.2 G 1.338 <696420534d545020736d7567676c696e672e>.2 F 1.338 <4966206e65656465642c2073797374656d7320776974682062726f6b>6.338 F 1.338 <656e20534d545020696d706c656d656e74612d>-.1 F <74696f6e732063616e20626520616c6c6f>132 448.2 Q<77656420736f6d652076696f 6c6174696f6e732c20652e672e2c206120636f6d62696e6174696f6e206f66>-.25 E 2.5<475567>172 464.4 S 2.5<3275>-2.5 G 2.5<324f>-2.5 G 2.5<4163>132 480.6 S<6f6d6d616e64206c696b>-2.5 E<65>-.1 E -.15<6567>172 496.8 S <7265702027426172652e2a2843527c4c46292e2a6e6f7420616c6c6f>.15 E <7765642720244d41494c4c4f47>-.25 E<63616e206265207573656420746f208c6e64 20686f7374732077686963682073656e642062617265204352206f72204c46>132 513 Q <2e>-.8 E 0 Cg EP %%Page: 46 42 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d34362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 37.78<4144>172 96 S 2.5<6f6e>-37.78 G <6f74206f66>-2.5 E<6665722041>-.25 E<555448>-.55 E 40.56<614f>172 108 S -.25<6666>-40.56 G<65722041>.25 E<5554482028646566>-.55 E<61756c7429>-.1 E 38.33<4244>172 120 S 2.5<6f6e>-38.33 G<6f74206f66>-2.5 E <6665722056455242>-.25 E 40<624f>172 132 S -.25<6666>-40 G <657220564552422028646566>.25 E<61756c7429>-.1 E 38.33<4344>172 144 S 2.5<6f6e>-38.33 G <6f742072657175697265207365637572697479206c6179657220666f72>-2.5 E <706c61696e7465>217 156 Q<78742041>-.15 E<5554482028646566>-.55 E <61756c7429>-.1 E 40.56<6352>172 168 S <657175697265207365637572697479206c6179657220666f7220706c61696e7465> -40.56 E<78742041>-.15 E<555448>-.55 E 37.78<4444>172 180 S 2.5<6f6e> -37.78 G<6f74206f66>-2.5 E<6665722044534e>-.25 E 40<644f>172 192 S -.25 <6666>-40 G<65722044534e2028646566>.25 E<61756c7429>-.1 E 38.89<4544>172 204 S 2.5<6f6e>-38.89 G<6f74206f66>-2.5 E<666572204554524e>-.25 E 40.56 <654f>172 216 S -.25<6666>-40.56 G<6572204554524e2028646566>.25 E <61756c7429>-.1 E 39.44<4644>172 228 S <697361626c65207472616e73616374696f6e2073747566>-39.44 E <8c6e672070726f74656374696f6e>-.25 E 41.67<6645>172 240 S <6e666f726365207472616e73616374696f6e2073747566>-41.67 E <8c6e672070726f74656374696f6e2028646566>-.25 E<61756c7429>-.1 E 37.78 <4741>172 252 S <6363657074202262617265204c46227320696e2061206d657373616765>-37.78 E 40 <6744>172 264 S 2.5<6f6e>-40 G<6f7420616363657074202262617265204c462273 20696e2061206d6573736167652028646566>-2.5 E<61756c7429>-.1 E 32.5 <6732205265706c616365>172 276 R <2262617265204c462220696e2061206d6573736167652077697468207370616365>2.5 E 40<6854>172 288 S<65726d696e6174652073657373696f6e20616674657220485454 5020636f6d6d616e6473>-40.7 E 38.89<4c44>172 300 S 2.5<6f6e>-38.89 G <6f7420726571756972652041>-2.5 E<5554482028646566>-.55 E<61756c7429>-.1 E 42.22<6c52>172 312 S<6571756972652041>-42.22 E<555448>-.55 E 37.78 <4f41>172 324 S<636365707420612073696e676c6520646f74206f6e2061206c696e65 20627920697473656c66>-37.78 E <617320656e64206f6620616e20534d5450206d657373616765>217 336 Q 40<6f52> 172 348 S<6571756972652043524c46202e2043524c4620617320656e64206f6620616e 20534d5450206d6573736167652028646566>-40 E<61756c7429>-.1 E 39.44<5044> 172 360 S 2.5<6f6e>-39.44 G<6f74206f66>-2.5 E <66657220504950454c494e494e47>-.25 E 40<704f>172 372 S -.25<6666>-40 G <657220504950454c494e494e472028646566>.25 E<61756c7429>-.1 E 39.44<5344> 172 384 S 2.5<6f6e>-39.44 G<6f74206f66>-2.5 E<666572205354>-.25 E<4152> -.93 E<54544c53>-.6 E 41.11<734f>172 396 S -.25<6666>-41.11 G <6572205354>.25 E<4152>-.93 E<54544c532028646566>-.6 E<61756c7429>-.1 E 37.78<5541>172 408 S <6363657074202262617265204352227320696e2061206d657373616765>-37.78 E 40 <7544>172 420 S 2.5<6f6e>-40 G<6f74206163636570742022626172652043522273 20696e2061206d6573736167652028646566>-2.5 E<61756c7429>-.1 E 32.5 <7532205265706c616365>172 432 R <22626172652043522220696e2061206d6573736167652077697468207370616365>2.5 E 37.78<5644>172 444 S 2.5<6f6e>-37.78 G <6f742072657175657374206120636c69656e742063657274698c63617465>-2.5 E 40 <7652>172 456 S <657175657374206120636c69656e742063657274698c636174652028646566>-40 E <61756c7429>-.1 E 37.78<5844>172 468 S 2.5<6f6e>-37.78 G<6f74206f66>-2.5 E<666572204558504e>-.25 E 40<784f>172 480 S -.25<6666>-40 G <6572204558504e2028646566>.25 E<61756c7429>-.1 E .204 <4e6f74653a2074686520656e7472696573206d61726b>132 496.2 R .204 <65642061732060>-.1 F<6028646566>-.74 E<61756c742927>-.1 E 2.705<276d> -.74 G .205<61792072657175697265207468617420736f6d6520636f6e8c6775726174 696f6e20686173206265656e206d6164652c>-2.705 F .407 <652e672e2c20534d54502041>132 508.2 R .407<555448206973206f6e6c792061> -.55 F -.25<7661>-.2 G .407 <696c61626c652069662070726f7065726c7920636f6e8c67757265642e>.25 F <4d6f72656f>5.407 E -.15<7665>-.15 G 1.207 -.4<722c206d>.15 H<616e>.4 E 2.907<796f>-.15 G .407<7074696f6e732063616e206265>-2.907 F .054<6368616e 676564206f6e206120676c6f62616c20626173697320766961206f746865722073657474 696e67732061732065>132 520.2 R .054<78706c61696e656420696e20746869732064 6f63756d656e742c20652e672e2c20766961204461656d6f6e2d>-.15 F <506f72744f7074696f6e732e>132 532.2 Q .88<5468652072756c65736574206d6179 2072657475726e2060242374656d702720746f20696e6469636174652074686174207468 65726520697320612074656d706f726172792070726f626c656d206465746572>157 548.4 R<2d>-.2 E 1.622<6d696e696e672074686520636f7272656374206665617475 7265732c20652e672e2c2069662061206d617020697320756e61>132 560.4 R -.25 <7661>-.2 G 4.123<696c61626c652e20496e>.25 F 1.623 <7468617420636173652c2074686520534d54502073657276>4.123 F<6572>-.15 E <69737375657320612074656d706f726172792066>132 572.4 Q <61696c75726520616e6420646f6573206e6f742061636365707420656d61696c2e>-.1 E F0 2.5<352e312e342e31382e207472795f746c73>117 596.4 R F1<546865>157 612.6 Q/F2 10/Times-Italic@0 SF<7472795f746c73>3.227 E F1 .727<72756c65 7365742069732063616c6c6564207768656e2073656e646d61696c20636f6e6e65637473 20746f20616e6f74686572204d54>3.227 F 3.226<412e20546865>-.93 F<6172> 3.226 E<67756d656e74>-.18 E 1.21<666f72207468652072756c6573657420697320 746865206e616d65206f66207468652073657276>132 624.6 R<6572>-.15 E 6.21 <2e49>-.55 G 3.71<6674>-6.21 G 1.21 <68652072756c6573657420646f6573207265736f6c76>-3.71 F 3.71<6574>-.15 G 3.71<6f74>-3.71 G 1.21<686520996572726f729a206d61696c6572>-3.71 F<2c>-.4 E .729<73656e646d61696c20646f6573206e6f7420747279205354>132 636.6 R <4152>-.93 E .728<54544c532065>-.6 F -.15<7665>-.25 G 3.228<6e69>.15 G 3.228<6669>-3.228 G 3.228<7469>-3.228 G 3.228<736f>-3.228 G -.25<6666> -3.228 G 3.228<657265642e2054686973>.25 F .728 <69732075736566756c20746f206465616c2077697468205354>3.228 F<4152>-.93 E -.92<542d>-.6 G<544c5320696e7465726f7065726162696c6974792069737375657320 62792073696d706c79206e6f74207573696e672069742e>132 648.6 Q F0 2.5 <352e312e342e31392e20746c735f7372>117 672.6 R<765f666561747572>-.1 E <657320616e6420746c735f636c745f666561747572>-.18 E<6573>-.18 E F1 <546865>157 688.8 Q F2<746c735f636c745f666561747572>2.889 E<6573>-.37 E F1 .389<72756c657365742069732063616c6c6564207269676874206265666f72652073 656e646d61696c2069737375657320746865>2.889 F F2<5354>2.889 E <415254544c53>-.5 E F1<636f6d2d>2.89 E 1.827 <6d616e6420746f20616e6f74686572204d54>132 700.8 R 4.327<4161>-.93 G 1.827<6e6420746865>-4.327 F F2<746c735f7372765f666561747572>4.327 E <6573>-.37 E F1 1.826<72756c657365742069732063616c6c6564207768656e206120 636c69656e742073656e647320746865>4.326 F F2<5354>132 712.8 Q <415254544c53>-.5 E F1 .511<636f6d6d616e6420746f>3.011 F F2 <73656e646d61696c>3.011 E F1 5.511<2e54>C .511<6865206172>-5.511 F .512< 67756d656e747320666f72207468652072756c6573657473206172652074686520686f73 74206e616d6520616e64204950>-.18 F .911<61646472657373206f6620746865206f 74686572207369646520736570617261746564206279>132 724.8 R F0<247c>3.411 E F1 .911<2877686963682069732061206d657461636861726163746572292e>3.411 F <546865>5.91 E 3.41<7973>-.15 G .91<686f756c642072657475726e2061>-3.41 F 0 Cg EP %%Page: 47 43 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3437>195.86 E /F1 10/Times-Roman@0 SF .043<6c697374206f66>132 96 R/F2 10 /Times-Italic@0 SF -.1<6b65>2.543 G<793d76616c7565>-.2 E F1 .043<706169 7273207365706172617465642062792073656d69636f6c6f6e733b20746865206c697374 2063616e20626520656d707479206966206e6f206f7074696f6e732073686f756c642062 65>2.543 F<6170706c69656420746f2074686520636f6e6e656374696f6e2e>132 108 Q -1.27 -.74<41762061>5 H<696c61626c65206b>.74 E -.15<6579>-.1 G 2.5 <7361>.15 G<726520616e6420746865697220616c6c6f>-2.5 E<7765642076>-.25 E <616c756573206172653a>-.25 E<4f7074696f6e73>132 124.2 Q 3.977<4163>146.4 136.2 S 1.477<6f6d6d6120736570617261746564206c697374206f662053534c207265 6c61746564206f7074696f6e732e>-3.977 F<536565>6.476 E F2 <53657276657253534c4f7074696f6e73>3.976 E F1<616e64>3.976 E F2 <436c69656e7453532d>3.976 E<4c4f7074696f6e73>146.4 148.2 Q F1 2.519 <666f722064657461696c732c2061732077656c6c206173>5.019 F F2 <53534c5f7365745f6f7074696f6e73>5.019 E F1 2.519 <28332920616e64206e6f746520746869732077>B 2.52 <61726e696e673a204f7074696f6e73>-.1 F <616c726561647920736574206265666f726520617265206e6f7420636c656172656421> 146.4 160.2 Q<4369706865724c697374>132 176.4 Q .222 <5370656369667920636970686572206c69737420666f72205354>146.4 188.4 R <4152>-.93 E .222<54544c532028646f6573206e6f74206170706c7920746f20544c53 76312e33292c20736565>-.6 F F2<636970686572>2.721 E<73>-.1 E F1 .221 <28312920666f7220706f7373692d>B<626c652076>146.4 200.4 Q 2.5 <616c7565732e2054686973>-.25 F -.15<6f7665>2.5 G <7272696465732074686520676c6f62616c>.15 E F2<4369706865724c697374>2.5 E F1<666f72207468652073657373696f6e2e>2.5 E<4365727446696c65>132 216.6 Q <46696c6520636f6e7461696e696e6720612063657274698c636174652e>146.4 228.6 Q -2.15 -.25<4b652079>132 244.8 T<46696c65>.25 E <46696c6520636f6e7461696e696e672074686520707269>146.4 256.8 Q -.25<7661> -.25 G<7465206b>.25 E .3 -.15<65792066>-.1 H <6f72207468652063657274698c636174652e>.15 E<466c616773>132 273 Q <43757272656e746c7920746865206f6e6c792076>146.4 285 Q <616c6964208d61677320617265>-.25 E F2<52>146.4 297 Q F1 1.828<746f207265 717569726520612043524c20666f72206561636820656e636f756e746572656420636572 74698c6361746520647572696e672076>4.328 F 1.829 <6572698c636174696f6e2028627920646566>-.15 F 1.829<61756c742061>-.1 F <6d697373696e672043524c2069732069676e6f726564292c>146.4 309 Q F2<63> 146.4 321 Q F1<616e64>3.33 E F2<43>3.33 E F1 .829<7768696368206261736963 616c6c7920636c656172732f7365747320746865206f7074696f6e>3.329 F F2 <544c5346>3.329 E<616c6c626163>-.75 E<6b746f436c656172>-.2 E F1 .829 <666f72206a75737420746869732073657373696f6e2c>3.329 F<7265737065637469> 146.4 333 Q -.15<7665>-.25 G<6c79>.15 E<2c>-.65 E F2<64>146.4 345 Q F1 <746f207475726e206f66>2.5 E 2.5<6644>-.25 G .001 <414e45207768696368206973206f62>-2.9 F .001 <76696f75736c79206f6e6c792076>-.15 F .001<616c696420666f72>-.25 F F2 <746c735f636c745f666561747572>2.501 E<6573>-.37 E F1 .001 <616e642072657175697265732044>2.501 F<414e45>-.4 E .705 <746f20626520636f6d70696c656420696e2e>146.4 357 R .704<54686973206d6967 6874206265206e656564656420696e2063617365206f662061206d6973636f6e8c677572 6174696f6e2c20652e672e2c2073706563696679696e67>5.705 F<696e>146.4 369 Q -.25<7661>-.4 G<6c696420544c5341205252732e>.25 E<4578616d706c653a>132 385.2 Q<53746c735f7372765f6665617475726573>172 401.4 Q <52242a20247c2031302e242b>172 413.4 Q <243a206369706865726c6973743d48494748>56.19 E<4e6f7465733a>132 433.8 Q .402<4572726f727320696e2074686573652066656174757265732028652e672e2c2075 6e6b6e6f>157 450 R .402<776e206b>-.25 F -.15<6579>-.1 G 2.902<736f>.15 G 2.902<7269>-2.902 G -1.95 -.4<6e762061>-2.902 H .402<6c69642076>.4 F .402<616c7565732920617265206c6f6767656420616e642074686520637572>-.25 F <2d>-.2 E 2.362 <72656e742073657373696f6e2069732061626f7274656420746f2061>132 462 R -.2 <766f>-.2 G 2.362<6964207573696e67205354>.2 F<4152>-.93 E 2.361 <54544c53207769746820666561747572657320746861742073686f756c64206861>-.6 F 2.661 -.15<76652062>-.2 H<65656e>.15 E<6368616e6765642e>132 474 Q <546865206b>157 490.2 Q -.15<6579>-.1 G 2.5<7361>.15 G <726520636173652d696e73656e73697469>-2.5 E -.15<7665>-.25 G<2e>.15 E <426f7468>157 506.4 Q F2<4365727446>2.5 E<696c65>-.45 E F1<616e64>2.5 E F2 -2.1 -.35<4b652079>2.5 H -.45<4669>.35 G<6c65>.45 E F1<6d757374206265 2073706563698c656420746f6765746865723b2073706563696679696e67206f6e6c7920 6f6e6520697320616e206572726f72>2.5 E<2e>-.55 E F0 2.5 <352e312e342e32302e2061757468696e66>117 530.4 R<6f>-.25 E F1<546865>157 546.6 Q F2<61757468696e666f>4.02 E F1 1.521<72756c657365742069732063616c 6c6564207768656e2073656e646d61696c20747269657320746f2061757468656e746963 61746520746f20616e6f74686572204d54>4.02 F<412e>-.93 E .357<546865206172> 132 558.6 R .357<67756d656e747320666f72207468652072756c6573657420617265 2074686520686f7374206e616d6520616e642049502061646472657373206f6620746865 2073657276>-.18 F .356<657220736570617261746564206279>-.15 F F0<247c> 2.856 E F1 .355<2877686963682069732061206d657461636861726163746572292e> 132 570.6 R .355<49742073686f756c642072657475726e>5.355 F F0<2423>2.855 E F1<666f6c6c6f>2.855 E .355<7765642062792061206c697374206f6620746f6b> -.25 F .356<656e73207468617420617265207573656420666f72>-.1 F .224 <534d54502041>132 582.6 R 2.724<5554482e204966>-.55 F .224 <7468652072657475726e2076>2.724 F .224 <616c756520737461727473207769746820616e>-.25 F .224 <797468696e6720656c73652069742069732073696c656e746c792069676e6f7265642e> -.15 F .224<4561636820746f6b>5.224 F<656e>-.1 E<697320612074616767656420 737472696e67206f662074686520666f726d3a20225444737472696e67222028696e636c 7564696e67207468652071756f746573292c207768657265>132 594.6 Q 38.89<5454> 172 610.8 S<61672077686963682064657363726962657320746865206974656d> -39.69 E 37.78<4444>172 622.8 S <656c696d697465723a20273a272073696d706c65207465>-37.78 E <787420666f6c6c6f>-.15 E<7773>-.25 E <273d2720737472696e672069732062617365363420656e636f646564>217 634.8 Q 19.72<737472696e672056>172 646.8 R<616c7565206f6620746865206974656d> -1.11 E -1.11<5661>132 663 S<6c69642076>1.11 E <616c75657320666f722074686520746167206172653a>-.25 E 0 Cg EP %%Page: 48 44 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d34382053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 37.78<5575>172 96 S <7365722028617574686f72697a6174696f6e29206964>-37.78 E 41.67<4961>172 108 S<757468656e7469636174696f6e206964>-41.67 E 39.44<5070>172 120 S <61737377>-39.44 E<6f7264>-.1 E 38.33<5272>172 132 S<65616c6d>-38.33 E 36.11<4d6c>172 144 S<697374206f66206d656368616e69736d732064656c696d6974 656420627920737061636573>-36.11 E .323<496620746869732072756c6573657420 69732064658c6e65642c20746865206f7074696f6e>132 160.2 R F0 <44656661756c7441>2.823 E<757468496e66>-.5 E<6f>-.25 E F1 .323 <69732069676e6f726564202865>2.823 F -.15<7665>-.25 G 2.824<6e69>.15 G 2.824<6674>-2.824 G .324<68652072756c6573657420646f6573206e6f74>-2.824 F <72657475726e20612060>132 172.2 Q<6075736566756c27>-.74 E 2.5<2772>-.74 G<6573756c74292e>-2.5 E F0 2.5<352e312e342e32312e2071756575656772>117 196.2 R<6f7570>-.18 E F1<546865>157 212.4 Q/F2 10/Times-Italic@0 SF <7175657565>3.919 E<6772>-.4 E<6f7570>-.45 E F1 1.419<72756c657365742069 73207573656420746f206d6170206120726563697069656e74206164647265737320746f 20612071756575652067726f7570206e616d652e>3.919 F .434<54686520696e707574 20666f72207468652072756c657365742069732074686520726563697069656e74206164 64726573732028692e652e2c2074686520616464726573732070617274206f6620746865 207265736f6c76>132 224.4 R .435<656420747269706c6529>-.15 F 1.307 <5468652072756c657365742073686f756c642072657475726e>132 236.4 R F0<2423> 3.807 E F1<666f6c6c6f>3.807 E 1.307 <77656420627920746865206e616d65206f6620612071756575652067726f75702e>-.25 F 1.306<4966207468652072657475726e2076>6.307 F<616c7565>-.25 E 1.24 <737461727473207769746820616e>132 248.4 R 1.241 <797468696e6720656c73652069742069732073696c656e746c792069676e6f7265642e> -.15 F 1.241<536565207468652073656374696f6e2061626f75742060>6.241 F 1.241<6051756575652047726f75707320616e64>-.74 F <5175657565204469726563746f7269657327>132 260.4 Q 2.5<2766>-.74 G <6f72206675727468657220696e666f726d6174696f6e2e>-2.5 E F0 2.5 <352e312e342e32322e206772>117 284.4 R<6565745f7061757365>-.18 E F1 <546865>157 300.6 Q F2<6772>2.793 E<6565745f7061757365>-.37 E F1 .292<72 756c65736574206973207573656420746f20737065636966792074686520616d6f756e74 206f662074696d6520746f207061757365206265666f72652073656e64696e67>2.793 F 1.759<74686520696e697469616c20534d545020323230206772656574696e672e>132 312.6 R 1.759<546865206172>6.759 F 1.76<67756d656e747320666f722074686520 72756c65736574206172652074686520686f7374206e616d6520616e64204950>-.18 F 1.252 <61646472657373206f662074686520636c69656e7420736570617261746564206279> 132 324.6 R F0<247c>3.751 E F1 1.251 <2877686963682069732061206d657461636861726163746572292e>3.751 F 1.251 <496620616e>6.251 F 3.751<7974>-.15 G<726166>-3.751 E 1.251 <8c63206973207265636569>-.25 F -.15<7665>-.25 G<64>.15 E .533<647572696e 6720746861742070617573652c20616e20534d5450203535342072656a656374696f6e20 726573706f6e7365206973206769>132 336.6 R -.15<7665>-.25 G 3.033<6e69>.15 G .534<6e7374656164206f662074686520323230206772656574696e6720616e64> -3.033 F .222<616c6c20534d545020636f6d6d616e6473206172652072656a65637465 6420647572696e67207468617420636f6e6e656374696f6e2e>132 348.6 R .221 <546869732068656c70732070726f746563742073697465732066726f6d206f70656e> 5.221 F .56<70726f7869657320616e6420534d545020736c616d6d6572732e>132 360.6 R .56<5468652072756c657365742073686f756c642072657475726e>5.56 F F0 <2423>3.06 E F1<666f6c6c6f>3.06 E .56 <77656420627920746865206e756d626572206f66206d696c2d>-.25 F .331<6c697365 636f6e6473202874686f7573616e64746873206f662061207365636f6e642920746f2070 617573652e>132 372.6 R .331<4966207468652072657475726e2076>5.331 F .33 <616c756520737461727473207769746820616e>-.25 F .33 <797468696e6720656c7365206f72>-.15 F .021 <6973206e6f742061206e756d626572>132 384.6 R 2.521<2c69>-.4 G 2.521<7469> -2.521 G 2.521<7373>-2.521 G .021<696c656e746c792069676e6f7265642e> -2.521 F .021<4e6f74653a20746869732072756c65736574206973206e6f7420696e> 5.021 F -.2<766f>-.4 G -.1<6b65>.2 G 2.521<6428>.1 G .022 <616e642068656e6365207468652066656174757265>-2.521 F .48 <69732064697361626c656429207768656e20736d7470732028534d5450206f>132 396.6 R -.15<7665>-.15 G 2.98<7253>.15 G .479 <534c2920697320757365642c20692e652e2c20746865>-2.98 F F2<73>2.979 E F1 .479<6d6f64698c65722069732073657420666f7220746865206461656d6f6e>2.979 F <766961>132 408.6 Q F0<4461656d6f6e50>3.368 E<6f72744f7074696f6e73>-.2 E F1 3.368<2c62>C .868<65636175736520696e20746869732063617365207468652053 534c2068616e647368616b>-3.368 F 3.369<6569>-.1 G 3.369<7370>-3.369 G .869<6572666f726d6564206265666f726520746865>-3.369 F <6772656574696e672069732073656e742e>132 420.6 Q F0 2.5 <352e312e352e20495043>102 444.6 R<6d61696c657273>2.5 E F1 1.333<536f6d65 207370656369616c2070726f63657373696e67206f636375727320696620746865207275 6c65736574207a65726f207265736f6c76>142 460.8 R 1.332 <657320746f20616e20495043206d61696c65722028746861742069732c2061>-.15 F 1.178<6d61696c657220746861742068617320995b4950435d9a206c6973746564206173 207468652050>117 472.8 R 1.179<61746820696e20746865>-.15 F F0<4d>3.679 E F1 1.179<636f6e8c6775726174696f6e206c696e652e>3.679 F 1.179 <54686520686f7374206e616d6520706173736564>6.179 F 1.178 <6166746572209924409a20686173204d582065>117 484.8 R 1.178 <7870616e73696f6e20706572666f726d6564206966206e6f742064656c69>-.15 F -.15<7665>-.25 G 1.178<72696e67207669612061206e616d656420736f636b>.15 F 1.178<65743b2074686973206c6f6f6b7320746865>-.1 F<6e616d6520757020696e20 444e5320746f208c6e6420616c7465726e6174652064656c69>117 496.8 Q -.15 <7665>-.25 G<72792073697465732e>.15 E .441 <54686520686f7374206e616d652063616e20616c736f2062652070726f>142 513 R .442<7669646564206173206120646f747465642071756164206f7220616e2049507636 206164647265737320696e2073717561726520627261636b2d>-.15 F <6574733b20666f722065>117 525 Q<78616d706c653a>-.15 E <5b3132382e33322e3134392e37385d>157 541.2 Q<6f72>117 557.4 Q <5b495076363a323030323a633061383a353164323a3a323366345d>157 573.6 Q <54686973206361757365732064697265637420636f6e>117 589.8 Q -.15<7665>-.4 G<7273696f6e206f6620746865206e756d657269632076>.15 E <616c756520746f20616e20495020686f737420616464726573732e>-.25 E .708<5468 6520686f7374206e616d652070617373656420696e20616674657220746865209924409a 206d617920616c736f206265206120636f6c6f6e206f7220636f6d6d6120736570617261 746564206c697374206f66>142 606 R 3.427<686f7374732e2045616368>117 618 R .927<69732073657061726174656c79204d582065>3.427 F .928<7870616e64656420 616e642074686520726573756c74732061726520636f6e636174656e6174656420746f20 6d616b>-.15 F 3.428<6528>-.1 G<657373656e7469616c6c7929>-3.428 E 1.282 <6f6e65206c6f6e67204d58206c6973742e>117 630 R 1.281 <486f73747320736570617261746564206279206120636f6d6d61206861>6.282 F 1.581 -.15<76652074>-.2 H 1.281 <68652073616d65204d5820707265666572656e63652c20616e6420666f722065616368> .15 F 1.136<636f6c6f6e2073657061726174656420686f737420746865204d58207072 65666572656e636520697320696e637265617365642e>117 642 R 1.136 <54686520696e74656e74206865726520697320746f20637265617465209966>6.136 F <616b>-.1 E 1.136<659a204d58>-.1 F<7265636f726473207468617420617265206e 6f74207075626c697368656420696e20444e5320666f7220707269>117 654 Q -.25 <7661>-.25 G<746520696e7465726e616c206e657477>.25 E<6f726b732e>-.1 E<41 732061208c6e616c207370656369616c20636173652c2074686520686f7374206e616d65 2063616e2062652070617373656420696e2061732061207465>142 670.2 Q <787420737472696e6720696e2073717561726520627261636b>-.15 E<6574733a>-.1 E<5b756362>157 686.4 Q -.25<7661>-.15 G<782e6265726b>.25 E<656c65>-.1 E -.65<792e>-.15 G<6564755d>.65 E .313<5468697320666f726d2061>117 702.6 R -.2<766f>-.2 G .313<69647320746865204d58206d617070696e672e>.2 F F0 <4e2e422e3a>5.313 E F2 .312<5468697320697320696e74656e646564206f6e6c7920 666f7220736974756174696f6e732077686572>2.813 F 2.812<6579>-.37 G .312 <6f7520686176652061>-2.812 F .337<6e6574776f726b208c72>117 714.6 R -.15 <6577>-.37 G .337<616c6c206f72206f7468657220686f737420746861742077696c6c 20646f207370656369616c207072>.15 F .337<6f63657373696e6720666f7220616c6c 20796f7572206d61696c2c20736f207468617420796f7572204d58>-.45 F 0 Cg EP %%Page: 49 45 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3439>195.86 E /F1 10/Times-Italic@0 SF -.37<7265>117 96 S<636f72>.37 E 3.959<6470>-.37 G 1.459<6f696e747320746f20612067617465>-3.959 F 1.459<776179206d6163> -.15 F 1.459<68696e653b2074686973206d6163>-.15 F 1.458 <68696e6520636f756c64207468656e20646f20646972>-.15 F 1.458 <6563742064656c697665727920746f206d6163>-.37 F<68696e6573>-.15 E .09 <77697468696e20796f7572206c6f63616c20646f6d61696e2e>117 108 R .09 <557365206f66207468697320666561747572>5.09 F 2.59<6564>-.37 G<6972>-2.59 E .09<6563746c792076696f6c617465732052464320313132332073656374696f6e2035 2e332e353a2069742073686f756c64>-.37 F <6e6f742062652075736564206c696768746c79>117 120 Q<2e>-.55 E F0 2.5 <352e322e2044>87 144 R 2.5<8a44>2.5 G<658c6e65204d616372>-2.5 E<6f>-.18 E/F2 10/Times-Roman@0 SF .881<4d6163726f7320617265206e616d65642077697468 20612073696e676c6520636861726163746572206f72207769746820612077>127 160.2 R .88<6f726420696e207b6272616365737d2e>-.1 F .88<546865206e616d65732060> 5.88 F<607827>-.74 E 3.38<2761>-.74 G<6e64>-3.38 E -.74<6060>102 172.2 S <7b787d27>.74 E 4.349<2764>-.74 G 1.849 <656e6f7465207468652073616d65206d6163726f20666f722065>-4.349 F -.15 <7665>-.25 G 1.849<72792073696e676c65206368617261637465722060>.15 F <607827>-.74 E 4.349<272e2053696e676c65>-.74 F 1.85 <636861726163746572206e616d6573206d6179206265>4.35 F .173<73656c65637465 642066726f6d2074686520656e74697265204153434949207365742c2062>102 184.2 R .173<75742075736572>-.2 F .172<2d64658c6e6564206d6163726f732073686f756c 642062652073656c65637465642066726f6d2074686520736574206f66207570706572> -.2 F .031<63617365206c657474657273206f6e6c79>102 196.2 R 5.031<2e4c> -.65 G -.25<6f77>-5.031 G .031<65722063617365206c65747465727320616e6420 7370656369616c2073796d626f6c7320617265207573656420696e7465726e616c6c79> .25 F 5.032<2e4c>-.65 G .032<6f6e67206e616d6573206265>-5.032 F <67696e6e696e67>-.15 E .327<776974682061206c6f>102 208.2 R .326<77657220 63617365206c6574746572206f7220612070756e6374756174696f6e2063686172616374 65722061726520726573657276>-.25 F .326 <656420666f72207573652062792073656e646d61696c2c20736f2075736572>-.15 F <2d64658c6e6564>-.2 E <6c6f6e67206d6163726f206e616d65732073686f756c64206265>102 220.2 Q <67696e207769746820616e2075707065722063617365206c6574746572>-.15 E<2e> -.55 E <5468652073796e74617820666f72206d6163726f2064658c6e6974696f6e732069733a> 127 236.4 Q F0<44>142 252.6 Q F1 1.666<7876>C<616c>-1.666 E F2 <7768657265>102 268.8 Q F1<78>3.068 E F2 .568<697320746865206e616d65206f 6620746865206d6163726f20287768696368206d617920626520612073696e676c652063 6861726163746572206f7220612077>3.068 F .569 <6f726420696e206272616365732920616e64>-.1 F F1<76616c>3.069 E F2<6973> 3.069 E .479<7468652076>102 280.8 R .479 <616c75652069742073686f756c64206861>-.25 F -.15<7665>-.2 G 5.479<2e54> .15 G .478<686572652073686f756c64206265206e6f20737061636573206769>-5.479 F -.15<7665>-.25 G 2.978<6e74>.15 G .478<68617420646f206e6f742061637475 616c6c792062656c6f6e6720696e20746865206d6163726f>-2.978 F -.25<7661>102 292.8 S<6c75652e>.25 E .494<4d6163726f732061726520696e746572706f6c617465 64207573696e672074686520636f6e737472756374>127 309 R F0<24>2.994 E F1 <78>A F2 2.994<2c77>C<68657265>-2.994 E F1<78>2.994 E F2 .494<6973207468 65206e616d65206f6620746865206d6163726f20746f20626520696e746572>2.994 F <2d>-.2 E 2.933<706f6c617465642e2054686973>102 321 R .433<696e746572706f 6c6174696f6e20697320646f6e65207768656e2074686520636f6e8c6775726174696f6e 208c6c6520697320726561642c2065>2.933 F .432<786365707420696e>-.15 F F0 <4d>2.932 E F2 2.932<6c696e65732e20546865>2.932 F<7370652d>2.932 E <6369616c20636f6e737472756374>102 333 Q F0<2426>2.5 E F1<78>A F2 <63616e206265207573656420696e>2.5 E F0<52>2.5 E F2<6c696e657320746f2067 657420646566657272656420696e746572706f6c6174696f6e2e>2.5 E<436f6e646974 696f6e616c732063616e2062652073706563698c6564207573696e67207468652073796e 7461783a>127 349.2 Q<243f78207465>142 365.4 Q<78743120247c207465>-.15 E <78743220242e>-.15 E 1.561<5468697320696e746572706f6c61746573>102 381.6 R F1<7465>4.061 E<787431>-.2 E F2 1.562<696620746865206d6163726f>4.062 F F0<2478>4.062 E F2 1.562 <69732073657420616e64206e6f6e2d6e756c6c2c20616e64>4.062 F F1<7465>4.062 E<787432>-.2 E F2 4.062<6f74686572776973652e20546865>4.062 F 1.562 <99656c73659a2028>4.062 F F0<247c>A F2<29>A <636c61757365206d6179206265206f6d69747465642e>102 393.6 Q 1.303 <54686520666f6c6c6f>127 409.8 R 1.303<77696e67206d6163726f73206172652064 658c6e656420616e642f6f72207573656420696e7465726e616c6c79206279>-.25 F F1 <73656e646d61696c>3.802 E F2 1.302 <666f7220696e746572706f6c6174696f6e20696e746f>3.802 F<6172>102 423.8 Q <677627>-.18 E 2.792<7366>-.55 G .292 <6f72206d61696c657273206f7220666f72206f7468657220636f6e7465>-2.792 F 2.793<7874732e20546865>-.15 F .293<6f6e6573206d61726b>2.793 F .293<6564 20872061726520696e666f726d6174696f6e2070617373656420696e746f2073656e646d 61696c>-.1 F/F3 7/Times-Roman@0 SF<3136>-4 I F2<2c>4 I .036 <746865206f6e6573206d61726b>102 435.8 R .036<656420882061726520696e666f 726d6174696f6e2070617373656420626f746820696e20616e64206f7574206f66207365 6e646d61696c2c20616e642074686520756e6d61726b>-.1 F .035 <6564206d6163726f7320617265>-.1 F <706173736564206f7574206f662073656e646d61696c2062>102 447.8 Q<7574206172 65206e6f74206f7468657277697365207573656420696e7465726e616c6c79>-.2 E 5 <2e54>-.65 G<68657365206d6163726f73206172653a>-5 E 13.06<246120546865> 102 464 R <6f726967696e6174696f6e206461746520696e205246432038323220666f726d61742e> 2.5 E<546869732069732065>5 E <78747261637465642066726f6d2074686520446174653a206c696e652e>-.15 E 12.5 <246220546865>102 480.2 R <63757272656e74206461746520696e205246432038323220666f726d61742e>2.5 E 13.06<246320546865>102 496.4 R .002<686f7020636f756e742e>2.502 F .002<54 686973206973206120636f756e74206f6620746865206e756d626572206f662052656365 69>5.002 F -.15<7665>-.25 G .003<643a206c696e657320706c7573207468652076> .15 F .003<616c7565206f6620746865>-.25 F F02.503 E F2<636f6d2d> 2.503 E<6d616e64206c696e65208d61672e>127 508.4 Q 12.5<246420546865>102 524.6 R<63757272656e74206461746520696e20554e495820286374696d652920666f72 6d61742e>2.5 E 8.06<24658720284f62736f6c6574653b>102 540.8 R 1.814<7573 6520536d74704772656574696e674d657373616765206f7074696f6e20696e7374656164 2e29>4.314 F 1.814<54686520534d545020656e747279206d6573736167652e>6.814 F 1.814<54686973206973>6.814 F .631 <7072696e746564206f7574207768656e20534d5450207374617274732075702e>127 552.8 R .631<546865208c7273742077>5.631 F .631 <6f7264206d75737420626520746865>-.1 F F0<246a>3.131 E F2 .632 <6d6163726f2061732073706563698c656420627920524643>3.131 F 2.97 <3832312e20446566>127 564.8 R .47<61756c747320746f2099246a2053656e646d61 696c2024762072656164792061742024629a2e>-.1 F .47<436f6d6d6f6e6c79207265 64658c6e656420746f20696e636c7564652074686520636f6e8c67752d>5.47 F <726174696f6e2076>127 576.8 Q<657273696f6e206e756d626572>-.15 E 2.5 <2c65>-.4 G<2e672e2c2099246a2053656e646d61696c2024762f245a20726561647920 61742024629a>-2.5 E 14.17<246620546865>102 593 R<656e>2.5 E -.15<7665> -.4 G<6c6f70652073656e646572202866726f6d2920616464726573732e>.15 E 12.5 <246720546865>102 609.2 R .017 <73656e64657220616464726573732072656c617469>2.517 F .317 -.15<76652074> -.25 H 2.517<6f74>.15 G .017<686520726563697069656e742e>-2.517 F -.15 <466f>5.017 G 2.517<7265>.15 G .018<78616d706c652c206966>-2.667 F F0 <2466>2.518 E F2 .018<69732099666f6f9a2c>2.518 F F0<2467>2.518 E F2 .018 <77696c6c2062652099686f737421666f6f9a2c>2.518 F <99666f6f40686f73742e646f6d61696e9a2c206f72207768617465>127 621.2 Q -.15 <7665>-.25 G 2.5<7269>.15 G 2.5<7361>-2.5 G <7070726f70726961746520666f7220746865207265636569>-2.5 E <76696e67206d61696c6572>-.25 E<2e>-.55 E 12.5<246820546865>102 637.4 R <726563697069656e7420686f73742e>2.5 E<546869732069732073657420696e207275 6c6573657420302066726f6d20746865202440208c656c64206f66206120706172736564 20616464726573732e>5 E 14.72<246920546865>102 653.6 R <71756575652069642c20652e672e2c2099663334344d5878703031383731379a2e>2.5 E .32 LW 76 678.8 72 678.8 DL 80 678.8 76 678.8 DL 84 678.8 80 678.8 DL 88 678.8 84 678.8 DL 92 678.8 88 678.8 DL 96 678.8 92 678.8 DL 100 678.8 96 678.8 DL 104 678.8 100 678.8 DL 108 678.8 104 678.8 DL 112 678.8 108 678.8 DL 116 678.8 112 678.8 DL 120 678.8 116 678.8 DL 124 678.8 120 678.8 DL 128 678.8 124 678.8 DL 132 678.8 128 678.8 DL 136 678.8 132 678.8 DL 140 678.8 136 678.8 DL 144 678.8 140 678.8 DL 148 678.8 144 678.8 DL 152 678.8 148 678.8 DL 156 678.8 152 678.8 DL 160 678.8 156 678.8 DL 164 678.8 160 678.8 DL 168 678.8 164 678.8 DL 172 678.8 168 678.8 DL 176 678.8 172 678.8 DL 180 678.8 176 678.8 DL 184 678.8 180 678.8 DL 188 678.8 184 678.8 DL 192 678.8 188 678.8 DL 196 678.8 192 678.8 DL 200 678.8 196 678.8 DL 204 678.8 200 678.8 DL 208 678.8 204 678.8 DL 212 678.8 208 678.8 DL 216 678.8 212 678.8 DL/F4 5 /Times-Roman@0 SF<3136>93.6 689.2 Q/F5 8/Times-Roman@0 SF <4173206f662076>3.2 I <657273696f6e20382e362c20616c6c206f66207468657365206d6163726f73206861> -.12 E .24 -.12<76652072>-.16 H<6561736f6e61626c6520646566>.12 E 2 <61756c74732e20507265>-.08 F<76696f75732076>-.2 E <657273696f6e73207265717569726564207468617420746865>-.12 E 2<7962>-.12 G 2<6564>-2 G<658c6e65642e>-2 E 0 Cg EP %%Page: 50 46 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d35302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 9.72<246a8820546865>102 96 R<996f66>2.747 E .247 <8c6369616c9a20646f6d61696e206e616d6520666f72207468697320736974652e>-.25 F .247<546869732069732066756c6c79207175616c698c656420696620746865206675 6c6c207175616c698c636174696f6e2063616e206265>5.247 F 3.093 <666f756e642e204974>127 108 R/F2 10/Times-Italic@0 SF<6d757374>3.093 E F1 .594<626520726564658c6e656420746f206265207468652066756c6c79207175616c 698c656420646f6d61696e206e616d6520696620796f75722073797374656d206973206e 6f7420636f6e2d>3.093 F<8c677572656420736f207468617420696e666f726d617469 6f6e2063616e208c6e64206974206175746f6d61746963616c6c79>127 120 Q<2e>-.65 E 12.5<246b20546865>102 136.2 R<55554350206e6f6465206e616d65202866726f6d 2074686520756e616d652073797374656d2063616c6c292e>2.5 E 9.72 <246c8720284f62736f6c6574653b>102 152.4 R 1.282 <75736520556e697846726f6d4c696e65206f7074696f6e20696e73746561642e29> 3.782 F 1.282 <54686520666f726d6174206f662074686520554e49582066726f6d206c696e652e> 6.282 F<556e6c657373>6.281 E 1.409<796f75206861>127 164.4 R 1.709 -.15 <76652063>-.2 H 1.409<68616e6765642074686520554e4958206d61696c626f782066 6f726d61742c20796f752073686f756c64206e6f74206368616e67652074686520646566> .15 F 1.41<61756c742c207768696368206973>-.1 F <9946726f6d2024672024649a2e>127 176.4 Q 9.72<246d20546865>102 192.6 R .719<646f6d61696e2070617274206f6620746865>3.219 F F2 -.1<6765>3.219 G <74686f73746e616d65>.1 E F1 .718<72657475726e2076>3.219 F 3.218 <616c75652e20556e646572>-.25 F .718 <6e6f726d616c2063697263756d7374616e6365732c>3.218 F F0<246a>3.218 E F1 .718<69732065717569>3.218 F<762d>-.25 E<616c656e7420746f>127 204.6 Q F0 <2477>2.5 E<2e246d>-.7 E F1<2e>A 7.5<246e8720546865>102 220.8 R<6e616d65 206f6620746865206461656d6f6e2028666f72206572726f72206d65737361676573292e> 2.5 E<446566>5 E<61756c747320746f20994d41494c45522d44>-.1 E <41454d4f4e9a2e>-.4 E 7.5<246f8720284f62736f6c6574653a>102 237 R .65 <757365204f70657261746f724368617273206f7074696f6e20696e73746561642e29> 3.15 F .651<54686520736574206f6620996f70657261746f72739a20696e2061646472 65737365732e>5.651 F 3.151<416c>5.651 G .651<697374206f66>-3.151 F .582< 636861726163746572732077686963682077696c6c20626520636f6e7369646572656420 746f6b>127 249 R .581 <656e7320616e642077686963682077696c6c20736570617261746520746f6b>-.1 F .581<656e73207768656e20646f696e6720706172732d>-.1 F 3.277<696e672e2046> 127 261 R .777<6f722065>-.15 F .777 <78616d706c652c2069662099409a207765726520696e20746865>-.15 F F0<246f> 3.278 E F1 .778 <6d6163726f2c207468656e2074686520696e70757420996140629a2077>3.278 F .778 <6f756c64206265207363616e6e6564206173>-.1 F .628<746872656520746f6b>127 273 R .628<656e733a2099612c>-.1 F 3.128<9a99>-.7 G<402c>-3.128 E 3.128 <9a61>-.7 G .628<6e64209962>-3.128 F 4.527 -.7<2e9a2044>-.4 H<6566>.7 E .627<61756c747320746f20992e3a405b5d9a2c20776869636820697320746865206d69 6e696d756d20736574206e656365737361727920746f>-.1 F .856<646f205246432038 32322070617273696e673b20612072696368657220736574206f66206f70657261746f72 7320697320992e3a2540212f5b5d9a2c207768696368206164647320737570706f727420 666f722055554350>127 285 R<2c>-1.11 E <74686520252d6861636b2c20616e6420582e343030206164647265737365732e>127 297 Q 12.5<24702053656e646d61696c27>102 313.2 R 2.5<7370>-.55 G <726f636573732069642e>-2.5 E 14.17<24722050726f746f636f6c>102 329.4 R .977<7573656420746f207265636569>3.477 F 1.277 -.15<76652074>-.25 H .976 <6865206d6573736167652e>.15 F .976<5365742066726f6d20746865>5.976 F F0 3.476 E F1 .976 <636f6d6d616e64206c696e65208d6167206f722062792074686520534d5450>3.476 F <73657276>127 341.4 Q<657220636f64652e>-.15 E 13.61 <24732053656e64657227>102 357.6 R 3.946<7368>-.55 G 1.446 <6f7374206e616d652e>-3.946 F 1.447<5365742066726f6d20746865>6.447 F F0 3.947 E F1 1.447<636f6d6d616e64206c696e65208d6167206f722062792074 686520534d54502073657276>3.947 F 1.447<657220636f64652028696e>-.15 F<77 6869636820636173652069742069732073657420746f207468652045484c4f2f48454c4f 20706172616d65746572292e>127 369.6 Q 14.72<24742041>102 385.8 R 1.607<6e 756d6572696320726570726573656e746174696f6e206f66207468652063757272656e74 2074696d6520696e2074686520666f726d617420595959594d4d444448486d6d20283420 6469676974>4.107 F .576<7965617220313930302d393939392c203220646967697420 6d6f6e74682030312d31322c2032206469676974206461792030312d33312c2032206469 67697420686f7572732030302d32332c2032206469676974206d696e75746573>127 397.8 R<30302d3539292e>127 409.8 Q 12.5<247520546865>102 426 R <726563697069656e742075736572>2.5 E<2e>-.55 E 12.5<247620546865>102 442.2 R -.15<7665>2.5 G<7273696f6e206e756d626572206f6620746865>.15 E F2 <73656e646d61696c>2.5 E F1<62696e617279>2.5 E<2e>-.65 E 5.28 <24778820546865>102 458.4 R <686f73746e616d65206f66207468697320736974652e>2.5 E<54686973206973207468 6520726f6f74206e616d65206f66207468697320686f7374202862>5 E <7574207365652062656c6f>-.2 E 2.5<7766>-.25 G<6f72206361>-2.5 E -.15 <7665>-.2 G<617473292e>.15 E 12.5<247820546865>102 474.6 R <66756c6c206e616d65206f66207468652073656e646572>2.5 E<2e>-.55 E 13.06 <247a20546865>102 490.8 R <686f6d65206469726563746f7279206f662074686520726563697069656e742e>2.5 E 12.5<245f20546865>102 507 R -.25<7661>2.5 G <6c6964617465642073656e64657220616464726573732e>.25 E<53656520616c736f>5 E F0<247b636c69656e745f72>2.5 E<65736f6c76>-.18 E<657d>-.1 E F1<2e>A <247b616464725f747970657d>102 523.2 Q .803<5468652074797065206f66207468 6520616464726573732077686963682069732063757272656e746c79206265696e672072 65>127 535.2 R 3.303<7772697474656e2e2054686973>-.25 F .802 <6d6163726f20636f6e7461696e7320757020746f207468726565>3.302 F .392<6368 61726163746572732c20746865208c7273742069732065697468657220606527206f7220 60682720666f7220656e>127 547.2 R -.15<7665>-.4 G .393<6c6f70652f68656164 657220616464726573732c20746865207365636f6e6420697320612073706163652c2061 6e64>.15 F<7468652074686972642069732065697468657220607327206f7220607227 20666f722073656e6465722f726563697069656e7420616464726573732e>127 559.2 Q <247b616c675f626974737d>102 575.4 Q .243<546865206d6178696d756d206b>127 587.4 R -.15<6579>-.1 G .243<6c656e6774682028696e206269747329206f662074 68652073796d6d657472696320656e6372797074696f6e20616c676f726974686d207573 656420666f72206120544c5320636f6e2d>.15 F 2.822 <6e656374696f6e2e2054686973>127 599.4 R .322 <6d6179206265206c657373207468616e20746865206566>2.822 F<6665637469>-.25 E .622 -.15<7665206b>-.25 H -.15<6579>.05 G .322 <6c656e6774682c2077686963682069732073746f72656420696e>.15 F F0 <247b6369706865725f626974737d>2.823 E F1 2.823<2c66>C<6f72>-2.823 E -.74 <6060>127 611.4 S -.15<6578>.74 G<706f727420636f6e74726f6c6c656427>.15 E 2.5<2761>-.74 G<6c676f726974686d732e>-2.5 E <247b617574685f61757468656e7d>102 627.6 Q 1.223<54686520636c69656e7427> 127 639.6 R 3.723<7361>-.55 G 1.223<757468656e7469636174696f6e2063726564 656e7469616c732061732064657465726d696e65642062792061757468656e7469636174 696f6e20286f6e6c792073657420696620737563636573732d>-3.723 F 2.727 <66756c292e20546865>127 651.6 R .227<666f726d617420646570656e6473206f6e 20746865206d656368616e69736d20757365642c206974206d69676874206265206a7573 74206075736572272c206f72206075736572407265616c6d272c206f72>2.727 F <736f6d657468696e672073696d696c61722028534d54502041>127 663.6 Q <555448206f6e6c79292e>-.55 E<247b617574685f617574686f727d>102 679.8 Q 1.302<54686520617574686f72697a6174696f6e206964656e74697479>127 691.8 R 3.802<2c69>-.65 G 1.302<2e652e207468652041>-3.802 F 1.301 <5554483d20706172616d65746572206f6620746865>-.55 F/F3 9/Times-Roman@0 SF 1.301<534d5450204d41494c>3.801 F F1 1.301 <636f6d6d616e64206966207375702d>3.801 F<706c6965642e>127 703.8 Q 0 Cg EP %%Page: 51 47 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3531>195.86 E /F1 10/Times-Roman@0 SF<247b617574685f747970657d>102 96 Q<546865206d6563 68616e69736d207573656420666f7220534d54502061757468656e7469636174696f6e20 286f6e6c7920736574206966207375636365737366756c292e>127 108 Q <247b617574685f7373667d>102 124.2 Q .32<546865206b>127 136.2 R -.15 <6579>-.1 G .321<6c656e6774682028696e206269747329206f66207468652073796d 6d657472696320656e6372797074696f6e20616c676f726974686d207573656420666f72 20746865207365637572697479206c61796572206f662061>.15 F <5341534c206d656368616e69736d2e>127 148.2 Q<247b626f6479747970657d>102 164.4 Q<546865206d65737361676520626f64792074797065202837424954206f722038 4249544d494d45292c2061732064657465726d696e65642066726f6d2074686520656e> 127 176.4 Q -.15<7665>-.4 G<6c6f70652e>.15 E<247b636572745f66707d>102 192.6 Q 2.289<546865208c6e6765727072696e74206f66207468652070726573656e74 65642063657274698c6361746520285354>127 204.6 R<4152>-.93 E 2.288 <54544c53206f6e6c79292e>-.6 F 2.288 <4e6f74653a2074686973206d6163726f206973206f6e6c79>7.288 F .016 <64658c6e656420696620746865206f7074696f6e>127 216.6 R F0 <4365727446696e676572>2.516 E<7072696e74416c676f726974686d>-.1 E F1 .017 <6973207365742c20696e2077686963682063617365207468652073706563698c656420 8c6e6765727072696e74>2.517 F 1.077<616c676f726974686d20697320757365642e> 127 228.6 R 1.077<5468652076>6.077 F 1.077<616c696420616c676f726974686d 7320646570656e64206f6e20746865204f70656e53534c2076>-.25 F 1.077 <657273696f6e2c2062>-.15 F 1.077<757420757375616c6c79206d64352c>-.2 F <736861312c20616e6420736861323536206172652061>127 240.6 Q -.25<7661>-.2 G 2.5<696c61626c652e20536565>.25 F<6f70656e73736c2064677374202d68>167 256.8 Q<666f722061206c6973742e>127 273 Q<247b636572745f6973737565727d> 102 289.2 Q .709<54686520444e202864697374696e67756973686564206e616d6529 206f6620746865204341202863657274698c6361746520617574686f7269747929207468 6174207369676e6564207468652070726573656e74656420636572>127 301.2 R<2d> -.2 E<74698c6361746520287468652063657274206973737565722920285354>127 313.2 Q<4152>-.93 E<54544c53206f6e6c79292e>-.6 E<247b636572745f6d64357d> 102 329.4 Q 2.134<546865204d44352068617368206f66207468652070726573656e74 65642063657274698c6361746520285354>127 341.4 R<4152>-.93 E 2.134 <54544c53206f6e6c79292e>-.6 F 2.134 <4e6f74653a2074686973206d6163726f206973206f6e6c79>7.134 F <64658c6e656420696620746865206f7074696f6e>127 353.4 Q F0 <4365727446696e676572>2.5 E<7072696e74416c676f726974686d>-.1 E F1 <6973206e6f74207365742e>2.5 E<247b636572745f7375626a6563747d>102 369.6 Q <54686520444e206f66207468652070726573656e7465642063657274698c6361746520 2863616c6c6564207468652063657274207375626a6563742920285354>127 381.6 Q <4152>-.93 E<54544c53206f6e6c79292e>-.6 E<247b6369706865727d>102 397.8 Q .228<54686520636970686572207375697465207573656420666f722074686520636f6e 6e656374696f6e2c20652e672e2c204544482d4453532d4445532d434243332d5348412c 204544482d5253412d4445532d>127 409.8 R<4342432d5348412c204445532d434243 2d4d44352c204445532d434243332d53484120285354>127 421.8 Q<4152>-.93 E <54544c53206f6e6c79292e>-.6 E<247b6369706865725f626974737d>102 438 Q .688<546865206566>127 450 R<6665637469>-.25 E .988 -.15<7665206b>-.25 H -.15<6579>.05 G .688<6c656e6774682028696e206269747329206f66207468652073 796d6d657472696320656e6372797074696f6e20616c676f726974686d20757365642066 6f72206120544c5320636f6e2d>.15 F<6e656374696f6e2e>127 462 Q <247b636c69656e745f616464727d>102 478.2 Q 2.302 <5468652049502061646472657373206f662074686520534d545020636c69656e742e> 127 490.2 R 2.302<495076362061646472657373657320617265207461676765642077 6974682022495076363a22206265666f726520746865>7.302 F 2.5 <616464726573732e2044658c6e6564>127 502.2 R <696e2074686520534d54502073657276>2.5 E<6572206f6e6c79>-.15 E<2e>-.65 E <247b636c69656e745f636f6e6e656374696f6e737d>102 518.4 Q<546865206e756d62 6572206f66206f70656e20636f6e6e656374696f6e7320696e2074686520534d54502073 657276>127 530.4 Q <657220666f722074686520636c69656e7420495020616464726573732e>-.15 E <247b636c69656e745f8d6167737d>102 546.6 Q 1.524<546865208d61677320737065 63698c656420627920746865204d6f64698c65723d2070617274206f66>127 558.6 R F0<436c69656e7450>4.024 E<6f72744f7074696f6e73>-.2 E F1 1.524 <7768657265208d6167732061726520736570617261746564>4.024 F 1.132<66726f6d 2065616368206f746865722062792073706163657320616e642075707065722063617365 208d6167732061726520646f75626c65642e>127 570.6 R 1.133 <546861742069732c204d6f64698c65723d68412077696c6c206265>6.133 F <726570726573656e7465642061732022682041412220696e>127 582.6 Q F0 <247b636c69656e745f8d6167737d>2.5 E F1 2.5<2c77>C<6869636820697320726571 756972656420666f722074657374696e6720746865208d61677320696e2072756c657365 74732e>-2.5 E<247b636c69656e745f6e616d657d>102 598.8 Q .241 <54686520686f7374206e616d65206f662074686520534d545020636c69656e742e>127 610.8 R .241<54686973206d61792062652074686520636c69656e7427>5.241 F 2.74 <7362>-.55 G<7261636b>-2.74 E .24 <65746564204950206164647265737320696e2074686520666f726d>-.1 F 3.321 <5b6e>127 622.8 S .821<6e6e2e6e6e6e2e6e6e6e2e6e6e6e205d20666f7220495076 3420616e64205b20495076363a6e6e6e6e3a2e2e2e3a6e6e6e6e205d20666f7220495076 362069662074686520636c69656e7427>-3.321 F 3.322<7349>-.55 G 3.322<5061> -3.322 G .822<646472657373206973>-3.322 F .21<6e6f74207265736f6c76>127 634.8 R .21<61626c652c206f72206966206974206973207265736f6c76>-.25 F .21 <61626c652062>-.25 F .21 <7574207468652049502061646472657373206f6620746865207265736f6c76>-.2 F .21<656420686f73746e616d6520646f65736e27>-.15 F 2.71<746d>-.18 G <61746368>-2.71 E<746865206f726967696e616c20495020616464726573732e>127 646.8 Q<44658c6e656420696e2074686520534d54502073657276>5 E <6572206f6e6c79>-.15 E 5<2e53>-.65 G<656520616c736f>-5 E F0 <247b636c69656e745f72>2.5 E<65736f6c76>-.18 E<657d>-.1 E F1<2e>A <247b636c69656e745f706f72747d>102 663 Q <54686520706f7274206e756d626572206f662074686520534d545020636c69656e742e> 127 675 Q<44658c6e656420696e2074686520534d54502073657276>5 E <6572206f6e6c79>-.15 E<2e>-.65 E<247b636c69656e745f7074727d>102 691.2 Q 3.634<54686520726573756c74206f662074686520505452206c6f6f6b757020666f7220 74686520636c69656e7420495020616464726573732e>127 703.2 R 3.634 <4e6f74653a2074686973206973207468652073616d65206173>8.634 F F0 <247b636c69656e745f6e616d657d>127 715.2 Q F1 <696620616e64206f6e6c79206966>2.5 E F0<247b636c69656e745f72>2.5 E <65736f6c76>-.18 E<657d>-.1 E F1<6973204f4b2e>2.5 E <44658c6e656420696e2074686520534d54502073657276>5 E<6572206f6e6c79>-.15 E<2e>-.65 E 0 Cg EP %%Page: 52 48 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d35322053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<247b636c69656e745f726174657d>102 96 Q .266<5468 65206e756d626572206f6620696e636f6d696e6720636f6e6e656374696f6e7320666f72 2074686520636c69656e742049502061646472657373206f>127 108 R -.15<7665> -.15 G 2.765<7274>.15 G .265<68652074696d6520696e74657276>-2.765 F .265 <616c2073706563698c6564>-.25 F<627920436f6e6e656374696f6e5261746557>127 120 Q<696e646f>-.4 E<7753697a652e>-.25 E<247b636c69656e745f7265736f6c76> 102 136.2 Q<657d>-.15 E <486f6c64732074686520726573756c74206f6620746865207265736f6c76>127 148.2 Q 2.5<6563>-.15 G<616c6c20666f72>-2.5 E F0<247b636c69656e745f6e616d657d> 2.5 E F1 5<2e50>C<6f737369626c652076>-5 E<616c756573206172653a>-.25 E 33.06<4f4b207265736f6c76>167 164.4 R<6564207375636365737366756c6c79>-.15 E -.74<4641>167 176.4 S 26.02<494c207065726d616e656e74>.74 F <6c6f6f6b75702066>2.5 E<61696c757265>-.1 E 7.5<464f5247454420666f7277> 167 188.4 R<617264206c6f6f6b757020646f65736e27>-.1 E 2.5<746d>-.18 G <61746368207265>-2.5 E -.15<7665>-.25 G<727365206c6f6f6b7570>.15 E 20.83 <54454d502074656d706f72617279>167 200.4 R<6c6f6f6b75702066>2.5 E <61696c757265>-.1 E .208<44658c6e656420696e2074686520534d54502073657276> 127 216.6 R .208<6572206f6e6c79>-.15 F<2e>-.65 E/F2 10/Times-Italic@0 SF <73656e646d61696c>5.208 E F1 .208<706572666f726d73206120686f73746e616d65 206c6f6f6b7570206f6e207468652049502061646472657373206f66>2.708 F .562 <74686520636f6e6e656374696e6720636c69656e742e>127 228.6 R<4e65>5.562 E .561<78742074686520495020616464726573736573206f66207468617420686f73746e 616d6520617265206c6f6f6b>-.15 F .561<65642075702e>-.1 F .561 <49662074686520636c69656e74204950>5.561 F .782<6164647265737320646f6573 206e6f742061707065617220696e2074686174206c6973742c207468656e207468652068 6f73746e616d65206973206d6179626520666f72>127 240.6 R 3.282 <6765642e2054686973>-.18 F .782<69732072658d6563746564206173>3.282 F <7468652076>127 252.6 Q<616c756520464f5247454420666f72>-.25 E F0 <247b636c69656e745f72>2.5 E<65736f6c76>-.18 E<657d>-.1 E F1 <616e6420697420616c736f2073686f>2.5 E<777320757020696e>-.25 E F0<245f> 2.5 E F1<61732022286d617920626520666f72>2.5 E<67656429222e>-.18 E <247b636e5f6973737565727d>102 268.8 Q .874<54686520434e2028636f6d6d6f6e 206e616d6529206f66207468652043412074686174207369676e65642074686520707265 73656e7465642063657274698c6361746520285354>127 280.8 R<4152>-.93 E .873 <54544c53206f6e6c79292e>-.6 F .376 <4e6f74653a2069662074686520434e2063616e6e6f742062652065>127 292.8 R .376 <78747261637465642070726f7065726c792069742077696c6c206265207265706c6163 6564206279206f6e65206f6620746865736520737472696e6773206261736564>-.15 F <6f6e2074686520656e636f756e7465726564206572726f723a>127 304.8 Q 8.62 <42616443657274698c63617465436f6e7461696e734e554c20434e>167 321 R <636f6e7461696e732061204e554c20636861726163746572>2.5 E <42616443657274698c6361746554>167 333 Q 28.31<6f6f4c6f6e6720434e>-.8 F <697320746f6f206c6f6e67>2.5 E<42616443657274698c63617465556e6b6e6f>167 345 Q 25.54<776e20434e>-.25 F<636f756c64206e6f742062652065>2.5 E <7874726163746564>-.15 E<496e20746865206c61737420636173652c20736f6d6520 6f746865722028756e73706563698c6329206572726f72206f636375727265642e>127 361.2 Q<247b636e5f7375626a6563747d>102 377.4 Q 1.251<54686520434e202863 6f6d6d6f6e206e616d6529206f66207468652070726573656e7465642063657274698c63 61746520285354>127 389.4 R<4152>-.93 E 1.251<54544c53206f6e6c79292e>-.6 F<536565>6.251 E F0<247b636e5f6973737565727d>3.75 E F1 <666f7220706f737369626c65207265706c6163656d656e74732e>127 401.4 Q <247b637572724865616465727d>102 417.6 Q .163<4865616465722076>127 429.6 R .164<616c75652061732071756f74656420737472696e672028706f737369626c7920 7472756e636174656420746f>-.25 F F0<4d41584e>2.664 E<414d45>-.2 E F1 2.664<292e2054686973>B .164<6d6163726f206973206f6e6c792061>2.664 F -.25 <7661>-.2 G<696c2d>.25 E <61626c6520696e2068656164657220636865636b2072756c65736574732e>127 441.6 Q<247b6461656d6f6e5f616464727d>102 457.8 Q<5468652049502061646472657373 20746865206461656d6f6e206973206c697374656e696e67206f6e20666f7220636f6e6e 656374696f6e732e>127 469.8 Q<247b6461656d6f6e5f66>102 486 Q <616d696c797d>-.1 E .356<546865206e657477>127 498 R .356<6f726b2066>-.1 F .356<616d696c7920696620746865206461656d6f6e20697320616363657074696e67 206e657477>-.1 F .356<6f726b20636f6e6e656374696f6e732e>-.1 F .355 <506f737369626c652076>5.356 F .355<616c75657320696e636c756465>-.25 F<99 696e65749a2c2099696e6574369a2c209969736f9a2c20996e739a2c2099782e32359a> 127 510 Q<247b6461656d6f6e5f8d6167737d>102 526.2 Q .103<546865208d616773 20666f7220746865206461656d6f6e2061732073706563698c656420627920746865204d 6f64698c65723d2070617274206f66>127 538.2 R F0<4461656d6f6e50>2.603 E <6f72744f7074696f6e73>-.2 E F1<77686572656279>2.604 E .548<746865208d61 677320617265207365706172617465642066726f6d2065616368206f7468657220627920 7370616365732c20616e642075707065722063617365208d6167732061726520646f7562 6c65642e>127 550.2 R .548<546861742069732c>5.548 F .37<4d6f64698c65723d 45612077696c6c20626520726570726573656e7465642061732022454520612220696e> 127 562.2 R F0<247b6461656d6f6e5f8d6167737d>2.87 E F1 2.87<2c77>C .37 <6869636820697320726571756972656420666f722074657374696e67>-2.87 F <746865208d61677320696e2072756c65736574732e>127 574.2 Q <247b6461656d6f6e5f696e666f7d>102 590.4 Q 4.764<536f6d6520696e666f726d61 74696f6e2061626f75742061206461656d6f6e2061732061207465>127 602.4 R 4.763 <787420737472696e672e>-.15 F -.15<466f>9.763 G 7.263<7265>.15 G 4.763 <78616d706c652c2099534d54502b71756575652d>-7.413 F <696e674030303a33303a30309a2e>127 614.4 Q<247b6461656d6f6e5f6e616d657d> 102 630.6 Q .734<546865206e616d65206f6620746865206461656d6f6e2066726f6d> 127 642.6 R F0<4461656d6f6e50>3.234 E<6f72744f7074696f6e73>-.2 E F1 .734 <4e616d653d207375626f7074696f6e2e>3.234 F .735 <49662074686973207375626f7074696f6e206973>5.734 F<6e6f74207365742c202244 61656d6f6e23222c207768657265202320697320746865206461656d6f6e206e756d6265 72>127 654.6 Q 2.5<2c69>-.4 G 2.5<7375>-2.5 G<7365642e>-2.5 E <247b6461656d6f6e5f706f72747d>102 670.8 Q 1.459<54686520706f727420746865 206461656d6f6e20697320616363657074696e6720636f6e6e656374696f6e206f6e2e> 127 682.8 R<556e6c657373>6.459 E F0<4461656d6f6e50>3.959 E <6f72744f7074696f6e73>-.2 E F1 1.459<6973207365742c2074686973>3.959 F <77696c6c206d6f7374206c696b>127 694.8 Q<656c79206265209932359a2e>-.1 E <247b64656c69>102 711 Q -.15<7665>-.25 G<72794d6f64657d>.15 E 3.641 <5468652063757272656e742064656c69>127 723 R -.15<7665>-.25 G 3.641 <7279206d6f64652073656e646d61696c206973207573696e672e>.15 F 3.641 <497420697320696e697469616c6c792073657420746f207468652076>8.641 F 3.642 <616c7565206f6620746865>-.25 F 0 Cg EP %%Page: 53 49 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3533>195.86 E <44656c69>127 96 Q -.1<7665>-.1 G<72794d6f6465>.1 E/F1 10/Times-Roman@0 SF<6f7074696f6e2e>2.5 E<247b64736e5f656e>102 112.2 Q<7669647d>-.4 E <54686520656e>127 124.2 Q -.15<7665>-.4 G<6c6f706520696420706172616d6574 65722028454e5649443d292070617373656420746f2073656e646d61696c206173207061 7274206f662074686520656e>.15 E -.15<7665>-.4 G<6c6f70652e>.15 E <247b64736e5f6e6f746966797d>102 140.4 Q -1.11<5661>127 152.4 S <6c7565206f662044534e204e4f>1.11 E <544946593d20706172616d6574657220286e65>-.4 E -.15<7665>-.25 G .8 -.4 <722c2073>.15 H<7563636573732c2066>.4 E<61696c7572652c2064656c6179>-.1 E 2.5<2c6f>-.65 G 2.5<7265>-2.5 G<6d70747920737472696e67292e>-2.5 E <247b64736e5f7265747d>102 168.6 Q -1.11<5661>127 180.6 S<6c7565206f6620 44534e205245543d20706172616d657465722028686472732c2066756c6c2c206f722065 6d70747920737472696e67292e>1.11 E<247b656e>102 196.8 Q<7669647d>-.4 E <54686520656e>127 208.8 Q -.15<7665>-.4 G<6c6f706520696420706172616d6574 65722028454e5649443d292070617373656420746f2073656e646d61696c206173207061 7274206f662074686520656e>.15 E -.15<7665>-.4 G<6c6f70652e>.15 E <247b6864726c656e7d>102 225 Q .34 <546865206c656e677468206f6620746865206865616465722076>127 237 R .339<61 6c75652077686963682069732073746f72656420696e20247b637572724865616465727d 20286265666f726520706f737369626c65207472756e636174696f6e292e>-.25 F <496620746869732076>127 249 Q <616c75652069732067726561746572207468616e206f7220657175616c20746f>-.25 E F0<4d41584e>2.5 E<414d45>-.2 E F1 <7468652068656164657220686173206265656e207472756e63617465642e>2.5 E <247b6864725f6e616d657d>102 265.2 Q .167<546865206e616d65206f6620746865 20686561646572208c656c6420666f72207768696368207468652063757272656e742068 656164657220636865636b2072756c6573657420686173206265656e2063616c6c65642e> 127 277.2 R<54686973>5.167 E .832 <69732075736566756c20666f72206120646566>127 289.2 R .832<61756c74206865 6164657220636865636b2072756c6573657420746f2067657420746865206e616d65206f 6620746865206865616465723b20746865206d6163726f206973206f6e6c79>-.1 F -.2 <6176>127 301.2 S <61696c61626c6520696e2068656164657220636865636b2072756c65736574732e>-.05 E<247b69665f616464727d>102 317.4 Q 1.193 <5468652049502061646472657373206f662074686520696e74657266>127 329.4 R 1.194<616365206f6620616e20696e636f6d696e6720636f6e6e656374696f6e20756e6c 65737320697420697320696e20746865206c6f6f706261636b206e65742e>-.1 F<4950 763620616464726573736573206172652074616767656420776974682022495076363a22 206265666f72652074686520616464726573732e>127 341.4 Q <247b69665f616464725f6f75747d>102 357.6 Q 1.333 <5468652049502061646472657373206f662074686520696e74657266>127 369.6 R 1.332<616365206f6620616e206f7574676f696e6720636f6e6e656374696f6e20756e6c 65737320697420697320696e20746865206c6f6f706261636b206e65742e>-.1 F<4950 763620616464726573736573206172652074616767656420776974682022495076363a22 206265666f72652074686520616464726573732e>127 381.6 Q<247b69665f66>102 397.8 Q<616d696c797d>-.1 E<5468652049502066>127 409.8 Q <616d696c79206f662074686520696e74657266>-.1 E<616365206f6620616e20696e63 6f6d696e6720636f6e6e656374696f6e20756e6c65737320697420697320696e20746865 206c6f6f706261636b206e65742e>-.1 E<247b69665f66>102 426 Q <616d696c795f6f75747d>-.1 E<5468652049502066>127 438 Q <616d696c79206f662074686520696e74657266>-.1 E<616365206f6620616e206f7574 676f696e6720636f6e6e656374696f6e20756e6c65737320697420697320696e20746865 206c6f6f706261636b206e65742e>-.1 E<247b69665f6e616d657d>102 454.2 Q 1.086<54686520686f73746e616d65206173736f63696174656420776974682074686520 696e74657266>127 466.2 R 1.086 <616365206f6620616e20696e636f6d696e6720636f6e6e656374696f6e2e>-.1 F 1.087<54686973206d6163726f2063616e206265>6.086 F<7573656420666f7220536d 74704772656574696e674d65737361676520616e6420485265636569>127 478.2 Q -.15<7665>-.25 G 2.5<6466>.15 G<6f72207669727475616c20686f7374696e672e> -2.5 E -.15<466f>5 G 2.5<7265>.15 G<78616d706c653a>-2.65 E 2.5<4f53>167 494.4 S<6d74704772656574696e674d6573736167653d243f7b69665f6e616d657d247b 69665f6e616d657d247c246a242e204d54>-2.5 E<41>-.93 E <247b69665f6e616d655f6f75747d>102 514.8 Q <546865206e616d65206f662074686520696e74657266>127 526.8 Q <616365206f6620616e206f7574676f696e6720636f6e6e656374696f6e2e>-.1 E <247b6c6f61645f61>102 543 Q<76677d>-.2 E <5468652063757272656e74206c6f61642061>127 555 Q -.15<7665>-.2 G <726167652e>.15 E<247b6d61696c5f616464727d>102 571.2 Q 1.239 <54686520616464726573732070617274206f6620746865207265736f6c76>127 583.2 R 1.239<656420747269706c65206f66207468652061646472657373206769>-.15 F -.15<7665>-.25 G 3.739<6e66>.15 G 1.239<6f7220746865>-3.739 F/F2 9 /Times-Roman@0 SF 1.239<534d5450204d41494c>3.739 F F1<636f6d6d616e642e> 3.739 E<44658c6e656420696e2074686520534d54502073657276>127 595.2 Q <6572206f6e6c79>-.15 E<2e>-.65 E<247b6d61696c5f686f73747d>102 611.4 Q .145<54686520686f73742066726f6d20746865207265736f6c76>127 623.4 R .146 <656420747269706c65206f66207468652061646472657373206769>-.15 F -.15 <7665>-.25 G 2.646<6e66>.15 G .146<6f7220746865>-2.646 F F2 .146 <534d5450204d41494c>2.646 F F1 2.646<636f6d6d616e642e2044658c6e6564> 2.646 F<696e2074686520534d54502073657276>127 635.4 Q<6572206f6e6c79>-.15 E<2e>-.65 E<247b6d61696c5f6d61696c65727d>102 651.6 Q 2.141 <546865206d61696c65722066726f6d20746865207265736f6c76>127 663.6 R 2.141 <656420747269706c65206f66207468652061646472657373206769>-.15 F -.15 <7665>-.25 G 4.64<6e66>.15 G 2.14<6f7220746865>-4.64 F F2 2.14 <534d5450204d41494c>4.64 F F1<636f6d6d616e642e>4.64 E <44658c6e656420696e2074686520534d54502073657276>127 675.6 Q <6572206f6e6c79>-.15 E<2e>-.65 E<247b6d73675f69647d>102 691.8 Q <5468652076>127 703.8 Q <616c7565206f6620746865204d6573736167652d49643a20686561646572>-.25 E<2e> -.55 E 0 Cg EP %%Page: 54 50 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d35342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<247b6d73675f73697a657d>102 96 Q 1.032 <5468652076>127 108 R 1.032 <616c7565206f66207468652053495a453d20706172616d65746572>-.25 F 3.532 <2c69>-.4 G 1.033<2e652e2c20757375616c6c79207468652073697a65206f66207468 65206d6573736167652028696e20616e2045534d5450206469612d>-3.532 F 1.252<6c 6f677565292c206265666f726520746865206d65737361676520686173206265656e2063 6f6c6c65637465642c207468657265616674657220746865206d6573736167652073697a 6520617320636f6d7075746564206279>127 120 R/F2 10/Times-Italic@0 SF <73656e646d61696c>127 132 Q F1 <28616e642063616e206265207573656420696e20636865636b5f636f6d706174292e> 2.5 E<247b6e62616472637074737d>102 148.2 Q<546865206e756d626572206f6620 62616420726563697069656e747320666f7220612073696e676c65206d6573736167652e> 127 160.2 Q<247b6e72637074737d>102 176.4 Q .048 <546865206e756d626572206f662076>127 188.4 R .048<616c696461746564207265 63697069656e747320666f7220612073696e676c65206d6573736167652e>-.25 F .049 <4e6f74653a2073696e636520726563697069656e742076>5.049 F .049 <616c69646174696f6e206861702d>-.25 F .473<70656e73206166746572>127 200.4 R F2 -.15<6368>2.973 G<6563>.15 E<6b5f72>-.2 E<637074>-.37 E F1 .473 <686173206265656e2063616c6c65642c207468652076>2.973 F .473<616c75652069 6e20746869732072756c65736574206973206f6e65206c657373207468616e2077686174 206d69676874206265>-.25 F -.15<6578>127 212.4 S<7065637465642e>.15 E <247b6e74726965737d>102 228.6 Q<546865206e756d626572206f662064656c69>127 240.6 Q -.15<7665>-.25 G<727920617474656d7074732e>.15 E <247b6f704d6f64657d>102 256.8 Q<5468652063757272656e74206f7065726174696f 6e206d6f6465202866726f6d20746865>127 268.8 Q F02.5 E F1 <8d6167292e>2.5 E<247b71756172616e74696e657d>102 285 Q <5468652071756172616e74696e6520726561736f6e20666f722074686520656e>127 297 Q -.15<7665>-.4 G <6c6f70652c2069662069742069732071756172616e74696e65642e>.15 E <247b71756575655f696e74657276>102 313.2 Q<616c7d>-.25 E .361 <5468652071756575652072756e20696e74657276>127 325.2 R .361<616c206769> -.25 F -.15<7665>-.25 G 2.861<6e62>.15 G 2.861<7974>-2.861 G<6865>-2.861 E F02.861 E F1 2.862<8d61672e2046>2.861 F .362<6f722065>-.15 F <78616d706c652c>-.15 E F02.862 E F1 -.1<776f>2.862 G .362 <756c6420736574>.1 F F0<247b71756575655f696e746572>2.862 E<2d>-.37 E -.1 <7661>127 337.2 S<6c7d>.1 E F1<746f209930303a33303a30309a2e>2.5 E <247b726370745f616464727d>102 353.4 Q 1.272 <54686520616464726573732070617274206f6620746865207265736f6c76>127 365.4 R 1.272<656420747269706c65206f66207468652061646472657373206769>-.15 F -.15<7665>-.25 G 3.771<6e66>.15 G 1.271<6f7220746865>-3.771 F/F3 9 /Times-Roman@0 SF 1.271<534d54502052435054>3.771 F F1<636f6d6d616e642e> 3.771 E<44658c6e656420696e2074686520534d54502073657276>127 377.4 Q <6572206f6e6c792061667465722061205243505420636f6d6d616e642e>-.15 E <247b726370745f686f73747d>102 393.6 Q .178 <54686520686f73742066726f6d20746865207265736f6c76>127 405.6 R .178 <656420747269706c65206f66207468652061646472657373206769>-.15 F -.15 <7665>-.25 G 2.678<6e66>.15 G .178<6f7220746865>-2.678 F F3 .179 <534d54502052435054>2.678 F F1 2.679<636f6d6d616e642e2044658c6e6564> 2.679 F<696e2074686520534d54502073657276>127 417.6 Q <6572206f6e6c792061667465722061205243505420636f6d6d616e642e>-.15 E <247b726370745f6d61696c65727d>102 433.8 Q 2.176 <546865206d61696c65722066726f6d20746865207265736f6c76>127 445.8 R 2.175 <656420747269706c65206f66207468652061646472657373206769>-.15 F -.15 <7665>-.25 G 4.675<6e66>.15 G 2.175<6f7220746865>-4.675 F F3 2.175 <534d54502052435054>4.675 F F1<636f6d6d616e642e>4.675 E <44658c6e656420696e2074686520534d54502073657276>127 457.8 Q <6572206f6e6c792061667465722061205243505420636f6d6d616e642e>-.15 E <247b73657276>102 474 Q<65725f616464727d>-.15 E .514 <5468652061646472657373206f66207468652073657276>127 486 R .514<6572206f 66207468652063757272656e74206f7574676f696e6720534d545020636f6e6e65637469 6f6e2e>-.15 F -.15<466f>5.515 G 3.015<724c>.15 G .515<4d54502064656c69> -3.015 F -.15<7665>-.25 G .515<727920746865>.15 F 1.298<6d6163726f206973 2073657420746f20746865206e616d65206f6620746865206d61696c6572>127 498 R 6.298<2e28>-.55 G 1.298<6f6e6c792069662073656e646d61696c20697320636f6d70 696c65642077697468205354>-6.298 F<4152>-.93 E 1.298<54544c53206f72>-.6 F <5341534c2e29>127 510 Q<247b73657276>102 526.2 Q<65725f6e616d657d>-.15 E .943<546865206e616d65206f66207468652073657276>127 538.2 R .943<6572206f 66207468652063757272656e74206f7574676f696e6720534d5450206f72204c4d545020 636f6e6e656374696f6e2e>-.15 F .944<286f6e6c792069662073656e642d>5.944 F <6d61696c20697320636f6d70696c65642077697468205354>127 550.2 Q<4152>-.93 E<54544c53206f72205341534c2e29>-.6 E<247b74696d657d>102 566.4 Q .007 <546865206f7574707574206f6620746865>127 578.4 R F2<74696d65>2.507 E F1 .006<2833292066756e6374696f6e2c20692e652e2c20746865206e756d626572206f66 207365636f6e64732073696e6365203020686f7572732c2030206d696e757465732c2030 207365632d>B<6f6e64732c204a616e7561727920312c20313937302c20436f6f726469 6e6174656420556e69>127 590.4 Q -.15<7665>-.25 G<7273616c2054>.15 E <696d652028555443292e>-.35 E<247b746c735f76>102 606.6 Q<657273696f6e7d> -.15 E .849<54686520544c532f53534c2076>127 618.6 R .849<657273696f6e2075 73656420666f722074686520636f6e6e656374696f6e2c20652e672e2c20544c5376312e 322c20544c5376313b2064658c6e6564206166746572205354>-.15 F<4152>-.93 E -.92<542d>-.6 G<544c5320686173206265656e20757365642e>127 630.6 Q <247b746f74616c5f726174657d>102 646.8 Q 1.374<54686520746f74616c206e756d 626572206f6620696e636f6d696e6720636f6e6e656374696f6e73206f>127 658.8 R -.15<7665>-.15 G 3.873<7274>.15 G 1.373<68652074696d6520696e74657276> -3.873 F 1.373<616c2073706563698c656420627920436f6e6e656374696f6e2d>-.25 F<5261746557>127 670.8 Q<696e646f>-.4 E<7753697a652e>-.25 E<247b76>102 687 Q<65726966797d>-.15 E 1.14<54686520726573756c74206f66207468652076> 127 699 R 1.141<6572698c636174696f6e206f66207468652070726573656e74656420 636572743b206f6e6c792064658c6e6564206166746572205354>-.15 F<4152>-.93 E 1.141<54544c5320686173206265656e>-.6 F <7573656420286f7220617474656d70746564292e>127 711 Q <506f737369626c652076>5 E<616c756573206172653a>-.25 E 0 Cg EP %%Page: 55 51 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3535>195.86 E /F1 10/Times-Roman@0 SF<5452>167 96 Q 17.9<55535445442076>-.4 F <6572698c636174696f6e207669612044>-.15 E<414e45207375636365656465642e> -.4 E -.4<4441>167 108 S<4e455f46>.4 E 8.65<41494c2076>-.74 F <6572698c636174696f6e207669612044>-.15 E<414e452066>-.4 E<61696c65642e> -.1 E -.4<4441>167 120 S 3.46<4e455f54454d502076>.4 F <6572698c636174696f6e207669612044>-.15 E<414e452066>-.4 E <61696c65642074656d706f726172696c79>-.1 E<2e>-.65 E -.4<4441>167 132 S <4e455f4e4f>.4 E -1.69<544c532044>-.4 F<414e452072657175697265642062>-.4 E<7574205354>-.2 E<4152>-.93 E<54544c532077>-.6 E<6173206e6f742061>-.1 E -.25<7661>-.2 G<696c61626c652e>.25 E 48.06<4f4b2076>167 144 R <6572698c636174696f6e207375636365656465642e>-.15 E 48.06<4e4f206e6f>167 156 R<636572742070726573656e7465642e>2.5 E<4e4f>167 168 Q 44.85<546e>-.4 G 2.5<6f63>-44.85 G<657274207265717565737465642e>-2.5 E -.74<4641>167 180 S 41.02<494c2063657274>.74 F<70726573656e7465642062>2.5 E <757420636f756c64206e6f742062652076>-.2 E<6572698c65642c>-.15 E <652e672e2c20746865207369676e696e67204341206973206d697373696e672e>232 192 Q 34.73<4e4f4e45205354>167 204 R<4152>-.93 E <54544c5320686173206e6f74206265656e20706572666f726d65642e>-.6 E 29.72 <434c454152205354>167 216 R<4152>-.93 E <54544c5320686173206265656e2064697361626c656420696e7465726e616c6c79>-.6 E<666f72206120636c656172207465>232 228 Q<78742064656c69>-.15 E -.15 <7665>-.25 G<727920617474656d70742e>.15 E 35.83 <54454d502074656d706f72617279>167 240 R<6572726f72206f636375727265642e> 2.5 E<5052>167 252 Q -1.88 -.4<4f54204f>-.4 H 10.7<434f4c20736f6d65>.4 F <70726f746f636f6c206572726f72206f63637572726564>2.5 E <6174207468652045534d5450206c65>232 264 Q -.15<7665>-.25 G 2.5<6c28>.15 G<6e6f7420544c53292e>-2.5 E 25.28 <434f4e46494720746c735f2a5f6665617475726573>167 276 R -.1<6661>2.5 G <696c65642064756520746f20612073796e746178206572726f72>.1 E<2e>-.55 E <534f465457>167 288 Q 9.81<415245205354>-1.2 F<4152>-.93 E <54544c532068616e647368616b>-.6 E 2.5<6566>-.1 G<61696c65642c>-2.6 E <776869636820697320612066>232 300 Q <6174616c206572726f7220666f7220746869732073657373696f6e2c>-.1 E <74686520652d6d61696c2077696c6c206265207175657565642e>232 312 Q .749<54 6865726520617265207468726565207479706573206f6620646174657320746861742063 616e20626520757365642e>127 332.4 R<546865>5.749 E F0<2461>3.249 E F1 <616e64>3.249 E F0<2462>3.249 E F1 .749 <6d6163726f732061726520696e205246432038323220666f72>3.249 F<2d>-.2 E <6d61743b>102 344.4 Q F0<2461>3.213 E F1 .713 <6973207468652074696d652061732065>3.213 F .714<78747261637465642066726f 6d207468652099446174653a9a206c696e65206f6620746865206d657373616765202869 662074686572652077>-.15 F .714<6173206f6e65292c20616e64>-.1 F F0<2462> 3.214 E F1<6973>3.214 E .057<7468652063757272656e74206461746520616e6420 74696d6520287573656420666f7220706f73746d61726b73292e>102 356.4 R .056<49 66206e6f2099446174653a9a206c696e6520697320666f756e6420696e2074686520696e 636f6d696e67206d6573736167652c>5.057 F F0<2461>102 368.4 Q F1 .304 <69732073657420746f207468652063757272656e742074696d6520616c736f2e>2.804 F<546865>5.304 E F0<2464>2.804 E F1 .305<6d6163726f2069732065717569> 2.804 F -.25<7661>-.25 G .305<6c656e7420746f20746865>.25 F F0<2462>2.805 E F1 .305<6d6163726f20696e20554e495820286374696d652920666f72>2.805 F<2d> -.2 E<6d61742e>102 380.4 Q .239<546865206d6163726f73>127 396.6 R F0 <2477>2.739 E F1<2c>A F0<246a>2.739 E F1 2.739<2c61>C<6e64>-2.739 E F0 <246d>2.739 E F1 .238<6172652073657420746f20746865206964656e74697479206f 66207468697320686f73742e>2.739 F/F2 10/Times-Italic@0 SF <53656e646d61696c>5.238 E F1 .238 <747269657320746f208c6e64207468652066756c6c79>2.738 F .334<7175616c698c 6564206e616d65206f662074686520686f737420696620617420616c6c20706f73736962 6c653b20697420646f657320746869732062792063616c6c696e67>102 408.6 R F2 -.1<6765>2.835 G<74686f73746e616d65>.1 E F1 .335 <28322920746f20676574207468652063757272656e74>B .457 <686f73746e616d6520616e64207468656e2070617373696e67207468617420746f>102 420.6 R F2 -.1<6765>2.957 G<74686f737462796e616d65>.1 E F1 .457<28332920 776869636820697320737570706f73656420746f2072657475726e207468652063616e6f 6e6963616c2076>B<6572>-.15 E<2d>-.2 E .278 <73696f6e206f66207468617420686f7374206e616d652e>102 434.6 R/F3 7 /Times-Roman@0 SF<3137>-4 I F1 .278 <417373756d696e672074686973206973207375636365737366756c2c>2.778 4 N F0 <246a>2.778 E F1 .279<69732073657420746f207468652066756c6c79207175616c69 8c6564206e616d6520616e64>2.778 F F0<246d>2.779 E F1<6973>2.779 E .706<73 657420746f2074686520646f6d61696e2070617274206f6620746865206e616d65202865> 102 446.6 R -.15<7665>-.25 G .706 <72797468696e6720616674657220746865208c72737420646f74292e>.15 F<546865> 5.706 E F0<2477>3.206 E F1 .706 <6d6163726f2069732073657420746f20746865208c727374>3.206 F -.1<776f>102 458.6 S .358<7264202865>.1 F -.15<7665>-.25 G .358<72797468696e67206265 666f726520746865208c72737420646f742920696620796f75206861>.15 F .658 -.15 <76652061206c>-.2 H -2.15 -.25<65762065>.15 H 2.858<6c356f>.25 G 2.858 <7268>-2.858 G .359<696768657220636f6e8c6775726174696f6e208c6c653b206f74 686572776973652c206974>-2.858 F .405 <69732073657420746f207468652073616d652076>102 470.6 R .405 <616c7565206173>-.25 F F0<246a>2.905 E F1 5.405<2e49>C 2.905<6674>-5.405 G .405<68652063616e6f6e698c636174696f6e206973206e6f74207375636365737366 756c2c20697420697320696d706572617469>-2.905 F .704 -.15<76652074>-.25 H .404<6861742074686520636f6e8c67>.15 F<8c6c6520736574>102 484.6 Q F0 <246a>2.5 E F1 <746f207468652066756c6c79207175616c698c656420646f6d61696e206e616d65>2.5 E F3<3138>-4 I F1<2e>4 I<546865>127 500.8 Q F0<2466>2.832 E F1 .333<6d61 63726f20697320746865206964206f66207468652073656e646572206173206f72696769 6e616c6c792064657465726d696e65643b207768656e206d61696c696e6720746f206120 73706563698c6320686f7374>2.833 F<746865>102 512.8 Q F0<2467>3.225 E F1 .725<6d6163726f2069732073657420746f207468652061646472657373206f66207468 652073656e646572>3.225 F F2 -.37<7265>3.224 G .724 <6c617469766520746f207468652072>.37 F<6563697069656e742e>-.37 E F1 -.15 <466f>5.724 G 3.224<7265>.15 G .724 <78616d706c652c20696620492073656e6420746f>-3.374 F <99626f6c6c617264406d6174697373652e43532e4265726b>102 524.8 Q<656c65>-.1 E -.65<792e>-.15 G .424 <4544559a2066726f6d20746865206d616368696e65209976>.65 F <616e676f67682e43532e4265726b>-.25 E<656c65>-.1 E -.65<792e>-.15 G .424 <4544559a20746865>.65 F F0<2466>2.925 E F1<6d6163726f>2.925 E <77696c6c2062652099657269639a20616e6420746865>102 536.8 Q F0<2467>2.5 E F1<6d6163726f2077696c6c2062652099657269634076>2.5 E <616e676f67682e43532e4265726b>-.25 E<656c65>-.1 E -.65<792e>-.15 G <4544552e>.65 E<9a>-.7 E<546865>127 553 Q F0<2478>2.563 E F1 .062<6d6163 726f2069732073657420746f207468652066756c6c206e616d65206f6620746865207365 6e646572>2.563 F 5.062<2e54>-.55 G .062 <6869732063616e2062652064657465726d696e656420696e207365>-5.062 F -.15 <7665>-.25 G .062<72616c2077>.15 F 2.562<6179732e204974>-.1 F .629 <63616e20626520706173736564206173208d616720746f>102 565 R F2 <73656e646d61696c>3.129 E F1 5.629<2e49>C 3.129<7463>-5.629 G .629 <616e2062652064658c6e656420696e20746865>-3.129 F/F4 9/Times-Roman@0 SF -.315<4e41>3.13 G<4d45>.315 E F1<656e>3.13 E .63<7669726f6e6d656e742076> -.4 F 3.13<61726961626c652e20546865>-.25 F<7468697264>3.13 E .949 <63686f696365206973207468652076>102 577 R .949<616c7565206f662074686520 9946756c6c2d4e616d653a9a206c696e6520696e20746865206865616465722069662069 742065>-.25 F .948 <78697374732c20616e642074686520666f757274682063686f69636520697320746865> -.15 F .526 <636f6d6d656e74208c656c64206f662061209946726f6d3a9a206c696e652e>102 589 R .526<496620616c6c206f662074686573652066>5.526 F .526<61696c2c20616e64 20696620746865206d657373616765206973206265696e67206f726967696e6174656420 6c6f63616c6c79>-.1 F<2c>-.65 E <7468652066756c6c206e616d65206973206c6f6f6b>102 601 Q <656420757020696e20746865>-.1 E F2<2f6574632f706173737764>2.5 E F1 <8c6c652e>2.5 E 1.321<5768656e2073656e64696e672c20746865>127 617.2 R F0 <2468>3.821 E F1<2c>A F0<2475>3.821 E F1 3.821<2c61>C<6e64>-3.821 E F0 <247a>3.821 E F1 1.321 <6d6163726f73206765742073657420746f2074686520686f73742c2075736572>3.821 F 3.82<2c61>-.4 G 1.32<6e6420686f6d65206469726563746f727920286966>-3.82 F .516<6c6f63616c29206f662074686520726563697069656e742e>102 629.2 R .516 <546865208c727374207477>5.516 F 3.016<6f61>-.1 G .516 <7265207365742066726f6d20746865>-3.016 F F0<2440>3.016 E F1<616e64>3.016 E F0<243a>3.016 E F1 .517<70617274206f6620746865207265>3.017 F .517 <77726974696e672072756c65732c207265737065632d>-.25 F<7469>102 641.2 Q -.15<7665>-.25 G<6c79>.15 E<2e>-.65 E .32 LW 76 665.2 72 665.2 DL 80 665.2 76 665.2 DL 84 665.2 80 665.2 DL 88 665.2 84 665.2 DL 92 665.2 88 665.2 DL 96 665.2 92 665.2 DL 100 665.2 96 665.2 DL 104 665.2 100 665.2 DL 108 665.2 104 665.2 DL 112 665.2 108 665.2 DL 116 665.2 112 665.2 DL 120 665.2 116 665.2 DL 124 665.2 120 665.2 DL 128 665.2 124 665.2 DL 132 665.2 128 665.2 DL 136 665.2 132 665.2 DL 140 665.2 136 665.2 DL 144 665.2 140 665.2 DL 148 665.2 144 665.2 DL 152 665.2 148 665.2 DL 156 665.2 152 665.2 DL 160 665.2 156 665.2 DL 164 665.2 160 665.2 DL 168 665.2 164 665.2 DL 172 665.2 168 665.2 DL 176 665.2 172 665.2 DL 180 665.2 176 665.2 DL 184 665.2 180 665.2 DL 188 665.2 184 665.2 DL 192 665.2 188 665.2 DL 196 665.2 192 665.2 DL 200 665.2 196 665.2 DL 204 665.2 200 665.2 DL 208 665.2 204 665.2 DL 212 665.2 208 665.2 DL 216 665.2 212 665.2 DL/F5 5/Times-Roman@0 SF<3137>93.6 675.6 Q/F6 8 /Times-Roman@0 SF -.12<466f>3.2 K 2<7265>.12 G <78616d706c652c206f6e20736f6d652073797374656d73>-2.12 E/F7 8 /Times-Italic@0 SF -.08<6765>2 G<74686f73746e616d65>.08 E F6 <6d696768742072657475726e2099666f6f9a2077686963682077>2 E <6f756c64206265206d617070656420746f2099666f6f2e626172>-.08 E <2e636f6d9a206279>-.44 E F7 -.08<6765>2 G<74686f737462796e616d65>.08 E F6<2e>A F5<3138>93.6 689.2 Q F6<4f6c6465722076>3.2 I <657273696f6e73206f662073656e646d61696c206469646e27>-.12 E 2<7470>-.144 G<72652d64658c6e65>-2 E/F8 8/Times-Bold@0 SF<246a>2 E F6 <617420616c6c2c20736f20757020756e74696c20382e362c20636f6e8c67208c6c6573> 2 E F7<616c77617973>2 E F6<68616420746f2064658c6e65>2 E F8<246a>2 E F6 <2e>A 0 Cg EP %%Page: 56 52 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d35362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<546865>127 96 Q F0<2470>3.806 E F1<616e64>3.806 E F0<2474>3.806 E F1 1.306<6d6163726f7320617265207573656420746f20637265 61746520756e6971756520737472696e67732028652e672e2c20666f722074686520994d 6573736167652d49643a9a208c656c64292e>3.806 F<546865>102 108 Q F0<2469> 3.251 E F1 .751<6d6163726f2069732073657420746f20746865207175657565206964 206f6e207468697320686f73743b2069662070757420696e746f207468652074696d6573 74616d70206c696e652069742063616e2062652065>3.251 F<787472656d656c79>-.15 E .165<75736566756c20666f7220747261636b696e67206d657373616765732e>102 120 R<546865>5.165 E F0<2476>2.665 E F1 .164 <6d6163726f2069732073657420746f206265207468652076>2.665 F .164 <657273696f6e206e756d626572206f66>-.15 F/F2 10/Times-Italic@0 SF <73656e646d61696c>2.664 E F1 2.664<3b74>C .164<686973206973206e6f72> -2.664 F<2d>-.2 E<6d616c6c792070757420696e2074696d657374616d707320616e64 20686173206265656e2070726f>102 132 Q -.15<7665>-.15 G 2.5<6e65>.15 G <787472656d656c792075736566756c20666f7220646562>-2.65 E<756767696e672e> -.2 E<546865>127 148.2 Q F0<2463>3.547 E F1 1.048 <8c656c642069732073657420746f207468652099686f7020636f756e742c>3.547 F 3.548<9a69>-.7 G 1.048<2e652e2c20746865206e756d626572206f662074696d6573 2074686973206d65737361676520686173206265656e2070726f2d>-3.548 F 2.857 <6365737365642e2054686973>102 160.2 R .357 <63616e2062652064657465726d696e656420627920746865>2.857 F F02.857 E F1 .356<8d6167206f6e2074686520636f6d6d616e64206c696e65206f722062792063 6f756e74696e67207468652074696d657374616d7073>2.857 F <696e20746865206d6573736167652e>102 172.2 Q<546865>127 188.4 Q F0<2472> 2.832 E F1<616e64>2.833 E F0<2473>2.833 E F1 .333<8c656c6473206172652073 657420746f207468652070726f746f636f6c207573656420746f20636f6d6d756e696361 74652077697468>2.833 F F2<73656e646d61696c>2.833 E F1 .333 <616e64207468652073656e642d>2.833 F .195<696e6720686f73746e616d652e>102 200.4 R<546865>5.195 E 2.694<7963>-.15 G .194 <616e2062652073657420746f676574686572207573696e6720746865>-2.694 F F0 2.694 E F1 .194<636f6d6d616e64206c696e65208d6167206f72207365706172 6174656c79207573696e6720746865>2.694 F F02.694 E F1<6f72>102 212.4 Q F02.5 E F1<8d6167732e>2.5 E<546865>127 228.6 Q F0<245f>2.966 E F1 .466<69732073657420746f20612076>2.966 F .467 <616c6964617465642073656e64657220686f7374206e616d652e>-.25 F .467<496620 7468652073656e6465722069732072756e6e696e6720616e20524643203134313320636f 6d706c692d>5.467 F .385<616e74204944454e542073657276>102 240.6 R .384 <657220616e6420746865207265636569>-.15 F -.15<7665>-.25 G 2.884<7268>.15 G .384<617320746865204944454e542070726f746f636f6c207475726e6564206f6e2c 2069742077696c6c20696e636c756465207468652075736572206e616d65>-2.884 F <6f6e207468617420686f73742e>102 252.6 Q<546865>127 268.8 Q F0 <247b636c69656e745f6e616d657d>5.98 E F1<2c>A F0 <247b636c69656e745f616464727d>5.98 E F1 5.98<2c61>C<6e64>-5.98 E F0 <247b636c69656e745f706f72747d>5.98 E F1 3.48 <6d6163726f73206172652073657420746f20746865206e616d652c>5.98 F .786<6164 64726573732c20616e6420706f7274206e756d626572206f662074686520534d54502063 6c69656e742077686f20697320696e>102 280.8 R -.2<766f>-.4 G<6b696e67>.2 E F2<73656e646d61696c>3.286 E F1 .786<617320612073657276>3.286 F<6572>-.15 E 5.786<2e54>-.55 G .785<686573652063616e206265>-5.786 F <7573656420696e20746865>102 292.8 Q F2 -.15<6368>2.5 G<6563>.15 E <6b5f2a>-.2 E F1<72756c657365747320287573696e6720746865>2.5 E F0<2426> 2.5 E F1<64656665727265642065>2.5 E -.25<7661>-.25 G <6c756174696f6e20666f726d2c206f6620636f7572736521292e>.25 E F0 2.5 <352e332e2043>87 316.8 R<616e642046208a2044658c6e6520436c6173736573>2.5 E F1 .659<436c6173736573206f662070687261736573206d61792062652064658c6e65 6420746f206d61746368206f6e20746865206c6566742068616e642073696465206f6620 7265>127 333 R .66<77726974696e672072756c65732c2077686572652061>-.25 F .465<997068726173659a20697320612073657175656e6365206f662063686172616374 657273207468617420646f6573206e6f7420636f6e7461696e2073706163652063686172 6163746572732e>102 345 R -.15<466f>5.464 G 2.964<7265>.15 G .464 <78616d706c65206120636c617373206f66>-3.114 F .654<616c6c206c6f63616c206e 616d657320666f7220746869732073697465206d69676874206265206372656174656420 736f207468617420617474656d70747320746f2073656e6420746f206f6e6573656c6620 63616e20626520656c696d696e617465642e>102 357 R .041<54686573652063616e20 6569746865722062652064658c6e6564206469726563746c7920696e2074686520636f6e 8c6775726174696f6e208c6c65206f72207265616420696e2066726f6d20616e6f746865 72208c6c652e>102 369 R .04<436c617373657320617265>5.04 F .649 <6e616d656420617320612073696e676c65206c6574746572206f7220612077>102 381 R .649<6f726420696e207b6272616365737d2e>-.1 F .649 <436c617373206e616d6573206265>5.649 F .649 <67696e6e696e672077697468206c6f>-.15 F .649 <7765722063617365206c65747465727320616e64>-.25 F .639 <7370656369616c20636861726163746572732061726520726573657276>102 393 R .639<656420666f722073797374656d207573652e>-.15 F .638<436c61737365732064 658c6e656420696e20636f6e8c67208c6c6573206d6179206265206769>5.639 F -.15 <7665>-.25 G 3.138<6e6e>.15 G<616d6573>-3.138 E 1.05<66726f6d2074686520 736574206f662075707065722063617365206c65747465727320666f722073686f727420 6e616d6573206f72206265>102 405 R 1.05<67696e6e696e67207769746820616e2075 707065722063617365206c657474657220666f72206c6f6e67>-.15 F<6e616d65732e> 102 417 Q<5468652073796e7461782069733a>127 433.2 Q F0<43>142 449.4 Q F2 1.666<6370>C<6872>-1.666 E<6173653120706872>-.15 E<617365322e2e2e>-.15 E F0<46>142 461.4 Q F2 1.666<638c>C<6c65>-1.666 E F0<46>142 473.4 Q F2 1.666<637c>C<7072>-1.666 E -.1<6f67>-.45 G -.15<7261>.1 G<6d>.15 E F0 <46>142 485.4 Q F2 1.666<635b>C<6d61706b>-1.666 E -.3<6579>-.1 G <5d406d6170636c6173733a6d617073706563>.3 E F1 .036 <546865208c72737420666f726d2064658c6e65732074686520636c617373>102 501.6 R F2<63>2.535 E F1 .035<746f206d6174636820616e>2.535 F 2.535<796f>-.15 G 2.535<6674>-2.535 G .035<6865206e616d65642077>-2.535 F 2.535 <6f7264732e204966>-.1 F F2<706872>2.535 E<61736531>-.15 E F1<6f72>2.535 E F2<706872>2.535 E<61736532>-.15 E F1 .035<697320616e6f74686572>2.535 F .746<636c6173732c20652e672e2c>102 513.6 R F2<243d53>3.246 E F1 3.246 <2c74>C .746<686520636f6e74656e7473206f6620636c617373>-3.246 F F2<53> 3.246 E F1 .746<61726520616464656420746f20636c617373>3.246 F F2<63>3.246 E F1 5.746<2e49>C 3.247<7469>-5.746 G 3.247<7370>-3.247 G .747 <65726d69737369626c6520746f2073706c6974207468656d20616d6f6e67>-3.247 F <6d756c7469706c65206c696e65733b20666f722065>102 525.6 Q <78616d706c652c20746865207477>-.15 E 2.5<6f66>-.1 G<6f726d733a>-2.5 E <43486d6f6e6574207563626d6f6e6574>142 541.8 Q<616e64>102 558 Q <43486d6f6e6574>142 574.2 Q<43487563626d6f6e6574>142 586.2 Q 1.016 <6172652065717569>102 602.4 R -.25<7661>-.25 G 3.516<6c656e742e20546865> .25 F -.74<6060>3.516 G<4627>.74 E 3.516<2766>-.74 G 1.016 <6f726d7320726561642074686520656c656d656e7473206f662074686520636c617373> -3.516 F F2<63>3.516 E F1 1.016<66726f6d20746865206e616d6564>3.516 F F2 <8c6c65>3.516 E F1<2c>A F2<7072>3.515 E -.1<6f67>-.45 G -.15<7261>.1 G <6d>.15 E F1 3.515<2c6f>C<72>-3.515 E F2 .161 <6d61702073706563698c636174696f6e>102 614.4 R F1 5.161<2e45>C .161<6163 6820656c656d656e742073686f756c64206265206c6973746564206f6e20612073657061 72617465206c696e652e>-5.161 F 1.761 -.8<546f2073>5.161 H .162 <70656369667920616e206f7074696f6e616c208c6c652c20757365>.8 F -.74<6060> 102 626.4 S.74 E 2.5<2762>-.74 G<65747765656e2074686520636c6173 73206e616d6520616e6420746865208c6c65206e616d652c20652e672e2c>-2.5 E <466320ad6f202f706174682f746f2f8c6c65>142 642.6 Q .397 <496620746865208c6c652063616e27>102 658.8 R 2.896<7462>-.18 G 2.896 <6575>-2.896 G<7365642c>-2.896 E F2<73656e646d61696c>2.896 E F1 .396 <77696c6c206e6f7420636f6d706c61696e2062>2.896 F .396 <75742073696c656e746c792069676e6f72652069742e>-.2 F .396 <546865206d617020666f726d2073686f756c64206265>5.396 F .363 <616e206f7074696f6e616c206d6170206b>102 670.8 R -.15<6579>-.1 G 2.863 <2c61>-.5 G 2.863<6e61>-2.863 G 2.863<7473>-2.863 G .363 <69676e2c20616e642061206d617020636c61737320666f6c6c6f>-2.863 F .364<7765 64206279207468652073706563698c636174696f6e20666f722074686174206d61702e> -.25 F<4578616d2d>5.364 E<706c657320696e636c7564653a>102 682.8 Q<467b56> 142 699 Q<697274486f7374737d406c6461703aad6b202826286f626a656374436c6173 733d76697274486f7374732928686f73743d2a292920ad7620686f7374>-.6 E<467b4d 79436c6173737d666f6f40686173683a2f6574632f6d61696c2f636c6173736573>142 711 Q 0 Cg EP %%Page: 57 53 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3537>195.86 E /F1 10/Times-Roman@0 SF 2.625<77696c6c208c6c6c2074686520636c617373>102 96 R F0<243d7b56>5.125 E<697274486f7374737d>-.37 E F1 2.625 <66726f6d20616e204c44>5.125 F 2.625<4150206d6170206c6f6f6b757020616e64> -.4 F F0<243d7b4d79436c6173737d>5.125 E F1 2.625<66726f6d20612068617368> 5.125 F .771<6461746162617365206d6170206c6f6f6b7570206f6620746865206b> 102 108 R -.15<6579>-.1 G F0 -.25<666f>3.421 G<6f>.25 E F1 5.772<2e54>C .772<6865726520697320616c736f20612062>-5.772 F .772<75696c742d696e207363 68656d6120746861742063616e206265206163636573736564206279206f6e6c79>-.2 F <73706563696679696e673a>102 120 Q<467b>142 136.2 Q/F2 10/Times-Italic@0 SF<436c6173734e616d65>A F1<7d404c44>A<4150>-.4 E<546869732077696c6c2074 656c6c2073656e646d61696c20746f207573652074686520646566>102 152.4 Q <61756c7420736368656d613a>-.1 E 142 168.6 Q -.4<4143>-.93 G<6c61737329>.4 E<2873656e646d61696c4d54>154.5 180.6 Q -.4 <4143>-.93 G<6c6173734e616d653d>.4 E F2<436c6173734e616d65>A F1<29>A <287c2873656e646d61696c4d54>154.5 192.6 Q -.4<4143>-.93 G <6c75737465723d247b73656e646d61696c4d54>.4 E -.4<4143>-.93 G <6c75737465727d29>.4 E<2873656e646d61696c4d54>159.5 204.6 Q <41486f73743d246a292929>-.93 E142 216.6 Q -.4<4143>-.93 G<6c61737356>.4 E<616c7565>-1.11 E<4e6f746520746861742074 6865206c6f6f6b7570206973206f6e6c7920646f6e65207768656e2073656e646d61696c 20697320696e697469616c6c7920737461727465642e>102 232.8 Q 1.339<456c656d 656e7473206f6620636c61737365732063616e20626520616363657373656420696e2072 756c6573207573696e67>127 249 R F0<243d>3.839 E F1<6f72>3.839 E F0<247e> 3.839 E F1 6.339<2e54>C<6865>-6.339 E F0<247e>3.839 E F1 1.338 <286d6174636820656e7472696573206e6f7420696e>3.839 F <636c61737329206f6e6c79206d61746368657320612073696e676c652077>102 261 Q <6f72643b206d756c74692d77>-.1 E<6f726420656e747269657320696e207468652063 6c617373206172652069676e6f72656420696e207468697320636f6e7465>-.1 E <78742e>-.15 E<536f6d6520636c6173736573206861>127 277.2 Q .3 -.15 <76652069>-.2 H<6e7465726e616c206d65616e696e6720746f>.15 E F2 <73656e646d61696c>2.5 E F1<3a>A 18.42<243d6520636f6e7461696e73>102 293.4 R .561<74686520436f6e74656e742d54>3.061 F<72616e73666572>-.35 E .561 <2d456e636f64696e677320746861742063616e2062652038>-.2 F/F3 10/Symbol SF A F1 3.062<3762>C .562<697420656e636f6465642e>-3.062 F .562 <49742069732070726564658c6e656420746f>5.562 F<636f6e7461696e209937626974 9a2c2099386269749a2c20616e64209962696e6172799a2e>138 305.4 Q 17.86 <243d6b20736574>102 321.6 R<746f206265207468652073616d65206173>2.5 E F0 <246b>2.5 E F1 2.5<2c74>C <6861742069732c207468652055554350206e6f6465206e616d652e>-2.5 E 15.08 <243d6d20736574>102 337.8 R<746f2074686520736574206f6620646f6d61696e7320 6279207768696368207468697320686f7374206973206b6e6f>2.5 E <776e2c20696e697469616c6c79206a757374>-.25 E F0<246d>2.5 E F1<2e>A 17.86 <243d6e2063616e>102 354 R .581<62652073657420746f2074686520736574206f66 204d494d4520626f647920747970657320746861742063616e206e65>3.081 F -.15 <7665>-.25 G 3.08<7262>.15 G 3.08<6565>-3.08 G .58<6967687420746f207365> -3.08 F -.15<7665>-.25 G 3.08<6e62>.15 G .58<697420656e636f6465642e> -3.08 F<4974>5.58 E<646566>138 366 Q 1.81 <61756c747320746f20996d756c7469706172742f7369676e65649a2e>-.1 F 1.81<4d 65737361676520747970657320996d6573736167652f2a9a20616e6420996d756c746970 6172742f2a9a20617265206e65>6.81 F -.15<7665>-.25 G<72>.15 E 1.853 <656e636f646564206469726563746c79>138 378 R 6.853<2e4d>-.65 G 1.853 <756c746970617274206d657373616765732061726520616c>-6.853 F -.1<7761>-.1 G 1.853<79732068616e646c65642072656375727369>.1 F -.15<7665>-.25 G<6c79> .15 E 6.853<2e54>-.65 G 1.853<68652068616e646c696e67206f66>-6.853 F<6d65 73736167652f2a206d657373616765732061726520636f6e74726f6c6c65642062792063 6c617373>138 390 Q F0<243d73>2.5 E F1<2e>A 17.86<243d712041>102 406.2 R .711<736574206f6620436f6e74656e742d54>3.211 F .712 <7970657320746861742077696c6c206e65>-.8 F -.15<7665>-.25 G 3.212<7262> .15 G 3.212<6565>-3.212 G .712 <6e636f646564206173206261736536342028696620746865>-3.212 F 3.212<7968> -.15 G -2.25 -.2<61762065>-3.212 H .712<746f20626520656e636f6465642c> 3.412 F<746865>138 418.2 Q 3.358<7977>-.15 G .858<696c6c20626520656e636f 6465642061732071756f7465642d7072696e7461626c65292e>-3.358 F .858 <49742063616e206861>5.858 F 1.158 -.15<76652070>-.2 H .858 <72696d6172792074797065732028652e672e2c20997465>.15 F .857 <78749a29206f722066756c6c>-.15 F<747970657320287375636820617320997465> 138 430.2 Q<78742f706c61696e9a292e>-.15 E 18.97 <243d7320636f6e7461696e73>102 446.4 R .648<74686520736574206f6620737562 7479706573206f66206d65737361676520746861742063616e2062652074726561746564 2072656375727369>3.148 F -.15<7665>-.25 G<6c79>.15 E 5.648<2e42>-.65 G 3.148<7964>-5.648 G<6566>-3.148 E .648<61756c7420697420636f6e2d>-.1 F .97<7461696e73206f6e6c7920997266633832329a2e>138 458.4 R .969 <4f7468657220996d6573736167652f2a9a2074797065732063616e6e6f742062652038> 5.97 F F3A F1 3.469<3762>C .969<697420656e636f6465642e>-3.469 F .969 <49662061206d657373616765>5.969 F 1.045<636f6e7461696e696e67206569676874 2062697420646174612069732073656e7420746f2061207365>138 470.4 R -.15 <7665>-.25 G 3.545<6e62>.15 G 1.045<697420686f73742c20616e64207468617420 6d6573736167652063616e6e6f7420626520656e636f646564>-3.545 F <696e746f207365>138 482.4 Q -.15<7665>-.25 G 2.5<6e62>.15 G <6974732c2069742077696c6c20626520737472697070656420746f203720626974732e> -2.5 E 20.08<243d7420736574>102 498.6 R .372 <746f2074686520736574206f66207472757374656420757365727320627920746865> 2.873 F F0<54>2.872 E F1 .372<636f6e8c6775726174696f6e206c696e652e>2.872 F .372<496620796f752077>5.372 F .372 <616e7420746f20726561642074727573746564207573657273>-.1 F <66726f6d2061208c6c652c20757365>138 510.6 Q F0<4674>2.5 E F2 <2f8c6c652f6e616d65>A F1<2e>A 15.64<243d7720736574>102 526.8 R .513<746f 2062652074686520736574206f6620616c6c206e616d6573207468697320686f73742069 73206b6e6f>3.013 F .513<776e206279>-.25 F 5.513<2e54>-.65 G .513<686973 2063616e206265207573656420746f206d61746368206c6f63616c20686f73742d> -5.513 F<6e616d65732e>138 538.8 Q <243d7b70657273697374656e744d6163726f737d>102 555 Q 1.712 <73657420746f20746865206d6163726f7320746861742073686f756c64206265207361> 138 567 R -.15<7665>-.2 G 4.212<6461>.15 G 1.712 <63726f73732071756575652072756e732e>-4.212 F 1.712 <436172652073686f756c642062652074616b>6.712 F 1.712<656e207768656e>-.1 F <616464696e67206d6163726f206e616d657320746f207468697320636c6173732e>138 579 Q F2<53656e646d61696c>127 595.2 Q F1 .182 <63616e20626520636f6d70696c656420746f20616c6c6f>2.682 F 2.682<7761>-.25 G F2<7363616e66>A F1 .182<28332920737472696e67206f6e20746865>B F0<46> 2.682 E F1 2.683<6c696e652e2054686973>2.683 F .183 <6c65747320796f7520646f2073696d706c6973746963>2.683 F .555 <70617273696e67206f66207465>102 607.2 R .555<7874208c6c65732e>-.15 F -.15<466f>5.555 G 3.055<7265>.15 G .554<78616d706c652c20746f207265616420 616c6c207468652075736572206e616d657320696e20796f75722073797374656d> -3.205 F F2<2f6574632f706173737764>3.054 E F1 .554<8c6c6520696e746f2061> 3.054 F<636c6173732c20757365>102 619.2 Q <464c2f6574632f70617373776420255b5e3a5d>142 635.4 Q <77686963682072656164732065>102 651.6 Q -.15<7665>-.25 G <7279206c696e6520757020746f20746865208c72737420636f6c6f6e2e>.15 E F0 2.5 <352e342e2045>87 675.6 R 2.5<8a53>2.5 G<6574206f72205072>-2.5 E <6f70616761746520456e>-.18 E<766972>-.4 E<6f6e6d656e742056>-.18 E <61726961626c6573>-.92 E<45>127 691.8 Q F1 <636f6e8c6775726174696f6e206c696e657320736574206f722070726f706167>2.5 E <61746520656e>-.05 E<7669726f6e6d656e742076>-.4 E <61726961626c657320696e746f206368696c6472656e2e>-.25 E F0<45>142 708 Q F2<6e616d65>A F1 2.101<77696c6c2070726f706167>102 724.2 R 2.101 <61746520746865206e616d65642076>-.05 F 2.101 <61726961626c652066726f6d2074686520656e>-.25 F 2.102 <7669726f6e6d656e74207768656e>-.4 F F2<73656e646d61696c>4.602 E F1 -.1 <7761>4.602 G 4.602<7369>.1 G -1.9 -.4<6e76206f>-4.602 H -.1<6b65>.4 G 4.602<6469>.1 G 2.102<6e746f20616e>-4.602 F<79>-.15 E 0 Cg EP %%Page: 58 54 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d35382053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<6368696c6472656e2069742063616c6c733b>102 96 Q F0 <45>142 112.2 Q/F2 10/Times-Italic@0 SF<6e616d65>A F1<3d>A F2 <76616c7565>A F1 .166<7365747320746865206e616d65642076>102 128.4 R .166 <61726961626c6520746f2074686520696e646963617465642076>-.25 F 2.666 <616c75652e20416e>-.25 F 2.666<7976>-.15 G .166 <61726961626c6573206e6f742065>-2.916 F .166 <78706c696369746c79206e616d65642077696c6c206e6f7420626520696e20746865> -.15 F<6368696c6420656e>102 140.4 Q<7669726f6e6d656e742e>-.4 E F0 2.5 <352e352e204d>87 164.4 R 2.5<8a44>2.5 G<658c6e65204d61696c6572>-2.5 E F1 <50726f6772616d7320616e6420696e74657266>127 180.6 Q<6163657320746f206d61 696c657273206172652064658c6e656420696e2074686973206c696e652e>-.1 E <54686520666f726d61742069733a>5 E F0<4d>142 196.8 Q F2<6e616d65>A F1 2.5 <2c7b>C F2<8c656c64>-2.5 E F1<3d>A F2<76616c7565>A F1<7d2a>1.666 E <7768657265>102 213 Q F2<6e616d65>4.244 E F1 1.744<697320746865206e616d 65206f6620746865206d61696c657220287573656420696e7465726e616c6c79206f6e6c 792920616e642074686520998c656c643d6e616d659a2070616972732064658c6e65> 4.244 F<617474726962>102 225 Q<75746573206f6620746865206d61696c6572>-.2 E 5<2e46>-.55 G<69656c6473206172653a>-5 E -.15<5061>142 241.2 S 51.87 <746820546865>.15 F<706174686e616d65206f6620746865206d61696c6572>2.5 E 47.83<466c616773205370656369616c>142 253.2 R <8d61677320666f722074686973206d61696c6572>2.5 E 41.73 <53656e646572205265>142 265.2 R <77726974696e672073657428732920666f722073656e64657220616464726573736573> -.25 E 31.17<526563697069656e74205265>142 277.2 R<77726974696e6720736574 28732920666f7220726563697069656e7420616464726573736573>-.25 E 30.62 <726563697069656e7473204d6178696d756d>142 289.2 R <6e756d626572206f6620726563697069656e74732070657220656e>2.5 E -.15<7665> -.4 G<6c6f7065>.15 E<4172>142 301.2 Q 49.13<677620416e>-.18 F<6172>2.5 E <67756d656e742076>-.18 E <6563746f7220746f207061737320746f2074686973206d61696c6572>-.15 E 55.61 <456f6c20546865>142 313.2 R <656e642d6f662d6c696e6520737472696e6720666f722074686973206d61696c6572> 2.5 E 35.62<4d617873697a6520546865>142 325.2 R<6d6178696d756d206d657373 616765206c656e67746820746f2074686973206d61696c6572>2.5 E 14.51 <6d61786d6573736167657320546865>142 337.2 R <6d6178696d756d206d6573736167652064656c69>2.5 E -.15<7665>-.25 G <726965732070657220636f6e6e656374696f6e>.15 E 32.27 <4c696e656c696d697420546865>142 349.2 R<6d6178696d756d206c696e65206c656e 67746820696e20746865206d65737361676520626f6479>2.5 E 31.18 <4469726563746f727920546865>142 361.2 R -.1<776f>2.5 G <726b696e67206469726563746f727920666f7220746865206d61696c6572>.1 E 42.84 <55736572696420546865>142 373.2 R<646566>2.5 E <61756c74207573657220616e642067726f757020696420746f2072756e206173>-.1 E 50.62<4e69636520546865>142 385.2 R <6e69636528322920696e6372656d656e7420666f7220746865206d61696c6572>2.5 E 38.95<4368617273657420546865>142 397.2 R<646566>2.5 E<61756c742063686172 61637465722073657420666f7220382d6269742063686172616374657273>-.1 E -.8 <5479>142 409.2 S 49.75<70652054>.8 F <79706520696e666f726d6174696f6e20666f722044534e20646961676e6f7374696373> -.8 E -.8<5761>142 421.2 S 50.86<697420546865>.8 F <6d6178696d756d2074696d6520746f2077>2.5 E <61697420666f7220746865206d61696c6572>-.1 E<5175657565>142 433.2 Q 20.22 <67726f757020546865>-.15 F<646566>2.5 E <61756c742071756575652067726f757020666f7220746865206d61696c6572>-.1 E 69.22<2f54>142 445.2 S <686520726f6f74206469726563746f727920666f7220746865206d61696c6572>-69.22 E<4f6e6c7920746865208c72737420636861726163746572206f6620746865208c656c64 206e616d6520697320636865636b>102 461.4 Q<65642028697427>-.1 E 2.5<7363> -.55 G<6173652d73656e73697469>-2.5 E -.15<7665>-.25 G<292e>.15 E .397 <54686520666f6c6c6f>127 477.6 R .396<77696e67208d616773206d617920626520 73657420696e20746865206d61696c6572206465736372697074696f6e2e>-.25 F <416e>5.396 E 2.896<796f>-.15 G .396 <74686572208d616773206d6179206265207573656420667265656c79>-2.896 F .075< 746f20636f6e646974696f6e616c6c792061737369676e206865616465727320746f206d 657373616765732064657374696e656420666f7220706172746963756c6172206d61696c 6572732e>102 489.6 R .075<466c616773206d61726b>5.075 F .075 <65642077697468208720617265>-.1 F 1.193 <6e6f7420696e74657270726574656420627920746865>102 501.6 R F2 <73656e646d61696c>3.693 E F1 1.193 <62696e6172793b207468657365206172652074686520636f6e>3.693 F -.15<7665> -.4 G 1.192<6e74696f6e616c6c79207573656420746f20636f7272656c61746520746f 20746865208d616773>.15 F .737<706f7274696f6e206f6620746865>102 513.6 R F0<48>3.237 E F1 3.237<6c696e652e20466c616773>3.237 F<6d61726b>3.237 E .737<656420776974682088206170706c7920746f20746865206d61696c65727320666f 72207468652073656e646572206164647265737320726174686572207468616e>-.1 F <74686520757375616c20726563697069656e74206d61696c6572732e>102 525.6 Q 15.56<6152>102 541.8 S .987<756e20457874656e64656420534d5450202845534d54 50292070726f746f636f6c202864658c6e656420696e205246437320313836392c203136 35322c20616e642031383730292e>-15.56 F .986<54686973208d6167>5.987 F <646566>122 553.8 Q<61756c7473206f6e2069662074686520534d5450206772656574 696e67206d65737361676520696e636c75646573207468652077>-.1 E <6f7264209945534d54509a2e>-.1 E 12.78<414c>102 570 S .852<6f6f6b20757020 7468652075736572202861646472657373292070617274206f6620746865207265736f6c 76>-12.78 F .852<6564206d61696c657220747269706c652c20696e2074686520616c 6961732064617461626173652e>-.15 F<4e6f726d616c6c79>5.852 E <74686973206973206f6e6c792073657420666f72206c6f63616c206d61696c6572732e> 122 582 Q 15<6246>102 598.2 S .456<6f726365206120626c616e6b206c696e6520 6f6e2074686520656e64206f662061206d6573736167652e>-15.15 F .456 <5468697320697320696e74656e64656420746f2077>5.456 F .456 <6f726b2061726f756e6420736f6d65207374757069642076>-.1 F<6572>-.15 E<2d> -.2 E .361<73696f6e73206f66202f62696e2f6d61696c207468617420726571756972 65206120626c616e6b206c696e652c2062>122 610.2 R .362 <757420646f206e6f742070726f>-.2 F .362<76696465206974207468656d73656c76> -.15 F 2.862<65732e204974>-.15 F -.1<776f>2.862 G .362 <756c64206e6f74206e6f72>.1 F<2d>-.2 E <6d616c6c792062652075736564206f6e206e657477>122 622.2 Q <6f726b206d61696c2e>-.1 E 13.33<4253>102 638.4 S .143 <74726970206c656164696e67206261636b736c617368657320285c29206f66>-13.33 F 2.643<666f>-.25 G 2.643<6674>-2.643 G .143<686520616464726573733b207468 6973206973206120737562736574206f66207468652066756e6374696f6e616c69747920 6f6620746865>-2.643 F F0<73>2.642 E F1<8d61672e>2.642 E 15.56<6344>102 654.6 S 2.662<6f6e>-15.56 G .163 <6f7420696e636c75646520636f6d6d656e747320696e206164647265737365732e> -2.662 F .163 <546869732073686f756c64206f6e6c79206265207573656420696620796f75206861> 5.163 F .463 -.15<76652074>-.2 H 2.663<6f77>.15 G .163 <6f726b2061726f756e642061>-2.763 F 1.846<72656d6f7465206d61696c65722074 686174206765747320636f6e667573656420627920636f6d6d656e74732e>122 666.6 R 1.846<546869732073747269707320616464726573736573206f662074686520666f726d 2099506872617365>6.846 F<3c616464726573733e9a206f7220996164647265737320 28436f6d6d656e74299a20646f>122 678.6 Q <776e20746f206a7573742099616464726573739a2e>-.25 E 5.83<4388204966>102 694.8 R .213<6d61696c206973>2.713 F F2 -.37<7265>2.713 G<636569766564> .37 E F1 .213 <66726f6d2061206d61696c657220776974682074686973208d6167207365742c20616e> 2.713 F 2.713<7961>-.15 G .213<646472657373657320696e207468652068656164 6572207468617420646f206e6f74206861>-2.713 F -.15<7665>-.2 G .97 <616e206174207369676e202899409a29206166746572206265696e67207265>122 706.8 R .97 <7772697474656e2062792072756c657365742074687265652077696c6c206861>-.25 F 1.27 -.15<76652074>-.2 H .97 <6865209940646f6d61696e9a20636c617573652066726f6d>.15 F <7468652073656e64657220656e>122 718.8 Q -.15<7665>-.4 G <6c6f70652061646472657373207461636b>.15 E<6564206f6e2e>-.1 E <5468697320616c6c6f>5 E <7773206d61696c20776974682068656164657273206f662074686520666f726d3a>-.25 E 0 Cg EP %%Page: 59 55 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3539>195.86 E /F1 10/Times-Roman@0 SF<46726f6d3a20757365726140686f737461>162 96 Q -.8 <546f>162 108 S 2.5<3a75>.8 G<7365726240686f7374622c207573657263>-2.5 E <746f206265207265>122 124.2 Q<7772697474656e2061733a>-.25 E <46726f6d3a20757365726140686f737461>162 140.4 Q -.8<546f>162 152.4 S 2.5 <3a75>.8 G<7365726240686f7374622c20757365726340686f737461>-2.5 E <6175746f6d61746963616c6c79>122 168.6 Q 5<2e48>-.65 G -.25<6f77>-5 G -2.15 -.25<65762065>.25 H .8 -.4<722c2069>.25 H 2.5<7464>.4 G <6f65736e27>-2.5 E 2.5<7472>-.18 G<65616c6c792077>-2.5 E <6f726b2072656c6961626c79>-.1 E<2e>-.65 E 15<6444>102 184.8 S 2.56<6f6e> -15 G .06<6f7420696e636c75646520616e676c6520627261636b>-2.56 F .06<6574 732061726f756e6420726f7574652d616464726573732073796e74617820616464726573 7365732e>-.1 F .06<546869732069732075736566756c206f6e206d61696c657273> 5.06 F .188<746861742061726520676f696e6720746f20706173732061646472657373 657320746f2061207368656c6c2074686174206d6967687420696e746572707265742061 6e676c6520627261636b>122 196.8 R .187 <65747320617320492f4f207265646972656374696f6e2e>-.1 F<486f>122 208.8 Q <7765>-.25 E -.15<7665>-.25 G 1.62 -.4<722c2069>.15 H 3.321<7464>.4 G .821<6f6573206e6f742070726f74656374206167>-3.321 F .821 <61696e7374206f74686572207368656c6c206d657461636861726163746572732e>-.05 F .821<5468657265666f72652c2070617373696e6720616464726573736573>5.821 F< 746f2061207368656c6c2073686f756c64206e6f7420626520636f6e7369646572656420 7365637572652e>122 220.8 Q 5.28<44872054686973>102 237 R <6d61696c65722077>2.5 E <616e747320612099446174653a9a20686561646572206c696e652e>-.1 E 15.56 <6554>102 253.2 S .174<686973206d61696c65722069732065>-15.56 F <7870656e7369>-.15 E .474 -.15<76652074>-.25 H 2.674<6f63>.15 G .173 <6f6e6e65637420746f2c20736f2074727920746f2061>-2.674 F -.2<766f>-.2 G .173<696420636f6e6e656374696e67206e6f726d616c6c793b20616e>.2 F 2.673 <796e>-.15 G .173<656365737361727920636f6e2d>-2.673 F<6e656374696f6e2077 696c6c206f6363757220647572696e6720612071756575652072756e2e>122 265.2 Q <53656520616c736f206f7074696f6e>5 E F0<486f6c64457870656e7369>2.5 E -.1 <7665>-.1 G F1<2e>.1 E 13.89<4545>102 281.4 S <7363617065206c696e6573206265>-13.89 E <67696e6e696e672077697468209946726f6d>-.15 E 2.5<9a69>5 G 2.5<6e74>-2.5 G<6865206d6573736167652077697468206120603e27207369676e2e>-2.5 E 16.67 <6654>102 297.6 S .19<6865206d61696c65722077>-16.67 F .19<616e74732061> -.1 F F02.69 E/F2 10/Times-Italic@0 SF<6672>2.69 E<6f6d>-.45 E F1 .19<8d61672c2062>2.69 F .19 <7574206f6e6c7920696620746869732069732061206e657477>-.2 F .19 <6f726b20666f7277>-.1 F .19 <617264206f7065726174696f6e2028692e652e2c20746865206d61696c6572>-.1 F <77696c6c206769>122 309.6 Q .3 -.15<76652061>-.25 H 2.5<6e65>.15 G <72726f72206966207468652065>-2.5 E -.15<7865>-.15 G <637574696e67207573657220646f6573206e6f74206861>.15 E .3 -.15<76652073> -.2 H<70656369616c207065726d697373696f6e73292e>.15 E 6.94 <46872054686973>102 325.8 R<6d61696c65722077>2.5 E <616e74732061209946726f6d3a9a20686561646572206c696e652e>-.1 E 15<674e> 102 342 S<6f726d616c6c79>-15 E<2c>-.65 E F2<73656e646d61696c>4.893 E F1 2.393<73656e647320696e7465726e616c6c792067656e65726174656420656d61696c20 28652e672e2c206572726f72206d6573736167657329207573696e6720746865206e756c 6c>4.893 F 1.327<72657475726e206164647265737320617320726571756972656420 62792052464320313132332e>122 354 R<486f>6.327 E<7765>-.25 E -.15<7665> -.25 G 2.127 -.4<722c2073>.15 H 1.327<6f6d65206d61696c65727320646f6e27> .4 F 3.827<7461>-.18 G 1.328<63636570742061206e756c6c2072657475726e> -3.827 F 3.311<616464726573732e204966>122 366 R<6e6563657373617279>3.311 E 3.311<2c79>-.65 G .811<6f752063616e2073657420746865>-3.311 F F0<67> 3.311 E F1 .811<8d616720746f20707265>3.311 F -.15<7665>-.25 G<6e74>.15 E F2<73656e646d61696c>3.31 E F1 .81<66726f6d206f6265>3.31 F .81 <79696e6720746865207374616e64617264733b>-.15 F 1.57<6572726f72206d657373 616765732077696c6c2062652073656e742061732066726f6d20746865204d41494c4552 2d44>122 378 R 1.57<41454d4f4e202861637475616c6c79>-.4 F 4.07<2c74>-.65 G 1.57<68652076>-4.07 F 1.57<616c7565206f6620746865>-.25 F F0<246e>4.07 E F1<6d6163726f292e>122 390 Q 15<6855>102 406.2 S 1.007 <7070657220636173652073686f756c642062652070726573657276>-15 F 1.007<6564 20696e20686f7374206e616d6573202874686520244020706f7274696f6e206f66207468 65206d61696c657220747269706c6574207265736f6c76>-.15 F<6564>-.15 E <66726f6d2072756c6573657420302920666f722074686973206d61696c6572>122 418.2 Q<2e>-.55 E 17.22<6944>102 434.4 S 2.5<6f55>-17.22 G <736572204461746162617365207265>-2.5 E<77726974696e67206f6e20656e>-.25 E -.15<7665>-.4 G<6c6f70652073656e64657220616464726573732e>.15 E 16.67 <4954>102 450.6 S .539<686973208d6167206973206465707265636174656420616e 642077696c6c2062652072656d6f>-16.67 F -.15<7665>-.15 G 3.039<6466>.15 G .539<726f6d2061206675747572652076>-3.039 F 3.04 <657273696f6e2e2054686973>-.15 F .54 <6d61696c65722077696c6c20626520737065616b2d>3.04 F .162 <696e6720534d545020746f20616e6f74686572>122 462.6 R F2<73656e646d61696c> 2.662 E F1 2.662<8a61>2.662 G 2.662<7373>-2.662 G .162<7563682069742063 616e20757365207370656369616c2070726f746f636f6c2066656174757265732e> -2.662 F .161<54686973208d61672073686f756c64>5.162 F <6e6f7420626520757365642065>122 474.6 Q<786365707420666f7220646562>-.15 E<756767696e6720707572706f73657320626563617573652069742075736573>-.2 E F0<56455242>2.5 E F1<617320534d545020636f6d6d616e642e>2.5 E 17.22<6a44> 102 490.8 S 2.5<6f55>-17.22 G<736572204461746162617365207265>-2.5 E<7772 6974696e67206f6e20726563697069656e74732061732077656c6c2061732073656e6465 72732e>-.25 E 15<6b4e>102 507 S 1.029<6f726d616c6c79207768656e>-15 F F2 <73656e646d61696c>3.529 E F1 1.029 <636f6e6e6563747320746f206120686f73742076696120534d5450>3.529 F 3.529 <2c69>-1.11 G 3.529<7463>-3.529 G 1.03<6865636b7320746f206d616b>-3.529 F 3.53<6573>-.1 G 1.03<757265207468617420746869732069736e27>-3.53 F<74> -.18 E .081<6163636964656e74616c6c79207468652073616d6520686f7374206e616d 65206173206d696768742068617070656e206966>122 519 R F2<73656e646d61696c> 2.581 E F1 .08 <6973206d6973636f6e8c6775726564206f722069662061206c6f6e672d6861756c> 2.581 F<6e657477>122 531 Q 1.073<6f726b20696e74657266>-.1 F 1.073 <6163652069732073657420696e206c6f6f706261636b206d6f64652e>-.1 F 1.074<54 686973208d61672064697361626c657320746865206c6f6f706261636b20636865636b2e> 6.074 F 1.074<49742073686f756c64>6.074 F <6f6e6c79206265207573656420756e6465722076>122 543 Q <65727920756e757375616c2063697263756d7374616e6365732e>-.15 E 12.78<4b43> 102 559.2 S<757272656e746c7920756e696d706c656d656e7465642e>-12.78 E <526573657276>5 E<656420666f72206368756e6b696e672e>-.15 E 17.22<6c54>102 575.4 S<686973206d61696c6572206973206c6f63616c2028692e652e2c208c6e616c20 64656c69>-17.22 E -.15<7665>-.25 G <72792077696c6c20626520706572666f726d6564292e>.15 E 13.89<4c4c>102 591.6 S .598<696d697420746865206c696e65206c656e677468732061732073706563698c65 6420696e20524643203832312e>-13.89 F .598<546869732064657072656361746564 206f7074696f6e2073686f756c64206265207265706c61636564206279>5.598 F <746865>122 603.6 Q F0<4c3d>2.5 E F1<6d61696c206465636c61726174696f6e2e> 2.5 E -.15<466f>5 G 2.5<7268>.15 G <6973746f72696320726561736f6e732c20746865>-2.5 E F0<4c>2.5 E F1 <8d616720616c736f207365747320746865>2.5 E F0<37>2.5 E F1<8d61672e>2.5 E 12.22<6d54>102 619.8 S .463<686973206d61696c65722063616e2073656e6420746f 206d756c7469706c65207573657273206f6e207468652073616d6520686f737420696e20 6f6e65207472616e73616374696f6e2e>-12.22 F .464<5768656e2061>5.464 F F0 <2475>2.964 E F1<6d6163726f>2.964 E .732<6f636375727320696e20746865>122 631.8 R F2<6172>3.232 E<6776>-.37 E F1 .732<70617274206f6620746865206d61 696c65722064658c6e6974696f6e2c2074686174208c656c642077696c6c206265207265 706561746564206173206e656365737361727920666f7220616c6c>3.232 F .316 <7175616c696679696e672075736572732e>122 643.8 R<52656d6f>5.316 E .316<76 696e672074686973208d61672063616e20646566656174206475706c6963617465207375 707072657373696f6e206f6e20612072656d6f746520736974652061732065616368> -.15 F<726563697069656e742069732073656e7420696e206120736570617261746520 7472616e73616374696f6e2e>122 655.8 Q 3.61<4d872054686973>102 672 R <6d61696c65722077>2.5 E <616e7473206120994d6573736167652d49643a9a20686561646572206c696e652e>-.1 E 15<6e44>102 688.2 S 2.5<6f6e>-15 G<6f7420696e73657274206120554e49582d 7374796c65209946726f6d9a206c696e65206f6e207468652066726f6e74206f66207468 65206d6573736167652e>-2.5 E 15<6f41>102 704.4 S -.1<6c7761>-15 G .816 <79732072756e20617320746865206f>.1 F .816 <776e6572206f662074686520726563697069656e74206d61696c626f782e>-.25 F <4e6f726d616c6c79>5.816 E F2<73656e646d61696c>3.316 E F1 .816 <72756e73206173207468652073656e64657220666f72>3.316 F 2.039<6c6f63616c6c 792067656e657261746564206d61696c206f7220617320996461656d6f6e9a2028616374 75616c6c79>122 716.4 R 4.539<2c74>-.65 G 2.039 <686520757365722073706563698c656420696e20746865>-4.539 F F0<75>4.54 E F1 2.04<6f7074696f6e29207768656e>4.54 F 0 Cg EP %%Page: 60 56 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d36302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<64656c69>122 96 Q -.15<7665>-.25 G 1.109 <72696e67206e657477>.15 F 1.109<6f726b206d61696c2e>-.1 F 1.109 <546865206e6f726d616c2062656861>6.109 F 1.108<76696f72206973207265717569 726564206279206d6f7374206c6f63616c206d61696c6572732c2077686963682077696c 6c>-.2 F .733<6e6f7420616c6c6f>122 108 R 3.233<7774>-.25 G .733 <686520656e>-3.233 F -.15<7665>-.4 G .734<6c6f70652073656e64657220616464 7265737320746f2062652073657420756e6c65737320746865206d61696c657220697320 72756e6e696e67206173206461656d6f6e2e>.15 F<54686973>5.734 E <8d61672069732069676e6f72656420696620746865>122 120 Q F0<53>2.5 E F1 <8d6167206973207365742e>2.5 E 15<7055>102 136.2 S .761 <73652074686520726f7574652d61646472207374796c65207265>-15 F -.15<7665> -.25 G .761<7273652d7061746820696e2074686520534d5450>.15 F/F2 9 /Times-Roman@0 SF .76<534d5450204d41494c>3.26 F F1 .76 <636f6d6d616e6420726174686572207468616e206a75737420746865>3.26 F 1.2<72 657475726e20616464726573733b20616c74686f75676820746869732069732072657175 6972656420696e20524643203832312073656374696f6e20332e312c206d616e>122 148.2 R 3.7<7968>-.15 G 1.2<6f73747320646f206e6f742070726f63657373>-3.7 F<7265>122 160.2 Q -.15<7665>-.25 G <7273652d70617468732070726f7065726c79>.15 E 5<2e52>-.65 G -2.15 -.25 <65762065>-5 H<7273652d706174687320617265206f66>.25 E <8c6369616c6c7920646973636f7572616765642062792052464320313132332e>-.25 E 6.94<50872054686973>102 176.4 R<6d61696c65722077>2.5 E <616e74732061209952657475726e2d50>-.1 E<6174683a9a206c696e652e>-.15 E 15 <7157>102 192.6 S .069 <68656e20616e20616464726573732074686174207265736f6c76>-15 F .069 <657320746f2074686973206d61696c65722069732076>-.15 F .068<6572698c656420 28534d5450205652465920636f6d6d616e64292c2067656e657261746520323530>-.15 F <726573706f6e73657320696e7374656164206f662032353220726573706f6e7365732e> 122 204.6 Q<546869732077696c6c20696d706c79207468617420746865206164647265 7373206973206c6f63616c2e>5 E 16.67<7253>102 220.8 S<616d65206173>-16.67 E F0<66>2.5 E F1 2.5<2c62>C<75742073656e64732061>-2.7 E F02.5 E F1 <8d61672e>2.5 E 13.33<524f>102 237 S .669<70656e20534d545020636f6e6e6563 74696f6e732066726f6d206120997365637572659a20706f72742e>-13.33 F .669 <53656375726520706f727473206172656e27>5.669 F 3.169<7428>-.18 G .67 <7365637572652c2074686174206973292065>-3.169 F .67<7863657074206f6e>-.15 F .64<554e4958206d616368696e65732c20736f20697420697320756e636c6561722074 6861742074686973206164647320616e>122 249 R<797468696e672e>-.15 E/F3 10 /Times-Italic@0 SF<73656e646d61696c>5.639 E F1 .639 <6d7573742062652072756e6e696e6720617320726f6f7420746f>3.139 F <62652061626c6520746f207573652074686973208d61672e>122 261 Q 16.11<7353> 102 277.2 S <747269702071756f7465206368617261637465727320282220616e64205c29206f66> -16.11 E 2.5<666f>-.25 G 2.5<6674>-2.5 G<68652061646472657373206265666f 72652063616c6c696e6720746865206d61696c6572>-2.5 E<2e>-.55 E 14.44<5344> 102 293.4 S<6f6e27>-14.44 E 3.331<7472>-.18 G .831<65736574207468652075 7365726964206265666f72652063616c6c696e6720746865206d61696c6572>-3.331 F 5.831<2e54>-.55 G .831<6869732077>-5.831 F .832 <6f756c64206265207573656420696e20612073656375726520656e>-.1 F <7669726f6e6d656e74>-.4 E<7768657265>122 305.4 Q F3<73656e646d61696c> 3.318 E F1 .817<72616e20617320726f6f742e>3.317 F .817 <5468697320636f756c64206265207573656420746f2061>5.817 F -.2<766f>-.2 G .817<696420666f72>.2 F .817<676564206164647265737365732e>-.18 F .817 <496620746865>5.817 F F0<553d>3.317 E F1 .817<8c656c64206973>3.317 F<61 6c736f2073706563698c65642c2074686973208d61672063617573657320746865206566> 122 317.4 Q<6665637469>-.25 E .3 -.15<76652075>-.25 H <73657220696420746f2062652073657420746f20746861742075736572>.15 E<2e> -.55 E 15<7555>102 333.6 S .725 <7070657220636173652073686f756c642062652070726573657276>-15 F .725 <656420696e2075736572206e616d657320666f722074686973206d61696c6572>-.15 F 5.726<2e53>-.55 G .726<74616e646172647320726571756972652070726573657276> -5.726 F<6174696f6e>-.25 E .748<6f66206361736520696e20746865206c6f63616c 2070617274206f66206164647265737365732c2065>122 345.6 R .748<786365707420 666f722074686f7365206164647265737320666f7220776869636820796f757220737973 74656d2061636365707473>-.15 F<726573706f6e736962696c697479>122 357.6 Q 5.15<2e52>-.65 G .15<464320323134322070726f>-5.15 F .151<76696465732061 206c6f6e67206c697374206f66206164647265737365732077686963682073686f756c64 206265206361736520696e73656e73697469>-.15 F -.15<7665>-.25 G 5.151<2e49> .15 G<66>-5.151 E .36<796f75207573652074686973208d61672c20796f75206d6179 2062652076696f6c6174696e672052464320323134322e>122 369.6 R .359 <4e6f7465207468617420706f73746d617374657220697320616c>5.359 F -.1<7761> -.1 G .359<797320747265617465642061732061>.1 F <6361736520696e73656e73697469>122 381.6 Q .3 -.15<76652061>-.25 H <646472657373207265>.15 E -.05<6761>-.15 G <72646c657373206f662074686973208d61672e>.05 E 12.78<5554>102 397.8 S <686973206d61696c65722077>-12.78 E<616e747320555543502d7374796c65209946 726f6d9a206c696e65732077697468207468652075676c79209972656d6f74652066726f 6d203c686f73743e9a206f6e2074686520656e642e>-.1 E 12.78<7754>102 414 S .606<68652075736572206d757374206861>-12.78 F .906 -.15<766520612076>-.2 H .606 <616c6964206163636f756e74206f6e2074686973206d616368696e652c20692e652e2c> -.1 F F3 -.1<6765>3.106 G<7470776e616d>.1 E F1 .607 <6d75737420737563636565642e>3.106 F .607<4966206e6f742c20746865>5.607 F 1.319<6d61696c20697320626f756e6365642e>122 426 R 1.319 <53656520616c736f20746865>6.319 F F0<4d61696c626f784461746162617365> 3.819 E F1 3.818<6f7074696f6e2e2054686973>3.818 F 1.318 <697320726571756972656420746f2067657420992e666f7277>3.818 F<6172649a>-.1 E<6361706162696c697479>122 438 Q<2e>-.65 E 10.56<5749>102 454.2 S<676e6f 7265206c6f6e67207465726d20686f73742073746174757320696e666f726d6174696f6e 20287365652053656374696f6e202250657273697374656e7420486f7374205374617475 7320496e666f726d6174696f6e22292e>-10.56 E 7.5<78872054686973>102 470.4 R <6d61696c65722077>2.5 E <616e74732061209946756c6c2d4e616d653a9a20686561646572206c696e652e>-.1 E 12.78<5854>102 486.6 S .511<686973206d61696c65722077>-12.78 F .512<616e 747320746f20757365207468652068696464656e20646f7420616c676f726974686d2061 732073706563698c656420696e20524643203832313b206261736963616c6c79>-.1 F 3.012<2c61>-.65 G .812 -.15<6e79206c>-3.012 H<696e65>.15 E<6265>122 498.6 Q .797<67696e6e696e672077697468206120646f742077696c6c206861>-.15 F 1.097 -.15<76652061>-.2 H 3.297<6e65>.15 G .796<7874726120646f7420707265 70656e6465642028746f20626520737472697070656420617420746865206f7468657220 656e64292e>-3.447 F<54686973>5.796 E<696e73757265732074686174206c696e65 7320696e20746865206d65737361676520636f6e7461696e696e67206120646f74207769 6c6c206e6f74207465726d696e61746520746865206d657373616765207072656d617475 72656c79>122 510.6 Q<2e>-.65 E 15.56<7a52>102 526.8 S .965 <756e204c6f63616c204d61696c2054>-15.56 F .965 <72616e736665722050726f746f636f6c20284c4d545029206265747765656e>-.35 F F3<73656e646d61696c>3.465 E F1 .965 <616e6420746865206c6f63616c206d61696c6572>3.465 F 5.965<2e54>-.55 G .965 <6869732069732061>-5.965 F -.25<7661>122 538.8 S .167<7269616e74206f6e20 534d54502064658c6e656420696e20524643203230333320746861742069732073706563 698c63616c6c792064657369676e656420666f722064656c69>.25 F -.15<7665>-.25 G .167<727920746f2061206c6f63616c206d61696c2d>.15 F<626f782e>122 550.8 Q 13.89<5a41>102 567 S<70706c79204469616c44656c61792028696620736574292074 6f2074686973206d61696c6572>-13.89 E<2e>-.55 E 15<3044>102 583.2 S <6f6e27>-15 E 3.606<746c>-.18 G 1.106<6f6f6b207570204d58207265636f726473 20666f7220686f7374732073656e742076696120534d54502f4c4d5450>-3.606 F 6.106<2e44>-1.11 G 3.606<6f6e>-6.106 G 1.107<6f74206170706c79>-3.606 F F0 -.25<4661>3.607 G<6c6c6261636b4d58686f7374>.25 E F1<656974686572>122 595.2 Q<2e>-.55 E 15<3153>102 611.4 S<74726970206e756c6c2063686172616374 6572732028275c302729207768656e2073656e64696e6720746f2074686973206d61696c 6572>-15 E<2e>-.55 E 15<3244>102 627.6 S<6f6e27>-15 E 3.033<7475>-.18 G .533<73652045534d54502065>-3.033 F -.15<7665>-.25 G 3.033<6e69>.15 G 3.033<666f>-3.033 G -.25<6666>-3.033 G .533 <657265643b20746869732069732075736566756c20666f722062726f6b>.25 F .532 <656e2073797374656d732074686174206f66>-.1 F .532<6665722045534d54502062> -.25 F .532<75742066>-.2 F<61696c>-.1 E <6f6e2045484c4f2028776974686f7574207265636f>122 639.6 Q -.15<7665>-.15 G <72696e67207768656e2048454c4f206973207472696564206e65>.15 E<7874292e> -.15 E 15<3345>102 655.8 S .001 <7874656e6420746865206c697374206f66206368617261637465727320636f6e>-15 F -.15<7665>-.4 G .002 <7274656420746f203d5858206e6f746174696f6e207768656e20636f6e>.15 F -.15 <7665>-.4 G .002 <7274696e6720746f2051756f7465642d5072696e7461626c6520746f>.15 F .978 <696e636c7564652074686f7365207468617420646f6e27>122 667.8 R 3.478<746d> -.18 G .978<617020636c65616e6c79206265747765656e20415343494920616e642045 42434449432e>-3.478 F .978<55736566756c20696620796f75206861>5.978 F 1.277 -.15<76652049>-.2 H<424d>.15 E <6d61696e6672616d6573206f6e20736974652e>122 679.8 Q 15<3549>102 696 S 2.716<666e>-15 G 2.716<6f61>-2.716 G .217<6c69617365732061726520666f756e 6420666f72207468697320616464726573732c2070617373207468652061646472657373 207468726f7567682072756c65736574203520666f7220706f737369626c6520616c7465 726e617465>-2.716 F 2.5<7265736f6c7574696f6e2e2054686973>122 708 R <697320696e74656e64656420746f20666f7277>2.5 E <61726420746865206d61696c20746f20616e20616c7465726e6174652064656c69>-.1 E -.15<7665>-.25 G<72792073706f742e>.15 E 0 Cg EP %%Page: 61 57 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3631>195.86 E /F1 10/Times-Roman@0 SF 15<3653>102 96 S <74726970206865616465727320746f207365>-15 E -.15<7665>-.25 G 2.5<6e62> .15 G<6974732e>-2.5 E 15<3753>102 112.2 S 1.141 <7472697020616c6c206f757470757420746f207365>-15 F -.15<7665>-.25 G 3.641 <6e62>.15 G 3.641<6974732e2054686973>-3.641 F 1.141 <69732074686520646566>3.641 F 1.141<61756c7420696620746865>-.1 F F0<4c> 3.64 E F1 1.14<8d6167206973207365742e>3.64 F 1.14 <4e6f7465207468617420636c656172696e672074686973>6.14 F .295 <6f7074696f6e206973206e6f7420737566>122 124.2 R .295<8c6369656e7420746f 206765742066756c6c20656967687420626974206461746120706173736564207468726f 756768>-.25 F/F2 10/Times-Italic@0 SF<73656e646d61696c>2.795 E F1 5.295 <2e49>C 2.795<6674>-5.295 G<6865>-2.795 E F0<37>2.795 E F1 .295 <6f7074696f6e206973207365742c>2.795 F .717 <7468697320697320657373656e7469616c6c7920616c>122 136.2 R -.1<7761>-.1 G .717<7973207365742c2073696e63652074686520656967687468206269742077>.1 F .717<6173207374726970706564206f6e20696e7075742e>-.1 F .716 <4e6f746520746861742074686973206f7074696f6e>5.717 F<77696c6c206f6e6c7920 696d70616374206d657373616765732074686174206469646e27>122 148.2 Q 2.5 <7468>-.18 G -2.25 -.2<61762065>-2.5 H<38>2.7 E/F3 10/Symbol SFA F1 2.5<3762>C<6974204d494d4520636f6e>-2.5 E -.15<7665>-.4 G <7273696f6e7320706572666f726d65642e>.15 E 15<3849>102 164.4 S 3.782 <6673>-15 G 1.283<65742c2069742069732061636365707461626c6520746f2073656e 6420656967687420626974206461746120746f2074686973206d61696c65723b20746865 20757375616c20617474656d707420746f20646f2038>-3.782 F F3A F1 3.783 <3762>C<6974>-3.783 E<4d494d4520636f6e>122 176.4 Q -.15<7665>-.4 G <7273696f6e732077696c6c2062652062797061737365642e>.15 E 15<3949>102 192.6 S 2.705<6673>-15 G .205<65742c20646f>-2.705 F F2<6c696d69746564> 2.705 E F1<37>2.705 E F3A F1 2.704<3862>C .204 <6974204d494d4520636f6e>-2.704 F -.15<7665>-.4 G 2.704 <7273696f6e732e205468657365>.15 F<636f6e>2.704 E -.15<7665>-.4 G .204 <7273696f6e7320617265206c696d6974656420746f207465>.15 F .204 <78742f706c61696e20646174612e>-.15 F 17.22<3a43>102 208.8 S 3.018 <6865636b2061646472657373657320746f2073656520696620746865>-17.22 F 5.518 <7962>-.15 G -.15<6567>-5.518 G 3.018 <696e207769746820993a696e636c7564653a9a3b20696620746865>.15 F 5.518 <7964>-.15 G 3.018<6f2c20636f6e>-5.518 F -.15<7665>-.4 G 3.018 <7274207468656d20746f20746865>.15 F <992a696e636c7564652a9a206d61696c6572>122 220.8 Q<2e>-.55 E 18<7c43>102 237 S<6865636b2061646472657373657320746f2073656520696620746865>-18 E 2.5 <7962>-.15 G -.15<6567>-2.5 G <696e2077697468206120607c273b20696620746865>.15 E 2.5<7964>-.15 G <6f2c20636f6e>-2.5 E -.15<7665>-.4 G <7274207468656d20746f20746865209970726f679a206d61696c6572>.15 E<2e>-.55 E 17.22<2f43>102 253.2 S <6865636b2061646472657373657320746f2073656520696620746865>-17.22 E 2.5 <7962>-.15 G -.15<6567>-2.5 G <696e2077697468206120602f273b20696620746865>.15 E 2.5<7964>-.15 G <6f2c20636f6e>-2.5 E -.15<7665>-.4 G <7274207468656d20746f2074686520992a8c6c652a9a206d61696c6572>.15 E<2e> -.55 E 10.79<404c>102 269.4 S<6f6f6b2075702061646472657373657320696e2074 686520757365722064617461626173652e>-10.79 E 11.67<2544>102 285.6 S 3.869 <6f6e>-11.67 G 1.369<6f7420617474656d70742064656c69>-3.869 F -.15<7665> -.25 G 1.369<7279206f6e20696e697469616c2072656365697074206f662061206d65 7373616765206f72206f6e2071756575652072756e7320756e6c65737320746865207175 65756564>.15 F<6d6573736167652069732073656c6563746564207573696e67206f6e 65206f6620746865202d71492f2d71522f2d71532071756575652072756e206d6f64698c 657273206f7220616e204554524e20726571756573742e>122 297.6 Q 16.67<2144> 102 313.8 S 1.289 <697361626c6520616e204d48206861636b20746861742064726f707320616e2065> -16.67 F 1.29<78706c696369742046726f6d3a20686561646572206966206974206973 207468652073616d6520617320776861742073656e646d61696c>-.15 F -.1<776f>122 325.8 S<756c642067656e65726174652e>.1 E .268 <436f6e8c6775726174696f6e208c6c6573207072696f7220746f206c65>127 342 R -.15<7665>-.25 G 2.768<6c3661>.15 G .268<7373756d65207468652060>-2.768 F -1.11<4127>-.8 G 2.768<2c60>1.11 G .268<77272c206035272c20603a272c20607c 272c20602f272c20616e6420604027206f7074696f6e73206f6e20746865>-2.768 F <6d61696c6572206e616d656420996c6f63616c9a2e>102 354 Q .306<546865206d61 696c6572207769746820746865207370656369616c206e616d6520996572726f729a2063 616e206265207573656420746f2067656e657261746520612075736572206572726f72> 127 370.2 R 5.306<2e54>-.55 G .306<686520286f7074696f6e616c29>-5.306 F .324<686f7374208c656c6420697320616e2065>102 382.2 R .323<78697420737461 74757320746f2062652072657475726e65642c20616e64207468652075736572208c656c 642069732061206d65737361676520746f206265207072696e7465642e>-.15 F .323 <5468652065>5.323 F .323<786974207374612d>-.15 F .891 <747573206d6179206265206e756d65726963206f72206f6e65206f66207468652076> 102 394.2 R .891<616c75657320555341>-.25 F .891 <47452c204e4f555345522c204e4f484f5354>-.4 F 3.391<2c55>-.74 G -.35<4e41> -3.391 G -1.35<5641>-1 G .891<494c41424c452c20534f4654>1.35 F<2d>-.92 E -1.2<5741>102 406.2 S 1.142<52452c2054454d5046>1.2 F 1.142 <41494c2c205052>-.74 F -1.88 -.4<4f54204f>-.4 H 1.142<434f4c2c206f722043 4f4e46494720746f2072657475726e2074686520636f72726573706f6e64696e67204558 5f2065>.4 F 1.141<78697420636f64652c206f7220616e>-.15 F .288<656e68616e 636564206572726f7220636f64652061732064657363726962656420696e205246432031 3839332c>102 418.2 R F2 .288 <456e68616e636564204d61696c2053797374656d2053746174757320436f6465732e> 2.788 F F1 -.15<466f>5.288 G 2.788<7265>.15 G<78616d706c652c>-2.938 E <74686520656e7472793a>102 430.2 Q <24236572726f72202440204e4f484f535420243a20486f737420756e6b6e6f>142 446.4 Q<776e20696e207468697320646f6d61696e>-.25 E .145<6f6e207468652052 4853206f6620612072756c652077696c6c206361757365207468652073706563698c6564 206572726f7220746f2062652067656e65726174656420616e64207468652099486f7374 20756e6b6e6f>102 462.6 R .145<776e9a2065>-.25 F .145<786974207374612d> -.15 F .491<74757320746f2062652072657475726e656420696620746865204c485320 6d6174636865732e>102 474.6 R .491<54686973206d61696c6572206973206f6e6c79 2066756e6374696f6e616c20696e2072756c657365747320302c20352c206f72206f6e65 206f6620746865>5.491 F 1.81<636865636b5f2a2072756c65736574732e>102 486.6 R 1.81<54686520686f7374208c656c642063616e20616c736f20636f6e7461696e2074 6865207370656369616c20746f6b>6.81 F<656e>-.1 E F0<71756172616e74696e65> 4.31 E F1 1.81<776869636820696e73747275637473>4.31 F<73656e646d61696c20 746f2071756172616e74696e65207468652063757272656e74206d6573736167652e>102 498.6 Q .256<546865206d61696c6572207769746820746865207370656369616c206e 616d652099646973636172649a2063617573657320616e>127 514.8 R 2.756<796d> -.15 G .257 <61696c2073656e7420746f20697420746f206265206469736361726465642062>-2.756 F .257<7574206f74682d>-.2 F 1.314<65727769736520747265617465642061732074 686f7567682069742077657265207375636365737366756c6c792064656c69>102 526.8 R -.15<7665>-.25 G 3.813<7265642e2054686973>.15 F 1.313 <6d61696c65722063616e6e6f74206265207573656420696e2072756c6573657420302c> 3.813 F<6f6e6c7920696e207468652076>102 538.8 Q <6172696f7573206164647265737320636865636b696e672072756c65736574732e>-.25 E .468<546865206d61696c6572206e616d656420996c6f63616c9a>127 555 R F2 <6d757374>2.968 E F1 .468<62652064658c6e656420696e2065>2.968 F -.15 <7665>-.25 G .468<727920636f6e8c6775726174696f6e208c6c652e>.15 F .468 <54686973206973207573656420746f2064656c69>5.468 F -.15<7665>-.25 G<72> .15 E .25<6c6f63616c206d61696c2c20616e6420697320747265617465642073706563 69616c6c7920696e207365>102 567 R -.15<7665>-.25 G .25<72616c2077>.15 F 2.75<6179732e204164646974696f6e616c6c79>-.1 F 2.75<2c74>-.65 G .25 <68726565206f74686572206d61696c657273206e616d6564209970726f679a2c>-2.75 F .942<992a8c6c652a9a2c20616e6420992a696e636c7564652a9a206d617920626520 64658c6e656420746f2074756e65207468652064656c69>102 579 R -.15<7665>-.25 G .942<7279206f66206d6573736167657320746f2070726f6772616d732c208c6c6573 2c20616e64>.15 F<3a696e636c7564653a206c69737473207265737065637469>102 591 Q -.15<7665>-.25 G<6c79>.15 E 5<2e54>-.65 G<6865>-5 E 2.5<7964>-.15 G<6566>-2.5 E<61756c7420746f3a>-.1 E<4d70726f672c20503d2f62696e2f73682c 20463d6c736f4471392c20543d444e532f5246433832322f582d556e69782c20413d7368 20ad63202475>142 607.2 Q<4d2a8c6c652a2c20503d5b46494c455d2c20463d6c7344 464d50456f7571392c20543d444e532f5246433832322f582d556e69782c20413d46494c 45202475>142 619.2 Q<4d2a696e636c7564652a2c20503d2f6465>142 631.2 Q <762f6e756c6c2c20463d73752c20413d494e434c554445202475>-.25 E .466<427569 6c74696e20706174686e616d657320617265205b46494c455d20616e64205b4950435d2c 2074686520666f726d6572206973207573656420666f722064656c69>127 651.6 R -.15<7665>-.25 G .466 <727920746f208c6c65732c20746865206c617474657220666f72>.15 F<64656c69>102 663.6 Q -.15<7665>-.25 G .12 <72792076696120696e74657270726f6365737320636f6d6d756e69636174696f6e2e> .15 F -.15<466f>5.12 G 2.62<726d>.15 G .12<61696c6572732074686174207573 65205b4950435d20617320706174686e616d6520746865206172>-2.62 F .12 <67756d656e742076>-.18 F<65632d>-.15 E .761<746f722028413d29206d75737420 7374617274207769746820544350206f722046494c4520666f722064656c69>102 675.6 R -.15<7665>-.25 G .761 <727920766961206120544350206f72206120556e697820646f6d61696e20736f636b> .15 F 3.261<65742e204966>-.1 F .761<544350206973>3.261 F .109 <757365642c20746865207365636f6e64206172>102 687.6 R .109<67756d656e7420 6d75737420626520746865206e616d65206f662074686520686f737420746f20636f6e74 6163742e>-.18 F .11<4f7074696f6e616c6c792061207468697264206172>5.11 F .11<67756d656e742063616e>-.18 F .576 <6265207573656420746f2073706563696679206120706f72742c2074686520646566> 102 699.6 R .576<61756c7420697320736d74702028706f7274203235292e>-.1 F .576<49662046494c4520697320757365642c20746865207365636f6e64206172>5.576 F .575<67756d656e74206d757374>-.18 F <626520746865206e616d65206f662074686520556e697820646f6d61696e20736f636b> 102 711.6 Q<65742e>-.1 E 0 Cg EP %%Page: 62 58 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d36322053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF .668<496620746865206172>127 96 R .668 <67756d656e742076>-.18 F .669 <6563746f7220646f6573206e6f7420636f6e7461696e202475207468656e>-.15 F/F2 10/Times-Italic@0 SF<73656e646d61696c>3.169 E F1 .669 <77696c6c20737065616b20534d545020286f72204c4d545020696620746865>3.169 F< 6d61696c6572208d6167207a2069732073706563698c65642920746f20746865206d6169 6c6572>102 108 Q<2e>-.55 E<4966206e6f20456f6c208c656c642069732064658c6e 65642c207468656e2074686520646566>127 124.2 Q<61756c7420697320225c725c6e 2220666f7220534d5450206d61696c65727320616e6420225c6e22206f66206f74686572 732e>-.1 E .616<5468652053656e64657220616e6420526563697069656e74207265> 127 140.4 R .615<77726974696e672073657473206d61792065697468657220626520 612073696d706c652072756c65736574206964206f72206d6179206265207477>-.25 F 3.115<6f69>-.1 G<6473>-3.115 E .575<736570617261746564206279206120736c61 73683b20696620736f2c20746865208c727374207265>102 152.4 R .576 <77726974696e6720736574206973206170706c69656420746f20656e>-.25 F -.15 <7665>-.4 G .576 <6c6f70652061646472657373657320616e6420746865207365636f6e64206973>.15 F <6170706c69656420746f20686561646572732e>102 164.4 Q <53657474696e6720616e>5 E 2.5<7976>-.15 G<616c756520746f207a65726f206469 7361626c657320636f72726573706f6e64696e67206d61696c6572>-2.75 E <2d73706563698c63207265>-.2 E<77726974696e672e>-.25 E .197<546865204469 726563746f72792069732061637475616c6c79206120636f6c6f6e2d7365706172617465 642070617468206f66206469726563746f7269657320746f20747279>127 180.6 R 5.196<2e46>-.65 G .196<6f722065>-5.346 F .196 <78616d706c652c207468652064658c6e692d>-.15 F .104 <74696f6e2099443d247a3a2f9a208c72737420747269657320746f2065>102 192.6 R -.15<7865>-.15 G .104<6375746520696e2074686520726563697069656e7427>.15 F 2.604<7368>-.55 G .104 <6f6d65206469726563746f72793b2069662074686174206973206e6f742061>-2.604 F -.25<7661>-.2 G .104<696c61626c652c20697420747269657320746f>.25 F -.15 <657865>102 204.6 S .816 <6375746520696e2074686520726f6f74206f6620746865208c6c6573797374656d2e> .15 F .816<5468697320697320696e74656e64656420746f2062652075736564206f6e 6c79206f6e20746865209970726f679a206d61696c6572>5.816 F 3.316<2c73>-.4 G <696e6365>-3.316 E .008<736f6d65207368656c6c73202873756368206173>102 216.6 R F2<637368>2.509 E F1 2.509<2972>C .009<656675736520746f2065> -2.509 F -.15<7865>-.15 G .009<6375746520696620746865>.15 F 2.509<7963> -.15 G .009 <616e6e6f742072656164207468652063757272656e74206469726563746f7279>-2.509 F 5.009<2e53>-.65 G .009<696e636520746865207175657565>-5.009 F<64697265 63746f7279206973206e6f74206e6f726d616c6c79207265616461626c6520627920756e 707269>102 228.6 Q<76696c65>-.25 E<676564207573657273>-.15 E F2<637368> 2.5 E F1<7363726970747320617320726563697069656e74732063616e2066>2.5 E <61696c2e>-.1 E 1.863 <546865205573657269642073706563698c65732074686520646566>127 244.8 R 1.863 <61756c74207573657220616e642067726f757020696420746f2072756e2061732c206f> -.1 F -.15<7665>-.15 G 1.862<72726964696e6720746865>.15 F F0 <44656661756c7455736572>4.362 E F1 .098<6f7074696f6e2028712e76>102 256.8 R 2.598<2e292e204966>-.65 F<746865>2.598 E F0<53>2.598 E F1 .098<6d6169 6c6572208d616720697320616c736f2073706563698c65642c2074686973207573657220 616e642067726f75702077696c6c2062652073657420617320746865206566>2.598 F <6665637469>-.25 E .398 -.15<76652075>-.25 H<6964>.15 E .694 <616e642067696420666f72207468652070726f636573732e>102 268.8 R .694 <54686973206d6179206265206769>5.694 F -.15<7665>-.25 G 3.194<6e61>.15 G <73>-3.194 E F2<757365723a6772>3.194 E<6f7570>-.45 E F1 .693<746f207365 7420626f746820746865207573657220616e642067726f75702069643b20656974686572> 3.194 F .126<6d617920626520616e20696e7465>102 280.8 R .127 <676572206f7220612073796d626f6c6963206e616d6520746f206265206c6f6f6b>-.15 F .127<656420757020696e20746865>-.1 F F2<706173737764>2.627 E F1<616e64> 2.627 E F2<6772>2.627 E<6f7570>-.45 E F1 .127 <8c6c6573207265737065637469>2.627 F -.15<7665>-.25 G<6c79>.15 E 5.127 <2e49>-.65 G<66>-5.127 E .782<6f6e6c7920612073796d626f6c6963207573657220 6e616d652069732073706563698c65642c207468652067726f757020696420696e207468 65>102 292.8 R F2<706173737764>3.282 E F1 .782 <8c6c6520666f7220746861742075736572206973207573656420617320746865>3.282 F<67726f75702069642e>102 304.8 Q .545 <5468652043686172736574208c656c642069732075736564207768656e20636f6e>127 321 R -.15<7665>-.4 G .545<7274696e672061206d65737361676520746f204d494d 453b20746869732069732074686520636861726163746572207365742075736564>.15 F .373<696e2074686520436f6e74656e742d54>102 333 R .373 <7970653a20686561646572>-.8 F 5.373<2e49>-.55 G 2.873<6674>-5.373 G .373 <686973206973206e6f74207365742c20746865>-2.873 F F0 <44656661756c7443686172536574>2.873 E F1 .372 <6f7074696f6e20697320757365642c20616e642069662074686174206973206e6f74> 2.873 F .257<7365742c207468652076>102 345 R .257<616c75652099756e6b6e6f> -.25 F .257<776e2d386269749a20697320757365642e>-.25 F F0 -1.2<5741>5.257 G<524e494e473a>1.2 E F1 .257 <74686973208c656c64206170706c69657320746f207468652073656e64657227>2.757 F 2.758<736d>-.55 G<61696c6572>-2.758 E 2.758<2c6e>-.4 G .258 <6f7420746865>-2.758 F<726563697069656e7427>102 357 Q 2.702<736d>-.55 G <61696c6572>-2.702 E 5.202<2e46>-.55 G .202<6f722065>-5.352 F .202 <78616d706c652c2069662074686520656e>-.15 F -.15<7665>-.4 G .201<6c6f7065 2073656e6465722061646472657373206c6973747320616e2061646472657373206f6e20 746865206c6f63616c206e657477>.15 F<6f726b>-.1 E .48 <616e642074686520726563697069656e74206973206f6e20616e2065>102 369 R .48 <787465726e616c206e657477>-.15 F .48<6f726b2c20746865206368617261637465 72207365742077696c6c206265207365742066726f6d2074686520436861727365743d20 8c656c6420666f72>-.1 F<746865206c6f63616c206e657477>102 381 Q <6f726b206d61696c6572>-.1 E 2.5<2c6e>-.4 G <6f742074686174206f66207468652065>-2.5 E<787465726e616c206e657477>-.15 E <6f726b206d61696c6572>-.1 E<2e>-.55 E .795<5468652054>127 397.2 R .795< 7970653d208c656c64207365747320746865207479706520696e666f726d6174696f6e20 7573656420696e204d494d45206572726f72206d657373616765732061732064658c6e65 6420627920524643>-.8 F 2.805<313839342e204974>102 409.2 R .305 <69732061637475616c6c792074687265652076>2.805 F .305 <616c7565732073657061726174656420627920736c61736865733a20746865204d54> -.25 F .305<412d747970652028746861742069732c2074686520646573637269707469 6f6e206f6620686f>-.93 F<77>-.25 E .083<686f73747320617265206e616d656429 2c20746865206164647265737320747970652028746865206465736372697074696f6e20 6f6620652d6d61696c20616464726573736573292c20616e642074686520646961676e6f 7374696320747970652028746865>102 421.2 R .142<6465736372697074696f6e206f 66206572726f7220646961676e6f7374696320636f646573292e>102 433.2 R .142 <45616368206f66207468657365206d7573742062652061207265>5.142 F .143 <67697374657265642076>-.15 F .143<616c7565206f72206265>-.25 F .143 <67696e2077697468209958ad9a2e>-.15 F<54686520646566>102 445.2 Q <61756c742069732099646e732f7266633832322f736d74709a2e>-.1 E 1.175<546865 206d3d208c656c642073706563698c657320746865206d6178696d756d206e756d626572 206f66206d6573736167657320746f20617474656d707420746f2064656c69>127 461.4 R -.15<7665>-.25 G 3.674<726f>.15 G 3.674<6e6173>-3.674 G<696e676c65> -3.674 E<534d5450206f72204c4d545020636f6e6e656374696f6e2e>102 473.4 Q <54686520646566>5 E<61756c7420697320696e8c6e6974652e>-.1 E 1.545<546865 20723d208c656c642073706563698c657320746865206d6178696d756d206e756d626572 206f6620726563697069656e747320746f20617474656d707420746f2064656c69>127 489.6 R -.15<7665>-.25 G 4.046<7269>.15 G 4.046<6e6173>-4.046 G <696e676c65>-4.046 E<656e>102 501.6 Q -.15<7665>-.4 G 2.5 <6c6f70652e204974>.15 F<646566>2.5 E<61756c747320746f203130302e>-.1 E 1.052<546865202f3d208c656c642073706563698c65732061206e65>127 517.8 R 3.552<7772>-.25 G 1.052 <6f6f74206469726563746f727920666f7220746865206d61696c6572>-3.552 F 6.052 <2e54>-.55 G 1.052<68652070617468206973206d6163726f2065>-6.052 F 1.051 <7870616e64656420616e64>-.15 F .512<7468656e2070617373656420746f20746865 20996368726f6f749a2073797374656d2063616c6c2e>102 529.8 R .512<5468652072 6f6f74206469726563746f7279206973206368616e676564206265666f72652074686520 4469726563746f7279208c656c64206973>5.512 F <636f6e73756c746564206f722074686520756964206973206368616e6765642e>102 541.8 Q .561<5468652057>127 558 R .561<6169743d208c656c642073706563698c 657320746865206d6178696d756d2074696d6520746f2077>-.8 F .56<61697420666f 7220746865206d61696c657220746f2072657475726e2061667465722073656e64696e67 20616c6c>-.1 F<6461746120746f2069742e>102 570 Q <54686973206170706c69657320746f206d61696c6572732074686174206861>5 E .3 -.15<76652062>-.2 H<65656e20666f726b>.15 E<6564206279>-.1 E F2 <73656e646d61696c>2.5 E F1<2e>A 1.163<546865205175657565>127 586.2 R 1.164<67726f75703d208c656c642073706563698c65732074686520646566>-.15 F 1.164<61756c742071756575652067726f757020696e207768696368207265636569>-.1 F -.15<7665>-.25 G 3.664<646d>.15 G 1.164<61696c2073686f756c64206265> -3.664 F 2.849<7175657565642e2054686973>102 598.2 R .349 <63616e206265206f>2.849 F -.15<7665>-.15 G .349 <7272696464656e206279206f74686572206d65616e732061732065>.15 F .348 <78706c61696e656420696e2073656374696f6e2060>-.15 F .348 <6051756575652047726f75707320616e64205175657565>-.74 F <4469726563746f7269657327>102 610.2 Q<272e>-.74 E F0 2.5<352e362e2048>87 634.2 R 2.5<8a44>2.5 G<658c6e6520486561646572>-2.5 E F1 1.135 <54686520666f726d6174206f662074686520686561646572206c696e65732074686174> 127 650.4 R F2<73656e646d61696c>3.636 E F1 1.136<696e736572747320696e74 6f20746865206d657373616765206172652064658c6e656420627920746865>3.636 F F0<48>3.636 E F1 2.5<6c696e652e20546865>102 662.4 R<73796e746178206f6620 74686973206c696e65206973206f6e65206f662074686520666f6c6c6f>2.5 E <77696e673a>-.25 E F0<48>142 678.6 Q F2<686e616d65>A F0<3a>A F2 <6874656d706c617465>2.5 E F0<48>142 699 Q F1<5b>A F0<3f>A F2<6d8d61>A <6773>-.1 E F0<3f5d>A F2<686e616d65>A F0<3a>A F2<6874656d706c617465>2.5 E 0 Cg EP %%Page: 63 59 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3633>195.86 E <48>142 96 Q/F1 10/Times-Roman@0 SF<5b>A F0<3f24>A/F2 10/Times-Italic@0 SF<7b6d616372>A<6f7d>-.45 E F0<3f5d>A F2<686e616d65>A F0<3a>A F2 <6874656d706c617465>2.5 E F1 1.058<436f6e74696e756174696f6e206c696e6573 20696e20746869732073706563206172652072658d6563746564206469726563746c7920 696e746f20746865206f7574676f696e67206d6573736167652e>102 112.2 R<546865> 6.058 E F2<6874656d706c617465>3.557 E F1<6973>3.557 E<6d6163726f2d65>102 124.2 Q 1.12<7870616e646564206265666f726520696e73657274696f6e20696e746f 20746865206d6573736167652e>-.15 F 1.12<496620746865>6.12 F F2<6d8d61> 3.62 E<6773>-.1 E F1 1.12 <28737572726f756e646564206279207175657374696f6e206d61726b7329>3.62 F .161<6172652073706563698c65642c206174206c65617374206f6e65206f6620746865 2073706563698c6564208d616773206d7573742062652073746174656420696e20746865 206d61696c65722064658c6e6974696f6e20666f72207468697320686561646572>102 136.2 R .857<746f206265206175746f6d61746963616c6c79206f75747075742e>102 148.2 R .858<49662061>5.858 F F2<247b6d616372>3.358 E<6f7d>-.45 E F1 .858<28737572726f756e646564206279207175657374696f6e206d61726b7329206973 2073706563698c65642c2074686520686561646572>3.358 F 1.264<77696c6c206265 206175746f6d61746963616c6c79206f757470757420696620746865206d6163726f2069 73207365742e>102 160.2 R 1.264 <546865206d6163726f206d617920626520736574207573696e6720616e>6.264 F 3.764<796f>-.15 G 3.763<6674>-3.764 G 1.263<6865206e6f726d616c>-3.763 F .232<6d6574686f64732c20696e636c7564696e67207573696e6720746865>102 172.2 R F0<6d616372>2.732 E<6f>-.18 E F1 .232 <73746f72616765206d617020696e20612072756c657365742e>2.732 F .232<496620 6f6e65206f66207468657365206865616465727320697320696e2074686520696e707574> 5.232 F .125 <69742069732072658d656374656420746f20746865206f7574707574207265>102 184.2 R -.05<6761>-.15 G .125 <72646c657373206f66207468657365208d616773206f72206d6163726f732e>.05 F .124<4e6f746963653a2049662061>5.124 F F2<247b6d616372>2.624 E<6f7d>-.45 E F1 .124<6973207573656420746f207365742061>2.624 F<686561646572>102 196.2 Q 4.308<2c74>-.4 G 1.809<68656e2069742069732075736566756c20746f20 6164642074686174206d6163726f20746f20636c617373>-4.308 F F2<243d7b706572> 4.309 E<73697374656e744d616372>-.1 E<6f737d>-.45 E F1 1.809 <776869636820636f6e7369737473206f6620746865>4.309 F <6d6163726f7320746861742073686f756c64206265207361>102 208.2 Q -.15<7665> -.2 G 2.5<6461>.15 G<63726f73732071756575652072756e732e>-2.5 E <536f6d652068656164657273206861>127 224.4 Q .3 -.15<76652073>-.2 H<7065 6369616c2073656d616e7469637320746861742077696c6c206265206465736372696265 64206c61746572>.15 E<2e>-.55 E 2.711<4173>127 240.6 S .211 <65636f6e646172792073796e74617820616c6c6f>-2.711 F .211<77732076>-.25 F .211<616c69646174696f6e206f66206865616465727320617320746865>-.25 F 2.711 <7961>-.15 G .211<7265206265696e6720726561642e>-2.711 F 1.81 -.8 <546f2065>5.21 H .21<6e61626c652076>.8 F<616c69646174696f6e2c>-.25 E <7573653a>102 252.6 Q F0<48>142 268.8 Q F2<486561646572>A F0 2.5<3a24>C <3e>-2.5 E F2<52756c65736574>A F0<48>142 280.8 Q F2<486561646572>A F0 2.5<3a24>C<3e2b>-2.5 E F2<52756c65736574>A F1 .265 <54686520696e64696361746564>102 297 R F2<52756c65736574>2.765 E F1 .265 <69732063616c6c656420666f72207468652073706563698c6564>2.765 F F2 <486561646572>2.765 E F1 2.765<2c61>C .265<6e642063616e2072657475726e> -2.765 F F0<2423657272>2.765 E<6f72>-.18 E F1 .265 <746f2072656a656374206f722071756172616e2d>2.765 F 1.304 <74696e6520746865206d657373616765206f72>102 309 R F0<242364697363617264> 3.804 E F1 1.304<746f206469736361726420746865206d6573736167652028617320 7769746820746865206f74686572>3.804 F F0<636865636b5f>3.804 E F1 3.804 <2a72>C 3.804<756c6573657473292e20546865>-3.804 F 3.175 <72756c65736574207265636569>102 321 R -.15<7665>-.25 G 5.675<7374>.15 G 3.175<686520686561646572208c656c642d626f6479206173206172>-5.675 F 3.176< 67756d656e742c20692e652e2c206e6f742074686520686561646572208c656c642d6e61 6d653b2073656520616c736f>-.18 F .63 <247b6864725f6e616d657d20616e6420247b637572724865616465727d2e>102 333 R .629<546865206865616465722069732074726561746564206173206120737472756374 75726564208c656c642c20746861742069732c207465>5.63 F .629 <787420696e20706172656e2d>-.15 F .337<7468657365732069732064656c65746564 206265666f72652070726f63657373696e672c20756e6c65737320746865207365636f6e 6420666f726d>102 345 R F0<243e2b>2.837 E F1 .337<697320757365642e>2.837 F .337<4e6f74653a206f6e6c79206f6e652072756c657365742063616e>5.337 F <6265206173736f63696174656420776974682061206865616465723b>102 357 Q F2 <73656e646d61696c>2.5 E F1<77696c6c2073696c656e746c792069676e6f7265206d 756c7469706c6520656e74726965732e>2.5 E -.15<466f>127 373.2 S 2.5<7265> .15 G<78616d706c652c2074686520636f6e8c6775726174696f6e206c696e65733a> -2.65 E<484d6573736167652d49643a20243e436865636b4d6573736167654964>142 389.4 Q<53436865636b4d6573736167654964>142 413.4 Q<523c20242b204020242b> 142 425.4 Q 11.06<3e24>5 G 2.5<404f>-11.06 G<4b>-2.5 E 52.83 <52242a2024236572726f72>142 437.4 R<243a20496c6c65>2.5 E -.05<6761>-.15 G 2.5<6c4d>.05 G<6573736167652d496420686561646572>-2.5 E -.1<776f>102 453.6 S<756c642072656675736520616e>.1 E 2.5<796d>-.15 G<6573736167652074 686174206861642061204d6573736167652d49643a20686561646572206f6620616e> -2.5 E 2.5<796f>-.15 G 2.5<6674>-2.5 G<686520666f6c6c6f>-2.5 E <77696e6720666f726d733a>-.25 E<4d6573736167652d49643a203c3e>142 469.8 Q <4d6573736167652d49643a20736f6d65207465>142 481.8 Q<7874>-.15 E <4d6573736167652d49643a203c6c65>142 493.8 Q -.05<6761>-.15 G 2.5<6c74> .05 G -.15<6578>-2.5 G<7440646f6d61696e3e2065>.15 E<787472612063727564> -.15 E 3.069<4164>102 510 S<6566>-3.069 E .569<61756c742072756c65736574 20746861742069732063616c6c656420666f72206865616465727320776869636820646f 6e27>-.1 F 3.069<7468>-.18 G -2.25 -.2<61762065>-3.069 H 3.069<6173> 3.269 G .568 <706563698c632072756c657365742064658c6e656420666f72207468656d2063616e> -3.069 F<62652073706563698c65642062793a>102 522 Q F0<48>142 538.2 Q F2 <2a>A F0 2.5<3a24>C<3e>-2.5 E F2<52756c65736574>A F1<6f72>102 554.4 Q F0 <48>142 570.6 Q F2<2a>A F0 2.5<3a24>C<3e2b>-2.5 E F2<52756c65736574>A F0 2.5<352e372e204f>87 598.8 R 2.5<8a53>2.5 G<6574204f7074696f6e>-2.5 E F1 .962<5468657265206172652061206e756d626572206f6620676c6f62616c206f707469 6f6e7320746861742063616e206265207365742066726f6d206120636f6e8c6775726174 696f6e208c6c652e>127 615 R .963<4f7074696f6e7320617265>5.963 F .86 <726570726573656e7465642062792066756c6c2077>102 627 R .86<6f7264733b2073 6f6d652061726520616c736f20726570726573656e7461626c652061732073696e676c65 206368617261637465727320666f72206261636b20636f6d7061746962696c697479>-.1 F<2e>-.65 E<5468652073796e746178206f662074686973206c696e652069733a>102 639 Q F0<4f>142 655.2 Q F2<6f7074696f6e>7.5 E F0<3d>A F2<76616c7565>A F1 .562<546869732073657473206f7074696f6e>102 671.4 R F2<6f7074696f6e>3.062 E F1 .562<746f206265>3.062 F F2<76616c7565>3.062 E F1 5.562<2e4e>C .562 <6f74652074686174207468657265>-5.562 F F2<6d757374>3.062 E F1 .562<6265 2061207370616365206265747765656e20746865206c657474657220604f2720616e6420 746865>3.062 F<6e616d65206f6620746865206f7074696f6e2e>102 683.4 Q <416e206f6c6465722076>5 E<657273696f6e2069733a>-.15 E F0<4f>142 699.6 Q F2 1.666<6f76>C<616c7565>-1.666 E F1 .13 <776865726520746865206f7074696f6e>102 715.8 R F2<6f>2.63 E F1 .13 <697320612073696e676c6520636861726163746572>2.63 F 5.13<2e44>-.55 G .13 <6570656e64696e67206f6e20746865206f7074696f6e2c>-5.13 F F2<76616c7565> 2.63 E F1 .13<6d6179206265206120737472696e672c20616e20696e7465>2.63 F <676572>-.15 E<2c>-.4 E 0 Cg EP %%Page: 64 60 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d36342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 2.5<6162>102 96 S <6f6f6c65616e202877697468206c65>-2.5 E -.05<6761>-.15 G 2.5<6c76>.05 G< 616c7565732099749a2c2099549a2c2099669a2c206f722099469a3b2074686520646566> -2.75 E<61756c74206973205452>-.1 E <5545292c206f7220612074696d6520696e74657276>-.4 E<616c2e>-.25 E 1.164<41 6c6c208c6c656e616d6573207573656420696e206f7074696f6e732073686f756c642062 65206162736f6c7574652070617468732c20692e652e2c207374617274696e6720776974 6820272f272e>127 112.2 R<52656c617469>6.165 E 1.465 -.15<7665208c>-.25 H <6c652d>.15 E<6e616d6573206d6f7374206c696b>102 124.2 Q<656c792063617573 652073757270726973657320647572696e67206f7065726174696f6e2028756e6c657373 206f7468657277697365206e6f746564292e>-.1 E<546865206f7074696f6e73207375 70706f7274656420287769746820746865206f6c642c206f6e6520636861726163746572 206e616d657320696e20627261636b>127 140.4 Q<65747329206172653a>-.1 E <416c69617346696c653d>102 156.6 Q/F2 10/Times-Italic@0 SF <737065632c20737065632c202e2e2e>A F1 .183 <5b415d205370656369667920706f737369626c6520616c696173208c6c652873292e> 174 168.6 R<45616368>5.182 E F2<73706563>2.682 E F1 .182 <73686f756c6420626520696e2074686520666f726d61742060>2.682 F<60>-.74 E F2 <636c617373>A F0<3a>A F2<696e666f>2.682 E F1 -.74<2727>C<7768657265>174 180.6 Q F2<636c617373>3.03 E F0<3a>A F1 .531 <6973206f7074696f6e616c20616e6420646566>3.03 F .531 <61756c747320746f2060>-.1 F<60696d706c6963697427>-.74 E 3.031 <272e204e6f7465>-.74 F<74686174>3.031 E F2<696e666f>3.031 E F1 .531 <697320726571756972656420666f72>3.031 F<616c6c>174 192.6 Q F2 <636c617373>3.525 E F1 1.025<65732065>B 1.025 <786365707420996c6461709a2e>-.15 F -.15<466f>6.025 G 3.524<7274>.15 G 1.024<686520996c6461709a20636c6173732c206966>-3.524 F F2<696e666f>3.524 E F1 1.024<6973206e6f742073706563698c65642c206120646566>3.524 F <61756c74>-.1 E F2<696e666f>174 204.6 Q F1 -.25<7661>2.5 G <6c7565206973207573656420617320666f6c6c6f>.25 E<77733a>-.25 E 214 220.8 Q <41416c6961734f626a65637429>-.93 E<2873656e646d61696c4d54>226.5 232.8 Q <41416c6961734e616d653d616c696173657329>-.93 E <287c2873656e646d61696c4d54>226.5 244.8 Q -.4<4143>-.93 G <6c75737465723d247b73656e646d61696c4d54>.4 E -.4<4143>-.93 G <6c75737465727d29>.4 E<2873656e646d61696c4d54>231.5 256.8 Q <41486f73743d246a2929>-.93 E<2873656e646d61696c4d54>226.5 268.8 Q<414b> -.93 E -.15<6579>-.25 G<3d25302929>.15 E214 280.8 Q<41416c69617356>-.93 E<616c7565>-1.11 E 2.305 <446570656e64696e67206f6e20686f>174 297 R<77>-.25 E F2<73656e646d61696c> 4.805 E F1 2.305<697320636f6d70696c65642c2076>4.805 F 2.305 <616c696420636c6173736573206172652099696d706c696369749a2028736561726368> -.25 F 1.207<7468726f756768206120636f6d70696c65642d696e206c697374206f66 20616c696173208c6c652074797065732c20666f72206261636b20636f6d706174696269 6c697479292c2099686173689a20286966>174 309 R/F3 9/Times-Roman@0 SF <4e45574442>174 321 Q F1 .496 <69732073706563698c6564292c209962747265659a20286966>2.996 F F3 <4e45574442>2.996 E F1 .496 <69732073706563698c6564292c209964626d9a20286966>2.996 F F3<4e44424d> 2.996 E F1 .496<69732073706563692d>2.996 F 1.101 <8c6564292c20996364629a20286966>174 333 R F3<434442>3.601 E F1 1.1<6973 2073706563698c6564292c2099737461629a2028696e7465726e616c2073796d626f6c20 7461626c65208a206e6f74206e6f726d616c6c79>3.601 F 1.078 <7573656420756e6c65737320796f75206861>174 345 R 1.378 -.15<7665206e>-.2 H 3.578<6f6f>.15 G 1.079<74686572206461746162617365206c6f6f6b7570292c20 9973657175656e63659a202875736520612073657175656e6365206f66>-3.578 F .959 <6d61707320707265>174 357 R .959 <76696f75736c79206465636c61726564292c20996c6461709a20286966>-.25 F F3 <4c44>3.458 E<41504d4150>-.36 E F1 .958 <69732073706563698c6564292c206f7220996e69739a20286966>3.458 F F3<4e4953> 3.458 E F1<6973>3.458 E 2.5<73706563698c6564292e204966>174 369 R 2.5 <616c>2.5 G<697374206f66>-2.5 E F2<73706563>2.5 E F1 2.5<7361>C <72652070726f>-2.5 E<76696465642c>-.15 E F2<73656e646d61696c>2.5 E F1 <7365617263686573207468656d20696e206f72646572>2.5 E<2e>-.55 E <416c69617357>102 385.2 Q<6169743d>-.8 E F2<74696d656f7574>A F1 .14 <5b615d204966207365742c2077>174 397.2 R .14<61697420757020746f>-.1 F F2 <74696d656f7574>2.64 E F1 .141<28756e69747320646566>2.641 F .141<61756c 7420746f206d696e757465732920666f7220616e2099403a409a20656e74727920746f20 65>-.1 F<78697374>-.15 E .518<696e2074686520616c696173206461746162617365 206265666f7265207374617274696e672075702e>174 409.2 R .517 <496620697420646f6573206e6f742061707065617220696e20746865>5.517 F F2 <74696d656f7574>3.017 E F1<696e746572>3.017 E<2d>-.2 E -.25<7661>174 421.2 S 2.5<6c69>.25 G<7373756520612077>-2.5 E<61726e696e672e>-.1 E <416c6c6f>102 437.4 Q<77426f67757348454c4f>-.25 E .247 <4966207365742c20616c6c6f>174 449.4 R 2.747<7748>-.25 G .248 <454c4f20534d545020636f6d6d616e6473207468617420646f6e27>-2.747 F 2.748 <7469>-.18 G .248<6e636c756465206120686f7374206e616d652e>-2.748 F .248 <53657474696e672074686973>5.248 F 2.028 <76696f6c617465732052464320313132332073656374696f6e20352e322e352c2062> 174 461.4 R 2.027<7574206973206e656365737361727920746f20696e7465726f7065 726174652077697468207365>-.2 F -.15<7665>-.25 G<72616c>.15 E <534d545020636c69656e74732e>174 473.4 Q<496620746865726520697320612076>5 E<616c75652c206974206973207374696c6c20636865636b>-.25 E <656420666f72206c65>-.1 E<676974696d6163>-.15 E -.65<792e>-.15 G <417574684d6178426974733d>102 489.6 Q F2<4e>A F1 1.441<4c696d6974207468 65206d6178696d756d20656e6372797074696f6e20737472656e67746820666f72207468 65207365637572697479206c6179657220696e20534d54502041>5.24 F<555448>-.55 E 3.033<285341534c292e20446566>174 501.6 R 3.033 <61756c7420697320657373656e7469616c6c7920756e6c696d697465642e>-.1 F 3.033<5468697320616c6c6f>8.033 F 3.033<777320746f207475726e206f66>-.25 F 5.533<6661>-.25 G<64646974696f6e616c>-5.533 E 2.517 <656e6372797074696f6e20696e205341534c206966205354>174 513.6 R<4152>-.93 E 2.518<54544c5320697320616c726561647920656e6372797074696e67207468652063 6f6d6d756e69636174696f6e2c>-.6 F .911<62656361757365207468652065>174 525.6 R .911 <78697374696e6720656e6372797074696f6e20737472656e6774682069732074616b> -.15 F .911 <656e20696e746f206163636f756e74207768656e2063686f6f73696e6720616e>-.1 F .228<616c676f726974686d20666f7220746865207365637572697479206c61796572> 174 537.6 R 5.228<2e46>-.55 G .228<6f722065>-5.378 F .228 <78616d706c652c206966205354>-.15 F<4152>-.93 E .229 <54544c53206973207573656420616e64207468652073796d2d>-.6 F 1 <6d65747269632063697068657220697320334445532c207468656e20746865206b>174 549.6 R -.15<6579>-.1 G 1 <6c656e6774682028696e206269747329206973203136382e>.15 F 1 <48656e63652073657474696e67>6 F F0 -.5<4175>3.5 G<74682d>.5 E <4d617842697473>174 561.6 Q F1 <746f203136382077696c6c2064697361626c6520616e>2.5 E 2.5<7965>-.15 G <6e6372797074696f6e20696e205341534c2e>-2.5 E -1.05 <417574684d656368616e69736d73204c697374>102 577.8 R .987 <6f662061757468656e7469636174696f6e206d656368616e69736d7320666f722041> 3.487 F .987<555448202873657061726174656420627920737061636573292e>-.55 F .987<54686520616476>5.987 F<6572>-.15 E<2d>-.2 E .492<7469736564206c6973 74206f662061757468656e7469636174696f6e206d656368616e69736d732077696c6c20 62652074686520696e74657273656374696f6e206f662074686973206c69737420616e64 20746865>174 589.8 R .02<6c697374206f662061>174 601.8 R -.25<7661>-.2 G .021<696c61626c65206d656368616e69736d732061732064657465726d696e65642062 7920746865204379727573205341534c206c696272617279>.25 F 5.021<2e49>-.65 G 2.521<6653>-5.021 G -.93<5441>-2.521 G -.6<5254>.93 G<2d>-.32 E 1.088 <544c532069732061637469>174 613.8 R -.15<7665>-.25 G 3.588<2c45>.15 G <585445524e>-3.588 E 1.087 <414c2077696c6c20626520616464656420746f2074686973206c6973742e>-.35 F 1.087<496e207468617420636173652c207468652076>6.087 F 1.087 <616c7565206f66>-.25 F<7b636572745f7375626a6563747d20697320757365642061 732061757468656e7469636174696f6e2069642e>174 625.8 Q 17.83 <417574684f7074696f6e73204c697374>102 642 R .697 <6f66206f7074696f6e7320666f7220534d54502041>3.197 F .697<55544820636f6e 73697374696e67206f662073696e676c652063686172616374657273207769746820696e 74657276>-.55 F<656e696e67>-.15 E <7768697465207370616365206f7220636f6d6d61732e>174 654 Q 0 Cg EP %%Page: 65 61 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3635>195.86 E /F1 10/Times-Roman@0 SF 12.78<4155>214 96 S<7365207468652041>-12.78 E <5554483d20706172616d6574657220666f7220746865204d41494c>-.55 E<636f6d6d 616e64206f6e6c79207768656e2061757468656e7469636174696f6e2073756363656564 65642e>234 108 Q<546869732063616e206265207573656420617320612077>234 120 Q<6f726b61726f756e6420666f722062726f6b>-.1 E<656e>-.1 E<4d54>234 132 Q< 4173207468617420646f206e6f7420696d706c656d656e7420524643203235353420636f 72726563746c79>-.93 E<2e>-.65 E 15.56<6170>214 144 S <726f74656374696f6e2066726f6d2061637469>-15.56 E .3 -.15<76652028>-.25 H <6e6f6e2d64696374696f6e617279292061747461636b73>.15 E <647572696e672061757468656e7469636174696f6e2065>234 156 Q <786368616e67652e>-.15 E 15.56<6372>214 168 S<657175697265206d656368616e 69736d73207768696368207061737320636c69656e742063726564656e7469616c732c> -15.56 E<616e6420616c6c6f>234 180 Q 2.5<776d>-.25 G<656368616e69736d7320 77686963682063616e20706173732063726564656e7469616c73>-2.5 E <746f20646f20736f2e>234 192 Q 15<6464>214 204 S<6f6e27>-15 E 2.5<7470> -.18 G<65726d6974206d656368616e69736d73207375736365707469626c6520746f20 7061737369>-2.5 E -.15<7665>-.25 G<64696374696f6e6172792061747461636b2e> 234 216 Q 16.67<6672>214 228 S<65717569726520666f7277>-16.67 E <61726420736563726563>-.1 E 2.5<7962>-.15 G <65747765656e2073657373696f6e73>-2.5 E<28627265616b696e67206f6e652077> 234 240 Q<6f6e27>-.1 E 2.5<7468>-.18 G<656c7020627265616b206e65>-2.5 E <7874292e>-.15 E 12.22<6d72>214 252 S <657175697265206d656368616e69736d732077686963682070726f>-12.22 E <76696465206d757475616c2061757468656e7469636174696f6e>-.15 E <286f6e6c792061>234 264 Q -.25<7661>-.2 G<696c61626c65206966207573696e67 204379727573205341534c207632206f72206c61746572292e>.25 E 15<7064>214 276 S<6f6e27>-15 E 2.5<7470>-.18 G<65726d6974206d656368616e69736d7320737573 6365707469626c6520746f2073696d706c65>-2.5 E<7061737369>234 288 Q .3 -.15 <76652061>-.25 H<747461636b2028652e672e2c20504c41494e2c204c4f47494e292c 20756e6c6573732061>.15 E<7365637572697479206c617965722069732061637469> 234 300 Q -.15<7665>-.25 G<2e>.15 E 15<7964>214 312 S<6f6e27>-15 E 2.5 <7470>-.18 G<65726d6974206d656368616e69736d73207468617420616c6c6f>-2.5 E 2.5<7761>-.25 G<6e6f6e>-2.5 E<796d6f7573206c6f67696e2e>-.15 E<546865208c 727374206f7074696f6e206170706c69657320746f2073656e646d61696c206173206120 636c69656e742c20746865206f746865727320746f20612073657276>174 328.2 Q <6572>-.15 E 5<2e45>-.55 G<78616d706c653a>-5 E 2.5<4f41>214 344.4 S <7574684f7074696f6e733d702c79>-2.5 E -.1<776f>174 360.6 S 1.347 <756c6420646973616c6c6f>.1 F 3.847<7741>-.25 G 1.347 <4e4f4e594d4f55532061732041>-3.847 F 1.347 <555448206d656368616e69736d20616e642077>-.55 F 1.346<6f756c6420616c6c6f> -.1 F 3.846<7750>-.25 G<4c41494e>-3.846 E 1.788<616e64204c4f47494e206f6e 6c792069662061207365637572697479206c617965722028652e672e2c2070726f>174 372.6 R 1.789<7669646564206279205354>-.15 F<4152>-.93 E 1.789 <54544c532920697320616c7265616479>-.6 F<61637469>174 384.6 Q -.15<7665> -.25 G 5.364<2e54>.15 G .364 <6865206f7074696f6e73202761272c202763272c2027>-5.364 F .364 <64272c202766>-.5 F .364<272c202770272c20616e64202779272072656665722074 6f2070726f70657274696573206f66207468652073656c6563746564>.55 F 1.089 <5341534c206d656368616e69736d732e>174 396.6 R 1.089<4578706c616e6174696f 6e73206f662074686573652070726f706572746965732063616e20626520666f756e6420 696e20746865204379727573>6.089 F<5341534c20646f63756d656e746174696f6e2e> 174 408.6 Q 23.39<417574685265616c6d20546865>102 424.8 R .446<6175746865 6e7469636174696f6e207265616c6d20746861742069732070617373656420746f207468 65204379727573205341534c206c696272617279>2.946 F 5.445<2e49>-.65 G 2.945 <666e>-5.445 G 2.945<6f72>-2.945 G .445<65616c6d206973>-2.945 F <73706563698c65642c>174 436.8 Q F0<246a>2.5 E F1<697320757365642e>2.5 E <53656520616c736f204b4e4f>5 E<574e42>-.35 E<5547532e>-.1 E <426164526370745468726f74746c653d>102 453 Q/F2 10/Times-Italic@0 SF<4e>A F1 1.163<49662073657420616e64207468652073706563698c6564206e756d62657220 6f6620726563697069656e747320696e20612073696e676c6520534d5450207472616e73 616374696f6e206861>174 465 R -.15<7665>-.2 G .353<6265656e2072656a656374 65642c20736c65657020666f72206f6e65207365636f6e64206166746572206561636820 73756273657175656e74205243505420636f6d6d616e6420696e2074686174>174 477 R <7472616e73616374696f6e2e>174 489 Q<426c616e6b5375623d>102 505.2 Q F2 <63>A F1 1.255<5b425d205365742074686520626c616e6b2073756273746974757469 6f6e2063686172616374657220746f>22.47 F F2<63>3.755 E F1 6.255<2e55>C 1.255<6e71756f7465642073706163657320696e2061646472657373657320617265> -6.255 F<7265706c61636564206279207468697320636861726163746572>174 517.2 Q 5<2e44>-.55 G<6566>-5 E<61756c747320746f2073706163652028692e652e2c206e 6f206368616e6765206973206d616465292e>-.1 E<4341>102 533.4 Q<4365727450> -.4 E 21.16<6174682050>-.15 F .901<61746820746f206469726563746f72792077 6974682063657274698c6361746573206f66204341732e>-.15 F .901<546869732064 69726563746f7279206469726563746f7279206d75737420636f6e7461696e>5.901 F< 74686520686173686573206f6620656163682043412063657274698c6361746520617320 8c6c656e616d657320286f72206173206c696e6b7320746f207468656d292e>174 545.4 Q<4341>102 561.6 Q 23.23<4365727446696c652046696c65>-.4 F 1.683<636f6e74 61696e696e67206f6e65206f72206d6f72652043412063657274698c63617465733b2073 65652073656374696f6e2061626f7574205354>4.182 F<4152>-.93 E 1.683 <54544c5320666f72>-.6 F<6d6f726520696e666f726d6174696f6e2e>174 573.6 Q <4365727446696e6765727072696e74416c676f726974686d>102 589.8 Q 1.949<5370 656369667920746865208c6e6765727072696e7420616c676f726974686d202864696765 73742920746f2075736520666f72207468652070726573656e74656420636572742e>174 601.8 R 1.949<496620746865>6.949 F .109<6f7074696f6e206973206e6f74207365 742c206d6435206973207573656420616e6420746865206d6163726f>174 613.8 R F0 <247b636572745f6d64357d>2.609 E F1 .11 <636f6e7461696e73207468652063657274208c6e676572>2.61 F<2d>-.2 E 2.553 <7072696e742e204966>174 625.8 R .052<746865206f7074696f6e2069732065> 2.553 F .052<78706c696369746c79207365742c207468652073706563698c65642061 6c676f726974686d2028652e672e2c207368613129206973207573656420616e64>-.15 F<746865206d6163726f>174 637.8 Q F0<247b636572745f66707d>2.5 E F1 <636f6e7461696e73207468652063657274208c6e6765727072696e742e>2.5 E 26.72 <4369706865724c6973742053706563696679>102 654 R 1.06 <636970686572206c69737420666f72205354>3.56 F<4152>-.93 E 1.06 <54544c532028646f6573206e6f74206170706c7920746f20544c5376312e33292e>-.6 F<536565>6.06 E F2<636970686572>3.56 E<73>-.1 E F1<283129>A <666f7220706f737369626c652076>174 666 Q<616c7565732e>-.25 E 14.51 <436865636b416c6961736573205b6e5d>102 682.2 R -1.11<5661>2.5 G <6c69646174652074686520524853206f6620616c6961736573207768656e20726562> 1.11 E<75696c64696e672074686520616c6961732064617461626173652e>-.2 E <436865636b706f696e74496e74657276>102 698.4 Q<616c3d>-.25 E F2<4e>A F1 1.297<5b435d20436865636b706f696e7473207468652071756575652065>174 710.4 R -.15<7665>-.25 G<7279>.15 E F2<4e>3.797 E F1<28646566>3.797 E 1.297 <61756c7420313029206164647265737365732073656e742e>-.1 F 1.296 <496620796f75722073797374656d>6.296 F .746 <6372617368657320647572696e672064656c69>174 722.4 R -.15<7665>-.25 G .746<727920746f2061206c6172>.15 F .746 <6765206c6973742c207468697320707265>-.18 F -.15<7665>-.25 G .746 <6e74732072657472616e736d697373696f6e20746f20616e>.15 F 3.247<7962>-.15 G .747<757420746865>-3.447 F 0 Cg EP %%Page: 66 62 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d36362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<6c617374>174 96 Q/F2 10/Times-Italic@0 SF<4e>2.5 E F1<726563697069656e74732e>2.5 E<436c61737346>102 112.2 Q<6163746f723d> -.15 E F2<66616374>A F1 1.625<5b7a5d2054686520696e64696361746564>4.29 F F2<66616374>4.124 E F1 1.624<6f72206973206d756c7469706c6965642062792074 6865206d65737361676520636c617373202864657465726d696e656420627920746865>B .718<507265636564656e63653a208c656c6420696e2074686520757365722068656164 657220616e6420746865>174 124.2 R F0<50>3.219 E F1 .719 <6c696e657320696e2074686520636f6e8c6775726174696f6e208c6c652920616e64> 3.219 F 2.638<737562747261637465642066726f6d20746865207072696f72697479> 174 136.2 R 7.637<2e54>-.65 G 2.637<6875732c206d657373616765732077697468 206120686967686572205072696f726974793a2077696c6c206265>-7.637 F -.1 <6661>174 148.2 S -.2<766f>-.1 G 2.5<7265642e20446566>.2 F <61756c747320746f20313830302e>-.1 E 12.27 <436c69656e744365727446696c652046696c65>102 164.4 R .452<636f6e7461696e 696e67207468652063657274698c63617465206f662074686520636c69656e742c20692e 652e2c20746869732063657274698c636174652069732075736564207768656e>2.952 F F2<73656e642d>2.953 E<6d61696c>174 176.4 Q F1 <6163747320617320636c69656e742028666f72205354>2.5 E<4152>-.93 E <54544c53292e>-.6 E<436c69656e744b>102 192.6 Q -.15<6579>-.25 G 13.23 <46696c652046696c65>.15 F .589<636f6e7461696e696e672074686520707269>3.09 F -.25<7661>-.25 G .589<7465206b>.25 F .889 -.15<65792062>-.1 H .589<65 6c6f6e67696e6720746f2074686520636c69656e742063657274698c636174652028666f 72205354>.15 F<4152>-.93 E<54544c53>-.6 E<6966>174 204.6 Q F2 <73656e646d61696c>2.5 E F1<72756e7320617320636c69656e74292e>2.5 E <436c69656e74506f72744f7074696f6e733d>102 220.8 Q F2<6f7074696f6e73>A F1 .487<53657420636c69656e7420534d5450206f7074696f6e732e>174 232.8 R .487 <546865206f7074696f6e7320617265>5.487 F F2 -.1<6b65>2.987 G <793d76616c7565>-.2 E F1 .488 <70616972732073657061726174656420627920636f6d6d61732e>2.987 F<4b6e6f>174 244.8 Q<776e206b>-.25 E -.15<6579>-.1 G 2.5<7361>.15 G<72653a>-2.5 E 52.83<506f7274204e616d652f6e756d626572>214 261 R <6f6620736f7572636520706f727420666f7220636f6e6e656374696f6e2028646566> 2.5 E<61756c747320746f20616e>-.1 E 2.5<7966>-.15 G<72656520706f727429> -2.5 E 48.95<416464722041646472657373>214 273 R<6d61736b2028646566>2.5 E <61756c747320494e>-.1 E<414444525f414e5929>-.35 E -.15<4661>214 285 S 41.31<6d696c792041646472657373>.15 F -.1<6661>2.5 G<6d696c792028646566> .1 E<61756c747320746f20494e455429>-.1 E 21.72 <536e6442756653697a652053697a65>214 297 R<6f66205443502073656e642062>2.5 E<7566>-.2 E<666572>-.25 E 21.17<52637642756653697a652053697a65>214 309 R<6f6620544350207265636569>2.5 E .3 -.15<76652062>-.25 H<7566>-.05 E <666572>-.25 E 34.5<4d6f64698c6572204f7074696f6e73>214 321 R <288d6167732920666f722074686520636c69656e74>2.5 E<546865>174 337.2 Q F2 <41646472>3.257 E F1 .756<657373206d61736b206d61792062652061206e756d6572 6963206164647265737320696e204950763420646f74206e6f746174696f6e206f722049 50763620636f6c6f6e>B 1.148<6e6f746174696f6e206f722061206e657477>174 349.2 R 1.148<6f726b206e616d652e>-.1 F 1.149 <4e6f746520746861742069662061206e657477>6.148 F 1.149 <6f726b206e616d652069732073706563698c65642c206f6e6c7920746865>-.1 F .383 <8c72737420495020616464726573732072657475726e656420666f722069742077696c 6c20626520757365642e>174 361.2 R .383 <54686973206d617920636175736520696e64657465726d696e6174652062656861> 5.383 F<762d>-.2 E 1.485<696f7220666f72206e657477>174 373.2 R 1.485 <6f726b206e616d65732074686174207265736f6c76>-.1 F 3.985<6574>-.15 G 3.985<6f6d>-3.985 G 1.485<756c7469706c65206164647265737365732e>-3.985 F 1.485<5468657265666f72652c20757365206f6620616e>6.485 F <61646472657373206973207265636f6d6d656e6465642e>174 385.2 Q F2 <4d6f64698c6572>5 E F1<63616e2062652074686520666f6c6c6f>2.5 E <77696e67206368617261637465723a>-.25 E 67<6875>214 401.4 S <7365206e616d65206f6620696e74657266>-67 E <61636520666f722048454c4f20636f6d6d616e64>-.1 E 64.78<4164>214 413.4 S <6f6e27>-64.78 E 2.5<7475>-.18 G<73652041>-2.5 E <555448207768656e2073656e64696e6720652d6d61696c>-.55 E 66.44<5364>214 425.4 S<6f6e27>-66.44 E 2.5<7475>-.18 G<7365205354>-2.5 E<4152>-.93 E <54544c53207768656e2073656e64696e6720652d6d61696c>-.6 E .764<49662060> 174 441.6 R<606827>-.74 E 3.264<2769>-.74 G 3.264<7373>-3.264 G .763<65 742c20746865206e616d6520636f72726573706f6e64696e6720746f20746865206f7574 676f696e6720696e74657266>-3.264 F .763 <6163652061646472657373202877686574686572>-.1 F .431<63686f73656e207669 612074686520436f6e6e656374696f6e20706172616d65746572206f7220746865206465 66>174 453.6 R .431 <61756c7429206973207573656420666f72207468652048454c4f2f45484c4f>-.1 F 3.618<636f6d6d616e642e20486f>174 465.6 R<7765>-.25 E -.15<7665>-.25 G 1.918 -.4<722c2074>.15 H 1.118<6865206e616d65206d757374206e6f7420737461 7274207769746820612073717561726520627261636b>.4 F 1.117 <657420616e64206974206d757374>-.1 F 1.841 <636f6e7461696e206174206c65617374206f6e6520646f742e>174 477.6 R 1.842<54 68697320697320612073696d706c652074657374207768657468657220746865206e616d 65206973206e6f7420616e204950>6.842 F .713 <616464726573732028696e2073717561726520627261636b>174 489.6 R .713 <657473292062>-.1 F .713<75742061207175616c698c656420686f73746e616d652e> -.2 F .712<4e6f74652074686174206d756c7469706c6520436c69656e742d>5.713 F .343<506f72744f7074696f6e732073657474696e67732061726520616c6c6f>174 501.6 R .343<77656420696e206f7264657220746f206769>-.25 F .643 -.15 <76652073>-.25 H .344 <657474696e677320666f7220656163682070726f746f636f6c2066>.15 F <616d696c79>-.1 E .316<28652e672e2c206f6e6520666f722046>174 513.6 R .316 <616d696c793d696e657420616e64206f6e6520666f722046>-.15 F 2.816 <616d696c793d696e657436292e2041>-.15 F .315 <7265737472696374696f6e20706c61636564206f6e206f6e65>2.816 F -.1<6661>174 525.6 S<6d696c79206f6e6c79206166>.1 E<6665637473206f7574676f696e6720636f 6e6e656374696f6e73206f6e207468617420706172746963756c61722066>-.25 E <616d696c79>-.1 E<2e>-.65 E<436c69656e7453534c4f7074696f6e73>102 541.8 Q 3.495<4173>174 553.8 S .996<70616365206f7220636f6d6d61207365706172617465 64206c697374206f662053534c2072656c61746564206f7074696f6e7320666f72207468 6520636c69656e7420736964652e>-3.495 F<536565>5.996 E F2 <53534c5f4354585f7365745f6f7074696f6e73>174 565.8 Q F1 .961 <28332920666f722061206c6973743b207468652061>B -.25<7661>-.2 G .961 <696c61626c652076>.25 F .961 <616c75657320646570656e64206f6e20746865204f70656e53534c>-.25 F -.15 <7665>174 577.8 S 5.628<7273696f6e206167>.15 F 5.628 <61696e7374207768696368>-.05 F F2<73656e646d61696c>8.129 E F1 5.629 <697320636f6d70696c65642e>8.129 F 5.629<427920646566>10.629 F <61756c742c>-.1 E F2<53534c5f4f505f414c4c>8.129 E 3.91<53534c5f4f505f4e 4f5f53534c76322053534c5f4f505f4e4f5f5449434b4554202d53534c5f4f505f544c53 4558545f50>174 589.8 R<414444494e47>-.9 E F1<617265>6.41 E 1.016 <75736564202869662074686f7365206f7074696f6e73206172652061>174 601.8 R -.25<7661>-.2 G 3.516<696c61626c65292e204f7074696f6e73>.25 F 1.016 <63616e20626520636c656172656420627920707265636564696e67207468656d>3.516 F<776974682061206d696e7573207369676e2e>174 613.8 Q<497420697320616c736f 20706f737369626c6520746f2073706563696679206e756d65726963616c2076>5 E <616c7565732c20652e672e2c>-.25 E F0<2d307830303130>2.5 E F1<2e>A 3.95 <436f6c6f6e4f6b496e41646472204966>102 630 R 1.743<7365742c20636f6c6f6e73 206172652061636365707461626c6520696e20652d6d61696c2061646472657373657320 28652e672e2c2099686f73743a757365729a292e>4.244 F 1.743 <4966206e6f74207365742c>6.743 F .648 <636f6c6f6e7320696e64696361746520746865206265>174 642 R .648<67696e6e69 6e67206f66206120524643203832322067726f757020636f6e7374727563742028996772 6f75706e616d653a206d656d2d>-.15 F 1.206 <626572312c206d656d626572322c202e2e2e206d656d6265724e3b9a292e>174 654 R 1.205<446f75626c656420636f6c6f6e732061726520616c>6.206 F -.1<7761>-.1 G 1.205<79732061636365707461626c652028996e6f64652d>.1 F 16.86<6e616d653a3a 757365729a2920616e642070726f70657220726f7574652d61646472206e657374696e67 20697320756e64657273746f6f64>174 666 R 3.772<28993c4072656c61793a757365 7240686f73743e9a292e20467572746865726d6f72652c>174 678 R 1.271 <74686973206f7074696f6e20646566>3.772 F 1.271 <61756c7473206f6e2069662074686520636f6e8c677572612d>-.1 F .551 <74696f6e2076>174 690 R .551<657273696f6e206c65>-.15 F -.15<7665>-.25 G 3.051<6c69>.15 G 3.051<736c>-3.051 G .551<657373207468616e20362028666f72 206261636b20636f6d7061746962696c697479292e>-3.051 F<486f>5.552 E<7765> -.25 E -.15<7665>-.25 G 1.352 -.4<722c2069>.15 H 3.052<746d>.4 G .552 <757374206265206f66>-3.052 F<66>-.25 E<666f722066756c6c20636f6d70617469 62696c697479207769746820524643203832322e>174 702 Q 0 Cg EP %%Page: 67 63 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3637>195.86 E /F1 10/Times-Roman@0 SF<436f6e6e656374696f6e436163686553697a653d>102 96 Q/F2 10/Times-Italic@0 SF<4e>A F1 .242<5b6b5d20546865206d6178696d756d20 6e756d626572206f66206f70656e20636f6e6e656374696f6e7320746861742077696c6c 2062652063616368656420617420612074696d652e>174 108 R<546865>5.242 E <646566>174 120 Q .385<61756c74206973206f6e652e>-.1 F .386<546869732064 656c61797320636c6f73696e67207468652063757272656e7420636f6e6e656374696f6e 20756e74696c20656974686572207468697320696e>5.386 F -.2<766f>-.4 G <63612d>.2 E 1.192<74696f6e206f66>174 132 R F2<73656e646d61696c>3.692 E F1 1.191<6e6565647320746f20636f6e6e65637420746f20616e6f7468657220686f73 74206f72206974207465726d696e617465732e>3.692 F 1.191 <53657474696e6720697420746f>6.191 F 2.046<7a65726f20646566>174 144 R 2.046<61756c747320746f20746865206f6c642062656861>-.1 F<76696f72>-.2 E 4.546<2c74>-.4 G 2.047<6861742069732c20636f6e6e656374696f6e732061726520 636c6f73656420696d6d6564696174656c79>-4.546 F<2e>-.65 E .266<53696e6365 207468697320636f6e73756d6573208c6c652064657363726970746f72732c2074686520 636f6e6e656374696f6e2063616368652073686f756c64206265206b>174 156 R .265 <65707420736d616c6c3a2034>-.1 F <69732070726f6261626c7920612070726163746963616c206d6178696d756d2e>174 168 Q<436f6e6e656374696f6e436163686554>102 184.2 Q<696d656f75743d>-.35 E F2<74696d656f7574>A F1 .708<5b4b5d20546865206d6178696d756d20616d6f756e74 206f662074696d6520612063616368656420636f6e6e656374696f6e2077696c6c206265 207065726d697474656420746f2069646c65>174 196.2 R 1.083 <776974686f75742061637469>174 208.2 R<76697479>-.25 E 6.083<2e49>-.65 G 3.583<6674>-6.083 G 1.083<6869732074696d652069732065>-3.583 F 1.082<7863 65656465642c2074686520636f6e6e656374696f6e20697320696d6d6564696174656c79 20636c6f7365642e>-.15 F .417<546869732076>174 220.2 R .418<616c75652073 686f756c6420626520736d616c6c20286f6e20746865206f72646572206f662074656e20 6d696e75746573292e>-.25 F<4265666f7265>5.418 E F2<73656e646d61696c>2.918 E F1 .418<757365732061>2.918 F .508 <63616368656420636f6e6e656374696f6e2c20697420616c>174 232.2 R -.1<7761> -.1 G .507<79732073656e64732061205253455420636f6d6d616e6420746f20636865 636b2074686520636f6e6e656374696f6e3b206966>.1 F .401<746869732066>174 244.2 R .401 <61696c732c2069742072656f70656e732074686520636f6e6e656374696f6e2e>-.1 F .401<54686973206b>5.401 F .402<6565707320796f757220656e642066726f6d2066> -.1 F .402<61696c696e6720696620746865206f74686572>-.1 F 1.545 <656e642074696d6573206f75742e>174 256.2 R 1.545<54686520706f696e74206f66 2074686973206f7074696f6e20697320746f206265206120676f6f64206e657477>6.545 F 1.544<6f726b206e65696768626f7220616e64>-.1 F -.2<61766f>174 268.2 S <6964207573696e672075702065>.2 E<786365737369>-.15 E .3 -.15<76652072> -.25 H<65736f7572636573206f6e20746865206f7468657220656e642e>.15 E <54686520646566>5 E<61756c74206973208c76>-.1 E 2.5<656d>-.15 G <696e757465732e>-2.5 E<436f6e6e6563744f6e6c7954>102 284.4 Q<6f3d>-.8 E F2<61646472>A<657373>-.37 E F1 <546869732063616e206265207573656420746f206f>174 296.4 Q -.15<7665>-.15 G <72726964652074686520636f6e6e656374696f6e20616464726573732028666f722074 657374696e6720707572706f736573292e>.15 E <436f6e6e656374696f6e526174655468726f74746c653d>102 312.6 Q F2<4e>A F1 .006<49662073657420746f206120706f73697469>174 324.6 R .307 -.15 <76652076>-.25 H .007<616c75652c20616c6c6f>-.1 F 2.507<776e>-.25 G 2.507 <6f6d>-2.507 G .007<6f7265207468616e>-2.507 F F2<4e>2.507 E F1 .007 <696e636f6d696e6720636f6e6e656374696f6e7320696e2061206f6e65207365632d> 2.507 F .854<6f6e6420706572696f6420706572206461656d6f6e2e>174 336.6 R .854<5468697320697320696e74656e64656420746f208d617474656e206f7574207065 616b7320616e6420616c6c6f>5.854 F 3.353<7774>-.25 G .853<6865206c6f6164> -3.353 F -2.25 -.2<61762065>174 348.6 T <7261676520636865636b696e6720746f2063757420696e2e>.2 E<446566>5 E <61756c747320746f207a65726f20286e6f206c696d697473292e>-.1 E <436f6e6e656374696f6e5261746557>102 364.8 Q<696e646f>-.4 E<7753697a653d> -.25 E F2<4e>A F1 .257 <44658c6e6520746865206c656e677468206f662074686520696e74657276>174 376.8 R .258<616c20666f7220776869636820746865206e756d626572206f6620696e636f6d 696e6720636f6e6e656374696f6e73206973>-.25 F 2.5 <6d61696e7461696e65642e20546865>174 388.8 R<646566>2.5 E <61756c74206973203630207365636f6e64732e>-.1 E<436f6e74726f6c536f636b>102 405 Q<65744e616d653d>-.1 E F2<6e616d65>A F1 1.202 <4e616d65206f662074686520636f6e74726f6c20736f636b>174 417 R 1.202 <657420666f72206461656d6f6e206d616e6167656d656e742e>-.1 F 3.702<4172> 6.202 G<756e6e696e67>-3.702 E F2<73656e646d61696c>3.701 E F1<6461652d> 3.701 E .204<6d6f6e2063616e20626520636f6e74726f6c6c6564207468726f756768 2074686973206e616d656420736f636b>174 429 R 2.705<65742e2041>-.1 F -.25 <7661>-.74 G .205<696c61626c6520636f6d6d616e6473206172653a>.25 F F2 <68656c702c>2.705 E 2.177<6d737461742c2072>174 441 R 2.177 <6573746172742c2073687574646f776e2c>-.37 F F1<616e64>4.677 E F2 <7374617475732e>4.677 E F1<546865>7.177 E F2<737461747573>4.677 E F1 2.177<636f6d6d616e642072657475726e73207468652063757272656e74>4.677 F .94 <6e756d626572206f66206461656d6f6e206368696c6472656e2c20746865206d617869 6d756d206e756d626572206f66206461656d6f6e206368696c6472656e2c207468652066 726565>174 453 R .296<6469736b2073706163652028696e20626c6f636b7329206f66 20746865207175657565206469726563746f7279>174 465 R 2.796<2c61>-.65 G .296<6e6420746865206c6f61642061>-2.796 F -.15<7665>-.2 G .295 <72616765206f6620746865206d616368696e65>.15 F -.15<6578>174 477 S .084 <7072657373656420617320616e20696e7465>.15 F<676572>-.15 E 5.084<2e49> -.55 G 2.584<666e>-5.084 G .084 <6f74207365742c206e6f20636f6e74726f6c20736f636b>-2.584 F .085 <65742077696c6c2062652061>-.1 F -.25<7661>-.2 G 2.585 <696c61626c652e20536f6c61726973>.25 F<616e64>2.585 E <7072652d342e34425344206b>174 489 Q<65726e656c2075736572732073686f756c64 2073656520746865206e6f746520696e2073656e646d61696c2f524541444d45202e>-.1 E<43524c46696c653d>102 505.2 Q F2<6e616d65>A F1 .173<4e616d65206f66208c 6c65207468617420636f6e7461696e732063657274698c63617465207265>9.69 F -.2 <766f>-.25 G .172<636174696f6e207374617475732c2075736566756c20666f722058 2e35303976332061757468656e2d>.2 F 3.7<7469636174696f6e2e204e6f74653a>174 517.2 R 1.201<696620612043524c46696c652069732073706563698c65642062>3.7 F 1.201<757420746865208c6c6520697320756e757361626c652c205354>-.2 F<4152> -.93 E 1.201<54544c53206973>-.6 F<64697361626c65642e>174 529.2 Q <43524c50>102 545.4 Q<6174683d>-.15 E F2<6e616d65>A F1 1.661<4e616d6520 6f66206469726563746f7279207468617420636f6e7461696e732068617368657320706f 696e74696e6720746f2063657274698c63617465207265>7.62 F -.2<766f>-.25 G 1.661<636174696f6e20737461747573>.2 F 4.529 <8c6c65732e2053796d626f6c6963>174 557.4 R 2.029<6c696e6b732063616e206265 2067656e65726174656420776974682074686520666f6c6c6f>4.529 F 2.029 <77696e67207477>-.25 F 4.529<6f28>-.1 G 2.03<426f75726e6529207368656c6c> -4.529 F<636f6d6d616e64733a>174 569.4 Q <433d46696c654e616d655f6f665f43524c>214 585.6 Q<6c6e202d7320244320606f70 656e73736c2063726c202d6e6f6f7574202d68617368203c202443602e7230>214 597.6 Q<444850>102 618 Q 10.78<6172616d65746572732054686973>-.15 F <6f7074696f6e206170706c69657320746f207468652073657276>2.5 E <65722073696465206f6e6c79>-.15 E 5<2e50>-.65 G<6f737369626c652076>-5 E <616c756573206172653a>-.25 E 139<3575>214 634.2 S <736520707265636f6d70757465642035313220626974207072696d652e>-139 E 139 <3167>214 646.2 S<656e6572617465203130323420626974207072696d65>-139 E 139<3267>214 658.2 S<656e6572617465203230343820626974207072696d652e>-139 E 141.22<6975>214 670.2 S<736520696e636c7564656420707265636f6d7075746564 203230343820626974207072696d652028646566>-141.22 E<61756c74292e>-.1 E 122.06<6e6f6e6520646f>214 682.2 R<6e6f742075736520446966>2.5 E <8c652d48656c6c6d616e2e>-.25 E 95.38<2f706174682f746f2f8c6c65206c6f6164> 214 694.2 R<7072696d652066726f6d208c6c652e>2.5 E .63<54686973206973206f 6e6c79207265717569726564206966206120636970686572737569746520636f6e746169 6e696e67204453412f444820697320757365642e>174 710.4 R .63<54686520646566> 5.63 F .63<61756c74206973>-.1 F -.74<6060>174 722.4 S<6927>.74 E 3.406 <2777>-.74 G .907 <686963682073656c65637473206120707265636f6d70757465642c208c78>-3.406 F .907<6564203230343820626974207072696d652e>-.15 F .907<49662060>5.907 F <603527>-.74 E 3.407<2769>-.74 G 3.407<7373>-3.407 G .907 <656c65637465642c207468656e>-3.407 F 0 Cg EP %%Page: 68 64 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d36382053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF .409<707265636f6d70757465642c208c78>174 96 R .409<6564207072696d65732061726520757365642e>-.15 F .408<4e6f74653a207468 6973206f7074696f6e2073686f756c64206e6f7420626520757365642028756e6c657373> 5.408 F .274<6e656365737361727920666f7220636f6d7061746962696c6974792077 697468206f6c6420696d706c656d656e746174696f6e73292e>174 108 R .275 <49662060>5.275 F<603127>-.74 E 2.775<276f>-.74 G 2.775<7260>-2.775 G <603227>-3.515 E 2.775<2769>-.74 G 2.775<7373>-2.775 G<656c65637465642c> -2.775 E 1.238<7468656e207072696d652076>174 120 R 1.238 <616c7565732061726520636f6d707574656420647572696e6720737461727475702e> -.25 F 1.237<4e6f74653a2074686973206f7065726174696f6e2063616e2074616b> 6.237 F 3.737<6561>-.1 G 1.648 <7369676e698c63616e7420616d6f756e74206f662074696d65206f6e206120736c6f> 174 132 R 4.148<776d>-.25 G 1.649<616368696e6520287365>-4.148 F -.15 <7665>-.25 G 1.649<72616c207365636f6e6473292c2062>.15 F 1.649 <7574206974206973206f6e6c79>-.2 F 1.858 <646f6e65206f6e636520617420737461727475702e>174 144 R 1.857<49662060> 6.857 F<606e6f6e6527>-.74 E 4.357<2769>-.74 G 4.357<7373>-4.357 G 1.857< 656c65637465642c207468656e20544c532063697068657273756974657320636f6e7461 696e696e67>-4.357 F .797<4453412f44482063616e6e6f7420626520757365642e> 174 156 R .797<49662061208c6c65206e616d652069732073706563698c6564202877 68696368206d75737420626520616e206162736f6c757465>5.797 F .45<7061746829 2c207468656e20746865207072696d65732061726520726561642066726f6d2069742e> 174 168 R .449<4974206973207265636f6d6d656e64656420746f2067656e65726174 6520737563682061208c6c65>5.449 F<7573696e67206120636f6d6d616e64206c696b> 174 180 Q 2.5<6574>-.1 G<6869733a>-2.5 E<6f70656e73736c206468706172616d 202d6f7574202f6574632f6d61696c2f6468706172616d732e70656d2032303438>358 196.2 Q .054<496620746865208c6c65206973206e6f74207265616461626c65206f72 20636f6e7461696e7320756e757361626c6520646174612c2074686520646566>174 212.4 R .054<61756c742060>-.1 F<606927>-.74 E 2.554<2769>-.74 G 2.554 <7375>-2.554 G .054<73656420696e73746561642e>-2.554 F <4461656d6f6e506f72744f7074696f6e733d>102 228.6 Q/F2 10/Times-Italic@0 SF<6f7074696f6e73>A F1 .364<5b4f5d205365742073657276>174 240.6 R .364 <657220534d5450206f7074696f6e732e>-.15 F .364 <4561636820696e7374616e6365206f66>5.364 F F0<4461656d6f6e50>2.863 E <6f72744f7074696f6e73>-.2 E F1 .363<6c6561647320746f20616e>2.863 F <6164646974696f6e616c20696e636f6d696e6720736f636b>174 252.6 Q 2.5 <65742e20546865>-.1 F<6f7074696f6e7320617265>2.5 E F2 -.1<6b65>2.5 G <793d76616c7565>-.2 E F1 2.5<70616972732e204b6e6f>2.5 F<776e206b>-.25 E -.15<6579>-.1 G 2.5<7361>.15 G<72653a>-2.5 E 45.62<4e616d652055736572> 214 268.8 R <2d64658c6e61626c65206e616d6520666f7220746865206461656d6f6e2028646566> -.2 E<61756c747320746f20224461656d6f6e232229>-.1 E 52.83 <506f7274204e616d652f6e756d626572>214 280.8 R <6f66206c697374656e696e6720706f72742028646566>2.5 E <61756c747320746f2022736d74702229>-.1 E 48.95<416464722041646472657373> 214 292.8 R<6d61736b2028646566>2.5 E<61756c747320494e>-.1 E <414444525f414e5929>-.35 E -.15<4661>214 304.8 S 41.31 <6d696c792041646472657373>.15 F -.1<6661>2.5 G<6d696c792028646566>.1 E <61756c747320746f20494e455429>-.1 E 3.94 <496e7075744d61696c46696c74657273204c697374>214 316.8 R <6f6620696e707574206d61696c208c6c7465727320666f7220746865206461656d6f6e> 2.5 E 44.5<4c697374656e2053697a65>214 328.8 R <6f66206c697374656e2071756575652028646566>2.5 E <61756c747320746f20313029>-.1 E 34.5<4d6f64698c6572204f7074696f6e73>214 340.8 R<288d6167732920666f7220746865206461656d6f6e>2.5 E 21.72 <536e6442756653697a652053697a65>214 352.8 R<6f66205443502073656e642062> 2.5 E<7566>-.2 E<666572>-.25 E 21.17<52637642756653697a652053697a65>214 364.8 R<6f6620544350207265636569>2.5 E .3 -.15<76652062>-.25 H<7566>-.05 E<666572>-.25 E 36.73<6368696c6472656e206d6178696d756d>214 376.8 R <6e756d626572206f66206368696c6472656e20706572206461656d6f6e2c20736565> 2.5 E F0<4d61784461656d6f6e4368696c6472>2.5 E<656e>-.18 E F1<2e>A <44656c69>214 388.8 Q -.15<7665>-.25 G 11.58<72794d6f64652044656c69>.15 F -.15<7665>-.25 G<7279206d6f646520706572206461656d6f6e2c20736565>.15 E F0<44656c69>2.5 E -.1<7665>-.1 G<72794d6f6465>.1 E F1<2e>A 31.74 <7265667573654c41205265667573654c41>214 400.8 R<706572206461656d6f6e>2.5 E 34.51<64656c61794c412044656c61794c41>214 412.8 R<706572206461656d6f6e> 2.5 E 32.29<71756575654c412051756575654c41>214 424.8 R <706572206461656d6f6e>2.5 E<546865>174 441 Q F2<4e616d65>2.68 E F1 -.1 <6b65>2.68 G 2.68<7969>-.05 G 2.68<7375>-2.68 G .181 <73656420666f72206572726f72206d6573736167657320616e64206c6f6767696e672e> -2.68 F<546865>5.181 E F2<41646472>2.681 E F1 .181 <657373206d61736b206d6179206265>B 2.59<616e>174 453 S .089<756d65726963 206164647265737320696e204950763420646f74206e6f746174696f6e206f7220495076 3620636f6c6f6e206e6f746174696f6e2c206f722061206e657477>-2.59 F .089 <6f726b206e616d652c>-.1 F .341 <6f722061207061746820746f2061206c6f63616c20736f636b>174 465 R 2.841 <65742e204e6f7465>-.1 F .341<746861742069662061206e657477>2.841 F .341 <6f726b206e616d652069732073706563698c65642c206f6e6c7920746865208c727374> -.1 F .085<495020616464726573732072657475726e656420666f722069742077696c 6c20626520757365642e>174 477 R .084 <54686973206d617920636175736520696e64657465726d696e6174652062656861> 5.085 F .084<76696f7220666f72>-.2 F<6e657477>174 489 Q .327 <6f726b206e616d65732074686174207265736f6c76>-.1 F 2.827<6574>-.15 G 2.827<6f6d>-2.827 G .327<756c7469706c65206164647265737365732e>-2.827 F .328<5468657265666f72652c20757365206f6620616e2061646472657373206973> 5.328 F 2.92<7265636f6d6d656e6465642e20546865>174 501 R F2 -.75<4661> 2.92 G<6d696c79>.75 E F1 -.1<6b65>2.92 G 2.92<7964>-.05 G<6566>-2.92 E .42<61756c747320746f20494e4554202849507634292e>-.1 F .42 <495076362075736572732077686f207769736820746f>5.42 F 1.611<616c736f2061 6363657074204950763620636f6e6e656374696f6e732073686f756c6420616464206164 646974696f6e616c2046>174 513 R<616d696c793d696e657436>-.15 E F0 <4461656d6f6e50>4.112 E<6f72>-.2 E<2d>-.37 E<744f7074696f6e73>174 525 Q F1 2.889<6c696e65732e2046>2.89 F .389<6f722061206c6f63616c20736f636b> -.15 F .389<65742c207573652046>-.1 F .389 <616d696c793d6c6f63616c206f722046>-.15 F 2.889 <616d696c793d756e69782e20546865>-.15 F F2<496e7075742d>2.889 E <4d61696c46>174 537 Q<696c746572>-.45 E<73>-.1 E F1 -.1<6b65>3.34 G 3.34 <796f>-.05 G -.15<7665>-3.49 G .84<7272696465732074686520646566>.15 F .84<61756c74206c697374206f6620696e707574206d61696c208c6c74657273206c6973 74656420696e20746865>-.1 F F0<496e7075742d>3.34 E <4d61696c46696c74657273>174 549 Q F1 2.955<6f7074696f6e2e204966>2.955 F .455<6d756c7469706c6520696e707574206d61696c208c6c7465727320617265207265 7175697265642c20746865>2.955 F 2.955<796d>-.15 G .455 <75737420626520736570612d>-2.955 F 2.064 <72617465642062792073656d69636f6c6f6e7320286e6f7420636f6d6d6173292e>174 561 R F2<4d6f64698c6572>7.064 E F1 2.065 <63616e20626520612073657175656e63652028776974686f757420616e>4.565 F<79> -.15 E<64656c696d697465727329206f662074686520666f6c6c6f>174 573 Q <77696e6720636861726163746572733a>-.25 E 67.56<6161>214 589.2 S -.1 <6c7761>-67.56 G<797320726571756972652041>.1 E<555448>-.55 E 67<6262>214 601.2 S<696e6420746f20696e74657266>-67 E<616365207468726f75676820776869 6368206d61696c20686173206265656e207265636569>-.1 E -.15<7665>-.25 G<64> .15 E 67.56<6370>214 613.2 S <6572666f726d20686f73746e616d652063616e6f6e698c636174696f6e20282e636629> -67.56 E 68.67<6672>214 625.2 S<6571756972652066756c6c79207175616c698c65 6420686f73746e616d6520282e636629>-68.67 E 68.11<7352>214 637.2 S <756e20736d7470732028534d5450206f>-68.11 E -.15<7665>-.15 G 2.5<7253>.15 G<534c2920696e7374656164206f6620736d7470>-2.5 E 67<7561>214 649.2 S <6c6c6f>-67 E 2.5<7775>-.25 G <6e7175616c698c65642061646472657373657320282e636629>-2.5 E 64.78<4164> 214 661.2 S<697361626c652041>-64.78 E<55544820286f>-.55 E -.15<7665>-.15 G<72726964657320276127206d6f64698c657229>.15 E 65.33<4364>214 673.2 S <6f6e27>-65.33 E 2.5<7470>-.18 G <6572666f726d20686f73746e616d652063616e6f6e698c636174696f6e>-2.5 E 65.89 <4564>214 685.2 S<6973616c6c6f>-65.89 E 2.5<7745>-.25 G <54524e202873656520524643203234373629>-2.5 E 64.78<4f6f>214 697.2 S <7074696f6e616c3b206966206f70656e696e672074686520736f636b>-64.78 E <65742066>-.1 E<61696c732069676e6f7265206974>-.1 E 66.44<5364>214 709.2 S<6f6e27>-66.44 E 2.5<746f>-.18 G -.25<6666>-2.5 G<6572205354>.25 E <4152>-.93 E<54544c53>-.6 E 2.413<546861742069732c206f6e652077>174 725.4 R 2.412<617920746f20737065636966792061206d657373616765207375626d69737369 6f6e206167656e7420284d534129207468617420616c>-.1 F -.1<7761>-.1 G<7973> .1 E 0 Cg EP %%Page: 69 65 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3639>195.86 E /F1 10/Times-Roman@0 SF<72657175697265732041>174 96 Q<5554482069733a> -.55 E 2.5<4f44>214 112.2 S<61656d6f6e506f72744f7074696f6e733d4e616d653d 4d53412c20506f72743d3538372c204d3d4561>-2.5 E .243 <546865206d6f64698c657273207468617420617265206d61726b>174 128.4 R .244 <656420776974682022282e63662922206861>-.1 F .544 -.15<7665206f>-.2 H .244<6e6c79206566>.15 F .244 <6665637420696e20746865207374616e6461726420636f6e8c672d>-.25 F .16 <75726174696f6e208c6c652c20696e20776869636820746865>174 140.4 R 2.66 <7961>-.15 G .16<72652061>-2.66 F -.25<7661>-.2 G .16 <696c61626c6520766961>.25 F F0<247b6461656d6f6e5f8d6167737d>2.66 E F1 5.16<2e4e>C .16<6f746963653a20446f>-5.16 F F0<6e6f74>2.66 E F1<757365> 2.66 E .46<7468652060>174 152.4 R<606127>-.74 E 2.96<276d>-.74 G .46 <6f64698c6572206f6e2061207075626c69632061636365737369626c65204d54>-2.96 F 2.961<4121204974>-.93 F .461 <73686f756c64206f6e6c79206265207573656420666f722061204d5341>2.961 F 2.553<7468617420697320616363657373656420627920617574686f72697a6564207573 65727320666f7220696e697469616c206d61696c207375626d697373696f6e2e>174 164.4 R 2.552<5573657273206d757374>7.552 F 1.141<61757468656e7469636174 6520746f207573652061204d5341207768696368206861732074686973206f7074696f6e 207475726e6564206f6e2e>174 176.4 R 1.141<546865208d6167732060>6.141 F <606327>-.74 E 3.641<2761>-.74 G<6e64>-3.641 E -.74<6060>174 188.4 S <4327>.74 E 3.786<2763>-.74 G 1.286<616e206368616e67652074686520646566> -3.786 F 1.285<61756c7420666f7220686f73746e616d652063616e6f6e698c636174 696f6e20696e20746865>-.1 F/F2 10/Times-Italic@0 SF <73656e646d61696c2e6366>3.785 E F1<8c6c652e>3.785 E .764 <536565207468652072656c65>174 200.4 R -.25<7661>-.25 G .765 <6e7420646f63756d656e746174696f6e20666f72>.25 F/F3 9/Times-Roman@0 SF <464541>3.265 E<54555245286e6f63616e6f6e69667929>-.999 E F1 5.765<2e54>C .765<6865206d6f64698c65722060>-5.765 F -1.95<60662027>-.74 F 3.265<2764> -.74 G<69732d>-3.265 E<616c6c6f>174 212.4 Q .795 <777320616464726573736573206f662074686520666f726d>-.25 F F0 <7573657240686f7374>3.295 E F1 .794<756e6c65737320746865>3.295 F 3.294 <7961>-.15 G .794<7265207375626d6974746564206469726563746c79>-3.294 F 5.794<2e54>-.65 G<6865>-5.794 E 2.127<8d61672060>174 224.4 R<607527>-.74 E 4.627<2761>-.74 G<6c6c6f>-4.627 E 2.127<777320756e7175616c698c65642073 656e646572206164647265737365732c20692e652e2c2074686f736520776974686f7574 2040686f73742e>-.25 F -.74<6060>7.127 G<6227>.74 E<27>-.74 E 2.791<666f 726365732073656e646d61696c20746f2062696e6420746f2074686520696e74657266> 174 236.4 R 2.791<616365207468726f7567682077686963682074686520652d6d6169 6c20686173206265656e>-.1 F<7265636569>174 248.4 Q -.15<7665>-.25 G 4.369 <6466>.15 G 1.869 <6f7220746865206f7574676f696e6720636f6e6e656374696f6e2e>-4.369 F F0 -1.2 <5741>6.869 G<524e494e473a>1.2 E F1 1.869<5573652060>4.369 F<606227>-.74 E 4.369<276f>-.74 G 1.869<6e6c79206966206f7574676f696e67>-4.369 F .517< 6d61696c2063616e20626520726f75746564207468726f7567682074686520696e636f6d 696e6720636f6e6e656374696f6e27>174 260.4 R 3.017<7369>-.55 G<6e74657266> -3.017 E .517<61636520746f206974732064657374696e6174696f6e2e>-.1 F .119< 4e6f20617474656d7074206973206d61646520746f2063617463682070726f626c656d73 2064756520746f2061206d6973636f6e8c6775726174696f6e206f662074686973207061 72616d65746572>174 272.4 R<2c>-.4 E 1.177<757365206974206f6e6c7920666f72 207669727475616c20686f7374696e672077686572652065616368207669727475616c20 696e74657266>174 284.4 R 1.177<6163652063616e20636f6e6e65637420746f2065> -.1 F -.15<7665>-.25 G<7279>.15 E 2.001 <706f737369626c65206c6f636174696f6e2e>174 296.4 R 2.001 <546869732077696c6c20616c736f206f>7.001 F -.15<7665>-.15 G 2.001 <727269646520706f737369626c652073657474696e677320766961>.15 F F0 <436c69656e7450>4.502 E<6f72744f702d>-.2 E<74696f6e732e>174 308.4 Q F1 <4e6f74652c>5.249 E F2<73656e646d61696c>2.749 E F1 .249 <77696c6c206c697374656e206f6e2061206e65>2.749 F 2.749<7773>-.25 G <6f636b>-2.749 E .248 <657420666f722065616368206f6363757272656e6365206f6620746865>-.1 F F0 <4461652d>2.748 E<6d6f6e50>174 320.4 Q<6f72744f7074696f6e73>-.2 E F1 .838<6f7074696f6e20696e206120636f6e8c6775726174696f6e208c6c652e>3.338 F .838<546865206d6f64698c65722060>5.838 F<604f27>-.74 E 3.338<2763>-.74 G .838<61757365732073656e642d>-3.338 F 1.418 <6d61696c20746f2069676e6f7265206120736f636b>174 332.4 R 1.417 <65742069662069742063616e27>-.1 F 3.917<7462>-.18 G 3.917<656f>-3.917 G 3.917<70656e65642e2054686973>-3.917 F 1.417<6170706c69657320746f2066> 3.917 F 1.417<61696c757265732066726f6d20746865>-.1 F<736f636b>174 344.4 Q<657428322920616e642062696e642832292063616c6c732e>-.1 E<446566>102 360.6 Q 2.95<61756c7441757468496e666f2046696c656e616d65>-.1 F 1.753 <7468617420636f6e7461696e7320646566>4.253 F 1.754<61756c742061757468656e 7469636174696f6e20696e666f726d6174696f6e20666f72206f7574676f696e6720636f 6e6e65632d>-.1 F .65<74696f6e732e2054686973208c6c65206d75737420636f6e74 61696e2074686520757365722069642c2074686520617574686f72697a6174696f6e2069 642c20746865207061737377>174 372.6 R .65<6f72642028706c61696e>-.1 F <7465>174 384.6 Q .939<7874292c20746865207265616c6d20616e6420746865206c 697374206f66206d656368616e69736d7320746f20757365206f6e207365706172617465 206c696e657320616e64206d757374206265>-.15 F .479<7265616461626c65206279 20726f6f7420286f72207468652074727573746564207573657229206f6e6c79>174 396.6 R 5.479<2e49>-.65 G 2.979<666e>-5.479 G 2.979<6f72>-2.979 G .479 <65616c6d2069732073706563698c65642c>-2.979 F F0<246a>2.978 E F1 .478 <697320757365642e>2.978 F<4966>5.478 E .235<6e6f206d656368616e69736d7320 6172652073706563698c65642c20746865206c697374206769>174 408.6 R -.15 <7665>-.25 G 2.736<6e62>.15 G<79>-2.736 E F0 -.5<4175>2.736 G <74684d656368616e69736d73>.5 E F1 .236<697320757365642e>2.736 F <4e6f746963653a>5.236 E 1.604<74686973206f7074696f6e20697320646570726563 6174656420616e642077696c6c2062652072656d6f>174 420.6 R -.15<7665>-.15 G 4.104<6469>.15 G 4.104<6e66>-4.104 G 1.604<75747572652076>-4.104 F 4.104 <657273696f6e732e204d6f72656f>-.15 F -.15<7665>-.15 G 2.404 -.4 <722c2069>.15 H<74>.4 E<646f65736e27>174 432.6 Q 5.218<7477>-.18 G 2.718 <6f726b20666f7220746865204d53502073696e63652069742063616e27>-5.318 F 5.218<7472>-.18 G 2.718 <65616420746865208c6c652028746865208c6c65206d757374206e6f74206265>-5.218 F<67726f75702f77>174 444.6 Q .923 <6f726c642d7265616461626c65206f7468657277697365>-.1 F F2 <73656e646d61696c>3.423 E F1 .923<77696c6c20636f6d706c61696e292e>3.423 F .922<557365207468652061757468696e666f2072756c652d>5.922 F <73657420696e73746561642077686963682070726f>174 456.6 Q <7669646573206d6f726520636f6e74726f6c206f>-.15 E -.15<7665>-.15 G 2.5 <7274>.15 G<6865207573616765206f6620746865206461746120616e>-2.5 E<7977> -.15 E<6179>-.1 E<2e>-.65 E<446566>102 472.8 Q<61756c74436861725365743d> -.1 E F2 -.15<6368>C<6172>.15 E<736574>-.1 E F1 .415<5768656e2061206d65 737361676520746861742068617320382d62697420636861726163746572732062>174 484.8 R .415 <7574206973206e6f7420696e204d494d4520666f726d617420697320636f6e>-.2 F -.15<7665>-.4 G<72746564>.15 E .965<746f204d494d452028736565207468652045 696768744269744d6f6465206f7074696f6e292061206368617261637465722073657420 6d75737420626520696e636c7564656420696e20746865>174 496.8 R <436f6e74656e742d54>174 508.8 Q .801<7970653a20686561646572>-.8 F 5.801 <2e54>-.55 G .802<6869732063686172616374657220736574206973206e6f726d616c 6c79207365742066726f6d2074686520436861727365743d208c656c64>-5.801 F .539 <6f6620746865206d61696c65722064657363726970746f72>174 520.8 R 5.539 <2e49>-.55 G 3.039<6674>-5.539 G .539 <686174206973206e6f74207365742c207468652076>-3.039 F .539 <616c7565206f662074686973206f7074696f6e20697320757365642e>-.25 F .538 <49662074686973>5.538 F <6f7074696f6e206973206e6f74207365742c207468652076>174 532.8 Q <616c75652099756e6b6e6f>-.25 E<776e2d386269749a20697320757365642e>-.25 E <4461746146696c65427566>102 549 Q<66657253697a653d>-.25 E F2<746872>A <6573686f6c64>-.37 E F1 .498<53657420746865>174 561 R F2<746872>2.998 E <6573686f6c64>-.37 E F1 2.998<2c69>C 2.998<6e62>-2.998 G .498<797465732c 206265666f72652061206d656d6f72792d62617365642071756575652064617461208c6c 65206265636f6d6573206469736b2d>-2.998 F 2.5<62617365642e20546865>174 573 R<646566>2.5 E<61756c7420697320343039362062797465732e>-.1 E <446561644c657474657244726f703d>102 589.2 Q F2<8c6c65>A F1 1.728<44658c 6e657320746865206c6f636174696f6e206f66207468652073797374656d2d7769646520 646561642e6c6574746572208c6c652c20666f726d65726c792068617264636f64656420 746f>174 601.2 R<2f7573722f746d702f646561642e6c6574746572>174 613.2 Q 7.66<2e49>-.55 G 5.161<6674>-7.66 G 2.661 <686973206f7074696f6e206973206e6f7420736574202874686520646566>-5.161 F 2.661<61756c74292c2073656e646d61696c2077696c6c206e6f74>-.1 F .553 <617474656d707420746f207361>174 625.2 R .853 -.15<76652074>-.2 H 3.053 <6f6173>.15 G .553 <797374656d2d7769646520646561642e6c6574746572208c6c6520696e207468652065> -3.053 F -.15<7665>-.25 G .553 <6e742069742063616e6e6f7420626f756e636520746865>.15 F .851 <6d61696c20746f207468652075736572206f7220706f73746d6173746572>174 637.2 R 5.851<2e49>-.55 G .851<6e73746561642c2069742077696c6c2072656e616d6520 746865207166208c6c652061732069742068617320696e20746865>-5.851 F<70617374 207768656e2074686520646561642e6c6574746572208c6c6520636f756c64206e6f7420 6265206f70656e65642e>174 649.2 Q<446566>102 665.4 Q<61756c74557365723d> -.1 E F2<757365723a6772>A<6f7570>-.45 E F1 .014 <5b755d205365742074686520646566>174 677.4 R .014 <61756c742075736572696420666f72206d61696c65727320746f>-.1 F F2 <757365723a6772>2.513 E<6f7570>-.45 E F1 5.013<2e49>C<66>-5.013 E F2 <6772>2.513 E<6f7570>-.45 E F1 .013<6973206f6d697474656420616e64>2.513 F F2<75736572>2.513 E F1<6973>2.513 E 4.306<6175>174 689.4 S 1.807<736572 206e616d6520286173206f70706f73656420746f2061206e756d65726963207573657220 6964292074686520646566>-4.306 F 1.807 <61756c742067726f7570206c697374656420696e20746865>-.1 F 1.153<2f6574632f 706173737764208c6c6520666f7220746861742075736572206973207573656420617320 74686520646566>174 701.4 R 1.153<61756c742067726f75702e>-.1 F<426f7468> 6.153 E F2<75736572>3.653 E F1<616e64>3.652 E F2<6772>3.652 E<6f7570> -.45 E F1 1.152<6d6179206265206e756d657269632e>174 713.4 R 1.152 <4d61696c65727320776974686f757420746865>6.152 F F2<53>3.652 E F1 1.152< 8d616720696e20746865206d61696c65722064658c6e6974696f6e2077696c6c2072756e 206173>3.652 F 0 Cg EP %%Page: 70 66 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d37302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF .142<746869732075736572>174 98 R 5.142<2e44>-.55 G<6566>-5.142 E .142<61756c747320746f20313a312e>-.1 F .142<5468652076> 5.142 F .142<616c75652063616e20616c736f206265206769>-.25 F -.15<7665> -.25 G 2.642<6e61>.15 G 2.642<736173>-2.642 G .142 <796d626f6c69632075736572206e616d652e>-2.642 F/F2 7/Times-Roman@0 SF <3139>-4 I F1<44656c61794c413d>102 114.2 Q/F3 10/Times-Italic@0 SF<4c41> A F1 .3<5768656e207468652073797374656d206c6f61642061>17.48 F -.15<7665> -.2 G .3<726167652065>.15 F<786365656473>-.15 E F3<4c41>2.8 E F1<2c>A F3 <73656e646d61696c>2.8 E F1 .3 <77696c6c20736c65657020666f72206f6e65207365636f6e64206f6e>2.8 F<6d6f7374 20534d545020636f6d6d616e647320616e64206265666f726520616363657074696e6720 636f6e6e656374696f6e732e>174 126.2 Q<44656c69>102 142.4 Q -.15<7665>-.25 G<7242794d696e3d>.15 E F3<74696d65>A F1 .33 <536574206d696e696d756d2074696d6520666f722044656c69>174 154.4 R -.15 <7665>-.25 G 2.83<7242>.15 G 2.83<7953>-2.83 G .33 <4d5450205365727669636520457874656e73696f6e20285246432032383532292e> -2.83 F .33<496620302c206e6f>5.33 F 1.25<74696d65206973206c69737465642c 206966206c657373207468616e20302c207468652065>174 166.4 R 1.251 <7874656e73696f6e206973206e6f74206f66>-.15 F 1.251 <66657265642c2069662067726561746572207468616e20302c206974206973>-.25 F< 6c6973746564206173206d696e696d756d2074696d6520666f72207468652045484c4f20 6b>174 178.4 Q -.15<6579>-.1 G -.1<776f>.15 G<72642044454c495645524259> .1 E<2e>-1.29 E<44656c69>102 194.6 Q -.15<7665>-.25 G<72794d6f64653d>.15 E F3<78>A F1<5b645d2044656c69>4 E -.15<7665>-.25 G 2.5<7269>.15 G 2.5 <6e6d>-2.5 G<6f6465>-2.5 E F3<78>2.5 E F1 5<2e4c>C -2.25 -.15<65672061> -5 H 2.5<6c6d>.15 G<6f646573206172653a>-2.5 E 17.22<6944>214 210.8 S <656c69>-17.22 E -.15<7665>-.25 G 2.5<7269>.15 G<6e74657261637469>-2.5 E -.15<7665>-.25 G<6c79202873796e6368726f6e6f75736c7929>.15 E 15<6244>214 222.8 S<656c69>-15 E -.15<7665>-.25 G 2.5<7269>.15 G 2.5<6e62>-2.5 G <61636b67726f756e6420286173796e6368726f6e6f75736c7929>-2.5 E 15<714a>214 234.8 S<75737420717565756520746865206d657373616765202864656c69>-15 E -.15<7665>-.25 G 2.5<7264>.15 G<7572696e672071756575652072756e29>-2.5 E 15<6444>214 246.8 S<656665722064656c69>-15 E -.15<7665>-.25 G <727920616e6420616c6c206d6170206c6f6f6b757073202864656c69>.15 E -.15 <7665>-.25 G 2.5<7264>.15 G<7572696e672071756575652072756e29>-2.5 E <446566>174 263 Q .712<61756c747320746f2060>-.1 F<606227>-.74 E 3.212 <2769>-.74 G 3.212<666e>-3.212 G 3.211<6f6f>-3.212 G .711 <7074696f6e2069732073706563698c65642c2060>-3.211 F<606927>-.74 E 3.211 <2769>-.74 G 3.211<6669>-3.211 G 3.211<7469>-3.211 G 3.211<7373>-3.211 G .711<706563698c65642062>-3.211 F .711<7574206769>-.2 F -.15<7665>-.25 G 3.211<6e6e>.15 G 3.211<6f61>-3.211 G -.18<7267>-3.211 G<752d>.18 E .094 <6d656e742028692e652e2c2060>174 275 R<604f6427>-.74 E 2.594<2769>-.74 G 2.594<7365>-2.594 G<717569>-2.594 E -.25<7661>-.25 G .094 <6c656e7420746f2060>.25 F<604f646927>-.74 E 2.594<27292e20546865>-.74 F F02.594 E F1 .094 <636f6d6d616e64206c696e65208d61672073657473207468697320746f>2.594 F F0 <69>2.594 E F1<2e>A 1.527 <4e6f74653a20666f7220696e7465726e616c20726561736f6e732c2060>174 287 R <606927>-.74 E 4.027<2764>-.74 G 1.527<6f6573206e6f742077>-4.027 F 1.526 <6f726b2069662061206d696c74657220697320656e61626c6564207768696368206361 6e>-.1 F<72656a656374206f722064656c65746520726563697069656e74732e>174 299 Q<496e2074686174206361736520746865206d6f64652077696c6c20626520636861 6e67656420746f2060>5 E<606227>-.74 E<272e>-.74 E<4469616c44656c61793d> 102 315.2 Q F3<736c65657074696d65>A F1 .794 <4469616c2d6f6e2d64656d616e64206e657477>174 327.2 R .794<6f726b20636f6e 6e656374696f6e732063616e207365652074696d656f757473206966206120636f6e6e65 6374696f6e206973206f70656e6564>-.1 F .356 <6265666f7265207468652063616c6c206973207365742075702e>174 339.2 R .356 <496620746869732069732073657420746f20616e20696e74657276>5.356 F .355 <616c20616e64206120636f6e6e656374696f6e2074696d6573206f7574206f6e>-.25 F 1.02 <746865208c72737420636f6e6e656374696f6e206265696e6720617474656d70746564> 174 351.2 R F3<73656e646d61696c>3.52 E F1 1.02 <77696c6c20736c65657020666f72207468697320616d6f756e74206f662074696d65> 3.52 F 1.04<616e6420747279206167>174 363.2 R 3.54<61696e2e2054686973> -.05 F 1.04<73686f756c64206769>3.54 F 1.34 -.15<76652079>-.25 H 1.04<6f 75722073797374656d2074696d6520746f2065737461626c6973682074686520636f6e6e 656374696f6e20746f>.15 F .147<796f757220736572766963652070726f>174 375.2 R<7669646572>-.15 E 5.147<2e55>-.55 G .147<6e69747320646566>-5.147 F .148<61756c7420746f207365636f6e64732c20736f20994469616c44656c61793d359a 20757365732061208c76>-.1 F 2.648<6573>-.15 G<65632d>-2.648 E .767 <6f6e642064656c6179>174 387.2 R 5.767<2e44>-.65 G<6566>-5.767 E .767 <61756c747320746f207a65726f20286e6f207265747279292e>-.1 F .767<54686973 2064656c6179206f6e6c79206170706c69657320746f206d61696c657273207768696368> 5.767 F<6861>174 399.2 Q .3 -.15<76652074>-.2 H <6865205a208d6167207365742e>.15 E <4469726563745375626d697373696f6e4d6f64698c6572733d>102 415.4 Q F3 <6d6f64698c6572>A<73>-.1 E F1<44658c6e6573>174 427.4 Q F0 <247b6461656d6f6e5f8d6167737d>5.083 E F1 2.583<666f72206469726563742028 636f6d6d616e64206c696e6529207375626d697373696f6e732e>5.083 F 2.584 <4966206e6f74207365742c>7.584 F F0<247b6461656d6f6e5f8d6167737d>174 439.4 Q F1 1.417 <6973206569746865722022434320662220696620746865206f7074696f6e>3.917 F F0 3.916 E F1 1.416 <69732075736564206f72202263207522206f74686572776973652e>3.916 F<4e6f7465 2074686174206f6e6c792074686520224343222c202263222c202266222c20616e642022 7522208d6167732061726520636865636b>174 451.4 Q<65642e>-.1 E <446f6e74426c616d6553656e646d61696c3d>102 467.6 Q F3 <6f7074696f6e2c6f7074696f6e2c2e2e2e>A F1 .43<496e206f7264657220746f2061> 174 479.6 R -.2<766f>-.2 G .43<696420706f737369626c6520637261636b696e67 20617474656d707473206361757365642062792077>.2 F .43 <6f726c642d20616e642067726f75702d7772697461626c65>-.1 F .913 <8c6c657320616e64206469726563746f726965732c>174 491.6 R F3 <73656e646d61696c>3.413 E F1 .913<646f657320706172616e6f696420636865636b 696e67207768656e206f70656e696e67206d6f7374206f6620697473>3.413 F 1.446 <737570706f7274208c6c65732e>174 503.6 R 1.446<496620666f7220736f6d652072 6561736f6e20796f75206162736f6c7574656c79206d7573742072756e20776974682c20 666f722065>6.446 F 1.447<78616d706c652c2061>-.15 F <67726f75702d7772697461626c65>174 515.6 Q F3<2f657463>3.327 E F1 <6469726563746f7279>3.327 E 3.327<2c74>-.65 G .827 <68656e20796f752077696c6c206861>-3.327 F 1.127 -.15<76652074>-.2 H 3.327 <6f74>.15 G .827<75726e206f66>-3.327 F 3.327<6674>-.25 G .827 <68697320636865636b696e672028617420746865>-3.327 F .853<636f7374206f6620 6d616b696e6720796f75722073797374656d206d6f72652076756c6e657261626c652074 6f2061747461636b292e>174 527.6 R .854<54686520706f737369626c65206172> 5.854 F<67756d656e7473>-.18 E<6861>174 539.6 Q 1.15 -.15<76652062>-.2 H .85<65656e20646573637269626564206561726c696572>.15 F 5.849<2e54>-.55 G .849<68652064657461696c73206f66207468657365208d616773206172652064657363 72696265642061626f>-5.849 F -.15<7665>-.15 G<2e>.15 E F0<557365>5.849 E <6f662074686973206f7074696f6e206973206e6f742072>174 551.6 Q <65636f6d6d656e6465642e>-.18 E F1<446f6e74457870616e64436e616d6573>102 567.8 Q 1.312<546865207374616e646172647320736179207468617420616c6c20686f 737420616464726573736573207573656420696e2061206d61696c206d65737361676520 6d7573742062652066756c6c79>174 579.8 R 3.12<63616e6f6e6963616c2e2046>174 591.8 R .62<6f722065>-.15 F .62<78616d706c652c20696620796f757220686f7374 206973206e616d6564209943727566742e46>-.15 F .62 <6f6f2e4f52479a20616e6420616c736f2068617320616e>-.15 F 1.936 <616c696173206f662099465450>174 603.8 R<2e46>-1.11 E 1.936<6f6f2e4f5247 9a2c2074686520666f726d6572206e616d65206d75737420626520757365642061742061 6c6c2074696d65732e>-.15 F 1.937<54686973206973>6.937 F .537<656e666f7263 656420647572696e6720686f7374206e616d652063616e6f6e698c636174696f6e202824 5b202e2e2e20245d206c6f6f6b757073292e>174 615.8 R .537 <49662074686973206f7074696f6e206973207365742c>5.537 F 1.111<746865207072 6f746f636f6c73206172652069676e6f72656420616e6420746865209977726f6e679a20 7468696e6720697320646f6e652e>174 627.8 R<486f>6.111 E<7765>-.25 E -.15 <7665>-.25 G 1.911 -.4<722c2074>.15 H 1.111<68652049455446206973>.4 F <6d6f>174 639.8 Q 1.076<76696e6720746f>-.15 F -.1<7761>-.25 G 1.076<7264 206368616e67696e672074686973207374616e646172642c20736f207468652062656861> .1 F 1.076<76696f72206d6179206265636f6d652061636365707461626c652e>-.2 F 1.772<506c65617365206e6f7465207468617420686f73747320646f>174 651.8 R 1.772<776e73747265616d206d6179207374696c6c207265>-.25 F 1.773 <777269746520746865206164647265737320746f206265207468652074727565>-.25 F <63616e6f6e6963616c206e616d6520686f>174 663.8 Q<7765>-.25 E -.15<7665> -.25 G -.55<722e>.15 G .32 LW 76 688.4 72 688.4 DL 80 688.4 76 688.4 DL 84 688.4 80 688.4 DL 88 688.4 84 688.4 DL 92 688.4 88 688.4 DL 96 688.4 92 688.4 DL 100 688.4 96 688.4 DL 104 688.4 100 688.4 DL 108 688.4 104 688.4 DL 112 688.4 108 688.4 DL 116 688.4 112 688.4 DL 120 688.4 116 688.4 DL 124 688.4 120 688.4 DL 128 688.4 124 688.4 DL 132 688.4 128 688.4 DL 136 688.4 132 688.4 DL 140 688.4 136 688.4 DL 144 688.4 140 688.4 DL 148 688.4 144 688.4 DL 152 688.4 148 688.4 DL 156 688.4 152 688.4 DL 160 688.4 156 688.4 DL 164 688.4 160 688.4 DL 168 688.4 164 688.4 DL 172 688.4 168 688.4 DL 176 688.4 172 688.4 DL 180 688.4 176 688.4 DL 184 688.4 180 688.4 DL 188 688.4 184 688.4 DL 192 688.4 188 688.4 DL 196 688.4 192 688.4 DL 200 688.4 196 688.4 DL 204 688.4 200 688.4 DL 208 688.4 204 688.4 DL 212 688.4 208 688.4 DL 216 688.4 212 688.4 DL/F4 5/Times-Roman@0 SF<3139>93.6 698.8 Q/F5 8/Times-Roman@0 SF <546865206f6c64>3.2 I/F6 8/Times-Bold@0 SF<67>2 E F5 <6f7074696f6e20686173206265656e20636f6d62696e656420696e746f20746865>2 E F6<44656661756c7455736572>2 E F5<6f7074696f6e2e>2 E 0 Cg EP %%Page: 71 67 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3731>195.86 E /F1 10/Times-Roman@0 SF 6.17<446f6e74496e697447726f757073204966>102 96 R <7365742c>3.624 E/F2 10/Times-Italic@0 SF<73656e646d61696c>3.623 E F1 1.123<77696c6c2061>3.623 F -.2<766f>-.2 G 1.123 <6964207573696e672074686520696e697467726f7570732833292063616c6c2e>.2 F 1.123<496620796f75206172652072756e6e696e67204e49532c>6.123 F 1.348<7468 69732063617573657320612073657175656e7469616c207363616e206f66207468652067 726f7570732e62796e616d65206d61702c2077686963682063616e20636175736520796f 7572>174 108 R .668<4e49532073657276>174 120 R .668 <657220746f206265206261646c79206f>-.15 F -.15<7665>-.15 G .668 <726c6f6164656420696e2061206c6172>.15 F .667<676520646f6d61696e2e>-.18 F .667<54686520636f7374206f662074686973206973207468617420746865>5.667 F .884<6f6e6c792067726f757020666f756e6420666f722075736572732077696c6c2062 65207468656972207072696d6172792067726f75702028746865206f6e6520696e207468 65207061737377>174 132 R<6f7264>-.1 E .477 <8c6c65292c2077686963682077696c6c206d616b>174 144 R 2.977<658c>-.1 G .476<6c6520616363657373207065726d697373696f6e7320736f6d65>-2.977 F .476 <77686174206d6f726520726573747269637469>-.25 F -.15<7665>-.25 G 5.476 <2e48>.15 G .476<6173206e6f>-5.476 F<6566>174 156 Q <66656374206f6e2073797374656d73207468617420646f6e27>-.25 E 2.5<7468>-.18 G -2.25 -.2<61762065>-2.5 H<67726f7570206c697374732e>2.7 E <446f6e7450726f6265496e74657266>102 172.2 Q<61636573>-.1 E F2 <53656e646d61696c>174 184.2 Q F1 .416<6e6f726d616c6c79208c6e647320746865 206e616d6573206f6620616c6c20696e74657266>2.916 F .417 <616365732061637469>-.1 F .717 -.15<7665206f>-.25 H 2.917<6e79>.15 G .417<6f7572206d616368696e65207768656e>-2.917 F 1.12<69742073746172747320 757020616e642061646473207468656972206e616d6520746f20746865>174 196.2 R F0<243d77>3.62 E F1 1.12<636c617373206f66206b6e6f>3.62 F 1.12 <776e20686f737420616c69617365732e>-.25 F 1.12<496620796f75>6.12 F<6861> 174 208.2 Q .645 -.15<76652061206c>-.2 H<6172>.15 E .345 <6765206e756d626572206f66207669727475616c20696e74657266>-.18 F .346 <61636573206f7220696620796f757220444e5320696e>-.1 F -.15<7665>-.4 G .346 <727365206c6f6f6b7570732061726520736c6f>.15 F<77>-.25 E 1.384 <746869732063616e2062652074696d6520636f6e73756d696e672e>174 220.2 R 1.383<54686973206f7074696f6e207475726e73206f66>6.383 F 3.883<6674>-.25 G 1.383<6861742070726f62696e672e>-3.883 F<486f>6.383 E<7765>-.25 E -.15 <7665>-.25 G 2.183 -.4<722c2079>.15 H<6f75>.4 E .113<77696c6c206e656564 20746f206265206365727461696e20746f20696e636c75646520616c6c2076>174 232.2 R .114<617269616e74206e616d657320696e20746865>-.25 F F0<243d77>2.614 E F1 .114<636c61737320627920736f6d65206f74686572>2.614 F 2.72 <6d656368616e69736d2e204966>174 244.2 R .22<73657420746f>2.72 F F0 <6c6f6f706261636b>2.72 E F1 2.72<2c6c>C .22 <6f6f706261636b20696e74657266>-2.72 F .22<616365732028652e672e2c206c6f30 292077696c6c206e6f742062652070726f6265642e>-.1 F -1.61 <446f6e745072756e65526f75746573205b525d>102 260.4 R<4e6f726d616c6c79> 3.905 E<2c>-.65 E F2<73656e646d61696c>3.905 E F1 1.405 <747269657320746f20656c696d696e61746520616e>3.905 F 3.905<7975>-.15 G 1.405<6e6e65636573736172792065>-3.905 F 1.405 <78706c6963697420726f75746573207768656e>-.15 F .155<73656e64696e6720616e 206572726f72206d657373616765202861732064697363757373656420696e2052464320 3131323320a720352e322e36292e>174 272.4 R -.15<466f>5.154 G 2.654<7265> .15 G .154<78616d706c652c207768656e>-2.804 F <73656e64696e6720616e206572726f72206d65737361676520746f>174 284.4 Q <3c406b6e6f>214 300.6 Q<776e312c406b6e6f>-.25 E<776e322c406b6e6f>-.25 E <776e333a7573657240756e6b6e6f>-.25 E<776e3e>-.25 E F2<73656e646d61696c> 174 316.8 Q F1 1.155<77696c6c207374726970206f66>3.655 F 3.655<6674>-.25 G 1.155<68652099406b6e6f>-3.655 F<776e312c406b6e6f>-.25 E 1.155 <776e329a20696e206f7264657220746f206d616b>-.25 F 3.655<6574>-.1 G 1.155 <686520726f757465206173>-3.655 F .813 <64697265637420617320706f737369626c652e>174 328.8 R<486f>5.813 E<7765> -.25 E -.15<7665>-.25 G 1.613 -.4<722c2069>.15 H 3.313<6674>.4 G<6865> -3.313 E F0<52>3.313 E F1 .812<6f7074696f6e206973207365742c207468697320 77696c6c2062652064697361626c65642c20616e6420746865>3.313 F .009<6d61696c 2077696c6c2062652073656e7420746f20746865208c727374206164647265737320696e 2074686520726f7574652c2065>174 340.8 R -.15<7665>-.25 G 2.51<6e69>.15 G 2.51<666c>-2.51 G .01<617465722061646472657373657320617265206b6e6f>-2.51 F<776e2e>-.25 E<54686973206d61792062652075736566756c20696620796f75206172 652063617567687420626568696e642061208c7265>174 352.8 Q -.1<7761>-.25 G <6c6c2e>.1 E<446f75626c65426f756e6365416464726573733d>102 369 Q F2 <657272>A<6f72>-.45 E<2d61646472>-.2 E<657373>-.37 E F1 .425<496620616e 206572726f72206f6363757273207768656e2073656e64696e6720616e206572726f7220 6d6573736167652c2073656e6420746865206572726f72207265706f727420287465726d 65642061>174 381 R .712<99646f75626c6520626f756e63659a206265636175736520 697420697320616e206572726f722099626f756e63659a2074686174206f636375727320 7768656e20747279696e6720746f2073656e64>174 393 R .452<616e6f746865722065 72726f722099626f756e63659a2920746f2074686520696e646963617465642061646472 6573732e>174 405 R .452<5468652061646472657373206973206d6163726f2065> 5.452 F<7870616e646564>-.15 E 1.376 <6174207468652074696d65206f662064656c69>174 417 R -.15<7665>-.25 G<7279> .15 E 6.376<2e49>-.65 G 3.876<666e>-6.376 G 1.376 <6f74207365742c20646566>-3.876 F 1.376 <61756c747320746f2099706f73746d61737465729a2e>-.1 F 1.376 <49662073657420746f20616e20656d707479>6.376 F <737472696e672c20646f75626c6520626f756e636573206172652064726f707065642e> 174 429 Q<45696768744269744d6f64653d>102 445.2 Q F2<616374696f6e>A F1 1.956 <5b385d205365742068616e646c696e67206f662065696768742d62697420646174612e> 174 457.2 R 1.955<546865726520617265207477>6.955 F 4.455<6f6b>-.1 G 1.955<696e6473206f662065696768742d62697420646174613a2074686174>-4.455 F 3.334<6465636c617265642061732073756368207573696e6720746865>174 469.2 R F0<424f44>5.834 E<593d384249544d494d45>-.4 E F1 3.335 <45534d5450206465636c61726174696f6e206f7220746865>5.835 F F0 174 481.2 Q F1 .948<636f6d6d616e64206c696e65208d61 672c20616e6420756e6465636c6172656420382d62697420646174612c20746861742069 732c20696e7075742074686174>3.449 F 1.18 <6a7573742068617070656e7320746f20626520656967687420626974732e>174 493.2 R 1.18<546865726520617265207468726565206261736963206f7065726174696f6e73 20746861742063616e2068617070656e3a>6.18 F .996<756e6465636c617265642038 2d62697420646174612063616e206265206175746f6d61746963616c6c7920636f6e>174 505.2 R -.15<7665>-.4 G .995 <7274656420746f20384249544d494d452c20756e6465636c61726564>.15 F .887<38 2d62697420646174612063616e206265207061737365642061732d697320776974686f75 7420636f6e>174 517.2 R -.15<7665>-.4 G .887 <7273696f6e20746f204d494d45202860>.15 F .887<606a7573742073656e64203827> -.74 F .887<27292c20616e64>-.74 F 1.794 <6465636c6172656420382d62697420646174612063616e20626520636f6e>174 529.2 R -.15<7665>-.4 G 1.794<7274656420746f20372d6269747320666f72207472616e73 6d697373696f6e20746f2061206e6f6e2d38424954>.15 F<2d>-.92 E <4d494d45206d61696c6572>174 541.2 Q 5<2e54>-.55 G <686520706f737369626c65>-5 E F2<616374696f6e>2.5 E F1 2.5<7361>C<72653a> -2.5 E 11.11<7352>219 557.4 S <656a65637420756e6465636c6172656420382d6269742064617461202860>-11.11 E <6073747269637427>-.74 E<2729>-.74 E 7.22<6d43>219 569.4 S<6f6e>-7.22 E -.15<7665>-.4 G <727420756e6465636c6172656420382d626974206461746120746f204d494d45202860> .15 E<606d696d6527>-.74 E<2729>-.74 E 10<7050>219 581.4 S <61737320756e6465636c6172656420382d6269742064617461202860>-10.15 E <607061737327>-.74 E<2729>-.74 E 2.227<496e20616c6c2063617365732070726f 7065726c79206465636c6172656420384249544d494d4520646174612077696c6c206265 20636f6e>174 597.6 R -.15<7665>-.4 G 2.228 <7274656420746f2037424954206173>.15 F 2.92<6e65656465642e204e6f74653a> 174 609.6 R .42<696620616e206175746f6d6174696320636f6e>2.92 F -.15<7665> -.4 G .42<7273696f6e20697320706572666f726d65642c206120686561646572207769 74682074686520666f6c6c6f>.15 F<772d>-.25 E <696e6720666f726d61742077696c6c2062652061646465643a>174 621.6 Q <582d4d494d452d4175746f636f6e>214 637.8 Q -.15<7665>-.4 G <727465643a2066726f6d204f4c4420746f204e455720627920246a206964202469>.15 E 2.027<7768657265204f4c4420616e64204e455720646573637269626520746865206f 726967696e616c20666f726d617420616e642074686520636f6e>174 654 R -.15 <7665>-.4 G 2.028<7274656420666f726d61742c>.15 F<7265737065637469>174 666 Q -.15<7665>-.25 G<6c79>.15 E<2e>-.65 E<4572726f724865616465723d>102 682.2 Q F2<8c6c652d6f72>A<2d6d65737361>-.2 E -.1<6765>-.1 G F1 .486<5b45 5d2050726570656e64206572726f72206d6573736167657320776974682074686520696e 64696361746564206d6573736167652e>174 694.2 R .486<4966206974206265>5.486 F .486<67696e732077697468206120736c6173682c>-.15 F .246<6974206973206173 73756d656420746f2062652074686520706174686e616d65206f662061208c6c6520636f 6e7461696e696e672061206d65737361676520287468697320697320746865207265636f 6d2d>174 706.2 R .86<6d656e6465642073657474696e67292e>174 718.2 R .86 <4f74686572776973652c2069742069732061206c69746572616c206d6573736167652e> 5.86 F .86<546865206572726f72208c6c65206d6967687420636f6e7461696e>5.86 F 0 Cg EP %%Page: 72 68 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d37322053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 1.116<746865206e616d652c20656d61696c206164647265 73732c20616e642f6f722070686f6e65206e756d626572206f662061206c6f63616c2070 6f73746d61737465722077686f20636f756c64>174 96 R<70726f>174 108 Q .827 <7669646520617373697374616e636520746f20656e642075736572732e>-.15 F .827< 496620746865206f7074696f6e206973206d697373696e67206f72206e756c6c2c206f72 206966206974206e616d65732061>5.827 F <8c6c6520776869636820646f6573206e6f742065>174 120 Q<78697374206f72207768 696368206973206e6f74207265616461626c652c206e6f206d6573736167652069732070 72696e7465642e>-.15 E<4572726f724d6f64653d>102 136.2 Q/F2 10 /Times-Italic@0 SF<78>A F1 <5b655d20446973706f7365206f66206572726f7273207573696e67206d6f6465>17.49 E F2<78>2.5 E F1 5<2e54>C<68652076>-5 E<616c75657320666f72>-.25 E F2<78> 2.5 E F1<6172653a>2.5 E 15<7050>214 152.4 S <72696e74206572726f72206d657373616765732028646566>-15 E<61756c7429>-.1 E 15<714e>214 164.4 S 2.5<6f6d>-15 G<657373616765732c206a757374206769>-2.5 E .3 -.15<7665206578>-.25 H<697420737461747573>.15 E 12.22<6d4d>214 176.4 S<61696c206261636b206572726f7273>-12.22 E 12.78<7757>214 188.4 S< 72697465206261636b206572726f727320286d61696c2069662075736572206e6f74206c 6f6767656420696e29>-12.78 E 15.56<654d>214 200.4 S<61696c206261636b2065 72726f727320287768656e206170706c696361626c652920616e64206769>-15.56 E .3 -.15<7665207a>-.25 H<65726f2065>.15 E<786974207374617420616c>-.15 E -.1 <7761>-.1 G<7973>.1 E 1.314<4e6f7465207468617420746865206c617374206d6f64 652c2099659a2c20697320666f72204265726b6e6574206572726f722070726f63657373 696e6720616e642073686f756c64206e6f74206265>174 216.6 R 1.324 <7573656420696e206e6f726d616c2063697263756d7374616e6365732e>174 228.6 R 1.323<4e6f74652c20746f6f2c2074686174206d6f64652099719a2c206f6e6c79206170 706c69657320746f206572726f7273>6.324 F<7265636f676e697a6564206265666f72 652073656e646d61696c20666f726b7320666f72206261636b67726f756e642064656c69> 174 240.6 Q -.15<7665>-.25 G<7279>.15 E<2e>-.65 E -.15<4661>102 256.8 S <6c6c6261636b4d58686f73743d>.15 E F2<66616c6c626163>A<6b686f7374>-.2 E F1 .494<5b565d2049662073706563698c65642c20746865>174 268.8 R F2 <66616c6c626163>2.994 E<6b686f7374>-.2 E F1 .494<61637473206c696b>2.994 F 2.994<656176>-.1 G .494<657279206c6f>-3.144 F 2.994<7770>-.25 G .494 <72696f72697479204d58206f6e206120686f73742e>-2.994 F<4d58>5.494 E .824 <7265636f7264732077696c6c206265206c6f6f6b>174 280.8 R .823<656420757020 666f72207468697320686f73742c20756e6c65737320746865206e616d65206973207375 72726f756e64656420627920737175617265>-.1 F<627261636b>174 292.8 Q 4.145 <6574732e2054686973>-.1 F 1.645<697320696e74656e64656420746f206265207573 6564206279207369746573207769746820706f6f72206e657477>4.145 F 1.645 <6f726b20636f6e6e65637469>-.1 F<76697479>-.25 E<2e>-.65 E 1.197 <4d657373616765732077686963682061726520756e64656c69>174 304.8 R -.15 <7665>-.25 G 1.197 <7261626c652064756520746f2074656d706f7261727920616464726573732066>.15 F 1.197<61696c757265732028652e672e2c20444e53>-.1 F -.1<6661>174 316.8 S <696c7572652920616c736f20676f20746f207468652046>.1 E <616c6c6261636b4d58686f73742e>-.15 E -.15<4661>102 333 S <6c6c4261636b536d617274486f73743d>.15 E F2<686f73746e616d65>A F1 .929 <49662073706563698c65642c20746865>174 345 R F2 -.75<4661>3.429 G <6c6c426163>.75 E<6b536d617274486f7374>-.2 E F1 .929 <77696c6c206265207573656420696e2061206c6173742d6469746368206566>3.429 F .93<666f727420666f72206120686f73742e>-.25 F 1.349<5468697320697320696e74 656e64656420746f20626520757365642062792073697465732077697468202266>174 357 R<616b>-.1 E 3.849<6569>-.1 G 1.349 <6e7465726e616c20444e53222c20652e672e2c206120636f6d70616e>-3.849 F<79> -.15 E 1.282 <77686f736520444e532061636375726174656c792072658d65637473207468652077> 174 369 R 1.282<6f726c6420696e73696465207468617420636f6d70616e>-.1 F <7927>-.15 E 3.782<7364>-.55 G 1.282<6f6d61696e2062>-3.782 F 1.282 <7574206e6f74>-.2 F<6f7574736964652e>174 381 Q -.15<4661>102 397.2 S 34.08<737453706c6974204966>.15 F 2.14<73657420746f20612076>4.64 F 2.139 <616c75652067726561746572207468616e207a65726f202874686520646566>-.25 F 2.139 <61756c74206973206f6e65292c206974207375707072657373657320746865204d58> -.1 F 2.04<6c6f6f6b757073206f6e20616464726573736573207768656e20746865> 174 409.2 R 4.54<7961>-.15 G 2.04<726520696e697469616c6c7920736f72746564 2c20692e652e2c20666f7220746865208c7273742064656c69>-4.54 F -.15<7665> -.25 G<7279>.15 E 3.749<617474656d70742e2054686973>174 421.2 R 1.248 <757375616c6c7920726573756c747320696e2066>3.749 F 1.248 <617374657220656e>-.1 F -.15<7665>-.4 G 1.248<6c6f70652073706c697474696e 6720756e6c65737320746865204d58207265636f726473>.15 F 1.405 <6172652072656164696c792061>174 433.2 R -.25<7661>-.2 G 1.405 <696c61626c6520696e2061206c6f63616c20444e532063616368652e>.25 F 3.006 -.8<546f2065>6.405 H 1.406 <6e666f72636520696e697469616c20736f7274696e67206261736564206f6e>.8 F .338<4d58207265636f72647320736574>174 445.2 R F0 -.25<4661>2.838 G <737453706c6974>.25 E F1 .338<746f207a65726f2e>2.838 F .338<496620746865 206d61696c206973207375626d6974746564206469726563746c792066726f6d20746865 20636f6d2d>5.338 F 2.403<6d616e64206c696e652c207468656e207468652076>174 457.2 R 2.403<616c756520616c736f206c696d69747320746865206e756d626572206f 662070726f63657373657320746f2064656c69>-.25 F -.15<7665>-.25 G 4.904 <7274>.15 G<6865>-4.904 E<656e>174 469.2 Q -.15<7665>-.4 G 1.449 <6c6f7065733b206966206d6f726520656e>.15 F -.15<7665>-.4 G 1.449 <6c6f70657320617265206372656174656420746865>.15 F 3.948<7961>-.15 G 1.448<7265206f6e6c792071756575656420757020616e64206d757374206265>-3.948 F<74616b>174 481.2 Q .691 <656e2063617265206f6620627920612071756575652072756e2e>-.1 F .691 <53696e63652074686520646566>5.691 F .692 <61756c74207375626d697373696f6e206d6574686f642069732076696120534d5450> -.1 F 1.284<286569746865722066726f6d2061204d55>174 493.2 R 3.784<416f> -.4 G 3.784<7276>-3.784 G 1.284<696120746865204d5350292c207468652076> -3.784 F 1.284<616c7565206f66>-.25 F F0 -.25<4661>3.784 G <737453706c6974>.25 E F1 1.284<69732073656c646f6d207573656420746f>3.784 F<6c696d697420746865206e756d626572206f662070726f63657373657320746f206465 6c69>174 505.2 Q -.15<7665>-.25 G 2.5<7274>.15 G<686520656e>-2.5 E -.15 <7665>-.4 G<6c6f7065732e>.15 E -.15<466f>102 521.4 S 16.88 <726b456163684a6f62205b595d>.15 F<4966207365742c2064656c69>2.5 E -.15 <7665>-.25 G 2.5<7265>.15 G<616368206a6f6220746861742069732072756e206672 6f6d2074686520717565756520696e20612073657061726174652070726f636573732e> -2.5 E -.15<466f>102 537.6 S<7277>.15 E<61726450>-.1 E<6174683d>-.15 E F2<70617468>A F1 1.511<5b4a5d2053657420746865207061746820666f7220736561 726368696e6720666f7220757365727327202e666f7277>174 549.6 R 1.512 <617264208c6c65732e>-.1 F 1.512<54686520646566>6.512 F 1.512 <61756c742069732099247a2f2e666f72>-.1 F<2d>-.2 E -.1<7761>174 561.6 S 5.8<72649a2e20536f6d65>.1 F 3.299<73697465732074686174207573652074686520 6175746f6d6f756e746572206d61792070726566657220746f206368616e676520746869 7320746f>5.8 F<992f76>174 573.6 Q<61722f666f7277>-.25 E 1.696<6172642f24 759a20746f207365617263682061208c6c652077697468207468652073616d65206e616d 6520617320746865207573657220696e20612073797374656d>-.1 F <6469726563746f7279>174 585.6 Q 5.488<2e49>-.65 G 2.988<7463>-5.488 G .488<616e20616c736f2062652073657420746f20612073657175656e6365206f662070 617468732073657061726174656420627920636f6c6f6e733b>-2.988 F F2 <73656e646d61696c>2.987 E F1 .831<73746f707320617420746865208c727374208c 6c652069742063616e207375636365737366756c6c7920616e6420736166656c79206f70 656e2e>174 597.6 R -.15<466f>5.831 G 3.331<7265>.15 G .831 <78616d706c652c20992f76>-3.481 F<61722f666f72>-.25 E<2d>-.2 E -.1<7761> 174 609.6 S<72642f24753a247a2f2e666f7277>.1 E .277 <6172649a2077696c6c20736561726368208c72737420696e202f76>-.1 F <61722f666f7277>-.25 E<6172642f>-.1 E F2<757365726e616d65>A F1 .276 <616e64207468656e20696e>2.777 F F2<7e75736572>2.776 E<2d>-.2 E<6e616d65> 174 621.6 Q F1<2f2e666f7277>A<617264202862>-.1 E <7574206f6e6c7920696620746865208c727374208c6c6520646f6573206e6f742065> -.2 E<78697374292e>-.15 E<48656c6f4e616d653d>102 637.8 Q F2<6e616d65>A F1<53657420746865206e616d6520746f206265207573656420666f722048454c4f2f45 484c4f2028696e7374656164206f6620246a292e>1.38 E<48656c7046696c653d>102 654 Q F2<8c6c65>A F1 .18 <5b485d2053706563696679207468652068656c70208c6c6520666f7220534d5450> 19.14 F 5.18<2e49>-1.11 G 2.68<666e>-5.18 G 2.68<6f8c>-2.68 G .18<6c6520 6e616d652069732073706563698c65642c202268656c708c6c652220697320757365642e> -2.68 F .366<4966207468652068656c70208c6c6520646f6573206e6f742065>174 666 R .365 <78697374202863616e6e6f74206265206f70656e656420666f722072656164696e6729> -.15 F F2<73656e646d61696c>2.865 E F1 .365<77696c6c207072696e742061> 2.865 F .727<6e6f746520696e636c7564696e67206974732076>174 678 R .727 <657273696f6e20696e20726573706f6e736520746f2061>-.15 F F0<48454c50>3.228 E F1 3.228<636f6d6d616e642e2054>3.228 F 3.228<6f61>-.8 G -.2<766f>-3.428 G .728<69642070726f>.2 F<766964696e67>-.15 E<7468697320696e666f726d6174 696f6e20746f206120636c69656e74207370656369667920616e20656d707479208c6c65 2e>174 690 Q<486f6c64457870656e7369>102 706.2 Q 8.54 -.15<7665205b>-.25 H 1.394 <635d20496620616e206f7574676f696e67206d61696c6572206973206d61726b>.15 F 1.393<6564206173206265696e672065>-.1 F<7870656e7369>-.15 E -.15<7665> -.25 G 3.893<2c64>.15 G<6f6e27>-3.893 E 3.893<7463>-.18 G 1.393 <6f6e6e65637420696d6d6564692d>-3.893 F<6174656c79>174 718.2 Q<2e>-.65 E 0 Cg EP %%Page: 73 69 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3733>195.86 E /F1 10/Times-Roman@0 SF<486f73747346696c653d>102 96 Q/F2 10 /Times-Italic@0 SF<70617468>A F1 1.367<546865207061746820746f2074686520 686f7374732064617461626173652c206e6f726d616c6c7920992f6574632f686f737473 9a2e>10.24 F 1.368<54686973206f7074696f6e206973206f6e6c7920636f6e2d> 6.368 F .998<73756c746564207768656e2073656e646d61696c2069732063616e6f6e 696679696e67206164647265737365732c20616e64207468656e206f6e6c79207768656e 20998c6c65739a20697320696e>174 108 R .096 <7468652099686f7374739a20736572766963652073776974636820656e747279>174 120 R 5.096<2e49>-.65 G 2.596<6e70>-5.096 G<6172746963756c6172>-2.596 E 2.596<2c74>-.4 G .096<686973208c6c65206973>-2.596 F F2<6e65>2.596 E <766572>-.15 E F1 .097<75736564207768656e206c6f6f6b696e67>2.596 F .892< 757020686f7374206164647265737365733b207468617420697320756e64657220746865 20636f6e74726f6c206f66207468652073797374656d>174 132 R F2 -.1<6765>3.391 G<74686f737462796e616d65>.1 E F1 .891<28332920726f752d>B<74696e652e>174 144 Q<486f73745374617475734469726563746f72793d>102 160.2 Q F2<70617468>A F1 1.972<546865206c6f636174696f6e206f6620746865206c6f6e67207465726d2068 6f73742073746174757320696e666f726d6174696f6e2e>174 172.2 R 1.972 <5768656e207365742c20696e666f726d6174696f6e>6.972 F 1.304<61626f75742074 686520737461747573206f6620686f7374732028652e672e2c20686f737420646f>174 184.2 R 1.304<776e206f72206e6f7420616363657074696e6720636f6e6e656374696f 6e73292077696c6c206265>-.25 F 1.707 <736861726564206265747765656e20616c6c>174 196.2 R F2<73656e646d61696c> 4.207 E F1 1.707<70726f6365737365733b206e6f726d616c6c79>4.207 F 4.207 <2c74>-.65 G 1.707 <68697320696e666f726d6174696f6e206973206f6e6c792068656c64>-4.207 F .208 <77697468696e20612073696e676c652071756575652072756e2e>174 208.2 R .207< 54686973206f7074696f6e207265717569726573206120636f6e6e656374696f6e206361 636865206f66206174206c65617374203120746f>5.208 F 2.666 <66756e6374696f6e2e204966>174 220.2 R .166<746865206f7074696f6e206265> 2.666 F .167<67696e7320776974682061206c656164696e6720602f272c2069742069 7320616e206162736f6c75746520706174686e616d653b206f74686572>-.15 F<2d>-.2 E .037<776973652c2069742069732072656c617469>174 232.2 R .337 -.15 <76652074>-.25 H 2.537<6f74>.15 G .036 <6865206d61696c207175657565206469726563746f7279>-2.537 F 5.036<2e41>-.65 G .036<7375676765737465642076>-2.5 F .036 <616c756520666f72207369746573206465736972696e67>-.25 F<7065727369737465 6e7420686f73742073746174757320697320992e686f7374737461749a2028692e652e2c 2061207375626469726563746f7279206f6620746865207175657565206469726563746f 7279292e>174 244.2 Q 24.51<49676e6f7265446f7473205b695d>102 260.4 R .119 <446f206e6f74207472656174206c656164696e6720646f747320696e20696e636f6d69 6e67206d6573736167657320696e2061207370656369616c2077>2.619 F<6179>-.1 E 2.62<2c65>-.65 G .12<2e672e2c20617320656e64206f66>-2.62 F 2.934<616d>174 272.4 S .433<65737361676520696620697420697320746865206f6e6c792063686172 616374657220696e2061206c696e652e>-2.934 F .433<5468697320697320616c> 5.433 F -.1<7761>-.1 G .433 <79732064697361626c6564207768656e20726561642d>.1 F <696e6720534d5450206d61696c2e>174 284.4 Q <496e7075744d61696c46696c746572733d>102 300.6 Q F2<6e616d65>A <2c6e616d65>-.1 E<2c2e2e2e>-.1 E F1 3.621<4163>174 312.6 S 1.122<6f6d6d 6120736570617261746564206c697374206f66208c6c7465727320776869636820646574 65726d696e6573207768696368208c6c74657273202873656520746865202258208a> -3.621 F 1.768<4d61696c2046696c74657220284d696c746572292044658c6e697469 6f6e73222073656374696f6e2920616e642074686520696e>174 324.6 R -.2<766f> -.4 G 1.768<636174696f6e2073657175656e63652061726520636f6e2d>.2 F .367 <74616374656420666f7220696e636f6d696e6720534d5450206d657373616765732e> 174 336.6 R .367<4966206e6f6e6520617265207365742c206e6f208c6c7465727320 77696c6c20626520636f6e7461637465642e>5.367 F<4c44>102 352.8 Q <4150446566>-.4 E<61756c74537065633d>-.1 E F2<73706563>A F1 .76 <53657473206120646566>174 364.8 R .76 <61756c74206d61702073706563698c636174696f6e20666f72204c44>-.1 F .76 <4150206d6170732e>-.4 F .76<5468652076>5.76 F .76 <616c75652073686f756c64206f6e6c7920636f6e7461696e>-.25 F<4c44>174 376.8 Q .467<41502073706563698c632073657474696e6773207375636820617320992d6820 686f7374202d7020706f7274202d642062696e64444e9a2e>-.4 F .468 <5468652073657474696e67732077696c6c206265>5.467 F 1.009 <7573656420666f7220616c6c204c44>174 388.8 R 1.008 <4150206d61707320756e6c6573732074686520696e6469>-.4 F 1.008 <76696475616c206d61702073706563698c636174696f6e206f>-.25 F -.15<7665> -.15 G 1.008<7272696465732061207365742d>.15 F 2.5<74696e672e2054686973> 174 400.8 R <6f7074696f6e2073686f756c6420626520736574206265666f726520616e>2.5 E 2.5 <794c>-.15 G -.4<4441>-2.5 G 2.5<506d>.4 G <617073206172652064658c6e65642e>-2.5 E<4c6f674c65>102 417 Q -.15<7665> -.25 G<6c3d>.15 E F2<6e>A F1<5b4c5d2053657420746865206c6f67206c65>22.88 E -.15<7665>-.25 G 2.5<6c74>.15 G<6f>-2.5 E F2<6e>2.5 E F1 5<2e44>C <6566>-5 E<61756c747320746f20392e>-.1 E<4d>102 433.2 Q F2 1.666<7876>C <616c7565>-1.666 E F1 .255<5b6e6f206c6f6e672076>35.344 F .255 <657273696f6e5d2053657420746865206d6163726f>-.15 F F2<78>2.755 E F1 <746f>2.755 E F2<76616c7565>2.755 E F1 5.255<2e54>C .255<68697320697320 696e74656e646564206f6e6c7920666f72207573652066726f6d20746865>-5.255 F <636f6d6d616e64206c696e652e>174 445.2 Q<546865>5 E F02.5 E F1 <8d6167206973207072656665727265642e>2.5 E -1.04 <4d61696c626f7844617461626173652054>102 461.4 R .052<797065206f66206c6f 6f6b757020746f208c6e6420696e666f726d6174696f6e2061626f7574206c6f63616c20 6d61696c626f78>-.8 F .051<65732c20646566>-.15 F .051 <61756c747320746f2060>-.1 F<60707727>-.74 E 2.551<2777>-.74 G<68696368> -2.551 E<75736573>174 473.4 Q F2 -.1<6765>4.456 G<7470776e616d>.1 E F1 6.956<2e4f>C 1.957<746865722074797065732063616e20626520696e74726f647563 656420627920616464696e67207468656d20746f2074686520736f75726365>-6.956 F <636f64652c20736565206c6962736d2f6d626462>174 485.4 Q <2e6320666f722064657461696c732e>-.4 E 33.94<5573654d535020557365>102 501.6 R 2.107<6173206d61696c207375626d697373696f6e2070726f6772616d2c2069 2e652e2c20616c6c6f>4.607 F 4.607<7767>-.25 G 2.106 <726f7570207772697461626c65207175657565208c6c657320696620746865>-4.607 F 1.161<67726f7570206973207468652073616d652061732074686174206f662061207365 742d67726f75702d49442073656e646d61696c2062696e617279>174 513.6 R 6.161 <2e53>-.65 G 1.161<656520746865208c6c65>-6.161 F F0<73656e642d>3.661 E <6d61696c2f5345435552495459>174 525.6 Q F1<696e207468652064697374726962> 2.5 E<7574696f6e2074617262616c6c2e>-.2 E 11.17 <4d617463684745434f53205b475d>102 541.8 R<416c6c6f>3.334 E 3.334<7766> -.25 G .834 <757a7a79206d61746368696e67206f6e20746865204745434f53208c656c642e>-3.334 F .833 <49662074686973208d6167206973207365742c20616e642074686520757375616c> 5.833 F .867<75736572206e616d65206c6f6f6b7570732066>174 553.8 R .867<61 696c2028746861742069732c207468657265206973206e6f20616c696173207769746820 74686973206e616d6520616e642061>-.1 F F2 -.1<6765>3.368 G<7470776e616d>.1 E F1 -.1<6661>174 565.8 S 1.155 <696c73292c2073657175656e7469616c6c792073656172636820746865207061737377> .1 F 1.155<6f7264208c6c6520666f722061206d61746368696e6720656e7472792069 6e20746865204745434f53>-.1 F 3.696<8c656c642e2054686973>174 577.8 R 1.196<616c736f2072657175697265732074686174204d41>3.696 F 1.196<54434847 45434f53206265207475726e6564206f6e20647572696e6720636f6d70696c6174696f6e 2e>-1.11 F <54686973206f7074696f6e206973206e6f74207265636f6d6d656e6465642e>174 589.8 Q<4d6178416c696173526563757273696f6e3d>102 606 Q F2<4e>A F1<546865 206d6178696d756d206465707468206f6620616c69617320726563757273696f6e202864 6566>174 618 Q<61756c743a203130292e>-.1 E <4d61784461656d6f6e4368696c6472656e3d>102 634.2 Q F2<4e>A F1 .176 <4966207365742c>174 646.2 R F2<73656e646d61696c>2.676 E F1 .175<77696c6c 2072656675736520636f6e6e656374696f6e73207768656e20697420686173206d6f7265 207468616e>2.676 F F2<4e>2.675 E F1 .175 <6368696c6472656e2070726f636573732d>2.675 F 1.261<696e6720696e636f6d696e 67206d61696c206f72206175746f6d617469632071756575652072756e732e>174 658.2 R 1.262 <5468697320646f6573206e6f74206c696d697420746865206e756d626572206f66> 6.262 F 1.522<6f7574676f696e6720636f6e6e656374696f6e732e>174 670.2 R 1.521<49662074686520646566>6.521 F<61756c74>-.1 E F0<44656c69>4.021 E -.1<7665>-.1 G<72794d6f6465>.1 E F1 1.521 <286261636b67726f756e642920697320757365642c207468656e>4.021 F F2 <73656e646d61696c>174 682.2 Q F1 1.09<6d61792063726561746520616e20616c6d 6f737420756e6c696d69746564206e756d626572206f66206368696c6472656e20286465 70656e64696e67206f6e20746865>3.59 F 1.71<6e756d626572206f66207472616e73 616374696f6e7320616e64207468652072656c617469>174 694.2 R 2.01 -.15 <766520657865>-.25 H 1.71 <637574696f6e2074696d6573206f66206d61696c2072656365697074696f6e20616e64> .15 F .865<6d61696c2064656c69>174 706.2 R -.15<7665>-.25 G 3.365 <7279292e204966>.15 F .865<746865206c696d69742073686f756c6420626520656e 666f726365642c207468656e2061>3.365 F F0<44656c69>3.365 E -.1<7665>-.1 G <72794d6f6465>.1 E F1 .865<6f74686572207468616e>3.365 F .229 <6261636b67726f756e64206d75737420626520757365642e>174 718.2 R .228<4966 206e6f74207365742c207468657265206973206e6f206c696d697420746f20746865206e 756d626572206f66206368696c6472656e202d2d>5.228 F 0 Cg EP %%Page: 74 70 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d37342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF <746861742069732c207468652073797374656d206c6f61642061>174 96 Q -.15 <7665>-.2 G<7261676520636f6e74726f6c7320746869732e>.15 E <4d6178486561646572734c656e6774683d>102 112.2 Q/F2 10/Times-Italic@0 SF <4e>A F1 .034<49662073657420746f20612076>174 124.2 R .034<616c7565206772 6561746572207468616e207a65726f2069742073706563698c657320746865206d617869 6d756d206c656e677468206f66207468652073756d206f6620616c6c>-.25 F 3.812 <686561646572732e2054686973>174 136.2 R 1.312 <63616e206265207573656420746f20707265>3.812 F -.15<7665>-.25 G 1.311 <6e7420612064656e69616c206f6620736572766963652061747461636b2e>.15 F 1.311<54686520646566>6.311 F 1.311<61756c74206973>-.1 F<33324b2e>174 148.2 Q<4d6178486f70436f756e743d>102 164.4 Q F2<4e>A F1 1.237 <5b685d20546865206d6178696d756d20686f7020636f756e742e>174 176.4 R 1.237 <4d657373616765732074686174206861>6.237 F 1.538 -.15<76652062>-.2 H 1.238<65656e2070726f636573736564206d6f7265207468616e>.15 F F2<4e>3.738 E F1<74696d65732061726520617373756d656420746f20626520696e2061206c6f6f7020 616e64206172652072656a65637465642e>174 188.4 Q<446566>5 E <61756c747320746f2032352e>-.1 E<4d61784d65737361676553697a653d>102 204.6 Q F2<4e>A F1 2.971<5370656369667920746865206d6178696d756d206d6573736167 652073697a6520746f20626520616476>174 216.6 R 2.971 <6572746973656420696e207468652045534d54502045484c4f>-.15 F 2.735 <726573706f6e73652e204d65737361676573>174 228.6 R<6c6172>2.735 E .235 <676572207468616e20746869732077696c6c2062652072656a65637465642e>-.18 F .235<49662073657420746f20612076>5.235 F .235 <616c75652067726561746572207468616e>-.25 F .654 <7a65726f2c20746861742076>174 240.6 R .654<616c75652077696c6c206265206c 697374656420696e207468652053495a4520726573706f6e73652c206f74686572776973 652053495a4520697320616476>-.25 F<65727469736564>-.15 E<696e207468652045 534d54502045484c4f20726573706f6e736520776974686f7574206120706172616d6574 6572>174 252.6 Q<2e>-.55 E<4d61784d696d654865616465724c656e6774683d>102 268.8 Q F2<4e5b2f4d5d>A F1 1.298<5365747320746865206d6178696d756d206c65 6e677468206f66206365727461696e204d494d4520686561646572208c656c642076>174 280.8 R 1.299<616c75657320746f>-.25 F F2<4e>3.799 E F1 <636861726163746572732e>3.799 E 1.228<5468657365204d494d4520686561646572 208c656c6473206172652064657465726d696e6564206279206265696e672061206d656d 626572206f6620636c617373207b636865636b2d>174 292.8 R<4d494d4554>174 304.8 Q -.15<6578>-.7 G 1.113<74486561646572737d2c2077686963682063757272 656e746c7920636f6e7461696e73206f6e6c79207468652068656164657220436f6e7465 6e742d446573637269702d>.15 F 3.475<74696f6e2e2046>174 316.8 R .974 <6f7220736f6d65206f6620746865736520686561646572732077686963682074616b> -.15 F 3.474<6570>-.1 G .974 <6172616d65746572732c20746865206d6178696d756d206c656e677468206f66>-3.474 F .049<6561636820706172616d657465722069732073657420746f>174 328.8 R F2 <4d>2.549 E F1 .049<69662073706563698c65642e>2.549 F<4966>5.049 E F2 <2f4d>2.549 E F1 .05 <6973206e6f742073706563698c65642c206f6e652068616c66206f66>2.549 F F2<4e> 2.55 E F1 .05<77696c6c206265>2.55 F 4.25<757365642e204279>174 340.8 R <646566>4.25 E 1.749<61756c742c2074686573652076>-.1 F 1.749 <616c75657320617265203230343820616e6420313032342c207265737065637469>-.25 F -.15<7665>-.25 G<6c79>.15 E 6.749<2e54>-.65 G 4.249<6f61>-7.549 G <6c6c6f>-4.249 E 4.249<7761>-.25 G -.15<6e79>-4.249 G <6c656e6774682c20612076>174 352.8 Q <616c7565206f6620302063616e2062652073706563698c65642e>-.25 E <4d61784e4f4f50436f6d6d616e64733d>102 369 Q F2<4e>A F1<4f76>174 381 Q 2.103<6572726964652074686520646566>-.15 F 2.103<61756c74206f66>-.1 F F0 <4d41584e4f4f50434f4d4d414e4453>4.603 E F1 2.104 <666f7220746865206e756d626572206f66>4.603 F F2<7573656c657373>4.604 E F1 <636f6d6d616e64732c207365652053656374696f6e20224d65617375726573206167> 174 393 Q <61696e73742044656e69616c206f6620536572766963652041747461636b73222e>-.05 E<4d617851756575654368696c6472656e3d>102 409.2 Q F2<4e>A F1 .26<5768656e 207365742c2074686973206c696d69747320746865206e756d626572206f6620636f6e63 757272656e742071756575652072756e6e65722070726f63657373657320746f>174 421.2 R F2<4e2e>2.76 E F1<54686973>5.26 E .444<68656c707320746f20636f6e 74726f6c2074686520616d6f756e74206f662073797374656d207265736f757263657320 75736564207768656e2070726f63657373696e67207468652071756575652e>174 433.2 R .283<5768656e20746865726520617265206d756c7469706c65207175657565206772 6f7570732064658c6e656420616e642074686520746f74616c206e756d626572206f6620 71756575652072756e2d>174 445.2 R 2.014 <6e65727320666f722074686573652071756575652067726f7570732077>174 457.2 R 2.014<6f756c642065>-.1 F<7863656564>-.15 E F2 <4d617851756575654368696c6472>4.514 E<656e>-.37 E F1 2.014 <7468656e20746865207175657565>4.514 F 1.313<67726f7570732077696c6c206e6f 7420616c6c2072756e20636f6e63757272656e746c79>174 469.2 R 3.813<2e54>-.65 G 1.313<6861742069732c20736f6d6520706f7274696f6e206f66207468652071756575 652067726f757073>-3.813 F 1.363 <77696c6c2072756e20636f6e63757272656e746c7920737563682074686174>174 481.2 R F2<4d617851756575654368696c6472>3.863 E<656e>-.37 E F1 1.363 <77696c6c206e6f742062652065>3.863 F 1.363<786365656465642c207768696c65> -.15 F 1.885<7468652072656d61696e696e672071756575652067726f757073207769 6c6c2062652072756e206c617465722028696e20726f756e6420726f62696e206f726465 72292e2053656520616c736f>174 493.2 R F2<4d617852756e6e6572>174 505.2 Q <7350>-.1 E<65725175657565>-.8 E F1 .28<616e64207468652073656374696f6e> 2.78 F F0 .28<5175657565204772>2.78 F .28 <6f7570204465636c61726174696f6e>-.18 F F1 5.28<2e4e>C<6f746963653a>-5.28 E F2<73656e642d>2.78 E<6d61696c>174 517.2 Q F1 .85 <646f6573206e6f7420636f756e7420696e6469>3.35 F .849 <76696475616c2071756575652072756e6e6572732c2062>-.25 F .849 <7574206f6e6c792073657473206f662070726f636573736573207468617420616374> -.2 F 1.037<6f6e20612077>174 529.2 R 3.537 <6f726b67726f75702e2048656e6365>-.1 F 1.038<7468652061637475616c206e756d 626572206f662071756575652072756e6e657273206d6179206265206c6f>3.537 F 1.038<776572207468616e>-.25 F .699 <746865206c696d697420696d706f736564206279>174 541.2 R F2 <4d617851756575654368696c6472>3.199 E<656e>-.37 E F1 5.699<2e54>C .699 <6869732064697363726570616e63>-5.699 F 3.199<7963>-.15 G .699 <616e206265206c6172>-3.199 F .699<676520696620736f6d65>-.18 F <71756575652072756e6e657273206861>174 553.2 Q .3 -.15<76652074>-.2 H 2.5 <6f77>.15 G<61697420666f72206120736c6f>-2.6 E 2.5<7773>-.25 G<657276> -2.5 E<657220616e642069662073686f727420696e74657276>-.15 E <616c732061726520757365642e>-.25 E<4d6178517565756552756e53697a653d>102 569.4 Q F2<4e>A F1 .243<546865206d6178696d756d206e756d626572206f66206a6f 627320746861742077696c6c2062652070726f63657373656420696e20612073696e676c 652071756575652072756e2e>174 581.4 R .244<4966206e6f74>5.244 F 1.164 <7365742c207468657265206973206e6f206c696d6974206f6e207468652073697a652e> 174 593.4 R 1.164<496620796f75206861>6.164 F 1.463 -.15<7665207665>-.2 H 1.163<7279206c6172>.15 F 1.163<676520717565756573206f7220612076>-.18 F 1.163<6572792073686f7274>-.15 F .115<71756575652072756e20696e74657276> 174 605.4 R .115<616c207468697320636f756c6420626520756e737461626c652e> -.25 F<486f>5.116 E<7765>-.25 E -.15<7665>-.25 G .916 -.4<722c2073>.15 H .116<696e636520746865208c727374>.4 F F2<4e>2.616 E F1 .116 <6a6f627320696e207175657565>2.616 F .639<6469726563746f7279206f72646572 206172652072756e2028726174686572207468616e20746865>174 617.4 R F2<4e> 3.139 E F1 .638<68696768657374207072696f72697479206a6f627329207468697320 73686f756c6420626520736574>3.139 F 1.498 <6173206869676820617320706f737369626c6520746f2061>174 629.4 R -.2<766f> -.2 G 1.498 <696420996c6f73696e679a206a6f627320746861742068617070656e20746f2066>.2 F 1.498<616c6c206c61746520696e20746865207175657565>-.1 F <6469726563746f7279>174 641.4 Q 5.682<2e4e>-.65 G .682<6f74653a20746869 73206f7074696f6e20616c736f2072657374726963747320746865206e756d626572206f 6620656e7472696573207072696e746564206279>-5.682 F F2<6d61696c71>3.181 E F1<2e>A 1.458<546861742069732c206966>174 653.4 R F2 <4d6178517565756552756e53697a65>3.958 E F1 1.459 <69732073657420746f20612076>3.958 F<616c7565>-.25 E F0<4e>3.959 E F1 <6c6172>3.959 E 1.459<676572207468616e207a65726f2c207468656e206f6e6c79> -.18 F F0<4e>3.959 E F1<656e747269657320617265207072696e7465642070657220 71756575652067726f75702e>174 665.4 Q <4d6178526563697069656e74735065724d6573736167653d>102 681.6 Q F2<4e>A F1 2.273<546865206d6178696d756d206e756d626572206f6620726563697069656e747320 746861742077696c6c20626520616363657074656420706572206d65737361676520696e 20616e>174 693.6 R .022<534d5450207472616e73616374696f6e2e>174 705.6 R .022<4e6f74653a2073657474696e67207468697320746f6f206c6f>5.022 F 2.523 <7763>-.25 G .023 <616e20696e7465726665726520776974682073656e64696e67206d61696c2066726f6d> -2.523 F<4d55>174 717.6 Q 1.026<417320746861742075736520534d545020666f72 20696e697469616c207375626d697373696f6e2e>-.4 F 1.026<4966206e6f74207365 742c207468657265206973206e6f206c696d6974206f6e20746865>6.026 F 0 Cg EP %%Page: 75 71 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3735>195.86 E /F1 10/Times-Roman@0 SF <6e756d626572206f6620726563697069656e74732070657220656e>174 96 Q -.15 <7665>-.4 G<6c6f70652e>.15 E<4d617852756e6e65727350657251756575653d>102 112.2 Q/F2 10/Times-Italic@0 SF<4e>A F1 .289 <5468697320736574732074686520646566>174 124.2 R .289<61756c74206d617869 6d756d206e756d626572206f662071756575652072756e6e65727320666f722071756575 652067726f7570732e>-.1 F .29<557020746f>5.29 F F2<4e>174 136.2 Q F1 .05 <71756575652072756e6e6572732077696c6c2077>2.55 F .05 <6f726b20696e20706172616c6c656c206f6e20612071756575652067726f757027>-.1 F 2.55<736d>-.55 G 2.55<657373616765732e2054686973>-2.55 F .05 <69732075736566756c>2.55 F 1.479<7768657265207468652070726f63657373696e 67206f662061206d65737361676520696e20746865207175657565206d69676874206465 6c6179207468652070726f63657373696e67206f66>174 148.2 R .56<737562736571 75656e74206d657373616765732e205375636820612064656c6179206d61792062652074 686520726573756c74206f66206e6f6e2d6572726f6e656f757320736974756174696f6e 73>174 160.2 R 1.18<737563682061732061206c6f>174 172.2 R 3.68<7762>-.25 G 1.18<616e64776964746820636f6e6e656374696f6e2e>-3.68 F 1.18 <4d6179206265206f>6.18 F -.15<7665>-.15 G 1.18 <7272696464656e206f6e2061207065722071756575652067726f7570>.15 F .936 <62617369732062792073657474696e6720746865>174 184.2 R F2<52756e6e6572> 3.436 E<73>-.1 E F1 .935<6f7074696f6e3b20736565207468652073656374696f6e> 3.436 F F0 .935<5175657565204772>3.435 F .935 <6f7570204465636c61726174696f6e>-.18 F F1<2e>A<54686520646566>174 196.2 Q<61756c742069732031207768656e206e6f74207365742e>-.1 E<4d6554>102 212.4 Q 40.86<6f6f205b6d5d>-.8 F .367<53656e6420746f206d6520746f6f2c2065>2.866 F -.15<7665>-.25 G 2.867<6e69>.15 G 2.867<664961>-2.867 G 2.867<6d69> -2.867 G 2.867<6e61>-2.867 G 2.867<6e61>-2.867 G .367<6c6961732065> -2.867 F 2.867<7870616e73696f6e2e2054686973>-.15 F .367 <6f7074696f6e2069732064657072656361746564>2.867 F <616e642077696c6c2062652072656d6f>174 224.4 Q -.15<7665>-.15 G 2.5<6466> .15 G<726f6d2061206675747572652076>-2.5 E<657273696f6e2e>-.15 E 44.5 <4d696c7465722054686973>102 240.6 R .975<6f7074696f6e20686173207365> 3.475 F -.15<7665>-.25 G .975<72616c2073756228737562296f7074696f6e732e> .15 F .974<546865206e616d6573206f6620746865207375626f7074696f6e73206172 6520736570612d>5.975 F<726174656420627920646f74732e>174 252.6 Q <417420746865208c727374206c65>5 E -.15<7665>-.25 G 2.5<6c74>.15 G <686520666f6c6c6f>-2.5 E<77696e67206f7074696f6e73206172652061>-.25 E -.25<7661>-.2 G<696c61626c653a>.25 E<4c6f674c65>214 268.8 Q -.15<7665> -.25 G 15<6c4c>.15 G<6f67206c65>-15 E -.15<7665>-.25 G 2.5<6c66>.15 G <6f7220696e707574206d61696c208c6c74657220616374696f6e732c20646566>-2.5 E <61756c747320746f204c6f674c65>-.1 E -.15<7665>-.25 G<6c2e>.15 E 22.1 <6d6163726f732053706563698c6573>214 280.8 R<6c697374206f66206d6163726f20 746f207472616e736d697420746f208c6c746572732e>2.5 E <536565206c6973742062656c6f>267.48 292.8 Q -.65<772e>-.25 G 2.458 <5468652060>174 309 R<606d6163726f7327>-.74 E 4.958<276f>-.74 G 2.458 <7074696f6e206861732074686520666f6c6c6f>-4.958 F 2.458<77696e6720737562 6f7074696f6e73207768696368207370656369667920746865206c697374206f66>-.25 F<6d6163726f20746f207472616e736d697420746f206d696c7465727320616674657220 61206365727461696e2065>174 321 Q -.15<7665>-.25 G <6e74206f636375727265642e>.15 E 14.88<636f6e6e656374204166746572>214 337.2 R<73657373696f6e20636f6e6e656374696f6e207374617274>2.5 E 28.76 <68656c6f204166746572>214 349.2 R<45484c4f2f48454c4f20636f6d6d616e64>2.5 E<656e>214 361.2 Q 12.5<7666726f6d204166746572>-.4 F <4d41494c20636f6d6d616e64>2.5 E<656e>214 373.2 Q 16.39 <7672637074204166746572>-.4 F<5243505420636f6d6d616e64>2.5 E 29.32 <64617461204166746572>214 385.2 R -.4<4441>2.5 G 1.86 -.93<54412063>-.71 H<6f6d6d616e642e>.93 E 31.54<656f68204166746572>214 397.2 R -.4<4441>2.5 G 1.86 -.93<54412063>-.71 H<6f6d6d616e6420616e6420686561646572>.93 E 28.76<656f6d204166746572>214 409.2 R -.4<4441>2.5 G 1.86 -.93<54412063> -.71 H<6f6d6d616e6420616e64207465726d696e6174696e672060>.93 E<602e>-.74 E -.74<2727>-.7 G<427920646566>174 425.4 Q <61756c7420746865206c69737473206f66206d6163726f732061726520656d707479> -.1 E 5<2e45>-.65 G<78616d706c653a>-5 E 2.5<4f4d>214 441.6 S<696c746572> -2.5 E<2e4c6f674c65>-.55 E -.15<7665>-.25 G<6c3d3132>.15 E 2.5<4f4d>214 453.6 S<696c746572>-2.5 E <2e6d6163726f732e636f6e6e6563743d6a2c205f2c207b6461656d6f6e5f6e616d657d> -.55 E<4d696e46726565426c6f636b733d>102 474 Q F2<4e>A F1 1.539 <5b625d20496e73697374206f6e206174206c65617374>174 486 R F2<4e>4.039 E F1 1.538<626c6f636b732066726565206f6e20746865208c6c6573797374656d2074686174 20686f6c647320746865207175657565208c6c6573>4.039 F .845 <6265666f726520616363657074696e6720656d61696c2076696120534d5450>174 498 R 5.846<2e49>-1.11 G 3.346<6674>-5.846 G .846 <6865726520697320696e737566>-3.346 F .846<8c6369656e74207370616365>-.25 F F2<73656e646d61696c>3.346 E F1<6769>3.346 E -.15<7665>-.25 G 3.346 <7361>.15 G <34353220726573706f6e736520746f20746865204d41494c20636f6d6d616e642e>174 510 Q<5468697320696e>5 E <7669746573207468652073656e64657220746f20747279206167>-.4 E <61696e206c61746572>-.05 E<2e>-.55 E<4d617851756575654167653d>102 526.2 Q F2 -.1<616765>C F1 .15<496620746869732069732073657420746f20612076>174 538.2 R .149<616c75652067726561746572207468616e207a65726f2c20656e747269 657320696e207468652071756575652077696c6c20626520726574726965642064757269 6e67>-.25 F 3.474<6171>174 550.2 S .974 <756575652072756e206f6e6c792069662074686520696e6469>-3.474 F .974<766964 75616c2072657472792074696d6520686173206265656e20726561636865642077686963 6820697320646f75626c6564>-.25 F<666f72206561636820617474656d70742e>174 562.2 Q<546865206d6178696d756d2072657472792074696d65206973206c696d697465 64206279207468652073706563698c65642076>5 E<616c75652e>-.25 E <4d696e51756575654167653d>102 578.4 Q F2 -.1<616765>C F1<446f6e27>174 590.4 Q 2.831<7470>-.18 G .331<726f6365737320616e>-2.831 F 2.831<7971> -.15 G .331<7565756564206a6f62732074686174206861>-2.831 F .631 -.15 <76652062>-.2 H .33<65656e20696e20746865207175657565206c657373207468616e 2074686520696e64696361746564>.15 F .91<74696d6520696e74657276>174 602.4 R 3.41<616c2e2054686973>-.25 F .91 <697320696e74656e64656420746f20616c6c6f>3.41 F 3.41<7779>-.25 G .91 <6f7520746f2067657420726573706f6e7369>-3.41 F -.15<7665>-.25 G .91 <6e6573732062792070726f63657373696e67>.15 F .08<7468652071756575652066> 174 614.4 R .08<6169726c79206672657175656e746c7920776974686f757420746872 617368696e6720796f75722073797374656d20627920747279696e67206a6f627320746f 6f206f6674656e2e>-.1 F 1.185<54686520646566>174 626.4 R 1.185 <61756c7420756e69747320617265206d696e757465732e>-.1 F 1.186<4e6f74653a20 54686973206f7074696f6e2069732069676e6f72656420666f722071756575652072756e 732074686174>6.185 F<73656c656374206120737562736574206f6620746865207175 6575652c20692e652e2c2099ad715b215d5b497c527c537c515d5b737472696e675d9a> 174 638.4 Q<4d75737451756f746543686172733d>102 654.6 Q F2<73>A F1 .557< 5365747320746865206c697374206f6620636861726163746572732074686174206d7573 742062652071756f746564206966207573656420696e20612066756c6c206e616d652074 68617420697320696e20746865>174 666.6 R .61 <7068726173652070617274206f6620612060>174 678.6 R .61 <60706872617365203c616464726573733e27>-.74 F 3.11<2773>-.74 G 3.11 <796e7461782e20546865>-3.11 F<646566>3.11 E .61<61756c742069732060>-.1 F <60b42e>-.74 E -.74<2727>-.7 G 5.61<2e54>.74 G .61 <68652063686172616374657273>-5.61 F -.74<6060>174 690.6 S <402c3b3a5c28295b5d27>.74 E 3.992<2761>-.74 G 1.492<726520616c>-3.992 F -.1<7761>-.1 G 1.492<797320616464656420746f2074686973206c6973742e>.1 F 1.492<4e6f74653a2054>6.492 F 3.991<6f61>-.8 G -.2<766f>-4.191 G 1.491 <696420706f74656e7469616c20627265616b616765206f66>.2 F <444b494d207369676e6174757265732069742069732075736566756c20746f20736574> 174 702.6 Q 0 Cg EP %%Page: 76 72 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d37362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 2.5<4f4d>214 96 S <75737451756f746543686172733d2e>-2.5 E<4d6f72656f>174 112.2 Q -.15<7665> -.15 G .8 -.4<722c2072>.15 H<656c6178>.4 E<656420686561646572207369676e 696e672073686f756c64206265207573656420666f7220444b494d207369676e61747572 65732e>-.15 E 7.85<4e696365517565756552756e20546865>102 128.4 R .325<70 72696f72697479206f662071756575652072756e6e65727320286e696365283329292e> 2.825 F .325<546869732076>5.325 F .326 <616c7565206d7573742062652067726561746572206f7220657175616c207a65726f2e> -.25 F<4e6f526563697069656e74416374696f6e>102 144.6 Q .258 <54686520616374696f6e20746f2074616b>174 156.6 R 2.758<6577>-.1 G .258 <68656e20796f75207265636569>-2.758 F .558 -.15<76652061206d>-.25 H .258 <657373616765207468617420686173206e6f2076>.15 F .257 <616c696420726563697069656e742068656164657273>-.25 F<2854>174 168.6 Q .159<6f3a2c2043633a2c204263633a2c206f72204170706172656e746c792d54>-.8 F .159<6f3a208a20746865206c61737420696e636c7564656420666f72206261636b2063 6f6d7061746962696c6974792077697468>-.8 F<6f6c64>174 180.6 Q/F2 10 /Times-Italic@0 SF<73656e646d61696c>2.503 E F1 2.503<73292e204974>B .003 <63616e206265>2.503 F F0<4e6f6e65>2.502 E F1 .002<746f207061737320746865 206d657373616765206f6e20756e6d6f64698c65642c2077686963682076696f6c617465 73>2.502 F 1.312<7468652070726f746f636f6c2c>174 192.6 R F0<4164642d54> 3.812 E<6f>-.92 E F1 1.312<746f2061646420612054>3.812 F 1.312 <6f3a20686561646572207769746820616e>-.8 F 3.812<7972>-.15 G 1.312 <6563697069656e74732069742063616e208c6e6420696e20746865>-3.812 F<656e> 174 204.6 Q -.15<7665>-.4 G 1.59<6c6f706520287768696368206d696768742065> .15 F 1.59<78706f7365204263633a20726563697069656e7473292c>-.15 F F0 <4164642d41>4.09 E<70706172>-.25 E<656e746c792d54>-.18 E<6f>-.92 E F1 1.59<746f2061646420616e>4.09 F<4170706172656e746c792d54>174 216.6 Q .499 <6f3a20686561646572202874686973206973206f6e6c7920666f72206261636b2d636f 6d7061746962696c69747920616e64206973206f66>-.8 F .499 <8c6369616c6c792064657072652d>-.25 F<6361746564292c>174 228.6 Q F0 <4164642d54>4.769 E<6f2d556e646973636c6f736564>-.92 E F1 2.269 <746f20616464206120686561646572209954>4.769 F 2.268 <6f3a20756e646973636c6f7365642d726563697069656e74733a3b9a20746f>-.8 F <6d616b>174 240.6 Q 3.304<6574>-.1 G .804<686520686561646572206c65> -3.304 F -.05<6761>-.15 G 3.304<6c77>.05 G .804 <6974686f757420646973636c6f73696e6720616e>-3.304 F .804 <797468696e672c206f72>-.15 F F0<4164642d426363>3.304 E F1 .805 <746f2061646420616e20656d707479>3.304 F<4263633a20686561646572>174 252.6 Q<2e>-.55 E 1.18<4f6c645374796c6548656164657273205b6f5d>102 268.8 R 1.713<417373756d652074686174207468652068656164657273206d617920626520696e 206f6c6420666f726d61742c20692e652e2c207370616365732064656c696d6974206e61 6d65732e>4.214 F 1.068 <546869732061637475616c6c79207475726e73206f6e20616e20616461707469>174 280.8 R 1.368 -.15<76652061>-.25 H 1.068<6c676f726974686d3a20696620616e> .15 F 3.569<7972>-.15 G 1.069 <6563697069656e74206164647265737320636f6e7461696e732061>-3.569 F 1.681 <636f6d6d612c20706172656e7468657369732c206f7220616e676c6520627261636b> 174 292.8 R 1.681<65742c2069742077696c6c20626520617373756d65642074686174 20636f6d6d617320616c7265616479>-.1 F -.15<6578>174 304.8 S 2.825 <6973742e204966>.15 F .325<74686973208d6167206973206e6f74206f6e2c206f6e 6c7920636f6d6d61732064656c696d6974206e616d65732e>2.825 F .325 <486561646572732061726520616c>5.325 F -.1<7761>-.1 G .325 <7973206f75742d>.1 F <707574207769746820636f6d6d6173206265747765656e20746865206e616d65732e> 174 316.8 Q<446566>5 E<61756c747320746f206f66>-.1 E<662e>-.25 E <4f70657261746f7243686172733d>102 333 Q F2 -.15<6368>C<61726c697374>.15 E F1 1.438<5b246f206d6163726f5d20546865206c697374206f662063686172616374 65727320746861742061726520636f6e7369646572656420746f20626520996f70657261 746f72739a2c20746861742069732c>174 345 R .82 <6368617261637465727320746861742064656c696d697420746f6b>174 357 R 3.32 <656e732e20416c6c>-.1 F .82 <6f70657261746f7220636861726163746572732061726520746f6b>3.32 F .82 <656e73206279207468656d73656c76>-.1 F<65733b>-.15 E .078<73657175656e63 6573206f66206e6f6e2d6f70657261746f7220636861726163746572732061726520616c 736f20746f6b>174 369 R 2.578<656e732e205768697465>-.1 F .078 <73706163652063686172616374657273207365702d>2.578 F .269 <617261746520746f6b>174 381 R .269<656e732062>-.1 F .269 <757420617265206e6f7420746f6b>-.2 F .269<656e73207468656d73656c76>-.1 F .269<6573208a20666f722065>-.15 F .269<78616d706c652c2099>-.15 F .27 <4141412e4242429a20686173207468726565>-.8 F<746f6b>174 393 Q .433 <656e732c2062>-.1 F .433<75742099>-.2 F .433 <414141204242429a20686173207477>-.8 F 2.933<6f2e204966>-.1 F .433 <6e6f74207365742c204f70657261746f72436861727320646566>2.933 F .433 <61756c747320746f20992e>-.1 F 1.666<3a405b5d>1.666 G<9a3b>-1.666 E <6164646974696f6e616c6c79>174 405 Q 3.565<2c74>-.65 G 1.065 <68652063686172616374657273209928>-3.565 F 1.666<293c3e2c3b>1.666 G 3.565<9a61>-1.666 G 1.066<726520616c>-3.565 F -.1<7761>-.1 G 1.066 <7973206f70657261746f72732e>.1 F 1.066 <4e6f74652074686174204f70657261746f72>6.066 F<2d>-.2 E<4368617273206d75 73742062652073657420696e2074686520636f6e8c6775726174696f6e208c6c65206265 666f726520616e>174 417 Q 2.5<7972>-.15 G<756c65736574732e>-2.5 E <50696446696c653d>102 433.2 Q F2<8c6c656e616d65>A F1 1.272 <46696c656e616d65206f662074686520706964208c6c652e>3.58 F<28646566>6.272 E 1.272<61756c74206973205f50>-.1 F -1.11<4154>-.92 G 3.772 <485f53454e444d41494c504944292e20546865>1.11 F F2<8c6c656e616d65>3.772 E F1<6973>3.772 E<6d6163726f2d65>174 445.2 Q<7870616e646564206265666f7265 206974206973206f70656e65642c20616e6420756e6c696e6b>-.15 E <6564207768656e>-.1 E F2<73656e646d61696c>2.5 E F1 -.15<6578>2.5 G <6974732e>.15 E<506f73746d6173746572436f70>102 461.4 Q<793d>-.1 E F2 <706f73746d6173746572>A F1 .003<5b505d204966207365742c20636f70696573206f 66206572726f72206d657373616765732077696c6c2062652073656e7420746f20746865 206e616d6564>174 473.4 R F2<706f73746d6173746572>2.504 E F1 5.004<2e4f>C .004<6e6c7920746865>-5.004 F .687<686561646572206f66207468652066>174 485.4 R .687<61696c6564206d6573736167652069732073656e742e>-.1 F .687<45 72726f727320726573756c74696e672066726f6d206d6573736167657320776974682061 206e65>5.687 F<672d>-.15 E<617469>174 497.4 Q 1.83 -.15<76652070>-.25 H 1.53<7265636564656e63652077696c6c206e6f742062652073656e742e>.15 F 1.531< 53696e6365206d6f7374206572726f72732061726520757365722070726f626c656d732c 2074686973206973>6.531 F .453 <70726f6261626c79206e6f74206120676f6f642069646561206f6e206c6172>174 509.4 R .453<67652073697465732c20616e64206172>-.18 F .453 <677561626c7920636f6e7461696e7320616c6c20736f727473206f6620707269>-.18 F -.25<7661>-.25 G -.15<6379>.25 G .1<76696f6c6174696f6e732c2062>174 521.4 R .101<7574206974207365656d7320746f20626520706f70756c617220776974682063 65727461696e206f7065726174696e672073797374656d732076>-.2 F 2.601 <656e646f72732e20546865>-.15 F 1.919 <61646472657373206973206d6163726f2065>174 533.4 R 1.918 <7870616e646564206174207468652074696d65206f662064656c69>-.15 F -.15 <7665>-.25 G<7279>.15 E 6.918<2e44>-.65 G<6566>-6.918 E 1.918 <61756c747320746f206e6f20706f73746d6173746572>-.1 F<636f706965732e>174 545.4 Q<507269>102 561.6 Q -.25<7661>-.25 G -.15<6379>.25 G <4f7074696f6e733d>.15 E F2<6f70742c6f70742c2e2e2e>1.666 E F1 1.191 <5b705d205365742074686520707269>174 573.6 R -.25<7661>-.25 G -.15<6379> .25 G F2<6f7074>3.841 E F1 3.691<696f6e732e2060>B<60507269>-.74 E -.25 <7661>-.25 G -.15<6379>.25 G 2.671 -.74<27272069>.15 H 3.692<7372>.74 G 1.192<65616c6c792061206d69736e6f6d65723b206d616e>-3.692 F 3.692<796f> -.15 G 3.692<6674>-3.692 G 1.192<6865736520617265>-3.692 F .929 <6a75737420612077>174 585.6 R .928<6179206f6620696e73697374696e67206f6e 207374726963746572206164686572656e636520746f2074686520534d54502070726f74 6f636f6c2e>-.1 F<546865>5.928 E F2<6f7074>3.428 E F1<696f6e73>A <63616e2062652073656c65637465642066726f6d3a>174 597.6 Q 0 Cg EP %%Page: 77 73 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3737>195.86 E /F1 10/Times-Roman@0 SF 56.37<7075626c696320416c6c6f>214 96 R 2.5<776f> -.25 G<70656e20616363657373>-2.5 E 27.49 <6e6565646d61696c68656c6f20496e73697374>214 108 R <6f6e2048454c4f206f722045484c4f20636f6d6d616e64206265666f7265204d41494c> 2.5 E<6e65656465>214 120 Q 25.98<78706e68656c6f20496e73697374>-.15 F <6f6e2048454c4f206f722045484c4f20636f6d6d616e64206265666f7265204558504e> 2.5 E<6e6f65>214 132 Q 52.08<78706e20446973616c6c6f>-.15 F 2.5<7745>-.25 G<58504e20656e746972656c79>-2.5 E 2.5<2c69>-.65 G<6d706c696573206e6f> -2.5 E -.15<7665>-.15 G<7262>.15 E<2e>-.4 E 28.61 <6e6565647672667968656c6f20496e73697374>214 144 R <6f6e2048454c4f206f722045484c4f20636f6d6d616e64206265666f72652056524659> 2.5 E<6e6f>214 156 Q 54.86<7672667920446973616c6c6f>-.15 F 2.5<7756>-.25 G<52465920656e746972656c79>-2.5 E 55.82<6e6f6574726e20446973616c6c6f>214 168 R 2.5<7745>-.25 G<54524e20656e746972656c79>-2.5 E<6e6f>214 180 Q -.15<7665>-.15 G 53.9<726220446973616c6c6f>.15 F 2.5<7756>-.25 G <45524220656e746972656c79>-2.5 E 30.82 <72657374726963746d61696c71205265737472696374>214 192 R <6d61696c7120636f6d6d616e64>2.5 E 35.27 <72657374726963747172756e205265737472696374>214 204 R 2.5 E<726573747269637465>214 216 Q 24.87<7870616e64205265737472696374>-.15 F2.5 E 2.5<7661>-.15 G <6e6420ad7620636f6d6d616e64206c696e65208d616773>-2.5 E 40.27 <6e6f726563656970747320446f6e27>214 230 R 2.5<7472>-.18 G <657475726e20737563636573732044534e73>-2.5 E/F2 7/Times-Roman@0 SF<3230> -4 I F1 27.49<6e6f626f647972657475726e20446f6e27>214 242 R 2.5<7472>-.18 G<657475726e2074686520626f6479206f662061206d6573736167652077697468204453 4e73>-2.5 E<676f61>214 254 Q -.1<7761>-.15 G 53.02<7944>.1 G <6973616c6c6f>-53.02 E 2.5<7765>-.25 G <7373656e7469616c6c7920616c6c20534d5450207374617475732071756572696573> -2.5 E<6175746877>214 266 Q 27.59<61726e696e677320507574>-.1 F <582d41757468656e7469636174696f6e2d57>2.5 E <61726e696e673a206865616465727320696e206d65737361676573>-.8 E <616e64206c6f672077>297.87 278 Q<61726e696e6773>-.1 E 12.5 <6e6f61637475616c726563697069656e7420446f6e27>214 290 R 2.5<7470>-.18 G <757420582d41637475616c2d526563697069656e74206c696e657320696e2044534e73> -2.5 E<7768696368207265>297.87 302 Q -.15<7665>-.25 G<616c20746865206163 7475616c206163636f756e74207468617420616464726573736573206d617020746f2e> .15 E 2.976<5468652099676f61>174 318.2 R -.1<7761>-.15 G 2.976 <799a2070736575646f2d8d6167207365747320616c6c208d6167732065>.1 F 2.977< 786365707420996e6f72656365697074739a2c209972657374726963746d61696c719a2c> -.15 F 4.558<9972657374726963747172756e9a2c2099726573747269637465>174 330.2 R 4.557<7870616e649a2c20996e6f6574726e9a2c20616e6420996e6f626f6479 72657475726e9a2e>-.15 F 4.557<4966206d61696c71206973>9.557 F 1.842<7265 73747269637465642c206f6e6c792070656f706c6520696e207468652073616d65206772 6f757020617320746865207175657565206469726563746f72792063616e207072696e74 20746865>174 342.2 R 2.545<71756575652e204966>174 354.2 R .044<71756575 652072756e732061726520726573747269637465642c206f6e6c7920726f6f7420616e64 20746865206f>2.545 F .044 <776e6572206f6620746865207175657565206469726563746f7279>-.25 F 1.299 <63616e2072756e207468652071756575652e>174 366.2 R 1.299 <5468652099726573747269637465>6.299 F 1.299 <7870616e649a2070736575646f2d8d616720696e73747275637473>-.15 F/F3 10 /Times-Italic@0 SF<73656e646d61696c>3.799 E F1 1.299<746f2064726f70> 3.799 F<707269>174 378.2 Q<76696c65>-.25 E 1.608 <676573207768656e20746865>-.15 F F04.108 E<76>-.15 E F1 1.608 <6f7074696f6e206973206769>4.108 F -.15<7665>-.25 G 4.108<6e62>.15 G 4.108<7975>-4.108 G 1.608 <736572732077686f20617265206e65697468657220726f6f74206e6f7220746865> -4.108 F -.35<5472>174 390.2 S 1.33 <75737465645573657220736f2075736572732063616e6e6f74207265616420707269> .35 F -.25<7661>-.25 G 1.33<746520616c69617365732c20666f7277>.25 F 1.33 <617264732c206f72203a696e636c7564653a208c6c65732e>-.1 F<4974>6.33 E .634 <77696c6c206164642074686520994e6f6e526f6f7453616665416464729a20746f2074 68652099446f6e74426c616d6553656e646d61696c9a206f7074696f6e20746f20707265> 174 402.2 R -.15<7665>-.25 G<6e74>.15 E .436 <6d69736c656164696e6720756e7361666520616464726573732077>174 414.2 R 2.936<61726e696e67732e204974>-.1 F .436<616c736f206f>2.936 F -.15<7665> -.15 G .436<72726964657320746865>.15 F F02.936 E F1<2876>2.936 E .436<6572626f73652920636f6d6d616e64>-.15 F 1.293 <6c696e65206f7074696f6e20746f20707265>174 426.2 R -.15<7665>-.25 G 1.292 <6e7420696e666f726d6174696f6e206c65616b6167652e>.15 F 1.292 <41757468656e7469636174696f6e2057>6.292 F 1.292 <61726e696e6773206164642077>-.8 F<61726e2d>-.1 E .183 <696e67732061626f75742076>174 438.2 R .183<6172696f757320636f6e64697469 6f6e732074686174206d617920696e64696361746520617474656d70747320746f207370 6f6f6620746865206d61696c2073797374656d2c>-.25 F<73756368206173207573696e 672061206e6f6e2d7374616e64617264207175657565206469726563746f7279>174 450.2 Q<2e>-.65 E<50726f6365737354>102 466.4 Q<69746c655072658c783d>-.35 E F3<737472696e67>A F1 1.963 <5072658c78207468652070726f63657373207469746c652073686f>174 478.4 R 1.963<776e206f6e2027707327206c697374696e67732077697468>-.25 F F3 <737472696e67>4.463 E F1 6.963<2e54>C<6865>-6.963 E F3<737472696e67> 4.463 E F1 1.963<77696c6c206265>4.463 F <6d6163726f2070726f6365737365642e>174 490.4 Q <51756575654469726563746f72793d>102 506.6 Q F3<646972>A F1 .583 <5b515d205468652051756575654469726563746f7279206f7074696f6e2073657276> 174 518.6 R .584<6573207477>-.15 F 3.084<6f70>-.1 G 3.084 <7572706f7365732e2046697273742c>-3.084 F .584 <69742073706563698c6573207468652064697265632d>3.084 F .483<746f7279206f 7220736574206f66206469726563746f72696573207468617420636f6d70726973652074 686520646566>174 530.6 R .482<61756c742071756575652067726f75702e>-.1 F .482<5365636f6e642c2069742073706563692d>5.482 F .104<8c6573207468652064 69726563746f727920442077686963682069732074686520616e636573746f72206f6620 616c6c207175657565206469726563746f726965732c20616e642077686963682073656e 642d>174 542.6 R .721 <6d61696c2075736573206173206974732063757272656e742077>174 554.6 R .721 <6f726b696e67206469726563746f7279>-.1 F 5.721<2e57>-.65 G .721 <68656e2073656e646d61696c2064756d707320636f72652c206974206c6561>-5.721 F -.15<7665>-.2 G<73>.15 E 2.872<69747320636f7265208c6c657320696e20442e> 174 566.6 R 2.873<546865726520617265207477>7.872 F 5.373<6f63>-.1 G 5.373<617365732e204966>-5.373 F F3<646972>5.373 E F1 2.873 <656e6473207769746820616e20617374657269736b202865>5.373 F<672c>-.15 E F3 <2f7661722f73706f6f6c2f6d71756575652f71642a>174 578.6 Q F1 .253<292c2074 68656e20616c6c206f6620746865206469726563746f72696573206f722073796d626f6c 6963206c696e6b7320746f206469726563746f72696573>B<6265>174 590.6 Q .432 <67696e6e696e672077697468206071642720696e>-.15 F F3 <2f7661722f73706f6f6c2f6d7175657565>2.932 E F1 .433<77696c6c206265207573 6564206173207175657565206469726563746f72696573206f6620746865>2.932 F <646566>174 602.6 Q .276<61756c742071756575652067726f75702c20616e64>-.1 F F3<2f7661722f73706f6f6c2f6d7175657565>2.776 E F1 .275 <77696c6c2062652075736564206173207468652077>2.776 F .275 <6f726b696e67206469726563746f7279>-.1 F 2.82<442e204f74686572776973652c> 174 614.6 R F3<646972>2.82 E F1 .32 <6d757374206e616d652061206469726563746f72792028757375616c6c79>2.82 F F3 <2f7661722f73706f6f6c2f6d7175657565>2.82 E F1 .32<293a2074686520646566>B <61756c74>-.1 E .545<71756575652067726f757020636f6e7369737473206f662074 68652073696e676c65207175657565206469726563746f7279>174 626.6 R F3 <646972>3.045 E F1 3.045<2c61>C .545<6e64207468652077>-3.045 F .545 <6f726b696e67206469726563746f7279>-.1 F 2.5<4469>174 638.6 S 2.5<7373> -2.5 G<657420746f>-2.5 E F3<646972>2.5 E F1 5.001<2e54>C 2.501<6f64> -5.801 G .001<658c6e65206164646974696f6e616c2067726f757073206f6620717565 7565206469726563746f726965732c207573652074686520636f6e8c677572612d> -2.501 F .746<74696f6e208c6c652060512720636f6d6d616e642e>174 650.6 R .746<446f206e6f74206368616e676520746865207175657565206469726563746f7279 20737472756374757265207768696c652073656e642d>5.746 F <6d61696c2069732072756e6e696e672e>174 662.6 Q .32 LW 76 678.8 72 678.8 DL 80 678.8 76 678.8 DL 84 678.8 80 678.8 DL 88 678.8 84 678.8 DL 92 678.8 88 678.8 DL 96 678.8 92 678.8 DL 100 678.8 96 678.8 DL 104 678.8 100 678.8 DL 108 678.8 104 678.8 DL 112 678.8 108 678.8 DL 116 678.8 112 678.8 DL 120 678.8 116 678.8 DL 124 678.8 120 678.8 DL 128 678.8 124 678.8 DL 132 678.8 128 678.8 DL 136 678.8 132 678.8 DL 140 678.8 136 678.8 DL 144 678.8 140 678.8 DL 148 678.8 144 678.8 DL 152 678.8 148 678.8 DL 156 678.8 152 678.8 DL 160 678.8 156 678.8 DL 164 678.8 160 678.8 DL 168 678.8 164 678.8 DL 172 678.8 168 678.8 DL 176 678.8 172 678.8 DL 180 678.8 176 678.8 DL 184 678.8 180 678.8 DL 188 678.8 184 678.8 DL 192 678.8 188 678.8 DL 196 678.8 192 678.8 DL 200 678.8 196 678.8 DL 204 678.8 200 678.8 DL 208 678.8 204 678.8 DL 212 678.8 208 678.8 DL 216 678.8 212 678.8 DL/F4 5/Times-Roman@0 SF<3230>93.6 689.2 Q /F5 8/Times-Roman@0 SF<4e2e422e3a20746865>3.2 I/F6 8/Times-Bold@0 SF <6e6f72>2 E<65636569707473>-.144 E F5<8d6167207475726e73206f66>2 E 2 <6673>-.2 G<7570706f727420666f72205246432031383931202844656c69>-2 E -.12 <7665>-.2 G<727920537461747573204e6f74698c636174696f6e292e>.12 E 0 Cg EP %%Page: 78 74 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d37382053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<517565756546>102 96 Q<6163746f723d>-.15 E/F2 10 /Times-Italic@0 SF<666163746f72>A F1 .613<5b715d20557365>174 108 R F2 <666163746f72>3.113 E F1 .613<617320746865206d756c7469706c69657220696e20 746865206d61702066756e6374696f6e20746f20646563696465207768656e20746f206a 757374207175657565>3.113 F .415 <7570206a6f627320726174686572207468616e2072756e207468656d2e>174 120 R .415<546869732076>5.415 F .415<616c7565206973206469>-.25 F .415 <76696465642062792074686520646966>-.25 F .415 <666572656e6365206265747765656e20746865>-.25 F 1.003 <63757272656e74206c6f61642061>174 132 R -.15<7665>-.2 G 1.003 <7261676520616e6420746865206c6f61642061>.15 F -.15<7665>-.2 G 1.004 <72616765206c696d69742028>.15 F F0<51756575654c41>A F1 1.004 <6f7074696f6e2920746f2064657465726d696e65>3.504 F<746865206d6178696d756d 206d657373616765207072696f7269747920746861742077696c6c2062652073656e742e> 174 144 Q<446566>5 E<61756c747320746f203630303030302e>-.1 E <51756575654c413d>102 160.2 Q F2<4c41>A F1 1.087 <5b785d205768656e207468652073797374656d206c6f61642061>15.26 F -.15<7665> -.2 G 1.087<726167652065>.15 F<786365656473>-.15 E F2<4c41>3.587 E F1 1.086<616e6420746865>3.587 F F0<517565756546>3.586 E<6163746f72>-.25 E F1<28>3.586 E F0<71>A F1 3.586<296f>C<7074696f6e>-3.586 E<6469>174 172.2 Q 1.465<76696465642062792074686520646966>-.25 F 1.465 <666572656e636520696e207468652063757272656e74206c6f61642061>-.25 F -.15 <7665>-.2 G 1.465<7261676520616e6420746865>.15 F F0<51756575654c41>3.965 E F1<6f7074696f6e>3.965 E .769<706c7573206f6e65206973206c65737320746861 6e20746865207072696f72697479206f6620746865206d6573736167652c206a75737420 7175657565206d657373616765732028692e652e2c20646f6e27>174 184.2 R<74>-.18 E .247<74727920746f2073656e64207468656d292e>174 196.2 R<446566>5.247 E .247<61756c747320746f2038206d756c7469706c69656420627920746865206e756d62 6572206f662070726f636573736f7273206f6e6c696e65206f6e>-.1 F<746865207379 7374656d2028696620746861742063616e2062652064657465726d696e6564292e>174 208.2 Q<517565756546696c654d6f64653d>102 224.4 Q F2<6d6f6465>A F1 <446566>174 236.4 Q .637<61756c74207065726d697373696f6e7320666f72207175 657565208c6c657320286f6374616c292e>-.1 F .636<4966206e6f74207365742c2073 656e646d61696c2075736573203036303020756e6c657373>5.637 F <697473207265616c20616e64206566>174 248.4 Q<6665637469>-.25 E .3 -.15 <76652075>-.25 H<69642061726520646966>.15 E <666572656e7420696e2077686963682063617365206974207573657320303634342e> -.25 E<5175657565536f72744f726465723d>102 264.6 Q F2<616c676f726974686d> A F1 .1<5365747320746865>174 276.6 R F2<616c676f726974686d>2.6 E F1 .101 <7573656420666f7220736f7274696e67207468652071756575652e>2.6 F .101 <4f6e6c7920746865208c72737420636861726163746572206f66207468652076>5.101 F<616c7565>-.25 E .047<697320757365642e>174 288.6 R<4c65>5.047 E -.05 <6761>-.15 G 2.547<6c76>.05 G .046<616c756573206172652099686f73749a2028 746f206f7264657220627920746865206e616d65206f6620746865208c72737420686f73 74206e616d65206f6620746865>-2.797 F .796<8c72737420726563697069656e7429 2c20998c6c656e616d659a2028746f206f7264657220627920746865206e616d65206f66 20746865207175657565208c6c65206e616d65292c209974696d659a>174 300.6 R .283<28746f206f7264657220627920746865207375626d697373696f6e2f6372656174 696f6e2074696d65292c209972616e646f6d9a2028746f206f726465722072616e646f6d 6c79292c20996d6f64692d>174 312.6 R 1.798<8c636174696f6e9a2028746f206f72 64657220627920746865206d6f64698c636174696f6e2074696d65206f66207468652071 66208c6c6520286f6c64657220656e7472696573208c72737429292c>174 324.6 R .029<996e6f6e659a2028746f206e6f74206f72646572292c20616e6420997072696f72 6974799a2028746f206f72646572206279206d657373616765207072696f72697479292e> 174 336.6 R .029<486f7374206f72646572696e67>5.029 F<6d616b>174 348.6 Q 1.286<65732062657474657220757365206f662074686520636f6e6e656374696f6e2063 616368652c2062>-.1 F 1.286 <7574206d61792074656e6420746f2070726f63657373206c6f>-.2 F 3.787<7770> -.25 G<72696f72697479>-3.787 E 1.124 <6d65737361676573207468617420676f20746f20612073696e676c6520686f7374206f> 174 360.6 R -.15<7665>-.15 G 3.624<7268>.15 G 1.123 <696768207072696f72697479206d65737361676573207468617420676f20746f207365> -3.624 F -.15<7665>-.25 G<72616c>.15 E .275 <686f7374733b2069742070726f6261626c792073686f756c646e27>174 372.6 R 2.776<7462>-.18 G 2.776<6575>-2.776 G .276<736564206f6e20736c6f>-2.776 F 2.776<776e>-.25 G<657477>-2.776 E .276<6f726b206c696e6b732e>-.1 F .276 <46696c656e616d6520616e64206d6f64698c2d>5.276 F .505 <636174696f6e2074696d65206f72646572696e67207361>174 384.6 R -.15<7665> -.2 G 3.005<7374>.15 G .505<6865206f>-3.005 F -.15<7665>-.15 G .504<7268 656164206f662072656164696e6720616c6c206f66207468652071756575656420697465 6d73206265666f7265>.15 F 1.359 <7374617274696e67207468652071756575652072756e2e>174 396.6 R 1.359<437265 6174696f6e20287375626d697373696f6e292074696d65206f72646572696e6720697320 616c6d6f737420616c>6.359 F -.1<7761>-.1 G 1.36<79732061>.1 F .712 <62616420696465612c2073696e636520697420616c6c6f>174 408.6 R .712 <7773206c6172>-.25 F .712<67652c2062>-.18 F .711 <756c6b206d61696c20746f20676f206f7574206265666f726520736d616c6c6572>-.2 F 3.211<2c70>-.4 G .711<6572736f6e616c206d61696c2c>-3.211 F -.2<6275>174 420.6 S 3.077<746d>.2 G .577<6179206861>-3.077 F .877 -.15<76652061>-.2 H .577 <70706c69636162696c697479206f6e20736f6d6520686f73747320776974682076>.15 F .578<6572792066>-.15 F .578<61737420636f6e6e656374696f6e732e>-.1 F .578<52616e646f6d206973>5.578 F 1.265<75736566756c206966207365>174 432.6 R -.15<7665>-.25 G 1.264<72616c2071756575652072756e6e657273206172652073 7461727465642062792068616e642077686963682074727920746f20647261696e207468 652073616d65>.15 F .945 <71756575652073696e6365206f6464732061726520746865>174 444.6 R 3.445 <7977>-.15 G .945<696c6c2062652077>-3.445 F .945 <6f726b696e67206f6e20646966>-.1 F .946 <666572656e74207061727473206f662074686520717565756520617420746865>-.25 F <73616d652074696d652e>174 456.6 Q <5072696f72697479206f72646572696e672069732074686520646566>5 E <61756c742e>-.1 E<517565756554>102 472.8 Q<696d656f75743d>-.35 E F2 <74696d656f7574>A F1 .356<5b545d20412073796e6f6e>174 484.8 R .356 <796d20666f72209954>-.15 F 2.856 <696d656f75742e717565756572657475726e9a2e20557365>-.35 F .355 <7468617420666f726d20696e7374656164206f6620746865209951756575652d>2.855 F -.35<5469>174 496.8 S<6d656f75749a20666f726d2e>.35 E 32.83 <52616e6446696c65204e616d65>102 513 R .77<6f66208c6c6520636f6e7461696e69 6e672072616e646f6d2064617461206f7220746865206e616d65206f662074686520554e 495820736f636b>3.27 F .77<657420696620454744206973>-.1 F 2.714 <757365642e2041>174 525 R .214<28726571756972656429207072658c78202265> 2.714 F .214 <67643a22206f7220228c6c653a222073706563698c65732074686520747970652e>-.15 F<5354>5.213 E<4152>-.93 E .213<54544c53207265717569726573>-.6 F 2.503< 74686973208c6c656e616d652069662074686520636f6d70696c65208d61672048415355 52414e444f4d444556206973206e6f742073657420287365652073656e642d>174 537 R <6d61696c2f524541444d45292e>174 549 Q<5265736f6c76>102 565.2 Q <65724f7074696f6e733d>-.15 E F2<6f7074696f6e73>A F1 .128 <5b495d20536574207265736f6c76>174 577.2 R .127<6572206f7074696f6e732e> -.15 F -1.11<5661>5.127 G .127 <6c7565732063616e20626520736574207573696e67>1.11 F F0<2b>2.627 E F2 <8d61>A<67>-.1 E F1 .127<616e6420636c6561726564207573696e67>2.627 F F0 2.627 E F2<8d61>A<67>-.1 E F1 2.627<3b74>C<6865>-2.627 E F2<8d61>174 589.2 Q<67>-.1 E F1 5.013<7363>C 2.513<616e2062652099646562>-5.013 F 2.513<75679a2c209961616f6e6c799a2c2099757365>-.2 F 2.514<76639a2c209970 72696d6172799a2c209969676e74639a2c2099726563757273659a2c20996465662d> -.25 F 2.689<6e616d65739a2c2099737461796f70656e9a2c20997573655f696e6574 369a2c206f722099646e737263689a2e>174 601.2 R 2.688 <54686520737472696e67209948617357>7.688 F<696c64636172644d589a>-.4 E .282<28776974686f75742061>174 613.2 R F0<2b>2.782 E F1<6f72>2.782 E F0 2.782 E F1 2.782<2963>C .283 <616e2062652073706563698c656420746f207475726e206f66>-2.782 F 2.783<666d> -.25 G .283<61746368696e67206167>-2.783 F .283 <61696e7374204d58207265636f726473207768656e>-.05 F .89 <646f696e67206e616d652063616e6f6e698c636174696f6e732e>174 625.2 R .89 <54686520737472696e67209957>5.89 F<6f726b41726f756e6442726f6b>-.8 E .89 <656e414141419a2028776974686f75742061>-.1 F F0<2b>174 637.2 Q F1<6f72> 3.472 E F03.472 E F1 3.472<2963>C .972 <616e2062652073706563698c656420746f2077>-3.472 F .972 <6f726b2061726f756e6420736f6d652062726f6b>-.1 F .973 <656e206e616d6573657276>-.1 F .973<6572732077686963682072657475726e>-.15 F<534552>174 649.2 Q<5646>-.8 E 1.001 <41494c2028612074656d706f726172792066>-.74 F 1.001 <61696c75726529206f6e20545f4141414120284950763629206c6f6f6b7570732e>-.1 F 1.001<4e6f746963653a206974206d69676874>6.001 F<6265206e65636573736172 7920746f206170706c79207468652073616d6520286f722073696d696c617229206f7074 696f6e7320746f>174 661.2 Q F2<7375626d69742e6366>2.5 E F1<746f6f2e>2.5 E -1.04<52657175697265734469726673796e632054686973>102 677.4 R 10.199 <6f7074696f6e2063616e206265207573656420746f206f>12.699 F -.15<7665>-.15 G 10.199<72726964652074686520636f6d70696c652074696d65208d6167>.15 F F0 <524551>174 689.4 Q<55495245535f4449525f4653594e43>-.1 E F1 .872 <61742072756e74696d652062792073657474696e6720697420746f>3.372 F/F3 9 /Times-Roman@0 SF -.09<6661>3.372 G<6c7365>.09 E F1 5.871<2e49>C 3.371 <6674>-5.871 G .871<686520636f6d70696c652074696d65>-3.371 F .017<8d6167 206973206e6f74207365742c20746865206f7074696f6e2069732069676e6f7265642e> 174 701.4 R .018<546865208d6167207475726e73206f6e20737570706f727420666f 72208c6c652073797374656d732074686174>5.017 F .21 <7265717569726520746f2063616c6c>174 713.4 R F2<6673796e632829>2.71 E F1 .209<666f722061206469726563746f727920696620746865206d6574612d6461746120 696e20697420686173206265656e206368616e6765642e>2.71 F<54686973>5.209 E .074<73686f756c64206265207475726e6564206f6e206174206c6561737420666f7220 6f6c6465722076>174 725.4 R .075<657273696f6e73206f662052656973657246533b 20697420697320656e61626c656420627920646566>-.15 F<61756c74>-.1 E 0 Cg EP %%Page: 79 75 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3739>195.86 E /F1 10/Times-Roman@0 SF 1.451<666f72204c696e75782e>174 96 R 1.451<416363 6f7264696e6720746f20736f6d6520696e666f726d6174696f6e2074686973208d616720 6973206e6f74206e656564656420616e>6.451 F 1.45<796d6f726520666f72>-.15 F -.1<6b65>174 108 S<726e656c20322e342e313620616e64206e65>.1 E<776572>-.25 E<2e>-.55 E 10.61<527274496d706c69657344736e204966>102 124.2 R .814<7468 6973206f7074696f6e206973207365742c2061209952657475726e2d526563656970742d 54>3.314 F .815<6f3a9a20686561646572206361757365732074686520726571756573 74206f6620612044534e2c>-.8 F .521 <77686963682069732073656e7420746f2074686520656e>174 136.2 R -.15<7665> -.4 G .521<6c6f70652073656e64657220617320726571756972656420627920524643 20313839312c206e6f7420746f207468652061646472657373>.15 F<6769>174 148.2 Q -.15<7665>-.25 G 2.5<6e69>.15 G 2.5<6e74>-2.5 G<686520686561646572> -2.5 E<2e>-.55 E<52756e4173557365723d>102 164.4 Q/F2 10/Times-Italic@0 SF<75736572>A F1<546865>2.48 E F2<75736572>3.147 E F1 .647 <706172616d65746572206d617920626520612075736572206e616d6520286c6f6f6b> 3.147 F .647<656420757020696e>-.1 F F2<2f6574632f706173737764>3.147 E F1 3.147<296f>C 3.148<72616e>-3.147 G<756d65726963>-3.148 E .911 <757365722069643b2065697468657220666f726d2063616e206861>174 176.4 R 1.211 -.15<76652099>-.2 H .911<3a67726f75709a20617474616368656420287768 6572652067726f75702063616e206265206e756d65726963206f72>.15 F 2.736 <73796d626f6c6963292e204966>174 188.4 R .237 <73657420746f2061206e6f6e2d7a65726f20286e6f6e2d726f6f74292076>2.737 F <616c75652c>-.25 E F2<73656e646d61696c>2.737 E F1 .237 <77696c6c206368616e676520746f20746869732075736572>2.737 F .633 <69642073686f72746c792061667465722073746172747570>174 202.4 R/F3 7 /Times-Roman@0 SF<3231>-4 I F1 5.633<2e54>4 K .633<6869732061>-5.633 F -.2<766f>-.2 G .632<6964732061206365727461696e20636c617373206f6620736563 75726974792070726f626c656d732e>.2 F<486f>5.632 E<772d>-.25 E -2.15 -.25 <65762065>174 214.4 T 1.622 -.4<722c2074>.25 H .822 <686973206d65616e73207468617420616c6c20992e666f7277>.4 F .822<6172649a20 616e6420993a696e636c7564653a9a208c6c6573206d757374206265207265616461626c 6520627920746865>-.1 F<696e64696361746564>174 226.4 Q F2<75736572>2.624 E F1 .123<616e6420616c6c208c6c657320746f206265207772697474656e206d757374 206265207772697461626c65206279>2.624 F F2<75736572>2.623 E F1 .123 <416c736f2c20616c6c208c6c6520616e64>2.623 F 2.065 <70726f6772616d2064656c69>174 238.4 R -.15<7665>-.25 G 2.065 <726965732077696c6c206265206d61726b>.15 F 2.066 <656420756e7361666520756e6c65737320746865206f7074696f6e>-.1 F F0 <446f6e74426c616d6553656e642d>4.566 E <6d61696c3d4e6f6e526f6f745361666541646472>174 250.4 Q F1 .765 <6973207365742c20696e2077686963682063617365207468652064656c69>3.265 F -.15<7665>-.25 G .765<72792077696c6c20626520646f6e65206173>.15 F F2 <75736572>3.265 E F1<2e>A .82 <497420697320616c736f20696e636f6d70617469626c65207769746820746865>174 262.4 R F0<5361666546696c65456e>3.32 E<766972>-.4 E<6f6e6d656e74>-.18 E F1 3.32<6f7074696f6e2e20496e>3.32 F .82<6f746865722077>3.32 F .82 <6f7264732c206974>-.1 F 1.604<6d6179206e6f742061637475616c6c792061646420 6d75636820746f207365637572697479206f6e20616e2061>174 274.4 R -.15<7665> -.2 G 1.603<726167652073797374656d2c20616e64206d617920696e2066>.15 F <616374>-.1 E 1.531<646574726163742066726f6d2073656375726974792028626563 61757365206f74686572208c6c65207065726d697373696f6e73206d757374206265206c 6f6f73656e6564292e>174 286.4 R<486f>6.531 E<772d>-.25 E -2.15 -.25 <65762065>174 298.4 T 2.644 -.4<722c2069>.25 H 4.344<7473>.4 G 1.844 <686f756c642062652075736566756c206f6e208c7265>-4.344 F -.1<7761>-.25 G 1.844<6c6c7320616e64206f7468657220706c6163657320776865726520757365727320 646f6e27>.1 F 4.343<7468>-.18 G -2.25 -.2<61762065>-4.343 H<6163636f756e 747320616e642074686520616c6961736573208c6c652069732077656c6c20636f6e7374 7261696e65642e>174 310.4 Q<526563697069656e7446>102 326.6 Q <6163746f723d>-.15 E F2<66616374>A F1 .637 <5b795d2054686520696e64696361746564>174 338.6 R F2<66616374>3.137 E F1 .637<6f7220697320616464656420746f20746865207072696f72697479202874687573> B F2<6c6f776572696e67>3.137 E F1 .638 <746865207072696f72697479206f6620746865>3.137 F .231<6a6f622920666f7220 6561636820726563697069656e742c20692e652e2c20746869732076>174 350.6 R .231<616c75652070656e616c697a6573206a6f62732077697468206c6172>-.25 F .23 <6765206e756d62657273206f66207265636970692d>-.18 F 2.5 <656e74732e20446566>174 362.6 R<61756c747320746f2033303030302e>-.1 E <5265667573654c413d>102 378.8 Q F2<4c41>A F1 1.012 <5b585d205768656e207468652073797374656d206c6f61642061>13.59 F -.15<7665> -.2 G 1.012<726167652065>.15 F<786365656473>-.15 E F2<4c41>3.512 E F1 3.512<2c72>C 1.012 <656675736520696e636f6d696e6720534d545020636f6e6e65632d>-3.512 F 2.659 <74696f6e732e20446566>174 390.8 R .158<61756c747320746f203132206d756c74 69706c69656420627920746865206e756d626572206f662070726f636573736f7273206f 6e6c696e65206f6e207468652073797374656d>-.1 F <28696620746861742063616e2062652064657465726d696e6564292e>174 402.8 Q <52656a6563744c6f67496e74657276>102 419 Q<616c3d>-.25 E F2 <74696d656f7574>A F1<4c6f6720696e74657276>174 431 Q<616c207768656e207265 667573696e6720636f6e6e656374696f6e7320666f722074686973206c6f6e6720286465 66>-.25 E<61756c743a203368292e>-.1 E<526574727946>102 447.2 Q <6163746f723d>-.15 E F2<66616374>A F1 .771<5b5a5d20546865>3.74 F F2 <66616374>3.271 E F1 .771 <6f7220697320616464656420746f20746865207072696f726974792065>B -.15<7665> -.25 G .772<72792074696d652061206a6f622069732070726f6365737365642e>.15 F .772<546875732c2065616368>5.772 F .994<74696d652061206a6f62206973207072 6f6365737365642c20697473207072696f726974792077696c6c20626520646563726561 7365642062792074686520696e646963617465642076>174 459.2 R 3.493 <616c75652e20496e>-.25 F 1.107<6d6f737420656e>174 471.2 R 1.107 <7669726f6e6d656e747320746869732073686f756c6420626520706f73697469>-.4 F -.15<7665>-.25 G 3.608<2c73>.15 G 1.108 <696e636520686f73747320746861742061726520646f>-3.608 F 1.108 <776e2061726520616c6c20746f6f>-.25 F<6f6674656e20646f>174 483.2 Q <776e20666f722061206c6f6e672074696d652e>-.25 E<446566>5 E <61756c747320746f2039303030302e>-.1 E<5361666546696c65456e>102 499.4 Q <7669726f6e6d656e743d>-.4 E F2<646972>A F1 .66 <49662074686973206f7074696f6e206973207365742c>174 511.4 R F2 <73656e646d61696c>3.159 E F1 .659<77696c6c20646f2061>3.159 F F2 -.15 <6368>3.159 G -.45<726f>.15 G<6f74>.45 E F1 .659 <2832292063616c6c20696e746f2074686520696e64696361746564>B F2<646972> 3.159 E F1<6563746f7279>A .134<6265666f726520646f696e6720616e>174 523.4 R 2.634<798c>-.15 G .134<6c65207772697465732e>-2.634 F .134<496620746865 208c6c65206e616d652073706563698c6564206279207468652075736572206265>5.134 F .134<67696e732077697468>-.15 F F2<646972>2.634 E F1<2c>A .767<74686174 207061727469616c2070617468206e616d652077696c6c20626520737472697070656420 6f66>174 535.4 R 3.267<6662>-.25 G .767 <65666f72652077726974696e672c20736f2028666f722065>-3.267 F .767 <78616d706c652920696620746865>-.15 F<5361666546696c65456e>174 547.4 Q .515<7669726f6e6d656e742076>-.4 F .515<61726961626c65206973207365742074 6f20992f736166659a207468656e20616c6961736573206f6620992f736166652f6c6f67 732f8c6c659a20616e64>-.25 F .148<992f6c6f67732f8c6c659a2061637475616c6c 7920696e646963617465207468652073616d65208c6c652e>174 559.4 R <4164646974696f6e616c6c79>5.148 E 2.647<2c69>-.65 G 2.647<6674>-2.647 G .147<686973206f7074696f6e206973207365742c>-2.647 F F2<73656e642d>2.647 E <6d61696c>174 571.4 Q F1<7265667573657320746f2064656c69>2.5 E -.15<7665> -.25 G 2.5<7274>.15 G 2.5<6f73>-2.5 G<796d626f6c6963206c696e6b732e>-2.5 E<5361>102 587.6 Q -.15<7665>-.2 G 10.41<46726f6d4c696e65205b665d>.15 F <5361>4.492 E 2.292 -.15<76652055>-.2 H 1.992<4e49582d7374796c6520994672 6f6d9a206c696e6573206174207468652066726f6e74206f6620686561646572732e>.15 F 1.993<4e6f726d616c6c7920746865>6.993 F 4.493<7961>-.15 G<7265>-4.493 E <617373756d656420726564756e64616e7420616e64206469736361726465642e>174 599.6 Q .62<53656e644d696d654572726f7273205b6a5d>102 615.8 R .373<496620 7365742c2073656e64206572726f72206d6573736167657320696e204d494d4520666f72 6d6174202873656520524643203230343520616e6420524643203133343420666f72> 2.874 F 2.914<64657461696c73292e204966>174 627.8 R<64697361626c65642c> 2.914 E F2<73656e646d61696c>2.914 E F1 .415 <77696c6c206e6f742072657475726e207468652044534e206b>2.914 F -.15<6579> -.1 G -.1<776f>.15 G .415<726420696e20726573706f6e736520746f20616e>.1 F 1.731<45484c4f20616e642077696c6c206e6f7420646f2044656c69>174 639.8 R -.15<7665>-.25 G 1.731<727920537461747573204e6f74698c636174696f6e207072 6f63657373696e672061732064657363726962656420696e>.15 F <52464320313839312e>174 651.8 Q<53657276>102 668 Q 10.77 <65724365727446696c652046696c65>-.15 F .324<636f6e7461696e696e6720746865 2063657274698c63617465206f66207468652073657276>2.824 F<6572>-.15 E 2.825 <2c69>-.4 G .325<2e652e2c20746869732063657274698c6361746520697320757365 64207768656e2073656e642d>-2.825 F<6d61696c20616374732061732073657276>174 680 Q<657220287573656420666f72205354>-.15 E<4152>-.93 E<54544c53292e>-.6 E .32 LW 76 689.6 72 689.6 DL 80 689.6 76 689.6 DL 84 689.6 80 689.6 DL 88 689.6 84 689.6 DL 92 689.6 88 689.6 DL 96 689.6 92 689.6 DL 100 689.6 96 689.6 DL 104 689.6 100 689.6 DL 108 689.6 104 689.6 DL 112 689.6 108 689.6 DL 116 689.6 112 689.6 DL 120 689.6 116 689.6 DL 124 689.6 120 689.6 DL 128 689.6 124 689.6 DL 132 689.6 128 689.6 DL 136 689.6 132 689.6 DL 140 689.6 136 689.6 DL 144 689.6 140 689.6 DL 148 689.6 144 689.6 DL 152 689.6 148 689.6 DL 156 689.6 152 689.6 DL 160 689.6 156 689.6 DL 164 689.6 160 689.6 DL 168 689.6 164 689.6 DL 172 689.6 168 689.6 DL 176 689.6 172 689.6 DL 180 689.6 176 689.6 DL 184 689.6 180 689.6 DL 188 689.6 184 689.6 DL 192 689.6 188 689.6 DL 196 689.6 192 689.6 DL 200 689.6 196 689.6 DL 204 689.6 200 689.6 DL 208 689.6 204 689.6 DL 212 689.6 208 689.6 DL 216 689.6 212 689.6 DL/F4 5 /Times-Roman@0 SF<3231>93.6 700 Q/F5 8/Times-Roman@0 SF<5768656e2072756e 6e696e672061732061206461656d6f6e2c206974206368616e67657320746f2074686973 207573657220616674657220616363657074696e67206120636f6e6e656374696f6e2062> 3.2 I<7574206265666f72652072656164696e6720616e>-.16 E<79>-.12 E F3 <534d5450>2 E F5<636f6d6d616e64732e>2 E 0 Cg EP %%Page: 80 76 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d38302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<53657276>102 96 Q<65724b>-.15 E -.15<6579>-.25 G 11.73<46696c652046696c65>.15 F 3.092 <636f6e7461696e696e672074686520707269>5.592 F -.25<7661>-.25 G 3.092 <7465206b>.25 F 3.392 -.15<65792062>-.1 H 3.092 <656c6f6e67696e6720746f207468652073657276>.15 F 3.091 <65722063657274698c6361746520287573656420666f72>-.15 F<5354>174 108 Q <4152>-.93 E<54544c53292e>-.6 E<53657276>102 124.2 Q <657253534c4f7074696f6e73>-.15 E 3.348<4173>174 136.2 S .849<7061636520 6f7220636f6d6d6120736570617261746564206c697374206f662053534c2072656c6174 6564206f7074696f6e7320666f72207468652073657276>-3.348 F .849 <657220736964652e>-.15 F<536565>5.849 E/F2 10/Times-Italic@0 SF <53534c5f4354585f7365745f6f7074696f6e73>174 148.2 Q F1 .961 <28332920666f722061206c6973743b207468652061>B -.25<7661>-.2 G .961 <696c61626c652076>.25 F .961 <616c75657320646570656e64206f6e20746865204f70656e53534c>-.25 F -.15 <7665>174 160.2 S 5.628<7273696f6e206167>.15 F 5.628 <61696e7374207768696368>-.05 F F2<73656e646d61696c>8.129 E F1 5.629 <697320636f6d70696c65642e>8.129 F 5.629<427920646566>10.629 F <61756c742c>-.1 E F2<53534c5f4f505f414c4c>8.129 E <2d53534c5f4f505f544c534558545f50>174 172.2 Q<414444494e47>-.9 E F1 .938 <6172652075736564202869662074686f7365206f7074696f6e73206172652061>3.438 F -.25<7661>-.2 G 3.437<696c61626c65292e204f7074696f6e73>.25 F .28<6361 6e20626520636c656172656420627920707265636564696e67207468656d207769746820 61206d696e7573207369676e2e>174 184.2 R .281 <497420697320616c736f20706f737369626c6520746f2073706563696679>5.281 F <6e756d65726963616c2076>174 196.2 Q<616c7565732c20652e672e2c>-.25 E F0 <2d307830303130>2.5 E F1<2e>A<5365727669636553776974636846696c653d>102 212.4 Q F2<8c6c656e616d65>A F1 2.328<496620796f757220686f7374206f706572 6174696e672073797374656d206861732061207365727669636520737769746368206162 737472616374696f6e2028652e672e2c202f6574632f6e73732d>174 224.4 R .327<77 697463682e636f6e66206f6e20536f6c61726973206f72202f6574632f7376632e636f6e 66206f6e20556c7472697820616e6420444543204f53462f312920746861742073657276 6963652077696c6c>174 236.4 R .594<626520636f6e73756c74656420616e64207468 6973206f7074696f6e2069732069676e6f7265642e>174 248.4 R .594<4f7468657277 6973652c207468697320697320746865206e616d65206f662061208c6c652074686174> 5.594 F<70726f>174 260.4 Q .524<766964657320746865206c697374206f66206d65 74686f6473207573656420746f20696d706c656d656e7420706172746963756c61722073 657276696365732e>-.15 F .525<5468652073796e746178206973>5.524 F 3.019 <6173>174 272.4 S .518<6572696573206f66206c696e65732c2065616368206f6620 776869636820697320612073657175656e6365206f662077>-3.019 F 3.018 <6f7264732e20546865>-.1 F .518<8c7273742077>3.018 F .518 <6f72642069732074686520736572>-.1 F<2d>-.2 E 1.704 <76696365206e616d652c20616e6420666f6c6c6f>174 284.4 R 1.704 <77696e672077>-.25 F 1.705 <6f7264732061726520736572766963652074797065732e>-.1 F 1.705 <5468652073657276696365732074686174>6.705 F F2<73656e646d61696c>4.205 E F1 1.864<636f6e73756c7473206469726563746c79206172652099616c69617365739a 20616e642099686f7374732e>174 296.4 R 6.864<9a53>-.7 G 1.863 <6572766963652074797065732063616e2062652099646e739a2c20996e69739a2c> -6.864 F 1.306 <996e6973706c75739a2c206f7220998c6c65739a20287769746820746865206361>174 308.4 R -.15<7665>-.2 G 1.307<617420746861742074686520617070726f70726961 746520737570706f7274206d75737420626520636f6d2d>.15 F .749<70696c65642069 6e206265666f72652074686520736572766963652063616e206265207265666572656e63 6564292e>174 320.4 R .748 <4966205365727669636553776974636846696c65206973206e6f742073706563692d> 5.748 F .934<8c65642c20697420646566>174 332.4 R .934 <61756c747320746f202f6574632f6d61696c2f736572766963652e7377697463682e> -.1 F .934<49662074686174208c6c6520646f6573206e6f742065>5.934 F .935 <786973742c2074686520646566>-.15 F<61756c74>-.1 E<7377697463682069733a> 174 344.4 Q 54.71<616c6961736573208c6c6573>214 360.6 R 60.81 <686f73747320646e73>214 372.6 R<6e6973208c6c6573>2.5 E<54686520646566> 174 388.8 Q<61756c74208c6c6520697320992f6574632f6d61696c2f73657276696365 2e7377697463689a2e>-.1 E<5365>102 405 Q -.15<7665>-.25 G 12.12 <6e426974496e707574205b375d>.15 F .322 <537472697020696e70757420746f207365>2.822 F -.15<7665>-.25 G 2.822<6e62> .15 G .321<69747320666f7220636f6d7061746962696c6974792077697468206f6c64 2073797374656d732e>-2.822 F .321<546869732073686f756c646e27>5.321 F 2.821<7462>-.18 G<65>-2.821 E<6e6563657373617279>174 417 Q<2e>-.65 E <5368617265644d656d6f72794b>102 433.2 Q -.15<6579>-.25 G -2.15 -.25 <4b652079>174 445.2 T .521 <746f2075736520666f7220736861726564206d656d6f7279207365>3.271 F .522<67 6d656e743b206966206e6f742073657420286f722030292c20736861726564206d656d6f 72792077696c6c206e6f74>-.15 F .95<626520757365642e>174 457.2 R .95 <49662073657420746f202d31>5.95 F F2<73656e646d61696c>3.449 E F1 .949 <63616e2073656c6563742061206b>3.449 F 1.249 -.15<65792069>-.1 H .949 <7473656c662070726f>.15 F .949<7669646564207468617420616c736f>-.15 F F0 <53686172>3.449 E<65642d>-.18 E<4d656d6f72794b>174 469.2 Q<657946696c65> -.25 E F1 .304<6973207365742e>2.804 F .305<526571756972657320737570706f 727420666f7220736861726564206d656d6f727920746f20626520636f6d70696c656420 696e746f>5.304 F F2<73656e646d61696c>174 481.2 Q F1 6.299<2e49>C 3.799 <6674>-6.299 G 1.299<686973206f7074696f6e206973207365742c>-3.799 F F2 <73656e646d61696c>3.798 E F1 1.298 <63616e20736861726520736f6d652064617461206265747765656e20646966>3.798 F <666572656e74>-.25 E 3.503<696e7374616e6365732e2046>174 493.2 R 1.003 <6f722065>-.15 F 1.003<78616d706c652c20746865206e756d626572206f6620656e 747269657320696e2061207175657565206469726563746f7279206f72207468652061> -.15 F -.25<7661>-.2 G<696c2d>.25 E 1.669 <61626c6520737061636520696e2061208c6c652073797374656d2e>174 505.2 R 1.668<5468697320616c6c6f>6.668 F 1.668<777320666f72206d6f7265206566>-.25 F 1.668<8c6369656e742070726f6772616d2065>-.25 F -.15<7865>-.15 G <637574696f6e2c>.15 E .259<73696e6365206f6e6c79206f6e652070726f63657373 206e6565647320746f2075706461746520746865206461746120696e7374656164206f66 206561636820696e6469>174 517.2 R .26<76696475616c2070726f63657373>-.25 F -.05<6761>174 529.2 S<74686572696e6720746865206461746120656163682074696d 652069742069732072657175697265642e>.05 E<5368617265644d656d6f72794b>102 545.4 Q -.15<6579>-.25 G<46696c65>.15 E<4966>174 557.4 Q F0<53686172> 2.721 E<65644d656d6f72794b>-.18 E<6579>-.25 E F1 .221<69732073657420746f 202d31207468656e20746865206175746f6d61746963616c6c792073656c656374656420 736861726564206d656d6f7279>2.721 F -.1<6b65>174 569.4 S 2.5<7977>-.05 G <696c6c2062652073746f72656420696e207468652073706563698c6564208c6c652e> -2.5 E<53696e676c654c696e6546726f6d486561646572>102 585.6 Q 1.675 <4966207365742c2046726f6d3a206c696e65732074686174206861>174 597.6 R 1.975 -.15<76652065>-.2 H 1.675<6d626564646564206e65>.15 F 1.675 <776c696e65732061726520756e77726170706564206f6e746f206f6e65206c696e652e> -.25 F 1.306<5468697320697320746f206765742061726f756e64206120626f746368 20696e204c6f747573204e6f7465732074686174206170706172656e746c792063616e6e 6f7420756e6465727374616e64>174 609.6 R<6c65>174 621.6 Q -.05<6761>-.15 G <6c6c792077726170706564205246432038323220686561646572732e>.05 E <53696e676c6554687265616444656c69>102 637.8 Q -.15<7665>-.25 G<7279>.15 E .739<4966207365742c206120636c69656e74206d616368696e652077696c6c206e65> 174 649.8 R -.15<7665>-.25 G 3.239<7274>.15 G .739 <727920746f206f70656e207477>-3.239 F 3.24<6f53>-.1 G .74 <4d545020636f6e6e656374696f6e7320746f20612073696e676c65>-3.24 F <73657276>174 661.8 Q .901 <6572206d616368696e65206174207468652073616d652074696d652c2065>-.15 F -.15<7665>-.25 G 3.401<6e69>.15 G 3.401<6e64>-3.401 G<6966>-3.401 E .901 <666572656e742070726f6365737365732e>-.25 F .9 <546861742069732c20696620616e6f74686572>5.901 F F2<73656e646d61696c>174 673.8 Q F1 1.324<697320616c72656164792074616c6b696e6720746f20736f6d6520 686f73742061206e65>3.824 F<77>-.25 E F2<73656e646d61696c>3.825 E F1 1.325<77696c6c206e6f74206f70656e20616e6f74686572>3.825 F 2.598 <636f6e6e656374696f6e2e2054686973>174 685.8 R .098 <70726f7065727479206973206f66206d6978>2.598 F .098<65642076>-.15 F .097< 616c75653b20616c74686f7567682074686973207265647563657320746865206c6f6164 206f6e20746865>-.25 F 1.126<6f74686572206d616368696e652c2069742063616e20 6361757365206d61696c20746f2062652064656c617965642028666f722065>174 697.8 R 1.127<78616d706c652c206966206f6e65>-.15 F F2<73656e646d61696c>3.627 E F1<6973>3.627 E<64656c69>174 709.8 Q -.15<7665>-.25 G .13 <72696e6720612068756765206d6573736167652c206f74686572>.15 F F2 <73656e646d61696c>2.63 E F1 2.63<7377>C<6f6e27>-2.73 E 2.63<7462>-.18 G 2.63<6561>-2.63 G .13<626c6520746f2073656e642065>-2.63 F -.15<7665>-.25 G 2.63<6e73>.15 G .13<6d616c6c206d65732d>-2.63 F 3.2 <7361676573292e20416c736f2c>174 721.8 R .7<697420726571756972657320616e 6f74686572208c6c652064657363726970746f722028666f7220746865206c6f636b208c 6c65292070657220636f6e6e656374696f6e2c>3.2 F 0 Cg EP %%Page: 81 77 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3831>195.86 E /F1 10/Times-Roman@0 SF .158<736f20796f75206d6179206861>174 96 R .458 -.15<76652074>-.2 H 2.658<6f72>.15 G .158<656475636520746865>-2.658 F F0 <436f6e6e656374696f6e436163686553697a65>2.657 E F1 .157 <6f7074696f6e20746f2061>2.657 F -.2<766f>-.2 G .157 <69642072756e6e696e67206f7574>.2 F<6f6620706572>174 108 Q <2d70726f63657373208c6c652064657363726970746f72732e>-.2 E <526571756972657320746865>5 E F0<486f7374537461747573446972>2.5 E <6563746f7279>-.18 E F1<6f7074696f6e2e>2.5 E <536d74704772656574696e674d6573736167653d>102 124.2 Q/F2 10 /Times-Italic@0 SF<6d65737361>A -.1<6765>-.1 G F1 .344<5b2465206d616372 6f5d20546865206d657373616765207072696e746564207768656e2074686520534d5450 2073657276>174 136.2 R .345<6572207374617274732075702e>-.15 F<446566> 5.345 E .345<61756c747320746f2099246a>-.1 F <53656e646d61696c2024762072656164792061742024629a2e>174 148.2 Q 19.49 <534d54505554463820456e61626c65>102 164.4 R <72756e74696d6520737570706f727420666f7220534d5450555446382e>2.5 E 22.28 <536f6674426f756e6365204966>102 180.6 R .092<7365742c206973737565207465 6d706f72617279206572726f727320283478792920696e7374656164206f66207065726d 616e656e74206572726f72732028357879292e>2.593 F .092 <546869732063616e206265>5.092 F .126 <75736566756c20647572696e672074657374696e67206f662061206e65>174 192.6 R 2.627<7763>-.25 G .127<6f6e8c6775726174696f6e20746f2061>-2.627 F -.2 <766f>-.2 G .127 <6964206572726f6e656f757320626f756e63696e67206f66206d61696c732e>.2 F 23.94<53534c456e67696e65204e616d65>102 208.8 R 1.004 <6f662053534c20656e67696e6520746f207573652e>3.504 F 1.004<5468652061> 6.004 F -.25<7661>-.2 G 1.004<696c61626c652076>.25 F 1.004 <616c75657320646570656e64206f6e20746865204f70656e53534c2076>-.25 F<6572> -.15 E<2d>-.2 E<73696f6e206167>174 220.8 Q<61696e7374207768696368>-.05 E F2<73656e646d61696c>2.5 E F1<697320636f6d70696c65642c20736565>2.5 E <6f70656e73736c20656e67696e65202d76>214 237 Q <666f7220736f6d6520696e666f726d6174696f6e2e>174 253.2 Q <53534c456e67696e6550>102 269.4 Q 6.31<6174682050>-.15 F .631<6174682074 6f2064796e616d6963206c69627261727920666f722053534c20656e67696e652e>-.15 F .632<54686973206f7074696f6e206973206f6e6c792075736566756c206966>5.632 F F2<53534c456e67696e65>3.132 E F1 .484<6973207365742e>174 281.4 R .484< 496620626f746820617265207365742c2074686520656e67696e652077696c6c20626520 6c6f616465642064796e616d6963616c6c792061742072756e74696d65207573696e6720 746865>5.484 F .164<636f6e636174656e6174696f6e206f662074686520706174682c 206120736c61736820222f222c2074686520737472696e6720226c6962222c2074686520 76>174 293.4 R .165<616c7565206f66>-.25 F F2<53534c456e67696e65>2.665 E F1 2.665<2c61>C<6e64>-2.665 E .875<74686520737472696e6720222e736f222e> 174 305.4 R .875<4966206f6e6c79>5.875 F F2<53534c456e67696e65>3.375 E F1 .875<697320736574207468656e20746865207374617469632076>3.375 F .874 <657273696f6e206f662074686520656e67696e65206973>-.15 F<757365642e>174 317.4 Q<53746174757346696c653d>102 333.6 Q F2<8c6c65>A F1 .523<5b535d20 4c6f672073756d6d617279207374617469737469637320696e20746865206e616d6564> 14.13 F F2<8c6c65>3.024 E F1 5.524<2e49>C 3.024<666e>-5.524 G 3.024 <6f8c>-3.024 G .524 <6c65206e616d652069732073706563698c65642c20227374617469732d>-3.024 F .548<746963732220697320757365642e>174 345.6 R .547<4966206e6f7420736574 2c206e6f2073756d6d617279207374617469737469637320617265207361>5.548 F -.15<7665>-.2 G 3.047<642e2054686973>.15 F .547 <8c6c6520646f6573206e6f742067726f>3.047 F<77>-.25 E<696e2073697a652e>174 357.6 Q<49742063616e206265207072696e746564207573696e6720746865>5 E F2 <6d61696c7374617473>2.5 E F1<2838292070726f6772616d2e>A 28.4 <537570657253616665205b735d>102 373.8 R .364 <54686973206f7074696f6e2063616e2062652073657420746f2054>2.864 F .364 <7275652c2046>-.35 F .364<616c73652c20496e74657261637469>-.15 F -.15 <7665>-.25 G 2.864<2c6f>.15 G 2.864<7250>-2.864 G<6f73744d696c746572> -2.864 E 5.364<2e49>-.55 G 2.864<6673>-5.364 G .364<657420746f2054> -2.864 F<7275652c>-.35 E F2<73656e646d61696c>174 385.8 Q F1 .117 <77696c6c206265207375706572>2.617 F .116 <2d73616665207768656e2072756e6e696e67207468696e67732c20692e652e2c20616c> -.2 F -.1<7761>-.1 G .116 <797320696e7374616e746961746520746865207175657565>.1 F .117 <8c6c652c2065>174 397.8 R -.15<7665>-.25 G 2.617<6e69>.15 G 2.617<6679> -2.617 G .117<6f752061726520676f696e6720746f20617474656d707420696d6d6564 696174652064656c69>-2.617 F -.15<7665>-.25 G<7279>.15 E<2e>-.65 E F2 <53656e646d61696c>5.118 E F1<616c>2.618 E -.1<7761>-.1 G .118 <797320696e7374616e2d>.1 F .088<74696174657320746865207175657565208c6c65 206265666f72652072657475726e696e6720636f6e74726f6c20746f2074686520636c69 656e7420756e64657220616e>174 409.8 R 2.587<7963>-.15 G <697263756d7374616e6365732e>-2.587 E 1.299 <546869732073686f756c64207265616c6c79>174 421.8 R F2<616c77617973>3.799 E F1 1.299<62652073657420746f2054>3.799 F 3.799<7275652e20546865>-.35 F <496e74657261637469>3.799 E 1.599 -.15<76652076>-.25 H 1.3 <616c756520686173206265656e20696e74726f2d>-.1 F .222<647563656420696e20 382e313220616e642063616e206265207573656420746f6765746865722077697468>174 433.8 R F0<44656c69>2.721 E -.1<7665>-.1 G<72794d6f64653d69>.1 E F1 5.221<2e49>C 2.721<7473>-5.221 G .221<6b69707320736f6d652073796e2d> -2.721 F 1.532 <6368726f6e697a6174696f6e2063616c6c7320776869636820617265206566>174 445.8 R<6665637469>-.25 E -.15<7665>-.25 G 1.533 <6c7920646f75626c656420696e2074686520636f64652065>.15 F -.15<7865>-.15 G 1.533<637574696f6e207061746820666f72>.15 F .336<74686973206d6f64652e>174 457.8 R .336<49662073657420746f20506f73744d696c746572>5.336 F<2c>-.4 E F2<73656e646d61696c>2.836 E F1 .336<6465666572732073796e6368726f6e697a69 6e6720746865207175657565208c6c6520756e74696c>2.836 F<616e>174 469.8 Q 3.787<796d>-.15 G 1.287<696c74657273206861>-3.787 F 1.587 -.15<76652073> -.2 H 1.287 <69676e616c656420616363657074616e6365206f6620746865206d6573736167652e> .15 F 1.288<506f73744d696c7465722069732075736566756c206f6e6c79>6.287 F <7768656e>174 481.8 Q F2<73656e646d61696c>3.822 E F1 1.322 <69732072756e6e696e6720617320616e20534d54502073657276>3.822 F 1.321<6572 3b20696e20616c6c206f7468657220736974756174696f6e732069742061637473207468 65>-.15 F<73616d652061732054>174 493.8 Q<7275652e>-.35 E<544c5346>102 510 Q<616c6c6261636b746f436c656172>-.15 E .558<4966207365742c>174 522 R F2<73656e646d61696c>3.058 E F1 .558<696d6d6564696174656c7920747269657320 616e206f7574626f756e6420636f6e6e656374696f6e206167>3.058 F .558 <61696e20776974686f7574205354>-.05 F<4152>-.93 E -.92<542d>-.6 G .841 <544c53206166746572206120544c532068616e647368616b>174 534 R 3.341<6566> -.1 G 3.341<61696c7572652e204e6f74653a>-3.441 F .841 <74686973206170706c69657320746f20616c6c20636f6e6e656374696f6e732065> 3.341 F -.15<7665>-.25 G 3.34<6e69>.15 G<66>-3.34 E 1.529<544c5320737065 63698c6320726571756972656d656e7473206172652073657420287365652072756c6573 657473>174 546 R F2<746c735f72>4.029 E<637074>-.37 E F1<616e64>4.029 E F2<746c735f636c69656e74>4.029 E F1 4.03<292e2048656e6365>4.029 F .827<73 75636820726571756972656d656e74732077696c6c20636175736520616e206572726f72 206f6e206120726574727920776974686f7574205354>174 558 R<4152>-.93 E 3.327 <54544c532e205468657265666f7265>-.6 F<746865>174 570 Q 4.04<7973>-.15 G 1.54<686f756c64206f6e6c79207472696767657220612074656d706f726172792066> -4.04 F 1.54<61696c75726520736f2074686520636f6e6e656374696f6e206973206c 61746572206f6e207472696564>-.1 F<6167>174 582 Q<61696e2e>-.05 E 6.16 <544c535372764f7074696f6e73204c697374>102 598.2 R .884 <6f66206f7074696f6e7320666f7220534d5450205354>3.384 F<4152>-.93 E .883 <54544c5320666f72207468652073657276>-.6 F .883 <657220636f6e73697374696e67206f662073696e676c65206368617261632d>-.15 F .245<74657273207769746820696e74657276>174 610.2 R .246 <656e696e67207768697465207370616365206f7220636f6d6d61732e>-.15 F .246 <546865208d61672060>5.246 F<605627>-.74 E 2.746<2764>-.74 G .246 <697361626c657320636c69656e742076>-2.746 F<6572698c2d>-.15 E .189<636174 696f6e2c20616e642068656e6365206974206973206e6f7420706f737369626c6520746f 20757365206120636c69656e742063657274698c6361746520666f722072656c6179696e 672e>174 622.2 R .188<546865208d6167>5.188 F -.74<6060>174 634.2 S<4327> .74 E 2.913<2772>-.74 G<656d6f>-2.913 E -.15<7665>-.15 G 2.913<7374>.15 G .413<686520726571756972656d656e7420666f722074686520544c532073657276> -2.913 F .414<657220746f206861>-.15 F .714 -.15<766520612063>-.2 H 2.914 <6572742e2054686973>.15 F .414<6f6e6c792077>2.914 F<6f726b73>-.1 E .02 <756e6465722076>174 646.2 R .019<6572792073706563698c632063697263756d73 74616e63657320616e642073686f756c64206f6e6c792062652075736564206966207468 6520636f6e73657175656e63657320617265>-.15 F <756e64657273746f6f642c20652e672e2c20636c69656e7473206d6179206e6f742077> 174 658.2 Q<6f726b207769746820612073657276>-.1 E <6572207573696e6720746869732e>-.15 E -.7<5465>102 674.4 S <6d7046696c654d6f64653d>.7 E F2<6d6f6465>A F1 .061<5b465d20546865208c6c 65206d6f646520666f72207472616e736372697074208c6c65732c208c6c657320746f20 7768696368>174 686.4 R F2<73656e646d61696c>2.562 E F1<64656c69>2.562 E -.15<7665>-.25 G .062<7273206469726563746c79>.15 F 2.562<2c8c>-.65 G <6c6573>-2.562 E .61<696e20746865>174 698.4 R F0 <486f7374537461747573446972>3.11 E<6563746f7279>-.18 E F1 3.11<2c61>C <6e64>-3.11 E F0<53746174757346696c65>3.11 E F1 5.61<2e49>C 3.11<7469> -5.61 G 3.11<7369>-3.11 G .61 <6e74657270726574656420696e206f6374616c20627920646566>-3.11 F <61756c742e>-.1 E<446566>174 710.4 Q<61756c747320746f20303630302e>-.1 E 0 Cg EP %%Page: 82 78 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d38322053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF -.35<5469>102 96 S<6d656f75742e>.35 E/F2 10 /Times-Italic@0 SF<74797065>A F1<3d>A F2<74696d656f7574>1.666 E F1 .417< 5b723b2073756273756d6573206f6c642054206f7074696f6e2061732077656c6c5d2053 65742074696d656f75742076>174 108 R 2.917<616c7565732e2046>-.25 F .417 <6f72206d6f726520696e666f726d6174696f6e2c20736565>-.15 F <73656374696f6e20342e312e>174 120 Q -.35<5469>102 136.2 S <6d655a6f6e65537065633d>.35 E F2<747a696e666f>A F1 .218 <5b745d2053657420746865206c6f63616c2074696d65207a6f6e6520696e666f20746f> 174 148.2 R F2<747a696e666f>2.718 E F1 2.718<8a66>2.718 G .218<6f722065> -2.718 F .218<78616d706c652c2099505354385044549a2e>-.15 F <41637475616c6c79>5.217 E 2.717<2c69>-.65 G<66>-2.717 E 1.345 <74686973206973206e6f74207365742c2074686520545a20656e>174 160.2 R 1.346 <7669726f6e6d656e742076>-.4 F 1.346<61726961626c6520697320636c6561726564 2028736f207468652073797374656d20646566>-.25 F 1.346<61756c74206973>-.1 F .209<75736564293b206966207365742062>174 172.2 R .208 <7574206e756c6c2c20746865207573657227>-.2 F 2.708<7354>-.55 G 2.708 <5a76>-2.708 G .208<61726961626c6520697320757365642c20616e64206966207365 7420616e64206e6f6e2d6e756c6c2074686520545a>-2.958 F -.25<7661>174 184.2 S<726961626c652069732073657420746f20746869732076>.25 E<616c75652e>-.25 E -.35<5472>102 200.4 S<7573746564557365723d>.35 E F2<75736572>A F1 <546865>.06 E F2<75736572>3.147 E F1 .647 <706172616d65746572206d617920626520612075736572206e616d6520286c6f6f6b> 3.147 F .647<656420757020696e>-.1 F F2<2f6574632f706173737764>3.147 E F1 3.147<296f>C 3.148<72616e>-3.147 G<756d65726963>-3.148 E .223 <757365722069642e>174 212.4 R -.35<5472>5.223 G .223 <7573746564207573657220666f72208c6c65206f>.35 F .222 <776e65727368697020616e64207374617274696e6720746865206461656d6f6e2e>-.25 F .222<4966207365742c2067656e657261746564>5.222 F .365<616c696173206461 7461626173657320616e642074686520636f6e74726f6c20736f636b>174 224.4 R .366<65742028696620636f6e8c6775726564292077696c6c206175746f6d6174696361 6c6c79206265206f>-.1 F<776e6564>-.25 E<627920746869732075736572>174 236.4 Q<2e>-.55 E -.35<5472>102 252.6 S 5.96 <794e756c6c4d584c697374205b775d>.35 F .114<496620746869732073797374656d 206973207468652099626573749a2028746861742069732c206c6f>2.614 F .114 <7765737420707265666572656e636529204d5820666f722061206769>-.25 F -.15 <7665>-.25 G 2.613<6e68>.15 G .113<6f73742c20697473>-2.613 F 1.168<636f 6e8c6775726174696f6e2072756c65732073686f756c64206e6f726d616c6c7920646574 656374207468697320736974756174696f6e20616e64207472656174207468617420636f 6e646974696f6e>174 264.6 R .258<7370656369616c6c7920627920666f7277>174 276.6 R .258<617264696e6720746865206d61696c20746f2061205555435020666565 642c207472656174696e67206974206173206c6f63616c2c206f72207768617465>-.1 F -.15<7665>-.25 G -.55<722e>.15 G<486f>174 288.6 Q<7765>-.25 E -.15<7665> -.25 G 1.685 -.4<722c2069>.15 H 3.385<6e73>.4 G .886 <6f6d6520636173657320287375636820617320496e7465726e6574208c7265>-3.385 F -.1<7761>-.25 G .886<6c6c732920796f75206d61792077>.1 F .886 <616e7420746f2074727920746f20636f6e2d>-.1 F .07<6e656374206469726563746c 7920746f207468617420686f73742061732074686f75676820697420686164206e6f204d 58207265636f72647320617420616c6c2e>174 300.6 R .07 <53657474696e672074686973206f7074696f6e>5.07 F<636175736573>174 312.6 Q F2<73656e646d61696c>3.013 E F1 .514<746f2074727920746869732e>3.013 F .514<54686520646f>5.514 F .514<776e736964652069732074686174206572726f72 7320696e20796f757220636f6e8c6775726174696f6e20617265>-.25 F<6c696b>174 324.6 Q 2.116 <656c7920746f20626520646961676e6f7365642061732099686f737420756e6b6e6f> -.1 F 2.116<776e9a206f7220996d6573736167652074696d6564206f75749a20696e73 74656164206f66>-.25 F <736f6d657468696e67206d6f7265206d65616e696e6766756c2e>174 336.6 Q <54686973206f7074696f6e206973206469737265636f6d6d656e6465642e>5 E <556e697846726f6d4c696e653d>102 352.8 Q F2<6672>A<6f6d6c696e65>-.45 E F1 .236<5b246c206d6163726f5d2044658c6e65732074686520666f726d61742075736564 207768656e>174 364.8 R F2<73656e646d61696c>2.736 E F1 .236 <6d75737420616464206120554e49582d7374796c652046726f6d5f>2.736 F 1.325 <6c696e652028746861742069732c2061206c696e65206265>174 376.8 R 1.325 <67696e6e696e67209946726f6d3c73706163653e757365729a292e>-.15 F<446566> 6.324 E 1.324<61756c747320746f209946726f6d202467>-.1 F<24649a2e>6.324 E <446f6e27>174 388.8 Q 2.645<7463>-.18 G .146<68616e6765207468697320756e 6c65737320796f75722073797374656d2075736573206120646966>-2.645 F .146 <666572656e7420554e4958206d61696c626f7820666f726d6174202876>-.25 F <657279>-.15 E<756e6c696b>174 400.8 Q<656c79292e>-.1 E <556e7361666547726f7570577269746573>102 417 Q .534 <4966207365742028646566>174 429 R .534 <61756c74292c203a696e636c7564653a20616e64202e666f7277>-.1 F .533<617264 208c6c65732074686174206172652067726f7570207772697461626c652061726520636f 6e73696465726564>-.1 F .502 <99756e736166659a2c20746861742069732c20746865>174 441 R 3.002<7963>-.15 G .503<616e6e6f74207265666572656e63652070726f6772616d73206f722077726974 65206469726563746c7920746f208c6c65732e>-3.002 F -.8<576f>5.503 G<726c64> .8 E 1.398<7772697461626c65203a696e636c7564653a20616e64202e666f7277>174 453 R 1.398<617264208c6c65732061726520616c>-.1 F -.1<7761>-.1 G 1.398 <797320756e736166652e>.1 F 1.398<4e6f74653a20757365>6.398 F F0 <446f6e74426c616d652d>3.898 E<53656e646d61696c>174 465 Q F1 <696e73746561643b2074686973206f7074696f6e20697320646570726563617465642e> 2.5 E<557365436f6d7072657373656449507636416464726573736573>102 481.2 Q 1.051<4966207365742c2074686520636f6d7072657373656420666f726d6174206f6620 49507636206164647265737365732c207375636820617320495056363a3a3a312c207769 6c6c20626520757365642c>174 493.2 R<696e7374656164206f662074686520756e63 6f6d7072657373656420666f726d61742c207375636820617320495076363a303a303a30 3a303a303a303a303a312e>174 505.2 Q<5573654572726f727354>102 521.4 Q 21.15<6f5b>-.8 G .826 <6c5d20496620746865726520697320616e20994572726f72732d54>-21.15 F .826 <6f3a9a20686561646572>-.8 F 3.326<2c73>-.4 G .826<656e64206572726f72206d 6573736167657320746f2074686520616464726573736573206c6973746564>-3.326 F 3.134<74686572652e20546865>174 533.4 R 3.134<796e>-.15 G .634 <6f726d616c6c7920676f20746f2074686520656e>-3.134 F -.15<7665>-.4 G .635 <6c6f70652073656e646572>.15 F 5.635<2e55>-.55 G .635 <7365206f662074686973206f7074696f6e20636175736573>-5.635 F F2 <73656e642d>3.135 E<6d61696c>174 545.4 Q F1 <746f2076696f6c6174652052464320313132332e>2.5 E<54686973206f7074696f6e20 6973206469737265636f6d6d656e64656420616e6420646570726563617465642e>5 E <557365724461746162617365537065633d>102 561.6 Q F2<75646273706563>A F1 <5b555d2054686520757365722064617461626173652073706563698c636174696f6e2e> 174 573.6 Q -1.11<5665>102 589.8 S 37.29<72626f7365205b765d>1.11 F .561 <52756e20696e2076>3.061 F .561<6572626f7365206d6f64652e>-.15 F .561 <49662074686973206973207365742c>5.561 F F2<73656e646d61696c>3.061 E F1 .56<61646a75737473206f7074696f6e73>3.061 F F0<486f6c64457870656e7369> 3.06 E -.1<7665>-.1 G F1<286f6c64>174 601.8 Q F0<63>2.635 E F1 2.635 <2961>C<6e64>-2.635 E F0<44656c69>2.635 E -.1<7665>-.1 G<72794d6f6465>.1 E F1<286f6c64>2.635 E F0<64>2.635 E F1 2.635<2973>C 2.635<6f74>-2.635 G .135<68617420616c6c206d61696c2069732064656c69>-2.635 F -.15<7665>-.25 G .136<72656420636f6d706c6574656c7920696e20612073696e2d>.15 F 1.244<676c65 206a6f6220736f207468617420796f752063616e207365652074686520656e7469726520 64656c69>174 613.8 R -.15<7665>-.25 G 1.244<72792070726f636573732e>.15 F <4f7074696f6e>6.244 E F0 -1<5665>3.743 G<72626f7365>1 E F1<73686f756c64> 3.743 E F2<6e65>174 625.8 Q<766572>-.15 E F1 1.269<62652073657420696e20 74686520636f6e8c6775726174696f6e208c6c653b20697420697320696e74656e646564 20666f7220636f6d6d616e64206c696e6520757365206f6e6c79>3.769 F<2e>-.65 E .435<4e6f746520746861742074686520757365206f66206f7074696f6e>174 637.8 R F0 -1<5665>2.935 G<72626f7365>1 E F1 .435<63616e206361757365206175746865 6e7469636174696f6e20696e666f726d6174696f6e20746f206c65616b2c>2.935 F .015<696620796f752075736520612073656e646d61696c20636c69656e7420746f2061 757468656e74696361746520746f20612073657276>174 649.8 R<6572>-.15 E 5.015 <2e49>-.55 G 2.515<6674>-5.015 G .015 <68652061757468656e7469636174696f6e206d6563682d>-2.515 F .936 <616e69736d207573657320706c61696e207465>174 661.8 R .936 <7874207061737377>-.15 F .936<6f726473202861732077697468204c4f47494e206f 7220504c41494e292c207468656e20746865207061737377>-.1 F<6f7264>-.1 E 1.417<636f756c6420626520636f6d70726f6d697365642e>174 673.8 R 3.017 -.8 <546f2061>6.417 H -.2<766f>.6 G 1.417<696420746869732c20646f206e6f742069 6e7374616c6c2073656e646d61696c207365742d75736572>.2 F 1.418 <2d494420726f6f742c>-.2 F<616e642064697361626c6520746865>174 685.8 Q F0 <56455242>2.5 E F1 <534d545020636f6d6d616e6420776974682061207375697461626c65>2.5 E F0 <507269>2.5 E -.1<7661>-.1 G<63794f7074696f6e73>.1 E F1 <73657474696e672e>2.5 E<5873637269707446696c65427566>102 702 Q <66657253697a653d>-.25 E F2<746872>A<6573686f6c64>-.37 E F1 .67 <53657420746865>174 714 R F2<746872>3.17 E<6573686f6c64>-.37 E F1 3.17 <2c69>C 3.17<6e62>-3.17 G .67<797465732c206265666f72652061206d656d6f7279 2d6261736564207175657565207472616e736372697074208c6c65206265636f6d6573> -3.17 F 0 Cg EP %%Page: 83 79 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3833>195.86 E /F1 10/Times-Roman@0 SF 2.5<6469736b2d62617365642e20546865>174 96 R <646566>2.5 E<61756c7420697320343039362062797465732e>-.1 E .108<416c6c20 6f7074696f6e732063616e2062652073706563698c6564206f6e2074686520636f6d6d61 6e64206c696e65207573696e672074686520ad4f206f7220ad6f208d61672c2062>102 112.2 R .109<7574206d6f73742077696c6c206361757365>-.2 F/F2 10 /Times-Italic@0 SF<73656e642d>2.609 E<6d61696c>102 124.2 Q F1 .664 <746f2072656c696e717569736820697473207365742d75736572>3.164 F .664 <2d4944207065726d697373696f6e732e>-.2 F .663<546865206f7074696f6e732074 6861742077696c6c206e6f74206361757365207468697320617265205365>5.664 F -.15<7665>-.25 G<6e426974496e2d>.15 E 1.319<707574205b375d2c204569676874 4269744d6f6465205b385d2c204d696e46726565426c6f636b73205b625d2c2043686563 6b706f696e74496e74657276>102 136.2 R 1.319<616c205b435d2c2044656c69>-.25 F -.15<7665>-.25 G 1.319<72794d6f6465205b645d2c204572726f72>.15 F<2d>-.2 E .043<4d6f6465205b655d2c2049676e6f7265446f7473205b695d2c2053656e644d69 6d654572726f7273205b6a5d2c204c6f674c65>102 148.2 R -.15<7665>-.25 G 2.542<6c5b>.15 G .042<4c5d2c204d6554>-2.542 F .042 <6f6f205b6d5d2c204f6c645374796c6548656164657273205b6f5d2c205072692d>-.8 F -.25<7661>102 160.2 S -.15<6379>.25 G .302 <4f7074696f6e73205b705d2c20537570657253616665205b735d2c2056>.15 F .302 <6572626f7365205b765d2c205175657565536f72744f72646572>-1.11 F 2.802 <2c4d>-.4 G .303<696e51756575654167652c20446566>-2.802 F .303 <61756c74436861725365742c204469616c>-.1 F<44656c6179>102 172.2 Q 7.312 <2c4e>-.65 G 4.812 <6f526563697069656e74416374696f6e2c20436f6c6f6e4f6b496e41646472>-7.312 F 7.312<2c4d>-.4 G 4.812<6178517565756552756e53697a652c2053696e676c654c69 6e6546726f6d486561646572>-7.312 F 7.312<2c61>-.4 G<6e64>-7.312 E <416c6c6f>102 184.2 Q 3.92<77426f67757348454c4f2e2041637475616c6c79>-.25 F 3.92<2c50>-.65 G<7269>-3.92 E -.25<7661>-.25 G -.15<6379>.25 G 1.421 <4f7074696f6e73205b705d206769>.15 F -.15<7665>-.25 G 3.921<6e6f>.15 G 3.921<6e74>-3.921 G 1.421 <686520636f6d6d616e64206c696e652061726520616464656420746f2074686f7365> -3.921 F 1.698<616c72656164792073706563698c656420696e20746865>102 196.2 R F2<73656e646d61696c2e6366>4.198 E F1 1.697 <8c6c652c20692e652e2c20746865>4.198 F 4.197<7963>-.15 G<616e27>-4.197 E 4.197<7462>-.18 G 4.197<6572>-4.197 G 4.197<657365742e20416c736f2c> -4.197 F 4.197<4d28>4.197 G 1.697<64658c6e65206d6163726f29207768656e> -4.197 F<64658c6e696e67207468652072206f722073206d6163726f7320697320616c 736f20636f6e736964657265642099736166659a2e>102 208.2 Q F0 2.5 <352e382e2050>87 232.2 R 2.5<8a50>2.5 G -.18<7265>-2.5 G <636564656e63652044658c6e6974696f6e73>.18 E F1 -1.11<5661>127 248.4 S .164<6c75657320666f72207468652099507265636564656e63653a9a208c656c64206d 61792062652064658c6e6564207573696e6720746865>1.11 F F0<50>2.664 E F1 .164<636f6e74726f6c206c696e652e>2.664 F .164 <5468652073796e746178206f662074686973>5.164 F<8c656c642069733a>102 260.4 Q F0<50>142 276.6 Q F2<6e616d65>A F0<3d>A F2<6e756d>A F1 .384 <5768656e20746865>102 292.8 R F2<6e616d65>2.884 E F1 .384<697320666f756e 6420696e20612099507265636564656e63653a9a208c656c642c20746865206d65737361 676520636c6173732069732073657420746f>2.884 F F2<6e756d>2.883 E F1 5.383 <2e48>C .383<6967686572206e756d62657273>-5.383 F .85 <6d65616e2068696768657220707265636564656e63652e>102 304.8 R .85 <4e756d62657273206c657373207468616e207a65726f206861>5.85 F 1.15 -.15 <76652074>-.2 H .85<6865207370656369616c2070726f706572747920746861742069 6620616e206572726f72206f6363757273>.15 F 1.551<647572696e672070726f6365 7373696e672074686520626f6479206f6620746865206d6573736167652077696c6c206e 6f742062652072657475726e65643b20746869732069732065>102 316.8 R 1.551 <7870656374656420746f206265207573656420666f72>-.15 F<9962>102 328.8 Q .461<756c6b9a206d61696c2073756368206173207468726f756768206d61696c696e67 206c697374732e>-.2 F .461<54686520646566>5.461 F .461 <61756c7420707265636564656e6365206973207a65726f2e>-.1 F -.15<466f>5.461 G 2.962<7265>.15 G .462<78616d706c652c206f7572206c697374206f66>-3.112 F <707265636564656e6365732069733a>102 340.8 Q<508c7273742d636c6173733d30> 142 357 Q<507370656369616c2d64656c69>142 369 Q -.15<7665>-.25 G <72793d313030>.15 E<506c6973743dad3330>142 381 Q<5062>142 393 Q <756c6b3dad3630>-.2 E<506a756e6b3dad313030>142 405 Q 1.059 <50656f706c652077726974696e67206d61696c696e67206c6973742065>102 421.2 R 1.058<78706c6f646572732061726520656e636f75726167656420746f20757365209950 7265636564656e63653a206c6973749a2e>-.15 F 1.058<4f6c6465722076>6.058 F 1.058<657273696f6e73206f66>-.15 F F2<73656e646d61696c>102 433.2 Q F1 1.19<2877686963682064697363617264656420616c6c206572726f722072657475726e 7320666f72206e65>3.69 F -.05<6761>-.15 G<7469>.05 E 1.49 -.15<76652070> -.25 H 1.19<7265636564656e63657329206469646e27>.15 F 3.69<7472>-.18 G 1.19<65636f676e697a652074686973206e616d652c>-3.69 F<6769>102 445.2 Q .599<76696e67206974206120646566>-.25 F .598 <61756c7420707265636564656e6365206f66207a65726f2e>-.1 F .598 <5468697320616c6c6f>5.598 F .598<7773206c697374206d61696e7461696e657273 20746f20736565206572726f722072657475726e73206f6e20626f7468206f6c64>-.25 F<616e64206e65>102 457.2 Q 2.5<7776>-.25 G<657273696f6e73206f66>-2.65 E F2<73656e646d61696c>2.5 E F1<2e>A F0 2.5<352e392e2056>87 481.2 R 2.5 <8a43>2.5 G<6f6e8c6775726174696f6e2056>-2.5 E<657273696f6e204c65>-1 E -.1<7665>-.15 G<6c>.1 E F1 3.181 -.8<546f2070>127 497.4 T<726f>.8 E 1.581<7669646520636f6d7061746962696c6974792077697468206f6c6420636f6e8c67 75726174696f6e208c6c65732c20746865>-.15 F F0<56>4.081 E F1 1.582 <6c696e6520686173206265656e20616464656420746f2064658c6e65>4.082 F 1.11 <736f6d652076>102 509.4 R 1.11<6572792062617369632073656d616e7469637320 6f662074686520636f6e8c6775726174696f6e208c6c652e>-.15 F 1.11<5468657365 20617265206e6f7420696e74656e64656420746f206265206c6f6e67207465726d207375 702d>6.11 F .033<706f7274733b20726174686572>102 521.4 R 2.533<2c74>-.4 G <6865>-2.533 E 2.533<7964>-.15 G .033<6573637269626520636f6d706174696269 6c6974792066656174757265732077686963682077696c6c2070726f6261626c79206265 2072656d6f>-2.533 F -.15<7665>-.15 G 2.533<6469>.15 G 2.533<6e66>-2.533 G .034<75747572652072656c65617365732e>-2.533 F F0<4e2e422e3a>127 537.6 Q F1 .197<74686573652076>2.697 F<657273696f6e>-.15 E F2<6c65>2.697 E <76656c73>-.15 E F1<6861>2.697 E .496 -.15<7665206e>-.2 H .196 <6f7468696e6720746f20646f2077697468207468652076>.15 F<657273696f6e>-.15 E F2<6e756d626572>2.696 E F1 .196<6f6e20746865208c6c65732e>2.696 F -.15 <466f>5.196 G 2.696<7265>.15 G<78616d2d>-2.846 E <706c652c206173206f6620746869732077726974696e672076>102 549.6 Q <657273696f6e20313020636f6e8c67208c6c6573202873706563698c63616c6c79>-.15 E 2.5<2c38>-.65 G<2e31302920757365642076>-2.5 E<657273696f6e206c65>-.15 E -.15<7665>-.25 G 2.5<6c3963>.15 G<6f6e8c6775726174696f6e732e>-2.5 E 1.102<994f6c649a20636f6e8c6775726174696f6e208c6c6573206172652064658c6e65 642061732076>127 565.8 R 1.102<657273696f6e206c65>-.15 F -.15<7665>-.25 G 3.602<6c6f>.15 G 3.602<6e652e2056>-3.602 F 1.102<657273696f6e206c65> -1.11 F -.15<7665>-.25 G 3.602<6c74>.15 G 1.302 -.1<776f208c>-3.602 H 1.103<6c6573206d616b>.1 F 3.603<6574>-.1 G<6865>-3.603 E<666f6c6c6f>102 577.8 Q<77696e67206368616e6765733a>-.25 E 12.5<28312920486f7374>107 594 R .727<6e616d652063616e6f6e698c636174696f6e2028245b202e2e2e20245d292061 7070656e6473206120646f7420696620746865206e616d65206973207265636f676e697a 65643b2074686973206769>3.227 F -.15<7665>-.25 G 3.226<7374>.15 G<6865> -3.226 E 1.974<636f6e8c67208c6c6520612077>133.66 606 R 1.974 <6179206f66208c6e64696e67206f757420696620616e>-.1 F 1.974 <797468696e67206d6174636865642e>-.15 F<2841637475616c6c79>6.974 E 4.475 <2c74>-.65 G 1.975<686973206a75737420696e697469616c697a657320746865> -4.475 F .739<99686f73749a206d61702077697468207468652099ad612e>133.66 618 R 5.739<9a8d>-.7 G .739 <6167208a20796f752063616e20726573657420697420746f20616e>-5.739 F .738 <797468696e6720796f7520707265666572206279206465636c6172696e6720746865> -.15 F<6d61702065>133.66 630 Q<78706c696369746c79>-.15 E<2e29>-.65 E 12.5<28322920446566>107 646.2 R .384<61756c7420686f7374206e616d652065> -.1 F .385<7874656e73696f6e20697320636f6e73697374656e74207468726f756768 6f75742070726f63657373696e673b2076>-.15 F .385<657273696f6e206c65>-.15 F -.15<7665>-.25 G 2.885<6c6f>.15 G .385<6e6520636f6e8c67752d>-2.885 F .83 <726174696f6e73207475726e6564206f66>133.66 658.2 R 3.33<6664>-.25 G .83 <6f6d61696e2065>-3.33 F .83<7874656e73696f6e2028746861742069732c20616464 696e6720746865206c6f63616c20646f6d61696e206e616d652920647572696e67206365 727461696e>-.15 F .4<706f696e747320696e2070726f63657373696e672e>133.66 670.2 R -1.11<5665>5.4 G .4<7273696f6e206c65>1.11 F -.15<7665>-.25 G 2.9 <6c74>.15 G .6 -.1<776f2063>-2.9 H .4 <6f6e8c6775726174696f6e73206172652065>.1 F .4 <7870656374656420746f20696e636c756465206120747261696c696e6720646f74>-.15 F<746f20696e646963617465207468617420746865206e616d6520697320616c72656164 792063616e6f6e6963616c2e>133.66 682.2 Q 12.5<283329204c6f63616c>107 698.4 R .072<6e616d6573207468617420617265206e6f7420616c6961736573206172 6520706173736564207468726f7567682061206e65>2.572 F 2.572<7764>-.25 G .072<697374696e677569736865642072756c65736574208c76>-2.572 F .072 <653b20746869732063616e>-.15 F .139 <6265207573656420746f20617070656e642061206c6f63616c2072656c6179>133.66 710.4 R 5.139<2e54>-.65 G .139<6869732062656861>-5.139 F .139 <76696f722063616e20626520707265>-.2 F -.15<7665>-.25 G .14 <6e746564206279207265736f6c76696e6720746865206c6f63616c206e616d65>.15 F .993<7769746820616e20696e697469616c206040272e>133.66 722.4 R .993 <546861742069732c20736f6d657468696e672074686174207265736f6c76>5.993 F .993<657320746f2061206c6f63616c206d61696c657220616e6420612075736572206e 616d65206f66>-.15 F 0 Cg EP %%Page: 84 80 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d38342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF .601<9976696b6b699a2077696c6c206265207061737365 64207468726f7567682072756c65736574208c76>133.66 96 R .601<652c2062>-.15 F .601 <757420612075736572206e616d65206f6620994076696b6b699a2077696c6c206861> -.2 F .902 -.15<76652074>-.2 H .602<686520604027>.15 F .92<737472697070 65642c2077696c6c206e6f7420626520706173736564207468726f7567682072756c6573 6574208c76>133.66 108 R .919<652c2062>-.15 F .919<75742077696c6c206f7468 6572776973652062652074726561746564207468652073616d65206173>-.2 F .629 <746865207072696f722065>133.66 120 R 3.129<78616d706c652e20546865>-.15 F -.15<6578>3.129 G .629<706563746174696f6e20697320746861742074686973206d 69676874206265207573656420746f20696d706c656d656e74206120706f6c6963>.15 F 3.13<7977>-.15 G<68657265>-3.13 E .734 <6d61696c2073656e7420746f209976696b6b699a2077>133.66 132 R .734 <61732068616e646c656420627920612063656e7472616c206875622c2062>-.1 F .734 <7574206d61696c2073656e7420746f209976696b6b69406c6f63616c686f73749a2077> -.2 F<6173>-.1 E<64656c69>133.66 144 Q -.15<7665>-.25 G <726564206469726563746c79>.15 E<2e>-.65 E -1.11<5665>127 160.2 S 1.382 <7273696f6e206c65>1.11 F -.15<7665>-.25 G 3.882<6c74>.15 G 1.382 <68726565208c6c657320616c6c6f>-3.882 F 3.882<772369>-.25 G 1.382 <6e6974696174656420636f6d6d656e7473206f6e20616c6c206c696e65732e>-3.882 F 1.383<457863657074696f6e7320617265206261636b736c617368>6.383 F <657363617065642023206d61726b7320616e64207468652024232073796e7461782e> 102 172.2 Q -1.11<5665>127 188.4 S 1.208<7273696f6e206c65>1.11 F -.15 <7665>-.25 G 3.708<6c66>.15 G 1.208<6f757220636f6e8c6775726174696f6e7320 61726520636f6d706c6574656c792065717569>-3.708 F -.25<7661>-.25 G 1.207 <6c656e7420746f206c65>.25 F -.15<7665>-.25 G 3.707<6c74>.15 G 1.207 <6872656520666f7220686973746f726963616c207265612d>-3.707 F<736f6e732e> 102 200.4 Q -1.11<5665>127 216.6 S 1.234<7273696f6e206c65>1.11 F -.15 <7665>-.25 G 3.734<6c8c>.15 G 1.534 -.15<76652063>-3.734 H 1.234 <6f6e8c6775726174696f6e208c6c6573206368616e67652074686520646566>.15 F 1.234<61756c742064658c6e6974696f6e206f66>-.1 F F0<2477>3.734 E F1 1.234 <746f206265206a75737420746865208c727374>3.734 F <636f6d706f6e656e74206f662074686520686f73746e616d652e>102 228.6 Q -1.11 <5665>127 244.8 S 1.589<7273696f6e206c65>1.11 F -.15<7665>-.25 G 4.089 <6c73>.15 G 1.589 <697820636f6e8c6775726174696f6e208c6c6573206368616e6765206d616e>-4.089 F 4.088<796f>-.15 G 4.088<6674>-4.088 G 1.588<6865206c6f63616c2070726f6365 7373696e67206f7074696f6e73202873756368206173>-4.088 F .48 <616c696173696e6720616e64206d61746368696e6720746865206265>102 256.8 R .481<67696e6e696e67206f6620746865206164647265737320666f7220607c27206368 61726163746572732920746f206265206d61696c6572208d6167733b207468697320616c 6c6f>-.15 F<7773>-.25 E 1.345 <8c6e652d677261696e656420636f6e74726f6c206f>102 268.8 R -.15<7665>-.15 G 3.845<7274>.15 G 1.345 <6865207370656369616c206c6f63616c2070726f63657373696e672e>-3.845 F<4c65> 6.345 E -.15<7665>-.25 G 3.845<6c73>.15 G 1.344 <697820636f6e8c6775726174696f6e208c6c6573206d617920616c736f20757365> -3.845 F 1.221<6c6f6e67206f7074696f6e206e616d65732e>102 280.8 R<546865> 6.221 E F0<436f6c6f6e4f6b496e41646472>3.721 E F1 1.221 <6f7074696f6e2028746f20616c6c6f>3.721 F 3.722<7763>-.25 G 1.222<6f6c6f6e 7320696e20746865206c6f63616c2d70617274206f662061646472657373657329> -3.722 F<646566>102 292.8 Q<61756c7473>-.1 E F0<6f6e>3.44 E F1 .94 <666f72206c6f>3.44 F .94<776572206e756d626572656420636f6e8c677572617469 6f6e208c6c65733b2074686520636f6e8c6775726174696f6e208c6c6520726571756972 657320736f6d65206164646974696f6e616c>-.25 F<696e74656c6c6967656e63652074 6f2070726f7065726c792068616e646c652074686520524643203832322067726f757020 636f6e7374727563742e>102 304.8 Q -1.11<5665>127 321 S 1.97 <7273696f6e206c65>1.11 F -.15<7665>-.25 G 4.47<6c73>.15 G -2.15 -.25 <65762065>-4.47 H 4.47<6e63>.25 G 1.97 <6f6e8c6775726174696f6e208c6c65732075736564206e65>-4.47 F 4.47<776f>-.25 G 1.97 <7074696f6e206e616d657320746f207265706c616365206f6c64206d6163726f732028> -4.47 F F0<2465>A F1<626563616d65>102 333 Q F0<536d74704772>5.548 E <656574696e674d657373616765>-.18 E F1<2c>A F0<246c>5.548 E F1 <626563616d65>5.548 E F0<556e69784672>5.548 E<6f6d4c696e65>-.18 E F1 5.547<2c61>C<6e64>-5.547 E F0<246f>5.547 E F1<626563616d65>5.547 E F0 <4f70657261746f724368617273>5.547 E F1<2e>A .086 <416c736f2c207072696f7220746f2076>102 345 R .086<657273696f6e207365>-.15 F -.15<7665>-.25 G .086<6e2c20746865>.15 F F0<463d71>2.586 E F1 .087<8d 616720287573652032353020696e7374656164206f66203235322072657475726e2076> 2.586 F .087<616c756520666f72>-.25 F/F2 9/Times-Roman@0 SF .087 <534d54502056524659>2.587 F F1<636f6d2d>2.587 E<6d616e6473292077>102 357 Q<617320617373756d65642e>-.1 E -1.11<5665>127 373.2 S<7273696f6e206c65> 1.11 E -.15<7665>-.25 G 2.5<6c65>.15 G <6967687420636f6e8c6775726174696f6e208c6c657320616c6c6f>-2.5 E<77>-.25 E F0<2423>2.5 E F1<6f6e20746865206c6566742068616e642073696465206f66207275 6c65736574206c696e65732e>2.5 E -1.11<5665>127 389.4 S .423 <7273696f6e206c65>1.11 F -.15<7665>-.25 G 2.923<6c6e>.15 G .423 <696e6520636f6e8c6775726174696f6e208c6c657320616c6c6f>-2.923 F 2.923 <7770>-.25 G .423 <6172656e74686573657320696e2072756c65736574732c20692e652e20746865>-2.923 F 2.923<7961>-.15 G .422<7265206e6f742074726561746564206173>-2.923 F <636f6d6d656e747320616e642068656e63652072656d6f>102 401.4 Q -.15<7665> -.15 G<642e>.15 E -1.11<5665>127 417.6 S<7273696f6e206c65>1.11 E -.15 <7665>-.25 G 2.5<6c74>.15 G <656e20636f6e8c6775726174696f6e208c6c657320616c6c6f>-2.5 E 2.5<7771>-.25 G<756575652067726f75702064658c6e6974696f6e732e>-2.5 E<546865>127 433.8 Q F0<56>2.677 E F1 .177<6c696e65206d6179206861>2.677 F .477 -.15<76652061> -.2 H 2.677<6e6f>.15 G<7074696f6e616c>-2.677 E F0<2f>2.677 E/F3 10 /Times-Italic@0 SF<76656e646f72>A F1 .178<746f20696e64696361746520746861 74207468697320636f6e8c6775726174696f6e208c6c652075736573206d6f64698c6361 2d>2.677 F .865 <74696f6e732073706563698c6320746f206120706172746963756c61722076>102 447.8 R<656e646f72>-.15 E/F4 7/Times-Roman@0 SF<3232>-4 I F1 5.866<2e59> 4 K .866<6f75206d61792075736520992f4265726b>-6.966 F<656c65>-.1 E .866 <799a20746f20656d70686173697a652074686174207468697320636f6e8c677572612d> -.15 F<74696f6e208c6c65207573657320746865204265726b>102 459.8 Q<656c65> -.1 E 2.5<7964>-.15 G<69616c656374206f66>-2.5 E F3<73656e646d61696c>2.5 E F1<2e>A F0 2.5<352e31302e204b>87 483.8 R 2.5<8a4b>2.5 G <65792046696c65204465636c61726174696f6e>-2.75 E F1<5370656369616c206d61 70732063616e2062652064658c6e6564207573696e6720746865206c696e653a>127 500 Q<4b6d61706e616d65206d6170636c617373206172>142 516.2 Q<67756d656e7473> -.18 E<546865>102 532.4 Q F3<6d61706e616d65>2.751 E F1 .251<697320746865 2068616e646c652062792077686963682074686973206d6170206973207265666572656e 63656420696e20746865207265>2.751 F .25<77726974696e672072756c65732e>-.25 F<546865>5.25 E F3<6d6170636c617373>2.75 E F1<6973>2.75 E 1.889<74686520 6e616d65206f6620612074797065206f66206d61703b2074686573652061726520636f6d 70696c656420696e20746f>102 544.4 R F3<73656e646d61696c>4.389 E F1 6.889 <2e54>C<6865>-6.889 E F3<6172>4.389 E<67756d656e7473>-.37 E F1 1.889 <61726520696e746572707265746564>4.389 F .791 <646570656e64696e67206f6e2074686520636c6173733b207479706963616c6c79>102 556.4 R 3.291<2c74>-.65 G .791<686572652077>-3.291 F .791 <6f756c6420626520612073696e676c65206172>-.1 F .79<67756d656e74206e616d69 6e6720746865208c6c6520636f6e7461696e696e6720746865>-.18 F<6d61702e>102 568.4 Q<4d61707320617265207265666572656e636564207573696e6720746865207379 6e7461783a>127 584.6 Q<2428>142 600.8 Q F3<6d6170206b>2.5 E -.3<6579>-.1 G F1<2440>2.8 E F3<6172>2.5 E<67756d656e7473>-.37 E F1<243a>2.5 E F3 <64656661756c74>2.5 E F1<2429>2.5 E .64 <776865726520656974686572206f7220626f7468206f6620746865>102 617 R F3 <6172>3.14 E<67756d656e7473>-.37 E F1<6f72>3.141 E F3<64656661756c74> 3.141 E F1 .641<706f7274696f6e206d6179206265206f6d69747465642e>3.141 F <546865>5.641 E F3 .641<2440206172>3.141 F<67756d656e7473>-.37 E F1 <6d6179>3.141 E 1.277<617070656172206d6f7265207468616e206f6e63652e>102 629 R 1.277<54686520696e64696361746564>6.277 F F3 -.1<6b65>3.777 G<79> -.2 E F1<616e64>3.776 E F3<6172>3.776 E<67756d656e7473>-.37 E F1 1.276< 6172652070617373656420746f2074686520617070726f707269617465206d617070696e 67>3.776 F 3.253<66756e6374696f6e2e204966>102 641 R .753 <69742072657475726e7320612076>3.253 F .753 <616c75652c206974207265706c616365732074686520696e7075742e>-.25 F .753 <496620697420646f6573206e6f742072657475726e20612076>5.753 F .753 <616c756520616e6420746865>-.25 F F3<64656661756c74>3.253 E F1<6973>3.253 E<73706563698c65642c20746865>102 653 Q F3<64656661756c74>2.5 E F1 <7265706c616365732074686520696e7075742e>2.5 E <4f74686572776973652c2074686520696e70757420697320756e6368616e6765642e>5 E .32 LW 76 669.2 72 669.2 DL 80 669.2 76 669.2 DL 84 669.2 80 669.2 DL 88 669.2 84 669.2 DL 92 669.2 88 669.2 DL 96 669.2 92 669.2 DL 100 669.2 96 669.2 DL 104 669.2 100 669.2 DL 108 669.2 104 669.2 DL 112 669.2 108 669.2 DL 116 669.2 112 669.2 DL 120 669.2 116 669.2 DL 124 669.2 120 669.2 DL 128 669.2 124 669.2 DL 132 669.2 128 669.2 DL 136 669.2 132 669.2 DL 140 669.2 136 669.2 DL 144 669.2 140 669.2 DL 148 669.2 144 669.2 DL 152 669.2 148 669.2 DL 156 669.2 152 669.2 DL 160 669.2 156 669.2 DL 164 669.2 160 669.2 DL 168 669.2 164 669.2 DL 172 669.2 168 669.2 DL 176 669.2 172 669.2 DL 180 669.2 176 669.2 DL 184 669.2 180 669.2 DL 188 669.2 184 669.2 DL 192 669.2 188 669.2 DL 196 669.2 192 669.2 DL 200 669.2 196 669.2 DL 204 669.2 200 669.2 DL 208 669.2 204 669.2 DL 212 669.2 208 669.2 DL 216 669.2 212 669.2 DL/F5 5 /Times-Roman@0 SF<3232>93.6 679.6 Q/F6 8/Times-Roman@0 SF .214 <416e64206f6620636f757273652c2076>3.2 J .214<656e646f72732061726520656e 636f75726167656420746f20616464207468656d73656c76>-.12 F .214 <657320746f20746865206c697374206f66207265636f676e697a65642076>-.12 F .214<656e646f72732062792065646974696e672074686520726f7574696e65>-.12 F /F7 8/Times-Italic@0 SF<73657476656e646f72>2.214 E F6<696e>2.214 E F7 <636f6e66>72 692.4 Q<2e63>-.12 E F6 4<2e50>C<6c656173652073656e6420652d 6d61696c20746f2073656e646d61696c4053656e646d61696c2e4f524720746f207265> -4 E<67697374657220796f75722076>-.12 E<656e646f72206469616c6563742e>-.12 E 0 Cg EP %%Page: 85 81 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3835>195.86 E /F1 10/Times-Roman@0 SF<546865>127 96 Q/F2 10/Times-Italic@0 SF<6172> 4.064 E<67756d656e7473>-.37 E F1 1.564<6172652070617373656420746f207468 65206d617020666f7220617262697472617279207573652e>4.064 F 1.563 <4d6f7374206d617020636c61737365732063616e20696e746572706f6c617465>6.563 F .882<7468657365206172>102 108 R .882 <67756d656e747320696e746f2074686569722076>-.18 F .882 <616c756573207573696e67207468652073796e746178209925>-.25 F F2<6e>A F1 3.382<9a28>C<7768657265>-3.382 E F2<6e>3.382 E F1 .883 <697320612064696769742920746f20696e6469636174652074686520636f7272652d> 3.382 F<73706f6e64696e67>102 120 Q F2<6172>2.5 E<67756d656e74>-.37 E F1 5<2e41>C -.18<7267>-5 G <756d656e74209925309a20696e6469636174657320746865206461746162617365206b> .18 E -.15<6579>-.1 G 5<2e46>-.5 G<6f722065>-5.15 E <78616d706c652c207468652072756c65>-.15 E<5224ad202120242b>142 136.2 Q<24 3a2024287575637020243120244020243220243a2024322040202431202e205555435020 2429>71.72 E .092<6c6f6f6b73207570207468652055554350206e616d6520696e2061 2028757365722064658c6e6564292055554350206d61703b206966206e6f7420666f756e 64206974207475726e7320697420696e746f20992e555543509a20666f726d2e>102 152.4 R<546865206461746162617365206d6967687420636f6e7461696e207265636f72 6473206c696b>102 164.4 Q<653a>-.1 E<64656376>142 180.6 Q 77.43 <61782025314025302e4445432e434f4d>-.25 F 72.19 <72657365617263682025314025302e41>142 192.6 R<5454>-1.11 E<2e434f4d>-.74 E<4e6f74652074686174>102 208.8 Q F2<64656661756c74>2.5 E F1 <636c6175736573206e65>2.5 E -.15<7665>-.25 G 2.5<7264>.15 G 2.5<6f74> -2.5 G<686973206d617070696e672e>-2.5 E .735<5468652062>127 225 R .735<75 696c742d696e206d6170207769746820626f7468206e616d6520616e6420636c61737320 99686f73749a2069732074686520686f7374206e616d652063616e6f6e6963616c697a61 74696f6e206c6f6f6b75702e>-.2 F<546875732c207468652073796e7461783a>102 237 Q<2428686f7374>142 253.2 Q F2<686f73746e616d65>2.5 E F1<2429>A <69732065717569>102 269.4 Q -.25<7661>-.25 G<6c656e7420746f3a>.25 E <245b>142 285.6 Q F2<686f73746e616d65>A F1<245d>A <546865726520617265206d616e>127 306 Q 2.5<7964>-.15 G <658c6e656420636c61737365732e>-2.5 E 55.06<636462204461746162617365>102 322.2 R .088 <6c6f6f6b757073207573696e672074686520636462283329206c696272617279>2.588 F<2e>-.65 E F2<53656e646d61696c>5.087 E F1 .087 <6d75737420626520636f6d70696c65642077697468>2.587 F F0<434442>2.587 E F1 <64658c6e65642e>174 334.2 Q 51.72<64626d204461746162617365>102 350.4 R 1.623 <6c6f6f6b757073207573696e6720746865206e64626d283329206c696272617279> 4.123 F<2e>-.65 E F2<53656e646d61696c>6.623 E F1 1.623 <6d75737420626520636f6d70696c65642077697468>4.123 F F0<4e44424d>174 362.4 Q F1<64658c6e65642e>2.5 E 49.51<6274726565204461746162617365>102 378.6 R .678 <6c6f6f6b757073207573696e672074686520627472656520696e74657266>3.178 F .677<61636520746f20746865204265726b>-.1 F<656c65>-.1 E 3.177<7944>-.15 G 3.177<426c>-3.177 G<696272617279>-3.177 E<2e>-.65 E F2<53656e646d61696c> 5.677 E F1<6d75737420626520636f6d70696c65642077697468>174 390.6 Q F0 <4e45574442>2.5 E F1<64658c6e65642e>2.5 E 51.17 <68617368204461746162617365>102 406.8 R .828 <6c6f6f6b757073207573696e6720746865206861736820696e74657266>3.328 F .828 <61636520746f20746865204265726b>-.1 F<656c65>-.1 E 3.328<7944>-.15 G 3.329<426c>-3.328 G<696272617279>-3.329 E<2e>-.65 E F2<53656e646d61696c> 5.829 E F1<6d75737420626520636f6d70696c65642077697468>174 418.8 Q F0 <4e45574442>2.5 E F1<64658c6e65642e>2.5 E 57.83<6e6973204e4953>102 435 R <6c6f6f6b7570732e>2.5 E F2<53656e646d61696c>5 E F1 <6d75737420626520636f6d70696c65642077697468>2.5 E F0<4e4953>2.5 E F1 <64658c6e65642e>2.5 E 41.16<6e6973706c7573204e49532b>102 451.2 R <6c6f6f6b7570732e>3.733 E F2<53656e646d61696c>6.233 E F1 1.233 <6d75737420626520636f6d70696c65642077697468>3.733 F F0<4e4953504c5553> 3.733 E F1 3.733<64658c6e65642e20546865>3.733 F<6172>3.733 E<67752d>-.18 E .495<6d656e7420697320746865206e616d65206f6620746865207461626c6520746f 2075736520666f72206c6f6f6b7570732c20616e6420746865>174 463.2 R F0 2.995 E F1<616e64>2.995 E F02.995 E F1 .495 <8d616773206d6179206265>2.995 F<7573656420746f2073657420746865206b>174 475.2 Q .3 -.15<65792061>-.1 H<6e642076>.15 E <616c756520636f6c756d6e73207265737065637469>-.25 E -.15<7665>-.25 G <6c79>.15 E<2e>-.65 E 43.39<686573696f6420486573696f64>102 491.4 R <6c6f6f6b7570732e>2.5 E F2<53656e646d61696c>5 E F1 <6d75737420626520636f6d70696c65642077697468>2.5 E F0<484553494f44>2.5 E F1<64658c6e65642e>2.5 E 52.28<6c646170204c44>102 507.6 R 1.784 <41502058353030206469726563746f7279206c6f6f6b7570732e>-.4 F F2 <53656e646d61696c>6.783 E F1 1.783 <6d75737420626520636f6d70696c65642077697468>4.283 F F0<4c44>4.283 E <41504d4150>-.35 E F1 2.965<64658c6e65642e20546865>174 519.6 R .465<6d61 7020737570706f727473206d6f7374206f6620746865207374616e64617264206172> 2.965 F .466<67756d656e747320616e64206d6f7374206f662074686520636f6d2d> -.18 F .3<6d616e64206c696e65206172>174 531.6 R .3 <67756d656e7473206f6620746865>-.18 F F2<6c64617073656172>2.8 E -.15 <6368>-.37 G F1 2.8<70726f6772616d2e204e6f7465>2.95 F .3 <746861742c20627920646566>2.8 F .3<61756c742c20696620612073696e676c65> -.1 F .628<7175657279206d617463686573206d756c7469706c652076>174 543.6 R .628<616c7565732c206f6e6c7920746865208c7273742076>-.25 F .629 <616c75652077696c6c2062652072657475726e656420756e6c65737320746865>-.25 F F03.129 E F1<2876>174 555.6 Q 1.22 <616c756520736570617261746f7229206d6170206f7074696f6e206973207365742e> -.25 F 1.22<416c736f2c20746865>6.22 F F03.72 E F1 1.22 <6d6170208d61672077696c6c2074726561742061206d756c7469706c65>3.72 F -.25 <7661>174 567.6 S<6c75652072657475726e2061732069662074686572652077657265 206e6f206d6174636865732e>.25 E 41.17<6e6574696e666f204e655854>102 583.8 R<4e6574496e666f206c6f6f6b7570732e>2.5 E F2<53656e646d61696c>5 E F1 <6d75737420626520636f6d70696c65642077697468>2.5 E F0<4e4554494e464f>2.5 E F1<64658c6e65642e>2.5 E<7465>102 600 Q 54.65<78742054>-.15 F -.15 <6578>-.7 G 2.917<748c>.15 G .417<6c65206c6f6f6b7570732e>-2.917 F .417 <54686520666f726d6174206f6620746865207465>5.417 F .418 <7874208c6c652069732064658c6e656420627920746865>-.15 F F02.918 E F1<286b>2.918 E .718 -.15<6579208c>-.1 H .418<656c64206e756d2d>.15 F <626572292c>174 612 Q F02.5 E F1<2876>2.5 E <616c7565208c656c64206e756d626572292c20616e64>-.25 E F02.5 E F1 <288c656c642064656c696d6974657229206f7074696f6e732e>2.5 E 59.5 <7068205048>102 628.2 R<7175657279206d61702e>2.5 E<436f6e74726962>5 E<75 74656420616e6420737570706f72746564206279204d61726b20526f74682c20726f7468 40756975632e6564752e>-.2 E 55.61<6e7364206e7364>102 644.4 R 1.599 <6d617020666f72204952495820362e3520616e64206c61746572>4.1 F 6.599<2e43> -.55 G<6f6e74726962>-6.599 E 1.599 <7574656420616e6420737570706f7274656420627920426f62204d656e6465206f66> -.2 F<5347492c206d656e6465407367692e636f6d2e>174 656.4 Q 53.39 <7374616220496e7465726e616c>102 672.6 R <73796d626f6c207461626c65206c6f6f6b7570732e>2.5 E <5573656420696e7465726e616c6c7920666f7220616c696173696e672e>5 E 38.38 <696d706c696369742053657175656e7469616c6c79>102 688.8 R .131 <7472792061206c697374206f662061>2.631 F -.25<7661>-.2 G .131 <696c61626c65206d61702074797065733a>.25 F F2<68617368>2.631 E F1<2c>A F2 <64626d>2.631 E F1 2.631<2c61>C<6e64>-2.631 E F2<636462>2.632 E F1 5.132 <2e49>C 2.632<7469>-5.132 G 2.632<7374>-2.632 G .132<686520646566>-2.632 F<61756c74>-.1 E .207<666f7220616c696173208c6c6573206966206e6f20636c6173 732069732073706563698c65642e>174 700.8 R .206<4966206973206e6f206d617463 68696e67206d6170207479706520697320666f756e642c20746865207465>5.207 F <7874>-.15 E -.15<7665>174 712.8 S <7273696f6e206973207573656420666f722074686520616c696173208c6c652c2062> .15 E<7574206f74686572206d6170732066>-.2 E<61696c20746f206f70656e2e>-.1 E 0 Cg EP %%Page: 86 82 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d38362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 52.84<75736572204c6f6f6b73>102 96 R .476 <7570207573657273207573696e67>2.976 F/F2 10/Times-Italic@0 SF -.1<6765> 2.976 G<7470776e616d>.1 E F1 2.976<2833292e20546865>B F02.976 E F1 .477 <8d61672063616e206265207573656420746f207370656369667920746865206e616d65> 2.976 F .142<6f6620746865208c656c6420746f2072657475726e2028616c74686f75 67682074686973206973206e6f726d616c6c792075736564206f6e6c7920746f20636865 636b207468652065>174 108 R .142<78697374656e6365206f66>-.15 F 2.5<6175> 174 120 S<736572292e>-2.5 E 52.83<686f73742043616e6f6e698c6573>102 136.2 R .2<686f737420646f6d61696e206e616d65732e>2.7 F<4769>5.2 E -.15<7665> -.25 G 2.7<6e6168>.15 G .2 <6f7374206e616d652069742063616c6c7320746865206e616d652073657276>-2.7 F .2<657220746f208c6e64>-.15 F <7468652063616e6f6e6963616c206e616d6520666f72207468617420686f73742e>174 148.2 Q 40.61<626573746d782052657475726e73>102 164.4 R 2.479<7468652062 657374204d58207265636f726420666f72206120686f7374206e616d65206769>4.979 F -.15<7665>-.25 G 4.978<6e61>.15 G 4.978<7374>-4.978 G 2.478<6865206b> -4.978 F -.15<6579>-.1 G 7.478<2e54>-.5 G 2.478<68652063757272656e74> -7.478 F .721<6d616368696e6520697320616c>174 176.4 R -.1<7761>-.1 G .721 <797320707265666572726564208a20746861742069732c206966207468652063757272 656e74206d616368696e65206973206f6e65206f662074686520686f737473>.1 F .219 <6c69737465642061732061206c6f>174 188.4 R .218<776573742d70726566657265 6e6365204d58207265636f72642c207468656e2069742077696c6c206265206775617261 6e7465656420746f2062652072657475726e65642e>-.25 F .961<546869732063616e 206265207573656420746f208c6e64206f75742069662074686973206d616368696e6520 69732074686520746172>174 200.4 R .962 <67657420666f7220616e204d58207265636f72642c20616e64>-.18 F .592 <6d61696c2063616e206265206163636570746564206f6e20746861742062617369732e> 174 212.4 R .592<496620746865>5.592 F F03.092 E F1 .592 <6f7074696f6e206973206769>3.092 F -.15<7665>-.25 G .592 <6e2c207468656e20616c6c204d58206e616d6573>.15 F .361 <6172652072657475726e65642c2073657061726174656420627920746865206769>174 224.4 R -.15<7665>-.25 G 2.861<6e64>.15 G<656c696d69746572>-2.861 E 5.361<2e4e>-.55 G .361<6f74653a207468652072657475726e2076>-5.361 F .361 <616c75652069732064657465726d696e2d>-.25 F 1.699 <69737469632c20692e652e2c2065>174 236.4 R -.15<7665>-.25 G 4.199<6e69> .15 G 4.199<666d>-4.199 G 1.699 <756c7469706c65204d58207265636f726473206861>-4.199 F 1.998 -.15 <76652074>-.2 H 1.698<68652073616d6520707265666572656e63652c20746865>.15 F 4.198<7977>-.15 G 1.698<696c6c206265>-4.198 F <72657475726e656420696e207468652073616d65206f72646572>174 248.4 Q<2e> -.55 E 55.61<646e732054686973>102 264.6 R 2.248<6d6170207265717569726573 20746865206f7074696f6e202d5220746f20737065636966792074686520444e53207265 736f75726365207265636f7264207479706520746f>4.747 F 3.479 <6c6f6f6b75702e20546865>174 276.6 R<666f6c6c6f>3.479 E .979<77696e672074 797065732061726520737570706f727465643a20412c20414141412c2041465344422c20 434e>-.25 F .979<414d452c204d582c>-.35 F .106<4e532c205054522c205352>174 288.6 R 2.686 -1.29<562c2061>-.8 H .106<6e6420545854>1.29 F 5.106<2e41> -.74 G .107<6d6170206c6f6f6b75702077696c6c2072657475726e206f6e6c79206f6e 65207265636f726420756e6c65737320746865>-2.499 F F02.607 E F1<2876> 174 300.6 Q .111 <616c756520736570617261746f7229206f7074696f6e206973207365742e>-.25 F .111<48656e636520666f7220736f6d652074797065732c20652e672e2c204d58207265 636f7264732c207468652072657475726e>5.111 F -.25<7661>174 312.6 S 1.052< 6c7565206d6967687420626520612072616e646f6d20656c656d656e74206f6620746865 20726573756c74732064756520746f2072616e646f6d697a696e6720696e207468652044 4e53>.25 F<7265736f6c76>174 324.6 Q<6572>-.15 E 2.5<2c69>-.4 G 2.5<666f> -2.5 G<6e6c79206f6e6520656c656d656e742069732072657475726e65642e>-2.5 E 52.29<617270612052657475726e73>102 340.8 R .724<7468652060>3.224 F <607265>-.74 E -.15<7665>-.25 G<72736527>.15 E 3.224<2766>-.74 G .724 <6f7220746865206769>-3.224 F -.15<7665>-.25 G 3.224<6e49>.15 G 3.224 <5028>-3.224 G .723<49507634206f7220495076362920616464726573732c20692e65 2e2c2074686520737472696e6720666f72>-3.224 F .431 <74686520505452206c6f6f6b75702c2062>174 352.8 R .431 <757420776974686f757420747261696c696e67>-.2 F F0<6970362e6172>2.931 E <7061>-.1 E F1<6f72>2.931 E F0<696e2d61646472>2.931 E<2e6172>-1 E<7061> -.1 E F1 5.431<2e46>C .431<6f722065>-5.581 F .431 <78616d706c652c20746865>-.15 F<666f6c6c6f>174 364.8 Q <77696e6720636f6e8c6775726174696f6e206c696e65733a>-.25 E <4b617270612061727061>214 381 Q<5341727061>214 393 Q 88.19<52242b20243a> 214 405 R<242861727061202431202429>2.5 E -.1<776f>174 421.2 S <726b206c696b>.1 E 2.5<6574>-.1 G<68697320696e2074657374206d6f64653a> -2.5 E<73656e646d61696c202d6274>214 437.4 Q <414444524553532054455354204d4f4445202872756c657365742033204e4f>214 449.4 Q 2.5<5461>-.4 G<75746f6d61746963616c6c7920696e>-2.5 E -.2<766f> -.4 G -.1<6b65>.2 G<6429>.1 E <456e746572203c72756c657365743e203c616464726573733e>214 461.4 Q 2.5 <3e41>214 473.4 S <72706120495076363a313a323a646561643a626565663a393837363a303a303a31>-2.5 E 35<4172706120696e7075743a>214 485.4 R<49507636203a2031203a2032203a2064 656164203a2062656566203a2039383736203a2030203a2030203a2031>2.5 E 30 <417270612072657475726e733a>214 497.4 R 2.5<312e302e302e302e302e302e302e 302e302e302e302e302e362e372e382e392e662e652e652e622e642e612e652e642e322e 302e302e302e312e302e302e30>2.5 G 2.5<3e41>214 509.4 S <72706120312e322e332e34>-2.5 E 35<4172706120696e7075743a>214 521.4 R 2.5 <312e322e332e34>2.5 G 30<417270612072657475726e733a>214 533.4 R 2.5 <342e332e322e31>2.5 G 32.85<73657175656e636520546865>102 553.8 R<6172> 3.35 E .849<67756d656e7473206f6e2074686520604b27206c696e6520617265206120 6c697374206f66206d6170733b2074686520726573756c74696e67206d61702073656172 6368657320746865>-.18 F<6172>174 565.8 Q .438<67756d656e74206d6170732069 6e206f7264657220756e74696c206974208c6e64732061206d6174636820666f72207468 6520696e64696361746564206b>-.18 F -.15<6579>-.1 G 5.439<2e46>-.5 G .439 <6f722065>-5.589 F<78616d706c652c>-.15 E<696620746865206b>174 577.8 Q .3 -.15<65792064>-.1 H<658c6e6974696f6e2069733a>.15 E<4b6d617031202e2e2e> 214 594 Q<4b6d617032202e2e2e>214 606 Q <4b7365716d61702073657175656e6365206d617031206d617032>214 618 Q .968 <7468656e2061206c6f6f6b7570206167>174 634.2 R .968<61696e73742099736571 6d61709a208c72737420646f65732061206c6f6f6b757020696e206d6170312e>-.05 F .968<4966207468617420697320666f756e642c206974>5.968 F <72657475726e7320696d6d6564696174656c79>174 646.2 Q 5<2e4f>-.65 G <74686572776973652c207468652073616d65206b>-5 E .3 -.15<65792069>-.1 H 2.5<7375>.15 G<73656420666f72206d6170322e>-2.5 E 43.94 <7379736c6f6720746865>102 662.4 R -.1<6b65>2.5 G 2.5<7969>-.05 G 2.5 <736c>-2.5 G<6f6767656420766961>-2.5 E F2<7379736c6f>2.5 E<6764>-.1 E F1 2.5<2838292e20546865>1.666 F <6c6f6f6b75702072657475726e732074686520656d70747920737472696e672e>2.5 E 43.39<737769746368204d756368>102 678.6 R<6c696b>2.8 E 2.8<6574>-.1 G .3 <6865209973657175656e63659a206d61702065>-2.8 F .301<78636570742074686174 20746865206f72646572206f66206d6170732069732064657465726d696e656420627920 746865>-.15 F .392<73657276696365207377697463682e>174 690.6 R .392 <546865206172>5.392 F .391<67756d656e7420697320746865206e616d65206f6620 746865207365727669636520746f206265206c6f6f6b>-.18 F .391 <65642075703b207468652076>-.1 F<616c2d>-.25 E 1.492<7565732066726f6d2074 68652073657276696365207377697463682061726520617070656e64656420746f207468 65206d6170206e616d6520746f20637265617465206e65>174 702.6 R 3.993<776d> -.25 G<6170>-3.993 E 2.5<6e616d65732e2046>174 714.6 R<6f722065>-.15 E <78616d706c652c20636f6e736964657220746865206b>-.15 E .3 -.15<65792064> -.1 H<658c6e6974696f6e3a>.15 E 0 Cg EP %%Page: 87 83 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3837>195.86 E /F1 10/Times-Roman@0 SF<4b616c692073776974636820616c6961736573>214 96 Q< 746f67657468657220776974682074686520736572766963652073776974636820656e74 72793a>174 112.2 Q 78.84<616c6961736573206e6973>214 128.4 R<8c6c6573>2.5 E 1.633<54686973206361757365732061207175657279206167>174 144.6 R 1.633< 61696e737420746865206d61702099616c699a20746f20736561726368206d617073206e 616d65642099616c692e6e69739a20616e64>-.05 F <99616c692e8c6c65739a20696e2074686174206f72646572>174 156.6 Q<2e>-.55 E 37.84<646571756f7465205374726970>102 172.8 R .96 <646f75626c652071756f746573202822292066726f6d2061206e616d652e>3.46 F .961<497420646f6573206e6f74207374726970206261636b736c61736865732c20616e 642077696c6c206e6f74>5.961 F .173<73747269702071756f74657320696620746865 20726573756c74696e6720737472696e672077>174 184.8 R .172<6f756c6420636f6e 7461696e20756e7363616e6e61626c652073796e7461782028746861742069732c206261 736963>-.1 F .386<6572726f7273206c696b>174 196.8 R 2.886<6575>-.1 G .386 <6e62616c616e63656420616e676c6520627261636b>-2.886 F .386<6574733b206d6f 726520736f7068697374696361746564206572726f7273207375636820617320756e6b6e 6f>-.1 F<776e>-.25 E .252<686f73747320617265206e6f7420636865636b>174 208.8 R 2.752<6564292e20546865>-.1 F .251<696e74656e7420697320666f722075 7365207768656e20747279696e6720746f20616363657074206d61696c2066726f6d2073 79732d>2.752 F<74656d732073756368206173204445436e6574207468617420726f75 74696e656c792071756f7465206f64642073796e7461782073756368206173>174 220.8 Q<2234396572733a3a7562656c6c22>214 237 Q 2.5<4174>174 253.2 S<7970696361 6c2075736167652069732070726f6261626c7920736f6d657468696e67206c696b>-2.5 E<653a>-.1 E<4b646571756f746520646571756f7465>214 269.4 Q<2e2e2e>214 293.4 Q 88.19<5224ad20243a>214 317.4 R<2428646571756f7465202431202429> 2.5 E<5224ad20242b>214 329.4 Q<243a20243e33202431202432>77.55 E <43617265206d7573742062652074616b>174 345.6 Q<656e20746f20707265>-.1 E -.15<7665>-.25 G<6e7420756e65>.15 E <7870656374656420726573756c74733b20666f722065>-.15 E<78616d706c652c>-.15 E<227c736f6d6570726f6772616d203c20696e707574203e206f757470757422>214 361.8 Q 1.31<77696c6c206861>174 378 R 1.61 -.15<76652071>-.2 H 1.31 <756f7465732073747269707065642c2062>.15 F 1.31<75742074686520726573756c 742069732070726f6261626c79206e6f74207768617420796f752068616420696e206d69 6e642e>-.2 F -.15<466f>174 390 S <7274756e6174656c792074686573652063617365732061726520726172652e>.15 E <7265>102 406.2 Q<6765>-.15 E 50.09<7854>-.15 G .489 <6865206d61702064658c6e6974696f6e206f6e20746865>-50.09 F F0<4b>2.989 E F1 .489<6c696e6520636f6e7461696e732061207265>2.989 F .488 <67756c61722065>-.15 F 2.988<787072657373696f6e2e20416e>-.15 F 2.988 <796b>-.15 G .788 -.15<65792069>-3.088 H .488<6e707574206973>.15 F 1.454 <636f6d706172656420746f20746861742065>174 418.2 R 1.454 <787072657373696f6e207573696e672074686520504f534958207265>-.15 F 1.454 <67756c61722065>-.15 F 1.454 <787072657373696f6e7320726f7574696e6573207265>-.15 F<672d>-.15 E .291 <636f6d7028292c207265>174 430.2 R .291<6765727228292c20616e64207265>-.15 F<6765>-.15 E -.15<7865>-.15 G 2.791<6328292e205265666572>.15 F .291<74 6f2074686520646f63756d656e746174696f6e20666f722074686f736520726f7574696e 657320666f72>2.791 F .355 <6d6f726520696e666f726d6174696f6e2061626f757420746865207265>174 442.2 R .355<67756c61722065>-.15 F .355<787072657373696f6e206d61746368696e672e> -.15 F .356<4e6f207265>5.356 F .356<77726974696e67206f6620746865206b> -.25 F -.15<6579>-.1 G .075<697320646f6e6520696620746865>174 454.2 R F0 2.575 E F1 .075<8d616720697320757365642e>2.575 F -.4<5769>5.075 G .075<74686f75742069742c20746865206b>.4 F .374 -.15<65792069>-.1 H 2.574 <7364>.15 G .074<6973636172646564206f72206966>-2.574 F F02.574 E F1 .074<696620757365642c206974206973>2.574 F .905<7375627374697475746564 2062792074686520737562737472696e67206d6174636865732c2064656c696d69746564 206279>174 466.2 R F0<247c>3.405 E F1 .905 <6f722074686520737472696e672073706563698c65642077697468>3.405 F<746865> 174 478.2 Q F02.5 E F1 2.5<6f7074696f6e2e20546865>2.5 F <6f7074696f6e732061>2.5 E -.25<7661>-.2 G <696c61626c6520666f7220746865206d617020617265>.25 E 9.17<2d6e206e6f74> 214 494.4 R 10.84<2d662063617365>214 506.4 R<73656e73697469>2.5 E -.15 <7665>-.25 G 9.17<2d62206261736963>214 518.4 R<7265>2.5 E <67756c61722065>-.15 E<787072657373696f6e732028646566>-.15 E <61756c742069732065>-.1 E<7874656e64656429>-.15 E 10.28 <2d7320737562737472696e67>214 530.4 R<6d61746368>2.5 E 9.17 <2d6420736574>214 542.4 R <7468652064656c696d6974657220737472696e67207573656420666f72202d73>2.5 E 9.73<2d6120617070656e64>214 554.4 R<737472696e6720746f206b>2.5 E -.15 <6579>-.1 G 6.39<2d6d206d61746368>214 566.4 R<6f6e6c79>2.5 E 2.5<2c64> -.65 G 2.5<6f6e>-2.5 G<6f74207265706c6163652f646973636172642076>-2.5 E <616c7565>-.25 E 6.95<2d4420706572666f726d>214 578.4 R <6e6f206c6f6f6b757020696e2064656665727265642064656c69>2.5 E -.15<7665> -.25 G<7279206d6f64652e>.15 E<546865>174 594.6 Q F03.209 E F1 .709 <6f7074696f6e2063616e20696e636c75646520616e206f7074696f6e616c2070617261 6d657465722077686963682063616e206265207573656420746f2073656c656374207468 65>3.209 F<737562737472696e677320696e2074686520726573756c74206f66207468 65206c6f6f6b75702e>174 606.6 Q -.15<466f>5 G 2.5<7265>.15 G <78616d706c652c>-2.65 E<2d73312c332c34>214 622.8 Q .271<5468652064656c69 6d6974657220737472696e672073706563698c65642076696120746865>174 639 R F0 2.771 E F1 .272<6f7074696f6e206973207468652073657175656e6365206f66 2063686172616374657273206166746572>2.772 F F0<64>174 651 Q F1 .412 <656e64696e6720617420746865208c7273742073706163652e>2.912 F .412 <48656e63652069742069736e27>5.412 F 2.912<7470>-.18 G .412<6f737369626c 6520746f207370656369667920612073706163652061732064656c696d69746572> -2.912 F<2c>-.4 E .64<736f20696620746865206f7074696f6e20697320696d6d6564 696174656c7920666f6c6c6f>174 663 R .641<77656420627920612073706163652074 68652064656c696d6974657220737472696e6720697320656d707479>-.25 F<2c>-.65 E<7768696368206d65616e732074686520737562737472696e677320617265206a6f696e 65642e>174 675 Q .697<4e6f7465733a20746f206d617463682061>174 699 R F0 <24>3.197 E F1 .697 <696e206120737472696e672c205c2424206d75737420626520757365642e>3.197 F .697<496620746865207061747465726e20636f6e7461696e73207370616365732c> 5.697 F<746865>174 711 Q 4.424<796d>-.15 G 1.924<757374206265207265706c 6163656420776974682074686520626c616e6b20737562737469747574696f6e20636861 726163746572>-4.424 F 4.424<2c75>-.4 G 1.925 <6e6c657373206974206973207370616365>-4.424 F<697473656c662e>174 723 Q 0 Cg EP %%Page: 88 84 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d38382053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 35.62<70726f6772616d20546865>102 96 R<6172>2.545 E .045<67756d656e7473206f6e20746865>-.18 F F0<4b>2.545 E F1 .045<6c696e 65206172652074686520706174686e616d6520746f20612070726f6772616d20616e6420 616e>2.545 F 2.544<7969>-.15 G .044<6e697469616c20706172616d2d>-2.544 F .175<657465727320746f206265207061737365642e>174 108 R .176 <5768656e20746865206d61702069732063616c6c65642c20746865206b>5.175 F .476 -.15<65792069>-.1 H 2.676<7361>.15 G .176 <6464656420746f2074686520696e697469616c20706172616d652d>-2.676 F .112 <7465727320616e64207468652070726f6772616d20697320696e>174 120 R -.2 <766f>-.4 G -.1<6b65>.2 G 2.612<6461>.1 G 2.612<7374>-2.612 G .112 <686520646566>-2.612 F .112<61756c7420757365722f67726f75702069642e>-.1 F .112<546865208c727374206c696e65206f66207374616e2d>5.112 F .508 <64617264206f75747075742069732072657475726e6564206173207468652076>174 132 R .508<616c7565206f6620746865206c6f6f6b75702e>-.25 F .508 <5468697320686173206d616e>5.508 F 3.008<7970>-.15 G .508 <6f74656e7469616c20736563752d>-3.008 F 1.278<726974792070726f626c656d73 2c20616e6420686173207465727269626c6520706572666f726d616e63653b2069742073 686f756c642062652075736564206f6e6c79207768656e206162736f2d>174 144 R <6c7574656c79206e6563657373617279>174 156 Q<2e>-.65 E 44.51 <6d6163726f20536574>102 172.2 R .32 <6f7220636c6561722061206d6163726f2076>2.82 F 2.82<616c75652e2054>-.25 F 2.82<6f73>-.8 G .32<65742061206d6163726f2c2070617373207468652076>-2.82 F .32<616c756520617320746865208c727374206172>-.25 F .32 <67756d656e7420696e>-.18 F .939<746865206d6170206c6f6f6b75702e>174 184.2 R 2.539 -.8<546f2063>5.939 H .939 <6c6561722061206d6163726f2c20646f206e6f74207061737320616e206172>.8 F .938<67756d656e7420696e20746865206d6170206c6f6f6b75702e>-.18 F <546865206d617020616c>174 196.2 Q -.1<7761>-.1 G <79732072657475726e732074686520656d70747920737472696e672e>.1 E <4578616d706c65206f66207479706963616c20757361676520696e636c7564653a>5 E <4b73746f72616765206d6163726f>214 212.4 Q<2e2e2e>214 236.4 Q 2.5<2373> 214 260.4 S<6574206d6163726f20247b4d794d6163726f7d20746f207468652072756c 65736574206d61746368>-2.5 E .19<52242b20243a>214 272.4 R <242873746f72616765207b4d794d6163726f7d202440202431202429202431>2.5 E 2.5<2373>214 284.4 S<6574206d6163726f20247b4d794d6163726f7d20746f20616e 20656d70747920737472696e67>-2.5 E .83<52242a20243a>214 296.4 R <242873746f72616765207b4d794d6163726f7d202440202429202431>2.5 E 2.5 <2363>214 308.4 S<6c656172206d6163726f20247b4d794d6163726f7d>-2.5 E .19 <5224ad20243a>214 320.4 R <242873746f72616765207b4d794d6163726f7d202429202431>2.5 E 51.17 <617269746820506572666f726d>102 340.8 R .493 <73696d706c652061726974686d65746963206f7065726174696f6e732e>2.993 F .494 <546865206f7065726174696f6e206973206769>5.493 F -.15<7665>-.25 G 2.994 <6e61>.15 G 2.994<736b>-2.994 G -.15<6579>-3.094 G 2.994<2c63>-.5 G .494 <757272656e746c79202b2c>-2.994 F .245<2d2c202a2c202f2c20252c207c2c202620 2862697477697365204f522c20414e44292c206c2028666f72206c657373207468616e29 2c203d2c20616e6420722028666f722072616e646f6d2920617265207375702d>174 352.8 R 3.21<706f727465642e20546865>174 364.8 R<7477>3.21 E 3.21<6f6f> -.1 G .71<706572616e647320617265206769>-3.21 F -.15<7665>-.25 G 3.21 <6e61>.15 G 3.21<7361>-3.21 G -.18<7267>-3.21 G 3.21 <756d656e74732e20546865>.18 F .71 <6c6f6f6b75702072657475726e732074686520726573756c74>3.21 F 1.374 <6f662074686520636f6d7075746174696f6e2c20692e652e2c>174 376.8 R/F2 9 /Times-Roman@0 SF<5452>3.874 E<5545>-.36 E F1<6f72>3.874 E F2 -.666 <4641>3.874 G<4c5345>.666 E F1 1.374 <666f7220636f6d70617269736f6e732c20696e7465>3.874 F 1.374<6765722076> -.15 F 1.373<616c756573206f74686572>-.25 F<2d>-.2 E 3.211 <776973652e20546865>174 388.8 R 3.212<726f>3.211 G .712<70657261746f7220 72657475726e7320612070736575646f2d72616e646f6d206e756d6265722077686f7365 2076>-3.212 F .712<616c7565206c696573206265747765656e>-.25 F .538<746865 208c72737420616e64207365636f6e64206f706572616e64202877686963682072657175 69726573207468617420746865208c727374206f706572616e6420697320736d616c6c65 72207468616e>174 400.8 R 2.133<746865207365636f6e64292e>174 412.8 R 2.133<416c6c206f7074696f6e732077686963682061726520706f737369626c6520666f 72206d617073206172652069676e6f7265642e>7.133 F 4.634<4173>7.134 G <696d706c65>-4.634 E -.15<6578>174 424.8 S<616d706c652069733a>.15 E <4b636f6d70206172697468>214 441 Q<2e2e2e>214 465 Q <53636865636b5f6574726e>214 489 Q .83<52242a20243a>214 501 R <2428636f6d70206c2024402024267b6c6f61645f61>2.5 E <76677d2024402037202429202431>-.2 E<5246>214 513 Q <414c53452423206572726f72202e2e2e>-.74 E<736f636b>102 533.4 Q 44.05 <657420546865>-.1 F<736f636b>3.232 E .732<6574206d6170207573657320612073 696d706c6520726571756573742f7265706c792070726f746f636f6c206f>-.1 F -.15 <7665>-.15 G 3.231<7254>.15 G .731<4350206f7220554e495820646f6d61696e> -3.231 F<736f636b>174 545.4 Q .753<65747320746f20717565727920616e2065> -.1 F .753<787465726e616c2073657276>-.15 F<6572>-.15 E 5.753<2e42>-.55 G .753<6f746820726571756573747320616e64207265706c69657320617265207465> -5.753 F .753<787420626173656420616e64>-.15 F<656e636f646564206173206e65 74737472696e67732c20692e652e2c206120737472696e67202268656c6c6f2074686572 6522206265636f6d65733a>174 557.4 Q<31313a68656c6c6f2074686572652c>214 573.6 Q<4e6f74653a206e656974686572207265717565737473206e6f72207265706c69 657320656e6420776974682043524c46>174 589.8 Q<2e>-.8 E .301<546865207265 717565737420636f6e7369737473206f6620746865206461746162617365206d6170206e 616d6520616e6420746865206c6f6f6b7570206b>174 613.8 R .6 -.15<65792073> -.1 H .3<65706172617465642062792061>.15 F <7370616365206368617261637465723a>174 625.8 Q <3c6d61706e616d653e20272027203c6b>214 654 Q -.15<6579>-.1 G<3e>.15 E <5468652073657276>174 682.2 Q<657220726573706f6e647320776974682061207374 6174757320696e64696361746f7220616e642074686520726573756c742028696620616e> -.15 E<79293a>-.15 E<3c7374617475733e20272027203c726573756c743e>214 710.4 Q 0 Cg EP %%Page: 89 85 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3839>195.86 E /F1 10/Times-Roman@0 SF .161<5468652073746174757320696e64696361746f7220 73706563698c65732074686520726573756c74206f6620746865206c6f6f6b7570206f70 65726174696f6e20697473656c6620616e64206973206f6e65206f66>174 96 R <74686520666f6c6c6f>174 108 Q<77696e6720757070657220636173652077>-.25 E <6f7264733a>-.1 E 28.06<4f4b20746865>214 124.2 R -.1<6b65>2.5 G 2.5 <7977>-.05 G <617320666f756e642c20726573756c7420636f6e7461696e7320746865206c6f6f6b> -2.6 E<65642075702076>-.1 E<616c7565>-.25 E<4e4f>214 136.2 Q <54464f554e44746865206b>-.4 E .3 -.15<65792077>-.1 H <6173206e6f7420666f756e642c2074686520726573756c7420697320656d707479>.05 E 15.83<54454d502061>214 148.2 R<74656d706f726172792066>2.5 E <61696c757265206f63637572726564>-.1 E -2.49<54494d454f55542061>214 160.2 R<74696d656f7574206f63637572726564206f6e207468652073657276>2.5 E <65722073696465>-.15 E 15.27<5045524d2061>214 172.2 R <7065726d616e656e742066>2.5 E<61696c757265206f63637572726564>-.1 E .26 <496e2063617365206f66206572726f727320287374617475732054454d50>174 200.4 R 2.76<2c54>-1.11 G .26<494d454f5554206f72205045524d29207468652072657375 6c74208c656c64206d617920636f6e7461696e>-2.76 F .818<616e2065>174 212.4 R .818<78706c616e61746f7279206d6573736167652e>-.15 F<486f>5.818 E<7765> -.25 E -.15<7665>-.25 G 1.618 -.4<722c2074>.15 H .818<68652065>.4 F .818 <78706c616e61746f7279206d657373616765206973206e6f74207573656420616e>-.15 F 3.319<7966>-.15 G<7572>-3.319 E<2d>-.2 E<74686572206279>174 224.4 Q/F2 10/Times-Italic@0 SF<73656e646d61696c>2.5 E F1<2e>A <4578616d706c65207265706c6965733a>174 248.4 Q<33313a4f4b207265736f6c76> 214 264.6 Q<65642e616464726573734065>-.15 E<78616d706c652e636f6d2c>-.15 E<35363a4f4b206572726f723a35353020352e372e31205573657220646f6573206e6f74 20616363657074206d61696c2066726f6d2073656e646572>214 297 Q<2c>-.4 E <696e2063617365206f66207375636365737366756c206c6f6f6b7570732c206f723a> 174 325.2 Q<383a4e4f>214 341.4 Q<54464f554e442c>-.4 E <696e206361736520746865206b>174 369.6 Q .3 -.15<65792077>-.1 H <6173206e6f7420666f756e642c206f723a>.05 E <35353a54454d502074686973207465>214 385.8 Q<78742065>-.15 E <78706c61696e7320746861742077652068616420612074656d706f726172792066>-.15 E<61696c7572652c>-.1 E <696e2063617365206f6620612074656d706f72617279206d6170206c6f6f6b75702066> 174 414 Q<61696c7572652e>-.1 E 1.187<54686520736f636b>174 438 R 1.186<65 74206d61702075736573207468652073616d652073796e746178206173206d696c746572 7320287365652053656374696f6e202258208a204d61696c2046696c746572>-.1 F<28 4d696c746572292044658c6e6974696f6e73222920746f20737065636966792074686520 72656d6f746520656e64706f696e742c20652e672e2c>174 450 Q<4b736f636b>214 466.2 Q<6574206d79536f636b>-.1 E <65744d617020696e65743a3132333435403132372e302e302e31>-.1 E .492 <4966206d756c7469706c6520736f636b>174 494.4 R .492<6574206d617073206465 8c6e65207468652073616d652072656d6f746520656e64706f696e742c20746865>-.1 F 2.993<7977>-.15 G .493<696c6c20736861726520612073696e676c65>-2.993 F <636f6e6e656374696f6e20746f207468697320656e64706f696e742e>174 506.4 Q .488<4d6f7374206f6620746865736520616363657074206173206172>127 522.6 R .488<67756d656e7473207468652073616d65206f7074696f6e616c208d61677320616e 642061208c6c656e616d6520286f722061206d61706e616d6520666f72>-.18 F .31<4e 49533b20746865208c6c656e616d652069732074686520726f6f74206f66207468652064 6174616261736520706174682c20736f207468617420992e64629a206f7220736f6d6520 6f746865722065>102 534.6 R .31<7874656e73696f6e20617070726f707269617465> -.15 F<666f722074686520646174616261736520747970652077696c6c206265206164 64656420746f20676574207468652061637475616c206461746162617365206e616d6529 2e>102 546.6 Q<4b6e6f>5 E<776e208d616773206172653a>-.25 E 58.86 102 562.8 R 1.147<746861742074686973206d617020 6973206f7074696f6e616c208a20746861742069732c2069662069742063616e6e6f7420 6265206f70656e65642c206e6f206572726f72206973>3.648 F <70726f64756365642c20616e64>174 574.8 Q F2<73656e646d61696c>2.5 E F1 <77696c6c2062656861>2.5 E .3 -.15<76652061>-.2 H 2.5<7369>.15 G 2.5 <6674>-2.5 G<6865206d61702065>-2.5 E<7869737465642062>-.15 E<75742077> -.2 E<617320656d707479>-.1 E<2e>-.65 E102 591 Q .696 <4966206e656974686572>41.28 F F03.197 E F1<6f72>3.197 E F0 3.197 E F1 .697<6172652073706563698c65642c>3.197 F F2<73656e646d61696c> 3.197 E F1 .697<7573657320616e20616461707469>3.197 F .997 -.15<76652061> -.25 H .697<6c676f726974686d20746f20646563696465>.15 F .108<776865746865 72206f72206e6f7420746f206c6f6f6b20666f72206e756c6c206279746573206f6e2074 686520656e64206f66206b>174 603 R -.15<6579>-.1 G 2.608<732e204974>.15 F .107<73746172747320627920747279696e6720626f74683b206966>2.608 F .819 <6974208c6e647320616e>174 615 R 3.319<796b>-.15 G 1.119 -.15<65792077> -3.419 H .819<6974682061206e756c6c2062797465206974206e65>.15 F -.15 <7665>-.25 G 3.319<7274>.15 G .82<72696573206167>-3.319 F .82 <61696e20776974686f75742061206e756c6c206279746520616e642076696365>-.05 F -.15<7665>174 627 S 2.828<7273612e204966>.15 F F02.828 E F1 .328 <69732073706563698c6564206974206e65>2.828 F -.15<7665>-.25 G 2.828<7274> .15 G .328 <7269657320776974686f75742061206e756c6c206279746520616e64206966>-2.828 F F02.827 E F1 .327<69732073706563698c6564206974>2.827 F<6e65>174 639 Q -.15<7665>-.25 G 2.886<7274>.15 G .386 <7269657320776974682061206e756c6c20627974652e>-2.886 F .386<53657474696e 67206f6e65206f662074686573652063616e207370656564206d6174636865732062> 5.386 F .386<757420617265206e65>-.2 F -.15<7665>-.25 G<72>.15 E <6e6563657373617279>174 651 Q 5.546<2e49>-.65 G 3.046<6662>-5.546 G <6f7468>-3.046 E F03.046 E F1<616e64>3.046 E F03.046 E F1 .545<6172652073706563698c65642c>3.045 F F2<73656e646d61696c>3.045 E F1 .545<77696c6c206e65>3.045 F -.15<7665>-.25 G 3.045<7274>.15 G .545 <727920616e>-3.045 F 3.045<796d>-.15 G<617463686573>-3.045 E <617420616c6c208a20746861742069732c2065>174 663 Q -.15<7665>-.25 G <72797468696e672077696c6c2061707065617220746f2066>.15 E<61696c2e>-.1 E 102 679.2 Q F2<78>A F1 1.356<417070656e642074686520737472696e67> 57.48 F F2<78>3.856 E F1 1.357 <6f6e207375636365737366756c206d6174636865732e>3.856 F -.15<466f>6.357 G 3.857<7265>.15 G 1.357<78616d706c652c2074686520646566>-4.007 F<61756c74> -.1 E F2<686f7374>3.857 E F1<6d6170>3.857 E<617070656e6473206120646f7420 6f6e207375636365737366756c206d6174636865732e>174 691.2 Q102 707.4 Q F2<78>A F1 .021<417070656e642074686520737472696e67>55.81 F F2<78>2.521 E F1 .021<6f6e2074656d706f726172792066>2.521 F 2.521 <61696c757265732e2046>-.1 F .021<6f722065>-.15 F<78616d706c652c>-.15 E F2<78>2.521 E F1 -.1<776f>2.521 G .02 <756c6420626520617070656e6465642069662061>.1 F .72 <444e53206c6f6f6b75702072657475726e6564209973657276>174 719.4 R .72 <65722066>-.15 F .72<61696c65649a206f7220616e204e4953206c6f6f6b75702063 6f756c64206e6f74206c6f6361746520612073657276>-.1 F<6572>-.15 E<2e>-.55 E 0 Cg EP %%Page: 90 86 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d39302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<53656520616c736f20746865>174 96 Q F02.5 E F1<8d61672e>2.5 E 60.53102 112.2 R <6e6f7420666f6c6420757070657220746f206c6f>2.5 E <7765722063617365206265666f7265206c6f6f6b696e6720757020746865206b>-.25 E -.15<6579>-.1 G<2e>-.5 E 56.08102 128.4 R .4 <6f6e6c792028776974686f7574207265706c6163696e67207468652076>2.9 F 2.899 <616c7565292e204966>-.25 F .399 <796f75206f6e6c7920636172652061626f7574207468652065>2.899 F .399 <78697374656e6365206f66>-.15 F 7.306<616b>174 140.4 S 5.107 -.15 <65792061>-7.406 H 4.807<6e64206e6f74207468652076>.15 F 4.807<616c756520 28617320796f75206d69676874207768656e20736561726368696e6720746865204e4953 206d6170>-.25 F 1.947<99686f7374732e62796e616d659a20666f722065>174 152.4 R 1.947<78616d706c65292c2074686973208d616720707265>-.15 F -.15<7665>-.25 G 1.947 <6e747320746865206d61702066726f6d20737562737469747574696e6720746865>.15 F -.25<7661>174 164.4 S 2.849<6c75652e20486f>.25 F<7765>-.25 E -.15 <7665>-.25 G 1.149 -.4<722c2054>.15 H .349<686520ad61206172>.4 F .349<67 756d656e74206973207374696c6c20617070656e646564206f6e2061206d617463682c20 616e642074686520646566>-.18 F .35<61756c74206973>-.1 F <7374696c6c2074616b>174 176.4 Q<656e20696620746865206d617463682066>-.1 E <61696c732e>-.1 E102 192.6 Q/F2 10/Times-Italic@0 SF -.1<6b65>C <79636f6c>-.2 E F1 .52<546865206b>36.22 F .82 -.15<65792063>-.1 H .519< 6f6c756d6e206e616d652028666f72204e49532b29206f72206e756d6265722028666f72 207465>.15 F .519<7874206c6f6f6b757073292e>-.15 F -.15<466f>5.519 G 3.019<724c>.15 G -.4<4441>-3.019 G 3.019<506d>.4 G<617073>-3.019 E .972 <7468697320697320616e204c44>174 204.6 R .973<4150208c6c7465722073747269 6e6720696e207768696368202573206973207265706c6163656420776974682074686520 6c69746572616c20636f6e74656e7473206f66>-.4 F .249 <746865206c6f6f6b7570206b>174 216.6 R .549 -.15<65792061>-.1 H .249 <6e64202530206973207265706c61636564207769746820746865204c44>.15 F .248 <4150206573636170656420636f6e74656e7473206f6620746865206c6f6f6b7570>-.4 F -.1<6b65>174 228.6 S 4.176<7961>-.05 G 1.676 <63636f7264696e6720746f2052464320323235342e>-4.176 F 1.676 <496620746865208d6167>6.676 F F04.176 E F1 1.676 <697320757365642c207468656e202531207468726f75676820253920617265>4.176 F .887<7265706c61636564207769746820746865204c44>174 240.6 R .887 <4150206573636170656420636f6e74656e7473206f6620746865206172>-.4 F .886 <67756d656e74732073706563698c656420696e20746865206d6170>-.18 F <6c6f6f6b75702e>174 252.6 Q102 268.8 Q F2<76616c636f6c>A F1 1.928 <5468652076>36.92 F 1.928<616c756520636f6c756d6e206e616d652028666f72204e 49532b29206f72206e756d6265722028666f72207465>-.25 F 1.929 <7874206c6f6f6b757073292e>-.15 F -.15<466f>6.929 G 4.429<724c>.15 G -.4 <4441>-4.429 G<50>.4 E .467<6d617073207468697320697320746865206e616d6520 6f66206f6e65206f72206d6f726520617474726962>174 280.8 R .467<757465732074 6f2062652072657475726e65643b206d756c7469706c6520617474726962>-.2 F <75746573>-.2 E 1.216 <63616e2062652073657061726174656420627920636f6d6d61732e>174 292.8 R 1.216<4966206e6f742073706563698c65642c20616c6c20617474726962>6.216 F 1.216<7574657320666f756e6420696e20746865206d61746368>-.2 F 1.328 <77696c6c2062652072657475726e65642e>174 304.8 R 1.328 <54686520617474726962>6.328 F 1.328<75746573206c69737465642063616e20616c 736f20696e636c7564652061207479706520616e64206f6e65206f72206d6f7265>-.2 F <6f626a656374436c6173732076>174 316.8 Q<616c75657320666f72206d6174636869 6e672061732064657363726962656420696e20746865204c44>-.25 E <41502073656374696f6e2e>-.4 E102 333 Q F2<64656c696d>A F1 .218 <54686520636f6c756d6e2064656c696d697465722028666f72207465>39.7 F .218 <7874206c6f6f6b757073292e>-.15 F .219<49742063616e20626520612073696e676c 6520636861726163746572206f72206f6e65206f6620746865>5.219 F 1.826 <7370656369616c20737472696e67732099>174 345 R 1.826<5c6e9a206f722099> 1.666 F 1.826<5c749a20746f20696e646963617465206e65>1.666 F 1.825 <776c696e65206f7220746162207265737065637469>-.25 F -.15<7665>-.25 G <6c79>.15 E 6.825<2e49>-.65 G 4.325<666f>-6.825 G<6d6974746564>-4.325 E <656e746972656c79>174 357 Q 4.122<2c74>-.65 G 1.622 <686520636f6c756d6e20736570617261746f7220697320616e>-4.122 F 4.122<7973> -.15 G 1.623<657175656e6365206f662077686974652073706163652e>-4.122 F -.15<466f>6.623 G 4.123<724c>.15 G -.4<4441>-4.123 G 4.123<5061>.4 G <6e64>-4.123 E .557<736f6d65206f74686572206d6170732074686973206973207468 6520736570617261746f722063686172616374657220746f20636f6d62696e65206d756c 7469706c652076>174 369 R .557<616c75657320696e746f2061>-.25 F .803 <73696e676c652072657475726e20737472696e672e>174 381 R .803 <4966206e6f74207365742c20746865204c44>5.803 F .804<4150206c6f6f6b757020 77696c6c206f6e6c792072657475726e20746865208c727374206d61746368>-.4 F 2.57<666f756e642e2046>174 393 R .07<6f7220444e53206d61707320746869732069 732074686520736570617261746f72206368617261637465722061742077686963682074 686520726573756c74206f662061207175657279>-.15 F<697320637574206f66>174 405 Q 2.5<6669>-.25 G 2.5<6669>-2.5 G 2.5<7374>-2.5 G<6f6f206c6f6e672e> -2.5 E 61.08102 421.2 R 2.726<2c77>-.65 G .226< 68656e2061206d617020617474656d70747320746f20646f2061206c6f6f6b757020616e 64207468652073657276>-2.726 F .227<65722066>-.15 F .227 <61696c732028652e672e2c>-.1 F F2<73656e646d61696c>2.727 E F1 <636f756c646e27>174 433.2 Q 2.776<7463>-.18 G .276<6f6e7461637420616e> -2.776 F 2.776<796e>-.15 G .276<616d652073657276>-2.776 F .276 <65723b2074686973206973>-.15 F F2<6e6f74>2.776 E F1 .276<7468652073616d 6520617320616e20656e747279206e6f74206265696e6720666f756e64>2.776 F .251< 696e20746865206d6170292c20746865206d657373616765206265696e672070726f6365 737365642069732071756575656420666f72206675747572652070726f63657373696e67 2e>174 445.2 R<546865>5.251 E F02.751 E F1 2.04 <8d6167207475726e73206f66>174 457.2 R 4.539<6674>-.25 G 2.039 <6869732062656861>-4.539 F<76696f72>-.2 E 4.539<2c6c>-.4 G 2.039 <657474696e67207468652074656d706f726172792066>-4.539 F 2.039 <61696c757265202873657276>-.1 F 2.039<657220646f>-.15 F 2.039 <776e2920616374206173>-.25 F .675 <74686f75676820697420776572652061207065726d616e656e742066>174 469.2 R .675<61696c7572652028656e747279206e6f7420666f756e64292e>-.1 F .676 <497420697320706172746963756c61726c792075736566756c20666f72>5.676 F .772 <444e53206c6f6f6b7570732c20776865726520736f6d656f6e6520656c736527>174 481.2 R 3.272<736d>-.55 G .772 <6973636f6e8c6775726564206e616d652073657276>-3.272 F .772 <65722063616e2063617573652070726f622d>-.15 F 1.645 <6c656d73206f6e20796f7572206d616368696e652e>174 493.2 R<486f>6.645 E <7765>-.25 E -.15<7665>-.25 G 2.445 -.4<722c2063>.15 H 1.645 <617265206d7573742062652074616b>.4 F 1.646 <656e20746f20656e73757265207468617420796f7520646f6e27>-.1 F<74>-.18 E .263<626f756e6365206d61696c20746861742077>174 505.2 R .263 <6f756c64206265207265736f6c76>-.1 F .262 <656420636f72726563746c7920696620796f75207472696564206167>-.15 F 2.762 <61696e2e2041>-.05 F .262<636f6d6d6f6e2073747261742d>2.762 F -.15<6567> 174 517.2 S 2.5<7969>.15 G 2.5<7374>-2.5 G 2.5<6f66>-2.5 G<6f7277>-2.5 E <6172642073756368206d61696c20746f20616e6f74686572>-.1 E 2.5<2c70>-.4 G <6f737369626c792062657474657220636f6e6e65637465642c206d61696c2073657276> -2.5 E<6572>-.15 E<2e>-.55 E 56.64102 533.4 R .833 <6e6f206c6f6f6b757020696e2064656665727265642064656c69>3.332 F -.15<7665> -.25 G .833<7279206d6f64652e>.15 F .833 <54686973208d61672069732073657420627920646566>5.833 F .833 <61756c7420666f7220746865>-.1 F F2<686f7374>174 545.4 Q F1<6d61702e>2.5 E102 561.6 Q F2<7370616365737562>A F1 1.538<5468652063686172616374 657220746f2075736520746f207265706c61636520737061636520636861726163746572 732061667465722061207375636365737366756c206d6170206c6f6f6b7570>24.14 F <286573702e2075736566756c20666f72207265>174 573.6 Q<6765>-.15 E 2.5 <7861>-.15 G<6e64207379736c6f67206d617073292e>-2.5 E102 589.8 Q F2 <7370616365737562>A F1 -.15<466f>25.81 G 3.1<7274>.15 G .6 <686520646571756f7465206d6170206f6e6c79>-3.1 F 3.101<2c74>-.65 G .601<68 652063686172616374657220746f2075736520746f207265706c61636520737061636520 636861726163746572732061667465722061>-3.101 F <7375636365737366756c20646571756f74652e>174 601.8 Q 58.86 102 618 R 2.5<7464>-.18 G<6571756f746520746865206b>-2.5 E .3 -.15<65792062>-.1 H<65666f7265206c6f6f6b75702e>.15 E102 634.2 Q F2<6c65>A<76656c>-.15 E F1 -.15<466f>41.52 G 2.5<7274>.15 G <6865207379736c6f67206d6170206f6e6c79>-2.5 E 2.5<2c69>-.65 G 2.5<7473> -2.5 G<706563698c657320746865206c65>-2.5 E -.15<7665>-.25 G 2.5<6c74>.15 G 2.5<6f75>-2.5 G<736520666f7220746865207379736c6f672063616c6c2e>-2.5 E 56.64102 650.4 R<726562>3 E .5 <75696c64696e6720616e20616c696173208c6c652c20746865>-.2 F F03 E F1 .5<8d616720636175736573206475706c696361746520656e747269657320696e207468 65207465>3 F .5<78742076>-.15 F<6572>-.15 E<2d>-.2 E <73696f6e20746f206265206d6572>174 662.4 Q 2.5<6765642e2046>-.18 F <6f722065>-.15 E<78616d706c652c207477>-.15 E 2.5<6f65>-.1 G <6e74726965733a>-2.5 E 27.49<6c6973743a2075736572312c>214 678.6 R <7573657232>2.5 E 27.49<6c6973743a207573657233>214 690.6 R -.1<776f>174 706.8 S<756c6420626520747265617465642061732074686f7567682069742077657265 207468652073696e676c6520656e747279>.1 E 0 Cg EP %%Page: 91 87 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3931>195.86 E /F1 10/Times-Roman@0 SF 27.49<6c6973743a2075736572312c>214 96 R <75736572322c207573657233>2.5 E <696e207468652070726573656e6365206f6620746865>174 112.2 Q F02.5 E F1<8d61672e>2.5 E<536f6d65206164646974696f6e616c208d616773206172652061> 127 128.4 Q -.25<7661>-.2 G <696c61626c6520666f722074686520686f737420616e6420646e73206d6170733a>.25 E 58.86102 144.6 R <7370656369667920746865207265736f6c76>2.5 E<657227>-.15 E 2.5<7372>-.55 G<657472616e736d697373696f6e2074696d6520696e74657276>-2.5 E <616c2028696e207365636f6e6473292e>-.25 E 60.53102 160.8 R<7370656369667920746865206e756d626572206f662074696d657320746f2072 657472616e736d69742061207265736f6c76>2.5 E<6572207175657279>-.15 E<2e> -.65 E<54686520646e73206d61702068617320616e6f74686572208d61673a>127 177 Q 57.19102 193.2 R <73706563696679206120646f6d61696e207468617420697320616c>2.5 E -.1<7761> -.1 G<797320617070656e64656420746f20717565726965732e>.1 E<536f636b>127 209.4 Q<6574206d617073206861>-.1 E .3 -.15<76652061>-.2 H 2.5<6e6f>.15 G <7074696f6e616c208d61673a>-2.5 E 58.86102 225.6 R .441<73706563696679207468652074696d656f75742028696e207365636f6e647329 20666f7220636f6d6d756e69636174696f6e20776974682074686520736f636b>2.94 F .441<6574206d6170>-.1 F<73657276>174 237.6 Q<6572>-.15 E<2e>-.55 E <54686520666f6c6c6f>127 253.8 Q<77696e67206164646974696f6e616c208d616773 206172652070726573656e7420696e20746865206c646170206d6170206f6e6c793a> -.25 E102 270 Q/F2 10/Times-Italic@0 SF<74696d656f7574>A F1 7.618 <53657420746865204c44>31.92 F 7.618<4150206e657477>-.4 F 7.618 <6f726b2074696d656f75742e>-.1 F 7.618 <73656e646d61696c206d75737420626520636f6d70696c65642077697468>12.618 F F0174 282 Q<41505f4f50545f4e455457>-.35 E <4f524b5f54494d454f5554>-.1 E F1<746f207573652074686973208d61672e>2.5 E 57.19102 298.2 R .025 <6e6f74206175746f20636861736520726566657272616c732e>2.525 F .025 <73656e646d61696c206d75737420626520636f6d70696c65642077697468>5.025 F F0 2.525 E<41505f52454645522d>-.35 E<52414c53>174 310.2 Q F1 <746f207573652074686973208d61672e>2.5 E 58.86102 326.4 R .3 -.15<76652061>-.25 H<7474726962>.15 E <757465206e616d6573206f6e6c79>-.2 E<2e>-.65 E102 342.6 Q F2 <736570>A F1<526574726965>45.81 E .3 -.15<76652062>-.25 H <6f746820617474726962>.15 E<75746573206e616d6520616e642076>-.2 E <616c75652873292c20736570617261746564206279>-.25 E F2<736570>2.5 E F1 <2e>A102 358.8 Q F2<646572>A<6566>-.37 E F1<5365742074686520616c69 61732064657265666572656e6365206f7074696f6e20746f206f6e65206f66206e65> 42.85 E -.15<7665>-.25 G .8 -.4<722c2061>.15 H -.1<6c7761>.4 G <79732c207365617263682c206f72208c6e642e>.1 E102 375 Q F2 <73636f7065>A F1<536574207365617263682073636f706520746f206f6e65206f6620 626173652c206f6e6520286f6e65206c65>39.7 E -.15<7665>-.25 G <6c292c206f7220737562202873756274726565292e>.15 E102 391.2 Q F2 <686f7374>A F1<4c44>44.69 E 2.095<41502073657276>-.4 F 2.095 <657220686f73746e616d652e>-.15 F 2.095<536f6d65204c44>7.095 F 2.095 <4150206c696272617269657320616c6c6f>-.4 F 4.595<7779>-.25 G 2.095 <6f7520746f2073706563696679206d756c7469706c652c>-4.595 F .466 <73706163652d73657061726174656420686f73747320666f7220726564756e64616e63> 174 403.2 R 4.266 -.65<792e2049>-.15 H 2.967<6e61>.65 G .467<6464697469 6f6e2c2065616368206f662074686520686f737473206c69737465642063616e206265> -2.967 F<666f6c6c6f>174 415.2 Q<776564206279206120636f6c6f6e20616e642061 20706f7274206e756d62657220746f206f>-.25 E -.15<7665>-.15 G <72726964652074686520646566>.15 E<61756c74204c44>-.1 E<415020706f72742e> -.4 E102 431.4 Q F2<706f7274>A F1<4c44>44.69 E <4150207365727669636520706f72742e>-.4 E102 447.6 Q F2<4c44>2.5 E <4150555249>-.35 E F1 1.103<557365207468652073706563698c6564204c44>15.33 F 1.102<41502055524920696e7374656164206f662073706563696679696e6720746865 20686f73746e616d6520616e6420706f727420736570612d>-.4 F <726174656c79207769746820746865>174 459.6 Q F02.5 E F1<616e64>2.5 E F02.5 E F1<6f7074696f6e732073686f>2.5 E<776e2061626f>-.25 E -.15 <7665>-.15 G 5<2e46>.15 G<6f722065>-5.15 E<78616d706c652c>-.15 E <2d682073657276>214 475.8 Q<6572>-.15 E<2e65>-.55 E <78616d706c652e636f6d202d7020333839202d622064633d65>-.15 E <78616d706c652c64633d636f6d>-.15 E<69732065717569>174 492 Q -.25<7661> -.25 G<6c656e7420746f>.25 E<2d48206c6461703a2f2f73657276>214 508.2 Q <6572>-.15 E<2e65>-.55 E<78616d706c652e636f6d3a333839202d622064633d65> -.15 E<78616d706c652c64633d636f6d>-.15 E .756<496620746865204c44>174 524.4 R .757 <4150206c69627261727920737570706f7274732069742c20746865204c44>-.4 F .757 <41502055524920666f726d617420686f>-.4 F<7765>-.25 E -.15<7665>-.25 G 3.257<7263>.15 G .757<616e20616c736f2072657175657374>-3.257 F<4c44>174 536.4 Q<4150206f>-.4 E -.15<7665>-.15 G 2.5<7253>.15 G <534c206279207573696e67>-2.5 E F0<6c646170733a2f2f>2.5 E F1 <696e7374656164206f66>2.5 E F0<6c6461703a2f2f>2.5 E F1 5<2e46>C <6f722065>-5.15 E<78616d706c653a>-.15 E 2.5<4f4c>214 552.6 S -.4<4441> -2.5 G<50446566>.4 E <61756c74537065633d2d48206c646170733a2f2f6c6461702e65>-.1 E <78616d706c652e636f6d202d622064633d65>-.15 E<78616d706c652c64633d636f6d> -.15 E<53696d696c61726c79>174 568.8 Q 3.221<2c69>-.65 G 3.221<6674> -3.221 G .721<6865204c44>-3.221 F .721<4150206c69627261727920737570706f 7274732069742c2049742063616e20616c736f206265207573656420746f207370656369 6679206120554e4958>-.4 F<646f6d61696e20736f636b>174 580.8 Q <6574207573696e67>-.1 E F0<6c646170693a2f2f>2.5 E F1<3a>A 2.5<4f4c>214 597 S -.4<4441>-2.5 G<50446566>.4 E <61756c74537065633d2d48206c646170693a2f2f736f636b>-.1 E <65748c6c65202d622064633d65>-.1 E<78616d706c652c64633d636f6d>-.15 E 102 617.4 Q F2<62617365>A F1<4c44>43.03 E <41502073656172636820626173652e>-.4 E102 633.6 Q F2 <74696d656c696d6974>A F1 -.35<5469>28.02 G <6d65206c696d697420666f72204c44>.35 E<415020717565726965732e>-.4 E 102 649.8 Q F2<73697a656c696d6974>A F1<53697a6520286e756d626572206f6620 6d61746368657329206c696d697420666f72204c44>26.91 E <4150206f7220444e5320717565726965732e>-.4 E102 666 Q F2 <64697374696e677569736865645f6e616d65>A F1<5468652064697374696e67756973 686564206e616d6520746f2075736520746f206c6f67696e20746f20746865204c44>174 678 Q<41502073657276>-.4 E<6572>-.15 E<2e>-.55 E102 694.2 Q F2 <6d6574686f64>A F1 5.987<546865206d6574686f6420746f2061757468656e746963 61746520746f20746865204c44>28.03 F 5.987<41502073657276>-.4 F<6572>-.15 E 10.987<2e53>-.55 G 5.988<686f756c64206265206f6e65206f66>-10.987 F F0 <4c44>174 706.2 Q<41505f41>-.35 E<5554485f4e4f4e45>-.5 E F1<2c>A F0 <4c44>5.757 E<41505f41>-.35 E<5554485f53494d504c45>-.5 E F1 5.757<2c6f>C <72>-5.757 E F0<4c44>5.756 E<41505f41>-.35 E<5554485f4b52425634>-.5 E F1 <2e>A<546865206c656164696e67>174 718.2 Q F0<4c44>2.5 E<41505f41>-.35 E <5554485f>-.5 E F1<63616e206265206f6d697474656420616e64207468652076>2.5 E<616c756520697320636173652d696e73656e73697469>-.25 E -.15<7665>-.25 G <2e>.15 E 0 Cg EP %%Page: 92 88 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d39322053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF102 96 Q/F2 10/Times-Italic@0 SF <70617373776f72>A<648c6c65>-.37 E F1 .342 <546865208c6c6520636f6e7461696e696e672074686520736563726574206b>10.61 F .642 -.15<65792066>-.1 H .342<6f7220746865>.15 F F0<4c44>2.843 E <41505f41>-.35 E<5554485f53494d504c45>-.5 E F1 <61757468656e7469636174696f6e>2.843 E <6d6574686f64206f7220746865206e616d65206f6620746865204b>174 108 Q <65726265726f73207469636b>-.25 E<6574208c6c6520666f72>-.1 E F0<4c44>2.5 E<41505f41>-.35 E<5554485f4b52425634>-.5 E F1<2e>A 58.86102 124.2 R .458<6f726365204c44>-.15 F .458<415020736561726368657320746f206f 6e6c79207375636365656420696620612073696e676c65206d6174636820697320666f75 6e642e>-.4 F .457<4966206d756c7469706c652076>5.458 F<616c2d>-.25 E<7565 732061726520666f756e642c207468652073656172636820697320747265617465642061 73206966206e6f206d617463682077>174 136.2 Q<617320666f756e642e>-.1 E 102 152.4 Q F2<766572>A<73696f6e>-.1 E F1 1.479 <53657420746865204c44>29.8 F 1.479<4150204150492f70726f746f636f6c2076> -.4 F 1.479<657273696f6e20746f207573652e>-.15 F 1.479<54686520646566> 6.479 F 1.479<61756c7420646570656e6473206f6e20746865204c44>-.1 F<4150> -.4 E 1.37<636c69656e74206c696272617269657320696e207573652e>174 164.4 R -.15<466f>6.37 G 3.87<7265>.15 G<78616d706c652c>-4.02 E F0 1.37 3.87 F F1 1.37<77696c6c206361757365>3.87 F F2 <73656e646d61696c>3.87 E F1 1.37<746f20757365204c44>3.87 F<41507633>-.4 E<7768656e20636f6d6d756e69636174696e67207769746820746865204c44>174 176.4 Q<41502073657276>-.4 E<6572>-.15 E<2e>-.55 E 56.64102 192.6 R .587<7265617420746865204c44>-.35 F .587<415020736561726368206b>-.4 F .888 -.15<65792061>-.1 H 3.088<736d>.15 G<756c74692d6172>-3.088 E .588< 67756d656e7420616e64207265706c616365202531207468726f75676820253920696e20 746865>-.18 F -.1<6b65>174 204.6 S 2.504<7977>-.05 G .003 <69746820746865204c44>-2.504 F .003<4150206573636170656420636f6e74656e74 73206f6620746865206c6f6f6b7570206172>-.4 F .003 <67756d656e74732073706563698c656420696e20746865206d6170>-.18 F <6c6f6f6b75702e>174 216.6 Q<546865>127 232.8 Q F2<64626d>2.989 E F1 .489 <6d617020617070656e64732074686520737472696e677320992e7061679a20616e6420 992e6469729a20746f20746865206769>2.989 F -.15<7665>-.25 G 2.99<6e8c>.15 G .49<6c656e616d653b20746865>-2.99 F F2<68617368>2.99 E F1<616e64>2.99 E F2<627472>2.99 E<6565>-.37 E F1<6d61707320617070656e6420992e64629a2e>102 244.8 Q -.15<466f>5 G 2.5<7265>.15 G <78616d706c652c20746865206d61702073706563698c636174696f6e>-2.65 E -.15 <4b75>142 261 S <7563702064626d20ad6f20ad4e202f6574632f6d61696c2f757563706d6170>.15 E .21<73706563698c657320616e206f7074696f6e616c206d6170206e616d656420997575 63709a206f6620636c617373209964626d9a3b20697420616c>102 277.2 R -.1<7761> -.1 G .21 <797320686173206e756c6c2062797465732061742074686520656e64206f662065>.1 F -.15<7665>-.25 G<7279>.15 E<737472696e672c20616e642074686520646174612069 73206c6f636174656420696e202f6574632f6d61696c2f757563706d61702e7b646972> 102 289.2 Q<2c7061677d2e>-.4 E .852<5468652070726f6772616d>127 305.4 R F2<6d616b>3.352 E<656d6170>-.1 E F1 .852 <2838292063616e206265207573656420746f2062>B .852 <75696c642064617461626173652d6f7269656e746564206d6170732e>-.2 F .852 <49742074616b>5.852 F .853<6573206174206c6561737420746865>-.1 F <666f6c6c6f>102 317.4 Q<77696e67208d6167732028666f72206120636f6d706c6574 65206c6973742073656520697473206d616e2070616765293a>-.25 E 60.53 102 333.6 R<6e6f7420666f6c6420757070657220746f206c6f>2.5 E <776572206361736520696e20746865206d61702e>-.25 E 56.64 102 349.8 R<6e756c6c20627974657320696e206b>2.5 E -.15<6579>-.1 G<732e>.15 E 58.86102 366 R <746f20616e2065>2.5 E<78697374696e6720286f6c6429208c6c652e>-.15 E 60.53 102 382.2 R 3.669<7772>-.25 G 1.169 <65706c6163656d656e74206f662065>-3.669 F 1.168<78697374696e67206b>-.15 F -.15<6579>-.1 G 1.168<733b206e6f726d616c6c79>.15 F 3.668<2c72>-.65 G 1.168<652d696e73657274696e6720616e2065>-3.668 F 1.168 <78697374696e67206b>-.15 F 1.468 -.15<65792069>-.1 H 3.668<7361>.15 G <6e>-3.668 E<6572726f72>174 394.2 Q<2e>-.55 E 58.86102 410.4 R<776861742069732068617070656e696e672e>2.5 E<546865>102 426.6 Q F2 <73656e646d61696c>3.605 E F1 1.105<6461656d6f6e20646f6573206e6f74206861> 3.605 F 1.405 -.15<76652074>-.2 H 3.605<6f62>.15 G 3.605<6572>-3.605 G 1.106<657374617274656420746f207265616420746865206e65>-3.605 F 3.606 <776d>-.25 G 1.106<617073206173206c6f6e6720617320796f75206368616e6765> -3.606 F<7468656d20696e20706c6163653b208c6c65206c6f636b696e672069732075 73656420736f207468617420746865206d6170732077>102 438.6 Q<6f6e27>-.1 E 2.5<7462>-.18 G 2.5<6572>-2.5 G<656164207768696c6520746865>-2.5 E 2.5 <7961>-.15 G<7265206265696e6720757064617465642e>-2.5 E<4e65>127 454.8 Q 2.5<7763>-.25 G <6c61737365732063616e20626520616464656420696e2074686520726f7574696e65> -2.5 E F0<73657475706d617073>2.5 E F1<696e208c6c65>2.5 E F0<636f6e66>2.5 E<2e63>-.15 E F1<2e>A F0 2.5<352e31312e2051>87 478.8 R 2.5<8a51>2.5 G <75657565204772>-2.5 E<6f7570204465636c61726174696f6e>-.18 E F1 .71 <496e206164646974696f6e20746f20746865206f7074696f6e>127 495 R F2 <5175657565446972>3.21 E<6563746f7279>-.37 E<2c>-.55 E F1 .71<7175657565 2067726f7570732063616e206265206465636c6172656420746861742064658c6e652061 202867726f7570>3.21 F<6f6629207175657565206469726563746f7269657320756e64 6572206120636f6d6d6f6e206e616d652e>102 507 Q <5468652073796e74617820697320617320666f6c6c6f>5 E<77733a>-.25 E F0<51> 142 523.2 Q F2<6e616d65>A F1<7b2c>2.5 E F2<8c656c64>2.5 E F1<3d>A F2 <76616c7565>A F1<7d2b>1.666 E<7768657265>102 539.4 Q F2<6e616d65>3.275 E F1 .775<6973207468652073796d626f6c6963206e616d65206f66207468652071756575 652067726f757020756e6465722077686963682069742063616e20626520726566657265 6e63656420696e2076>3.275 F<6172696f7573>-.25 E .218 <706c6163657320616e642074686520998c656c643d76>102 551.4 R .218 <616c75659a2070616972732064658c6e6520617474726962>-.25 F .217 <75746573206f66207468652071756575652067726f75702e>-.2 F .217 <546865206e616d65206d757374206f6e6c7920636f6e73697374>5.217 F <6f6620616c7068616e756d6572696320636861726163746572732e>102 563.4 Q <4669656c6473206172653a>5 E 47.83<466c61677320466c616773>102 579.6 R <666f7220746869732071756575652067726f75702e>2.5 E 50.62 <4e69636520546865>102 595.8 R .901<6e69636528322920696e6372656d656e7420 666f72207468652071756575652067726f75702e>3.401 F .902<546869732076>5.902 F .902<616c7565206d7573742062652067726561746572206f7220657175616c>-.25 F <7a65726f2e>174 607.8 Q<496e74657276>102 624 Q 38.65<616c20546865>-.25 F <74696d65206265747765656e207477>2.5 E 2.5<6f71>-.1 G <756575652072756e732e>-2.5 E -.15<5061>102 640.2 S 51.87<746820546865> .15 F<7175657565206469726563746f7279206f66207468652067726f75702028726571 7569726564292e>2.5 E 36.17<52756e6e65727320546865>102 656.4 R .074<6e75 6d626572206f6620706172616c6c656c2072756e6e6572732070726f63657373696e6720 7468652071756575652e>2.574 F .073<4e6f74652074686174>5.074 F F0<463d66> 2.573 E F1 .073<6d75737420626520736574206966>2.573 F<746869732076>174 668.4 Q<616c75652069732067726561746572207468616e206f6e652e>-.25 E 51.72 <4a6f627320546865>102 684.6 R<6d6178696d756d206e756d626572206f66206a6f62 7320286d657373616765732064656c69>2.5 E -.15<7665>-.25 G <72656429207065722071756575652072756e2e>.15 E 30.62 <726563697069656e747320546865>102 700.8 R .382 <6d6178696d756d206e756d626572206f6620726563697069656e74732070657220656e> 2.881 F -.15<7665>-.4 G 2.882<6c6f70652e20456e>.15 F -.15<7665>-.4 G .382<6c6f7065732077697468206d6f7265207468616e2074686973>.15 F .109<6e75 6d626572206f6620726563697069656e74732077696c6c2062652073706c697420696e74 6f206d756c7469706c6520656e>174 712.8 R -.15<7665>-.4 G .109 <6c6f70657320696e207468652073616d652071756575652064697265632d>.15 F <746f7279>174 724.8 Q 5<2e54>-.65 G<686520646566>-5 E<61756c742076>-.1 E <616c75652030206d65616e73206e6f206c696d69742e>-.25 E 0 Cg EP %%Page: 93 89 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3933>195.86 E /F1 10/Times-Roman@0 SF<4f6e6c7920746865208c7273742063686172616374657220 6f6620746865208c656c64206e616d6520697320636865636b>102 96 Q<65642e>-.1 E .075<427920646566>127 112.2 R .075 <61756c742c20612071756575652067726f7570206e616d6564>-.1 F/F2 10 /Times-Italic@0 SF<6d7175657565>2.575 E F1 .075 <69732064658c6e656420746861742075736573207468652076>2.575 F .076 <616c7565206f6620746865>-.25 F F2<5175657565446972>2.576 E<6563746f7279> -.37 E F1 .269<6f7074696f6e20617320706174682e>102 124.2 R .268<4e6f7469 63653a20616c6c207061746873207468617420617265207573656420666f722071756575 652067726f757073206d757374206265207375626469726563746f72696573206f66> 5.268 F F2<517565756544692d>2.768 E -.37<7265>102 136.2 S<63746f7279>.37 E F1 6.486<2e53>C 1.486<696e636520746865>-6.486 F 3.986<7963>-.15 G 1.487<616e2062652073796d626f6c6963206c696e6b732c20746869732069736e27> -3.986 F 3.987<746172>-.18 G 1.487 <65616c207265737472696374696f6e2c204966>-3.987 F F2<5175657565446972> 3.987 E<6563746f7279>-.37 E F1 1.487<757365732061>3.987 F .747 <77696c64636172642c207468656e20746865206469726563746f7279206f6e65206c65> 102 148.2 R -.15<7665>-.25 G 3.247<6c75>.15 G 3.247<7069>-3.247 G 3.247 <7363>-3.247 G .747<6f6e73696465726564207468652060>-3.247 F <606261736527>-.74 E 3.246<2764>-.74 G .746 <69726563746f727920776869636820616c6c206f74686572207175657565>-3.246 F .085<6469726563746f72696573206d7573742073686172652e>102 160.2 R .085 <506c65617365206d616b>5.085 F 2.585<6573>-.1 G .086<75726520746861742074 6865207175657565206469726563746f7269657320646f206e6f74206f>-2.585 F -.15 <7665>-.15 G .086<726c61702c20652e672e2c20646f206e6f7420737065632d>.15 F <696679>102 172.2 Q 2.5<4f51>142 188.4 S <756575654469726563746f72793d2f76>-2.5 E <61722f73706f6f6c2f6d71756575652f2a>-.25 E<516f6e652c20503d2f76>142 200.4 Q<61722f73706f6f6c2f6d71756575652f64697231>-.25 E<517477>142 212.4 Q<6f2c20503d2f76>-.1 E<61722f73706f6f6c2f6d71756575652f64697232>-.25 E< 62656361757365207468697320616c736f20696e636c756465732099646972319a20616e 642099646972329a20696e2074686520646566>102 228.6 Q <61756c742071756575652067726f75702e>-.1 E<486f>5 E<7765>-.25 E -.15 <7665>-.25 G -.4<722c>.15 G 2.5<4f51>142 244.8 S <756575654469726563746f72793d2f76>-2.5 E <61722f73706f6f6c2f6d71756575652f6d61696e2a>-.25 E<516f6e652c20503d2f76> 142 256.8 Q<61722f73706f6f6c2f6d71756575652f646972>-.25 E<517477>142 268.8 Q<6f2c20503d2f76>-.1 E <61722f73706f6f6c2f6d71756575652f6f746865722a>-.25 E<697320612076>102 285 Q<616c69642071756575652067726f75702073706563698c636174696f6e2e>-.25 E .236<4f7074696f6e73206c697374656420696e207468652060>127 301.2 R <60466c61677327>-.74 E 2.736<278c>-.74 G .236 <656c642063616e206265207573656420746f206d6f64696679207468652062656861> -2.736 F .236<76696f72206f6620612071756575652067726f75702e>-.2 F<546865> 5.235 E -.74<6060>102 313.2 S .55<6627>.74 G 2.604<278d>-1.29 G .105<61 67206d75737420626520736574206966206d756c7469706c652071756575652072756e6e 6572732061726520737570706f73656420746f2077>-2.604 F .105<6f726b206f6e20 74686520656e747269657320696e20612071756575652067726f75702e>-.1 F <4f7468657277697365>102 325.2 Q F2<73656e646d61696c>2.5 E F1 <77696c6c2077>2.5 E<6f726b206f6e2074686520656e7472696573207374726963746c 792073657175656e7469616c6c79>-.1 E<2e>-.65 E .512<5468652060>127 341.4 R <60496e74657276>-.74 E<616c27>-.25 E 3.012<278c>-.74 G .512<656c64207365 7473207468652074696d65206265747765656e2071756575652072756e732e>-3.012 F .511<4966206e6f2071756575652067726f75702073706563698c6320696e74657276> 5.511 F .511<616c206973>-.25 F <7365742c207468656e2074686520706172616d65746572206f6620746865>102 353.4 Q F0<2d71>2.5 E F1<6f7074696f6e2066726f6d2074686520636f6d6d616e64206c69 6e6520697320757365642e>2.5 E 7.656 -.8<546f2063>127 369.6 T 6.056 <6f6e74726f6c20746865206f>.8 F -.15<7665>-.15 G 6.056 <72616c6c206e756d626572206f6620636f6e63757272656e746c792061637469>.15 F 6.357 -.15<76652071>-.25 H 6.057 <756575652072756e6e65727320746865206f7074696f6e>.15 F F0 <4d617851756575654368696c6472>102 381.6 Q<656e>-.18 E F1 .056 <63616e206265207365742e>2.556 F .055<54686973206c696d69747320746865206e 756d626572206f662070726f636573736573207573656420666f722072756e6e696e6720 7468652071756575657320746f>5.056 F F0<4d617851756575654368696c6472>102 393.6 Q<656e>-.18 E F1 3.629<2c74>C 1.129<686f75676820617420616e>-3.629 F 3.629<796f>-.15 G 1.129<6e652074696d65206665>-3.629 F 1.129 <7765722070726f636573736573206d61792062652061637469>-.25 F 1.43 -.15 <76652061>-.25 H 3.63<736172>.15 G 1.13<6573756c74206f66207175657565> -3.63 F<6f7074696f6e732c20636f6d706c657465642071756575652072756e732c2073 797374656d206c6f61642c206574632e>102 405.6 Q .602<546865206d6178696d756d 206e756d626572206f662071756575652072756e6e65727320666f7220616e20696e6469> 127 421.8 R .602<76696475616c2071756575652067726f75702063616e2062652063 6f6e74726f6c6c656420766961>-.25 F<746865>102 433.8 Q F0<52756e6e657273> 2.584 E F1 2.584<6f7074696f6e2e204966>2.584 F .084<73657420746f20302c20 656e747269657320696e207468652071756575652077696c6c206e6f742062652070726f 6365737365642c2077686963682069732075736566756c20746f2060>2.584 F <6071756172>-.74 E<2d>-.2 E<616e74696e6527>102 445.8 Q 4.516<2771>-.74 G 2.016<75657565208c6c65732e>-4.516 F 2.016<546865206e756d626572206f662072 756e6e657273207065722071756575652067726f7570206d617920616c736f2062652073 6574207769746820746865206f7074696f6e>7.016 F F0<4d617852756e6e65727350> 102 457.8 Q<65725175657565>-.2 E F1 3.208<2c77>C .708<68696368206170706c 69657320746f2071756575652067726f7570732074686174206861>-3.208 F 1.009 -.15<7665206e>-.2 H 3.209<6f69>.15 G<6e6469>-3.209 E .709 <76696475616c206c696d69742e>-.25 F .709<546861742069732c20746865>5.709 F <646566>102 469.8 Q<61756c742076>-.1 E<616c756520666f72>-.25 E F0 <52756e6e657273>2.5 E F1<6973>2.5 E F0<4d617852756e6e65727350>2.5 E <65725175657565>-.2 E F1<6966207365742c206f746865727769736520312e>2.5 E 1.087<546865208c656c64204a6f62732064657363726962657320746865206d6178696d 756d206e756d626572206f66206a6f627320286d657373616765732064656c69>127 486 R -.15<7665>-.25 G 1.087<72656429207065722071756575652072756e2c>.15 F <7768696368206973207468652071756575652067726f75702073706563698c632076> 102 498 Q<616c7565206f66>-.25 E F0<4d6178517565756552756e53697a65>2.5 E F1<2e>A .175<4e6f746963653a2071756575652067726f7570732073686f756c642062 65206465636c6172656420616674657220616c6c2071756575652072656c61746564206f 7074696f6e73206861>127 514.2 R .475 -.15<76652062>-.2 H .175 <65656e207365742062656361757365>.15 F .315 <71756575652067726f7570732074616b>102 526.2 R 2.814<6574>-.1 G .314 <6865697220646566>-2.814 F .314 <61756c74732066726f6d2074686f7365206f7074696f6e732e>-.1 F .314<49662061 6e206f7074696f6e2069732073657420616674657220612071756575652067726f757020 6465636c6172612d>5.314 F .187<74696f6e2c207468652076>102 538.2 R .187<61 6c756573206f66206f7074696f6e7320696e207468652071756575652067726f75702061 72652073657420746f2074686520646566>-.25 F .187<61756c7473206f66>-.1 F F2 <73656e646d61696c>2.688 E F1 .188<756e6c6573732065>2.688 F .188 <78706c696369746c7920736574>-.15 F <696e20746865206465636c61726174696f6e2e>102 550.2 Q 1.973 <4561636820656e>127 566.4 R -.15<7665>-.4 G 1.972<6c6f706520697320617373 69676e656420746f20612071756575652067726f7570206261736564206f6e2074686520 616c676f726974686d2064657363726962656420696e2073656374696f6e>.15 F -.74 <6060>102 578.4 S <51756575652047726f75707320616e64205175657565204469726563746f7269657327> .74 E<272e>-.74 E F0 2.5<352e31322e2058>87 602.4 R 2.5<8a4d>2.5 G <61696c2046696c74657220284d696c746572292044658c6e6974696f6e73>-2.5 E F1 <546865>127 618.6 Q F2<73656e646d61696c>3.936 E F1 1.437<4d61696c204669 6c7465722041504920284d696c746572292069732064657369676e656420746f20616c6c 6f>3.937 F 3.937<7774>-.25 G 1.437 <686972642d70617274792070726f6772616d732061636365737320746f>-3.937 F .178<6d61696c206d6573736167657320617320746865>102 630.6 R 2.678<7961> -.15 G .177<7265206265696e672070726f63657373656420696e206f7264657220746f 208c6c746572206d6574612d696e666f726d6174696f6e20616e6420636f6e74656e742e> -2.678 F<546865>5.177 E 2.677<7961>-.15 G<7265>-2.677 E<6465636c61726564 20696e2074686520636f6e8c6775726174696f6e208c6c652061733a>102 642.6 Q F0 <58>142 658.8 Q F2<6e616d65>A F1<7b2c>2.5 E F2<8c656c64>2.5 E F1<3d>A F2 <76616c7565>A F1<7d2a>1.666 E<7768657265>102 675 Q F2<6e616d65>4.688 E F1 2.188<697320746865206e616d65206f6620746865208c6c74657220287573656420 696e7465726e616c6c79206f6e6c792920616e642074686520998c656c643d6e616d659a 2070616972732064658c6e65>4.688 F<617474726962>102 687 Q .492 <75746573206f6620746865208c6c746572>-.2 F 5.492<2e41>-.55 G .491 <6c736f207365652074686520646f63756d656e746174696f6e20666f7220746865> -5.492 F F0<496e7075744d61696c46696c74657273>2.991 E F1 .491 <6f7074696f6e20666f72206d6f726520696e666f72>2.991 F<2d>-.2 E <6d6174696f6e2e>102 699 Q 0 Cg EP %%Page: 94 90 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d39342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF<4669656c6473206172653a>127 96 Q<536f636b>142 112.2 Q 42.38<657420546865>-.1 F<736f636b>2.5 E <65742073706563698c636174696f6e>-.1 E 47.83<466c616773205370656369616c> 142 124.2 R<8d61677320666f722074686973208c6c746572>2.5 E -.35<5469>142 136.2 S 32.07<6d656f7574732054>.35 F <696d656f75747320666f722074686973208c6c746572>-.35 E<4f6e6c792074686520 8c72737420636861726163746572206f6620746865208c656c64206e616d652069732063 6865636b>102 152.4 Q<65642028697427>-.1 E 2.5<7363>-.55 G <6173652d73656e73697469>-2.5 E -.15<7665>-.25 G<292e>.15 E <54686520736f636b>127 168.6 Q <65742073706563698c636174696f6e206973206f6e65206f662074686520666f6c6c6f> -.1 E<77696e6720666f726d733a>-.25 E F0<533d696e65743a>142 184.8 Q/F2 10 /Times-Italic@0 SF<706f7274>2.5 E F0<40>2.5 E F2<686f7374>2.5 E F0 <533d696e6574363a>142 205.2 Q F2<706f7274>2.5 E F0<40>2.5 E F2<686f7374> 2.5 E F0<533d6c6f63616c3a>142 225.6 Q F2<70617468>2.5 E F1 1.791 <546865208c727374207477>102 241.8 R 4.291<6f64>-.1 G 1.791 <6573637269626520616e2049507634206f72204950763620736f636b>-4.291 F 1.791 <6574206c697374656e696e67206f6e2061206365727461696e>-.1 F F2<706f7274> 4.291 E F1 1.791<61742061206769>4.291 F -.15<7665>-.25 G<6e>.15 E F2 <686f7374>4.291 E F1 1.792<6f72204950>4.291 F 2.5 <616464726573732e20546865>102 253.8 R <8c6e616c20666f726d206465736372696265732061206e616d656420736f636b>2.5 E <6574206f6e20746865208c6c6573797374656d20617420746865206769>-.1 E -.15 <7665>-.25 G<6e>.15 E F2<70617468>2.5 E F1<2e>A<54686520666f6c6c6f>127 270 Q<77696e67208d616773206d61792062652073657420696e20746865208c6c746572 206465736372697074696f6e2e>-.25 E 13.33<5252>102 286.2 S <656a65637420636f6e6e656374696f6e206966208c6c74657220756e61>-13.33 E -.25<7661>-.2 G<696c61626c652e>.25 E 13.89<5454>102 302.4 S <656d706f726172792066>-14.59 E <61696c20636f6e6e656374696f6e206966208c6c74657220756e61>-.1 E -.25<7661> -.2 G<696c61626c652e>.25 E .655<4966206e65697468657220463d52206e6f722046 3d542069732073706563698c65642c20746865206d657373616765206973207061737365 64207468726f756768>127 318.6 R F2<73656e646d61696c>3.155 E F1 .655 <696e2063617365206f66208c6c746572>3.155 F <6572726f7273206173206966207468652066>102 330.6 Q <61696c696e67208c6c746572732077657265206e6f742070726573656e742e>-.1 E<54 68652074696d656f7574732063616e20626520736574207573696e672074686520666f75 72208c656c647320696e73696465206f6620746865>127 346.8 Q F0<543d>2.5 E F1 <6571756174653a>2.5 E 13.33<4354>102 363 S <696d656f757420666f7220636f6e6e656374696e6720746f2061208c6c746572>-13.68 E 5<2e49>-.55 G 2.5<6673>-5 G<657420746f20302c207468652073797374656d27> -2.5 E<73>-.55 E F2<636f6e6e6563742829>2.5 E F1 <74696d656f75742077696c6c20626520757365642e>2.5 E 14.44<5354>102 379.2 S <696d656f757420666f722073656e64696e6720696e666f726d6174696f6e2066726f6d 20746865204d54>-14.79 E 2.5<4174>-.93 G 2.5<6f618c>-2.5 G<6c746572>-2.5 E<2e>-.55 E 13.33<5254>102 395.4 S<696d656f757420666f722072656164696e67 207265706c792066726f6d20746865208c6c746572>-13.68 E<2e>-.55 E 13.89 <454f>102 411.6 S -.15<7665>-13.89 G 1.186<72616c6c2074696d656f75742062 65747765656e2073656e64696e6720656e642d6f662d6d65737361676520746f208c6c74 657220616e642077>.15 F 1.186 <616974696e6720666f7220746865208c6e616c2061636b6e6f>-.1 F<776c2d>-.25 E <6564676d656e742e>122 423.6 Q 1.403<4e6f74652074686520736570617261746f72 206265747765656e20656163682074696d656f7574208c656c642069732061>127 439.8 R F0<273b27>3.902 E F1 6.402<2e54>C 1.402<686520646566>-6.402 F 1.402 <61756c742076>-.1 F 1.402 <616c75657320286966206e6f742073657429206172653a>-.25 F F0 <543d433a356d3b533a3130733b523a3130733b453a356d>102 451.8 Q F1 <7768657265>2.5 E F0<73>2.5 E F1<6973207365636f6e647320616e64>2.5 E F0 <6d>2.5 E F1<6973206d696e757465732e>2.5 E<4578616d706c65733a>127 468 Q <588c6c746572312c20533d6c6f63616c3a2f76>142 484.2 Q <61722f72756e2f66312e736f636b2c20463d52>-.25 E <588c6c746572322c20533d696e6574363a393939406c6f63616c686f73742c20463d54> 142 496.2 Q 2.5<2c54>-.74 G<3d533a31733b523a31733b453a356d>-2.5 E<588c6c 746572332c20533d696e65743a33333333406c6f63616c686f73742c20543d433a326d> 142 508.2 Q F0 2.5<352e31332e20546865>87 536.4 R <55736572204461746162617365>2.5 E F1 .478<546865207573657220646174616261 7365206973206465707265636174656420696e2066>127 552.6 R -.2<61766f>-.1 G 2.978<726f>.2 G 2.978<6660>-2.978 G<6076697274757365727461626c6527> -3.718 E 2.979<2761>-.74 G .479<6e642060>-2.979 F <6067656e65726963737461626c6527>-.74 E 2.979<2761>-.74 G 2.979<7365> -2.979 G<78706c61696e6564>-3.129 E 1.03<696e20746865208c6c65>102 564.6 R F0<63662f524541444d45>3.53 E F1 6.03<2e49>C 3.53<6679>-6.03 G 1.03 <6f75206861>-3.53 F 1.329 -.15<76652061207665>-.2 H 1.029 <7273696f6e206f66>.15 F F2<73656e646d61696c>3.529 E F1 1.029 <77697468207468652075736572206461746162617365207061636b61676520636f6d2d> 3.529 F<70696c656420696e2c207468652068616e646c696e67206f662073656e646572 20616e6420726563697069656e7420616464726573736573206973206d6f64698c65642e> 102 576.6 Q<546865206c6f636174696f6e206f66207468697320646174616261736520 697320636f6e74726f6c6c6564207769746820746865>127 592.8 Q F0 <55736572446174616261736553706563>2.5 E F1<6f7074696f6e2e>2.5 E F0 2.5 <352e31332e312e205374727563747572>102 616.8 R 2.5<656f>-.18 G 2.5<6674> -2.5 G<68652075736572206461746162617365>-2.5 E F1 <546865206461746162617365206973206120736f7274656420284254>142 633 Q <7265652d626173656429207374727563747572652e>-.35 E <55736572207265636f726473206172652073746f726564207769746820746865206b>5 E -.15<6579>-.1 G<3a>.15 E F2<75736572>157 649.2 Q<2d6e616d65>-.2 E F0 <3a>A F2<8c656c642d6e616d65>A F1 .128<54686520736f7274656420646174616261 736520666f726d617420656e737572657320746861742075736572207265636f72647320 61726520636c7573746572656420746f676574686572>117 665.4 R 5.129<2e4d>-.55 G .129<6574612d696e666f726d6174696f6e206973>-5.129 F<616c>117 677.4 Q -.1<7761>-.1 G <79732073746f72656420776974682061206c656164696e6720636f6c6f6e2e>.1 E<46 69656c64206e616d65732064658c6e6520626f7468207468652073796e74617820616e64 2073656d616e74696373206f66207468652076>142 693.6 Q 2.5 <616c75652e2044658c6e6564>-.25 F<8c656c647320696e636c7564653a>2.5 E 33.39<6d61696c64726f7020546865>117 709.8 R<64656c69>4.873 E -.15<7665> -.25 G 2.373<7279206164647265737320666f7220746869732075736572>.15 F 7.373<2e54>-.55 G 2.372<68657265206d6179206265206d756c7469706c652076> -7.373 F 2.372<616c756573206f662074686973>-.25 F 2.675 <7265636f72642e20496e>189 721.8 R<706172746963756c6172>2.675 E 2.675 <2c6d>-.4 G .175<61696c696e67206c697374732077696c6c206861>-2.675 F .475 -.15<7665206f>-.2 H<6e65>.15 E F2<6d61696c6472>2.675 E<6f70>-.45 E F1 .175<7265636f726420666f7220656163682075736572>2.675 F 0 Cg EP %%Page: 95 91 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3935>195.86 E /F1 10/Times-Roman@0 SF<6f6e20746865206c6973742e>189 96 Q 30.06 <6d61696c6e616d6520546865>117 112.2 R 1.027 <6f7574676f696e67206d61696c6e616d6520666f7220746869732075736572>3.527 F 6.026<2e46>-.55 G 1.026 <6f722065616368206f7574676f696e67206e616d652c2074686572652073686f756c64> -6.176 F .08<626520616e20617070726f707269617465>189 124.2 R/F2 10 /Times-Italic@0 SF<6d61696c6472>2.58 E<6f70>-.45 E F1 .08 <7265636f726420666f722074686174206e616d6520746f20616c6c6f>2.58 F 2.58 <7772>-.25 G .08<657475726e206d61696c2e>-2.58 F .08<53656520616c736f> 5.08 F F2<3a64656661756c743a6d61696c6e616d65>189 136.2 Q F1<2e>A 25.62 <6d61696c73656e646572204368616e676573>117 152.4 R<616e>3.448 E 3.448 <796d>-.15 G .948 <61696c2073656e7420746f2074686973206164647265737320746f206861>-3.448 F 1.247 -.15<76652074>-.2 H .947<686520696e6469636174656420656e>.15 F -.15 <7665>-.4 G .947<6c6f70652073656e646572>.15 F<2e>-.55 E .498<5468697320 697320696e74656e64656420666f72206d61696c696e67206c697374732c20616e642077 696c6c206e6f726d616c6c7920626520746865206e616d65206f6620616e20617070726f 2d>189 164.4 R .755<707269617465202d7265717565737420616464726573732e>189 176.4 R .755<49742069732076>5.755 F .755 <6572792073696d696c617220746f20746865206f>-.15 F<776e6572>-.25 E<2d>-.2 E F2<6c697374>A F1 .754<73796e74617820696e2074686520616c696173>3.254 F <8c6c652e>189 188.4 Q 33.95<66756c6c6e616d6520546865>117 204.6 R <66756c6c206e616d65206f66207468652075736572>2.5 E<2e>-.55 E<6f66>117 220.8 Q 13.66<8c63652d6164647265737320546865>-.25 F<6f66>2.5 E <8c6365206164647265737320666f7220746869732075736572>-.25 E<2e>-.55 E <6f66>117 237 Q 19.21<8c63652d70686f6e6520546865>-.25 F<6f66>2.5 E <8c63652070686f6e65206e756d62657220666f7220746869732075736572>-.25 E<2e> -.55 E<6f66>117 253.2 Q<8c63652d66>-.25 E 30.98<617820546865>-.1 F<6f66> 2.5 E<8c63652046>-.25 E<4158206e756d62657220666f7220746869732075736572> -.74 E<2e>-.55 E 13.96<686f6d652d6164647265737320546865>117 269.4 R <686f6d65206164647265737320666f7220746869732075736572>2.5 E<2e>-.55 E 19.51<686f6d652d70686f6e6520546865>117 285.6 R <686f6d652070686f6e65206e756d62657220666f7220746869732075736572>2.5 E <2e>-.55 E<686f6d652d66>117 301.8 Q 31.28<617820546865>-.1 F <686f6d652046>2.5 E<4158206e756d62657220666f7220746869732075736572>-.74 E<2e>-.55 E 41.73<70726f6a6563742041>117 318 R .855<2873686f727429206465 736372697074696f6e206f66207468652070726f6a656374207468697320706572736f6e 206973206166>3.355 F .856<8c6c696174656420776974682e>-.25 F .856 <496e2074686520556e692d>5.856 F -.15<7665>189 330 S<72736974792074686973 206973206f6674656e206a75737420746865206e616d65206f6620746865697220677261 64756174652061647669736f72>.15 E<2e>-.55 E 52.28<706c616e2041>117 346.2 R<706f696e74657220746f2061208c6c652066726f6d20776869636820706c616e20696e 666f726d6174696f6e2063616e2062652067>2.5 E<617468657265642e>-.05 E .925 <4173206f6620746869732077726974696e672c206f6e6c792061206665>142 362.4 R 3.424<776f>-.25 G 3.424<6674>-3.424 G .924<68657365208c656c647320617265 2061637475616c6c79206265696e672075736564206279>-3.424 F F2 <73656e646d61696c>3.424 E F1<3a>A F2<6d61696c2d>3.424 E<6472>117 374.4 Q <6f70>-.45 E F1<616e64>2.5 E F2<6d61696c6e616d65>2.5 E F1 5<2e41>C F2 <8c6e67>-2.5 E<6572>-.1 E F1<70726f6772616d2074686174207573657320746865 206f74686572208c656c647320697320706c616e6e65642e>2.5 E F0 2.5 <352e31332e322e2055736572>102 398.4 R <64617461626173652073656d616e74696373>2.5 E F1 .995 <5768656e20746865207265>142 414.6 R .995<77726974696e672072756c65732073 75626d697420616e206164647265737320746f20746865206c6f63616c206d61696c6572> -.25 F 3.496<2c74>-.4 G .996 <68652075736572206e616d6520697320706173736564>-3.496 F .781 <7468726f7567682074686520616c696173208c6c652e>117 426.6 R .78<4966206e6f 20616c69617320697320666f756e6420286f722069662074686520616c69617320706f69 6e7473206261636b20746f207468652073616d652061646472657373292c20746865> 5.781 F 1.777<6e616d6520287769746820993a6d61696c64726f709a20617070656e64 656429206973207468656e20757365642061732061206b>117 438.6 R 2.078 -.15 <65792069>-.1 H 4.278<6e74>.15 G 1.778 <686520757365722064617461626173652e>-4.278 F 1.778 <4966206e6f206d61746368>6.778 F<6f636375727320286f7220696620746865206d61 696c64726f7020706f696e7473206174207468652073616d652061646472657373292c20 666f7277>117 450.6 Q<617264696e672069732074726965642e>-.1 E .551 <496620746865208c72737420746f6b>142 466.8 R .55<656e206f6620746865207573 6572206e616d652072657475726e65642062792072756c65736574203020697320616e20 99409a207369676e2c207468652075736572206461746162617365>-.1 F .625 <6c6f6f6b757020697320736b69707065642e>117 478.8 R .625<54686520696e7465 6e7420697320746861742074686520757365722064617461626173652077696c6c206163 74206173206120736574206f6620646566>5.625 F .626 <61756c747320666f72206120636c7573746572>-.1 F 1.533<28696e206f7572206361 73652c2074686520436f6d707574657220536369656e6365204469>117 490.8 R 1.533 <766973696f6e293b206d61696c2073656e7420746f20612073706563698c63206d6163 68696e652073686f756c642069676e6f7265>-.25 F<746865736520646566>117 502.8 Q<61756c74732e>-.1 E .351<5768656e206d61696c2069732073656e742c2074686520 6e616d65206f66207468652073656e64696e672075736572206973206c6f6f6b>142 519 R .351<656420757020696e207468652064617461626173652e>-.1 F .352 <496620746861742075736572>5.351 F .041 <686173206120996d61696c6e616d659a207265636f72642c207468652076>117 531 R .041<616c7565206f662074686174207265636f72642069732075736564206173207468 656972206f7574676f696e67206e616d652e>-.25 F -.15<466f>5.04 G 2.54<7265> .15 G .04<78616d706c652c2049>-2.69 F<6d69676874206861>117 543 Q .3 -.15 <766520612072>-.2 H<65636f72643a>.15 E 12.29 <657269633a6d61696c6e616d6520457269632e416c6c6d616e4043532e4265726b>157 559.2 R<656c65>-.1 E -.65<792e>-.15 G<454455>.65 E<546869732077>117 575.4 Q<6f756c64206361757365206d79206f7574676f696e67206d61696c20746f2062 652073656e7420617320457269632e416c6c6d616e2e>-.1 E .519<4966206120996d61 696c64726f709a20697320666f756e6420666f72207468652075736572>142 591.6 R 3.019<2c62>-.4 G .52<7574206e6f20636f72726573706f6e64696e6720996d61696c 6e616d659a207265636f72642065>-3.219 F .52<78697374732c20746865>-.15 F 1.128<7265636f726420993a646566>117 603.6 R 1.128 <61756c743a6d61696c6e616d659a20697320636f6e73756c7465642e>-.1 F 1.127<49 662070726573656e742c207468697320697320746865206e616d65206f66206120686f73 7420746f206f>6.128 F -.15<7665>-.15 G 1.127<727269646520746865>.15 F .625<6c6f63616c20686f73742e>117 615.6 R -.15<466f>5.625 G 3.125<7265>.15 G .625<78616d706c652c20696e206f757220636173652077652077>-3.275 F .625 <6f756c642073657420697420746f209943532e4265726b>-.1 F<656c65>-.1 E -.65 <792e>-.15 G 3.125<4544559a2e20546865>.65 F<6566>3.125 E .625 <666563742069732074686174>-.25 F<616e>117 627.6 Q .882<796f6e65206b6e6f> -.15 F .882<776e20696e20746865206461746162617365206765747320746865697220 6f7574676f696e67206d61696c207374616d7065642061732099757365724043532e4265 726b>-.25 F<656c65>-.1 E -.65<792e>-.15 G<4544559a2c>.65 E -.2<6275>117 639.6 S 2.5<7470>.2 G<656f706c65206e6f74206c697374656420696e207468652064 617461626173652075736520746865206c6f63616c20686f73746e616d652e>-2.5 E F0 2.5<352e31332e332e204372>102 665.6 R <656174696e6720746865206461746162617365>-.18 E/F3 7/Times-Bold@0 SF <3233>-4 I .32 LW 76 675.2 72 675.2 DL 80 675.2 76 675.2 DL 84 675.2 80 675.2 DL 88 675.2 84 675.2 DL 92 675.2 88 675.2 DL 96 675.2 92 675.2 DL 100 675.2 96 675.2 DL 104 675.2 100 675.2 DL 108 675.2 104 675.2 DL 112 675.2 108 675.2 DL 116 675.2 112 675.2 DL 120 675.2 116 675.2 DL 124 675.2 120 675.2 DL 128 675.2 124 675.2 DL 132 675.2 128 675.2 DL 136 675.2 132 675.2 DL 140 675.2 136 675.2 DL 144 675.2 140 675.2 DL 148 675.2 144 675.2 DL 152 675.2 148 675.2 DL 156 675.2 152 675.2 DL 160 675.2 156 675.2 DL 164 675.2 160 675.2 DL 168 675.2 164 675.2 DL 172 675.2 168 675.2 DL 176 675.2 172 675.2 DL 180 675.2 176 675.2 DL 184 675.2 180 675.2 DL 188 675.2 184 675.2 DL 192 675.2 188 675.2 DL 196 675.2 192 675.2 DL 200 675.2 196 675.2 DL 204 675.2 200 675.2 DL 208 675.2 204 675.2 DL 212 675.2 208 675.2 DL 216 675.2 212 675.2 DL/F4 5 /Times-Roman@0 SF<3233>93.6 685.6 Q/F5 8/Times-Roman@0 SF .472 <546865736520696e737472756374696f6e7320617265206b6e6f>3.2 J .472 <776e20746f20626520696e636f6d706c6574652e>-.2 F .473 <4f74686572206665617475726573206172652061>4.472 F -.2<7661>-.16 G .473 <696c61626c652077686963682070726f>.2 F .473 <766964652073696d696c61722066756e6374696f6e616c697479>-.12 F 2.473<2c65> -.52 G .473<2e672e2c207669727475616c>-2.473 F<686f7374696e6720616e64206d 617070696e67206c6f63616c2061646472657373657320696e746f20612067656e657269 6320666f726d2061732065>72 698.4 Q <78706c61696e656420696e2063662f524541444d452e>-.12 E 0 Cg EP %%Page: 96 92 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d39362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF .375 <54686520757365722064617461626173652069732062>142 96 R .375 <75696c742066726f6d2061207465>-.2 F .375 <7874208c6c65207573696e6720746865>-.15 F/F2 10/Times-Italic@0 SF<6d616b> 2.875 E<656d6170>-.1 E F1 .375 <7574696c6974792028696e207468652064697374726962>2.875 F .375 <7574696f6e20696e>-.2 F 1.038<746865206d616b>117 108 R 1.038 <656d6170207375626469726563746f7279292e>-.1 F 1.038<546865207465>6.038 F 1.039<7874208c6c65206973206120736572696573206f66206c696e657320636f727265 73706f6e64696e6720746f20757365726462207265636f7264733b>-.15 F 1.589 <65616368206c696e65206861732061206b>117 120 R 1.889 -.15<65792061>-.1 H 1.589<6e6420612076>.15 F 1.589 <616c7565207365706172617465642062792077686974652073706163652e>-.25 F 1.589<546865206b>6.589 F 1.889 -.15<65792069>-.1 H 4.089<7361>.15 G -.1 <6c7761>-4.089 G 1.588<797320696e2074686520666f726d6174>.1 F <6465736372696265642061626f>117 132 Q .3 -.15<7665208a2066>-.15 H <6f722065>.15 E<78616d706c653a>-.15 E<657269633a6d61696c64726f70>157 148.2 Q 3.984<54686973208c6c65206973206e6f726d616c6c7920696e7374616c6c65 6420696e20612073797374656d206469726563746f72793b20666f722065>117 164.4 R 3.985<78616d706c652c206974206d696768742062652063616c6c6564>-.15 F F2 <2f6574632f6d61696c2f75736572>117 176.4 Q<6462>-.37 E F1 5<2e54>C 2.5 <6f6d>-5.8 G<616b>-2.5 E 2.5<6574>-.1 G<68652064617461626173652076>-2.5 E <657273696f6e206f6620746865206d61702c2072756e207468652070726f6772616d3a> -.15 E<6d616b>157 192.6 Q<656d6170206274726565202f6574632f6d61696c2f7573 65726462203c202f6574632f6d61696c2f757365726462>-.1 E .077<5468656e206372 65617465206120636f6e8c67208c6c652074686174207573657320746869732e>117 208.8 R -.15<466f>5.077 G 2.577<7265>.15 G .077<78616d706c652c207573696e 6720746865205638204d3420636f6e8c6775726174696f6e2c20696e636c756465207468 65>-2.727 F<666f6c6c6f>117 220.8 Q <77696e67206c696e6520696e20796f7572202e6d63208c6c653a>-.25 E<64658c6e65 2892636f6e665553455244425f53504543b42c202f6574632f6d61696c2f757365726462 29>157 237 Q F0 2.5<362e204f>72 265.2 R<5448455220434f4e464947555241>-.4 E<54494f4e>-.95 E F1 .907<54686572652061726520736f6d6520636f6e8c67757261 74696f6e206368616e67657320746861742063616e206265206d61646520627920726563 6f6d70696c696e67>112 281.4 R F2<73656e646d61696c>3.407 E F1 5.907<2e54>C .907<6869732073656374696f6e>-5.907 F 1.139<6465736372696265732077686174 206368616e6765732063616e206265206d61646520616e6420776861742068617320746f 206265206d6f64698c656420746f206d616b>87 293.4 R 3.639<6574>-.1 G 3.639 <68656d2e20496e>-3.639 F 1.138<6d6f73742063617365732074686973>3.639 F<73 686f756c6420626520756e6e656365737361727920756e6c65737320796f752061726520 706f7274696e67>87 305.4 Q F2<73656e646d61696c>2.5 E F1<746f2061206e65> 2.5 E 2.5<7765>-.25 G -.4<6e76>-2.5 G<69726f6e6d656e742e>.4 E F0 2.5 <362e312e2050>87 329.4 R<6172616d657465727320696e206465>-.1 E <76746f6f6c732f4f532f246f736366>-.15 E F1 .92<546865736520706172616d6574 6572732061726520696e74656e64656420746f2064657363726962652074686520636f6d 70696c6174696f6e20656e>127 345.6 R .92 <7669726f6e6d656e742c206e6f74207369746520706f6c6963>-.4 F 2.22 -.65 <792c2061>-.15 H<6e64>.65 E .739<73686f756c64206e6f726d616c6c7920626520 64658c6e656420696e20746865206f7065726174696e672073797374656d20636f6e8c67 75726174696f6e208c6c652e>102 357.6 R F0 .739 <546869732073656374696f6e206e65656473206120636f6d2d>5.739 F <706c6574652072>102 369.6 Q<6577726974652e>-.18 E F1 39.5 <4e44424d204966>102 385.8 R .664<7365742c20746865206e65>3.164 F 3.164 <7776>-.25 G .664 <657273696f6e206f66207468652044424d206c696272617279207468617420616c6c6f> -3.314 F .665 <7773206d756c7469706c65206461746162617365732077696c6c206265>-.25 F 2.823 <757365642e204966>174 397.8 R .322<6e656974686572204344422c204e44424d2c 206e6f72204e4557444220617265207365742c2061206d756368206c657373206566> 2.823 F .322<8c6369656e74206d6574686f64>-.25 F <6f6620616c696173206c6f6f6b757020697320757365642e>174 409.8 Q 48.94 <434442204966>102 426 R<7365742c207573652074686520636462202874696e>2.5 E <7963646229207061636b6167652e>-.15 E 32.84<4e45574442204966>102 442.2 R .141<7365742c2075736520746865206e65>2.641 F 2.642<7764>-.25 G .142 <61746162617365207061636b6167652066726f6d204265726b>-2.642 F<656c65>-.1 E 2.642<7928>-.15 G .142<66726f6d20342e34425344292e>-2.642 F .142 <54686973207061636b616765>5.142 F .267 <6973207375627374616e7469616c6c792066>174 454.2 R .267 <6173746572207468616e2044424d206f72204e44424d2e>-.1 F .267 <4966204e4557444220616e64204e44424d2061726520626f7468207365742c>5.267 F F2<73656e646d61696c>174 466.2 Q F1 <77696c6c20726561642044424d208c6c65732c2062>2.5 E <75742077696c6c2063726561746520616e6420757365204e45574442208c6c65732e> -.2 E 53.39<4e495320496e636c756465>102 482.4 R .119 <737570706f727420666f72204e49532e>2.619 F .119 <49662073657420746f6765746865722077697468>5.119 F F2<626f7468>2.619 E F1 .119<4e4557444220616e64204e44424d2c>2.619 F F2<73656e646d61696c>2.62 E F1 .947<77696c6c2063726561746520626f74682044424d20616e64204e45574442208c 6c657320696620616e64206f6e6c7920696620616e20616c696173208c6c6520696e636c 7564657320746865>174 494.4 R 3.409 <737562737472696e6720992f79702f9a20696e20746865206e616d652e>174 506.4 R 3.409<5468697320697320696e74656e64656420666f7220636f6d7061746962696c6974 7920776974682053756e>8.409 F<4d6963726f73797374656d7327>174 518.4 Q F2 <6d6b616c696173>2.5 E F1 <70726f6772616d2075736564206f6e205950206d6173746572732e>2.5 E 28.94 <4e4953504c555320436f6d70696c65>102 534.6 R <696e20737570706f727420666f72204e49532b2e>2.5 E 26.73 <4e4554494e464f20436f6d70696c65>102 550.8 R<696e20737570706f727420666f72 204e6574496e666f20284e6558542073746174696f6e73292e>2.5 E<4c44>102 567 Q 22.12<41504d415020436f6d70696c65>-.4 F 1.226 <696e20737570706f727420666f72204c44>3.726 F 1.226 <4150205835303020717565726965732e>-.4 F 1.225 <5265717569726573206c69626c64617020616e64206c69626c6265722066726f6d> 6.225 F 2.798<74686520556d696368204c44>174 579 R 2.798 <415020332e32206f7220332e332072656c65617365206f722065717569>-.4 F -.25 <7661>-.25 G 2.799 <6c656e74206c696272617269657320666f72206f74686572204c44>.25 F<4150>-.4 E <6c69627261726965732073756368206173204f70656e4c44>174 591 Q<4150>-.4 E <2e>-1.11 E 32.84<484553494f4420436f6d70696c65>102 607.2 R <696e20737570706f727420666f7220486573696f642e>2.5 E 22.83 <4d41505f4e534420436f6d70696c65>102 623.4 R <696e20737570706f727420666f722049524958204e5344206c6f6f6b7570732e>2.5 E 9.5<4d41505f524547455820436f6d70696c65>102 639.6 R <696e20737570706f727420666f72207265>2.5 E<67756c61722065>-.15 E <787072657373696f6e206d61746368696e672e>-.15 E 27.83 <444e534d415020436f6d70696c65>102 655.8 R<696e20737570706f727420666f7220 444e53206d6170206c6f6f6b75707320696e20746865>2.5 E F2 <73656e646d61696c2e6366>2.5 E F1<8c6c652e>2.5 E 30.05 <50485f4d415020436f6d70696c65>102 672 R <696e20737570706f727420666f72207068206c6f6f6b7570732e>2.5 E 45.05 <5341534c20436f6d70696c65>102 688.2 R 1.474<696e20737570706f727420666f72 205341534c2c206120726571756972656420636f6d706f6e656e7420666f7220534d5450 2041757468656e7469636174696f6e>3.974 F<737570706f72742e>174 700.2 Q 0 Cg EP %%Page: 97 93 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3937>195.86 E /F1 10/Times-Roman@0 SF<5354>102 96 Q<4152>-.93 E 21.58 <54544c5320436f6d70696c65>-.6 F<696e20737570706f727420666f72205354>2.5 E <4152>-.93 E<54544c532e>-.6 E 48.95<45474420436f6d70696c65>102 112.2 R .067<696e20737570706f727420666f72207468652022456e74726f70>2.567 F 2.567 <7947>-.1 G .067<6174686572696e67204461656d6f6e2220746f2070726f>-2.567 F .068<76696465206265747465722072616e646f6d>-.15 F <6461746120666f7220544c532e>174 124.2 Q -1.63 <544350575241505045525320436f6d70696c65>102 140.4 R <696e20737570706f727420666f72205443502057726170706572732e>2.5 E<5f50>102 156.6 Q -1.11<4154>-.92 G<485f53454e444d41494c4346>1.11 E<54686520706174 686e616d65206f66207468652073656e646d61696c2e6366208c6c652e>174 168.6 Q <5f50>102 184.8 Q -1.11<4154>-.92 G<485f53454e444d41494c504944>1.11 E<54 686520706174686e616d65206f66207468652073656e646d61696c2e706964208c6c652e> 174 196.8 Q<534d5f434f4e465f53484d>102 213 Q<436f6d70696c6520696e207375 70706f727420666f7220736861726564206d656d6f7279>174 225 Q 2.5<2c73>-.65 G <65652073656374696f6e2061626f757420222f76>-2.5 E <61722f73706f6f6c2f6d7175657565222e>-.25 E<4d494c>102 241.2 Q 33.2 <54455220436f6d70696c65>-.92 F <696e20737570706f727420666f7220636f6e74616374696e672065>2.5 E <787465726e616c206d61696c208c6c746572732062>-.15 E <75696c74207769746820746865204d696c746572204150492e>-.2 E 1.44 <54686572652061726520616c736f207365>127 257.4 R -.15<7665>-.25 G 1.439< 72616c20636f6d70696c6174696f6e208d61677320746f20696e64696361746520746865 20656e>.15 F 1.439 <7669726f6e6d656e74207375636820617320995f414958339a20616e64>-.4 F 2.5 <995f53434f5f756e69785f9a2e20536565>102 269.4 R<7468652073656e646d61696c 2f524541444d45208c6c6520666f7220746865206c61746573742073636f6f70206f6e20 7468657365208d6167732e>2.5 E F0 2.5<362e312e312e2046>102 293.4 R <6f72204675747572>-.25 E 2.5<6552>-.18 G<656c6561736573>-2.5 E/F2 10 /Times-Italic@0 SF<73656e646d61696c>142 309.6 Q F1 .641 <6f6674656e20636f6e7461696e7320636f6d70696c652074696d65206f7074696f6e73> 3.14 F F2 -1.05<466f>3.141 G 3.141<7246>1.05 G<75747572>-3.141 E 3.141 <6552>-.37 G<656c6561736573>-3.141 E F1 .641 <287072658c78205f4646525f29207768696368>3.141 F .433 <6d6967687420626520656e61626c656420696e20612073756273657175656e742076> 117 321.6 R .432 <657273696f6e206f72206d696768742073696d706c792062652072656d6f>-.15 F -.15<7665>-.15 G 2.932<6461>.15 G 2.932<7374>-2.932 G<6865>-2.932 E 2.932<7974>-.15 G .432<75726e6564206f7574206e6f7420746f>-2.932 F 1.088 <6265207265616c6c792075736566756c2e>117 333.6 R 1.089<546865736520666561 74757265732061726520757375616c6c79206e6f7420646f63756d656e7465642062> 6.088 F 1.089<757420696620746865>-.2 F 3.589<7961>-.15 G 1.089 <72652c207468656e20746865207265717569726564>-3.589 F 1.794<284646522920 636f6d70696c652074696d65206f7074696f6e7320617265206c69737465642068657265 20666f722072756c657365747320616e64206d6163726f732c20616e6420696e>117 345.6 R F2<63662f524541444d45>4.293 E F1<666f72>4.293 E .95 <6d632f6366206f7074696f6e732e>117 357.6 R .951<46465220636f6d70696c6520 74696d6573206f7074696f6e73206d75737420626520656e61626c6564207768656e2074 68652073656e646d61696c2062696e6172792069732062>5.95 F<75696c74>-.2 E <66726f6d20736f757263652e>117 369.6 Q<456e61626c6564204646527320696e2061 2062696e6172792063616e206265206c69737465642077697468>5 E <73656e646d61696c202d64302e3133203c202f6465>157 385.8 Q <762f6e756c6c207c206772657020464652>-.25 E F0 2.5<362e322e2050>87 414 R <6172616d657465727320696e2073656e646d61696c2f636f6e66>-.1 E<2e68>-.15 E F1 -.15<5061>127 430.2 S .896<72616d657465727320616e6420636f6d70696c6174 696f6e206f7074696f6e73206172652064658c6e656420696e20636f6e662e682e>.15 F .895<4d6f7374206f66207468657365206e656564206e6f74206e6f726d616c6c79> 5.895 F .192<626520747765616b>102 442.2 R .192<65643b20636f6d6d6f6e2070 6172616d65746572732061726520616c6c20696e2073656e646d61696c2e63662e>-.1 F <486f>5.192 E<7765>-.25 E -.15<7665>-.25 G .992 -.4<722c2074>.15 H .192 <68652073697a6573206f66206365727461696e207072696d697469>.4 F .493 -.15 <7665207665>-.25 H<632d>.15 E<746f72732c206574632e2c2061726520696e636c75 64656420696e2074686973208c6c652e>102 454.2 Q <546865206e756d6265727320666f6c6c6f>5 E <77696e672074686520706172616d65746572732061726520746865697220646566>-.25 E<61756c742076>-.1 E<616c75652e>-.25 E 1.247<5468697320646f63756d656e74 206973206e6f7420746865206265737420736f75726365206f6620696e666f726d617469 6f6e20666f7220636f6d70696c6174696f6e208d61677320696e20636f6e662e68208a20 736565>127 470.4 R<73656e646d61696c2f524541444d45206f722073656e646d6169 6c2f636f6e662e6820697473656c662e>102 482.4 Q <4d41584c494e45205b323034385d>102 498.6 Q 2.068 <546865206d6178696d756d206c696e65206c656e677468206f6620616e>11.14 F 4.568<7969>-.15 G 2.068<6e707574206c696e652e>-4.568 F 2.069 <4966206d657373616765206c696e65732065>7.068 F 2.069 <78636565642074686973>-.15 F .575<6c656e67746820746865>188.4 510.6 R 3.075<7977>-.15 G .575<696c6c207374696c6c2062652070726f6365737365642063 6f72726563746c793b20686f>-3.075 F<7765>-.25 E -.15<7665>-.25 G 1.375 -.4 <722c2068>.15 H .575<6561646572206c696e65732c20636f6e8c677572612d>.4 F< 74696f6e208c6c65206c696e65732c20616c696173206c696e65732c206574632e2c206d 757374208c742077697468696e2074686973206c696d69742e>188.4 522.6 Q <4d41584e>102 538.8 Q<414d45205b3235365d>-.35 E <546865206d6178696d756d206c656e677468206f6620616e>9.82 E 2.5<796e>-.15 G <616d652c2073756368206173206120686f7374206f7220612075736572206e616d652e> -2.5 E<4d41585056205b3235365d>102 555 Q .25<546865206d6178696d756d206e75 6d626572206f6620706172616d657465727320746f20616e>26.13 F 2.75<796d>-.15 G<61696c6572>-2.75 E 5.25<2e54>-.55 G .25 <686973206c696d69747320746865206e756d626572206f66>-5.25 F .376<72656369 7069656e74732074686174206d61792062652070617373656420696e206f6e6520747261 6e73616374696f6e2e>188.4 567 R .375 <49742063616e2062652073657420746f20616e>5.376 F 2.875<7961>-.15 G <7262697472617279>-2.875 E .875<6e756d6265722061626f>188.4 579 R 1.175 -.15<76652061>-.15 H .876<626f75742031302c2073696e6365>.15 F F2 <73656e646d61696c>3.376 E F1 .876 <77696c6c20627265616b20757020612064656c69>3.376 F -.15<7665>-.25 G .876 <727920696e746f20736d616c6c6572>.15 F .887 <62617463686573206173206e65656465642e>188.4 591 R 3.387<4168>5.887 G .887<6967686572206e756d626572206d617920726564756365206c6f6164206f6e2079 6f75722073797374656d2c20686f>-3.387 F<772d>-.25 E -2.15 -.25<65762065> 188.4 603 T -.55<722e>.25 G<4d415851>102 619.2 Q<554555454752>-.1 E <4f555053205b35305d>-.4 E <546865206d6178696d756d206e756d626572206f662071756575652067726f7570732e> 188.4 631.2 Q<4d415841>102 647.4 Q -.18<544f>-1.11 G 2.5<4d5b>.18 G 3.26 <313030305d20546865>-2.5 F .063 <6d6178696d756d206e756d626572206f662061746f6d732028746f6b>2.563 F .063 <656e732920696e20612073696e676c6520616464726573732e>-.1 F -.15<466f> 5.064 G 2.564<7265>.15 G .064<78616d706c652c20746865>-2.714 F <616464726573732099657269634043532e4265726b>188.4 659.4 Q<656c65>-.1 E -.65<792e>-.15 G<4544559a206973207365>.65 E -.15<7665>-.25 G 2.5<6e61> .15 G<746f6d732e>-2.5 E<4d41584d41494c455253205b32355d>102 675.6 Q .122< 546865206d6178696d756d206e756d626572206f66206d61696c6572732074686174206d 61792062652064658c6e656420696e2074686520636f6e8c6775726174696f6e208c6c65 2e>.02 F<546869732076>188.4 687.6 Q<616c75652069732064658c6e656420696e20 696e636c7564652f73656e646d61696c2f73656e646d61696c2e682e>-.25 E <4d415852>102 703.8 Q<5753455453205b3230305d>-.55 E .431 <546865206d6178696d756d206e756d626572206f66207265>.01 F .432 <77726974696e6720736574732074686174206d61792062652064658c6e65642e>-.25 F .432<546865208c7273742068616c66206f66>5.432 F .035 <74686573652061726520726573657276>188.4 715.8 R .035<656420666f72206e75 6d657269632073706563698c636174696f6e2028652e672e2c2060>-.15 F <6053393227>-.74 E .034 <27292c207768696c65207468652075707065722068616c66>-.74 F 0 Cg EP %%Page: 98 94 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 193.36<534d4d3a30382d39382053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF .491<61726520726573657276>188.4 96 R .491 <656420666f72206175746f2d6e756d626572696e672028652e672e2c2060>-.15 F <6053666f6f27>-.74 E 2.992<27292e20546875732c>-.74 F .492 <7769746820612076>2.992 F .492<616c7565206f662032303020616e>-.25 F <617474656d707420746f207573652060>188.4 108 Q<6053393927>-.74 E 2.5 <2777>-.74 G<696c6c20737563636565642c2062>-2.5 E<75742060>-.2 E <605331303027>-.74 E 2.5<2777>-.74 G<696c6c2066>-2.5 E<61696c2e>-.1 E <4d41585052494f524954494553205b32355d>102 124.2 Q 2.482 <546865206d6178696d756d206e756d626572206f662076>188.4 136.2 R 2.482<616c 75657320666f72207468652099507265636564656e63653a9a208c656c64207468617420 6d6179206265>-.25 F<64658c6e656420287573696e6720746865>188.4 148.2 Q F0 <50>2.5 E F1<6c696e6520696e2073656e646d61696c2e6366292e>2.5 E <4d415855534552454e564952>102 164.4 Q<4f4e205b3130305d>-.4 E .399<546865 206d6178696d756d206e756d626572206f66206974656d7320696e207468652075736572 20656e>188.4 176.4 R .4 <7669726f6e6d656e7420746861742077696c6c2062652070617373656420746f>-.4 F <7375626f7264696e617465206d61696c6572732e>188.4 188.4 Q <4d41584d58484f535453205b3130305d>102 204.6 Q<546865206d6178696d756d206e 756d626572206f66204d58207265636f7264732077652077696c6c206163636570742066 6f7220616e>188.4 216.6 Q 2.5<7973>-.15 G<696e676c6520686f73742e>-2.5 E <4d41584d41505354>102 232.8 Q -.4<4143>-.93 G 2.5<4b5b>.4 G<31325d>-2.5 E 1.65<546865206d6178696d756d206e756d626572206f66206d617073207468617420 6d61792062652022737461636b>188.4 244.8 R 1.65<65642220696e2061>-.1 F F0 <73657175656e6365>4.15 E F1<636c617373>4.15 E<6d61702e>188.4 256.8 Q <4d41584d494d4541524753205b32305d>102 273 Q .718 <546865206d6178696d756d206e756d626572206f66206172>188.4 285 R .718 <67756d656e747320696e2061204d494d4520436f6e74656e742d54>-.18 F .718 <7970653a206865616465723b20616464692d>-.8 F<74696f6e616c206172>188.4 297 Q<67756d656e74732077696c6c2062652069676e6f7265642e>-.18 E <4d41584d494d454e455354494e47205b32305d>102 313.2 Q .4<546865206d617869 6d756d20646570746820746f207768696368204d494d45206d65737361676573206d6179 206265206e65737465642028746861742069732c206e6573746564>188.4 325.2 R 1.344<4d657373616765206f72204d756c74697061727420646f63756d656e74733b2074 68697320646f6573206e6f74206c696d697420746865206e756d626572206f6620636f6d 706f2d>188.4 337.2 R<6e656e747320696e20612073696e676c65204d756c74697061 727420646f63756d656e74292e>188.4 349.2 Q<4d415844>102 365.4 Q <41454d4f4e53205b31305d>-.4 E 1.353 <546865206d6178696d756d206e756d626572206f6620736f636b>188.4 377.4 R 1.353<6574732073656e646d61696c2077696c6c206f70656e20666f7220616363657074 696e6720636f6e6e65632d>-.1 F<74696f6e73206f6e20646966>188.4 389.4 Q <666572656e7420706f7274732e>-.25 E<4d41584d41>102 405.6 Q<434e>-.4 E <414d454c454e205b32355d>-.35 E <546865206d6178696d756d206c656e677468206f662061206d6163726f206e616d652e> 188.4 417.6 Q 2.85<416e>102 433.8 S .35<756d626572206f66206f746865722063 6f6d70696c6174696f6e206f7074696f6e732065>-2.85 F 2.851 <786973742e205468657365>-.15 F .351<737065636966792077686574686572206f72 206e6f742073706563698c6320636f64652073686f756c64206265>2.851 F <636f6d70696c656420696e2e>102 445.8 Q<4f6e6573206d61726b>5 E <6564207769746820872061726520302f312076>-.1 E<616c7565642e>-.25 E 36.69 <4e4554494e455487204966>102 462 R .829<7365742c20737570706f727420666f72 20496e7465726e65742070726f746f636f6c206e657477>3.33 F .829 <6f726b696e6720697320636f6d70696c656420696e2e>-.1 F<507265>5.829 E .829 <76696f75732076>-.25 F<6572>-.15 E<2d>-.2 E .177<73696f6e73206f66>188.4 474 R/F2 10/Times-Italic@0 SF<73656e646d61696c>2.677 E F1 .177 <726566657272656420746f2074686973206173>2.677 F/F3 9/Times-Roman@0 SF -.36<4441>2.678 G<454d4f4e>.36 E F1 2.678<3b74>C .178 <686973206f6c64207573616765206973206e6f>-2.678 F 2.678<7769>-.25 G <6e636f72726563742e>-2.678 E<446566>188.4 486 Q 1.87 <61756c7473206f6e3b207475726e206974206f66>-.1 F 4.37<6669>-.25 G 4.37 <6e74>-4.37 G 1.87<6865204d616b>-4.37 F 1.87 <658c6c6520696620796f75722073797374656d20646f65736e27>-.1 F 4.37<7473> -.18 G 1.87<7570706f727420746865>-4.37 F <496e7465726e65742070726f746f636f6c732e>188.4 498 Q 31.69 <4e4554494e45543687204966>102 514.2 R 2.26 <7365742c20737570706f727420666f722049507636206e657477>4.76 F 2.26 <6f726b696e6720697320636f6d70696c656420696e2e>-.1 F 2.26 <4974206d7573742062652073657061726174656c79>7.26 F <656e61626c656420627920616464696e67>188.4 526.2 Q F0<4461656d6f6e50>2.5 E<6f72744f7074696f6e73>-.2 E F1<73657474696e67732e>2.5 E 43.35 <4e455449534f87204966>102 542.4 R .143 <7365742c20737570706f727420666f722049534f2070726f746f636f6c206e657477> 2.643 F .142<6f726b696e6720697320636f6d70696c656420696e20286974206d6179 20626520617070726f7072692d>-.1 F <61746520746f202364658c6e65207468697320696e20746865204d616b>188.4 554.4 Q<658c6c6520696e7374656164206f6620636f6e662e68292e>-.1 E 34.47 <4e4554554e495887204966>102 570.6 R .39 <7365742c20737570706f727420666f7220554e495820646f6d61696e20736f636b>2.89 F .39<65747320697320636f6d70696c656420696e2e>-.1 F .39 <54686973206973207573656420666f7220636f6e2d>5.39 F<74726f6c20736f636b> 188.4 582.6 Q<657420737570706f72742e>-.1 E 63.35<4c4f47204966>102 598.8 R .5<7365742c20746865>3 F F2<7379736c6f>3 E<67>-.1 E F1 .5<726f7574696e 6520696e2075736520617420736f6d6520736974657320697320757365642e>3 F .5 <54686973206d616b>5.5 F .5<657320616e20696e666f726d612d>-.1 F .504<7469 6f6e616c206c6f67207265636f726420666f722065616368206d6573736167652070726f 6365737365642c20616e64206d616b>188.4 610.8 R .504 <6573206120686967686572207072696f72697479206c6f67>-.1 F .053 <7265636f726420666f7220696e7465726e616c2073797374656d206572726f72732e> 188.4 622.8 R F0<535452>5.052 E<4f4e474c>-.3 E 2.552<5952>-.92 G <45434f4d4d454e444544>-2.552 E F1 2.552<8a69>2.552 G 2.552<6679>-2.552 G <6f75>-2.552 E -.1<7761>188.4 634.8 S <6e74206e6f206c6f6767696e672c207475726e206974206f66>.1 E 2.5<6669>-.25 G 2.5<6e74>-2.5 G<686520636f6e8c6775726174696f6e208c6c652e>-2.5 E<4d41>102 651 Q 11.12<5443484745434f538720436f6d70696c65>-1.11 F 3.555 <696e2074686520636f646520746f20646f2060>6.055 F 3.555 <6066757a7a79206d61746368696e6727>-.74 F 6.055<276f>-.74 G 6.055<6e74> -6.055 G 3.555<6865204745434f53208c656c6420696e>-6.055 F 2.5 <2f6574632f7061737377642e2054686973>188.4 663 R <616c736f207265717569726573207468617420746865>2.5 E F0 <4d617463684745434f53>2.5 E F1<6f7074696f6e206265207475726e6564206f6e2e> 2.5 E -.35<4e41>102 679.2 S 13.15<4d45445f42494e448720436f6d70696c65>.35 F .413<696e20636f646520746f2075736520746865204265726b>2.913 F<656c65>-.1 E 2.912<7949>-.15 G .412 <6e7465726e6574204e616d6520446f6d61696e202842494e44292073657276>-2.912 F .412<657220746f>-.15 F<7265736f6c76>188.4 691.2 Q 2.5<6554>-.15 G <43502f495020686f7374206e616d65732e>-2.5 E<4e4f>102 707.4 Q 38.76 <54554e4958204966>-.4 F .247<796f7520617265207573696e672061206e6f6e2d55 4e4958206d61696c20666f726d61742c20796f752063616e207365742074686973208d61 6720746f207475726e206f66>2.747 F 2.748<6673>-.25 G<70652d>-2.748 E<6369 616c2070726f63657373696e67206f6620554e49582d7374796c65209946726f6d209a20 6c696e65732e>188.4 719.4 Q 0 Cg EP %%Page: 99 95 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d3939>195.86 E /F1 10/Times-Roman@0 SF 39.45<5553455244428720496e636c756465>102 96 R <746865>3.449 E F0<6578706572696d656e74616c>3.449 E F1<4265726b>3.449 E <656c65>-.1 E 3.449<7975>-.15 G .949 <73657220696e666f726d6174696f6e206461746162617365207061636b6167652e> -3.449 F<54686973>5.948 E .27<616464732061206e65>188.4 108 R 2.77<776c> -.25 G -2.15 -.25<65762065>-2.77 H 2.77<6c6f>.25 G 2.77<666c>-2.77 G .27 <6f63616c206e616d652065>-2.77 F .27 <7870616e73696f6e206265747765656e20616c696173696e6720616e6420666f7277> -.15 F 2.77<617264696e672e204974>-.1 F <616c736f207573657320746865204e45574442207061636b6167652e>188.4 120 Q <54686973206d6179206368616e676520696e206675747572652072656c65617365732e> 5 E<54686520666f6c6c6f>102 136.2 Q<77696e67206f7074696f6e7320617265206e 6f726d616c6c79207475726e6564206f6e20696e20706572>-.25 E<2d6f706572617469 6e672d73797374656d20636c617573657320696e20636f6e662e682e>-.2 E <4944454e545052>102 152.4 Q -1.88 -.4<4f54204f>-.4 H 19.61<8743>.4 G .376<6f6d70696c6520696e20746865204944454e542070726f746f636f6c2061732064 658c6e656420696e2052464320313431332e>-19.61 F .375<5468697320646566> 5.375 F .375<61756c7473206f6e20666f72>-.1 F 1.053 <616c6c2073797374656d732065>188.4 164.4 R 1.053<786365707420556c74726978 2c207768696368206170706172656e746c79206861732074686520696e74657265737469 6e672099666561747572659a2074686174>-.15 F .83 <7768656e206974207265636569>188.4 176.4 R -.15<7665>-.25 G 3.33<736199> .15 G .83<686f737420756e726561636861626c659a206d65737361676520697420636c 6f73657320616c6c206f70656e20636f6e6e656374696f6e73>-3.33 F 1.921 <746f207468617420686f73742e>188.4 188.4 R 1.921 <53696e636520736f6d65208c7265>6.921 F -.1<7761>-.25 G 1.922<6c6c2067>.1 F<617465>-.05 E -.1<7761>-.25 G 1.922 <79732073656e642074686973206572726f7220636f6465207768656e20796f75>.1 F 2.055<61636365737320616e20756e617574686f72697a656420706f7274202873756368 206173203131332c2075736564206279204944454e54292c20556c747269782063616e6e 6f74>188.4 200.4 R<7265636569>188.4 212.4 Q .3 -.15<76652065>-.25 H <6d61696c2066726f6d207375636820686f7374732e>.15 E 39.45 <53595354454d3520536574>102 228.6 R<616c6c206f662074686520636f6d70696c61 74696f6e20706172616d657465727320617070726f70726961746520666f722053797374 656d2056>2.5 E<2e>-1.29 E 26.12<484153464c4f434b8720557365>102 244.8 R <4265726b>2.844 E<656c65>-.1 E<792d7374796c65>-.15 E F0<8d6f636b>2.844 E F1 .344<696e7374656164206f662053797374656d2056>2.844 F F0<6c6f636b66> 2.845 E F1 .345<746f20646f208c6c65206c6f636b696e672e>2.845 F .345 <44756520746f>5.345 F .184<74686520686967686c7920756e757375616c2073656d 616e74696373206f66206c6f636b73206163726f737320666f726b7320696e>188.4 256.8 R F0<6c6f636b66>2.684 E F1 2.684<2c74>C .184 <6869732073686f756c6420616c>-2.684 F -.1<7761>-.1 G<7973>.1 E <6265207573656420696620617420616c6c20706f737369626c652e>188.4 268.8 Q <484153494e49544752>102 285 Q 4.86<4f55505320536574>-.4 F 1.284 <7468697320696620796f75722073797374656d2068617320746865>3.783 F/F2 10 /Times-Italic@0 SF<696e69746772>3.784 E<6f7570732829>-.45 E F1 1.284 <63616c6c2028696620796f75206861>3.784 F 1.584 -.15<7665206d>-.2 H 1.284 <756c7469706c652067726f7570>.15 F 4.417<737570706f7274292e2054686973> 188.4 297 R 1.917<69732074686520646566>4.417 F 1.917 <61756c742069662053595354454d35206973>-.1 F F2<6e6f74>4.416 E F1 1.916 <64658c6e6564206f7220696620796f7520617265206f6e>4.416 F<485055582e>188.4 309 Q<484153554e>102 325.2 Q 27.59<414d4520536574>-.35 F 1.148 <7468697320696620796f75206861>3.648 F 1.448 -.15<76652074>-.2 H<6865>.15 E F2<756e616d65>3.648 E F1 1.149<2832292073797374656d2063616c6c20286f72 20636f72726573706f6e64696e67206c69627261727920726f752d>B 2.5 <74696e65292e20536574>188.4 337.2 R<627920646566>2.5 E <61756c742069662053595354454d35206973207365742e>-.1 E<4841534745544454> 102 353.4 Q<41424c4553495a45>-.93 E <536574207468697320696620796f75206861>188.4 365.4 Q .3 -.15<76652074>-.2 H<6865>.15 E F2 -.1<6765>2.5 G<74647461626c6573697a65>.1 E F1 <2832292073797374656d2063616c6c2e>A<48415357>102 381.6 Q 22.89 <41495450494420536574>-1.2 F<7468697320696620796f75206861>2.5 E .3 -.15 <76652074>-.2 H<6865>.15 E F2<68617377616974706964>2.5 E F1 <2832292073797374656d2063616c6c2e>A -.74<4641>102 397.8 S <53545f5049445f52454359434c45>.74 E .542<536574207468697320696620796f75 722073797374656d2063616e20706f737369626c79207265757365207468652073616d65 2070696420696e207468652073616d65207365636f6e64206f66>188.4 409.8 R <74696d652e>188.4 421.8 Q 37.22<5346535f5459504520546865>102 438 R .517< 6d656368616e69736d20746861742063616e206265207573656420746f20676574208c6c 652073797374656d20636170616369747920696e666f726d6174696f6e2e>3.016 F <546865>5.517 E -.25<7661>188.4 450 S .215 <6c7565732063616e206265206f6e65206f66205346535f555354>.25 F 2.435 -1.11 <41542028>-.93 H .214<757365207468652075737461742832292073797363616c6c29 2c205346535f34415247532028757365>1.11 F .415<74686520666f7572206172> 188.4 462 R .415<67756d656e74207374617466732832292073797363616c6c292c20 5346535f564653202875736520746865207477>-.18 F 2.915<6f61>-.1 G -.18 <7267>-2.915 G .415<756d656e7420737461746673283229>.18 F .716<7379736361 6c6c20696e636c7564696e67203c7379732f7666732e683e292c205346535f4d4f554e54 202875736520746865207477>188.4 474 R 3.216<6f61>-.1 G -.18<7267>-3.216 G .716<756d656e7420737461746673283229>.18 F 4.32<73797363616c6c20696e636c 7564696e67203c7379732f6d6f756e742e683e292c205346535f5354>188.4 486 R -1.11<4154>-.93 G 4.32<4653202875736520746865207477>1.11 F 6.82<6f61>-.1 G -.18<7267>-6.82 G<756d656e74>.18 E 1.109<7374617466732832292073797363 616c6c20696e636c7564696e67203c7379732f7374617466732e683e292c205346535f53 54>188.4 498 R -1.11<4154>-.93 G 1.109<564653202875736520746865207477> 1.11 F 3.608<6f61>-.1 G -.18<7267>-3.608 G<752d>.18 E 1.511<6d656e742073 74617466732832292073797363616c6c20696e636c7564696e67203c7379732f73746174 7666732e683e292c206f72205346535f4e4f4e4520286e6f2077>188.4 510 R 1.512 <617920746f>-.1 F<676574207468697320696e666f726d6174696f6e292e>188.4 522 Q 40.57<4c415f5459504520546865>102 538.2 R<6c6f61642061>2.5 E -.15<7665> -.2 G<7261676520747970652e>.15 E <44657461696c7320617265206465736372696265642062656c6f>5 E -.65<772e>-.25 G .343<54686520617265207365>102 554.4 R -.15<7665>-.25 G .342 <72616c2062>.15 F .342<75696c742d696e2077>-.2 F .342 <617973206f6620636f6d707574696e6720746865206c6f61642061>-.1 F -.15<7665> -.2 G<726167652e>.15 E F2<53656e646d61696c>5.342 E F1 .342 <747269657320746f206175746f2d636f6e8c67757265207468656d>2.842 F .266<62 61736564206f6e20696d7065726665637420677565737365733b20796f752063616e2073 656c656374206f6e65207573696e6720746865>102 566.4 R F2<6363>2.767 E F1 <6f7074696f6e>2.767 E F02.767 E F2<74797065>A F1 2.767<2c77>C<68657265>-2.767 E F2<74797065>2.767 E F1<69733a>102 578.4 Q 48.91<4c415f494e5420546865>102 594.6 R -.1<6b65>3.453 G .952 <726e656c2073746f72657320746865206c6f61642061>.1 F -.15<7665>-.2 G .952 <7261676520696e20746865206b>.15 F .952 <65726e656c20617320616e206172726179206f66206c6f6e6720696e7465>-.1 F <676572732e>-.15 E<5468652061637475616c2076>188.4 606.6 Q <616c75657320617265207363616c656420627920612066>-.25 E <6163746f7220465343414c452028646566>-.1 E<61756c7420323536292e>-.1 E <4c415f53484f52>102 622.8 Q 35.89<5454>-.6 G .793<6865206b>-35.89 F .793 <65726e656c2073746f72657320746865206c6f61642061>-.1 F -.15<7665>-.2 G .794<7261676520696e20746865206b>.15 F .794 <65726e656c20617320616e206172726179206f662073686f727420696e7465>-.1 F <676572732e>-.15 E<5468652061637475616c2076>188.4 634.8 Q <616c75657320617265207363616c656420627920612066>-.25 E <6163746f7220465343414c452028646566>-.1 E<61756c7420323536292e>-.1 E <4c415f464c4f>102 651 Q 37.03 -1.11<41542054>-.35 H .089<6865206b>1.11 F .089<65726e656c2073746f72657320746865206c6f61642061>-.1 F -.15<7665>-.2 G .089<7261676520696e20746865206b>.15 F .088<65726e656c20617320616e2061 72726179206f6620646f75626c6520707265636973696f6e>-.1 F<8d6f6174732e> 188.4 663 Q<4c415f4d41>102 679.2 Q 35.97<434820557365>-.4 F<4d41>2.5 E <43482d7374796c65206c6f61642061>-.4 E -.15<7665>-.2 G<72616765732e>.15 E 39.45<4c415f535542522043616c6c>102 695.4 R<746865>2.5 E F2 -.1<6765>2.5 G<746c6f6164617667>.1 E F1 <726f7574696e6520746f2067657420746865206c6f61642061>2.5 E -.15<7665>-.2 G<7261676520617320616e206172726179206f6620646f75626c65732e>.15 E <4c415f5a4552>102 711.6 Q 42.36<4f41>-.4 G -.1<6c7761>-42.36 G <79732072657475726e207a65726f20617320746865206c6f61642061>.1 E -.15 <7665>-.2 G 2.5<726167652e2054686973>.15 F<6973207468652066>2.5 E <616c6c6261636b20636173652e>-.1 E 0 Cg EP %%Page: 100 96 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 188.36<534d4d3a30382d3130302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465> 2.5 E/F1 10/Times-Roman@0 SF .493<49662074797065>102 96 R/F2 9 /Times-Roman@0 SF<4c415f494e54>2.993 E F1<2c>A F2<4c415f53484f52>2.993 E <54>-.54 E F1 2.993<2c6f>C<72>-2.993 E F2<4c415f464c4f>2.993 E -.999 <4154>-.315 G F1 .493<69732073706563698c65642c20796f75206d617920616c736f 206e65656420746f2073706563696679>3.992 F F2<5f50>2.994 E -.999<4154> -.828 G<485f554e4958>.999 E F1 .949<28746865207061746820746f20796f757220 73797374656d2062696e6172792920616e64>102 108 R F2<4c415f41>3.448 E <56454e52>-1.215 E<554e>-.36 E F1 .948 <28746865206e616d65206f66207468652076>3.448 F .948 <61726961626c6520636f6e7461696e696e6720746865206c6f6164>-.25 F -2.25 -.2 <61762065>102 120 T<7261676520696e20746865206b>.2 E <65726e656c3b20757375616c6c7920995f61>-.1 E -.15<7665>-.2 G <6e72756e9a206f72209961>.15 E -.15<7665>-.2 G<6e72756e9a292e>.15 E F0 2.5<362e332e20436f6e8c6775726174696f6e>87 144 R <696e2073656e646d61696c2f636f6e66>2.5 E<2e63>-.15 E F1 <54686520666f6c6c6f>127 160.2 Q <77696e67206368616e6765732063616e206265206d61646520696e20636f6e662e632e> -.25 E F0 2.5<362e332e312e204275696c742d696e>102 184.2 R <4865616465722053656d616e74696373>2.5 E F1 1.248<4e6f7420616c6c20686561 6465722073656d616e74696373206172652064658c6e656420696e2074686520636f6e8c 6775726174696f6e208c6c652e>142 200.4 R 1.248 <486561646572206c696e657320746861742073686f756c64>6.248 F .305<6f6e6c79 20626520696e636c75646564206279206365727461696e206d61696c6572732028617320 77656c6c206173206f74686572206d6f7265206f6273637572652073656d616e74696373 29206d7573742062652073706563698c6564>117 212.4 R .046<696e20746865>117 224.4 R/F3 10/Times-Italic@0 SF<486472496e666f>2.546 E F1 .046 <7461626c6520696e>2.546 F F3<636f6e66>2.546 E<2e63>-.15 E F1 5.046<2e54> C .047<686973207461626c6520636f6e7461696e732074686520686561646572206e61 6d65202877686963682073686f756c6420626520696e20616c6c206c6f>-5.046 F <776572>-.25 E<636173652920616e64206120736574206f662068656164657220636f 6e74726f6c208d61677320286465736372696265642062656c6f>117 236.4 Q <77292c20546865208d616773206172653a>-.25 E<485f41>117 252.6 Q 30.97 <434845434b204e6f726d616c6c79>-.4 F .007<7768656e2074686520636865636b20 6973206d61646520746f20736565206966206120686561646572206c696e652069732063 6f6d70617469626c652077697468>2.508 F 2.94<616d>203.4 264.6 S<61696c6572> -2.94 E<2c>-.4 E F3<73656e646d61696c>2.94 E F1 .441 <77696c6c206e6f742064656c65746520616e2065>2.94 F .441 <78697374696e67206c696e652e>-.15 F .441 <49662074686973208d6167206973207365742c>5.441 F F3<73656e642d>2.941 E <6d61696c>203.4 276.6 Q F1 .152<77696c6c2064656c6574652065>2.652 F -.15 <7665>-.25 G 2.652<6e65>.15 G .152 <78697374696e6720686561646572206c696e65732e>-2.802 F .152 <546861742069732c2069662074686973206269742069732073657420616e6420746865> 5.152 F 1.425<6d61696c657220646f6573206e6f74206861>203.4 288.6 R 1.725 -.15<7665208d>-.2 H 1.425<6167206269747320736574207468617420696e74657273 656374207769746820746865207265717569726564206d61696c6572>.15 F 2.204<8d 61677320696e20746865206865616465722064658c6e6974696f6e20696e2073656e646d 61696c2e63662c2074686520686561646572206c696e65206973>203.4 300.6 R F3 <616c77617973>4.703 E F1<64656c657465642e>203.4 312.6 Q 51.13 <485f454f48204966>117 328.8 R .206<7468697320686561646572208c656c642069 73207365742c207472656174206974206c696b>2.705 F 2.706<656162>-.1 G .206< 6c616e6b206c696e652c20692e652e2c2069742077696c6c207369676e616c2074686520 656e64>-2.706 F<6f66207468652068656164657220616e6420746865206265>203.4 340.8 Q<67696e6e696e67206f6620746865206d657373616765207465>-.15 E <78742e>-.15 E 39.45<485f464f52434520416464>117 357 R 2.039 <746869732068656164657220656e7472792065>4.539 F -.15<7665>-.25 G 4.539 <6e69>.15 G 4.539<666f>-4.539 G 2.038<6e652065>-4.539 F 2.038 <78697374656420696e20746865206d657373616765206265666f72652e>-.15 F 2.038 <49662061>7.038 F 2.188 <68656164657220656e74727920646f6573206e6f74206861>203.4 369 R 2.488 -.15 <76652074>-.2 H 2.188<68697320626974207365742c>.15 F F3 <73656e646d61696c>4.688 E F1 2.189 <77696c6c206e6f742061646420616e6f74686572>4.689 F .62<686561646572206c69 6e65206966206120686561646572206c696e65206f662074686973206e616d6520616c72 656164792065>203.4 381 R 3.12<7869737465642e2054686973>-.15 F -.1<776f> 3.12 G .62<756c64206e6f72>.1 F<2d>-.2 E<6d616c6c79206265207573656420746f 207374616d7020746865206d6573736167652062792065>203.4 393 Q -.15<7665> -.25 G<72796f6e652077686f2068616e646c65642069742e>.15 E<485f545241>117 409.2 Q 39.3<4345204966>-.4 F 1.043<7365742c207468697320697320612074696d 657374616d702028747261636529208c656c642e>3.543 F 1.044 <496620746865206e756d626572206f66207472616365208c656c647320696e2061> 6.043 F .706<6d6573736167652065>203.4 421.2 R .705<78636565647320612070 726573657420616d6f756e7420746865206d6573736167652069732072657475726e6564 206f6e2074686520617373756d702d>-.15 F <74696f6e20746861742069742068617320616e20616c696173696e67206c6f6f702e> 203.4 433.2 Q 46.67<485f52435054204966>117 449.4 R .332<7365742c20746869 73208c656c6420636f6e7461696e7320726563697069656e74206164647265737365732e> 2.832 F .332<54686973206973207573656420627920746865>5.332 F F0 2.832 E F1 .333<8d616720746f>2.833 F 1.349<64657465726d696e652077686f20 746f2073656e6420746f207768656e20697420697320636f6c6c656374696e6720726563 697069656e74732066726f6d20746865206d65732d>203.4 461.4 R<736167652e> 203.4 473.4 Q<485f4652>117 489.6 Q 43.74<4f4d2054686973>-.4 F 1.673<8d61 6720696e6469636174657320746861742074686973208c656c642073706563698c657320 612073656e646572>4.173 F 6.674<2e54>-.55 G 1.674 <6865206f72646572206f66207468657365>-6.674 F .898 <8c656c647320696e20746865>203.4 501.6 R F3<486472496e666f>3.398 E F1 .898<7461626c652073706563698c6573>3.398 F F3<73656e646d61696c>3.398 E F1 1.998 -.55<27732070>D .898 <7265666572656e636520666f72207768696368208c656c64>.55 F <746f2072657475726e206572726f72206d6573736167657320746f2e>203.4 513.6 Q <485f455252>117 529.8 Q<4f525354>-.4 E 22.53<4f41>-.18 G<64647265737365 7320696e2074686973206865616465722073686f756c64207265636569>-22.53 E .3 -.15<76652065>-.25 H<72726f72206d657373616765732e>.15 E 52.79 <485f4354452054686973>117 546 R <686561646572206973206120436f6e74656e742d54>2.5 E<72616e73666572>-.35 E <2d456e636f64696e6720686561646572>-.2 E<2e>-.55 E 40.01 <485f43545950452054686973>117 562.2 R <686561646572206973206120436f6e74656e742d54>2.5 E<79706520686561646572> -.8 E<2e>-.55 E 51.67<485f424343205374726970>117 578.4 R<7468652076>2.5 E<616c75652066726f6d20746865206865616465722028666f72204263633a292e>-.25 E<4c657427>117 594.6 Q 2.5<736c>-.55 G<6f6f6b20617420612073616d706c65> -2.5 E F3<486472496e666f>2.5 E F1<73706563698c636174696f6e3a>2.5 E 0 Cg EP %%Page: 101 97 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d313031>190.86 E /F1 10/Times-Roman@0 SF<73747275637420686472696e666f>157 96 Q <486472496e666f5b5d203d>84.6 E<7b>157 108 Q<2f2a206f726967696e61746f7220 8c656c64732c206d6f737420746f206c65617374207369676e698c63616e74>189.5 120 Q<2a2f>5 E 52.29<22726573656e742d73656e646572222c20485f4652>177 132 R <4f4d2c>-.4 E 58.95<22726573656e742d66726f6d222c20485f4652>177 144 R <4f4d2c>-.4 E 79.5<2273656e646572222c20485f4652>177 156 R<4f4d2c>-.4 E 86.16<2266726f6d222c20485f4652>177 168 R<4f4d2c>-.4 E 66.72 <2266756c6c2d6e616d65222c20485f41>177 180 R<434845434b2c>-.4 E 71.17 <226572726f72732d746f222c20485f4652>177 192 R -1.667 <4f4d207c20485f455252>-.4 F<4f525354>-.4 E<4f2c>-.18 E <2f2a2064657374696e6174696f6e208c656c6473202a2f>189.5 204 Q 97.82 <22746f222c20485f52435054>177 216 R<2c>-.74 E 70.61 <22726573656e742d746f222c20485f52435054>177 228 R<2c>-.74 E 96.72 <226363222c20485f52435054>177 240 R<2c>-.74 E 91.72 <22626363222c20485f52435054>177 252 R .833<7c48>.833 G<5f4243432c>-.833 E<2f2a206d657373616765206964656e74698c636174696f6e20616e6420636f6e74726f 6c202a2f>189.5 264 Q 71.72<226d657373616765222c20485f454f482c>177 276 R <227465>177 288 Q 90.75<7874222c20485f454f482c>-.15 F <2f2a207472616365208c656c6473202a2f>189.5 300 Q<227265636569>177 312 Q -.15<7665>-.25 G 72.13<64222c20485f545241>.15 F -1.667 <4345207c20485f464f5243452c>-.4 F <2f2a206d697363656c6c616e656f7573208c656c6473202a2f>189.5 324 Q <22636f6e74656e742d7472616e73666572>177 336 Q 2.5 <2d656e636f64696e67222c20485f4354452c>-.2 F 55.61 <22636f6e74656e742d74797065222c20485f43545950452c>177 348 R 87.1 <4e554c4c2c20302c>177 372 R<7d3b>157 384 Q 2.435<5468697320737472756374 75726520696e64696361746573207468617420746865209954>117 400.2 R 2.435 <6f3a9a2c2099526573656e742d54>-.8 F 2.435<6f3a9a2c20616e64209943633a9a20 8c656c647320616c6c207370656369667920726563697069656e74>-.8 F 3.162 <6164647265737365732e20416e>117 412.2 R 3.162<7999>-.15 G .661<46756c6c 2d4e616d653a9a208c656c642077696c6c2062652064656c6574656420756e6c65737320 746865207265717569726564206d61696c6572208d61672028696e646963617465642069 6e>-3.162 F .245 <74686520636f6e8c6775726174696f6e208c6c65292069732073706563698c65642e> 117 424.2 R .245<54686520994d6573736167653a9a20616e64209954>5.245 F -.15 <6578>-.7 G .246<743a9a208c656c64732077696c6c207465726d696e617465207468 65206865616465723b>.15 F 1.936<7468657365206172652075736564206279207261 6e646f6d2064697373656e746572732061726f756e6420746865206e657477>117 436.2 R 1.936<6f726b2077>-.1 F 4.436<6f726c642e20546865>-.1 F<995265636569> 4.436 E -.15<7665>-.25 G 1.936<643a9a208c656c642077696c6c>.15 F<616c>117 448.2 Q -.1<7761>-.1 G<79732062652061646465642c20616e642063616e20626520 7573656420746f207472616365206d657373616765732e>.1 E .445<54686572652061 72652061206e756d626572206f6620696d706f7274616e7420706f696e74732068657265 2e>142 464.4 R .446<46697273742c20686561646572208c656c647320617265206e6f 74206164646564206175746f6d6174692d>5.446 F .657 <63616c6c79206a757374206265636175736520746865>117 476.4 R 3.157<7961> -.15 G .657<726520696e20746865>-3.157 F/F2 10/Times-Italic@0 SF <486472496e666f>3.157 E F1 .657<7374727563747572653b20746865>3.157 F 3.157<796d>-.15 G .656 <7573742062652073706563698c656420696e2074686520636f6e8c6775726174696f6e> -3.157 F .727<8c6c6520696e206f7264657220746f20626520616464656420746f2074 6865206d6573736167652e>117 488.4 R<416e>5.728 E 3.228<7968>-.15 G .728< 6561646572208c656c6473206d656e74696f6e656420696e2074686520636f6e8c677572 6174696f6e208c6c65>-3.228 F -.2<6275>117 500.4 S 3.24<746e>.2 G .74 <6f74206d656e74696f6e656420696e20746865>-3.24 F F2<486472496e666f>3.24 E F1 .74<737472756374757265206861>3.24 F 1.04 -.15<76652064>-.2 H<6566>.15 E .74<61756c742070726f63657373696e6720706572666f726d65643b20746861742069 732c20746865>-.1 F 3.24<7961>-.15 G<7265>-3.24 E 1.374 <616464656420756e6c65737320746865>117 512.4 R 3.874<7977>-.15 G 1.374 <65726520696e20746865206d65737361676520616c7265616479>-3.874 F 6.375 <2e53>-.65 G 1.375<65636f6e642c20746865>-6.375 F F2<486472496e666f>3.875 E F1 1.375<737472756374757265206f6e6c792073706563698c6573>3.875 F .324< 636c69636865642070726f63657373696e673b206365727461696e206865616465727320 6172652070726f636573736564207370656369616c6c7920627920616420686f6320636f 6465207265>117 524.4 R -.05<6761>-.15 G .324 <72646c657373206f6620746865207374612d>.05 F .48 <7475732073706563698c656420696e>117 536.4 R F2<486472496e666f>2.98 E F1 5.48<2e46>C .481<6f722065>-5.63 F .481<78616d706c652c20746865209953656e 6465723a9a20616e64209946726f6d3a9a208c656c64732061726520616c>-.15 F -.1 <7761>-.1 G .481<7973207363616e6e6564206f6e>.1 F<415250>117 550.4 Q .75 <414e4554206d61696c20746f2064657465726d696e65207468652073656e646572>-.92 F/F3 7/Times-Roman@0 SF<3234>-4 I F1 3.251<3b74>4 K .751<68697320697320 7573656420746f20706572666f726d20746865209972657475726e20746f2073656e6465 729a2066756e632d>-3.251 F 2.977<74696f6e2e20546865>117 562.4 R .476<9946 726f6d3a9a20616e64209946756c6c2d4e616d653a9a208c656c64732061726520757365 6420746f2064657465726d696e65207468652066756c6c206e616d65206f662074686520 73656e646572206966>2.977 F<706f737369626c653b20746869732069732073746f72 656420696e20746865206d6163726f>117 574.4 Q F0<2478>2.5 E F1 <616e64207573656420696e2061206e756d626572206f662077>2.5 E<6179732e>-.1 E F0 2.5<362e332e322e205265737472696374696e67>102 598.4 R <557365206f6620456d61696c>2.5 E F1 .149<4966206974206973206e656365737361 727920746f207265737472696374206d61696c207468726f75676820612072656c6179> 142 614.6 R 2.649<2c74>-.65 G<6865>-2.649 E F2 -.15<6368>2.65 G<6563>.15 E<6b636f6d706174>-.2 E F1 .15 <726f7574696e652063616e206265206d6f64698c65642e>2.65 F .163 <5468697320726f7574696e652069732063616c6c656420666f722065>117 626.6 R -.15<7665>-.25 G .163<727920726563697069656e7420616464726573732e>.15 F .163<49742072657475726e7320616e2065>5.163 F .163 <7869742073746174757320696e6469636174696e672074686520737461747573206f66> -.15 F .895<746865206d6573736167652e>117 638.6 R .895 <54686520737461747573>5.895 F/F4 9/Times-Roman@0 SF<45585f4f4b>3.395 E F1 .895<616363657074732074686520616464726573732c>3.395 F F4 <45585f54454d5046>3.395 E<41494c>-.666 E F1 .895 <71756575657320746865206d65737361676520666f722061>3.395 F .264 <6c6174657220747279>117 650.6 R 2.764<2c61>-.65 G .264 <6e64206f746865722076>-2.764 F .264<616c7565732028636f6d6d6f6e6c79>-.25 F F4<45585f554e>2.764 E -1.215<415641>-.315 G<494c41424c45>1.215 E F1 2.764<2972>C .264<656a65637420746865206d6573736167652e>-2.764 F .263 <497420697320757020746f>5.264 F F2 -.15<6368>2.763 G<6563>.15 E<6b2d>-.2 E<636f6d706174>117 662.6 Q F1 2.477 <746f207072696e7420616e206572726f72206d65737361676520287573696e67>4.977 F F2<757372>4.977 E<657272>-.37 E F1 4.977<2969>C 4.977<6674>-4.977 G 2.477<6865206d6573736167652069732072656a65637465642e>-4.977 F -.15<466f> 7.478 G 4.978<7265>.15 G<78616d706c652c>-5.128 E .32 LW 76 672.2 72 672.2 DL 80 672.2 76 672.2 DL 84 672.2 80 672.2 DL 88 672.2 84 672.2 DL 92 672.2 88 672.2 DL 96 672.2 92 672.2 DL 100 672.2 96 672.2 DL 104 672.2 100 672.2 DL 108 672.2 104 672.2 DL 112 672.2 108 672.2 DL 116 672.2 112 672.2 DL 120 672.2 116 672.2 DL 124 672.2 120 672.2 DL 128 672.2 124 672.2 DL 132 672.2 128 672.2 DL 136 672.2 132 672.2 DL 140 672.2 136 672.2 DL 144 672.2 140 672.2 DL 148 672.2 144 672.2 DL 152 672.2 148 672.2 DL 156 672.2 152 672.2 DL 160 672.2 156 672.2 DL 164 672.2 160 672.2 DL 168 672.2 164 672.2 DL 172 672.2 168 672.2 DL 176 672.2 172 672.2 DL 180 672.2 176 672.2 DL 184 672.2 180 672.2 DL 188 672.2 184 672.2 DL 192 672.2 188 672.2 DL 196 672.2 192 672.2 DL 200 672.2 196 672.2 DL 204 672.2 200 672.2 DL 208 672.2 204 672.2 DL 212 672.2 208 672.2 DL 216 672.2 212 672.2 DL/F5 5/Times-Roman@0 SF<3234> 93.6 682.6 Q/F6 8/Times-Roman@0 SF<41637475616c6c79>3.2 I 2.632<2c74> -.52 G .632<686973206973206e6f206c6f6e676572207472756520696e20534d54503b 207468697320696e666f726d6174696f6e20697320636f6e7461696e656420696e207468 6520656e>-2.632 F -.12<7665>-.32 G 2.631<6c6f70652e20546865>.12 F .631 <6f6c64657220415250>2.631 F .631<414e45542070726f746f636f6c7320646964> -.736 F<6e6f7420636f6d706c6574656c792064697374696e677569736820656e>72 695.4 Q -.12<7665>-.32 G<6c6f70652066726f6d20686561646572>.12 E<2e>-.44 E 0 Cg EP %%Page: 102 98 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 188.36<534d4d3a30382d3130322053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465> 2.5 E/F1 10/Times-Italic@0 SF -.15<6368>117 96 S<6563>.15 E <6b636f6d706174>-.2 E/F2 10/Times-Roman@0 SF<636f756c6420726561643a>2.5 E/F3 9/Times-Roman@0 SF<696e74>157 111 Q <636865636b636f6d70617428746f2c206529>157 121.8 Q<7265>175 132.6 Q <6769737465722041444452455353202a746f3b>-.135 E<7265>175 143.4 Q <67697374657220454e56454c4f5045202a653b>-.135 E<7b>157 154.2 Q<7265>175 165 Q<676973746572205354>-.135 E<4142202a733b>-.837 E 2.25<733d73>175 186.6 S<7461622822707269>-2.25 E -.225<7661>-.225 G <7465222c2053545f4d41494c45522c2053545f46494e44293b>.225 E<696620287320 213d204e554c4c2026262065ad3e655f66726f6d2e715f6d61696c657220213d204c6f63 616c4d61696c6572202626>175 197.4 Q <746f2d3e715f6d61696c6572203d3d20732d3e735f6d61696c657229>184 208.2 Q <7b>175 219 Q<75737265727228224e6f20707269>193 229.8 Q -.225<7661>-.225 G<7465206e6574206d61696c20616c6c6f>.225 E <776564207468726f7567682074686973206d616368696e6522293b>-.225 E <72657475726e202845585f554e>193 240.6 Q -1.215<415641>-.315 G <494c41424c45293b>1.215 E<7d>175 251.4 Q<696620284d736753697a65203e2035 30303030202626206269746e736574284d5f4c4f43414c4d41494c45522c20746fad3e71 5f6d61696c65722929>175 262.2 Q<7b>175 273 Q <75737265727228224d65737361676520746f6f206c6172>193 283.8 Q <676520666f72206e6f6e2d6c6f63616c2064656c69>-.162 E -.135<7665>-.225 G <727922293b>.135 E<65ad3e655f8d616773207c3d2045465f4e4f52455455524e3b> 193 294.6 Q<72657475726e202845585f554e>193 305.4 Q -1.215<415641>-.315 G <494c41424c45293b>1.215 E<7d>175 316.2 Q<72657475726e202845585f4f4b293b> 175 327 Q<7d>157 337.8 Q F2 .97<546869732077>117 354 R .969<6f756c642072 656a656374206d657373616765732067726561746572207468616e203530303030206279 74657320756e6c65737320746865>-.1 F 3.469<7977>-.15 G .969 <657265206c6f63616c2e>-3.469 F<546865>5.969 E F1<45465f4e4f52452d>3.469 E<5455524e>117 366 Q F2 .651<8d61672063616e2062652073657420696e>3.151 F F1<65>3.151 E/F4 10/Symbol SFA F1<655f8d61>A<6773>-.1 E F2 .652<746f 207375707072657373207468652072657475726e206f66207468652061637475616c2062 6f6479206f6620746865206d65737361676520696e>3.152 F .656 <746865206572726f722072657475726e2e>117 378 R .655<5468652061637475616c 20757365206f66207468697320726f7574696e6520697320686967686c7920646570656e 64656e74206f6e2074686520696d706c656d656e746174696f6e2c20616e64>5.656 F <7573652073686f756c64206265206c696d697465642e>117 390 Q F0 2.5 <362e332e332e204e6577>102 414 R <4461746162617365204d617020436c6173736573>2.5 E F2<4e65>142 430.2 Q 2.875<776b>-.25 G .675 -.15<6579206d>-2.975 H .375<6170732063616e206265 206164646564206279206372656174696e67206120636c61737320696e697469616c697a 6174696f6e2066756e6374696f6e20616e642061206c6f6f6b75702066756e632d>.15 F 2.5<74696f6e2e205468657365>117 442.2 R <617265207468656e20616464656420746f2074686520726f7574696e65>2.5 E F1 <73657475706d6170732e>2.5 E F2<54686520696e697469616c697a6174696f6e2066 756e6374696f6e2069732063616c6c6564206173>142 458.4 Q F1<787878>157 474.6 Q F2<5f6d61705f696e6974284d4150202a6d61702c2063686172202a6172>A<677329> -.18 E<546865>117 490.8 Q F1<6d6170>3.28 E F2 .78 <697320616e20696e7465726e616c2064617461207374727563747572652e>3.28 F <546865>5.78 E F1<6172>3.279 E<6773>-.37 E F2 .779<6973206120706f696e74 657220746f2074686520706f7274696f6e206f662074686520636f6e8c6775726174696f 6e>3.279 F .396<8c6c65206c696e6520666f6c6c6f>117 502.8 R .396<77696e6720 746865206d617020636c617373206e616d653b208d61677320616e64208c6c656e616d65 732063616e2062652065>-.25 F .397 <78747261637465642066726f6d2074686973206c696e652e>-.15 F<546865>5.397 E <696e697469616c697a6174696f6e2066756e6374696f6e206d7573742072657475726e> 117 514.8 Q F3<74727565>2.5 E F2 <6966206974207375636365737366756c6c79206f70656e656420746865206d61702c> 2.5 E F3 -.09<6661>2.5 G<6c7365>.09 E F2<6f74686572776973652e>2.5 E <546865206c6f6f6b75702066756e6374696f6e2069732063616c6c6564206173>142 531 Q F1<787878>157 547.2 Q F2 <5f6d61705f6c6f6f6b7570284d4150202a6d61702c20636861722062>A <75665b5d2c2063686172202a2a61>-.2 E 1.3 -.65<762c2069>-.2 H <6e74202a737461747029>.65 E<546865>117 563.4 Q F1<6d6170>2.773 E F2 .273 <64658c6e657320746865206d617020696e7465726e616c6c79>2.773 F 5.273<2e54> -.65 G<6865>-5.273 E F1 -.2<6275>2.773 G<66>.2 E F2 .273 <6861732074686520696e707574206b>2.773 F -.15<6579>-.1 G 5.273<2e54>-.5 G .272<686973206d61792062652028616e64206f6674656e206973292075736564>-5.273 F<646573747275637469>117 575.4 Q -.15<7665>-.25 G<6c79>.15 E 5.151<2e54> -.65 G<6865>-5.151 E F1<6176>2.651 E F2 .151 <69732061206c697374206f66206172>2.651 F .151 <67756d656e74732070617373656420696e2066726f6d20746865207265>-.18 F .152 <7772697465206c696e652e>-.25 F .152 <546865206c6f6f6b75702066756e6374696f6e>5.152 F .322 <73686f756c642072657475726e206120706f696e74657220746f20746865206e65>117 587.4 R 2.822<7776>-.25 G 2.822<616c75652e204966>-3.072 F .322 <746865206d6170206c6f6f6b75702066>2.822 F<61696c732c>-.1 E F1 <2a7374617470>2.822 E F2 .322 <73686f756c642062652073657420746f20616e2065>2.822 F<786974>-.15 E .301 <73746174757320636f64653b20696e20706172746963756c6172>117 599.4 R 2.801 <2c69>-.4 G 2.801<7473>-2.801 G .302<686f756c642062652073657420746f> -2.801 F F3<45585f54454d5046>2.802 E<41494c>-.666 E F2 .302 <6966207265636f>2.802 F -.15<7665>-.15 G .302 <727920697320746f20626520617474656d7074656420627920746865>.15 F <686967686572206c65>117 611.4 Q -.15<7665>-.25 G 2.5<6c63>.15 G <6f64652e>-2.5 E F0 2.5<362e332e342e205175657565696e67>102 635.4 R <46756e6374696f6e>2.5 E F2 .783<54686520726f7574696e65>142 651.6 R F1 <73686f756c647175657565>3.283 E F2 .783<69732063616c6c656420746f20646563 6964652069662061206d6573736167652073686f756c6420626520717565756564206f72 2070726f636573736564>3.283 F<696d6d6564696174656c79>117 663.6 Q 6.618 <2e54>-.65 G 1.618<79706963616c6c79207468697320636f6d706172657320746865 206d657373616765207072696f7269747920746f207468652063757272656e74206c6f61 642061>-7.418 F -.15<7665>-.2 G 4.119<726167652e20546865>.15 F<646566> 117 675.6 Q<61756c742064658c6e6974696f6e2069733a>-.1 E 0 Cg EP %%Page: 103 99 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d313033>190.86 E /F1 10/Times-Roman@0 SF<626f6f6c>157 96 Q <73686f756c647175657565287072692c206374696d6529>157 108 Q <6c6f6e67207072693b>175 120 Q<74696d655f74206374696d653b>175 132 Q<7b> 157 144 Q<6966202843757272656e744c41203c2051756575654c4129>175 156 Q <72657475726e2066>193 168 Q<616c73653b>-.1 E <72657475726e2028707269203e2028517565756546>175 180 Q<6163746f72202f2028 43757272656e744c4120ad2051756575654c41202b20312929293b>-.15 E<7d>157 192 Q 2.063<4966207468652063757272656e74206c6f61642061>117 208.2 R -.15 <7665>-.2 G 2.062<726167652028676c6f62616c2076>.15 F<61726961626c65>-.25 E/F2 10/Times-Italic@0 SF<43757272>4.562 E<656e744c41>-.37 E F1 4.562 <2c77>C 2.062 <6869636820697320736574206265666f726520746869732066756e6374696f6e206973> -4.562 F 1.057<63616c6c656429206973206c657373207468616e20746865206c6f> 117 220.2 R 3.558<7774>-.25 G 1.058<68726573686f6c64206c6f61642061> -3.558 F -.15<7665>-.2 G 1.058<7261676520286f7074696f6e>.15 F F0<78> 3.558 E F1 3.558<2c76>C<61726961626c65>-3.808 E F2<51756575654c41>3.558 E F1<292c>A F2<73686f756c647175657565>3.558 E F1<72657475726e73>117 232.2 Q/F3 9/Times-Roman@0 SF -.09<6661>3.249 G<6c7365>.09 E F1 .749 <696d6d6564696174656c792028746861742069732c2069742073686f756c64>3.249 F F2<6e6f74>3.249 E F1 3.248<7175657565292e204966>3.249 F .748 <7468652063757272656e74206c6f61642061>3.248 F -.15<7665>-.2 G .748 <726167652065>.15 F .748<78636565647320746865>-.15 F 1.418 <68696768207468726573686f6c64206c6f61642061>117 244.2 R -.15<7665>-.2 G 1.418<7261676520286f7074696f6e>.15 F F0<58>3.919 E F1 3.919<2c76>C <61726961626c65>-4.169 E F2<5265667573654c41>3.919 E F1<292c>A F2 <73686f756c647175657565>3.919 E F1<72657475726e73>3.919 E F3<74727565> 3.919 E F1<696d6d6564692d>3.919 E<6174656c79>117 256.2 Q 7.126<2e4f>-.65 G 2.125<74686572776973652c20697420636f6d7075746573207468652066756e637469 6f6e206261736564206f6e20746865206d657373616765207072696f72697479>-7.126 F 4.625<2c74>-.65 G 2.125<68652071756575652066>-4.625 F<6163746f72>-.1 E <286f7074696f6e>117 268.2 Q F0<71>2.5 E F1 2.5<2c67>C<6c6f62616c2076> -2.5 E<61726961626c65>-.25 E F2<517565756546>2.5 E<6163746f72>-.75 E F1< 292c20616e64207468652063757272656e7420616e64207468726573686f6c64206c6f61 642061>A -.15<7665>-.2 G<72616765732e>.15 E 1.066 <416e20696d706c656d656e746174696f6e2077697368696e6720746f2074616b>142 284.4 R 3.566<6574>-.1 G 1.067<68652061637475616c20616765206f6620746865 206d65737361676520696e746f206163636f756e742063616e20616c736f>-3.566 F 1.41<75736520746865>117 296.4 R F2<6374696d65>3.91 E F1 <706172616d65746572>3.91 E 3.91<2c77>-.4 G 1.41 <68696368206973207468652074696d65207468617420746865206d6573736167652077> -3.91 F 1.41<6173208c727374207375626d697474656420746f>-.1 F F2 <73656e646d61696c>3.91 E F1<2e>A .928<4e6f7465207468617420746865>117 308.4 R F2<707269>3.428 E F1 .928<706172616d6574657220697320616c72656164 7920776569676874656420627920746865206e756d626572206f662074696d6573207468 65206d65737361676520686173206265656e>3.428 F .395 <74726965642028616c74686f75676820746869732074656e647320746f206c6f>117 320.4 R .395<77657220746865207072696f72697479206f6620746865206d65737361 676520776974682074696d65293b207468652065>-.25 F .395 <78706563746174696f6e2069732074686174>-.15 F<746865>117 332.4 Q F2 <6374696d65>2.674 E F1 -.1<776f>2.674 G .174<756c6420626520757365642061 7320616e209965736361706520636c617573659a20746f20656e73757265207468617420 6d65737361676573206172652065>.1 F -.15<7665>-.25 G .174 <6e7475616c6c792070726f6365737365642e>.15 F F0 2.5 <362e332e352e205265667573696e67>102 356.4 R <496e636f6d696e6720534d545020436f6e6e656374696f6e73>2.5 E F1 2.063 <5468652066756e6374696f6e>142 372.6 R F2 -.37<7265>4.563 G <66757365636f6e6e656374696f6e73>.37 E F1<72657475726e73>4.563 E F3 <74727565>4.563 E F1 2.062<696620696e636f6d696e6720534d545020636f6e6e65 6374696f6e732073686f756c64206265>4.563 F 3.563<726566757365642e20546865> 117 384.6 R 1.063 <63757272656e7420696d706c656d656e746174696f6e2069732062617365642065> 3.563 F<78636c757369>-.15 E -.15<7665>-.25 G 1.063 <6c79206f6e207468652063757272656e74206c6f61642061>.15 F -.15<7665>-.2 G 1.063<7261676520616e6420746865>.15 F<726566757365206c6f61642061>117 396.6 Q -.15<7665>-.2 G<72616765206f7074696f6e20286f7074696f6e>.15 E F0 <58>2.5 E F1 2.5<2c67>C<6c6f62616c2076>-2.5 E<61726961626c65>-.25 E F2 <5265667573654c41>2.5 E F1<293a>A<626f6f6c>157 412.8 Q <726566757365636f6e6e656374696f6e732829>157 424.8 Q<7b>157 436.8 Q<7265 7475726e20285265667573654c41203e20302026262043757272656e744c41203e3d2052 65667573654c41293b>175 448.8 Q<7d>157 460.8 Q 2.5<416d>117 477 S <6f726520636c65>-2.5 E -.15<7665>-.25 G 2.5<7269>.15 G<6d706c656d656e74 6174696f6e20636f756c64206c6f6f6b206174206d6f72652073797374656d207265736f 75726365732e>-2.5 E F0 2.5<362e332e362e204c6f6164>102 501 R -.6 -1 <41762065>2.5 H<7261676520436f6d7075746174696f6e>1 E F1 .244 <54686520726f7574696e65>142 517.2 R F2 -.1<6765>2.743 G<746c61>.1 E F1 .243<72657475726e73207468652063757272656e74206c6f61642061>2.743 F -.15 <7665>-.2 G .243<7261676520286173206120726f756e64656420696e7465>.15 F 2.743<676572292e20546865>-.15 F<64697374726962>2.743 E<7574696f6e>-.2 E 1.156<696e636c75646573207365>117 529.2 R -.15<7665>-.25 G 1.157 <72616c20706f737369626c6520696d706c656d656e746174696f6e732e>.15 F 1.157 <496620796f752061726520706f7274696e6720746f2061206e65>6.157 F 3.657 <7765>-.25 G -.4<6e76>-3.657 G 1.157<69726f6e6d656e7420796f75206d6179>.4 F<6e65656420746f2061646420736f6d65206e65>117 543.2 Q 2.5<7774>-.25 G <7765616b732e>-2.5 E/F4 7/Times-Roman@0 SF<3235>-4 I F0 2.5 <362e342e20436f6e8c6775726174696f6e>87 567.2 R <696e2073656e646d61696c2f6461656d6f6e2e63>2.5 E F1 .128<546865208c6c65> 127 583.4 R F2<73656e646d61696c2f6461656d6f6e2e63>2.628 E F1 .128<636f6e 7461696e732061206e756d626572206f6620726f7574696e657320746861742061726520 646570656e64656e74206f6e20746865206c6f63616c206e65742d>2.628 F -.1<776f> 102 595.4 S<726b696e6720656e>.1 E 2.5<7669726f6e6d656e742e20546865>-.4 F -.15<7665>2.5 G <7273696f6e20737570706c69656420617373756d657320796f75206861>.15 E .3 -.15<76652042>-.2 H<5344207374796c6520736f636b>.15 E<6574732e>-.1 E 2.16 <496e20707265>127 611.6 R 2.16<76696f75732072656c65617365732c2077652072 65636f6d6d656e646564207468617420796f75206d6f646966792074686520726f757469 6e65>-.25 F F2<6d6170686f73746e616d65>4.66 E F1 2.16<696620796f75>4.66 F -.1<7761>102 623.6 S 1.919<6e74656420746f2067656e6572616c697a65>.1 F F0 <245b>4.418 E F1<2e2e2e>4.418 E F0<245d>4.418 E F1 4.418 <6c6f6f6b7570732e2057>4.418 F 4.418<656e>-.8 G 2.418 -.25<6f772072> -4.418 H 1.918 <65636f6d6d656e64207468617420796f75206372656174652061206e65>.25 F 4.418 <776b>-.25 G -.15<6579>-4.518 G 1.918<6564206d6170>.15 F <696e73746561642e>102 635.6 Q .32 LW 76 678.8 72 678.8 DL 80 678.8 76 678.8 DL 84 678.8 80 678.8 DL 88 678.8 84 678.8 DL 92 678.8 88 678.8 DL 96 678.8 92 678.8 DL 100 678.8 96 678.8 DL 104 678.8 100 678.8 DL 108 678.8 104 678.8 DL 112 678.8 108 678.8 DL 116 678.8 112 678.8 DL 120 678.8 116 678.8 DL 124 678.8 120 678.8 DL 128 678.8 124 678.8 DL 132 678.8 128 678.8 DL 136 678.8 132 678.8 DL 140 678.8 136 678.8 DL 144 678.8 140 678.8 DL 148 678.8 144 678.8 DL 152 678.8 148 678.8 DL 156 678.8 152 678.8 DL 160 678.8 156 678.8 DL 164 678.8 160 678.8 DL 168 678.8 164 678.8 DL 172 678.8 168 678.8 DL 176 678.8 172 678.8 DL 180 678.8 176 678.8 DL 184 678.8 180 678.8 DL 188 678.8 184 678.8 DL 192 678.8 188 678.8 DL 196 678.8 192 678.8 DL 200 678.8 196 678.8 DL 204 678.8 200 678.8 DL 208 678.8 204 678.8 DL 212 678.8 208 678.8 DL 216 678.8 212 678.8 DL/F5 5/Times-Roman@0 SF<3235>93.6 689.2 Q/F6 8 /Times-Roman@0 SF<496620796f7520646f2c20706c656173652073656e642075706461 74657320746f2073656e646d61696c4053656e646d61696c2e4f52472e>3.2 I 0 Cg EP %%Page: 104 100 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 188.36<534d4d3a30382d3130342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465> 2.5 E 2.5<362e352e204c44>87 96 R<4150>-.35 E/F1 10/Times-Roman@0 SF <496e20746869732073656374696f6e20776520617373756d652074686174>127 112.2 Q/F2 10/Times-Italic@0 SF<73656e646d61696c>2.5 E F1<686173206265656e2063 6f6d70696c6564207769746820737570706f727420666f72204c44>2.5 E<4150>-.4 E <2e>-1.11 E F0 2.5<362e352e312e204c44>102 136.2 R <415020526563757273696f6e>-.35 E F1<4c44>142 152.4 Q .349 <415020526563757273696f6e20616c6c6f>-.4 F .349<777320796f7520746f206164 6420747970657320746f207468652073656172636820617474726962>-.25 F .35 <75746573206f6e20616e204c44>-.2 F .35<4150206d61702073706563692d>-.4 F 2.5<8c636174696f6e2e20546865>117 164.4 R<73796e7461782069733a>2.5 E 117 180.6 Q F2 -.37<4154>2.5 G<54524942>.37 E<555445>-.1 E F1 <5b3a>A F2<54595045>A F1<5b3a>A F2<4f424a454354434c415353>A F1<5b7c>A F2 <4f424a454354434c415353>A F1<7c2e2e2e5d5d5d>A<546865206e65>142 196.8 Q <77>-.25 E F2<54595045>2.5 E F1 2.5<7361>C<72653a>-2.5 E 26.17 <4e4f524d414c2054686973>117 213 R<617474726962>3.579 E 1.079 <75746520747970652073706563698c65732074686520617474726962>-.2 F 1.078 <75746520746f2061646420746f2074686520726573756c747320737472696e672e>-.2 F 1.078<54686973206973>6.078 F<74686520646566>189 225 Q<61756c742e>-.1 E 55.06<444e20416e>117 241.2 R 2.821<796d>-.15 G .321 <61746368657320666f72207468697320617474726962>-2.821 F .321 <757465206172652065>-.2 F .321<7870656374656420746f206861>-.15 F .622 -.15<766520612076>-.2 H .322 <616c7565206f6620612066756c6c79207175616c698c6564>-.1 F 1.521 <64697374696e67756973686564206e616d652e>189 253.2 R F2<73656e646d61696c> 6.521 E F1 1.521<77696c6c206c6f6f6b7570207468617420444e20616e6420617070 6c792074686520617474726962>4.021 F<75746573>-.2 E<7265717565737465642074 6f207468652072657475726e656420444e207265636f72642e>189 265.2 Q<46494c> 117 281.4 Q 36.53<54455220416e>-.92 F 2.652<796d>-.15 G .153 <61746368657320666f72207468697320617474726962>-2.652 F .153 <757465206172652065>-.2 F .153<7870656374656420746f206861>-.15 F .453 -.15<766520612076>-.2 H .153<616c7565206f6620616e204c44>-.1 F .153 <415020736561726368>-.4 F<8c6c746572>189 293.4 Q<2e>-.55 E F2 <73656e646d61696c>5.698 E F1 .697<77696c6c20706572666f726d2061206c6f6f6b 75702077697468207468652073616d6520706172616d657465727320617320746865206f 726967692d>3.198 F<6e616c207365617263682062>189 305.4 Q<7574207265706c61 6365732074686520736561726368208c6c746572207769746820746865206f6e65207370 6563698c656420686572652e>-.2 E 49.5<55524c20416e>117 321.6 R 2.87<796d> -.15 G .37<61746368657320666f72207468697320617474726962>-2.87 F .37 <757465206172652065>-.2 F .37<7870656374656420746f206861>-.15 F .67 -.15 <766520612076>-.2 H .37<616c7565206f6620616e204c44>-.1 F .37 <41502055524c2e>-.4 F F2<73656e646d61696c>189 333.6 Q F1 1.947<77696c6c 20706572666f726d2061206c6f6f6b7570206f6620746861742055524c20616e64207573 652074686520726573756c74732066726f6d20746865>4.447 F<617474726962>189 345.6 Q .389<75746573206e616d656420696e20746861742055524c2e>-.2 F .389 <4e6f746520686f>5.389 F<7765>-.25 E -.15<7665>-.25 G 2.889<7274>.15 G .389<686174207468652073656172636820697320646f6e65207573696e6720746865> -2.889 F 2.622<63757272656e74204c44>189 357.6 R 2.622 <415020636f6e6e656374696f6e2c207265>-.4 F -.05<6761>-.15 G 2.622<72646c 657373206f6620776861742069732073706563698c65642061732074686520736368656d 652c>.05 F<4c44>189 369.6 Q<415020686f73742c20616e64204c44>-.4 E <415020706f727420696e20746865204c44>-.4 E<41502055524c2e>-.4 E<416e>117 385.8 Q 2.5<7975>-.15 G<6e747970656420617474726962>-2.5 E <757465732061726520636f6e73696465726564>-.2 E/F3 9/Times-Roman@0 SF <4e4f524d414c>2.5 E F1<617474726962>2.5 E <75746573206173206465736372696265642061626f>-.2 E -.15<7665>-.15 G<2e> .15 E .91<546865206f7074696f6e616c>142 402 R F2<4f424a454354434c415353> 3.41 E F1 .91<287c2073657061726174656429206c69737420636f6e7461696e732074 6865206f626a656374436c6173732076>3.41 F .91 <616c75657320666f72207768696368>-.25 F 1.399<7468617420617474726962>117 414 R 1.399<757465206170706c6965732e>-.2 F 1.399 <496620746865206c697374206973206769>6.399 F -.15<7665>-.25 G 1.399 <6e2c2074686520617474726962>.15 F 1.399<757465206e616d65642077696c6c206f 6e6c79206265207573656420696620746865204c44>-.2 F<4150>-.4 E 1.111<726563 6f7264206265696e672072657475726e65642069732061206d656d626572206f66207468 6174206f626a65637420636c6173732e>117 426 R 1.111 <4e6f74652074686174206966207468657365206e65>6.111 F 3.612<7776>-.25 G 1.112<616c756520617474726962>-3.862 F<757465>-.2 E F2<54595045>117 438 Q F1 2.937<7361>C .436<7265207573656420696e20616e20416c69617346696c65206f 7074696f6e2073657474696e672c2069742077696c6c206e65656420746f20626520646f 75626c652071756f74656420746f20707265>-2.937 F -.15<7665>-.25 G<6e74>.15 E F2<73656e642d>2.936 E<6d61696c>117 450 Q F1 <66726f6d206d697370617273696e672074686520636f6c6f6e732e>2.5 E .257 <4e6f74652074686174204c44>142 466.2 R .257 <415020726563757273696f6e20617474726962>-.4 F .257<75746573207768696368 20646f206e6f7420756c74696d6174656c7920706f696e7420746f20616e204c44>-.2 F .258<4150207265636f726420617265>-.4 F <6e6f7420636f6e7369646572656420616e206572726f72>117 478.2 Q<2e>-.55 E F0 2.5<362e352e312e312e204578616d706c65>117 502.2 R F1 .218<53696e63652065> 157 518.4 R .218 <78616d706c657320757375616c6c792068656c7020636c6172696679>-.15 F 2.718 <2c68>-.65 G .218<65726520697320616e2065>-2.718 F .218<78616d706c652077 68696368207573657320616c6c20666f7572206f6620746865206e65>-.15 F<77>-.25 E<74797065733a>132 530.4 Q 2.5<4f4c>172 546.6 S -.4<4441>-2.5 G <50446566>.4 E<61756c74537065633d2d68206c6461702e65>-.1 E <78616d706c652e636f6d202d622064633d65>-.15 E<78616d706c652c64633d636f6d> -.15 E -2.15 -.25<4b652078>172 570.6 T<616d706c65206c646170>.25 E <2d7a2c>194.5 582.6 Q <2d6b202826286f626a656374436c6173733d73656e646d61696c4d54>194.5 594.6 Q <41416c6961734f626a656374292873656e646d61696c4d54>-.93 E<414b>-.93 E -.15<6579>-.25 G<3d25302929>.15 E<2d762073656e646d61696c4d54>194.5 606.6 Q<41416c69617356>-.93 E<616c75652c6d61696c3a4e4f524d414c3a696e65744f72> -1.11 E<67506572736f6e2c>-.18 E <756e697175654d656d6265723a444e3a67726f75704f66556e697175654e616d65732c> 202 618.6 Q<73656e646d61696c4d54>202 630.6 Q <41416c6961735365617263683a46494c>-.93 E<5445523a73656e646d61696c4d54> -.92 E<41416c6961734f626a6563742c>-.93 E<73656e646d61696c4d54>202 642.6 Q<41416c69617355524c3a55524c3a73656e646d61696c4d54>-.93 E <41416c6961734f626a656374>-.93 E <546861742064658c6e6974696f6e2073706563698c657320746861743a>157 663 Q 5 <8341>137 679.2 S .951 -.15<6e792076>-5 H .651<616c756520696e2061>-.1 F F3<73656e646d61696c4d54>3.151 E<41416c69617356>-.837 E<616c7565>-.999 E F1<617474726962>3.151 E .652<7574652077696c6c20626520616464656420746f20 74686520726573756c7420737472696e67207265>-.2 F -.05<6761>-.15 G<72642d> .05 E<6c657373206f66206f626a65637420636c6173732e>145.5 691.2 Q 5<8354> 137 703.2 S<6865>-5 E F3<6d61696c>2.552 E F1<617474726962>2.552 E .052< 7574652077696c6c20626520616464656420746f2074686520726573756c742073747269 6e6720696620746865204c44>-.2 F .051 <4150207265636f72642069732061206d656d626572206f6620746865>-.4 F F3 <696e65744f72>145.5 715.2 Q<67506572736f6e>-.162 E F1 <6f626a65637420636c6173732e>2.5 E 0 Cg EP %%Page: 105 101 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d313035>190.86 E /F1 10/Times-Roman@0 SF 5<8354>137 96 S<6865>-5 E/F2 9/Times-Roman@0 SF <756e697175654d656d626572>4.596 E F1<617474726962>4.597 E 2.097 <75746520697320612072656375727369>-.2 F 2.397 -.15<76652061>-.25 H <7474726962>.15 E 2.097<7574652c2075736564206f6e6c7920696e>-.2 F F2 <67726f75704f66556e697175654e616d6573>4.597 E F1 .55 <7265636f7264732c20616e642073686f756c6420636f6e7461696e20616e204c44> 145.5 108 R .549 <415020444e20706f696e74696e6720746f20616e6f74686572204c44>-.4 F .549 <4150207265636f72642e>-.4 F .549<54686520646573697265>5.549 F <6865726520697320746f2072657475726e20746865>145.5 120 Q F2<6d61696c>2.5 E F1<617474726962>2.5 E<7574652066726f6d2074686f736520444e732e>-.2 E 5 <8354>137 132 S<6865>-5 E F2<73656e646d61696c4d54>4.373 E <41416c696173536561726368>-.837 E F1<617474726962>4.373 E 1.873 <75746520616e64>-.2 F F2<73656e646d61696c4d54>4.374 E <41416c69617355524c>-.837 E F1 1.874 <61726520626f74682075736564206f6e6c79206966>4.374 F 2.084 <7265666572656e63656420696e2061>145.5 144 R F2<73656e646d61696c4d54> 4.584 E<41416c6961734f626a656374>-.837 E F1 7.084<2e54>C<6865>-7.084 E 4.584<7961>-.15 G 2.084<726520626f74682072656375727369>-4.584 F -.15 <7665>-.25 G 4.584<2c74>.15 G 2.084<6865208c72737420666f722061206e65> -4.584 F<77>-.25 E<4c44>145.5 156 Q<41502073656172636820737472696e672061 6e6420746865206c617474657220666f7220616e204c44>-.4 E<41502055524c2e>-.4 E F0 2.5<362e362e205354>87 180 R<4152>-.9 E<54544c53>-.4 E F1 .47 <496e20746869732073656374696f6e20776520617373756d652074686174>127 196.2 R/F3 10/Times-Italic@0 SF<73656e646d61696c>2.97 E F1 .47<68617320626565 6e20636f6d70696c6564207769746820737570706f727420666f72205354>2.97 F <4152>-.93 E 2.97<54544c532e2054>-.6 F<6f>-.8 E .609 <70726f7065726c7920756e6465727374616e642074686520757365206f66205354>102 208.2 R<4152>-.93 E .609<54544c5320696e>-.6 F F3<73656e646d61696c>3.109 E F1 3.109<2c69>C 3.109<7469>-3.109 G 3.109<736e>-3.109 G .608<65636573 7361727920746f20756e6465727374616e64206174206c6561737420736f6d65>-3.109 F 1.855<6261736963732061626f757420582e3530392063657274698c63617465732061 6e64207075626c6963206b>102 220.2 R 2.155 -.15<65792063>-.1 H <727970746f6772617068>.15 E 5.655 -.65<792e2054>-.05 H 1.856 <68697320696e666f726d6174696f6e2063616e20626520666f756e6420696e>.65 F<62 6f6f6b732061626f75742053534c2f544c53206f72206f6e205757572073697465732c20 652e672e2c209968747470733a2f2f777777>102 232.2 Q<2e4f70656e53534c2e6f72> -.65 E<672f9a2e>-.18 E F0 2.5<362e362e312e2043657274698c6361746573>102 256.2 R -.25<666f>2.5 G 2.5<7253>.25 G -.9<5441>-2.5 G -.4<5254>.9 G <544c53>.4 E F1 .438<5768656e20616374696e6720617320612073657276>142 272.4 R<6572>-.15 E<2c>-.4 E F3<73656e646d61696c>2.938 E F1 .437<726571 756972657320582e3530392063657274698c636174657320746f20737570706f72742053 54>2.938 F<4152>-.93 E .437<54544c533a206f6e65>-.6 F 1.45 <61732063657274698c6361746520666f72207468652073657276>117 284.4 R 1.45 <6572202853657276>-.15 F 1.45 <65724365727446696c6520616e6420636f72726573706f6e64696e6720707269>-.15 F -.25<7661>-.25 G 1.45<74652053657276>.25 F<65724b>-.15 E -.15<6579>-.25 G 1.45<46696c6529206174206c65617374>.15 F .245 <6f6e6520726f6f7420434120284341>117 296.4 R .244<4365727446696c65292c20 692e652e2c20612063657274698c636174652074686174206973207573656420746f2073 69676e206f746865722063657274698c63617465732c20616e642061207061746820746f 2061>-.4 F .766<6469726563746f727920776869636820636f6e7461696e7320287a65 726f206f72206d6f726529206f746865722043417320284341>117 308.4 R <4365727450>-.4 E 3.266<617468292e20546865>-.15 F .767 <8c6c652073706563698c656420766961204341>3.266 F<432d>-.4 E 1.555 <65727446696c652063616e20636f6e7461696e207365>117 320.4 R -.15<7665>-.25 G 1.555<72616c2063657274698c6361746573206f66204341732e>.15 F 1.554<5468 6520444e73206f662074686573652063657274698c6361746573206172652073656e7420 746f20746865>6.555 F .033 <636c69656e7420647572696e672074686520544c532068616e647368616b>117 332.4 R 2.533<6528>-.1 G .033<61732070617274206f66207468652043657274698c636174 65526571756573742920617320746865206c697374206f662061636365707461626c6520 4341732e>-2.533 F<486f>117 344.4 Q<7765>-.25 E -.15<7665>-.25 G .8 -.4 <722c2064>.15 H 2.5<6f6e>.4 G<6f74206c69737420746f6f206d616e>-2.5 E 2.5 <7972>-.15 G<6f6f742043417320696e2074686174208c6c652c206f74686572776973 652074686520544c532068616e647368616b>-2.5 E 2.5<656d>-.1 G<61792066>-2.5 E<61696c3b20652e672e2c>-.1 E<6572726f723a31343039343431373a53534c20726f 7574696e65733a53534c335f524541445f42595445533a>157 360.6 Q <73736c763320616c65727420696c6c65>157 372.6 Q -.05<6761>-.15 G 2.5<6c70> .05 G<6172616d657465723a73335f706b742e633a3936343a53534c20616c657274206e 756d626572203437>-2.5 E -1.1<596f>117 388.8 S 3.074<7573>1.1 G .574<686f 756c642070726f6261626c7920707574206f6e6c7920746865204341206365727420696e 746f2074686174208c6c652074686174207369676e656420796f7572206f>-3.074 F .574<776e20636572742873292c206f72206174206c65617374>-.25 F .542 <6f6e6c792074686f736520796f752074727573742e>117 400.8 R .543 <546865204341>5.543 F<4365727450>-.4 E .543<617468206469726563746f727920 6d75737420636f6e7461696e2074686520686173686573206f6620656163682043412063 657274698c63617465>-.15 F 1.585 <6173208c6c656e616d657320286f72206173206c696e6b7320746f207468656d292e> 117 412.8 R 1.584<53796d626f6c6963206c696e6b732063616e2062652067656e6572 6174656420776974682074686520666f6c6c6f>6.585 F 1.584<77696e67207477>-.25 F<6f>-.1 E<28426f75726e6529207368656c6c20636f6d6d616e64733a>117 424.8 Q <433d46696c654e616d655f6f665f43415f43657274698c63617465>157 441 Q<6c6e20 2d7320244320606f70656e73736c2078353039202d6e6f6f7574202d68617368203c2024 43602e30>157 453 Q 2.669<4162>117 469.2 S .169<65747465722077>-2.669 F .169<617920746f20646f207468697320697320746f2075736520746865>-.1 F F0 <635f72>2.669 E<6568617368>-.18 E F1 .17<636f6d6d616e642074686174206973 2070617274206f6620746865204f70656e53534c2064697374726962>2.67 F <7574696f6e>-.2 E .801<626563617573652069742068616e646c6573207375626a65 6374206861736820636f6c6c6973696f6e7320627920696e6372656d656e74696e672074 6865206e756d62657220696e2074686520737566>117 481.2 R .8 <8c78206f6620746865208c6c652d>-.25 F 1.132 <6e616d65206f66207468652073796d626f6c6963206c696e6b2c20652e672e2c>117 493.2 R F0<2e30>3.632 E F1<746f>3.632 E F0<2e31>3.632 E F1 3.632<2c61>C 1.132<6e6420736f206f6e2e>-3.632 F 1.133<416e20582e3530392063657274698c63 61746520697320616c736f20726571756972656420666f72>6.132 F 1.527<61757468 656e7469636174696f6e20696e20636c69656e74206d6f64652028436c69656e74436572 7446696c6520616e6420636f72726573706f6e64696e6720707269>117 505.2 R -.25 <7661>-.25 G 1.526<746520436c69656e744b>.25 F -.15<6579>-.25 G 1.526 <46696c65292c20686f>.15 F<772d>-.25 E -2.15 -.25<65762065>117 517.2 T -.4<722c>.25 G F3<73656e646d61696c>3.221 E F1 .321<77696c6c20616c>2.821 F -.1<7761>-.1 G .321<797320757365205354>.1 F<4152>-.93 E .321 <54544c53207768656e206f66>-.6 F .321<666572656420627920612073657276>-.25 F<6572>-.15 E 5.322<2e54>-.55 G .322 <686520636c69656e7420616e642073657276>-5.322 F .322<657220636572>-.15 F <2d>-.2 E .03<74698c63617465732063616e206265206964656e746963616c2e>117 529.2 R .03<43657274698c63617465732063616e206265206f627461696e6564206672 6f6d20612063657274698c6361746520617574686f72697479206f722063726561746564 2077697468>5.03 F .868<7468652068656c70206f66204f70656e53534c2e>117 541.2 R .869<54686520726571756972656420666f726d617420666f72206365727469 8c636174657320616e6420707269>5.868 F -.25<7661>-.25 G .869<7465206b>.25 F -.15<6579>-.1 G 3.369<7369>.15 G 3.369<7350>-3.369 G 3.369<454d2e2054> -3.369 F 3.369<6f61>-.8 G<6c6c6f>-3.369 E<77>-.25 E 1.124<666f7220617574 6f6d617469632073746172747570206f662073656e646d61696c2c20707269>117 553.2 R -.25<7661>-.25 G 1.124<7465206b>.25 F -.15<6579>-.1 G 3.624<7328>.15 G <53657276>-3.624 E<65724b>-.15 E -.15<6579>-.25 G 1.123 <46696c652c20436c69656e744b>.15 F -.15<6579>-.25 G 1.123 <46696c6529206d7573742062652073746f726564>.15 F 3.04 <756e656e637279707465642e20546865>117 565.2 R -.1<6b65>3.04 G .54<797320 617265206f6e6c792070726f74656374656420627920746865207065726d697373696f6e 73206f6620746865208c6c652073797374656d2e>-.05 F<4e65>5.54 E -.15<7665> -.25 G 3.04<726d>.15 G<616b>-3.04 E 3.04<6561>-.1 G<707269>117 577.2 Q -.25<7661>-.25 G<7465206b>.25 E .3 -.15<65792061>-.1 H -.25<7661>-.05 G <696c61626c6520746f2061207468697264207061727479>.25 E<2e>-.65 E .954 <546865206f7074696f6e73>142 593.4 R F3<436c69656e744365727446>3.454 E <696c65>-.45 E F1<2c>A F3<436c69656e744b>3.454 E -.3<6579>-.35 G -.45 <4669>.3 G<6c65>.45 E F1<2c>A F3<5365727665724365727446>3.453 E<696c65> -.45 E F1 3.453<2c61>C<6e64>-3.453 E F3<5365727665724b>3.453 E -.3<6579> -.35 G -.45<4669>.3 G<6c65>.45 E F1 .953<63616e2074616b>3.453 F 3.453 <6561>-.1 G .946<7365636f6e64208c6c65206e616d652c207768696368206d757374 206265207365706172617465642066726f6d20746865208c727374207769746820612063 6f6d6d6120286e6f74653a20646f206e6f742075736520616e>117 605.4 R<79>-.15 E .658<7370616365732920746f207365742075702061207365636f6e6420636572742f6b> 117 617.4 R .957 -.15<65792070>-.1 H<616972>.15 E 5.657<2e54>-.55 G .657 <6869732063616e206265207573656420746f206861>-5.657 F .957 -.15<76652063> -.2 H .657<65727473206f6620646966>.15 F .657 <666572656e742074797065732c20652e672e2c>-.25 F<52534120616e64204453412e> 117 629.4 Q F0 2.5<362e362e322e2050524e47>102 653.4 R -.25<666f>2.5 G 2.5<7253>.25 G -.9<5441>-2.5 G -.4<5254>.9 G<544c53>.4 E F1<5354>142 669.6 Q<4152>-.93 E .504<54544c532072657175697265732061207374726f6e6720 70736575646f2072616e646f6d206e756d6265722067656e657261746f72202850524e47 2920746f206f7065726174652070726f702d>-.6 F<65726c79>117 681.6 Q 5.056 <2e44>-.65 G .056<6570656e64696e67206f6e2074686520544c53206c696272617279 20796f75207573652c206974206d617920626520726571756972656420746f2065> -5.056 F .055 <78706c696369746c7920696e697469616c697a65207468652050524e47>-.15 F 1.154 <776974682072616e646f6d20646174612e>117 693.6 R 1.154 <4f70656e53534c206d616b>6.154 F 1.154<657320757365206f66>-.1 F F0 <2f6465>3.654 E<762f7572616e646f6d283429>-.15 E F1 1.154<69662061>3.654 F -.25<7661>-.2 G 1.155 <696c61626c6520287468697320636f72726573706f6e647320746f>.25 F 1.443 <74686520636f6d70696c65208d6167204841535552414e444f4d444556292e>117 705.6 R 1.442<4f6e2073797374656d73207768696368206c61636b2074686973207375 70706f72742c20612072616e646f6d208c6c65>6.443 F .223 <6d7573742062652073706563698c656420696e20746865>117 717.6 R F3 <73656e646d61696c2e6366>2.723 E F1 .223 <8c6c65207573696e6720746865206f7074696f6e2052616e6446696c652e>2.723 F .223<4974206973>5.223 F F0<737472>2.723 E<6f6e676c79>-.18 E F1 .224 <6164766973656420746f20757365>2.723 F 0 Cg EP %%Page: 106 102 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 188.36<534d4d3a30382d3130362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465> 2.5 E/F1 10/Times-Roman@0 SF .873<7468652022456e74726f70>117 96 R 3.373 <7947>-.1 G .872 <6174686572696e67204461656d6f6e22204547442066726f6d20427269616e2057> -3.373 F .872 <61726e6572206f6e2074686f73652073797374656d7320746f2070726f>-.8 F .872 <766964652075736566756c>-.15 F 1.413<72616e646f6d20646174612e>117 108 R 1.413<496e207468697320636173652c>6.413 F/F2 10/Times-Italic@0 SF <73656e646d61696c>3.913 E F1 1.414<6d75737420626520636f6d70696c65642077 69746820746865208d6167204547442c20616e64207468652052616e6446696c65>3.913 F .732 <6f7074696f6e206d75737420706f696e7420746f207468652045474420736f636b>117 120 R 3.231<65742e204966>-.1 F<6e656974686572>3.231 E F0<2f6465>3.231 E <762f7572616e646f6d283429>-.15 E F1 .731<6e6f7220454744206172652061> 3.231 F -.25<7661>-.2 G .731<696c61626c652c20796f75>.25 F<6861>117 132 Q .473 -.15<76652074>-.2 H 2.673<6f6d>.15 G<616b>-2.673 E 2.674<6573>-.1 G .174<75726520746861742075736566756c2072616e646f6d20646174612069732061> -2.674 F -.25<7661>-.2 G .174 <696c61626c6520616c6c207468652074696d6520696e2052616e6446696c652e>.25 F .174<496620746865208c6c65206861736e27>5.174 F<74>-.18 E .39<6265656e206d 6f64698c656420696e20746865206c617374203130206d696e75746573206265666f7265 20697420697320737570706f73656420746f2062652075736564206279>117 144 R F2 <73656e646d61696c>2.89 E F1 .39<74686520636f6e74656e74206973>2.89 F <636f6e73696465726564206f62736f6c6574652e>117 156 Q<4f6e65206d6574686f64 20666f722067656e65726174696e672074686973208c6c652069733a>5 E<6f70656e73 736c2072616e64202d6f7574202f6574632f6d61696c2f72616e648c6c65202d72616e64> 157 172.2 Q F2<2f706174682f746f2f8c6c653a2e2e2e>2.5 E F1<323536>A .32<53 656520746865204f70656e53534c20646f63756d656e746174696f6e20666f72206d6f72 6520696e666f726d6174696f6e2e>117 188.4 R .321<496e207468697320636173652c 207468652050524e4720666f7220544c53206973206f6e6c79>5.321 F .957<73656564 65642077697468206f746865722072616e646f6d206461746120696620746865>117 200.4 R F0<446f6e74426c616d6553656e646d61696c>3.456 E F1<6f7074696f6e> 3.456 E F0<496e7375668c6369656e74456e7472>3.456 E<6f7079>-.18 E F1 .956 <6973207365742e>3.456 F<54686973206973206d6f7374206c696b>117 212.4 Q <656c79206e6f7420737566>-.1 E<8c6369656e7420666f72206365727461696e206163 74696f6e732c20652e672e2c2067656e65726174696f6e206f66202874656d706f726172 7929206b>-.25 E -.15<6579>-.1 G<732e>.15 E .051<506c65617365207365652074 6865204f70656e53534c20646f63756d656e746174696f6e206f72206f7468657220736f 757263657320666f72206675727468657220696e666f726d6174696f6e2061626f757420 636572>142 228.6 R<2d>-.2 E 1.064<74698c63617465732c20746865697220637265 6174696f6e20616e642074686569722075736167652c2074686520696d706f7274616e63 65206f66206120676f6f642050524e472c20616e64206f74686572206173706563747320 6f66>117 240.6 R<544c532e>117 252.6 Q F0 2.5<362e372e20456e636f64696e67> 87 276.6 R<6f66205354>2.5 E<4152>-.9 E<54544c5320616e642041>-.4 E <5554482072>-.5 E<656c61746564204d616372>-.18 E<6f73>-.18 E F1 .692 <4d6163726f73207468617420636f6e7461696e205354>127 292.8 R<4152>-.93 E .692<54544c5320616e642041>-.6 F .693<5554482072656c61746564206461746120 776869636820636f6d65732066726f6d206f75747369646520736f75726365732c>-.55 F .809<652e672e2c20616c6c206d6163726f7320636f6e7461696e696e6720696e666f 726d6174696f6e2066726f6d2063657274698c63617465732c2061726520656e636f6465 6420746f2061>102 304.8 R -.2<766f>-.2 G .809 <69642070726f626c656d732077697468206e6f6e2d>.2 F .192 <7072696e7461626c65206f72207370656369616c20636861726163746572732e>102 316.8 R .192<546865206c61747465722061726520275c272c20273c272c20273e272c 202728272c202729272c202722272c20272b272c20616e64202720272e>5.192 F .193 <416c6c206f662074686573652063686172>5.193 F<2d>-.2 E <61637465727320617265207265706c616365642062792074686569722076>102 328.8 Q<616c756520696e206865>-.25 E <7861646563696d616c20776974682061206c656164696e6720272b272e>-.15 E -.15 <466f>5 G 2.5<7265>.15 G<78616d706c653a>-2.65 E <2f433d55532f53543d43616c69666f726e69612f4f3d656e646d61696c2e6f72>142 345 Q<672f4f553d707269>-.18 E -.25<7661>-.25 G <74652f434e3d4461727468204d61696c202843657274292f>.25 E <456d61696c3d64617274682b6365727440656e646d61696c2e6f72>142 357 Q<67> -.18 E<697320656e636f6465642061733a>102 373.2 Q <2f433d55532f53543d43616c69666f726e69612f4f3d656e646d61696c2e6f72>142 389.4 Q<672f4f553d707269>-.18 E -.25<7661>-.25 G<74652f>.25 E<434e3d4461 7274682b32304d61696c2b32302b3238436572742b32392f456d61696c3d64617274682b 32426365727440656e646d61696c2e6f72>142 401.4 Q<67>-.18 E .516 <286c696e6520627265616b73206861>102 417.6 R .816 -.15<76652062>-.2 H .516<65656e20696e73657274656420666f7220726561646162696c697479292e>.15 F .515<546865206d6163726f7320776869636820617265207375626a65637420746f2074 68697320656e636f64696e6720617265>5.515 F 6.827<7b636572745f7375626a6563 747d2c207b636572745f6973737565727d2c207b636e5f7375626a6563747d2c207b636e 5f6973737565727d2c2061732077656c6c206173207b617574685f61757468656e7d2061 6e64>102 429.6 R<7b617574685f617574686f727d2e>102 441.6 Q F0 2.5 <362e382e2044>87 465.6 R<414e45>-.35 E F1 .303 <537570706f727420666f722044>127 481.8 R .303 <414e4520287365652052464320373637322065742e616c2e29>-.4 F .303<69732061> 5.303 F -.25<7661>-.2 G .303<696c61626c65206966>.25 F F2 <73656e646d61696c>2.803 E F1 .302 <697320636f6d70696c6564207769746820746865206f7074696f6e>2.802 F F0 -.35 <4441>102 493.8 S<4e45>.35 E F1 6.19<2e49>C 3.69<664f>-6.19 G 1.191<7065 6e53534c20312e312e31206f72206174206c6561737420332e302e302061726520757365 642c207468656e2066756c6c2044>-3.69 F 1.191 <414e4520737570706f727420666f722044>-.4 F 1.191<414e452d454520616e64>-.4 F -.4<4441>102 505.8 S<4e452d54>.4 E 3.737<4128>-.93 G 1.237 <6173207265717569726564206279205246432037363732292069732061>-3.737 F -.25<7661>-.2 G 1.236 <696c61626c6520766961207468652066756e6374696f6e732070726f>.25 F 1.236 <76696465642062792074686f7365204f70656e53534c>-.15 F -.15<7665>102 517.8 S<7273696f6e73202872756e>.15 E <73656e646d61696c202d6274202d64302e33203c202f6465>142 534 Q <762f6e756c6c>-.25 E 1.139<616e6420636865636b2074686174204841>102 550.2 R 1.139<56455f53534c5f4354585f64616e655f656e61626c6520697320696e20746865 206f7574707574292c206f746865727769736520737570706f727420666f7220544c5341 205252>-1.35 F .969 <332d312d7820697320696d706c656d656e746564206469726563746c7920696e>102 562.2 R F2<73656e646d61696c>3.469 E F1 5.969<2e4e>C .968<6f74653a206966 204f70656e53534c2066756e6374696f6e732072656c6174656420746f2044>-5.969 F .968<414e452063617573652061>-.4 F -.1<6661>102 574.2 S .798 <696c7572652c207468656e20746865206d6163726f>.1 F F0<247b76>3.298 E <65726966797d>-.1 E F1 .798<69732073657420746f>3.298 F F0 -.35<4441> 3.298 G<4e455f54454d50>.35 E F1 5.798<2e54>C .798<68697320616c736f206170 706c69657320696620544c532063616e6e6f7420626520696e692d>-5.798 F <7469616c697a656420617420616c6c2e>102 586.2 Q<546865206f7074696f6e>5 E 2.5<4f44>142 602.4 S<414e453d74727565>-2.9 E<656e61626c6573207468697320 666561747572652061742072756e2074696d6520616e64206974206175746f6d61746963 616c6c792061646473>102 618.6 Q F0<7573655f646e73736563>2.5 E F1<616e64> 2.5 E F0<7573655f65646e7330>2.5 E F1<746f>2.5 E 2.5<4f52>142 634.8 S <65736f6c76>-2.5 E<65724f7074696f6e73>-.15 E .804 <54686973207265717569726573206120444e535345432d76>102 651 R .804 <616c69646174696e672072656375727369>-.25 F 1.104 -.15<76652072>-.25 H <65736f6c76>.15 E .804 <657220776869636820737570706f7274732074686f7365206f7074696f6e732e>-.15 F .803<546865207265736f6c76>5.803 F<6572>-.15 E<6d757374206265207265616368 61626c65207669612061207472757374656420636f6e6e656374696f6e2c2068656e6365 206974206973206265737420746f2072756e206974206c6f63616c6c79>102 663 Q<2e> -.65 E 2.621<49662074686520636c69656e74208c6e6473206120757361626c652054 4c534120525220616e642074686520636865636b20737563636565647320746865206d61 63726f>102 687 R F0<247b76>5.121 E<65726966797d>-.1 E F1 2.622 <69732073657420746f>5.122 F F0<5452>102 699 Q<5553544544>-.3 E F1 5.834 <2e41>C .834 <6c6c206e6f6e2d444e53206d6170732061726520636f6e73696465726564>-5.834 F F2<7365637572>3.334 E<65>-.37 E F1 .834<6a757374206c696b>3.334 F 3.334 <6544>-.1 G .834<4e53206c6f6f6b757073207769746820444e535345432e>-3.334 F <4265>5.833 E -2.3 -.15<61772061>102 711 T <7265207468617420544c53412052527320617265206e6f74206c6f6f6b>.15 E <656420757020666f7220736f6d652066656174757265732c20652e672e2c>-.1 E F2 -.75<4661>2.5 G<6c6c426163>.75 E<6b536d617274486f7374>-.2 E F1<2e>A 0 Cg EP %%Page: 107 103 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d313037>190.86 E 2.5<362e392e20454149>87 96 R/F1 10/Times-Roman@0 SF .323<4578706572696d 656e74616c20737570706f727420666f7220534d54505554463820284541492c20736565 2052464320363533302d36353333292069732061>127 112.2 R -.25<7661>-.2 G .324<696c61626c65207768656e2074686520636f6d2d>.25 F 2.413 <70696c652074696d65206f7074696f6e>102 124.2 R F0<5553455f4541492c>4.913 E F1 2.413<2873656520616c736f>4.913 F/F2 10/Times-Italic@0 SF<6465>4.913 E<76746f6f6c732f536974652f73697465>-.15 E<2e636f6e8c67>-.15 E <2e6d342e73616d706c65>-.15 E F1 2.413 <666f72206f746865722073657474696e67732074686174>4.913 F 2.14 <6d69676874206265206e6565646564292c20616e6420746865206366206f7074696f6e> 102 136.2 R F2<534d545055544638>4.641 E F1 2.141<61726520757365642e> 4.641 F 2.141<5468697320616c6c6f>7.141 F 2.141 <77732074686520757365206f66205554462d3820666f72>-.25 F<656e>102 148.2 Q -.15<7665>-.4 G .602<6c6f7065206164647265737365732061732077656c6c206173 2074686520656e74697265206d6573736167652e>.15 F .601<444e53206c6f6f6b7570 732061726520646f6e65207573696e672074686520412d6c6162656c20666f726d6174> 5.601 F<2850756e>102 160.2 Q .913 <79636f6465292061732072657175697265642062792074686520524643732e>-.15 F -.15<466f>5.913 G 3.413<7261>.15 G .913 <6c6c206f7468657220696e746572616374696f6e7320776974682065>-3.413 F .913 <787465726e616c2070726f6772616d7320616e64206d6170732c>-.15 F .248 <7468652061637475616c2076>102 172.2 R .248 <616c75652061726520757365642c20692e652e2c206e6f20636f6e>-.25 F -.15 <7665>-.4 G .248<7273696f6e73206265747765656e205554462d3820616e64204153 43494920656e636f64696e677320617265206d6164652e>.15 F<54686973>5.248 E .366<6170706c69657320746f20746865206b>102 184.2 R -.15<6579>-.1 G 2.866 <7369>.15 G 2.866<6e6d>-2.866 G .367<6170206c6f6f6b7570732c207768696368 206d69676874207265717569726520746f207370656369667920626f74682076>-2.866 F .367<657273696f6e7320696e2061206d61703b207468652064617461>-.15 F -.15 <6578>102 196.2 S .367<6368616e67656420776974682061206d696c746572>.15 F 2.867<2c69>-.4 G .366<2e652e2c2065616368206d696c746572206d75737420626520 22382062697420636c65616e223b206d61696c2064656c69>-2.867 F -.15<7665>-.25 G .366<7279206167656e7473207768696368206d757374206265>.15 F .838 <61626c6520746f2068616e646c65203820626974206164647265737365732e>102 208.2 R .838<536f6d652076>5.838 F .838<616c756573206d757374206265204153 4349492061732074686f7365206172652075736564206265666f726520534d5450555446 38>-.25 F<737570706f72742063616e206265207265717565737465642c20652e672e2c 20746865206d6163726f73>102 220.2 Q F0<246a>2.5 E F1<616e64>2.5 E F0 <246d2e>2.5 E F1<506c65617365207465737420616e642070726f>5 E <7669646520666565646261636b2e>-.15 E F0 2.5<362e31302e204d54>87 244.2 R <412d535453>-.9 E F1 .098 <4578706572696d656e74616c20737570706f727420666f7220534d5450204d54>127 260.4 R 2.598<4153>-.93 G .098<74726963742054>-2.598 F .097 <72616e73706f727420536563757269747920284d54>-.35 F .097 <412d5354532c2073656520524643203834363129206973>-.93 F -.2<6176>102 272.4 S 2.248<61696c61626c65207768656e207573696e672074686520636f6d70696c 652074696d65206f7074696f6e205f4646525f4d54>-.05 F 2.249<415f535453202861 732077656c6c20617320736f6d65206f74686572732c20652e672e2c>-.93 F <5f4646525f544c535f414c>102 284.4 Q<544e>-.92 E .612 <414d455320616e64206f62>-.35 F .611<76696f75736c79205354>-.15 F<4152> -.93 E .611<54544c53292c20464541>-.6 F .611<5455524528737473292028776869 636820696d706c696369746c79207365747320746865206366>-1.11 F 1.244 <6f7074696f6e2053747269637454>102 296.4 R 1.244<72616e73706f727453656375 72697479292c20616e6420706f73748c782d6d74612d7374732d7265736f6c76>-.35 F 1.244<657220287365652068747470733a2f2f676974687562>-.15 F <2e636f6d2f536e61>-.4 E -.1<776f>-.15 G<6f742f706f73742d>.1 E <8c782d6d74612d7374732d7265736f6c76>102 308.4 Q<6572>-.15 E <2e676974292e>-.55 E 1.394<4e6f74653a207468697320696d706c656d656e746174 696f6e2075736573206120736f636b>127 324.6 R 1.394<6574206d617020746f2063 6f6d6d756e6963617465207769746820706f73748c782d6d74612d7374732d7265736f6c 76>-.1 F<6572>-.15 E<616e642068616e646c6573206f6e6c79207468652076>102 336.6 Q<616c7565732072657475726e656420627920746861742070726f6772616d2c20 7768696368206d69676874206e6f742066756c6c7920696d706c656d656e74204d54> -.25 E<412d5354532e>-.93 E .937<496620626f74682044>127 352.8 R .937 <414e4520616e64204d54>-.4 F .937 <412d5354532061726520656e61626c656420616e642061>-.93 F -.25<7661>-.2 G .937<696c61626c6520666f7220746865207265636569>.25 F .937 <76696e6720646f6d61696e2c2044>-.25 F .938<414e45206973>-.4 F <757365642062656361757365206974206f66>102 364.8 Q <666572732061206d75636820686967686572206c65>-.25 E -.15<7665>-.25 G 2.5 <6c6f>.15 G 2.5<6673>-2.5 G<65637572697479>-2.5 E<2e>-.65 E F0 2.5 <372e2041>72 388.8 R<434b4e4f>-.55 E<574c454447454d454e5453>-.5 E F1 <4927>112 405 Q 2.037 -.15<76652077>-.5 H<6f726b>.05 E 1.737<6564206f6e> -.1 F F2<73656e646d61696c>4.237 E F1 1.737<666f72206d616e>4.237 F 4.237 <7979>-.15 G 1.737<656172732c20616e64206d616e>-4.237 F 4.237<7965>-.15 G <6d706c6f>-4.237 E 1.737<79657273206861>-.1 F 2.037 -.15<76652062>-.2 H 1.737<65656e2072656d61726b61626c792070617469656e74>.15 F .403 <61626f7574206c657474696e67206d652077>87 417 R .403 <6f726b206f6e2061206c6172>-.1 F .403<67652070726f6a65637420746861742077> -.18 F .404<6173206e6f742070617274206f66206d79206f66>-.1 F .404 <8c6369616c206a6f62>-.25 F 5.404<2e54>-.4 G .404 <68697320696e636c756465732074696d65206f6e20746865>-5.404 F .282 <494e475245532050726f6a6563742061742074686520556e69>87 429 R -.15<7665> -.25 G .282<7273697479206f662043616c69666f726e6961206174204265726b>.15 F <656c65>-.1 E 1.582 -.65<792c2061>-.15 H 2.782<7442>.65 G .282 <726974746f6e204c65652c20616e64206167>-2.782 F .281 <61696e206f6e20746865204d616d6d6f7468>-.05 F<616e642054>87 441 Q <6974616e2050726f6a65637473206174204265726b>-.35 E<656c65>-.1 E -.65 <792e>-.15 G .789<4d756368206f6620746865207365636f6e642077>112 457.2 R -2.25 -.2<61762065>-.1 H .789<6f6620696d70726f>3.489 F -.15<7665>-.15 G .789<6d656e747320726573756c74696e6720696e2076>.15 F .79<657273696f6e2038 2e312073686f756c6420626520637265646974656420746f20427279616e>-.15 F .545 <436f7374616c6573206f662074686520496e7465726e6174696f6e616c20436f6d7075 74657220536369656e636520496e737469747574652e>87 469.2 R .545<4173206865 20706173736564206d6520647261667473206f662068697320626f6f6b206f6e>5.545 F F2<73656e642d>3.045 E<6d61696c>87 481.2 Q F1 2.5<4977>2.5 G <617320696e73706972656420746f2073746172742077>-2.6 E <6f726b696e67206f6e207468696e6773206167>-.1 E 2.5<61696e2e20427279616e> -.05 F -.1<7761>2.5 G 2.5<7361>.1 G<6c736f2061>-2.5 E -.25<7661>-.2 G <696c61626c6520746f20626f756e6365206964656173206f66>.25 E 2.5<666f>-.25 G<662e>-2.5 E<477265>112 497.4 Q .167 <676f7279204e65696c205368617069726f206f662057>-.15 F .168<6f726365737465 7220506f6c79746563686e696320496e7374697475746520686173206265636f6d652069 6e737472756d656e74616c20696e20616c6c20706861736573206f66>-.8 F F2 <73656e646d61696c>87 509.4 Q F1 .34<737570706f727420616e64206465>2.84 F -.15<7665>-.25 G .34<6c6f706d656e742c20616e642077>.15 F .34 <6173206c6172>-.1 F .34 <67656c7920726573706f6e7369626c6520666f722067657474696e672076>-.18 F .34 <657273696f6e7320382e3820616e6420382e39206f757420746865>-.15 F<646f6f72> 87 521.4 Q<2e>-.55 E<4d616e>112 537.6 Q 2.856 -.65<792c206d>-.15 H<616e> .65 E 4.056<7970>-.15 G 1.556<656f706c6520636f6e74726962>-4.056 F 1.556 <75746564206368756e6b73206f6620636f646520616e6420696465617320746f>-.2 F F2<73656e646d61696c>4.056 E F1 6.556<2e49>C 4.056<7468>-6.556 G 1.557 <61732070726f>-4.056 F -.15<7665>-.15 G 4.057<6e74>.15 G 4.057<6f62> -4.057 G 4.057<6561>-4.057 G .406<67726f7570206e657477>87 549.6 R .406 <6f726b206566>-.1 F 2.906<666f72742e2056>-.25 F .406 <657273696f6e203820696e20706172746963756c61722077>-1.11 F .405 <617320612067726f75702070726f6a6563742e>-.1 F .405<54686520666f6c6c6f> 5.405 F .405<77696e672070656f706c6520616e64206f72>-.25 F -.05<6761>-.18 G<6e697a612d>.05 E<74696f6e73206d616465206e6f7461626c6520636f6e74726962> 87 561.6 Q<7574696f6e733a>-.2 E<436c617573204173736d616e6e>127 577.8 Q <4a6f686e204265636b2c204865>127 589.8 Q<776c6574742d50>-.25 E <61636b61726420262053756e204d6963726f73797374656d73>-.15 E -.25<4b65>127 601.8 S<69746820426f737469632c20435352472c20556e69>.25 E -.15<7665>-.25 G<7273697479206f662043616c69666f726e69612c204265726b>.15 E<656c65>-.1 E <79>-.15 E<416e647265>127 613.8 Q 2.5<7743>-.25 G <68656e672c2053756e204d6963726f73797374656d73>-2.5 E <4d69636861656c204a2e20436f72726967>127 625.8 Q<616e2c20556e69>-.05 E -.15<7665>-.25 G <7273697479206f662043616c69666f726e69612c2053616e20446965>.15 E<676f> -.15 E<427279616e20436f7374616c65732c20496e7465726e6174696f6e616c20436f 6d707574657220536369656e636520496e73746974757465202620496e666f42656174> 127 637.8 Q -.15<5061>127 649.8 S -.5<2e2e>-4.402 -6 O 2.5<7228>.552 6 O <50656c6c2920456d616e75656c73736f6e>-2.5 E<4372616967204576>127 661.8 Q <6572686172742c2054>-.15 E<72616e7361726320436f72706f726174696f6e>-.35 E <50657220486564656c616e642c204572696373736f6e>127 673.8 Q -.8<546f>127 685.8 S 2.5<6d49>.8 G -.25<7661>-2.5 G 2.5<7248>.25 G <656c62656b6b6d6f2c204e6f727765>-2.5 E <6769616e205363686f6f6c206f662045636f6e6f6d696373>-.15 E<4b617269204875 727474612c2046696e6e697368204d6574656f726f6c6f676963616c20496e7374697475 7465>127 697.8 Q<416c6c616e20452e204a6f68616e6e6573656e2c20575049>127 709.8 Q<4a6f6e617468616e204b616d656e732c204f70656e56>127 721.8 Q <6973696f6e2054>-.6 E<6563686e6f6c6f676965732c20496e632e>-.7 E 0 Cg EP %%Page: 108 104 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 188.36<534d4d3a30382d3130382053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465> 2.5 E/F1 10/Times-Roman@0 SF -.8<5461>127 96 S<6b616869726f204b616e6265 2c2046756a69205865726f7820496e666f726d6174696f6e2053797374656d7320436f2e 2c204c74642e>.8 E<427269616e204b616e746f72>127 108 Q 2.5<2c55>-.4 G <6e69>-2.5 E -.15<7665>-.25 G <7273697479206f662043616c69666f726e69612c2053616e20446965>.15 E<676f> -.15 E<4a6f686e204b>127 120 Q<656e6e656479>-.25 E 2.5<2c43>-.65 G <616c20537461746520556e69>-2.5 E -.15<7665>-.25 G<7273697479>.15 E 2.5 <2c43>-.65 G<6869636f>-2.5 E<4d757272617920532e204b>127 132 Q <756368657261>-.15 E<7779>-.15 E 2.5<2c48>-.65 G <6f6f6b557020436f6d6d756e69636174696f6e20436f72702e>-2.5 E <4272756365204c696c6c79>127 144 Q 2.5<2c53>-.65 G<6f6e>-2.5 E 2.5<7955> -.15 G<2e532e>-2.5 E<4b61726c204c6f6e646f6e>127 156 Q <4d6f746f6e6f7269204e616b616d7572612c2052697473756d65696b616e20556e69> 127 168 Q -.15<7665>-.25 G<72736974792026204b>.15 E<796f746f20556e69> -.25 E -.15<7665>-.25 G<7273697479>.15 E <4a6f686e2047617264696e6572204d796572732c204361726e65>127 180 Q <676965204d656c6c6f6e20556e69>-.15 E -.15<7665>-.25 G<7273697479>.15 E <4e65696c205269636b>127 192 Q <6572742c204e6f72746865726e20496c6c696e6f697320556e69>-.1 E -.15<7665> -.25 G<7273697479>.15 E<477265>127 204 Q <676f7279204e65696c205368617069726f2c20575049>-.15 E <45726963205363686e6f6562656c656e2c20436f6e>127 216 Q .3 -.15 <7665782043>-.4 H<6f6d707574657220436f72702e>.15 E<457269632057>127 228 Q<617373656e616172>-.8 E 2.5<2c4e>-.4 G<6174696f6e616c20496e737469747574 6520666f72204e75636c65617220616e64204869676820456e6572>-2.5 E <6779205068>-.18 E<79736963732c20416d7374657264616d>-.05 E <52616e64616c6c2057>127 240 Q<696e63686573746572>-.4 E 2.5<2c55>-.4 G <6e69>-2.5 E -.15<7665>-.25 G<7273697479206f66204d6172796c616e64>.15 E <4368726973746f7068652057>127 252 Q<6f6c66687567656c2c2050>-.8 E <61737465757220496e7374697475746520262048657276>-.15 E 2.5<6553>-.15 G <63686175657220436f6e73756c74616e7473202850>-2.5 E<6172697329>-.15 E <457861637469732e636f6d2c20496e632e>127 264 Q 3.219<4961>87 280.2 S .719 <706f6c6f67697a6520666f7220616e>-3.219 F .719<796f6e652049206861>-.15 F 1.019 -.15<7665206f>-.2 H .719 <6d69747465642c206d69737370656c6c65642c206d6973617474726962>.15 F .719 <757465642c206f72206f7468657277697365206d69737365642e>-.2 F .72 <4174207468697320706f696e742c2049>5.72 F 1.093<737573706563742074686174 206174206c6561737420612068756e647265642070656f706c65206861>87 292.2 R 1.393 -.15<76652063>-.2 H<6f6e74726962>.15 E 1.093 <7574656420636f64652c20616e64206d616e>-.2 F 3.592<796d>-.15 G 1.092 <6f7265206861>-3.592 F 1.392 -.15<76652063>-.2 H<6f6e74726962>.15 E 1.092<757465642069646561732c>-.2 F 1.533 <636f6d6d656e74732c20616e6420656e636f75726167656d656e742e>87 304.2 R <4927>6.534 E 1.834 -.15<76652074>-.5 H 1.534 <7269656420746f206c697374207468656d20696e207468652052454c454153455f4e4f> .15 F 1.534<54455320696e207468652064697374726962>-.4 F<7574696f6e>-.2 E <6469726563746f7279>87 316.2 Q 5<2e49>-.65 G <6170707265636961746520746865697220636f6e74726962>-2.5 E <7574696f6e2061732077656c6c2e>-.2 E .743 <5370656369616c207468616e6b732061726520726573657276>112 332.4 R .743 <656420666f72204d69636861656c20436f72726967>-.15 F .742 <616e20616e64204368726973746f7068652057>-.05 F .742 <6f6c66687567656c2c2077686f2062657369646573206265696e67>-.8 F -.1<776f> 87 344.4 S 2.1 <6e64657266756c206775696e6561207069677320616e6420636f6e74726962>.1 F 2.1 <75746f7273206861>-.2 F 2.4 -.15<76652061>-.2 H 2.1 <6c736f20636f6e73656e74656420746f20626520616464656420746f207468652060> .15 F<6073656e646d61696c4053656e642d>-.74 E<6d61696c2e4f524727>87 356.4 Q 3.611<276c>-.74 G 1.111 <69737420616e642c20627920616e73776572696e67207468652062>-3.611 F 1.111< 756c6b206f6620746865207175657374696f6e732073656e7420746f2074686174206c69 73742c206861>-.2 F 1.41 -.15<76652066>-.2 H 1.11 <72656564206d6520757020746f20646f>.15 F<6f746865722077>87 368.4 Q <6f726b2e>-.1 E 0 Cg EP %%Page: 109 105 %%BeginPageSetup BP %%EndPageSetup /F0 12/Times-Bold@0 SF 3<415050454e4449582041>257.172 98.4 R <434f4d4d414e44204c494e4520464c41>224.832 141.6 Q<4753>-.66 E/F1 10 /Times-Roman@0 SF<4172>97 201 Q<67756d656e7473206d7573742062652070726573 656e7465642077697468208d616773206265666f7265206164647265737365732e>-.18 E<546865208d616773206172653a>5 E72 217.2 Q/F2 10/Times-Italic@0 SF <78>A F1 .048<53656c65637420616e20616c7465726e617469>54.7 F .348 -.15 <7665202e>-.25 H .048<6366208c6c6520776869636820697320656974686572>.15 F F2<73656e646d61696c2e6366>2.549 E F1<666f72>2.549 E/F3 10/Times-Bold@0 SF2.549 E F1<6f72>2.549 E F2<7375626d69742e6366>2.549 E F1 <666f72>2.549 E F32.549 E F1 5.049<2e42>C<79>-5.049 E<646566>144 229.2 Q .024<61756c7420746865202e6366208c6c652069732063686f73656e206261 736564206f6e20746865206f7065726174696f6e206d6f64652e>-.1 F -.15<466f> 5.024 G<72>.15 E F3<2d626d>2.524 E F1<28646566>2.524 E<61756c74292c>-.1 E F3<2d6273>2.524 E F1 2.524<2c61>C<6e64>-2.524 E F3<2d74>2.524 E F1 <6974>2.524 E<6973>144 241.2 Q F2<7375626d69742e6366>2.5 E F1 <69662069742065>2.5 E <78697374732c20666f7220616c6c206f7468657273206974206973>-.15 E F2 <73656e646d61696c2e6366>2.5 E F1<2e>A72 257.4 Q F2<78>A F1 <536574206f7065726174696f6e206d6f646520746f>56.92 E F2<78>2.5 E F1 5 <2e4f>C<7065726174696f6e206d6f646573206172653a>-5 E 12.22<6d44>184 273.6 S<656c69>-12.22 E -.15<7665>-.25 G 2.5<726d>.15 G<61696c2028646566>-2.5 E<61756c7429>-.1 E 16.11<7353>184 285.6 S <7065616b20534d5450206f6e20696e7075742073696465>-16.11 E 8.06<61872060> 184 297.6 R -.8<6041>-.74 G<7270616e657427>.8 E 2.5<276d>-.74 G <6f6465202867657420656e>-2.5 E -.15<7665>-.4 G<6c6f70652073656e64657220 696e666f726d6174696f6e2066726f6d2068656164657229>.15 E 13.33<4343>184 309.6 S<6865636b2074686520636f6e8c6775726174696f6e208c6c65>-13.33 E 15 <6452>184 321.6 S <756e2061732061206461656d6f6e20696e206261636b67726f756e64>-15 E 12.78 <4452>184 333.6 S<756e2061732061206461656d6f6e20696e20666f7265>-12.78 E <67726f756e64>-.15 E 17.22<7452>184 345.6 S <756e20696e2074657374206d6f6465>-17.22 E 15<764a>184 357.6 S<7573742076> -15 E<6572696679206164647265737365732c20646f6e27>-.15 E 2.5<7463>-.18 G <6f6c6c656374206f722064656c69>-2.5 E -.15<7665>-.25 G<72>.15 E 17.22 <6949>184 369.6 S <6e697469616c697a652074686520616c696173206461746162617365>-17.22 E 15 <7050>184 381.6 S<72696e7420746865206d61696c207175657565>-15 E 14.44 <5050>184 393.6 S<72696e74206f>-14.44 E -.15<7665>-.15 G<72766965>.15 E 2.5<776f>-.25 G -.15<7665>-2.65 G 2.5<7274>.15 G<6865206d61696c20717565 75652028726571756972657320736861726564206d656d6f727929>-2.5 E 15<6850> 184 405.6 S<72696e74207468652070657273697374656e7420686f7374207374617475 73206461746162617365>-15 E 12.78<4850>184 417.6 S<7572>-12.78 E <67652065>-.18 E<78706972656420656e74726965732066726f6d2074686520706572 73697374656e7420686f737420737461747573206461746162617365>-.15 E72 438 Q F2<74797065>A F1<496e64696361746520626f647920747970652e>43.03 E 72 454.2 Q F2<8c6c65>A F1 .946<557365206120646966>47.47 F .946 <666572656e7420636f6e8c6775726174696f6e208c6c652e>-.25 F F2 <53656e646d61696c>5.946 E F1 .946<72756e732061732074686520696e>3.446 F -.2<766f>-.4 G .946 <6b696e6720757365722028726174686572207468616e20726f6f7429>.2 F <7768656e2074686973208d61672069732073706563698c65642e>144 466.2 Q 72 482.4 Q F2<6c6f>2.5 E<678c6c65>-.1 E F1<53656e6420646562>31.74 E <756767696e67206f757470757420746f2074686520696e64696361746564>-.2 E F2 <6c6f>2.5 E<678c6c65>-.1 E F1<696e7374656164206f66207374646f75742e>2.5 E 72 498.6 Q F2<6c65>A<76656c>-.15 E F1<53657420646562>42.63 E <756767696e67206c65>-.2 E -.15<7665>-.25 G<6c2e>.15 E72 514.8 Q F2 <61646472>2.5 E F1 .628<54686520656e>41.64 F -.15<7665>-.4 G .628 <6c6f70652073656e64657220616464726573732069732073657420746f>.15 F F2 <61646472>3.128 E F1 5.628<2e54>C .627<6869732061646472657373206d617920 616c736f206265207573656420696e207468652046726f6d3a>-5.628 F .152<686561 646572206966207468617420686561646572206973206d697373696e6720647572696e67 20696e697469616c207375626d697373696f6e2e>144 526.8 R .153<54686520656e> 5.152 F -.15<7665>-.4 G .153 <6c6f70652073656e6465722061646472657373206973>.15 F 1.263 <757365642061732074686520726563697069656e7420666f722064656c69>144 538.8 R -.15<7665>-.25 G 1.263<727920737461747573206e6f74698c636174696f6e7320 616e64206d617920616c736f2061707065617220696e20612052657475726e2d>.15 F -.15<5061>144 550.8 S<74683a20686561646572>.15 E<2e>-.55 E72 567 Q F2<6e616d65>2.5 E F1 <53657473207468652066756c6c206e616d65206f662074686973207573657220746f> 36.64 E F2<6e616d65>2.5 E F1<2e>A 56.6472 583.2 R 1.176< 616363657074696e67206d65737361676573207669612074686520636f6d6d616e64206c 696e652c20696e646963617465207468617420746865>3.676 F 3.676<7961>-.15 G 1.177<726520666f722072656c6179202867>-3.676 F<6174652d>-.05 E -.1<7761> 144 595.2 S 2.216<7929207375626d697373696f6e2e>.1 F 2.216<73656e646d6169 6c206d617920636f6d706c61696e2061626f75742073796e746163746963616c6c792069 6e>7.216 F -.25<7661>-.4 G 2.215<6c6964206d657373616765732c20652e672e2c> .25 F .037<756e7175616c698c656420686f7374206e616d65732c2072617468657220 7468616e208c78696e67207468656d207768656e2074686973208d616720697320736574 2e>144 607.2 R .038<73656e646d61696c2077696c6c206e6f7420646f>5.038 F <616e>144 619.2 Q 2.5<7963>-.15 G <616e6f6e6963616c697a6174696f6e20696e2074686973206d6f64652e>-2.5 E 72 635.4 Q F2<636e74>2.5 E F1 .726 <53657473207468652099686f7020636f756e749a20746f>46.64 F F2<636e74>3.226 E F1 5.725<2e54>C .725<68697320726570726573656e747320746865206e756d6265 72206f662074696d65732074686973206d65737361676520686173206265656e>-5.725 F .02<70726f636573736564206279>144 647.4 R F2<73656e646d61696c>2.52 E F1 .02<28746f207468652065>2.52 F .02<7874656e742074686174206974206973207375 70706f727465642062792074686520756e6465726c79696e67206e657477>-.15 F <6f726b73292e>-.1 E F2<436e74>5.02 E F1 1.521<697320696e6372656d656e7465 6420647572696e672070726f63657373696e672c20616e64206966206974207265616368 6573204d4158484f50202863757272656e746c7920323529>144 659.4 R F2 <73656e646d61696c>4.02 E F1<7468726f>144 671.4 Q<77732061>-.25 E -.1 <7761>-.15 G 2.5<7974>.1 G <6865206d657373616765207769746820616e206572726f72>-2.5 E<2e>-.55 E .32 LW 76 681 72 681 DL 80 681 76 681 DL 84 681 80 681 DL 88 681 84 681 DL 92 681 88 681 DL 96 681 92 681 DL 100 681 96 681 DL 104 681 100 681 DL 108 681 104 681 DL 112 681 108 681 DL 116 681 112 681 DL 120 681 116 681 DL 124 681 120 681 DL 128 681 124 681 DL 132 681 128 681 DL 136 681 132 681 DL 140 681 136 681 DL 144 681 140 681 DL 148 681 144 681 DL 152 681 148 681 DL 156 681 152 681 DL 160 681 156 681 DL 164 681 160 681 DL 168 681 164 681 DL 172 681 168 681 DL 176 681 172 681 DL 180 681 176 681 DL 184 681 180 681 DL 188 681 184 681 DL 192 681 188 681 DL 196 681 192 681 DL 200 681 196 681 DL 204 681 200 681 DL 208 681 204 681 DL 212 681 208 681 DL 216 681 212 681 DL/F4 8/Times-Roman@0 SF <87446570726563617465642e>93.6 693 Q F3<53656e646d61696c20496e7374616c6c 6174696f6e20616e64204f7065726174696f6e204775696465>72 756 Q <534d4d3a30382d313039>190.86 E 0 Cg EP %%Page: 110 106 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 188.36<534d4d3a30382d3131302053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465> 2.5 E/F1 10/Times-Roman@0 SF72 96 Q/F2 10/Times-Italic@0 SF<7461> 2.5 E<67>-.1 E F1 1.482 <5365747320746865206964656e74698c6572207573656420666f72207379736c6f672e> 45.07 F 1.483<4e6f746520746861742074686973206964656e74698c65722069732073 6574206173206561726c7920617320706f737369626c652e>6.483 F<486f>144 108 Q <7765>-.25 E -.15<7665>-.25 G -.4<722c>.15 G F2<73656e646d61696c>2.916 E F1 .015<6d617920626520757365642069662070726f626c656d73206172697365206265 666f72652074686520636f6d6d616e64206c696e65206172>2.516 F .015 <67756d656e747320617265>-.18 F<70726f6365737365642e>144 120 Q 58.86 72 136.2 R 2.5<7464>-.18 G 2.5<6f61>-2.5 G <6c696173696e67206f7220666f7277>-2.5 E<617264696e672e>-.1 E72 152.4 Q F2<6e6f74698c636174696f6e73>2.5 E F1 -.8<5461>7.19 G 3.127<6761> .8 G .627<6c6c20616464726573736573206265696e672073656e742061732077> -3.127 F .628<616e74696e672074686520696e64696361746564>-.1 F F2 <6e6f74698c636174696f6e73>3.128 E F1 3.128<2c77>C .628 <6869636820636f6e7369737473206f6620746865>-3.128 F -.1<776f>144 164.4 S .474<726420994e455645529a206f72206120636f6d6d612d736570617261746564206c 697374206f662099535543434553539a2c209946>.1 F .474 <41494c5552459a2c20616e64209944454c41>-.74 F<599a>-1.05 E .86 <666f72207375636365737366756c2064656c69>144 176.4 R -.15<7665>-.25 G <7279>.15 E 3.36<2c66>-.65 G .86<61696c7572652c20616e642061206d65737361 6765207468617420697320737475636b20696e206120717565756520736f6d65>-3.46 F 3.36<77686572652e20546865>-.25 F<646566>144 188.4 Q <61756c74206973209946>-.1 E<41494c5552452c44454c41>-.74 E<599a2e>-1.05 E 72 204.6 Q F2<61646472>2.5 E F1 <416e206f62736f6c65746520666f726d206f66>41.64 E F02.5 E F1<2e>A 72 220.8 Q F2 1.666<7876>C<616c7565>-1.666 E F1 <536574206f7074696f6e>33.594 E F2<78>2.5 E F1 <746f207468652073706563698c6564>2.5 E F2<76616c7565>2.5 E F1 5<2e54>C<68 657365206f7074696f6e73206172652064657363726962656420696e2053656374696f6e 20352e362e>-5 E72 237 Q F2<6f7074696f6e>A F0<3d>A F2<76616c7565>A F1<536574>6.22 E F2<6f7074696f6e>5.174 E F1 2.674 <746f207468652073706563698c6564>5.174 F F2<76616c7565>5.174 E F1 2.674 <28666f72206c6f6e6720666f726d206f7074696f6e206e616d6573292e>5.174 F 2.673<5468657365206f7074696f6e7320617265>7.674 F <64657363726962656420696e2053656374696f6e20352e362e>144 249 Q72 265.2 Q F2 1.666<7876>C<616c7565>-1.666 E F1<536574206d6163726f>29.704 E F2<78>2.5 E F1<746f207468652073706563698c6564>2.5 E F2<76616c7565>2.5 E F1<2e>A72 281.4 Q F2<7072>A<6f746f636f6c>-.45 E F1 .4 <536574207468652073656e64696e672070726f746f636f6c2e>27.92 F .401<50726f 6772616d732061726520656e636f75726167656420746f2073657420746869732e>5.4 F .401<5468652070726f746f636f6c208c656c642063616e206265>5.401 F .115 <696e2074686520666f726d>144 293.4 R F2<7072>2.615 E<6f746f636f6c>-.45 E F0<3a>A F2<686f7374>A F1 .114<746f2073657420626f7468207468652073656e6469 6e672070726f746f636f6c20616e642073656e64696e6720686f73742e>2.615 F -.15 <466f>5.114 G 2.614<7265>.15 G<78616d706c652c>-2.764 E 2.147<99ad705555 43503a75756e65749a2073657473207468652073656e64696e672070726f746f636f6c20 746f205555435020616e64207468652073656e64696e6720686f737420746f2075756e65 742e>144 305.4 R .974<28536f6d652065>144 317.4 R .974<78697374696e672070 726f6772616d732075736520ad6f4d20746f2073657420746865207220616e642073206d 6163726f733b20746869732069732065717569>-.15 F -.25<7661>-.25 G .973 <6c656e7420746f207573696e67>.25 F144 329.4 Q72 345.6 Q F2<74696d65>A F1 -.35<5472>44.14 G 3.2<7974>.35 G 3.2<6f70>-3.2 G .7 <726f636573732074686520717565756564207570206d61696c2e>-3.2 F .7 <4966207468652074696d65206973206769>5.7 F -.15<7665>-.25 G<6e2c>.15 E F2 <73656e646d61696c>3.2 E F1 .7 <77696c6c207374617274206f6e65206f72206d6f7265>3.2 F .011<70726f63657373 657320746f2072756e207468726f75676820746865207175657565287329206174207468 652073706563698c65642074696d6520696e74657276>144 357.6 R .01 <616c20746f2064656c69>-.25 F -.15<7665>-.25 G 2.51<7271>.15 G .01 <7565756564206d61696c3b>-2.51 F .905 <6f74686572776973652c206974206f6e6c792072756e73206f6e63652e>144 369.6 R .906 <45616368206f662074686573652070726f6365737365732061637473206f6e20612077> 5.906 F 3.406<6f726b67726f75702e205468657365>-.1 F<70726f2d>3.406 E .96 <6365737365732061726520616c736f206b6e6f>144 381.6 R .959<776e2061732077> -.25 F .959<6f726b67726f75702070726f636573736573206f722057475027>-.1 F 3.459<7366>-.55 G .959<6f722073686f72742e>-3.459 F .959<456163682077> 5.959 F .959<6f726b67726f7570206973>-.1 F .522<726573706f6e7369626c6520 666f7220636f6e74726f6c6c696e67207468652070726f63657373696e67206f66206f6e 65206f72206d6f7265207175657565733b2077>144 393.6 R .523 <6f726b67726f7570732068656c70206d616e2d>-.1 F 1.268<61676520746865207573 65206f662073797374656d207265736f75726365732062792073656e646d61696c2e>144 405.6 R 1.268<456163682077>6.268 F 1.268<6f726b67726f7570206d6179206861> -.1 F 1.568 -.15<7665206f>-.2 H 1.267<6e65206f72206d6f7265>.15 F .357<63 68696c6472656e20636f6e63757272656e746c792070726f63657373696e672071756575 657320646570656e64696e67206f6e207468652073657474696e67206f66>144 417.6 R F2<4d617851756575654368696c6472>2.857 E<656e>-.37 E F1<2e>A72 433.8 Q F2<74696d65>A F1 1.175 <53696d696c617220746f20ad71207769746820612074696d65206172>39.14 F 1.175 <67756d656e742c2065>-.18 F 1.174<7863657074207468617420696e737465616420 6f6620706572696f646963616c6c79207374617274696e672057475027>-.15 F<73> -.55 E .7 <73656e646d61696c207374617274732070657273697374656e742057475027>144 445.8 R 3.2<7374>-.55 G .7<68617420616c7465726e617465206265747765656e20 70726f63657373696e672071756575657320616e6420736c656570696e672e>-3.2 F 1.123<54686520736c6565702074696d652069732073706563698c656420627920746865 2074696d65206172>144 457.8 R 1.123<67756d656e743b20697420646566>-.18 F 1.123<61756c747320746f2031207365636f6e642c2065>-.1 F 1.123 <786365707420746861742061>-.15 F 1.293<57475020616c>144 469.8 R -.1 <7761>-.1 G 1.293<797320736c65657073206174206c656173742035207365636f6e64 7320696620746865697220717565756573207765726520656d70747920696e2074686520 707265>.1 F 1.294<76696f75732072756e2e>-.25 F .139<50657273697374656e74 2070726f63657373657320617265206d616e61676564206279206120717565756520636f 6e74726f6c2070726f636573732028514350292e>144 481.8 R .138 <546865205143502069732074686520706172>5.138 F<2d>-.2 E .179 <656e742070726f63657373206f66207468652057475027>144 493.8 R 2.679 <732e2054>-.55 F .179<79706963616c6c7920746865205143502077696c6c20626520 7468652073656e646d61696c206461656d6f6e20287768656e2073746172746564>-.8 F .424<7769746820ad6264206f7220ad624429206f722061207370656369616c2070726f 6365737320286e616d656420517565756520636f6e74726f6c2920287768656e20737461 7274656420776974686f757420ad6264>144 505.8 R .719<6f7220ad6244292e>144 517.8 R .719<496620612070657273697374656e74205747502063656173657320746f 2062652061637469>5.719 F 1.019 -.15<76652066>-.25 H .72 <6f7220736f6d6520726561736f6e20616e6f74686572205747502077696c6c206265> .15 F .862 <73746172746564206279207468652051435020666f72207468652073616d652077>144 529.8 R .862<6f726b67726f757020696e206d6f73742063617365732e205768656e20 612070657273697374656e742057475020686173>-.1 F 1.007 <636f72652064756d7065642c2074686520646562>144 541.8 R 1.007 <7567208d6167>-.2 F F2<6e6f5f706572>3.507 E<73697374656e745f72>-.1 E <657374617274>-.37 E F1 1.008<697320736574206f72207468652073706563698c63 2070657273697374656e7420574750>3.507 F .677 <686173206265656e2072657374617274656420746f6f206d616e>144 553.8 R 3.176 <7974>-.15 G .676<696d657320616c7265616479207468656e20746865205747502077 696c6c206e6f742062652073746172746564206167>-3.176 F .676 <61696e20616e642061>-.05 F .875 <6d6573736167652077696c6c206265206c6f6767656420746f2074686973206566>144 565.8 R 3.375<666563742e2054>-.25 F 3.375<6f73>-.8 G .876<746f7020285349 475445524d29206f722072657374617274202853494748555029207065727369732d> -3.375 F .116<74656e742057475027>144 577.8 R 2.616<7374>-.55 G .116<6865 20617070726f707269617465207369676e616c2073686f756c642062652073656e742074 6f2074686520514350>-2.616 F 2.616<2e54>-1.11 G .116 <6865205143502077696c6c2070726f706167>-2.616 F .116<61746520746865>-.05 F<7369676e616c20746f20616c6c206f66207468652057475027>144 589.8 Q 2.5 <7361>-.55 G<6e6420696620617070726f707269617465207265737461727420746865 2070657273697374656e742057475027>-2.5 E<732e>-.55 E72 606 Q F2 <476e616d65>A F1 <52756e20746865206a6f627320696e207468652071756575652067726f7570>32.48 E F2<6e616d65>2.5 E F1<6f6e63652e>2.5 E72 622.2 Q F2 <58737472696e67>A F1 .312<52756e20746865207175657565206f6e63652c206c696d 6974696e6720746865206a6f627320746f2074686f7365206d61746368696e67>21.92 F F2<58737472696e67>2.813 E F1 5.313<2e54>C .313<6865206b>-5.313 F .613 -.15<6579206c>-.1 H<6574746572>.15 E F2<58>2.813 E F1 .313<63616e206265> 2.813 F F0<49>144 634.2 Q F1 1.347 <746f206c696d6974206261736564206f6e207175657565206964656e74698c6572> 3.848 F<2c>-.4 E F0<52>3.847 E F1 1.347 <746f206c696d6974206261736564206f6e20726563697069656e742c>3.847 F F0<53> 3.847 E F1 1.347<746f206c696d6974206261736564206f6e>3.847 F <73656e646572>144 646.2 Q 4.757<2c6f>-.4 G<72>-4.757 E F0<51>4.757 E F1 2.258<746f206c696d6974206261736564206f6e2071756172616e74696e652072656173 6f6e20666f722071756172616e74696e6564206a6f62732e>4.757 F 4.758<4170> 7.258 G<6172746963756c6172>-4.758 E .062<717565756564206a6f622069732061 63636570746564206966206f6e65206f662074686520636f72726573706f6e64696e6720 617474726962>144 658.2 R .062 <7574657320636f6e7461696e732074686520696e64696361746564>-.2 F F2 <737472696e67>2.562 E F1<2e>A .778 <546865206f7074696f6e616c202120636861726163746572206e65>144 670.2 R -.05 <6761>-.15 G .778<7465732074686520636f6e646974696f6e207465737465642e>.05 F<4d756c7469706c65>5.778 E F23.279 E F1 .779 <8d61677320617265207065726d69747465642c>3.279 F .622 <77697468206974656d732077697468207468652073616d65206b>144 682.2 R .922 -.15<6579206c>-.1 H .622<657474657220996f722765649a20746f676574686572> .15 F 3.122<2c61>-.4 G .622<6e64206974656d73207769746820646966>-3.122 F .622<666572656e74206b>-.25 F .922 -.15<6579206c>-.1 H<657474657273>.15 E <99616e642765649a20746f676574686572>144 694.2 Q<2e>-.55 E 23.88 72 710.4 R .422 <6e6f726d616c207175657565206974656d73207769746820746865206769>2.921 F -.15<7665>-.25 G 2.922<6e72>.15 G .422<6561736f6e206f7220756e7175617261 6e74696e652071756172616e74696e6564207175657565>-2.922 F .963 <6974656d73206966206e6f20726561736f6e206973206769>144 722.4 R -.15<7665> -.25 G 3.463<6e2e2054686973>.15 F .963<73686f756c64206f6e6c792062652075 736564207769746820736f6d6520736f7274206f66206974656d206d61746368696e67> 3.463 F 0 Cg EP %%Page: 111 107 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d313131>190.86 E /F1 10/Times-Roman@0 SF<7573696e67>144 96 Q F02.5 E/F2 10 /Times-Italic@0 SF<58737472696e67>A F1<6173206465736372696265642061626f> 2.5 E -.15<7665>-.15 G<2e>.15 E72 112.2 Q 1.687 <5768617420696e666f726d6174696f6e20796f752077>46.64 F 1.687<616e74207265 7475726e656420696620746865206d65737361676520626f756e6365733b>-.1 F F2 -.37<7265>4.187 G<74>.37 E F1 1.687<63616e2062652099484452539a20666f72> 4.187 F .878<68656164657273206f6e6c79206f72209946554c4c9a20666f72206865 616465727320706c757320626f6479>144 124.2 R 5.878<2e54>-.65 G .877<686973 20697320612072657175657374206f6e6c793b20746865206f7468657220656e64206973> -5.878 F 1.308 <6e6f7420726571756972656420746f20686f6e6f722074686520706172616d65746572> 144 136.2 R 6.308<2e49>-.55 G 3.808<6699>-6.308 G 1.309<484452539a206973 2073706563698c6564206c6f63616c20626f756e63657320616c736f2072657475726e> -3.808 F<6f6e6c792074686520686561646572732e>144 148.2 Q 61.08 72 164.4 R .752<7468652068656164657220666f72209954>3.252 F .752<6f3a9a2c209943633a9a2c20616e6420994263633a9a206c696e65732c20616e 642073656e6420746f2065>-.8 F -.15<7665>-.25 G .752 <72796f6e65206c697374656420696e2074686f7365>.15 F 2.539 <6c697374732e20546865>144 176.4 R .039<994263633a9a206c696e652077696c6c 2062652064656c65746564206265666f72652073656e64696e672e>2.539 F<416e> 5.039 E 2.539<7961>-.15 G .04<646472657373657320696e20746865206172> -2.539 F .04<67756d656e742076>-.18 F<65632d>-.15 E<746f722077696c6c2062 652064656c657465642066726f6d207468652073656e64206c6973742e>144 188.4 Q 56.6472 204.6 R .72<6f7074696f6e206973207265717569726564 207768656e2073656e64696e67206d61696c207573696e67205554462d383b2069742073 657473207468652099534d5450555446389a206172>3.22 F<67752d>-.18 E .41 <6d656e7420666f7220994d41494c9a20636f6d6d616e642e>144 216.6 R .41 <4f6e6c792061>5.41 F -.25<7661>-.2 G .41<696c61626c6520696620994541499a 20737570706f727420697320656e61626c65642c20616e64207468652099534d54>.25 F <2d>-.92 E<50555446389a206f7074696f6e206973207365742e>144 228.6 Q 72 244.8 Q 32.32<76696420546865>-.4 F<696e64696361746564> 3.18 E F2<656e>3.18 E<766964>-.4 E F1 .68 <69732070617373656420776974682074686520656e>3.18 F -.15<7665>-.4 G .679< 6c6f7065206f6620746865206d65737361676520616e642072657475726e656420696620 746865206d65732d>.15 F<7361676520626f756e6365732e>144 256.8 Q72 273 Q F2<6c6f>2.5 E<678c6c65>-.1 E F1 .724<4c6f6720616c6c2074726166> 31.74 F .724<8c6320696e20616e64206f7574206f66>-.25 F F2 <73656e646d61696c>3.225 E F1 .725<696e2074686520696e64696361746564>3.225 F F2<6c6f>3.225 E<678c6c65>-.1 E F1 .725<666f7220646562>3.225 F .725 <756767696e67206d61696c65722070726f622d>-.2 F 2.5<6c656d732e2054686973> 144 285 R<70726f64756365732061206c6f74206f6620646174612076>2.5 E<657279 20717569636b6c7920616e642073686f756c6420626520757365642073706172696e676c 79>-.15 E<2e>-.65 E .638<5468657265206172652061206e756d626572206f66206f 7074696f6e732074686174206d61792062652073706563698c6564206173207072696d69 7469>97 301.2 R .937 -.15<7665208d>-.25 H 3.137<6167732e205468657365>.15 F .637<6172652074686520652c20692c206d2c20616e642076>3.137 F 3.784 <6f7074696f6e732e20416c736f2c>72 313.2 R 1.284 <7468652066206f7074696f6e206d61792062652073706563698c656420617320746865> 3.784 F F03.784 E F1 3.785<8d61672e20546865>3.785 F 1.285 <44534e2072656c61746564206f7074696f6e732099ad4e9a2c2099ad529a2c20616e64> 3.785 F<99ad569a206861>72 325.2 Q .3 -.15<7665206e>-.2 H 2.5<6f65>.15 G -.25<6666>-2.5 G<65637473206f6e>.25 E F2<73656e646d61696c>2.5 E F1 <72756e6e696e67206173206461656d6f6e2e>2.5 E 0 Cg EP %%Page: 112 108 %%BeginPageSetup BP %%EndPageSetup /F0 12/Times-Bold@0 SF 3<415050454e4449582042>250.002 98.4 R -.12<5155> 220.29 141.6 S<4555452046494c4520464f524d41>.12 E<5453>-1.14 E/F1 10 /Times-Roman@0 SF .102<5468697320617070656e6469782064657363726962657320 74686520666f726d6174206f6620746865207175657565208c6c65732e>97 201 R .102 <5468657365208c6c6573206c69>5.102 F .402 -.15<76652069>-.25 H 2.602 <6e61>.15 G .101<7175657565206469726563746f7279>-.001 F 5.101<2e54>-.65 G .101<686520696e64692d>-5.101 F .331<76696475616c2071662c2068662c205166 2c2064662c20616e64207866208c6c6573206d61792062652073746f72656420696e2073 65706172617465>72 213 R/F2 10/Times-Italic@0 SF<71662f>2.831 E F1<2c>A F2<64662f>2.831 E F1 2.831<2c61>C<6e64>-2.831 E F2<78662f>2.831 E F1 .331<7375626469726563746f7269657320696620746865>2.831 F 2.831<7961>-.15 G .331<72652070726573656e74>-2.831 F <696e20746865207175657565206469726563746f7279>72 225 Q<2e>-.65 E .924 <416c6c207175657565208c6c6573206861>97 241.2 R 1.224 -.15<76652074>-.2 H .924<6865206e616d65>.15 F F2<7474594d44686d734e4e7070707070>3.424 E F1 <7768657265>3.424 E F2<594d44686d734e4e7070707070>3.424 E F1 .923 <697320746865>3.423 F F2<6964>3.423 E F1 .923 <666f722074686973206d65732d>3.423 F<7361676520616e6420746865>72 253.2 Q F2<7474>2.5 E F1<6973206120747970652e>2.5 E<54686520696e6469>5 E <76696475616c206c65747465727320696e20746865>-.25 E F2<6964>2.5 E F1 <6172653a>2.5 E 28.78<5945>72 269.4 S<6e636f6465642079656172>-28.78 E 27.11<4d45>72 285.6 S<6e636f646564206d6f6e7468>-27.11 E 28.78<4445>72 301.8 S<6e636f64656420646179>-28.78 E 31<6845>72 318 S <6e636f64656420686f7572>-31 E 28.22<6d45>72 334.2 S <6e636f646564206d696e757465>-28.22 E 32.11<7345>72 350.4 S <6e636f646564207365636f6e64>-32.11 E 19.06<4e4e20456e636f646564>72 366.6 R<656e>2.5 E -.15<7665>-.4 G<6c6f7065206e756d626572>.15 E 8.5 <7070707070204174>72 382.8 R<6c65617374208c76>2.5 E 2.5<6564>-.15 G <6563696d616c20646967697473206f66207468652070726f63657373204944>-2.5 E .477 <416c6c208c6c65732077697468207468652073616d6520696420636f6c6c65637469>97 399 R -.15<7665>-.25 G .477<6c792064658c6e65206f6e65206d6573736167652e> .15 F .477<44756520746f2074686520757365206f66206d656d6f72792d62>5.477 F <7566>-.2 E .477<6665726564208c6c65732c>-.25 F <736f6d65206f66207468657365208c6c6573206d6179206e65>72 411 Q -.15<7665> -.25 G 2.5<7261>.15 G<7070656172206f6e206469736b2e>-2.5 E <546865207479706573206172653a>97 427.2 Q 25.17<716620546865>72 443.4 R <717565756520636f6e74726f6c208c6c652e>2.5 E<54686973208c6c6520636f6e7461 696e732074686520696e666f726d6174696f6e206e656365737361727920746f2070726f 6365737320746865206a6f62>5 E<2e>-.4 E 25.17<686620546865>72 459.6 R <73616d65206173206120717565756520636f6e74726f6c208c6c652c2062>2.5 E <757420666f7220612071756172616e74696e6564207175657565206a6f62>-.2 E<2e> -.4 E 25.17<646620546865>72 475.8 R .452<64617461208c6c652e>2.952 F .452 <546865206d65737361676520626f6479202865>5.452 F .452 <78636c7564696e67207468652068656164657229206973206b>-.15 F .452 <65707420696e2074686973208c6c652e>-.1 F .451 <536f6d6574696d657320746865206466208c6c65>5.451 F .183<6973206e6f742073 746f72656420696e207468652073616d65206469726563746f7279206173207468652071 66208c6c653b20696e207468697320636173652c20746865207166208c6c6520636f6e74 61696e73206120606427207265636f7264207768696368>108 487.8 R<6e616d657320 746865207175657565206469726563746f7279207468617420636f6e7461696e73207468 65206466208c6c652e>108 499.8 Q 27.39<74662041>72 516 R .046 <74656d706f72617279208c6c652e>2.546 F .046 <5468697320697320616e20696d616765206f6620746865>5.046 F/F3 10 /Times-Bold@0 SF<7166>2.546 E F1 .046 <8c6c65207768656e206974206973206265696e6720726562>2.546 F 2.545 <75696c742e204974>-.2 F .045 <73686f756c642062652072656e616d656420746f2061>2.545 F F3<7166>108 528 Q F1<8c6c652076>2.5 E<65727920717569636b6c79>-.15 E<2e>-.65 E 25.17 <78662041>72 544.2 R .566<7472616e736372697074208c6c652c2065>3.066 F .567<78697374696e6720647572696e6720746865206c696665206f6620612073657373 696f6e2073686f>-.15 F .567<77696e672065>-.25 F -.15<7665>-.25 G .567 <72797468696e6720746861742068617070656e7320647572696e672074686174>.15 F 3.122<73657373696f6e2e20536f6d6574696d6573>108 556.2 R .622<746865207866 208c6c65206d7573742062652067656e657261746564206265666f726520612071756575 652067726f757020686173206265656e2073656c65637465643b20696e2074686973> 3.122 F<636173652c20746865207866208c6c652077696c6c2062652073746f72656420 696e2061206469726563746f7279206f662074686520646566>108 568.2 Q <61756c742071756575652067726f75702e>-.1 E 22.95<51662041>72 584.4 R -.74 <6060>3.278 G<6c6f737427>.74 E 3.278<2771>-.74 G .778 <7565756520636f6e74726f6c208c6c652e>-3.278 F F2<73656e646d61696c>5.778 E F1 .778<72656e616d65732061>3.278 F F3<7166>3.278 E F1 .778<8c6c6520746f> 3.278 F F3<5166>3.278 E F1 .779<69662074686572652069732061207365>3.278 F -.15<7665>-.25 G .779<72652028636f6e8c6775726174696f6e29>.15 F .256 <70726f626c656d20746861742063616e6e6f7420626520736f6c76>108 596.4 R .256 <656420776974686f75742068756d616e20696e74657276>-.15 F 2.756 <656e74696f6e2e20536561726368>-.15 F .256 <746865206c6f678c6c6520666f7220746865207175657565208c6c65206964>2.756 F .052<746f208c67757265206f757420776861742068617070656e65642e>108 608.4 R .052<416674657220796f75207265736f6c76>5.052 F .052 <6564207468652070726f626c656d2c20796f752063616e2072656e616d6520746865> -.15 F F3<5166>2.552 E F1 .053<8c6c6520746f>2.553 F F3<7166>2.553 E F1 <616e64>2.553 E<73656e64206974206167>108 620.4 Q<61696e2e>-.05 E .131<54 686520717565756520636f6e74726f6c208c6c6520697320737472756374757265642061 73206120736572696573206f66206c696e65732065616368206265>97 636.6 R .131< 67696e6e696e672077697468206120636f6465206c65747465723b20746865208c6c6520 6d757374>-.15 F<656e6420776974682061206c696e6520636f6e7461696e696e67206f 6e6c7920612073696e676c6520646f742e>72 648.6 Q <546865206c696e65732061726520617320666f6c6c6f>5 E<77733a>-.25 E 28.78 <5654>72 664.8 S .819<68652076>-28.78 F .819<657273696f6e206e756d626572 206f6620746865207175657565208c6c6520666f726d61742c207573656420746f20616c 6c6f>-.15 F 3.32<776e>-.25 G -.25<6577>-3.32 G F2<73656e646d61696c>3.57 E F1 .82<62696e617269657320746f2072656164207175657565>3.32 F .004 <8c6c65732063726561746564206279206f6c6465722076>108 676.8 R 2.504 <657273696f6e732e20446566>-.15 F .004<61756c747320746f2076>-.1 F .004 <657273696f6e207a65726f2e>-.15 F .004<4d75737420626520746865208c72737420 6c696e65206f6620746865208c6c652069662070726573656e742e>5.004 F -.15 <466f>108 688.8 S 2.5<7238>.15 G<2e313320616e64206c61746572207468652076> -2.5 E<657273696f6e206e756d62657220697320382e>-.15 E 28.78<4154>72 705 S .745<686520696e666f726d6174696f6e206769>-28.78 F -.15<7665>-.25 G 3.245 <6e62>.15 G 3.246<7974>-3.245 G .746<68652041>-3.246 F .746 <5554483d20706172616d65746572206f6620746865>-.55 F/F4 9/Times-Roman@0 SF .746<534d5450204d41494c>3.246 F F1 .746 <636f6d6d616e64206f7220246640246a2069662073656e642d>3.246 F <6d61696c20686173206265656e2063616c6c6564206469726563746c79>108 717 Q <2e>-.65 E F3 188.36<534d4d3a30382d3131322053656e646d61696c>72 756 R <496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E 0 Cg EP %%Page: 113 109 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d313133>190.86 E /F1 10/Times-Roman@0 SF 28.78<4841>72 96 S .33 <6865616465722064658c6e6974696f6e2e>-25.95 F .33 <5468657265206d617920626520616e>5.33 F 2.829<796e>-.15 G .329 <756d626572206f66207468657365206c696e65732e>-2.829 F .329 <546865206f7264657220697320696d706f7274616e743a20746865>5.329 F 2.829 <7972>-.15 G<657072652d>-2.829 E .046 <73656e7420746865206f7264657220696e20746865208c6e616c206d6573736167652e> 108 108 R .046<546865736520757365207468652073616d652073796e746178206173 206865616465722064658c6e6974696f6e7320696e2074686520636f6e8c67752d>5.046 F<726174696f6e208c6c652e>108 120 Q 29.33<4354>72 136.2 S .575 <686520636f6e74726f6c6c696e6720616464726573732e>-29.33 F .575<5468652073 796e74617820697320996c6f63616c757365723a616c6961736e616d659a2e>5.575 F .575<526563697069656e742061646472657373657320666f6c6c6f>5.575 F .575 <77696e672074686973>-.25 F 2.814 <6c696e652077696c6c206265208d616767656420736f20746861742064656c69>108 148.2 R -.15<7665>-.25 G 2.814 <726965732077696c6c2062652072756e20617320746865>.15 F/F2 10 /Times-Italic@0 SF<6c6f63616c75736572>5.314 E F1 2.814 <28612075736572206e616d652066726f6d20746865>5.314 F .562 <2f6574632f706173737764208c6c65293b>108 160.2 R F2<616c6961736e616d65> 3.062 E F1 .561 <697320746865206e616d65206f662074686520616c69617320746861742065>3.062 F .561<7870616e64656420746f2074686973206164647265737320287573656420666f72 207072696e742d>-.15 F<696e67206d65737361676573292e>108 172.2 Q 31<7154> 72 188.4 S<68652071756172616e74696e6520726561736f6e20666f72207175617261 6e74696e6564207175657565206974656d732e>-31 E 28.78<5154>72 204.6 S .797 <68652060>-28.78 F .797<606f726967696e616c20726563697069656e7427>-.74 F .798<272c2073706563698c656420627920746865204f524350543d208c656c6420696e 20616e2045534d5450207472616e73616374696f6e2e>-.74 F .798<557365642065> 5.798 F<78636c752d>-.15 E<7369>108 216.6 Q -.15<7665>-.25 G <6c7920666f722044656c69>.15 E -.15<7665>-.25 G <727920537461747573204e6f74698c636174696f6e732e>.15 E <4974206170706c696573206f6e6c7920746f2074686520666f6c6c6f>5 E <77696e6720605227206c696e652e>-.25 E 32.67<7254>72 232.8 S .783 <68652060>-32.67 F .783<608c6e616c20726563697069656e7427>-.74 F 3.282 <2775>-.74 G .782<73656420666f722044656c69>-3.282 F -.15<7665>-.25 G .782<727920537461747573204e6f74698c636174696f6e732e>.15 F .782 <4974206170706c696573206f6e6c7920746f2074686520666f6c6c6f>5.782 F .782 <77696e6720605227>-.25 F<6c696e652e>108 244.8 Q 29.33<5241>72 261 S .705 <726563697069656e7420616464726573732e>-26.125 F .705<546869732077696c6c 206e6f726d616c6c7920626520636f6d706c6574656c7920616c69617365642c2062> 5.705 F .705 <75742069732061637475616c6c79207265616c6961736564207768656e20746865>-.2 F .493<6a6f622069732070726f6365737365642e>108 273 R .492<54686572652077 696c6c206265206f6e65206c696e6520666f72206561636820726563697069656e742e> 5.493 F -1.11<5665>5.492 G .492<7273696f6e2031207166208c6c657320616c736f 20696e636c7564652061206c6561642d>1.11 F .986<696e6720636f6c6f6e2d746572 6d696e61746564206c697374206f66208d6167732c20736f6d65206f6620776869636820 6172652060532720746f2072657475726e2061206d657373616765206f6e207375636365 737366756c208c6e616c>108 285 R<64656c69>108 297 Q -.15<7665>-.25 G<7279> .15 E 2.826<2c60>-.65 G .326 <462720746f2072657475726e2061206d657373616765206f6e2066>-2.826 F .325<61 696c7572652c2060442720746f2072657475726e2061206d657373616765206966207468 65206d6573736167652069732064656c617965642c20604e27>-.1 F .841 <746f2073757070726573732072657475726e696e672074686520626f6479>108 309 R 3.342<2c61>-.65 G .842 <6e642060502720746f206465636c617265207468697320617320612060>-3.342 F <607072696d61727927>-.74 E 3.342<2728>-.74 G .842 <636f6d6d616e64206c696e65206f7220534d54502d>-3.342 F <73657373696f6e2920616464726573732e>108 321 Q 30.44<5354>72 337.2 S <68652073656e64657220616464726573732e>-30.44 E<5468657265206d6179206f6e 6c79206265206f6e65206f66207468657365206c696e65732e>5 E 29.89<5454>72 353.4 S<6865206a6f62206372656174696f6e2074696d652e>-29.89 E<546869732069 73207573656420746f20636f6d70757465207768656e20746f2074696d65206f75742074 6865206a6f62>5 E<2e>-.4 E 30.44<5054>72 369.6 S .114 <68652063757272656e74206d657373616765207072696f72697479>-30.44 F 5.114 <2e54>-.65 G .113 <686973206973207573656420746f206f72646572207468652071756575652e>-5.114 F .113<486967686572206e756d62657273206d65616e206c6f>5.113 F .113 <776572207072696f72692d>-.25 F 3.676<746965732e20546865>108 381.6 R 1.176<7072696f72697479206368616e67657320617320746865206d6573736167652073 69747320696e207468652071756575652e>3.676 F 1.177 <54686520696e697469616c207072696f7269747920646570656e6473206f6e20746865> 6.176 F<6d65737361676520636c61737320616e64207468652073697a65206f66207468 65206d6573736167652e>108 393.6 Q 27.11<4d41>72 409.8 S 2.704 <6d6573736167652e2054686973>-24.406 F .204 <6c696e65206973207072696e74656420627920746865>2.704 F F2<6d61696c71> 2.704 E F1 .203<636f6d6d616e642c20616e642069732067656e6572616c6c79207573 656420746f2073746f72652073746174757320696e666f72>2.704 F<2d>-.2 E 2.5 <6d6174696f6e2e204974>108 421.8 R<63616e20636f6e7461696e20616e>2.5 E 2.5 <7974>-.15 G -.15<6578>-2.5 G<742e>.15 E 30.44<4646>72 438 S .043<6c6167 20626974732c20726570726573656e746564206173206f6e65206c657474657220706572 208d61672e>-30.44 F .043<44658c6e6564208d6167206269747320617265>5.043 F F0<72>2.543 E F1 .044 <696e6469636174696e6720746861742074686973206973206120726573706f6e7365> 2.544 F .143<6d65737361676520616e64>108 450 R F0<77>2.643 E F1 .143 <696e6469636174696e67207468617420612077>2.643 F .142<61726e696e67206d65 737361676520686173206265656e2073656e7420616e6e6f756e63696e67207468617420 746865206d61696c20686173206265656e>-.1 F 2.513 <64656c617965642e204f74686572>108 462 R .013<8d61672062697473206172653a> 2.513 F F0<38>2.513 E F1 2.513<3a74>C .013 <686520626f647920636f6e7461696e73203862697420646174612c>-2.513 F F0<62> 2.513 E F1 -5.012 2.513<3a612042>D .014 <63633a206865616465722073686f756c642062652072656d6f>-2.513 F -.15<7665> -.15 G<642c>.15 E F0<64>2.514 E F1<3a>A .552<746865206d61696c2068617320 52455420706172616d65746572732028736565205246432031383934292c>108 474 R F0<6e>3.052 E F1 3.052<3a74>C .552<686520626f6479206f6620746865206d6573 736167652073686f756c64206e6f742062652072657475726e6564>-3.052 F <696e2063617365206f6620616e206572726f72>108 486 Q<2c>-.4 E F0<73>2.5 E F1 2.5<3a74>C<686520656e>-2.5 E -.15<7665>-.4 G <6c6f706520686173206265656e2073706c69742e>.15 E 28.78<4e54>72 502.2 S <686520746f74616c206e756d626572206f662064656c69>-28.78 E -.15<7665>-.25 G<727920617474656d7074732e>.15 E 28.78<4b54>72 518.4 S<68652074696d6520 286173207365636f6e64732073696e6365204a616e7561727920312c203139373029206f 6620746865206c6173742064656c69>-28.78 E -.15<7665>-.25 G <727920617474656d70742e>.15 E 31<6449>72 534.6 S 3.15<6674>-31 G .65 <6865206466208c6c6520697320696e206120646966>-3.15 F .65<666572656e742064 69726563746f7279207468616e20746865207166208c6c652c207468656e206120606427 207265636f72642069732070726573656e742c2073706563696679696e6720746865> -.25 F<6469726563746f727920696e20776869636820746865206466208c6c65207265 73696465732e>108 546.6 Q 32.67<4954>72 562.8 S .725<686520692d6e756d6265 72206f66207468652064617461208c6c653b20746869732063616e206265207573656420 746f207265636f>-32.67 F -.15<7665>-.15 G 3.224<7279>.15 G .724<6f757220 6d61696c207175657565206166746572206120646973617374726f7573206469736b> -3.224 F<63726173682e>108 574.8 Q 31<2441>72 591 S <6d6163726f2064658c6e6974696f6e2e>-28.5 E<5468652076>5 E<616c756573206f 66206365727461696e206d6163726f732061726520706173736564207468726f75676820 746f207468652071756575652072756e2070686173652e>-.25 E 29.33<4254>72 607.2 S .924<686520626f647920747970652e>-29.33 F .925 <5468652072656d61696e646572206f6620746865206c696e652069732061207465> 5.924 F .925 <787420737472696e672064658c6e696e672074686520626f647920747970652e>-.15 F .925<49662074686973208c656c64206973>5.925 F .009<6d697373696e672c207468 6520626f6479207479706520697320617373756d656420746f2062652099756e64658c6e 65649a20616e64206e6f207370656369616c2070726f63657373696e6720697320617474 656d707465642e>108 619.2 R<4c65>5.008 E -.05<6761>-.15 G<6c>.05 E -.25 <7661>108 631.2 S <6c756573206172652099374249549a20616e642099384249544d494d459a2e>.25 E 29.89<5a54>72 647.4 S<6865206f726967696e616c20656e>-29.89 E -.15<7665> -.4 G<6c6f7065206964202866726f6d207468652045534d5450207472616e7361637469 6f6e292e>.15 E -.15<466f>5 G 2.5<7244>.15 G<656c69>-2.5 E -.15<7665>-.25 G 2.5<7253>.15 G<7461747573204e6f74698c636174696f6e73206f6e6c79>-2.5 E <2e>-.65 E 32.67<2149>72 663.6 S<6e666f726d6174696f6e20666f722044656c69> -32.67 E -.15<7665>-.25 G -.2<722d>.15 G<427920534d54502065>.2 E <7874656e73696f6e2e>-.15 E 4.072<417320616e2065>97 679.8 R 4.072 <78616d706c652c2074686520666f6c6c6f>-.15 F 4.073<77696e6720697320612071 75657565208c6c652073656e7420746f209965726963406d616d6d6f74682e4265726b> -.25 F<656c65>-.1 E -.65<792e>-.15 G 4.073<4544559a20616e64>.65 F 0 Cg EP %%Page: 114 110 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 188.36<534d4d3a30382d3131342053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465> 2.5 E/F1 10/Times-Roman@0 SF<99626f73746963406f6b>72 98 Q<656566>-.1 E <66652e43532e4265726b>-.25 E<656c65>-.1 E -.65<792e>-.15 G<4544559a>.65 E/F2 7/Times-Roman@0 SF<31>-4 I F1<3a>4 I<5634>112 114.2 Q <54373131333538313335>112 126.2 Q<4b393034343436343930>112 138.2 Q<4e30> 112 150.2 Q<5032313030393431>112 162.2 Q <245f65726963406c6f63616c686f7374>112 174.2 Q <247b6461656d6f6e5f8d6167737d>112 186.2 Q<5365726963>112 198.2 Q <43657269633a3130303a313030303a73656e646d61696c4076>112 210.2 Q <616e676f67682e43532e4265726b>-.25 E<656c65>-.1 E -.65<792e>-.15 G <454455>.65 E<525046443a65726963406d616d6d6f74682e4265726b>112 222.2 Q <656c65>-.1 E -.65<792e>-.15 G<454455>.65 E <525046443a626f73746963406f6b>112 234.2 Q<656566>-.1 E <66652e43532e4265726b>-.25 E<656c65>-.1 E -.65<792e>-.15 G<454455>.65 E <483f503f52657475726e2d706174683a203c5e673e>112 246.2 Q <483f3f5265636569>112 258.2 Q -.15<7665>-.25 G<643a2062792076>.15 E <616e676f67682e43532e4265726b>-.25 E<656c65>-.1 E -.65<792e>-.15 G <4544552028352e3130382f322e37292069642041414130363730333b>.65 E <4672692c203137204a756c20313939322030303a32383a3535202d30373030>132 270.2 Q<483f3f5265636569>112 282.2 Q -.15<7665>-.25 G <643a2066726f6d206d61696c2e43532e4265726b>.15 E<656c65>-.1 E -.65<792e> -.15 G<4544552062792076>.65 E<616e676f67682e43532e4265726b>-.25 E <656c65>-.1 E -.65<792e>-.15 G<4544552028352e3130382f322e3729>.65 E<6964 2041414130363639383b204672692c203137204a756c20313939322030303a32383a3534 202d30373030>132 294.2 Q<483f3f5265636569>112 306.2 Q -.15<7665>-.25 G< 643a2066726f6d205b3132382e33322e33312e32315d206279206d61696c2e43532e4265 726b>.15 E<656c65>-.1 E -.65<792e>-.15 G<4544552028352e39362f322e3529> .65 E<696420414132323737373b204672692c203137204a756c20313939322030333a32 393a3134202d30343030>132 318.2 Q<483f3f5265636569>112 330.2 Q -.15<7665> -.25 G<643a20627920666f6f2e626172>.15 E <2e62617a2e64652028352e35372f556c74726978332e302d4329>-.55 E<6964204141 32323735373b204672692c203137204a756c20313939322030393a33313a323520474d54> 132 342.2 Q<483f463f46726f6d3a206572696340666f6f2e626172>112 354.2 Q <2e62617a2e646520284572696320416c6c6d616e29>-.55 E <483f783f46756c6c2d6e616d653a204572696320416c6c6d616e>112 366.2 Q<483f3f 4d6573736167652d69643a203c393230373137303933312e4141323237353740666f6f2e 626172>112 378.2 Q<2e62617a2e64653e>-.55 E<483f3f54>112 390.2 Q <6f3a2073656e646d61696c4076>-.8 E<616e676f67682e43532e4265726b>-.25 E <656c65>-.1 E -.65<792e>-.15 G<454455>.65 E <483f3f5375626a6563743a207468697320697320616e2065>112 402.2 Q <78616d706c65206d657373616765>-.15 E<2e>112 414.2 Q .657 <546869732073686f>72 430.4 R .658<77732074686520706572736f6e2077686f2073 656e7420746865206d6573736167652c20746865207375626d697373696f6e2074696d65 2028696e207365636f6e64732073696e6365204a616e7561727920312c2031393730292c 20746865>-.25 F<6d657373616765207072696f72697479>72 442.4 Q 2.5<2c74> -.65 G<6865206d65737361676520636c6173732c2074686520726563697069656e7473 2c20616e6420746865206865616465727320666f7220746865206d6573736167652e> -2.5 E .32 LW 76 678.8 72 678.8 DL 80 678.8 76 678.8 DL 84 678.8 80 678.8 DL 88 678.8 84 678.8 DL 92 678.8 88 678.8 DL 96 678.8 92 678.8 DL 100 678.8 96 678.8 DL 104 678.8 100 678.8 DL 108 678.8 104 678.8 DL 112 678.8 108 678.8 DL 116 678.8 112 678.8 DL 120 678.8 116 678.8 DL 124 678.8 120 678.8 DL 128 678.8 124 678.8 DL 132 678.8 128 678.8 DL 136 678.8 132 678.8 DL 140 678.8 136 678.8 DL 144 678.8 140 678.8 DL 148 678.8 144 678.8 DL 152 678.8 148 678.8 DL 156 678.8 152 678.8 DL 160 678.8 156 678.8 DL 164 678.8 160 678.8 DL 168 678.8 164 678.8 DL 172 678.8 168 678.8 DL 176 678.8 172 678.8 DL 180 678.8 176 678.8 DL 184 678.8 180 678.8 DL 188 678.8 184 678.8 DL 192 678.8 188 678.8 DL 196 678.8 192 678.8 DL 200 678.8 196 678.8 DL 204 678.8 200 678.8 DL 208 678.8 204 678.8 DL 212 678.8 208 678.8 DL 216 678.8 212 678.8 DL/F3 5 /Times-Roman@0 SF<31>93.6 689.2 Q/F4 8/Times-Roman@0 SF .719 <546869732065>3.2 J .719<78616d706c6520697320636f6e747269>-.12 F -.12 <7665>-.2 G 2.719<6461>.12 G .719 <6e642070726f6261626c7920696e616363757261746520666f7220796f757220656e> -2.719 F 2.719<7669726f6e6d656e742e20476c616e6365>-.32 F -.12<6f7665> 2.718 G 2.718<7269>.12 G 2.718<7474>-2.718 G 2.718<6f67>-2.718 G .718 <657420616e20696465613b206e6f7468696e672063616e207265706c616365>-2.718 F <6c6f6f6b696e67206174207768617420796f7572206f>72 702 Q <776e2073797374656d2067656e6572617465732e>-.2 E 0 Cg EP %%Page: 115 111 %%BeginPageSetup BP %%EndPageSetup /F0 12/Times-Bold@0 SF 3<415050454e4449582043>249.672 98.4 R <53554d4d4152>198.282 141.6 Q 3<594f>-.42 G 3<4653>-3 G<5550504f52>-3 E 3<5446>-.48 G<494c4553>-3 E/F1 10/Times-Roman@0 SF 1.52<5468697320697320 612073756d6d617279206f662074686520737570706f7274208c6c65732074686174>97 201 R/F2 10/Times-Italic@0 SF<73656e646d61696c>4.019 E F1 1.519 <63726561746573206f722067656e6572617465732e>4.019 F<4d616e>6.519 E 4.019 <796f>-.15 G 4.019<6674>-4.019 G 1.519<686573652063616e206265>-4.019 F< 6368616e6765642062792065646974696e67207468652073656e646d61696c2e6366208c 6c653b20636865636b20746865726520746f208c6e64207468652061637475616c207061 74686e616d65732e>72 213 Q<2f7573722f7362696e2f73656e646d61696c>72 229.2 Q<5468652062696e617279206f66>144 241.2 Q F2<73656e646d61696c>2.5 E F1 <2e>A<2f7573722f62696e2f6e65>72 257.4 Q -.1<7761>-.25 G<6c6961736573>.1 E 3.734<416c>144 269.4 S 1.235<696e6b20746f202f7573722f7362696e2f73656e 646d61696c3b206361757365732074686520616c69617320646174616261736520746f20 626520726562>-3.734 F 3.735<75696c742e2052756e6e696e67>-.2 F 1.235 <746869732070726f2d>3.735 F <6772616d20697320636f6d706c6574656c792065717569>144 281.4 Q -.25<7661> -.25 G<6c656e7420746f206769>.25 E<76696e67>-.25 E F2<73656e646d61696c> 2.5 E F1<746865>2.5 E/F3 10/Times-Bold@0 SF2.5 E F1<8d61672e>2.5 E 13.38<2f7573722f62696e2f6d61696c71205072696e7473>72 297.6 R 3.703 <616c>3.703 G 1.203<697374696e67206f6620746865206d61696c2071756575652e> -3.703 F 1.202<546869732070726f6772616d2069732065717569>6.203 F -.25 <7661>-.25 G 1.202<6c656e7420746f207573696e6720746865>.25 F F3 3.702 E F1 1.202<8d616720746f>3.702 F F2<73656e646d61696c>144 309.6 Q F1 <2e>A<2f6574632f6d61696c2f73656e646d61696c2e6366>72 325.8 Q <54686520636f6e8c6775726174696f6e208c6c652c20696e207465>144 337.8 Q <787475616c20666f726d2e>-.15 E 1.72 <2f6574632f6d61696c2f68656c708c6c6520546865>72 354 R <534d54502068656c70208c6c652e>2.5 E <2f6574632f6d61696c2f73746174697374696373>72 370.2 Q 2.5<4173>144 382.2 S <746174697374696373208c6c653b206e656564206e6f742062652070726573656e742e> -2.5 E<2f6574632f6d61696c2f73656e646d61696c2e706964>72 398.4 Q .318<4372 656174656420696e206461656d6f6e206d6f64653b20697420636f6e7461696e73207468 652070726f63657373206964206f66207468652063757272656e7420534d545020646165 6d6f6e2e>144 410.4 R .318<496620796f75>5.318 F 1.048 <757365207468697320696e20736372697074733b207573652060>144 422.4 R 1.048 <606865616420ad3127>-.74 F 3.548<2774>-.74 G 3.548<6f67>-3.548 G 1.047< 6574206a75737420746865208c727374206c696e653b20746865207365636f6e64206c69 6e6520636f6e7461696e7320746865>-3.548 F .679 <636f6d6d616e64206c696e65207573656420746f20696e>144 434.4 R -.2<766f>-.4 G .879 -.1<6b652074>.2 H .679 <6865206461656d6f6e2c20616e64206c617465722076>.1 F .679 <657273696f6e73206f66>-.15 F F2<73656e646d61696c>3.18 E F1 .68 <6d617920616464206d6f7265>3.18 F <696e666f726d6174696f6e20746f2073756273657175656e74206c696e65732e>144 446.4 Q 5.06<2f6574632f6d61696c2f616c696173657320546865>72 462.6 R<7465> 2.5 E<787475616c2076>-.15 E <657273696f6e206f662074686520616c696173208c6c652e>-.15 E <2f6574632f6d61696c2f616c69617365732e6462>72 478.8 Q <54686520616c696173208c6c6520696e>144 490.8 Q F2<68617368>2.5 E F1 <28332920666f726d61742e>1.666 E <2f6574632f6d61696c2f616c69617365732e7b7061672c6469727d>72 507 Q <54686520616c696173208c6c6520696e>144 519 Q F2<6e64626d>2.5 E F1 <28332920666f726d61742e>1.666 E<2f76>72 535.2 Q <61722f73706f6f6c2f6d7175657565>-.25 E<546865206469726563746f727920696e 20776869636820746865206d61696c20717565756528732920616e642074656d706f7261 7279208c6c6573207265736964652e>144 547.2 Q<2f76>72 563.4 Q <61722f73706f6f6c2f6d71756575652f71662a>-.25 E <436f6e74726f6c2028717565756529208c6c657320666f72206d657373616765732e> 144 575.4 Q<2f76>72 591.6 Q<61722f73706f6f6c2f6d71756575652f64662a>-.25 E<44617461208c6c65732e>144 603.6 Q<2f76>72 619.8 Q <61722f73706f6f6c2f6d71756575652f74662a>-.25 E -.7<5465>144 631.8 S <6d706f726172792076>.7 E<657273696f6e73206f6620746865207166208c6c65732c 207573656420647572696e67207175657565208c6c6520726562>-.15 E<75696c642e> -.2 E<2f76>72 648 Q<61722f73706f6f6c2f6d71756575652f78662a>-.25 E 2.5 <4174>144 660 S <72616e736372697074206f66207468652063757272656e742073657373696f6e2e>-2.5 E F3<53656e646d61696c20496e7374616c6c6174696f6e20616e64204f706572617469 6f6e204775696465>72 756 Q<534d4d3a30382d313135>190.86 E 0 Cg EP %%Page: 116 112 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 188.36<534d4d3a30382d3131362053656e646d61696c>72 60 R<496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465> 2.5 E/F1 10/Times-Roman@0 SF <54686973207061676520696e74656e74696f6e616c6c79206c65667420626c616e6b3b> 256.225 300 Q<7265706c6163652069742077697468206120626c616e6b207368656574 20666f7220646f75626c652d7369646564206f75747075742e>218.6 312 Q 0 Cg EP %%Page: 3 113 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d33>200.86 E/F1 12/Times-Roman@0 SF -1.116<5441>263.226 98.4 S <424c45204f4620434f4e54454e5453>1.116 E/F2 10/Times-Roman@0 SF 2.5 <312e2042>72 124.8 R<4153494320494e5354>-.35 E<414c4c41>-.93 E 1.18<5449 4f4e202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e>-1.11 F<37>31 E 2.5<312e312e20436f6d70696c696e67>87 139.2 R .43<53656e646d61696c202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e>2.5 F<37>31 E 2.5<312e312e312e2054>102 153.6 R<7765616b696e6720746865204275696c6420496e>-.8 E -.2<766f>-.4 G .19<6361 74696f6e202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>.2 F<37>31 E 2.5 <312e312e322e204372656174696e67>102 168 R 2.5<6153>2.5 G <69746520436f6e8c6775726174696f6e2046696c65>-2.5 E 28.5<2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2037>2.94 F 2.5<312e312e332e2054>102 182.4 R <7765616b696e6720746865204d616b>-.8 E 1.64<658c6c65202e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.1 F<38>31 E 2.5 <312e312e342e20436f6d70696c6174696f6e>102 196.8 R <616e6420696e7374616c6c6174696f6e>2.5 E 28.5<2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2038>4.6 F 2.5<312e322e20436f6e8c6775726174696f6e>87 211.2 R .99< 46696c6573202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e>2.5 F<38>31 E 2.5<312e332e2044657461696c73>87 225.6 R<6f6620496e7374616c6c6174696f6e2046696c6573>2.5 E 23.5<2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203130>4.89 F 2.5 <312e332e312e202f7573722f7362696e2f73656e646d61696c>102 240 R 23.5<2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203130> 2.66 F 2.5<312e332e322e202f6574632f6d61696c2f73656e646d61696c2e6366>102 254.4 R 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e20 3130>4.34 F 2.5<312e332e332e202f6574632f6d61696c2f7375626d69742e6366>102 268.8 R 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e203130>3.22 F 2.5<312e332e342e202f7573722f62696e2f6e65>102 283.2 R -.1<7761>-.25 G 2.19<6c6961736573202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e>.1 F<3130>26 E 2.5 <312e332e352e202f7573722f62696e2f686f737473746174>102 297.6 R 23.5<2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2031 30>4.6 F 2.5<312e332e362e202f7573722f62696e2f707572>102 312 R 1.18<6765 73746174202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e>-.18 F<3131>26 E 2.5<312e332e372e202f76>102 326.4 R 1.81<61722f73 706f6f6c2f6d7175657565202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e>-.25 F<3131>26 E 2.5<312e332e382e202f76>102 340.8 R 2.09<61722f73706f6f6c2f636c69656e746d7175657565202e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e>-.25 F<3131>26 E 2.5<312e332e392e202f76>102 355.2 R .97<61722f73706f6f6c2f6d71756575652f2e686f737473746174202e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.25 F<3131>26 E 2.5 <312e332e31302e202f6574632f6d61696c2f616c69617365732a>102 369.6 R 23.5< 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203131> 4.06 F 2.5<312e332e31312e202f6574632f7263>102 384 R <6f72202f6574632f696e69742e642f73656e646d61696c>2.5 E 23.5<2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e203132>3.23 F 2.5 <312e332e31322e202f6574632f6d61696c2f68656c708c6c65>102 398.4 R 23.5<2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203132> 3.22 F 2.5<312e332e31332e202f6574632f6d61696c2f73746174697374696373>102 412.8 R 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e203132>3.77 F 2.5<312e332e31342e202f7573722f62696e2f6d61696c71>102 427.2 R 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e203132>4.88 F 2.5 <312e332e31352e2073656e646d61696c2e706964>102 441.6 R 23.5<2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203132> 4.61 F 2.5<312e332e31362e204d6170>102 456 R .72<46696c6573202e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e>2.5 F<3134>26 E 2.5<322e204e4f524d414c>72 470.4 R<4f50455241>2.5 E 1.56<54494f4e53202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e>-1.11 F<3134>26 E 2.5<322e312e20546865>87 484.8 R <53797374656d204c6f67>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203134>4.89 F 2.5 <322e312e312e2046>102 499.2 R 2.26<6f726d6174202e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e>-.15 F<3134>26 E 2.5<322e312e322e204c65>102 513.6 R -.15<7665>-.25 G 2.24<6c73202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>.15 F<3135>26 E 2.5 <322e322e2044756d70696e67>87 528 R .72<5374617465202e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e>2.5 F<3135>26 E 2.5<322e332e20546865>87 542.4 R <4d61696c20517565756573>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203136>4.07 F 2.5 <322e332e312e205175657565>102 556.8 R <47726f75707320616e64205175657565204469726563746f72696573>2.5 E 23.5<2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e203136>2.99 F 2.5<322e332e322e205175657565>102 571.2 R 1.84<52756e7320 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e>2.5 F<3136>26 E 2.5<322e332e332e204d616e75616c>102 585.6 R <496e74657276>2.5 E 1.72<656e74696f6e202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e>-.15 F<3137>26 E 2.5 <322e332e342e205072696e74696e67>102 600 R<746865207175657565>2.5 E 23.5< 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203137> 2.67 F 2.5<322e332e352e2046>102 614.4 R <6f7263696e6720746865207175657565>-.15 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203137>3.94 F 2.5 <322e332e362e2051756172616e74696e6564>102 628.8 R <5175657565204974656d73>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e203138>3.25 F 2.5<322e342e204469736b>87 643.2 R <426173656420436f6e6e656374696f6e20496e666f726d6174696f6e>2.5 E 23.5<2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e203138>3.79 F 2.5<322e352e20546865>87 657.6 R <5365727669636520537769746368>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203139>2.68 F 2.5 <322e362e20546865>87 672 R<416c696173204461746162617365>2.5 E 23.5<2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e203230>2.69 F 2.5<322e362e312e20526562>102 686.4 R <75696c64696e672074686520616c696173206461746162617365>-.2 E 23.5<2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e203231>4.27 F 2.5 <322e362e322e20506f74656e7469616c>102 700.8 R .72<70726f626c656d73202e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>2.5 F<3231> 26 E 2.5<322e362e332e204c697374>102 715.2 R -.25<6f77>2.5 G 1.81<6e6572 73202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e>.25 F<3231>26 E 0 Cg EP %%Page: 4 114 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 198.36<534d4d3a30382d342053656e646d61696c>72 60 R <496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 2.5<322e372e2055736572>87 96 R <496e666f726d6174696f6e204461746162617365>2.5 E 23.5<2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203232>2.7 F 2.5<322e382e20506572> 87 110.4 R<2d557365722046>-.2 E<6f7277>-.15 E <617264696e6720282e666f7277>-.1 E<6172642046696c657329>-.1 E 23.5<2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e203232>4.09 F 2.5<322e392e205370656369616c>87 124.8 R <486561646572204c696e6573>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203232>2.97 F 2.5 <322e392e312e204572726f72732d54>102 139.2 R 2.09<6f3a202e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e>-.8 F<3232>26 E 2.5<322e392e322e204170706172656e746c792d54>102 153.6 R 2.09<6f3a202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e>-.8 F<3232>26 E 2.5<322e392e332e20507265636564656e6365> 102 168 R 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203233>2.97 F 2.5 <322e31302e204944454e54>87 182.4 R<50726f746f636f6c20537570706f7274>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203233> 2.95 F 2.5<332e20415247554d454e5453>72 196.8 R 23.5<2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e203233>3.78 F 2.5<332e312e205175657565>87 211.2 R <496e74657276>2.5 E 1.55<616c202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.25 F<3233>26 E 2.5<332e322e204461656d6f6e>87 225.6 R 1.29<4d6f6465202e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e>2.5 F<3234>26 E 2.5<332e332e2046>87 240 R <6f7263696e6720746865205175657565>-.15 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203234>4.22 F 2.5<332e342e20446562>87 254.4 R 1.76<756767696e67202e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e>-.2 F<3234>26 E 2.5<332e352e204368616e67696e67>87 268.8 R <7468652056>2.5 E<616c756573206f66204f7074696f6e73>-1.11 E 23.5<2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203235>3.23 F 2.5<332e362e2054>87 283.2 R<7279696e67206120446966>-.35 E <666572656e7420436f6e8c6775726174696f6e2046696c65>-.25 E 23.5<2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e203235>4.67 F 2.5<332e372e204c6f6767696e67>87 297.6 R -.35 <5472>2.5 G<6166>.35 E .5<8c63202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.25 F<3236>26 E 2.5<332e382e2054>87 312 R <657374696e6720436f6e8c6775726174696f6e2046696c6573>-.7 E 23.5<2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203236>4.19 F 2.5 <332e392e2050657273697374656e74>87 326.4 R <486f73742053746174757320496e666f726d6174696f6e>2.5 E 23.5<2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e203237>3.5 F 2.5<342e2054554e494e47>72 340.8 R 23.5< 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203237>2.68 F 2.5<342e312e2054>87 355.2 R 1.07<696d656f757473202e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e>-.35 F<3237>26 E 2.5<342e312e312e205175657565>102 369.6 R<696e74657276>2.5 E 2.1<616c202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.25 F<3238>26 E 2.5 <342e312e322e2052656164>102 384 R 1<74696d656f757473202e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>2.5 F<3238> 26 E 2.5<342e312e332e204d657373616765>102 398.4 R 1.56<74696d656f757473 202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>2.5 F<3239>26 E 2.5<342e322e2046>87 412.8 R <6f726b696e6720447572696e672051756575652052756e73>-.15 E 23.5<2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203330>4.49 F 2.5 <342e332e205175657565>87 427.2 R .73<5072696f726974696573202e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e>2.5 F<3330>26 E 2.5<342e342e204c6f6164>87 441.6 R .44<4c696d6974 696e67202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>2.5 F<3331>26 E 2.5 <342e352e205265736f75726365>87 456 R .17<4c696d697473202e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e>2.5 F<3331>26 E 2.5<342e362e204d65617375726573>87 470.4 R<6167>2.5 E <61696e73742044656e69616c206f6620536572766963652041747461636b73>-.05 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e203331>3.87 F 2.5<342e372e2044656c69>87 484.8 R -.15<7665>-.25 G <7279204d6f6465>.15 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203332>3.08 F 2.5 <342e382e204c6f67>87 499.2 R<4c65>2.5 E -.15<7665>-.25 G 2.52<6c2e>.15 G 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203332>-2.52 F 2.5 <342e392e2046696c65>87 513.6 R .72<4d6f646573202e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e>2.5 F<3333>26 E 2.5<342e392e312e2054>102 528 R 2.5<6f73>-.8 G <756964206f72206e6f7420746f20737569643f>-2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203333>6.52 F 2.5<342e392e322e2054>102 542.4 R<75726e696e67206f66>-.45 E 2.5<6673>-.25 G <6563757269747920636865636b73>-2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e203333>3.95 F 2.5<342e31302e20436f6e6e656374696f6e>87 556.8 R 1.56 <43616368696e67202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e>2.5 F<3336>26 E 2.5<342e31312e204e616d65>87 571.2 R <53657276>2.5 E<657220416363657373>-.15 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203336>2.85 F 2.5 <342e31322e204d6f>87 585.6 R<76696e672074686520506572>-.15 E <2d557365722046>-.2 E<6f7277>-.15 E<6172642046696c6573>-.1 E 23.5<2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e203337>3.84 F 2.5<342e31332e2046726565>87 600 R 1.85< 5370616365202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>2.5 F<3337>26 E 2.5 <342e31342e204d6178696d756d>87 614.4 R<4d6573736167652053697a65>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203338> 4.62 F 2.5<342e31352e20507269>87 628.8 R -.25<7661>-.25 G .3 -.15 <63792046>.25 H 1.93<6c616773202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>.15 F<3338>26 E 2.5<342e31362e2053656e64>87 643.2 R<746f204d652054>2.5 E 2.08<6f6f202e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e>-.8 F<3338>26 E 2.5<352e20544845>72 657.6 R <57484f4c452053434f4f50204f4e2054484520434f4e464947555241>2.5 E <54494f4e2046494c45>-1.11 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e203338>4.64 F 2.5<352e312e2052>87 672 R<616e642053208a205265>2.5 E <77726974696e672052756c6573>-.25 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e203338>4.3 F 2.5<352e312e312e20546865>102 686.4 R <6c6566742068616e642073696465>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203339>4.07 F 2.5 <352e312e322e20546865>102 700.8 R<72696768742068616e642073696465>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2033 39>3.51 F 2.5<352e312e332e2053656d616e74696373>102 715.2 R<6f66207265> 2.5 E<77726974696e672072756c652073657473>-.25 E 23.5<2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e203431>4.6 F 0 Cg EP %%Page: 5 115 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF<53656e646d61696c20496e7374616c6c6174696f6e20616e 64204f7065726174696f6e204775696465>72 60 Q<534d4d3a30382d35>200.86 E/F1 10/Times-Roman@0 SF 2.5<352e312e342e2052756c65736574>102 96 R 2.11<686f 6f6b73202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e>2.5 F<3432>26 E 2.5 <352e312e342e312e20636865636b5f72656c6179>117 110.4 R 23.5<2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203432>2.69 F 2.5<352e312e342e322e20636865636b5f6d61696c>117 124.8 R 23.5<2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203432>4.9 F 2.5 <352e312e342e332e20636865636b5f72637074>117 139.2 R 23.5<2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203432>4.63 F 2.5<352e312e342e342e20636865636b5f64617461>117 153.6 R 23.5<2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203432>3.52 F 2.5<352e312e342e352e20636865636b5f6f74686572>117 168 R 23.5<2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203432>4.63 F 2.5 <352e312e342e362e20636865636b5f636f6d706174>117 182.4 R 23.5<2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203433>3.24 F 2.5 <352e312e342e372e20636865636b5f656f68>117 196.8 R 23.5<2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203433>3.24 F 2.5<352e312e342e382e20636865636b5f656f6d>117 211.2 R 23.5<2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203433>2.96 F 2.5<352e312e342e392e20636865636b5f6574726e>117 225.6 R 23.5<2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203434>4.63 F 2.5<352e312e342e31302e20636865636b5f65>117 240 R .89<78706e202e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.15 F<3434>26 E 2.5<352e312e342e31312e20636865636b5f76726679>117 254.4 R 23.5<2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203434>3.52 F 2.5<352e312e342e31322e20636c745f6665617475726573>117 268.8 R 23.5<2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203434>4.35 F 2.5<352e312e342e31332e2074727573745f61757468>117 283.2 R 23.5<2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203434>3.5 F 2.5<352e312e342e31342e20746c735f636c69656e74>117 297.6 R 23.5<2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203434> 4.33 F 2.5<352e312e342e31352e20746c735f73657276>117 312 R 2.27<6572202e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e> -.15 F<3434>26 E 2.5<352e312e342e31362e20746c735f72637074>117 326.4 R 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e203434>3.5 F 2.5 <352e312e342e31372e207372765f6665617475726573>117 340.8 R 23.5<2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203435>4.63 F 2.5 <352e312e342e31382e207472795f746c73>117 355.2 R 23.5<2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203436> 2.94 F 2.5<352e312e342e31392e20746c735f7372765f6665617475726573>117 369.6 R<616e6420746c735f636c745f6665617475726573>2.5 E 23.5<2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203436>4.64 F 2.5 <352e312e342e32302e2061757468696e666f>117 384 R 23.5<2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203437>2.67 F 2.5<352e312e342e32312e207175657565>117 398.4 R 1.44<67726f7570202e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.15 F<3438>26 E 2.5<352e312e342e32322e2067726565745f7061757365>117 412.8 R 23.5<2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203438>3.24 F 2.5<352e312e352e20495043>102 427.2 R 1<6d61696c657273202e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e> 2.5 F<3438>26 E 2.5<352e322e2044>87 441.6 R 2.5<8a44>2.5 G <658c6e65204d6163726f>-2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203439>3.52 F 2.5 <352e332e2043>87 456 R<616e642046208a2044658c6e6520436c6173736573>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203536> 2.67 F 2.5<352e342e2045>87 470.4 R 2.5<8a53>2.5 G <6574206f722050726f706167>-2.5 E<61746520456e>-.05 E <7669726f6e6d656e742056>-.4 E 2.31<61726961626c6573202e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-1.11 F<3537>26 E 2.5 <352e352e204d>87 484.8 R 2.5<8a44>2.5 G<658c6e65204d61696c6572>-2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e203538>3.79 F 2.5<352e362e2048>87 499.2 R 2.5<8a44>2.5 G <658c6e6520486561646572>-2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203632>3.25 F 2.5 <352e372e204f>87 513.6 R 2.5<8a53>2.5 G<6574204f7074696f6e>-2.5 E 23.5< 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e203633>3.22 F 2.5<352e382e2050>87 528 R 2.5<8a50>2.5 G <7265636564656e63652044658c6e6974696f6e73>-2.5 E 23.5<2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203833>2.96 F 2.5<352e392e2056>87 542.4 R 2.5<8a43>2.5 G<6f6e8c6775726174696f6e2056>-2.5 E <657273696f6e204c65>-1.11 E -.15<7665>-.25 G 2.8<6c2e>.15 G 23.5<2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e203833>-2.8 F 2.5<352e31302e204b>87 556.8 R 2.5<8a4b>2.5 G .3 -.15<65792046>-2.75 H<696c65204465636c61726174696f6e> .15 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203834> 2.81 F 2.5<352e31312e2051>87 571.2 R 2.5<8a51>2.5 G <756575652047726f7570204465636c61726174696f6e>-2.5 E 23.5<2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e203932>2.98 F 2.5<352e31322e2058>87 585.6 R 2.5 <8a4d>2.5 G <61696c2046696c74657220284d696c746572292044658c6e6974696f6e73>-2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e203933>4.61 F 2.5<352e31332e20546865>87 600 R <55736572204461746162617365>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203934>4.92 F 2.5 <352e31332e312e20537472756374757265>102 614.4 R <6f66207468652075736572206461746162617365>2.5 E 23.5<2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e203934>2.7 F 2.5<352e31332e322e2055736572>102 628.8 R <64617461626173652073656d616e74696373>2.5 E 23.5<2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e203935>3.25 F 2.5<352e31332e332e204372656174696e67> 102 645.2 R<746865206461746162617365>2.5 E/F2 7/Times-Roman@0 SF<3233>-4 I F1 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203935>2.91 4 N 2.5<362e204f>72 659.6 R<5448455220434f4e464947555241>-.4 E 1.97<54494f4e 202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e> -1.11 F<3936>26 E 2.5<362e312e2050>87 674 R <6172616d657465727320696e206465>-.15 E .3<76746f6f6c732f4f532f246f736366 202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.25 F<3936>26 E 2.5 <362e312e312e2046>102 688.4 R<6f72204675747572652052656c6561736573>-.15 E 23.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2039 37>3.66 F 2.5<362e322e2050>87 702.8 R <6172616d657465727320696e2073656e646d61696c2f636f6e662e68>-.15 E 23.5<2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e203937>4.78 F 2.5 <362e332e20436f6e8c6775726174696f6e>87 717.2 R <696e2073656e646d61696c2f636f6e662e63>2.5 E 18.5<2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e20313030>4.06 F 0 Cg EP %%Page: 6 116 %%BeginPageSetup BP %%EndPageSetup /F0 10/Times-Bold@0 SF 198.36<534d4d3a30382d362053656e646d61696c>72 60 R <496e7374616c6c6174696f6e20616e64204f7065726174696f6e204775696465>2.5 E /F1 10/Times-Roman@0 SF 2.5<362e332e312e204275696c742d696e>102 96 R <4865616465722053656d616e74696373>2.5 E 18.5<2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e20313030>4.9 F 2.5<362e332e322e205265737472696374696e67>102 110.4 R<557365206f6620456d61696c>2.5 E 18.5<2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e20313031>4.34 F 2.5<362e332e332e204e65>102 124.8 R 2.5 <7744>-.25 G<61746162617365204d617020436c6173736573>-2.5 E 18.5<2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e20313032>4.89 F 2.5 <362e332e342e205175657565696e67>102 139.2 R 1.56<46756e6374696f6e202e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>2.5 F<313032> 21 E 2.5<362e332e352e205265667573696e67>102 153.6 R <496e636f6d696e6720534d545020436f6e6e656374696f6e73>2.5 E 18.5<2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e20313033> 2.94 F 2.5<362e332e362e204c6f6164>102 168 R -1.17 -.74<41762065>2.5 H <7261676520436f6d7075746174696f6e>.74 E 18.5<2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e20313033>2.74 F 2.5<362e342e20436f6e8c6775726174696f6e>87 182.4 R<696e2073656e646d61696c2f6461656d6f6e2e63>2.5 E 18.5<2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e20313033>2.67 F 2.5<362e352e204c44>87 196.8 R .29<4150202e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.4 F<313034>21 E 2.5 <362e352e312e204c44>102 211.2 R<415020526563757273696f6e>-.4 E 18.5<2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e20313034> 4.74 F 2.5<362e352e312e312e204578616d706c65>117 225.6 R 18.5<2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2031 3034>2.95 F 2.5<362e362e205354>87 240 R<4152>-.93 E .58<54544c53202e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e>-.6 F<313035>21 E 2.5 <362e362e312e2043657274698c6361746573>102 254.4 R<666f72205354>2.5 E <4152>-.93 E .87<54544c53202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.6 F <313035>21 E 2.5<362e362e322e2050524e47>102 268.8 R<666f72205354>2.5 E <4152>-.93 E 2.25<54544c53202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e>-.6 F<313035>21 E 2.5<362e372e20456e636f64696e67>87 283.2 R <6f66205354>2.5 E<4152>-.93 E<54544c5320616e642041>-.6 E <5554482072656c61746564204d6163726f73>-.55 E 18.5<2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e20313036>2.56 F 2.5<362e382e2044>87 297.6 R 1.13<414e45202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.4 F <313036>21 E 2.5<362e392e20454149>87 312 R 18.5<2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e20313037>4.34 F 2.5<362e31302e204d54>87 326.4 R 1.65<412d535453202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-.93 F <313037>21 E 2.5<372e2041>72 340.8 R<434b4e4f>-.4 E .1<574c454447454d45 4e5453202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e>-.35 F<313037>21 E<417070656e64697820412e>72 355.2 Q <434f4d4d414e44204c494e4520464c41>5 E 1.97<4753202e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e>-.4 F<313039>21 E<417070656e64697820422e>72 369.6 Q -.1 <5155>5 G<4555452046494c4520464f524d41>.1 E 1.38<5453202e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e>-1.11 F<313132>21 E<417070656e64697820432e>72 384 Q<53554d4d4152>5 E 2.5<594f>-.65 G 2.5<4653>-2.5 G<5550504f52>-2.5 E 2.5<5446>-.6 G 1.12<494c4553202e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e 2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e2e>-2.5 F<313135>21 E 0 Cg EP %%Trailer end %%EOF sendmail-8.18.1/doc/op/op.me0000644000372400037240000120266614556365350015130 0ustar xbuildxbuild.\" Copyright (c) 1998-2013 Proofpoint, Inc. and its suppliers. .\" All rights reserved. .\" Copyright (c) 1983, 1995 Eric P. Allman. All rights reserved. .\" Copyright (c) 1983, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" By using this file, you agree to the terms and conditions set .\" forth in the LICENSE file which can be found at the top level of .\" the sendmail distribution. .\" .\" .\" $Id: op.me,v 8.759 2014-01-13 14:40:05 ca Exp $ .\" .\" eqn op.me | pic | troff -me .\" .\" Define \(sc if not defined (for text output) .\" .if !c \(sc .char \(sc S .\" .\" Define \(dg as "*" for text output and create a new .DG macro .\" which describes the symbol. .\" .if n .ds { [ .if n .ds } ] .ie !c \(dg \{\ .char \(dg * .de DG an asterick .. .\} .el \{\ .de DG a dagger .. .\} .\" .\" Define \(dd as "#" for text output and create a new .DD macro .\" which describes the symbol. .\" .ie !c \(dd \{\ .char \(dd # .de DD a pound sign .. .\} .el \{\ .de DD a double dagger .. .\} .eh 'SMM:08-%''Sendmail Installation and Operation Guide' .oh 'Sendmail Installation and Operation Guide''SMM:08-%' .\" SD is lib if sendmail is installed in /usr/lib, sbin if in /usr/sbin .ds SD sbin .\" SB is bin if newaliases/mailq are installed in /usr/bin, ucb if in /usr/ucb .ds SB bin .nr si 3n .de $0 .(x .in \\$3u*3n .ti -3n \\$2. \\$1 .)x .. .de $C .(x .in 0 \\$1 \\$2. \\$3 .)x .. .+c .(l C .sz 16 .b SENDMAIL\u\s-6TM\s0\d .sz 12 .sp .b "INSTALLATION AND OPERATION GUIDE" .(f .b DISCLAIMER: This documentation is under modification. .)f .sz 10 .sp .r Eric Allman Claus Assmann Gregory Neil Shapiro Proofpoint, Inc. .sp .de Ve Version \\$2 .. .rm Ve .sp For Sendmail Version 8.18 .)l .(f Sendmail is a trademark of Proofpoint, Inc. US Patent Numbers 6865671, 6986037. .)f .sp 2 .pp .i Sendmail \u\s-2TM\s0\d implements a general purpose internetwork mail routing facility under the UNIX\(rg operating system. It is not tied to any one transport protocol \*- its function may be likened to a crossbar switch, relaying messages from one domain into another. In the process, it can do a limited amount of message header editing to put the message into a format that is appropriate for the receiving domain. All of this is done under the control of a configuration file. .pp Due to the requirements of flexibility for .i sendmail , the configuration file can seem somewhat unapproachable. However, there are only a few basic configurations for most sites, for which standard configuration files have been supplied. Most other configurations can be built by adjusting an existing configuration file incrementally. .pp .i Sendmail is based on RFC 821 (Simple Mail Transport Protocol), RFC 822 (Internet Mail Headers Format), RFC 974 (MX routing), RFC 1123 (Internet Host Requirements), RFC 1413 (Identification server), RFC 1652 (SMTP 8BITMIME Extension), RFC 1869 (SMTP Service Extensions), RFC 1870 (SMTP SIZE Extension), RFC 1891 (SMTP Delivery Status Notifications), RFC 1892 (Multipart/Report), RFC 1893 (Enhanced Mail System Status Codes), RFC 1894 (Delivery Status Notifications), RFC 1985 (SMTP Service Extension for Remote Message Queue Starting), RFC 2033 (Local Message Transmission Protocol), RFC 2034 (SMTP Service Extension for Returning Enhanced Error Codes), RFC 2045 (MIME), RFC 2476 (Message Submission), RFC 2487 (SMTP Service Extension for Secure SMTP over TLS), RFC 2554 (SMTP Service Extension for Authentication), RFC 2821 (Simple Mail Transfer Protocol), RFC 2822 (Internet Message Format), RFC 2852 (Deliver By SMTP Service Extension), RFC 2920 (SMTP Service Extension for Command Pipelining), and RFC 7505 (A "Null MX" No Service Resource Record for Domains That Accept No Mail). However, since .i sendmail is designed to work in a wider world, in many cases it can be configured to exceed these protocols. These cases are described herein. .pp Although .i sendmail is intended to run without the need for monitoring, it has a number of features that may be used to monitor or adjust the operation under unusual circumstances. These features are described. .pp Section one describes how to do a basic .i sendmail installation. Section two explains the day-to-day information you should know to maintain your mail system. If you have a relatively normal site, these two sections should contain sufficient information for you to install .i sendmail and keep it happy. Section three has information regarding the command line arguments. Section four describes some parameters that may be safely tweaked. Section five contains the nitty-gritty information about the configuration file. This section is for masochists and people who must write their own configuration file. Section six describes configuration that can be done at compile time. The appendixes give a brief but detailed explanation of a number of features not described in the rest of the paper. .bp 7 .sh 1 "BASIC INSTALLATION" .pp There are two basic steps to installing .i sendmail . First, you have to compile and install the binary. If .i sendmail has already been ported to your operating system that should be simple. Second, you must build a run-time configuration file. This is a file that .i sendmail reads when it starts up that describes the mailers it knows about, how to parse addresses, how to rewrite the message header, and the settings of various options. Although the configuration file can be quite complex, a configuration can usually be built using an M4-based configuration language. Assuming you have the standard .i sendmail distribution, see .i cf/README for further information. .pp The remainder of this section will describe the installation of .i sendmail assuming you can use one of the existing configurations and that the standard installation parameters are acceptable. All pathnames and examples are given from the root of the .i sendmail subtree, normally .i /usr/src/usr.\*(SD/sendmail on 4.4BSD-based systems. .pp Continue with the next section if you need/want to compile .i sendmail yourself. If you have a running binary already on your system, you should probably skip to section 1.2. .sh 2 "Compiling Sendmail" .pp All .i sendmail source is in the .i sendmail subdirectory. To compile sendmail, .q cd into the .i sendmail directory and type .(b \&./Build .)b This will leave the binary in an appropriately named subdirectory, e.g., obj.BSD-OS.2.1.i386. It works for multiple object versions compiled out of the same directory. .sh 3 "Tweaking the Build Invocation" .pp You can give parameters on the .i Build command. In most cases these are only used when the .i obj.* directory is first created. To restart from scratch, use .i -c . These commands include: .nr ii 0.5i .ip "\-L \fIlibdirs\fP" A list of directories to search for libraries. .ip "\-I \fIincdirs\fP" A list of directories to search for include files. .ip "\-E \fIenvar\fP=\fIvalue\fP" Set an environment variable to an indicated .i value before compiling. .ip "\-c" Create a new .i obj.* tree before running. .ip "\-f \fIsiteconfig\fP" Read the indicated site configuration file. If this parameter is not specified, .i Build includes .i all of the files .i $BUILDTOOLS/Site/site.$oscf.m4 and .i $BUILDTOOLS/Site/site.config.m4 , where $BUILDTOOLS is normally .i \&../devtools and $oscf is the same name as used on the .i obj.* directory. See below for a description of the site configuration file. .ip "\-S" Skip auto-configuration. .i Build will avoid auto-detecting libraries if this is set. All libraries and map definitions must be specified in the site configuration file. .lp Most other parameters are passed to the .i make program; for details see .i $BUILDTOOLS/README . .sh 3 "Creating a Site Configuration File" .\"XXX .pp See sendmail/README for various compilation flags that can be set, and devtools/README for details how to set them. .sh 3 "Tweaking the Makefile" .pp .\" .b "XXX This should all be in the Site Configuration File section." .i Sendmail supports two different formats for the local (on disk) version of databases, notably the .i aliases database. At least one of these should be defined if at all possible. .nr ii 1i .ip CDB Constant DataBase (tinycdb). .ip NDBM The ``new DBM'' format, available on nearly all systems around today. This was the preferred format prior to 4.4BSD. It allows such complex things as multiple databases and closing a currently open database. .ip NEWDB The Berkeley DB package. If you have this, use it. It allows long records, multiple open databases, real in-memory caching, and so forth. You can define this in conjunction with .sm NDBM ; if you do, old alias databases are read, but when a new database is created it will be in NEWDB format. As a nasty hack, if you have NEWDB, NDBM, and NIS defined, and if the alias file name includes the substring .q /yp/ , .i sendmail will create both new and old versions of the alias file during a .i newalias command. This is required because the Sun NIS/YP system reads the DBM version of the alias file. It's ugly as sin, but it works. .lp If neither of these are defined, .i sendmail reads the alias file into memory on every invocation. This can be slow and should be avoided. There are also several methods for remote database access: .ip LDAP Lightweight Directory Access Protocol. .ip NIS Sun's Network Information Services (formerly YP). .ip NISPLUS Sun's NIS+ services. .ip NETINFO NeXT's NetInfo service. .ip HESIOD Hesiod service (from Athena). .lp Other compilation flags are set in .i conf.h and should be predefined for you unless you are porting to a new environment. For more options see .i sendmail/README . .sh 3 "Compilation and installation" .pp After making the local system configuration described above, You should be able to compile and install the system. The script .q Build is the best approach on most systems: .(b \&./Build .)b This will use .i uname (1) to create a custom Makefile for your environment. .pp If you are installing in the standard places, you should be able to install using .(b \&./Build install .)b This should install the binary in /usr/\*(SD and create links from /usr/\*(SB/newaliases and /usr/\*(SB/mailq to /usr/\*(SD/sendmail. On most systems it will also format and install man pages. Notice: as of version 8.12 .i sendmail will no longer be installed set-user-ID root by default. If you really want to use the old method, you can specify it as target: .(b \&./Build install-set-user-id .)b .sh 2 "Configuration Files" .pp .i Sendmail cannot operate without a configuration file. The configuration defines the mail delivery mechanisms understood at this site, how to access them, how to forward email to remote mail systems, and a number of tuning parameters. This configuration file is detailed in the later portion of this document. .pp The .i sendmail configuration can be daunting at first. The world is complex, and the mail configuration reflects that. The distribution includes an m4-based configuration package that hides a lot of the complexity. See .i cf/README for details. .pp Our configuration files are processed by .i m4 to facilitate local customization; the directory .i cf of the .i sendmail distribution directory contains the source files. This directory contains several subdirectories: .nr ii 1i .ip cf Both site-dependent and site-independent descriptions of hosts. These can be literal host names (e.g., .q ucbvax.mc ) when the hosts are gateways or more general descriptions (such as .q "generic-solaris2.mc" as a general description of an SMTP-connected host running Solaris 2.x. Files ending .b \&.mc (``M4 Configuration'') are the input descriptions; the output is in the corresponding .b \&.cf file. The general structure of these files is described below. .ip domain Site-dependent subdomain descriptions. These are tied to the way your organization wants to do addressing. For example, .b domain/CS.Berkeley.EDU.m4 is our description for hosts in the CS.Berkeley.EDU subdomain. These are referenced using the .sm DOMAIN .b m4 macro in the .b \&.mc file. .ip feature Definitions of specific features that some particular host in your site might want. These are referenced using the .sm FEATURE .b m4 macro. An example feature is use_cw_file (which tells .i sendmail to read an /etc/mail/local-host-names file on startup to find the set of local names). .ip hack Local hacks, referenced using the .sm HACK .b m4 macro. Try to avoid these. The point of having them here is to make it clear that they smell. .ip m4 Site-independent .i m4 (1) include files that have information common to all configuration files. This can be thought of as a .q #include directory. .ip mailer Definitions of mailers, referenced using the .sm MAILER .b m4 macro. The mailer types that are known in this distribution are fax, local, smtp, uucp, and usenet. For example, to include support for the UUCP-based mailers, use .q MAILER(uucp) . .ip ostype Definitions describing various operating system environments (such as the location of support files). These are referenced using the .sm OSTYPE .b m4 macro. .ip sh Shell files used by the .b m4 build process. You shouldn't have to mess with these. .ip siteconfig Local UUCP connectivity information. This directory has been supplanted by the mailertable feature; any new configurations should use that feature to do UUCP (and other) routing. The use of this directory is deprecated. .pp If you are in a new domain (e.g., a company), you will probably want to create a cf/domain file for your domain. This consists primarily of relay definitions and features you want enabled site-wide: for example, Berkeley's domain definition defines relays for BitNET and UUCP. These are specific to Berkeley, and should be fully-qualified internet-style domain names. Please check to make certain they are reasonable for your domain. .pp Subdomains at Berkeley are also represented in the cf/domain directory. For example, the domain CS.Berkeley.EDU is the Computer Science subdomain, EECS.Berkeley.EDU is the Electrical Engineering and Computer Sciences subdomain, and S2K.Berkeley.EDU is the Sequoia 2000 subdomain. You will probably have to add an entry to this directory to be appropriate for your domain. .pp You will have to use or create .b \&.mc files in the .i cf/cf subdirectory for your hosts. This is detailed in the cf/README file. .sh 2 "Details of Installation Files" .pp This subsection describes the files that comprise the .i sendmail installation. .sh 3 "/usr/\*(SD/sendmail" .pp The binary for .i sendmail is located in /usr/\*(SD\**. .(f \**This is usually /usr/sbin on 4.4BSD and newer systems; many systems install it in /usr/lib. I understand it is in /usr/ucblib on System V Release 4. .)f It should be set-group-ID smmsp as described in sendmail/SECURITY. For security reasons, /, /usr, and /usr/\*(SD should be owned by root, mode 0755\**. .(f \**Some vendors ship them owned by bin; this creates a security hole that is not actually related to .i sendmail . Other important directories that should have restrictive ownerships and permissions are /bin, /usr/bin, /etc, /etc/mail, /usr/etc, /lib, and /usr/lib. .)f .sh 3 "/etc/mail/sendmail.cf" .pp This is the main configuration file for .i sendmail \**. .(f \**Actually, the pathname varies depending on the operating system; /etc/mail is the preferred directory. Some older systems install it in .b /usr/lib/sendmail.cf , and I've also seen it in .b /usr/ucblib . If you want to move this file, add -D_PATH_SENDMAILCF=\e"/file/name\e" to the flags passed to the C compiler. Moving this file is not recommended: other programs and scripts know of this location. .)f This is one of the two non-library file names compiled into .i sendmail \**, the other is /etc/mail/submit.cf. .(f \**The system libraries can reference other files; in particular, system library subroutines that .i sendmail calls probably reference .i /etc/passwd and .i /etc/resolv.conf . .)f .pp The configuration file is normally created using the distribution files described above. If you have a particularly unusual system configuration you may need to create a special version. The format of this file is detailed in later sections of this document. .sh 3 "/etc/mail/submit.cf" .pp This is the configuration file for .i sendmail when it is used for initial mail submission, in which case it is also called ``Mail Submission Program'' (MSP) in contrast to ``Mail Transfer Agent'' (MTA). Starting with version 8.12, .i sendmail uses one of two different configuration files based on its operation mode (or the new .b \-A option). For initial mail submission, i.e., if one of the options .b \-bm (default), .b \-bs , or .b \-t is specified, submit.cf is used (if available), for other operations sendmail.cf is used. Details can be found in .i sendmail/SECURITY . submit.cf is shipped with sendmail (in cf/cf/) and is installed by default. If changes to the configuration need to be made, start with cf/cf/submit.mc and follow the instruction in cf/README. .sh 3 "/usr/\*(SB/newaliases" .pp The .i newaliases command should just be a link to .i sendmail : .(b rm \-f /usr/\*(SB/newaliases ln \-s /usr/\*(SD/sendmail /usr/\*(SB/newaliases .)b This can be installed in whatever search path you prefer for your system. .sh 3 "/usr/\*(SB/hoststat" .pp The .i hoststat command should just be a link to .i sendmail , in a fashion similar to .i newaliases . This command lists the status of the last mail transaction with all remote hosts. The .b \-v flag will prevent the status display from being truncated. It functions only when the .b HostStatusDirectory option is set. .sh 3 "/usr/\*(SB/purgestat" .pp This command is also a link to .i sendmail . It flushes expired (Timeout.hoststatus) information that is stored in the .b HostStatusDirectory tree. .sh 3 "/var/spool/mqueue" .pp The directory .i /var/spool/mqueue should be created to hold the mail queue. This directory should be mode 0700 and owned by root. .pp The actual path of this directory is defined by the .b QueueDirectory option of the .i sendmail.cf file. To use multiple queues, supply a value ending with an asterisk. For example, .i /var/spool/mqueue/qd* will use all of the directories or symbolic links to directories beginning with `qd' in .i /var/spool/mqueue as queue directories. Do not change the queue directory structure while sendmail is running. .pp If these directories have subdirectories or symbolic links to directories named `qf', `df', and `xf', then these will be used for the different queue file types. That is, the data files are stored in the `df' subdirectory, the transcript files are stored in the `xf' subdirectory, and all others are stored in the `qf' subdirectory. .pp If shared memory support is compiled in, .i sendmail stores the available diskspace in a shared memory segment to make the values readily available to all children without incurring system overhead. In this case, only the daemon updates the data; i.e., the sendmail daemon creates the shared memory segment and deletes it if it is terminated. To use this, .i sendmail must have been compiled with support for shared memory (-DSM_CONF_SHM) and the option .b SharedMemoryKey must be set. Notice: do not use the same key for .i sendmail invocations with different queue directories or different queue group declarations. Access to shared memory is not controlled by locks, i.e., there is a race condition when data in the shared memory is updated. However, since operation of .i sendmail does not rely on the data in the shared memory, this does not negatively influence the behavior. .sh 3 "/var/spool/clientmqueue" .pp The directory .i /var/spool/clientmqueue should be created to hold the mail queue. This directory should be mode 0770 and owned by user smmsp, group smmsp. .pp The actual path of this directory is defined by the .b QueueDirectory option of the .i submit.cf file. .sh 3 "/var/spool/mqueue/.hoststat" .pp This is a typical value for the .b HostStatusDirectory option, containing one file per host that this sendmail has chatted with recently. It is normally a subdirectory of .i mqueue . .sh 3 "/etc/mail/aliases*" .pp The system aliases are held in .q /etc/mail/aliases . A sample is given in .q sendmail/aliases which includes some aliases which .i must be defined: .(b cp sendmail/aliases /etc/mail/aliases .i "edit /etc/mail/aliases" .)b You should extend this file with any aliases that are apropos to your system. .pp Normally .i sendmail looks at a database version of the files, stored either in .q /etc/mail/aliases.dir and .q /etc/mail/aliases.pag or .q /etc/mail/aliases.db depending on which database package you are using. The actual path of this file is defined in the .b AliasFile option of the .i sendmail.cf file. .pp The permissions of the alias file and the database versions should be 0640 to prevent local denial of service attacks as explained in the top level .b README in the sendmail distribution. If the permissions 0640 are used, be sure that only trusted users belong to the group assigned to those files. Otherwise, files should not even be group readable. .sh 3 "/etc/rc or /etc/init.d/sendmail" .pp It will be necessary to start up the .i sendmail daemon when your system reboots. This daemon performs two functions: it listens on the SMTP socket for connections (to receive mail from a remote system) and it processes the queue periodically to insure that mail gets delivered when hosts come up. .pp If necessary, add the following lines to .q /etc/rc (or .q /etc/rc.local as appropriate) in the area where it is starting up the daemons on a BSD-base system, or on a System-V-based system in one of the startup files, typically .q /etc/init.d/sendmail : .(b if [ \-f /usr/\*(SD/sendmail \-a \-f /etc/mail/sendmail.cf ]; then (cd /var/spool/mqueue; rm \-f xf*) /usr/\*(SD/sendmail \-bd \-q30m & echo \-n ' sendmail' >/dev/console fi .)b The .q cd and .q rm commands insure that all transcript files have been removed; extraneous transcript files may be left around if the system goes down in the middle of processing a message. The line that actually invokes .i sendmail has two flags: .q \-bd causes it to listen on the SMTP port, and .q \-q30m causes it to run the queue every half hour. .pp Some people use a more complex startup script, removing zero length qf/hf/Qf files and df files for which there is no qf/hf/Qf file. Note this is not advisable. For example, see Figure 1 for an example of a complex script which does this clean up. .(z .hl #!/bin/sh # remove zero length qf/hf/Qf files for qffile in qf* hf* Qf* do if [ \-r $qffile ] then if [ ! \-s $qffile ] then echo \-n " " > /dev/console rm \-f $qffile fi fi done # rename tf files to be qf if the qf does not exist for tffile in tf* do qffile=`echo $tffile | sed 's/t/q/'` if [ \-r $tffile \-a ! \-f $qffile ] then echo \-n " " > /dev/console mv $tffile $qffile else if [ \-f $tffile ] then echo \-n " " > /dev/console rm \-f $tffile fi fi done # remove df files with no corresponding qf/hf/Qf files for dffile in df* do qffile=`echo $dffile | sed 's/d/q/'` hffile=`echo $dffile | sed 's/d/h/'` Qffile=`echo $dffile | sed 's/d/Q/'` if [ \-r $dffile \-a ! \-f $qffile \-a ! \-f $hffile \-a ! \-f $Qffile ] then echo \-n " " > /dev/console mv $dffile `echo $dffile | sed 's/d/D/'` fi done # announce files that have been saved during disaster recovery for xffile in [A-Z]f* do if [ \-f $xffile ] then echo \-n " " > /dev/console fi done .sp .ce Figure 1 \(em A complex startup script .hl .)z .sh 3 "/etc/mail/helpfile" .pp This is the help file used by the SMTP .b HELP command. It should be copied from .q sendmail/helpfile : .(b cp sendmail/helpfile /etc/mail/helpfile .)b The actual path of this file is defined in the .b HelpFile option of the .i sendmail.cf file. .sh 3 "/etc/mail/statistics" .pp If you wish to collect statistics about your mail traffic, you should create the file .q /etc/mail/statistics : .(b cp /dev/null /etc/mail/statistics chmod 0600 /etc/mail/statistics .)b This file does not grow. It is printed with the program .q mailstats/mailstats.c. The actual path of this file is defined in the .b S option of the .i sendmail.cf file. .sh 3 "/usr/\*(SB/mailq" .pp If .i sendmail is invoked as .q mailq, it will simulate the .b \-bp flag (i.e., .i sendmail will print the contents of the mail queue; see below). This should be a link to /usr/\*(SD/sendmail. .sh 3 "sendmail.pid" .pp .i sendmail stores its current pid in the file specified by the .b PidFile option (default is _PATH_SENDMAILPID). .i sendmail uses .b TempFileMode (which defaults to 0600) as the permissions of that file to prevent local denial of service attacks as explained in the top level .b README in the sendmail distribution. If the file already exists, then it might be necessary to change the permissions accordingly, e.g., .(b chmod 0600 /var/run/sendmail.pid .)b Note that as of version 8.13, this file is unlinked when .i sendmail exits. As a result of this change, a script such as the following, which may have worked prior to 8.13, will no longer work: .(b # stop & start sendmail PIDFILE=/var/run/sendmail.pid kill `head -1 $PIDFILE` `tail -1 $PIDFILE` .)b because it assumes that the pidfile will still exist even after killing the process to which it refers. Below is a script which will work correctly on both newer and older versions: .(b # stop & start sendmail PIDFILE=/var/run/sendmail.pid pid=`head -1 $PIDFILE` cmd=`tail -1 $PIDFILE` kill $pid $cmd .)b This is just an example script, it does not perform any error checks, e.g., whether the pidfile exists at all. .sh 3 "Map Files" .pp To prevent local denial of service attacks as explained in the top level .b README in the sendmail distribution, the permissions of map files created by .i makemap should be 0640. The use of 0640 implies that only trusted users belong to the group assigned to those files. If those files already exist, then it might be necessary to change the permissions accordingly, e.g., .(b cd /etc/mail chmod 0640 *.db *.pag *.dir .)b .sh 1 "NORMAL OPERATIONS" .sh 2 "The System Log" .pp The system log is supported by the .i syslogd \|(8) program. All messages from .i sendmail are logged under the .sm LOG_MAIL facility\**. .(f \**Except on Ultrix, which does not support facilities in the syslog. .)f .sh 3 "Format" .pp Each line in the system log consists of a timestamp, the name of the machine that generated it (for logging from several machines over the local area network), the word .q sendmail: , and a message\**. .(f \**This format may vary slightly if your vendor has changed the syntax. .)f Most messages are a sequence of .i name \c =\c .i value pairs. .pp The two most common lines are logged when a message is processed. The first logs the receipt of a message; there will be exactly one of these per message. Some fields may be omitted if they do not contain interesting information. Fields are: .ip from The envelope sender address. .ip size The size of the message in bytes. .ip class The class (i.e., numeric precedence) of the message. .ip pri The initial message priority (used for queue sorting). .ip nrcpts The number of envelope recipients for this message (after aliasing and forwarding). .ip msgid The message id of the message (from the header). .ip bodytype The message body type (7BIT or 8BITMIME), as determined from the envelope. .ip proto The protocol used to receive this message (e.g., ESMTP or UUCP) .ip daemon The daemon name from the .b DaemonPortOptions setting. .ip relay The machine from which it was received. .lp There is also one line logged per delivery attempt (so there can be several per message if delivery is deferred or there are multiple recipients). Fields are: .ip to A comma-separated list of the recipients to this mailer. .ip ctladdr The ``controlling user'', that is, the name of the user whose credentials we use for delivery. .ip delay The total delay between the time this message was received and the current delivery attempt. .ip xdelay The amount of time needed in this delivery attempt (normally indicative of the speed of the connection). .ip mailer The name of the mailer used to deliver to this recipient. .ip relay The name of the host that actually accepted (or rejected) this recipient. .ip dsn The enhanced error code (RFC 2034) if available. .ip stat The delivery status. .lp Not all fields are present in all messages; for example, the relay is usually not listed for local deliveries. .sh 3 "Levels" .pp If you have .i syslogd \|(8) or an equivalent installed, you will be able to do logging. There is a large amount of information that can be logged. The log is arranged as a succession of levels. At the lowest level only extremely strange situations are logged. At the highest level, even the most mundane and uninteresting events are recorded for posterity. As a convention, log levels under ten are considered generally .q useful; log levels above 64 are reserved for debugging purposes. Levels from 11\-64 are reserved for verbose information that some sites might want. .pp A complete description of the log levels is given in section ``Log Level''. .sh 2 "Dumping State" .pp You can ask .i sendmail to log a dump of the open files and the connection cache by sending it a .sm SIGUSR1 signal. The results are logged at .sm LOG_DEBUG priority. .sh 2 "The Mail Queues" .pp Mail messages may either be delivered immediately or be held for later delivery. Held messages are placed into a holding directory called a mail queue. .pp A mail message may be queued for these reasons: .bu If a mail message is temporarily undeliverable, it is queued and delivery is attempted later. If the message is addressed to multiple recipients, it is queued only for those recipients to whom delivery is not immediately possible. .bu If the SuperSafe option is set to true, all mail messages are queued while delivery is attempted. .bu If the DeliveryMode option is set to queue-only or defer, all mail is queued, and no immediate delivery is attempted. .bu If the load average becomes higher than the value of the QueueLA option and the .b QueueFactor (\c .b q ) option divided by the difference in the current load average and the .b QueueLA option plus one is less than the priority of the message, messages are queued rather than immediately delivered. .bu One or more addresses are marked as expensive and delivery is postponed until the next queue run or one or more address are marked as held via mailer which uses the hold mailer flag. .bu The mail message has been marked as quarantined via a mail filter or rulesets. .sh 3 "Queue Groups and Queue Directories" .pp There are one or more mail queues. Each mail queue belongs to a queue group. There is always a default queue group that is called ``mqueue'' (which is where messages go by default unless otherwise specified). The directory or directories which comprise the default queue group are specified by the QueueDirectory option. There are zero or more additional named queue groups declared using the .b Q command in the configuration file. .pp By default, a queued message is placed in the queue group associated with the first recipient in the recipient list. A recipient address is mapped to a queue group as follows. First, if there is a ruleset called ``queuegroup'', and if this ruleset maps the address to a queue group name, then that queue group is chosen. That is, the argument for the ruleset is the recipient address (i.e., the address part of the resolved triple) and the result should be .b $# followed by the name of a queue group. Otherwise, if the mailer associated with the address specifies a queue group, then that queue group is chosen. Otherwise, the default queue group is chosen. .pp A message with multiple recipients will be split if different queue groups are chosen by the mapping of recipients to queue groups. .pp When a message is placed in a queue group, and the queue group has more than one queue, a queue is selected randomly. .pp If a message with multiple recipients is placed into a queue group with the 'r' option (maximum number of recipients per message) set to a positive value .i N , and if there are more than .i N recipients in the message, then the message will be split into multiple messages, each of which have at most .i N recipients. .pp Notice: if multiple queue groups are used, do .b not move queue files around, e.g., into a different queue directory. This may have weird effects and can cause mail not to be delivered. Queue files and directories should be treated as opaque and should not be manipulated directly. .sh 3 "Queue Runs" .pp .i sendmail has two different ways to process the queue(s). The first one is to start queue runners after certain intervals (``normal'' queue runners), the second one is to keep queue runner processes around (``persistent'' queue runners). How to select either of these types is discussed in the appendix ``COMMAND LINE FLAGS''. Persistent queue runners have the advantage that no new processes need to be spawned at certain intervals; they just sleep for a specified time after they finished a queue run. Another advantage of persistent queue runners is that only one process belonging to a workgroup (a workgroup is a set of queue groups) collects the data for a queue run and then multiple queue runner may go ahead using that data. This can significantly reduce the disk I/O necessary to read the queue files compared to starting multiple queue runners directly. Their disadvantage is that a new queue run is only started after all queue runners belonging to a group finished their tasks. In case one of the queue runners tries delivery to a slow recipient site at the end of a queue run, the next queue run may be substantially delayed. In general this should be smoothed out due to the distribution of those slow jobs, however, for sites with small number of queue entries this might introduce noticeable delays. In general, persistent queue runners are only useful for sites with big queues. .sh 3 "Manual Intervention" .pp Under normal conditions the mail queue will be processed transparently. However, you may find that manual intervention is sometimes necessary. For example, if a major host is down for a period of time the queue may become clogged. Although .i sendmail ought to recover gracefully when the host comes up, you may find performance unacceptably bad in the meantime. In that case you want to check the content of the queue and manipulate it as explained in the next two sections. .sh 3 "Printing the queue" .pp The contents of the queue(s) can be printed using the .i mailq command (or by specifying the .b \-bp flag to .i sendmail ): .(b mailq .)b This will produce a listing of the queue id's, the size of the message, the date the message entered the queue, and the sender and recipients. If shared memory support is compiled in, the flag .b \-bP can be used to print the number of entries in the queue(s), provided a process updates the data. However, as explained earlier, the output might be slightly wrong, since access to the shared memory is not locked. For example, ``unknown number of entries'' might be shown. The internal counters are updated after each queue run to the correct value again. .sh 3 "Forcing the queue" .pp .i Sendmail should run the queue automatically at intervals. When using multiple queues, a separate process will by default be created to run each of the queues unless the queue run is initiated by a user with the verbose flag. The algorithm is to read and sort the queue, and then to attempt to process all jobs in order. When it attempts to run the job, .i sendmail first checks to see if the job is locked. If so, it ignores the job. .pp There is no attempt to insure that only one queue processor exists at any time, since there is no guarantee that a job cannot take forever to process (however, .i sendmail does include heuristics to try to abort jobs that are taking absurd amounts of time; technically, this violates RFC 821, but is blessed by RFC 1123). Due to the locking algorithm, it is impossible for one job to freeze the entire queue. However, an uncooperative recipient host or a program recipient that never returns can accumulate many processes in your system. Unfortunately, there is no completely general way to solve this. .pp In some cases, you may find that a major host going down for a couple of days may create a prohibitively large queue. This will result in .i sendmail spending an inordinate amount of time sorting the queue. This situation can be fixed by moving the queue to a temporary place and creating a new queue. The old queue can be run later when the offending host returns to service. .pp To do this, it is acceptable to move the entire queue directory: .(b cd /var/spool mv mqueue omqueue; mkdir mqueue; chmod 0700 mqueue .)b You should then kill the existing daemon (since it will still be processing in the old queue directory) and create a new daemon. .pp To run the old mail queue, issue the following command: .(b /usr/\*(SD/sendmail \-C /etc/mail/queue.cf \-q .)b The .b \-C flag specifies an alternate configuration file .b queue.cf which should refer to the moved queue directory .(b O QueueDirectory=/var/spool/omqueue .)b and the .b \-q flag says to just run every job in the queue. You can also specify the moved queue directory on the command line .(b /usr/\*(SD/sendmail \-oQ/var/spool/omqueue \-q .)b but this requires that you do not have queue groups in the configuration file, because those are not subdirectories of the moved directory. See the section about ``Queue Group Declaration'' for details; you most likely need a different configuration file to correctly deal with this problem. However, a proper configuration of queue groups should avoid filling up queue directories, so you shouldn't run into this problem. If you have a tendency toward voyeurism, you can use the .b \-v flag to watch what is going on. .pp When the queue is finally emptied, you can remove the directory: .(b rmdir /var/spool/omqueue .)b .sh 3 "Quarantined Queue Items" .pp It is possible to "quarantine" mail messages, otherwise known as envelopes. Envelopes (queue files) are stored but not considered for delivery or display unless the "quarantine" state of the envelope is undone or delivery or display of quarantined items is requested. Quarantined messages are tagged by using a different name for the queue file, 'hf' instead of 'qf', and by adding the quarantine reason to the queue file. .pp Delivery or display of quarantined items can be requested using the .b \-qQ flag to .i sendmail or .i mailq . Additionally, messages already in the queue can be quarantined or unquarantined using the new .b \-Q flag to sendmail. For example, .(b sendmail -Qreason -q[!][I|R|S][matchstring] .)b Quarantines the normal queue items matching the criteria specified by the .b "-q[!][I|R|S][matchstring]" using the reason given on the .b \-Q flag. Likewise, .(b sendmail -qQ -Q[reason] -q[!][I|R|S|Q][matchstring] .)b Change the quarantine reason for the quarantined items matching the criteria specified by the .b "-q[!][I|R|S|Q][matchstring]" using the reason given on the .b \-Q flag. If there is no reason, unquarantine the matching items and make them normal queue items. Note that the .b \-qQ flag tells sendmail to operate on quarantined items instead of normal items. .sh 2 "Disk Based Connection Information" .pp .i Sendmail stores a large amount of information about each remote system it has connected to in memory. It is possible to preserve some of this information on disk as well, by using the .b HostStatusDirectory option, so that it may be shared between several invocations of .i sendmail . This allows mail to be queued immediately or skipped during a queue run if there has been a recent failure in connecting to a remote machine. Note: information about a remote system is stored in a file whose pathname consists of the components of the hostname in reverse order. For example, the information for .b host.example.com is stored in .b com./example./host . For top-level domains like .b com this can create a large number of subdirectories which on some filesystems can exhaust some limits. Moreover, the performance of lookups in directory with thousands of entries can be fairly slow depending on the filesystem implementation. .pp Additionally enabling .b SingleThreadDelivery has the added effect of single-threading mail delivery to a destination. This can be quite helpful if the remote machine is running an SMTP server that is easily overloaded or cannot accept more than a single connection at a time, but can cause some messages to be punted to a future queue run. It also applies to .i all hosts, so setting this because you have one machine on site that runs some software that is easily overrun can cause mail to other hosts to be slowed down. If this option is set, you probably want to set the .b MinQueueAge option as well and run the queue fairly frequently; this way jobs that are skipped because another .i sendmail is talking to the same host will be tried again quickly rather than being delayed for a long time. .pp The disk based host information is stored in a subdirectory of the .b mqueue directory called .b \&.hoststat \**. .(f \**This is the usual value of the .b HostStatusDirectory option; it can, of course, go anywhere you like in your filesystem. .)f Removing this directory and its subdirectories has an effect similar to the .i purgestat command and is completely safe. However, .i purgestat only removes expired (Timeout.hoststatus) data. The information in these directories can be perused with the .i hoststat command, which will indicate the host name, the last access, and the status of that access. An asterisk in the left most column indicates that a .i sendmail process currently has the host locked for mail delivery. .pp The disk based connection information is treated the same way as memory based connection information for the purpose of timeouts. By default, information about host failures is valid for 30 minutes. This can be adjusted with the .b Timeout.hoststatus option. .pp The connection information stored on disk may be expired at any time with the .i purgestat command or by invoking sendmail with the .b \-bH switch. The connection information may be viewed with the .i hoststat command or by invoking sendmail with the .b \-bh switch. .sh 2 "The Service Switch" .pp The implementation of certain system services such as host and user name lookup is controlled by the service switch. If the host operating system supports such a switch, and sendmail knows about it, .i sendmail will use the native version. Ultrix, Solaris, and DEC OSF/1 are examples of such systems\**. .(f \**HP-UX 10 has service switch support, but since the APIs are apparently not available in the libraries .i sendmail does not use the native service switch in this release. .)f .pp If the underlying operating system does not support a service switch (e.g., SunOS 4.X, HP-UX, BSD) then .i sendmail will provide a stub implementation. The .b ServiceSwitchFile option points to the name of a file that has the service definitions. Each line has the name of a service and the possible implementations of that service. For example, the file: .(b hosts dns files nis aliases files nis .)b will ask .i sendmail to look for hosts in the Domain Name System first. If the requested host name is not found, it tries local files, and if that fails it tries NIS. Similarly, when looking for aliases it will try the local files first followed by NIS. .pp Notice: since .i sendmail must access MX records for correct operation, it will use DNS if it is configured in the .b ServiceSwitchFile file. Hence an entry like .(b hosts files dns .)b will not avoid DNS lookups even if a host can be found in /etc/hosts. .pp Note: in contrast to the .i sendmail stub implementation some operating systems do not preserve temporary failures. For example, if DNS returns a TRY_AGAIN status for this setup .(b hosts files dns myhostname .)b but myhostname does not find the requested entry, then a permanent error is returned to .i sendmail which obviously can cause problems, e.g., an immediate bounce instead of a deferral. .pp Service switches are not completely integrated. For example, despite the fact that the host entry listed in the above example specifies to look in NIS, on SunOS this won't happen because the system implementation of .i gethostbyname \|(3) doesn't understand this. .sh 2 "The Alias Database" .pp After recipient addresses are read from the SMTP connection or command line they are parsed by ruleset 0, which must resolve to a {\c .i mailer , .i host , .i address } triple. If the flags selected by the .i mailer include the .b A (aliasable) flag, the .i address part of the triple is looked up as the key (i.e., the left hand side) in the alias database. If there is a match, the address is deleted from the send queue and all addresses on the right hand side of the alias are added in place of the alias that was found. This is a recursive operation, so aliases found in the right hand side of the alias are similarly expanded. .pp The alias database exists in two forms. One is a text form, maintained in the file .i /etc/mail/aliases. The aliases are of the form .(b name: name1, name2, ... .)b Only local names may be aliased; e.g., .(b eric@prep.ai.MIT.EDU: eric@CS.Berkeley.EDU .)b will not have the desired effect (except on prep.ai.MIT.EDU, and they probably don't want me)\**. .(f \**Actually, any mailer that has the `A' mailer flag set will permit aliasing; this is normally limited to the local mailer. .)f Aliases may be continued by starting any continuation lines with a space or a tab or by putting a backslash directly before the newline. Blank lines and lines beginning with a sharp sign (\c .q # ) are comments. .pp The second form is processed by one of the available map types, e.g., .i ndbm \|(3)\** .(f \**The .i gdbm package does not work. .)f the Berkeley DB library, or .i cdb . This is the form that .i sendmail actually uses to resolve aliases. This technique is used to improve performance. .pp The control of search order is actually set by the service switch. Essentially, the entry .(b O AliasFile=switch:aliases .)b is always added as the first alias entry; also, the first alias file name without a class (e.g., without .q nis: on the front) will be used as the name of the file for a ``files'' entry in the aliases switch. For example, if the configuration file contains .(b O AliasFile=/etc/mail/aliases .)b and the service switch contains .(b aliases nis files nisplus .)b then aliases will first be searched in the NIS database, then in /etc/mail/aliases, then in the NIS+ database. .pp You can also use .sm NIS -based alias files. For example, the specification: .(b O AliasFile=/etc/mail/aliases O AliasFile=nis:mail.aliases@my.nis.domain .)b will first search the /etc/mail/aliases file and then the map named .q mail.aliases in .q my.nis.domain . Warning: if you build your own .sm NIS -based alias files, be sure to provide the .b \-l flag to .i makedbm (8) to map upper case letters in the keys to lower case; otherwise, aliases with upper case letters in their names won't match incoming addresses. .pp Additional flags can be added after the colon exactly like a .b K line \(em for example: .(b O AliasFile=nis:\-N mail.aliases@my.nis.domain .)b will search the appropriate NIS map and always include null bytes in the key. Also: .(b O AliasFile=nis:\-f mail.aliases@my.nis.domain .)b will prevent sendmail from downcasing the key before the alias lookup. .sh 3 "Rebuilding the alias database" .pp The .i hash or .i dbm version of the database may be rebuilt explicitly by executing the command .(b newaliases .)b This is equivalent to giving .i sendmail the .b \-bi flag: .(b /usr/\*(SD/sendmail \-bi .)b .pp If you have multiple aliases databases specified, the .b \-bi flag rebuilds all the database types it understands (for example, it can rebuild NDBM databases but not NIS databases). .sh 3 "Potential problems" .pp There are a number of problems that can occur with the alias database. They all result from a .i sendmail process accessing the DBM version while it is only partially built. This can happen under two circumstances: One process accesses the database while another process is rebuilding it, or the process rebuilding the database dies (due to being killed or a system crash) before completing the rebuild. .pp Sendmail has three techniques to try to relieve these problems. First, it ignores interrupts while rebuilding the database; this avoids the problem of someone aborting the process leaving a partially rebuilt database. Second, it locks the database source file during the rebuild \(em but that may not work over NFS or if the file is unwritable. Third, at the end of the rebuild it adds an alias of the form .(b @: @ .)b (which is not normally legal). Before .i sendmail will access the database, it checks to insure that this entry exists\**. .(f \**The .b AliasWait option is required in the configuration for this action to occur. This should normally be specified. .)f .sh 3 "List owners" .pp If an error occurs on sending to a certain address, say .q \fIx\fP , .i sendmail will look for an alias of the form .q owner-\fIx\fP to receive the errors. This is typically useful for a mailing list where the submitter of the list has no control over the maintenance of the list itself; in this case the list maintainer would be the owner of the list. For example: .(b unix-wizards: eric@ucbarpa, wnj@monet, nosuchuser, sam@matisse owner-unix-wizards: unix-wizards-request unix-wizards-request: eric@ucbarpa .)b would cause .q eric@ucbarpa to get the error that will occur when someone sends to unix-wizards due to the inclusion of .q nosuchuser on the list. .pp List owners also cause the envelope sender address to be modified. The contents of the owner alias are used if they point to a single user, otherwise the name of the alias itself is used. For this reason, and to obey Internet conventions, the .q owner- address normally points at the .q -request address; this causes messages to go out with the typical Internet convention of using ``\c .i list -request'' as the return address. .sh 2 "User Information Database" .pp This option is deprecated, use virtusertable and genericstable instead as explained in .i cf/README . If you have a version of .i sendmail with the user information database compiled in, and you have specified one or more databases using the .b U option, the databases will be searched for a .i user :maildrop entry. If found, the mail will be sent to the specified address. .sh 2 "Per-User Forwarding (.forward Files)" .pp As an alternative to the alias database, any user may put a file with the name .q .forward in his or her home directory. If this file exists, .i sendmail redirects mail for that user to the list of addresses listed in the .forward file. Note that aliases are fully expanded before forward files are referenced. For example, if the home directory for user .q mckusick has a .forward file with contents: .(b mckusick@ernie kirk@calder .)b then any mail arriving for .q mckusick will be redirected to the specified accounts. .pp Actually, the configuration file defines a sequence of filenames to check. By default, this is the user's .forward file, but can be defined to be more generally using the .b ForwardPath option. If you change this, you will have to inform your user base of the change; \&.forward is pretty well incorporated into the collective subconscious. .sh 2 "Special Header Lines" .pp Several header lines have special interpretations defined by the configuration file. Others have interpretations built into .i sendmail that cannot be changed without changing the code. These built-ins are described here. .sh 3 "Errors-To:" .pp If errors occur anywhere during processing, this header will cause error messages to go to the listed addresses. This is intended for mailing lists. .pp The Errors-To: header was created in the bad old days when UUCP didn't understand the distinction between an envelope and a header; this was a hack to provide what should now be passed as the envelope sender address. It should go away. It is only used if the .b UseErrorsTo option is set. .pp The Errors-To: header is officially deprecated and will go away in a future release. .sh 3 "Apparently-To:" .pp RFC 822 requires at least one recipient field (To:, Cc:, or Bcc: line) in every message. If a message comes in with no recipients listed in the message then .i sendmail will adjust the header based on the .q NoRecipientAction option. One of the possible actions is to add an .q "Apparently-To:" header line for any recipients it is aware of. .pp The Apparently-To: header is non-standard and is both deprecated and strongly discouraged. .sh 3 "Precedence" .pp The Precedence: header can be used as a crude control of message priority. It tweaks the sort order in the queue and can be configured to change the message timeout values. The precedence of a message also controls how delivery status notifications (DSNs) are processed for that message. .sh 2 "IDENT Protocol Support" .pp .i Sendmail supports the IDENT protocol as defined in RFC 1413. Note that the RFC states a client should wait at least 30 seconds for a response. The default Timeout.ident is 5 seconds as many sites have adopted the practice of dropping IDENT queries. This has lead to delays processing mail. Although this enhances identification of the author of an email message by doing a ``call back'' to the originating system to include the owner of a particular TCP connection in the audit trail it is in no sense perfect; a determined forger can easily spoof the IDENT protocol. The following description is excerpted from RFC 1413: .ba +5 .lp 6. Security Considerations .lp The information returned by this protocol is at most as trustworthy as the host providing it OR the organization operating the host. For example, a PC in an open lab has few if any controls on it to prevent a user from having this protocol return any identifier the user wants. Likewise, if the host has been compromised the information returned may be completely erroneous and misleading. .lp The Identification Protocol is not intended as an authorization or access control protocol. At best, it provides some additional auditing information with respect to TCP connections. At worst, it can provide misleading, incorrect, or maliciously incorrect information. .lp The use of the information returned by this protocol for other than auditing is strongly discouraged. Specifically, using Identification Protocol information to make access control decisions - either as the primary method (i.e., no other checks) or as an adjunct to other methods may result in a weakening of normal host security. .lp An Identification server may reveal information about users, entities, objects or processes which might normally be considered private. An Identification server provides service which is a rough analog of the CallerID services provided by some phone companies and many of the same privacy considerations and arguments that apply to the CallerID service apply to Identification. If you wouldn't run a "finger" server due to privacy considerations you may not want to run this protocol. .ba .lp In some cases your system may not work properly with IDENT support due to a bug in the TCP/IP implementation. The symptoms will be that for some hosts the SMTP connection will be closed almost immediately. If this is true or if you do not want to use IDENT, you should set the IDENT timeout to zero; this will disable the IDENT protocol. .sh 1 "ARGUMENTS" .pp The complete list of arguments to .i sendmail is described in detail in Appendix A. Some important arguments are described here. .sh 2 "Queue Interval" .pp The amount of time between forking a process to run through the queue is defined by the .b \-q flag. If you run with delivery mode set to .b i or .b b this can be relatively large, since it will only be relevant when a host that was down comes back up. If you run in .b q mode it should be relatively short, since it defines the maximum amount of time that a message may sit in the queue. (See also the MinQueueAge option.) .pp RFC 1123 section 5.3.1.1 says that this value should be at least 30 minutes (although that probably doesn't make sense if you use ``queue-only'' mode). .pp Notice: the meaning of the interval time depends on whether normal queue runners or persistent queue runners are used. For the former, it is the time between subsequent starts of a queue run. For the latter, it is the time sendmail waits after a persistent queue runner has finished its work to start the next one. Hence for persistent queue runners this interval should be very low, typically no more than two minutes. .sh 2 "Daemon Mode" .pp If you allow incoming mail over an IPC connection, you should have a daemon running. This should be set by your .i /etc/rc file using the .b \-bd flag. The .b \-bd flag and the .b \-q flag may be combined in one call: .(b /usr/\*(SD/sendmail \-bd \-q30m .)b .pp An alternative approach is to invoke sendmail from .i inetd (8) (use the .b \-bs \ \-Am flags to ask sendmail to speak SMTP on its standard input and output and to run as MTA). This works and allows you to wrap .i sendmail in a TCP wrapper program, but may be a bit slower since the configuration file has to be re-read on every message that comes in. If you do this, you still need to have a .i sendmail running to flush the queue: .(b /usr/\*(SD/sendmail \-q30m .)b .sh 2 "Forcing the Queue" .pp In some cases you may find that the queue has gotten clogged for some reason. You can force a queue run using the .b \-q flag (with no value). It is entertaining to use the .b \-v flag (verbose) when this is done to watch what happens: .(b /usr/\*(SD/sendmail \-q \-v .)b .pp You can also limit the jobs to those with a particular queue identifier, recipient, sender, quarantine reason, or queue group using one of the queue modifiers. For example, .q \-qRberkeley restricts the queue run to jobs that have the string .q berkeley somewhere in one of the recipient addresses. Similarly, .q \-qSstring limits the run to particular senders, .q \-qIstring limits it to particular queue identifiers, and .q \-qQstring limits it to particular quarantined reasons and only operated on quarantined queue items, and .q \-qGstring limits it to a particular queue group. The named queue group will be run even if it is set to have 0 runners. You may also place an .b ! before the .b I or .b R or .b S or .b Q to indicate that jobs are limited to not including a particular queue identifier, recipient or sender. For example, .q \-q!Rseattle limits the queue run to jobs that do not have the string .q seattle somewhere in one of the recipient addresses. Should you need to terminate the queue jobs currently active then a SIGTERM to the parent of the process (or processes) will cleanly stop the jobs. .sh 2 "Debugging" .pp There are a fairly large number of debug flags built into .i sendmail . Each debug flag has a category and a level. Higher levels increase the level of debugging activity; in most cases, this means to print out more information. The convention is that levels greater than nine are .q absurd, i.e., they print out so much information that you wouldn't normally want to see them except for debugging that particular piece of code. .pp You should .b never run a production sendmail server in debug mode. Many of the debug flags will result in debug output being sent over the SMTP channel unless the option .b \-D is used. This will confuse many mail programs. However, for testing purposes, it can be useful when sending mail manually via telnet to the port you are using while debugging. .pp A debug category is either an integer, like 42, or a name, like ANSI. You can specify a range of numeric debug categories using the syntax 17-42. You can specify a set of named debug categories using a glob pattern like .q sm_trace_* . At present, only .q * and .q ? are supported in these glob patterns. .pp Debug flags are set using the .b \-d option; the syntax is: .(b .ta \w'debug-categories:M 'u debug-flag: \fB\-d\fP debug-list debug-list: debug-option [ , debug-option ]* debug-option: debug-categories [ . debug-level ] debug-categories: integer | integer \- integer | category-pattern category-pattern: [a-zA-Z_*?][a-zA-Z0-9_*?]* debug-level: integer .)b where spaces are for reading ease only. For example, .(b \-d12 Set category 12 to level 1 \-d12.3 Set category 12 to level 3 \-d3\-17 Set categories 3 through 17 to level 1 \-d3\-17.4 Set categories 3 through 17 to level 4 \-dANSI Set category ANSI to level 1 \-dsm_trace_*.3 Set all named categories matching sm_trace_* to level 3 .)b For a complete list of the available debug flags you will have to look at the code and the .i TRACEFLAGS file in the sendmail distribution (they are too dynamic to keep this document up to date). For a list of named debug categories in the sendmail binary, use .(b ident /usr/sbin/sendmail | grep Debug .)b .sh 2 "Changing the Values of Options" .pp Options can be overridden using the .b \-o or .b \-O command line flags. For example, .(b /usr/\*(SD/sendmail \-oT2m .)b sets the .b T (timeout) option to two minutes for this run only; the equivalent line using the long option name is .(b /usr/\*(SD/sendmail -OTimeout.queuereturn=2m .)b .pp Some options have security implications. Sendmail allows you to set these, but relinquishes its set-user-ID or set-group-ID permissions thereafter\**. .(f \**That is, it sets its effective uid to the real uid; thus, if you are executing as root, as from root's crontab file or during system startup the root permissions will still be honored. .)f .sh 2 "Trying a Different Configuration File" .pp An alternative configuration file can be specified using the .b \-C flag; for example, .(b /usr/\*(SD/sendmail \-Ctest.cf \-oQ/tmp/mqueue .)b uses the configuration file .i test.cf instead of the default .i /etc/mail/sendmail.cf. If the .b \-C flag has no value it defaults to .i sendmail.cf in the current directory. .pp .i Sendmail gives up set-user-ID root permissions (if it has been installed set-user-ID root) when you use this flag, so it is common to use a publicly writable directory (such as /tmp) as the queue directory (QueueDirectory or Q option) while testing. .sh 2 "Logging Traffic" .pp Many SMTP implementations do not fully implement the protocol. For example, some personal computer based SMTPs do not understand continuation lines in reply codes. These can be very hard to trace. If you suspect such a problem, you can set traffic logging using the .b \-X flag. For example, .(b /usr/\*(SD/sendmail \-X /tmp/traffic \-bd .)b will log all traffic in the file .i /tmp/traffic . .pp This logs a lot of data very quickly and should .b NEVER be used during normal operations. After starting up such a daemon, force the errant implementation to send a message to your host. All message traffic in and out of .i sendmail , including the incoming SMTP traffic, will be logged in this file. .sh 2 "Testing Configuration Files" .pp When you build a configuration table, you can do a certain amount of testing using the .q "test mode" of .i sendmail . For example, you could invoke .i sendmail as: .(b sendmail \-bt \-Ctest.cf .)b which would read the configuration file .q test.cf and enter test mode. In this mode, you enter lines of the form: .(b rwset address .)b where .i rwset is the rewriting set you want to use and .i address is an address to apply the set to. Test mode shows you the steps it takes as it proceeds, finally showing you the address it ends up with. You may use a comma separated list of rwsets for sequential application of rules to an input. For example: .(b 3,1,21,4 monet:bollard .)b first applies ruleset three to the input .q monet:bollard. Ruleset one is then applied to the output of ruleset three, followed similarly by rulesets twenty-one and four. .pp If you need more detail, you can also use the .q \-d21 flag to turn on more debugging. For example, .(b sendmail \-bt \-d21.99 .)b turns on an incredible amount of information; a single word address is probably going to print out several pages worth of information. .pp You should be warned that internally, .i sendmail applies ruleset 3 to all addresses. In test mode you will have to do that manually. For example, older versions allowed you to use .(b 0 bruce@broadcast.sony.com .)b This version requires that you use: .(b 3,0 bruce@broadcast.sony.com .)b .pp As of version 8.7, some other syntaxes are available in test mode: .nr ii 1i .ip \&.D\|x\|value defines macro .i x to have the indicated .i value . This is useful when debugging rules that use the .b $& \c .i x syntax. .ip \&.C\|c\|value adds the indicated .i value to class .i c . .ip \&=S\|ruleset dumps the contents of the indicated ruleset. .ip \-d\|debug-spec is equivalent to the command-line flag. .lp Version 8.9 introduced more features: .nr ii 1i .ip ? shows a help message. .ip =M display the known mailers. .ip $m print the value of macro m. .ip $=c print the contents of class c. .ip /mx\ host returns the MX records for `host'. .ip /parse\ address parse address, returning the value of .i crackaddr , and the parsed address. .ip /try\ mailer\ addr rewrite address into the form it will have when presented to the indicated mailer. .ip /tryflags\ flags set flags used by parsing. The flags can be `H' for Header or `E' for Envelope, and `S' for Sender or `R' for Recipient. These can be combined, `HR' sets flags for header recipients. .ip /canon\ hostname try to canonify hostname. .ip /map\ mapname\ key look up `key' in the indicated `mapname'. .ip /quit quit address test mode. .lp .sh 2 "Persistent Host Status Information" .pp When .b HostStatusDirectory is enabled, information about the status of hosts is maintained on disk and can thus be shared between different instantiations of .i sendmail . The status of the last connection with each remote host may be viewed with the command: .(b sendmail \-bh .)b This information may be flushed with the command: .(b sendmail \-bH .)b Flushing the information prevents new .i sendmail processes from loading it, but does not prevent existing processes from using the status information that they already have. .sh 1 "TUNING" .pp There are a number of configuration parameters you may want to change, depending on the requirements of your site. Most of these are set using an option in the configuration file. For example, the line .q "O Timeout.queuereturn=5d" sets option .q Timeout.queuereturn to the value .q 5d (five days). .pp Most of these options have appropriate defaults for most sites. However, sites having very high mail loads may find they need to tune them as appropriate for their mail load. In particular, sites experiencing a large number of small messages, many of which are delivered to many recipients, may find that they need to adjust the parameters dealing with queue priorities. .pp All versions of .i sendmail prior to 8.7 had single character option names. As of 8.7, options have long (multi-character names). Although old short names are still accepted, most new options do not have short equivalents. .pp This section only describes the options you are most likely to want to tweak; read section .\"XREF 5 for more details. .sh 2 "Timeouts" .pp All time intervals are set using a scaled syntax. For example, .q 10m represents ten minutes, whereas .q 2h30m represents two and a half hours. The full set of scales is: .(b .ta 4n s seconds m minutes h hours d days w weeks .)b .sh 3 "Queue interval" .pp The argument to the .b \-q flag specifies how often a sub-daemon will run the queue. This is typically set to between fifteen minutes and one hour. If not set, or set to zero, the queue will not be run automatically. RFC 1123 section 5.3.1.1 recommends that this be at least 30 minutes. Should you need to terminate the queue jobs currently active then a SIGTERM to the parent of the process (or processes) will cleanly stop the jobs. .sh 3 "Read timeouts" .pp Timeouts all have option names .q Timeout.\fIsuboption\fP . Most of these control SMTP operations. The recognized .i suboption s, their default values, and the minimum values allowed by RFC 2821 section 4.5.3.2 (or RFC 1123 section 5.3.2) are: .nr ii 1i .ip connect The time to wait for an SMTP connection to open (the .i connect (2) system call) [0, unspecified]. If zero, uses the kernel default. In no case can this option extend the timeout longer than the kernel provides, but it can shorten it. This is to get around kernels that provide an absurdly long connection timeout (90 minutes in one case). .ip iconnect The same as .i connect, except it applies only to the initial attempt to connect to a host for a given message [0, unspecified]. The concept is that this should be very short (a few seconds); hosts that are well connected and responsive will thus be serviced immediately. Hosts that are slow will not hold up other deliveries in the initial delivery attempt. .ip aconnect [0, unspecified] The overall timeout waiting for all connection for a single delivery attempt to succeed. If 0, no overall limit is applied. This can be used to restrict the total amount of time trying to connect to a long list of host that could accept an e-mail for the recipient. This timeout does not apply to .b FallbackMXhost , i.e., if the time is exhausted, the .b FallbackMXhost is tried next. .ip initial The wait for the initial 220 greeting message [5m, 5m]. .ip helo The wait for a reply from a HELO or EHLO command [5m, unspecified]. This may require a host name lookup, so five minutes is probably a reasonable minimum. .ip mail\(dg The wait for a reply from a MAIL command [10m, 5m]. .ip rcpt\(dg The wait for a reply from a RCPT command [1h, 5m]. This should be long because it could be pointing at a list that takes a long time to expand (see below). .ip datainit\(dg The wait for a reply from a DATA command [5m, 2m]. .ip datablock\(dg\(dd The wait for reading a data block (that is, the body of the message). [1h, 3m]. This should be long because it also applies to programs piping input to .i sendmail which have no guarantee of promptness. .ip datafinal\(dg The wait for a reply from the dot terminating a message. [1h, 10m]. If this is shorter than the time actually needed for the receiver to deliver the message, duplicates will be generated. This is discussed in RFC 1047. .ip rset The wait for a reply from a RSET command [5m, unspecified]. .ip quit The wait for a reply from a QUIT command [2m, unspecified]. .ip misc The wait for a reply from miscellaneous (but short) commands such as NOOP (no-operation) and VERB (go into verbose mode). [2m, unspecified]. .ip command\(dg\(dd In server SMTP, the time to wait for another command. [1h, 5m]. .ip ident\(dd The timeout waiting for a reply to an IDENT query [5s\**, unspecified]. .(f \**On some systems the default is zero to turn the protocol off entirely. .)f .ip lhlo The wait for a reply to an LMTP LHLO command [2m, unspecified]. .ip auth The timeout for a reply in an SMTP AUTH dialogue [10m, unspecified]. .ip starttls The timeout for a reply to an SMTP STARTTLS command and the TLS handshake [1h, unspecified]. .ip fileopen\(dd The timeout for opening .forward and :include: files [60s, none]. .ip control\(dd The timeout for a complete control socket transaction to complete [2m, none]. .ip hoststatus\(dd How long status information about a host (e.g., host down) will be cached before it is considered stale [30m, unspecified]. .ip resolver.retrans\(dd The resolver's retransmission time interval (in seconds) [varies]. Sets both .i Timeout.resolver.retrans.first and .i Timeout.resolver.retrans.normal . .ip resolver.retrans.first\(dd The resolver's retransmission time interval (in seconds) for the first attempt to deliver a message [varies]. .ip resolver.retrans.normal\(dd The resolver's retransmission time interval (in seconds) for all resolver lookups except the first delivery attempt [varies]. .ip resolver.retry\(dd The number of times to retransmit a resolver query. Sets both .i Timeout.resolver.retry.first and .i Timeout.resolver.retry.normal [varies]. .ip resolver.retry.first\(dd The number of times to retransmit a resolver query for the first attempt to deliver a message [varies]. .ip resolver.retry.normal\(dd The number of times to retransmit a resolver query for all resolver lookups except the first delivery attempt [varies]. .lp For compatibility with old configuration files, if no .i suboption is specified, all the timeouts marked with .DG (\(dg) are set to the indicated value. All but those marked with .DD (\(dd) apply to client SMTP. .pp For example, the lines: .(b O Timeout.command=25m O Timeout.datablock=3h .)b sets the server SMTP command timeout to 25 minutes and the input data block timeout to three hours. .sh 3 "Message timeouts" .pp After sitting in the queue for a few days, an undeliverable message will time out. This is to insure that at least the sender is aware of the inability to send a message. The timeout is typically set to five days. It is sometimes considered convenient to also send a warning message if the message is in the queue longer than a few hours (assuming you normally have good connectivity; if your messages normally took several hours to send you wouldn't want to do this because it wouldn't be an unusual event). These timeouts are set using the .b Timeout.queuereturn and .b Timeout.queuewarn options in the configuration file (previously both were set using the .b T option). .pp If the message is submitted using the .sm NOTIFY .sm SMTP extension, warning messages will only be sent if .sm NOTIFY=DELAY is specified. The queuereturn and queuewarn timeouts can be further qualified with a tag based on the Precedence: field in the message; they must be one of .q urgent (indicating a positive non-zero precedence), .q normal (indicating a zero precedence), or .q non-urgent (indicating negative precedences). For example, setting .q Timeout.queuewarn.urgent=1h sets the warning timeout for urgent messages only to one hour. The default if no precedence is indicated is to set the timeout for all precedences. If the message has a normal (default) precedence and it is a delivery status notification (DSN), .b Timeout.queuereturn.dsn and .b Timeout.queuewarn.dsn can be used to give an alternative warn and return time for DSNs. The value "now" can be used for -O Timeout.queuereturn to return entries immediately during a queue run, e.g., to bounce messages independent of their time in the queue. .pp Since these options are global, and since you cannot know .i "a priori" how long another host outside your domain will be down, a five day timeout is recommended. This allows a recipient to fix the problem even if it occurs at the beginning of a long weekend. RFC 1123 section 5.3.1.1 says that this parameter should be ``at least 4\-5 days''. .pp The .b Timeout.queuewarn value can be piggybacked on the .b T option by indicating a time after which a warning message should be sent; the two timeouts are separated by a slash. For example, the line .(b OT5d/4h .)b causes email to fail after five days, but a warning message will be sent after four hours. This should be large enough that the message will have been tried several times. .sh 2 "Forking During Queue Runs" .pp By setting the .b ForkEachJob (\c .b Y ) option, .i sendmail will fork before each individual message while running the queue. This option was used with earlier releases to prevent .i sendmail from consuming large amounts of memory. It should no longer be necessary with .i sendmail 8.12. If the .b ForkEachJob option is not set, .i sendmail will keep track of hosts that are down during a queue run, which can improve performance dramatically. .pp If the .b ForkEachJob option is set, .i sendmail cannot use connection caching. .sh 2 "Queue Priorities" .pp Every message is assigned a priority when it is first instantiated, consisting of the message size (in bytes) offset by the message class (which is determined from the Precedence: header) times the .q "work class factor" and the number of recipients times the .q "work recipient factor." The priority is used to order the queue. Higher numbers for the priority mean that the message will be processed later when running the queue. .pp The message size is included so that large messages are penalized relative to small messages. The message class allows users to send .q "high priority" messages by including a .q Precedence: field in their message; the value of this field is looked up in the .b P lines of the configuration file. Since the number of recipients affects the amount of load a message presents to the system, this is also included into the priority. .pp The recipient and class factors can be set in the configuration file using the .b RecipientFactor (\c .b y ) and .b ClassFactor (\c .b z ) options respectively. They default to 30000 (for the recipient factor) and 1800 (for the class factor). The initial priority is: .EQ pri = msgsize - (class times bold ClassFactor) + (nrcpt times bold RecipientFactor) .EN (Remember, higher values for this parameter actually mean that the job will be treated with lower priority.) .pp The priority of a job can also be adjusted each time it is processed (that is, each time an attempt is made to deliver it) using the .q "work time factor," set by the .b RetryFactor (\c .b Z ) option. This is added to the priority, so it normally decreases the precedence of the job, on the grounds that jobs that have failed many times will tend to fail again in the future. The .b RetryFactor option defaults to 90000. .sh 2 "Load Limiting" .pp .i Sendmail can be asked to queue (but not deliver) mail if the system load average gets too high using the .b QueueLA (\c .b x ) option. When the load average exceeds the value of the .b QueueLA option, the delivery mode is set to .b q (queue only) if the .b QueueFactor (\c .b q ) option divided by the difference in the current load average and the .b QueueLA option plus one is less than the priority of the message \(em that is, the message is queued iff: .EQ pri > { bold QueueFactor } over { LA - { bold QueueLA } + 1 } .EN The .b QueueFactor option defaults to 600000, so each point of load average is worth 600000 priority points (as described above). .pp For drastic cases, the .b RefuseLA (\c .b X ) option defines a load average at which .i sendmail will refuse to accept network connections. Locally generated mail, i.e., mail which is not submitted via SMTP (including incoming UUCP mail), is still accepted. Notice that the MSP submits mail to the MTA via SMTP, and hence mail will be queued in the client queue in such a case. Therefore it is necessary to run the client mail queue periodically. .sh 2 "Resource Limits" .pp .i Sendmail has several parameters to control resource usage. Besides those mentioned in the previous section, there are at least .b MaxDaemonChildren , .b ConnectionRateThrottle , .b MaxQueueChildren , and .b MaxRunnersPerQueue . The latter two limit the number of .i sendmail processes that operate on the queue. These are discussed in the section ``Queue Group Declaration''. The former two can be used to limit the number of incoming connections. Their appropriate values depend on the host operating system and the hardware, e.g., amount of memory. In many situations it might be useful to set limits to prevent to have too many .i sendmail processes, however, these limits can be abused to mount a denial of service attack. For example, if .b MaxDaemonChildren=10 then an attacker needs to open only 10 SMTP sessions to the server, leave them idle for most of the time, and no more connections will be accepted. If this option is set then the timeouts used in a SMTP session should be lowered from their default values to their minimum values as specified in RFC 2821 and listed in section .\"XREF 4.1.2. .sh 2 "Measures against Denial of Service Attacks" .pp .i Sendmail has some built-in measures against simple denial of service (DoS) attacks. The SMTP server by default slows down if too many bad commands are issued or if some commands are repeated too often within a session. Details can be found in the source file .b sendmail/srvrsmtp.c by looking for the macro definitions of .b MAXBADCOMMANDS , .b MAXNOOPCOMMANDS , .b MAXHELOCOMMANDS , .b MAXVRFYCOMMANDS , and .b MAXETRNCOMMANDS . If an SMTP command is issued more often than the corresponding .b MAXcmdCOMMANDS value, then the response is delayed exponentially, starting with a sleep time of one second, up to a maximum of four minutes (as defined by .b MAXTIMEOUT ). If the option .b MaxDaemonChildren is set to a value greater than zero, then this could make a DoS attack even worse since it keeps a connection open longer than necessary. Therefore a connection is terminated with a 421 SMTP reply code if the number of commands exceeds the limit by a factor of two and .b MAXBADCOMMANDS is set to a value greater than zero (the default is 25). .sh 2 "Delivery Mode" .pp There are a number of delivery modes that .i sendmail can operate in, set by the .b DeliveryMode (\c .b d ) configuration option. These modes specify how quickly mail will be delivered. Legal modes are: .(b .ta 4n i deliver interactively (synchronously) b deliver in background (asynchronously) q queue only (don't deliver) d defer delivery attempts (don't deliver) .)b There are tradeoffs. Mode .q i gives the sender the quickest feedback, but may slow down some mailers and is hardly ever necessary. Mode .q b delivers promptly but can cause large numbers of processes if you have a mailer that takes a long time to deliver a message. Mode .q q minimizes the load on your machine, but means that delivery may be delayed for up to the queue interval. Mode .q d is identical to mode .q q except that it also prevents lookups in maps including the .b -D flag from working during the initial queue phase; it is intended for ``dial on demand'' sites where DNS lookups might cost real money. Some simple error messages (e.g., host unknown during the SMTP protocol) will be delayed using this mode. Mode .q b is the usual default. .pp If you run in mode .q q (queue only), .q d (defer), or .q b (deliver in background) .i sendmail will not expand aliases and follow .forward files upon initial receipt of the mail. This speeds up the response to RCPT commands. Mode .q i should not be used by the SMTP server. .sh 2 "Log Level" .pp The level of logging can be set for .i sendmail . The default using a standard configuration is level 9. The levels are approximately as follows (some log types are using different level depending on various factors): .nr ii 0.5i .ip 0 Minimal logging. .ip 1 Serious system failures and potential security problems. .ip 2 Lost communications (network problems) and protocol failures. .ip 3 Other serious failures, malformed addresses, transient forward/include errors, connection timeouts. .ip 4 Minor failures, out of date alias databases, connection rejections via check_ rulesets. .ip 5 Message collection statistics. .ip 6 Creation of error messages, VRFY and EXPN commands. .ip 7 Delivery failures (host or user unknown, etc.). .ip 8 Successful deliveries and alias database rebuilds. .ip 9 Messages being deferred (due to a host being down, etc.). .ip 10 Database expansion (alias, forward, and userdb lookups) and authentication information. .ip 11 NIS errors and end of job processing. .ip 12 Logs all SMTP connections. .ip 13 Log bad user shells, files with improper permissions, and other questionable situations. .ip 14 Logs refused connections. .ip 15 Log all incoming SMTP commands. .ip 20 Logs attempts to run locked queue files. These are not errors, but can be useful to note if your queue appears to be clogged. .ip 30 Lost locks (only if using lockf instead of flock). .lp Additionally, values above 64 are reserved for extremely verbose debugging output. No normal site would ever set these. .sh 2 "File Modes" .pp The modes used for files depend on what functionality you want and the level of security you require. In many cases .i sendmail does careful checking of the modes of files and directories to avoid accidental compromise; if you want to make it possible to have group-writable support files you may need to use the .b DontBlameSendmail option to turn off some of these checks. .sh 3 "To suid or not to suid?" .pp .i Sendmail is no longer installed set-user-ID to root. sendmail/SECURITY explains how to configure and install .i sendmail without set-user-ID to root but set-group-ID which is the default configuration starting with 8.12. .pp The daemon usually runs as root, unless other measures are taken. At the point where .i sendmail is about to .i exec \|(2) a mailer, it checks to see if the userid is zero (root); if so, it resets the userid and groupid to a default (set by the .b U= equate in the mailer line; if that is not set, the .b DefaultUser option is used). This can be overridden by setting the .b S flag to the mailer for mailers that are trusted and must be called as root. However, this will cause mail processing to be accounted (using .i sa \|(8)) to root rather than to the user sending the mail. .pp A middle ground is to set the .b RunAsUser option. This causes .i sendmail to become the indicated user as soon as it has done the startup that requires root privileges (primarily, opening the .sm SMTP socket). If you use .b RunAsUser , the queue directory (normally .i /var/spool/mqueue ) should be owned by that user, and all files and databases (including user .i \&.forward files, alias files, :include: files, and external databases) must be readable by that user. Also, since sendmail will not be able to change its uid, delivery to programs or files will be marked as unsafe, e.g., undeliverable, in .i \&.forward , aliases, and :include: files. Administrators can override this by setting the .b DontBlameSendmail option to the setting .b NonRootSafeAddr . .b RunAsUser is probably best suited for firewall configurations that don't have regular user logins. If the option is used on a system which performs local delivery, then the local delivery agent must have the proper permissions (i.e., usually set-user-ID root) since it will be invoked by the .b RunAsUser , not by root. .sh 3 "Turning off security checks" .pp .i Sendmail is very particular about the modes of files that it reads or writes. For example, by default it will refuse to read most files that are group writable on the grounds that they might have been tampered with by someone other than the owner; it will even refuse to read files in group writable directories. Also, sendmail will refuse to create a new aliases database in an unsafe directory. You can get around this by manually creating the database file as a trusted user ahead of time and then rebuilding the aliases database with .b newaliases . .pp If you are .i quite sure that your configuration is safe and you want .i sendmail to avoid these security checks, you can turn off certain checks using the .b DontBlameSendmail option. This option takes one or more names that disable checks. In the descriptions that follow, .q "unsafe directory" means a directory that is writable by anyone other than the owner. The values are: .nr ii 0.5i .ip Safe No special handling. .ip AssumeSafeChown Assume that the .i chown system call is restricted to root. Since some versions of UNIX permit regular users to give away their files to other users on some filesystems, .i sendmail often cannot assume that a given file was created by the owner, particularly when it is in a writable directory. You can set this flag if you know that file giveaway is restricted on your system. .ip CertOwner Accept certificate public and private key files which are not owned by RunAsUser for STARTTLS. .ip ClassFileInUnsafeDirPath When reading class files (using the .b F line in the configuration file), allow files that are in unsafe directories. .ip DontWarnForwardFileInUnsafeDirPath Prevent logging of unsafe directory path warnings for non-existent forward files. .ip ErrorHeaderInUnsafeDirPath Allow the file named in the .b ErrorHeader option to be in an unsafe directory. .ip FileDeliveryToHardLink Allow delivery to files that are hard links. .ip FileDeliveryToSymLink Allow delivery to files that are symbolic links. .ip ForwardFileInGroupWritableDirPath Allow .i \&.forward files in group writable directories. .ip ForwardFileInUnsafeDirPath Allow .i \&.forward files in unsafe directories. .ip ForwardFileInUnsafeDirPathSafe Allow a .i \&.forward file that is in an unsafe directory to include references to program and files. .ip GroupReadableKeyFile Accept a group-readable key file for STARTTLS. .ip GroupReadableSASLDBFile Accept a group-readable Cyrus SASL password file. .ip GroupReadableDefaultAuthInfoFile Accept a group-readable DefaultAuthInfo file for SASL. .ip GroupWritableAliasFile Allow group-writable alias files. .ip GroupWritableDirPathSafe Change the definition of .q "unsafe directory" to consider group-writable directories to be safe. World-writable directories are always unsafe. .ip GroupWritableForwardFile Allow group writable .i \&.forward files. .ip GroupWritableForwardFileSafe Accept group-writable .i \&.forward files as safe for program and file delivery. .ip GroupWritableIncludeFile Allow group writable .i :include: files. .ip GroupWritableIncludeFileSafe Accept group-writable .i :include: files as safe for program and file delivery. .ip GroupWritableSASLDBFile Accept a group-writable Cyrus SASL password file. .ip HelpFileInUnsafeDirPath Allow the file named in the .b HelpFile option to be in an unsafe directory. .ip IncludeFileInGroupWritableDirPath Allow .i :include: files in group writable directories. .ip IncludeFileInUnsafeDirPath Allow .i :include: files in unsafe directories. .ip IncludeFileInUnsafeDirPathSafe Allow a .i :include: file that is in an unsafe directory to include references to program and files. .ip InsufficientEntropy Try to use STARTTLS even if the PRNG for OpenSSL is not properly seeded despite the security problems. .ip LinkedAliasFileInWritableDir Allow an alias file that is a link in a writable directory. .ip LinkedClassFileInWritableDir Allow class files that are links in writable directories. .ip LinkedForwardFileInWritableDir Allow .i \&.forward files that are links in writable directories. .ip LinkedIncludeFileInWritableDir Allow .i :include: files that are links in writable directories. .ip LinkedMapInWritableDir Allow map files that are links in writable directories. This includes alias database files. .ip LinkedServiceSwitchFileInWritableDir Allow the service switch file to be a link even if the directory is writable. .ip MapInUnsafeDirPath Allow maps (e.g., .i hash , .i btree , and .i dbm files) in unsafe directories. This includes alias database files. .ip NonRootSafeAddr Do not mark file and program deliveries as unsafe if sendmail is not running with root privileges. .ip RunProgramInUnsafeDirPath Run programs that are in writable directories without logging a warning. .ip RunWritableProgram Run programs that are group- or world-writable without logging a warning. .ip TrustStickyBit Allow group or world writable directories if the sticky bit is set on the directory. Do not set this on systems which do not honor the sticky bit on directories. .ip WorldWritableAliasFile Accept world-writable alias files. .ip WorldWritableForwardfile Allow world writable .i \&.forward files. .ip WorldWritableIncludefile Allow world writable .i :include: files. .ip WriteMapToHardLink Allow writes to maps that are hard links. .ip WriteMapToSymLink Allow writes to maps that are symbolic links. .ip WriteStatsToHardLink Allow the status file to be a hard link. .ip WriteStatsToSymLink Allow the status file to be a symbolic link. .sh 2 "Connection Caching" .pp When processing the queue, .i sendmail will try to keep the last few open connections open to avoid startup and shutdown costs. This only applies to IPC and LPC connections. .pp When trying to open a connection the cache is first searched. If an open connection is found, it is probed to see if it is still active by sending a .sm RSET command. It is not an error if this fails; instead, the connection is closed and reopened. .pp Two parameters control the connection cache. The .b ConnectionCacheSize (\c .b k ) option defines the number of simultaneous open connections that will be permitted. If it is set to zero, connections will be closed as quickly as possible. The default is one. This should be set as appropriate for your system size; it will limit the amount of system resources that .i sendmail will use during queue runs. Never set this higher than 4. .pp The .b ConnectionCacheTimeout (\c .b K ) option specifies the maximum time that any cached connection will be permitted to idle. When the idle time exceeds this value the connection is closed. This number should be small (under ten minutes) to prevent you from grabbing too many resources from other hosts. The default is five minutes. .sh 2 "Name Server Access" .pp Control of host address lookups is set by the .b hosts service entry in your service switch file. If you are on a system that has built-in service switch support (e.g., Ultrix, Solaris, or DEC OSF/1) then your system is probably configured properly already. Otherwise, .i sendmail will consult the file .b /etc/mail/service.switch , which should be created. .i Sendmail only uses two entries: .b hosts and .b aliases , although system routines may use other services (notably the .b passwd service for user name lookups by .i getpwname ). .pp However, some systems (such as SunOS 4.X) will do DNS lookups regardless of the setting of the service switch entry. In particular, the system routine .i gethostbyname (3) is used to look up host names, and many vendor versions try some combination of DNS, NIS, and file lookup in /etc/hosts without consulting a service switch. .i Sendmail makes no attempt to work around this problem, and the DNS lookup will be done anyway. If you do not have a nameserver configured at all, such as at a UUCP-only site, .i sendmail will get a .q "connection refused" message when it tries to connect to the name server. If the .b hosts switch entry has the service .q dns listed somewhere in the list, .i sendmail will interpret this to mean a temporary failure and will queue the mail for later processing; otherwise, it ignores the name server data. .pp The same technique is used to decide whether to do MX lookups. If you want MX support, you .i must have .q dns listed as a service in the .b hosts switch entry. .pp The .b ResolverOptions (\c .b I ) option allows you to tweak name server options. The command line takes a series of flags as documented in .i resolver (3) (with the leading .q RES_ deleted). Each can be preceded by an optional `+' or `\(mi'. For example, the line .(b O ResolverOptions=+AAONLY \(miDNSRCH .)b turns on the AAONLY (accept authoritative answers only) and turns off the DNSRCH (search the domain path) options. Most resolver libraries default DNSRCH, DEFNAMES, and RECURSE flags on and all others off. If NETINET6 is enabled, most libraries default to USE_INET6 as well. You can also include .q HasWildcardMX to specify that there is a wildcard MX record matching your domain; this turns off MX matching when canonifying names, which can lead to inappropriate canonifications. Use .q WorkAroundBrokenAAAA when faced with a broken nameserver that returns SERVFAIL (a temporary failure) on T_AAAA (IPv6) lookups during hostname canonification. Notice: it might be necessary to apply the same (or similar) options to .i submit.cf too. .pp Version level 1 configurations (see the section about ``Configuration Version Level'') turn DNSRCH and DEFNAMES off when doing delivery lookups, but leave them on everywhere else. Version 8 of .i sendmail ignores them when doing canonification lookups (that is, when using $[ ... $]), and always does the search. If you don't want to do automatic name extension, don't call $[ ... $]. .pp The search rules for $[ ... $] are somewhat different than usual. If the name being looked up has at least one dot, it always tries the unmodified name first. If that fails, it tries the reduced search path, and lastly tries the unmodified name (but only for names without a dot, since names with a dot have already been tried). This allows names such as ``utc.CS'' to match the site in Czechoslovakia rather than the site in your local Computer Science department. It also prefers A and CNAME records over MX records \*- that is, if it finds an MX record it makes note of it, but keeps looking. This way, if you have a wildcard MX record matching your domain, it will not assume that all names match. .pp To completely turn off all name server access on systems without service switch support (such as SunOS 4.X) you will have to recompile with \-DNAMED_BIND=0 and remove \-lresolv from the list of libraries to be searched when linking. .sh 2 "Moving the Per-User Forward Files" .pp Some sites mount each user's home directory from a local disk on their workstation, so that local access is fast. However, the result is that .forward file lookups from a central mail server are slow. In some cases, mail can even be delivered on machines inappropriately because of a file server being down. The performance can be especially bad if you run the automounter. .pp The .b ForwardPath (\c .b J ) option allows you to set a path of forward files. For example, the config file line .(b O ForwardPath=/var/forward/$u:$z/.forward.$w .)b would first look for a file with the same name as the user's login in /var/forward; if that is not found (or is inaccessible) the file ``.forward.\c .i machinename '' in the user's home directory is searched. A truly perverse site could also search by sender by using $r, $s, or $f. .pp If you create a directory such as /var/forward, it should be mode 1777 (that is, the sticky bit should be set). Users should create the files mode 0644. Note that you must use the ForwardFileInUnsafeDirPath and ForwardFileInUnsafeDirPathSafe flags with the .b DontBlameSendmail option to allow forward files in a world writable directory. This might also be used as a denial of service attack (users could create forward files for other users); a better approach might be to create /var/forward mode 0755 and create empty files for each user, owned by that user, mode 0644. If you do this, you don't have to set the DontBlameSendmail options indicated above. .sh 2 "Free Space" .pp On systems that have one of the system calls in the .i statfs (2) family (including .i statvfs and .i ustat ), you can specify a minimum number of free blocks on the queue filesystem using the .b MinFreeBlocks (\c .b b ) option. If there are fewer than the indicated number of blocks free on the filesystem on which the queue is mounted the SMTP server will reject mail with the 452 error code. This invites the SMTP client to try again later. .pp Beware of setting this option too high; it can cause rejection of email when that mail would be processed without difficulty. .sh 2 "Maximum Message Size" .pp To avoid overflowing your system with a large message, the .b MaxMessageSize option can be set to set an absolute limit on the size of any one message. This will be advertised in the ESMTP dialogue and checked during message collection. .sh 2 "Privacy Flags" .pp The .b PrivacyOptions (\c .b p ) option allows you to set certain ``privacy'' flags. Actually, many of them don't give you any extra privacy, rather just insisting that client SMTP servers use the HELO command before using certain commands or adding extra headers to indicate possible spoof attempts. .pp The option takes a series of flag names; the final privacy is the inclusive or of those flags. For example: .(b O PrivacyOptions=needmailhelo, noexpn .)b insists that the HELO or EHLO command be used before a MAIL command is accepted and disables the EXPN command. .pp The flags are detailed in section .\"XREF 5.6. .sh 2 "Send to Me Too" .pp Beginning with version 8.10, .i sendmail includes by default the (envelope) sender in any list expansions. For example, if .q matt sends to a list that contains .q matt as one of the members he will get a copy of the message. If the .b MeToo option is set to .sm FALSE (in the configuration file or via the command line), this behavior is changed, i.e., the (envelope) sender is excluded in list expansions. .sh 1 "THE WHOLE SCOOP ON THE CONFIGURATION FILE" .pp This section describes the configuration file in detail. .pp There is one point that should be made clear immediately: the syntax of the configuration file is designed to be reasonably easy to parse, since this is done every time .i sendmail starts up, rather than easy for a human to read or write. The configuration file should be generated via the method described in .b cf/README , it should not be edited directly unless someone is familiar with the internals of the syntax described here and it is not possible to achieve the desired result via the default method. .pp The configuration file is organized as a series of lines, each of which begins with a single character defining the semantics for the rest of the line. Lines beginning with a space or a tab are continuation lines (although the semantics are not well defined in many places). Blank lines and lines beginning with a sharp symbol (`#') are comments. .sh 2 "R and S \*- Rewriting Rules" .pp The core of address parsing are the rewriting rules. These are an ordered production system. .i Sendmail scans through the set of rewriting rules looking for a match on the left hand side (LHS) of the rule. When a rule matches, the address is replaced by the right hand side (RHS) of the rule. .pp There are several sets of rewriting rules. Some of the rewriting sets are used internally and must have specific semantics. Other rewriting sets do not have specifically assigned semantics, and may be referenced by the mailer definitions or by other rewriting sets. .pp The syntax of these two commands are: .(b F .b S \c .i n .)b Sets the current ruleset being collected to .i n . If you begin a ruleset more than once it appends to the old definition. .(b F .b R \c .i lhs .i rhs .i comments .)b The fields must be separated by at least one tab character; there may be embedded spaces in the fields. The .i lhs is a pattern that is applied to the input. If it matches, the input is rewritten to the .i rhs . The .i comments are ignored. .pp Macro expansions of the form .b $ \c .i x are performed when the configuration file is read. A literal .b $ can be included using .b $$ . Expansions of the form .b $& \c .i x are performed at run time using a somewhat less general algorithm. This is intended only for referencing internally defined macros such as .b $h that are changed at runtime. .sh 3 "The left hand side" .pp The left hand side of rewriting rules contains a pattern. Normal words are simply matched directly. Metasyntax is introduced using a dollar sign. The metasymbols are: .(b .ta \w'\fB$=\fP\fIx\fP 'u \fB$*\fP Match zero or more tokens \fB$+\fP Match one or more tokens \fB$\-\fP Match exactly one token \fB$=\fP\fIx\fP Match any phrase in class \fIx\fP \fB$~\fP\fIx\fP Match any word not in class \fIx\fP .)b If any of these match, they are assigned to the symbol .b $ \c .i n for replacement on the right hand side, where .i n is the index in the LHS. For example, if the LHS: .(b $\-:$+ .)b is applied to the input: .(b UCBARPA:eric .)b the rule will match, and the values passed to the RHS will be: .(b .ta 4n $1 UCBARPA $2 eric .)b .pp Additionally, the LHS can include .b $@ to match zero tokens. This is .i not bound to a .b $ \c .i n on the RHS, and is normally only used when it stands alone in order to match the null input. .sh 3 "The right hand side" .pp When the left hand side of a rewriting rule matches, the input is deleted and replaced by the right hand side. Tokens are copied directly from the RHS unless they begin with a dollar sign. Metasymbols are: .(b .ta \w'$#mailer\0\0\0'u \fB$\fP\fIn\fP Substitute indefinite token \fIn\fP from LHS \fB$[\fP\fIname\fP\fB$]\fP Canonicalize \fIname\fP \fB$(\fP\fImap key\fP \fB$@\fP\fIarguments\fP \fB$:\fP\fIdefault\fP \fB$)\fP Generalized keyed mapping function \fB$>\fP\fIn\fP \*(lqCall\*(rq ruleset \fIn\fP \fB$#\fP\fImailer\fP Resolve to \fImailer\fP \fB$@\fP\fIhost\fP Specify \fIhost\fP \fB$:\fP\fIuser\fP Specify \fIuser\fP .)b .pp The .b $ \c .i n syntax substitutes the corresponding value from a .b $+ , .b $\- , .b $* , .b $= , or .b $~ match on the LHS. It may be used anywhere. .pp A host name enclosed between .b $[ and .b $] is looked up in the host database(s) and replaced by the canonical name\**. .(f \**This is actually completely equivalent to $(host \fIhostname\fP$). In particular, a .b $: default can be used. .)f For example, .q $[ftp$] might become .q ftp.CS.Berkeley.EDU and .q $[[128.32.130.2]$] would become .q vangogh.CS.Berkeley.EDU. .i Sendmail recognizes its numeric IP address without calling the name server and replaces it with its canonical name. .pp The .b $( \&... .b $) syntax is a more general form of lookup; it uses a named map instead of an implicit map. If no lookup is found, the indicated .i default is inserted; if no default is specified and no lookup matches, the value is left unchanged. The .i arguments are passed to the map for possible use. .pp The .b $> \c .i n syntax causes the remainder of the line to be substituted as usual and then passed as the argument to ruleset .i n . The final value of ruleset .i n then becomes the substitution for this rule. The .b $> syntax expands everything after the ruleset name to the end of the replacement string and then passes that as the initial input to the ruleset. Recursive calls are allowed. For example, .(b $>0 $>3 $1 .)b expands $1, passes that to ruleset 3, and then passes the result of ruleset 3 to ruleset 0. .pp The .b $# syntax should .i only be used in ruleset zero, a subroutine of ruleset zero, or rulesets that return decisions (e.g., check_rcpt). It causes evaluation of the ruleset to terminate immediately, and signals to .i sendmail that the address has completely resolved. The complete syntax for ruleset 0 is: .(b \fB$#\fP\fImailer\fP \fB$@\fP\fIhost\fP \fB$:\fP\fIuser\fP .)b This specifies the {mailer, host, user} 3-tuple (triple) necessary to direct the mailer. Note: the third element ( .i user ) is often also called .i address part. If the mailer is local the host part may be omitted\**. .(f \**You may want to use it for special .q "per user" extensions. For example, in the address .q jgm+foo@CMU.EDU ; the .q +foo part is not part of the user name, and is passed to the local mailer for local use. .)f The .i mailer must be a single word, but the .i host and .i user may be multi-part. If the .i mailer is the built-in IPC mailer, the .i host may be a colon (or comma) separated list of hosts. Each is separately MX expanded and the results are concatenated to make (essentially) one long MX list. Hosts separated by a comma have the same MX preference, and for each colon separated host the MX preference is increased. The .i user is later rewritten by the mailer-specific envelope rewriting set and assigned to the .b $u macro. As a special case, if the mailer specified has the .b F=@ flag specified and the first character of the .b $: value is .q @ , the .q @ is stripped off, and a flag is set in the address descriptor that causes sendmail to not do ruleset 5 processing. .pp Normally, a rule that matches is retried, that is, the rule loops until it fails. A RHS may also be preceded by a .b $@ or a .b $: to change this behavior. A .b $@ prefix causes the ruleset to return with the remainder of the RHS as the value. A .b $: prefix causes the rule to terminate immediately, but the ruleset to continue; this can be used to avoid continued application of a rule. The prefix is stripped before continuing. .pp The .b $@ and .b $: prefixes may precede a .b $> spec; for example: .(b .ta 8n R$+ $: $>7 $1 .)b matches anything, passes that to ruleset seven, and continues; the .b $: is necessary to avoid an infinite loop. .pp Substitution occurs in the order described, that is, parameters from the LHS are substituted, hostnames are canonicalized, .q subroutines are called, and finally .b $# , .b $@ , and .b $: are processed. .sh 3 "Semantics of rewriting rule sets" .pp There are six rewriting sets that have specific semantics. Five of these are related as depicted by figure 1. .(z .hl .ie n \{\ .(c +---+ -->| 0 |-->resolved address / +---+ / +---+ +---+ / ---->| 1 |-->| S |-- +---+ / +---+ / +---+ +---+ \e +---+ addr-->| 3 |-->| D |-- --->| 4 |-->msg +---+ +---+ \e +---+ +---+ / +---+ --->| 2 |-->| R |-- +---+ +---+ .)c .\} .el \{\ .ie !"\*(.T"" \{\ .PS boxwid = 0.3i boxht = 0.3i movewid = 0.3i moveht = 0.3i linewid = 0.3i lineht = 0.3i box invis "addr"; arrow Box3: box "3" A1: arrow BoxD: box "D"; line; L1: Here C: [ C1: arrow; box "1"; arrow; box "S"; line; E1: Here move to C1 down 0.5; right C2: arrow; box "2"; arrow; box "R"; line; E2: Here ] with .w at L1 + (0.5, 0) move to C.e right 0.5 L4: arrow; box "4"; arrow; box invis "msg" line from L1 to C.C1 line from L1 to C.C2 line from C.E1 to L4 line from C.E2 to L4 move to BoxD.n up 0.6; right Box0: arrow; box "0" arrow; box invis "resolved address" width 1.3 line from 1/3 of the way between A1 and BoxD.w to Box0 .PE .\} .el .sp 2i .\} .ce Figure 1 \*- Rewriting set semantics .(c D \*- sender domain addition S \*- mailer-specific sender rewriting R \*- mailer-specific recipient rewriting .)c .hl .)z .pp Ruleset three should turn the address into .q "canonical form." This form should have the basic syntax: .(b local-part@host-domain-spec .)b Ruleset three is applied by .i sendmail before doing anything with any address. .pp If no .q @ sign is specified, then the host-domain-spec .i may be appended (box .q D in Figure 1) from the sender address (if the .b C flag is set in the mailer definition corresponding to the .i sending mailer). .pp Ruleset zero is applied after ruleset three to addresses that are going to actually specify recipients. It must resolve to a .i "{mailer, host, address}" triple. The .i mailer must be defined in the mailer definitions from the configuration file. The .i host is defined into the .b $h macro for use in the argv expansion of the specified mailer. Notice: since the envelope sender address will be used if a delivery status notification must be send, i.e., it may specify a recipient, it is also run through ruleset zero. If ruleset zero returns a temporary error .b 4xy then delivery is deferred. This can be used to temporarily disable delivery, e.g., based on the time of the day or other varying parameters. It should not be used to quarantine e-mails. .pp Rulesets one and two are applied to all sender and recipient addresses respectively. They are applied before any specification in the mailer definition. They must never resolve. .pp Ruleset four is applied to all addresses in the message. It is typically used to translate internal to external form. .pp In addition, ruleset 5 is applied to all local addresses (specifically, those that resolve to a mailer with the `F=5' flag set) that do not have aliases. This allows a last minute hook for local names. .sh 3 "Ruleset hooks" .pp A few extra rulesets are defined as .q hooks that can be defined to get special features. They are all named rulesets. The .q check_* forms all give accept/reject status; falling off the end or returning normally is an accept, and resolving to .b $#error is a reject or quarantine. Quarantining is chosen by specifying .b quarantine in the second part of the mailer triplet: .(b $#error $@ quarantine $: Reason for quarantine .)b Many of these can also resolve to the special mailer name .b $#discard ; this accepts the message as though it were successful but then discards it without delivery. Note, this mailer cannot be chosen as a mailer in ruleset 0. Note also that all .q check_* rulesets have to deal with temporary failures, especially for map lookups, themselves, i.e., they should return a temporary error code or at least they should make a proper decision in those cases. .sh 4 "check_relay" .pp The .i check_relay ruleset is called after a connection is accepted by the daemon. It is not called when sendmail is started using the .b \-bs option. It is passed .(b client.host.name $| client.host.address .)b where .b $| is a metacharacter separating the two parts. This ruleset can reject connections from various locations. Note that it only checks the connecting SMTP client IP address and hostname. It does not check for third party message relaying. The .i check_rcpt ruleset discussed below usually does third party message relay checking. .sh 4 "check_mail" .pp The .i check_mail ruleset is passed the user name parameter of the .sm "SMTP MAIL" command. It can accept or reject the address. .sh 4 "check_rcpt" .pp The .i check_rcpt ruleset is passed the user name parameter of the .sm "SMTP RCPT" command. It can accept or reject the address. .sh 4 "check_data" .pp The .i check_data ruleset is called after the .sm "SMTP DATA" command, its parameter is the number of recipients. It can accept or reject the command. .sh 4 "check_other" .pp The .i check_other ruleset is invoked for all unknown SMTP commands and for commands which do not have specific rulesets, e.g., NOOP and VERB. Internal checks, e.g., those explained in "Measures against Denial of Service Attacks", are performed first. The ruleset is passed .(b entire-SMTP-command $| SMTP-reply-first-digit .)b where .b $| is a metacharacter separating the two parts. For example, .(b VERB $| 2 .)b reflects receiving the "VERB" SMTP command and the intent to return a "2XX" SMTP success reply. Alternatively, .(b JUNK TYPE=I $| 5 .)b reflects receiving the unknown "JUNK TYPE=I" SMTP command and the intent to return a "5XX" SMTP failure reply. If the ruleset returns the SMTP reply code 421: .(b $#error $@ 4.7.0 $: 421 bad command .)b the session is terminated. Note: it is a bad idea to return the original command in the error text to the client as that might be abused for certain attacks. The ruleset cannot override a rejection triggered by the built-in rules. .sh 4 "check_compat" .pp The .i check_compat ruleset is passed .(b sender-address $| recipient-address .)b where .b $| is a metacharacter separating the addresses. It can accept or reject mail transfer between these two addresses much like the .i checkcompat() function. Note: while other .i check_* rulesets are invoked during the SMTP mail receiption stage (i.e., in the SMTP server), .i check_compat is invoked during the mail delivery stage. .sh 4 "check_eoh" .pp The .i check_eoh ruleset is passed .(b number-of-headers $| size-of-headers .)b where .b $| is a metacharacter separating the numbers. These numbers can be used for size comparisons with the .b arith map. The ruleset is triggered after all of the headers have been read. It can be used to correlate information gathered from those headers using the .b macro storage map. One possible use is to check for a missing header. For example: .(b .ta 1.5i Kstorage macro HMessage-Id: $>CheckMessageId SCheckMessageId # Record the presence of the header R$* $: $(storage {MessageIdCheck} $@ OK $) $1 R< $+ @ $+ > $@ OK R$* $#error $: 553 Header Error Scheck_eoh # Check the macro R$* $: < $&{MessageIdCheck} > # Clear the macro for the next message R$* $: $(storage {MessageIdCheck} $) $1 # Has a Message-Id: header R< $+ > $@ OK # Allow missing Message-Id: from local mail R$* $: < $&{client_name} > R< > $@ OK R< $=w > $@ OK # Otherwise, reject the mail R$* $#error $: 553 Header Error .)b Keep in mind the Message-Id: header is not a required header and is not a guaranteed spam indicator. This ruleset is an example and should probably not be used in production. .sh 4 "check_eom" .pp The .i check_eom ruleset is called after the end of a message, its parameter is the message size. It can accept or reject the message. .sh 4 "check_etrn" .pp The .i check_etrn ruleset is passed the parameter of the .sm "SMTP ETRN" command. It can accept or reject the command. .sh 4 "check_expn" .pp The .i check_expn ruleset is passed the user name parameter of the .sm "SMTP EXPN" command. It can accept or reject the address. .sh 4 "check_vrfy" .pp The .i check_vrfy ruleset is passed the user name parameter of the .sm "SMTP VRFY" command. It can accept or reject the command. .sh 4 "clt_features" .pp The .i clt_features ruleset is called with the server's host name before sendmail connects to it (only if sendmail is compiled with STARTTLS or SASL). This ruleset should return .b $# followed by a list of options (in general, single characters delimited by white space). If the return value starts with anything else it is silently ignored. Generally upper case characters turn off a feature while lower case characters turn it on. Options `D'/`M' cause the client to not use DANE/MTA-STS, respectively, which is useful to interact with MTAs that have broken DANE/MTA-STS setups by simply not using it. Note: The .i d option in .i tls_clt_features to turn off DANE does not work when the server does not even offer STARTTLS. .sh 4 "trust_auth" .pp The .i trust_auth ruleset is passed the AUTH= parameter of the .sm "SMTP MAIL" command. It is used to determine whether this value should be trusted. In order to make this decision, the ruleset may make use of the various .b ${auth_*} macros. If the ruleset does resolve to the .q error mailer the AUTH= parameter is not trusted and hence not passed on to the next relay. .sh 4 "tls_client" .pp The .i tls_client ruleset is called when sendmail acts as server: after a STARTTLS command has been issued and the TLS handshake was performed, and from .i check_mail. The parameter is the value of .b ${verify} and STARTTLS or MAIL, respectively. If the ruleset does resolve to the .q error mailer, the appropriate error code is returned to the client, for STARTTLS this happens for (most) subsequent commands. .sh 4 "tls_server" .pp The .i tls_server ruleset is called when sendmail acts as client after a STARTTLS command (should) have been issued. The parameter is the value of .b ${verify} . If the ruleset does resolve to the .q error mailer, the connection is aborted (treated as non-deliverable with a permanent or temporary error). .sh 4 "tls_rcpt" .pp The .i tls_rcpt ruleset is called each time before a RCPT command is sent. The parameter is the current recipient. If the ruleset does resolve to the .q error mailer, the RCPT command is suppressed (treated as non-deliverable with a permanent or temporary error). This ruleset allows to require encryption or verification of the recipient's MTA even if the mail is somehow redirected to another host. For example, sending mail to .i luke@endmail.org may get redirected to a host named .i death.star and hence the tls_server ruleset won't apply. By introducing per recipient restrictions such attacks (e.g., via DNS spoofing) can be made impossible. See .i cf/README how this ruleset can be used. .sh 4 "srv_features" .pp The .i srv_features ruleset is called with the connecting client's host name when a client connects to sendmail. This ruleset should return .b $# followed by a list of options (in general, single characters delimited by white space). If the return value starts with anything else it is silently ignored. Generally upper case characters turn off a feature while lower case characters turn it on. Option `S' causes the server not to offer STARTTLS, which is useful to interact with MTAs/MUAs that have broken STARTTLS implementations by simply not offering it. `V' turns off the request for a client certificate during the TLS handshake. Options `A' and `P' suppress SMTP AUTH and PIPELINING, respectively. `c' is the equivalent to AuthOptions=p, i.e., it doesn't permit mechanisms susceptible to simple passive attack (e.g., PLAIN, LOGIN), unless a security layer is active. Option `l' requires SMTP AUTH for a connection. Options 'B', 'D', 'E', and 'X' suppress SMTP VERB, DSN, ETRN, and EXPN, respectively. If a client sends one of the (HTTP) commands GET, POST, CONNECT, or USER the connection is immediately terminated in the following cases: if sent as first command, if sent as first command after STARTTLS, or if the 'h' option is set. Option 'F' disables SMTP transaction stuffing protection which is enabled by default. The protection checks for clients which try to send commands without waiting for the server HELO/EHLO and DATA response. Option 'o' causes the server to accept only CRLF . CRLF as end of an SMTP message as required by the RFCs which is also a defense against SMTP smuggling (CVE-2023-51765). Option 'O' allows the server to accept a single dot on a line by itself as end of an SMTP message. Option 'g' instructs the server to fail SMTP messages which have a LF without a CR directly before it ("bare LF") by dropping the session with a 421 error. Option 'G' accepts SMTP messages which have a "bare LF". Option 'u' instructs the server to fail SMTP messages which have a CR without a LF directly after it ("bare CR") by dropping the session with a 421 error. Option 'U' accepts SMTP messages which have a "bare CR". There is a variant for the options 'u' and 'g': a '2' can be appended to the single character, in which case the server will replace the offending bare CR or bare LF with a space. This allows to accept mail from broken systems, but the message is modified to avoid SMTP smuggling. If needed, systems with broken SMTP implementations can be allowed some violations, e.g., a combination of .(b G U g2 u2 O .)b A command like .(b egrep 'Bare.*(CR|LF).*not allowed' $MAILLOG .)b can be used to find hosts which send bare CR or LF. .(b .ta 9n A Do not offer AUTH a Offer AUTH (default) B Do not offer VERB b Offer VERB (default) C Do not require security layer for plaintext AUTH (default) c Require security layer for plaintext AUTH D Do not offer DSN d Offer DSN (default) E Do not offer ETRN e Offer ETRN (default) F Disable transaction stuffing protection f Enforce transaction stuffing protection (default) G Accept "bare LF"s in a message g Do not accept "bare LF"s in a message (default) g2 Replace "bare LF" in a message with space h Terminate session after HTTP commands L Do not require AUTH (default) l Require AUTH O Accept a single dot on a line by itself as end of an SMTP message o Require CRLF . CRLF as end of an SMTP message (default) P Do not offer PIPELINING p Offer PIPELINING (default) S Do not offer STARTTLS s Offer STARTTLS (default) U Accept "bare CR"s in a message u Do not accept "bare CR"s in a message (default) u2 Replace "bare CR" in a message with space V Do not request a client certificate v Request a client certificate (default) X Do not offer EXPN x Offer EXPN (default) .)b Note: the entries marked as ``(default)'' may require that some configuration has been made, e.g., SMTP AUTH is only available if properly configured. Moreover, many options can be changed on a global basis via other settings as explained in this document, e.g., via DaemonPortOptions. .pp The ruleset may return `$#temp' to indicate that there is a temporary problem determining the correct features, e.g., if a map is unavailable. In that case, the SMTP server issues a temporary failure and does not accept email. .sh 4 "try_tls" .pp The .i try_tls ruleset is called when sendmail connects to another MTA. The argument for the ruleset is the name of the server. If the ruleset does resolve to the .q error mailer, sendmail does not try STARTTLS even if it is offered. This is useful to deal with STARTTLS interoperability issues by simply not using it. .sh 4 "tls_srv_features and tls_clt_features" .pp The .i tls_clt_features ruleset is called right before sendmail issues the .i STARTTLS command to another MTA and the .i tls_srv_features ruleset is called when a client sends the .i STARTTLS command to .i sendmail . The arguments for the rulesets are the host name and IP address of the other side separated by .b $| (which is a metacharacter). They should return a list of .i key=value pairs separated by semicolons; the list can be empty if no options should be applied to the connection. Available keys are and their allowed values are: .nr ii 0.2i .ip Options A comma separated list of SSL related options. See .i ServerSSLOptions and .i ClientSSLOptions for details, as well as .i SSL_set_options (3) and note this warning: Options already set before are not cleared! .ip CipherList Specify cipher list for STARTTLS (does not apply to TLSv1.3), see .i ciphers (1) for possible values. This overrides the global .i CipherList for the session. .ip CertFile File containing a certificate. .ip KeyFile File containing the private key for the certificate. .ip Flags Currently the only valid flags are .br .i R to require a CRL for each encountered certificate during verification (by default a missing CRL is ignored), .br .i c and .i C which basically clears/sets the option .i TLSFallbacktoClear for just this session, respectively, .br .i d to turn off DANE which is obviously only valid for .i tls_clt_features and requires DANE to be compiled in. This might be needed in case of a misconfiguration, e.g., specifying invalid TLSA RRs. .br .lp .lp Example: .(b .ta 1.5i Stls_srv_features R$* $| 10.$+ $: cipherlist=HIGH .)b .lp Notes: .pp Errors in these features (e.g., unknown keys or invalid values) are logged and the current session is aborted to avoid using STARTTLS with features that should have been changed. .pp The keys are case-insensitive. .pp Both .i CertFile and .i KeyFile must be specified together; specifying only one is an error. .sh 4 "authinfo" .pp The .i authinfo ruleset is called when sendmail tries to authenticate to another MTA. The arguments for the ruleset are the host name and IP address of the server separated by .b $| (which is a metacharacter). It should return .b $# followed by a list of tokens that are used for SMTP AUTH. If the return value starts with anything else it is silently ignored. Each token is a tagged string of the form: "TDstring" (including the quotes), where .(b .ta 9n T Tag which describes the item D Delimiter: ':' simple text follows '=' string is base64 encoded string Value of the item .)b Valid values for the tag are: .(b .ta 9n U user (authorization) id I authentication id P password R realm M list of mechanisms delimited by spaces .)b If this ruleset is defined, the option .b DefaultAuthInfo is ignored (even if the ruleset does not return a ``useful'' result). .sh 4 "queuegroup" .pp The .i queuegroup ruleset is used to map a recipient address to a queue group name. The input for the ruleset is the recipient address (i.e., the address part of the resolved triple) The ruleset should return .b $# followed by the name of a queue group. If the return value starts with anything else it is silently ignored. See the section about ``Queue Groups and Queue Directories'' for further information. .sh 4 "greet_pause" .pp The .i greet_pause ruleset is used to specify the amount of time to pause before sending the initial SMTP 220 greeting. The arguments for the ruleset are the host name and IP address of the client separated by .b $| (which is a metacharacter). If any traffic is received during that pause, an SMTP 554 rejection response is given instead of the 220 greeting and all SMTP commands are rejected during that connection. This helps protect sites from open proxies and SMTP slammers. The ruleset should return .b $# followed by the number of milliseconds (thousandths of a second) to pause. If the return value starts with anything else or is not a number, it is silently ignored. Note: this ruleset is not invoked (and hence the feature is disabled) when smtps (SMTP over SSL) is used, i.e., the .i s modifier is set for the daemon via .b DaemonPortOptions , because in this case the SSL handshake is performed before the greeting is sent. .sh 3 "IPC mailers" .pp Some special processing occurs if the ruleset zero resolves to an IPC mailer (that is, a mailer that has .q [IPC] listed as the Path in the .b M configuration line. The host name passed after .q $@ has MX expansion performed if not delivering via a named socket; this looks the name up in DNS to find alternate delivery sites. .pp The host name can also be provided as a dotted quad or an IPv6 address in square brackets; for example: .(b [128.32.149.78] .)b or .(b [IPv6:2002:c0a8:51d2::23f4] .)b This causes direct conversion of the numeric value to an IP host address. .pp The host name passed in after the .q $@ may also be a colon or comma separated list of hosts. Each is separately MX expanded and the results are concatenated to make (essentially) one long MX list. Hosts separated by a comma have the same MX preference, and for each colon separated host the MX preference is increased. The intent here is to create .q fake MX records that are not published in DNS for private internal networks. .pp As a final special case, the host name can be passed in as a text string in square brackets: .(b [ucbvax.berkeley.edu] .)b This form avoids the MX mapping. .b N.B.: .i This is intended only for situations where you have a network firewall or other host that will do special processing for all your mail, so that your MX record points to a gateway machine; this machine could then do direct delivery to machines within your local domain. Use of this feature directly violates RFC 1123 section 5.3.5: it should not be used lightly. .r .sh 2 "D \*- Define Macro" .pp Macros are named with a single character or with a word in {braces}. The names ``x'' and ``{x}'' denote the same macro for every single character ``x''. Single character names may be selected from the entire ASCII set, but user-defined macros should be selected from the set of upper case letters only. Lower case letters and special symbols are used internally. Long names beginning with a lower case letter or a punctuation character are reserved for use by sendmail, so user-defined long macro names should begin with an upper case letter. .pp The syntax for macro definitions is: .(b F .b D \c .i x\|val .)b where .i x is the name of the macro (which may be a single character or a word in braces) and .i val is the value it should have. There should be no spaces given that do not actually belong in the macro value. .pp Macros are interpolated using the construct .b $ \c .i x , where .i x is the name of the macro to be interpolated. This interpolation is done when the configuration file is read, except in .b M lines. The special construct .b $& \c .i x can be used in .b R lines to get deferred interpolation. .pp Conditionals can be specified using the syntax: .(b $?x text1 $| text2 $. .)b This interpolates .i text1 if the macro .b $x is set and non-null, and .i text2 otherwise. The .q else (\c .b $| ) clause may be omitted. .pp The following macros are defined and/or used internally by .i sendmail for interpolation into argv's for mailers or for other contexts. The ones marked \(dg are information passed into sendmail\**, .(f \**As of version 8.6, all of these macros have reasonable defaults. Previous versions required that they be defined. .)f the ones marked \(dd are information passed both in and out of sendmail, and the unmarked macros are passed out of sendmail but are not otherwise used internally. These macros are: .nr ii 5n .ip $a The origination date in RFC 822 format. This is extracted from the Date: line. .ip $b The current date in RFC 822 format. .ip $c The hop count. This is a count of the number of Received: lines plus the value of the .b \-h command line flag. .ip $d The current date in UNIX (ctime) format. .ip $e\(dg (Obsolete; use SmtpGreetingMessage option instead.) The SMTP entry message. This is printed out when SMTP starts up. The first word must be the .b $j macro as specified by RFC 821. Defaults to .q "$j Sendmail $v ready at $b" . Commonly redefined to include the configuration version number, e.g., .q "$j Sendmail $v/$Z ready at $b" .ip $f The envelope sender (from) address. .ip $g The sender address relative to the recipient. For example, if .b $f is .q foo , .b $g will be .q host!foo , .q foo@host.domain , or whatever is appropriate for the receiving mailer. .ip $h The recipient host. This is set in ruleset 0 from the $@ field of a parsed address. .ip $i The queue id, e.g., .q f344MXxp018717 . .ip $j\(dd The \*(lqofficial\*(rq domain name for this site. This is fully qualified if the full qualification can be found. It .i must be redefined to be the fully qualified domain name if your system is not configured so that information can find it automatically. .ip $k The UUCP node name (from the uname system call). .ip $l\(dg (Obsolete; use UnixFromLine option instead.) The format of the UNIX from line. Unless you have changed the UNIX mailbox format, you should not change the default, which is .q "From $g $d" . .ip $m The domain part of the \fIgethostname\fP return value. Under normal circumstances, .b $j is equivalent to .b $w.$m . .ip $n\(dg The name of the daemon (for error messages). Defaults to .q MAILER-DAEMON . .ip $o\(dg (Obsolete: use OperatorChars option instead.) The set of \*(lqoperators\*(rq in addresses. A list of characters which will be considered tokens and which will separate tokens when doing parsing. For example, if .q @ were in the .b $o macro, then the input .q a@b would be scanned as three tokens: .q a, .q @, and .q b. Defaults to .q ".:@[]" , which is the minimum set necessary to do RFC 822 parsing; a richer set of operators is .q ".:%@!/[]" , which adds support for UUCP, the %-hack, and X.400 addresses. .ip $p Sendmail's process id. .ip $r Protocol used to receive the message. Set from the .b \-p command line flag or by the SMTP server code. .ip $s Sender's host name. Set from the .b \-p command line flag or by the SMTP server code (in which case it is set to the EHLO/HELO parameter). .ip $t A numeric representation of the current time in the format YYYYMMDDHHmm (4 digit year 1900-9999, 2 digit month 01-12, 2 digit day 01-31, 2 digit hours 00-23, 2 digit minutes 00-59). .ip $u The recipient user. .ip $v The version number of the .i sendmail binary. .ip $w\(dd The hostname of this site. This is the root name of this host (but see below for caveats). .ip $x The full name of the sender. .ip $z The home directory of the recipient. .ip $_ The validated sender address. See also .b ${client_resolve} . .ip ${addr_type} The type of the address which is currently being rewritten. This macro contains up to three characters, the first is either `e' or `h' for envelope/header address, the second is a space, and the third is either `s' or `r' for sender/recipient address. .ip ${alg_bits} The maximum keylength (in bits) of the symmetric encryption algorithm used for a TLS connection. This may be less than the effective keylength, which is stored in .b ${cipher_bits} , for ``export controlled'' algorithms. .ip ${auth_authen} The client's authentication credentials as determined by authentication (only set if successful). The format depends on the mechanism used, it might be just `user', or `user@realm', or something similar (SMTP AUTH only). .ip ${auth_author} The authorization identity, i.e. the AUTH= parameter of the .sm "SMTP MAIL" command if supplied. .ip ${auth_type} The mechanism used for SMTP authentication (only set if successful). .ip ${auth_ssf} The keylength (in bits) of the symmetric encryption algorithm used for the security layer of a SASL mechanism. .ip ${bodytype} The message body type (7BIT or 8BITMIME), as determined from the envelope. .ip ${cert_fp} The fingerprint of the presented certificate (STARTTLS only). Note: this macro is only defined if the option .b CertFingerprintAlgorithm is set, in which case the specified fingerprint algorithm is used. The valid algorithms depend on the OpenSSL version, but usually md5, sha1, and sha256 are available. See .(b openssl dgst -h .)b for a list. .ip ${cert_issuer} The DN (distinguished name) of the CA (certificate authority) that signed the presented certificate (the cert issuer) (STARTTLS only). .ip ${cert_md5} The MD5 hash of the presented certificate (STARTTLS only). Note: this macro is only defined if the option .b CertFingerprintAlgorithm is not set. .ip ${cert_subject} The DN of the presented certificate (called the cert subject) (STARTTLS only). .ip ${cipher} The cipher suite used for the connection, e.g., EDH-DSS-DES-CBC3-SHA, EDH-RSA-DES-CBC-SHA, DES-CBC-MD5, DES-CBC3-SHA (STARTTLS only). .ip ${cipher_bits} The effective keylength (in bits) of the symmetric encryption algorithm used for a TLS connection. .ip ${client_addr} The IP address of the SMTP client. IPv6 addresses are tagged with "IPv6:" before the address. Defined in the SMTP server only. .ip ${client_connections} The number of open connections in the SMTP server for the client IP address. .ip ${client_flags} The flags specified by the Modifier= part of .b ClientPortOptions where flags are separated from each other by spaces and upper case flags are doubled. That is, Modifier=hA will be represented as "h AA" in .b ${client_flags} , which is required for testing the flags in rulesets. .ip ${client_name} The host name of the SMTP client. This may be the client's bracketed IP address in the form [ nnn.nnn.nnn.nnn ] for IPv4 and [ IPv6:nnnn:...:nnnn ] for IPv6 if the client's IP address is not resolvable, or if it is resolvable but the IP address of the resolved hostname doesn't match the original IP address. Defined in the SMTP server only. See also .b ${client_resolve} . .ip ${client_port} The port number of the SMTP client. Defined in the SMTP server only. .ip ${client_ptr} The result of the PTR lookup for the client IP address. Note: this is the same as .b ${client_name} if and only if .b ${client_resolve} is OK. Defined in the SMTP server only. .ip ${client_rate} The number of incoming connections for the client IP address over the time interval specified by ConnectionRateWindowSize. .ip ${client_resolve} Holds the result of the resolve call for .b ${client_name} . Possible values are: .(b .ta 10n OK resolved successfully FAIL permanent lookup failure FORGED forward lookup doesn't match reverse lookup TEMP temporary lookup failure .)b Defined in the SMTP server only. .i sendmail performs a hostname lookup on the IP address of the connecting client. Next the IP addresses of that hostname are looked up. If the client IP address does not appear in that list, then the hostname is maybe forged. This is reflected as the value FORGED for .b ${client_resolve} and it also shows up in .b $_ as "(may be forged)". .ip ${cn_issuer} The CN (common name) of the CA that signed the presented certificate (STARTTLS only). Note: if the CN cannot be extracted properly it will be replaced by one of these strings based on the encountered error: .(b .ta 25n BadCertificateContainsNUL CN contains a NUL character BadCertificateTooLong CN is too long BadCertificateUnknown CN could not be extracted .)b In the last case, some other (unspecific) error occurred. .ip ${cn_subject} The CN (common name) of the presented certificate (STARTTLS only). See .b ${cn_issuer} for possible replacements. .ip ${currHeader} Header value as quoted string (possibly truncated to .b MAXNAME ). This macro is only available in header check rulesets. .ip ${daemon_addr} The IP address the daemon is listening on for connections. .ip ${daemon_family} The network family if the daemon is accepting network connections. Possible values include .q inet , .q inet6 , .q iso , .q ns , .q x.25 .ip ${daemon_flags} The flags for the daemon as specified by the Modifier= part of .b DaemonPortOptions whereby the flags are separated from each other by spaces, and upper case flags are doubled. That is, Modifier=Ea will be represented as "EE a" in .b ${daemon_flags} , which is required for testing the flags in rulesets. .ip ${daemon_info} Some information about a daemon as a text string. For example, .q SMTP+queueing@00:30:00 . .ip ${daemon_name} The name of the daemon from .b DaemonPortOptions Name= suboption. If this suboption is not set, "Daemon#", where # is the daemon number, is used. .ip ${daemon_port} The port the daemon is accepting connection on. Unless .b DaemonPortOptions is set, this will most likely be .q 25 . .ip ${deliveryMode} The current delivery mode sendmail is using. It is initially set to the value of the .b DeliveryMode option. .ip ${dsn_envid} The envelope id parameter (ENVID=) passed to sendmail as part of the envelope. .ip ${dsn_notify} Value of DSN NOTIFY= parameter (never, success, failure, delay, or empty string). .ip ${dsn_ret} Value of DSN RET= parameter (hdrs, full, or empty string). .ip ${envid} The envelope id parameter (ENVID=) passed to sendmail as part of the envelope. .ip ${hdrlen} The length of the header value which is stored in ${currHeader} (before possible truncation). If this value is greater than or equal to .b MAXNAME the header has been truncated. .ip ${hdr_name} The name of the header field for which the current header check ruleset has been called. This is useful for a default header check ruleset to get the name of the header; the macro is only available in header check rulesets. .ip ${if_addr} The IP address of the interface of an incoming connection unless it is in the loopback net. IPv6 addresses are tagged with "IPv6:" before the address. .ip ${if_addr_out} The IP address of the interface of an outgoing connection unless it is in the loopback net. IPv6 addresses are tagged with "IPv6:" before the address. .ip ${if_family} The IP family of the interface of an incoming connection unless it is in the loopback net. .ip ${if_family_out} The IP family of the interface of an outgoing connection unless it is in the loopback net. .ip ${if_name} The hostname associated with the interface of an incoming connection. This macro can be used for SmtpGreetingMessage and HReceived for virtual hosting. For example: .(b O SmtpGreetingMessage=$?{if_name}${if_name}$|$j$. MTA .)b .ip ${if_name_out} The name of the interface of an outgoing connection. .ip ${load_avg} The current load average. .ip ${mail_addr} The address part of the resolved triple of the address given for the .sm "SMTP MAIL" command. Defined in the SMTP server only. .ip ${mail_host} The host from the resolved triple of the address given for the .sm "SMTP MAIL" command. Defined in the SMTP server only. .ip ${mail_mailer} The mailer from the resolved triple of the address given for the .sm "SMTP MAIL" command. Defined in the SMTP server only. .ip ${msg_id} The value of the Message-Id: header. .ip ${msg_size} The value of the SIZE= parameter, i.e., usually the size of the message (in an ESMTP dialogue), before the message has been collected, thereafter the message size as computed by .i sendmail (and can be used in check_compat). .ip ${nbadrcpts} The number of bad recipients for a single message. .ip ${nrcpts} The number of validated recipients for a single message. Note: since recipient validation happens after .i check_rcpt has been called, the value in this ruleset is one less than what might be expected. .ip ${ntries} The number of delivery attempts. .ip ${opMode} The current operation mode (from the .b \-b flag). .ip ${quarantine} The quarantine reason for the envelope, if it is quarantined. .ip ${queue_interval} The queue run interval given by the .b \-q flag. For example, .b \-q30m would set .b ${queue_interval} to .q 00:30:00 . .ip ${rcpt_addr} The address part of the resolved triple of the address given for the .sm "SMTP RCPT" command. Defined in the SMTP server only after a RCPT command. .ip ${rcpt_host} The host from the resolved triple of the address given for the .sm "SMTP RCPT" command. Defined in the SMTP server only after a RCPT command. .ip ${rcpt_mailer} The mailer from the resolved triple of the address given for the .sm "SMTP RCPT" command. Defined in the SMTP server only after a RCPT command. .ip ${server_addr} The address of the server of the current outgoing SMTP connection. For LMTP delivery the macro is set to the name of the mailer. (only if sendmail is compiled with STARTTLS or SASL.) .ip ${server_name} The name of the server of the current outgoing SMTP or LMTP connection. (only if sendmail is compiled with STARTTLS or SASL.) .ip ${time} The output of the .i time (3) function, i.e., the number of seconds since 0 hours, 0 minutes, 0 seconds, January 1, 1970, Coordinated Universal Time (UTC). .ip ${tls_version} The TLS/SSL version used for the connection, e.g., TLSv1.2, TLSv1; defined after STARTTLS has been used. .ip ${total_rate} The total number of incoming connections over the time interval specified by ConnectionRateWindowSize. .ip ${verify} The result of the verification of the presented cert; only defined after STARTTLS has been used (or attempted). Possible values are: .(b .ta 13n TRUSTED verification via DANE succeeded. DANE_FAIL verification via DANE failed. DANE_TEMP verification via DANE failed temporarily. DANE_NOTLS DANE required but STARTTLS was not available. OK verification succeeded. NO no cert presented. NOT no cert requested. FAIL cert presented but could not be verified, e.g., the signing CA is missing. NONE STARTTLS has not been performed. CLEAR STARTTLS has been disabled internally for a clear text delivery attempt. TEMP temporary error occurred. PROTOCOL some protocol error occurred at the ESMTP level (not TLS). CONFIG tls_*_features failed due to a syntax error. SOFTWARE STARTTLS handshake failed, which is a fatal error for this session, the e-mail will be queued. .)b .pp There are three types of dates that can be used. The .b $a and .b $b macros are in RFC 822 format; .b $a is the time as extracted from the .q Date: line of the message (if there was one), and .b $b is the current date and time (used for postmarks). If no .q Date: line is found in the incoming message, .b $a is set to the current time also. The .b $d macro is equivalent to the .b $b macro in UNIX (ctime) format. .pp The macros .b $w , .b $j , and .b $m are set to the identity of this host. .i Sendmail tries to find the fully qualified name of the host if at all possible; it does this by calling .i gethostname (2) to get the current hostname and then passing that to .i gethostbyname (3) which is supposed to return the canonical version of that host name.\** .(f \**For example, on some systems .i gethostname might return .q foo which would be mapped to .q foo.bar.com by .i gethostbyname . .)f Assuming this is successful, .b $j is set to the fully qualified name and .b $m is set to the domain part of the name (everything after the first dot). The .b $w macro is set to the first word (everything before the first dot) if you have a level 5 or higher configuration file; otherwise, it is set to the same value as .b $j . If the canonification is not successful, it is imperative that the config file set .b $j to the fully qualified domain name\**. .(f \**Older versions of sendmail didn't pre-define .b $j at all, so up until 8.6, config files .i always had to define .b $j . .)f .pp The .b $f macro is the id of the sender as originally determined; when mailing to a specific host the .b $g macro is set to the address of the sender .ul relative to the recipient. For example, if I send to .q bollard@matisse.CS.Berkeley.EDU from the machine .q vangogh.CS.Berkeley.EDU the .b $f macro will be .q eric and the .b $g macro will be .q eric@vangogh.CS.Berkeley.EDU. .pp The .b $x macro is set to the full name of the sender. This can be determined in several ways. It can be passed as flag to .i sendmail . It can be defined in the .sm NAME environment variable. The third choice is the value of the .q Full-Name: line in the header if it exists, and the fourth choice is the comment field of a .q From: line. If all of these fail, and if the message is being originated locally, the full name is looked up in the .i /etc/passwd file. .pp When sending, the .b $h , .b $u , and .b $z macros get set to the host, user, and home directory (if local) of the recipient. The first two are set from the .b $@ and .b $: part of the rewriting rules, respectively. .pp The .b $p and .b $t macros are used to create unique strings (e.g., for the .q Message-Id: field). The .b $i macro is set to the queue id on this host; if put into the timestamp line it can be extremely useful for tracking messages. The .b $v macro is set to be the version number of .i sendmail ; this is normally put in timestamps and has been proven extremely useful for debugging. .pp The .b $c field is set to the .q "hop count," i.e., the number of times this message has been processed. This can be determined by the .b \-h flag on the command line or by counting the timestamps in the message. .pp The .b $r and .b $s fields are set to the protocol used to communicate with .i sendmail and the sending hostname. They can be set together using the .b \-p command line flag or separately using the .b \-M or .b \-oM flags. .pp The .b $_ is set to a validated sender host name. If the sender is running an RFC 1413 compliant IDENT server and the receiver has the IDENT protocol turned on, it will include the user name on that host. .pp The .b ${client_name} , .b ${client_addr} , and .b ${client_port} macros are set to the name, address, and port number of the SMTP client who is invoking .i sendmail as a server. These can be used in the .i check_* rulesets (using the .b $& deferred evaluation form, of course!). .sh 2 "C and F \*- Define Classes" .pp Classes of phrases may be defined to match on the left hand side of rewriting rules, where a .q phrase is a sequence of characters that does not contain space characters. For example a class of all local names for this site might be created so that attempts to send to oneself can be eliminated. These can either be defined directly in the configuration file or read in from another file. Classes are named as a single letter or a word in {braces}. Class names beginning with lower case letters and special characters are reserved for system use. Classes defined in config files may be given names from the set of upper case letters for short names or beginning with an upper case letter for long names. .pp The syntax is: .(b F .b C \c .i c\|phrase1 .i phrase2... .br .b F \c .i c\|file .br .b F \c .i c\||program .br .b F \c .i c\|[mapkey]@mapclass:mapspec .)b The first form defines the class .i c to match any of the named words. If .i phrase1 or .i phrase2 is another class, e.g., .i $=S , the contents of class .i S are added to class .i c . It is permissible to split them among multiple lines; for example, the two forms: .(b CHmonet ucbmonet .)b and .(b CHmonet CHucbmonet .)b are equivalent. The ``F'' forms read the elements of the class .i c from the named .i file , .i program , or .i "map specification" . Each element should be listed on a separate line. To specify an optional file, use ``\-o'' between the class name and the file name, e.g., .(b Fc \-o /path/to/file .)b If the file can't be used, .i sendmail will not complain but silently ignore it. The map form should be an optional map key, an at sign, and a map class followed by the specification for that map. Examples include: .(b F{VirtHosts}@ldap:\-k (&(objectClass=virtHosts)(host=*)) \-v host F{MyClass}foo@hash:/etc/mail/classes .)b will fill the class .b $={VirtHosts} from an LDAP map lookup and .b $={MyClass} from a hash database map lookup of the key .b foo . There is also a built-in schema that can be accessed by only specifying: .(b F{\c .i ClassName }@LDAP .)b This will tell sendmail to use the default schema: .(b \-k (&(objectClass=sendmailMTAClass) (sendmailMTAClassName=\c .i ClassName ) (|(sendmailMTACluster=${sendmailMTACluster}) (sendmailMTAHost=$j))) \-v sendmailMTAClassValue .)b Note that the lookup is only done when sendmail is initially started. .pp Elements of classes can be accessed in rules using .b $= or .b $~ . The .b $~ (match entries not in class) only matches a single word; multi-word entries in the class are ignored in this context. .pp Some classes have internal meaning to .i sendmail : .nr ii 0.5i .\".ip $=b .\"A set of Content-Types that will not have the newline character .\"translated to CRLF before encoding into base64 MIME. .\"The class can have major times .\"(e.g., .\".q image ) .\"or full types .\"(such as .\".q application/octet-stream ). .\"The class is initialized with .\".q application/octet-stream , .\".q image , .\".q audio , .\"and .\".q video . .ip $=e contains the Content-Transfer-Encodings that can be 8\(->7 bit encoded. It is predefined to contain .q 7bit , .q 8bit , and .q binary . .ip $=k set to be the same as .b $k , that is, the UUCP node name. .ip $=m set to the set of domains by which this host is known, initially just .b $m . .ip $=n can be set to the set of MIME body types that can never be eight to seven bit encoded. It defaults to .q multipart/signed . Message types .q message/* and .q multipart/* are never encoded directly. Multipart messages are always handled recursively. The handling of message/* messages are controlled by class .b $=s . .ip $=q A set of Content-Types that will never be encoded as base64 (if they have to be encoded, they will be encoded as quoted-printable). It can have primary types (e.g., .q text ) or full types (such as .q text/plain ). .ip $=s contains the set of subtypes of message that can be treated recursively. By default it contains only .q rfc822 . Other .q message/* types cannot be 8\(->7 bit encoded. If a message containing eight bit data is sent to a seven bit host, and that message cannot be encoded into seven bits, it will be stripped to 7 bits. .ip $=t set to the set of trusted users by the .b T configuration line. If you want to read trusted users from a file, use .b Ft \c .i /file/name . .ip $=w set to be the set of all names this host is known by. This can be used to match local hostnames. .ip $={persistentMacros} set to the macros that should be saved across queue runs. Care should be taken when adding macro names to this class. .pp .i Sendmail can be compiled to allow a .i scanf (3) string on the .b F line. This lets you do simplistic parsing of text files. For example, to read all the user names in your system .i /etc/passwd file into a class, use .(b FL/etc/passwd %[^:] .)b which reads every line up to the first colon. .sh 2 "E \*- Set or Propagate Environment Variables" .pp .b E configuration lines set or propagate environment variables into children. .(b F .b E \c .i name .)b will propagate the named variable from the environment when .i sendmail was invoked into any children it calls; .(b F .b E \c .i name =\c .i value .)b sets the named variable to the indicated value. Any variables not explicitly named will not be in the child environment. .sh 2 "M \*- Define Mailer" .pp Programs and interfaces to mailers are defined in this line. The format is: .(b F .b M \c .i name , {\c .i field =\c .i value \|}* .)b where .i name is the name of the mailer (used internally only) and the .q field=name pairs define attributes of the mailer. Fields are: .(b .ta 1i Path The pathname of the mailer Flags Special flags for this mailer Sender Rewriting set(s) for sender addresses Recipient Rewriting set(s) for recipient addresses recipients Maximum number of recipients per envelope Argv An argument vector to pass to this mailer Eol The end-of-line string for this mailer Maxsize The maximum message length to this mailer maxmessages The maximum message deliveries per connection Linelimit The maximum line length in the message body Directory The working directory for the mailer Userid The default user and group id to run as Nice The nice(2) increment for the mailer Charset The default character set for 8-bit characters Type Type information for DSN diagnostics Wait The maximum time to wait for the mailer Queuegroup The default queue group for the mailer / The root directory for the mailer .)b Only the first character of the field name is checked (it's case-sensitive). .pp The following flags may be set in the mailer description. Any other flags may be used freely to conditionally assign headers to messages destined for particular mailers. Flags marked with \(dg are not interpreted by the .i sendmail binary; these are the conventionally used to correlate to the flags portion of the .b H line. Flags marked with \(dd apply to the mailers for the sender address rather than the usual recipient mailers. .nr ii 4n .ip a Run Extended SMTP (ESMTP) protocol (defined in RFCs 1869, 1652, and 1870). This flag defaults on if the SMTP greeting message includes the word .q ESMTP . .ip A Look up the user (address) part of the resolved mailer triple, in the alias database. Normally this is only set for local mailers. .ip b Force a blank line on the end of a message. This is intended to work around some stupid versions of /bin/mail that require a blank line, but do not provide it themselves. It would not normally be used on network mail. .ip B Strip leading backslashes (\e) off of the address; this is a subset of the functionality of the .b s flag. .ip c Do not include comments in addresses. This should only be used if you have to work around a remote mailer that gets confused by comments. This strips addresses of the form .q "Phrase
    " or .q "address (Comment)" down to just .q address . .ip C\(dd If mail is .i received from a mailer with this flag set, any addresses in the header that do not have an at sign (\c .q @ ) after being rewritten by ruleset three will have the .q @domain clause from the sender envelope address tacked on. This allows mail with headers of the form: .(b From: usera@hosta To: userb@hostb, userc .)b to be rewritten as: .(b From: usera@hosta To: userb@hostb, userc@hosta .)b automatically. However, it doesn't really work reliably. .ip d Do not include angle brackets around route-address syntax addresses. This is useful on mailers that are going to pass addresses to a shell that might interpret angle brackets as I/O redirection. However, it does not protect against other shell metacharacters. Therefore, passing addresses to a shell should not be considered secure. .ip D\(dg This mailer wants a .q Date: header line. .ip e This mailer is expensive to connect to, so try to avoid connecting normally; any necessary connection will occur during a queue run. See also option .b HoldExpensive . .ip E Escape lines beginning with .q From\0 in the message with a `>' sign. .ip f The mailer wants a .b \-f .i from flag, but only if this is a network forward operation (i.e., the mailer will give an error if the executing user does not have special permissions). .ip F\(dg This mailer wants a .q From: header line. .ip g Normally, .i sendmail sends internally generated email (e.g., error messages) using the null return address as required by RFC 1123. However, some mailers don't accept a null return address. If necessary, you can set the .b g flag to prevent .i sendmail from obeying the standards; error messages will be sent as from the MAILER-DAEMON (actually, the value of the .b $n macro). .ip h Upper case should be preserved in host names (the $@ portion of the mailer triplet resolved from ruleset 0) for this mailer. .ip i Do User Database rewriting on envelope sender address. .ip I This flag is deprecated and will be removed from a future version. This mailer will be speaking SMTP to another .i sendmail \*- as such it can use special protocol features. This flag should not be used except for debugging purposes because it uses .b VERB as SMTP command. .ip j Do User Database rewriting on recipients as well as senders. .ip k Normally when .i sendmail connects to a host via SMTP, it checks to make sure that this isn't accidentally the same host name as might happen if .i sendmail is misconfigured or if a long-haul network interface is set in loopback mode. This flag disables the loopback check. It should only be used under very unusual circumstances. .ip K Currently unimplemented. Reserved for chunking. .ip l This mailer is local (i.e., final delivery will be performed). .ip L Limit the line lengths as specified in RFC 821. This deprecated option should be replaced by the .b L= mail declaration. For historic reasons, the .b L flag also sets the .b 7 flag. .ip m This mailer can send to multiple users on the same host in one transaction. When a .b $u macro occurs in the .i argv part of the mailer definition, that field will be repeated as necessary for all qualifying users. Removing this flag can defeat duplicate suppression on a remote site as each recipient is sent in a separate transaction. .ip M\(dg This mailer wants a .q Message-Id: header line. .ip n Do not insert a UNIX-style .q From line on the front of the message. .ip o Always run as the owner of the recipient mailbox. Normally .i sendmail runs as the sender for locally generated mail or as .q daemon (actually, the user specified in the .b u option) when delivering network mail. The normal behavior is required by most local mailers, which will not allow the envelope sender address to be set unless the mailer is running as daemon. This flag is ignored if the .b S flag is set. .ip p Use the route-addr style reverse-path in the SMTP .sm "SMTP MAIL" command rather than just the return address; although this is required in RFC 821 section 3.1, many hosts do not process reverse-paths properly. Reverse-paths are officially discouraged by RFC 1123. .ip P\(dg This mailer wants a .q Return-Path: line. .ip q When an address that resolves to this mailer is verified (SMTP VRFY command), generate 250 responses instead of 252 responses. This will imply that the address is local. .ip r Same as .b f , but sends a .b \-r flag. .ip R Open SMTP connections from a .q secure port. Secure ports aren't (secure, that is) except on UNIX machines, so it is unclear that this adds anything. .i sendmail must be running as root to be able to use this flag. .ip s Strip quote characters (" and \e) off of the address before calling the mailer. .ip S Don't reset the userid before calling the mailer. This would be used in a secure environment where .i sendmail ran as root. This could be used to avoid forged addresses. If the .b U= field is also specified, this flag causes the effective user id to be set to that user. .ip u Upper case should be preserved in user names for this mailer. Standards require preservation of case in the local part of addresses, except for those address for which your system accepts responsibility. RFC 2142 provides a long list of addresses which should be case insensitive. If you use this flag, you may be violating RFC 2142. Note that postmaster is always treated as a case insensitive address regardless of this flag. .ip U This mailer wants UUCP-style .q From lines with the ugly .q "remote from " on the end. .ip w The user must have a valid account on this machine, i.e., .i getpwnam must succeed. If not, the mail is bounced. See also the .b MailboxDatabase option. This is required to get .q \&.forward capability. .ip W Ignore long term host status information (see Section "Persistent Host Status Information"). .ip x\(dg This mailer wants a .q Full-Name: header line. .ip X This mailer wants to use the hidden dot algorithm as specified in RFC 821; basically, any line beginning with a dot will have an extra dot prepended (to be stripped at the other end). This insures that lines in the message containing a dot will not terminate the message prematurely. .ip z Run Local Mail Transfer Protocol (LMTP) between .i sendmail and the local mailer. This is a variant on SMTP defined in RFC 2033 that is specifically designed for delivery to a local mailbox. .ip Z Apply DialDelay (if set) to this mailer. .ip 0 Don't look up MX records for hosts sent via SMTP/LMTP. Do not apply .b FallbackMXhost either. .ip 1 Strip null characters ('\\0') when sending to this mailer. .ip 2 Don't use ESMTP even if offered; this is useful for broken systems that offer ESMTP but fail on EHLO (without recovering when HELO is tried next). .ip 3 Extend the list of characters converted to =XX notation when converting to Quoted-Printable to include those that don't map cleanly between ASCII and EBCDIC. Useful if you have IBM mainframes on site. .ip 5 If no aliases are found for this address, pass the address through ruleset 5 for possible alternate resolution. This is intended to forward the mail to an alternate delivery spot. .ip 6 Strip headers to seven bits. .ip 7 Strip all output to seven bits. This is the default if the .b L flag is set. Note that clearing this option is not sufficient to get full eight bit data passed through .i sendmail . If the .b 7 option is set, this is essentially always set, since the eighth bit was stripped on input. Note that this option will only impact messages that didn't have 8\(->7 bit MIME conversions performed. .ip 8 If set, it is acceptable to send eight bit data to this mailer; the usual attempt to do 8\(->7 bit MIME conversions will be bypassed. .ip 9 If set, do .i limited 7\(->8 bit MIME conversions. These conversions are limited to text/plain data. .ip : Check addresses to see if they begin with .q :include: ; if they do, convert them to the .q *include* mailer. .ip | Check addresses to see if they begin with a `|'; if they do, convert them to the .q prog mailer. .ip / Check addresses to see if they begin with a `/'; if they do, convert them to the .q *file* mailer. .ip @ Look up addresses in the user database. .ip % Do not attempt delivery on initial receipt of a message or on queue runs unless the queued message is selected using one of the -qI/-qR/-qS queue run modifiers or an ETRN request. .ip ! Disable an MH hack that drops an explicit From: header if it is the same as what sendmail would generate. .pp Configuration files prior to level 6 assume the `A', `w', `5', `:', `|', `/', and `@' options on the mailer named .q local . .pp The mailer with the special name .q error can be used to generate a user error. The (optional) host field is an exit status to be returned, and the user field is a message to be printed. The exit status may be numeric or one of the values USAGE, NOUSER, NOHOST, UNAVAILABLE, SOFTWARE, TEMPFAIL, PROTOCOL, or CONFIG to return the corresponding EX_ exit code, or an enhanced error code as described in RFC 1893, .ul Enhanced Mail System Status Codes. For example, the entry: .(b $#error $@ NOHOST $: Host unknown in this domain .)b on the RHS of a rule will cause the specified error to be generated and the .q "Host unknown" exit status to be returned if the LHS matches. This mailer is only functional in rulesets 0, 5, or one of the check_* rulesets. The host field can also contain the special token .b quarantine which instructs sendmail to quarantine the current message. .pp The mailer with the special name .q discard causes any mail sent to it to be discarded but otherwise treated as though it were successfully delivered. This mailer cannot be used in ruleset 0, only in the various address checking rulesets. .pp The mailer named .q local .i must be defined in every configuration file. This is used to deliver local mail, and is treated specially in several ways. Additionally, three other mailers named .q prog , .q *file* , and .q *include* may be defined to tune the delivery of messages to programs, files, and :include: lists respectively. They default to: .(b Mprog, P=/bin/sh, F=lsoDq9, T=DNS/RFC822/X-Unix, A=sh \-c $u M*file*, P=[FILE], F=lsDFMPEouq9, T=DNS/RFC822/X-Unix, A=FILE $u M*include*, P=/dev/null, F=su, A=INCLUDE $u .)b .pp Builtin pathnames are [FILE] and [IPC], the former is used for delivery to files, the latter for delivery via interprocess communication. For mailers that use [IPC] as pathname the argument vector (A=) must start with TCP or FILE for delivery via a TCP or a Unix domain socket. If TCP is used, the second argument must be the name of the host to contact. Optionally a third argument can be used to specify a port, the default is smtp (port 25). If FILE is used, the second argument must be the name of the Unix domain socket. .pp If the argument vector does not contain $u then .i sendmail will speak SMTP (or LMTP if the mailer flag z is specified) to the mailer. .pp If no Eol field is defined, then the default is "\\r\\n" for SMTP mailers and "\\n" of others. .pp The Sender and Recipient rewriting sets may either be a simple ruleset id or may be two ids separated by a slash; if so, the first rewriting set is applied to envelope addresses and the second is applied to headers. Setting any value to zero disables corresponding mailer-specific rewriting. .pp The Directory is actually a colon-separated path of directories to try. For example, the definition .q D=$z:/ first tries to execute in the recipient's home directory; if that is not available, it tries to execute in the root of the filesystem. This is intended to be used only on the .q prog mailer, since some shells (such as .i csh ) refuse to execute if they cannot read the current directory. Since the queue directory is not normally readable by unprivileged users .i csh scripts as recipients can fail. .pp The Userid specifies the default user and group id to run as, overriding the .b DefaultUser option (q.v.). If the .b S mailer flag is also specified, this user and group will be set as the effective uid and gid for the process. This may be given as .i user:group to set both the user and group id; either may be an integer or a symbolic name to be looked up in the .i passwd and .i group files respectively. If only a symbolic user name is specified, the group id in the .i passwd file for that user is used as the group id. .pp The Charset field is used when converting a message to MIME; this is the character set used in the Content-Type: header. If this is not set, the .b DefaultCharSet option is used, and if that is not set, the value .q unknown-8bit is used. .b WARNING: this field applies to the sender's mailer, not the recipient's mailer. For example, if the envelope sender address lists an address on the local network and the recipient is on an external network, the character set will be set from the Charset= field for the local network mailer, not that of the external network mailer. .pp The Type= field sets the type information used in MIME error messages as defined by RFC 1894. It is actually three values separated by slashes: the MTA-type (that is, the description of how hosts are named), the address type (the description of e-mail addresses), and the diagnostic type (the description of error diagnostic codes). Each of these must be a registered value or begin with .q X\- . The default is .q dns/rfc822/smtp . .pp The m= field specifies the maximum number of messages to attempt to deliver on a single SMTP or LMTP connection. The default is infinite. .pp The r= field specifies the maximum number of recipients to attempt to deliver in a single envelope. It defaults to 100. .pp The /= field specifies a new root directory for the mailer. The path is macro expanded and then passed to the .q chroot system call. The root directory is changed before the Directory field is consulted or the uid is changed. .pp The Wait= field specifies the maximum time to wait for the mailer to return after sending all data to it. This applies to mailers that have been forked by .i sendmail . .pp The Queuegroup= field specifies the default queue group in which received mail should be queued. This can be overridden by other means as explained in section ``Queue Groups and Queue Directories''. .sh 2 "H \*- Define Header" .pp The format of the header lines that .i sendmail inserts into the message are defined by the .b H line. The syntax of this line is one of the following: .(b F .b H \c .i hname \c .b : .i htemplate .)b .(b F .b H [\c .b ? \c .i mflags \c .b ? \c .b ]\c .i hname \c .b : .i htemplate .)b .(b F .b H [\c .b ?$ \c .i {macro} \c .b ? \c .b ]\c .i hname \c .b : .i htemplate .)b Continuation lines in this spec are reflected directly into the outgoing message. The .i htemplate is macro-expanded before insertion into the message. If the .i mflags (surrounded by question marks) are specified, at least one of the specified flags must be stated in the mailer definition for this header to be automatically output. If a .i ${macro} (surrounded by question marks) is specified, the header will be automatically output if the macro is set. The macro may be set using any of the normal methods, including using the .b macro storage map in a ruleset. If one of these headers is in the input it is reflected to the output regardless of these flags or macros. Notice: If a .i ${macro} is used to set a header, then it is useful to add that macro to class .i $={persistentMacros} which consists of the macros that should be saved across queue runs. .pp Some headers have special semantics that will be described later. .pp A secondary syntax allows validation of headers as they are being read. To enable validation, use: .(b .b H \c .i Header \c .b ": $>" \c .i Ruleset .b H \c .i Header \c .b ": $>+" \c .i Ruleset .)b The indicated .i Ruleset is called for the specified .i Header , and can return .b $#error to reject or quarantine the message or .b $#discard to discard the message (as with the other .b check_ * rulesets). The ruleset receives the header field-body as argument, i.e., not the header field-name; see also ${hdr_name} and ${currHeader}. The header is treated as a structured field, that is, text in parentheses is deleted before processing, unless the second form .b $>+ is used. Note: only one ruleset can be associated with a header; .i sendmail will silently ignore multiple entries. .pp For example, the configuration lines: .(b HMessage-Id: $>CheckMessageId SCheckMessageId R< $+ @ $+ > $@ OK R$* $#error $: Illegal Message-Id header .)b would refuse any message that had a Message-Id: header of any of the following forms: .(b Message-Id: <> Message-Id: some text Message-Id: extra crud .)b A default ruleset that is called for headers which don't have a specific ruleset defined for them can be specified by: .(b .b H \c .i * \c .b ": $>" \c .i Ruleset .)b or .(b .b H \c .i * \c .b ": $>+" \c .i Ruleset .)b .sh 2 "O \*- Set Option" .pp There are a number of global options that can be set from a configuration file. Options are represented by full words; some are also representable as single characters for back compatibility. The syntax of this line is: .(b F .b O \0 .i option \c .b = \c .i value .)b This sets option .i option to be .i value . Note that there .i must be a space between the letter `O' and the name of the option. An older version is: .(b F .b O \c .i o\|value .)b where the option .i o is a single character. Depending on the option, .i value may be a string, an integer, a boolean (with legal values .q t , .q T , .q f , or .q F ; the default is TRUE), or a time interval. .pp All filenames used in options should be absolute paths, i.e., starting with '/'. Relative filenames most likely cause surprises during operation (unless otherwise noted). .pp The options supported (with the old, one character names in brackets) are: .nr ii 1i .ip "AliasFile=\fIspec, spec, ...\fP" [A] Specify possible alias file(s). Each .i spec should be in the format ``\c .i class \c .b : .i info '' where .i class \c .b : is optional and defaults to ``implicit''. Note that .i info is required for all .i class es except .q ldap . For the .q ldap class, if .i info is not specified, a default .i info value is used as follows: .(b \-k (&(objectClass=sendmailMTAAliasObject) (sendmailMTAAliasName=aliases) (|(sendmailMTACluster=${sendmailMTACluster}) (sendmailMTAHost=$j)) (sendmailMTAKey=%0)) \-v sendmailMTAAliasValue .)b Depending on how .i sendmail is compiled, valid classes are .q implicit (search through a compiled-in list of alias file types, for back compatibility), .q hash (if .sm NEWDB is specified), .q btree (if .sm NEWDB is specified), .q dbm (if .sm NDBM is specified), .q cdb (if .sm CDB is specified), .q stab (internal symbol table \*- not normally used unless you have no other database lookup), .q sequence (use a sequence of maps previously declared), .q ldap (if .sm LDAPMAP is specified), or .q nis (if .sm NIS is specified). If a list of .i spec s are provided, .i sendmail searches them in order. .ip AliasWait=\fItimeout\fP [a] If set, wait up to .i timeout (units default to minutes) for an .q @:@ entry to exist in the alias database before starting up. If it does not appear in the .i timeout interval issue a warning. .ip AllowBogusHELO If set, allow HELO SMTP commands that don't include a host name. Setting this violates RFC 1123 section 5.2.5, but is necessary to interoperate with several SMTP clients. If there is a value, it is still checked for legitimacy. .ip AuthMaxBits=\fIN\fP Limit the maximum encryption strength for the security layer in SMTP AUTH (SASL). Default is essentially unlimited. This allows to turn off additional encryption in SASL if STARTTLS is already encrypting the communication, because the existing encryption strength is taken into account when choosing an algorithm for the security layer. For example, if STARTTLS is used and the symmetric cipher is 3DES, then the keylength (in bits) is 168. Hence setting .b AuthMaxBits to 168 will disable any encryption in SASL. .ip AuthMechanisms List of authentication mechanisms for AUTH (separated by spaces). The advertised list of authentication mechanisms will be the intersection of this list and the list of available mechanisms as determined by the Cyrus SASL library. If STARTTLS is active, EXTERNAL will be added to this list. In that case, the value of {cert_subject} is used as authentication id. .ip AuthOptions List of options for SMTP AUTH consisting of single characters with intervening white space or commas. .(b .ta 4n A Use the AUTH= parameter for the MAIL command only when authentication succeeded. This can be used as a workaround for broken MTAs that do not implement RFC 2554 correctly. a protection from active (non-dictionary) attacks during authentication exchange. c require mechanisms which pass client credentials, and allow mechanisms which can pass credentials to do so. d don't permit mechanisms susceptible to passive dictionary attack. f require forward secrecy between sessions (breaking one won't help break next). m require mechanisms which provide mutual authentication (only available if using Cyrus SASL v2 or later). p don't permit mechanisms susceptible to simple passive attack (e.g., PLAIN, LOGIN), unless a security layer is active. y don't permit mechanisms that allow anonymous login. .)b The first option applies to sendmail as a client, the others to a server. Example: .(b O AuthOptions=p,y .)b would disallow ANONYMOUS as AUTH mechanism and would allow PLAIN and LOGIN only if a security layer (e.g., provided by STARTTLS) is already active. The options 'a', 'c', 'd', 'f', 'p', and 'y' refer to properties of the selected SASL mechanisms. Explanations of these properties can be found in the Cyrus SASL documentation. .ip AuthRealm The authentication realm that is passed to the Cyrus SASL library. If no realm is specified, .b $j is used. See also KNOWNBUGS. .ip BadRcptThrottle=\fIN\fP If set and the specified number of recipients in a single SMTP transaction have been rejected, sleep for one second after each subsequent RCPT command in that transaction. .ip BlankSub=\fIc\fP [B] Set the blank substitution character to .i c . Unquoted spaces in addresses are replaced by this character. Defaults to space (i.e., no change is made). .ip CACertPath Path to directory with certificates of CAs. This directory directory must contain the hashes of each CA certificate as filenames (or as links to them). .ip CACertFile File containing one or more CA certificates; see section about STARTTLS for more information. .ip CertFingerprintAlgorithm Specify the fingerprint algorithm (digest) to use for the presented cert. If the option is not set, md5 is used and the macro .b ${cert_md5} contains the cert fingerprint. If the option is explicitly set, the specified algorithm (e.g., sha1) is used and the macro .b ${cert_fp} contains the cert fingerprint. .ip CipherList Specify cipher list for STARTTLS (does not apply to TLSv1.3). See .i ciphers (1) for possible values. .ip CheckAliases [n] Validate the RHS of aliases when rebuilding the alias database. .ip CheckpointInterval=\fIN\fP [C] Checkpoints the queue every .i N (default 10) addresses sent. If your system crashes during delivery to a large list, this prevents retransmission to any but the last .i N recipients. .ip ClassFactor=\fIfact\fP [z] The indicated .i fact or is multiplied by the message class (determined by the Precedence: field in the user header and the .b P lines in the configuration file) and subtracted from the priority. Thus, messages with a higher Priority: will be favored. Defaults to 1800. .ip ClientCertFile File containing the certificate of the client, i.e., this certificate is used when .i sendmail acts as client (for STARTTLS). .ip ClientKeyFile File containing the private key belonging to the client certificate (for STARTTLS if .i sendmail runs as client). .ip ClientPortOptions=\fIoptions\fP Set client SMTP options. The options are .i key=value pairs separated by commas. Known keys are: .(b .ta 1i Port Name/number of source port for connection (defaults to any free port) Addr Address mask (defaults INADDR_ANY) Family Address family (defaults to INET) SndBufSize Size of TCP send buffer RcvBufSize Size of TCP receive buffer Modifier Options (flags) for the client .)b The .i Addr ess mask may be a numeric address in IPv4 dot notation or IPv6 colon notation or a network name. Note that if a network name is specified, only the first IP address returned for it will be used. This may cause indeterminate behavior for network names that resolve to multiple addresses. Therefore, use of an address is recommended. .i Modifier can be the following character: .(b .ta 1i h use name of interface for HELO command A don't use AUTH when sending e-mail S don't use STARTTLS when sending e-mail .)b If ``h'' is set, the name corresponding to the outgoing interface address (whether chosen via the Connection parameter or the default) is used for the HELO/EHLO command. However, the name must not start with a square bracket and it must contain at least one dot. This is a simple test whether the name is not an IP address (in square brackets) but a qualified hostname. Note that multiple ClientPortOptions settings are allowed in order to give settings for each protocol family (e.g., one for Family=inet and one for Family=inet6). A restriction placed on one family only affects outgoing connections on that particular family. .ip ClientSSLOptions A space or comma separated list of SSL related options for the client side. See .i SSL_CTX_set_options (3) for a list; the available values depend on the OpenSSL version against which .i sendmail is compiled. By default, .i SSL_OP_ALL .i SSL_OP_NO_SSLv2 .i SSL_OP_NO_TICKET .i -SSL_OP_TLSEXT_PADDING are used (if those options are available). Options can be cleared by preceding them with a minus sign. It is also possible to specify numerical values, e.g., .b -0x0010 . .ip ColonOkInAddr If set, colons are acceptable in e-mail addresses (e.g., .q host:user ). If not set, colons indicate the beginning of a RFC 822 group construct (\c .q "groupname: member1, member2, ... memberN;" ). Doubled colons are always acceptable (\c .q nodename::user ) and proper route-addr nesting is understood (\c .q <@relay:user@host> ). Furthermore, this option defaults on if the configuration version level is less than 6 (for back compatibility). However, it must be off for full compatibility with RFC 822. .ip ConnectionCacheSize=\fIN\fP [k] The maximum number of open connections that will be cached at a time. The default is one. This delays closing the current connection until either this invocation of .i sendmail needs to connect to another host or it terminates. Setting it to zero defaults to the old behavior, that is, connections are closed immediately. Since this consumes file descriptors, the connection cache should be kept small: 4 is probably a practical maximum. .ip ConnectionCacheTimeout=\fItimeout\fP [K] The maximum amount of time a cached connection will be permitted to idle without activity. If this time is exceeded, the connection is immediately closed. This value should be small (on the order of ten minutes). Before .i sendmail uses a cached connection, it always sends a RSET command to check the connection; if this fails, it reopens the connection. This keeps your end from failing if the other end times out. The point of this option is to be a good network neighbor and avoid using up excessive resources on the other end. The default is five minutes. .ip ConnectOnlyTo=\fIaddress\fP This can be used to override the connection address (for testing purposes). .ip ConnectionRateThrottle=\fIN\fP If set to a positive value, allow no more than .i N incoming connections in a one second period per daemon. This is intended to flatten out peaks and allow the load average checking to cut in. Defaults to zero (no limits). .ip ConnectionRateWindowSize=\fIN\fP Define the length of the interval for which the number of incoming connections is maintained. The default is 60 seconds. .ip ControlSocketName=\fIname\fP Name of the control socket for daemon management. A running .i sendmail daemon can be controlled through this named socket. Available commands are: .i help, .i mstat, .i restart, .i shutdown, and .i status. The .i status command returns the current number of daemon children, the maximum number of daemon children, the free disk space (in blocks) of the queue directory, and the load average of the machine expressed as an integer. If not set, no control socket will be available. Solaris and pre-4.4BSD kernel users should see the note in sendmail/README . .ip CRLFile=\fIname\fP Name of file that contains certificate revocation status, useful for X.509v3 authentication. Note: if a CRLFile is specified but the file is unusable, STARTTLS is disabled. .ip CRLPath=\fIname\fP Name of directory that contains hashes pointing to certificate revocation status files. Symbolic links can be generated with the following two (Bourne) shell commands: .(b C=FileName_of_CRL ln -s $C `openssl crl -noout -hash < $C`.r0 .)b .ip DHParameters This option applies to the server side only. Possible values are: .(b .ta 2i 5 use precomputed 512 bit prime. 1 generate 1024 bit prime 2 generate 2048 bit prime. i use included precomputed 2048 bit prime (default). none do not use Diffie-Hellman. /path/to/file load prime from file. .)b This is only required if a ciphersuite containing DSA/DH is used. The default is ``i'' which selects a precomputed, fixed 2048 bit prime. If ``5'' is selected, then precomputed, fixed primes are used. Note: this option should not be used (unless necessary for compatibility with old implementations). If ``1'' or ``2'' is selected, then prime values are computed during startup. Note: this operation can take a significant amount of time on a slow machine (several seconds), but it is only done once at startup. If ``none'' is selected, then TLS ciphersuites containing DSA/DH cannot be used. If a file name is specified (which must be an absolute path), then the primes are read from it. It is recommended to generate such a file using a command like this: .(b openssl dhparam -out /etc/mail/dhparams.pem 2048 .)b If the file is not readable or contains unusable data, the default ``i'' is used instead. .ip DaemonPortOptions=\fIoptions\fP [O] Set server SMTP options. Each instance of .b DaemonPortOptions leads to an additional incoming socket. The options are .i key=value pairs. Known keys are: .(b .ta 1i Name User-definable name for the daemon (defaults to "Daemon#") Port Name/number of listening port (defaults to "smtp") Addr Address mask (defaults INADDR_ANY) Family Address family (defaults to INET) InputMailFilters List of input mail filters for the daemon Listen Size of listen queue (defaults to 10) Modifier Options (flags) for the daemon SndBufSize Size of TCP send buffer RcvBufSize Size of TCP receive buffer children maximum number of children per daemon, see \fBMaxDaemonChildren\fP. DeliveryMode Delivery mode per daemon, see \fBDeliveryMode\fP. refuseLA RefuseLA per daemon delayLA DelayLA per daemon queueLA QueueLA per daemon .)b The .i Name key is used for error messages and logging. The .i Addr ess mask may be a numeric address in IPv4 dot notation or IPv6 colon notation, or a network name, or a path to a local socket. Note that if a network name is specified, only the first IP address returned for it will be used. This may cause indeterminate behavior for network names that resolve to multiple addresses. Therefore, use of an address is recommended. The .i Family key defaults to INET (IPv4). IPv6 users who wish to also accept IPv6 connections should add additional Family=inet6 .b DaemonPortOptions lines. For a local socket, use Family=local or Family=unix. The .i InputMailFilters key overrides the default list of input mail filters listed in the .b InputMailFilters option. If multiple input mail filters are required, they must be separated by semicolons (not commas). .i Modifier can be a sequence (without any delimiters) of the following characters: .(b .ta 1i a always require AUTH b bind to interface through which mail has been received c perform hostname canonification (.cf) f require fully qualified hostname (.cf) s Run smtps (SMTP over SSL) instead of smtp u allow unqualified addresses (.cf) A disable AUTH (overrides 'a' modifier) C don't perform hostname canonification E disallow ETRN (see RFC 2476) O optional; if opening the socket fails ignore it S don't offer STARTTLS .)b That is, one way to specify a message submission agent (MSA) that always requires AUTH is: .(b O DaemonPortOptions=Name=MSA, Port=587, M=Ea .)b The modifiers that are marked with "(.cf)" have only effect in the standard configuration file, in which they are available via .b ${daemon_flags} . Notice: Do .b not use the ``a'' modifier on a public accessible MTA! It should only be used for a MSA that is accessed by authorized users for initial mail submission. Users must authenticate to use a MSA which has this option turned on. The flags ``c'' and ``C'' can change the default for hostname canonification in the .i sendmail.cf file. See the relevant documentation for .sm FEATURE(nocanonify) . The modifier ``f'' disallows addresses of the form .b user@host unless they are submitted directly. The flag ``u'' allows unqualified sender addresses, i.e., those without @host. ``b'' forces sendmail to bind to the interface through which the e-mail has been received for the outgoing connection. .b WARNING: Use ``b'' only if outgoing mail can be routed through the incoming connection's interface to its destination. No attempt is made to catch problems due to a misconfiguration of this parameter, use it only for virtual hosting where each virtual interface can connect to every possible location. This will also override possible settings via .b ClientPortOptions. Note, .i sendmail will listen on a new socket for each occurrence of the .b DaemonPortOptions option in a configuration file. The modifier ``O'' causes sendmail to ignore a socket if it can't be opened. This applies to failures from the socket(2) and bind(2) calls. .ip DefaultAuthInfo Filename that contains default authentication information for outgoing connections. This file must contain the user id, the authorization id, the password (plain text), the realm and the list of mechanisms to use on separate lines and must be readable by root (or the trusted user) only. If no realm is specified, .b $j is used. If no mechanisms are specified, the list given by .b AuthMechanisms is used. Notice: this option is deprecated and will be removed in future versions. Moreover, it doesn't work for the MSP since it can't read the file (the file must not be group/world-readable otherwise .i sendmail will complain). Use the authinfo ruleset instead which provides more control over the usage of the data anyway. .ip DefaultCharSet=\fIcharset\fP When a message that has 8-bit characters but is not in MIME format is converted to MIME (see the EightBitMode option) a character set must be included in the Content-Type: header. This character set is normally set from the Charset= field of the mailer descriptor. If that is not set, the value of this option is used. If this option is not set, the value .q unknown-8bit is used. .ip DataFileBufferSize=\fIthreshold\fP Set the .i threshold , in bytes, before a memory-based queue data file becomes disk-based. The default is 4096 bytes. .ip DeadLetterDrop=\fIfile\fP Defines the location of the system-wide dead.letter file, formerly hardcoded to /usr/tmp/dead.letter. If this option is not set (the default), sendmail will not attempt to save to a system-wide dead.letter file in the event it cannot bounce the mail to the user or postmaster. Instead, it will rename the qf file as it has in the past when the dead.letter file could not be opened. .ip DefaultUser=\fIuser:group\fP [u] Set the default userid for mailers to .i user:group . If .i group is omitted and .i user is a user name (as opposed to a numeric user id) the default group listed in the /etc/passwd file for that user is used as the default group. Both .i user and .i group may be numeric. Mailers without the .i S flag in the mailer definition will run as this user. Defaults to 1:1. The value can also be given as a symbolic user name.\** .(f \**The old .b g option has been combined into the .b DefaultUser option. .)f .ip DelayLA=\fILA\fP When the system load average exceeds .i LA , .i sendmail will sleep for one second on most SMTP commands and before accepting connections. .ip DeliverByMin=\fItime\fP Set minimum time for Deliver By SMTP Service Extension (RFC 2852). If 0, no time is listed, if less than 0, the extension is not offered, if greater than 0, it is listed as minimum time for the EHLO keyword DELIVERBY. .ip DeliveryMode=\fIx\fP [d] Deliver in mode .i x . Legal modes are: .(b .ta 4n i Deliver interactively (synchronously) b Deliver in background (asynchronously) q Just queue the message (deliver during queue run) d Defer delivery and all map lookups (deliver during queue run) .)b Defaults to ``b'' if no option is specified, ``i'' if it is specified but given no argument (i.e., ``Od'' is equivalent to ``Odi''). The .b \-v command line flag sets this to .b i . Note: for internal reasons, ``i'' does not work if a milter is enabled which can reject or delete recipients. In that case the mode will be changed to ``b''. .ip DialDelay=\fIsleeptime\fP Dial-on-demand network connections can see timeouts if a connection is opened before the call is set up. If this is set to an interval and a connection times out on the first connection being attempted .i sendmail will sleep for this amount of time and try again. This should give your system time to establish the connection to your service provider. Units default to seconds, so .q DialDelay=5 uses a five second delay. Defaults to zero (no retry). This delay only applies to mailers which have the Z flag set. .ip DirectSubmissionModifiers=\fImodifiers\fP Defines .b ${daemon_flags} for direct (command line) submissions. If not set, .b ${daemon_flags} is either "CC f" if the option .b \-G is used or "c u" otherwise. Note that only the "CC", "c", "f", and "u" flags are checked. .ip DontBlameSendmail=\fIoption,option,...\fP In order to avoid possible cracking attempts caused by world- and group-writable files and directories, .i sendmail does paranoid checking when opening most of its support files. If for some reason you absolutely must run with, for example, a group-writable .i /etc directory, then you will have to turn off this checking (at the cost of making your system more vulnerable to attack). The possible arguments have been described earlier. The details of these flags are described above. .\"XXX should have more here!!! XXX .b "Use of this option is not recommended." .ip DontExpandCnames The standards say that all host addresses used in a mail message must be fully canonical. For example, if your host is named .q Cruft.Foo.ORG and also has an alias of .q FTP.Foo.ORG , the former name must be used at all times. This is enforced during host name canonification ($[ ... $] lookups). If this option is set, the protocols are ignored and the .q wrong thing is done. However, the IETF is moving toward changing this standard, so the behavior may become acceptable. Please note that hosts downstream may still rewrite the address to be the true canonical name however. .ip DontInitGroups If set, .i sendmail will avoid using the initgroups(3) call. If you are running NIS, this causes a sequential scan of the groups.byname map, which can cause your NIS server to be badly overloaded in a large domain. The cost of this is that the only group found for users will be their primary group (the one in the password file), which will make file access permissions somewhat more restrictive. Has no effect on systems that don't have group lists. .ip DontProbeInterfaces .i Sendmail normally finds the names of all interfaces active on your machine when it starts up and adds their name to the .b $=w class of known host aliases. If you have a large number of virtual interfaces or if your DNS inverse lookups are slow this can be time consuming. This option turns off that probing. However, you will need to be certain to include all variant names in the .b $=w class by some other mechanism. If set to .b loopback , loopback interfaces (e.g., lo0) will not be probed. .ip DontPruneRoutes [R] Normally, .i sendmail tries to eliminate any unnecessary explicit routes when sending an error message (as discussed in RFC 1123 \(sc 5.2.6). For example, when sending an error message to .(b <@known1,@known2,@known3:user@unknown> .)b .i sendmail will strip off the .q @known1,@known2 in order to make the route as direct as possible. However, if the .b R option is set, this will be disabled, and the mail will be sent to the first address in the route, even if later addresses are known. This may be useful if you are caught behind a firewall. .ip DoubleBounceAddress=\fIerror-address\fP If an error occurs when sending an error message, send the error report (termed a .q "double bounce" because it is an error .q bounce that occurs when trying to send another error .q bounce ) to the indicated address. The address is macro expanded at the time of delivery. If not set, defaults to .q postmaster . If set to an empty string, double bounces are dropped. .ip EightBitMode=\fIaction\fP [8] Set handling of eight-bit data. There are two kinds of eight-bit data: that declared as such using the .b BODY=8BITMIME ESMTP declaration or the .b \-B8BITMIME command line flag, and undeclared 8-bit data, that is, input that just happens to be eight bits. There are three basic operations that can happen: undeclared 8-bit data can be automatically converted to 8BITMIME, undeclared 8-bit data can be passed as-is without conversion to MIME (``just send 8''), and declared 8-bit data can be converted to 7-bits for transmission to a non-8BITMIME mailer. The possible .i action s are: .(b .\" r Reject undeclared 8-bit data; .\" don't convert 8BITMIME\(->7BIT (``reject'') s Reject undeclared 8-bit data (``strict'') .\" do convert 8BITMIME\(->7BIT (``strict'') .\" c Convert undeclared 8-bit data to MIME; .\" don't convert 8BITMIME\(->7BIT (``convert'') m Convert undeclared 8-bit data to MIME (``mime'') .\" do convert 8BITMIME\(->7BIT (``mime'') .\" j Pass undeclared 8-bit data; .\" don't convert 8BITMIME\(->7BIT (``just send 8'') p Pass undeclared 8-bit data (``pass'') .\" do convert 8BITMIME\(->7BIT (``pass'') .\" a Adaptive algorithm: see below .)b .\"The adaptive algorithm is to accept 8-bit data, .\"converting it to 8BITMIME only if the receiver understands that, .\"otherwise just passing it as undeclared 8-bit data; .\"8BITMIME\(->7BIT conversions are done. In all cases properly declared 8BITMIME data will be converted to 7BIT as needed. .p Note: if an automatic conversion is performed, a header with the following format will be added: .(b X-MIME-Autoconverted: from OLD to NEW by $j id $i .)b where .\" format? OLD and NEW describe the original format and the converted format, respectively. .ip ErrorHeader=\fIfile-or-message\fP [E] Prepend error messages with the indicated message. If it begins with a slash, it is assumed to be the pathname of a file containing a message (this is the recommended setting). Otherwise, it is a literal message. The error file might contain the name, email address, and/or phone number of a local postmaster who could provide assistance to end users. If the option is missing or null, or if it names a file which does not exist or which is not readable, no message is printed. .ip ErrorMode=\fIx\fP [e] Dispose of errors using mode .i x . The values for .i x are: .(b p Print error messages (default) q No messages, just give exit status m Mail back errors w Write back errors (mail if user not logged in) e Mail back errors (when applicable) and give zero exit stat always .)b Note that the last mode, .q e , is for Berknet error processing and should not be used in normal circumstances. Note, too, that mode .q q , only applies to errors recognized before sendmail forks for background delivery. .ip FallbackMXhost=\fIfallbackhost\fP [V] If specified, the .i fallbackhost acts like a very low priority MX on a host. MX records will be looked up for this host, unless the name is surrounded by square brackets. This is intended to be used by sites with poor network connectivity. Messages which are undeliverable due to temporary address failures (e.g., DNS failure) also go to the FallbackMXhost. .ip FallBackSmartHost=\fIhostname\fP If specified, the .i FallBackSmartHost will be used in a last-ditch effort for a host. This is intended to be used by sites with "fake internal DNS", e.g., a company whose DNS accurately reflects the world inside that company's domain but not outside. .ip FastSplit If set to a value greater than zero (the default is one), it suppresses the MX lookups on addresses when they are initially sorted, i.e., for the first delivery attempt. This usually results in faster envelope splitting unless the MX records are readily available in a local DNS cache. To enforce initial sorting based on MX records set .b FastSplit to zero. If the mail is submitted directly from the command line, then the value also limits the number of processes to deliver the envelopes; if more envelopes are created they are only queued up and must be taken care of by a queue run. Since the default submission method is via SMTP (either from a MUA or via the MSP), the value of .b FastSplit is seldom used to limit the number of processes to deliver the envelopes. .ip ForkEachJob [Y] If set, deliver each job that is run from the queue in a separate process. .ip ForwardPath=\fIpath\fP [J] Set the path for searching for users' .forward files. The default is .q $z/.forward . Some sites that use the automounter may prefer to change this to .q /var/forward/$u to search a file with the same name as the user in a system directory. It can also be set to a sequence of paths separated by colons; .i sendmail stops at the first file it can successfully and safely open. For example, .q /var/forward/$u:$z/.forward will search first in /var/forward/\c .i username and then in .i ~username /.forward (but only if the first file does not exist). .ip HeloName=\fIname\fP Set the name to be used for HELO/EHLO (instead of $j). .ip HelpFile=\fIfile\fP [H] Specify the help file for SMTP. If no file name is specified, "helpfile" is used. If the help file does not exist (cannot be opened for reading) .i sendmail will print a note including its version in response to a .b HELP command. To avoid providing this information to a client specify an empty file. .ip HoldExpensive [c] If an outgoing mailer is marked as being expensive, don't connect immediately. .ip HostsFile=\fIpath\fP The path to the hosts database, normally .q /etc/hosts . This option is only consulted when sendmail is canonifying addresses, and then only when .q files is in the .q hosts service switch entry. In particular, this file is .i never used when looking up host addresses; that is under the control of the system .i gethostbyname (3) routine. .ip HostStatusDirectory=\fIpath\fP The location of the long term host status information. When set, information about the status of hosts (e.g., host down or not accepting connections) will be shared between all .i sendmail processes; normally, this information is only held within a single queue run. This option requires a connection cache of at least 1 to function. If the option begins with a leading `/', it is an absolute pathname; otherwise, it is relative to the mail queue directory. A suggested value for sites desiring persistent host status is .q \&.hoststat (i.e., a subdirectory of the queue directory). .ip IgnoreDots [i] Do not treat leading dots in incoming messages in a special way, e.g., as end of a message if it is the only character in a line. This is always disabled when reading SMTP mail. .ip InputMailFilters=\fIname,name,...\fP A comma separated list of filters which determines which filters (see the "X \*- Mail Filter (Milter) Definitions" section) and the invocation sequence are contacted for incoming SMTP messages. If none are set, no filters will be contacted. .ip LDAPDefaultSpec=\fIspec\fP Sets a default map specification for LDAP maps. The value should only contain LDAP specific settings such as .q "-h host -p port -d bindDN" . The settings will be used for all LDAP maps unless the individual map specification overrides a setting. This option should be set before any LDAP maps are defined. .ip LogLevel=\fIn\fP [L] Set the log level to .i n . Defaults to 9. .ip M\fIx\|value\fP [no long version] Set the macro .i x to .i value . This is intended only for use from the command line. The .b \-M flag is preferred. .ip MailboxDatabase Type of lookup to find information about local mailboxes, defaults to ``pw'' which uses .i getpwnam . Other types can be introduced by adding them to the source code, see libsm/mbdb.c for details. .ip UseMSP Use as mail submission program, i.e., allow group writable queue files if the group is the same as that of a set-group-ID sendmail binary. See the file .b sendmail/SECURITY in the distribution tarball. .ip MatchGECOS [G] Allow fuzzy matching on the GECOS field. If this flag is set, and the usual user name lookups fail (that is, there is no alias with this name and a .i getpwnam fails), sequentially search the password file for a matching entry in the GECOS field. This also requires that MATCHGECOS be turned on during compilation. This option is not recommended. .ip MaxAliasRecursion=\fIN\fP The maximum depth of alias recursion (default: 10). .ip MaxDaemonChildren=\fIN\fP If set, .i sendmail will refuse connections when it has more than .i N children processing incoming mail or automatic queue runs. This does not limit the number of outgoing connections. If the default .b DeliveryMode (background) is used, then .i sendmail may create an almost unlimited number of children (depending on the number of transactions and the relative execution times of mail receiption and mail delivery). If the limit should be enforced, then a .b DeliveryMode other than background must be used. If not set, there is no limit to the number of children -- that is, the system load average controls this. .ip MaxHeadersLength=\fIN\fP If set to a value greater than zero it specifies the maximum length of the sum of all headers. This can be used to prevent a denial of service attack. The default is 32K. .ip MaxHopCount=\fIN\fP [h] The maximum hop count. Messages that have been processed more than .i N times are assumed to be in a loop and are rejected. Defaults to 25. .ip MaxMessageSize=\fIN\fP Specify the maximum message size to be advertised in the ESMTP EHLO response. Messages larger than this will be rejected. If set to a value greater than zero, that value will be listed in the SIZE response, otherwise SIZE is advertised in the ESMTP EHLO response without a parameter. .ip MaxMimeHeaderLength=\fIN[/M]\fP Sets the maximum length of certain MIME header field values to .i N characters. These MIME header fields are determined by being a member of class {checkMIMETextHeaders}, which currently contains only the header Content-Description. For some of these headers which take parameters, the maximum length of each parameter is set to .i M if specified. If .i /M is not specified, one half of .i N will be used. By default, these values are 2048 and 1024, respectively. To allow any length, a value of 0 can be specified. .ip MaxNOOPCommands=\fIN\fP Override the default of .b MAXNOOPCOMMANDS for the number of .i useless commands, see Section "Measures against Denial of Service Attacks". .ip MaxQueueChildren=\fIN\fP When set, this limits the number of concurrent queue runner processes to .i N. This helps to control the amount of system resources used when processing the queue. When there are multiple queue groups defined and the total number of queue runners for these queue groups would exceed .i MaxQueueChildren then the queue groups will not all run concurrently. That is, some portion of the queue groups will run concurrently such that .i MaxQueueChildren will not be exceeded, while the remaining queue groups will be run later (in round robin order). See also .i MaxRunnersPerQueue and the section \fBQueue Group Declaration\fP. Notice: .i sendmail does not count individual queue runners, but only sets of processes that act on a workgroup. Hence the actual number of queue runners may be lower than the limit imposed by .i MaxQueueChildren . This discrepancy can be large if some queue runners have to wait for a slow server and if short intervals are used. .ip MaxQueueRunSize=\fIN\fP The maximum number of jobs that will be processed in a single queue run. If not set, there is no limit on the size. If you have very large queues or a very short queue run interval this could be unstable. However, since the first .i N jobs in queue directory order are run (rather than the .i N highest priority jobs) this should be set as high as possible to avoid .q losing jobs that happen to fall late in the queue directory. Note: this option also restricts the number of entries printed by .i mailq . That is, if .i MaxQueueRunSize is set to a value .b N larger than zero, then only .b N entries are printed per queue group. .ip MaxRecipientsPerMessage=\fIN\fP The maximum number of recipients that will be accepted per message in an SMTP transaction. Note: setting this too low can interfere with sending mail from MUAs that use SMTP for initial submission. If not set, there is no limit on the number of recipients per envelope. .ip MaxRunnersPerQueue=\fIN\fP This sets the default maximum number of queue runners for queue groups. Up to .i N queue runners will work in parallel on a queue group's messages. This is useful where the processing of a message in the queue might delay the processing of subsequent messages. Such a delay may be the result of non-erroneous situations such as a low bandwidth connection. May be overridden on a per queue group basis by setting the .i Runners option; see the section \fBQueue Group Declaration\fP. The default is 1 when not set. .ip MeToo [m] Send to me too, even if I am in an alias expansion. This option is deprecated and will be removed from a future version. .ip Milter This option has several sub(sub)options. The names of the suboptions are separated by dots. At the first level the following options are available: .(b .ta \w'LogLevel'u+3n LogLevel Log level for input mail filter actions, defaults to LogLevel. macros Specifies list of macro to transmit to filters. See list below. .)b The ``macros'' option has the following suboptions which specify the list of macro to transmit to milters after a certain event occurred. .(b .ta \w'envfrom'u+3n connect After session connection start helo After EHLO/HELO command envfrom After MAIL command envrcpt After RCPT command data After DATA command. eoh After DATA command and header eom After DATA command and terminating ``.'' .)b By default the lists of macros are empty. Example: .(b O Milter.LogLevel=12 O Milter.macros.connect=j, _, {daemon_name} .)b .ip MinFreeBlocks=\fIN\fP [b] Insist on at least .i N blocks free on the filesystem that holds the queue files before accepting email via SMTP. If there is insufficient space .i sendmail gives a 452 response to the MAIL command. This invites the sender to try again later. .ip MaxQueueAge=\fIage\fP If this is set to a value greater than zero, entries in the queue will be retried during a queue run only if the individual retry time has been reached which is doubled for each attempt. The maximum retry time is limited by the specified value. .ip MinQueueAge=\fIage\fP Don't process any queued jobs that have been in the queue less than the indicated time interval. This is intended to allow you to get responsiveness by processing the queue fairly frequently without thrashing your system by trying jobs too often. The default units are minutes. Note: This option is ignored for queue runs that select a subset of the queue, i.e., .q \-q[!][I|R|S|Q][string] .ip MustQuoteChars=\fIs\fP Sets the list of characters that must be quoted if used in a full name that is in the phrase part of a ``phrase
    '' syntax. The default is ``\'.''. The characters ``@,;:\e()[]'' are always added to this list. Note: To avoid potential breakage of DKIM signatures it is useful to set .(b O MustQuoteChars=. .)b Moreover, relaxed header signing should be used for DKIM signatures. .ip NiceQueueRun The priority of queue runners (nice(3)). This value must be greater or equal zero. .ip NoRecipientAction The action to take when you receive a message that has no valid recipient headers (To:, Cc:, Bcc:, or Apparently-To: \(em the last included for back compatibility with old .i sendmail s). It can be .b None to pass the message on unmodified, which violates the protocol, .b Add-To to add a To: header with any recipients it can find in the envelope (which might expose Bcc: recipients), .b Add-Apparently-To to add an Apparently-To: header (this is only for back-compatibility and is officially deprecated), .b Add-To-Undisclosed to add a header .q "To: undisclosed-recipients:;" to make the header legal without disclosing anything, or .b Add-Bcc to add an empty Bcc: header. .ip OldStyleHeaders [o] Assume that the headers may be in old format, i.e., spaces delimit names. This actually turns on an adaptive algorithm: if any recipient address contains a comma, parenthesis, or angle bracket, it will be assumed that commas already exist. If this flag is not on, only commas delimit names. Headers are always output with commas between the names. Defaults to off. .ip OperatorChars=\fIcharlist\fP [$o macro] The list of characters that are considered to be .q operators , that is, characters that delimit tokens. All operator characters are tokens by themselves; sequences of non-operator characters are also tokens. White space characters separate tokens but are not tokens themselves \(em for example, .q AAA.BBB has three tokens, but .q "AAA BBB" has two. If not set, OperatorChars defaults to .q \&.\|:\|@\|[\|] ; additionally, the characters .q (\|)\|<\|>\|,\|; are always operators. Note that OperatorChars must be set in the configuration file before any rulesets. .ip PidFile=\fIfilename\fP Filename of the pid file. (default is _PATH_SENDMAILPID). The .i filename is macro-expanded before it is opened, and unlinked when .i sendmail exits. .ip PostmasterCopy=\fIpostmaster\fP [P] If set, copies of error messages will be sent to the named .i postmaster . Only the header of the failed message is sent. Errors resulting from messages with a negative precedence will not be sent. Since most errors are user problems, this is probably not a good idea on large sites, and arguably contains all sorts of privacy violations, but it seems to be popular with certain operating systems vendors. The address is macro expanded at the time of delivery. Defaults to no postmaster copies. .ip PrivacyOptions=\fI\|opt,opt,...\fP [p] Set the privacy .i opt ions. ``Privacy'' is really a misnomer; many of these are just a way of insisting on stricter adherence to the SMTP protocol. The .i opt ions can be selected from: .(b .ta \w'noactualrecipient'u+3n public Allow open access needmailhelo Insist on HELO or EHLO command before MAIL needexpnhelo Insist on HELO or EHLO command before EXPN noexpn Disallow EXPN entirely, implies noverb. needvrfyhelo Insist on HELO or EHLO command before VRFY novrfy Disallow VRFY entirely noetrn Disallow ETRN entirely noverb Disallow VERB entirely restrictmailq Restrict mailq command restrictqrun Restrict \-q command line flag restrictexpand Restrict \-bv and \-v command line flags noreceipts Don't return success DSNs\** nobodyreturn Don't return the body of a message with DSNs goaway Disallow essentially all SMTP status queries authwarnings Put X-Authentication-Warning: headers in messages and log warnings noactualrecipient Don't put X-Actual-Recipient lines in DSNs which reveal the actual account that addresses map to. .)b .(f \**N.B.: the .b noreceipts flag turns off support for RFC 1891 (Delivery Status Notification). .)f The .q goaway pseudo-flag sets all flags except .q noreceipts , .q restrictmailq , .q restrictqrun , .q restrictexpand , .q noetrn , and .q nobodyreturn . If mailq is restricted, only people in the same group as the queue directory can print the queue. If queue runs are restricted, only root and the owner of the queue directory can run the queue. The .q restrictexpand pseudo-flag instructs .i sendmail to drop privileges when the .b \-bv option is given by users who are neither root nor the TrustedUser so users cannot read private aliases, forwards, or :include: files. It will add the .q NonRootSafeAddr to the .q DontBlameSendmail option to prevent misleading unsafe address warnings. It also overrides the .b \-v (verbose) command line option to prevent information leakage. Authentication Warnings add warnings about various conditions that may indicate attempts to spoof the mail system, such as using a non-standard queue directory. .ip ProcessTitlePrefix=\fIstring\fP Prefix the process title shown on 'ps' listings with .i string . The .i string will be macro processed. .ip QueueDirectory=\fIdir\fP [Q] The QueueDirectory option serves two purposes. First, it specifies the directory or set of directories that comprise the default queue group. Second, it specifies the directory D which is the ancestor of all queue directories, and which sendmail uses as its current working directory. When sendmail dumps core, it leaves its core files in D. There are two cases. If \fIdir\fR ends with an asterisk (eg, \fI/var/spool/mqueue/qd*\fR), then all of the directories or symbolic links to directories beginning with `qd' in .i /var/spool/mqueue will be used as queue directories of the default queue group, and .i /var/spool/mqueue will be used as the working directory D. Otherwise, \fIdir\fR must name a directory (usually \fI/var/spool/mqueue\fR): the default queue group consists of the single queue directory \fIdir\fR, and the working directory D is set to \fIdir\fR. To define additional groups of queue directories, use the configuration file `Q' command. Do not change the queue directory structure while sendmail is running. .ip QueueFactor=\fIfactor\fP [q] Use .i factor as the multiplier in the map function to decide when to just queue up jobs rather than run them. This value is divided by the difference between the current load average and the load average limit (\c .b QueueLA option) to determine the maximum message priority that will be sent. Defaults to 600000. .ip QueueLA=\fILA\fP [x] When the system load average exceeds .i LA and the .b QueueFactor (\c .b q ) option divided by the difference in the current load average and the .b QueueLA option plus one is less than the priority of the message, just queue messages (i.e., don't try to send them). Defaults to 8 multiplied by the number of processors online on the system (if that can be determined). .ip QueueFileMode=\fImode\fP Default permissions for queue files (octal). If not set, sendmail uses 0600 unless its real and effective uid are different in which case it uses 0644. .ip QueueSortOrder=\fIalgorithm\fP Sets the .i algorithm used for sorting the queue. Only the first character of the value is used. Legal values are .q host (to order by the name of the first host name of the first recipient), .q filename (to order by the name of the queue file name), .q time (to order by the submission/creation time), .q random (to order randomly), .q modification (to order by the modification time of the qf file (older entries first)), .q none (to not order), and .q priority (to order by message priority). Host ordering makes better use of the connection cache, but may tend to process low priority messages that go to a single host over high priority messages that go to several hosts; it probably shouldn't be used on slow network links. Filename and modification time ordering saves the overhead of reading all of the queued items before starting the queue run. Creation (submission) time ordering is almost always a bad idea, since it allows large, bulk mail to go out before smaller, personal mail, but may have applicability on some hosts with very fast connections. Random is useful if several queue runners are started by hand which try to drain the same queue since odds are they will be working on different parts of the queue at the same time. Priority ordering is the default. .ip QueueTimeout=\fItimeout\fP [T] A synonym for .q Timeout.queuereturn . Use that form instead of the .q QueueTimeout form. .ip RandFile Name of file containing random data or the name of the UNIX socket if EGD is used. A (required) prefix "egd:" or "file:" specifies the type. STARTTLS requires this filename if the compile flag HASURANDOMDEV is not set (see sendmail/README). .ip ResolverOptions=\fIoptions\fP [I] Set resolver options. Values can be set using .b + \c .i flag and cleared using .b \- \c .i flag ; the .i flag s can be .q debug , .q aaonly , .q usevc , .q primary , .q igntc , .q recurse , .q defnames , .q stayopen , .q use_inet6 , or .q dnsrch . The string .q HasWildcardMX (without a .b + or .b \- ) can be specified to turn off matching against MX records when doing name canonifications. The string .q WorkAroundBrokenAAAA (without a .b + or .b \- ) can be specified to work around some broken nameservers which return SERVFAIL (a temporary failure) on T_AAAA (IPv6) lookups. Notice: it might be necessary to apply the same (or similar) options to .i submit.cf too. .ip RequiresDirfsync This option can be used to override the compile time flag .b REQUIRES_DIR_FSYNC at runtime by setting it to .sm false . If the compile time flag is not set, the option is ignored. The flag turns on support for file systems that require to call .i fsync() for a directory if the meta-data in it has been changed. This should be turned on at least for older versions of ReiserFS; it is enabled by default for Linux. According to some information this flag is not needed anymore for kernel 2.4.16 and newer. .ip RrtImpliesDsn If this option is set, a .q Return-Receipt-To: header causes the request of a DSN, which is sent to the envelope sender as required by RFC 1891, not to the address given in the header. .ip RunAsUser=\fIuser\fP The .i user parameter may be a user name (looked up in .i /etc/passwd ) or a numeric user id; either form can have .q ":group" attached (where group can be numeric or symbolic). If set to a non-zero (non-root) value, .i sendmail will change to this user id shortly after startup\**. .(f \**When running as a daemon, it changes to this user after accepting a connection but before reading any .sm SMTP commands. .)f This avoids a certain class of security problems. However, this means that all .q \&.forward and .q :include: files must be readable by the indicated .i user and all files to be written must be writable by .i user Also, all file and program deliveries will be marked unsafe unless the option .b DontBlameSendmail=NonRootSafeAddr is set, in which case the delivery will be done as .i user . It is also incompatible with the .b SafeFileEnvironment option. In other words, it may not actually add much to security on an average system, and may in fact detract from security (because other file permissions must be loosened). However, it should be useful on firewalls and other places where users don't have accounts and the aliases file is well constrained. .ip RecipientFactor=\fIfact\fP [y] The indicated .i fact or is added to the priority (thus .i lowering the priority of the job) for each recipient, i.e., this value penalizes jobs with large numbers of recipients. Defaults to 30000. .ip RefuseLA=\fILA\fP [X] When the system load average exceeds .i LA , refuse incoming SMTP connections. Defaults to 12 multiplied by the number of processors online on the system (if that can be determined). .ip RejectLogInterval=\fItimeout\fP Log interval when refusing connections for this long (default: 3h). .ip RetryFactor=\fIfact\fP [Z] The .i fact or is added to the priority every time a job is processed. Thus, each time a job is processed, its priority will be decreased by the indicated value. In most environments this should be positive, since hosts that are down are all too often down for a long time. Defaults to 90000. .ip SafeFileEnvironment=\fIdir\fP If this option is set, .i sendmail will do a .i chroot (2) call into the indicated .i dir ectory before doing any file writes. If the file name specified by the user begins with .i dir , that partial path name will be stripped off before writing, so (for example) if the SafeFileEnvironment variable is set to .q /safe then aliases of .q /safe/logs/file and .q /logs/file actually indicate the same file. Additionally, if this option is set, .i sendmail refuses to deliver to symbolic links. .ip SaveFromLine [f] Save UNIX-style .q From lines at the front of headers. Normally they are assumed redundant and discarded. .ip SendMimeErrors [j] If set, send error messages in MIME format (see RFC 2045 and RFC 1344 for details). If disabled, .i sendmail will not return the DSN keyword in response to an EHLO and will not do Delivery Status Notification processing as described in RFC 1891. .ip ServerCertFile File containing the certificate of the server, i.e., this certificate is used when sendmail acts as server (used for STARTTLS). .ip ServerKeyFile File containing the private key belonging to the server certificate (used for STARTTLS). .ip ServerSSLOptions A space or comma separated list of SSL related options for the server side. See .i SSL_CTX_set_options (3) for a list; the available values depend on the OpenSSL version against which .i sendmail is compiled. By default, .i SSL_OP_ALL .i -SSL_OP_TLSEXT_PADDING are used (if those options are available). Options can be cleared by preceding them with a minus sign. It is also possible to specify numerical values, e.g., .b -0x0010 . .ip ServiceSwitchFile=\fIfilename\fP If your host operating system has a service switch abstraction (e.g., /etc/nsswitch.conf on Solaris or /etc/svc.conf on Ultrix and DEC OSF/1) that service will be consulted and this option is ignored. Otherwise, this is the name of a file that provides the list of methods used to implement particular services. The syntax is a series of lines, each of which is a sequence of words. The first word is the service name, and following words are service types. The services that .i sendmail consults directly are .q aliases and .q hosts. Service types can be .q dns , .q nis , .q nisplus , or .q files (with the caveat that the appropriate support must be compiled in before the service can be referenced). If ServiceSwitchFile is not specified, it defaults to /etc/mail/service.switch. If that file does not exist, the default switch is: .(b aliases files hosts dns nis files .)b The default file is .q /etc/mail/service.switch . .ip SevenBitInput [7] Strip input to seven bits for compatibility with old systems. This shouldn't be necessary. .ip SharedMemoryKey Key to use for shared memory segment; if not set (or 0), shared memory will not be used. If set to -1 .i sendmail can select a key itself provided that also .b SharedMemoryKeyFile is set. Requires support for shared memory to be compiled into .i sendmail . If this option is set, .i sendmail can share some data between different instances. For example, the number of entries in a queue directory or the available space in a file system. This allows for more efficient program execution, since only one process needs to update the data instead of each individual process gathering the data each time it is required. .ip SharedMemoryKeyFile If .b SharedMemoryKey is set to -1 then the automatically selected shared memory key will be stored in the specified file. .ip SingleLineFromHeader If set, From: lines that have embedded newlines are unwrapped onto one line. This is to get around a botch in Lotus Notes that apparently cannot understand legally wrapped RFC 822 headers. .ip SingleThreadDelivery If set, a client machine will never try to open two SMTP connections to a single server machine at the same time, even in different processes. That is, if another .i sendmail is already talking to some host a new .i sendmail will not open another connection. This property is of mixed value; although this reduces the load on the other machine, it can cause mail to be delayed (for example, if one .i sendmail is delivering a huge message, other .i sendmail s won't be able to send even small messages). Also, it requires another file descriptor (for the lock file) per connection, so you may have to reduce the .b ConnectionCacheSize option to avoid running out of per-process file descriptors. Requires the .b HostStatusDirectory option. .ip SmtpGreetingMessage=\fImessage\fP [$e macro] The message printed when the SMTP server starts up. Defaults to .q "$j Sendmail $v ready at $b". .ip SMTPUTF8 Enable runtime support for SMTPUTF8. .ip SoftBounce If set, issue temporary errors (4xy) instead of permanent errors (5xy). This can be useful during testing of a new configuration to avoid erroneous bouncing of mails. .ip SSLEngine Name of SSL engine to use. The available values depend on the OpenSSL version against which .i sendmail is compiled, see .(b openssl engine -v .)b for some information. .ip SSLEnginePath Path to dynamic library for SSL engine. This option is only useful if .i SSLEngine is set. If both are set, the engine will be loaded dynamically at runtime using the concatenation of the path, a slash "/", the string "lib", the value of .i SSLEngine , and the string ".so". If only .i SSLEngine is set then the static version of the engine is used. .ip StatusFile=\fIfile\fP [S] Log summary statistics in the named .i file . If no file name is specified, "statistics" is used. If not set, no summary statistics are saved. This file does not grow in size. It can be printed using the .i mailstats (8) program. .ip SuperSafe [s] This option can be set to True, False, Interactive, or PostMilter. If set to True, .i sendmail will be super-safe when running things, i.e., always instantiate the queue file, even if you are going to attempt immediate delivery. .i Sendmail always instantiates the queue file before returning control to the client under any circumstances. This should really .i always be set to True. The Interactive value has been introduced in 8.12 and can be used together with .b DeliveryMode=i . It skips some synchronization calls which are effectively doubled in the code execution path for this mode. If set to PostMilter, .i sendmail defers synchronizing the queue file until any milters have signaled acceptance of the message. PostMilter is useful only when .i sendmail is running as an SMTP server; in all other situations it acts the same as True. .ip TLSFallbacktoClear If set, .i sendmail immediately tries an outbound connection again without STARTTLS after a TLS handshake failure. Note: this applies to all connections even if TLS specific requirements are set (see rulesets .i tls_rcpt and .i tls_client ). Hence such requirements will cause an error on a retry without STARTTLS. Therefore they should only trigger a temporary failure so the connection is later on tried again. .ip TLSSrvOptions List of options for SMTP STARTTLS for the server consisting of single characters with intervening white space or commas. The flag ``V'' disables client verification, and hence it is not possible to use a client certificate for relaying. The flag ``C'' removes the requirement for the TLS server to have a cert. This only works under very specific circumstances and should only be used if the consequences are understood, e.g., clients may not work with a server using this. .ip TempFileMode=\fImode\fP [F] The file mode for transcript files, files to which .i sendmail delivers directly, files in the .b HostStatusDirectory , and .b StatusFile . It is interpreted in octal by default. Defaults to 0600. .ip Timeout.\fItype\fP=\|\fItimeout\fP [r; subsumes old T option as well] Set timeout values. For more information, see section .\" XREF 4.1. .ip TimeZoneSpec=\fItzinfo\fP [t] Set the local time zone info to .i tzinfo \*- for example, .q PST8PDT . Actually, if this is not set, the TZ environment variable is cleared (so the system default is used); if set but null, the user's TZ variable is used, and if set and non-null the TZ variable is set to this value. .ip TrustedUser=\fIuser\fP The .i user parameter may be a user name (looked up in .i /etc/passwd ) or a numeric user id. Trusted user for file ownership and starting the daemon. If set, generated alias databases and the control socket (if configured) will automatically be owned by this user. .ip TryNullMXList [w] If this system is the .q best (that is, lowest preference) MX for a given host, its configuration rules should normally detect this situation and treat that condition specially by forwarding the mail to a UUCP feed, treating it as local, or whatever. However, in some cases (such as Internet firewalls) you may want to try to connect directly to that host as though it had no MX records at all. Setting this option causes .i sendmail to try this. The downside is that errors in your configuration are likely to be diagnosed as .q "host unknown" or .q "message timed out" instead of something more meaningful. This option is disrecommended. .ip UnixFromLine=\fIfromline\fP [$l macro] Defines the format used when .i sendmail must add a UNIX-style From_ line (that is, a line beginning .q Fromuser ). Defaults to .q "From $g $d" . Don't change this unless your system uses a different UNIX mailbox format (very unlikely). .ip UnsafeGroupWrites If set (default), :include: and .forward files that are group writable are considered .q unsafe , that is, they cannot reference programs or write directly to files. World writable :include: and .forward files are always unsafe. Note: use .b DontBlameSendmail instead; this option is deprecated. .ip UseCompressedIPv6Addresses If set, the compressed format of IPv6 addresses, such as IPV6:::1, will be used, instead of the uncompressed format, such as IPv6:0:0:0:0:0:0:0:1. .ip UseErrorsTo [l] If there is an .q Errors-To: header, send error messages to the addresses listed there. They normally go to the envelope sender. Use of this option causes .i sendmail to violate RFC 1123. This option is disrecommended and deprecated. .ip UserDatabaseSpec=\fIudbspec\fP [U] The user database specification. .ip Verbose [v] Run in verbose mode. If this is set, .i sendmail adjusts options .b HoldExpensive (old .b c ) and .b DeliveryMode (old .b d ) so that all mail is delivered completely in a single job so that you can see the entire delivery process. Option .b Verbose should .i never be set in the configuration file; it is intended for command line use only. Note that the use of option .b Verbose can cause authentication information to leak, if you use a sendmail client to authenticate to a server. If the authentication mechanism uses plain text passwords (as with LOGIN or PLAIN), then the password could be compromised. To avoid this, do not install sendmail set-user-ID root, and disable the .b VERB SMTP command with a suitable .b PrivacyOptions setting. .ip XscriptFileBufferSize=\fIthreshold\fP Set the .i threshold , in bytes, before a memory-based queue transcript file becomes disk-based. The default is 4096 bytes. .lp All options can be specified on the command line using the \-O or \-o flag, but most will cause .i sendmail to relinquish its set-user-ID permissions. The options that will not cause this are SevenBitInput [7], EightBitMode [8], MinFreeBlocks [b], CheckpointInterval [C], DeliveryMode [d], ErrorMode [e], IgnoreDots [i], SendMimeErrors [j], LogLevel [L], MeToo [m], OldStyleHeaders [o], PrivacyOptions [p], SuperSafe [s], Verbose [v], QueueSortOrder, MinQueueAge, DefaultCharSet, Dial Delay, NoRecipientAction, ColonOkInAddr, MaxQueueRunSize, SingleLineFromHeader, and AllowBogusHELO. Actually, PrivacyOptions [p] given on the command line are added to those already specified in the .i sendmail.cf file, i.e., they can't be reset. Also, M (define macro) when defining the r or s macros is also considered .q safe . .sh 2 "P \*- Precedence Definitions" .pp Values for the .q "Precedence:" field may be defined using the .b P control line. The syntax of this field is: .(b \fBP\fP\fIname\fP\fB=\fP\fInum\fP .)b When the .i name is found in a .q Precedence: field, the message class is set to .i num . Higher numbers mean higher precedence. Numbers less than zero have the special property that if an error occurs during processing the body of the message will not be returned; this is expected to be used for .q "bulk" mail such as through mailing lists. The default precedence is zero. For example, our list of precedences is: .(b Pfirst-class=0 Pspecial-delivery=100 Plist=\-30 Pbulk=\-60 Pjunk=\-100 .)b People writing mailing list exploders are encouraged to use .q "Precedence: list" . Older versions of .i sendmail (which discarded all error returns for negative precedences) didn't recognize this name, giving it a default precedence of zero. This allows list maintainers to see error returns on both old and new versions of .i sendmail . .sh 2 "V \*- Configuration Version Level" .pp To provide compatibility with old configuration files, the .b V line has been added to define some very basic semantics of the configuration file. These are not intended to be long term supports; rather, they describe compatibility features which will probably be removed in future releases. .pp .b N.B.: these version .i levels have nothing to do with the version .i number on the files. For example, as of this writing version 10 config files (specifically, 8.10) used version level 9 configurations. .pp .q Old configuration files are defined as version level one. Version level two files make the following changes: .np Host name canonification ($[ ... $]) appends a dot if the name is recognized; this gives the config file a way of finding out if anything matched. (Actually, this just initializes the .q host map with the .q \-a. flag \*- you can reset it to anything you prefer by declaring the map explicitly.) .np Default host name extension is consistent throughout processing; version level one configurations turned off domain extension (that is, adding the local domain name) during certain points in processing. Version level two configurations are expected to include a trailing dot to indicate that the name is already canonical. .np Local names that are not aliases are passed through a new distinguished ruleset five; this can be used to append a local relay. This behavior can be prevented by resolving the local name with an initial `@'. That is, something that resolves to a local mailer and a user name of .q vikki will be passed through ruleset five, but a user name of .q @vikki will have the `@' stripped, will not be passed through ruleset five, but will otherwise be treated the same as the prior example. The expectation is that this might be used to implement a policy where mail sent to .q vikki was handled by a central hub, but mail sent to .q vikki@localhost was delivered directly. .pp Version level three files allow # initiated comments on all lines. Exceptions are backslash escaped # marks and the $# syntax. .pp Version level four configurations are completely equivalent to level three for historical reasons. .pp Version level five configuration files change the default definition of .b $w to be just the first component of the hostname. .pp Version level six configuration files change many of the local processing options (such as aliasing and matching the beginning of the address for `|' characters) to be mailer flags; this allows fine-grained control over the special local processing. Level six configuration files may also use long option names. The .b ColonOkInAddr option (to allow colons in the local-part of addresses) defaults .b on for lower numbered configuration files; the configuration file requires some additional intelligence to properly handle the RFC 822 group construct. .pp Version level seven configuration files used new option names to replace old macros (\c .b $e became .b SmtpGreetingMessage , .b $l became .b UnixFromLine , and .b $o became .b OperatorChars . Also, prior to version seven, the .b F=q flag (use 250 instead of 252 return value for .sm "SMTP VRFY" commands) was assumed. .pp Version level eight configuration files allow .b $# on the left hand side of ruleset lines. .pp Version level nine configuration files allow parentheses in rulesets, i.e. they are not treated as comments and hence removed. .pp Version level ten configuration files allow queue group definitions. .pp The .b V line may have an optional .b / \c .i vendor to indicate that this configuration file uses modifications specific to a particular vendor\**. .(f \**And of course, vendors are encouraged to add themselves to the list of recognized vendors by editing the routine .i setvendor in .i conf.c . Please send e-mail to sendmail@Sendmail.ORG to register your vendor dialect. .)f You may use .q /Berkeley to emphasize that this configuration file uses the Berkeley dialect of .i sendmail . .sh 2 "K \*- Key File Declaration" .pp Special maps can be defined using the line: .(b Kmapname mapclass arguments .)b The .i mapname is the handle by which this map is referenced in the rewriting rules. The .i mapclass is the name of a type of map; these are compiled in to .i sendmail . The .i arguments are interpreted depending on the class; typically, there would be a single argument naming the file containing the map. .pp Maps are referenced using the syntax: .(b $( \fImap\fP \fIkey\fP $@ \fIarguments\fP $: \fIdefault\fP $) .)b where either or both of the .i arguments or .i default portion may be omitted. The .i "$@ arguments" may appear more than once. The indicated .i key and .i arguments are passed to the appropriate mapping function. If it returns a value, it replaces the input. If it does not return a value and the .i default is specified, the .i default replaces the input. Otherwise, the input is unchanged. .pp The .i arguments are passed to the map for arbitrary use. Most map classes can interpolate these arguments into their values using the syntax .q %\fIn\fP (where .i n is a digit) to indicate the corresponding .i argument . Argument .q %0 indicates the database key. For example, the rule .(b .ta 1.5i R$\- ! $+ $: $(uucp $1 $@ $2 $: $2 @ $1 . UUCP $) .)b looks up the UUCP name in a (user defined) UUCP map; if not found it turns it into .q \&.UUCP form. The database might contain records like: .(b decvax %1@%0.DEC.COM research %1@%0.ATT.COM .)b Note that .i default clauses never do this mapping. .pp The built-in map with both name and class .q host is the host name canonicalization lookup. Thus, the syntax: .(b $(host \fIhostname\fP$) .)b is equivalent to: .(b $[\fIhostname\fP$] .)b .pp There are many defined classes. .ip cdb Database lookups using the cdb(3) library. .i Sendmail must be compiled with .b CDB defined. .ip dbm Database lookups using the ndbm(3) library. .i Sendmail must be compiled with .b NDBM defined. .ip btree Database lookups using the btree interface to the Berkeley DB library. .i Sendmail must be compiled with .b NEWDB defined. .ip hash Database lookups using the hash interface to the Berkeley DB library. .i Sendmail must be compiled with .b NEWDB defined. .ip nis NIS lookups. .i Sendmail must be compiled with .b NIS defined. .ip nisplus NIS+ lookups. .i Sendmail must be compiled with .b NISPLUS defined. The argument is the name of the table to use for lookups, and the .b \-k and .b \-v flags may be used to set the key and value columns respectively. .ip hesiod Hesiod lookups. .i Sendmail must be compiled with .b HESIOD defined. .ip ldap LDAP X500 directory lookups. .i Sendmail must be compiled with .b LDAPMAP defined. The map supports most of the standard arguments and most of the command line arguments of the .i ldapsearch program. Note that, by default, if a single query matches multiple values, only the first value will be returned unless the .b \-z (value separator) map option is set. Also, the .b \-1 map flag will treat a multiple value return as if there were no matches. .ip netinfo NeXT NetInfo lookups. .i Sendmail must be compiled with .b NETINFO defined. .ip text Text file lookups. The format of the text file is defined by the .b \-k (key field number), .b \-v (value field number), and .b \-z (field delimiter) options. .ip ph PH query map. Contributed and supported by Mark Roth, roth@uiuc.edu. .ip nsd nsd map for IRIX 6.5 and later. Contributed and supported by Bob Mende of SGI, mende@sgi.com. .ip stab Internal symbol table lookups. Used internally for aliasing. .ip implicit Sequentially try a list of available map types: .i hash , .i dbm , and .i cdb . It is the default for alias files if no class is specified. If is no matching map type is found, the text version is used for the alias file, but other maps fail to open. .ip user Looks up users using .i getpwnam (3). The .b \-v flag can be used to specify the name of the field to return (although this is normally used only to check the existence of a user). .ip host Canonifies host domain names. Given a host name it calls the name server to find the canonical name for that host. .ip bestmx Returns the best MX record for a host name given as the key. The current machine is always preferred \*- that is, if the current machine is one of the hosts listed as a lowest-preference MX record, then it will be guaranteed to be returned. This can be used to find out if this machine is the target for an MX record, and mail can be accepted on that basis. If the .b \-z option is given, then all MX names are returned, separated by the given delimiter. Note: the return value is deterministic, i.e., even if multiple MX records have the same preference, they will be returned in the same order. .ip dns This map requires the option -R to specify the DNS resource record type to lookup. The following types are supported: A, AAAA, AFSDB, CNAME, MX, NS, PTR, SRV, and TXT. A map lookup will return only one record unless the .b \-z (value separator) option is set. Hence for some types, e.g., MX records, the return value might be a random element of the results due to randomizing in the DNS resolver, if only one element is returned. .ip arpa Returns the ``reverse'' for the given IP (IPv4 or IPv6) address, i.e., the string for the PTR lookup, but without trailing .b ip6.arpa or .b in-addr.arpa . For example, the following configuration lines: .(b Karpa arpa SArpa R$+ $: $(arpa $1 $) .)b work like this in test mode: .(b sendmail -bt ADDRESS TEST MODE (ruleset 3 NOT automatically invoked) Enter
    > Arpa IPv6:1:2:dead:beef:9876:0:0:1 Arpa input: IPv6 : 1 : 2 : dead : beef : 9876 : 0 : 0 : 1 Arpa returns: 1 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 6 . 7 . 8 . 9 . f . e . e . b . d . a . e . d . 2 . 0 . 0 . 0 . 1 . 0 . 0 . 0 > Arpa 1.2.3.4 Arpa input: 1 . 2 . 3 . 4 Arpa returns: 4 . 3 . 2 . 1 .)b .ip sequence The arguments on the `K' line are a list of maps; the resulting map searches the argument maps in order until it finds a match for the indicated key. For example, if the key definition is: .(b Kmap1 ... Kmap2 ... Kseqmap sequence map1 map2 .)b then a lookup against .q seqmap first does a lookup in map1. If that is found, it returns immediately. Otherwise, the same key is used for map2. .ip syslog the key is logged via .i syslogd \|(8). The lookup returns the empty string. .ip switch Much like the .q sequence map except that the order of maps is determined by the service switch. The argument is the name of the service to be looked up; the values from the service switch are appended to the map name to create new map names. For example, consider the key definition: .(b Kali switch aliases .)b together with the service switch entry: .(b aliases nis files .)b This causes a query against the map .q ali to search maps named .q ali.nis and .q ali.files in that order. .ip dequote Strip double quotes (") from a name. It does not strip backslashes, and will not strip quotes if the resulting string would contain unscannable syntax (that is, basic errors like unbalanced angle brackets; more sophisticated errors such as unknown hosts are not checked). The intent is for use when trying to accept mail from systems such as DECnet that routinely quote odd syntax such as .(b "49ers::ubell" .)b A typical usage is probably something like: .(b Kdequote dequote \&... R$\- $: $(dequote $1 $) R$\- $+ $: $>3 $1 $2 .)b Care must be taken to prevent unexpected results; for example, .(b "|someprogram < input > output" .)b will have quotes stripped, but the result is probably not what you had in mind. Fortunately these cases are rare. .ip regex The map definition on the .b K line contains a regular expression. Any key input is compared to that expression using the POSIX regular expressions routines regcomp(), regerr(), and regexec(). Refer to the documentation for those routines for more information about the regular expression matching. No rewriting of the key is done if the .b \-m flag is used. Without it, the key is discarded or if .b \-s if used, it is substituted by the substring matches, delimited by .b $| or the string specified with the .b \-d option. The options available for the map are .(b .ta 4n -n not -f case sensitive -b basic regular expressions (default is extended) -s substring match -d set the delimiter string used for -s -a append string to key -m match only, do not replace/discard value -D perform no lookup in deferred delivery mode. .)b The .b \-s option can include an optional parameter which can be used to select the substrings in the result of the lookup. For example, .(b -s1,3,4 .)b The delimiter string specified via the .b \-d option is the sequence of characters after .b d ending at the first space. Hence it isn't possible to specify a space as delimiter, so if the option is immediately followed by a space the delimiter string is empty, which means the substrings are joined. Notes: to match a .b $ in a string, \\$$ must be used. If the pattern contains spaces, they must be replaced with the blank substitution character, unless it is space itself. .ip program The arguments on the .b K line are the pathname to a program and any initial parameters to be passed. When the map is called, the key is added to the initial parameters and the program is invoked as the default user/group id. The first line of standard output is returned as the value of the lookup. This has many potential security problems, and has terrible performance; it should be used only when absolutely necessary. .ip macro Set or clear a macro value. To set a macro, pass the value as the first argument in the map lookup. To clear a macro, do not pass an argument in the map lookup. The map always returns the empty string. Example of typical usage include: .(b Kstorage macro \&... # set macro ${MyMacro} to the ruleset match R$+ $: $(storage {MyMacro} $@ $1 $) $1 # set macro ${MyMacro} to an empty string R$* $: $(storage {MyMacro} $@ $) $1 # clear macro ${MyMacro} R$\- $: $(storage {MyMacro} $) $1 .)b .ip arith Perform simple arithmetic operations. The operation is given as key, currently +, -, *, /, %, |, & (bitwise OR, AND), l (for less than), =, and r (for random) are supported. The two operands are given as arguments. The lookup returns the result of the computation, i.e., .sm TRUE or .sm FALSE for comparisons, integer values otherwise. The r operator returns a pseudo-random number whose value lies between the first and second operand (which requires that the first operand is smaller than the second). All options which are possible for maps are ignored. A simple example is: .(b Kcomp arith \&... Scheck_etrn R$* $: $(comp l $@ $&{load_avg} $@ 7 $) $1 RFALSE $# error \&... .)b .ip socket The socket map uses a simple request/reply protocol over TCP or UNIX domain sockets to query an external server. Both requests and replies are text based and encoded as netstrings, i.e., a string "hello there" becomes: .(b 11:hello there, .)b Note: neither requests nor replies end with CRLF. The request consists of the database map name and the lookup key separated by a space character: .(b ' ' .)b The server responds with a status indicator and the result (if any): .(b ' ' .)b The status indicator specifies the result of the lookup operation itself and is one of the following upper case words: .(b .ta 9n OK the key was found, result contains the looked up value NOTFOUND the key was not found, the result is empty TEMP a temporary failure occurred TIMEOUT a timeout occurred on the server side PERM a permanent failure occurred .)b In case of errors (status TEMP, TIMEOUT or PERM) the result field may contain an explanatory message. However, the explanatory message is not used any further by .i sendmail . Example replies: .(b 31:OK resolved.address@example.com, .)b .(b 56:OK error:550 5.7.1 User does not accept mail from sender, .)b in case of successful lookups, or: .(b 8:NOTFOUND, .)b in case the key was not found, or: .(b 55:TEMP this text explains that we had a temporary failure, .)b in case of a temporary map lookup failure. The socket map uses the same syntax as milters (see Section "X \*- Mail Filter (Milter) Definitions") to specify the remote endpoint, e.g., .(b Ksocket mySocketMap inet:12345@127.0.0.1 .)b If multiple socket maps define the same remote endpoint, they will share a single connection to this endpoint. .pp Most of these accept as arguments the same optional flags and a filename (or a mapname for NIS; the filename is the root of the database path, so that .q .db or some other extension appropriate for the database type will be added to get the actual database name). Known flags are: .ip "\-o" Indicates that this map is optional \*- that is, if it cannot be opened, no error is produced, and .i sendmail will behave as if the map existed but was empty. .ip "\-N, \-O" If neither .b \-N or .b \-O are specified, .i sendmail uses an adaptive algorithm to decide whether or not to look for null bytes on the end of keys. It starts by trying both; if it finds any key with a null byte it never tries again without a null byte and vice versa. If .b \-N is specified it never tries without a null byte and if .b \-O is specified it never tries with a null byte. Setting one of these can speed matches but are never necessary. If both .b \-N and .b \-O are specified, .i sendmail will never try any matches at all \(em that is, everything will appear to fail. .ip "\-a\fIx\fP" Append the string .i x on successful matches. For example, the default .i host map appends a dot on successful matches. .ip "\-T\fIx\fP" Append the string .i x on temporary failures. For example, .i x would be appended if a DNS lookup returned .q "server failed" or an NIS lookup could not locate a server. See also the .b \-t flag. .ip "\-f" Do not fold upper to lower case before looking up the key. .ip "\-m" Match only (without replacing the value). If you only care about the existence of a key and not the value (as you might when searching the NIS map .q hosts.byname for example), this flag prevents the map from substituting the value. However, The \-a argument is still appended on a match, and the default is still taken if the match fails. .ip "\-k\fIkeycol\fP" The key column name (for NIS+) or number (for text lookups). For LDAP maps this is an LDAP filter string in which %s is replaced with the literal contents of the lookup key and %0 is replaced with the LDAP escaped contents of the lookup key according to RFC 2254. If the flag .b \-K is used, then %1 through %9 are replaced with the LDAP escaped contents of the arguments specified in the map lookup. .ip "\-v\fIvalcol\fP" The value column name (for NIS+) or number (for text lookups). For LDAP maps this is the name of one or more attributes to be returned; multiple attributes can be separated by commas. If not specified, all attributes found in the match will be returned. The attributes listed can also include a type and one or more objectClass values for matching as described in the LDAP section. .ip "\-z\fIdelim\fP" The column delimiter (for text lookups). It can be a single character or one of the special strings .q \|\en or .q \|\et to indicate newline or tab respectively. If omitted entirely, the column separator is any sequence of white space. For LDAP and some other maps this is the separator character to combine multiple values into a single return string. If not set, the LDAP lookup will only return the first match found. For DNS maps this is the separator character at which the result of a query is cut off if is too long. .ip "\-t" Normally, when a map attempts to do a lookup and the server fails (e.g., .i sendmail couldn't contact any name server; this is .i not the same as an entry not being found in the map), the message being processed is queued for future processing. The .b \-t flag turns off this behavior, letting the temporary failure (server down) act as though it were a permanent failure (entry not found). It is particularly useful for DNS lookups, where someone else's misconfigured name server can cause problems on your machine. However, care must be taken to ensure that you don't bounce mail that would be resolved correctly if you tried again. A common strategy is to forward such mail to another, possibly better connected, mail server. .ip "\-D" Perform no lookup in deferred delivery mode. This flag is set by default for the .i host map. .ip "\-S\fIspacesub\fP The character to use to replace space characters after a successful map lookup (esp. useful for regex and syslog maps). .ip "\-s\fIspacesub\fP For the dequote map only, the character to use to replace space characters after a successful dequote. .ip "\-q" Don't dequote the key before lookup. .ip "\-L\fIlevel\fP For the syslog map only, it specifies the level to use for the syslog call. .ip "\-A" When rebuilding an alias file, the .b \-A flag causes duplicate entries in the text version to be merged. For example, two entries: .(b list: user1, user2 list: user3 .)b would be treated as though it were the single entry .(b list: user1, user2, user3 .)b in the presence of the .b \-A flag. .pp Some additional flags are available for the host and dns maps: .ip "\-d" delay: specify the resolver's retransmission time interval (in seconds). .ip "\-r" retry: specify the number of times to retransmit a resolver query. .pp The dns map has another flag: .ip "\-B" basedomain: specify a domain that is always appended to queries. .pp Socket maps have an optional flag: .ip "\-d" timeout: specify the timeout (in seconds) for communication with the socket map server. .pp The following additional flags are present in the ldap map only: .ip "\-c\fItimeout\fP" Set the LDAP network timeout. sendmail must be compiled with .b \-DLDAP_OPT_NETWORK_TIMEOUT to use this flag. .ip "\-R" Do not auto chase referrals. sendmail must be compiled with .b \-DLDAP_REFERRALS to use this flag. .ip "\-n" Retrieve attribute names only. .ip "\-V\fIsep\fP" Retrieve both attributes name and value(s), separated by .i sep . .ip "\-r\fIderef\fP" Set the alias dereference option to one of never, always, search, or find. .ip "\-s\fIscope\fP" Set search scope to one of base, one (one level), or sub (subtree). .ip "\-h\fIhost\fP" LDAP server hostname. Some LDAP libraries allow you to specify multiple, space-separated hosts for redundancy. In addition, each of the hosts listed can be followed by a colon and a port number to override the default LDAP port. .ip "\-p\fIport\fP" LDAP service port. .ip "\-H \fILDAPURI\fP" Use the specified LDAP URI instead of specifying the hostname and port separately with the .b \-h and .b \-p options shown above. For example, .(b -h server.example.com -p 389 -b dc=example,dc=com .)b is equivalent to .(b -H ldap://server.example.com:389 -b dc=example,dc=com .)b If the LDAP library supports it, the LDAP URI format however can also request LDAP over SSL by using .b ldaps:// instead of .b ldap:// . For example: .(b O LDAPDefaultSpec=-H ldaps://ldap.example.com -b dc=example,dc=com .)b Similarly, if the LDAP library supports it, It can also be used to specify a UNIX domain socket using .b ldapi:// : .(b O LDAPDefaultSpec=-H ldapi://socketfile -b dc=example,dc=com .)b .ip "\-b\fIbase\fP" LDAP search base. .ip "\-l\fItimelimit\fP" Time limit for LDAP queries. .ip "\-Z\fIsizelimit\fP" Size (number of matches) limit for LDAP or DNS queries. .ip "\-d\fIdistinguished_name\fP" The distinguished name to use to login to the LDAP server. .ip "\-M\fImethod\fP" The method to authenticate to the LDAP server. Should be one of .b LDAP_AUTH_NONE , .b LDAP_AUTH_SIMPLE , or .b LDAP_AUTH_KRBV4 . The leading .b LDAP_AUTH_ can be omitted and the value is case-insensitive. .ip "\-P\fIpasswordfile\fP" The file containing the secret key for the .b LDAP_AUTH_SIMPLE authentication method or the name of the Kerberos ticket file for .b LDAP_AUTH_KRBV4 . .ip "\-1" Force LDAP searches to only succeed if a single match is found. If multiple values are found, the search is treated as if no match was found. .ip "\-w\fIversion\fP" Set the LDAP API/protocol version to use. The default depends on the LDAP client libraries in use. For example, .b "\-w 3" will cause .i sendmail to use LDAPv3 when communicating with the LDAP server. .ip "\-K" Treat the LDAP search key as multi-argument and replace %1 through %9 in the key with the LDAP escaped contents of the lookup arguments specified in the map lookup. .pp The .i dbm map appends the strings .q \&.pag and .q \&.dir to the given filename; the .i hash and .i btree maps append .q \&.db . For example, the map specification .(b Kuucp dbm \-o \-N /etc/mail/uucpmap .)b specifies an optional map named .q uucp of class .q dbm ; it always has null bytes at the end of every string, and the data is located in /etc/mail/uucpmap.{dir,pag}. .pp The program .i makemap (8) can be used to build database-oriented maps. It takes at least the following flags (for a complete list see its man page): .ip \-f Do not fold upper to lower case in the map. .ip \-N Include null bytes in keys. .ip \-o Append to an existing (old) file. .ip \-r Allow replacement of existing keys; normally, re-inserting an existing key is an error. .ip \-v Print what is happening. .lp The .i sendmail daemon does not have to be restarted to read the new maps as long as you change them in place; file locking is used so that the maps won't be read while they are being updated. .pp New classes can be added in the routine .b setupmaps in file .b conf.c . .sh 2 "Q \*- Queue Group Declaration" .pp In addition to the option .i QueueDirectory, queue groups can be declared that define a (group of) queue directories under a common name. The syntax is as follows: .(b F .b Q \c .i name {, \c .i field =\c .i value \|}+ .)b where .i name is the symbolic name of the queue group under which it can be referenced in various places and the .q field=value pairs define attributes of the queue group. The name must only consist of alphanumeric characters. Fields are: .ip Flags Flags for this queue group. .ip Nice The nice(2) increment for the queue group. This value must be greater or equal zero. .ip Interval The time between two queue runs. .ip Path The queue directory of the group (required). .ip Runners The number of parallel runners processing the queue. Note that .b F=f must be set if this value is greater than one. .ip Jobs The maximum number of jobs (messages delivered) per queue run. .ip recipients The maximum number of recipients per envelope. Envelopes with more than this number of recipients will be split into multiple envelopes in the same queue directory. The default value 0 means no limit. .lp Only the first character of the field name is checked. .pp By default, a queue group named .i mqueue is defined that uses the value of the .i QueueDirectory option as path. Notice: all paths that are used for queue groups must be subdirectories of .i QueueDirectory . Since they can be symbolic links, this isn't a real restriction, If .i QueueDirectory uses a wildcard, then the directory one level up is considered the ``base'' directory which all other queue directories must share. Please make sure that the queue directories do not overlap, e.g., do not specify .(b O QueueDirectory=/var/spool/mqueue/* Qone, P=/var/spool/mqueue/dir1 Qtwo, P=/var/spool/mqueue/dir2 .)b because this also includes .q dir1 and .q dir2 in the default queue group. However, .(b O QueueDirectory=/var/spool/mqueue/main* Qone, P=/var/spool/mqueue/dir Qtwo, P=/var/spool/mqueue/other* .)b is a valid queue group specification. .pp Options listed in the ``Flags'' field can be used to modify the behavior of a queue group. The ``f'' flag must be set if multiple queue runners are supposed to work on the entries in a queue group. Otherwise .i sendmail will work on the entries strictly sequentially. .pp The ``Interval'' field sets the time between queue runs. If no queue group specific interval is set, then the parameter of the .b -q option from the command line is used. .pp To control the overall number of concurrently active queue runners the option .b MaxQueueChildren can be set. This limits the number of processes used for running the queues to .b MaxQueueChildren , though at any one time fewer processes may be active as a result of queue options, completed queue runs, system load, etc. .pp The maximum number of queue runners for an individual queue group can be controlled via the .b Runners option. If set to 0, entries in the queue will not be processed, which is useful to ``quarantine'' queue files. The number of runners per queue group may also be set with the option .b MaxRunnersPerQueue , which applies to queue groups that have no individual limit. That is, the default value for .b Runners is .b MaxRunnersPerQueue if set, otherwise 1. .pp The field Jobs describes the maximum number of jobs (messages delivered) per queue run, which is the queue group specific value of .b MaxQueueRunSize . .pp Notice: queue groups should be declared after all queue related options have been set because queue groups take their defaults from those options. If an option is set after a queue group declaration, the values of options in the queue group are set to the defaults of .i sendmail unless explicitly set in the declaration. .pp Each envelope is assigned to a queue group based on the algorithm described in section ``Queue Groups and Queue Directories''. .sh 2 "X \*- Mail Filter (Milter) Definitions" .pp The .i sendmail Mail Filter API (Milter) is designed to allow third-party programs access to mail messages as they are being processed in order to filter meta-information and content. They are declared in the configuration file as: .(b F .b X \c .i name {, \c .i field =\c .i value \|}* .)b where .i name is the name of the filter (used internally only) and the .q field=name pairs define attributes of the filter. Also see the documentation for the .b InputMailFilters option for more information. .pp Fields are: .(b .ta 1i Socket The socket specification Flags Special flags for this filter Timeouts Timeouts for this filter .)b Only the first character of the field name is checked (it's case-sensitive). .pp The socket specification is one of the following forms: .(b F .b S= \c .b inet \c .b : .i port .b @ .i host .)b .(b F .b S= \c .b inet6 \c .b : .i port .b @ .i host .)b .(b F .b S= \c .b local \c .b : .i path .)b The first two describe an IPv4 or IPv6 socket listening on a certain .i port at a given .i host or IP address. The final form describes a named socket on the filesystem at the given .i path . .pp The following flags may be set in the filter description. .nr ii 4n .ip R Reject connection if filter unavailable. .ip T Temporary fail connection if filter unavailable. .pp If neither F=R nor F=T is specified, the message is passed through .i sendmail in case of filter errors as if the failing filters were not present. .pp The timeouts can be set using the four fields inside of the .b T= equate: .nr ii 4n .ip C Timeout for connecting to a filter. If set to 0, the system's .i connect() timeout will be used. .ip S Timeout for sending information from the MTA to a filter. .ip R Timeout for reading reply from the filter. .ip E Overall timeout between sending end-of-message to filter and waiting for the final acknowledgment. .pp Note the separator between each timeout field is a .b ';' . The default values (if not set) are: .b T=C:5m;S:10s;R:10s;E:5m where .b s is seconds and .b m is minutes. .pp Examples: .(b Xfilter1, S=local:/var/run/f1.sock, F=R Xfilter2, S=inet6:999@localhost, F=T, T=S:1s;R:1s;E:5m Xfilter3, S=inet:3333@localhost, T=C:2m .)b .sh 2 "The User Database" .pp The user database is deprecated in favor of ``virtusertable'' and ``genericstable'' as explained in the file .b cf/README . If you have a version of .i sendmail with the user database package compiled in, the handling of sender and recipient addresses is modified. .pp The location of this database is controlled with the .b UserDatabaseSpec option. .sh 3 "Structure of the user database" .pp The database is a sorted (BTree-based) structure. User records are stored with the key: .(b \fIuser-name\fP\fB:\fP\fIfield-name\fP .)b The sorted database format ensures that user records are clustered together. Meta-information is always stored with a leading colon. .pp Field names define both the syntax and semantics of the value. Defined fields include: .nr ii 1i .ip maildrop The delivery address for this user. There may be multiple values of this record. In particular, mailing lists will have one .i maildrop record for each user on the list. .ip "mailname" The outgoing mailname for this user. For each outgoing name, there should be an appropriate .i maildrop record for that name to allow return mail. See also .i :default:mailname . .ip mailsender Changes any mail sent to this address to have the indicated envelope sender. This is intended for mailing lists, and will normally be the name of an appropriate -request address. It is very similar to the owner-\c .i list syntax in the alias file. .ip fullname The full name of the user. .ip office-address The office address for this user. .ip office-phone The office phone number for this user. .ip office-fax The office FAX number for this user. .ip home-address The home address for this user. .ip home-phone The home phone number for this user. .ip home-fax The home FAX number for this user. .ip project A (short) description of the project this person is affiliated with. In the University this is often just the name of their graduate advisor. .ip plan A pointer to a file from which plan information can be gathered. .pp As of this writing, only a few of these fields are actually being used by .i sendmail : .i maildrop and .i mailname . A .i finger program that uses the other fields is planned. .sh 3 "User database semantics" .pp When the rewriting rules submit an address to the local mailer, the user name is passed through the alias file. If no alias is found (or if the alias points back to the same address), the name (with .q :maildrop appended) is then used as a key in the user database. If no match occurs (or if the maildrop points at the same address), forwarding is tried. .pp If the first token of the user name returned by ruleset 0 is an .q @ sign, the user database lookup is skipped. The intent is that the user database will act as a set of defaults for a cluster (in our case, the Computer Science Division); mail sent to a specific machine should ignore these defaults. .pp When mail is sent, the name of the sending user is looked up in the database. If that user has a .q mailname record, the value of that record is used as their outgoing name. For example, I might have a record: .(b eric:mailname Eric.Allman@CS.Berkeley.EDU .)b This would cause my outgoing mail to be sent as Eric.Allman. .pp If a .q maildrop is found for the user, but no corresponding .q mailname record exists, the record .q :default:mailname is consulted. If present, this is the name of a host to override the local host. For example, in our case we would set it to .q CS.Berkeley.EDU . The effect is that anyone known in the database gets their outgoing mail stamped as .q user@CS.Berkeley.EDU , but people not listed in the database use the local hostname. .sh 3 "Creating the database\**" .(f \**These instructions are known to be incomplete. Other features are available which provide similar functionality, e.g., virtual hosting and mapping local addresses into a generic form as explained in cf/README. .)f .pp The user database is built from a text file using the .i makemap utility (in the distribution in the makemap subdirectory). The text file is a series of lines corresponding to userdb records; each line has a key and a value separated by white space. The key is always in the format described above \*- for example: .(b eric:maildrop .)b This file is normally installed in a system directory; for example, it might be called .i /etc/mail/userdb . To make the database version of the map, run the program: .(b makemap btree /etc/mail/userdb < /etc/mail/userdb .)b Then create a config file that uses this. For example, using the V8 M4 configuration, include the following line in your .mc file: .(b define(\`confUSERDB_SPEC\', /etc/mail/userdb) .)b .sh 1 "OTHER CONFIGURATION" .pp There are some configuration changes that can be made by recompiling .i sendmail . This section describes what changes can be made and what has to be modified to make them. In most cases this should be unnecessary unless you are porting .i sendmail to a new environment. .sh 2 "Parameters in devtools/OS/$oscf" .pp These parameters are intended to describe the compilation environment, not site policy, and should normally be defined in the operating system configuration file. .b "This section needs a complete rewrite." .ip NDBM If set, the new version of the DBM library that allows multiple databases will be used. If neither CDB, NDBM, nor NEWDB are set, a much less efficient method of alias lookup is used. .ip CDB If set, use the cdb (tinycdb) package. .ip NEWDB If set, use the new database package from Berkeley (from 4.4BSD). This package is substantially faster than DBM or NDBM. If NEWDB and NDBM are both set, .i sendmail will read DBM files, but will create and use NEWDB files. .ip NIS Include support for NIS. If set together with .i both NEWDB and NDBM, .i sendmail will create both DBM and NEWDB files if and only if an alias file includes the substring .q /yp/ in the name. This is intended for compatibility with Sun Microsystems' .i mkalias program used on YP masters. .ip NISPLUS Compile in support for NIS+. .ip NETINFO Compile in support for NetInfo (NeXT stations). .ip LDAPMAP Compile in support for LDAP X500 queries. Requires libldap and liblber from the Umich LDAP 3.2 or 3.3 release or equivalent libraries for other LDAP libraries such as OpenLDAP. .ip HESIOD Compile in support for Hesiod. .ip MAP_NSD Compile in support for IRIX NSD lookups. .ip MAP_REGEX Compile in support for regular expression matching. .ip DNSMAP Compile in support for DNS map lookups in the .i sendmail.cf file. .ip PH_MAP Compile in support for ph lookups. .ip SASL Compile in support for SASL, a required component for SMTP Authentication support. .ip STARTTLS Compile in support for STARTTLS. .ip EGD Compile in support for the "Entropy Gathering Daemon" to provide better random data for TLS. .ip TCPWRAPPERS Compile in support for TCP Wrappers. .ip _PATH_SENDMAILCF The pathname of the sendmail.cf file. .ip _PATH_SENDMAILPID The pathname of the sendmail.pid file. .ip SM_CONF_SHM Compile in support for shared memory, see section about "/var/spool/mqueue". .ip MILTER Compile in support for contacting external mail filters built with the Milter API. .pp There are also several compilation flags to indicate the environment such as .q _AIX3 and .q _SCO_unix_ . See the sendmail/README file for the latest scoop on these flags. .sh 3 "For Future Releases" .pp .i sendmail often contains compile time options .i "For Future Releases" (prefix _FFR_) which might be enabled in a subsequent version or might simply be removed as they turned out not to be really useful. These features are usually not documented but if they are, then the required (FFR) compile time options are listed here for rulesets and macros, and in .i cf/README for mc/cf options. FFR compile times options must be enabled when the sendmail binary is built from source. Enabled FFRs in a binary can be listed with .(b sendmail -d0.13 < /dev/null | grep FFR .)b .sh 2 "Parameters in sendmail/conf.h" .pp Parameters and compilation options are defined in conf.h. Most of these need not normally be tweaked; common parameters are all in sendmail.cf. However, the sizes of certain primitive vectors, etc., are included in this file. The numbers following the parameters are their default value. .pp This document is not the best source of information for compilation flags in conf.h \(em see sendmail/README or sendmail/conf.h itself. .nr ii 1.2i .ip "MAXLINE [2048]" The maximum line length of any input line. If message lines exceed this length they will still be processed correctly; however, header lines, configuration file lines, alias lines, etc., must fit within this limit. .ip "MAXNAME [256]" The maximum length of any name, such as a host or a user name. .ip "MAXPV [256]" The maximum number of parameters to any mailer. This limits the number of recipients that may be passed in one transaction. It can be set to any arbitrary number above about 10, since .i sendmail will break up a delivery into smaller batches as needed. A higher number may reduce load on your system, however. .ip "MAXQUEUEGROUPS [50]" The maximum number of queue groups. .ip "MAXATOM [1000]" The maximum number of atoms (tokens) in a single address. For example, the address .q "eric@CS.Berkeley.EDU" is seven atoms. .ip "MAXMAILERS [25]" The maximum number of mailers that may be defined in the configuration file. This value is defined in include/sendmail/sendmail.h. .ip "MAXRWSETS [200]" The maximum number of rewriting sets that may be defined. The first half of these are reserved for numeric specification (e.g., ``S92''), while the upper half are reserved for auto-numbering (e.g., ``Sfoo''). Thus, with a value of 200 an attempt to use ``S99'' will succeed, but ``S100'' will fail. .ip "MAXPRIORITIES [25]" The maximum number of values for the .q Precedence: field that may be defined (using the .b P line in sendmail.cf). .ip "MAXUSERENVIRON [100]" The maximum number of items in the user environment that will be passed to subordinate mailers. .ip "MAXMXHOSTS [100]" The maximum number of MX records we will accept for any single host. .ip "MAXMAPSTACK [12]" The maximum number of maps that may be "stacked" in a .b sequence class map. .ip "MAXMIMEARGS [20]" The maximum number of arguments in a MIME Content-Type: header; additional arguments will be ignored. .ip "MAXMIMENESTING [20]" The maximum depth to which MIME messages may be nested (that is, nested Message or Multipart documents; this does not limit the number of components in a single Multipart document). .ip "MAXDAEMONS [10]" The maximum number of sockets sendmail will open for accepting connections on different ports. .ip "MAXMACNAMELEN [25]" The maximum length of a macro name. .lp A number of other compilation options exist. These specify whether or not specific code should be compiled in. Ones marked with \(dg are 0/1 valued. .nr ii 1.2i .ip NETINET\(dg If set, support for Internet protocol networking is compiled in. Previous versions of .i sendmail referred to this as .sm DAEMON ; this old usage is now incorrect. Defaults on; turn it off in the Makefile if your system doesn't support the Internet protocols. .ip NETINET6\(dg If set, support for IPv6 networking is compiled in. It must be separately enabled by adding .b DaemonPortOptions settings. .ip NETISO\(dg If set, support for ISO protocol networking is compiled in (it may be appropriate to #define this in the Makefile instead of conf.h). .ip NETUNIX\(dg If set, support for UNIX domain sockets is compiled in. This is used for control socket support. .ip LOG If set, the .i syslog routine in use at some sites is used. This makes an informational log record for each message processed, and makes a higher priority log record for internal system errors. .b "STRONGLY RECOMMENDED" \(em if you want no logging, turn it off in the configuration file. .ip MATCHGECOS\(dg Compile in the code to do ``fuzzy matching'' on the GECOS field in /etc/passwd. This also requires that the .b MatchGECOS option be turned on. .ip NAMED_BIND\(dg Compile in code to use the Berkeley Internet Name Domain (BIND) server to resolve TCP/IP host names. .ip NOTUNIX If you are using a non-UNIX mail format, you can set this flag to turn off special processing of UNIX-style .q "From " lines. .ip USERDB\(dg Include the .b experimental Berkeley user information database package. This adds a new level of local name expansion between aliasing and forwarding. It also uses the NEWDB package. This may change in future releases. .lp The following options are normally turned on in per-operating-system clauses in conf.h. .ip IDENTPROTO\(dg Compile in the IDENT protocol as defined in RFC 1413. This defaults on for all systems except Ultrix, which apparently has the interesting .q feature that when it receives a .q "host unreachable" message it closes all open connections to that host. Since some firewall gateways send this error code when you access an unauthorized port (such as 113, used by IDENT), Ultrix cannot receive email from such hosts. .ip SYSTEM5 Set all of the compilation parameters appropriate for System V. .ip HASFLOCK\(dg Use Berkeley-style .b flock instead of System V .b lockf to do file locking. Due to the highly unusual semantics of locks across forks in .b lockf , this should always be used if at all possible. .ip HASINITGROUPS Set this if your system has the .i initgroups() call (if you have multiple group support). This is the default if SYSTEM5 is .i not defined or if you are on HPUX. .ip HASUNAME Set this if you have the .i uname (2) system call (or corresponding library routine). Set by default if SYSTEM5 is set. .ip HASGETDTABLESIZE Set this if you have the .i getdtablesize (2) system call. .ip HASWAITPID Set this if you have the .i haswaitpid (2) system call. .ip FAST_PID_RECYCLE Set this if your system can possibly reuse the same pid in the same second of time. .ip SFS_TYPE The mechanism that can be used to get file system capacity information. The values can be one of SFS_USTAT (use the ustat(2) syscall), SFS_4ARGS (use the four argument statfs(2) syscall), SFS_VFS (use the two argument statfs(2) syscall including ), SFS_MOUNT (use the two argument statfs(2) syscall including ), SFS_STATFS (use the two argument statfs(2) syscall including ), SFS_STATVFS (use the two argument statfs(2) syscall including ), or SFS_NONE (no way to get this information). .ip LA_TYPE The load average type. Details are described below. .lp The are several built-in ways of computing the load average. .i Sendmail tries to auto-configure them based on imperfect guesses; you can select one using the .i cc option .b \-DLA_TYPE= \c .i type , where .i type is: .ip LA_INT The kernel stores the load average in the kernel as an array of long integers. The actual values are scaled by a factor FSCALE (default 256). .ip LA_SHORT The kernel stores the load average in the kernel as an array of short integers. The actual values are scaled by a factor FSCALE (default 256). .ip LA_FLOAT The kernel stores the load average in the kernel as an array of double precision floats. .ip LA_MACH Use MACH-style load averages. .ip LA_SUBR Call the .i getloadavg routine to get the load average as an array of doubles. .ip LA_ZERO Always return zero as the load average. This is the fallback case. .lp If type .sm LA_INT , .sm LA_SHORT , or .sm LA_FLOAT is specified, you may also need to specify .sm _PATH_UNIX (the path to your system binary) and .sm LA_AVENRUN (the name of the variable containing the load average in the kernel; usually .q _avenrun or .q avenrun ). .sh 2 "Configuration in sendmail/conf.c" .pp The following changes can be made in conf.c. .sh 3 "Built-in Header Semantics" .pp Not all header semantics are defined in the configuration file. Header lines that should only be included by certain mailers (as well as other more obscure semantics) must be specified in the .i HdrInfo table in .i conf.c . This table contains the header name (which should be in all lower case) and a set of header control flags (described below), The flags are: .ip H_ACHECK Normally when the check is made to see if a header line is compatible with a mailer, .i sendmail will not delete an existing line. If this flag is set, .i sendmail will delete even existing header lines. That is, if this bit is set and the mailer does not have flag bits set that intersect with the required mailer flags in the header definition in sendmail.cf, the header line is .i always deleted. .ip H_EOH If this header field is set, treat it like a blank line, i.e., it will signal the end of the header and the beginning of the message text. .ip H_FORCE Add this header entry even if one existed in the message before. If a header entry does not have this bit set, .i sendmail will not add another header line if a header line of this name already existed. This would normally be used to stamp the message by everyone who handled it. .ip H_TRACE If set, this is a timestamp (trace) field. If the number of trace fields in a message exceeds a preset amount the message is returned on the assumption that it has an aliasing loop. .ip H_RCPT If set, this field contains recipient addresses. This is used by the .b \-t flag to determine who to send to when it is collecting recipients from the message. .ip H_FROM This flag indicates that this field specifies a sender. The order of these fields in the .i HdrInfo table specifies .i sendmail 's preference for which field to return error messages to. .ip H_ERRORSTO Addresses in this header should receive error messages. .ip H_CTE This header is a Content-Transfer-Encoding header. .ip H_CTYPE This header is a Content-Type header. .ip H_BCC Strip the value from the header (for Bcc:). .nr ii 5n .lp Let's look at a sample .i HdrInfo specification: .(b .ta 4n +\w'"content-transfer-encoding", 'u struct hdrinfo HdrInfo[] = \&{ /* originator fields, most to least significant */ "resent-sender", H_FROM, "resent-from", H_FROM, "sender", H_FROM, "from", H_FROM, "full-name", H_ACHECK, "errors-to", H_FROM\^|\^H_ERRORSTO, /* destination fields */ "to", H_RCPT, "resent-to", H_RCPT, "cc", H_RCPT, "bcc", H_RCPT\^|\^H_BCC, /* message identification and control */ "message", H_EOH, "text", H_EOH, /* trace fields */ "received", H_TRACE\^|\^H_FORCE, /* miscellaneous fields */ "content-transfer-encoding", H_CTE, "content-type", H_CTYPE, NULL, 0, }; .)b This structure indicates that the .q To: , .q Resent-To: , and .q Cc: fields all specify recipient addresses. Any .q Full-Name: field will be deleted unless the required mailer flag (indicated in the configuration file) is specified. The .q Message: and .q Text: fields will terminate the header; these are used by random dissenters around the network world. The .q Received: field will always be added, and can be used to trace messages. .pp There are a number of important points here. First, header fields are not added automatically just because they are in the .i HdrInfo structure; they must be specified in the configuration file in order to be added to the message. Any header fields mentioned in the configuration file but not mentioned in the .i HdrInfo structure have default processing performed; that is, they are added unless they were in the message already. Second, the .i HdrInfo structure only specifies cliched processing; certain headers are processed specially by ad hoc code regardless of the status specified in .i HdrInfo . For example, the .q Sender: and .q From: fields are always scanned on ARPANET mail to determine the sender\**; .(f \**Actually, this is no longer true in SMTP; this information is contained in the envelope. The older ARPANET protocols did not completely distinguish envelope from header. .)f this is used to perform the .q "return to sender" function. The .q "From:" and .q "Full-Name:" fields are used to determine the full name of the sender if possible; this is stored in the macro .b $x and used in a number of ways. .sh 3 "Restricting Use of Email" .pp If it is necessary to restrict mail through a relay, the .i checkcompat routine can be modified. This routine is called for every recipient address. It returns an exit status indicating the status of the message. The status .sm EX_OK accepts the address, .sm EX_TEMPFAIL queues the message for a later try, and other values (commonly .sm EX_UNAVAILABLE ) reject the message. It is up to .i checkcompat to print an error message (using .i usrerr ) if the message is rejected. For example, .i checkcompat could read: .(b .re .sz -1 .ta 4n +4n +4n +4n +4n +4n +4n int checkcompat(to, e) register ADDRESS *to; register ENVELOPE *e; \&{ register STAB *s; s = stab("private", ST_MAILER, ST_FIND); if (s != NULL && e\->e_from.q_mailer != LocalMailer && to->q_mailer == s->s_mailer) { usrerr("No private net mail allowed through this machine"); return (EX_UNAVAILABLE); } if (MsgSize > 50000 && bitnset(M_LOCALMAILER, to\->q_mailer)) { usrerr("Message too large for non-local delivery"); e\->e_flags |= EF_NORETURN; return (EX_UNAVAILABLE); } return (EX_OK); } .sz .)b This would reject messages greater than 50000 bytes unless they were local. The .i EF_NORETURN flag can be set in .i e\(->e_flags to suppress the return of the actual body of the message in the error return. The actual use of this routine is highly dependent on the implementation, and use should be limited. .sh 3 "New Database Map Classes" .pp New key maps can be added by creating a class initialization function and a lookup function. These are then added to the routine .i setupmaps. .pp The initialization function is called as .(b \fIxxx\fP_map_init(MAP *map, char *args) .)b The .i map is an internal data structure. The .i args is a pointer to the portion of the configuration file line following the map class name; flags and filenames can be extracted from this line. The initialization function must return .sm true if it successfully opened the map, .sm false otherwise. .pp The lookup function is called as .(b \fIxxx\fP_map_lookup(MAP *map, char buf[], char **av, int *statp) .)b The .i map defines the map internally. The .i buf has the input key. This may be (and often is) used destructively. The .i av is a list of arguments passed in from the rewrite line. The lookup function should return a pointer to the new value. If the map lookup fails, .i *statp should be set to an exit status code; in particular, it should be set to .sm EX_TEMPFAIL if recovery is to be attempted by the higher level code. .sh 3 "Queueing Function" .pp The routine .i shouldqueue is called to decide if a message should be queued or processed immediately. Typically this compares the message priority to the current load average. The default definition is: .(b bool shouldqueue(pri, ctime) long pri; time_t ctime; { if (CurrentLA < QueueLA) return false; return (pri > (QueueFactor / (CurrentLA \- QueueLA + 1))); } .)b If the current load average (global variable .i CurrentLA , which is set before this function is called) is less than the low threshold load average (option .b x , variable .i QueueLA ), .i shouldqueue returns .sm false immediately (that is, it should .i not queue). If the current load average exceeds the high threshold load average (option .b X , variable .i RefuseLA ), .i shouldqueue returns .sm true immediately. Otherwise, it computes the function based on the message priority, the queue factor (option .b q , global variable .i QueueFactor ), and the current and threshold load averages. .pp An implementation wishing to take the actual age of the message into account can also use the .i ctime parameter, which is the time that the message was first submitted to .i sendmail . Note that the .i pri parameter is already weighted by the number of times the message has been tried (although this tends to lower the priority of the message with time); the expectation is that the .i ctime would be used as an .q "escape clause" to ensure that messages are eventually processed. .sh 3 "Refusing Incoming SMTP Connections" .pp The function .i refuseconnections returns .sm true if incoming SMTP connections should be refused. The current implementation is based exclusively on the current load average and the refuse load average option (option .b X , global variable .i RefuseLA ): .(b bool refuseconnections() { return (RefuseLA > 0 && CurrentLA >= RefuseLA); } .)b A more clever implementation could look at more system resources. .sh 3 "Load Average Computation" .pp The routine .i getla returns the current load average (as a rounded integer). The distribution includes several possible implementations. If you are porting to a new environment you may need to add some new tweaks.\** .(f \**If you do, please send updates to sendmail@Sendmail.ORG. .)f .sh 2 "Configuration in sendmail/daemon.c" .pp The file .i sendmail/daemon.c contains a number of routines that are dependent on the local networking environment. The version supplied assumes you have BSD style sockets. .pp In previous releases, we recommended that you modify the routine .i maphostname if you wanted to generalize .b $[ \&...\& .b $] lookups. We now recommend that you create a new keyed map instead. .sh 2 "LDAP" .pp In this section we assume that .i sendmail has been compiled with support for LDAP. .sh 3 "LDAP Recursion" .pp LDAP Recursion allows you to add types to the search attributes on an LDAP map specification. The syntax is: .ip "\-v \fIATTRIBUTE\fP[:\fITYPE\fP[:\fIOBJECTCLASS\fP[|\fIOBJECTCLASS\fP|...]]] .pp The new \fITYPE\fPs are: .nr ii 1i .ip NORMAL This attribute type specifies the attribute to add to the results string. This is the default. .ip DN Any matches for this attribute are expected to have a value of a fully qualified distinguished name. .i sendmail will lookup that DN and apply the attributes requested to the returned DN record. .ip FILTER Any matches for this attribute are expected to have a value of an LDAP search filter. .i sendmail will perform a lookup with the same parameters as the original search but replaces the search filter with the one specified here. .ip URL Any matches for this attribute are expected to have a value of an LDAP URL. .i sendmail will perform a lookup of that URL and use the results from the attributes named in that URL. Note however that the search is done using the current LDAP connection, regardless of what is specified as the scheme, LDAP host, and LDAP port in the LDAP URL. .lp Any untyped attributes are considered .sm NORMAL attributes as described above. .pp The optional \fIOBJECTCLASS\fP (| separated) list contains the objectClass values for which that attribute applies. If the list is given, the attribute named will only be used if the LDAP record being returned is a member of that object class. Note that if these new value attribute \fITYPE\fPs are used in an AliasFile option setting, it will need to be double quoted to prevent .i sendmail from misparsing the colons. .pp Note that LDAP recursion attributes which do not ultimately point to an LDAP record are not considered an error. .sh 4 "Example" .pp Since examples usually help clarify, here is an example which uses all four of the new types: .(b O LDAPDefaultSpec=-h ldap.example.com -b dc=example,dc=com Kexample ldap -z, -k (&(objectClass=sendmailMTAAliasObject)(sendmailMTAKey=%0)) -v sendmailMTAAliasValue,mail:NORMAL:inetOrgPerson, uniqueMember:DN:groupOfUniqueNames, sendmailMTAAliasSearch:FILTER:sendmailMTAAliasObject, sendmailMTAAliasURL:URL:sendmailMTAAliasObject .)b .pp That definition specifies that: .bu Any value in a .sm sendmailMTAAliasValue attribute will be added to the result string regardless of object class. .bu The .sm mail attribute will be added to the result string if the LDAP record is a member of the .sm inetOrgPerson object class. .bu The .sm uniqueMember attribute is a recursive attribute, used only in .sm groupOfUniqueNames records, and should contain an LDAP DN pointing to another LDAP record. The desire here is to return the .sm mail attribute from those DNs. .bu The .sm sendmailMTAAliasSearch attribute and .sm sendmailMTAAliasURL are both used only if referenced in a .sm sendmailMTAAliasObject . They are both recursive, the first for a new LDAP search string and the latter for an LDAP URL. .sh 2 "STARTTLS" .pp In this section we assume that .i sendmail has been compiled with support for STARTTLS. To properly understand the use of STARTTLS in .i sendmail , it is necessary to understand at least some basics about X.509 certificates and public key cryptography. This information can be found in books about SSL/TLS or on WWW sites, e.g., .q https://www.OpenSSL.org/ . .sh 3 "Certificates for STARTTLS" .pp When acting as a server, .i sendmail requires X.509 certificates to support STARTTLS: one as certificate for the server (ServerCertFile and corresponding private ServerKeyFile) at least one root CA (CACertFile), i.e., a certificate that is used to sign other certificates, and a path to a directory which contains (zero or more) other CAs (CACertPath). The file specified via CACertFile can contain several certificates of CAs. The DNs of these certificates are sent to the client during the TLS handshake (as part of the CertificateRequest) as the list of acceptable CAs. However, do not list too many root CAs in that file, otherwise the TLS handshake may fail; e.g., .(b error:14094417:SSL routines:SSL3_READ_BYTES: sslv3 alert illegal parameter:s3_pkt.c:964:SSL alert number 47 .)b You should probably put only the CA cert into that file that signed your own cert(s), or at least only those you trust. The CACertPath directory must contain the hashes of each CA certificate as filenames (or as links to them). Symbolic links can be generated with the following two (Bourne) shell commands: .(b C=FileName_of_CA_Certificate ln -s $C `openssl x509 -noout -hash < $C`.0 .)b A better way to do this is to use the .b c_rehash command that is part of the OpenSSL distribution because it handles subject hash collisions by incrementing the number in the suffix of the filename of the symbolic link, e.g., .b \&.0 to .b \&.1 , and so on. An X.509 certificate is also required for authentication in client mode (ClientCertFile and corresponding private ClientKeyFile), however, .i sendmail will always use STARTTLS when offered by a server. The client and server certificates can be identical. Certificates can be obtained from a certificate authority or created with the help of OpenSSL. The required format for certificates and private keys is PEM. To allow for automatic startup of sendmail, private keys (ServerKeyFile, ClientKeyFile) must be stored unencrypted. The keys are only protected by the permissions of the file system. Never make a private key available to a third party. .pp The options .i ClientCertFile , .i ClientKeyFile , .i ServerCertFile , and .i ServerKeyFile can take a second file name, which must be separated from the first with a comma (note: do not use any spaces) to set up a second cert/key pair. This can be used to have certs of different types, e.g., RSA and DSA. .sh 3 "PRNG for STARTTLS" .pp STARTTLS requires a strong pseudo random number generator (PRNG) to operate properly. Depending on the TLS library you use, it may be required to explicitly initialize the PRNG with random data. OpenSSL makes use of .b /dev/urandom(4) if available (this corresponds to the compile flag HASURANDOMDEV). On systems which lack this support, a random file must be specified in the .i sendmail.cf file using the option RandFile. It is .b strongly advised to use the "Entropy Gathering Daemon" EGD from Brian Warner on those systems to provide useful random data. In this case, .i sendmail must be compiled with the flag EGD, and the RandFile option must point to the EGD socket. If neither .b /dev/urandom(4) nor EGD are available, you have to make sure that useful random data is available all the time in RandFile. If the file hasn't been modified in the last 10 minutes before it is supposed to be used by .i sendmail the content is considered obsolete. One method for generating this file is: .(b openssl rand -out /etc/mail/randfile -rand \c .i /path/to/file:... \c 256 .)b See the OpenSSL documentation for more information. In this case, the PRNG for TLS is only seeded with other random data if the .b DontBlameSendmail option .b InsufficientEntropy is set. This is most likely not sufficient for certain actions, e.g., generation of (temporary) keys. .pp Please see the OpenSSL documentation or other sources for further information about certificates, their creation and their usage, the importance of a good PRNG, and other aspects of TLS. .sh 2 "Encoding of STARTTLS and AUTH related Macros" .pp Macros that contain STARTTLS and AUTH related data which comes from outside sources, e.g., all macros containing information from certificates, are encoded to avoid problems with non-printable or special characters. The latter are '\\', '<', '>', '(', ')', '"', '+', and ' '. All of these characters are replaced by their value in hexadecimal with a leading '+'. For example: .(b /C=US/ST=California/O=endmail.org/OU=private/CN=Darth Mail (Cert)/ Email=darth+cert@endmail.org .)b is encoded as: .(b /C=US/ST=California/O=endmail.org/OU=private/ CN=Darth+20Mail+20+28Cert+29/Email=darth+2Bcert@endmail.org .)b (line breaks have been inserted for readability). The macros which are subject to this encoding are {cert_subject}, {cert_issuer}, {cn_subject}, {cn_issuer}, as well as {auth_authen} and {auth_author}. .sh 2 "DANE" .pp Support for DANE (see RFC 7672 et.al.) is available if .i sendmail is compiled with the option .b DANE . If OpenSSL 1.1.1 or at least 3.0.0 are used, then full DANE support for DANE-EE and DANE-TA (as required by RFC 7672) is available via the functions provided by those OpenSSL versions (run .(b sendmail -bt -d0.3 < /dev/null .)b and check that HAVE_SSL_CTX_dane_enable is in the output), otherwise support for TLSA RR 3-1-x is implemented directly in .i sendmail . Note: if OpenSSL functions related to DANE cause a failure, then the macro .b ${verify} is set to .b DANE_TEMP . This also applies if TLS cannot be initialized at all. The option .(b O DANE=true .)b enables this feature at run time and it automatically adds .b use_dnssec and .b use_edns0 to .(b O ResolverOptions .)b This requires a DNSSEC-validating recursive resolver which supports those options. The resolver must be reachable via a trusted connection, hence it is best to run it locally. If the client finds a usable TLSA RR and the check succeeds the macro .b ${verify} is set to .b TRUSTED . All non-DNS maps are considered .i secure just like DNS lookups with DNSSEC. Be aware that TLSA RRs are not looked up for some features, e.g., .i FallBackSmartHost . .sh 2 "EAI" .pp Experimental support for SMTPUTF8 (EAI, see RFC 6530-6533) is available when the compile time option .b USE_EAI, (see also .i devtools/Site/site.config.m4.sample for other settings that might be needed), and the cf option .i SMTPUTF8 are used. This allows the use of UTF-8 for envelope addresses as well as the entire message. DNS lookups are done using the A-label format (Punycode) as required by the RFCs. For all other interactions with external programs and maps, the actual value are used, i.e., no conversions between UTF-8 and ASCII encodings are made. This applies to .\" how to make a list? .\" .(l the keys in map lookups, which might require to specify both versions in a map; the data exchanged with a milter, i.e., each milter must be "8 bit clean"; mail delivery agents which must be able to handle 8 bit addresses. .\" .)l Some values must be ASCII as those are used before SMTPUTF8 support can be requested, e.g., the macros .b $j and .b $m. Please test and provide feedback. .sh 2 "MTA-STS" .pp Experimental support for SMTP MTA Strict Transport Security (MTA-STS, see RFC 8461) is available when using the compile time option _FFR_MTA_STS (as well as some others, e.g., _FFR_TLS_ALTNAMES and obviously STARTTLS), .\"(which requires in a default setting .\"MAP_REGEX, SOCKETMAP, _FFR_TLS_ALTNAMES, and obviously STARTTLS), FEATURE(sts) (which implicitly sets the cf option StrictTransportSecurity), and postfix-mta-sts-resolver (see https://github.com/Snawoot/postfix-mta-sts-resolver.git). .pp Note: this implementation uses a socket map to communicate with postfix-mta-sts-resolver and handles only the values returned by that program, which might not fully implement MTA-STS. .pp If both DANE and MTA-STS are enabled and available for the receiving domain, DANE is used because it offers a much higher level of security. .sh 1 "ACKNOWLEDGEMENTS" .pp I've worked on .i sendmail for many years, and many employers have been remarkably patient about letting me work on a large project that was not part of my official job. This includes time on the INGRES Project at the University of California at Berkeley, at Britton Lee, and again on the Mammoth and Titan Projects at Berkeley. .pp Much of the second wave of improvements resulting in version 8.1 should be credited to Bryan Costales of the International Computer Science Institute. As he passed me drafts of his book on .i sendmail I was inspired to start working on things again. Bryan was also available to bounce ideas off of. .pp Gregory Neil Shapiro of Worcester Polytechnic Institute has become instrumental in all phases of .i sendmail support and development, and was largely responsible for getting versions 8.8 and 8.9 out the door. .pp Many, many people contributed chunks of code and ideas to .i sendmail . It has proven to be a group network effort. Version 8 in particular was a group project. The following people and organizations made notable contributions: .(l Claus Assmann John Beck, Hewlett-Packard & Sun Microsystems Keith Bostic, CSRG, University of California, Berkeley Andrew Cheng, Sun Microsystems Michael J. Corrigan, University of California, San Diego Bryan Costales, International Computer Science Institute & InfoBeat Pa\*:r (Pell) Emanuelsson Craig Everhart, Transarc Corporation Per Hedeland, Ericsson Tom Ivar Helbekkmo, Norwegian School of Economics Kari Hurtta, Finnish Meteorological Institute Allan E. Johannesen, WPI Jonathan Kamens, OpenVision Technologies, Inc. Takahiro Kanbe, Fuji Xerox Information Systems Co., Ltd. Brian Kantor, University of California, San Diego John Kennedy, Cal State University, Chico Murray S. Kucherawy, HookUp Communication Corp. Bruce Lilly, Sony U.S. Karl London Motonori Nakamura, Ritsumeikan University & Kyoto University John Gardiner Myers, Carnegie Mellon University Neil Rickert, Northern Illinois University Gregory Neil Shapiro, WPI Eric Schnoebelen, Convex Computer Corp. Eric Wassenaar, National Institute for Nuclear and High Energy Physics, Amsterdam Randall Winchester, University of Maryland Christophe Wolfhugel, Pasteur Institute & Herve Schauer Consultants (Paris) Exactis.com, Inc. .)l I apologize for anyone I have omitted, misspelled, misattributed, or otherwise missed. At this point, I suspect that at least a hundred people have contributed code, and many more have contributed ideas, comments, and encouragement. I've tried to list them in the RELEASE_NOTES in the distribution directory. I appreciate their contribution as well. .pp Special thanks are reserved for Michael Corrigan and Christophe Wolfhugel, who besides being wonderful guinea pigs and contributors have also consented to be added to the ``sendmail@Sendmail.ORG'' list and, by answering the bulk of the questions sent to that list, have freed me up to do other work. .++ A .+c "COMMAND LINE FLAGS" .ba 0 .nr ii 1i .pp Arguments must be presented with flags before addresses. The flags are: .ip \-A\fIx\fP Select an alternative .cf file which is either .i sendmail.cf for .b \-Am or .i submit.cf for .b \-Ac . By default the .cf file is chosen based on the operation mode. For .b -bm (default), .b -bs , and .b -t it is .i submit.cf if it exists, for all others it is .i sendmail.cf . .ip \-b\fIx\fP Set operation mode to .i x . Operation modes are: .(b .ta 4n m Deliver mail (default) s Speak SMTP on input side a\(dg ``Arpanet'' mode (get envelope sender information from header) C Check the configuration file d Run as a daemon in background D Run as a daemon in foreground t Run in test mode v Just verify addresses, don't collect or deliver i Initialize the alias database p Print the mail queue P Print overview over the mail queue (requires shared memory) h Print the persistent host status database H Purge expired entries from the persistent host status database .)b .(f \(dgDeprecated. .)f .ip \-B\fItype\fP Indicate body type. .ip \-C\fIfile\fP Use a different configuration file. .i Sendmail runs as the invoking user (rather than root) when this flag is specified. .ip "\-D \fIlogfile\fP" Send debugging output to the indicated .i logfile instead of stdout. .ip \-d\fIlevel\fP Set debugging level. .ip "\-f\ \fIaddr\fP" The envelope sender address is set to .i addr . This address may also be used in the From: header if that header is missing during initial submission. The envelope sender address is used as the recipient for delivery status notifications and may also appear in a Return-Path: header. .ip \-F\ \fIname\fP Sets the full name of this user to .i name . .ip \-G When accepting messages via the command line, indicate that they are for relay (gateway) submission. sendmail may complain about syntactically invalid messages, e.g., unqualified host names, rather than fixing them when this flag is set. sendmail will not do any canonicalization in this mode. .ip "\-h\ \fIcnt\fP" Sets the .q "hop count" to .i cnt . This represents the number of times this message has been processed by .i sendmail (to the extent that it is supported by the underlying networks). .i Cnt is incremented during processing, and if it reaches MAXHOP (currently 25) .i sendmail throws away the message with an error. .ip "\-L \fItag\fP" Sets the identifier used for syslog. Note that this identifier is set as early as possible. However, .i sendmail may be used if problems arise before the command line arguments are processed. .ip \-n Don't do aliasing or forwarding. .ip "\-N \fInotifications\fP" Tag all addresses being sent as wanting the indicated .i notifications , which consists of the word .q NEVER or a comma-separated list of .q SUCCESS , .q FAILURE , and .q DELAY for successful delivery, failure, and a message that is stuck in a queue somewhere. The default is .q FAILURE,DELAY . .ip "\-r\ \fIaddr\fP" An obsolete form of .b \-f . .ip \-o\fIx\|value\fP Set option .i x to the specified .i value . These options are described in Section 5.6. .ip \-O\fIoption\fP\fB=\fP\fIvalue\fP Set .i option to the specified .i value (for long form option names). These options are described in Section 5.6. .ip \-M\fIx\|value\fP Set macro .i x to the specified .i value . .ip \-p\fIprotocol\fP Set the sending protocol. Programs are encouraged to set this. The protocol field can be in the form .i protocol \c .b : \c .i host to set both the sending protocol and sending host. For example, .q \-pUUCP:uunet sets the sending protocol to UUCP and the sending host to uunet. (Some existing programs use \-oM to set the r and s macros; this is equivalent to using \-p.) .ip \-q\fItime\fP Try to process the queued up mail. If the time is given, .i sendmail will start one or more processes to run through the queue(s) at the specified time interval to deliver queued mail; otherwise, it only runs once. Each of these processes acts on a workgroup. These processes are also known as workgroup processes or WGP's for short. Each workgroup is responsible for controlling the processing of one or more queues; workgroups help manage the use of system resources by sendmail. Each workgroup may have one or more children concurrently processing queues depending on the setting of \fIMaxQueueChildren\fP. .ip \-qp\fItime\fP Similar to \-q with a time argument, except that instead of periodically starting WGP's sendmail starts persistent WGP's that alternate between processing queues and sleeping. The sleep time is specified by the time argument; it defaults to 1 second, except that a WGP always sleeps at least 5 seconds if their queues were empty in the previous run. Persistent processes are managed by a queue control process (QCP). The QCP is the parent process of the WGP's. Typically the QCP will be the sendmail daemon (when started with \-bd or \-bD) or a special process (named Queue control) (when started without \-bd or \-bD). If a persistent WGP ceases to be active for some reason another WGP will be started by the QCP for the same workgroup in most cases. When a persistent WGP has core dumped, the debug flag \fIno_persistent_restart\fP is set or the specific persistent WGP has been restarted too many times already then the WGP will not be started again and a message will be logged to this effect. To stop (SIGTERM) or restart (SIGHUP) persistent WGP's the appropriate signal should be sent to the QCP. The QCP will propagate the signal to all of the WGP's and if appropriate restart the persistent WGP's. .ip \-q\fIGname\fP Run the jobs in the queue group .i name once. .ip \-q[!]\fIXstring\fP Run the queue once, limiting the jobs to those matching .i Xstring . The key letter .i X can be .b I to limit based on queue identifier, .b R to limit based on recipient, .b S to limit based on sender, or .b Q to limit based on quarantine reason for quarantined jobs. A particular queued job is accepted if one of the corresponding attributes contains the indicated .i string . The optional ! character negates the condition tested. Multiple .i \-q\fIX\fP flags are permitted, with items with the same key letter .q or'ed together, and items with different key letters .q and'ed together. .ip "\-Q[reason]" Quarantine normal queue items with the given reason or unquarantine quarantined queue items if no reason is given. This should only be used with some sort of item matching using .b \-q[!]\fIXstring\fP as described above. .ip "\-R ret" What information you want returned if the message bounces; .i ret can be .q HDRS for headers only or .q FULL for headers plus body. This is a request only; the other end is not required to honor the parameter. If .q HDRS is specified local bounces also return only the headers. .ip \-t Read the header for .q To: , .q Cc: , and .q Bcc: lines, and send to everyone listed in those lists. The .q Bcc: line will be deleted before sending. Any addresses in the argument vector will be deleted from the send list. .ip \-U This option is required when sending mail using UTF-8; it sets the .q SMTPUTF8 argument for .q MAIL command. Only available if .q EAI support is enabled, and the .q SMTPUTF8 option is set. .ip "\-V envid" The indicated .i envid is passed with the envelope of the message and returned if the message bounces. .ip "\-X \fIlogfile\fP" Log all traffic in and out of .i sendmail in the indicated .i logfile for debugging mailer problems. This produces a lot of data very quickly and should be used sparingly. .pp There are a number of options that may be specified as primitive flags. These are the e, i, m, and v options. Also, the f option may be specified as the .b \-s flag. The DSN related options .q "\-N" , .q "\-R" , and .q "\-V" have no effects on .i sendmail running as daemon. .+c "QUEUE FILE FORMATS" .pp This appendix describes the format of the queue files. These files live in a queue directory. The individual qf, hf, Qf, df, and xf files may be stored in separate .i qf/ , .i df/ , and .i xf/ subdirectories if they are present in the queue directory. .pp All queue files have the name .i ttYMDhmsNNppppp where .i YMDhmsNNppppp is the .i id for this message and the .i tt is a type. The individual letters in the .i id are: .nr ii 0.5i .ip Y Encoded year .ip M Encoded month .ip D Encoded day .ip h Encoded hour .ip m Encoded minute .ip s Encoded second .ip NN Encoded envelope number .ip ppppp At least five decimal digits of the process ID .pp All files with the same id collectively define one message. Due to the use of memory-buffered files, some of these files may never appear on disk. .pp The types are: .nr ii 0.5i .ip qf The queue control file. This file contains the information necessary to process the job. .ip hf The same as a queue control file, but for a quarantined queue job. .ip df The data file. The message body (excluding the header) is kept in this file. Sometimes the df file is not stored in the same directory as the qf file; in this case, the qf file contains a `d' record which names the queue directory that contains the df file. .ip tf A temporary file. This is an image of the .b qf file when it is being rebuilt. It should be renamed to a .b qf file very quickly. .ip xf A transcript file, existing during the life of a session showing everything that happens during that session. Sometimes the xf file must be generated before a queue group has been selected; in this case, the xf file will be stored in a directory of the default queue group. .ip Qf A ``lost'' queue control file. .i sendmail renames a .b qf file to .b Qf if there is a severe (configuration) problem that cannot be solved without human intervention. Search the logfile for the queue file id to figure out what happened. After you resolved the problem, you can rename the .b Qf file to .b qf and send it again. .pp The queue control file is structured as a series of lines each beginning with a code letter; the file must end with a line containing only a single dot. The lines are as follows: .ip V The version number of the queue file format, used to allow new .i sendmail binaries to read queue files created by older versions. Defaults to version zero. Must be the first line of the file if present. For 8.13 and later the version number is 8. .ip A The information given by the AUTH= parameter of the .sm "SMTP MAIL" command or $f@$j if sendmail has been called directly. .ip H A header definition. There may be any number of these lines. The order is important: they represent the order in the final message. These use the same syntax as header definitions in the configuration file. .ip C The controlling address. The syntax is .q localuser:aliasname . Recipient addresses following this line will be flagged so that deliveries will be run as the .i localuser (a user name from the /etc/passwd file); .i aliasname is the name of the alias that expanded to this address (used for printing messages). .ip q The quarantine reason for quarantined queue items. .ip Q The ``original recipient'', specified by the ORCPT= field in an ESMTP transaction. Used exclusively for Delivery Status Notifications. It applies only to the following `R' line. .ip r The ``final recipient'' used for Delivery Status Notifications. It applies only to the following `R' line. .ip R A recipient address. This will normally be completely aliased, but is actually realiased when the job is processed. There will be one line for each recipient. Version 1 qf files also include a leading colon-terminated list of flags, some of which are `S' to return a message on successful final delivery, `F' to return a message on failure, `D' to return a message if the message is delayed, `N' to suppress returning the body, and `P' to declare this as a ``primary'' (command line or SMTP-session) address. .ip S The sender address. There may only be one of these lines. .ip T The job creation time. This is used to compute when to time out the job. .ip P The current message priority. This is used to order the queue. Higher numbers mean lower priorities. The priority changes as the message sits in the queue. The initial priority depends on the message class and the size of the message. .ip M A message. This line is printed by the .i mailq command, and is generally used to store status information. It can contain any text. .ip F Flag bits, represented as one letter per flag. Defined flag bits are .b r indicating that this is a response message and .b w indicating that a warning message has been sent announcing that the mail has been delayed. Other flag bits are: .b 8 : the body contains 8bit data, .b b : a Bcc: header should be removed, .b d : the mail has RET parameters (see RFC 1894), .b n : the body of the message should not be returned in case of an error, .b s : the envelope has been split. .ip N The total number of delivery attempts. .ip K The time (as seconds since January 1, 1970) of the last delivery attempt. .ip d If the df file is in a different directory than the qf file, then a `d' record is present, specifying the directory in which the df file resides. .ip I The i-number of the data file; this can be used to recover your mail queue after a disastrous disk crash. .ip $ A macro definition. The values of certain macros are passed through to the queue run phase. .ip B The body type. The remainder of the line is a text string defining the body type. If this field is missing, the body type is assumed to be .q "undefined" and no special processing is attempted. Legal values are .q 7BIT and .q 8BITMIME . .ip Z The original envelope id (from the ESMTP transaction). For Deliver Status Notifications only. .ip ! Information for Deliver-By SMTP extension. .pp As an example, the following is a queue file sent to .q eric@mammoth.Berkeley.EDU and .q bostic@okeeffe.CS.Berkeley.EDU \**: .(f \**This example is contrived and probably inaccurate for your environment. Glance over it to get an idea; nothing can replace looking at what your own system generates. .)f .(b V4 T711358135 K904446490 N0 P2100941 $_eric@localhost ${daemon_flags} Seric Ceric:100:1000:sendmail@vangogh.CS.Berkeley.EDU RPFD:eric@mammoth.Berkeley.EDU RPFD:bostic@okeeffe.CS.Berkeley.EDU H?P?Return-path: <^g> H??Received: by vangogh.CS.Berkeley.EDU (5.108/2.7) id AAA06703; Fri, 17 Jul 1992 00:28:55 -0700 H??Received: from mail.CS.Berkeley.EDU by vangogh.CS.Berkeley.EDU (5.108/2.7) id AAA06698; Fri, 17 Jul 1992 00:28:54 -0700 H??Received: from [128.32.31.21] by mail.CS.Berkeley.EDU (5.96/2.5) id AA22777; Fri, 17 Jul 1992 03:29:14 -0400 H??Received: by foo.bar.baz.de (5.57/Ultrix3.0-C) id AA22757; Fri, 17 Jul 1992 09:31:25 GMT H?F?From: eric@foo.bar.baz.de (Eric Allman) H?x?Full-name: Eric Allman H??Message-id: <9207170931.AA22757@foo.bar.baz.de> H??To: sendmail@vangogh.CS.Berkeley.EDU H??Subject: this is an example message .cc ' . 'cc .)b This shows the person who sent the message, the submission time (in seconds since January 1, 1970), the message priority, the message class, the recipients, and the headers for the message. .+c "SUMMARY OF SUPPORT FILES" .pp This is a summary of the support files that .i sendmail creates or generates. Many of these can be changed by editing the sendmail.cf file; check there to find the actual pathnames. .nr ii 1i .ip "/usr/\*(SD/sendmail" The binary of .i sendmail . .ip /usr/\*(SB/newaliases A link to /usr/\*(SD/sendmail; causes the alias database to be rebuilt. Running this program is completely equivalent to giving .i sendmail the .b \-bi flag. .ip /usr/\*(SB/mailq Prints a listing of the mail queue. This program is equivalent to using the .b \-bp flag to .i sendmail . .ip /etc/mail/sendmail.cf The configuration file, in textual form. .ip /etc/mail/helpfile The SMTP help file. .ip /etc/mail/statistics A statistics file; need not be present. .ip /etc/mail/sendmail.pid Created in daemon mode; it contains the process id of the current SMTP daemon. If you use this in scripts; use ``head \-1'' to get just the first line; the second line contains the command line used to invoke the daemon, and later versions of .i sendmail may add more information to subsequent lines. .ip /etc/mail/aliases The textual version of the alias file. .ip /etc/mail/aliases.db The alias file in .i hash \|(3) format. .ip /etc/mail/aliases.{pag,dir} The alias file in .i ndbm \|(3) format. .ip /var/spool/mqueue The directory in which the mail queue(s) and temporary files reside. .ip /var/spool/mqueue/qf* Control (queue) files for messages. .ip /var/spool/mqueue/df* Data files. .ip /var/spool/mqueue/tf* Temporary versions of the qf files, used during queue file rebuild. .ip /var/spool/mqueue/xf* A transcript of the current session. .if o \ \{\ . bp . rs . sp |4i . ce 2 This page intentionally left blank; replace it with a blank sheet for double-sided output. .\} .\".ro .\".ls 1 .\".tp .\".sp 2i .\".in 0 .\".ce 100 .\".sz 24 .\".b SENDMAIL .\".sz 14 .\".sp .\"INSTALLATION AND OPERATION GUIDE .\".sp .\".sz 10 .\"Eric Allman .\".sp .\".ce 0 .bp 3 .ce .sz 12 TABLE OF CONTENTS .sz 10 .sp .\" remove some things to avoid "out of temp file space" problem .rm sh .rm (x .rm )x .rm ip .rm pp .rm lp .rm he .rm fo .rm eh .rm oh .rm ef .rm of .xp .if o \ \{\ . bp . rs . sp |4i . ce 2 This page intentionally left blank; replace it with a blank sheet for double-sided output. .\} sendmail-8.18.1/doc/op/Makefile0000644000372400037240000000157014556365350015615 0ustar xbuildxbuild# $Id: Makefile,v 8.16 2006-01-05 22:03:31 ca Exp $ DIR= smm/08.sendmailop SRCS= op.me OBJS= op.ps MACROS= -me ROFF_CMD= groff PIC_CMD= pic EQN_CMD= eqn UL_CMD= ul PS2PDF_CMD= ps2pdf PIC= ${PIC_CMD} -C EQNASCII= ${EQN_CMD} -C -Tascii EQNPS= ${EQN_CMD} -C -Tps ROFFASCII= ${ROFF_CMD} -Tascii ${MACROS} ROFFNOSGR= GROFF_NO_SGR=1 ${ROFFASCII} ROFFPS= ${ROFF_CMD} -Tps -mps ${MACROS} ULASCII= ${UL_CMD} -t dumb PS2PDF= ${PS2PDF_CMD} OPTXT_CMD= ${PIC} ${SRCS} | ${EQNASCII} | ${ROFFASCII} | ${ULASCII} 2>/dev/null OPTXTNS_CMD= ${PIC} ${SRCS} | ${EQNASCII} | ${ROFFNOSGR} | ${ULASCII} all: ${OBJS} op.ps: ${SRCS} rm -f $@ ${PIC} ${SRCS} | ${EQNPS} | ${ROFFPS} > $@ test -s $@ || ${ROFFPS} -p -e ${SRCS} > $@ op.txt: ${SRCS} rm -f $@ ${OPTXT_CMD} > $@ || ${OPTXTNS_CMD} > $@ op.pdf: op.ps rm -f $@ ${PS2PDF} op.ps op.pdf clean: rm -f op.ps op.txt op.pdf install: ${OBJS} sendmail-8.18.1/doc/op/README0000644000372400037240000000052114556365350015030 0ustar xbuildxbuildKnown Problems with some *roff versions If you encounter the error: Unknown escape sequence in input: 33, 133 when trying to create op.txt then set the GROFF_NO_SGR environment variable (see grotty(1) man page), e.g., csh% setenv GROFF_NO_SGR 1 sh$ GROFF_NO_SGR=1; export GROFF_NO_SGR $Id: README,v 8.1 2004-07-20 20:25:10 ca Exp $ sendmail-8.18.1/libsmutil/0000755000372400037240000000000014556365433014775 5ustar xbuildxbuildsendmail-8.18.1/libsmutil/Makefile.m40000644000372400037240000000130114556365350016745 0ustar xbuildxbuilddnl $Id: Makefile.m4,v 8.18 2006-06-28 21:02:39 ca Exp $ include(confBUILDTOOLSDIR`/M4/switch.m4') define(`confREQUIRE_SM_OS_H', `true') # sendmail dir SMSRCDIR= ifdef(`confSMSRCDIR', `confSMSRCDIR', `${SRCDIR}/sendmail') PREPENDDEF(`confENVDEF', `confMAPDEF') PREPENDDEF(`confINCDIRS', `-I${SMSRCDIR} ') bldPRODUCT_START(`library', `libsmutil') define(`bldSOURCES', `debug.c err.c lockfile.c safefile.c snprintf.c cf.c ') APPENDDEF(`confENVDEF', `-DNOT_SENDMAIL') bldPRODUCT_END srcdir=${SRCDIR}/libsmutil define(`confCHECK_LIBS',`libsmutil.a ../libsm/libsm.a')dnl include(confBUILDTOOLSDIR`/M4/'bldM4_TYPE_DIR`/check.m4') smcheck(`t-lockfile', `compile') smcheck(`t-lockfile-0.sh', `run') bldFINISH sendmail-8.18.1/libsmutil/t-lockfile.c0000644000372400037240000001707514556365350017202 0ustar xbuildxbuild/* * Copyright (c) 2005 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_IDSTR(id, "@(#)$Id: t-lockfile.c,v 1.2 2013-11-22 20:51:50 ca Exp $") #include #include #include #define IOBUFSZ 64 char iobuf[IOBUFSZ]; #define FIRSTLINE "first line\n" #define LASTLINE "last line\n" static int noio, chk; static pid_t pid; /* ** OPENFILE -- open a file ** ** Parameters: ** owner -- create file? ** filename -- name of file. ** flags -- flags for open(2) ** ** Returns: ** >=0 fd ** <0 on failure. */ static int openfile(owner, filename, flags) int owner; char *filename; int flags; { int fd; if (owner) flags |= O_CREAT; fd = open(filename, flags, 0640); if (fd >= 0) return fd; fprintf(stderr, "%d: %ld: owner=%d, open(%s) failed\n", (int) pid, (long) time(NULL), owner, filename); return -1; } /* ** WRBUF -- write iobuf to fd ** ** Parameters: ** fd -- file descriptor. ** ** Returns: ** ==0 write was ok ** !=0 on failure. */ static int wrbuf(fd) int fd; { int r; if (noio) return 0; r = write(fd, iobuf, sizeof(iobuf)); if (sizeof(iobuf) == r) return 0; fprintf(stderr, "%d: %ld: owner=1, write(%s)=fail\n", (int) pid, (long) time(NULL), iobuf); return 1; } /* ** RDBUF -- read from fd ** ** Parameters: ** fd -- file descriptor. ** xbuf -- expected content. ** ** Returns: ** ==0 read was ok and content matches ** !=0 otherwise */ static int rdbuf(fd, xbuf) int fd; const char *xbuf; { int r; if (noio) return 0; r = read(fd, iobuf, sizeof(iobuf)); if (sizeof(iobuf) != r) { fprintf(stderr, "%d: %ld: owner=0, read()=fail\n", (int) pid, (long) time(NULL)); return 1; } if (strncmp(iobuf, xbuf, strlen(xbuf))) { fprintf(stderr, "%d: %ld: owner=0, read=%s expected=%s\n", (int) pid, (long) time(NULL), iobuf, xbuf); return 1; } return 0; } /* ** LOCKTESTWR -- test WR/EX file locking ** ** Parameters: ** owner -- create file? ** filename -- name of file. ** flags -- flags for open(2) ** delay -- how long to keep file locked? ** ** Returns: ** 0 on success ** != 0 on failure. */ #define DBGPRINTR(str) \ do \ { \ fprintf(stderr, "%d: %ld: owner=0, ", (int) pid, \ (long) time(NULL)); \ fprintf(stderr, str, filename, shared ? "RD" : "EX"); \ } while (0) static int locktestwr(filename, flags, delay) char *filename; int flags; int delay; { int fd; bool locked; fd = openfile(1, filename, flags); if (fd < 0) return errno; locked = lockfile(fd, filename, "[owner]", LOCK_EX); if (!locked) { fprintf(stderr, "%d: %ld: owner=1, lock(%s) failed\n", (int) pid, (long) time(NULL), filename); return 1; } else fprintf(stderr, "%d: %ld: owner=1, lock(%s) ok\n", (int) pid, (long) time(NULL), filename); sm_strlcpy(iobuf, FIRSTLINE, sizeof(iobuf)); if (wrbuf(fd)) return 1; if (delay > 0) sleep(delay); sm_strlcpy(iobuf, LASTLINE, sizeof(iobuf)); if (wrbuf(fd)) return 1; locked = lockfile(fd, filename, "[owner]", LOCK_UN); if (!locked) { fprintf(stderr, "%d: %ld: owner=1, unlock(%s) failed\n", (int) pid, (long) time(NULL), filename); return 1; } fprintf(stderr, "%d: %ld: owner=1, unlock(%s) done\n", (int) pid, (long) time(NULL), filename); if (fd > 0) { close(fd); fd = -1; } return 0; } /* ** CHKLCK -- check whether fd is locked (only for fcntl()) ** ** Parameters: ** owner -- create file? ** filename -- name of file. ** flags -- flags for open(2) ** delay -- how long to keep file locked? ** ** Returns: ** 0 if not locked ** >0 pid of process which holds a WR lock ** <0 error */ static long chklck(fd) int fd; { #if !HASFLOCK int action, i; struct flock lfd; (void) memset(&lfd, '\0', sizeof lfd); lfd.l_type = F_RDLCK; action = F_GETLK; while ((i = fcntl(fd, action, &lfd)) < 0 && errno == EINTR) continue; if (i < 0) return (long)i; if (F_WRLCK == lfd.l_type) return (long)lfd.l_pid; return 0L; #else /* !HASFLOCK */ fprintf(stderr, "%d: %ld: flock(): no lock test\n", (int) pid, (long) time(NULL)); return -1L; #endif /* !HASFLOCK */ } /* ** LOCKTESTRD -- test file locking for reading ** ** Parameters: ** filename -- name of file. ** flags -- flags for open(2) ** delay -- how long is file locked by owner? ** shared -- LOCK_{EX/SH} ** ** Returns: ** 0 on success ** != 0 on failure. */ static int locktestrd(filename, flags, delay, shared) char *filename; int flags; int delay; int shared; { int fd, cnt; int lt; bool locked; fd = openfile(0, filename, flags); if (fd < 0) return errno; if (chk) { long locked; locked = chklck(fd); if (locked > 0) fprintf(stderr, "%d: %ld: file=%s status=locked pid=%ld\n", (int) pid, (long) time(NULL), filename, locked); else if (0 == locked) fprintf(stderr, "%d: %ld: file=%s status=not_locked\n", (int) pid, (long) time(NULL), filename); else fprintf(stderr, "%d: %ld: file=%s status=unknown\n", (int) pid, (long) time(NULL), filename); goto end; } if (shared) lt = LOCK_SH; else lt = LOCK_EX; for (cnt = 0; cnt < delay - 2; cnt++) { /* try to get lock: should fail (nonblocking) */ locked = lockfile(fd, filename, "[client]", lt|LOCK_NB); if (locked) { DBGPRINTR("lock(%s)=%s succeeded\n"); return 1; } sleep(1); } if (delay > 0) sleep(2); locked = lockfile(fd, filename, "[client]", lt); if (!locked) { DBGPRINTR("lock(%s)=%s failed\n"); return 1; } DBGPRINTR("lock(%s)=%s ok\n"); if (rdbuf(fd, FIRSTLINE)) return 1; if (rdbuf(fd, LASTLINE)) return 1; sleep(1); locked = lockfile(fd, filename, "[client]", LOCK_UN); if (!locked) { DBGPRINTR("unlock(%s)=%s failed\n"); return 1; } DBGPRINTR("unlock(%s)=%s done\n"); end: if (fd > 0) { close(fd); fd = -1; } return 0; } /* ** USAGE -- show usage ** ** Parameters: ** prg -- name of program ** ** Returns: ** nothing. */ static void usage(prg) const char *prg; { fprintf(stderr, "usage: %s [options]\n" "-f filename use filename\n" "-i do not perform I/O\n" "-n do not try non-blocking locking first\n" "-R only start reader process\n" "-r use shared locking for reader\n" "-s delay sleep delay seconds before unlocking\n" "-W only start writer process\n" #if !HASFLOCK "uses fcntl()\n" #else "uses flock()\n" #endif , prg); } int main(argc, argv) int argc; char *argv[]; { int ch, delay, r, status, flags, shared, nb, reader, writer; char *filename; pid_t fpid; extern char *optarg; delay = 5; filename = "testlock"; flags = O_RDWR; shared = nb = noio = reader = writer = chk = 0; #define OPTIONS "cf:inRrs:W" while ((ch = getopt(argc, argv, OPTIONS)) != -1) { switch ((char) ch) { case 'c': chk = 1; break; case 'f': filename = optarg; break; case 'i': noio = 1; break; case 'n': nb = 0; break; case 'R': reader = 1; break; case 'r': shared = 1; break; case 's': delay = atoi(optarg); break; case 'W': writer = 1; break; default: usage(argv[0]); exit(69); break; } } fpid = -1; if (0 == reader && 0 == writer && (fpid = fork()) < 0) { perror("fork failed\n"); return 1; } r = 0; if (reader || fpid == 0) { /* give the parent the chance to set up data */ pid = getpid(); sleep(1); r = locktestrd(filename, flags, nb ? delay : 0, shared); } if (writer || fpid > 0) { fpid = getpid(); r = locktestwr(filename, flags, delay); (void) wait(&status); } /* (void) unlink(filename); */ return r; } sendmail-8.18.1/libsmutil/safefile.c0000644000372400037240000005037514556365350016727 0ustar xbuildxbuild/* * Copyright (c) 1998-2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include #include #include SM_RCSID("@(#)$Id: safefile.c,v 8.130 2013-11-22 20:51:50 ca Exp $") /* ** SAFEFILE -- return 0 if a file exists and is safe for a user. ** ** Parameters: ** fn -- filename to check. ** uid -- user id to compare against. ** gid -- group id to compare against. ** user -- user name to compare against (used for group sets). ** flags -- modifiers: ** SFF_MUSTOWN -- "uid" must own this file. ** SFF_NOSLINK -- file cannot be a symbolic link. ** mode -- mode bits that must match. ** st -- if set, points to a stat structure that will ** get the stat info for the file. ** ** Returns: ** 0 if fn exists, is owned by uid, and matches mode. ** An errno otherwise. The actual errno is cleared. ** ** Side Effects: ** none. */ int safefile(fn, uid, gid, user, flags, mode, st) char *fn; UID_T uid; GID_T gid; char *user; long flags; int mode; struct stat *st; { register char *p; register struct group *gr = NULL; int file_errno = 0; bool checkpath; struct stat stbuf; struct stat fstbuf; char fbuf[MAXPATHLEN]; if (tTd(44, 4)) sm_dprintf("safefile(%s, uid=%d, gid=%d, flags=%lx, mode=%o):\n", fn, (int) uid, (int) gid, flags, mode); errno = 0; if (sm_strlcpy(fbuf, fn, sizeof fbuf) >= sizeof fbuf) { if (tTd(44, 4)) sm_dprintf("\tpathname too long\n"); return ENAMETOOLONG; } fn = fbuf; if (st == NULL) st = &fstbuf; /* ignore SFF_SAFEDIRPATH if we are debugging */ if (RealUid != 0 && RunAsUid == RealUid) flags &= ~SFF_SAFEDIRPATH; /* first check to see if the file exists at all */ #if HASLSTAT if ((bitset(SFF_NOSLINK, flags) ? lstat(fn, st) : stat(fn, st)) < 0) #else if (stat(fn, st) < 0) #endif { file_errno = errno; } else if (bitset(SFF_SETUIDOK, flags) && !bitset(S_IXUSR|S_IXGRP|S_IXOTH, st->st_mode) && S_ISREG(st->st_mode)) { /* ** If final file is set-user-ID, run as the owner of that ** file. Gotta be careful not to reveal anything too ** soon here! */ #ifdef SUID_ROOT_FILES_OK if (bitset(S_ISUID, st->st_mode)) #else if (bitset(S_ISUID, st->st_mode) && st->st_uid != 0 && st->st_uid != TrustedUid) #endif { uid = st->st_uid; user = NULL; } #ifdef SUID_ROOT_FILES_OK if (bitset(S_ISGID, st->st_mode)) #else if (bitset(S_ISGID, st->st_mode) && st->st_gid != 0) #endif gid = st->st_gid; } checkpath = !bitset(SFF_NOPATHCHECK, flags) || (uid == 0 && !bitset(SFF_ROOTOK|SFF_OPENASROOT, flags)); if (bitset(SFF_NOWLINK, flags) && !bitset(SFF_SAFEDIRPATH, flags)) { int ret; /* check the directory */ p = strrchr(fn, '/'); if (p == NULL) { ret = safedirpath(".", uid, gid, user, flags|SFF_SAFEDIRPATH, 0, 0); } else { *p = '\0'; ret = safedirpath(fn, uid, gid, user, flags|SFF_SAFEDIRPATH, 0, 0); *p = '/'; } if (ret == 0) { /* directory is safe */ checkpath = false; } else { #if HASLSTAT /* Need lstat() information if called stat() before */ if (!bitset(SFF_NOSLINK, flags) && lstat(fn, st) < 0) { ret = errno; if (tTd(44, 4)) sm_dprintf("\t%s\n", sm_errstring(ret)); return ret; } #endif /* HASLSTAT */ /* directory is writable: disallow links */ flags |= SFF_NOLINK; } } if (checkpath) { int ret; p = strrchr(fn, '/'); if (p == NULL) { ret = safedirpath(".", uid, gid, user, flags, 0, 0); } else { *p = '\0'; ret = safedirpath(fn, uid, gid, user, flags, 0, 0); *p = '/'; } if (ret != 0) return ret; } /* ** If the target file doesn't exist, check the directory to ** ensure that it is writable by this user. */ if (file_errno != 0) { int ret = file_errno; char *dir = fn; if (tTd(44, 4)) sm_dprintf("\t%s\n", sm_errstring(ret)); errno = 0; if (!bitset(SFF_CREAT, flags) || file_errno != ENOENT) return ret; /* check to see if legal to create the file */ p = strrchr(dir, '/'); if (p == NULL) dir = "."; else if (p == dir) dir = "/"; else *p = '\0'; if (stat(dir, &stbuf) >= 0) { int md = S_IWRITE|S_IEXEC; ret = 0; if (stbuf.st_uid == uid) /* EMPTY */ ; else if (uid == 0 && stbuf.st_uid == TrustedUid) /* EMPTY */ ; else { md >>= 3; if (stbuf.st_gid == gid) /* EMPTY */ ; #ifndef NO_GROUP_SET else if (user != NULL && !DontInitGroups && ((gr != NULL && gr->gr_gid == stbuf.st_gid) || (gr = getgrgid(stbuf.st_gid)) != NULL)) { register char **gp; for (gp = gr->gr_mem; *gp != NULL; gp++) if (strcmp(*gp, user) == 0) break; if (*gp == NULL) md >>= 3; } #endif /* ! NO_GROUP_SET */ else md >>= 3; } if ((stbuf.st_mode & md) != md) ret = errno = EACCES; } else ret = errno; if (tTd(44, 4)) sm_dprintf("\t[final dir %s uid %d mode %lo] %s\n", dir, (int) stbuf.st_uid, (unsigned long) stbuf.st_mode, sm_errstring(ret)); if (p != NULL) *p = '/'; st->st_mode = ST_MODE_NOFILE; return ret; } #ifdef S_ISLNK if (bitset(SFF_NOSLINK, flags) && S_ISLNK(st->st_mode)) { if (tTd(44, 4)) sm_dprintf("\t[slink mode %lo]\tE_SM_NOSLINK\n", (unsigned long) st->st_mode); return E_SM_NOSLINK; } #endif /* S_ISLNK */ if (bitset(SFF_REGONLY, flags) && !S_ISREG(st->st_mode)) { if (tTd(44, 4)) sm_dprintf("\t[non-reg mode %lo]\tE_SM_REGONLY\n", (unsigned long) st->st_mode); return E_SM_REGONLY; } if (bitset(SFF_NOGWFILES, flags) && bitset(S_IWGRP, st->st_mode)) { if (tTd(44, 4)) sm_dprintf("\t[write bits %lo]\tE_SM_GWFILE\n", (unsigned long) st->st_mode); return E_SM_GWFILE; } if (bitset(SFF_NOWWFILES, flags) && bitset(S_IWOTH, st->st_mode)) { if (tTd(44, 4)) sm_dprintf("\t[write bits %lo]\tE_SM_WWFILE\n", (unsigned long) st->st_mode); return E_SM_WWFILE; } if (bitset(SFF_NOGRFILES, flags) && bitset(S_IRGRP, st->st_mode)) { if (tTd(44, 4)) sm_dprintf("\t[read bits %lo]\tE_SM_GRFILE\n", (unsigned long) st->st_mode); return E_SM_GRFILE; } if (bitset(SFF_NOWRFILES, flags) && bitset(S_IROTH, st->st_mode)) { if (tTd(44, 4)) sm_dprintf("\t[read bits %lo]\tE_SM_WRFILE\n", (unsigned long) st->st_mode); return E_SM_WRFILE; } if (!bitset(SFF_EXECOK, flags) && bitset(S_IWUSR|S_IWGRP|S_IWOTH, mode) && bitset(S_IXUSR|S_IXGRP|S_IXOTH, st->st_mode)) { if (tTd(44, 4)) sm_dprintf("\t[exec bits %lo]\tE_SM_ISEXEC\n", (unsigned long) st->st_mode); return E_SM_ISEXEC; } if (bitset(SFF_NOHLINK, flags) && st->st_nlink != 1) { if (tTd(44, 4)) sm_dprintf("\t[link count %d]\tE_SM_NOHLINK\n", (int) st->st_nlink); return E_SM_NOHLINK; } if (uid == 0 && bitset(SFF_OPENASROOT, flags)) /* EMPTY */ ; else if (uid == 0 && !bitset(SFF_ROOTOK, flags)) mode >>= 6; else if (st->st_uid == uid) /* EMPTY */ ; else if (uid == 0 && st->st_uid == TrustedUid) /* EMPTY */ ; else { mode >>= 3; if (st->st_gid == gid) /* EMPTY */ ; #ifndef NO_GROUP_SET else if (user != NULL && !DontInitGroups && ((gr != NULL && gr->gr_gid == st->st_gid) || (gr = getgrgid(st->st_gid)) != NULL)) { register char **gp; for (gp = gr->gr_mem; *gp != NULL; gp++) if (strcmp(*gp, user) == 0) break; if (*gp == NULL) mode >>= 3; } #endif /* ! NO_GROUP_SET */ else mode >>= 3; } if (tTd(44, 4)) sm_dprintf("\t[uid %d, nlink %d, stat %lo, mode %lo] ", (int) st->st_uid, (int) st->st_nlink, (unsigned long) st->st_mode, (unsigned long) mode); if ((st->st_uid == uid || st->st_uid == 0 || st->st_uid == TrustedUid || !bitset(SFF_MUSTOWN, flags)) && (st->st_mode & mode) == mode) { if (tTd(44, 4)) sm_dprintf("\tOK\n"); return 0; } if (tTd(44, 4)) sm_dprintf("\tEACCES\n"); return EACCES; } /* ** SAFEDIRPATH -- check to make sure a path to a directory is safe ** ** Safe means not writable and owned by the right folks. ** ** Parameters: ** fn -- filename to check. ** uid -- user id to compare against. ** gid -- group id to compare against. ** user -- user name to compare against (used for group ** sets). ** flags -- modifiers: ** SFF_ROOTOK -- ok to use root permissions to open. ** SFF_SAFEDIRPATH -- writable directories are considered ** to be fatal errors. ** level -- symlink recursive level. ** offset -- offset into fn to start checking from. ** ** Returns: ** 0 -- if the directory path is "safe". ** else -- an error number associated with the path. */ int safedirpath(fn, uid, gid, user, flags, level, offset) char *fn; UID_T uid; GID_T gid; char *user; long flags; int level; int offset; { int ret = 0; int mode = S_IWOTH; char save = '\0'; char *saveptr = NULL; char *p, *enddir; register struct group *gr = NULL; char s[MAXLINKPATHLEN]; struct stat stbuf; /* make sure we aren't in a symlink loop */ if (level > MAXSYMLINKS) return ELOOP; if (level < 0 || offset < 0 || offset > strlen(fn)) return EINVAL; /* special case root directory */ if (*fn == '\0') fn = "/"; if (tTd(44, 4)) sm_dprintf("safedirpath(%s, uid=%ld, gid=%ld, flags=%lx, level=%d, offset=%d):\n", fn, (long) uid, (long) gid, flags, level, offset); if (!bitnset(DBS_GROUPWRITABLEDIRPATHSAFE, DontBlameSendmail)) mode |= S_IWGRP; /* Make a modifiable copy of the filename */ if (sm_strlcpy(s, fn, sizeof s) >= sizeof s) return EINVAL; p = s + offset; while (p != NULL) { /* put back character */ if (saveptr != NULL) { *saveptr = save; saveptr = NULL; p++; } if (*p == '\0') break; p = strchr(p, '/'); /* Special case for root directory */ if (p == s) { save = *(p + 1); saveptr = p + 1; *(p + 1) = '\0'; } else if (p != NULL) { save = *p; saveptr = p; *p = '\0'; } /* Heuristic: . and .. have already been checked */ enddir = strrchr(s, '/'); if (enddir != NULL && (strcmp(enddir, "/..") == 0 || strcmp(enddir, "/.") == 0)) continue; if (tTd(44, 20)) sm_dprintf("\t[dir %s]\n", s); #if HASLSTAT ret = lstat(s, &stbuf); #else ret = stat(s, &stbuf); #endif if (ret < 0) { ret = errno; break; } #ifdef S_ISLNK /* Follow symlinks */ if (S_ISLNK(stbuf.st_mode)) { int linklen; char *target; char buf[MAXPATHLEN]; char fullbuf[MAXLINKPATHLEN]; memset(buf, '\0', sizeof buf); linklen = readlink(s, buf, sizeof buf); if (linklen < 0) { ret = errno; break; } if (linklen >= sizeof buf) { /* file name too long for buffer */ ret = errno = EINVAL; break; } offset = 0; if (*buf == '/') { target = buf; /* If path is the same, avoid rechecks */ while (s[offset] == buf[offset] && s[offset] != '\0') offset++; if (s[offset] == '\0' && buf[offset] == '\0') { /* strings match, symlink loop */ return ELOOP; } /* back off from the mismatch */ if (offset > 0) offset--; /* Make sure we are at a directory break */ if (offset > 0 && s[offset] != '/' && s[offset] != '\0') { while (buf[offset] != '/' && offset > 0) offset--; } if (offset > 0 && s[offset] == '/' && buf[offset] == '/') { /* Include the trailing slash */ offset++; } } else { char *sptr; sptr = strrchr(s, '/'); if (sptr != NULL) { *sptr = '\0'; offset = sptr + 1 - s; if (sm_strlcpyn(fullbuf, sizeof fullbuf, 2, s, "/") >= sizeof fullbuf || sm_strlcat(fullbuf, buf, sizeof fullbuf) >= sizeof fullbuf) { ret = EINVAL; break; } *sptr = '/'; } else { if (sm_strlcpy(fullbuf, buf, sizeof fullbuf) >= sizeof fullbuf) { ret = EINVAL; break; } } target = fullbuf; } ret = safedirpath(target, uid, gid, user, flags, level + 1, offset); if (ret != 0) break; /* Don't check permissions on the link file itself */ continue; } #endif /* S_ISLNK */ if ((uid == 0 || bitset(SFF_SAFEDIRPATH, flags)) && #ifdef S_ISVTX !(bitnset(DBS_TRUSTSTICKYBIT, DontBlameSendmail) && bitset(S_ISVTX, stbuf.st_mode)) && #endif bitset(mode, stbuf.st_mode)) { if (tTd(44, 4)) sm_dprintf("\t[dir %s] mode %lo ", s, (unsigned long) stbuf.st_mode); if (bitset(SFF_SAFEDIRPATH, flags)) { if (bitset(S_IWOTH, stbuf.st_mode)) ret = E_SM_WWDIR; else ret = E_SM_GWDIR; if (tTd(44, 4)) sm_dprintf("FATAL\n"); break; } if (tTd(44, 4)) sm_dprintf("WARNING\n"); if (Verbose > 1) message("051 WARNING: %s writable directory %s", bitset(S_IWOTH, stbuf.st_mode) ? "World" : "Group", s); } if (uid == 0 && !bitset(SFF_ROOTOK|SFF_OPENASROOT, flags)) { if (bitset(S_IXOTH, stbuf.st_mode)) continue; ret = EACCES; break; } /* ** Let OS determine access to file if we are not ** running as a privileged user. This allows ACLs ** to work. Also, if opening as root, assume we can ** scan the directory. */ if (geteuid() != 0 || bitset(SFF_OPENASROOT, flags)) continue; if (stbuf.st_uid == uid && bitset(S_IXUSR, stbuf.st_mode)) continue; if (stbuf.st_gid == gid && bitset(S_IXGRP, stbuf.st_mode)) continue; #ifndef NO_GROUP_SET if (user != NULL && !DontInitGroups && ((gr != NULL && gr->gr_gid == stbuf.st_gid) || (gr = getgrgid(stbuf.st_gid)) != NULL)) { register char **gp; for (gp = gr->gr_mem; gp != NULL && *gp != NULL; gp++) if (strcmp(*gp, user) == 0) break; if (gp != NULL && *gp != NULL && bitset(S_IXGRP, stbuf.st_mode)) continue; } #endif /* ! NO_GROUP_SET */ if (!bitset(S_IXOTH, stbuf.st_mode)) { ret = EACCES; break; } } if (tTd(44, 4)) sm_dprintf("\t[dir %s] %s\n", fn, ret == 0 ? "OK" : sm_errstring(ret)); return ret; } /* ** SAFEOPEN -- do a file open with extra checking ** ** Parameters: ** fn -- the file name to open. ** omode -- the open-style mode flags. ** cmode -- the create-style mode flags. ** sff -- safefile flags. ** ** Returns: ** Same as open. */ int safeopen(fn, omode, cmode, sff) char *fn; int omode; int cmode; long sff; { #if !NOFTRUNCATE bool truncate; #endif int rval; int fd; int smode; struct stat stb; if (tTd(44, 10)) sm_dprintf("safeopen: fn=%s, omode=%x, cmode=%x, sff=%lx\n", fn, omode, cmode, sff); if (bitset(O_CREAT, omode)) sff |= SFF_CREAT; omode &= ~O_CREAT; switch (omode & O_ACCMODE) { case O_RDONLY: smode = S_IREAD; break; case O_WRONLY: smode = S_IWRITE; break; case O_RDWR: smode = S_IREAD|S_IWRITE; break; default: smode = 0; break; } if (bitset(SFF_OPENASROOT, sff)) rval = safefile(fn, RunAsUid, RunAsGid, RunAsUserName, sff, smode, &stb); else rval = safefile(fn, RealUid, RealGid, RealUserName, sff, smode, &stb); if (rval != 0) { errno = rval; return -1; } if (stb.st_mode == ST_MODE_NOFILE && bitset(SFF_CREAT, sff)) omode |= O_CREAT | (bitset(SFF_NOTEXCL, sff) ? 0 : O_EXCL); else if (bitset(SFF_CREAT, sff) && bitset(O_EXCL, omode)) { /* The file exists so an exclusive create would fail */ errno = EEXIST; return -1; } #if !NOFTRUNCATE truncate = bitset(O_TRUNC, omode); if (truncate) omode &= ~O_TRUNC; #endif fd = dfopen(fn, omode, cmode, sff); if (fd < 0) return fd; if (filechanged(fn, fd, &stb)) { syserr("554 5.3.0 cannot open: file %s changed after open", fn); (void) close(fd); errno = E_SM_FILECHANGE; return -1; } #if !NOFTRUNCATE if (truncate && ftruncate(fd, (off_t) 0) < 0) { int save_errno; save_errno = errno; syserr("554 5.3.0 cannot open: file %s could not be truncated", fn); (void) close(fd); errno = save_errno; return -1; } #endif /* !NOFTRUNCATE */ return fd; } /* ** SAFEFOPEN -- do a file open with extra checking ** ** Parameters: ** fn -- the file name to open. ** omode -- the open-style mode flags. ** cmode -- the create-style mode flags. ** sff -- safefile flags. ** ** Returns: ** Same as fopen. */ SM_FILE_T * safefopen(fn, omode, cmode, sff) char *fn; int omode; int cmode; long sff; { int fd; int save_errno; SM_FILE_T *fp; int fmode; switch (omode & O_ACCMODE) { case O_RDONLY: fmode = SM_IO_RDONLY; break; case O_WRONLY: if (bitset(O_APPEND, omode)) fmode = SM_IO_APPEND; else fmode = SM_IO_WRONLY; break; case O_RDWR: if (bitset(O_TRUNC, omode)) fmode = SM_IO_RDWRTR; else if (bitset(O_APPEND, omode)) fmode = SM_IO_APPENDRW; else fmode = SM_IO_RDWR; break; default: syserr("554 5.3.5 safefopen: unknown omode %o", omode); fmode = 0; } fd = safeopen(fn, omode, cmode, sff); if (fd < 0) { save_errno = errno; if (tTd(44, 10)) sm_dprintf("safefopen: safeopen failed: %s\n", sm_errstring(errno)); errno = save_errno; return NULL; } fp = sm_io_open(SmFtStdiofd, SM_TIME_DEFAULT, (void *) &fd, fmode, NULL); if (fp != NULL) return fp; save_errno = errno; if (tTd(44, 10)) { sm_dprintf("safefopen: fdopen(%s, %d) failed: omode=%x, sff=%lx, err=%s\n", fn, fmode, omode, sff, sm_errstring(errno)); } (void) close(fd); errno = save_errno; return NULL; } /* ** FILECHANGED -- check to see if file changed after being opened ** ** Parameters: ** fn -- pathname of file to check. ** fd -- file descriptor to check. ** stb -- stat structure from before open. ** ** Returns: ** true -- if a problem was detected. ** false -- if this file is still the same. */ bool filechanged(fn, fd, stb) char *fn; int fd; struct stat *stb; { struct stat sta; if (stb->st_mode == ST_MODE_NOFILE) { #if HASLSTAT && BOGUS_O_EXCL /* only necessary if exclusive open follows symbolic links */ if (lstat(fn, stb) < 0 || stb->st_nlink != 1) return true; #else return false; #endif } if (fstat(fd, &sta) < 0) return true; if (sta.st_nlink != stb->st_nlink || sta.st_dev != stb->st_dev || sta.st_ino != stb->st_ino || #if HAS_ST_GEN && 0 /* AFS returns garbage in st_gen */ sta.st_gen != stb->st_gen || #endif sta.st_uid != stb->st_uid || sta.st_gid != stb->st_gid) { if (tTd(44, 8)) { sm_dprintf("File changed after opening:\n"); sm_dprintf(" nlink = %ld/%ld\n", (long) stb->st_nlink, (long) sta.st_nlink); sm_dprintf(" dev = %ld/%ld\n", (long) stb->st_dev, (long) sta.st_dev); sm_dprintf(" ino = %llu/%llu\n", (ULONGLONG_T) stb->st_ino, (ULONGLONG_T) sta.st_ino); #if HAS_ST_GEN sm_dprintf(" gen = %ld/%ld\n", (long) stb->st_gen, (long) sta.st_gen); #endif sm_dprintf(" uid = %ld/%ld\n", (long) stb->st_uid, (long) sta.st_uid); sm_dprintf(" gid = %ld/%ld\n", (long) stb->st_gid, (long) sta.st_gid); } return true; } return false; } /* ** DFOPEN -- determined file open ** ** This routine has the semantics of open, except that it will ** keep trying a few times to make this happen. The idea is that ** on very loaded systems, we may run out of resources (inodes, ** whatever), so this tries to get around it. */ int dfopen(filename, omode, cmode, sff) char *filename; int omode; int cmode; long sff; { register int tries; int fd = -1; struct stat st; for (tries = 0; tries < 10; tries++) { (void) sleep((unsigned) (10 * tries)); errno = 0; fd = open(filename, omode, cmode); if (fd >= 0) break; switch (errno) { case ENFILE: /* system file table full */ case EINTR: /* interrupted syscall */ #ifdef ETXTBSY case ETXTBSY: /* Apollo: net file locked */ #endif continue; } break; } if (!bitset(SFF_NOLOCK, sff) && fd >= 0 && fstat(fd, &st) >= 0 && S_ISREG(st.st_mode)) { int locktype; /* lock the file to avoid accidental conflicts */ if ((omode & O_ACCMODE) != O_RDONLY) locktype = LOCK_EX; else locktype = LOCK_SH; if (bitset(SFF_NBLOCK, sff)) locktype |= LOCK_NB; if (!lockfile(fd, filename, NULL, locktype)) { int save_errno = errno; (void) close(fd); fd = -1; errno = save_errno; } else errno = 0; } return fd; } sendmail-8.18.1/libsmutil/t-lockfile-0.sh0000755000372400037240000000263014556365350017521 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 2021 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ---------------------------------------- # test t-lockfile, analyze result # ---------------------------------------- fail() { echo "$0: $@" exit 1 } PRG=./t-lockfile O=l.log analyze() { # the "owner" unlock operation must be before # the "client" lock operation can succeed U=`grep -n 'owner=1, unlock.*done' $O | cut -d: -f1 | head -n1` [ x"$U" = "x" ] && U=`grep -n '_close' $O | cut -d: -f1 | head -n1` L=`grep -n 'owner=0, lock.* ok' $O | cut -d: -f1` [ x"$U" = "x" ] && return 1 [ x"$L" = "x" ] && return 1 [ $U -lt $L ] } all=true while getopts 2a: FLAG do case "${FLAG}" in 2) all=false;; a) O=${OPTARG} analyze || fail "$opts: unlock1=$U, lock2=$L" exit;; esac done shift `expr ${OPTIND} - 1` [ -x ${PRG} ] || fail "missing ${PRG}" if $all then for opts in "" "-r" "-n" "-nr" do ${PRG} $opts > $O 2>&1 || fail "$opts: $?" analyze || fail "$opts: unlock1=$U, lock2=$L" done fi # try with two processes for opts in "" "-r" do rm -f $O ${PRG} -W >> $O 2>&1 || fail "-W: $?" wpid=$! ${PRG} -R $opts >> $O 2>&1 || fail "-R $opts: $?" rpid=$! analyze || fail "$opts: unlock1=$U, lock2=$L" wait $wpid wait $rpid done exit 0 sendmail-8.18.1/libsmutil/snprintf.c0000644000372400037240000000252314556365350017004 0ustar xbuildxbuild/* * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: snprintf.c,v 8.45 2013-11-22 20:51:50 ca Exp $") /* ** SHORTENSTRING -- return short version of a string ** ** If the string is already short, just return it. If it is too ** long, return the head and tail of the string. ** ** Parameters: ** s -- the string to shorten. ** m -- the max length of the string (strlen()). ** ** Returns: ** Either s or a short version of s. */ char * shortenstring(s, m) register const char *s; size_t m; { size_t l; static char buf[MAXSHORTSTR + 1]; l = strlen(s); if (l < m) return (char *) s; if (m > MAXSHORTSTR) m = MAXSHORTSTR; else if (m < 10) { if (m < 5) { (void) sm_strlcpy(buf, s, m + 1); return buf; } (void) sm_strlcpy(buf, s, m - 2); (void) sm_strlcat(buf, "...", sizeof buf); return buf; } m = (m - 3) / 2; (void) sm_strlcpy(buf, s, m + 1); (void) sm_strlcat2(buf, "...", s + l - m, sizeof buf); return buf; } sendmail-8.18.1/libsmutil/Makefile0000644000372400037240000000053214556365350016433 0ustar xbuildxbuild# $Id: Makefile,v 8.2 1999-09-23 22:36:32 ca Exp $ SHELL= /bin/sh BUILD= ./Build OPTIONS= $(CONFIG) $(FLAGS) all: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ clean: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ check: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ install: FRC $(SHELL) $(BUILD) $(OPTIONS) $@ fresh: FRC $(SHELL) $(BUILD) $(OPTIONS) -c FRC: sendmail-8.18.1/libsmutil/Build0000755000372400037240000000053214556365350015760 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 1999-2000 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # # $Id: Build,v 8.5 2013-11-22 20:51:50 ca Exp $ exec sh ../devtools/bin/Build "$@" sendmail-8.18.1/libsmutil/lockfile.c0000644000372400037240000000360714556365350016735 0ustar xbuildxbuild/* * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: lockfile.c,v 8.22 2013-11-22 20:51:50 ca Exp $") /* ** LOCKFILE -- lock a file using flock or (shudder) fcntl locking ** ** Parameters: ** fd -- the file descriptor of the file. ** filename -- the file name (for error messages). [unused] ** ext -- the filename extension. [unused] ** type -- type of the lock. Bits can be: ** LOCK_EX -- exclusive lock. ** LOCK_NB -- non-blocking. ** LOCK_UN -- unlock. ** ** Returns: ** true if the lock was acquired. ** false otherwise. */ bool lockfile(fd, filename, ext, type) int fd; char *filename; char *ext; int type; { #if !HASFLOCK int action; struct flock lfd; memset(&lfd, '\0', sizeof lfd); if (bitset(LOCK_UN, type)) lfd.l_type = F_UNLCK; else if (bitset(LOCK_EX, type)) lfd.l_type = F_WRLCK; else lfd.l_type = F_RDLCK; if (bitset(LOCK_NB, type)) action = F_SETLK; else action = F_SETLKW; if (fcntl(fd, action, &lfd) >= 0) return true; /* ** On SunOS, if you are testing using -oQ/tmp/mqueue or ** -oA/tmp/aliases or anything like that, and /tmp is mounted ** as type "tmp" (that is, served from swap space), the ** previous fcntl will fail with "Invalid argument" errors. ** Since this is fairly common during testing, we will assume ** that this indicates that the lock is successfully grabbed. */ if (errno == EINVAL) return true; #else /* !HASFLOCK */ if (flock(fd, type) >= 0) return true; #endif /* !HASFLOCK */ return false; } sendmail-8.18.1/libsmutil/err.c0000644000372400037240000000235414556365350015733 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: err.c,v 8.6 2013-11-22 20:51:50 ca Exp $") #include /*VARARGS1*/ void #ifdef __STDC__ message(const char *msg, ...) #else /* __STDC__ */ message(msg, va_alist) const char *msg; va_dcl #endif /* __STDC__ */ { const char *m; SM_VA_LOCAL_DECL m = msg; if (isascii(m[0]) && isdigit(m[0]) && isascii(m[1]) && isdigit(m[1]) && isascii(m[2]) && isdigit(m[2]) && m[3] == ' ') m += 4; SM_VA_START(ap, msg); (void) vfprintf(stderr, m, ap); SM_VA_END(ap); (void) fprintf(stderr, "\n"); } /*VARARGS1*/ void #ifdef __STDC__ syserr(const char *msg, ...) #else /* __STDC__ */ syserr(msg, va_alist) const char *msg; va_dcl #endif /* __STDC__ */ { const char *m; SM_VA_LOCAL_DECL m = msg; if (isascii(m[0]) && isdigit(m[0]) && isascii(m[1]) && isdigit(m[1]) && isascii(m[2]) && isdigit(m[2]) && m[3] == ' ') m += 4; SM_VA_START(ap, msg); (void) vfprintf(stderr, m, ap); SM_VA_END(ap); (void) fprintf(stderr, "\n"); } sendmail-8.18.1/libsmutil/t-maplock-0.sh0000755000372400037240000000335214556365350017361 0ustar xbuildxbuild#!/bin/sh # Copyright (c) 2021 Proofpoint, Inc. and its suppliers. # All rights reserved. # # By using this file, you agree to the terms and conditions set # forth in the LICENSE file which can be found at the top level of # the sendmail distribution. # # ---------------------------------------- # test map locking. # Note: this is mostly for systems which use fcntl(). # just invoke it from the obj.*/libsmutil/ directory; # otherwise use the -l and -m options to specify the paths. # ---------------------------------------- fail() { echo "$0: $@" exit 1 } err() { echo "$0: $@" rc=1 } O=`basename $0`.0 V=vt M=../makemap/makemap CHKL=./t-lockfile usage() { cat <> $O 2>&1 } chkl() { ${CHKL} -Rrc -f $F >> $O 2>&1 } for XT in ${MAPTX} do MT=`echo $XT | cut -d: -f1` EXT=`echo $XT | cut -d: -f2` F=$V.${EXT} rm -f $O mm & wpid=$! sleep 1 chkl& rpid=$! while [ $tries -gt 0 ] do sleep 1; chkl tries=`expr $tries - 1 ` done wait $wpid wait $rpid if grep "status=unknown" $O >/dev/null then : else # get the makemap pid, not the "mm" pid, for checks? grep "status=locked pid=" $O || err "$MT map not locked" fi done exit $rc sendmail-8.18.1/libsmutil/debug.c0000644000372400037240000000062014556365350016223 0ustar xbuildxbuild/* * Copyright (c) 1999-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: debug.c,v 8.10 2013-11-22 20:51:50 ca Exp $") unsigned char tTdvect[100]; /* trace vector */ sendmail-8.18.1/libsmutil/cf.c0000644000372400037240000000341414556365350015531 0ustar xbuildxbuild/* * Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * */ #include SM_RCSID("@(#)$Id: cf.c,v 8.20 2013-11-22 20:51:50 ca Exp $") #include /* ** GETCFNAME -- return the name of the .cf file to use. ** ** Some systems (e.g., NeXT) determine this dynamically. ** ** For others: returns submit.cf or sendmail.cf depending ** on the modes. ** ** Parameters: ** opmode -- operation mode. ** submitmode -- submit mode. ** cftype -- may request a certain cf file. ** conffile -- if set, return it. ** ** Returns: ** name of .cf file. */ char * getcfname(opmode, submitmode, cftype, conffile) int opmode; int submitmode; int cftype; char *conffile; { #if NETINFO char *cflocation; #endif if (conffile != NULL) return conffile; if (cftype == SM_GET_SUBMIT_CF || ((submitmode != SUBMIT_UNKNOWN || opmode == MD_DELIVER || opmode == MD_ARPAFTP || opmode == MD_SMTP) && cftype != SM_GET_SENDMAIL_CF)) { struct stat sbuf; static char cf[MAXPATHLEN]; #if NETINFO cflocation = ni_propval("/locations", NULL, "sendmail", "submit.cf", '\0'); if (cflocation != NULL) (void) sm_strlcpy(cf, cflocation, sizeof cf); else #endif /* NETINFO */ /* "else" in #if code above */ { (void) sm_strlcpyn(cf, sizeof cf, 2, _DIR_SENDMAILCF, "submit.cf"); } if (cftype == SM_GET_SUBMIT_CF || stat(cf, &sbuf) == 0) return cf; } #if NETINFO cflocation = ni_propval("/locations", NULL, "sendmail", "sendmail.cf", '\0'); if (cflocation != NULL) return cflocation; #endif return _PATH_SENDMAILCF; } sendmail-8.18.1/include/0000755000372400037240000000000014556365434014415 5ustar xbuildxbuildsendmail-8.18.1/include/libmilter/0000755000372400037240000000000014556365434016400 5ustar xbuildxbuildsendmail-8.18.1/include/libmilter/mfdef.h0000644000372400037240000001216314556365350017632 0ustar xbuildxbuild/* * Copyright (c) 1999-2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * * $Id: mfdef.h,v 8.40 2013-11-22 20:51:27 ca Exp $ */ /* ** mfdef.h -- Global definitions for mail filter and MTA. */ #ifndef _LIBMILTER_MFDEF_H # define _LIBMILTER_MFDEF_H 1 #ifndef SMFI_PROT_VERSION # define SMFI_PROT_VERSION 6 /* MTA - libmilter protocol version */ #endif /* Shared protocol constants */ #define MILTER_LEN_BYTES 4 /* length of 32 bit integer in bytes */ #define MILTER_OPTLEN (MILTER_LEN_BYTES * 3) /* length of options */ #define MILTER_CHUNK_SIZE 65535 /* body chunk size */ #define MILTER_MAX_DATA_SIZE 65535 /* default milter command data limit */ #if _FFR_MDS_NEGOTIATE # define MILTER_MDS_64K ((64 * 1024) - 1) # define MILTER_MDS_256K ((256 * 1024) - 1) # define MILTER_MDS_1M ((1024 * 1024) - 1) #endif /* _FFR_MDS_NEGOTIATE */ /* These apply to SMFIF_* flags */ #define SMFI_V1_ACTS 0x0000000FL /* The actions of V1 filter */ #define SMFI_V2_ACTS 0x0000003FL /* The actions of V2 filter */ #define SMFI_CURR_ACTS 0x000001FFL /* actions of current version */ /* address families */ #define SMFIA_UNKNOWN 'U' /* unknown */ #define SMFIA_UNIX 'L' /* unix/local */ #define SMFIA_INET '4' /* inet */ #define SMFIA_INET6 '6' /* inet6 */ /* commands: don't use anything smaller than ' ' */ #define SMFIC_ABORT 'A' /* Abort */ #define SMFIC_BODY 'B' /* Body chunk */ #define SMFIC_CONNECT 'C' /* Connection information */ #define SMFIC_MACRO 'D' /* Define macro */ #define SMFIC_BODYEOB 'E' /* final body chunk (End) */ #define SMFIC_HELO 'H' /* HELO/EHLO */ #define SMFIC_QUIT_NC 'K' /* QUIT but new connection follows */ #define SMFIC_HEADER 'L' /* Header */ #define SMFIC_MAIL 'M' /* MAIL from */ #define SMFIC_EOH 'N' /* EOH */ #define SMFIC_OPTNEG 'O' /* Option negotiation */ #define SMFIC_QUIT 'Q' /* QUIT */ #define SMFIC_RCPT 'R' /* RCPT to */ #define SMFIC_DATA 'T' /* DATA */ #define SMFIC_UNKNOWN 'U' /* Any unknown command */ /* actions (replies) */ #define SMFIR_ADDRCPT '+' /* add recipient */ #define SMFIR_DELRCPT '-' /* remove recipient */ #define SMFIR_ADDRCPT_PAR '2' /* add recipient (incl. ESMTP args) */ #define SMFIR_SHUTDOWN '4' /* 421: shutdown (internal to MTA) */ #define SMFIR_ACCEPT 'a' /* accept */ #define SMFIR_REPLBODY 'b' /* replace body (chunk) */ #define SMFIR_CONTINUE 'c' /* continue */ #define SMFIR_DISCARD 'd' /* discard */ #define SMFIR_CHGFROM 'e' /* change envelope sender (from) */ #define SMFIR_CONN_FAIL 'f' /* cause a connection failure */ #define SMFIR_ADDHEADER 'h' /* add header */ #define SMFIR_INSHEADER 'i' /* insert header */ #define SMFIR_SETSYMLIST 'l' /* set list of symbols (macros) */ #define SMFIR_CHGHEADER 'm' /* change header */ #define SMFIR_PROGRESS 'p' /* progress */ #define SMFIR_QUARANTINE 'q' /* quarantine */ #define SMFIR_REJECT 'r' /* reject */ #define SMFIR_SKIP 's' /* skip */ #define SMFIR_TEMPFAIL 't' /* tempfail */ #define SMFIR_REPLYCODE 'y' /* reply code etc */ /* What the MTA can send/filter wants in protocol */ #define SMFIP_NOCONNECT 0x00000001L /* MTA should not send connect info */ #define SMFIP_NOHELO 0x00000002L /* MTA should not send HELO info */ #define SMFIP_NOMAIL 0x00000004L /* MTA should not send MAIL info */ #define SMFIP_NORCPT 0x00000008L /* MTA should not send RCPT info */ #define SMFIP_NOBODY 0x00000010L /* MTA should not send body */ #define SMFIP_NOHDRS 0x00000020L /* MTA should not send headers */ #define SMFIP_NOEOH 0x00000040L /* MTA should not send EOH */ #define SMFIP_NR_HDR 0x00000080L /* No reply for headers */ #define SMFIP_NOHREPL SMFIP_NR_HDR /* No reply for headers */ #define SMFIP_NOUNKNOWN 0x00000100L /* MTA should not send unknown commands */ #define SMFIP_NODATA 0x00000200L /* MTA should not send DATA */ #define SMFIP_SKIP 0x00000400L /* MTA understands SMFIS_SKIP */ #define SMFIP_RCPT_REJ 0x00000800L /* MTA should also send rejected RCPTs */ #define SMFIP_NR_CONN 0x00001000L /* No reply for connect */ #define SMFIP_NR_HELO 0x00002000L /* No reply for HELO */ #define SMFIP_NR_MAIL 0x00004000L /* No reply for MAIL */ #define SMFIP_NR_RCPT 0x00008000L /* No reply for RCPT */ #define SMFIP_NR_DATA 0x00010000L /* No reply for DATA */ #define SMFIP_NR_UNKN 0x00020000L /* No reply for UNKN */ #define SMFIP_NR_EOH 0x00040000L /* No reply for eoh */ #define SMFIP_NR_BODY 0x00080000L /* No reply for body chunk */ #define SMFIP_HDR_LEADSPC 0x00100000L /* header value leading space */ #define SMFIP_MDS_256K 0x10000000L /* MILTER_MAX_DATA_SIZE=256K */ #define SMFIP_MDS_1M 0x20000000L /* MILTER_MAX_DATA_SIZE=1M */ /* #define SMFIP_ 0x40000000L reserved: see SMFI_INTERNAL*/ #define SMFI_V1_PROT 0x0000003FL /* The protocol of V1 filter */ #define SMFI_V2_PROT 0x0000007FL /* The protocol of V2 filter */ /* all defined protocol bits */ #define SMFI_CURR_PROT 0x001FFFFFL /* internal flags: only used between MTA and libmilter */ #define SMFI_INTERNAL 0x70000000L #if _FFR_MILTER_CHECK # define SMFIP_TEST 0x80000000L #endif #endif /* !_LIBMILTER_MFDEF_H */ sendmail-8.18.1/include/libmilter/milter.h0000644000372400037240000000120314556365350020036 0ustar xbuildxbuild/* * Copyright (c) 1999-2003, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * * $Id: milter.h,v 8.42 2013-11-22 20:51:27 ca Exp $ */ /* ** MILTER.H -- Global definitions for mail filter. */ #ifndef _LIBMILTER_MILTER_H # define _LIBMILTER_MILTER_H 1 #include "sendmail.h" #include "libmilter/mfapi.h" /* socket and thread portability */ # include typedef pthread_t sthread_t; typedef int socket_t; #endif /* ! _LIBMILTER_MILTER_H */ sendmail-8.18.1/include/libmilter/mfapi.h0000644000372400037240000004037014556365350017646 0ustar xbuildxbuild/* * Copyright (c) 1999-2004, 2006, 2008, 2012 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * * $Id: mfapi.h,v 8.83 2013-11-22 20:51:27 ca Exp $ */ /* ** MFAPI.H -- Global definitions for mail filter library and mail filters. */ #ifndef _LIBMILTER_MFAPI_H # define _LIBMILTER_MFAPI_H 1 #ifndef SMFI_VERSION # if _FFR_MDS_NEGOTIATE # define SMFI_VERSION 0x01000002 /* libmilter version number */ /* first libmilter version that has MDS support */ # define SMFI_VERSION_MDS 0x01000002 # else /* _FFR_MDS_NEGOTIATE */ # define SMFI_VERSION 0x01000001 /* libmilter version number */ # endif /* _FFR_MDS_NEGOTIATE */ #endif /* ! SMFI_VERSION */ #define SM_LM_VRS_MAJOR(v) (((v) & 0x7f000000) >> 24) #define SM_LM_VRS_MINOR(v) (((v) & 0x007fff00) >> 8) #define SM_LM_VRS_PLVL(v) ((v) & 0x0000007f) # include # include #include "libmilter/mfdef.h" # define LIBMILTER_API extern /* Only need to export C interface if used by C++ source code */ #ifdef __cplusplus extern "C" { #endif #ifndef _SOCK_ADDR # define _SOCK_ADDR struct sockaddr #endif /* ** libmilter functions return one of the following to indicate ** success/failure(/continue): */ #define MI_SUCCESS 0 #define MI_FAILURE (-1) #if _FFR_WORKERS_POOL # define MI_CONTINUE 1 #endif /* "forward" declarations */ typedef struct smfi_str SMFICTX; typedef struct smfi_str *SMFICTX_PTR; typedef struct smfiDesc smfiDesc_str; typedef struct smfiDesc *smfiDesc_ptr; /* ** Type which callbacks should return to indicate message status. ** This may take on one of the SMFIS_* values listed below. */ typedef int sfsistat; #if defined(__linux__) && defined(__GNUC__) && defined(__cplusplus) && __GNUC_MINOR__ >= 8 # define SM__P(X) __PMT(X) #else # define SM__P(X) __P(X) #endif /* Some platforms don't define __P -- do it for them here: */ #ifndef __P # ifdef __STDC__ # define __P(X) X # else # define __P(X) () # endif #endif /* __P */ #if SM_CONF_STDBOOL_H # include #else /* SM_CONF_STDBOOL_H */ # ifndef __cplusplus # ifndef bool # ifndef __bool_true_false_are_defined typedef int bool; # define false 0 # define true 1 # define __bool_true_false_are_defined 1 # endif /* ! __bool_true_false_are_defined */ # endif /* bool */ # endif /* ! __cplusplus */ #endif /* SM_CONF_STDBOOL_H */ /* ** structure describing one milter */ struct smfiDesc { char *xxfi_name; /* filter name */ int xxfi_version; /* version code -- do not change */ unsigned long xxfi_flags; /* flags */ /* connection info filter */ sfsistat (*xxfi_connect) SM__P((SMFICTX *, char *, _SOCK_ADDR *)); /* SMTP HELO command filter */ sfsistat (*xxfi_helo) SM__P((SMFICTX *, char *)); /* envelope sender filter */ sfsistat (*xxfi_envfrom) SM__P((SMFICTX *, char **)); /* envelope recipient filter */ sfsistat (*xxfi_envrcpt) SM__P((SMFICTX *, char **)); /* header filter */ sfsistat (*xxfi_header) SM__P((SMFICTX *, char *, char *)); /* end of header */ sfsistat (*xxfi_eoh) SM__P((SMFICTX *)); /* body block */ sfsistat (*xxfi_body) SM__P((SMFICTX *, unsigned char *, size_t)); /* end of message */ sfsistat (*xxfi_eom) SM__P((SMFICTX *)); /* message aborted */ sfsistat (*xxfi_abort) SM__P((SMFICTX *)); /* connection cleanup */ sfsistat (*xxfi_close) SM__P((SMFICTX *)); /* any unrecognized or unimplemented command filter */ sfsistat (*xxfi_unknown) SM__P((SMFICTX *, const char *)); /* SMTP DATA command filter */ sfsistat (*xxfi_data) SM__P((SMFICTX *)); /* negotiation callback */ sfsistat (*xxfi_negotiate) SM__P((SMFICTX *, unsigned long, unsigned long, unsigned long, unsigned long, unsigned long *, unsigned long *, unsigned long *, unsigned long *)); #if 0 /* signal handler callback, not yet implemented. */ int (*xxfi_signal) SM__P((int)); #endif }; LIBMILTER_API int smfi_opensocket __P((bool)); LIBMILTER_API int smfi_register __P((struct smfiDesc)); LIBMILTER_API int smfi_main __P((void)); LIBMILTER_API int smfi_setbacklog __P((int)); LIBMILTER_API int smfi_setdbg __P((int)); LIBMILTER_API int smfi_settimeout __P((int)); LIBMILTER_API int smfi_setconn __P((char *)); LIBMILTER_API int smfi_stop __P((void)); LIBMILTER_API size_t smfi_setmaxdatasize __P((size_t)); LIBMILTER_API int smfi_version __P((unsigned int *, unsigned int *, unsigned int *)); /* ** What the filter might do -- values to be ORed together for ** smfiDesc.xxfi_flags. */ #define SMFIF_NONE 0x00000000L /* no flags */ #define SMFIF_ADDHDRS 0x00000001L /* filter may add headers */ #define SMFIF_CHGBODY 0x00000002L /* filter may replace body */ #define SMFIF_MODBODY SMFIF_CHGBODY /* backwards compatible */ #define SMFIF_ADDRCPT 0x00000004L /* filter may add recipients */ #define SMFIF_DELRCPT 0x00000008L /* filter may delete recipients */ #define SMFIF_CHGHDRS 0x00000010L /* filter may change/delete headers */ #define SMFIF_QUARANTINE 0x00000020L /* filter may quarantine envelope */ /* filter may change "from" (envelope sender) */ #define SMFIF_CHGFROM 0x00000040L #define SMFIF_ADDRCPT_PAR 0x00000080L /* add recipients incl. args */ /* filter can send set of symbols (macros) that it wants */ #define SMFIF_SETSYMLIST 0x00000100L /* ** Macro "places"; ** Notes: ** - must be coordinated with libmilter/engine.c and sendmail/milter.c ** - the order MUST NOT be changed as it would break compatibility between ** different versions. It's ok to append new entries however ** (hence the list is not sorted by the SMT protocol steps). */ #define SMFIM_NOMACROS (-1) /* Do NOT use, internal only */ #define SMFIM_FIRST 0 /* Do NOT use, internal marker only */ #define SMFIM_CONNECT 0 /* connect */ #define SMFIM_HELO 1 /* HELO/EHLO */ #define SMFIM_ENVFROM 2 /* MAIL From */ #define SMFIM_ENVRCPT 3 /* RCPT To */ #define SMFIM_DATA 4 /* DATA */ #define SMFIM_EOM 5 /* end of message (final dot) */ #define SMFIM_EOH 6 /* end of header */ #define SMFIM_LAST 6 /* Do NOT use, internal marker only */ /* ** Continue processing message/connection. */ #define SMFIS_CONTINUE 0 /* ** Reject the message/connection. ** No further routines will be called for this message ** (or connection, if returned from a connection-oriented routine). */ #define SMFIS_REJECT 1 /* ** Accept the message, ** but silently discard the message. ** No further routines will be called for this message. ** This is only meaningful from message-oriented routines. */ #define SMFIS_DISCARD 2 /* ** Accept the message/connection. ** No further routines will be called for this message ** (or connection, if returned from a connection-oriented routine; ** in this case, it causes all messages on this connection ** to be accepted without filtering). */ #define SMFIS_ACCEPT 3 /* ** Return a temporary failure, i.e., ** the corresponding SMTP command will return a 4xx status code. ** In some cases this may prevent further routines from ** being called on this message or connection, ** although in other cases (e.g., when processing an envelope ** recipient) processing of the message will continue. */ #define SMFIS_TEMPFAIL 4 /* ** Do not send a reply to the MTA */ #define SMFIS_NOREPLY 7 /* ** Skip over rest of same callbacks, e.g., body. */ #define SMFIS_SKIP 8 /* xxfi_negotiate: use all existing protocol options/actions */ #define SMFIS_ALL_OPTS 10 #if 0 /* ** Filter Routine Details */ /* connection info filter */ extern sfsistat xxfi_connect __P((SMFICTX *, char *, _SOCK_ADDR *)); /* ** xxfi_connect(ctx, hostname, hostaddr) Invoked on each connection ** ** char *hostname; Host domain name, as determined by a reverse lookup ** on the host address. ** _SOCK_ADDR *hostaddr; Host address, as determined by a getpeername ** call on the SMTP socket. */ /* SMTP HELO command filter */ extern sfsistat xxfi_helo __P((SMFICTX *, char *)); /* ** xxfi_helo(ctx, helohost) Invoked on SMTP HELO/EHLO command ** ** char *helohost; Value passed to HELO/EHLO command, which should be ** the domain name of the sending host (but is, in practice, ** anything the sending host wants to send). */ /* envelope sender filter */ extern sfsistat xxfi_envfrom __P((SMFICTX *, char **)); /* ** xxfi_envfrom(ctx, argv) Invoked on envelope from ** ** char **argv; Null-terminated SMTP command arguments; ** argv[0] is guaranteed to be the sender address. ** Later arguments are the ESMTP arguments. */ /* envelope recipient filter */ extern sfsistat xxfi_envrcpt __P((SMFICTX *, char **)); /* ** xxfi_envrcpt(ctx, argv) Invoked on each envelope recipient ** ** char **argv; Null-terminated SMTP command arguments; ** argv[0] is guaranteed to be the recipient address. ** Later arguments are the ESMTP arguments. */ /* unknown command filter */ extern sfsistat *xxfi_unknown __P((SMFICTX *, const char *)); /* ** xxfi_unknown(ctx, arg) Invoked when SMTP command is not recognized or not ** implemented. ** const char *arg; Null-terminated SMTP command */ /* header filter */ extern sfsistat xxfi_header __P((SMFICTX *, char *, char *)); /* ** xxfi_header(ctx, headerf, headerv) Invoked on each message header. The ** content of the header may have folded white space (that is, multiple ** lines with following white space) included. ** ** char *headerf; Header field name ** char *headerv; Header field value */ /* end of header */ extern sfsistat xxfi_eoh __P((SMFICTX *)); /* ** xxfi_eoh(ctx) Invoked at end of header */ /* body block */ extern sfsistat xxfi_body __P((SMFICTX *, unsigned char *, size_t)); /* ** xxfi_body(ctx, bodyp, bodylen) Invoked for each body chunk. There may ** be multiple body chunks passed to the filter. End-of-lines are ** represented as received from SMTP (normally Carriage-Return/Line-Feed). ** ** unsigned char *bodyp; Pointer to body data ** size_t bodylen; Length of body data */ /* end of message */ extern sfsistat xxfi_eom __P((SMFICTX *)); /* ** xxfi_eom(ctx) Invoked at end of message. This routine can perform ** special operations such as modifying the message header, body, or ** envelope. */ /* message aborted */ extern sfsistat xxfi_abort __P((SMFICTX *)); /* ** xxfi_abort(ctx) Invoked if message is aborted outside of the control of ** the filter, for example, if the SMTP sender issues an RSET command. If ** xxfi_abort is called, xxfi_eom will not be called and vice versa. */ /* connection cleanup */ extern sfsistat xxfi_close __P((SMFICTX *)); /* ** xxfi_close(ctx) Invoked at end of the connection. This is called on ** close even if the previous mail transaction was aborted. */ #endif /* 0 */ /* ** Additional information is passed in to the vendor filter routines using ** symbols. Symbols correspond closely to sendmail macros. The symbols ** defined depend on the context. The value of a symbol is accessed using: */ /* Return the value of a symbol. */ LIBMILTER_API char * smfi_getsymval __P((SMFICTX *, char *)); /* ** Return the value of a symbol. ** ** SMFICTX *ctx; Opaque context structure ** char *symname; The name of the symbol to access. */ /* ** Vendor filter routines that want to pass additional information back to ** the MTA for use in SMTP replies may call smfi_setreply before returning. */ LIBMILTER_API int smfi_setreply __P((SMFICTX *, char *, char *, char *)); /* ** Alternatively, smfi_setmlreply can be called if a multi-line SMTP reply ** is needed. */ LIBMILTER_API int smfi_setmlreply __P((SMFICTX *, const char *, const char *, ...)); /* ** Set the specific reply code to be used in response to the active ** command. If not specified, a generic reply code is used. ** ** SMFICTX *ctx; Opaque context structure ** char *rcode; The three-digit (RFC 821) SMTP reply code to be ** returned, e.g., ``551''. ** char *xcode; The extended (RFC 2034) reply code, e.g., ``5.7.6''. ** char *message; The text part of the SMTP reply. */ /* ** The xxfi_eom routine is called at the end of a message (essentially, ** after the final DATA dot). This routine can call some special routines ** to modify the envelope, header, or body of the message before the ** message is enqueued. These routines must not be called from any vendor ** routine other than xxfi_eom. */ LIBMILTER_API int smfi_addheader __P((SMFICTX *, char *, char *)); /* ** Add a header to the message. It is not checked for standards ** compliance; the mail filter must ensure that no protocols are violated ** as a result of adding this header. ** ** SMFICTX *ctx; Opaque context structure ** char *headerf; Header field name ** char *headerv; Header field value */ LIBMILTER_API int smfi_chgheader __P((SMFICTX *, char *, int, char *)); /* ** Change/delete a header in the message. It is not checked for standards ** compliance; the mail filter must ensure that no protocols are violated ** as a result of adding this header. ** ** SMFICTX *ctx; Opaque context structure ** char *headerf; Header field name ** int index; The Nth occurrence of header field name ** char *headerv; New header field value (empty for delete header) */ LIBMILTER_API int smfi_insheader __P((SMFICTX *, int, char *, char *)); /* ** Insert a header into the message. It is not checked for standards ** compliance; the mail filter must ensure that no protocols are violated ** as a result of adding this header. ** ** SMFICTX *ctx; Opaque context structure ** int idx; index into the header list where the insertion should happen ** char *headerh; Header field name ** char *headerv; Header field value */ LIBMILTER_API int smfi_chgfrom __P((SMFICTX *, char *, char *)); /* ** Modify envelope sender address ** ** SMFICTX *ctx; Opaque context structure ** char *mail; New envelope sender address ** char *args; ESMTP arguments */ LIBMILTER_API int smfi_addrcpt __P((SMFICTX *, char *)); /* ** Add a recipient to the envelope ** ** SMFICTX *ctx; Opaque context structure ** char *rcpt; Recipient to be added */ LIBMILTER_API int smfi_addrcpt_par __P((SMFICTX *, char *, char *)); /* ** Add a recipient to the envelope ** ** SMFICTX *ctx; Opaque context structure ** char *rcpt; Recipient to be added ** char *args; ESMTP arguments */ LIBMILTER_API int smfi_delrcpt __P((SMFICTX *, char *)); /* ** Send a "no-op" up to the MTA to tell it we're still alive, so long ** milter-side operations don't time out. ** ** SMFICTX *ctx; Opaque context structure */ LIBMILTER_API int smfi_progress __P((SMFICTX *)); /* ** Delete a recipient from the envelope ** ** SMFICTX *ctx; Opaque context structure ** char *rcpt; Envelope recipient to be deleted. This should be in ** exactly the form passed to xxfi_envrcpt or the address may ** not be deleted. */ LIBMILTER_API int smfi_replacebody __P((SMFICTX *, unsigned char *, int)); /* ** Replace the body of the message. This routine may be called multiple ** times if the body is longer than convenient to send in one call. End of ** line should be represented as Carriage-Return/Line Feed. ** ** char *bodyp; Pointer to block of body information to insert ** int bodylen; Length of data pointed at by bodyp */ /* ** If the message is aborted (for example, if the SMTP sender sends the ** envelope but then does a QUIT or RSET before the data is sent), ** xxfi_abort is called. This can be used to reset state. */ /* ** Quarantine an envelope ** ** SMFICTX *ctx; Opaque context structure ** char *reason: explanation */ LIBMILTER_API int smfi_quarantine __P((SMFICTX *ctx, char *reason)); /* ** Connection-private data (specific to an SMTP connection) can be ** allocated using the smfi_setpriv routine; routines can access private ** data using smfi_getpriv. */ LIBMILTER_API int smfi_setpriv __P((SMFICTX *, void *)); /* ** Set the private data pointer ** ** SMFICTX *ctx; Opaque context structure ** void *privatedata; Pointer to private data area */ LIBMILTER_API void *smfi_getpriv __P((SMFICTX *)); /* ** Get the private data pointer ** ** SMFICTX *ctx; Opaque context structure ** void *privatedata; Pointer to private data area */ LIBMILTER_API int smfi_setsymlist __P((SMFICTX *, int, char *)); /* ** Set list of symbols (macros) to receive ** ** SMFICTX *ctx; Opaque context structure ** int where; where in the SMTP dialogue should the macros be sent ** char *macros; list of macros (space separated) */ #if _FFR_THREAD_MONITOR LIBMILTER_API int smfi_set_max_exec_time __P((unsigned int)); #endif #ifdef __cplusplus } #endif #endif /* ! _LIBMILTER_MFAPI_H */ sendmail-8.18.1/include/libsmdb/0000755000372400037240000000000014556365434016031 5ustar xbuildxbuildsendmail-8.18.1/include/libsmdb/smdb.h0000644000372400037240000002131514556365350017126 0ustar xbuildxbuild/* * Copyright (c) 1999-2002, 2018 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: smdb.h,v 8.42 2013-11-22 20:51:28 ca Exp $ * */ #ifndef _SMDB_H_ # define _SMDB_H_ # include # include # include # include # if NDBM # include # endif # if NEWDB # include "sm/bdb.h" # endif /* ** Some size constants */ #define SMDB_MAX_USER_NAME_LEN 1024 /* ** This file defines the abstraction for database lookups. It is pretty ** much a copy of the db2 interface with the exception that every function ** returns 0 on success and non-zero on failure. The non-zero return code ** is meaningful. ** ** I'm going to put the function comments in this file since the interface ** MUST be the same for all inheritors of this interface. */ typedef struct database_struct SMDB_DATABASE; typedef struct cursor_struct SMDB_CURSOR; typedef struct entry_struct SMDB_DBENT; /* ** DB_CLOSE_FUNC -- close the database ** ** Parameters: ** db -- The database to close. ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_close_func) __P((SMDB_DATABASE *db)); /* ** DB_DEL_FUNC -- removes a key and data pair from the database ** ** Parameters: ** db -- The database to close. ** key -- The key to remove. ** flags -- delete options. There are currently no defined ** flags for delete. ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_del_func) __P((SMDB_DATABASE *db, SMDB_DBENT *key, unsigned int flags)); /* ** DB_FD_FUNC -- Returns a pointer to a file used for the database. ** ** Parameters: ** db -- The database to close. ** fd -- A pointer to store the returned fd in. ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_fd_func) __P((SMDB_DATABASE *db, int* fd)); /* ** DB_GET_FUNC -- Gets the data associated with a key. ** ** Parameters: ** db -- The database to close. ** key -- The key to access. ** data -- A place to store the returned data. ** flags -- get options. There are currently no defined ** flags for get. ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_get_func) __P((SMDB_DATABASE *db, SMDB_DBENT *key, SMDB_DBENT *data, unsigned int flags)); /* ** DB_PUT_FUNC -- Sets some data according to the key. ** ** Parameters: ** db -- The database to close. ** key -- The key to use. ** data -- The data to store. ** flags -- put options: ** SMDBF_NO_OVERWRITE - Return an error if key already ** exists. ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_put_func) __P((SMDB_DATABASE *db, SMDB_DBENT *key, SMDB_DBENT *data, unsigned int flags)); /* ** DB_SYNC_FUNC -- Flush any cached information to disk. ** ** Parameters: ** db -- The database to sync. ** flags -- sync options: ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_sync_func) __P((SMDB_DATABASE *db, unsigned int flags)); /* ** DB_SET_OWNER_FUNC -- Set the owner and group of the database files. ** ** Parameters: ** db -- The database to set. ** uid -- The UID for the new owner (-1 for no change) ** gid -- The GID for the new owner (-1 for no change) ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_set_owner_func) __P((SMDB_DATABASE *db, uid_t uid, gid_t gid)); /* ** DB_CURSOR -- Obtain a cursor for sequential access ** ** Parameters: ** db -- The database to use. ** cursor -- The address of a cursor pointer. ** flags -- sync options: ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_cursor_func) __P((SMDB_DATABASE *db, SMDB_CURSOR **cursor, unsigned int flags)); typedef int (*db_lockfd_func) __P((SMDB_DATABASE *db)); struct database_struct { db_close_func smdb_close; db_del_func smdb_del; db_fd_func smdb_fd; db_get_func smdb_get; db_put_func smdb_put; db_sync_func smdb_sync; db_set_owner_func smdb_set_owner; db_cursor_func smdb_cursor; db_lockfd_func smdb_lockfd; void *smdb_impl; }; /* ** DB_CURSOR_CLOSE -- Close a cursor ** ** Parameters: ** cursor -- The cursor to close. ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_cursor_close_func) __P((SMDB_CURSOR *cursor)); /* ** DB_CURSOR_DEL -- Delete the key/value pair of this cursor ** ** Parameters: ** cursor -- The cursor. ** flags -- flags ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_cursor_del_func) __P((SMDB_CURSOR *cursor, unsigned int flags)); /* ** DB_CURSOR_GET -- Get the key/value of this cursor. ** ** Parameters: ** cursor -- The cursor. ** key -- The current key. ** value -- The current value ** flags -- flags ** ** Returns: ** 0 - Success, otherwise errno. ** SMDBE_LAST_ENTRY - This is a success condition that ** gets returned when the end of the ** database is hit. ** */ typedef int (*db_cursor_get_func) __P((SMDB_CURSOR *cursor, SMDB_DBENT *key, SMDB_DBENT *data, unsigned int flags)); /* ** Flags for DB_CURSOR_GET */ #define SMDB_CURSOR_GET_FIRST 0 /* NOT USED by any application */ #define SMDB_CURSOR_GET_LAST 1 /* NOT USED by any application */ #define SMDB_CURSOR_GET_NEXT 2 #define SMDB_CURSOR_GET_RANGE 3 /* NOT USED by any application */ /* ** DB_CURSOR_PUT -- Put the key/value at this cursor. ** ** Parameters: ** cursor -- The cursor. ** key -- The current key. ** value -- The current value ** flags -- flags ** ** Returns: ** 0 - Success, otherwise errno. ** */ typedef int (*db_cursor_put_func) __P((SMDB_CURSOR *cursor, SMDB_DBENT *key, SMDB_DBENT *data, unsigned int flags)); struct cursor_struct { db_cursor_close_func smdbc_close; db_cursor_del_func smdbc_del; db_cursor_get_func smdbc_get; db_cursor_put_func smdbc_put; void *smdbc_impl; }; struct database_params_struct { unsigned int smdbp_num_elements; unsigned int smdbp_cache_size; bool smdbp_allow_dup; }; typedef struct database_params_struct SMDB_DBPARAMS; struct database_user_struct { uid_t smdbu_id; gid_t smdbu_group_id; char smdbu_name[SMDB_MAX_USER_NAME_LEN]; }; typedef struct database_user_struct SMDB_USER_INFO; struct entry_struct { void *data; size_t size; }; typedef char *SMDB_DBTYPE; typedef unsigned int SMDB_FLAG; /* ** These are types of databases. */ # define SMDB_TYPE_DEFAULT NULL # define SMDB_TYPE_DEFAULT_LEN 0 # define SMDB_TYPE_IMPL "implicit" # define SMDB_TYPE_IMPL_LEN 9 # define SMDB_TYPE_HASH "hash" # define SMDB_TYPE_HASH_LEN 5 # define SMDB_TYPE_BTREE "btree" # define SMDB_TYPE_BTREE_LEN 6 # define SMDB_TYPE_NDBM "dbm" # define SMDB_TYPE_NDBM_LEN 4 # define SMDB_TYPE_CDB "cdb" # define SMDB_TYPE_CDB_LEN 4 # define SMDB_IS_TYPE_HASH(type) (strncmp(type, SMDB_TYPE_HASH, SMDB_TYPE_HASH_LEN) == 0) # define SMDB_IS_TYPE_BTREE(type) (strncmp(type, SMDB_TYPE_BTREE, SMDB_TYPE_BTREE_LEN) == 0) # define SMDB_IS_TYPE_NDBM(type) (strncmp(type, SMDB_TYPE_NDBM, SMDB_TYPE_NDBM_LEN) == 0) # define SMDB_IS_TYPE_CDB(type) (strncmp(type, SMDB_TYPE_CDB, SMDB_TYPE_CDB_LEN) == 0) # define SMDB_IS_TYPE_DEFAULT(t) (((t) == SMDB_TYPE_DEFAULT) \ || (strncmp(type, SMDB_TYPE_IMPL, SMDB_TYPE_IMPL_LEN) == 0) \ ) # if CDB >= 2 # define SMCDB_FILE_EXTENSION "db" # else # define SMCDB_FILE_EXTENSION "cdb" # endif # define SMDB1_FILE_EXTENSION "db" # define SMDB2_FILE_EXTENSION "db" # define SMNDB_DIR_FILE_EXTENSION "dir" /* ** These are flags */ /* Flags for put */ # define SMDBF_NO_OVERWRITE 0x00000001 typedef int (smdb_open_func) __P((SMDB_DATABASE **, char *, int, int, long, SMDB_DBTYPE, SMDB_USER_INFO *, SMDB_DBPARAMS *)); extern SMDB_DATABASE *smdb_malloc_database __P((void)); extern void smdb_free_database __P((SMDB_DATABASE *)); extern smdb_open_func smdb_open_database; # if NEWDB extern smdb_open_func smdb_db_open; # else # define smdb_db_open NULL # endif # if NDBM extern smdb_open_func smdb_ndbm_open; # else # define smdb_ndbm_open NULL # endif extern int smdb_add_extension __P((char *, int, char *, char *)); extern int smdb_setup_file __P((char *, char *, int, long, SMDB_USER_INFO *, struct stat *)); extern int smdb_lock_file __P((int *, char *, int, long, char *)); extern int smdb_unlock_file __P((int)); extern int smdb_filechanged __P((char *, char *, int, struct stat *)); extern void smdb_print_available_types __P((bool)); extern bool smdb_is_db_type __P((const char *)); extern char *smdb_db_definition __P((SMDB_DBTYPE)); extern int smdb_lock_map __P((SMDB_DATABASE *, int)); extern int smdb_unlock_map __P((SMDB_DATABASE *)); # if CDB extern smdb_open_func smdb_cdb_open; # else # define smdb_cdb_open NULL # endif #endif /* ! _SMDB_H_ */ sendmail-8.18.1/include/sm/0000755000372400037240000000000014556365433015033 5ustar xbuildxbuildsendmail-8.18.1/include/sm/varargs.h0000644000372400037240000000245114556365350016651 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: varargs.h,v 1.9 2013-11-22 20:51:32 ca Exp $ */ /* ** libsm variable argument lists */ #ifndef SM_VARARGS_H # define SM_VARARGS_H # if defined(__STDC__) || defined(__cplusplus) # define SM_VA_STD 1 # include # define SM_VA_START(ap, f) va_start(ap, f) # else /* defined(__STDC__) || defined(__cplusplus) */ # define SM_VA_STD 0 # include # define SM_VA_START(ap, f) va_start(ap) # endif /* defined(__STDC__) || defined(__cplusplus) */ # if defined(va_copy) # define SM_VA_COPY(dst, src) va_copy((dst), (src)) # elif defined(__va_copy) # define SM_VA_COPY(dst, src) __va_copy((dst), (src)) # else # define SM_VA_COPY(dst, src) memcpy(&(dst), &(src), sizeof((dst))) # define SM_VA_END_COPY(ap) do { } while (0) # endif # ifndef SM_VA_END_COPY # define SM_VA_END_COPY(ap) va_end(ap) # endif /* ** The following macros are useless, but are provided for symmetry. */ # define SM_VA_LOCAL_DECL va_list ap; # define SM_VA_ARG(ap, type) va_arg(ap, type) # define SM_VA_END(ap) va_end(ap) #endif /* ! SM_VARARGS_H */ sendmail-8.18.1/include/sm/misc.h0000644000372400037240000000075114556365350016140 0ustar xbuildxbuild/* * Copyright (c) 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: misc.h,v 1.2 2013-11-22 20:51:31 ca Exp $ */ #ifndef SM_MISC_H # define SM_MISC_H 1 int sm_memstat_open __P((void)); int sm_memstat_close __P((void)); int sm_memstat_get __P((char *, long *)); #endif /* ! SM_MISC_H */ sendmail-8.18.1/include/sm/cdefs.h0000644000372400037240000000746714556365350016304 0ustar xbuildxbuild/* * Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: cdefs.h,v 1.17 2013/11/22 20:51:31 ca Exp $ */ /* ** libsm C language portability macros ** See libsm/cdefs.html for documentation. */ #ifndef SM_CDEFS_H # define SM_CDEFS_H # include /* ** BSD and Linux have which defines a set of C language ** portability macros that are a defacto standard in the open source ** community. */ # if SM_CONF_SYS_CDEFS_H # include # endif /* ** Define the standard C language portability macros ** for platforms that lack . */ # if !SM_CONF_SYS_CDEFS_H # if defined(__cplusplus) # define __BEGIN_DECLS extern "C" { # define __END_DECLS }; # else /* defined(__cplusplus) */ # define __BEGIN_DECLS # define __END_DECLS # endif /* defined(__cplusplus) */ # if defined(__STDC__) || defined(__cplusplus) # ifndef __P # define __P(protos) protos # endif /* __P */ # define __CONCAT(x,y) x ## y # define __STRING(x) #x # else /* defined(__STDC__) || defined(__cplusplus) */ # define __P(protos) () # define __CONCAT(x,y) x/**/y # define __STRING(x) "x" # define const # define signed # define volatile # endif /* defined(__STDC__) || defined(__cplusplus) */ # endif /* !SM_CONF_SYS_CDEFS_H */ /* ** Define SM_DEAD, a macro used to declare functions that do not return ** to their caller. */ # ifndef SM_DEAD # if __GNUC__ >= 2 # if __GNUC__ == 2 && __GNUC_MINOR__ < 5 # define SM_DEAD(proto) volatile proto # define SM_DEAD_D volatile # else /* __GNUC__ == 2 && __GNUC_MINOR__ < 5 */ # define SM_DEAD(proto) proto __attribute__((__noreturn__)) # define SM_DEAD_D # endif /* __GNUC__ == 2 && __GNUC_MINOR__ < 5 */ # else /* __GNUC__ >= 2 */ # define SM_DEAD(proto) proto # define SM_DEAD_D # endif /* __GNUC__ >= 2 */ # endif /* SM_DEAD */ /* ** Define SM_UNUSED, a macro used to declare variables that may be unused. */ # ifndef SM_UNUSED # if __GNUC__ >= 2 # if __GNUC__ == 2 && __GNUC_MINOR__ < 7 # define SM_UNUSED(decl) decl # else # define SM_UNUSED(decl) decl __attribute__((__unused__)) # endif # else /* __GNUC__ >= 2 */ # define SM_UNUSED(decl) decl # endif /* __GNUC__ >= 2 */ # endif /* SM_UNUSED */ /* ** The SM_NONVOLATILE macro is used to declare variables that are not ** volatile, but which must be declared volatile when compiling with ** gcc -O -Wall in order to suppress bogus warning messages. ** ** Variables that actually are volatile should be declared volatile ** using the "volatile" keyword. If a variable actually is volatile, ** then SM_NONVOLATILE should not be used. ** ** To compile sendmail with gcc and see all non-bogus warnings, ** you should use ** gcc -O -Wall -DSM_OMIT_BOGUS_WARNINGS ... ** Do not use -DSM_OMIT_BOGUS_WARNINGS when compiling the production ** version of sendmail, because there is a performance hit. */ # ifdef SM_OMIT_BOGUS_WARNINGS # define SM_NONVOLATILE volatile # else # define SM_NONVOLATILE # endif /* ** Turn on format string argument checking. */ # ifndef SM_CONF_FORMAT_TEST # if (__GNUC__ == 2 && __GNUC_MINOR__ >= 7) || __GNUC__ > 2 # define SM_CONF_FORMAT_TEST 1 # else # define SM_CONF_FORMAT_TEST 0 # endif # endif /* SM_CONF_FORMAT_TEST */ # ifndef PRINTFLIKE # if SM_CONF_FORMAT_TEST # define PRINTFLIKE(x,y) __attribute__ ((__format__ (__printf__, x, y))) # else # define PRINTFLIKE(x,y) # endif # endif /* ! PRINTFLIKE */ # ifndef SCANFLIKE # if SM_CONF_FORMAT_TEST # define SCANFLIKE(x,y) __attribute__ ((__format__ (__scanf__, x, y))) # else # define SCANFLIKE(x,y) # endif # endif /* ! SCANFLIKE */ #endif /* ! SM_CDEFS_H */ sendmail-8.18.1/include/sm/conf.h0000644000372400037240000026732714556365350016150 0ustar xbuildxbuild/* * Copyright (c) 1998-2011 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * * $Id: conf.h,v 1.147 2013-11-22 20:51:31 ca Exp $ */ /* ** CONF.H -- All user-configurable parameters for sendmail ** ** Send updates to Sendmail.ORG so they will be ** included in the next release; see ** http://www.sendmail.org/email-addresses.html ** for current e-mail address. */ #ifndef SM_CONF_H # define SM_CONF_H 1 # include # include /* ** General "standard C" defines. ** ** These may be undone later, to cope with systems that claim to ** be Standard C but aren't. Gcc is the biggest offender -- it ** doesn't realize that the library is part of the language. ** ** Life would be much easier if we could get rid of this sort ** of bozo problems. */ # ifdef __STDC__ # define HASSETVBUF 1 /* we have setvbuf(3) in libc */ # endif /* ** Assume you have standard calls; can be #undefed below if necessary. */ # ifndef HASLSTAT # define HASLSTAT 1 /* has lstat(2) call */ # endif # ifndef HASNICE # define HASNICE 1 /* has nice(2) call */ # endif # ifndef HASRRESVPORT # define HASRRESVPORT 1 /* has rrsevport(3) call */ # endif /********************************************************************** ** "Hard" compilation options. ** #define these if they are available; comment them out otherwise. ** These cannot be overridden from the Makefile, and should really not ** be turned off unless absolutely necessary. **********************************************************************/ #define LOG 1 /* enable logging -- don't turn off */ /********************************************************************** ** Operating system configuration. ** ** Unless you are porting to a new OS, you shouldn't have to ** change these. **********************************************************************/ /* ** HP-UX -- tested for 8.07, 9.00, and 9.01. ** ** If V4FS is defined, compile for HP-UX 10.0. ** 11.x support from Richard Allen . */ # ifdef __hpux /* common definitions for HP-UX 9.x and 10.x */ # undef m_flags /* conflict between Berkeley DB 1.85 db.h & sys/sysmacros.h on HP 300 */ # define SYSTEM5 1 /* include all the System V defines */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define USESETEUID 1 /* has usable seteuid(2) call */ # define HASSETRESGID 1 /* use setresgid(2) to set saved gid */ # define BOGUS_O_EXCL 1 /* exclusive open follows symlinks */ # define seteuid(e) setresuid(-1, e, -1) # define IP_SRCROUTE 1 /* can check IP source routing */ # define LA_TYPE LA_HPUX # define SPT_TYPE SPT_PSTAT # define SFS_TYPE SFS_VFS /* use statfs() implementation */ # define GIDSET_T gid_t # define LDA_USE_LOCKF 1 # ifndef HASGETUSERSHELL # define HASGETUSERSHELL 0 /* getusershell(3) causes core dumps */ # endif # ifdef HPUX10 # define _PATH_SENDMAIL "/usr/sbin/sendmail" # ifndef SMRSH_CMDDIR # define SMRSH_CMDDIR "/var/adm/sm.bin" # endif # endif # ifdef HPUX11 # define HASSETREUID 1 /* setreuid(2) works on HP-UX 11.x */ # define HASFCHOWN 1 /* has fchown(2) */ # ifndef BROKEN_RES_SEARCH # define BROKEN_RES_SEARCH 1 /* res_search(unknown) returns h_errno=0 */ # endif # ifndef SMRSH_CMDDIR # define SMRSH_CMDDIR "/var/adm/sm.bin" # endif # define _PATH_SENDMAIL "/usr/sbin/sendmail" # else /* HPUX11 */ # ifndef NOT_SENDMAIL # define syslog hard_syslog # endif # endif /* HPUX11 */ # define SAFENFSPATHCONF 1 /* pathconf(2) pessimizes on NFS filesystems */ # ifdef V4FS /* HP-UX 10.x */ # define _PATH_UNIX "/stand/vmunix" # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/etc/mail/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/mail/sendmail.pid" # endif # ifndef IDENTPROTO # define IDENTPROTO 1 /* TCP/IP implementation fixed in 10.0 */ # endif # include /* for mpctl() in get_num_procs_online() */ # else /* V4FS */ /* HP-UX 9.x */ # define _PATH_UNIX "/hp-ux" # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # ifndef IDENTPROTO # define IDENTPROTO 0 /* TCP/IP implementation is broken */ # endif # ifdef __STDC__ extern void hard_syslog(int, char *, ...); # else extern void hard_syslog(); # endif # define FDSET_CAST (int *) /* cast for fd_set parameters to select */ # endif /* V4FS */ # endif /* __hpux */ /* ** IBM AIX 5.x */ # ifdef _AIX5 # include # include # define _AIX4 40300 # define SOCKADDR_LEN_T socklen_t /* e.g., arg#3 to accept, getsockname */ # define SOCKOPT_LEN_T socklen_t /* arg#5 to getsockopt */ # if _AIX5 >= 50200 # define HASUNSETENV 1 /* has unsetenv(3) call */ # endif # endif /* _AIX5 */ /* ** IBM AIX 4.x */ # ifdef _AIX4 # define _AIX3 1 /* pull in AIX3 stuff */ # define BSD4_4_SOCKADDR /* has sa_len */ # define USESETEUID 1 /* seteuid(2) works */ # define TZ_TYPE TZ_NAME /* use tzname[] vector */ # ifndef SOCKOPT_LEN_T # define SOCKOPT_LEN_T size_t /* arg#5 to getsockopt */ # endif # if _AIX4 >= 40200 # define HASSETREUID 1 /* setreuid(2) works as of AIX 4.2 */ # ifndef SOCKADDR_LEN_T # define SOCKADDR_LEN_T size_t /* e.g., arg#3 to accept, getsockname */ # endif # endif /* _AIX4 >= 40200 */ # if defined(_ILS_MACROS) /* IBM versions aren't side-effect clean */ # undef isascii # define isascii(c) !(c & ~0177) # undef isdigit # define isdigit(__a) (_IS(__a,_ISDIGIT)) # undef isspace # define isspace(__a) (_IS(__a,_ISSPACE)) # endif /* defined(_ILS_MACROS) */ # endif /* _AIX4 */ /* ** IBM AIX 3.x -- actually tested for 3.2.3 */ # ifdef _AIX3 # include # include /* to get byte order */ # include # define HASFCHOWN 1 /* has fchown(2) */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASUNAME 1 /* use System V uname(2) system call */ # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define IP_SRCROUTE 0 /* Something is broken with getsockopt() */ # define GIDSET_T gid_t # define SFS_TYPE SFS_STATFS /* use statfs() impl */ # define SPT_PADCHAR '\0' /* pad process title with nulls */ # ifndef LA_TYPE # define LA_TYPE LA_INT # endif # define FSHIFT 16 # define LA_AVENRUN "avenrun" # if !defined(_AIX4) || _AIX4 < 40300 # ifndef __BIT_TYPES_DEFINED__ # define SM_INT32 int # endif # endif /* !defined(_AIX4) || _AIX4 < 40300 */ # if !defined(_AIX4) || _AIX4 < 40200 # define SM_CONF_SYSLOG 0 # endif # endif /* _AIX3 */ /* ** IBM AIX 2.2.1 -- actually tested for osupdate level 2706+1773 ** ** From Mark Whetzel . */ # ifdef AIX /* AIX/RT compiler pre-defines this */ # include # include /* AIX/RT resource.h does NOT include this */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASUNAME 1 /* use System V uname(2) system call */ # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # define HASFCHMOD 0 /* does not have fchmod(2) syscall */ # define HASSETREUID 1 /* use setreuid(2) -lbsd system call */ # define HASSETVBUF 1 /* use setvbuf(2) system call */ # define HASSETRLIMIT 0 /* does not have setrlimit call */ # define HASFLOCK 0 /* does not have flock call - use fcntl */ # define HASULIMIT 1 /* use ulimit instead of setrlimit call */ # define SM_CONF_GETOPT 0 /* Do we need theirs or ours */ # define SYS5SETPGRP 1 /* don't have setpgid on AIX/RT */ # define IP_SRCROUTE 0 /* Something is broken with getsockopt() */ # define BSD4_3 1 /* NOT bsd 4.4 or posix signals */ # define GIDSET_T int # define SFS_TYPE SFS_STATFS /* use statfs() impl */ # define SPT_PADCHAR '\0' /* pad process title with nulls */ # define LA_TYPE LA_SUBR /* use our ported loadavgd daemon */ # define TZ_TYPE TZ_TZNAME /* use tzname[] vector */ # define ARBPTR_T int * # define void int typedef int pid_t; /* RTisms for BSD compatibility, specified in the Makefile define BSD 1 define BSD_INCLUDES 1 define BSD_REMAP_SIGNAL_TO_SIGVEC RTisms needed above */ /* make this sendmail in a completely different place */ # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/local/newmail/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/usr/local/newmail/sendmail.pid" # endif # endif /* AIX */ # if defined(_AIX) # define LDA_USE_LOCKF 1 # define LDA_USE_SETEUID 1 # endif /* ** Silicon Graphics IRIX ** ** Compiles on 4.0.1. ** ** Use IRIX64 instead of IRIX for 64-bit IRIX (6.0). ** Use IRIX5 instead of IRIX for IRIX 5.x. ** ** IRIX64 changes from Mark R. Levinson . ** IRIX5 changes from Kari E. Hurtta . */ # ifdef IRIX # define SYSTEM5 1 /* this is a System-V derived system */ # define HASSETREUID 1 /* has setreuid(2) call */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # define IP_SRCROUTE 1 /* can check IP source routing */ # define setpgid BSDsetpgrp # define GIDSET_T gid_t # define SFS_TYPE SFS_4ARGS /* four argument statfs() call */ # define SFS_BAVAIL f_bfree /* alternate field name */ # define SYSLOG_BUFSIZE 512 # if defined(_SC_NPROC_ONLN) && !defined(_SC_NPROCESSORS_ONLN) /* _SC_NPROC_ONLN is 'mpadmin -u', total # of unrestricted processors */ # define _SC_NPROCESSORS_ONLN _SC_NPROC_ONLN # endif # ifdef IRIX6 # define STAT64 1 # define QUAD_T unsigned long long # define LA_TYPE LA_IRIX6 /* figure out at run time */ # define SAFENFSPATHCONF 0 /* pathconf(2) lies on NFS filesystems */ # else /* IRIX6 */ # define LA_TYPE LA_INT # ifdef IRIX64 # define STAT64 1 # define QUAD_T unsigned long long # define NAMELISTMASK 0x7fffffffffffffff /* mask for nlist() values */ # else /* IRIX64 */ # define STAT64 0 # define NAMELISTMASK 0x7fffffff /* mask for nlist() values */ # endif /* IRIX64 */ # endif /* IRIX6 */ # if defined(IRIX64) || defined(IRIX5) || defined(IRIX6) # include # include # define ARGV_T char *const * # define HASFCHOWN 1 /* has fchown(2) */ # define HASSETRLIMIT 1 /* has setrlimit(2) syscall */ # define HASGETDTABLESIZE 1 /* has getdtablesize(2) syscall */ # define HASSTRERROR 1 /* has strerror(3) */ # else /* defined(IRIX64) || defined(IRIX5) || defined(IRIX6) */ # define ARGV_T const char ** # define WAITUNION 1 /* use "union wait" as wait argument type */ # endif /* defined(IRIX64) || defined(IRIX5) || defined(IRIX6) */ # endif /* IRIX */ /* ** SunOS and Solaris ** ** Tested on SunOS 4.1.x (a.k.a. Solaris 1.1.x) and ** Solaris 2.4 (a.k.a. SunOS 5.4). */ # if defined(sun) && !defined(BSD) # include # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASUNAME 1 /* use System V uname(2) system call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define IP_SRCROUTE 1 /* can check IP source routing */ # define SAFENFSPATHCONF 1 /* pathconf(2) pessimizes on NFS filesystems */ # ifndef HASFCHOWN # define HASFCHOWN 1 /* fchown(2) */ # endif # ifdef __svr4__ # define LDA_USE_LOCKF 1 # define LDA_USE_SETEUID 1 # define _PATH_MAILDIR "/var/mail" # endif /* __svr4__ */ # ifdef SOLARIS_2_3 # define SOLARIS 20300 /* for back compat only -- use -DSOLARIS=20300 */ # endif /* SOLARIS_2_3 */ # if defined(NOT_SENDMAIL) && !defined(SOLARIS) && defined(sun) && (defined(__svr4__) || defined(__SVR4)) # define SOLARIS 1 /* unknown Solaris version */ # endif # ifdef SOLARIS /* Solaris 2.x (a.k.a. SunOS 5.x) */ # ifndef __svr4__ # define __svr4__ /* use all System V Release 4 defines below */ # endif # if SOLARIS >= 21100 # include # endif # ifndef _PATH_VARRUN # define _PATH_VARRUN "/var/run/" # endif # define GIDSET_T gid_t # define USE_SA_SIGACTION 1 /* use sa_sigaction field */ # define BROKEN_PTHREAD_SLEEP 1 /* sleep after pthread_create() fails */ # define HASSTRERROR 1 /* has strerror(3) */ # ifndef _PATH_UNIX # define _PATH_UNIX "/dev/ksyms" # endif # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/etc/mail/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/mail/sendmail.pid" # endif # ifndef _PATH_HOSTS # define _PATH_HOSTS "/etc/inet/hosts" # endif # ifndef SYSLOG_BUFSIZE # define SYSLOG_BUFSIZE 1024 /* allow full size syslog buffer */ # endif # ifndef TZ_TYPE # define TZ_TYPE TZ_TZNAME # endif # if SOLARIS >= 20300 || (SOLARIS < 10000 && SOLARIS >= 203) # define USESETEUID 1 /* seteuid works as of 2.3 */ # define LDA_CONTENTLENGTH 1 /* Needs the Content-Length header */ # endif # if SOLARIS >= 20500 || (SOLARIS < 10000 && SOLARIS >= 205) # define HASSETREUID 1 /* setreuid works as of 2.5 */ # define HASSETREGID 1 /* use setregid(2) to set saved gid */ # if SOLARIS >= 20600 || (SOLARIS < 10000 && SOLARIS >= 206) # define HASSNPRINTF 1 /* has snprintf(3c) starting in 2.6 */ # endif # if SOLARIS < 207 || (SOLARIS > 10000 && SOLARIS < 20700) # ifndef LA_TYPE # define LA_TYPE LA_KSTAT /* use kstat(3k) -- may work in < 2.5 */ # endif # ifndef RANDOMSHIFT /* random() doesn't work well (sometimes) */ # define RANDOMSHIFT 8 # endif # endif /* SOLARIS < 207 || (SOLARIS > 10000 && SOLARIS < 20700) */ # else /* SOLARIS >= 20500 || (SOLARIS < 10000 && SOLARIS >= 205) */ # ifndef HASRANDOM # define HASRANDOM 0 /* doesn't have random(3) */ # endif # endif /* SOLARIS >= 20500 || (SOLARIS < 10000 && SOLARIS >= 205) */ # if (SOLARIS > 10000 && SOLARIS < 20600) || SOLARIS < 206 # define SM_INT32 int /* 32bit integer */ # endif # if SOLARIS >= 20700 || (SOLARIS < 10000 && SOLARIS >= 207) # ifndef LA_TYPE # include # if SOLARIS >= 20900 || (SOLARIS < 10000 && SOLARIS >= 209) # include # define LA_TYPE LA_PSET /* pset_getloadavg(3c) appears in 2.9 */ # else /* SOLARIS >= 20900 || (SOLARIS < 10000 && SOLARIS >= 209) */ # define LA_TYPE LA_SUBR /* getloadavg(3c) appears in 2.7 */ # endif /* SOLARIS >= 20900 || (SOLARIS < 10000 && SOLARIS >= 209) */ # endif /* ! LA_TYPE */ # define HASGETUSERSHELL 1 /* getusershell(3c) bug fixed in 2.7 */ # endif /* SOLARIS >= 20700 || (SOLARIS < 10000 && SOLARIS >= 207) */ # if SOLARIS >= 20800 || (SOLARIS < 10000 && SOLARIS >= 208) # undef _PATH_SENDMAILPID /* tmpfs /var/run added in 2.8 */ # define _PATH_SENDMAILPID _PATH_VARRUN "sendmail.pid" # ifndef SMRSH_CMDDIR # define SMRSH_CMDDIR "/var/adm/sm.bin" # endif # define SL_FUDGE 34 /* fudge offset for SyslogPrefixLen */ # define HASLDAPGETALIASBYNAME 1 /* added in S8 */ # endif /* SOLARIS >= 20800 || (SOLARIS < 10000 && SOLARIS >= 208) */ # if SOLARIS >= 20900 || (SOLARIS < 10000 && SOLARIS >= 209) # define HASURANDOMDEV 1 /* /dev/[u]random added in S9 */ # define HASCLOSEFROM 1 /* closefrom(3c) added in S9 */ # define HASFDWALK 1 /* fdwalk(3c) added in S9 */ # endif /* SOLARIS >= 20900 || (SOLARIS < 10000 && SOLARIS >= 209) */ # if SOLARIS >= 21000 || (SOLARIS < 10000 && SOLARIS >= 210) # define HASUNSETENV 1 /* unsetenv() added in S10 */ # endif # if SOLARIS >= 21100 || (SOLARIS < 10000 && SOLARIS >= 211) # define GETLDAPALIASBYNAME_VERSION 2 /* changed in S11 */ # define HAVE_NANOSLEEP 1 /* moved from librt to libc in S11 */ # define SOCKADDR_LEN_T socklen_t /* arg#3 to accept, getsockname */ # define SOCKOPT_LEN_T socklen_t /* arg#5 to getsockopt */ # endif /* SOLARIS >= 21100 || (SOLARIS < 10000 && SOLARIS >= 211) */ # ifndef HASGETUSERSHELL # define HASGETUSERSHELL 0 /* getusershell(3) causes core dumps pre-2.7 */ # endif # if SOLARIS < 21140 # define SIGWAIT_TAKES_1_ARG 1 /* S11.4 moves to UNIX V7 semantic */ # endif # else /* SOLARIS */ /* SunOS 4.0.3 or 4.1.x */ # define HASGETUSERSHELL 1 /* DOES have getusershell(3) call in libc */ # define HASSETREUID 1 /* has setreuid(2) call */ # ifndef HASFLOCK # define HASFLOCK 1 /* has flock(2) call */ # endif # define SFS_TYPE SFS_VFS /* use statfs() implementation */ # define TZ_TYPE TZ_TM_ZONE /* use tm->tm_zone */ # include # include # ifdef __GNUC__ # define strtoul strtol /* gcc library bogosity */ # endif # define memmove(d, s, l) (bcopy((s), (d), (l))) # define atexit(f) on_exit((f), 0) /* ugly hack for SunOS */ # define SM_INT32 int /* 32bit integer */ # define SM_ALIGN_SIZE (sizeof(long)) # define GIDSET_T int # define SM_CONF_SYSLOG 0 # ifdef SUNOS403 /* special tweaking for SunOS 4.0.3 */ # include # define BSD4_3 1 /* 4.3 BSD-based */ # define NEEDSTRSTR 1 /* need emulation of strstr(3) routine */ # define WAITUNION 1 /* use "union wait" as wait argument type */ # undef WIFEXITED # undef WEXITSTATUS # undef HASUNAME # define setpgid setpgrp # define MODE_T int typedef int pid_t; extern char *getenv(); # else /* SUNOS403 */ /* 4.1.x specifics */ # define HASSETSID 1 /* has POSIX setsid(2) call */ # define HASSETVBUF 1 /* we have setvbuf(3) in libc */ # endif /* SUNOS403 */ # endif /* SOLARIS */ # ifndef LA_TYPE # define LA_TYPE LA_INT # endif # endif /* defined(sun) && !defined(BSD) */ /* ** DG/UX ** ** Tested on 5.4.2 and 5.4.3. Use DGUX_5_4_2 to get the ** older support. ** 5.4.3 changes from Mark T. Robinson . */ # ifdef DGUX_5_4_2 # define DGUX 1 # endif # ifdef DGUX # define SYSTEM5 1 # define LA_TYPE LA_DGUX # define HASSETREUID 1 /* has setreuid(2) call */ # define HASUNAME 1 /* use System V uname(2) system call */ # define HASSETSID 1 /* has POSIX setsid(2) call */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define IP_SRCROUTE 0 /* does not have */ # define HASGETUSERSHELL 0 /* does not have getusershell(3) */ # ifndef IDENTPROTO # define IDENTPROTO 0 /* TCP/IP implementation is broken */ # endif # define SPT_TYPE SPT_NONE /* don't use setproctitle */ # define SFS_TYPE SFS_4ARGS /* four argument statfs() call */ # define LDA_USE_LOCKF 1 /* these include files must be included early on DG/UX */ # include # include /* compiler doesn't understand const? */ # define const # ifdef DGUX_5_4_2 # define inet_addr dgux_inet_addr extern long dgux_inet_addr(); # endif /* DGUX_5_4_2 */ # endif /* DGUX */ /* ** Digital Ultrix 4.2 - 4.5 ** ** Apparently, fcntl locking is broken on 4.2A, in that locks are ** not dropped when the process exits. This causes major problems, ** so flock is the only alternative. */ # ifdef ultrix # define HASSETREUID 1 /* has setreuid(2) call */ # define HASUNSETENV 1 /* has unsetenv(3) call */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASUNAME 1 /* use System V uname(2) system call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define HASFCHOWN 1 /* has fchown(2) syscall */ # ifndef HASFLOCK # define HASFLOCK 1 /* has flock(2) call */ # endif # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # ifndef BROKEN_RES_SEARCH # define BROKEN_RES_SEARCH 1 /* res_search(unknown) returns h_errno=0 */ # endif # if !defined(NEEDLOCAL_HOSTNAME_LENGTH) && NAMED_BIND && __RES >= 19931104 && __RES < 19950621 # define NEEDLOCAL_HOSTNAME_LENGTH 1 /* see sendmail/README */ # endif # ifdef vax # define LA_TYPE LA_FLOAT # else /* vax */ # define LA_TYPE LA_INT # define LA_AVENRUN "avenrun" # endif /* vax */ # define SFS_TYPE SFS_MOUNT /* use statfs() impl */ # ifndef IDENTPROTO # define IDENTPROTO 0 /* pre-4.4 TCP/IP implementation is broken */ # endif # define SYSLOG_BUFSIZE 256 # define SM_CONF_SYSLOG 0 # endif /* ultrix */ /* ** OSF/1 for KSR. ** ** Contributed by Todd C. Miller */ # ifdef __ksr__ # define __osf__ 1 /* get OSF/1 defines below */ # ifndef TZ_TYPE # define TZ_TYPE TZ_TZNAME /* use tzname[] vector */ # endif # endif /* __ksr__ */ /* ** OSF/1 for Intel Paragon. ** ** Contributed by Jeff A. Earickson ** of Intel Scalable Systems Division. */ # ifdef __PARAGON__ # define __osf__ 1 /* get OSF/1 defines below */ # ifndef TZ_TYPE # define TZ_TYPE TZ_TZNAME /* use tzname[] vector */ # endif # define GIDSET_T gid_t # define MAXNAMLEN NAME_MAX # endif /* __PARAGON__ */ /* ** Tru64 UNIX, formerly known as Digital UNIX, formerly known as DEC OSF/1 ** ** Tested for 3.2 and 4.0. */ # ifdef __osf__ # define HASUNAME 1 /* has uname(2) call */ # define HASUNSETENV 1 /* has unsetenv(3) call */ # define USESETEUID 1 /* has usable seteuid(2) call */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define HASFCHOWN 1 /* has fchown(2) syscall */ # define HASSETLOGIN 1 /* has setlogin(2) */ # define IP_SRCROUTE 1 /* can check IP source routing */ # define HAS_ST_GEN 1 /* has st_gen field in stat struct */ # define GIDSET_T gid_t # define SM_INT32 int /* 32bit integer */ # ifndef HASFLOCK # include # if _XOPEN_SOURCE+0 >= 400 # define HASFLOCK 0 /* 5.0 and later has bad flock(2) call */ # else # define HASFLOCK 1 /* has flock(2) call */ # endif # endif /* ! HASFLOCK */ # define LA_TYPE LA_ALPHAOSF # define SFS_TYPE SFS_STATVFS /* use statfs() impl */ # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/var/adm/sendmail/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/var/run/sendmail.pid" # endif # if _FFR_DIGUNIX_SAFECHOWN /* ** Testing on a Digital UNIX 4.0a system showed this to be the correct ** setting but given the security consequences, more testing and ** verification is needed. Unfortunately, the man page offers no ** assistance. */ # define IS_SAFE_CHOWN >= 0 # endif /* _FFR_DIGUNIX_SAFECHOWN */ # endif /* __osf__ */ /* ** NeXTstep */ # ifdef NeXT # define HASINITGROUPS 1 /* has initgroups(3) call */ # define NEEDPUTENV 2 /* need putenv(3) call; no setenv(3) call */ # ifndef HASFLOCK # define HASFLOCK 1 /* has flock(2) call */ # endif # define UID_T int /* compiler gripes on uid_t */ # define GID_T int /* ditto for gid_t */ # define MODE_T int /* and mode_t */ # define setpgid setpgrp # ifndef NOT_SENDMAIL # define sleep sleepX # endif # ifndef LA_TYPE # define LA_TYPE LA_MACH # endif # define SFS_TYPE SFS_VFS /* use statfs() implementation */ # ifdef _POSIX_SOURCE extern struct passwd *getpwent(); # else /* _POSIX_SOURCE */ # define SM_CONF_GETOPT 0 /* need a replacement for getopt(3) */ # define WAITUNION 1 /* use "union wait" as wait argument type */ typedef int pid_t; # undef WEXITSTATUS # undef WIFEXITED # undef WIFSTOPPED # undef WTERMSIG # endif /* _POSIX_SOURCE */ # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/etc/sendmail/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/sendmail/sendmail.pid" # endif # define SM_INT32 int /* 32bit integer */ # ifdef TCPWRAPPERS # ifndef HASUNSETENV # define HASUNSETENV 1 # endif # undef NEEDPUTENV # endif /* TCPWRAPPERS */ # ifndef __APPLE__ # include # ifndef S_IRUSR # define S_IRUSR S_IREAD # endif # ifndef S_IWUSR # define S_IWUSR S_IWRITE # endif # define _PATH_MAILDIR "/usr/spool/mail" # endif /* ! __APPLE__ */ # ifndef isascii # define isascii(c) ((unsigned)(c) <= 0177) # endif # endif /* NeXT */ /* ** Apple Darwin ** Contributed by Wilfredo Sanchez */ # if defined(DARWIN) # define HASFCHMOD 1 /* has fchmod(2) */ # define HASFCHOWN 1 /* has fchown(2) */ # define HASFLOCK 1 /* has flock(2) */ # define HASUNAME 1 /* has uname(2) */ # define HASUNSETENV 1 /* has unsetenv(3) */ # define HASSETSID 1 /* has POSIX setsid(2) call */ # define HASINITGROUPS 1 /* has initgroups(3) */ # define HASSETVBUF 1 /* has setvbuf (3) */ # define HASSETREUID 0 /* setreuid(2) unusable */ # define HASSETEUID 1 /* has seteuid(2) */ # define USESETEUID 1 /* has seteuid(2) */ # define HASSETEGID 1 /* has setegid(2) */ # define HASSETREGID 1 /* has setregid(2) */ # define HASSETRESGID 0 /* no setresgid(2) */ # define HASLSTAT 1 /* has lstat(2) */ # define HASSETRLIMIT 1 /* has setrlimit(2) */ # define HASWAITPID 1 /* has waitpid(2) */ # define HASGETDTABLESIZE 1 /* has getdtablesize(2) */ # define HAS_ST_GEN 1 /* has st_gen field in struct stat */ # define HASURANDOMDEV 1 /* has urandom(4) */ # define HASSTRERROR 1 /* has strerror(3) */ # define HASGETUSERSHELL 1 /* had getusershell(3) */ # if DARWIN >=180000 # ifdef HASRRESVPORT # undef HASRRESVPORT # endif # define HASRRESVPORT 0 /* deprecated rresvport() */ # endif # define GIDSET_T gid_t /* getgroups(2) takes gid_t */ # define LA_TYPE LA_SUBR /* use getloadavg(3) */ # define SFS_TYPE SFS_MOUNT /* use statfs() impl */ # if DARWIN >= 70000 # define SOCKADDR_LEN_T socklen_t # endif # if DARWIN >= 80000 # define SPT_TYPE SPT_REUSEARGV # define SPT_PADCHAR '\0' # define SOCKOPT_LEN_T socklen_t # else # define SPT_TYPE SPT_PSSTRINGS /* use magic PS_STRINGS pointer for setproctitle */ # endif # define ERRLIST_PREDEFINED /* don't declare sys_errlist */ # define BSD4_4_SOCKADDR /* struct sockaddr has sa_len */ # define SAFENFSPATHCONF 0 /* unverified: pathconf(2) doesn't work on NFS */ # define HAS_IN_H 1 # define NETLINK 1 /* supports AF_LINK */ # ifndef NOT_SENDMAIL # define sleep sleepX extern unsigned int sleepX __P((unsigned int seconds)); # endif /* ! NOT_SENDMAIL */ # endif /* defined(DARWIN) */ /* ** 4.4 BSD ** ** See also BSD defines. */ # if defined(BSD4_4) && !defined(__bsdi__) && !defined(__GNU__) && !defined(DARWIN) # include # define HASUNSETENV 1 /* has unsetenv(3) call */ # define USESETEUID 1 /* has usable seteuid(2) call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define HASFCHOWN 1 /* has fchown(2) syscall */ # define HASSTRERROR 1 /* has strerror(3) */ # define HAS_ST_GEN 1 /* has st_gen field in stat struct */ # include # define ERRLIST_PREDEFINED /* don't declare sys_errlist */ # define BSD4_4_SOCKADDR /* has sa_len */ # define NEED_PRINTF_PERCENTQ 1 /* doesn't have %lld */ # define NETLINK 1 /* supports AF_LINK */ # ifndef LA_TYPE # define LA_TYPE LA_SUBR # endif # define SFS_TYPE SFS_MOUNT /* use statfs() impl */ # define SPT_TYPE SPT_PSSTRINGS /* use PS_STRINGS pointer */ # endif /* defined(BSD4_4) && !defined(__bsdi__) && !defined(__GNU__) && !defined(DARWIN)*/ /* ** BSD/OS (was BSD/386) (all versions) ** From Tony Sanders, BSDI */ # ifdef __bsdi__ # include # define HASUNSETENV 1 /* has the unsetenv(3) call */ # define HASSETREUID 0 /* BSD-OS has broken setreuid(2) emulation */ # define HASSETSID 1 /* has POSIX setsid(2) call */ # define USESETEUID 1 /* has usable seteuid(2) call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define HASSETLOGIN 1 /* has setlogin(2) */ # define HASUNAME 1 /* has uname(2) syscall */ # define HASSTRERROR 1 /* has strerror(3) */ # define HAS_ST_GEN 1 /* has st_gen field in stat struct */ # include # define ERRLIST_PREDEFINED /* don't declare sys_errlist */ # define BSD4_4_SOCKADDR /* has sa_len */ # define NETLINK 1 /* supports AF_LINK */ # define SFS_TYPE SFS_MOUNT /* use statfs() impl */ # ifndef LA_TYPE # define LA_TYPE LA_SUBR # endif # define GIDSET_T gid_t # define QUAD_T quad_t # if defined(_BSDI_VERSION) && _BSDI_VERSION >= 199312 /* version 1.1 or later */ # undef SPT_TYPE # define SPT_TYPE SPT_BUILTIN /* setproctitle is in libc */ # else /* defined(_BSDI_VERSION) && _BSDI_VERSION >= 199312 */ /* version 1.0 or earlier */ # define SPT_PADCHAR '\0' /* pad process title with nulls */ # endif /* defined(_BSDI_VERSION) && _BSDI_VERSION >= 199312 */ # if defined(_BSDI_VERSION) && _BSDI_VERSION >= 199701 /* on 3.x */ # define HASSETUSERCONTEXT 1 /* has setusercontext */ # endif # if defined(_BSDI_VERSION) && _BSDI_VERSION <= 199701 /* 3.1 and earlier */ # define MODE_T int /* va_arg() can't handle less than int */ # endif # if defined(_BSDI_VERSION) && _BSDI_VERSION >= 199910 /* on 4.x */ # define HASURANDOMDEV 1 /* has /dev/urandom(4) */ # endif # endif /* __bsdi__ */ # if defined(__QNX__) # if defined(__QNXNTO__) /* QNX 6 */ # include # define HASUNSETENV 1 /* has unsetenv(3) call */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASSETSID 1 /* has POSIX setsid(2) call */ # define USESETEUID 1 /* has usable seteuid(2) call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define HASFCHOWN 1 /* has fchown(2) syscall */ # define HASUNAME 1 /* has uname(2) syscall */ # define HASSTRERROR 1 /* has strerror(3) */ # define BSD4_4_SOCKADDR /* has sa_len */ # define ERRLIST_PREDEFINED /* don't declare sys_errlist */ # define NETLINK 1 /* supports AF_LINK */ # define GIDSET_T gid_t # define QUAD_T uint64_t # define HASSNPRINTF 1 /* has snprintf(3) (all versions?) */ # define HASGETUSERSHELL 0 /* ** We have a strrev() that doesn't allocate anything. ** Make sure the one here is used. */ # define strrev strrev_sendmail # else /* defined(__QNXNTO__) */ /* ** QNX 4.2x ** Contributed by Glen McCready . ** ** Should work with all versions of QNX 4. */ # include # include # undef NGROUPS_MAX # define HASSETSID 1 /* has POSIX setsid(2) call */ # define USESETEUID 1 /* has usable seteuid(2) call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define HASGETDTABLESIZE 1 /* has getdtablesize(2) call */ # define HASSETREUID 1 /* has setreuid(2) call */ # define HASSTRERROR 1 /* has strerror(3) */ # define HASFLOCK 0 # undef HASINITGROUPS /* has initgroups(3) call */ # define SM_CONF_GETOPT 0 /* need a replacement for getopt(3) */ # define IP_SRCROUTE 1 /* can check IP source routing */ # define TZ_TYPE TZ_TMNAME /* use tmname variable */ # define GIDSET_T gid_t # define LA_TYPE LA_ZERO # define SFS_TYPE SFS_NONE # define SPT_TYPE SPT_REUSEARGV # define SPT_PADCHAR '\0' /* pad process title with nulls */ # define HASGETUSERSHELL 0 # define _FILE_H_INCLUDED # endif /* defined(__QNXNTO__) */ # endif /* defined(__QNX__) */ /* ** DragonFly BSD/ FreeBSD / NetBSD / OpenBSD (all architectures, all versions) ** ** 4.3BSD clone, closer to 4.4BSD for FreeBSD 1.x and NetBSD 0.9x ** 4.4BSD-Lite based for FreeBSD 2.x and NetBSD 1.x ** ** See also BSD defines. */ # if defined(__DragonFly__) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__) # include # define HASUNSETENV 1 /* has unsetenv(3) call */ # define HASSETSID 1 /* has POSIX setsid(2) call */ # define USESETEUID 1 /* has usable seteuid(2) call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define HASFCHOWN 1 /* has fchown(2) syscall */ # define HASUNAME 1 /* has uname(2) syscall */ # define HASSTRERROR 1 /* has strerror(3) */ # define HAS_ST_GEN 1 /* has st_gen field in stat struct */ # define NEED_PRINTF_PERCENTQ 1 /* doesn't have %lld */ # include # define ERRLIST_PREDEFINED /* don't declare sys_errlist */ # define BSD4_4_SOCKADDR /* has sa_len */ # define NETLINK 1 /* supports AF_LINK */ # define SAFENFSPATHCONF 1 /* pathconf(2) pessimizes on NFS filesystems */ # define GIDSET_T gid_t # define QUAD_T unsigned long long # define HASSNPRINTF 1 /* has snprintf(3) (all versions?) */ # ifndef LA_TYPE # define LA_TYPE LA_SUBR # endif # if defined(__NetBSD__) && defined(__NetBSD_Version__) && \ ((__NetBSD_Version__ >= 200040000 && __NetBSD_Version__ < 200090000) || \ (__NetBSD_Version__ >= 299000900)) # undef SFS_TYPE # define SFS_TYPE SFS_STATVFS # else # define SFS_TYPE SFS_MOUNT /* use statfs() impl */ # endif # if defined(__NetBSD__) && (NetBSD > 199307 || NetBSD0_9 > 1) # undef SPT_TYPE # define SPT_TYPE SPT_BUILTIN /* setproctitle is in libc */ # endif # if defined(__NetBSD__) && ((__NetBSD_Version__ > 102070000) || (NetBSD1_2 > 8) || defined(NetBSD1_4) || defined(NetBSD1_3)) # define HASURANDOMDEV 1 /* has /dev/urandom(4) */ # endif # if defined(__NetBSD__) && defined(__NetBSD_Version__) && __NetBSD_Version__ >= 104170000 # define HASSETUSERCONTEXT 1 /* BSDI-style login classes */ # endif # if defined(__NetBSD__) && defined(__NetBSD_Version__) && \ ((__NetBSD_Version__ >= 200060000 && __NetBSD_Version__ < 200090000) || \ (__NetBSD_Version__ >= 299000900)) # define HASCLOSEFROM 1 /* closefrom(3) added in 2.0F */ # endif # if defined(__NetBSD__) # define USESYSCTL 1 /* use sysctl(3) for getting ncpus */ # include # include # define HAVE_IFC_BUF_VOID 1 /* void *ifc_buf instead of caddr_t */ # endif # if defined(__DragonFly__) # define HASSETLOGIN 1 /* has setlogin(2) */ # define HASSRANDOMDEV 1 /* has srandomdev(3) */ # define HASURANDOMDEV 1 /* has /dev/urandom(4) */ # undef SPT_TYPE # include # define SPT_TYPE SPT_BUILTIN # define HASSETUSERCONTEXT 1 /* BSDI-style login classes */ # ifndef SMRSH_CMDDIR # define SMRSH_CMDDIR "/usr/libexec/sm.bin" # endif # ifndef SMRSH_PATH # define SMRSH_PATH "/bin:/usr/bin" # endif # define USESYSCTL 1 /* use sysctl(3) for getting ncpus */ # include # endif /* defined(__DragonFly__) */ # if defined(__FreeBSD__) # define HASSETLOGIN 1 /* has setlogin(2) */ # if __FreeBSD_version >= 227001 # define HASSRANDOMDEV 1 /* has srandomdev(3) */ # define HASURANDOMDEV 1 /* has /dev/urandom(4) */ # endif /* __FreeBSD_version >= 227001 */ # undef SPT_TYPE # if __FreeBSD__ >= 2 # include # if __FreeBSD_version >= 199512 /* 2.2-current when it appeared */ # if __FreeBSD_version < 500012 /* Moved to libc in 2000 */ # include # endif # define SPT_TYPE SPT_BUILTIN # endif /* __FreeBSD_version >= 199512 */ # if __FreeBSD_version >= 222000 /* 2.2.2-release and later */ # define HASSETUSERCONTEXT 1 /* BSDI-style login classes */ # endif # if __FreeBSD_version >= 300000 /* 3.0.0-release and later */ # define HAVE_NANOSLEEP 1 /* has nanosleep(2) */ # endif # if __FreeBSD_version >= 330000 /* 3.3.0-release and later */ # ifndef SMRSH_CMDDIR # define SMRSH_CMDDIR "/usr/libexec/sm.bin" # endif # ifndef SMRSH_PATH # define SMRSH_PATH "/bin:/usr/bin" # endif # endif /* __FreeBSD_version >= 330000 */ # if __FreeBSD_version >= 430000 /* 4.3.0-release and later */ # define SOCKADDR_LEN_T socklen_t /* e.g., arg#3 to accept, getsockname */ # define SOCKOPT_LEN_T socklen_t /* arg#5 to getsockopt */ # endif /* __FreeBSD_version >= 430000 */ # define USESYSCTL 1 /* use sysctl(3) for getting ncpus */ # include # endif /* __FreeBSD__ >= 2 */ # ifndef SPT_TYPE # define SPT_TYPE SPT_REUSEARGV # define SPT_PADCHAR '\0' /* pad process title with nulls */ # endif # endif /* defined(__FreeBSD__) */ # if defined(__OpenBSD__) # undef SPT_TYPE # define SPT_TYPE SPT_BUILTIN /* setproctitle is in libc */ # define HASSETLOGIN 1 /* has setlogin(2) */ # if OpenBSD < 200305 # define HASSETREUID 0 /* setreuid(2) broken in OpenBSD < 3.3 */ # endif # define HASSETEGID 1 /* use setegid(2) to set saved gid */ # define HASURANDOMDEV 1 /* has /dev/urandom(4) */ # if OpenBSD >= 200006 # define HASSRANDOMDEV 1 /* has srandomdev(3) */ # endif # if OpenBSD >= 200012 # define HASSETUSERCONTEXT 1 /* BSDI-style login classes */ # endif # if OpenBSD >= 200405 # define HASCLOSEFROM 1 /* closefrom(3) added in 3.5 */ # endif # if OpenBSD >= 200505 # undef NETISO /* iso.h removed in 3.7 */ # endif # if OpenBSD >= 200800 # define HAVE_NANOSLEEP 1 /* has nanosleep(2) */ # endif # ifndef SOCKADDR_LEN_T # define SOCKADDR_LEN_T socklen_t /* e.g., arg#3 to accept, getsockname */ # endif # ifndef SOCKOPT_LEN_T # define SOCKOPT_LEN_T socklen_t /* arg#5 to getsockopt */ # endif # endif /* defined(__OpenBSD__) */ # endif /* defined(__DragonFly__) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__) */ /* ** Mach386 ** ** For mt Xinu's Mach386 system. */ # if defined(MACH) && defined(i386) && !defined(__GNU__) # define MACH386 1 # define HASUNSETENV 1 /* has unsetenv(3) call */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # ifndef HASFLOCK # define HASFLOCK 1 /* has flock(2) call */ # endif # define SM_CONF_GETOPT 0 /* need a replacement for getopt(3) */ # define NEEDSTRTOL 1 /* need the strtol() function */ # define setpgid setpgrp # ifndef LA_TYPE # define LA_TYPE LA_FLOAT # endif # define SFS_TYPE SFS_VFS /* use statfs() implementation */ # undef HASSETVBUF /* don't actually have setvbuf(3) */ # undef WEXITSTATUS # undef WIFEXITED # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/sendmail.pid" # endif # endif /* defined(MACH) && defined(i386) && !defined(__GNU__) */ /* ** GNU OS (hurd) ** Largely BSD & posix compatible. ** Port contributed by Miles Bader . ** Updated by Mark Kettenis . */ # if defined(__GNU__) && !defined(NeXT) # include # define HASFCHMOD 1 /* has fchmod(2) call */ # define HASFCHOWN 1 /* has fchown(2) call */ # define HASUNAME 1 /* has uname(2) call */ # define HASUNSETENV 1 /* has unsetenv(3) call */ # define HAS_ST_GEN 1 /* has st_gen field in stat struct */ # define HASSTRERROR 1 /* has strerror(3) */ # define GIDSET_T gid_t # define SOCKADDR_LEN_T socklen_t # define SOCKOPT_LEN_T socklen_t # if (__GLIBC__ == 2 && __GLIBC_MINOR__ > 1) || __GLIBC__ > 2 # define LA_TYPE LA_SUBR # else /* (__GLIBC__ == 2 && __GLIBC_MINOR__ > 1) || __GLIBC__ > 2 */ # define LA_TYPE LA_MACH /* GNU uses mach[34], which renames some rpcs from mach2.x. */ # define host_self mach_host_self # endif /* (__GLIBC__ == 2 && __GLIBC_MINOR__ > 1) || __GLIBC__ > 2 */ # define SFS_TYPE SFS_STATFS # define SPT_TYPE SPT_CHANGEARGV # define ERRLIST_PREDEFINED 1 /* don't declare sys_errlist */ # define BSD4_4_SOCKADDR 1 /* has sa_len */ # define SIOCGIFCONF_IS_BROKEN 1 /* SIOCGFCONF doesn't work */ # define HAS_IN_H 1 /* GNU has netinet/in.h. */ /* GNU has no MAXPATHLEN; ideally the code should be changed to not use it. */ # define MAXPATHLEN 2048 # endif /* defined(__GNU__) && !defined(NeXT) */ /* ** 4.3 BSD -- this is for very old systems ** ** Should work for mt Xinu MORE/BSD and Mips UMIPS-BSD 2.1. ** ** You'll also have to install a new resolver library. ** I don't guarantee that support for this environment is complete. */ # if defined(oldBSD43) || defined(MORE_BSD) || defined(umipsbsd) # define NEEDVPRINTF 1 /* need a replacement for vprintf(3) */ # define SM_CONF_GETOPT 0 /* need a replacement for getopt(3) */ # define ARBPTR_T char * # define setpgid setpgrp # ifndef LA_TYPE # define LA_TYPE LA_FLOAT # endif # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # ifndef IDENTPROTO # define IDENTPROTO 0 /* TCP/IP implementation is broken */ # endif # undef WEXITSTATUS # undef WIFEXITED typedef short pid_t; # endif /* defined(oldBSD43) || defined(MORE_BSD) || defined(umipsbsd) */ /* ** SCO Unix ** ** This includes three parts: ** ** The first is for SCO OpenServer 5. ** (Contributed by Keith Reynolds ). ** ** SCO OpenServer 5 has a compiler version number macro, ** which we can use to figure out what version we're on. ** This may have to change in future releases. ** ** The second is for SCO UNIX 3.2v4.2/Open Desktop 3.0. ** (Contributed by Philippe Brand ). ** ** The third is for SCO UNIX 3.2v4.0/Open Desktop 2.0 and earlier. */ /* SCO OpenServer 5 */ # if _SCO_DS >= 1 # include # define SIOCGIFNUM_IS_BROKEN 1 /* SIOCGIFNUM returns bogus value */ # define HASFCHMOD 1 /* has fchmod(2) call */ # define HASFCHOWN 1 /* has fchown(2) call */ # define HASSETRLIMIT 1 /* has setrlimit(2) call */ # define USESETEUID 1 /* has seteuid(2) call */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASGETDTABLESIZE 1 /* has getdtablesize(2) call */ # define RLIMIT_NEEDS_SYS_TIME_H 1 # define LDA_USE_LOCKF 1 # ifndef LA_TYPE # define LA_TYPE LA_DEVSHORT # endif # define _PATH_AVENRUN "/dev/table/avenrun" # ifndef _SCO_unix_4_2 # define _SCO_unix_4_2 # else /* ! _SCO_unix_4_2 */ # define SOCKADDR_LEN_T size_t /* e.g., arg#3 to accept, getsockname */ # define SOCKOPT_LEN_T size_t /* arg#5 to getsockopt */ # endif /* ! _SCO_unix_4_2 */ # endif /* _SCO_DS >= 1 */ /* SCO UNIX 3.2v4.2/Open Desktop 3.0 */ # ifdef _SCO_unix_4_2 # define _SCO_unix_ # define HASSETREUID 1 /* has setreuid(2) call */ # endif /* _SCO_unix_4_2 */ /* SCO UNIX 3.2v4.0 Open Desktop 2.0 and earlier */ # ifdef _SCO_unix_ # include /* needed for IP_SRCROUTE */ # define SYSTEM5 1 /* include all the System V defines */ # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # define NOFTRUNCATE 0 /* has (simulated) ftruncate call */ # ifndef USE_SIGLONGJMP # define USE_SIGLONGJMP 1 /* sigsetjmp needed for signal handling */ # endif # define MAXPATHLEN PATHSIZE # define SFS_TYPE SFS_4ARGS /* use 4-arg impl */ # define SFS_BAVAIL f_bfree /* alternate field name */ # define SPT_TYPE SPT_SCO /* write kernel u. area */ # define TZ_TYPE TZ_TM_NAME /* use tm->tm_name */ # define UID_T uid_t # define GID_T gid_t # define GIDSET_T gid_t # define _PATH_UNIX "/unix" # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/sendmail.pid" # endif /* stuff fixed in later releases */ # ifndef _SCO_unix_4_2 # define SYS5SIGNALS 1 /* SysV signal semantics -- reset on each sig */ # endif # ifndef _SCO_DS # define ftruncate chsize /* use chsize(2) to emulate ftruncate */ # define NEEDFSYNC 1 /* needs the fsync(2) call stub */ # define NETUNIX 0 /* no unix domain socket support */ # define LA_TYPE LA_SHORT # endif /* ! _SCO_DS */ # endif /* _SCO_unix_ */ /* ** ISC (SunSoft) Unix. ** ** Contributed by J.J. Bailey */ # ifdef ISC_UNIX # include # include /* needed for IP_SRCROUTE */ # include # define SYSTEM5 1 /* include all the System V defines */ # define SYS5SIGNALS 1 /* SysV signal semantics -- reset on each sig */ # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # define HASSETREUID 1 /* has setreuid(2) call */ # define NEEDFSYNC 1 /* needs the fsync(2) call stub */ # define NETUNIX 0 /* no unix domain socket support */ # define MAXPATHLEN 1024 # define LA_TYPE LA_SHORT # define SFS_TYPE SFS_STATFS /* use statfs() impl */ # define SFS_BAVAIL f_bfree /* alternate field name */ # define _PATH_UNIX "/unix" # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/sendmail.pid" # endif # endif /* ISC_UNIX */ /* ** Altos System V (5.3.1) ** Contributed by Tim Rice . */ # ifdef ALTOS_SYSTEM_V # include # include # define SYSTEM5 1 /* include all the System V defines */ # define SYS5SIGNALS 1 /* SysV signal semantics -- reset on each sig */ # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # define WAITUNION 1 /* use "union wait" as wait argument type */ # define NEEDFSYNC 1 /* no fsync(2) in system library */ # define NEEDSTRSTR 1 /* need emulation of the strstr(3) call */ # define NOFTRUNCATE 1 /* do not have ftruncate(2) */ # define MAXPATHLEN PATH_MAX # define LA_TYPE LA_SHORT # define SFS_TYPE SFS_STATFS /* use statfs() impl */ # define SFS_BAVAIL f_bfree /* alternate field name */ # define TZ_TYPE TZ_TZNAME /* use tzname[] vector */ # define NETUNIX 0 /* no unix domain socket support */ # undef WIFEXITED # undef WEXITSTATUS # define strtoul strtol /* gcc library bogosity */ typedef unsigned short uid_t; typedef unsigned short gid_t; typedef short pid_t; typedef unsigned long mode_t; /* some stuff that should have been in the include files */ extern char *malloc(); extern struct passwd *getpwent(); extern struct passwd *getpwnam(); extern struct passwd *getpwuid(); extern char *getenv(); extern struct group *getgrgid(); extern struct group *getgrnam(); # endif /* ALTOS_SYSTEM_V */ /* ** ConvexOS 11.0 and later ** ** "Todd C. Miller" claims this ** works on 9.1 as well. ** ** ConvexOS 11.5 and later, should work on 11.0 as defined. ** For pre-ConvexOOS 11.0, define SM_CONF_GETOPT=0, undef IDENTPROTO ** ** Eric Schnoebelen (eric@cirr.com) For CONVEX Computer Corp. ** (now the CONVEX Technologies Center of Hewlett Packard) */ # ifdef _CONVEX_SOURCE # define HASGETDTABLESIZE 1 /* has getdtablesize(2) */ # define HASINITGROUPS 1 /* has initgroups(3) */ # define HASUNAME 1 /* use System V uname(2) system call */ # define HASSETSID 1 /* has POSIX setsid(2) call */ # define HASUNSETENV 1 /* has unsetenv(3) */ # define HASFLOCK 1 /* has flock(2) */ # define HASSETRLIMIT 1 /* has setrlimit(2) */ # define HASSETREUID 1 /* has setreuid(2) */ # define BROKEN_RES_SEARCH 1 /* res_search(unknown) returns h_error=0 */ # define NEEDPUTENV 1 /* needs putenv (written in terms of setenv) */ # define SM_CONF_GETOPT 1 /* need a replacement for getopt(3) */ # define IP_SRCROUTE 0 /* Something is broken with getsockopt() */ # define LA_TYPE LA_FLOAT # define SFS_TYPE SFS_VFS /* use statfs() implementation */ # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # ifndef S_IREAD # define S_IREAD _S_IREAD # define S_IWRITE _S_IWRITE # define S_IEXEC _S_IEXEC # define S_IFMT _S_IFMT # define S_IFCHR _S_IFCHR # define S_IFBLK _S_IFBLK # endif /* ! S_IREAD */ # ifndef TZ_TYPE # define TZ_TYPE TZ_TIMEZONE # endif # ifndef IDENTPROTO # define IDENTPROTO 1 # endif # ifndef SHARE_V1 # define SHARE_V1 1 /* version 1 of the fair share scheduler */ # endif # if !defined(__GNUC__ ) # define UID_T int /* GNUC gets it right, ConvexC botches */ # define GID_T int /* GNUC gets it right, ConvexC botches */ # endif # if SECUREWARE # define FORK fork /* SecureWare wants the real fork! */ # else # define FORK vfork /* the rest of the OS versions don't care */ # endif # endif /* _CONVEX_SOURCE */ /* ** RISC/os 4.52 ** ** Gives a ton of warning messages, but otherwise compiles. */ # ifdef RISCOS # define HASUNSETENV 1 /* has unsetenv(3) call */ # ifndef HASFLOCK # define HASFLOCK 1 /* has flock(2) call */ # endif # define WAITUNION 1 /* use "union wait" as wait argument type */ # define SM_CONF_GETOPT 0 /* need a replacement for getopt(3) */ # define NEEDPUTENV 1 /* need putenv(3) call */ # define NEEDSTRSTR 1 /* need emulation of the strstr(3) call */ # define SFS_TYPE SFS_VFS /* use statfs() implementation */ # define LA_TYPE LA_INT # define LA_AVENRUN "avenrun" # define _PATH_UNIX "/unix" # undef WIFEXITED # define setpgid setpgrp typedef int pid_t; # define SIGFUNC_DEFINED # define SIGFUNC_RETURN (0) # define SIGFUNC_DECL int typedef int (*sigfunc_t)(); extern char *getenv(); extern void *malloc(); /* added for RISC/os 4.01...which is dumber than 4.50 */ # ifdef RISCOS_4_0 # ifndef ARBPTR_T # define ARBPTR_T char * # endif # undef HASFLOCK # define HASFLOCK 0 # endif /* RISCOS_4_0 */ # include # endif /* RISCOS */ /* ** Linux 0.99pl10 and above... ** ** Thanks to, in reverse order of contact: ** ** John Kennedy ** Andrew Pam ** Florian La Roche ** Karl London ** ** NOTE: Override HASFLOCK as you will but, as of 1.99.6, mixed-style ** file locking is no longer allowed. In particular, make sure ** your DBM library and sendmail are both using either flock(2) ** *or* fcntl(2) file locking, but not both. */ # ifdef __linux__ # include # if !defined(KERNEL_VERSION) /* not defined in 2.0.x kernel series */ # define KERNEL_VERSION(a,b,c) (((a) << 16) + ((b) << 8) + (c)) # endif # define BSD 1 /* include BSD defines */ # define HASSETREGID 1 /* use setregid(2) to set saved gid */ # ifndef REQUIRES_DIR_FSYNC # define REQUIRES_DIR_FSYNC 1 /* requires fsync() on directory */ # endif # ifndef USESETEUID # define USESETEUID 0 /* has it due to POSIX, but doesn't work */ # endif # define SM_CONF_GETOPT 0 /* need a replacement for getopt(3) */ # define HASUNAME 1 /* use System V uname(2) system call */ # define HASUNSETENV 1 /* has unsetenv(3) call */ # define ERRLIST_PREDEFINED /* don't declare sys_errlist */ # define GIDSET_T gid_t /* from */ # ifndef HASGETUSERSHELL # define HASGETUSERSHELL 0 /* getusershell(3) broken in Slackware 2.0 */ # endif # ifndef IP_SRCROUTE # define IP_SRCROUTE 0 /* linux <= 1.2.8 doesn't support IP_OPTIONS */ # endif # ifndef HAS_IN_H # define HAS_IN_H 1 /* use netinet/in.h */ # endif # ifndef USE_SIGLONGJMP # define USE_SIGLONGJMP 1 /* sigsetjmp needed for signal handling */ # endif # ifndef HASFLOCK # if LINUX_VERSION_CODE < 66399 # define HASFLOCK 0 /* flock(2) is broken after 0.99.13 */ # else /* LINUX_VERSION_CODE < 66399 */ # if (LINUX_VERSION_CODE < KERNEL_VERSION(2,4,0)) # define HASFLOCK 1 /* flock(2) fixed after 1.3.95 */ # else # define HASFLOCK 0 /* flock(2) is broken (again) after 2.4.0 */ # endif # endif /* LINUX_VERSION_CODE < 66399 */ # endif /* ! HASFLOCK */ # ifndef LA_TYPE # define LA_TYPE LA_PROCSTR # endif # define SFS_TYPE SFS_VFS /* use statfs() impl */ # define SPT_PADCHAR '\0' /* pad process title with nulls */ # if (LINUX_VERSION_CODE >= KERNEL_VERSION(2,0,0)) # ifndef HASURANDOMDEV # define HASURANDOMDEV 1 /* 2.0 (at least) has linux/drivers/char/random.c */ # endif # endif /* (LINUX_VERSION_CODE >= KERNEL_VERSION(2,0,0)) */ # if defined(__GLIBC__) && defined(__GLIBC_MINOR__) # define HASSTRERROR 1 /* has strerror(3) */ # endif # ifndef TZ_TYPE # define TZ_TYPE TZ_NONE /* no standard for Linux */ # endif # if (__GLIBC__ >= 2) # include # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/var/run/sendmail.pid" # endif # include # undef atol /* wounded in */ # if defined(__GLIBC__) && defined(__GLIBC_MINOR__) # define GLIBC_VERSION ((__GLIBC__ << 9) + __GLIBC_MINOR__) # if (GLIBC_VERSION >= 0x201) # define SOCKADDR_LEN_T socklen_t # define SOCKOPT_LEN_T socklen_t # endif # endif /* defined(__GLIBC__) && defined(__GLIBC_MINOR__) */ # if NETINET6 /* ** Linux doesn't have a good way to tell userland what interfaces are ** IPv6-capable. Therefore, the BIND resolver can not determine if there ** are IPv6 interfaces to honor AI_ADDRCONFIG. Unfortunately, it assumes ** that none are present. (Excuse the macro name ADDRCONFIG_IS_BROKEN.) */ # define ADDRCONFIG_IS_BROKEN 1 /* ** Indirectly included from glibc's . IPv6 support is native ** in 2.1 and later, but the APIs appear before the functions. */ # if defined(__GLIBC__) && defined(__GLIBC_MINOR__) # if (GLIBC_VERSION >= 0x201) # undef IPPROTO_ICMPV6 /* linux #defines, glibc enums */ # else # include /* IPv6 support */ # endif # if (GLIBC_VERSION >= 0x201 && !defined(NEEDSGETIPNODE)) /* Have APIs in , but no support in glibc */ # define NEEDSGETIPNODE 1 # endif # undef GLIBC_VERSION # endif /* defined(__GLIBC__) && defined(__GLIBC_MINOR__) */ # endif /* NETINET6 */ # ifndef HASFCHOWN # define HASFCHOWN 1 /* fchown(2) */ # endif # if (LINUX_VERSION_CODE >= KERNEL_VERSION(2,0,36)) && !defined(HASFCHMOD) # define HASFCHMOD 1 /* fchmod(2) */ # endif # if (__GLIBC__ >= 2 && __GLIBC_MINOR__ >= 19) && !defined(HAS_GETHOSTBYNAME2) # define HAS_GETHOSTBYNAME2 1 # endif # endif /* __linux__ */ /* ** DELL SVR4 Issue 2.2, and others ** From Kimmo Suominen ** ** It's on #ifdef DELL_SVR4 because Solaris also gets __svr4__ ** defined, and the definitions conflict. ** ** Peter Wemm claims that the setreuid ** trick works on DELL 2.2 (SVR4.0/386 version 4.0) and ESIX 4.0.3A ** (SVR4.0/386 version 3.0). */ # ifdef DELL_SVR4 /* no changes necessary */ /* see general __svr4__ defines below */ # endif /* DELL_SVR4 */ /* ** Apple A/UX 3.0 */ # ifdef _AUX_SOURCE # include # define BSD /* has BSD routines */ # define HASSETRLIMIT 0 /* ... but not setrlimit(2) */ # define BROKEN_RES_SEARCH 1 /* res_search(unknown) returns h_errno=0 */ # define BOGUS_O_EXCL 1 /* exclusive open follows symlinks */ # define HASUNAME 1 /* use System V uname(2) system call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASSETVBUF 1 /* has setvbuf(3) in libc */ # define HASSTRERROR 1 /* has strerror(3) */ # define SIGFUNC_DEFINED /* sigfunc_t already defined */ # define SIGFUNC_RETURN /* POSIX-mode */ # define SIGFUNC_DECL void /* POSIX-mode */ # define ERRLIST_PREDEFINED 1 # ifndef IDENTPROTO # define IDENTPROTO 0 /* TCP/IP implementation is broken */ # endif # ifndef LA_TYPE # define LA_TYPE LA_INT # define FSHIFT 16 # endif # define LA_AVENRUN "avenrun" # define SFS_TYPE SFS_VFS /* use statfs() implementation */ # define TZ_TYPE TZ_TZNAME # ifndef _PATH_UNIX # define _PATH_UNIX "/unix" /* should be in */ # endif # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # undef WIFEXITED # undef WEXITSTATUS # endif /* _AUX_SOURCE */ /* ** Encore UMAX V ** ** Not extensively tested. */ # ifdef UMAXV # define HASUNAME 1 /* use System V uname(2) system call */ # define HASSETVBUF 1 /* we have setvbuf(3) in libc */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # define SYS5SIGNALS 1 /* SysV signal semantics -- reset on each sig */ # define SYS5SETPGRP 1 /* use System V setpgrp(2) syscall */ # define SFS_TYPE SFS_4ARGS /* four argument statfs() call */ # define MAXPATHLEN PATH_MAX extern struct passwd *getpwent(), *getpwnam(), *getpwuid(); extern struct group *getgrent(), *getgrnam(), *getgrgid(); # undef WIFEXITED # undef WEXITSTATUS # endif /* UMAXV */ /* ** Stardent Titan 3000 running TitanOS 4.2. ** ** Must be compiled in "cc -43" mode. ** ** From Kate Hedstrom . ** ** Note the tweaking below after the BSD defines are set. */ # ifdef titan # define setpgid setpgrp typedef int pid_t; # undef WIFEXITED # undef WEXITSTATUS # endif /* titan */ /* ** Sequent DYNIX 3.2.0 ** ** From Jim Davis . */ # ifdef sequent # define BSD 1 # define HASUNSETENV 1 # define BSD4_3 1 /* to get signal() in conf.c */ # define WAITUNION 1 # define LA_TYPE LA_FLOAT # ifdef _POSIX_VERSION # undef _POSIX_VERSION /* set in */ # endif # undef HASSETVBUF /* don't actually have setvbuf(3) */ # define setpgid setpgrp /* Have to redefine WIFEXITED to take an int, to work with waitfor() */ # undef WIFEXITED # define WIFEXITED(s) (((union wait*)&(s))->w_stopval != WSTOPPED && \ ((union wait*)&(s))->w_termsig == 0) # define WEXITSTATUS(s) (((union wait*)&(s))->w_retcode) typedef int pid_t; # define isgraph(c) (isprint(c) && (c != ' ')) # ifndef IDENTPROTO # define IDENTPROTO 0 /* TCP/IP implementation is broken */ # endif # ifndef _PATH_UNIX # define _PATH_UNIX "/dynix" # endif # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # endif /* sequent */ /* ** Sequent DYNIX/ptx v2.0 (and higher) ** ** For DYNIX/ptx v1.x, undefine HASSETREUID. ** ** From Tim Wright . ** Update from Jack Woolley , 26 Dec 1995, ** for DYNIX/ptx 4.0.2. */ # ifdef _SEQUENT_ # include # define SYSTEM5 1 /* include all the System V defines */ # define HASSETSID 1 /* has POSIX setsid(2) call */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASSETREUID 1 /* has setreuid(2) call */ # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # define GIDSET_T gid_t # define LA_TYPE LA_INT # define SFS_TYPE SFS_STATFS /* use statfs() impl */ # define SPT_TYPE SPT_NONE /* don't use setproctitle */ # ifndef IDENTPROTO # define IDENTPROTO 0 /* TCP/IP implementation is broken */ # endif # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/sendmail.pid" # endif # endif /* _SEQUENT_ */ /* ** Cray UNICOS, UNICOS/mk, and UNICOS/mp ** ** UNICOS: ** Ported by David L. Kensiski, Sterling Software ** Update Brian Ginsbach ** UNICOS/mk (Cray T3E): ** Contributed by Manu Mahonen ** of Center for Scientific Computing. ** Update Brian Ginsbach ** UNICOS/mp: ** From Aaron Davis & Brian Ginsbach */ # if defined(_CRAY) || defined(UNICOS) || defined(_UNICOSMP) # define SYSTEM5 1 /* include all the System V defines */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define HASFCHOWN 1 /* has fchown(2) */ # define HASUNSETENV 1 /* has unsetenv(3) call */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASSETREUID 1 /* has setreuid(2) call */ # define USESETEUID 1 /* has usable seteuid(2) call */ # define HASGETDTABLESIZE 1 /* has getdtablesize(2) syscall */ # define HASSTRERROR 1 /* has strerror(3) */ # define GIDSET_T gid_t # define SFS_TYPE SFS_4ARGS /* four argument statfs() call */ # define SFS_BAVAIL f_bfree /* alternate field name */ # define SAFENFSPATHCONF 1 /* pathconf(2) pessimizes on NFS filesystems */ # ifdef UNICOS # define SYS5SIGNALS 1 /* SysV signal semantics -- reset on each sig */ # define LA_TYPE LA_ZERO # define _PATH_MAILDIR "/usr/spool/mail" # define GET_IPOPT_DST(dst) *(struct in_addr *)&(dst) # ifndef MAXPATHLEN # define MAXPATHLEN PATHSIZE # endif # ifndef _PATH_UNIX # ifdef UNICOSMK # define _PATH_UNIX "/unicosmk.ar" # else # define _PATH_UNIX "/unicos" # endif # endif /* ! _PATH_UNIX */ # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # endif /* UNICOS */ # ifdef _UNICOSMP # if defined(_SC_NPROC_ONLN) && !defined(_SC_NPROCESSORS_ONLN) /* _SC_NPROC_ONLN is 'mpadmin -u', total # of unrestricted processors */ # define _SC_NPROCESSORS_ONLN _SC_NPROC_ONLN # endif # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # define HASSETRLIMIT 1 /* has setrlimit(2) syscall */ # define LA_TYPE LA_IRIX6 /* figure out at run time */ # include # include # define ARGV_T char *const * # endif /* _UNICOSMP */ # endif /* _CRAY */ /* ** Apollo DomainOS ** ** From Todd Martin & Don Lewis ** ** 15 Jan 1994; updated 2 Aug 1995 ** */ # ifdef apollo # define HASSETREUID 1 /* has setreuid(2) call */ # define HASINITGROUPS 1 /* has initgroups(2) call */ # define IP_SRCROUTE 0 /* does not have */ # define SPT_TYPE SPT_NONE /* don't use setproctitle */ # define LA_TYPE LA_SUBR /* use getloadavg.c */ # define SFS_TYPE SFS_4ARGS /* four argument statfs() call */ # define SFS_BAVAIL f_bfree /* alternate field name */ # define TZ_TYPE TZ_TZNAME # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/sendmail.pid" # endif # undef S_IFSOCK /* S_IFSOCK and S_IFIFO are the same */ # undef S_IFIFO # define S_IFIFO 0010000 # ifndef IDENTPROTO # define IDENTPROTO 0 /* TCP/IP implementation is broken */ # endif # define RLIMIT_NEEDS_SYS_TIME_H 1 # if defined(NGROUPS_MAX) && !NGROUPS_MAX # undef NGROUPS_MAX # endif # endif /* apollo */ /* ** MPE-iX ** ** Requires MPE 6.0 or greater. See sendmail/README for more info. ** ** From Mark Bixby or . */ # ifdef MPE # include # include /* Sendmail stuff */ # define HASFCHOWN 0 /* lacks fchown() */ # define HASGETUSERSHELL 0 /* lacks getusershell() */ # ifdef HASNICE # undef HASNICE # endif # define HASNICE 0 /* lacks nice() */ # define HASRANDOM 0 /* lacks random() */ # ifdef HASRRESVPORT # undef HASRRESVPORT # endif # define HASRRESVPORT 0 /* lacks rresvport() */ # define IP_SRCROUTE 0 /* lacks IP source routing fields */ # ifdef MATCHGECOS # undef MATCHGECOS # endif # define MATCHGECOS 0 /* lacks an initialized GECOS field */ # define NEEDFSYNC 1 /* use sendmail's fsync() */ # define NEEDLINK 1 /* use sendmail's link() */ # define NOFTRUNCATE 1 /* lacks ftruncate() */ # define SFS_TYPE SFS_NONE /* can't determine disk space */ # define SM_CONF_SYSLOG 0 /* use sendmail decl of syslog() */ # define USE_DOUBLE_FORK 0 /* don't fork an intermediate zombie */ # define USE_ENVIRON 1 /* use environ instead of envp */ /* Missing header stuff */ # define AF_UNSPEC 0 # define AF_MAX AF_INET # define IFF_LOOPBACK 0x8 # define IN_LOOPBACKNET 127 # define MAXNAMLEN NAME_MAX # define S_IEXEC S_IXUSR # define S_IREAD S_IRUSR # define S_IWRITE S_IWUSR /* Present header stuff that needs to be missing */ # undef NGROUPS_MAX /* Shadow functions */ # define bind sendmail_mpe_bind # define _exit sendmail_mpe__exit # define exit sendmail_mpe_exit # define fcntl sendmail_mpe_fcntl # define getegid sendmail_mpe_getegid # define geteuid sendmail_mpe_geteuid # define getpwnam sendmail_mpe_getpwnam # define getpwuid sendmail_mpe_getpwuid # define setgid sendmail_mpe_setgid # define setuid sendmail_mpe_setuid extern int sendmail_mpe_fcntl __P((int, int, ...)); extern struct passwd * sendmail_mpe_getpwnam __P((const char *)); extern struct passwd * sendmail_mpe_getpwuid __P((uid_t)); # endif /* MPE */ /* ** System V Rel 5.x (a.k.a Unixware7 w/o BSD-Compatibility Libs ie. native) ** ** Contributed by Paul Gampe */ # ifdef __svr5__ # include # define __svr4__ # define SYS5SIGNALS 1 # define HASFCHOWN 1 /* has fchown(2) call */ # define HASSETSID 1 /* has POSIX setsid(2) call */ # define HASSETREUID 1 # define HASWAITPID 1 # define HASGETDTABLESIZE 1 # define GIDSET_T gid_t # define SOCKADDR_LEN_T size_t # define SOCKOPT_LEN_T size_t # define SIGWAIT_TAKES_1_ARG 1 # ifndef _PATH_UNIX # define _PATH_UNIX "/stand/unix" # endif # define SPT_PADCHAR '\0' /* pad process title with nulls */ # ifndef SYSLOG_BUFSIZE # define SYSLOG_BUFSIZE 1024 /* unsure */ # endif # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/etc/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/sendmail.pid" # endif # undef offsetof /* avoid stddefs.h, sys/sysmacros.h conflict */ #if !defined(SM_SET_H_ERRNO) && defined(_REENTRANT) # define SM_SET_H_ERRNO(err) set_h_errno((err)) #endif # endif /* __svr5__ */ /* ###################################################################### */ /* ** UnixWare 2.x */ # ifdef UNIXWARE2 # define UNIXWARE 1 # undef offsetof /* avoid stddefs.h, sys/sysmacros.h conflict */ # endif /* UNIXWARE2 */ /* ** UnixWare 1.1.2. ** ** Updated by Petr Lampa . ** From Evan Champion . */ # ifdef UNIXWARE # include # define SYSTEM5 1 # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # define HASSETREUID 1 # define HASSETSID 1 /* has POSIX setsid(2) call */ # define HASINITGROUPS 1 # define GIDSET_T gid_t # define SLEEP_T unsigned # define SFS_TYPE SFS_STATVFS # define LA_TYPE LA_ZERO # undef WIFEXITED # undef WEXITSTATUS # ifndef _PATH_UNIX # define _PATH_UNIX "/unix" # endif # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/ucblib/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/usr/ucblib/sendmail.pid" # endif # define SYSLOG_BUFSIZE 128 # endif /* UNIXWARE */ /* ** Intergraph CLIX 3.1 ** ** From Paul Southworth */ # ifdef CLIX # define SYSTEM5 1 /* looks like System V */ # ifndef HASGETUSERSHELL # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # endif # define DEV_BSIZE 512 /* device block size not defined */ # define GIDSET_T gid_t # undef LOG /* syslog not available */ # define NEEDFSYNC 1 /* no fsync in system library */ # define GETSHORT _getshort # endif /* CLIX */ /* ** NCR MP-RAS 2.x (SysVr4) with Wollongong TCP/IP ** ** From Kevin Darcy . */ # ifdef NCR_MP_RAS2 # include # define __svr4__ # define IP_SRCROUTE 0 /* Something is broken with getsockopt() */ # define SYSLOG_BUFSIZE 1024 # define SPT_TYPE SPT_NONE # endif /* NCR_MP_RAS2 */ /* ** NCR MP-RAS 3.x (SysVr4) with STREAMware TCP/IP ** ** From Tom Moore */ # ifdef NCR_MP_RAS3 # define __svr4__ # define HASFCHOWN 1 /* has fchown(2) call */ # define LDA_USE_LOCKF 1 # define SIOCGIFNUM_IS_BROKEN 1 /* SIOCGIFNUM has non-std interface */ # define SO_REUSEADDR_IS_BROKEN 1 /* doesn't work if accept() fails */ # define SYSLOG_BUFSIZE 1024 # define SPT_TYPE SPT_NONE # define _PATH_MAILDIR "/var/mail" # ifndef _XOPEN_SOURCE # define _XOPEN_SOURCE # define _XOPEN_SOURCE_EXTENDED 1 # include # undef _XOPEN_SOURCE # undef _XOPEN_SOURCE_EXTENDED # endif /* ! _XOPEN_SOURCE */ # endif /* NCR_MP_RAS3 */ /* ** Tandem NonStop-UX SVR4 ** ** From Rick McCarty . */ # ifdef NonStop_UX_BXX # define __svr4__ # endif /* NonStop_UX_BXX */ /* ** Hitachi 3050R/3050RX and 3500 Workstations running HI-UX/WE2. ** ** Tested for 1.04, 1.03 ** From Akihiro Hashimoto ("Hash") . ** ** Tested for 4.02, 6.10 and 7.10 ** From Motonori NAKAMURA . */ # if !defined(__hpux) && (defined(_H3050R) || defined(_HIUX_SOURCE)) # define SYSTEM5 1 /* include all the System V defines */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define HASFCHMOD 1 /* has fchmod(2) syscall */ # define setreuid(r, e) setresuid(r, e, -1) # define LA_TYPE LA_FLOAT # define SPT_TYPE SPT_PSTAT # define SFS_TYPE SFS_VFS /* use statfs() implementation */ # ifndef HASSETVBUF # define HASSETVBUF /* HI-UX has no setlinebuf */ # endif # ifndef GIDSET_T # define GIDSET_T gid_t # endif # ifndef _PATH_UNIX # define _PATH_UNIX "/HI-UX" # endif # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # ifndef IDENTPROTO # define IDENTPROTO 0 /* TCP/IP implementation is broken */ # endif # ifndef HASGETUSERSHELL # define HASGETUSERSHELL 0 /* getusershell(3) causes core dumps */ # endif # define FDSET_CAST (int *) /* cast for fd_set parameters to select */ /* ** avoid m_flags conflict between Berkeley DB 1.85 db.h & sys/sysmacros.h ** on HIUX 3050 */ # undef m_flags # define SM_CONF_SYSLOG 0 # endif /* !defined(__hpux) && (defined(_H3050R) || defined(_HIUX_SOURCE)) */ /* ** Amdahl UTS System V 2.1.5 (SVr3-based) ** ** From: Janet Jackson . */ # ifdef _UTS # include # undef HASLSTAT /* has symlinks, but they cause problems */ # define NEEDFSYNC 1 /* system fsync(2) fails on non-EFS filesys */ # define SYS5SIGNALS 1 /* System V signal semantics */ # define SYS5SETPGRP 1 /* use System V setpgrp(2) syscall */ # define HASUNAME 1 /* use System V uname(2) system call */ # define HASINITGROUPS 1 /* has initgroups(3) function */ # define HASSETVBUF 1 /* has setvbuf(3) function */ # ifndef HASGETUSERSHELL # define HASGETUSERSHELL 0 /* does not have getusershell(3) function */ # endif # define GIDSET_T gid_t /* type of 2nd arg to getgroups(2) isn't int */ # define LA_TYPE LA_ZERO /* doesn't have load average */ # define SFS_TYPE SFS_4ARGS /* use 4-arg statfs() */ # define SFS_BAVAIL f_bfree /* alternate field name */ # define _PATH_UNIX "/unix" # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif # endif /* _UTS */ /* ** Cray Computer Corporation's CSOS ** ** From Scott Bolte . */ # ifdef _CRAYCOM # define SYSTEM5 1 /* include all the System V defines */ # define SYS5SIGNALS 1 /* SysV signal semantics -- reset on each sig */ # define NEEDFSYNC 1 /* no fsync in system library */ # define MAXPATHLEN PATHSIZE # define LA_TYPE LA_ZERO # define SFS_TYPE SFS_4ARGS /* four argument statfs() call */ # define SFS_BAVAIL f_bfree /* alternate field name */ # define _POSIX_CHOWN_RESTRICTED -1 extern struct group *getgrent(), *getgrnam(), *getgrgid(); # endif /* _CRAYCOM */ /* ** Sony NEWS-OS 4.2.1R and 6.0.3 ** ** From Motonori NAKAMURA . */ # ifdef sony_news # ifndef __svr4 /* NEWS-OS 4.2.1R */ # ifndef BSD # define BSD /* has BSD routines */ # endif # define HASUNSETENV 1 /* has unsetenv(2) call */ # undef HASSETVBUF /* don't actually have setvbuf(3) */ # define WAITUNION 1 /* use "union wait" as wait argument type */ # define LA_TYPE LA_INT # define SFS_TYPE SFS_VFS /* use statfs() implementation */ # ifndef HASFLOCK # define HASFLOCK 1 /* has flock(2) call */ # endif # define setpgid setpgrp # undef WIFEXITED # undef WEXITSTATUS # define MODE_T int /* system include files have no mode_t */ typedef int pid_t; typedef int (*sigfunc_t)(); # define SIGFUNC_DEFINED # define SIGFUNC_RETURN (0) # define SIGFUNC_DECL int # else /* ! __svr4 */ /* NEWS-OS 6.0.3 with /bin/cc */ # ifndef __svr4__ # define __svr4__ /* use all System V Release 4 defines below */ # endif # define HASSETSID 1 /* has POSIX setsid(2) call */ # define HASGETUSERSHELL 1 /* DOES have getusershell(3) call in libc */ # define LA_TYPE LA_READKSYM /* use MIOC_READKSYM ioctl */ # ifndef SPT_TYPE # define SPT_TYPE SPT_SYSMIPS /* use sysmips() (OS 6.0.2 or later) */ # endif # define GIDSET_T gid_t # undef WIFEXITED # undef WEXITSTATUS # ifndef SYSLOG_BUFSIZE # define SYSLOG_BUFSIZE 256 # endif # define _PATH_UNIX "/stand/unix" # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/etc/mail/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/mail/sendmail.pid" # endif # endif /* ! __svr4 */ # endif /* sony_news */ /* ** Omron LUNA/UNIOS-B 3.0, LUNA2/Mach and LUNA88K Mach ** ** From Motonori NAKAMURA . */ # ifdef luna # ifndef IDENTPROTO # define IDENTPROTO 0 /* TCP/IP implementation is broken */ # endif # define HASUNSETENV 1 /* has unsetenv(2) call */ # define NEEDPUTENV 1 /* need putenv(3) call */ # define SM_CONF_GETOPT 0 /* need a replacement for getopt(3) */ # define NEEDSTRSTR 1 /* need emulation of the strstr(3) call */ # define WAITUNION 1 /* use "union wait" as wait argument type */ # ifdef uniosb # include # define NEEDVPRINTF 1 /* need a replacement for vprintf(3) */ # define LA_TYPE LA_INT # define TZ_TYPE TZ_TM_ZONE /* use tm->tm_zone */ # endif /* uniosb */ # ifdef luna2 # define LA_TYPE LA_SUBR # define TZ_TYPE TZ_TM_ZONE /* use tm->tm_zone */ # endif /* luna2 */ # ifdef luna88k # define LA_TYPE LA_INT # endif # define SFS_TYPE SFS_VFS /* use statfs() implementation */ # define setpgid setpgrp # undef WIFEXITED # undef WEXITSTATUS typedef int pid_t; typedef int (*sigfunc_t)(); # define SIGFUNC_DEFINED # define SIGFUNC_RETURN (0) # define SIGFUNC_DECL int extern char *getenv(); # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/lib/sendmail.cf" # endif /* ! _PATH_VENDOR_CF */ # endif /* luna */ /* ** NEC EWS-UX/V 4.2 (with /usr/ucb/cc) ** ** From Motonori NAKAMURA . */ # if defined(nec_ews_svr4) || defined(_nec_ews_svr4) # ifndef __svr4__ # define __svr4__ /* use all System V Release 4 defines below */ # endif # define SYS5SIGNALS 1 /* SysV signal semantics -- reset on each sig */ # define HASSETSID 1 /* has POSIX setsid(2) call */ # define LA_TYPE LA_READKSYM /* use MIOC_READSYM ioctl */ # define SFS_TYPE SFS_USTAT /* use System V ustat(2) syscall */ # define GIDSET_T gid_t # undef WIFEXITED # undef WEXITSTATUS # define NAMELISTMASK 0x7fffffff /* mask for nlist() values */ # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/ucblib/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/usr/ucblib/sendmail.pid" # endif # ifndef SYSLOG_BUFSIZE # define SYSLOG_BUFSIZE 1024 /* allow full size syslog buffer */ # endif # endif /* defined(nec_ews_svr4) || defined(_nec_ews_svr4) */ /* ** Fujitsu/ICL UXP/DS (For the DS/90 Series) ** ** From Diego R. Lopez . ** Additional changes from Fumio Moriya and Toshiaki Nomura of the ** Fujitsu Fresoftware group . */ # ifdef __uxp__ # include # include # include # define __svr4__ # define HASGETUSERSHELL 0 # define HASFLOCK 0 # define _PATH_UNIX "/stand/unix" # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/ucblib/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/usr/ucblib/sendmail.pid" # endif # endif /* __uxp__ */ /* ** Pyramid DC/OSx ** ** From Earle Ake . */ # ifdef DCOSx # define GIDSET_T gid_t # ifndef IDENTPROTO # define IDENTPROTO 0 /* TCP/IP implementation is broken */ # endif # endif /* DCOSx */ /* ** Concurrent Computer Corporation Maxion ** ** From Donald R. Laster Jr. . */ # ifdef __MAXION__ # include # define __svr4__ 1 /* SVR4.2MP */ # define HASSETREUID 1 /* have setreuid(2) */ # define HASLSTAT 1 /* have lstat(2) */ # define HASSETRLIMIT 1 /* have setrlimit(2) */ # define HASGETDTABLESIZE 1 /* have getdtablesize(2) */ # define HASGETUSERSHELL 1 /* have getusershell(3) */ # define NOFTRUNCATE 1 /* do not have ftruncate(2) */ # define SLEEP_T unsigned # define SFS_TYPE SFS_STATVFS # define SFS_BAVAIL f_bavail # ifndef SYSLOG_BUFSIZE # define SYSLOG_BUFSIZE 256 /* Use 256 bytes */ # endif # undef WUNTRACED # undef WIFEXITED # undef WIFSIGNALED # undef WIFSTOPPED # undef WEXITSTATUS # undef WTERMSIG # undef WSTOPSIG # endif /* __MAXION__ */ /* ** Harris Nighthawk PowerUX (nh6000 box) ** ** Contributed by Bob Miorelli, Pratt & Whitney */ # ifdef _PowerUX # ifndef __svr4__ # define __svr4__ # endif # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/etc/mail/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/etc/mail/sendmail.pid" # endif # define SYSLOG_BUFSIZE 1024 # define LA_TYPE LA_ZERO typedef struct msgb mblk_t; # undef offsetof /* avoid stddefs.h and sys/sysmacros.h conflict */ # endif /* _PowerUX */ /* ** Siemens Nixdorf Informationssysteme AG SINIX ** ** Contributed by Gerald Rinske of Siemens Business Services VAS. */ # ifdef sinix # define HASRANDOM 0 /* has random(3) */ # define SYSLOG_BUFSIZE 1024 # define SM_INT32 int /* 32bit integer */ # endif /* sinix */ /* ** Motorola 922, MC88110, UNIX SYSTEM V/88 Release 4.0 Version 4.3 ** ** Contributed by Sergey Rusanov */ # ifdef MOTO # define HASFCHMOD 1 # define HASSETRLIMIT 0 # define HASSETSID 1 /* has POSIX setsid(2) call */ # define HASSETREUID 1 # define HASULIMIT 1 # define HASWAITPID 1 # define HASGETDTABLESIZE 1 # define HASGETUSERSHELL 1 # define IP_SRCROUTE 0 # define IDENTPROTO 0 # define RES_DNSRCH_VARIABLE _res_dnsrch # define _PATH_UNIX "/unix" # define _PATH_VENDOR_CF "/etc/sendmail.cf" # define _PATH_SENDMAILPID "/var/run/sendmail.pid" # endif /* MOTO */ /* ** Interix ** Contributed by Nedelcho Stanev ** ** Used for Interix support. */ # if defined(__INTERIX) # define HASURANDOMDEV 1 # define HASGETUSERSHELL 0 # define HASSTRERROR 1 # define HASUNSETENV 1 # define HASFCHOWN 1 # undef HAVE_SYS_ERRLIST # define sys_errlist __sys_errlist # define sys_nerr __sys_nerr # include # ifndef major # define major(dev) ((int)(((dev) >> 8) & 0xff)) # endif # ifndef minor # define minor(dev) ((int)((dev) & 0xff)) # endif # endif /* defined(__INTERIX) */ /********************************************************************** ** End of Per-Operating System defines **********************************************************************/ /********************************************************************** ** More general defines **********************************************************************/ /* general BSD defines */ # ifdef BSD # define HASGETDTABLESIZE 1 /* has getdtablesize(2) call */ # ifndef HASSETREUID # define HASSETREUID 1 /* has setreuid(2) call */ # endif # define HASINITGROUPS 1 /* has initgroups(3) call */ # ifndef IP_SRCROUTE # define IP_SRCROUTE 1 /* can check IP source routing */ # endif # ifndef HASSETRLIMIT # define HASSETRLIMIT 1 /* has setrlimit(2) call */ # endif # ifndef HASFLOCK # define HASFLOCK 1 /* has flock(2) call */ # endif # ifndef TZ_TYPE # define TZ_TYPE TZ_TM_ZONE /* use tm->tm_zone variable */ # endif # endif /* BSD */ /* general System V Release 4 defines */ # ifdef __svr4__ # define SYSTEM5 1 # define USESETEUID 1 /* has usable seteuid(2) call */ # define HASINITGROUPS 1 /* has initgroups(3) call */ # define BSD_COMP 1 /* get BSD ioctl calls */ # ifndef HASSETRLIMIT # define HASSETRLIMIT 1 /* has setrlimit(2) call */ # endif # ifndef HASGETUSERSHELL # define HASGETUSERSHELL 0 /* does not have getusershell(3) call */ # endif # ifndef HASFCHMOD # define HASFCHMOD 1 /* most (all?) SVr4s seem to have fchmod(2) */ # endif # ifndef _PATH_UNIX # define _PATH_UNIX "/unix" # endif # ifndef _PATH_VENDOR_CF # define _PATH_VENDOR_CF "/usr/ucblib/sendmail.cf" # endif # ifndef _PATH_SENDMAILPID # define _PATH_SENDMAILPID "/usr/ucblib/sendmail.pid" # endif # ifndef SYSLOG_BUFSIZE # define SYSLOG_BUFSIZE 128 # endif # ifndef SFS_TYPE # define SFS_TYPE SFS_STATVFS # endif # ifndef USE_SIGLONGJMP # define USE_SIGLONGJMP 1 /* sigsetjmp needed for signal handling */ # endif # endif /* __svr4__ */ # ifdef __SVR4 # define LDA_USE_LOCKF 1 # define LDA_USE_SETEUID 1 # define _PATH_MAILDIR "/var/mail" # endif /* __SVR4 */ /* general System V defines */ # ifdef SYSTEM5 # include # define HASUNAME 1 /* use System V uname(2) system call */ # define SYS5SETPGRP 1 /* use System V setpgrp(2) syscall */ # define HASSETVBUF 1 /* we have setvbuf(3) in libc */ # ifndef HASULIMIT # define HASULIMIT 1 /* has the ulimit(2) syscall */ # endif # ifndef LA_TYPE # ifdef MIOC_READKSYM # define LA_TYPE LA_READKSYM /* use MIOC_READKSYM ioctl */ # else # define LA_TYPE LA_INT /* assume integer load average */ # endif # endif /* ! LA_TYPE */ # ifndef SFS_TYPE # define SFS_TYPE SFS_USTAT /* use System V ustat(2) syscall */ # endif # ifndef TZ_TYPE # define TZ_TYPE TZ_TZNAME /* use tzname[] vector */ # endif # endif /* SYSTEM5 */ /* general POSIX defines */ # ifdef _POSIX_VERSION # define HASSETSID 1 /* has POSIX setsid(2) call */ # define HASWAITPID 1 /* has POSIX waitpid(2) call */ # if _POSIX_VERSION >= 199500 && !defined(USESETEUID) # define USESETEUID 1 /* has usable seteuid(2) call */ # endif /* _POSIX_VERSION >= 199500 && !defined(USESETEUID) */ # endif /* _POSIX_VERSION */ /* ** Tweaking for systems that (for example) claim to be BSD or POSIX ** but don't have all the standard BSD or POSIX routines (boo hiss). */ # ifdef titan # undef HASINITGROUPS /* doesn't have initgroups(3) call */ # endif # ifdef _CRAYCOM # undef HASSETSID /* despite POSIX claim, doesn't have setsid */ # endif # ifdef MOTO # undef USESETEUID # endif /* ** Due to a "feature" in some operating systems such as Ultrix 4.3 and ** HPUX 8.0, if you receive a "No route to host" message (ICMP message ** ICMP_UNREACH_HOST) on _any_ connection, all connections to that host ** are closed. Some firewalls return this error if you try to connect ** to the IDENT port (113), so you can't receive email from these hosts ** on these systems. The firewall really should use a more specific ** message such as ICMP_UNREACH_PROTOCOL or _PORT or _FILTER_PROHIB. If ** not explicitly set to zero above, default it on. */ # ifndef IDENTPROTO # define IDENTPROTO 1 /* use IDENT proto (RFC 1413) */ # endif # ifndef IP_SRCROUTE # define IP_SRCROUTE 1 /* Detect IP source routing */ # endif # ifndef HASGETUSERSHELL # define HASGETUSERSHELL 1 /* libc has getusershell(3) call */ # endif # ifndef NETUNIX # define NETUNIX 1 /* include unix domain support */ # endif # ifndef HASRANDOM # define HASRANDOM 1 /* has random(3) support */ # endif # ifndef HASFLOCK # define HASFLOCK 0 /* assume no flock(2) support */ # endif # ifndef HASSETREUID # define HASSETREUID 0 /* assume no setreuid(2) call */ # endif # ifndef HASFCHMOD # define HASFCHMOD 0 /* assume no fchmod(2) syscall */ # endif # ifndef USESETEUID # define USESETEUID 0 /* assume no seteuid(2) call or no saved ids */ # endif # ifndef HASSETRLIMIT # define HASSETRLIMIT 0 /* assume no setrlimit(2) support */ # endif # ifndef HASULIMIT # define HASULIMIT 0 /* assume no ulimit(2) support */ # endif # ifndef SECUREWARE # define SECUREWARE 0 /* assume no SecureWare C2 auditing hooks */ # endif # ifndef USE_DOUBLE_FORK # define USE_DOUBLE_FORK 1 /* avoid intermediate zombies */ # endif # ifndef USE_ENVIRON # define USE_ENVIRON 0 /* use main() envp instead of extern environ */ # endif # ifndef USE_SIGLONGJMP # define USE_SIGLONGJMP 0 /* assume setjmp handles signals properly */ # endif # ifndef FDSET_CAST # define FDSET_CAST /* (empty) cast for fd_set arg to select */ # endif /* ** Pick a mailer setuid method for changing the current uid */ # define USE_SETEUID 0 # define USE_SETREUID 1 # define USE_SETUID 2 # if USESETEUID # define MAILER_SETUID_METHOD USE_SETEUID # else /* USESETEUID */ # if HASSETREUID # define MAILER_SETUID_METHOD USE_SETREUID # else # define MAILER_SETUID_METHOD USE_SETUID # endif # endif /* USESETEUID */ /* ** If no type for argument two of getgroups call is defined, assume ** it's an integer -- unfortunately, there seem to be several choices ** here. */ # ifndef GIDSET_T # define GIDSET_T int # endif # ifndef UID_T # define UID_T uid_t # endif # ifndef GID_T # define GID_T gid_t # endif # ifndef MODE_T # define MODE_T mode_t # endif # ifndef ARGV_T # define ARGV_T char ** # endif # ifndef SOCKADDR_LEN_T # define SOCKADDR_LEN_T int # endif # ifndef SOCKOPT_LEN_T # define SOCKOPT_LEN_T int # endif # ifndef QUAD_T # define QUAD_T unsigned long # endif /********************************************************************** ** Remaining definitions should never have to be changed. They are ** primarily to provide back compatibility for older systems -- for ** example, it includes some POSIX compatibility definitions **********************************************************************/ /* System 5 compatibility */ # ifndef S_ISREG # define S_ISREG(foo) ((foo & S_IFMT) == S_IFREG) # endif # ifndef S_ISDIR # define S_ISDIR(foo) ((foo & S_IFMT) == S_IFDIR) # endif # if !defined(S_ISLNK) && defined(S_IFLNK) # define S_ISLNK(foo) ((foo & S_IFMT) == S_IFLNK) # endif # if !defined(S_ISFIFO) # if defined(S_IFIFO) # define S_ISFIFO(foo) ((foo & S_IFMT) == S_IFIFO) # else # define S_ISFIFO(foo) false # endif # endif /* !defined(S_ISFIFO) */ # ifndef S_IRUSR # define S_IRUSR 0400 # endif # ifndef S_IWUSR # define S_IWUSR 0200 # endif # ifndef S_IRGRP # define S_IRGRP 0040 # endif # ifndef S_IWGRP # define S_IWGRP 0020 # endif # ifndef S_IROTH # define S_IROTH 0004 # endif # ifndef S_IWOTH # define S_IWOTH 0002 # endif /* close-on-exec flag */ # ifndef FD_CLOEXEC # define FD_CLOEXEC 1 # endif /* ** Older systems don't have this error code -- it should be in ** /usr/include/sysexits.h. */ # ifndef EX_CONFIG # define EX_CONFIG 78 /* configuration error */ # endif /* pseudo-codes */ # define EX_QUIT 22 /* drop out of server immediately */ # define EX_RESTART 23 /* restart sendmail daemon */ # define EX_SHUTDOWN 24 /* shutdown sendmail daemon */ #ifndef EX_NOTFOUND # define EX_NOTFOUND EX_NOHOST #endif /* pseudo-code used for mci_setstat */ # define EX_NOTSTICKY (-5) /* don't save persistent status */ /* ** An "impossible" file mode to indicate that the file does not exist. */ # define ST_MODE_NOFILE 0171147 /* unlikely to occur */ /* type of arbitrary pointer */ # ifndef ARBPTR_T # define ARBPTR_T void * # endif # ifndef __P # include "sm/cdefs.h" # endif # if HESIOD && !defined(NAMED_BIND) # define NAMED_BIND 1 /* not one without the other */ # endif # if NAMED_BIND && !defined( __ksr__ ) && !defined( h_errno ) extern int h_errno; # endif # if NEEDPUTENV extern int putenv __P((char *)); # endif #if !HASUNSETENV extern void unsetenv __P((char *)); #endif # ifdef LDAPMAP # include # include # include /* Some LDAP constants */ # define LDAPMAP_FALSE 0 # define LDAPMAP_TRUE 1 /* ** ldap_init(3) is broken in Umich 3.x and OpenLDAP 1.0/1.1. ** Use the lack of LDAP_OPT_SIZELIMIT to detect old API implementations ** and assume (falsely) that all old API implementations are broken. ** (OpenLDAP 1.2 and later have a working ldap_init(), add -DUSE_LDAP_INIT) */ # if defined(LDAP_OPT_SIZELIMIT) && !defined(USE_LDAP_INIT) # define USE_LDAP_INIT 1 # endif # if !defined(LDAP_NETWORK_TIMEOUT) && defined(_FFR_LDAP_NETWORK_TIMEOUT) # define LDAP_NETWORK_TIMEOUT _FFR_LDAP_NETWORK_TIMEOUT # endif # if !defined(LDAP_NETWORK_TIMEOUT) && defined(LDAP_OPT_NETWORK_TIMEOUT) # define LDAP_NETWORK_TIMEOUT 1 # endif /* ** LDAP_OPT_SIZELIMIT is not defined under Umich 3.x nor OpenLDAP 1.x, ** hence ldap_set_option() must not exist. */ # if defined(LDAP_OPT_SIZELIMIT) && !defined(USE_LDAP_SET_OPTION) # define USE_LDAP_SET_OPTION 1 # endif # endif /* LDAPMAP */ # if HASUNAME # include # ifdef newstr # undef newstr # endif # else /* HASUNAME */ # define NODE_LENGTH 32 struct utsname { char nodename[NODE_LENGTH + 1]; }; # endif /* HASUNAME */ # if !defined(MAXHOSTNAMELEN) && !defined(_SCO_unix_) && !defined(NonStop_UX_BXX) && !defined(ALTOS_SYSTEM_V) # define MAXHOSTNAMELEN 256 # endif # if defined(__linux__) && MAXHOSTNAMELEN < 255 /* ** override Linux weirdness: a FQHN can be 255 chars long ** SUSv3 requires HOST_NAME_MAX ("Maximum length of a host ** name (not including the terminating null) as returned from the ** gethostname() function.") to be at least 255. c.f.: ** http://www.opengroup.org/onlinepubs/009695399 ** but Linux defines that to 64 too. */ # undef MAXHOSTNAMELEN # define MAXHOSTNAMELEN 256 # endif /* defined(__linux__) && MAXHOSTNAMELEN < 255 */ # if !defined(SIGCHLD) && defined(SIGCLD) # define SIGCHLD SIGCLD # endif # ifndef STDIN_FILENO # define STDIN_FILENO 0 # endif # ifndef STDOUT_FILENO # define STDOUT_FILENO 1 # endif # ifndef STDERR_FILENO # define STDERR_FILENO 2 # endif # ifndef LOCK_SH # define LOCK_SH 0x01 /* shared lock */ # define LOCK_EX 0x02 /* exclusive lock */ # define LOCK_NB 0x04 /* non-blocking lock */ # define LOCK_UN 0x08 /* unlock */ # endif /* ! LOCK_SH */ # ifndef S_IXOTH # define S_IXOTH (S_IEXEC >> 6) # endif # ifndef S_IXGRP # define S_IXGRP (S_IEXEC >> 3) # endif # ifndef S_IXUSR # define S_IXUSR (S_IEXEC) # endif #ifndef O_ACCMODE # define O_ACCMODE (O_RDONLY|O_WRONLY|O_RDWR) #endif # ifndef SEEK_SET # define SEEK_SET 0 # define SEEK_CUR 1 # define SEEK_END 2 # endif /* ! SEEK_SET */ # ifndef SIG_ERR # define SIG_ERR ((void (*)()) -1) # endif # ifndef WEXITSTATUS # define WEXITSTATUS(st) (((st) >> 8) & 0377) # endif # ifndef WIFEXITED # define WIFEXITED(st) (((st) & 0377) == 0) # endif # ifndef WIFSTOPPED # define WIFSTOPPED(st) (((st) & 0100) == 0) # endif # ifndef WCOREDUMP # define WCOREDUMP(st) (((st) & 0200) != 0) # endif # ifndef WTERMSIG # define WTERMSIG(st) (((st) & 0177)) # endif # ifndef SIGFUNC_DEFINED typedef void (*sigfunc_t) __P((int)); # endif # ifndef SIGFUNC_RETURN # define SIGFUNC_RETURN # endif # ifndef SIGFUNC_DECL # define SIGFUNC_DECL void # endif /* size of syslog buffer */ # ifndef SYSLOG_BUFSIZE # define SYSLOG_BUFSIZE 1024 # endif /* for FD_SET() */ #ifndef FD_SETSIZE # define FD_SETSIZE 256 #endif #ifndef SIGWAIT_TAKES_1_ARG # define SIGWAIT_TAKES_1_ARG 0 #endif /* ** Size of prescan buffer. ** Despite comments in the _sendmail_ book, this probably should ** not be changed; there are some hard-to-define dependencies. */ # define PSBUFSIZE (MAXNAME + MAXATOM) /* size of prescan buffer */ /* fork routine -- set above using #ifdef _osname_ or in Makefile */ # ifndef FORK # define FORK fork /* function to call to fork mailer */ # endif /* setting h_errno */ # ifndef SM_SET_H_ERRNO # define SM_SET_H_ERRNO(err) h_errno = (err) # endif # ifndef SM_CONF_GETOPT # define SM_CONF_GETOPT 1 # endif /* random routine -- set above using #ifdef _osname_ or in Makefile */ # if HASRANDOM # define get_random() random() # else /* HASRANDOM */ # define get_random() ((long) rand()) # ifndef RANDOMSHIFT # define RANDOMSHIFT 8 # endif # endif /* HASRANDOM */ /* ** Default to using scanf in readcf. */ # ifndef SCANF # define SCANF 1 # endif /* XXX 32 bit type */ # ifndef SM_INT32 # define SM_INT32 int32_t # endif /* XXX 16 bit type */ # ifndef SM_UINT16 # define SM_UINT16 uint16_t # endif /* additional valid chars in user/group names in passwd */ # ifndef SM_PWN_CHARS # define SM_PWN_CHARS "-_." # endif /* ** SVr4 and similar systems use different routines for setjmp/longjmp ** with signal support */ # if USE_SIGLONGJMP # ifdef jmp_buf # undef jmp_buf # endif # define jmp_buf sigjmp_buf # ifdef setjmp # undef setjmp # endif # define setjmp(env) sigsetjmp(env, 1) # ifdef longjmp # undef longjmp # endif # define longjmp(env, val) siglongjmp(env, val) # endif /* USE_SIGLONGJMP */ # if !defined(NGROUPS_MAX) && defined(NGROUPS) # define NGROUPS_MAX NGROUPS /* POSIX naming convention */ # endif /* ** Some snprintf() implementations are rumored not to NUL terminate. */ # if SNPRINTF_IS_BROKEN # ifdef snprintf # undef snprintf # endif # define snprintf sm_snprintf # ifdef vsnprintf # undef vsnprintf # endif # define vsnprintf sm_vsnprintf # endif /* SNPRINTF_IS_BROKEN */ /* ** If we don't have a system syslog, simulate it. */ # if !LOG # define LOG_EMERG 0 /* system is unusable */ # define LOG_ALERT 1 /* action must be taken immediately */ # define LOG_CRIT 2 /* critical conditions */ # define LOG_ERR 3 /* error conditions */ # define LOG_WARNING 4 /* warning conditions */ # define LOG_NOTICE 5 /* normal but significant condition */ # define LOG_INFO 6 /* informational */ # define LOG_DEBUG 7 /* debug-level messages */ # endif /* !LOG */ # ifndef SM_CONF_SYSLOG # define SM_CONF_SYSLOG 1 /* syslog.h has prototype for syslog() */ # endif # if !SM_CONF_SYSLOG # ifdef __STDC__ extern void syslog(int, const char *, ...); # else extern void syslog(); # endif # endif /* !SM_CONF_SYSLOG */ /* portable(?) definition for alignment */ # ifndef SM_ALIGN_SIZE struct sm_align { char al_c; union { long al_l; void *al_p; double al_d; void (*al_f) __P((void)); } al_u; }; # define SM_ALIGN_SIZE offsetof(struct sm_align, al_u) # endif /* ! SM_ALIGN_SIZE */ # define SM_ALIGN_BITS (SM_ALIGN_SIZE - 1) char *sm_inet6_ntop __P((const void *, char *, size_t)); #endif /* ! SM_CONF_H */ sendmail-8.18.1/include/sm/debug.h0000644000372400037240000000607614556365350016301 0ustar xbuildxbuild/* * Copyright (c) 2000, 2001, 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: debug.h,v 1.17 2013-11-22 20:51:31 ca Exp $ */ /* ** libsm debugging and tracing ** See libsm/debug.html for documentation. */ #ifndef SM_DEBUG_H # define SM_DEBUG_H # include # include /* ** abstractions for printing trace messages */ extern SM_FILE_T * sm_debug_file __P((void)); extern void sm_debug_setfile __P(( SM_FILE_T *)); extern void PRINTFLIKE(1, 2) sm_dprintf __P((char *_fmt, ...)); extern void sm_dflush __P((void)); extern void sm_debug_close __P((void)); /* ** abstractions for setting and testing debug activation levels */ extern void sm_debug_addsettings_x __P((const char *)); extern void sm_debug_addsetting_x __P((const char *, int)); # define SM_DEBUG_UNKNOWN ((SM_ATOMIC_UINT_T)(-1)) extern const char SmDebugMagic[]; typedef struct sm_debug SM_DEBUG_T; struct sm_debug { const char *sm_magic; /* points to SmDebugMagic */ /* ** debug_level is the activation level of this debug ** object. Level 0 means no debug activity. ** It is initialized to SM_DEBUG_UNKNOWN, which indicates ** that the true value is unknown. If debug_level == ** SM_DEBUG_UNKNOWN, then the access functions will look up ** its true value in the internal table of debug settings. */ SM_ATOMIC_UINT_T debug_level; /* ** debug_name is the name used to reference this SM_DEBUG ** structure via the sendmail -d option. */ char *debug_name; /* ** debug_desc is a literal character string of the form ** "@(#)$Debug: - $" */ char *debug_desc; /* ** We keep a linked list of initialized SM_DEBUG structures ** so that when sm_debug_addsetting is called, we can reset ** them all back to the uninitialized state. */ SM_DEBUG_T *debug_next; }; # ifndef SM_DEBUG_CHECK # define SM_DEBUG_CHECK 1 # endif # if SM_DEBUG_CHECK /* ** This macro is cleverly designed so that if the debug object is below ** the specified level, then the only overhead is a single comparison ** (except for the first time this macro is invoked). */ # define sm_debug_active(debug, level) \ ((debug)->debug_level >= (level) && \ ((debug)->debug_level != SM_DEBUG_UNKNOWN || \ sm_debug_loadactive(debug, level))) # define sm_debug_level(debug) \ ((debug)->debug_level == SM_DEBUG_UNKNOWN \ ? sm_debug_loadlevel(debug) : (debug)->debug_level) # define sm_debug_unknown(debug) ((debug)->debug_level == SM_DEBUG_UNKNOWN) # else /* SM_DEBUG_CHECK */ # define sm_debug_active(debug, level) 0 # define sm_debug_level(debug) 0 # define sm_debug_unknown(debug) 0 # endif /* SM_DEBUG_CHECK */ extern bool sm_debug_loadactive __P((SM_DEBUG_T *, int)); extern int sm_debug_loadlevel __P((SM_DEBUG_T *)); # define SM_DEBUG_INITIALIZER(name, desc) { \ SmDebugMagic, \ SM_DEBUG_UNKNOWN, \ name, \ desc, \ NULL} #endif /* ! SM_DEBUG_H */ sendmail-8.18.1/include/sm/signal.h0000644000372400037240000000401314556365350016455 0ustar xbuildxbuild/* * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: signal.h,v 1.17 2013-11-22 20:51:31 ca Exp $ */ /* ** SIGNAL.H -- libsm (and sendmail) signal facilities ** Extracted from sendmail/conf.h and focusing ** on signal configuration. */ #ifndef SM_SIGNAL_H #define SM_SIGNAL_H 1 #include #include #include #include #include /* ** Critical signal sections */ #define PEND_SIGHUP 0x0001 #define PEND_SIGINT 0x0002 #define PEND_SIGTERM 0x0004 #define PEND_SIGUSR1 0x0008 #define ENTER_CRITICAL() InCriticalSection++ #define LEAVE_CRITICAL() \ do \ { \ if (InCriticalSection > 0) \ InCriticalSection--; \ } while (0) #define CHECK_CRITICAL(sig) \ do \ { \ if (InCriticalSection > 0 && (sig) != 0) \ { \ pend_signal((sig)); \ return SIGFUNC_RETURN; \ } \ } while (0) /* variables */ extern unsigned int volatile InCriticalSection; /* >0 if in critical section */ extern int volatile PendingSignal; /* pending signal to resend */ /* functions */ extern void pend_signal __P((int)); /* reset signal in case System V semantics */ #ifdef SYS5SIGNALS # define FIX_SYSV_SIGNAL(sig, handler) \ { \ if ((sig) != 0) \ (void) sm_signal((sig), (handler)); \ } #else /* SYS5SIGNALS */ # define FIX_SYSV_SIGNAL(sig, handler) { /* EMPTY */ } #endif /* SYS5SIGNALS */ extern void sm_allsignals __P((bool)); extern int sm_blocksignal __P((int)); extern int sm_releasesignal __P((int)); extern sigfunc_t sm_signal __P((int, sigfunc_t)); extern SIGFUNC_DECL sm_signal_noop __P((int)); #endif /* SM_SIGNAL_H */ sendmail-8.18.1/include/sm/sendmail.h0000644000372400037240000000314414556365350017000 0ustar xbuildxbuild/* * Copyright (c) 2006, 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ /* ** SENDMAIL.H -- MTA-specific definitions for sendmail. */ #ifndef _SM_SENDMAIL_H # define _SM_SENDMAIL_H 1 #include /* "out of band" indicator */ #define METAQUOTE ((unsigned char)0377) /* quotes the next octet */ #define SM_MM_QUOTE(ch) (((ch) & 0377) == METAQUOTE || (((ch) & 0340) == 0200)) extern int dequote_internal_chars __P((char *, char *, int)); #if SM_HEAP_CHECK > 2 extern char *quote_internal_chars_tagged __P((char *, char *, int *, SM_RPOOL_T *, char *, int, int)); # define quote_internal_chars(ibp, obp, bsp, rpool) quote_internal_chars_tagged(ibp, obp, bsp, rpool, "quote_internal_chars:" __FILE__, __LINE__, SmHeapGroup) #else extern char *quote_internal_chars __P((char *, char *, int *, SM_RPOOL_T *)); # define quote_internal_chars_tagged(ibp, obp, bsp, rpool, file, line, group) quote_internal_chars(ibp, obp, bsp, rpool) #endif extern char *str2prt __P((char *)); extern char *makelower __P((char *)); #if USE_EAI extern bool sm_strcaseeq __P((const char *, const char *)); extern bool sm_strncaseeq __P((const char *, const char *, size_t)); # define SM_STRCASEEQ(a, b) sm_strcaseeq((a), (b)) # define SM_STRNCASEEQ(a, b, n) sm_strncaseeq((a), (b), (n)) #else # define SM_STRCASEEQ(a, b) (sm_strcasecmp((a), (b)) == 0) # define SM_STRNCASEEQ(a, b, n) (sm_strncasecmp((a), (b), (n)) == 0) #endif #endif /* ! _SM_SENDMAIL_H */ sendmail-8.18.1/include/sm/limits.h0000644000372400037240000000241414556365350016504 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: limits.h,v 1.7 2013-11-22 20:51:31 ca Exp $ */ /* ** ** This header file is a portability wrapper for . ** It includes , then it ensures that the following macros ** from the C 1999 standard for are defined: ** LLONG_MIN, LLONG_MAX ** ULLONG_MAX */ #ifndef SM_LIMITS_H # define SM_LIMITS_H # include # include # include /* ** The following assumes two's complement binary arithmetic. */ # ifndef LLONG_MIN # define LLONG_MIN ((LONGLONG_T)(~(ULLONG_MAX >> 1))) # endif # ifndef LLONG_MAX # define LLONG_MAX ((LONGLONG_T)(ULLONG_MAX >> 1)) # endif # ifndef ULLONG_MAX # define ULLONG_MAX ((ULONGLONG_T)(-1)) # endif /* ** PATH_MAX is defined by the POSIX standard. All modern systems ** provide it. Older systems define MAXPATHLEN in instead. */ # ifndef PATH_MAX # ifdef MAXPATHLEN # define PATH_MAX MAXPATHLEN # else # define PATH_MAX 2048 # endif # endif /* ! PATH_MAX */ #endif /* ! SM_LIMITS_H */ sendmail-8.18.1/include/sm/bitops.h0000644000372400037240000000343614556365350016510 0ustar xbuildxbuild/* * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * * $Id: bitops.h,v 1.3 2013-11-22 20:51:31 ca Exp $ */ #ifndef SM_BITOPS_H # define SM_BITOPS_H /* ** Data structure for bit maps. ** ** Each bit in this map can be referenced by an ascii character. ** This is 256 possible bits, or 32 8-bit bytes. */ # define BITMAPBITS 256 /* number of bits in a bit map */ # define BYTEBITS 8 /* number of bits in a byte */ # define BITMAPBYTES (BITMAPBITS / BYTEBITS) /* number of bytes in bit map */ # define BITMAPMAX ((BITMAPBYTES / sizeof (int)) - 1) /* internal macros */ /* make sure this index never leaves the allowed range: 0 to BITMAPMAX */ # define _BITWORD(bit) (((unsigned char)(bit) / (BYTEBITS * sizeof (int))) & BITMAPMAX) # define _BITBIT(bit) ((unsigned int)1 << ((unsigned char)(bit) % (BYTEBITS * sizeof (int)))) typedef unsigned int BITMAP256[BITMAPBYTES / sizeof (int)]; /* properly case and truncate bit */ # define bitidx(bit) ((unsigned int) (bit) & 0xff) /* test bit number N */ # define bitnset(bit, map) ((map)[_BITWORD(bit)] & _BITBIT(bit)) /* set bit number N */ # define setbitn(bit, map) (map)[_BITWORD(bit)] |= _BITBIT(bit) /* clear bit number N */ # define clrbitn(bit, map) (map)[_BITWORD(bit)] &= ~_BITBIT(bit) /* clear an entire bit map */ # define clrbitmap(map) memset((char *) map, '\0', BITMAPBYTES) /* bit hacking */ # define bitset(bit, word) (((word) & (bit)) != 0) #endif /* ! SM_BITOPS_H */ sendmail-8.18.1/include/sm/path.h0000644000372400037240000000147014556365350016140 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: path.h,v 1.7 2013-11-22 20:51:31 ca Exp $ */ /* ** Portable names for standard filesystem paths ** and macros for directories. */ #ifndef SM_PATH_H # define SM_PATH_H # include # define SM_PATH_DEVNULL "/dev/null" # define SM_IS_DIR_DELIM(c) ((c) == '/') # define SM_FIRST_DIR_DELIM(s) strchr(s, '/') # define SM_LAST_DIR_DELIM(s) strrchr(s, '/') /* Warning: this must be accessible as array */ # define SM_IS_DIR_START(s) ((s)[0] == '/') # define sm_path_isdevnull(path) (strcmp(path, "/dev/null") == 0) #endif /* ! SM_PATH_H */ sendmail-8.18.1/include/sm/time.h0000644000372400037240000000251114556365350016137 0ustar xbuildxbuild/* * Copyright (c) 2005 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: time.h,v 1.2 2013-11-22 20:51:32 ca Exp $ */ #ifndef SM_TIME_H # define SM_TIME_H 1 # include # include /* should be defined in sys/time.h */ #ifndef timersub # define timersub(tvp, uvp, vvp) \ do \ { \ (vvp)->tv_sec = (tvp)->tv_sec - (uvp)->tv_sec; \ (vvp)->tv_usec = (tvp)->tv_usec - (uvp)->tv_usec; \ if ((vvp)->tv_usec < 0) \ { \ (vvp)->tv_sec--; \ (vvp)->tv_usec += 1000000; \ } \ } while (0) #endif /* !timersub */ #ifndef timeradd # define timeradd(tvp, uvp, vvp) \ do \ { \ (vvp)->tv_sec = (tvp)->tv_sec + (uvp)->tv_sec; \ (vvp)->tv_usec = (tvp)->tv_usec + (uvp)->tv_usec; \ if ((vvp)->tv_usec >= 1000000) \ { \ (vvp)->tv_sec++; \ (vvp)->tv_usec -= 1000000; \ } \ } while (0) #endif /* !timeradd */ #ifndef timercmp # define timercmp(tvp, uvp, cmp) \ (((tvp)->tv_sec == (uvp)->tv_sec) ? \ ((tvp)->tv_usec cmp (uvp)->tv_usec) : \ ((tvp)->tv_sec cmp (uvp)->tv_sec)) #endif /* !timercmp */ #endif /* ! SM_TIME_H */ sendmail-8.18.1/include/sm/setjmp.h0000644000372400037240000000252214556365350016505 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: setjmp.h,v 1.4 2013-11-22 20:51:31 ca Exp $ */ #ifndef SM_SETJMP_H # define SM_SETJMP_H # include # include /* ** sm_setjmp_sig is a setjmp that saves the signal mask. ** sm_setjmp_nosig is a setjmp that does *not* save the signal mask. ** SM_JMPBUF_T is used with both of the above macros. ** ** On most systems, these can be implemented using sigsetjmp. ** Some old BSD systems do not have sigsetjmp, but they do have ** setjmp and _setjmp, which are just as good. */ # if SM_CONF_SIGSETJMP typedef sigjmp_buf SM_JMPBUF_T; # define sm_setjmp_sig(buf) sigsetjmp(buf, 1) # define sm_setjmp_nosig(buf) sigsetjmp(buf, 0) # define sm_longjmp_sig(buf, val) siglongjmp(buf, val) # define sm_longjmp_nosig(buf, val) siglongjmp(buf, val) # else /* SM_CONF_SIGSETJMP */ typedef jmp_buf SM_JMPBUF_T; # define sm_setjmp_sig(buf) setjmp(buf) # define sm_longjmp_sig(buf, val) longjmp(buf, val) # define sm_setjmp_nosig(buf) _setjmp(buf) # define sm_longjmp_nosig(buf, val) _longjmp(buf, val) # endif /* SM_CONF_SIGSETJMP */ #endif /* ! SM_SETJMP_H */ sendmail-8.18.1/include/sm/assert.h0000644000372400037240000000561014556365350016505 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: assert.h,v 1.11 2013-11-22 20:51:31 ca Exp $ */ /* ** libsm abnormal program termination and assertion checking ** See libsm/assert.html for documentation. */ #ifndef SM_ASSERT_H # define SM_ASSERT_H # include # include /* ** abnormal program termination */ typedef void (*SM_ABORT_HANDLER_T) __P((const char *, int, const char *)); extern SM_DEAD(void sm_abort_at __P(( const char *, int, const char *))); extern void sm_abort_sethandler __P(( SM_ABORT_HANDLER_T)); extern SM_DEAD(void PRINTFLIKE(1, 2) sm_abort __P(( char *, ...))); /* ** assertion checking */ # ifndef SM_CHECK_ALL # define SM_CHECK_ALL 1 # endif # ifndef SM_CHECK_REQUIRE # define SM_CHECK_REQUIRE SM_CHECK_ALL # endif # ifndef SM_CHECK_ENSURE # define SM_CHECK_ENSURE SM_CHECK_ALL # endif # ifndef SM_CHECK_ASSERT # define SM_CHECK_ASSERT SM_CHECK_ALL # endif # if SM_CHECK_REQUIRE # if defined(__STDC__) || defined(__cplusplus) # define SM_REQUIRE(cond) \ ((void) ((cond) || (sm_abort_at(__FILE__, __LINE__, \ "SM_REQUIRE(" #cond ") failed"), 0))) # else /* defined(__STDC__) || defined(__cplusplus) */ # define SM_REQUIRE(cond) \ ((void) ((cond) || (sm_abort_at(__FILE__, __LINE__, \ "SM_REQUIRE(cond) failed"), 0))) # endif /* defined(__STDC__) || defined(__cplusplus) */ # else /* SM_CHECK_REQUIRE */ # define SM_REQUIRE(cond) ((void) 0) # endif /* SM_CHECK_REQUIRE */ # define SM_REQUIRE_ISA(obj, magic) \ SM_REQUIRE((obj) != NULL && (obj)->sm_magic == (magic)) # if SM_CHECK_ENSURE # if defined(__STDC__) || defined(__cplusplus) # define SM_ENSURE(cond) \ ((void) ((cond) || (sm_abort_at(__FILE__, __LINE__, \ "SM_ENSURE(" #cond ") failed"), 0))) # else /* defined(__STDC__) || defined(__cplusplus) */ # define SM_ENSURE(cond) \ ((void) ((cond) || (sm_abort_at(__FILE__, __LINE__, \ "SM_ENSURE(cond) failed"), 0))) # endif /* defined(__STDC__) || defined(__cplusplus) */ # else /* SM_CHECK_ENSURE */ # define SM_ENSURE(cond) ((void) 0) # endif /* SM_CHECK_ENSURE */ # if SM_CHECK_ASSERT # if defined(__STDC__) || defined(__cplusplus) # define SM_ASSERT(cond) \ ((void) ((cond) || (sm_abort_at(__FILE__, __LINE__, \ "SM_ASSERT(" #cond ") failed"), 0))) # else /* defined(__STDC__) || defined(__cplusplus) */ # define SM_ASSERT(cond) \ ((void) ((cond) || (sm_abort_at(__FILE__, __LINE__, \ "SM_ASSERT(cond) failed"), 0))) # endif /* defined(__STDC__) || defined(__cplusplus) */ # else /* SM_CHECK_ASSERT */ # define SM_ASSERT(cond) ((void) 0) # endif /* SM_CHECK_ASSERT */ extern SM_DEBUG_T SmExpensiveRequire; extern SM_DEBUG_T SmExpensiveEnsure; extern SM_DEBUG_T SmExpensiveAssert; #endif /* ! SM_ASSERT_H */ sendmail-8.18.1/include/sm/os/0000755000372400037240000000000014556365433015454 5ustar xbuildxbuildsendmail-8.18.1/include/sm/os/sm_os_qnx.h0000644000372400037240000000074614556365350017640 0ustar xbuildxbuild/* * Copyright (c) 2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_qnx.h,v 1.2 2013-11-22 20:51:34 ca Exp $ */ /* ** sm_os_qnx.h -- platform definitions for QNX */ #define SM_CONF_SYS_CDEFS_H 1 #ifndef SM_CONF_SETITIMER # define SM_CONF_SETITIMER 0 #endif /* SM_CONF_SETITIMER */ sendmail-8.18.1/include/sm/os/sm_os_freebsd.h0000644000372400037240000000212714556365350020437 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2018 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ /* ** Platform definitions for FreeBSD */ #define SM_OS_NAME "freebsd" #define SM_CONF_SYS_CDEFS_H 1 #if __FreeBSD__ >= 2 # include /* defines __FreeBSD_version */ # if __FreeBSD_version >= 199512 /* 2.2-current when it appeared */ # define MI_SOMAXCONN -1 /* listen() max backlog for milter */ # endif /* __FreeBSD_version >= 199512 */ # if __FreeBSD_version >= 330000 /* 3.3.0-release and later have strlcpy()/strlcat() */ # ifndef SM_CONF_STRL # define SM_CONF_STRL 1 # endif # endif # if __FreeBSD_version >= 1200059 # ifndef SM_CONF_SEM # define SM_CONF_SEM 2 /* union semun is no longer declared by default */ # endif # endif #endif #ifndef SM_CONF_SHM # define SM_CONF_SHM 1 #endif #ifndef SM_CONF_SEM # define SM_CONF_SEM 1 #endif #ifndef SM_CONF_MSG # define SM_CONF_MSG 1 #endif sendmail-8.18.1/include/sm/os/sm_os_next.h0000644000372400037240000000130014556365350017773 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_next.h,v 1.8 2013-11-22 20:51:34 ca Exp $ */ /* ** Platform definitions for NeXT */ #define SM_OS_NAME "next" #define SM_CONF_SIGSETJMP 0 #define SM_CONF_SSIZE_T 0 #define SM_CONF_FORMAT_TEST 0 /* doesn't seem to work on NeXT 3.x */ #define SM_DEAD(proto) proto #define SM_UNUSED(decl) decl /* try LLONG tests in libsm/t-types.c? */ #ifndef SM_CONF_TEST_LLONG # define SM_CONF_TEST_LLONG 0 #endif /* !SM_CONF_TEST_LLONG */ sendmail-8.18.1/include/sm/os/sm_os_openunix.h0000644000372400037240000000115414556365350020671 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_openunix.h,v 1.6 2013-11-22 20:51:34 ca Exp $ */ #define SM_OS_NAME "openunix" /* needs alarm(), our sleep() otherwise hangs. */ #define SM_CONF_SETITIMER 0 /* long long seems to work */ #define SM_CONF_LONGLONG 1 /* don't use flock() in mail.local.c */ #define LDA_USE_LOCKF 1 #ifndef SM_CONF_SHM # define SM_CONF_SHM 1 #endif /* SM_CONF_SHM */ sendmail-8.18.1/include/sm/os/sm_os_osf1.h0000644000372400037240000000064314556365350017676 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_osf1.h,v 1.4 2013-11-22 20:51:34 ca Exp $ */ /* ** platform definitions for Digital UNIX */ #define SM_OS_NAME "osf1" #define SM_CONF_SETITIMER 0 sendmail-8.18.1/include/sm/os/sm_os_dragonfly.h0000644000372400037240000000141614556365350021012 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_dragonfly.h,v 1.2 2013-11-22 20:51:34 ca Exp $ */ /* ** Platform definitions for DragonFly BSD */ #define SM_OS_NAME "dragonfly" #define SM_CONF_SYS_CDEFS_H 1 #define MI_SOMAXCONN -1 /* listen() max backlog for milter */ #ifndef SM_CONF_STRL # define SM_CONF_STRL 1 #endif /* SM_CONF_STRL */ #ifndef SM_CONF_SHM # define SM_CONF_SHM 1 #endif /* SM_CONF_SHM */ #ifndef SM_CONF_SEM # define SM_CONF_SEM 1 #endif /* SM_CONF_SEM */ #ifndef SM_CONF_MSG # define SM_CONF_MSG 1 #endif /* SM_CONF_MSG */ sendmail-8.18.1/include/sm/os/sm_os_linux.h0000644000372400037240000000204414556365350020162 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_linux.h,v 1.13 2013-11-22 20:51:34 ca Exp $ */ /* ** Platform definitions for Linux */ #define SM_OS_NAME "linux" /* to get version number */ #include # if !defined(KERNEL_VERSION) /* not defined in 2.0.x kernel series */ # define KERNEL_VERSION(a,b,c) (((a) << 16) + ((b) << 8) + (c)) # endif /* ! KERNEL_VERSION */ /* doesn't seem to work on Linux */ #ifndef SM_CONF_SETITIMER # define SM_CONF_SETITIMER 0 #endif /* SM_CONF_SETITIMER */ #ifndef SM_CONF_SHM # if (LINUX_VERSION_CODE >= KERNEL_VERSION(2,2,19)) # define SM_CONF_SHM 1 # endif /* LINUX_VERSION_CODE */ #endif /* SM_CONF_SHM */ #define SM_CONF_SYS_CDEFS_H 1 #ifndef SM_CONF_SEM # define SM_CONF_SEM 2 #endif /* SM_CONF_SEM */ #ifndef SM_CONF_MSG # define SM_CONF_MSG 1 #endif /* SM_CONF_MSG */ sendmail-8.18.1/include/sm/os/sm_os_sunos.h0000644000372400037240000000276714556365350020206 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_sunos.h,v 1.15 2013-11-22 20:51:34 ca Exp $ */ /* ** platform definitions for SunOS 4.0.3, SunOS 4.1.x and Solaris 2.x */ #define SM_OS_NAME "sunos" #ifdef SOLARIS /* ** Solaris 2.x (aka SunOS 5.x) ** M4 config file is devtools/OS/SunOS.5.x, which defines the SOLARIS macro. */ # define SM_CONF_LONGLONG 1 # ifndef SM_CONF_SHM # define SM_CONF_SHM 1 # endif /* SM_CONF_SHM */ # ifndef SM_CONF_SEM # define SM_CONF_SEM 2 # endif /* SM_CONF_SEM */ # ifndef SM_CONF_MSG # define SM_CONF_MSG 1 # endif /* SM_CONF_MSG */ #else /* SOLARIS */ /* ** SunOS 4.0.3 or 4.1.x */ # define SM_CONF_SSIZE_T 0 # ifndef SM_CONF_BROKEN_SIZE_T # define SM_CONF_BROKEN_SIZE_T 1 /* size_t is signed? */ # endif /* SM_CONF_BROKEN_SIZE_T */ # ifndef SM_CONF_BROKEN_STRTOD # define SM_CONF_BROKEN_STRTOD 1 # endif /* ! SM_CONF_BROKEN_STRTOD */ /* has memchr() prototype? (if not: needs memory.h) */ # ifndef SM_CONF_MEMCHR # define SM_CONF_MEMCHR 0 # endif /* ! SM_CONF_MEMCHR */ # ifdef SUNOS403 /* ** SunOS 4.0.3 ** M4 config file is devtools/OS/SunOS4.0, which defines the SUNOS403 macro. */ # else /* SUNOS403 */ /* ** SunOS 4.1.x ** M4 config file is devtools/OS/SunOS, which defines no macros. */ # endif /* SUNOS403 */ #endif /* SOLARIS */ sendmail-8.18.1/include/sm/os/sm_os_hp.h0000644000372400037240000000145114556365350017433 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_hp.h,v 1.9 2013-11-22 20:51:34 ca Exp $ */ /* ** sm_os_hp.h -- platform definitions for HP */ #define SM_OS_NAME "hp" #ifndef SM_CONF_SHM # define SM_CONF_SHM 1 #endif /* SM_CONF_SHM */ #ifndef SM_CONF_SEM # define SM_CONF_SEM 2 #endif /* SM_CONF_SEM */ #ifndef SM_CONF_MSG # define SM_CONF_MSG 1 #endif /* SM_CONF_MSG */ /* max/min buffer size of other than regular files */ #ifndef SM_IO_MAX_BUF # define SM_IO_MAX_BUF 8192 #endif /* SM_IO_MAX_BUF */ #ifndef SM_IO_MIN_BUF # define SM_IO_MIN_BUF 4096 #endif /* SM_IO_MIN_BUF */ sendmail-8.18.1/include/sm/os/sm_os_unicos.h0000644000372400037240000000065014556365350020324 0ustar xbuildxbuild/* * Copyright (c) 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_unicos.h,v 1.2 2013-11-22 20:51:34 ca Exp $ */ /* ** Cray UNICOS */ #define SM_OS_NAME "unicos" #define SM_CONF_LONGLONG 1 #define SM_CONF_SETITIMER 0 sendmail-8.18.1/include/sm/os/sm_os_mpeix.h0000644000372400037240000000134214556365350020145 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_mpeix.h,v 1.3 2013-11-22 20:51:34 ca Exp $ */ /* ** sm_os_mpeix.h -- platform definitions for HP MPE/iX */ #define SM_OS_NAME "mpeix" #ifndef SM_CONF_SHM # define SM_CONF_SHM 1 #endif /* SM_CONF_SHM */ #ifndef SM_CONF_SEM # define SM_CONF_SEM 2 #endif /* SM_CONF_SEM */ #ifndef SM_CONF_MSG # define SM_CONF_MSG 1 #endif /* SM_CONF_MSG */ #define SM_CONF_SETITIMER 0 #ifndef SM_CONF_CANT_SETRGID # define SM_CONF_CANT_SETRGID 1 #endif /* SM_CONF_CANT_SETRGID */ sendmail-8.18.1/include/sm/os/sm_os_aix.h0000644000372400037240000000157314556365350017612 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_aix.h,v 1.12 2013-11-22 20:51:34 ca Exp $ */ /* ** sm_os_aix.h -- platform definitions for AIX */ #define SM_OS_NAME "aix" #ifndef SM_CONF_SHM # define SM_CONF_SHM 1 #endif /* SM_CONF_SHM */ #ifndef SM_CONF_SEM # define SM_CONF_SEM 2 #endif /* SM_CONF_SEM */ #ifndef SM_CONF_MSG # define SM_CONF_MSG 1 #endif /* SM_CONF_MSG */ /* AIX 3 doesn't have a prototype for syslog()? */ #ifdef _AIX3 # ifndef _AIX4 # ifndef SM_CONF_SYSLOG # define SM_CONF_SYSLOG 0 # endif /* SM_CONF_SYSLOG */ # endif /* ! _AIX4 */ #endif /* _AIX3 */ #if _AIX5 >= 50200 # define SM_CONF_LONGLONG 1 #endif /* _AIX5 >= 50200 */ sendmail-8.18.1/include/sm/os/sm_os_unicosmp.h0000644000372400037240000000076614556365350020671 0ustar xbuildxbuild/* * Copyright (c) 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_unicosmp.h,v 1.2 2013-11-22 20:51:34 ca Exp $ */ /* ** Cray UNICOS/mp */ #define SM_OS_NAME "unicosmp" #define SM_CONF_LONGLONG 1 #define SM_CONF_SYS_CDEFS_H 1 #define SM_CONF_MSG 1 #define SM_CONF_SHM 1 #define SM_CONF_SEM 1 sendmail-8.18.1/include/sm/os/sm_os_ultrix.h0000644000372400037240000000063714556365350020360 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_ultrix.h,v 1.4 2013-11-22 20:51:34 ca Exp $ */ /* ** platform definitions for Ultrix */ #define SM_OS_NAME "ultrix" #define SM_CONF_SSIZE_T 0 sendmail-8.18.1/include/sm/os/sm_os_unicosmk.h0000644000372400037240000000062314556365350020654 0ustar xbuildxbuild/* * Copyright (c) 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_unicosmk.h,v 1.2 2013-11-22 20:51:34 ca Exp $ */ /* ** Cray UNICOS/mk */ #define SM_OS_NAME "unicosmk" #define SM_CONF_LONGLONG 1 sendmail-8.18.1/include/sm/os/sm_os_unixware.h0000644000372400037240000000221614556365350020666 0ustar xbuildxbuild/* * Copyright (c) 2001, 2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_unixware.h,v 1.9 2013-11-22 20:51:34 ca Exp $ */ #define SM_OS_NAME "unixware" #ifndef SM_CONF_LONGLONG # if defined(__SCO_VERSION__) && __SCO_VERSION__ > 400000000L # define SM_CONF_LONGLONG 1 # define SM_CONF_TEST_LLONG 1 # define SM_CONF_BROKEN_SIZE_T 0 # endif /* defined(__SCO_VERSION__) && __SCO_VERSION__ > 400000000L */ #endif /* !SM_CONF_LONGLONG */ /* try LLONG tests in libsm/t-types.c? */ #ifndef SM_CONF_TEST_LLONG # define SM_CONF_TEST_LLONG 0 #endif /* !SM_CONF_TEST_LLONG */ /* needs alarm(), our sleep() otherwise hangs. */ #define SM_CONF_SETITIMER 0 #ifndef SM_CONF_SHM # define SM_CONF_SHM 1 #endif /* SM_CONF_SHM */ /* size_t seems to be signed */ #ifndef SM_CONF_BROKEN_SIZE_T # define SM_CONF_BROKEN_SIZE_T 1 #endif /* SM_CONF_BROKEN_SIZE_T */ /* don't use flock() in mail.local.c */ #ifndef LDA_USE_LOCKF # define LDA_USE_LOCKF 1 #endif /* LDA_USE_LOCKF */ sendmail-8.18.1/include/sm/os/sm_os_openbsd.h0000644000372400037240000000127514556365350020462 0ustar xbuildxbuild/* * Copyright (c) 2000 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_openbsd.h,v 1.8 2013-11-22 20:51:34 ca Exp $ */ /* ** sm_os_openbsd.h -- platform definitions for OpenBSD ** ** Note: this header file cannot be called OpenBSD.h ** because defines the macro OpenBSD. */ #define SM_OS_NAME "openbsd" #define SM_CONF_SYS_CDEFS_H 1 #ifndef SM_CONF_SHM # define SM_CONF_SHM 1 #endif #ifndef SM_CONF_SEM # define SM_CONF_SEM 1 #endif #ifndef SM_CONF_MSG # define SM_CONF_MSG 1 #endif sendmail-8.18.1/include/sm/os/sm_os_irix.h0000644000372400037240000000321414556365350017776 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sm_os_irix.h,v 1.8 2013-11-22 20:51:34 ca Exp $ */ /* ** Silicon Graphics IRIX ** ** Compiles on 4.0.1. ** ** Use IRIX64 instead of IRIX for 64-bit IRIX (6.0). ** Use IRIX5 instead of IRIX for IRIX 5.x. ** ** This version tries to be adaptive using _MIPS_SIM: ** _MIPS_SIM == _ABIO32 (= 1) Abi: -32 on IRIX 6.2 ** _MIPS_SIM == _ABIN32 (= 2) Abi: -n32 on IRIX 6.2 ** _MIPS_SIM == _ABI64 (= 3) Abi: -64 on IRIX 6.2 ** ** _MIPS_SIM is 1 also on IRIX 5.3 ** ** IRIX64 changes from Mark R. Levinson . ** IRIX5 changes from Kari E. Hurtta . ** Adaptive changes from Kari E. Hurtta . */ #ifndef IRIX # define IRIX #endif /* ! IRIX */ #if _MIPS_SIM > 0 && !defined(IRIX5) # define IRIX5 /* IRIX5 or IRIX6 */ #endif /* _MIPS_SIM > 0 && !defined(IRIX5) */ #if _MIPS_SIM > 1 && !defined(IRIX6) && !defined(IRIX64) # define IRIX6 /* IRIX6 */ #endif /* _MIPS_SIM > 1 && !defined(IRIX6) && !defined(IRIX64) */ #define SM_OS_NAME "irix" #if defined(IRIX6) || defined(IRIX64) # define SM_CONF_LONGLONG 1 #endif /* defined(IRIX6) || defined(IRIX64) */ #if defined(IRIX64) || defined(IRIX5) || defined(IRIX6) # define SM_CONF_SYS_CDEFS_H 1 #endif /* defined(IRIX64) || defined(IRIX5) || defined(IRIX6) */ /* try LLONG tests in libsm/t-types.c? */ #ifndef SM_CONF_TEST_LLONG # define SM_CONF_TEST_LLONG 0 #endif /* !SM_CONF_TEST_LLONG */ sendmail-8.18.1/include/sm/config.h0000644000372400037240000001012614556365350016447 0ustar xbuildxbuild/* * Copyright (c) 2000-2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: config.h,v 1.49 2013-11-22 20:51:31 ca Exp $ */ /* ** libsm configuration macros. ** The values of these macros are platform dependent. ** The default values are given here. ** If the default is incorrect, then the correct value can be specified ** in the m4 configuration file in devtools/OS. */ #ifndef SM_CONFIG_H # define SM_CONFIG_H # include "sm_os.h" /* ** SM_CONF_STDBOOL_H is 1 if exists ** ** Note, unlike gcc, clang doesn't apply full prototypes to K&R definitions. */ # ifndef SM_CONF_STDBOOL_H # if !defined(__clang__) && defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L # define SM_CONF_STDBOOL_H 1 # else # define SM_CONF_STDBOOL_H 0 # endif # endif /* ! SM_CONF_STDBOOL_H */ /* ** Configuration macros that specify how __P is defined. */ # ifndef SM_CONF_SYS_CDEFS_H # define SM_CONF_SYS_CDEFS_H 0 # endif /* ** SM_CONF_STDDEF_H is 1 if exists */ # ifndef SM_CONF_STDDEF_H # define SM_CONF_STDDEF_H 1 # endif /* ** Configuration macro that specifies whether strlcpy/strlcat are available. ** Note: this is the default so that the libsm version (optimized) will ** be used by default (sm_strlcpy/sm_strlcat). */ # ifndef SM_CONF_STRL # define SM_CONF_STRL 0 # endif /* ** Configuration macro indicating that setitimer is available */ # ifndef SM_CONF_SETITIMER # define SM_CONF_SETITIMER 1 # endif /* ** Does define uid_t and gid_t? */ # ifndef SM_CONF_UID_GID # define SM_CONF_UID_GID 1 # endif /* ** Does define ssize_t? */ # ifndef SM_CONF_SSIZE_T # define SM_CONF_SSIZE_T 1 # endif /* ** Does the C compiler support long long? */ # ifndef SM_CONF_LONGLONG # if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L # define SM_CONF_LONGLONG 1 # else /* defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L */ # if defined(__GNUC__) # define SM_CONF_LONGLONG 1 # else # define SM_CONF_LONGLONG 0 # endif # endif /* defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L */ # endif /* ! SM_CONF_LONGLONG */ /* ** Does define quad_t and u_quad_t? ** We only care if long long is not available. */ # ifndef SM_CONF_QUAD_T # define SM_CONF_QUAD_T 0 # endif /* ** Configuration macro indicating that shared memory is available */ # ifndef SM_CONF_SHM # define SM_CONF_SHM 0 # endif /* ** Does define sigsetjmp? */ # ifndef SM_CONF_SIGSETJMP # define SM_CONF_SIGSETJMP 1 # endif /* ** Does exist, and define the EX_* macros with values ** that differ from the default BSD values in ? */ # ifndef SM_CONF_SYSEXITS_H # define SM_CONF_SYSEXITS_H 0 # endif /* has memchr() prototype? (if not: needs memory.h) */ # ifndef SM_CONF_MEMCHR # define SM_CONF_MEMCHR 1 # endif /* try LLONG tests in libsm/t-types.c? */ # ifndef SM_CONF_TEST_LLONG # define SM_CONF_TEST_LLONG 1 # endif /* LDAP Checks */ # if LDAPMAP # include # include /* Does the LDAP library have ldap_memfree()? */ # ifndef SM_CONF_LDAP_MEMFREE /* ** The new LDAP C API (draft-ietf-ldapext-ldap-c-api-04.txt) includes ** ldap_memfree() in the API. That draft states to use LDAP_API_VERSION ** of 2004 to identify the API. */ # if USING_NETSCAPE_LDAP || LDAP_API_VERSION >= 2004 # define SM_CONF_LDAP_MEMFREE 1 # else # define SM_CONF_LDAP_MEMFREE 0 # endif # endif /* ! SM_CONF_LDAP_MEMFREE */ /* Does the LDAP library have ldap_initialize()? */ # ifndef SM_CONF_LDAP_INITIALIZE /* ** Check for ldap_initialize() support for support for LDAP URI's with ** non-ldap:// schemes. */ /* OpenLDAP does it with LDAP_OPT_URI */ # ifdef LDAP_OPT_URI # define SM_CONF_LDAP_INITIALIZE 1 # endif # endif /* !SM_CONF_LDAP_INITIALIZE */ # endif /* LDAPMAP */ /* don't use strcpy() */ # ifndef DO_NOT_USE_STRCPY # define DO_NOT_USE_STRCPY 1 # endif #endif /* ! SM_CONFIG_H */ sendmail-8.18.1/include/sm/ixlen.h0000644000372400037240000000222414556365350016321 0ustar xbuildxbuild/* * Copyright (c) 2020 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #ifndef _SM_IXLEN_H # define _SM_IXLEN_H 1 #define SM_IS_MQ(ch) (((ch) & 0377) == METAQUOTE) #if _FFR_8BITENVADDR # define XLENDECL bool mq=false; \ int xlen = 0; # define XLENRESET mq=false, xlen = 0 # define XLEN(c) do { \ if (mq) { ++xlen; mq=false; } \ else if (SM_IS_MQ(c)) mq=true; \ else ++xlen; \ } while (0) extern int ilenx __P((const char *)); extern int xleni __P((const char *)); # if USE_EAI extern bool asciistr __P((const char *)); extern bool asciinstr __P((const char *, size_t)); extern int uxtext_unquote __P((const char *, char *, int)); extern char *sm_lowercase __P((const char *)); extern bool utf8_valid __P((const char *, size_t)); # endif #else /* _FFR_8BITENVADDR */ # define XLENDECL int xlen = 0; # define XLENRESET xlen = 0 # define XLEN(c) ++xlen # define ilenx(str) strlen(str) # define xleni(str) strlen(str) #endif /* _FFR_8BITENVADDR */ #endif /* ! _SM_IXLEN_H */ sendmail-8.18.1/include/sm/ldap.h0000644000372400037240000000670414556365350016131 0ustar xbuildxbuild/* * Copyright (c) 2001-2003, 2005-2007 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: ldap.h,v 1.35 2013-11-22 20:51:31 ca Exp $ */ #ifndef SM_LDAP_H # define SM_LDAP_H # include # include /* ** NOTE: These should be changed from LDAPMAP_* to SM_LDAP_* ** in the next major release (8.x+1) of sendmail. */ # ifndef LDAPMAP_MAX_ATTR # define LDAPMAP_MAX_ATTR 64 # endif # ifndef LDAPMAP_MAX_FILTER # define LDAPMAP_MAX_FILTER 1024 # endif # ifndef LDAPMAP_MAX_PASSWD # define LDAPMAP_MAX_PASSWD 256 # endif # if LDAPMAP /* maximum number of arguments in a map lookup, see sendmail.h: MAX_MAP_ARGS */ # define SM_LDAP_ARGS 10 /* error codes from sm_ldap_search*() */ # define SM_LDAP_ERR (-1) /* generic error: ldap_search(3) */ # define SM_LDAP_ERR_ARG_MISS (-2) /* an argument is missing */ /* Attribute types */ # define SM_LDAP_ATTR_NONE (-1) # define SM_LDAP_ATTR_OBJCLASS 0 # define SM_LDAP_ATTR_NORMAL 1 # define SM_LDAP_ATTR_DN 2 # define SM_LDAP_ATTR_FILTER 3 # define SM_LDAP_ATTR_URL 4 /* sm_ldap_results() flags */ # define SM_LDAP_SINGLEMATCH 0x0001 # define SM_LDAP_MATCHONLY 0x0002 # define SM_LDAP_USE_ALLATTR 0x0004 # define SM_LDAP_SINGLEDN 0x0008 struct sm_ldap_struct { /* needed for ldap_open or ldap_init */ char *ldap_uri; char *ldap_host; int ldap_port; int ldap_version; pid_t ldap_pid; /* options set in ld struct before ldap_bind_s */ int ldap_deref; time_t ldap_timelimit; int ldap_sizelimit; int ldap_options; /* args for ldap_bind_s */ LDAP *ldap_ld; char *ldap_binddn; char *ldap_secret; int ldap_method; /* args for ldap_search */ char *ldap_base; int ldap_scope; char *ldap_filter; char *ldap_attr[LDAPMAP_MAX_ATTR + 1]; int ldap_attr_type[LDAPMAP_MAX_ATTR + 1]; char *ldap_attr_needobjclass[LDAPMAP_MAX_ATTR + 1]; bool ldap_attrsonly; bool ldap_multi_args; /* args for ldap_result */ struct timeval ldap_timeout; LDAPMessage *ldap_res; /* ldapmap_lookup options */ char ldap_attrsep; # if LDAP_NETWORK_TIMEOUT int ldap_networktmo; # endif # if _FFR_SM_LDAP_DBG int ldap_debug; # endif /* Linked list of maps sharing the same LDAP binding */ void *ldap_next; }; typedef struct sm_ldap_struct SM_LDAP_STRUCT; struct sm_ldap_recurse_entry { char *lr_search; int lr_type; LDAPURLDesc *lr_ludp; char **lr_attrs; bool lr_done; }; struct sm_ldap_recurse_list { int lrl_size; int lrl_cnt; struct sm_ldap_recurse_entry **lrl_data; }; typedef struct sm_ldap_recurse_entry SM_LDAP_RECURSE_ENTRY; typedef struct sm_ldap_recurse_list SM_LDAP_RECURSE_LIST; /* functions */ extern void sm_ldap_clear __P((SM_LDAP_STRUCT *)); extern bool sm_ldap_start __P((char *, SM_LDAP_STRUCT *)); extern int sm_ldap_search __P((SM_LDAP_STRUCT *, char *)); extern int sm_ldap_search_m __P((SM_LDAP_STRUCT *, char **)); extern int sm_ldap_results __P((SM_LDAP_STRUCT *, int, int, int, SM_RPOOL_T *, char **, int *, int *, SM_LDAP_RECURSE_LIST *)); extern void sm_ldap_setopts __P((LDAP *, SM_LDAP_STRUCT *)); extern int sm_ldap_geterrno __P((LDAP *)); extern void sm_ldap_close __P((SM_LDAP_STRUCT *)); /* Portability defines */ # if !SM_CONF_LDAP_MEMFREE # define ldap_memfree(x) ((void) 0) # endif # endif /* LDAPMAP */ #endif /* ! SM_LDAP_H */ sendmail-8.18.1/include/sm/sysexits.h0000644000372400037240000001045714556365350017104 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1987, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sysexits.h,v 1.6 2013-11-22 20:51:31 ca Exp $ * @(#)sysexits.h 8.1 (Berkeley) 6/2/93 */ #ifndef SM_SYSEXITS_H # define SM_SYSEXITS_H # include /* ** SYSEXITS.H -- Exit status codes for system programs. ** ** This include file attempts to categorize possible error ** exit statuses for system programs, notably delivermail ** and the Berkeley network. ** ** Error numbers begin at EX__BASE to reduce the possibility of ** clashing with other exit statuses that random programs may ** already return. The meaning of the codes is approximately ** as follows: ** ** EX_USAGE -- The command was used incorrectly, e.g., with ** the wrong number of arguments, a bad flag, a bad ** syntax in a parameter, or whatever. ** EX_DATAERR -- The input data was incorrect in some way. ** This should only be used for user's data & not ** system files. ** EX_NOINPUT -- An input file (not a system file) did not ** exist or was not readable. This could also include ** errors like "No message" to a mailer (if it cared ** to catch it). ** EX_NOUSER -- The user specified did not exist. This might ** be used for mail addresses or remote logins. ** EX_NOHOST -- The host specified did not exist. This is used ** in mail addresses or network requests. ** EX_UNAVAILABLE -- A service is unavailable. This can occur ** if a support program or file does not exist. This ** can also be used as a catchall message when something ** you wanted to do doesn't work, but you don't know ** why. ** EX_SOFTWARE -- An internal software error has been detected. ** This should be limited to non-operating system related ** errors as possible. ** EX_OSERR -- An operating system error has been detected. ** This is intended to be used for such things as "cannot ** fork", "cannot create pipe", or the like. It includes ** things like getuid returning a user that does not ** exist in the passwd file. ** EX_OSFILE -- Some system file (e.g., /etc/passwd, /etc/utmp, ** etc.) does not exist, cannot be opened, or has some ** sort of error (e.g., syntax error). ** EX_CANTCREAT -- A (user specified) output file cannot be ** created. ** EX_IOERR -- An error occurred while doing I/O on some file. ** EX_TEMPFAIL -- temporary failure, indicating something that ** is not really an error. In sendmail, this means ** that a mailer (e.g.) could not create a connection, ** and the request should be reattempted later. ** EX_PROTOCOL -- the remote system returned something that ** was "not possible" during a protocol exchange. ** EX_NOPERM -- You did not have sufficient permission to ** perform the operation. This is not intended for ** file system problems, which should use NOINPUT or ** CANTCREAT, but rather for higher level permissions. */ # ifdef EX_OK # undef EX_OK /* for SVr4.2 SMP */ # endif # if SM_CONF_SYSEXITS_H # include # else /* SM_CONF_SYSEXITS_H */ # define EX_OK 0 /* successful termination */ # define EX__BASE 64 /* base value for error messages */ # define EX_USAGE 64 /* command line usage error */ # define EX_DATAERR 65 /* data format error */ # define EX_NOINPUT 66 /* cannot open input */ # define EX_NOUSER 67 /* addressee unknown */ # define EX_NOHOST 68 /* host name unknown */ # define EX_UNAVAILABLE 69 /* service unavailable */ # define EX_SOFTWARE 70 /* internal software error */ # define EX_OSERR 71 /* system error (e.g., can't fork) */ # define EX_OSFILE 72 /* critical OS file missing */ # define EX_CANTCREAT 73 /* can't create (user) output file */ # define EX_IOERR 74 /* input/output error */ # define EX_TEMPFAIL 75 /* temp failure; user is invited to retry */ # define EX_PROTOCOL 76 /* remote error in protocol */ # define EX_NOPERM 77 /* permission denied */ # define EX_CONFIG 78 /* configuration error */ # define EX__MAX 78 /* maximum listed value */ # endif /* SM_CONF_SYSEXITS_H */ extern char *sm_strexit __P((int)); extern char *sm_sysexitmsg __P((int)); extern char *sm_sysexmsg __P((int)); #endif /* ! SM_SYSEXITS_H */ sendmail-8.18.1/include/sm/shm.h0000644000372400037240000000200214556365350015763 0ustar xbuildxbuild/* * Copyright (c) 2000-2003, 2005 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: shm.h,v 1.12 2013-11-22 20:51:31 ca Exp $ */ #ifndef SM_SHM_H # define SM_SHM_H # if SM_CONF_SHM # include # include # include /* # include "def.h" */ /* key for shared memory */ # define SM_SHM_KEY ((key_t) 42) /* return value for failed shmget() */ # define SM_SHM_NULL ((void *) -1) # define SM_SHM_NO_ID (-2) extern void *sm_shmstart __P((key_t, int , int , int *, bool)); extern int sm_shmstop __P((void *, int, bool)); extern int sm_shmsetowner __P((int, uid_t, gid_t, MODE_T)); /* for those braindead systems... (e.g., SunOS 4) */ # ifndef SHM_R # define SHM_R 0400 # endif # ifndef SHM_W # define SHM_W 0200 # endif # endif /* SM_CONF_SHM */ #endif /* ! SM_SHM_H */ sendmail-8.18.1/include/sm/io.h0000644000372400037240000002735114556365350015621 0ustar xbuildxbuild/* * Copyright (c) 2000-2002, 2004, 2013 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: io.h,v 1.26 2013-11-22 20:51:31 ca Exp $ */ /*- * @(#)stdio.h 5.17 (Berkeley) 6/3/91 */ #ifndef SM_IO_H #define SM_IO_H #include #include #include /* mode for sm io (exposed) */ #define SM_IO_RDWR 1 /* read-write */ #define SM_IO_RDONLY 2 /* read-only */ #define SM_IO_WRONLY 3 /* write-only */ #define SM_IO_APPEND 4 /* write-only from eof */ #define SM_IO_APPENDRW 5 /* read-write from eof */ #define SM_IO_RDWRTR 6 /* read-write with truncation indicated */ # define SM_IO_BINARY 0x0 /* binary mode: not used in Unix */ #define SM_IS_BINARY(mode) (((mode) & SM_IO_BINARY) != 0) #define SM_IO_MODE(mode) ((mode) & 0x0f) #define SM_IO_RDWR_B (SM_IO_RDWR|SM_IO_BINARY) #define SM_IO_RDONLY_B (SM_IO_RDONLY|SM_IO_BINARY) #define SM_IO_WRONLY_B (SM_IO_WRONLY|SM_IO_BINARY) #define SM_IO_APPEND_B (SM_IO_APPEND|SM_IO_BINARY) #define SM_IO_APPENDRW_B (SM_IO_APPENDRW|SM_IO_BINARY) #define SM_IO_RDWRTR_B (SM_IO_RDWRTR|SM_IO_BINARY) /* for sm_io_fseek, et al api's (exposed) */ #define SM_IO_SEEK_SET 0 #define SM_IO_SEEK_CUR 1 #define SM_IO_SEEK_END 2 /* flags for info what's with different types (exposed) */ #define SM_IO_WHAT_MODE 1 #define SM_IO_WHAT_VECTORS 2 #define SM_IO_WHAT_FD 3 /* was WHAT_TYPE 4 unused */ #define SM_IO_WHAT_ISTYPE 5 #define SM_IO_IS_READABLE 6 #define SM_IO_WHAT_TIMEOUT 7 #define SM_IO_WHAT_SIZE 8 /* info flags (exposed) */ #define SM_IO_FTYPE_CREATE 1 #define SM_IO_FTYPE_MODIFY 2 #define SM_IO_FTYPE_DELETE 3 #define SM_IO_SL_PRIO 1 #define SM_IO_OPEN_MAX 20 /* for internal buffers */ struct smbuf { unsigned char *smb_base; int smb_size; }; /* ** sm I/O state variables (internal only). ** ** The following always hold: ** ** if (flags&(SMLBF|SMWR)) == (SMLBF|SMWR), ** lbfsize is -bf.size, else lbfsize is 0 ** if flags&SMRD, w is 0 ** if flags&SMWR, r is 0 ** ** This ensures that the getc and putc macros (or inline functions) never ** try to write or read from a file that is in `read' or `write' mode. ** (Moreover, they can, and do, automatically switch from read mode to ** write mode, and back, on "r+" and "w+" files.) ** ** lbfsize is used only to make the inline line-buffered output stream ** code as compact as possible. ** ** ub, up, and ur are used when ungetc() pushes back more characters ** than fit in the current bf, or when ungetc() pushes back a character ** that does not match the previous one in bf. When this happens, ** ub.base becomes non-nil (i.e., a stream has ungetc() data iff ** ub.base!=NULL) and up and ur save the current values of p and r. */ typedef struct sm_file SM_FILE_T; struct sm_file { const char *sm_magic; /* This SM_FILE_T is free when NULL */ unsigned char *f_p; /* current position in (some) buffer */ int f_r; /* read space left for getc() */ int f_w; /* write space left for putc() */ long f_flags; /* flags, below */ short f_file; /* fileno, if Unix fd, else -1 */ struct smbuf f_bf; /* the buffer (>= 1 byte, if !NULL) */ int f_lbfsize; /* 0 or -bf.size, for inline putc */ /* These can be used for any purpose by a file type implementation: */ void *f_cookie; int f_ival; /* operations */ int (*f_close) __P((SM_FILE_T *)); ssize_t (*f_read) __P((SM_FILE_T *, char *, size_t)); off_t (*f_seek) __P((SM_FILE_T *, off_t, int)); ssize_t (*f_write) __P((SM_FILE_T *, const char *, size_t)); int (*f_open) __P((SM_FILE_T *, const void *, int, const void *)); int (*f_setinfo) __P((SM_FILE_T *, int , void *)); int (*f_getinfo) __P((SM_FILE_T *, int , void *)); int f_timeout; int f_timeoutstate; /* either blocking or non-blocking */ char *f_type; /* for by-type lookups */ struct sm_file *f_flushfp; /* flush this before reading parent */ struct sm_file *f_modefp; /* sync mode with this fp */ /* separate buffer for long sequences of ungetc() */ struct smbuf f_ub; /* ungetc buffer */ unsigned char *f_up; /* saved f_p when f_p is doing ungetc */ int f_ur; /* saved f_r when f_r is counting ungetc */ /* tricks to meet minimum requirements even when malloc() fails */ unsigned char f_ubuf[3]; /* guarantee an ungetc() buffer */ unsigned char f_nbuf[1]; /* guarantee a getc() buffer */ /* Unix stdio files get aligned to block boundaries on fseek() */ int f_blksize; /* stat.st_blksize (may be != bf.size) */ off_t f_lseekoff; /* current lseek offset */ int f_dup_cnt; /* count file dup'd */ }; __BEGIN_DECLS extern SM_FILE_T SmIoF[]; extern const char SmFileMagic[]; extern SM_FILE_T SmFtStdio_def; extern SM_FILE_T SmFtStdiofd_def; extern SM_FILE_T SmFtString_def; extern SM_FILE_T SmFtSyslog_def; extern SM_FILE_T SmFtRealStdio_def; #define SMIOIN_FILENO 0 #define SMIOOUT_FILENO 1 #define SMIOERR_FILENO 2 #define SMIOSTDIN_FILENO 3 #define SMIOSTDOUT_FILENO 4 #define SMIOSTDERR_FILENO 5 /* Common predefined and already (usually) open files (exposed) */ #define smioin (&SmIoF[SMIOIN_FILENO]) #define smioout (&SmIoF[SMIOOUT_FILENO]) #define smioerr (&SmIoF[SMIOERR_FILENO]) #define smiostdin (&SmIoF[SMIOSTDIN_FILENO]) #define smiostdout (&SmIoF[SMIOSTDOUT_FILENO]) #define smiostderr (&SmIoF[SMIOSTDERR_FILENO]) #define SmFtStdio (&SmFtStdio_def) #define SmFtStdiofd (&SmFtStdiofd_def) #define SmFtString (&SmFtString_def) #define SmFtSyslog (&SmFtSyslog_def) #define SmFtRealStdio (&SmFtRealStdio_def) #ifdef __STDC__ # define SM_IO_SET_TYPE(f, name, open, close, read, write, seek, get, set, timeout) \ (f) = {SmFileMagic, (unsigned char *) 0, 0, 0, 0L, -1, {0}, 0, (void *) 0,\ 0, (close), (read), (seek), (write), (open), (set), (get), (timeout),\ 0, (name)} # define SM_IO_INIT_TYPE(f, name, open, close, read, write, seek, get, set, timeout) #else /* __STDC__ */ # define SM_IO_SET_TYPE(f, name, open, close, read, write, seek, get, set, timeout) (f) # define SM_IO_INIT_TYPE(f, name, open, close, read, write, seek, get, set, timeout) \ (f).sm_magic = SmFileMagic; \ (f).f_p = (unsigned char *) 0; \ (f).f_r = 0; \ (f).f_w = 0; \ (f).f_flags = 0L; \ (f).f_file = 0; \ (f).f_bf.smb_base = (unsigned char *) 0; \ (f).f_bf.smb_size = 0; \ (f).f_lbfsize = 0; \ (f).f_cookie = (void *) 0; \ (f).f_ival = 0; \ (f).f_close = (close); \ (f).f_read = (read); \ (f).f_seek = (seek); \ (f).f_write = (write); \ (f).f_open = (open); \ (f).f_setinfo = (set); \ (f).f_getinfo = (get); \ (f).f_timeout = (timeout); \ (f).f_timeoutstate = 0; \ (f).f_type = (name); #endif /* __STDC__ */ __END_DECLS /* Internal flags */ #define SMFBF 0x000001 /* XXXX fully buffered */ #define SMLBF 0x000002 /* line buffered */ #define SMNBF 0x000004 /* unbuffered */ #define SMNOW 0x000008 /* Flush each write; take read now */ #define SMRD 0x000010 /* OK to read */ #define SMWR 0x000020 /* OK to write */ /* RD and WR are never simultaneously asserted */ #define SMRW 0x000040 /* open for reading & writing */ #define SMFEOF 0x000080 /* found EOF */ #define SMERR 0x000100 /* found error */ #define SMMBF 0x000200 /* buf is from malloc */ #define SMAPP 0x000400 /* fdopen()ed in append mode */ #define SMSTR 0x000800 /* this is an snprintf string */ #define SMOPT 0x001000 /* do fseek() optimisation */ #define SMNPT 0x002000 /* do not do fseek() optimisation */ #define SMOFF 0x004000 /* set iff offset is in fact correct */ #define SMALC 0x010000 /* allocate string space dynamically */ #define SMMODEMASK 0x0070 /* read/write mode */ /* defines for timeout constants */ #define SM_TIME_IMMEDIATE (0) #define SM_TIME_FOREVER (-1) #define SM_TIME_DEFAULT (-2) /* timeout state for blocking */ #define SM_TIME_BLOCK (0) /* XXX just bool? */ #define SM_TIME_NONBLOCK (1) /* Exposed buffering type flags */ #define SM_IO_FBF 0 /* setvbuf should set fully buffered */ #define SM_IO_LBF 1 /* setvbuf should set line buffered */ #define SM_IO_NBF 2 /* setvbuf should set unbuffered */ /* setvbuf buffered, but through at lower file type layers */ #define SM_IO_NOW 3 /* ** size of buffer used by setbuf. ** If underlying filesystem blocksize is discoverable that is used instead */ #define SM_IO_BUFSIZ 4096 #define SM_IO_EOF (-1) /* Functions defined in ANSI C standard. */ __BEGIN_DECLS SM_FILE_T *sm_io_autoflush __P((SM_FILE_T *, SM_FILE_T *)); void sm_io_automode __P((SM_FILE_T *, SM_FILE_T *)); void sm_io_clearerr __P((SM_FILE_T *)); int sm_io_close __P((SM_FILE_T *, int SM_NONVOLATILE)); SM_FILE_T *sm_io_dup __P((SM_FILE_T *)); int sm_io_eof __P((SM_FILE_T *)); int sm_io_error __P((SM_FILE_T *)); int sm_io_fgets __P((SM_FILE_T *, int, char *, int)); int sm_io_flush __P((SM_FILE_T *, int SM_NONVOLATILE)); int PRINTFLIKE(3, 4) sm_io_fprintf __P((SM_FILE_T *, int, const char *, ...)); int sm_io_fputs __P((SM_FILE_T *, int, const char *)); int SCANFLIKE(3, 4) sm_io_fscanf __P((SM_FILE_T *, int, const char *, ...)); int sm_io_getc __P((SM_FILE_T *, int)); int sm_io_getinfo __P((SM_FILE_T *, int, void *)); SM_FILE_T *sm_io_open __P((const SM_FILE_T *, int SM_NONVOLATILE, const void *, int, const void *)); int sm_io_purge __P((SM_FILE_T *)); int sm_io_putc __P((SM_FILE_T *, int, int)); size_t sm_io_read __P((SM_FILE_T *, int, void *, size_t)); SM_FILE_T *sm_io_reopen __P((const SM_FILE_T *, int SM_NONVOLATILE, const void *, int, const void *, SM_FILE_T *)); void sm_io_rewind __P((SM_FILE_T *, int)); int sm_io_seek __P((SM_FILE_T *, int SM_NONVOLATILE, long SM_NONVOLATILE, int SM_NONVOLATILE)); int sm_io_setinfo __P((SM_FILE_T *, int, void *)); int sm_io_setvbuf __P((SM_FILE_T *, int, char *, int, size_t)); int SCANFLIKE(2, 3) sm_io_sscanf __P((const char *, char const *, ...)); long sm_io_tell __P((SM_FILE_T *, int SM_NONVOLATILE)); int sm_io_ungetc __P((SM_FILE_T *, int, int)); int sm_io_vfprintf __P((SM_FILE_T *, int, const char *, va_list)); size_t sm_io_write __P((SM_FILE_T *, int, const void *, size_t)); void sm_strio_init __P((SM_FILE_T *, char *, size_t)); extern SM_FILE_T * sm_io_fopen __P(( char *_pathname, int _flags, ...)); extern SM_FILE_T * sm_io_stdioopen __P(( FILE *_stream, char *_mode)); extern int sm_vasprintf __P(( char **_str, const char *_fmt, va_list _ap)); extern int sm_vsnprintf __P(( char *, size_t, const char *, va_list)); extern void sm_perror __P(( const char *)); __END_DECLS /* ** Functions internal to the implementation. */ __BEGIN_DECLS int sm_rget __P((SM_FILE_T *, int)); int sm_vfscanf __P((SM_FILE_T *, int SM_NONVOLATILE, const char *, va_list)); int sm_wbuf __P((SM_FILE_T *, int, int)); __END_DECLS /* ** The macros are here so that we can ** define function versions in the library. */ #define sm_getc(f, t) \ (--(f)->f_r < 0 ? \ sm_rget(f, t) : \ (int)(*(f)->f_p++)) /* ** This has been tuned to generate reasonable code on the vax using pcc. ** (It also generates reasonable x86 code using gcc.) */ #define sm_putc(f, t, c) \ (--(f)->f_w < 0 ? \ (f)->f_w >= (f)->f_lbfsize ? \ (*(f)->f_p = (c)), *(f)->f_p != '\n' ? \ (int)*(f)->f_p++ : \ sm_wbuf(f, t, '\n') : \ sm_wbuf(f, t, (int)(c)) : \ (*(f)->f_p = (c), (int)*(f)->f_p++)) #define sm_eof(p) (((p)->f_flags & SMFEOF) != 0) #define sm_error(p) (((p)->f_flags & SMERR) != 0) #define sm_clearerr(p) ((void)((p)->f_flags &= ~(SMERR|SMFEOF))) #define sm_io_eof(p) sm_eof(p) #define sm_io_error(p) sm_error(p) #define sm_io_clearerr(p) sm_clearerr(p) #ifndef lint # ifndef _POSIX_SOURCE # define sm_io_getc(fp, t) sm_getc(fp, t) # define sm_io_putc(fp, t, x) sm_putc(fp, t, x) # endif #endif /* lint */ #endif /* SM_IO_H */ sendmail-8.18.1/include/sm/notify.h0000644000372400037240000000101414556365350016506 0ustar xbuildxbuild/* * Copyright (c) 2021 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. */ #ifndef SM_NOTIFY_H #define SM_NOTIFY_H int sm_notify_init __P((int)); int sm_notify_start __P((bool, int)); int sm_notify_stop __P((bool, int)); int sm_notify_rcv __P((char *, size_t, long)); int sm_notify_snd __P((char *, size_t)); #endif /* ! SM_NOTIFY_H */ sendmail-8.18.1/include/sm/sem.h0000644000372400037240000000257214556365350015774 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2005, 2008 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: sem.h,v 1.11 2013-11-22 20:51:31 ca Exp $ */ #ifndef SM_SEM_H # define SM_SEM_H 1 #include /* key for semaphores */ # define SM_SEM_KEY (41L) # define SM_SEM_NO_ID (-1) # define SM_NO_SEM(id) ((id) < 0) # if SM_CONF_SEM > 0 # include # include # include # if SM_CONF_SEM == 2 union semun { int val; struct semid_ds *buf; ushort *array; }; # endif /* SM_CONF_SEM == 2 */ # ifndef SEM_A # define SEM_A 0200 # endif # ifndef SEM_R # define SEM_R 0400 # endif # define SM_NSEM 1 extern int sm_sem_start __P((key_t, int, int, bool)); extern int sm_sem_stop __P((int)); extern int sm_sem_acq __P((int, int, int)); extern int sm_sem_rel __P((int, int, int)); extern int sm_sem_get __P((int, int)); extern int sm_semsetowner __P((int, uid_t, gid_t, MODE_T)); # else /* SM_CONF_SEM > 0 */ # define sm_sem_start(key, nsem, semflg, owner) 0 # define sm_sem_stop(semid) 0 # define sm_sem_acq(semid, semnum, timeout) 0 # define sm_sem_rel(semid, semnum, timeout) 0 # define sm_sem_get(semid, semnum) 0 # endif /* SM_CONF_SEM > 0 */ #endif /* ! SM_SEM_H */ sendmail-8.18.1/include/sm/mbdb.h0000644000372400037240000000206314556365350016107 0ustar xbuildxbuild/* * Copyright (c) 2001-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: mbdb.h,v 1.7 2013-11-22 20:51:31 ca Exp $ */ #ifndef SM_MBDB_H # define SM_MBDB_H #include #include #include /* ** This is an abstract interface for looking up local mail recipients. */ #define MBDB_MAXNAME 256 #define SM_NO_UID ((uid_t)(-1)) #define SM_NO_GID ((gid_t)(-1)) typedef struct { uid_t mbdb_uid; gid_t mbdb_gid; char mbdb_name[MBDB_MAXNAME]; char mbdb_fullname[MBDB_MAXNAME]; char mbdb_homedir[PATH_MAX]; char mbdb_shell[PATH_MAX]; } SM_MBDB_T; extern int sm_mbdb_initialize __P((char *)); extern void sm_mbdb_terminate __P((void)); extern int sm_mbdb_lookup __P((char *, SM_MBDB_T *)); extern void sm_mbdb_frompw __P((SM_MBDB_T *, struct passwd *)); extern void sm_pwfullname __P((char *, char *, char *, size_t)); #endif /* ! SM_MBDB_H */ sendmail-8.18.1/include/sm/heap.h0000644000372400037240000000630014556365350016116 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2006 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: heap.h,v 1.24 2013-11-22 20:51:31 ca Exp $ */ /* ** Sendmail debugging memory allocation package. ** See libsm/heap.html for documentation. */ #ifndef SM_HEAP_H # define SM_HEAP_H # include # include # include # include /* change default to 0 for production? */ # ifndef SM_HEAP_CHECK # define SM_HEAP_CHECK 1 # endif # if SM_HEAP_CHECK # define sm_malloc_x(sz) sm_malloc_tagged_x(sz, __FILE__, __LINE__, SmHeapGroup) # define sm_malloc(size) sm_malloc_tagged(size, __FILE__, __LINE__, SmHeapGroup) # define sm_free(ptr) sm_free_tagged(ptr, __FILE__, __LINE__) extern void *sm_malloc_tagged __P((size_t, char *, int, int)); extern void *sm_malloc_tagged_x __P((size_t, char *, int, int)); extern void sm_free_tagged __P((void *, char *, int)); extern void *sm_realloc_x __P((void *, size_t)); extern bool sm_heap_register __P((void *, size_t, char *, int, int)); extern void sm_heap_checkptr_tagged __P((void *, char *, int)); extern void sm_heap_report __P((SM_FILE_T *, int)); # else /* SM_HEAP_CHECK */ # define sm_malloc_tagged(size, file, line, grp) sm_malloc(size) # define sm_malloc_tagged_x(size, file, line, grp) sm_malloc_x(size) # define sm_free_tagged(ptr, file, line) sm_free(ptr) # define sm_heap_register(ptr, size, file, line, grp) (true) # define sm_heap_checkptr_tagged(ptr, tag, num) ((void)0) # define sm_heap_report(file, verbose) ((void)0) extern void *sm_malloc __P((size_t)); extern void *sm_malloc_x __P((size_t)); extern void *sm_realloc_x __P((void *, size_t)); extern void sm_free __P((void *)); # endif /* SM_HEAP_CHECK */ extern void *sm_realloc __P((void *, size_t)); # define sm_heap_checkptr(ptr) sm_heap_checkptr_tagged(ptr, __FILE__, __LINE__) #if 0 /* ** sm_f[mc]alloc are plug in replacements for malloc and calloc ** which can be used in a context requiring a function pointer, ** and which are compatible with sm_free. Warning: sm_heap_report ** cannot report where storage leaked by sm_f[mc]alloc was allocated. */ /* XXX unused right now */ extern void * sm_fmalloc __P(( size_t)); extern void * sm_fcalloc __P(( size_t, size_t)); #endif /* 0 */ /* ** Allocate 'permanent' storage that can be freed but may still be ** allocated when the process exits. sm_heap_report will not complain ** about a storage leak originating from a call to sm_pmalloc. */ # define sm_pmalloc(size) sm_malloc_tagged(size, __FILE__, __LINE__, 0) # define sm_pmalloc_x(size) sm_malloc_tagged_x(size, __FILE__, __LINE__, 0) # define sm_heap_group() SmHeapGroup # define sm_heap_setgroup(g) (SmHeapGroup = (g)) # define sm_heap_newgroup() (SmHeapGroup = ++SmHeapMaxGroup) #define SM_FREE(ptr) \ do \ { \ if ((ptr) != NULL) \ { \ sm_free(ptr); \ (ptr) = NULL; \ } \ } while (0) extern int SmHeapGroup; extern int SmHeapMaxGroup; extern SM_DEBUG_T SmHeapTrace; extern SM_DEBUG_T SmHeapCheck; extern SM_EXC_T SmHeapOutOfMemory; #endif /* ! SM_HEAP_H */ sendmail-8.18.1/include/sm/cf.h0000644000372400037240000000102514556365350015570 0ustar xbuildxbuild/* * Copyright (c) 2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: cf.h,v 1.3 2013-11-22 20:51:31 ca Exp $ */ #ifndef SM_CF_H # define SM_CF_H #include typedef struct { char *opt_name; char *opt_val; } SM_CF_OPT_T; extern int sm_cf_getopt __P(( char *path, int optc, SM_CF_OPT_T *optv)); #endif /* ! SM_CF_H */ sendmail-8.18.1/include/sm/exc.h0000644000372400037240000000705114556365350015764 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: exc.h,v 1.24 2013-11-22 20:51:31 ca Exp $ */ /* ** libsm exception handling ** See libsm/exc.html for documentation. */ #ifndef SM_EXC_H # define SM_EXC_H #include #include #include #include typedef struct sm_exc SM_EXC_T; typedef struct sm_exc_type SM_EXC_TYPE_T; typedef union sm_val SM_VAL_T; /* ** Exception types */ extern const char SmExcTypeMagic[]; struct sm_exc_type { const char *sm_magic; const char *etype_category; const char *etype_argformat; void (*etype_print) __P((SM_EXC_T *, SM_FILE_T *)); const char *etype_printcontext; }; extern const SM_EXC_TYPE_T SmEtypeOs; extern const SM_EXC_TYPE_T SmEtypeErr; extern void sm_etype_printf __P(( SM_EXC_T *_exc, SM_FILE_T *_stream)); /* ** Exception objects */ extern const char SmExcMagic[]; union sm_val { int v_int; long v_long; char *v_str; SM_EXC_T *v_exc; }; struct sm_exc { const char *sm_magic; size_t exc_refcount; const SM_EXC_TYPE_T *exc_type; SM_VAL_T *exc_argv; }; # define SM_EXC_INITIALIZER(type, argv) \ { \ SmExcMagic, \ 0, \ type, \ argv, \ } extern SM_EXC_T * sm_exc_new_x __P(( const SM_EXC_TYPE_T *_type, ...)); extern SM_EXC_T * sm_exc_addref __P(( SM_EXC_T *_exc)); extern void sm_exc_free __P(( SM_EXC_T *_exc)); extern bool sm_exc_match __P(( SM_EXC_T *_exc, const char *_pattern)); extern void sm_exc_write __P(( SM_EXC_T *_exc, SM_FILE_T *_stream)); extern void sm_exc_print __P(( SM_EXC_T *_exc, SM_FILE_T *_stream)); extern SM_DEAD(void sm_exc_raise_x __P(( SM_EXC_T *_exc))); extern SM_DEAD(void sm_exc_raisenew_x __P(( const SM_EXC_TYPE_T *_type, ...))); /* ** Exception handling */ typedef void (*SM_EXC_DEFAULT_HANDLER_T) __P((SM_EXC_T *)); extern void sm_exc_newthread __P(( SM_EXC_DEFAULT_HANDLER_T _handle)); typedef struct sm_exc_handler SM_EXC_HANDLER_T; struct sm_exc_handler { SM_EXC_T *eh_value; SM_JMPBUF_T eh_context; SM_EXC_HANDLER_T *eh_parent; int eh_state; }; /* values for eh_state */ enum { SM_EH_PUSHED = 2, SM_EH_POPPED = 0, SM_EH_HANDLED = 1 }; extern SM_EXC_HANDLER_T *SmExcHandler; # define SM_TRY { SM_EXC_HANDLER_T _h; \ do { \ _h.eh_value = NULL; \ _h.eh_parent = SmExcHandler; \ _h.eh_state = SM_EH_PUSHED; \ SmExcHandler = &_h; \ if (sm_setjmp_nosig(_h.eh_context) == 0) { # define SM_FINALLY SM_ASSERT(SmExcHandler == &_h); \ } \ if (sm_setjmp_nosig(_h.eh_context) == 0) { # define SM_EXCEPT(e,pat) } \ if (_h.eh_state == SM_EH_HANDLED) \ break; \ if (_h.eh_state == SM_EH_PUSHED) { \ SM_ASSERT(SmExcHandler == &_h); \ SmExcHandler = _h.eh_parent; \ } \ _h.eh_state = sm_exc_match(_h.eh_value,pat) \ ? SM_EH_HANDLED : SM_EH_POPPED; \ if (_h.eh_state == SM_EH_HANDLED) { \ SM_UNUSED(SM_EXC_T *e) = _h.eh_value; # define SM_END_TRY } \ } while (0); \ if (_h.eh_state == SM_EH_PUSHED) { \ SM_ASSERT(SmExcHandler == &_h); \ SmExcHandler = _h.eh_parent; \ if (_h.eh_value != NULL) \ sm_exc_raise_x(_h.eh_value); \ } else if (_h.eh_state == SM_EH_POPPED) { \ if (_h.eh_value != NULL) \ sm_exc_raise_x(_h.eh_value); \ } else \ sm_exc_free(_h.eh_value); \ } #endif /* SM_EXC_H */ sendmail-8.18.1/include/sm/test.h0000644000372400037240000000162014556365350016160 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: test.h,v 1.7 2013-11-22 20:51:32 ca Exp $ */ /* ** Abstractions for writing a libsm test program. */ #ifndef SM_TEST_H # define SM_TEST_H # include # if defined(__STDC__) || defined(__cplusplus) # define SM_TEST(cond) sm_test(cond, #cond, __FILE__, __LINE__) # else # define SM_TEST(cond) sm_test(cond, "cond", __FILE__, __LINE__) # endif extern int SmTestIndex; extern int SmTestNumErrors; extern void sm_test_begin __P(( int _argc, char **_argv, char *_testname)); extern bool sm_test __P(( bool _success, char *_expr, char *_filename, int _lineno)); extern int sm_test_end __P((void)); #endif /* ! SM_TEST_H */ sendmail-8.18.1/include/sm/gen.h0000644000372400037240000000406514556365350015760 0ustar xbuildxbuild/* * Copyright (c) 2000-2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: gen.h,v 1.24 2013-11-22 20:51:31 ca Exp $ */ /* ** libsm general definitions ** See libsm/gen.html for documentation. */ #ifndef SM_GEN_H # define SM_GEN_H # include # include # include /* ** Define SM_RCSID and SM_IDSTR, ** macros used to embed RCS and SCCS identification strings in object files. */ # ifdef lint # define SM_RCSID(str) # define SM_IDSTR(id,str) # else /* lint */ # define SM_RCSID(str) SM_UNUSED(static const char RcsId[]) = str; # define SM_IDSTR(id,str) SM_UNUSED(static const char id[]) = str; # endif /* lint */ /* ** Define NULL and offsetof (from the C89 standard) */ # if SM_CONF_STDDEF_H # include # else /* SM_CONF_STDDEF_H */ # ifndef NULL # define NULL 0 # endif # define offsetof(type, member) ((size_t)(&((type *)0)->member)) # endif /* SM_CONF_STDDEF_H */ /* ** Define bool, true, false (from the C99 standard) */ # if SM_CONF_STDBOOL_H # include # else /* SM_CONF_STDBOOL_H */ # ifndef __cplusplus typedef int bool; # define false 0 # define true 1 # define __bool_true_false_are_defined 1 # endif /* ! __cplusplus */ # endif /* SM_CONF_STDBOOL_H */ /* ** Define SM_MAX and SM_MIN */ # define SM_MAX(a, b) ((a) > (b) ? (a) : (b)) # define SM_MIN(a, b) ((a) < (b) ? (a) : (b)) /* Define SM_SUCCESS and SM_FAILURE */ # define SM_SUCCESS 0 # define SM_FAILURE (-1) /* XXX This needs to be fixed when we start to use threads: */ typedef int SM_ATOMIC_INT_T; typedef unsigned int SM_ATOMIC_UINT_T; #if _FFR_EAI && !defined(USE_EAI) # define USE_EAI 1 #endif #if USE_EAI && !defined(_FFR_LOGASIS) # define _FFR_LOGASIS 1 #endif #if USE_EAI || _FFR_EIGHT_BIT_ADDR_OK # define _FFR_8BITENVADDR 1 #endif #if _FFR_HAPROXY && !defined(_FFR_XCNCT) # define _FFR_XCNCT 1 #endif #endif /* SM_GEN_H */ sendmail-8.18.1/include/sm/fdset.h0000644000372400037240000000134314556365350016310 0ustar xbuildxbuild/* * Copyright (c) 2001, 2002 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: fdset.h,v 1.6 2013-11-22 20:51:31 ca Exp $ */ #ifndef SM_FDSET_H # define SM_FDSET_H /* ** Note: SM_FD_OK_SELECT(fd) requires that ValidSocket(fd) has been checked ** before. */ #define SM_FD_CLR(fd, pfdset) FD_CLR(fd, pfdset) #define SM_FD_SET(fd, pfdset) FD_SET(fd, pfdset) #define SM_FD_ISSET(fd, pfdset) FD_ISSET(fd, pfdset) #define SM_FD_SETSIZE FD_SETSIZE #define SM_FD_OK_SELECT(fd) (SM_FD_SETSIZE <= 0 || (fd) < SM_FD_SETSIZE) #endif /* SM_FDSET_H */ sendmail-8.18.1/include/sm/errstring.h0000644000372400037240000000643014556365350017224 0ustar xbuildxbuild/* * Copyright (c) 1998-2001, 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: errstring.h,v 1.11 2013-11-22 20:51:31 ca Exp $ */ /* ** Error codes. */ #ifndef SM_ERRSTRING_H # define SM_ERRSTRING_H #if defined(__QNX__) # define E_PSEUDOBASE 512 #endif #include #if NEEDINTERRNO extern int errno; #endif /* ** These are used in a few cases where we need some special ** error codes, but where the system doesn't provide something ** reasonable. They are printed in sm_errstring. */ #ifndef E_PSEUDOBASE # define E_PSEUDOBASE 256 #endif #define E_SM_OPENTIMEOUT (E_PSEUDOBASE + 0) /* Timeout on file open */ #define E_SM_NOSLINK (E_PSEUDOBASE + 1) /* Symbolic links not allowed */ #define E_SM_NOHLINK (E_PSEUDOBASE + 2) /* Hard links not allowed */ #define E_SM_REGONLY (E_PSEUDOBASE + 3) /* Regular files only */ #define E_SM_ISEXEC (E_PSEUDOBASE + 4) /* Executable files not allowed */ #define E_SM_WWDIR (E_PSEUDOBASE + 5) /* World writable directory */ #define E_SM_GWDIR (E_PSEUDOBASE + 6) /* Group writable directory */ #define E_SM_FILECHANGE (E_PSEUDOBASE + 7) /* File changed after open */ #define E_SM_WWFILE (E_PSEUDOBASE + 8) /* World writable file */ #define E_SM_GWFILE (E_PSEUDOBASE + 9) /* Group writable file */ #define E_SM_GRFILE (E_PSEUDOBASE + 10) /* g readable file */ #define E_SM_WRFILE (E_PSEUDOBASE + 11) /* o readable file */ #define E_DNSBASE (E_PSEUDOBASE + 20) /* base for DNS h_errno */ #define E_SMDBBASE (E_PSEUDOBASE + 40) /* base for libsmdb errors */ #define E_LDAPREALBASE (E_PSEUDOBASE + 70) /* start of range for LDAP */ #define E_LDAPBASE (E_LDAPREALBASE + E_LDAP_SHIM) /* LDAP error zero */ #define E_LDAPURLBASE (E_PSEUDOBASE + 230) /* base for LDAP URL errors */ /* ** OpenLDAP uses small negative errors for internal (non-protocol) ** errors. We expect them to be between zero and -E_LDAP_SHIM ** (and then offset by E_LDAPBASE). */ #define E_LDAP_SHIM 30 /* libsmdb */ #define SMDBE_OK 0 #define SMDBE_MALLOC (E_SMDBBASE + 1) #define SMDBE_GDBM_IS_BAD (E_SMDBBASE + 2) #define SMDBE_UNSUPPORTED (E_SMDBBASE + 3) #define SMDBE_DUPLICATE (E_SMDBBASE + 4) #define SMDBE_BAD_OPEN (E_SMDBBASE + 5) #define SMDBE_NOT_FOUND (E_SMDBBASE + 6) #define SMDBE_UNKNOWN_DB_TYPE (E_SMDBBASE + 7) #define SMDBE_UNSUPPORTED_DB_TYPE (E_SMDBBASE + 8) #define SMDBE_INCOMPLETE (E_SMDBBASE + 9) #define SMDBE_KEY_EMPTY (E_SMDBBASE + 10) #define SMDBE_KEY_EXIST (E_SMDBBASE + 11) #define SMDBE_LOCK_DEADLOCK (E_SMDBBASE + 12) #define SMDBE_LOCK_NOT_GRANTED (E_SMDBBASE + 13) #define SMDBE_LOCK_NOT_HELD (E_SMDBBASE + 14) #define SMDBE_RUN_RECOVERY (E_SMDBBASE + 15) #define SMDBE_IO_ERROR (E_SMDBBASE + 16) #define SMDBE_READ_ONLY (E_SMDBBASE + 17) #define SMDBE_DB_NAME_TOO_LONG (E_SMDBBASE + 18) #define SMDBE_INVALID_PARAMETER (E_SMDBBASE + 19) #define SMDBE_ONLY_SUPPORTS_ONE_CURSOR (E_SMDBBASE + 20) #define SMDBE_NOT_A_VALID_CURSOR (E_SMDBBASE + 21) #define SMDBE_LAST_ENTRY (E_SMDBBASE + 22) #define SMDBE_OLD_VERSION (E_SMDBBASE + 23) #define SMDBE_VERSION_MISMATCH (E_SMDBBASE + 24) extern const char *sm_errstring __P((int _errnum)); #endif /* SM_ERRSTRING_H */ sendmail-8.18.1/include/sm/string.h0000644000372400037240000000523614556365350016516 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: string.h,v 1.39 2013-11-22 20:51:31 ca Exp $ */ /* ** libsm string manipulation */ #ifndef SM_STRING_H # define SM_STRING_H # include # include # include /* strlc{py,at}, strerror */ /* return number of bytes left in a buffer */ #define SPACELEFT(buf, ptr) (sizeof buf - ((ptr) - buf)) extern int PRINTFLIKE(3, 4) sm_snprintf __P((char *, size_t, const char *, ...)); extern bool sm_match __P((const char *_str, const char *_pattern)); extern char * sm_strdup __P((const char *)); extern char * sm_strndup_x __P((const char *_str, size_t _len)); #if DO_NOT_USE_STRCPY /* for "normal" data (free'd before end of process) */ extern char * sm_strdup_x __P((const char *_str)); /* for data that is supposed to be persistent. */ extern char * sm_pstrdup_x __P((const char *_str)); extern char * sm_strdup_tagged_x __P((const char *str, char *file, int line, int group)); #else /* DO_NOT_USE_STRCPY */ /* for "normal" data (free'd before end of process) */ # define sm_strdup_x(str) strcpy(sm_malloc_x(strlen(str) + 1), str) /* for data that is supposed to be persistent. */ # define sm_pstrdup_x(str) strcpy(sm_pmalloc_x(strlen(str) + 1), str) # define sm_strdup_tagged_x(str, file, line, group) \ strcpy(sm_malloc_tagged_x(strlen(str) + 1, file, line, group), str) #endif /* DO_NOT_USE_STRCPY */ extern char * sm_stringf_x __P((const char *_fmt, ...)); extern char * sm_vstringf_x __P((const char *_fmt, va_list _ap)); extern size_t sm_strlcpy __P((char *_dst, const char *_src, ssize_t _len)); extern size_t sm_strlcat __P((char *_dst, const char *_src, ssize_t _len)); extern size_t sm_strlcat2 __P((char *, const char *, const char *, ssize_t)); extern size_t #ifdef __STDC__ sm_strlcpyn(char *dst, ssize_t len, int n, ...); #else /* __STDC__ */ sm_strlcpyn __P((char *, ssize_t, int, va_dcl)); #endif /* __STDC__ */ # if !HASSTRERROR extern char * strerror __P((int _errno)); # endif extern int sm_strrevcmp __P((const char *, const char *)); extern int sm_strrevcasecmp __P((const char *, const char *)); extern int sm_strcasecmp __P((const char *, const char *)); extern int sm_strncasecmp __P((const char *, const char *, size_t)); extern LONGLONG_T sm_strtoll __P((const char *, char**, int)); extern ULONGLONG_T sm_strtoull __P((const char *, char**, int)); extern void stripquotes __P((char *)); extern void unfoldstripquotes __P((char *)); #endif /* SM_STRING_H */ sendmail-8.18.1/include/sm/types.h0000644000372400037240000000317714556365350016356 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: types.h,v 1.14 2013-11-22 20:51:32 ca Exp $ */ /* ** This header file defines standard integral types. ** - It includes , and fixes portability problems that ** exist on older Unix platforms. ** - It defines LONGLONG_T and ULONGLONG_T, which are portable locutions ** for 'long long' and 'unsigned long long'. */ #ifndef SM_TYPES_H # define SM_TYPES_H # include /* ** On BSD 4.2 systems, was not idempotent. ** This problem is circumvented by replacing all occurrences ** of with , which is idempotent. */ # include /* ** On some old Unix platforms, some of the standard types are missing. ** We fix that here. */ # if !SM_CONF_UID_GID # define uid_t int # define gid_t int # endif # if !SM_CONF_SSIZE_T # define ssize_t int # endif /* ** Define LONGLONG_T and ULONGLONG_T, which are portable locutions ** for 'long long' and 'unsigned long long' from the C 1999 standard. */ # if SM_CONF_LONGLONG typedef long long LONGLONG_T; typedef unsigned long long ULONGLONG_T; # else /* SM_CONF_LONGLONG */ # if SM_CONF_QUAD_T typedef quad_t LONGLONG_T; typedef u_quad_t ULONGLONG_T; # else /* SM_CONF_QUAD_T */ typedef long LONGLONG_T; typedef unsigned long ULONGLONG_T; # endif /* SM_CONF_QUAD_T */ # endif /* SM_CONF_LONGLONG */ #endif /* ! SM_TYPES_H */ sendmail-8.18.1/include/sm/clock.h0000644000372400037240000000424714556365350016304 0ustar xbuildxbuild/* * Copyright (c) 1998-2001, 2004 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: clock.h,v 1.14 2013-11-22 20:51:31 ca Exp $ */ /* ** CLOCK.H -- for co-ordinating timed events */ #ifndef _SM_CLOCK_H # define _SM_CLOCK_H 1 # include # if SM_CONF_SETITIMER # include # endif /* ** STRUCT SM_EVENT -- event queue. ** ** Maintained in sorted order. ** ** We store the pid of the process that set this event to insure ** that when we fork we will not take events intended for the parent. */ struct sm_event { # if SM_CONF_SETITIMER struct timeval ev_time; /* time of the call (microseconds) */ # else time_t ev_time; /* time of the call (seconds) */ # endif void (*ev_func)__P((int)); /* function to call */ int ev_arg; /* argument to ev_func */ pid_t ev_pid; /* pid that set this event */ struct sm_event *ev_link; /* link to next item */ }; typedef struct sm_event SM_EVENT; /* functions */ extern void sm_clrevent __P((SM_EVENT *)); extern void sm_clear_events __P((void)); extern SM_EVENT *sm_seteventm __P((int, void(*)__P((int)), int)); extern SM_EVENT *sm_sigsafe_seteventm __P((int, void(*)__P((int)), int)); extern SIGFUNC_DECL sm_tick __P((int)); /* ** SM_SETEVENT -- set an event to happen at a specific time in seconds. ** ** Translates the seconds into milliseconds and calls sm_seteventm() ** to get a specific event to happen in the future at a specific time. ** ** Parameters: ** t -- intvl until next event occurs (seconds). ** f -- function to call on event. ** a -- argument to func on event. ** ** Returns: ** result of sm_seteventm(). ** ** Side Effects: ** Any that sm_seteventm() have. */ #define sm_setevent(t, f, a) sm_seteventm((int)((t) * 1000), (f), (a)) #define sm_sigsafe_setevent(t, f, a) sm_sigsafe_seteventm((int)((t) * 1000), (f), (a)) #endif /* _SM_CLOCK_H */ sendmail-8.18.1/include/sm/bdb.h0000644000372400037240000000232214556365350015730 0ustar xbuildxbuild/* * Copyright (c) 2002, 2003, 2014 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * * $Id: bdb.h,v 1.5 2013-11-22 20:51:31 ca Exp $ */ #ifndef SM_BDB_H #define SM_BDB_H #if NEWDB # include # ifndef DB_VERSION_MAJOR # define DB_VERSION_MAJOR 1 # endif # if (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR >= 1) || DB_VERSION_MAJOR >= 5 # define DBTXN NULL , /* ** Always turn on DB_FCNTL_LOCKING for DB 4.1.x since its ** "workaround" for accepting an empty (locked) file depends on ** this flag. Notice: this requires 4.1.24 + patch (which should be ** part of 4.1.25). */ # define SM_DB_FLAG_ADD(flag) (flag) |= DB_FCNTL_LOCKING # else /* (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR >= 1) || DB_VERSION_MAJOR >= 5 */ # define DBTXN # if !HASFLOCK && defined(DB_FCNTL_LOCKING) # define SM_DB_FLAG_ADD(flag) (flag) |= DB_FCNTL_LOCKING # else # define SM_DB_FLAG_ADD(flag) ((void) 0) # endif # endif /* (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR >= 1) || DB_VERSION_MAJOR >= 5 */ #endif /* NEWDB */ #endif /* ! SM_BDB_H */ sendmail-8.18.1/include/sm/xtrap.h0000644000372400037240000000150114556365350016335 0ustar xbuildxbuild/* * Copyright (c) 2000-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: xtrap.h,v 1.8 2013-11-22 20:51:32 ca Exp $ */ /* ** scaffolding for testing exception handler code */ #ifndef SM_XTRAP_H # define SM_XTRAP_H # include # include extern SM_ATOMIC_UINT_T SmXtrapCount; extern SM_DEBUG_T SmXtrapDebug; extern SM_DEBUG_T SmXtrapReport; # if SM_DEBUG_CHECK # define sm_xtrap_check() (++SmXtrapCount == sm_debug_level(&SmXtrapDebug)) # else # define sm_xtrap_check() (0) # endif # define sm_xtrap_raise_x(exc) \ if (sm_xtrap_check()) \ { \ sm_exc_raise_x(exc); \ } else #endif /* ! SM_XTRAP_H */ sendmail-8.18.1/include/sm/rpool.h0000644000372400037240000001115714556365350016342 0ustar xbuildxbuild/* * Copyright (c) 2000-2001, 2003 Proofpoint, Inc. and its suppliers. * All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * $Id: rpool.h,v 1.17 2013-11-22 20:51:31 ca Exp $ */ /* ** libsm resource pools ** See libsm/rpool.html for documentation. */ #ifndef SM_RPOOL_H # define SM_RPOOL_H 1 # include # include # include /* ** Each memory pool object consists of an SM_POOLLINK_T, ** followed by a platform specific amount of padding, ** followed by 'poolsize' bytes of pool data, ** where 'poolsize' is the value of rpool->sm_poolsize at the time ** the pool is allocated. */ typedef struct sm_poollink SM_POOLLINK_T; struct sm_poollink { SM_POOLLINK_T *sm_pnext; }; typedef void (*SM_RPOOL_RFREE_T) __P((void *_rcontext)); typedef SM_RPOOL_RFREE_T *SM_RPOOL_ATTACH_T; typedef struct sm_resource SM_RESOURCE_T; struct sm_resource { /* ** Function for freeing this resource. It may be NULL, ** meaning that this resource has already been freed. */ SM_RPOOL_RFREE_T sm_rfree; void *sm_rcontext; /* resource data */ }; # define SM_RLIST_MAX 511 typedef struct sm_rlist SM_RLIST_T; struct sm_rlist { SM_RESOURCE_T sm_rvec[SM_RLIST_MAX]; SM_RLIST_T *sm_rnext; }; typedef struct { /* Points to SmRpoolMagic, or is NULL if rpool is freed. */ const char *sm_magic; /* ** If this rpool object has no parent, then sm_parentlink ** is NULL. Otherwise, we set *sm_parentlink = NULL ** when this rpool is freed, so that it isn't freed a ** second time when the parent is freed. */ SM_RPOOL_RFREE_T *sm_parentlink; /* ** Memory pools */ /* Size of the next pool to be allocated, not including the header. */ size_t sm_poolsize; /* ** If an sm_rpool_malloc_x request is too big to fit ** in the current pool, and the request size > bigobjectsize, ** then the object will be given its own malloc'ed block. ** sm_bigobjectsize <= sm_poolsize. The maximum wasted space ** at the end of a pool is maxpooledobjectsize - 1. */ size_t sm_bigobjectsize; /* Points to next free byte in the current pool. */ char *sm_poolptr; /* ** Number of bytes available in the current pool. ** Initially 0. Set to 0 by sm_rpool_free. */ size_t sm_poolavail; /* Linked list of memory pools. Initially NULL. */ SM_POOLLINK_T *sm_pools; /* ** Resource lists */ SM_RESOURCE_T *sm_rptr; /* Points to next free resource slot. */ /* ** Number of available resource slots in current list. ** Initially 0. Set to 0 by sm_rpool_free. */ size_t sm_ravail; /* Linked list of resource lists. Initially NULL. */ SM_RLIST_T *sm_rlists; #if _FFR_PERF_RPOOL int sm_nbigblocks; int sm_npools; #endif } SM_RPOOL_T; extern SM_RPOOL_T * sm_rpool_new_x __P(( SM_RPOOL_T *_parent)); extern void sm_rpool_free __P(( SM_RPOOL_T *_rpool)); # if SM_HEAP_CHECK extern void * sm_rpool_malloc_tagged_x __P(( SM_RPOOL_T *_rpool, size_t _size, char *_file, int _line, int _group)); # define sm_rpool_malloc_x(rpool, size) \ sm_rpool_malloc_tagged_x(rpool, size, __FILE__, __LINE__, SmHeapGroup) extern void * sm_rpool_malloc_tagged __P(( SM_RPOOL_T *_rpool, size_t _size, char *_file, int _line, int _group)); # define sm_rpool_malloc(rpool, size) \ sm_rpool_malloc_tagged(rpool, size, __FILE__, __LINE__, SmHeapGroup) # else /* SM_HEAP_CHECK */ extern void * sm_rpool_malloc_x __P(( SM_RPOOL_T *_rpool, size_t _size)); extern void * sm_rpool_malloc __P(( SM_RPOOL_T *_rpool, size_t _size)); # define sm_rpool_malloc_tagged(rpool, size, file, line, group) sm_rpool_malloc(rpool, size) # define sm_rpool_malloc_tagged_x(rpool, size, file, line, group) sm_rpool_malloc_x(rpool, size) # endif /* SM_HEAP_CHECK */ #if DO_NOT_USE_STRCPY # if SM_HEAP_CHECK > 2 extern char *sm_rpool_strdup_tagged_x __P((SM_RPOOL_T *rpool, const char *s, char *, int, int)); # define sm_rpool_strdup_x(rpool, str) sm_rpool_strdup_tagged_x(rpool, str, "sm_rpool_strdup_x:" __FILE__, __LINE__, SmHeapGroup) # else extern char *sm_rpool_strdup_x __P((SM_RPOOL_T *rpool, const char *s)); # define sm_rpool_strdup_tagged_x(rpool, str, tag, line, group) sm_rpool_strdup_x(rpool, str) # endif #else # define sm_rpool_strdup_x(rpool, str) \ strcpy(sm_rpool_malloc_x(rpool, strlen(str) + 1), str) #endif extern SM_RPOOL_ATTACH_T sm_rpool_attach_x __P(( SM_RPOOL_T *_rpool, SM_RPOOL_RFREE_T _rfree, void *_rcontext)); # define sm_rpool_detach(a) ((void)(*(a) = NULL)) extern void sm_rpool_setsizes __P(( SM_RPOOL_T *_rpool, size_t _poolsize, size_t _bigobjectsize)); #endif /* ! SM_RPOOL_H */ sendmail-8.18.1/include/sm/tailq.h0000644000372400037240000001342714556365350016323 0ustar xbuildxbuild/* $OpenBSD: queue.h,v 1.30 2005/10/25 06:37:47 otto Exp $ */ /* $NetBSD: queue.h,v 1.11 1996/05/16 05:17:14 mycroft Exp $ */ /* * Copyright (c) 1991, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * @(#)queue.h 8.5 (Berkeley) 8/20/94 */ #ifndef SM_TAILQ_H_ #define SM_TAILQ_H_ /* * $Id: tailq.h,v 1.3 2012-01-21 00:12:14 ashish Exp $ * * This file is a modified copy of queue.h from a BSD system: * we only need tail queues here. * We do not use queue.h directly because there is a conflict with * some versions of that file on some OSs. * * A tail queue is headed by a pair of pointers, one to the head of the * list and the other to the tail of the list. The elements are doubly * linked so that an arbitrary element can be removed without a need to * traverse the list. New elements can be added to the list before or * after an existing element, at the head of the list, or at the end of * the list. A tail queue may be traversed in either direction. */ /* * Tail queue definitions. */ #define SM_TAILQ_HEAD(name, type) \ struct name { \ struct type *tqh_first; /* first element */ \ struct type **tqh_last; /* addr of last next element */ \ } #define SM_TAILQ_HEAD_INITIALIZER(head) \ { NULL, &(head).tqh_first } #define SM_TAILQ_ENTRY(type) \ struct { \ struct type *tqe_next; /* next element */ \ struct type **tqe_prev; /* address of previous next element */ \ } /* * tail queue access methods */ #define SM_TAILQ_FIRST(head) ((head)->tqh_first) #define SM_TAILQ_END(head) NULL #define SM_TAILQ_NEXT(elm, field) ((elm)->field.tqe_next) #define SM_TAILQ_LAST(head, headname) \ (*(((struct headname *)((head)->tqh_last))->tqh_last)) /* XXX */ #define SM_TAILQ_PREV(elm, headname, field) \ (*(((struct headname *)((elm)->field.tqe_prev))->tqh_last)) #define SM_TAILQ_EMPTY(head) \ (SM_TAILQ_FIRST(head) == SM_TAILQ_END(head)) #define SM_TAILQ_FOREACH(var, head, field) \ for((var) = SM_TAILQ_FIRST(head); \ (var) != SM_TAILQ_END(head); \ (var) = SM_TAILQ_NEXT(var, field)) #define SM_TAILQ_FOREACH_REVERSE(var, head, headname, field) \ for((var) = SM_TAILQ_LAST(head, headname); \ (var) != SM_TAILQ_END(head); \ (var) = SM_TAILQ_PREV(var, headname, field)) /* * Tail queue functions. */ #define SM_TAILQ_INIT(head) do { \ (head)->tqh_first = NULL; \ (head)->tqh_last = &(head)->tqh_first; \ } while (0) #define SM_TAILQ_INSERT_HEAD(head, elm, field) do { \ if (((elm)->field.tqe_next = (head)->tqh_first) != NULL) \ (head)->tqh_first->field.tqe_prev = \ &(elm)->field.tqe_next; \ else \ (head)->tqh_last = &(elm)->field.tqe_next; \ (head)->tqh_first = (elm); \ (elm)->field.tqe_prev = &(head)->tqh_first; \ } while (0) #define SM_TAILQ_INSERT_TAIL(head, elm, field) do { \ (elm)->field.tqe_next = NULL; \ (elm)->field.tqe_prev = (head)->tqh_last; \ *(head)->tqh_last = (elm); \ (head)->tqh_last = &(elm)->field.tqe_next; \ } while (0) #define SM_TAILQ_INSERT_AFTER(head, listelm, elm, field) do { \ if (((elm)->field.tqe_next = (listelm)->field.tqe_next) != NULL)\ (elm)->field.tqe_next->field.tqe_prev = \ &(elm)->field.tqe_next; \ else \ (head)->tqh_last = &(elm)->field.tqe_next; \ (listelm)->field.tqe_next = (elm); \ (elm)->field.tqe_prev = &(listelm)->field.tqe_next; \ } while (0) #define SM_TAILQ_INSERT_BEFORE(listelm, elm, field) do { \ (elm)->field.tqe_prev = (listelm)->field.tqe_prev; \ (elm)->field.tqe_next = (listelm); \ *(listelm)->field.tqe_prev = (elm); \ (listelm)->field.tqe_prev = &(elm)->field.tqe_next; \ } while (0) #define SM_TAILQ_REMOVE(head, elm, field) do { \ if (((elm)->field.tqe_next) != NULL) \ (elm)->field.tqe_next->field.tqe_prev = \ (elm)->field.tqe_prev; \ else \ (head)->tqh_last = (elm)->field.tqe_prev; \ *(elm)->field.tqe_prev = (elm)->field.tqe_next; \ } while (0) #define SM_TAILQ_REPLACE(head, elm, elm2, field) do { \ if (((elm2)->field.tqe_next = (elm)->field.tqe_next) != NULL) \ (elm2)->field.tqe_next->field.tqe_prev = \ &(elm2)->field.tqe_next; \ else \ (head)->tqh_last = &(elm2)->field.tqe_next; \ (elm2)->field.tqe_prev = (elm)->field.tqe_prev; \ *(elm2)->field.tqe_prev = (elm2); \ } while (0) #endif /* !SM_TAILQ_H_ */ sendmail-8.18.1/include/sendmail/0000755000372400037240000000000014556365433016210 5ustar xbuildxbuildsendmail-8.18.1/include/sendmail/mailstats.h0000644000372400037240000000242214556365350020360 0ustar xbuildxbuild/* * Copyright (c) 1998, 1999 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * * $Id: mailstats.h,v 8.20 2013-11-22 20:51:30 ca Exp $ */ #define STAT_VERSION 4 #define STAT_MAGIC 0x1B1DE /* ** Statistics structure. */ struct statistics { int stat_magic; /* magic number */ int stat_version; /* stat file version */ time_t stat_itime; /* file initialization time */ short stat_size; /* size of this structure */ long stat_cf; /* # from connections */ long stat_ct; /* # to connections */ long stat_cr; /* # rejected connections */ long stat_nf[MAXMAILERS]; /* # msgs from each mailer */ long stat_bf[MAXMAILERS]; /* kbytes from each mailer */ long stat_nt[MAXMAILERS]; /* # msgs to each mailer */ long stat_bt[MAXMAILERS]; /* kbytes to each mailer */ long stat_nr[MAXMAILERS]; /* # rejects by each mailer */ long stat_nd[MAXMAILERS]; /* # discards by each mailer */ long stat_nq[MAXMAILERS]; /* # quarantines by each mailer */ }; sendmail-8.18.1/include/sendmail/pathnames.h0000644000372400037240000000305014556365350020335 0ustar xbuildxbuild/*- * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * * $Id: pathnames.h,v 8.37 2013-11-22 20:51:30 ca Exp $ */ #ifndef SM_PATHNAMES_H # define SM_PATHNAMES_H # ifndef _PATH_SENDMAILCF # if defined(USE_VENDOR_CF_PATH) && defined(_PATH_VENDOR_CF) # define _PATH_SENDMAILCF _PATH_VENDOR_CF # else # define _PATH_SENDMAILCF "/etc/mail/sendmail.cf" # endif # endif /* ! _PATH_SENDMAILCF */ # ifndef _PATH_SENDMAILPID # ifdef BSD4_4 # define _PATH_SENDMAILPID "/var/run/sendmail.pid" # else # define _PATH_SENDMAILPID "/etc/mail/sendmail.pid" # endif # endif /* ! _PATH_SENDMAILPID */ # ifndef _PATH_SENDMAIL # define _PATH_SENDMAIL "/usr/lib/sendmail" # endif # ifndef _PATH_MAILDIR # define _PATH_MAILDIR "/var/spool/mail" # endif # ifndef _PATH_LOCTMP # define _PATH_LOCTMP "/tmp/local.XXXXXX" # endif # ifndef _PATH_HOSTS # define _PATH_HOSTS "/etc/hosts" # endif # ifndef _DIR_SENDMAILCF # define _DIR_SENDMAILCF "/etc/mail/" # endif /* ! _DIR_SENDMAILCF */ # define SM_GET_RIGHT_CF 0 /* get "right" .cf */ # define SM_GET_SENDMAIL_CF 1 /* always use sendmail.cf */ # define SM_GET_SUBMIT_CF 2 /* always use submit.cf */ extern char *getcfname __P((int, int, int, char *)); #endif /* ! SM_PATHNAMES_H */ sendmail-8.18.1/include/sendmail/sendmail.h0000644000372400037240000001207314556365350020156 0ustar xbuildxbuild/* * Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers. * All rights reserved. * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * By using this file, you agree to the terms and conditions set * forth in the LICENSE file which can be found at the top level of * the sendmail distribution. * * * $Id: sendmail.h,v 8.69 2013-11-22 20:51:30 ca Exp $ */ /* ** SENDMAIL.H -- Global definitions for sendmail. */ #include #include #include #include #include "conf.h" /********************************************************************** ** Table sizes, etc.... ** There shouldn't be much need to change these.... **********************************************************************/ #ifndef MAXMAILERS # define MAXMAILERS 25 /* maximum mailers known to system */ #endif /* ** Flags passed to safefile/safedirpath. */ #define SFF_ANYFILE 0L /* no special restrictions */ #define SFF_MUSTOWN 0x00000001L /* user must own this file */ #define SFF_NOSLINK 0x00000002L /* file cannot be a symbolic link */ #define SFF_ROOTOK 0x00000004L /* ok for root to own this file */ #define SFF_RUNASREALUID 0x00000008L /* if no ctladdr, run as real uid */ #define SFF_NOPATHCHECK 0x00000010L /* don't bother checking dir path */ #define SFF_SETUIDOK 0x00000020L /* set-user-ID files are ok */ #define SFF_CREAT 0x00000040L /* ok to create file if necessary */ #define SFF_REGONLY 0x00000080L /* regular files only */ #define SFF_SAFEDIRPATH 0x00000100L /* no writable directories allowed */ #define SFF_NOHLINK 0x00000200L /* file cannot have hard links */ #define SFF_NOWLINK 0x00000400L /* links only in non-writable dirs */ #define SFF_NOGWFILES 0x00000800L /* disallow world writable files */ #define SFF_NOWWFILES 0x00001000L /* disallow group writable files */ #define SFF_OPENASROOT 0x00002000L /* open as root instead of real user */ #define SFF_NOLOCK 0x00004000L /* don't lock the file */ #define SFF_NOGRFILES 0x00008000L /* disallow g readable files */ #define SFF_NOWRFILES 0x00010000L /* disallow o readable files */ #define SFF_NOTEXCL 0x00020000L /* creates don't need to be exclusive */ #define SFF_EXECOK 0x00040000L /* executable files are ok (E_SM_ISEXEC) */ #define SFF_NBLOCK 0x00080000L /* use a non-blocking lock */ #define SFF_NORFILES (SFF_NOGRFILES|SFF_NOWRFILES) /* pseudo-flags */ #define SFF_NOLINK (SFF_NOHLINK|SFF_NOSLINK) /* functions */ extern int safefile __P((char *, UID_T, GID_T, char *, long, int, struct stat *)); extern int safedirpath __P((char *, UID_T, GID_T, char *, long, int, int)); extern int safeopen __P((char *, int, int, long)); extern SM_FILE_T*safefopen __P((char *, int, int, long)); extern int dfopen __P((char *, int, int, long)); extern bool filechanged __P((char *, int, struct stat *)); /* ** DontBlameSendmail options ** ** Hopefully nobody uses these. */ #define DBS_SAFE 0 #define DBS_ASSUMESAFECHOWN 1 #define DBS_GROUPWRITABLEDIRPATHSAFE 2 #define DBS_GROUPWRITABLEFORWARDFILESAFE 3 #define DBS_GROUPWRITABLEINCLUDEFILESAFE 4 #define DBS_GROUPWRITABLEALIASFILE 5 #define DBS_WORLDWRITABLEALIASFILE 6 #define DBS_FORWARDFILEINUNSAFEDIRPATH 7 #define DBS_MAPINUNSAFEDIRPATH 8 #define DBS_LINKEDALIASFILEINWRITABLEDIR 9 #define DBS_LINKEDCLASSFILEINWRITABLEDIR 10 #define DBS_LINKEDFORWARDFILEINWRITABLEDIR 11 #define DBS_LINKEDINCLUDEFILEINWRITABLEDIR 12 #define DBS_LINKEDMAPINWRITABLEDIR 13 #define DBS_LINKEDSERVICESWITCHFILEINWRITABLEDIR 14 #define DBS_FILEDELIVERYTOHARDLINK 15 #define DBS_FILEDELIVERYTOSYMLINK 16 #define DBS_WRITEMAPTOHARDLINK 17 #define DBS_WRITEMAPTOSYMLINK 18 #define DBS_WRITESTATSTOHARDLINK 19 #define DBS_WRITESTATSTOSYMLINK 20 #define DBS_FORWARDFILEINGROUPWRITABLEDIRPATH 21 #define DBS_INCLUDEFILEINGROUPWRITABLEDIRPATH 22 #define DBS_CLASSFILEINUNSAFEDIRPATH 23 #define DBS_ERRORHEADERINUNSAFEDIRPATH 24 #define DBS_HELPFILEINUNSAFEDIRPATH 25 #define DBS_FORWARDFILEINUNSAFEDIRPATHSAFE 26 #define DBS_INCLUDEFILEINUNSAFEDIRPATHSAFE 27 #define DBS_RUNPROGRAMINUNSAFEDIRPATH 28 #define DBS_RUNWRITABLEPROGRAM 29 #define DBS_INCLUDEFILEINUNSAFEDIRPATH 30 #define DBS_NONROOTSAFEADDR 31 #define DBS_TRUSTSTICKYBIT 32 #define DBS_DONTWARNFORWARDFILEINUNSAFEDIRPATH 33 #define DBS_INSUFFICIENTENTROPY 34 #define DBS_GROUPREADABLESASLDBFILE 35 #define DBS_GROUPWRITABLESASLDBFILE 36 #define DBS_GROUPWRITABLEFORWARDFILE 37 #define DBS_GROUPWRITABLEINCLUDEFILE 38 #define DBS_WORLDWRITABLEFORWARDFILE 39 #define DBS_WORLDWRITABLEINCLUDEFILE 40 #define DBS_GROUPREADABLEKEYFILE 41 #define DBS_GROUPREADABLEAUTHINFOFILE 42 #define DBS_CERTOWNER 43 /* struct defining such things */ struct dbsval { char *dbs_name; /* name of DontBlameSendmail flag */ unsigned char dbs_flag; /* numeric level */ }; /* Flags for submitmode */ #define SUBMIT_UNKNOWN 0x0000 /* unknown agent type */ #define SUBMIT_MTA 0x0001 /* act like a message transfer agent */ #define SUBMIT_MSA 0x0002 /* act like a message submission agent */