envelope.c revision 94334
138032Speter/* 294334Sgshapiro * Copyright (c) 1998-2002 Sendmail, Inc. and its suppliers. 364562Sgshapiro * All rights reserved. 438032Speter * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. 538032Speter * Copyright (c) 1988, 1993 638032Speter * The Regents of the University of California. All rights reserved. 738032Speter * 838032Speter * By using this file, you agree to the terms and conditions set 938032Speter * forth in the LICENSE file which can be found at the top level of 1038032Speter * the sendmail distribution. 1138032Speter * 1238032Speter */ 1338032Speter 1464562Sgshapiro#include <sendmail.h> 1538032Speter 1694334SgshapiroSM_RCSID("@(#)$Id: envelope.c,v 8.281 2002/02/06 19:54:54 ca Exp $") 1764562Sgshapiro 1838032Speter/* 1990792Sgshapiro** NEWENVELOPE -- fill in a new envelope 2038032Speter** 2138032Speter** Supports inheritance. 2238032Speter** 2338032Speter** Parameters: 2438032Speter** e -- the new envelope to fill in. 2538032Speter** parent -- the envelope to be the parent of e. 2690792Sgshapiro** rpool -- either NULL, or a pointer to a resource pool 2790792Sgshapiro** from which envelope memory is allocated, and 2890792Sgshapiro** to which envelope resources are attached. 2938032Speter** 3038032Speter** Returns: 3138032Speter** e. 3238032Speter** 3338032Speter** Side Effects: 3438032Speter** none. 3538032Speter*/ 3638032Speter 3738032SpeterENVELOPE * 3890792Sgshapironewenvelope(e, parent, rpool) 3938032Speter register ENVELOPE *e; 4038032Speter register ENVELOPE *parent; 4190792Sgshapiro SM_RPOOL_T *rpool; 4238032Speter{ 4390792Sgshapiro /* 4490792Sgshapiro ** This code used to read: 4590792Sgshapiro ** if (e == parent && e->e_parent != NULL) 4690792Sgshapiro ** parent = e->e_parent; 4790792Sgshapiro ** So if e == parent && e->e_parent == NULL then we would 4890792Sgshapiro ** set e->e_parent = e, which creates a loop in the e_parent chain. 4990792Sgshapiro ** This meant macvalue() could go into an infinite loop. 5090792Sgshapiro */ 5190792Sgshapiro 5290792Sgshapiro if (e == parent) 5338032Speter parent = e->e_parent; 5490792Sgshapiro clearenvelope(e, true, rpool); 5538032Speter if (e == CurEnv) 5664562Sgshapiro memmove((char *) &e->e_from, 5764562Sgshapiro (char *) &NullAddress, 5864562Sgshapiro sizeof e->e_from); 5938032Speter else 6064562Sgshapiro memmove((char *) &e->e_from, 6164562Sgshapiro (char *) &CurEnv->e_from, 6264562Sgshapiro sizeof e->e_from); 6338032Speter e->e_parent = parent; 6464562Sgshapiro assign_queueid(e); 6538032Speter e->e_ctime = curtime(); 6638032Speter if (parent != NULL) 6790792Sgshapiro { 6838032Speter e->e_msgpriority = parent->e_msgsize; 6990792Sgshapiro#if _FFR_QUARANTINE 7090792Sgshapiro if (parent->e_quarmsg == NULL) 7190792Sgshapiro { 7290792Sgshapiro e->e_quarmsg = NULL; 7390792Sgshapiro macdefine(&e->e_macro, A_PERM, 7490792Sgshapiro macid("{quarantine}"), ""); 7590792Sgshapiro } 7690792Sgshapiro else 7790792Sgshapiro { 7890792Sgshapiro e->e_quarmsg = sm_rpool_strdup_x(rpool, 7990792Sgshapiro parent->e_quarmsg); 8090792Sgshapiro macdefine(&e->e_macro, A_PERM, 8190792Sgshapiro macid("{quarantine}"), e->e_quarmsg); 8290792Sgshapiro } 8390792Sgshapiro#endif /* _FFR_QUARANTINE */ 8490792Sgshapiro } 8538032Speter e->e_puthdr = putheader; 8638032Speter e->e_putbody = putbody; 8738032Speter if (CurEnv->e_xfp != NULL) 8890792Sgshapiro (void) sm_io_flush(CurEnv->e_xfp, SM_TIME_DEFAULT); 8938032Speter 9064562Sgshapiro return e; 9138032Speter} 9290792Sgshapiro 9390792Sgshapiro/* values for msg_timeout, see also IS_* below for usage (bit layout) */ 9490792Sgshapiro#define MSG_T_O 0x01 /* normal timeout */ 9590792Sgshapiro#define MSG_T_O_NOW 0x02 /* NOW timeout */ 9690792Sgshapiro#define MSG_NOT_BY 0x04 /* Deliver-By time exceeded, mode R */ 9790792Sgshapiro#define MSG_WARN 0x10 /* normal queue warning */ 9890792Sgshapiro#define MSG_WARN_BY 0x20 /* Deliver-By time exceeded, mode N */ 9990792Sgshapiro 10090792Sgshapiro#define IS_MSG_ERR(x) (((x) & 0x0f) != 0) /* return an error */ 10190792Sgshapiro 10290792Sgshapiro/* immediate return */ 10390792Sgshapiro#define IS_IMM_RET(x) (((x) & (MSG_T_O_NOW|MSG_NOT_BY)) != 0) 10490792Sgshapiro#define IS_MSG_WARN(x) (((x) & 0xf0) != 0) /* return a warning */ 10590792Sgshapiro 10690792Sgshapiro/* 10738032Speter** DROPENVELOPE -- deallocate an envelope. 10838032Speter** 10938032Speter** Parameters: 11038032Speter** e -- the envelope to deallocate. 11138032Speter** fulldrop -- if set, do return receipts. 11290792Sgshapiro** split -- if true, split by recipient if message is queued up 11338032Speter** 11438032Speter** Returns: 11538032Speter** none. 11638032Speter** 11738032Speter** Side Effects: 11838032Speter** housekeeping necessary to dispose of an envelope. 11938032Speter** Unlocks this queue file. 12038032Speter*/ 12138032Speter 12238032Spetervoid 12390792Sgshapirodropenvelope(e, fulldrop, split) 12438032Speter register ENVELOPE *e; 12538032Speter bool fulldrop; 12690792Sgshapiro bool split; 12738032Speter{ 12890792Sgshapiro bool panic = false; 12990792Sgshapiro bool queueit = false; 13090792Sgshapiro int msg_timeout = 0; 13190792Sgshapiro bool failure_return = false; 13290792Sgshapiro bool delay_return = false; 13390792Sgshapiro bool success_return = false; 13464562Sgshapiro bool pmnotify = bitset(EF_PM_NOTIFY, e->e_flags); 13590792Sgshapiro bool done = false; 13638032Speter register ADDRESS *q; 13738032Speter char *id = e->e_id; 13871345Sgshapiro time_t now; 13938032Speter char buf[MAXLINE]; 14038032Speter 14138032Speter if (tTd(50, 1)) 14238032Speter { 14390792Sgshapiro sm_dprintf("dropenvelope %p: id=", e); 14438032Speter xputs(e->e_id); 14590792Sgshapiro sm_dprintf(", flags="); 14638032Speter printenvflags(e); 14738032Speter if (tTd(50, 10)) 14838032Speter { 14990792Sgshapiro sm_dprintf("sendq="); 15090792Sgshapiro printaddr(e->e_sendqueue, true); 15138032Speter } 15238032Speter } 15338032Speter 15438032Speter if (LogLevel > 84) 15538032Speter sm_syslog(LOG_DEBUG, id, 15664562Sgshapiro "dropenvelope, e_flags=0x%lx, OpMode=%c, pid=%d", 15790792Sgshapiro e->e_flags, OpMode, (int) CurrentPid); 15838032Speter 15938032Speter /* we must have an id to remove disk files */ 16038032Speter if (id == NULL) 16138032Speter return; 16238032Speter 16338032Speter /* if verify-only mode, we can skip most of this */ 16438032Speter if (OpMode == MD_VERIFY) 16538032Speter goto simpledrop; 16638032Speter 16738032Speter if (LogLevel > 4 && bitset(EF_LOGSENDER, e->e_flags)) 16838032Speter logsender(e, NULL); 16938032Speter e->e_flags &= ~EF_LOGSENDER; 17038032Speter 17138032Speter /* post statistics */ 17238032Speter poststats(StatFile); 17338032Speter 17438032Speter /* 17538032Speter ** Extract state information from dregs of send list. 17638032Speter */ 17738032Speter 17871345Sgshapiro now = curtime(); 17977349Sgshapiro if (now >= e->e_ctime + TimeOuts.to_q_return[e->e_timeoutclass]) 18090792Sgshapiro msg_timeout = MSG_T_O; 18190792Sgshapiro if (IS_DLVR_RETURN(e) && e->e_deliver_by > 0 && 18290792Sgshapiro now >= e->e_ctime + e->e_deliver_by && 18364562Sgshapiro !bitset(EF_RESPONSE, e->e_flags)) 18464562Sgshapiro { 18590792Sgshapiro msg_timeout = MSG_NOT_BY; 18664562Sgshapiro e->e_flags |= EF_FATALERRS|EF_CLRQUEUE; 18764562Sgshapiro } 18890792Sgshapiro else if (TimeOuts.to_q_return[e->e_timeoutclass] == NOW && 18990792Sgshapiro !bitset(EF_RESPONSE, e->e_flags)) 19090792Sgshapiro { 19190792Sgshapiro msg_timeout = MSG_T_O_NOW; 19290792Sgshapiro e->e_flags |= EF_FATALERRS|EF_CLRQUEUE; 19390792Sgshapiro } 19464562Sgshapiro 19538032Speter e->e_flags &= ~EF_QUEUERUN; 19638032Speter for (q = e->e_sendqueue; q != NULL; q = q->q_next) 19738032Speter { 19864562Sgshapiro if (QS_IS_UNDELIVERED(q->q_state)) 19990792Sgshapiro queueit = true; 20038032Speter 20138032Speter /* see if a notification is needed */ 20238032Speter if (bitset(QPINGONFAILURE, q->q_flags) && 20390792Sgshapiro ((IS_MSG_ERR(msg_timeout) && 20490792Sgshapiro QS_IS_UNDELIVERED(q->q_state)) || 20564562Sgshapiro QS_IS_BADADDR(q->q_state) || 20690792Sgshapiro IS_IMM_RET(msg_timeout))) 20738032Speter { 20890792Sgshapiro failure_return = true; 20964562Sgshapiro if (!done && q->q_owner == NULL && 21064562Sgshapiro !emptyaddr(&e->e_from)) 21164562Sgshapiro { 21238032Speter (void) sendtolist(e->e_from.q_paddr, NULLADDR, 21338032Speter &e->e_errorqueue, 0, e); 21490792Sgshapiro done = true; 21564562Sgshapiro } 21638032Speter } 21790792Sgshapiro else if ((bitset(QPINGONSUCCESS, q->q_flags) && 21890792Sgshapiro ((QS_IS_SENT(q->q_state) && 21990792Sgshapiro bitnset(M_LOCALMAILER, q->q_mailer->m_flags)) || 22090792Sgshapiro bitset(QRELAYED|QEXPANDED|QDELIVERED, q->q_flags))) || 22190792Sgshapiro bitset(QBYTRACE, q->q_flags) || 22290792Sgshapiro bitset(QBYNRELAY, q->q_flags)) 22338032Speter { 22490792Sgshapiro success_return = true; 22538032Speter } 22638032Speter } 22738032Speter 22838032Speter if (e->e_class < 0) 22938032Speter e->e_flags |= EF_NO_BODY_RETN; 23038032Speter 23138032Speter /* 23238032Speter ** See if the message timed out. 23338032Speter */ 23438032Speter 23538032Speter if (!queueit) 23664562Sgshapiro /* EMPTY */ 23738032Speter /* nothing to do */ ; 23890792Sgshapiro else if (IS_MSG_ERR(msg_timeout)) 23938032Speter { 24038032Speter if (failure_return) 24138032Speter { 24290792Sgshapiro if (msg_timeout == MSG_NOT_BY) 24390792Sgshapiro { 24490792Sgshapiro (void) sm_snprintf(buf, sizeof buf, 24590792Sgshapiro "delivery time expired %lds", 24690792Sgshapiro e->e_deliver_by); 24790792Sgshapiro } 24890792Sgshapiro else 24990792Sgshapiro { 25090792Sgshapiro (void) sm_snprintf(buf, sizeof buf, 25164562Sgshapiro "Cannot send message for %s", 25290792Sgshapiro pintvl(TimeOuts.to_q_return[e->e_timeoutclass], 25390792Sgshapiro false)); 25490792Sgshapiro } 25590792Sgshapiro 25690792Sgshapiro /* don't free, allocated from e_rpool */ 25790792Sgshapiro e->e_message = sm_rpool_strdup_x(e->e_rpool, buf); 25838032Speter message(buf); 25938032Speter e->e_flags |= EF_CLRQUEUE; 26038032Speter } 26190792Sgshapiro if (msg_timeout == MSG_NOT_BY) 26290792Sgshapiro { 26390792Sgshapiro (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, 26490792Sgshapiro "Delivery time (%lds) expired\n", 26590792Sgshapiro e->e_deliver_by); 26690792Sgshapiro } 26790792Sgshapiro else 26890792Sgshapiro (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, 26990792Sgshapiro "Message could not be delivered for %s\n", 27090792Sgshapiro pintvl(TimeOuts.to_q_return[e->e_timeoutclass], 27190792Sgshapiro false)); 27290792Sgshapiro (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, 27390792Sgshapiro "Message will be deleted from queue\n"); 27438032Speter for (q = e->e_sendqueue; q != NULL; q = q->q_next) 27538032Speter { 27664562Sgshapiro if (QS_IS_UNDELIVERED(q->q_state)) 27738032Speter { 27864562Sgshapiro q->q_state = QS_BADADDR; 27990792Sgshapiro if (msg_timeout == MSG_NOT_BY) 28090792Sgshapiro q->q_status = "5.4.7"; 28190792Sgshapiro else 28290792Sgshapiro q->q_status = "4.4.7"; 28338032Speter } 28438032Speter } 28538032Speter } 28690792Sgshapiro else 28738032Speter { 28890792Sgshapiro if (TimeOuts.to_q_warning[e->e_timeoutclass] > 0 && 28990792Sgshapiro now >= e->e_ctime + 29090792Sgshapiro TimeOuts.to_q_warning[e->e_timeoutclass]) 29190792Sgshapiro msg_timeout = MSG_WARN; 29290792Sgshapiro else if (IS_DLVR_NOTIFY(e) && 29390792Sgshapiro e->e_deliver_by > 0 && 29490792Sgshapiro now >= e->e_ctime + e->e_deliver_by) 29590792Sgshapiro msg_timeout = MSG_WARN_BY; 29690792Sgshapiro 29790792Sgshapiro if (IS_MSG_WARN(msg_timeout)) 29838032Speter { 29990792Sgshapiro if (!bitset(EF_WARNING|EF_RESPONSE, e->e_flags) && 30090792Sgshapiro e->e_class >= 0 && 30190792Sgshapiro e->e_from.q_paddr != NULL && 30290792Sgshapiro strcmp(e->e_from.q_paddr, "<>") != 0 && 30390792Sgshapiro sm_strncasecmp(e->e_from.q_paddr, "owner-", 6) != 0 && 30490792Sgshapiro (strlen(e->e_from.q_paddr) <= 8 || 30590792Sgshapiro sm_strcasecmp(&e->e_from.q_paddr[strlen(e->e_from.q_paddr) - 8], 30690792Sgshapiro "-request") != 0)) 30738032Speter { 30890792Sgshapiro for (q = e->e_sendqueue; q != NULL; 30990792Sgshapiro q = q->q_next) 31090792Sgshapiro { 31190792Sgshapiro if (QS_IS_UNDELIVERED(q->q_state) 31264562Sgshapiro#if _FFR_NODELAYDSN_ON_HOLD 31390792Sgshapiro && !bitnset(M_HOLD, 31490792Sgshapiro q->q_mailer->m_flags) 31564562Sgshapiro#endif /* _FFR_NODELAYDSN_ON_HOLD */ 31690792Sgshapiro ) 31790792Sgshapiro { 31890792Sgshapiro if (msg_timeout == 31990792Sgshapiro MSG_WARN_BY && 32090792Sgshapiro (bitset(QPINGONDELAY, 32190792Sgshapiro q->q_flags) || 32290792Sgshapiro !bitset(QHASNOTIFY, 32390792Sgshapiro q->q_flags)) 32490792Sgshapiro ) 32590792Sgshapiro { 32690792Sgshapiro q->q_flags |= QBYNDELAY; 32790792Sgshapiro delay_return = true; 32890792Sgshapiro } 32990792Sgshapiro if (bitset(QPINGONDELAY, 33090792Sgshapiro q->q_flags)) 33190792Sgshapiro { 33290792Sgshapiro q->q_flags |= QDELAYED; 33390792Sgshapiro delay_return = true; 33490792Sgshapiro } 33590792Sgshapiro } 33690792Sgshapiro } 33790792Sgshapiro } 33890792Sgshapiro if (delay_return) 33990792Sgshapiro { 34090792Sgshapiro if (msg_timeout == MSG_WARN_BY) 34138032Speter { 34290792Sgshapiro (void) sm_snprintf(buf, sizeof buf, 34390792Sgshapiro "Warning: Delivery time (%lds) exceeded", 34490792Sgshapiro e->e_deliver_by); 34538032Speter } 34690792Sgshapiro else 34790792Sgshapiro (void) sm_snprintf(buf, sizeof buf, 34890792Sgshapiro "Warning: could not send message for past %s", 34990792Sgshapiro pintvl(TimeOuts.to_q_warning[e->e_timeoutclass], 35090792Sgshapiro false)); 35190792Sgshapiro 35290792Sgshapiro /* don't free, allocated from e_rpool */ 35390792Sgshapiro e->e_message = sm_rpool_strdup_x(e->e_rpool, 35490792Sgshapiro buf); 35590792Sgshapiro message(buf); 35690792Sgshapiro e->e_flags |= EF_WARNING; 35738032Speter } 35890792Sgshapiro if (msg_timeout == MSG_WARN_BY) 35990792Sgshapiro { 36090792Sgshapiro (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, 36190792Sgshapiro "Warning: Delivery time (%lds) exceeded\n", 36290792Sgshapiro e->e_deliver_by); 36390792Sgshapiro } 36490792Sgshapiro else 36590792Sgshapiro (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, 36690792Sgshapiro "Warning: message still undelivered after %s\n", 36790792Sgshapiro pintvl(TimeOuts.to_q_warning[e->e_timeoutclass], 36890792Sgshapiro false)); 36990792Sgshapiro (void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT, 37090792Sgshapiro "Will keep trying until message is %s old\n", 37190792Sgshapiro pintvl(TimeOuts.to_q_return[e->e_timeoutclass], 37290792Sgshapiro false)); 37338032Speter } 37438032Speter } 37538032Speter 37638032Speter if (tTd(50, 2)) 37790792Sgshapiro sm_dprintf("failure_return=%d delay_return=%d success_return=%d queueit=%d\n", 37838032Speter failure_return, delay_return, success_return, queueit); 37938032Speter 38038032Speter /* 38138032Speter ** If we had some fatal error, but no addresses are marked as 38238032Speter ** bad, mark them _all_ as bad. 38338032Speter */ 38438032Speter 38538032Speter if (bitset(EF_FATALERRS, e->e_flags) && !failure_return) 38638032Speter { 38738032Speter for (q = e->e_sendqueue; q != NULL; q = q->q_next) 38838032Speter { 38964562Sgshapiro if ((QS_IS_OK(q->q_state) || 39064562Sgshapiro QS_IS_VERIFIED(q->q_state)) && 39138032Speter bitset(QPINGONFAILURE, q->q_flags)) 39238032Speter { 39390792Sgshapiro failure_return = true; 39464562Sgshapiro q->q_state = QS_BADADDR; 39538032Speter } 39638032Speter } 39738032Speter } 39838032Speter 39938032Speter /* 40038032Speter ** Send back return receipts as requested. 40138032Speter */ 40238032Speter 40338032Speter if (success_return && !failure_return && !delay_return && fulldrop && 40438032Speter !bitset(PRIV_NORECEIPTS, PrivacyFlags) && 40538032Speter strcmp(e->e_from.q_paddr, "<>") != 0) 40638032Speter { 40738032Speter auto ADDRESS *rlist = NULL; 40838032Speter 40938032Speter if (tTd(50, 8)) 41090792Sgshapiro sm_dprintf("dropenvelope(%s): sending return receipt\n", 41164562Sgshapiro id); 41238032Speter e->e_flags |= EF_SENDRECEIPT; 41338032Speter (void) sendtolist(e->e_from.q_paddr, NULLADDR, &rlist, 0, e); 41438032Speter (void) returntosender("Return receipt", rlist, RTSF_NO_BODY, e); 41538032Speter } 41638032Speter e->e_flags &= ~EF_SENDRECEIPT; 41738032Speter 41838032Speter /* 41938032Speter ** Arrange to send error messages if there are fatal errors. 42038032Speter */ 42138032Speter 42238032Speter if ((failure_return || delay_return) && e->e_errormode != EM_QUIET) 42338032Speter { 42438032Speter if (tTd(50, 8)) 42590792Sgshapiro sm_dprintf("dropenvelope(%s): saving mail\n", id); 42690792Sgshapiro panic = savemail(e, !bitset(EF_NO_BODY_RETN, e->e_flags)); 42738032Speter } 42838032Speter 42938032Speter /* 43038032Speter ** Arrange to send warning messages to postmaster as requested. 43138032Speter */ 43238032Speter 43364562Sgshapiro if ((failure_return || pmnotify) && 43438032Speter PostMasterCopy != NULL && 43564562Sgshapiro !bitset(EF_RESPONSE, e->e_flags) && 43664562Sgshapiro e->e_class >= 0) 43738032Speter { 43838032Speter auto ADDRESS *rlist = NULL; 43964562Sgshapiro char pcopy[MAXNAME]; 44038032Speter 44164562Sgshapiro if (failure_return) 44264562Sgshapiro { 44364562Sgshapiro expand(PostMasterCopy, pcopy, sizeof pcopy, e); 44464562Sgshapiro 44564562Sgshapiro if (tTd(50, 8)) 44690792Sgshapiro sm_dprintf("dropenvelope(%s): sending postmaster copy to %s\n", 44764562Sgshapiro id, pcopy); 44864562Sgshapiro (void) sendtolist(pcopy, NULLADDR, &rlist, 0, e); 44964562Sgshapiro } 45064562Sgshapiro if (pmnotify) 45164562Sgshapiro (void) sendtolist("postmaster", NULLADDR, 45264562Sgshapiro &rlist, 0, e); 45364562Sgshapiro (void) returntosender(e->e_message, rlist, 45464562Sgshapiro RTSF_PM_BOUNCE|RTSF_NO_BODY, e); 45538032Speter } 45638032Speter 45738032Speter /* 45838032Speter ** Instantiate or deinstantiate the queue. 45938032Speter */ 46038032Speter 46138032Spetersimpledrop: 46238032Speter if (tTd(50, 8)) 46390792Sgshapiro sm_dprintf("dropenvelope(%s): at simpledrop, queueit=%d\n", 46438032Speter id, queueit); 46538032Speter if (!queueit || bitset(EF_CLRQUEUE, e->e_flags)) 46638032Speter { 46738032Speter if (tTd(50, 1)) 46838032Speter { 46990792Sgshapiro sm_dprintf("\n===== Dropping queue files for %s... queueit=%d, e_flags=", 47038032Speter e->e_id, queueit); 47138032Speter printenvflags(e); 47238032Speter } 47390792Sgshapiro if (!panic) 47490792Sgshapiro (void) xunlink(queuename(e, DATAFL_LETTER)); 47590792Sgshapiro#if _FFR_QUARANTINE 47690792Sgshapiro if (panic && QueueMode == QM_LOST) 47790792Sgshapiro { 47890792Sgshapiro /* 47990792Sgshapiro ** leave the Qf file behind as 48090792Sgshapiro ** the delivery attempt failed. 48190792Sgshapiro */ 48238032Speter 48390792Sgshapiro /* EMPTY */ 48490792Sgshapiro } 48590792Sgshapiro else 48690792Sgshapiro#endif /* _FFR_QUARANTINE */ 48790792Sgshapiro if (xunlink(queuename(e, ANYQFL_LETTER)) == 0) 48890792Sgshapiro { 48990792Sgshapiro /* add to available space in filesystem */ 49090792Sgshapiro updfs(e, true, !panic); 49190792Sgshapiro } 49290792Sgshapiro 49364562Sgshapiro if (e->e_ntries > 0 && LogLevel > 9) 49464562Sgshapiro sm_syslog(LOG_INFO, id, "done; delay=%s, ntries=%d", 49590792Sgshapiro pintvl(curtime() - e->e_ctime, true), 49664562Sgshapiro e->e_ntries); 49738032Speter } 49838032Speter else if (queueit || !bitset(EF_INQUEUE, e->e_flags)) 49938032Speter { 50090792Sgshapiro if (!split) 50190792Sgshapiro queueup(e, false, true); 50290792Sgshapiro else 50390792Sgshapiro { 50490792Sgshapiro ENVELOPE *oldsib; 50590792Sgshapiro ENVELOPE *ee; 50690792Sgshapiro 50790792Sgshapiro /* 50890792Sgshapiro ** Save old sibling and set it to NULL to avoid 50990792Sgshapiro ** queueing up the same envelopes again. 51090792Sgshapiro ** This requires that envelopes in that list have 51190792Sgshapiro ** been take care of before (or at some other place). 51290792Sgshapiro */ 51390792Sgshapiro 51490792Sgshapiro oldsib = e->e_sibling; 51590792Sgshapiro e->e_sibling = NULL; 51690792Sgshapiro if (!split_by_recipient(e) && 51790792Sgshapiro bitset(EF_FATALERRS, e->e_flags)) 51890792Sgshapiro { 51990792Sgshapiro syserr("!dropenvelope(%s): cannot commit data file %s, uid=%d", 52090792Sgshapiro e->e_id, queuename(e, DATAFL_LETTER), 52190792Sgshapiro geteuid()); 52290792Sgshapiro } 52390792Sgshapiro for (ee = e->e_sibling; ee != NULL; ee = ee->e_sibling) 52490792Sgshapiro queueup(ee, false, true); 52590792Sgshapiro queueup(e, false, true); 52690792Sgshapiro 52790792Sgshapiro /* clean up */ 52890792Sgshapiro for (ee = e->e_sibling; ee != NULL; ee = ee->e_sibling) 52990792Sgshapiro { 53090792Sgshapiro /* now unlock the job */ 53190792Sgshapiro if (tTd(50, 8)) 53290792Sgshapiro sm_dprintf("dropenvelope(%s): unlocking job\n", 53390792Sgshapiro ee->e_id); 53490792Sgshapiro closexscript(ee); 53590792Sgshapiro unlockqueue(ee); 53690792Sgshapiro 53790792Sgshapiro /* this envelope is marked unused */ 53890792Sgshapiro if (ee->e_dfp != NULL) 53990792Sgshapiro { 54090792Sgshapiro (void) sm_io_close(ee->e_dfp, 54190792Sgshapiro SM_TIME_DEFAULT); 54290792Sgshapiro ee->e_dfp = NULL; 54390792Sgshapiro } 54490792Sgshapiro ee->e_id = NULL; 54590792Sgshapiro ee->e_flags &= ~EF_HAS_DF; 54690792Sgshapiro } 54790792Sgshapiro e->e_sibling = oldsib; 54890792Sgshapiro } 54938032Speter } 55038032Speter 55138032Speter /* now unlock the job */ 55238032Speter if (tTd(50, 8)) 55390792Sgshapiro sm_dprintf("dropenvelope(%s): unlocking job\n", id); 55438032Speter closexscript(e); 55538032Speter unlockqueue(e); 55638032Speter 55738032Speter /* make sure that this envelope is marked unused */ 55838032Speter if (e->e_dfp != NULL) 55990792Sgshapiro { 56090792Sgshapiro (void) sm_io_close(e->e_dfp, SM_TIME_DEFAULT); 56190792Sgshapiro e->e_dfp = NULL; 56290792Sgshapiro } 56338032Speter e->e_id = NULL; 56438032Speter e->e_flags &= ~EF_HAS_DF; 56538032Speter} 56690792Sgshapiro/* 56738032Speter** CLEARENVELOPE -- clear an envelope without unlocking 56838032Speter** 56938032Speter** This is normally used by a child process to get a clean 57038032Speter** envelope without disturbing the parent. 57138032Speter** 57238032Speter** Parameters: 57338032Speter** e -- the envelope to clear. 57438032Speter** fullclear - if set, the current envelope is total 57538032Speter** garbage and should be ignored; otherwise, 57638032Speter** release any resources it may indicate. 57790792Sgshapiro** rpool -- either NULL, or a pointer to a resource pool 57890792Sgshapiro** from which envelope memory is allocated, and 57990792Sgshapiro** to which envelope resources are attached. 58038032Speter** 58138032Speter** Returns: 58238032Speter** none. 58338032Speter** 58438032Speter** Side Effects: 58538032Speter** Closes files associated with the envelope. 58638032Speter** Marks the envelope as unallocated. 58738032Speter*/ 58838032Speter 58938032Spetervoid 59090792Sgshapiroclearenvelope(e, fullclear, rpool) 59138032Speter register ENVELOPE *e; 59238032Speter bool fullclear; 59390792Sgshapiro SM_RPOOL_T *rpool; 59438032Speter{ 59538032Speter register HDR *bh; 59638032Speter register HDR **nhp; 59738032Speter extern ENVELOPE BlankEnvelope; 59890792Sgshapiro char **p; 59938032Speter 60038032Speter if (!fullclear) 60138032Speter { 60238032Speter /* clear out any file information */ 60338032Speter if (e->e_xfp != NULL) 60490792Sgshapiro (void) sm_io_close(e->e_xfp, SM_TIME_DEFAULT); 60538032Speter if (e->e_dfp != NULL) 60690792Sgshapiro (void) sm_io_close(e->e_dfp, SM_TIME_DEFAULT); 60738032Speter e->e_xfp = e->e_dfp = NULL; 60838032Speter } 60938032Speter 61090792Sgshapiro /* 61190792Sgshapiro ** Copy BlankEnvelope into *e. 61290792Sgshapiro ** It is not safe to simply copy pointers to strings; 61390792Sgshapiro ** the strings themselves must be copied (or set to NULL). 61490792Sgshapiro ** The problem is that when we assign a new string value to 61590792Sgshapiro ** a member of BlankEnvelope, we free the old string. 61690792Sgshapiro ** We did not need to do this copying in sendmail 8.11 :-( 61790792Sgshapiro ** and it is a potential performance hit. Reference counted 61890792Sgshapiro ** strings are one way out. 61990792Sgshapiro */ 62090792Sgshapiro 62190792Sgshapiro *e = BlankEnvelope; 62238032Speter e->e_message = NULL; 62390792Sgshapiro#if _FFR_QUARANTINE 62490792Sgshapiro e->e_qfletter = '\0'; 62590792Sgshapiro e->e_quarmsg = NULL; 62690792Sgshapiro macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), ""); 62790792Sgshapiro#endif /* _FFR_QUARANTINE */ 62890792Sgshapiro 62990792Sgshapiro /* 63090792Sgshapiro ** Copy the macro table. 63190792Sgshapiro ** We might be able to avoid this by zeroing the macro table 63290792Sgshapiro ** and always searching BlankEnvelope.e_macro after e->e_macro 63390792Sgshapiro ** in macvalue(). 63490792Sgshapiro */ 63590792Sgshapiro 63690792Sgshapiro for (p = &e->e_macro.mac_table[0]; 63790792Sgshapiro p <= &e->e_macro.mac_table[MAXMACROID]; 63890792Sgshapiro ++p) 63990792Sgshapiro { 64090792Sgshapiro if (*p != NULL) 64190792Sgshapiro *p = sm_rpool_strdup_x(rpool, *p); 64290792Sgshapiro } 64390792Sgshapiro 64490792Sgshapiro /* 64590792Sgshapiro ** XXX There are many strings in the envelope structure 64690792Sgshapiro ** XXX that we are not attempting to copy here. 64790792Sgshapiro ** XXX Investigate this further. 64890792Sgshapiro */ 64990792Sgshapiro 65090792Sgshapiro e->e_rpool = rpool; 65190792Sgshapiro e->e_macro.mac_rpool = rpool; 65238032Speter if (Verbose) 65364562Sgshapiro set_delivery_mode(SM_DELIVER, e); 65438032Speter bh = BlankEnvelope.e_header; 65538032Speter nhp = &e->e_header; 65638032Speter while (bh != NULL) 65738032Speter { 65890792Sgshapiro *nhp = (HDR *) sm_rpool_malloc_x(rpool, sizeof *bh); 65964562Sgshapiro memmove((char *) *nhp, (char *) bh, sizeof *bh); 66038032Speter bh = bh->h_link; 66138032Speter nhp = &(*nhp)->h_link; 66238032Speter } 66338032Speter} 66490792Sgshapiro/* 66538032Speter** INITSYS -- initialize instantiation of system 66638032Speter** 66738032Speter** In Daemon mode, this is done in the child. 66838032Speter** 66938032Speter** Parameters: 67064562Sgshapiro** e -- the envelope to use. 67138032Speter** 67238032Speter** Returns: 67338032Speter** none. 67438032Speter** 67538032Speter** Side Effects: 67638032Speter** Initializes the system macros, some global variables, 67738032Speter** etc. In particular, the current time in various 67838032Speter** forms is set. 67938032Speter*/ 68038032Speter 68138032Spetervoid 68238032Speterinitsys(e) 68338032Speter register ENVELOPE *e; 68438032Speter{ 68590792Sgshapiro char buf[10]; 68638032Speter#ifdef TTYNAME 68738032Speter static char ybuf[60]; /* holds tty id */ 68838032Speter register char *p; 68938032Speter extern char *ttyname(); 69038032Speter#endif /* TTYNAME */ 69138032Speter 69238032Speter /* 69338032Speter ** Give this envelope a reality. 69438032Speter ** I.e., an id, a transcript, and a creation time. 69590792Sgshapiro ** We don't select the queue until all of the recipients are known. 69638032Speter */ 69738032Speter 69838032Speter openxscript(e); 69938032Speter e->e_ctime = curtime(); 70090792Sgshapiro#if _FFR_QUARANTINE 70190792Sgshapiro e->e_qfletter = '\0'; 70290792Sgshapiro#endif /* _FFR_QUARANTINE */ 70364562Sgshapiro#if _FFR_QUEUEDELAY 70464562Sgshapiro e->e_queuealg = QueueAlg; 70564562Sgshapiro e->e_queuedelay = QueueInitDelay; 70664562Sgshapiro#endif /* _FFR_QUEUEDELAY */ 70738032Speter 70838032Speter /* 70938032Speter ** Set OutChannel to something useful if stdout isn't it. 71038032Speter ** This arranges that any extra stuff the mailer produces 71138032Speter ** gets sent back to the user on error (because it is 71238032Speter ** tucked away in the transcript). 71338032Speter */ 71438032Speter 71538032Speter if (OpMode == MD_DAEMON && bitset(EF_QUEUERUN, e->e_flags) && 71638032Speter e->e_xfp != NULL) 71738032Speter OutChannel = e->e_xfp; 71838032Speter 71938032Speter /* 72038032Speter ** Set up some basic system macros. 72138032Speter */ 72238032Speter 72338032Speter /* process id */ 72490792Sgshapiro (void) sm_snprintf(buf, sizeof buf, "%d", (int) CurrentPid); 72590792Sgshapiro macdefine(&e->e_macro, A_TEMP, 'p', buf); 72638032Speter 72738032Speter /* hop count */ 72890792Sgshapiro (void) sm_snprintf(buf, sizeof buf, "%d", e->e_hopcount); 72990792Sgshapiro macdefine(&e->e_macro, A_TEMP, 'c', buf); 73038032Speter 73138032Speter /* time as integer, unix time, arpa time */ 73238032Speter settime(e); 73338032Speter 73464562Sgshapiro /* Load average */ 73590792Sgshapiro sm_getla(); 73664562Sgshapiro 73738032Speter#ifdef TTYNAME 73838032Speter /* tty name */ 73938032Speter if (macvalue('y', e) == NULL) 74038032Speter { 74138032Speter p = ttyname(2); 74238032Speter if (p != NULL) 74338032Speter { 74438032Speter if (strrchr(p, '/') != NULL) 74538032Speter p = strrchr(p, '/') + 1; 74690792Sgshapiro (void) sm_strlcpy(ybuf, sizeof ybuf, p); 74790792Sgshapiro macdefine(&e->e_macro, A_PERM, 'y', ybuf); 74838032Speter } 74938032Speter } 75038032Speter#endif /* TTYNAME */ 75138032Speter} 75290792Sgshapiro/* 75338032Speter** SETTIME -- set the current time. 75438032Speter** 75538032Speter** Parameters: 75664562Sgshapiro** e -- the envelope in which the macros should be set. 75738032Speter** 75838032Speter** Returns: 75938032Speter** none. 76038032Speter** 76138032Speter** Side Effects: 76238032Speter** Sets the various time macros -- $a, $b, $d, $t. 76338032Speter*/ 76438032Speter 76538032Spetervoid 76638032Spetersettime(e) 76738032Speter register ENVELOPE *e; 76838032Speter{ 76938032Speter register char *p; 77038032Speter auto time_t now; 77190792Sgshapiro char buf[30]; 77238032Speter register struct tm *tm; 77338032Speter 77438032Speter now = curtime(); 77538032Speter tm = gmtime(&now); 77690792Sgshapiro (void) sm_snprintf(buf, sizeof buf, "%04d%02d%02d%02d%02d", 77790792Sgshapiro tm->tm_year + 1900, tm->tm_mon + 1, tm->tm_mday, 77890792Sgshapiro tm->tm_hour, tm->tm_min); 77990792Sgshapiro macdefine(&e->e_macro, A_TEMP, 't', buf); 78090792Sgshapiro (void) sm_strlcpy(buf, ctime(&now), sizeof buf); 78190792Sgshapiro p = strchr(buf, '\n'); 78238032Speter if (p != NULL) 78338032Speter *p = '\0'; 78490792Sgshapiro macdefine(&e->e_macro, A_TEMP, 'd', buf); 78590792Sgshapiro macdefine(&e->e_macro, A_TEMP, 'b', arpadate(buf)); 78638032Speter if (macvalue('a', e) == NULL) 78790792Sgshapiro macdefine(&e->e_macro, A_PERM, 'a', macvalue('b', e)); 78838032Speter} 78990792Sgshapiro/* 79038032Speter** OPENXSCRIPT -- Open transcript file 79138032Speter** 79238032Speter** Creates a transcript file for possible eventual mailing or 79338032Speter** sending back. 79438032Speter** 79538032Speter** Parameters: 79638032Speter** e -- the envelope to create the transcript in/for. 79738032Speter** 79838032Speter** Returns: 79938032Speter** none 80038032Speter** 80138032Speter** Side Effects: 80238032Speter** Creates the transcript file. 80338032Speter*/ 80438032Speter 80538032Speter#ifndef O_APPEND 80664562Sgshapiro# define O_APPEND 0 80764562Sgshapiro#endif /* ! O_APPEND */ 80838032Speter 80938032Spetervoid 81038032Speteropenxscript(e) 81138032Speter register ENVELOPE *e; 81238032Speter{ 81338032Speter register char *p; 81438032Speter 81538032Speter if (e->e_xfp != NULL) 81638032Speter return; 81764562Sgshapiro 81864562Sgshapiro#if 0 81964562Sgshapiro if (e->e_lockfp == NULL && bitset(EF_INQUEUE, e->e_flags)) 82064562Sgshapiro syserr("openxscript: job not locked"); 82164562Sgshapiro#endif /* 0 */ 82264562Sgshapiro 82390792Sgshapiro p = queuename(e, XSCRPT_LETTER); 82464562Sgshapiro e->e_xfp = bfopen(p, FileMode, XscriptFileBufferSize, 82564562Sgshapiro SFF_NOTEXCL|SFF_OPENASROOT); 82664562Sgshapiro 82764562Sgshapiro if (e->e_xfp == NULL) 82838032Speter { 82938032Speter syserr("Can't create transcript file %s", p); 83090792Sgshapiro e->e_xfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT, 83190792Sgshapiro SM_PATH_DEVNULL, SM_IO_RDWR, NULL); 83264562Sgshapiro if (e->e_xfp == NULL) 83390792Sgshapiro syserr("!Can't open %s", SM_PATH_DEVNULL); 83438032Speter } 83590792Sgshapiro (void) sm_io_setvbuf(e->e_xfp, SM_TIME_DEFAULT, NULL, SM_IO_LBF, 0); 83638032Speter if (tTd(46, 9)) 83738032Speter { 83890792Sgshapiro sm_dprintf("openxscript(%s):\n ", p); 83990792Sgshapiro dumpfd(sm_io_getinfo(e->e_xfp, SM_IO_WHAT_FD, NULL), true, 84090792Sgshapiro false); 84138032Speter } 84238032Speter} 84390792Sgshapiro/* 84438032Speter** CLOSEXSCRIPT -- close the transcript file. 84538032Speter** 84638032Speter** Parameters: 84738032Speter** e -- the envelope containing the transcript to close. 84838032Speter** 84938032Speter** Returns: 85038032Speter** none. 85138032Speter** 85238032Speter** Side Effects: 85338032Speter** none. 85438032Speter*/ 85538032Speter 85638032Spetervoid 85738032Speterclosexscript(e) 85838032Speter register ENVELOPE *e; 85938032Speter{ 86038032Speter if (e->e_xfp == NULL) 86138032Speter return; 86264562Sgshapiro#if 0 86364562Sgshapiro if (e->e_lockfp == NULL) 86464562Sgshapiro syserr("closexscript: job not locked"); 86564562Sgshapiro#endif /* 0 */ 86690792Sgshapiro (void) sm_io_close(e->e_xfp, SM_TIME_DEFAULT); 86738032Speter e->e_xfp = NULL; 86838032Speter} 86990792Sgshapiro/* 87038032Speter** SETSENDER -- set the person who this message is from 87138032Speter** 87238032Speter** Under certain circumstances allow the user to say who 87338032Speter** s/he is (using -f or -r). These are: 87438032Speter** 1. The user's uid is zero (root). 87538032Speter** 2. The user's login name is in an approved list (typically 87638032Speter** from a network server). 87738032Speter** 3. The address the user is trying to claim has a 87838032Speter** "!" character in it (since #2 doesn't do it for 87938032Speter** us if we are dialing out for UUCP). 88038032Speter** A better check to replace #3 would be if the 88138032Speter** effective uid is "UUCP" -- this would require me 88238032Speter** to rewrite getpwent to "grab" uucp as it went by, 88338032Speter** make getname more nasty, do another passwd file 88438032Speter** scan, or compile the UID of "UUCP" into the code, 88538032Speter** all of which are reprehensible. 88638032Speter** 88738032Speter** Assuming all of these fail, we figure out something 88838032Speter** ourselves. 88938032Speter** 89038032Speter** Parameters: 89138032Speter** from -- the person we would like to believe this message 89238032Speter** is from, as specified on the command line. 89338032Speter** e -- the envelope in which we would like the sender set. 89438032Speter** delimptr -- if non-NULL, set to the location of the 89538032Speter** trailing delimiter. 89638032Speter** delimchar -- the character that will delimit the sender 89738032Speter** address. 89838032Speter** internal -- set if this address is coming from an internal 89938032Speter** source such as an owner alias. 90038032Speter** 90138032Speter** Returns: 90238032Speter** none. 90338032Speter** 90438032Speter** Side Effects: 90538032Speter** sets sendmail's notion of who the from person is. 90638032Speter*/ 90738032Speter 90838032Spetervoid 90938032Spetersetsender(from, e, delimptr, delimchar, internal) 91038032Speter char *from; 91138032Speter register ENVELOPE *e; 91238032Speter char **delimptr; 91338032Speter int delimchar; 91438032Speter bool internal; 91538032Speter{ 91638032Speter register char **pvp; 91738032Speter char *realname = NULL; 91838032Speter char *bp; 91938032Speter char buf[MAXNAME + 2]; 92038032Speter char pvpbuf[PSBUFSIZE]; 92138032Speter extern char *FullName; 92238032Speter 92338032Speter if (tTd(45, 1)) 92490792Sgshapiro sm_dprintf("setsender(%s)\n", from == NULL ? "" : from); 92538032Speter 92638032Speter /* 92738032Speter ** Figure out the real user executing us. 92838032Speter ** Username can return errno != 0 on non-errors. 92938032Speter */ 93038032Speter 93138032Speter if (bitset(EF_QUEUERUN, e->e_flags) || OpMode == MD_SMTP || 93238032Speter OpMode == MD_ARPAFTP || OpMode == MD_DAEMON) 93338032Speter realname = from; 93438032Speter if (realname == NULL || realname[0] == '\0') 93538032Speter realname = username(); 93638032Speter 93738032Speter if (ConfigLevel < 2) 93890792Sgshapiro SuprErrs = true; 93938032Speter 94090792Sgshapiro macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e s"); 94190792Sgshapiro 94264562Sgshapiro /* preset state for then clause in case from == NULL */ 94364562Sgshapiro e->e_from.q_state = QS_BADADDR; 94464562Sgshapiro e->e_from.q_flags = 0; 94538032Speter if (from == NULL || 94638032Speter parseaddr(from, &e->e_from, RF_COPYALL|RF_SENDERADDR, 94790792Sgshapiro delimchar, delimptr, e, false) == NULL || 94864562Sgshapiro QS_IS_BADADDR(e->e_from.q_state) || 94938032Speter e->e_from.q_mailer == ProgMailer || 95038032Speter e->e_from.q_mailer == FileMailer || 95138032Speter e->e_from.q_mailer == InclMailer) 95238032Speter { 95338032Speter /* log garbage addresses for traceback */ 95438032Speter if (from != NULL && LogLevel > 2) 95538032Speter { 95638032Speter char *p; 95738032Speter char ebuf[MAXNAME * 2 + 2]; 95838032Speter 95938032Speter p = macvalue('_', e); 96038032Speter if (p == NULL) 96138032Speter { 96238032Speter char *host = RealHostName; 96338032Speter 96438032Speter if (host == NULL) 96538032Speter host = MyHostName; 96690792Sgshapiro (void) sm_snprintf(ebuf, sizeof ebuf, 96790792Sgshapiro "%.*s@%.*s", MAXNAME, 96890792Sgshapiro realname, MAXNAME, host); 96938032Speter p = ebuf; 97038032Speter } 97138032Speter sm_syslog(LOG_NOTICE, e->e_id, 97264562Sgshapiro "setsender: %s: invalid or unparsable, received from %s", 97364562Sgshapiro shortenstring(from, 83), p); 97438032Speter } 97538032Speter if (from != NULL) 97638032Speter { 97764562Sgshapiro if (!QS_IS_BADADDR(e->e_from.q_state)) 97838032Speter { 97938032Speter /* it was a bogus mailer in the from addr */ 98038032Speter e->e_status = "5.1.7"; 98164562Sgshapiro usrerrenh(e->e_status, 98264562Sgshapiro "553 Invalid sender address"); 98338032Speter } 98490792Sgshapiro SuprErrs = true; 98538032Speter } 98638032Speter if (from == realname || 98790792Sgshapiro parseaddr(from = realname, 98890792Sgshapiro &e->e_from, RF_COPYALL|RF_SENDERADDR, ' ', 98990792Sgshapiro NULL, e, false) == NULL) 99038032Speter { 99138032Speter char nbuf[100]; 99238032Speter 99390792Sgshapiro SuprErrs = true; 99438032Speter expand("\201n", nbuf, sizeof nbuf, e); 99590792Sgshapiro from = sm_rpool_strdup_x(e->e_rpool, nbuf); 99690792Sgshapiro if (parseaddr(from, &e->e_from, RF_COPYALL, ' ', 99790792Sgshapiro NULL, e, false) == NULL && 99838032Speter parseaddr(from = "postmaster", &e->e_from, 99990792Sgshapiro RF_COPYALL, ' ', NULL, e, false) == NULL) 100064562Sgshapiro syserr("553 5.3.0 setsender: can't even parse postmaster!"); 100138032Speter } 100238032Speter } 100338032Speter else 100490792Sgshapiro FromFlag = true; 100564562Sgshapiro e->e_from.q_state = QS_SENDER; 100638032Speter if (tTd(45, 5)) 100738032Speter { 100890792Sgshapiro sm_dprintf("setsender: QS_SENDER "); 100990792Sgshapiro printaddr(&e->e_from, false); 101038032Speter } 101190792Sgshapiro SuprErrs = false; 101238032Speter 101364562Sgshapiro#if USERDB 101438032Speter if (bitnset(M_CHECKUDB, e->e_from.q_mailer->m_flags)) 101538032Speter { 101638032Speter register char *p; 101738032Speter 101890792Sgshapiro p = udbsender(e->e_from.q_user, e->e_rpool); 101938032Speter if (p != NULL) 102038032Speter from = p; 102138032Speter } 102264562Sgshapiro#endif /* USERDB */ 102338032Speter 102438032Speter if (bitnset(M_HASPWENT, e->e_from.q_mailer->m_flags)) 102538032Speter { 102690792Sgshapiro SM_MBDB_T user; 102790792Sgshapiro 102838032Speter if (!internal) 102938032Speter { 103038032Speter /* if the user already given fullname don't redefine */ 103138032Speter if (FullName == NULL) 103238032Speter FullName = macvalue('x', e); 103394334Sgshapiro if (FullName != NULL) 103494334Sgshapiro { 103594334Sgshapiro if (FullName[0] == '\0') 103694334Sgshapiro FullName = NULL; 103794334Sgshapiro else 103894334Sgshapiro FullName = newstr(FullName); 103994334Sgshapiro } 104038032Speter } 104138032Speter 104238032Speter if (e->e_from.q_user[0] != '\0' && 104390792Sgshapiro sm_mbdb_lookup(e->e_from.q_user, &user) == EX_OK) 104438032Speter { 104538032Speter /* 104638032Speter ** Process passwd file entry. 104738032Speter */ 104838032Speter 104938032Speter /* extract home directory */ 105090792Sgshapiro if (*user.mbdb_homedir == '\0') 105166494Sgshapiro e->e_from.q_home = NULL; 105290792Sgshapiro else if (strcmp(user.mbdb_homedir, "/") == 0) 105390792Sgshapiro e->e_from.q_home = ""; 105438032Speter else 105590792Sgshapiro e->e_from.q_home = sm_rpool_strdup_x(e->e_rpool, 105690792Sgshapiro user.mbdb_homedir); 105790792Sgshapiro macdefine(&e->e_macro, A_PERM, 'z', e->e_from.q_home); 105838032Speter 105938032Speter /* extract user and group id */ 106090792Sgshapiro if (user.mbdb_uid != SM_NO_UID) 106190792Sgshapiro { 106290792Sgshapiro e->e_from.q_uid = user.mbdb_uid; 106390792Sgshapiro e->e_from.q_gid = user.mbdb_gid; 106490792Sgshapiro e->e_from.q_flags |= QGOODUID; 106590792Sgshapiro } 106638032Speter 106738032Speter /* extract full name from passwd file */ 106890792Sgshapiro if (FullName == NULL && !internal && 106990792Sgshapiro user.mbdb_fullname[0] != '\0' && 107090792Sgshapiro strcmp(user.mbdb_name, e->e_from.q_user) == 0) 107138032Speter { 107290792Sgshapiro FullName = newstr(user.mbdb_fullname); 107338032Speter } 107438032Speter } 107538032Speter else 107638032Speter { 107764562Sgshapiro e->e_from.q_home = NULL; 107838032Speter } 107938032Speter if (FullName != NULL && !internal) 108090792Sgshapiro macdefine(&e->e_macro, A_PERM, 'x', FullName); 108138032Speter } 108243730Speter else if (!internal && OpMode != MD_DAEMON && OpMode != MD_SMTP) 108338032Speter { 108438032Speter if (e->e_from.q_home == NULL) 108538032Speter { 108638032Speter e->e_from.q_home = getenv("HOME"); 108766494Sgshapiro if (e->e_from.q_home != NULL) 108866494Sgshapiro { 108966494Sgshapiro if (*e->e_from.q_home == '\0') 109066494Sgshapiro e->e_from.q_home = NULL; 109166494Sgshapiro else if (strcmp(e->e_from.q_home, "/") == 0) 109266494Sgshapiro e->e_from.q_home++; 109366494Sgshapiro } 109438032Speter } 109538032Speter e->e_from.q_uid = RealUid; 109638032Speter e->e_from.q_gid = RealGid; 109738032Speter e->e_from.q_flags |= QGOODUID; 109838032Speter } 109938032Speter 110038032Speter /* 110138032Speter ** Rewrite the from person to dispose of possible implicit 110238032Speter ** links in the net. 110338032Speter */ 110438032Speter 110538032Speter pvp = prescan(from, delimchar, pvpbuf, sizeof pvpbuf, NULL, NULL); 110638032Speter if (pvp == NULL) 110738032Speter { 110838032Speter /* don't need to give error -- prescan did that already */ 110938032Speter if (LogLevel > 2) 111038032Speter sm_syslog(LOG_NOTICE, e->e_id, 111164562Sgshapiro "cannot prescan from (%s)", 111264562Sgshapiro shortenstring(from, MAXSHORTSTR)); 111390792Sgshapiro finis(true, true, ExitStat); 111438032Speter } 111590792Sgshapiro (void) REWRITE(pvp, 3, e); 111690792Sgshapiro (void) REWRITE(pvp, 1, e); 111790792Sgshapiro (void) REWRITE(pvp, 4, e); 111890792Sgshapiro macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); 111938032Speter bp = buf + 1; 112038032Speter cataddr(pvp, NULL, bp, sizeof buf - 2, '\0'); 112138032Speter if (*bp == '@' && !bitnset(M_NOBRACKET, e->e_from.q_mailer->m_flags)) 112238032Speter { 112338032Speter /* heuristic: route-addr: add angle brackets */ 112490792Sgshapiro (void) sm_strlcat(bp, ">", sizeof buf - 1); 112538032Speter *--bp = '<'; 112638032Speter } 112790792Sgshapiro e->e_sender = sm_rpool_strdup_x(e->e_rpool, bp); 112890792Sgshapiro macdefine(&e->e_macro, A_PERM, 'f', e->e_sender); 112938032Speter 113038032Speter /* save the domain spec if this mailer wants it */ 113138032Speter if (e->e_from.q_mailer != NULL && 113238032Speter bitnset(M_CANONICAL, e->e_from.q_mailer->m_flags)) 113338032Speter { 113438032Speter char **lastat; 113538032Speter 113638032Speter /* get rid of any pesky angle brackets */ 113790792Sgshapiro macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e s"); 113890792Sgshapiro (void) REWRITE(pvp, 3, e); 113990792Sgshapiro (void) REWRITE(pvp, 1, e); 114090792Sgshapiro (void) REWRITE(pvp, 4, e); 114190792Sgshapiro macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL); 114238032Speter 114338032Speter /* strip off to the last "@" sign */ 114438032Speter for (lastat = NULL; *pvp != NULL; pvp++) 114538032Speter if (strcmp(*pvp, "@") == 0) 114638032Speter lastat = pvp; 114738032Speter if (lastat != NULL) 114838032Speter { 114990792Sgshapiro e->e_fromdomain = copyplist(lastat, true, e->e_rpool); 115038032Speter if (tTd(45, 3)) 115138032Speter { 115290792Sgshapiro sm_dprintf("Saving from domain: "); 115338032Speter printav(e->e_fromdomain); 115438032Speter } 115538032Speter } 115638032Speter } 115738032Speter} 115890792Sgshapiro/* 115938032Speter** PRINTENVFLAGS -- print envelope flags for debugging 116038032Speter** 116138032Speter** Parameters: 116238032Speter** e -- the envelope with the flags to be printed. 116338032Speter** 116438032Speter** Returns: 116538032Speter** none. 116638032Speter*/ 116738032Speter 116838032Speterstruct eflags 116938032Speter{ 117090792Sgshapiro char *ef_name; 117190792Sgshapiro unsigned long ef_bit; 117238032Speter}; 117338032Speter 117464562Sgshapirostatic struct eflags EnvelopeFlags[] = 117538032Speter{ 117638032Speter { "OLDSTYLE", EF_OLDSTYLE }, 117738032Speter { "INQUEUE", EF_INQUEUE }, 117838032Speter { "NO_BODY_RETN", EF_NO_BODY_RETN }, 117938032Speter { "CLRQUEUE", EF_CLRQUEUE }, 118038032Speter { "SENDRECEIPT", EF_SENDRECEIPT }, 118138032Speter { "FATALERRS", EF_FATALERRS }, 118238032Speter { "DELETE_BCC", EF_DELETE_BCC }, 118338032Speter { "RESPONSE", EF_RESPONSE }, 118438032Speter { "RESENT", EF_RESENT }, 118538032Speter { "VRFYONLY", EF_VRFYONLY }, 118638032Speter { "WARNING", EF_WARNING }, 118738032Speter { "QUEUERUN", EF_QUEUERUN }, 118838032Speter { "GLOBALERRS", EF_GLOBALERRS }, 118938032Speter { "PM_NOTIFY", EF_PM_NOTIFY }, 119038032Speter { "METOO", EF_METOO }, 119138032Speter { "LOGSENDER", EF_LOGSENDER }, 119238032Speter { "NORECEIPT", EF_NORECEIPT }, 119338032Speter { "HAS8BIT", EF_HAS8BIT }, 119438032Speter { "NL_NOT_EOL", EF_NL_NOT_EOL }, 119538032Speter { "CRLF_NOT_EOL", EF_CRLF_NOT_EOL }, 119638032Speter { "RET_PARAM", EF_RET_PARAM }, 119738032Speter { "HAS_DF", EF_HAS_DF }, 119838032Speter { "IS_MIME", EF_IS_MIME }, 119938032Speter { "DONT_MIME", EF_DONT_MIME }, 120090792Sgshapiro { "DISCARD", EF_DISCARD }, 120190792Sgshapiro { "TOOBIG", EF_TOOBIG }, 120290792Sgshapiro { "SPLIT", EF_SPLIT }, 120390792Sgshapiro { "UNSAFE", EF_UNSAFE }, 120471345Sgshapiro { NULL, 0 } 120538032Speter}; 120638032Speter 120738032Spetervoid 120838032Speterprintenvflags(e) 120938032Speter register ENVELOPE *e; 121038032Speter{ 121138032Speter register struct eflags *ef; 121290792Sgshapiro bool first = true; 121338032Speter 121490792Sgshapiro (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "%lx", e->e_flags); 121538032Speter for (ef = EnvelopeFlags; ef->ef_name != NULL; ef++) 121638032Speter { 121738032Speter if (!bitset(ef->ef_bit, e->e_flags)) 121838032Speter continue; 121938032Speter if (first) 122090792Sgshapiro (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "<%s", 122190792Sgshapiro ef->ef_name); 122238032Speter else 122390792Sgshapiro (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, ",%s", 122490792Sgshapiro ef->ef_name); 122590792Sgshapiro first = false; 122638032Speter } 122738032Speter if (!first) 122890792Sgshapiro (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, ">\n"); 122938032Speter} 1230