30 clrsessenvelope(e)
31 	ENVELOPE *e;
34 	macdefine(&e->e_macro, A_PERM, macid("{auth_type}"), "");
35 	macdefine(&e->e_macro, A_PERM, macid("{auth_authen}"), "");
36 	macdefine(&e->e_macro, A_PERM, macid("{auth_author}"), "");
37 	macdefine(&e->e_macro, A_PERM, macid("{auth_ssf}"), "");
40 	macdefine(&e->e_macro, A_PERM, macid("{cert_issuer}"), "");
41 	macdefine(&e->e_macro, A_PERM, macid("{cert_subject}"), "");
42 	macdefine(&e->e_macro, A_PERM, macid("{cipher_bits}"), "");
43 	macdefine(&e->e_macro, A_PERM, macid("{cipher}"), "");
44 	macdefine(&e->e_macro, A_PERM, macid("{tls_version}"), "");
45 	macdefine(&e->e_macro, A_PERM, macid("{verify}"), "");
46 	macdefine(&e->e_macro, A_PERM, macid("{alg_bits}"), "");
47 	macdefine(&e->e_macro, A_PERM, macid("{cn_issuer}"), "");
48 	macdefine(&e->e_macro, A_PERM, macid("{cn_subject}"), "");
72 newenvelope(e, parent, rpool)  in newenvelope()  argument
73 	register ENVELOPE *e;  in newenvelope()
93 	if (e == parent)
94 		parent = e->e_parent;
95 	clearenvelope(e, true, rpool);
96 	if (e == CurEnv)
97 		memmove((char *) &e->e_from,
99 			sizeof(e->e_from));
101 		memmove((char *) &e->e_from,
103 			sizeof(e->e_from));
104 	e->e_parent = parent;
105 	assign_queueid(e);
106 	e->e_ctime = curtime();
108 	e->e_sessid = e->e_id;
112 		e->e_msgpriority = parent->e_msgsize;
115 			e->e_sessid = sm_rpool_strdup_x(rpool,
121 			e->e_quarmsg = NULL;
122 			macdefine(&e->e_macro, A_PERM,
127 			e->e_quarmsg = sm_rpool_strdup_x(rpool,
129 			macdefine(&e->e_macro, A_PERM,
130 				  macid("{quarantine}"), e->e_quarmsg);
133 	e->e_puthdr = putheader;
134 	e->e_putbody = putbody;
138 		set_delivery_mode(sendmode, e);
140 	return e;
173 dropenvelope(e, fulldrop, split)  in dropenvelope()  argument
174 	register ENVELOPE *e;  in dropenvelope()
184 	bool pmnotify = bitset(EF_PM_NOTIFY, e->e_flags);
187 	char *id = e->e_id;
193 		sm_dprintf("dropenvelope %p: id=", (void *)e);
194 		xputs(sm_debug_file(), e->e_id);
196 		printenvflags(e);
200 			printaddr(sm_debug_file(), e->e_sendqueue, true);
207 			  e->e_flags, OpMode, (int) CurrentPid);
219 			e->e_id, bitset(EF_LOGSENDER, e->e_flags), LogLevel);
220 	if (LogLevel > 4 && bitset(EF_LOGSENDER, e->e_flags))
221 		logsender(e, NULL);
222 	e->e_flags &= ~EF_LOGSENDER;
232 	if (now >= e->e_ctime + TimeOuts.to_q_return[e->e_timeoutclass])
234 	if (IS_DLVR_RETURN(e) && e->e_deliver_by > 0 &&
235 	    now >= e->e_ctime + e->e_deliver_by &&
236 	    !bitset(EF_RESPONSE, e->e_flags))
239 		e->e_flags |= EF_FATALERRS|EF_CLRQUEUE;
241 	else if (TimeOuts.to_q_return[e->e_timeoutclass] == NOW &&
242 		 !bitset(EF_RESPONSE, e->e_flags))
245 		e->e_flags |= EF_FATALERRS|EF_CLRQUEUE;
251 		q = e->e_sendqueue;
253 			e->e_sendmode, e, e->e_sibling, e->e_nrcpts, q,
259 	e->e_flags &= ~EF_QUEUERUN;
260 	for (q = e->e_sendqueue; q != NULL; q = q->q_next)
266 		if (queueit && e->e_sendmode == SM_PROXY)
279 			    !emptyaddr(&e->e_from))
281 				(void) sendtolist(e->e_from.q_paddr, NULLADDR,
282 						  &e->e_errorqueue, 0, e);
297 	if (e->e_class < 0)
298 		e->e_flags |= EF_NO_BODY_RETN;
315 					e->e_deliver_by);
321 					pintvl(TimeOuts.to_q_return[e->e_timeoutclass],
326 			e->e_message = sm_rpool_strdup_x(e->e_rpool, buf);
328 			e->e_flags |= EF_CLRQUEUE;
332 			(void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT,
334 				e->e_deliver_by);
337 			(void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT,
339 				pintvl(TimeOuts.to_q_return[e->e_timeoutclass],
341 		(void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT,
343 		for (q = e->e_sendqueue; q != NULL; q = q->q_next)
357 		if (TimeOuts.to_q_warning[e->e_timeoutclass] > 0 &&
358 		    now >= e->e_ctime +
359 				TimeOuts.to_q_warning[e->e_timeoutclass])
361 		else if (IS_DLVR_NOTIFY(e) &&
362 			 e->e_deliver_by > 0 &&
363 			 now >= e->e_ctime + e->e_deliver_by)
368 			if (!bitset(EF_WARNING|EF_RESPONSE, e->e_flags) &&
369 			    e->e_class >= 0 &&
370 			    e->e_from.q_paddr != NULL &&
371 			    strcmp(e->e_from.q_paddr, "<>") != 0 &&
372 			    sm_strncasecmp(e->e_from.q_paddr, "owner-", 6) != 0 &&
373 			    (strlen(e->e_from.q_paddr) <= 8 ||
374 			     !SM_STRCASEEQ(&e->e_from.q_paddr[strlen(e->e_from.q_paddr) - 8],
377 				for (q = e->e_sendqueue; q != NULL;
413 						e->e_deliver_by);
418 						pintvl(TimeOuts.to_q_warning[e->e_timeoutclass],
422 				e->e_message = sm_rpool_strdup_x(e->e_rpool,
425 				e->e_flags |= EF_WARNING;
429 				(void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT,
431 					e->e_deliver_by);
434 				(void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT,
436 					pintvl(TimeOuts.to_q_warning[e->e_timeoutclass],
438 			(void) sm_io_fprintf(e->e_xfp, SM_TIME_DEFAULT,
440 				      pintvl(TimeOuts.to_q_return[e->e_timeoutclass],
454 	if (bitset(EF_FATALERRS, e->e_flags) && !failure_return)
456 		for (q = e->e_sendqueue; q != NULL; q = q->q_next)
470 				 && WILL_BE_QUEUED(e->e_sendmode)
471 				 && bitset(EF_INQUEUE, e->e_flags)
487 	    strcmp(e->e_from.q_paddr, "<>") != 0)
494 		e->e_flags |= EF_SENDRECEIPT;
495 		(void) sendtolist(e->e_from.q_paddr, NULLADDR, &rlist, 0, e);
496 		(void) returntosender("Return receipt", rlist, RTSF_NO_BODY, e);
498 	e->e_flags &= ~EF_SENDRECEIPT;
504 	if ((failure_return || delay_return) && e->e_errormode != EM_QUIET)
508 		panic = savemail(e, !bitset(EF_NO_BODY_RETN, e->e_flags));
517 	    !bitset(EF_RESPONSE, e->e_flags) &&
518 	    e->e_class >= 0)
525 			expand(PostMasterCopy, pcopy, sizeof(pcopy), e);
530 			(void) sendtolist(pcopy, NULLADDR, &rlist, 0, e);
534 					  &rlist, 0, e);
535 		(void) returntosender(e->e_message, rlist,
536 				      RTSF_PM_BOUNCE|RTSF_NO_BODY, e);
547 	if (!queueit || bitset(EF_CLRQUEUE, e->e_flags))
552 				e->e_id, queueit);
553 			printenvflags(e);
557 			SM_CLOSE_FP(e->e_dfp);
558 			(void) xunlink(queuename(e, DATAFL_LETTER));
570 		if (xunlink(queuename(e, ANYQFL_LETTER)) == 0)
573 			updfs(e, -1, panic ? 0 : -1, "dropenvelope");
576 		if (e->e_ntries > 0 && LogLevel > 9)
578 				  pintvl(curtime() - e->e_ctime, true),
579 				  e->e_ntries);
581 	else if (queueit || !bitset(EF_INQUEUE, e->e_flags))
584 			queueup(e, QUP_FL_MSYNC);
597 			oldsib = e->e_sibling;
598 			e->e_sibling = NULL;
599 			if (!split_by_recipient(e) &&
600 			    bitset(EF_FATALERRS, e->e_flags))
603 					e->e_id, queuename(e, DATAFL_LETTER),
606 			for (ee = e->e_sibling; ee != NULL; ee = ee->e_sibling)
608 			queueup(e, QUP_FL_MSYNC);
611 			for (ee = e->e_sibling; ee != NULL; ee = ee->e_sibling)
625 			e->e_sibling = oldsib;
632 	closexscript(e);
633 	unlockqueue(e);
636 	SM_CLOSE_FP(e->e_dfp);
637 	e->e_id = NULL;
638 	e->e_flags &= ~EF_HAS_DF;
668 clearenvelope(e, fullclear, rpool)  in clearenvelope()  argument
669 	register ENVELOPE *e;  in clearenvelope()
681 		SM_CLOSE_FP(e->e_xfp);
682 		SM_CLOSE_FP(e->e_dfp);
696 	*e = BlankEnvelope;
697 	e->e_message = NULL;
698 	e->e_qfletter = '\0';
699 	e->e_quarmsg = NULL;
700 	macdefine(&e->e_macro, A_PERM, macid("{quarantine}"), "");
709 	for (p = &e->e_macro.mac_table[0];
710 	     p <= &e->e_macro.mac_table[MAXMACROID];
723 	e->e_rpool = rpool;
724 	e->e_macro.mac_rpool = rpool;
726 		set_delivery_mode(SM_DELIVER, e);
728 	nhp = &e->e_header;
737 	e->e_enhsc[0] = '\0';
758 initsys(e)  in initsys()  argument
759 	register ENVELOPE *e;  in initsys()
774 	openxscript(e);
775 	e->e_ctime = curtime();
776 	e->e_qfletter = '\0';
785 	if (OpMode == MD_DAEMON && bitset(EF_QUEUERUN, e->e_flags) &&
786 	    e->e_xfp != NULL)
787 		OutChannel = e->e_xfp;
795 	macdefine(&e->e_macro, A_TEMP, 'p', buf);
798 	(void) sm_snprintf(buf, sizeof(buf), "%d", e->e_hopcount);
799 	macdefine(&e->e_macro, A_TEMP, 'c', buf);
802 	settime(e);
809 	if (macvalue('y', e) == NULL)
817 			macdefine(&e->e_macro, A_PERM, 'y', ybuf);
836 settime(e)  in settime()  argument
837 	register ENVELOPE *e;  in settime()
846 	macdefine(&e->e_macro, A_TEMP, macid("{time}"), buf);
851 	macdefine(&e->e_macro, A_TEMP, 't', buf);
856 	macdefine(&e->e_macro, A_TEMP, 'd', buf);
857 	macdefine(&e->e_macro, A_TEMP, 'b', arpadate(buf));
858 	if (macvalue('a', e) == NULL)
859 		macdefine(&e->e_macro, A_PERM, 'a', macvalue('b', e));
882 openxscript(e)  in openxscript()  argument
883 	register ENVELOPE *e;  in openxscript()
887 	if (e->e_xfp != NULL)
891 	if (e->e_lockfp == NULL && bitset(EF_INQUEUE, e->e_flags))
895 	p = queuename(e, XSCRPT_LETTER);
896 	e->e_xfp = bfopen(p, FileMode, XscriptFileBufferSize,
899 	if (e->e_xfp == NULL)
902 		e->e_xfp = sm_io_open(SmFtStdio, SM_TIME_DEFAULT,
904 		if (e->e_xfp == NULL)
907 	(void) sm_io_setvbuf(e->e_xfp, SM_TIME_DEFAULT, NULL, SM_IO_LBF, 0);
911 		dumpfd(sm_io_getinfo(e->e_xfp, SM_IO_WHAT_FD, NULL), true,
929 closexscript(e)  in closexscript()  argument
930 	register ENVELOPE *e;  in closexscript()
932 	if (e->e_xfp == NULL)
935 	if (e->e_lockfp == NULL)
938 	SM_CLOSE_FP(e->e_xfp);
980 setsender(from, e, delimptr, delimchar, internal)  in setsender()  argument
982 	register ENVELOPE *e;
998 	macdefine(&e->e_macro, A_PERM, 'x', "");
1005 	if (bitset(EF_QUEUERUN, e->e_flags) || OpMode == MD_SMTP ||
1014 	macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e s");
1017 	e->e_from.q_state = QS_BADADDR;
1018 	e->e_from.q_flags = 0;
1020 	    parseaddr(from, &e->e_from, RF_COPYALL|RF_SENDERADDR,
1021 		      delimchar, delimptr, e, false) == NULL ||
1022 	    QS_IS_BADADDR(e->e_from.q_state) ||
1023 	    e->e_from.q_mailer == ProgMailer ||
1024 	    e->e_from.q_mailer == FileMailer ||
1025 	    e->e_from.q_mailer == InclMailer)
1033 			p = macvalue('_', e);
1046 			sm_syslog(LOG_NOTICE, e->e_id,
1052 			if (!QS_IS_BADADDR(e->e_from.q_state))
1055 				e->e_status = "5.1.7";
1056 				usrerrenh(e->e_status,
1064 			      &e->e_from, RF_COPYALL|RF_SENDERADDR, ' ',
1065 			      NULL, e, false) == NULL)
1070 			expand("\201n", nbuf, sizeof(nbuf), e);
1071 			from = sm_rpool_strdup_x(e->e_rpool, nbuf);
1073 			if (parseaddr(from, &e->e_from, RF_COPYALL, ' ',
1074 				      NULL, e, false) == NULL &&
1075 			    parseaddr(from = "postmaster", &e->e_from,
1076 				      RF_COPYALL, ' ', NULL, e, false) == NULL)
1082 	e->e_from.q_state = QS_SENDER;
1086 		printaddr(sm_debug_file(), &e->e_from, false);
1091 	if (bitnset(M_CHECKUDB, e->e_from.q_mailer->m_flags))
1095 		p = udbsender(e->e_from.q_user, e->e_rpool);
1101 	if (bitnset(M_HASPWENT, e->e_from.q_mailer->m_flags))
1109 				FullName = macvalue('x', e);
1119 		if (e->e_from.q_user[0] != '\0' &&
1120 		    sm_mbdb_lookup(e->e_from.q_user, &user) == EX_OK)
1128 				e->e_from.q_home = NULL;
1130 				e->e_from.q_home = "";
1132 				e->e_from.q_home = sm_rpool_strdup_x(e->e_rpool,
1134 			macdefine(&e->e_macro, A_PERM, 'z', e->e_from.q_home);
1139 				e->e_from.q_uid = user.mbdb_uid;
1140 				e->e_from.q_gid = user.mbdb_gid;
1141 				e->e_from.q_flags |= QGOODUID;
1147 			    strcmp(user.mbdb_name, e->e_from.q_user) == 0)
1154 			e->e_from.q_home = NULL;
1157 			macdefine(&e->e_macro, A_TEMP, 'x', FullName);
1161 		if (e->e_from.q_home == NULL)
1163 			e->e_from.q_home = getenv("HOME");
1164 			if (e->e_from.q_home != NULL)
1166 				if (*e->e_from.q_home == '\0')
1167 					e->e_from.q_home = NULL;
1168 				else if (strcmp(e->e_from.q_home, "/") == 0)
1169 					e->e_from.q_home++;
1172 		e->e_from.q_uid = RealUid;
1173 		e->e_from.q_gid = RealGid;
1174 		e->e_from.q_flags |= QGOODUID;
1188 			sm_syslog(LOG_NOTICE, e->e_id,
1193 	(void) REWRITE(pvp, 3, e);
1194 	(void) REWRITE(pvp, 1, e);
1195 	(void) REWRITE(pvp, 4, e);
1196 	macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL);
1199 	if (*bp == '@' && !bitnset(M_NOBRACKET, e->e_from.q_mailer->m_flags))
1205 	e->e_sender = sm_rpool_strdup_x(e->e_rpool, bp);
1206 	macdefine(&e->e_macro, A_PERM, 'f', e->e_sender);
1209 	if (e->e_from.q_mailer != NULL &&
1210 	    bitnset(M_CANONICAL, e->e_from.q_mailer->m_flags))
1215 		macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e s");
1216 		(void) REWRITE(pvp, 3, e);
1217 		(void) REWRITE(pvp, 1, e);
1218 		(void) REWRITE(pvp, 4, e);
1219 		macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), NULL);
1229 			e->e_fromdomain = copyplist(lastat, true, e->e_rpool);
1233 				printav(sm_debug_file(), e->e_fromdomain);
1288 printenvflags(e)  in printenvflags()  argument
1289 	register ENVELOPE *e;  in printenvflags()
1294 	sm_dprintf("%lx", e->e_flags);
1297 		if (!bitset(ef->ef_bit, e->e_flags))