xref: /freebsd/contrib/sendmail/src/parseaddr.c (revision ffb836234b94e17739bac88bfd7f51f5ae49e3bc)
1c2aa98e2SPeter Wemm /*
2d0cef73dSGregory Neil Shapiro  * Copyright (c) 1998-2006 Sendmail, Inc. and its suppliers.
306f25ae9SGregory Neil Shapiro  *	All rights reserved.
4c2aa98e2SPeter Wemm  * Copyright (c) 1983, 1995-1997 Eric P. Allman.  All rights reserved.
5c2aa98e2SPeter Wemm  * Copyright (c) 1988, 1993
6c2aa98e2SPeter Wemm  *	The Regents of the University of California.  All rights reserved.
7c2aa98e2SPeter Wemm  *
8c2aa98e2SPeter Wemm  * By using this file, you agree to the terms and conditions set
9c2aa98e2SPeter Wemm  * forth in the LICENSE file which can be found at the top level of
10c2aa98e2SPeter Wemm  * the sendmail distribution.
11c2aa98e2SPeter Wemm  *
12c2aa98e2SPeter Wemm  */
13c2aa98e2SPeter Wemm 
1406f25ae9SGregory Neil Shapiro #include <sendmail.h>
1506f25ae9SGregory Neil Shapiro 
16ffb83623SGregory Neil Shapiro SM_RCSID("@(#)$Id: parseaddr.c,v 8.401 2007/09/27 23:33:59 ca Exp $")
17d0cef73dSGregory Neil Shapiro 
18d0cef73dSGregory Neil Shapiro #include <sm/sendmail.h>
19d0cef73dSGregory Neil Shapiro #include "map.h"
2040266059SGregory Neil Shapiro 
2140266059SGregory Neil Shapiro static void	allocaddr __P((ADDRESS *, int, char *, ENVELOPE *));
2206f25ae9SGregory Neil Shapiro static int	callsubr __P((char**, int, ENVELOPE *));
2306f25ae9SGregory Neil Shapiro static char	*map_lookup __P((STAB *, char *, char **, int *, ENVELOPE *));
2406f25ae9SGregory Neil Shapiro static ADDRESS	*buildaddr __P((char **, ADDRESS *, int, ENVELOPE *));
25605302a5SGregory Neil Shapiro static bool	hasctrlchar __P((register char *, bool, bool));
26605302a5SGregory Neil Shapiro 
27605302a5SGregory Neil Shapiro /* replacement for illegal characters in addresses */
28605302a5SGregory Neil Shapiro #define BAD_CHAR_REPLACEMENT	'?'
29c2aa98e2SPeter Wemm 
30c2aa98e2SPeter Wemm /*
31c2aa98e2SPeter Wemm **  PARSEADDR -- Parse an address
32c2aa98e2SPeter Wemm **
33c2aa98e2SPeter Wemm **	Parses an address and breaks it up into three parts: a
34c2aa98e2SPeter Wemm **	net to transmit the message on, the host to transmit it
35c2aa98e2SPeter Wemm **	to, and a user on that host.  These are loaded into an
36c2aa98e2SPeter Wemm **	ADDRESS header with the values squirreled away if necessary.
37c2aa98e2SPeter Wemm **	The "user" part may not be a real user; the process may
38c2aa98e2SPeter Wemm **	just reoccur on that machine.  For example, on a machine
39c2aa98e2SPeter Wemm **	with an arpanet connection, the address
40c2aa98e2SPeter Wemm **		csvax.bill@berkeley
41c2aa98e2SPeter Wemm **	will break up to a "user" of 'csvax.bill' and a host
42c2aa98e2SPeter Wemm **	of 'berkeley' -- to be transmitted over the arpanet.
43c2aa98e2SPeter Wemm **
44c2aa98e2SPeter Wemm **	Parameters:
45c2aa98e2SPeter Wemm **		addr -- the address to parse.
46c2aa98e2SPeter Wemm **		a -- a pointer to the address descriptor buffer.
4740266059SGregory Neil Shapiro **			If NULL, an address will be created.
48c2aa98e2SPeter Wemm **		flags -- describe detail for parsing.  See RF_ definitions
49c2aa98e2SPeter Wemm **			in sendmail.h.
50c2aa98e2SPeter Wemm **		delim -- the character to terminate the address, passed
51c2aa98e2SPeter Wemm **			to prescan.
52c2aa98e2SPeter Wemm **		delimptr -- if non-NULL, set to the location of the
53c2aa98e2SPeter Wemm **			delim character that was found.
54c2aa98e2SPeter Wemm **		e -- the envelope that will contain this address.
5540266059SGregory Neil Shapiro **		isrcpt -- true if the address denotes a recipient; false
5640266059SGregory Neil Shapiro **			indicates a sender.
57c2aa98e2SPeter Wemm **
58c2aa98e2SPeter Wemm **	Returns:
59c2aa98e2SPeter Wemm **		A pointer to the address descriptor header (`a' if
60c2aa98e2SPeter Wemm **			`a' is non-NULL).
61c2aa98e2SPeter Wemm **		NULL on error.
62c2aa98e2SPeter Wemm **
63c2aa98e2SPeter Wemm **	Side Effects:
6440266059SGregory Neil Shapiro **		e->e_to = addr
65c2aa98e2SPeter Wemm */
66c2aa98e2SPeter Wemm 
67c2aa98e2SPeter Wemm /* following delimiters are inherent to the internal algorithms */
68c2aa98e2SPeter Wemm #define DELIMCHARS	"()<>,;\r\n"	/* default word delimiters */
69c2aa98e2SPeter Wemm 
70c2aa98e2SPeter Wemm ADDRESS *
7140266059SGregory Neil Shapiro parseaddr(addr, a, flags, delim, delimptr, e, isrcpt)
72c2aa98e2SPeter Wemm 	char *addr;
73c2aa98e2SPeter Wemm 	register ADDRESS *a;
74c2aa98e2SPeter Wemm 	int flags;
75c2aa98e2SPeter Wemm 	int delim;
76c2aa98e2SPeter Wemm 	char **delimptr;
77c2aa98e2SPeter Wemm 	register ENVELOPE *e;
7840266059SGregory Neil Shapiro 	bool isrcpt;
79c2aa98e2SPeter Wemm {
8040266059SGregory Neil Shapiro 	char **pvp;
81c2aa98e2SPeter Wemm 	auto char *delimptrbuf;
8206f25ae9SGregory Neil Shapiro 	bool qup;
83c2aa98e2SPeter Wemm 	char pvpbuf[PSBUFSIZE];
84c2aa98e2SPeter Wemm 
85c2aa98e2SPeter Wemm 	/*
86c2aa98e2SPeter Wemm 	**  Initialize and prescan address.
87c2aa98e2SPeter Wemm 	*/
88c2aa98e2SPeter Wemm 
89c2aa98e2SPeter Wemm 	e->e_to = addr;
90c2aa98e2SPeter Wemm 	if (tTd(20, 1))
9140266059SGregory Neil Shapiro 		sm_dprintf("\n--parseaddr(%s)\n", addr);
92c2aa98e2SPeter Wemm 
93c2aa98e2SPeter Wemm 	if (delimptr == NULL)
94c2aa98e2SPeter Wemm 		delimptr = &delimptrbuf;
95c2aa98e2SPeter Wemm 
96d0cef73dSGregory Neil Shapiro 	pvp = prescan(addr, delim, pvpbuf, sizeof(pvpbuf), delimptr,
97d0cef73dSGregory Neil Shapiro 			ExtTokenTab, false);
98c2aa98e2SPeter Wemm 	if (pvp == NULL)
99c2aa98e2SPeter Wemm 	{
100c2aa98e2SPeter Wemm 		if (tTd(20, 1))
10140266059SGregory Neil Shapiro 			sm_dprintf("parseaddr-->NULL\n");
10206f25ae9SGregory Neil Shapiro 		return NULL;
103c2aa98e2SPeter Wemm 	}
104c2aa98e2SPeter Wemm 
10540266059SGregory Neil Shapiro 	if (invalidaddr(addr, delim == '\0' ? NULL : *delimptr, isrcpt))
106c2aa98e2SPeter Wemm 	{
107c2aa98e2SPeter Wemm 		if (tTd(20, 1))
10840266059SGregory Neil Shapiro 			sm_dprintf("parseaddr-->bad address\n");
109c2aa98e2SPeter Wemm 		return NULL;
110c2aa98e2SPeter Wemm 	}
111c2aa98e2SPeter Wemm 
112c2aa98e2SPeter Wemm 	/*
113c2aa98e2SPeter Wemm 	**  Save addr if we are going to have to.
114c2aa98e2SPeter Wemm 	**
115c2aa98e2SPeter Wemm 	**	We have to do this early because there is a chance that
116c2aa98e2SPeter Wemm 	**	the map lookups in the rewriting rules could clobber
117c2aa98e2SPeter Wemm 	**	static memory somewhere.
118c2aa98e2SPeter Wemm 	*/
119c2aa98e2SPeter Wemm 
120c2aa98e2SPeter Wemm 	if (bitset(RF_COPYPADDR, flags) && addr != NULL)
121c2aa98e2SPeter Wemm 	{
122c2aa98e2SPeter Wemm 		char savec = **delimptr;
123c2aa98e2SPeter Wemm 
124c2aa98e2SPeter Wemm 		if (savec != '\0')
125c2aa98e2SPeter Wemm 			**delimptr = '\0';
12640266059SGregory Neil Shapiro 		e->e_to = addr = sm_rpool_strdup_x(e->e_rpool, addr);
127c2aa98e2SPeter Wemm 		if (savec != '\0')
128c2aa98e2SPeter Wemm 			**delimptr = savec;
129c2aa98e2SPeter Wemm 	}
130c2aa98e2SPeter Wemm 
131c2aa98e2SPeter Wemm 	/*
132c2aa98e2SPeter Wemm 	**  Apply rewriting rules.
133c2aa98e2SPeter Wemm 	**	Ruleset 0 does basic parsing.  It must resolve.
134c2aa98e2SPeter Wemm 	*/
135c2aa98e2SPeter Wemm 
13640266059SGregory Neil Shapiro 	qup = false;
13740266059SGregory Neil Shapiro 	if (REWRITE(pvp, 3, e) == EX_TEMPFAIL)
13840266059SGregory Neil Shapiro 		qup = true;
13940266059SGregory Neil Shapiro 	if (REWRITE(pvp, 0, e) == EX_TEMPFAIL)
14040266059SGregory Neil Shapiro 		qup = true;
141c2aa98e2SPeter Wemm 
142c2aa98e2SPeter Wemm 	/*
143c2aa98e2SPeter Wemm 	**  Build canonical address from pvp.
144c2aa98e2SPeter Wemm 	*/
145c2aa98e2SPeter Wemm 
146c2aa98e2SPeter Wemm 	a = buildaddr(pvp, a, flags, e);
147c2aa98e2SPeter Wemm 
148605302a5SGregory Neil Shapiro 	if (hasctrlchar(a->q_user, isrcpt, true))
14940266059SGregory Neil Shapiro 	{
15040266059SGregory Neil Shapiro 		if (tTd(20, 1))
15140266059SGregory Neil Shapiro 			sm_dprintf("parseaddr-->bad q_user\n");
152605302a5SGregory Neil Shapiro 
153605302a5SGregory Neil Shapiro 		/*
154605302a5SGregory Neil Shapiro 		**  Just mark the address as bad so DSNs work.
155605302a5SGregory Neil Shapiro 		**  hasctrlchar() has to make sure that the address
156605302a5SGregory Neil Shapiro 		**  has been sanitized, e.g., shortened.
157605302a5SGregory Neil Shapiro 		*/
158605302a5SGregory Neil Shapiro 
159605302a5SGregory Neil Shapiro 		a->q_state = QS_BADADDR;
16040266059SGregory Neil Shapiro 	}
16140266059SGregory Neil Shapiro 
162c2aa98e2SPeter Wemm 	/*
163c2aa98e2SPeter Wemm 	**  Make local copies of the host & user and then
164c2aa98e2SPeter Wemm 	**  transport them out.
165c2aa98e2SPeter Wemm 	*/
166c2aa98e2SPeter Wemm 
16740266059SGregory Neil Shapiro 	allocaddr(a, flags, addr, e);
16806f25ae9SGregory Neil Shapiro 	if (QS_IS_BADADDR(a->q_state))
169605302a5SGregory Neil Shapiro 	{
170605302a5SGregory Neil Shapiro 		/* weed out bad characters in the printable address too */
171605302a5SGregory Neil Shapiro 		(void) hasctrlchar(a->q_paddr, isrcpt, false);
172c2aa98e2SPeter Wemm 		return a;
173605302a5SGregory Neil Shapiro 	}
174c2aa98e2SPeter Wemm 
175c2aa98e2SPeter Wemm 	/*
17640266059SGregory Neil Shapiro 	**  Select a queue directory for recipient addresses.
17740266059SGregory Neil Shapiro 	**	This is done here and in split_across_queue_groups(),
17840266059SGregory Neil Shapiro 	**	but the latter applies to addresses after aliasing,
17940266059SGregory Neil Shapiro 	**	and only if splitting is done.
18040266059SGregory Neil Shapiro 	*/
18140266059SGregory Neil Shapiro 
18240266059SGregory Neil Shapiro 	if ((a->q_qgrp == NOAQGRP || a->q_qgrp == ENVQGRP) &&
183d0cef73dSGregory Neil Shapiro 	    !bitset(RF_SENDERADDR|RF_HEADERADDR|RF_RM_ADDR, flags) &&
18440266059SGregory Neil Shapiro 	    OpMode != MD_INITALIAS)
18540266059SGregory Neil Shapiro 	{
18640266059SGregory Neil Shapiro 		int r;
18740266059SGregory Neil Shapiro 
18840266059SGregory Neil Shapiro 		/* call ruleset which should return a queue group name */
18940266059SGregory Neil Shapiro 		r = rscap(RS_QUEUEGROUP, a->q_user, NULL, e, &pvp, pvpbuf,
19040266059SGregory Neil Shapiro 			  sizeof(pvpbuf));
19140266059SGregory Neil Shapiro 		if (r == EX_OK &&
19240266059SGregory Neil Shapiro 		    pvp != NULL && pvp[0] != NULL &&
19340266059SGregory Neil Shapiro 		    (pvp[0][0] & 0377) == CANONNET &&
19440266059SGregory Neil Shapiro 		    pvp[1] != NULL && pvp[1][0] != '\0')
19540266059SGregory Neil Shapiro 		{
19640266059SGregory Neil Shapiro 			r = name2qid(pvp[1]);
19740266059SGregory Neil Shapiro 			if (r == NOQGRP && LogLevel > 10)
19840266059SGregory Neil Shapiro 				sm_syslog(LOG_INFO, NOQID,
19940266059SGregory Neil Shapiro 					"can't find queue group name %s, selection ignored",
20040266059SGregory Neil Shapiro 					pvp[1]);
20140266059SGregory Neil Shapiro 			if (tTd(20, 4) && r != NOQGRP)
20240266059SGregory Neil Shapiro 				sm_syslog(LOG_INFO, NOQID,
20340266059SGregory Neil Shapiro 					"queue group name %s -> %d",
20440266059SGregory Neil Shapiro 					pvp[1], r);
20540266059SGregory Neil Shapiro 			a->q_qgrp = r == NOQGRP ? ENVQGRP : r;
20640266059SGregory Neil Shapiro 		}
20740266059SGregory Neil Shapiro 	}
20840266059SGregory Neil Shapiro 
20940266059SGregory Neil Shapiro 	/*
210c2aa98e2SPeter Wemm 	**  If there was a parsing failure, mark it for queueing.
211c2aa98e2SPeter Wemm 	*/
212c2aa98e2SPeter Wemm 
21306f25ae9SGregory Neil Shapiro 	if (qup && OpMode != MD_INITALIAS)
214c2aa98e2SPeter Wemm 	{
215c2aa98e2SPeter Wemm 		char *msg = "Transient parse error -- message queued for future delivery";
216c2aa98e2SPeter Wemm 
217c2aa98e2SPeter Wemm 		if (e->e_sendmode == SM_DEFER)
218c2aa98e2SPeter Wemm 			msg = "Deferring message until queue run";
219c2aa98e2SPeter Wemm 		if (tTd(20, 1))
220ffb83623SGregory Neil Shapiro 			sm_dprintf("parseaddr: queueing message\n");
221c2aa98e2SPeter Wemm 		message(msg);
222c2aa98e2SPeter Wemm 		if (e->e_message == NULL && e->e_sendmode != SM_DEFER)
22340266059SGregory Neil Shapiro 			e->e_message = sm_rpool_strdup_x(e->e_rpool, msg);
22406f25ae9SGregory Neil Shapiro 		a->q_state = QS_QUEUEUP;
225c2aa98e2SPeter Wemm 		a->q_status = "4.4.3";
226c2aa98e2SPeter Wemm 	}
227c2aa98e2SPeter Wemm 
228c2aa98e2SPeter Wemm 	/*
229c2aa98e2SPeter Wemm 	**  Compute return value.
230c2aa98e2SPeter Wemm 	*/
231c2aa98e2SPeter Wemm 
232c2aa98e2SPeter Wemm 	if (tTd(20, 1))
233c2aa98e2SPeter Wemm 	{
23440266059SGregory Neil Shapiro 		sm_dprintf("parseaddr-->");
235e92d3f3fSGregory Neil Shapiro 		printaddr(sm_debug_file(), a, false);
236c2aa98e2SPeter Wemm 	}
237c2aa98e2SPeter Wemm 
23806f25ae9SGregory Neil Shapiro 	return a;
239c2aa98e2SPeter Wemm }
24040266059SGregory Neil Shapiro /*
24140266059SGregory Neil Shapiro **  INVALIDADDR -- check for address containing characters used for macros
242c2aa98e2SPeter Wemm **
243c2aa98e2SPeter Wemm **	Parameters:
244c2aa98e2SPeter Wemm **		addr -- the address to check.
24540266059SGregory Neil Shapiro **		delimptr -- if non-NULL: end of address to check, i.e.,
24640266059SGregory Neil Shapiro **			a pointer in the address string.
24740266059SGregory Neil Shapiro **		isrcpt -- true iff the address is for a recipient.
248c2aa98e2SPeter Wemm **
249c2aa98e2SPeter Wemm **	Returns:
25040266059SGregory Neil Shapiro **		true -- if the address has characters that are reservered
25140266059SGregory Neil Shapiro **			for macros or is too long.
25240266059SGregory Neil Shapiro **		false -- otherwise.
253c2aa98e2SPeter Wemm */
254c2aa98e2SPeter Wemm 
255c2aa98e2SPeter Wemm bool
25640266059SGregory Neil Shapiro invalidaddr(addr, delimptr, isrcpt)
257c2aa98e2SPeter Wemm 	register char *addr;
258c2aa98e2SPeter Wemm 	char *delimptr;
25940266059SGregory Neil Shapiro 	bool isrcpt;
260c2aa98e2SPeter Wemm {
26140266059SGregory Neil Shapiro 	bool result = false;
262c2aa98e2SPeter Wemm 	char savedelim = '\0';
263605302a5SGregory Neil Shapiro 	char *b = addr;
26440266059SGregory Neil Shapiro 	int len = 0;
265c2aa98e2SPeter Wemm 
266c2aa98e2SPeter Wemm 	if (delimptr != NULL)
267c2aa98e2SPeter Wemm 	{
26840266059SGregory Neil Shapiro 		/* delimptr points to the end of the address to test */
269c2aa98e2SPeter Wemm 		savedelim = *delimptr;
27040266059SGregory Neil Shapiro 		if (savedelim != '\0')	/* if that isn't '\0' already: */
27140266059SGregory Neil Shapiro 			*delimptr = '\0';	/* set it */
272c2aa98e2SPeter Wemm 	}
273c2aa98e2SPeter Wemm 	for (; *addr != '\0'; addr++)
274c2aa98e2SPeter Wemm 	{
275d0cef73dSGregory Neil Shapiro 		if (!EightBitAddrOK && (*addr & 0340) == 0200)
27640266059SGregory Neil Shapiro 		{
27740266059SGregory Neil Shapiro 			setstat(EX_USAGE);
27840266059SGregory Neil Shapiro 			result = true;
279605302a5SGregory Neil Shapiro 			*addr = BAD_CHAR_REPLACEMENT;
280c2aa98e2SPeter Wemm 		}
28140266059SGregory Neil Shapiro 		if (++len > MAXNAME - 1)
282c2aa98e2SPeter Wemm 		{
283605302a5SGregory Neil Shapiro 			char saved = *addr;
284605302a5SGregory Neil Shapiro 
285605302a5SGregory Neil Shapiro 			*addr = '\0';
286605302a5SGregory Neil Shapiro 			usrerr("553 5.1.0 Address \"%s\" too long (%d bytes max)",
287605302a5SGregory Neil Shapiro 			       b, MAXNAME - 1);
288605302a5SGregory Neil Shapiro 			*addr = saved;
28940266059SGregory Neil Shapiro 			result = true;
29040266059SGregory Neil Shapiro 			goto delim;
291c2aa98e2SPeter Wemm 		}
29240266059SGregory Neil Shapiro 	}
29340266059SGregory Neil Shapiro 	if (result)
29440266059SGregory Neil Shapiro 	{
29540266059SGregory Neil Shapiro 		if (isrcpt)
296605302a5SGregory Neil Shapiro 			usrerr("501 5.1.3 8-bit character in mailbox address \"%s\"",
297605302a5SGregory Neil Shapiro 			       b);
29840266059SGregory Neil Shapiro 		else
299605302a5SGregory Neil Shapiro 			usrerr("501 5.1.7 8-bit character in mailbox address \"%s\"",
300605302a5SGregory Neil Shapiro 			       b);
30140266059SGregory Neil Shapiro 	}
30240266059SGregory Neil Shapiro delim:
30340266059SGregory Neil Shapiro 	if (delimptr != NULL && savedelim != '\0')
30440266059SGregory Neil Shapiro 		*delimptr = savedelim;	/* restore old character at delimptr */
30540266059SGregory Neil Shapiro 	return result;
30640266059SGregory Neil Shapiro }
30740266059SGregory Neil Shapiro /*
30840266059SGregory Neil Shapiro **  HASCTRLCHAR -- check for address containing meta-characters
30940266059SGregory Neil Shapiro **
31040266059SGregory Neil Shapiro **  Checks that the address contains no meta-characters, and contains
31140266059SGregory Neil Shapiro **  no "non-printable" characters unless they are quoted or escaped.
31240266059SGregory Neil Shapiro **  Quoted or escaped characters are literals.
31340266059SGregory Neil Shapiro **
31440266059SGregory Neil Shapiro **	Parameters:
31540266059SGregory Neil Shapiro **		addr -- the address to check.
31640266059SGregory Neil Shapiro **		isrcpt -- true if the address is for a recipient; false
31740266059SGregory Neil Shapiro **			indicates a from.
318605302a5SGregory Neil Shapiro **		complain -- true if an error should issued if the address
319605302a5SGregory Neil Shapiro **			is invalid and should be "repaired".
32040266059SGregory Neil Shapiro **
32140266059SGregory Neil Shapiro **	Returns:
32240266059SGregory Neil Shapiro **		true -- if the address has any "wierd" characters or
32340266059SGregory Neil Shapiro **			non-printable characters or if a quote is unbalanced.
32440266059SGregory Neil Shapiro **		false -- otherwise.
32540266059SGregory Neil Shapiro */
32640266059SGregory Neil Shapiro 
32740266059SGregory Neil Shapiro static bool
328605302a5SGregory Neil Shapiro hasctrlchar(addr, isrcpt, complain)
32940266059SGregory Neil Shapiro 	register char *addr;
330605302a5SGregory Neil Shapiro 	bool isrcpt, complain;
33140266059SGregory Neil Shapiro {
33240266059SGregory Neil Shapiro 	bool quoted = false;
333605302a5SGregory Neil Shapiro 	int len = 0;
334605302a5SGregory Neil Shapiro 	char *result = NULL;
335605302a5SGregory Neil Shapiro 	char *b = addr;
33640266059SGregory Neil Shapiro 
33740266059SGregory Neil Shapiro 	if (addr == NULL)
33840266059SGregory Neil Shapiro 		return false;
33940266059SGregory Neil Shapiro 	for (; *addr != '\0'; addr++)
34040266059SGregory Neil Shapiro 	{
341605302a5SGregory Neil Shapiro 		if (++len > MAXNAME - 1)
342605302a5SGregory Neil Shapiro 		{
343605302a5SGregory Neil Shapiro 			if (complain)
344605302a5SGregory Neil Shapiro 			{
345605302a5SGregory Neil Shapiro 				(void) shorten_rfc822_string(b, MAXNAME - 1);
346605302a5SGregory Neil Shapiro 				usrerr("553 5.1.0 Address \"%s\" too long (%d bytes max)",
347605302a5SGregory Neil Shapiro 				       b, MAXNAME - 1);
348605302a5SGregory Neil Shapiro 				return true;
349605302a5SGregory Neil Shapiro 			}
350605302a5SGregory Neil Shapiro 			result = "too long";
351605302a5SGregory Neil Shapiro 		}
352d0cef73dSGregory Neil Shapiro 		if (!EightBitAddrOK && !quoted && (*addr < 32 || *addr == 127))
35340266059SGregory Neil Shapiro 		{
354605302a5SGregory Neil Shapiro 			result = "non-printable character";
355605302a5SGregory Neil Shapiro 			*addr = BAD_CHAR_REPLACEMENT;
356605302a5SGregory Neil Shapiro 			continue;
35740266059SGregory Neil Shapiro 		}
35840266059SGregory Neil Shapiro 		if (*addr == '"')
35940266059SGregory Neil Shapiro 			quoted = !quoted;
36040266059SGregory Neil Shapiro 		else if (*addr == '\\')
36140266059SGregory Neil Shapiro 		{
36240266059SGregory Neil Shapiro 			/* XXX Generic problem: no '\0' in strings. */
36340266059SGregory Neil Shapiro 			if (*++addr == '\0')
36440266059SGregory Neil Shapiro 			{
365605302a5SGregory Neil Shapiro 				result = "trailing \\ character";
366605302a5SGregory Neil Shapiro 				*--addr = BAD_CHAR_REPLACEMENT;
36740266059SGregory Neil Shapiro 				break;
36840266059SGregory Neil Shapiro 			}
36940266059SGregory Neil Shapiro 		}
370d0cef73dSGregory Neil Shapiro 		if (!EightBitAddrOK && (*addr & 0340) == 0200)
37140266059SGregory Neil Shapiro 		{
372c2aa98e2SPeter Wemm 			setstat(EX_USAGE);
373605302a5SGregory Neil Shapiro 			result = "8-bit character";
374605302a5SGregory Neil Shapiro 			*addr = BAD_CHAR_REPLACEMENT;
375605302a5SGregory Neil Shapiro 			continue;
37640266059SGregory Neil Shapiro 		}
37740266059SGregory Neil Shapiro 	}
37840266059SGregory Neil Shapiro 	if (quoted)
379605302a5SGregory Neil Shapiro 		result = "unbalanced quote"; /* unbalanced quote */
380605302a5SGregory Neil Shapiro 	if (result != NULL && complain)
38140266059SGregory Neil Shapiro 	{
38240266059SGregory Neil Shapiro 		if (isrcpt)
383605302a5SGregory Neil Shapiro 			usrerr("501 5.1.3 Syntax error in mailbox address \"%s\" (%s)",
384605302a5SGregory Neil Shapiro 			       b, result);
38540266059SGregory Neil Shapiro 		else
386605302a5SGregory Neil Shapiro 			usrerr("501 5.1.7 Syntax error in mailbox address \"%s\" (%s)",
387605302a5SGregory Neil Shapiro 			       b, result);
38840266059SGregory Neil Shapiro 	}
389605302a5SGregory Neil Shapiro 	return result != NULL;
39040266059SGregory Neil Shapiro }
39140266059SGregory Neil Shapiro /*
392c2aa98e2SPeter Wemm **  ALLOCADDR -- do local allocations of address on demand.
393c2aa98e2SPeter Wemm **
394c2aa98e2SPeter Wemm **	Also lowercases the host name if requested.
395c2aa98e2SPeter Wemm **
396c2aa98e2SPeter Wemm **	Parameters:
397c2aa98e2SPeter Wemm **		a -- the address to reallocate.
398c2aa98e2SPeter Wemm **		flags -- the copy flag (see RF_ definitions in sendmail.h
399c2aa98e2SPeter Wemm **			for a description).
400c2aa98e2SPeter Wemm **		paddr -- the printname of the address.
40140266059SGregory Neil Shapiro **		e -- envelope
402c2aa98e2SPeter Wemm **
403c2aa98e2SPeter Wemm **	Returns:
404c2aa98e2SPeter Wemm **		none.
405c2aa98e2SPeter Wemm **
406c2aa98e2SPeter Wemm **	Side Effects:
407c2aa98e2SPeter Wemm **		Copies portions of a into local buffers as requested.
408c2aa98e2SPeter Wemm */
409c2aa98e2SPeter Wemm 
41006f25ae9SGregory Neil Shapiro static void
41140266059SGregory Neil Shapiro allocaddr(a, flags, paddr, e)
412c2aa98e2SPeter Wemm 	register ADDRESS *a;
413c2aa98e2SPeter Wemm 	int flags;
414c2aa98e2SPeter Wemm 	char *paddr;
41540266059SGregory Neil Shapiro 	ENVELOPE *e;
416c2aa98e2SPeter Wemm {
417c2aa98e2SPeter Wemm 	if (tTd(24, 4))
41840266059SGregory Neil Shapiro 		sm_dprintf("allocaddr(flags=%x, paddr=%s)\n", flags, paddr);
419c2aa98e2SPeter Wemm 
420c2aa98e2SPeter Wemm 	a->q_paddr = paddr;
421c2aa98e2SPeter Wemm 
422c2aa98e2SPeter Wemm 	if (a->q_user == NULL)
42340266059SGregory Neil Shapiro 		a->q_user = "";
424c2aa98e2SPeter Wemm 	if (a->q_host == NULL)
42540266059SGregory Neil Shapiro 		a->q_host = "";
426c2aa98e2SPeter Wemm 
427c2aa98e2SPeter Wemm 	if (bitset(RF_COPYPARSE, flags))
428c2aa98e2SPeter Wemm 	{
42940266059SGregory Neil Shapiro 		a->q_host = sm_rpool_strdup_x(e->e_rpool, a->q_host);
430c2aa98e2SPeter Wemm 		if (a->q_user != a->q_paddr)
43140266059SGregory Neil Shapiro 			a->q_user = sm_rpool_strdup_x(e->e_rpool, a->q_user);
432c2aa98e2SPeter Wemm 	}
433c2aa98e2SPeter Wemm 
434c2aa98e2SPeter Wemm 	if (a->q_paddr == NULL)
43540266059SGregory Neil Shapiro 		a->q_paddr = sm_rpool_strdup_x(e->e_rpool, a->q_user);
43640266059SGregory Neil Shapiro 	a->q_qgrp = NOAQGRP;
437c2aa98e2SPeter Wemm }
438d0cef73dSGregory Neil Shapiro 
43940266059SGregory Neil Shapiro /*
440c2aa98e2SPeter Wemm **  PRESCAN -- Prescan name and make it canonical
441c2aa98e2SPeter Wemm **
442c2aa98e2SPeter Wemm **	Scans a name and turns it into a set of tokens.  This process
44306f25ae9SGregory Neil Shapiro **	deletes blanks and comments (in parentheses) (if the token type
44406f25ae9SGregory Neil Shapiro **	for left paren is SPC).
445c2aa98e2SPeter Wemm **
446c2aa98e2SPeter Wemm **	This routine knows about quoted strings and angle brackets.
447c2aa98e2SPeter Wemm **
448c2aa98e2SPeter Wemm **	There are certain subtleties to this routine.  The one that
449c2aa98e2SPeter Wemm **	comes to mind now is that backslashes on the ends of names
450c2aa98e2SPeter Wemm **	are silently stripped off; this is intentional.  The problem
451c2aa98e2SPeter Wemm **	is that some versions of sndmsg (like at LBL) set the kill
452c2aa98e2SPeter Wemm **	character to something other than @ when reading addresses;
453c2aa98e2SPeter Wemm **	so people type "csvax.eric\@berkeley" -- which screws up the
454c2aa98e2SPeter Wemm **	berknet mailer.
455c2aa98e2SPeter Wemm **
456c2aa98e2SPeter Wemm **	Parameters:
457c2aa98e2SPeter Wemm **		addr -- the name to chomp.
458c2aa98e2SPeter Wemm **		delim -- the delimiter for the address, normally
459c2aa98e2SPeter Wemm **			'\0' or ','; \0 is accepted in any case.
460c2aa98e2SPeter Wemm **			If '\t' then we are reading the .cf file.
461c2aa98e2SPeter Wemm **		pvpbuf -- place to put the saved text -- note that
462c2aa98e2SPeter Wemm **			the pointers are static.
463c2aa98e2SPeter Wemm **		pvpbsize -- size of pvpbuf.
464c2aa98e2SPeter Wemm **		delimptr -- if non-NULL, set to the location of the
465c2aa98e2SPeter Wemm **			terminating delimiter.
466c2aa98e2SPeter Wemm **		toktab -- if set, a token table to use for parsing.
467c2aa98e2SPeter Wemm **			If NULL, use the default table.
468e92d3f3fSGregory Neil Shapiro **		ignore -- if true, ignore unbalanced addresses
469c2aa98e2SPeter Wemm **
470c2aa98e2SPeter Wemm **	Returns:
471c2aa98e2SPeter Wemm **		A pointer to a vector of tokens.
472c2aa98e2SPeter Wemm **		NULL on error.
473c2aa98e2SPeter Wemm */
474c2aa98e2SPeter Wemm 
475c2aa98e2SPeter Wemm /* states and character types */
476c2aa98e2SPeter Wemm #define OPR		0	/* operator */
477c2aa98e2SPeter Wemm #define ATM		1	/* atom */
478c2aa98e2SPeter Wemm #define QST		2	/* in quoted string */
479c2aa98e2SPeter Wemm #define SPC		3	/* chewing up spaces */
480c2aa98e2SPeter Wemm #define ONE		4	/* pick up one character */
481c2aa98e2SPeter Wemm #define ILL		5	/* illegal character */
482c2aa98e2SPeter Wemm 
483c2aa98e2SPeter Wemm #define NSTATES	6	/* number of states */
484c2aa98e2SPeter Wemm #define TYPE		017	/* mask to select state type */
485c2aa98e2SPeter Wemm 
486c2aa98e2SPeter Wemm /* meta bits for table */
487c2aa98e2SPeter Wemm #define M		020	/* meta character; don't pass through */
488c2aa98e2SPeter Wemm #define B		040	/* cause a break */
489c2aa98e2SPeter Wemm #define MB		M|B	/* meta-break */
490c2aa98e2SPeter Wemm 
491c2aa98e2SPeter Wemm static short StateTab[NSTATES][NSTATES] =
492c2aa98e2SPeter Wemm {
493c2aa98e2SPeter Wemm    /*	oldst	chtype>	OPR	ATM	QST	SPC	ONE	ILL	*/
494c2aa98e2SPeter Wemm 	/*OPR*/	{	OPR|B,	ATM|B,	QST|B,	SPC|MB,	ONE|B,	ILL|MB	},
495c2aa98e2SPeter Wemm 	/*ATM*/	{	OPR|B,	ATM,	QST|B,	SPC|MB,	ONE|B,	ILL|MB	},
496c2aa98e2SPeter Wemm 	/*QST*/	{	QST,	QST,	OPR,	QST,	QST,	QST	},
497c2aa98e2SPeter Wemm 	/*SPC*/	{	OPR,	ATM,	QST,	SPC|M,	ONE,	ILL|MB	},
498c2aa98e2SPeter Wemm 	/*ONE*/	{	OPR,	OPR,	OPR,	OPR,	OPR,	ILL|MB	},
499d0cef73dSGregory Neil Shapiro 	/*ILL*/	{	OPR|B,	ATM|B,	QST|B,	SPC|MB,	ONE|B,	ILL|M	}
500c2aa98e2SPeter Wemm };
501c2aa98e2SPeter Wemm 
502d0cef73dSGregory Neil Shapiro /* these all get modified with the OperatorChars */
503d0cef73dSGregory Neil Shapiro 
504d0cef73dSGregory Neil Shapiro /* token type table for external strings */
505d0cef73dSGregory Neil Shapiro unsigned char	ExtTokenTab[256] =
506d0cef73dSGregory Neil Shapiro {
507d0cef73dSGregory Neil Shapiro     /*	nul soh stx etx eot enq ack bel  bs  ht  nl  vt  np  cr  so  si   */
508d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,SPC,SPC,SPC,SPC,SPC,ATM,ATM,
509d0cef73dSGregory Neil Shapiro     /*	dle dc1 dc2 dc3 dc4 nak syn etb  can em  sub esc fs  gs  rs  us   */
510d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
511d0cef73dSGregory Neil Shapiro     /*  sp  !   "   #   $   %   &   '    (   )   *   +   ,   -   .   /    */
512d0cef73dSGregory Neil Shapiro 	SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, SPC,SPC,ATM,ATM,ATM,ATM,ATM,ATM,
513d0cef73dSGregory Neil Shapiro     /*	0   1   2   3   4   5   6   7    8   9   :   ;   <   =   >   ?    */
514d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
515d0cef73dSGregory Neil Shapiro     /*	@   A   B   C   D   E   F   G    H   I   J   K   L   M   N   O    */
516d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
517d0cef73dSGregory Neil Shapiro     /*  P   Q   R   S   T   U   V   W    X   Y   Z   [   \   ]   ^   _    */
518d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
519d0cef73dSGregory Neil Shapiro     /*	`   a   b   c   d   e   f   g    h   i   j   k   l   m   n   o    */
520d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
521d0cef73dSGregory Neil Shapiro     /*  p   q   r   s   t   u   v   w    x   y   z   {   |   }   ~   del  */
522d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
523d0cef73dSGregory Neil Shapiro 
524d0cef73dSGregory Neil Shapiro     /*	nul soh stx etx eot enq ack bel  bs  ht  nl  vt  np  cr  so  si   */
525d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
526d0cef73dSGregory Neil Shapiro     /*	dle dc1 dc2 dc3 dc4 nak syn etb  can em  sub esc fs  gs  rs  us   */
527d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
528d0cef73dSGregory Neil Shapiro     /*  sp  !   "   #   $   %   &   '    (   )   *   +   ,   -   .   /    */
529d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
530d0cef73dSGregory Neil Shapiro     /*	0   1   2   3   4   5   6   7    8   9   :   ;   <   =   >   ?    */
531d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
532d0cef73dSGregory Neil Shapiro     /*	@   A   B   C   D   E   F   G    H   I   J   K   L   M   N   O    */
533d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
534d0cef73dSGregory Neil Shapiro     /*  P   Q   R   S   T   U   V   W    X   Y   Z   [   \   ]   ^   _    */
535d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
536d0cef73dSGregory Neil Shapiro     /*	`   a   b   c   d   e   f   g    h   i   j   k   l   m   n   o    */
537d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
538d0cef73dSGregory Neil Shapiro     /*  p   q   r   s   t   u   v   w    x   y   z   {   |   }   ~   del  */
539d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM
540d0cef73dSGregory Neil Shapiro };
541d0cef73dSGregory Neil Shapiro 
542d0cef73dSGregory Neil Shapiro /* token type table for internal strings */
543d0cef73dSGregory Neil Shapiro unsigned char	IntTokenTab[256] =
544c2aa98e2SPeter Wemm {
545c2aa98e2SPeter Wemm     /*	nul soh stx etx eot enq ack bel  bs  ht  nl  vt  np  cr  so  si   */
546c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,SPC,SPC,SPC,SPC,SPC,ATM,ATM,
547c2aa98e2SPeter Wemm     /*	dle dc1 dc2 dc3 dc4 nak syn etb  can em  sub esc fs  gs  rs  us   */
548c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
549c2aa98e2SPeter Wemm     /*  sp  !   "   #   $   %   &   '    (   )   *   +   ,   -   .   /    */
55006f25ae9SGregory Neil Shapiro 	SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, SPC,SPC,ATM,ATM,ATM,ATM,ATM,ATM,
551c2aa98e2SPeter Wemm     /*	0   1   2   3   4   5   6   7    8   9   :   ;   <   =   >   ?    */
552c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
553c2aa98e2SPeter Wemm     /*	@   A   B   C   D   E   F   G    H   I   J   K   L   M   N   O    */
554c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
555c2aa98e2SPeter Wemm     /*  P   Q   R   S   T   U   V   W    X   Y   Z   [   \   ]   ^   _    */
556c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
557c2aa98e2SPeter Wemm     /*	`   a   b   c   d   e   f   g    h   i   j   k   l   m   n   o    */
558c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
559c2aa98e2SPeter Wemm     /*  p   q   r   s   t   u   v   w    x   y   z   {   |   }   ~   del  */
560c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
561c2aa98e2SPeter Wemm 
562c2aa98e2SPeter Wemm     /*	nul soh stx etx eot enq ack bel  bs  ht  nl  vt  np  cr  so  si   */
563c2aa98e2SPeter Wemm 	OPR,OPR,ONE,OPR,OPR,OPR,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR,
564c2aa98e2SPeter Wemm     /*	dle dc1 dc2 dc3 dc4 nak syn etb  can em  sub esc fs  gs  rs  us   */
565c2aa98e2SPeter Wemm 	OPR,OPR,OPR,ONE,ONE,ONE,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR,
566c2aa98e2SPeter Wemm     /*  sp  !   "   #   $   %   &   '    (   )   *   +   ,   -   .   /    */
567c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
568c2aa98e2SPeter Wemm     /*	0   1   2   3   4   5   6   7    8   9   :   ;   <   =   >   ?    */
569c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
570c2aa98e2SPeter Wemm     /*	@   A   B   C   D   E   F   G    H   I   J   K   L   M   N   O    */
571c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
572c2aa98e2SPeter Wemm     /*  P   Q   R   S   T   U   V   W    X   Y   Z   [   \   ]   ^   _    */
573c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
574c2aa98e2SPeter Wemm     /*	`   a   b   c   d   e   f   g    h   i   j   k   l   m   n   o    */
575c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
576c2aa98e2SPeter Wemm     /*  p   q   r   s   t   u   v   w    x   y   z   {   |   }   ~   del  */
577d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ONE
578c2aa98e2SPeter Wemm };
579c2aa98e2SPeter Wemm 
580c2aa98e2SPeter Wemm /* token type table for MIME parsing */
58140266059SGregory Neil Shapiro unsigned char	MimeTokenTab[256] =
582c2aa98e2SPeter Wemm {
583c2aa98e2SPeter Wemm     /*	nul soh stx etx eot enq ack bel  bs  ht  nl  vt  np  cr  so  si   */
584c2aa98e2SPeter Wemm 	ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,SPC,SPC,SPC,SPC,SPC,ILL,ILL,
585c2aa98e2SPeter Wemm     /*	dle dc1 dc2 dc3 dc4 nak syn etb  can em  sub esc fs  gs  rs  us   */
586c2aa98e2SPeter Wemm 	ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL,
587c2aa98e2SPeter Wemm     /*  sp  !   "   #   $   %   &   '    (   )   *   +   ,   -   .   /    */
58806f25ae9SGregory Neil Shapiro 	SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, SPC,SPC,ATM,ATM,OPR,ATM,ATM,OPR,
589c2aa98e2SPeter Wemm     /*	0   1   2   3   4   5   6   7    8   9   :   ;   <   =   >   ?    */
590c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,OPR,OPR,OPR,OPR,OPR,OPR,
591c2aa98e2SPeter Wemm     /*	@   A   B   C   D   E   F   G    H   I   J   K   L   M   N   O    */
592c2aa98e2SPeter Wemm 	OPR,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
593c2aa98e2SPeter Wemm     /*  P   Q   R   S   T   U   V   W    X   Y   Z   [   \   ]   ^   _    */
594c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,OPR,OPR,OPR,ATM,ATM,
595c2aa98e2SPeter Wemm     /*	`   a   b   c   d   e   f   g    h   i   j   k   l   m   n   o    */
596c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
597c2aa98e2SPeter Wemm     /*  p   q   r   s   t   u   v   w    x   y   z   {   |   }   ~   del  */
598c2aa98e2SPeter Wemm 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
599c2aa98e2SPeter Wemm 
600c2aa98e2SPeter Wemm     /*	nul soh stx etx eot enq ack bel  bs  ht  nl  vt  np  cr  so  si   */
601c2aa98e2SPeter Wemm 	ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL,
602c2aa98e2SPeter Wemm     /*	dle dc1 dc2 dc3 dc4 nak syn etb  can em  sub esc fs  gs  rs  us   */
603c2aa98e2SPeter Wemm 	ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL,
604c2aa98e2SPeter Wemm     /*  sp  !   "   #   $   %   &   '    (   )   *   +   ,   -   .   /    */
605c2aa98e2SPeter Wemm 	ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL,
606c2aa98e2SPeter Wemm     /*	0   1   2   3   4   5   6   7    8   9   :   ;   <   =   >   ?    */
607c2aa98e2SPeter Wemm 	ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL,
608c2aa98e2SPeter Wemm     /*	@   A   B   C   D   E   F   G    H   I   J   K   L   M   N   O    */
609c2aa98e2SPeter Wemm 	ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL,
610c2aa98e2SPeter Wemm     /*  P   Q   R   S   T   U   V   W    X   Y   Z   [   \   ]   ^   _    */
611c2aa98e2SPeter Wemm 	ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL,
612c2aa98e2SPeter Wemm     /*	`   a   b   c   d   e   f   g    h   i   j   k   l   m   n   o    */
613c2aa98e2SPeter Wemm 	ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL,
614c2aa98e2SPeter Wemm     /*  p   q   r   s   t   u   v   w    x   y   z   {   |   }   ~   del  */
615d0cef73dSGregory Neil Shapiro 	ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ONE
616c2aa98e2SPeter Wemm };
617c2aa98e2SPeter Wemm 
61806f25ae9SGregory Neil Shapiro /* token type table: don't strip comments */
61940266059SGregory Neil Shapiro unsigned char	TokTypeNoC[256] =
62006f25ae9SGregory Neil Shapiro {
62106f25ae9SGregory Neil Shapiro     /*	nul soh stx etx eot enq ack bel  bs  ht  nl  vt  np  cr  so  si   */
62206f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,SPC,SPC,SPC,SPC,SPC,ATM,ATM,
62306f25ae9SGregory Neil Shapiro     /*	dle dc1 dc2 dc3 dc4 nak syn etb  can em  sub esc fs  gs  rs  us   */
62406f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
62506f25ae9SGregory Neil Shapiro     /*  sp  !   "   #   $   %   &   '    (   )   *   +   ,   -   .   /    */
62606f25ae9SGregory Neil Shapiro 	SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, OPR,OPR,ATM,ATM,ATM,ATM,ATM,ATM,
62706f25ae9SGregory Neil Shapiro     /*	0   1   2   3   4   5   6   7    8   9   :   ;   <   =   >   ?    */
62806f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
62906f25ae9SGregory Neil Shapiro     /*	@   A   B   C   D   E   F   G    H   I   J   K   L   M   N   O    */
63006f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
63106f25ae9SGregory Neil Shapiro     /*  P   Q   R   S   T   U   V   W    X   Y   Z   [   \   ]   ^   _    */
63206f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
63306f25ae9SGregory Neil Shapiro     /*	`   a   b   c   d   e   f   g    h   i   j   k   l   m   n   o    */
63406f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
63506f25ae9SGregory Neil Shapiro     /*  p   q   r   s   t   u   v   w    x   y   z   {   |   }   ~   del  */
63606f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
63706f25ae9SGregory Neil Shapiro 
63806f25ae9SGregory Neil Shapiro     /*	nul soh stx etx eot enq ack bel  bs  ht  nl  vt  np  cr  so  si   */
63906f25ae9SGregory Neil Shapiro 	OPR,OPR,ONE,OPR,OPR,OPR,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR,
64006f25ae9SGregory Neil Shapiro     /*	dle dc1 dc2 dc3 dc4 nak syn etb  can em  sub esc fs  gs  rs  us   */
64106f25ae9SGregory Neil Shapiro 	OPR,OPR,OPR,ONE,ONE,ONE,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR,
64206f25ae9SGregory Neil Shapiro     /*  sp  !   "   #   $   %   &   '    (   )   *   +   ,   -   .   /    */
64306f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
64406f25ae9SGregory Neil Shapiro     /*	0   1   2   3   4   5   6   7    8   9   :   ;   <   =   >   ?    */
64506f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
64606f25ae9SGregory Neil Shapiro     /*	@   A   B   C   D   E   F   G    H   I   J   K   L   M   N   O    */
64706f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
64806f25ae9SGregory Neil Shapiro     /*  P   Q   R   S   T   U   V   W    X   Y   Z   [   \   ]   ^   _    */
64906f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
65006f25ae9SGregory Neil Shapiro     /*	`   a   b   c   d   e   f   g    h   i   j   k   l   m   n   o    */
65106f25ae9SGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM,
65206f25ae9SGregory Neil Shapiro     /*  p   q   r   s   t   u   v   w    x   y   z   {   |   }   ~   del  */
653d0cef73dSGregory Neil Shapiro 	ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ONE
65406f25ae9SGregory Neil Shapiro };
65506f25ae9SGregory Neil Shapiro 
656c2aa98e2SPeter Wemm 
6575ef517c0SGregory Neil Shapiro #define NOCHAR		(-1)	/* signal nothing in lookahead token */
658c2aa98e2SPeter Wemm 
659c2aa98e2SPeter Wemm char **
660e92d3f3fSGregory Neil Shapiro prescan(addr, delim, pvpbuf, pvpbsize, delimptr, toktab, ignore)
661c2aa98e2SPeter Wemm 	char *addr;
662c2aa98e2SPeter Wemm 	int delim;
663c2aa98e2SPeter Wemm 	char pvpbuf[];
664c2aa98e2SPeter Wemm 	int pvpbsize;
665c2aa98e2SPeter Wemm 	char **delimptr;
66640266059SGregory Neil Shapiro 	unsigned char *toktab;
667e92d3f3fSGregory Neil Shapiro 	bool ignore;
668c2aa98e2SPeter Wemm {
669c2aa98e2SPeter Wemm 	register char *p;
670c2aa98e2SPeter Wemm 	register char *q;
671c2aa98e2SPeter Wemm 	register int c;
672c2aa98e2SPeter Wemm 	char **avp;
673c2aa98e2SPeter Wemm 	bool bslashmode;
674c2aa98e2SPeter Wemm 	bool route_syntax;
675c2aa98e2SPeter Wemm 	int cmntcnt;
676c2aa98e2SPeter Wemm 	int anglecnt;
677c2aa98e2SPeter Wemm 	char *tok;
678c2aa98e2SPeter Wemm 	int state;
679c2aa98e2SPeter Wemm 	int newstate;
680c2aa98e2SPeter Wemm 	char *saveto = CurEnv->e_to;
681c2aa98e2SPeter Wemm 	static char *av[MAXATOM + 1];
68240266059SGregory Neil Shapiro 	static bool firsttime = true;
683c2aa98e2SPeter Wemm 
684c2aa98e2SPeter Wemm 	if (firsttime)
685c2aa98e2SPeter Wemm 	{
686c2aa98e2SPeter Wemm 		/* initialize the token type table */
687c2aa98e2SPeter Wemm 		char obuf[50];
688c2aa98e2SPeter Wemm 
68940266059SGregory Neil Shapiro 		firsttime = false;
690c2aa98e2SPeter Wemm 		if (OperatorChars == NULL)
691c2aa98e2SPeter Wemm 		{
692c2aa98e2SPeter Wemm 			if (ConfigLevel < 7)
693c2aa98e2SPeter Wemm 				OperatorChars = macvalue('o', CurEnv);
694c2aa98e2SPeter Wemm 			if (OperatorChars == NULL)
695c2aa98e2SPeter Wemm 				OperatorChars = ".:@[]";
696c2aa98e2SPeter Wemm 		}
697d0cef73dSGregory Neil Shapiro 		expand(OperatorChars, obuf, sizeof(obuf) - sizeof(DELIMCHARS),
69806f25ae9SGregory Neil Shapiro 		       CurEnv);
699d0cef73dSGregory Neil Shapiro 		(void) sm_strlcat(obuf, DELIMCHARS, sizeof(obuf));
700c2aa98e2SPeter Wemm 		for (p = obuf; *p != '\0'; p++)
701c2aa98e2SPeter Wemm 		{
702d0cef73dSGregory Neil Shapiro 			if (IntTokenTab[*p & 0xff] == ATM)
703d0cef73dSGregory Neil Shapiro 				IntTokenTab[*p & 0xff] = OPR;
704d0cef73dSGregory Neil Shapiro 			if (ExtTokenTab[*p & 0xff] == ATM)
705d0cef73dSGregory Neil Shapiro 				ExtTokenTab[*p & 0xff] = OPR;
70606f25ae9SGregory Neil Shapiro 			if (TokTypeNoC[*p & 0xff] == ATM)
70706f25ae9SGregory Neil Shapiro 				TokTypeNoC[*p & 0xff] = OPR;
708c2aa98e2SPeter Wemm 		}
709c2aa98e2SPeter Wemm 	}
710c2aa98e2SPeter Wemm 	if (toktab == NULL)
711d0cef73dSGregory Neil Shapiro 		toktab = ExtTokenTab;
712c2aa98e2SPeter Wemm 
713c2aa98e2SPeter Wemm 	/* make sure error messages don't have garbage on them */
714c2aa98e2SPeter Wemm 	errno = 0;
715c2aa98e2SPeter Wemm 
716c2aa98e2SPeter Wemm 	q = pvpbuf;
71740266059SGregory Neil Shapiro 	bslashmode = false;
71840266059SGregory Neil Shapiro 	route_syntax = false;
719c2aa98e2SPeter Wemm 	cmntcnt = 0;
720c2aa98e2SPeter Wemm 	anglecnt = 0;
721c2aa98e2SPeter Wemm 	avp = av;
722c2aa98e2SPeter Wemm 	state = ATM;
723c2aa98e2SPeter Wemm 	c = NOCHAR;
724c2aa98e2SPeter Wemm 	p = addr;
725c2aa98e2SPeter Wemm 	CurEnv->e_to = p;
726c2aa98e2SPeter Wemm 	if (tTd(22, 11))
727c2aa98e2SPeter Wemm 	{
72840266059SGregory Neil Shapiro 		sm_dprintf("prescan: ");
729e92d3f3fSGregory Neil Shapiro 		xputs(sm_debug_file(), p);
73040266059SGregory Neil Shapiro 		sm_dprintf("\n");
731c2aa98e2SPeter Wemm 	}
732c2aa98e2SPeter Wemm 
733c2aa98e2SPeter Wemm 	do
734c2aa98e2SPeter Wemm 	{
735c2aa98e2SPeter Wemm 		/* read a token */
736c2aa98e2SPeter Wemm 		tok = q;
737c2aa98e2SPeter Wemm 		for (;;)
738c2aa98e2SPeter Wemm 		{
739c2aa98e2SPeter Wemm 			/* store away any old lookahead character */
740c2aa98e2SPeter Wemm 			if (c != NOCHAR && !bslashmode)
741c2aa98e2SPeter Wemm 			{
742c2aa98e2SPeter Wemm 				/* see if there is room */
743c2aa98e2SPeter Wemm 				if (q >= &pvpbuf[pvpbsize - 5])
744c2aa98e2SPeter Wemm 				{
7455ef517c0SGregory Neil Shapiro 	addrtoolong:
74606f25ae9SGregory Neil Shapiro 					usrerr("553 5.1.1 Address too long");
74740266059SGregory Neil Shapiro 					if (strlen(addr) > MAXNAME)
748c2aa98e2SPeter Wemm 						addr[MAXNAME] = '\0';
749c2aa98e2SPeter Wemm 	returnnull:
750c2aa98e2SPeter Wemm 					if (delimptr != NULL)
75158fec675SJacques Vidrine 					{
75258fec675SJacques Vidrine 						if (p > addr)
753a7ec597cSGregory Neil Shapiro 							--p;
754c2aa98e2SPeter Wemm 						*delimptr = p;
75558fec675SJacques Vidrine 					}
756c2aa98e2SPeter Wemm 					CurEnv->e_to = saveto;
75706f25ae9SGregory Neil Shapiro 					return NULL;
758c2aa98e2SPeter Wemm 				}
759c2aa98e2SPeter Wemm 
760c2aa98e2SPeter Wemm 				/* squirrel it away */
7615ef517c0SGregory Neil Shapiro #if !ALLOW_255
762d0cef73dSGregory Neil Shapiro 				if ((char) c == (char) -1 && !tTd(82, 101) &&
763d0cef73dSGregory Neil Shapiro 				    !EightBitAddrOK)
7645ef517c0SGregory Neil Shapiro 					c &= 0x7f;
7655ef517c0SGregory Neil Shapiro #endif /* !ALLOW_255 */
766c2aa98e2SPeter Wemm 				*q++ = c;
767c2aa98e2SPeter Wemm 			}
768c2aa98e2SPeter Wemm 
769c2aa98e2SPeter Wemm 			/* read a new input character */
7705ef517c0SGregory Neil Shapiro 			c = (*p++) & 0x00ff;
771c2aa98e2SPeter Wemm 			if (c == '\0')
772c2aa98e2SPeter Wemm 			{
773c2aa98e2SPeter Wemm 				/* diagnose and patch up bad syntax */
774e92d3f3fSGregory Neil Shapiro 				if (ignore)
775e92d3f3fSGregory Neil Shapiro 					break;
776e92d3f3fSGregory Neil Shapiro 				else if (state == QST)
777c2aa98e2SPeter Wemm 				{
77840266059SGregory Neil Shapiro 					usrerr("553 Unbalanced '\"'");
779c2aa98e2SPeter Wemm 					c = '"';
780c2aa98e2SPeter Wemm 				}
781c2aa98e2SPeter Wemm 				else if (cmntcnt > 0)
782c2aa98e2SPeter Wemm 				{
78340266059SGregory Neil Shapiro 					usrerr("553 Unbalanced '('");
784c2aa98e2SPeter Wemm 					c = ')';
785c2aa98e2SPeter Wemm 				}
786c2aa98e2SPeter Wemm 				else if (anglecnt > 0)
787c2aa98e2SPeter Wemm 				{
788c2aa98e2SPeter Wemm 					c = '>';
78940266059SGregory Neil Shapiro 					usrerr("553 Unbalanced '<'");
790c2aa98e2SPeter Wemm 				}
791c2aa98e2SPeter Wemm 				else
792c2aa98e2SPeter Wemm 					break;
793c2aa98e2SPeter Wemm 
794c2aa98e2SPeter Wemm 				p--;
795c2aa98e2SPeter Wemm 			}
796c2aa98e2SPeter Wemm 			else if (c == delim && cmntcnt <= 0 && state != QST)
797c2aa98e2SPeter Wemm 			{
798c2aa98e2SPeter Wemm 				if (anglecnt <= 0)
799c2aa98e2SPeter Wemm 					break;
800c2aa98e2SPeter Wemm 
801c2aa98e2SPeter Wemm 				/* special case for better error management */
802e92d3f3fSGregory Neil Shapiro 				if (delim == ',' && !route_syntax && !ignore)
803c2aa98e2SPeter Wemm 				{
80440266059SGregory Neil Shapiro 					usrerr("553 Unbalanced '<'");
805c2aa98e2SPeter Wemm 					c = '>';
806c2aa98e2SPeter Wemm 					p--;
807c2aa98e2SPeter Wemm 				}
808c2aa98e2SPeter Wemm 			}
809c2aa98e2SPeter Wemm 
810c2aa98e2SPeter Wemm 			if (tTd(22, 101))
81140266059SGregory Neil Shapiro 				sm_dprintf("c=%c, s=%d; ", c, state);
812c2aa98e2SPeter Wemm 
813c2aa98e2SPeter Wemm 			/* chew up special characters */
814c2aa98e2SPeter Wemm 			*q = '\0';
815c2aa98e2SPeter Wemm 			if (bslashmode)
816c2aa98e2SPeter Wemm 			{
81740266059SGregory Neil Shapiro 				bslashmode = false;
818c2aa98e2SPeter Wemm 
819c2aa98e2SPeter Wemm 				/* kludge \! for naive users */
820c2aa98e2SPeter Wemm 				if (cmntcnt > 0)
821c2aa98e2SPeter Wemm 				{
822c2aa98e2SPeter Wemm 					c = NOCHAR;
823c2aa98e2SPeter Wemm 					continue;
824c2aa98e2SPeter Wemm 				}
825c2aa98e2SPeter Wemm 				else if (c != '!' || state == QST)
826c2aa98e2SPeter Wemm 				{
8275ef517c0SGregory Neil Shapiro 					/* see if there is room */
8285ef517c0SGregory Neil Shapiro 					if (q >= &pvpbuf[pvpbsize - 5])
8295ef517c0SGregory Neil Shapiro 						goto addrtoolong;
830c2aa98e2SPeter Wemm 					*q++ = '\\';
831c2aa98e2SPeter Wemm 					continue;
832c2aa98e2SPeter Wemm 				}
833c2aa98e2SPeter Wemm 			}
834c2aa98e2SPeter Wemm 
835c2aa98e2SPeter Wemm 			if (c == '\\')
836c2aa98e2SPeter Wemm 			{
83740266059SGregory Neil Shapiro 				bslashmode = true;
838c2aa98e2SPeter Wemm 			}
839c2aa98e2SPeter Wemm 			else if (state == QST)
840c2aa98e2SPeter Wemm 			{
84106f25ae9SGregory Neil Shapiro 				/* EMPTY */
842c2aa98e2SPeter Wemm 				/* do nothing, just avoid next clauses */
843c2aa98e2SPeter Wemm 			}
84406f25ae9SGregory Neil Shapiro 			else if (c == '(' && toktab['('] == SPC)
845c2aa98e2SPeter Wemm 			{
846c2aa98e2SPeter Wemm 				cmntcnt++;
847c2aa98e2SPeter Wemm 				c = NOCHAR;
848c2aa98e2SPeter Wemm 			}
84906f25ae9SGregory Neil Shapiro 			else if (c == ')' && toktab['('] == SPC)
850c2aa98e2SPeter Wemm 			{
851c2aa98e2SPeter Wemm 				if (cmntcnt <= 0)
852c2aa98e2SPeter Wemm 				{
853e92d3f3fSGregory Neil Shapiro 					if (!ignore)
854e92d3f3fSGregory Neil Shapiro 					{
85540266059SGregory Neil Shapiro 						usrerr("553 Unbalanced ')'");
856c2aa98e2SPeter Wemm 						c = NOCHAR;
857c2aa98e2SPeter Wemm 					}
858e92d3f3fSGregory Neil Shapiro 				}
859c2aa98e2SPeter Wemm 				else
860c2aa98e2SPeter Wemm 					cmntcnt--;
861c2aa98e2SPeter Wemm 			}
862c2aa98e2SPeter Wemm 			else if (cmntcnt > 0)
86306f25ae9SGregory Neil Shapiro 			{
864c2aa98e2SPeter Wemm 				c = NOCHAR;
86506f25ae9SGregory Neil Shapiro 			}
866c2aa98e2SPeter Wemm 			else if (c == '<')
867c2aa98e2SPeter Wemm 			{
86806f25ae9SGregory Neil Shapiro 				char *ptr = p;
869c2aa98e2SPeter Wemm 
870c2aa98e2SPeter Wemm 				anglecnt++;
87106f25ae9SGregory Neil Shapiro 				while (isascii(*ptr) && isspace(*ptr))
87206f25ae9SGregory Neil Shapiro 					ptr++;
87306f25ae9SGregory Neil Shapiro 				if (*ptr == '@')
87440266059SGregory Neil Shapiro 					route_syntax = true;
875c2aa98e2SPeter Wemm 			}
876c2aa98e2SPeter Wemm 			else if (c == '>')
877c2aa98e2SPeter Wemm 			{
878c2aa98e2SPeter Wemm 				if (anglecnt <= 0)
879c2aa98e2SPeter Wemm 				{
880e92d3f3fSGregory Neil Shapiro 					if (!ignore)
881e92d3f3fSGregory Neil Shapiro 					{
88240266059SGregory Neil Shapiro 						usrerr("553 Unbalanced '>'");
883c2aa98e2SPeter Wemm 						c = NOCHAR;
884c2aa98e2SPeter Wemm 					}
885e92d3f3fSGregory Neil Shapiro 				}
886c2aa98e2SPeter Wemm 				else
887c2aa98e2SPeter Wemm 					anglecnt--;
88840266059SGregory Neil Shapiro 				route_syntax = false;
889c2aa98e2SPeter Wemm 			}
890c2aa98e2SPeter Wemm 			else if (delim == ' ' && isascii(c) && isspace(c))
891c2aa98e2SPeter Wemm 				c = ' ';
892c2aa98e2SPeter Wemm 
893c2aa98e2SPeter Wemm 			if (c == NOCHAR)
894c2aa98e2SPeter Wemm 				continue;
895c2aa98e2SPeter Wemm 
896c2aa98e2SPeter Wemm 			/* see if this is end of input */
897c2aa98e2SPeter Wemm 			if (c == delim && anglecnt <= 0 && state != QST)
898c2aa98e2SPeter Wemm 				break;
899c2aa98e2SPeter Wemm 
900c2aa98e2SPeter Wemm 			newstate = StateTab[state][toktab[c & 0xff]];
901c2aa98e2SPeter Wemm 			if (tTd(22, 101))
90240266059SGregory Neil Shapiro 				sm_dprintf("ns=%02o\n", newstate);
903c2aa98e2SPeter Wemm 			state = newstate & TYPE;
904c2aa98e2SPeter Wemm 			if (state == ILL)
905c2aa98e2SPeter Wemm 			{
906c2aa98e2SPeter Wemm 				if (isascii(c) && isprint(c))
90740266059SGregory Neil Shapiro 					usrerr("553 Illegal character %c", c);
908c2aa98e2SPeter Wemm 				else
90940266059SGregory Neil Shapiro 					usrerr("553 Illegal character 0x%02x",
91040266059SGregory Neil Shapiro 					       c & 0x0ff);
911c2aa98e2SPeter Wemm 			}
912c2aa98e2SPeter Wemm 			if (bitset(M, newstate))
913c2aa98e2SPeter Wemm 				c = NOCHAR;
914c2aa98e2SPeter Wemm 			if (bitset(B, newstate))
915c2aa98e2SPeter Wemm 				break;
916c2aa98e2SPeter Wemm 		}
917c2aa98e2SPeter Wemm 
918c2aa98e2SPeter Wemm 		/* new token */
919c2aa98e2SPeter Wemm 		if (tok != q)
920c2aa98e2SPeter Wemm 		{
9215ef517c0SGregory Neil Shapiro 			/* see if there is room */
9225ef517c0SGregory Neil Shapiro 			if (q >= &pvpbuf[pvpbsize - 5])
9235ef517c0SGregory Neil Shapiro 				goto addrtoolong;
924c2aa98e2SPeter Wemm 			*q++ = '\0';
925c2aa98e2SPeter Wemm 			if (tTd(22, 36))
926c2aa98e2SPeter Wemm 			{
92740266059SGregory Neil Shapiro 				sm_dprintf("tok=");
928e92d3f3fSGregory Neil Shapiro 				xputs(sm_debug_file(), tok);
92940266059SGregory Neil Shapiro 				sm_dprintf("\n");
930c2aa98e2SPeter Wemm 			}
931c2aa98e2SPeter Wemm 			if (avp >= &av[MAXATOM])
932c2aa98e2SPeter Wemm 			{
93306f25ae9SGregory Neil Shapiro 				usrerr("553 5.1.0 prescan: too many tokens");
934c2aa98e2SPeter Wemm 				goto returnnull;
935c2aa98e2SPeter Wemm 			}
936c2aa98e2SPeter Wemm 			if (q - tok > MAXNAME)
937c2aa98e2SPeter Wemm 			{
93806f25ae9SGregory Neil Shapiro 				usrerr("553 5.1.0 prescan: token too long");
939c2aa98e2SPeter Wemm 				goto returnnull;
940c2aa98e2SPeter Wemm 			}
941c2aa98e2SPeter Wemm 			*avp++ = tok;
942c2aa98e2SPeter Wemm 		}
943c2aa98e2SPeter Wemm 	} while (c != '\0' && (c != delim || anglecnt > 0));
944c2aa98e2SPeter Wemm 	*avp = NULL;
945c2aa98e2SPeter Wemm 	if (delimptr != NULL)
946a7ec597cSGregory Neil Shapiro 	{
947a7ec597cSGregory Neil Shapiro 		if (p > addr)
948a7ec597cSGregory Neil Shapiro 			p--;
949c2aa98e2SPeter Wemm 		*delimptr = p;
950a7ec597cSGregory Neil Shapiro 	}
951c2aa98e2SPeter Wemm 	if (tTd(22, 12))
952c2aa98e2SPeter Wemm 	{
95340266059SGregory Neil Shapiro 		sm_dprintf("prescan==>");
954e92d3f3fSGregory Neil Shapiro 		printav(sm_debug_file(), av);
955c2aa98e2SPeter Wemm 	}
956c2aa98e2SPeter Wemm 	CurEnv->e_to = saveto;
957c2aa98e2SPeter Wemm 	if (av[0] == NULL)
958c2aa98e2SPeter Wemm 	{
959c2aa98e2SPeter Wemm 		if (tTd(22, 1))
96040266059SGregory Neil Shapiro 			sm_dprintf("prescan: null leading token\n");
96106f25ae9SGregory Neil Shapiro 		return NULL;
962c2aa98e2SPeter Wemm 	}
96306f25ae9SGregory Neil Shapiro 	return av;
964c2aa98e2SPeter Wemm }
96540266059SGregory Neil Shapiro /*
966c2aa98e2SPeter Wemm **  REWRITE -- apply rewrite rules to token vector.
967c2aa98e2SPeter Wemm **
968c2aa98e2SPeter Wemm **	This routine is an ordered production system.  Each rewrite
969c2aa98e2SPeter Wemm **	rule has a LHS (called the pattern) and a RHS (called the
970c2aa98e2SPeter Wemm **	rewrite); 'rwr' points the the current rewrite rule.
971c2aa98e2SPeter Wemm **
972c2aa98e2SPeter Wemm **	For each rewrite rule, 'avp' points the address vector we
973c2aa98e2SPeter Wemm **	are trying to match against, and 'pvp' points to the pattern.
974c2aa98e2SPeter Wemm **	If pvp points to a special match value (MATCHZANY, MATCHANY,
975c2aa98e2SPeter Wemm **	MATCHONE, MATCHCLASS, MATCHNCLASS) then the address in avp
976c2aa98e2SPeter Wemm **	matched is saved away in the match vector (pointed to by 'mvp').
977c2aa98e2SPeter Wemm **
978c2aa98e2SPeter Wemm **	When a match between avp & pvp does not match, we try to
979c2aa98e2SPeter Wemm **	back out.  If we back up over MATCHONE, MATCHCLASS, or MATCHNCLASS
980c2aa98e2SPeter Wemm **	we must also back out the match in mvp.  If we reach a
981c2aa98e2SPeter Wemm **	MATCHANY or MATCHZANY we just extend the match and start
982c2aa98e2SPeter Wemm **	over again.
983c2aa98e2SPeter Wemm **
984c2aa98e2SPeter Wemm **	When we finally match, we rewrite the address vector
985c2aa98e2SPeter Wemm **	and try over again.
986c2aa98e2SPeter Wemm **
987c2aa98e2SPeter Wemm **	Parameters:
988c2aa98e2SPeter Wemm **		pvp -- pointer to token vector.
989c2aa98e2SPeter Wemm **		ruleset -- the ruleset to use for rewriting.
990c2aa98e2SPeter Wemm **		reclevel -- recursion level (to catch loops).
991c2aa98e2SPeter Wemm **		e -- the current envelope.
99240266059SGregory Neil Shapiro **		maxatom -- maximum length of buffer (usually MAXATOM)
993c2aa98e2SPeter Wemm **
994c2aa98e2SPeter Wemm **	Returns:
995c2aa98e2SPeter Wemm **		A status code.  If EX_TEMPFAIL, higher level code should
996c2aa98e2SPeter Wemm **			attempt recovery.
997c2aa98e2SPeter Wemm **
998c2aa98e2SPeter Wemm **	Side Effects:
999c2aa98e2SPeter Wemm **		pvp is modified.
1000c2aa98e2SPeter Wemm */
1001c2aa98e2SPeter Wemm 
1002c2aa98e2SPeter Wemm struct match
1003c2aa98e2SPeter Wemm {
100406f25ae9SGregory Neil Shapiro 	char	**match_first;		/* first token matched */
100506f25ae9SGregory Neil Shapiro 	char	**match_last;		/* last token matched */
100606f25ae9SGregory Neil Shapiro 	char	**match_pattern;	/* pointer to pattern */
1007c2aa98e2SPeter Wemm };
1008c2aa98e2SPeter Wemm 
1009c2aa98e2SPeter Wemm int
101040266059SGregory Neil Shapiro rewrite(pvp, ruleset, reclevel, e, maxatom)
1011c2aa98e2SPeter Wemm 	char **pvp;
1012c2aa98e2SPeter Wemm 	int ruleset;
1013c2aa98e2SPeter Wemm 	int reclevel;
1014c2aa98e2SPeter Wemm 	register ENVELOPE *e;
101540266059SGregory Neil Shapiro 	int maxatom;
1016c2aa98e2SPeter Wemm {
1017c2aa98e2SPeter Wemm 	register char *ap;		/* address pointer */
1018c2aa98e2SPeter Wemm 	register char *rp;		/* rewrite pointer */
101906f25ae9SGregory Neil Shapiro 	register char *rulename;	/* ruleset name */
102006f25ae9SGregory Neil Shapiro 	register char *prefix;
1021c2aa98e2SPeter Wemm 	register char **avp;		/* address vector pointer */
1022c2aa98e2SPeter Wemm 	register char **rvp;		/* rewrite vector pointer */
1023c2aa98e2SPeter Wemm 	register struct match *mlp;	/* cur ptr into mlist */
1024c2aa98e2SPeter Wemm 	register struct rewrite *rwr;	/* pointer to current rewrite rule */
1025c2aa98e2SPeter Wemm 	int ruleno;			/* current rule number */
1026c2aa98e2SPeter Wemm 	int rstat = EX_OK;		/* return status */
1027c2aa98e2SPeter Wemm 	int loopcount;
1028c2aa98e2SPeter Wemm 	struct match mlist[MAXMATCH];	/* stores match on LHS */
1029c2aa98e2SPeter Wemm 	char *npvp[MAXATOM + 1];	/* temporary space for rebuild */
1030c2aa98e2SPeter Wemm 	char buf[MAXLINE];
103106f25ae9SGregory Neil Shapiro 	char name[6];
1032c2aa98e2SPeter Wemm 
1033a7ec597cSGregory Neil Shapiro 	/*
1034a7ec597cSGregory Neil Shapiro 	**  mlp will not exceed mlist[] because readcf enforces
1035a7ec597cSGregory Neil Shapiro 	**	the upper limit of entries when reading rulesets.
1036a7ec597cSGregory Neil Shapiro 	*/
1037a7ec597cSGregory Neil Shapiro 
1038c2aa98e2SPeter Wemm 	if (ruleset < 0 || ruleset >= MAXRWSETS)
1039c2aa98e2SPeter Wemm 	{
104006f25ae9SGregory Neil Shapiro 		syserr("554 5.3.5 rewrite: illegal ruleset number %d", ruleset);
1041c2aa98e2SPeter Wemm 		return EX_CONFIG;
1042c2aa98e2SPeter Wemm 	}
104306f25ae9SGregory Neil Shapiro 	rulename = RuleSetNames[ruleset];
104406f25ae9SGregory Neil Shapiro 	if (rulename == NULL)
104506f25ae9SGregory Neil Shapiro 	{
1046d0cef73dSGregory Neil Shapiro 		(void) sm_snprintf(name, sizeof(name), "%d", ruleset);
104706f25ae9SGregory Neil Shapiro 		rulename = name;
104806f25ae9SGregory Neil Shapiro 	}
104906f25ae9SGregory Neil Shapiro 	if (OpMode == MD_TEST)
105006f25ae9SGregory Neil Shapiro 		prefix = "";
105106f25ae9SGregory Neil Shapiro 	else
105206f25ae9SGregory Neil Shapiro 		prefix = "rewrite: ruleset ";
105306f25ae9SGregory Neil Shapiro 	if (OpMode == MD_TEST)
105406f25ae9SGregory Neil Shapiro 	{
105540266059SGregory Neil Shapiro 		(void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
105640266059SGregory Neil Shapiro 				     "%s%-16.16s   input:", prefix, rulename);
1057e92d3f3fSGregory Neil Shapiro 		printav(smioout, pvp);
105806f25ae9SGregory Neil Shapiro 	}
105906f25ae9SGregory Neil Shapiro 	else if (tTd(21, 1))
106006f25ae9SGregory Neil Shapiro 	{
106140266059SGregory Neil Shapiro 		sm_dprintf("%s%-16.16s   input:", prefix, rulename);
1062e92d3f3fSGregory Neil Shapiro 		printav(sm_debug_file(), pvp);
106306f25ae9SGregory Neil Shapiro 	}
1064c2aa98e2SPeter Wemm 	if (reclevel++ > MaxRuleRecursion)
1065c2aa98e2SPeter Wemm 	{
106606f25ae9SGregory Neil Shapiro 		syserr("rewrite: excessive recursion (max %d), ruleset %s",
106706f25ae9SGregory Neil Shapiro 			MaxRuleRecursion, rulename);
1068c2aa98e2SPeter Wemm 		return EX_CONFIG;
1069c2aa98e2SPeter Wemm 	}
1070c2aa98e2SPeter Wemm 	if (pvp == NULL)
1071c2aa98e2SPeter Wemm 		return EX_USAGE;
1072a7ec597cSGregory Neil Shapiro 	if (maxatom <= 0)
1073a7ec597cSGregory Neil Shapiro 		return EX_USAGE;
1074c2aa98e2SPeter Wemm 
1075c2aa98e2SPeter Wemm 	/*
1076c2aa98e2SPeter Wemm 	**  Run through the list of rewrite rules, applying
1077c2aa98e2SPeter Wemm 	**	any that match.
1078c2aa98e2SPeter Wemm 	*/
1079c2aa98e2SPeter Wemm 
1080c2aa98e2SPeter Wemm 	ruleno = 1;
1081c2aa98e2SPeter Wemm 	loopcount = 0;
1082c2aa98e2SPeter Wemm 	for (rwr = RewriteRules[ruleset]; rwr != NULL; )
1083c2aa98e2SPeter Wemm 	{
108406f25ae9SGregory Neil Shapiro 		int status;
1085c2aa98e2SPeter Wemm 
1086c2aa98e2SPeter Wemm 		/* if already canonical, quit now */
1087c2aa98e2SPeter Wemm 		if (pvp[0] != NULL && (pvp[0][0] & 0377) == CANONNET)
1088c2aa98e2SPeter Wemm 			break;
1089c2aa98e2SPeter Wemm 
1090c2aa98e2SPeter Wemm 		if (tTd(21, 12))
1091c2aa98e2SPeter Wemm 		{
109206f25ae9SGregory Neil Shapiro 			if (tTd(21, 15))
109340266059SGregory Neil Shapiro 				sm_dprintf("-----trying rule (line %d):",
109406f25ae9SGregory Neil Shapiro 				       rwr->r_line);
109506f25ae9SGregory Neil Shapiro 			else
109640266059SGregory Neil Shapiro 				sm_dprintf("-----trying rule:");
1097e92d3f3fSGregory Neil Shapiro 			printav(sm_debug_file(), rwr->r_lhs);
1098c2aa98e2SPeter Wemm 		}
1099c2aa98e2SPeter Wemm 
1100c2aa98e2SPeter Wemm 		/* try to match on this rule */
1101c2aa98e2SPeter Wemm 		mlp = mlist;
1102c2aa98e2SPeter Wemm 		rvp = rwr->r_lhs;
1103c2aa98e2SPeter Wemm 		avp = pvp;
1104c2aa98e2SPeter Wemm 		if (++loopcount > 100)
1105c2aa98e2SPeter Wemm 		{
110606f25ae9SGregory Neil Shapiro 			syserr("554 5.3.5 Infinite loop in ruleset %s, rule %d",
110706f25ae9SGregory Neil Shapiro 				rulename, ruleno);
1108c2aa98e2SPeter Wemm 			if (tTd(21, 1))
1109c2aa98e2SPeter Wemm 			{
111040266059SGregory Neil Shapiro 				sm_dprintf("workspace: ");
1111e92d3f3fSGregory Neil Shapiro 				printav(sm_debug_file(), pvp);
1112c2aa98e2SPeter Wemm 			}
1113c2aa98e2SPeter Wemm 			break;
1114c2aa98e2SPeter Wemm 		}
1115c2aa98e2SPeter Wemm 
1116c2aa98e2SPeter Wemm 		while ((ap = *avp) != NULL || *rvp != NULL)
1117c2aa98e2SPeter Wemm 		{
1118c2aa98e2SPeter Wemm 			rp = *rvp;
1119c2aa98e2SPeter Wemm 			if (tTd(21, 35))
1120c2aa98e2SPeter Wemm 			{
112140266059SGregory Neil Shapiro 				sm_dprintf("ADVANCE rp=");
1122e92d3f3fSGregory Neil Shapiro 				xputs(sm_debug_file(), rp);
112340266059SGregory Neil Shapiro 				sm_dprintf(", ap=");
1124e92d3f3fSGregory Neil Shapiro 				xputs(sm_debug_file(), ap);
112540266059SGregory Neil Shapiro 				sm_dprintf("\n");
1126c2aa98e2SPeter Wemm 			}
1127c2aa98e2SPeter Wemm 			if (rp == NULL)
1128c2aa98e2SPeter Wemm 			{
1129c2aa98e2SPeter Wemm 				/* end-of-pattern before end-of-address */
1130c2aa98e2SPeter Wemm 				goto backup;
1131c2aa98e2SPeter Wemm 			}
1132d0cef73dSGregory Neil Shapiro 			if (ap == NULL &&
1133d0cef73dSGregory Neil Shapiro 			    (rp[0] & 0377) != MATCHZANY &&
1134d0cef73dSGregory Neil Shapiro 			    (rp[0] & 0377) != MATCHZERO)
1135c2aa98e2SPeter Wemm 			{
1136c2aa98e2SPeter Wemm 				/* end-of-input with patterns left */
1137c2aa98e2SPeter Wemm 				goto backup;
1138c2aa98e2SPeter Wemm 			}
1139c2aa98e2SPeter Wemm 
1140d0cef73dSGregory Neil Shapiro 			switch (rp[0] & 0377)
1141c2aa98e2SPeter Wemm 			{
1142c2aa98e2SPeter Wemm 			  case MATCHCLASS:
1143c2aa98e2SPeter Wemm 				/* match any phrase in a class */
114406f25ae9SGregory Neil Shapiro 				mlp->match_pattern = rvp;
114506f25ae9SGregory Neil Shapiro 				mlp->match_first = avp;
1146c2aa98e2SPeter Wemm 	extendclass:
1147c2aa98e2SPeter Wemm 				ap = *avp;
1148c2aa98e2SPeter Wemm 				if (ap == NULL)
1149c2aa98e2SPeter Wemm 					goto backup;
115006f25ae9SGregory Neil Shapiro 				mlp->match_last = avp++;
115106f25ae9SGregory Neil Shapiro 				cataddr(mlp->match_first, mlp->match_last,
1152d0cef73dSGregory Neil Shapiro 					buf, sizeof(buf), '\0', true);
1153c2aa98e2SPeter Wemm 				if (!wordinclass(buf, rp[1]))
1154c2aa98e2SPeter Wemm 				{
1155c2aa98e2SPeter Wemm 					if (tTd(21, 36))
1156c2aa98e2SPeter Wemm 					{
115740266059SGregory Neil Shapiro 						sm_dprintf("EXTEND  rp=");
1158e92d3f3fSGregory Neil Shapiro 						xputs(sm_debug_file(), rp);
115940266059SGregory Neil Shapiro 						sm_dprintf(", ap=");
1160e92d3f3fSGregory Neil Shapiro 						xputs(sm_debug_file(), ap);
116140266059SGregory Neil Shapiro 						sm_dprintf("\n");
1162c2aa98e2SPeter Wemm 					}
1163c2aa98e2SPeter Wemm 					goto extendclass;
1164c2aa98e2SPeter Wemm 				}
1165c2aa98e2SPeter Wemm 				if (tTd(21, 36))
116640266059SGregory Neil Shapiro 					sm_dprintf("CLMATCH\n");
1167c2aa98e2SPeter Wemm 				mlp++;
1168c2aa98e2SPeter Wemm 				break;
1169c2aa98e2SPeter Wemm 
1170c2aa98e2SPeter Wemm 			  case MATCHNCLASS:
1171c2aa98e2SPeter Wemm 				/* match any token not in a class */
1172c2aa98e2SPeter Wemm 				if (wordinclass(ap, rp[1]))
1173c2aa98e2SPeter Wemm 					goto backup;
1174c2aa98e2SPeter Wemm 
117506f25ae9SGregory Neil Shapiro 				/* FALLTHROUGH */
1176c2aa98e2SPeter Wemm 
1177c2aa98e2SPeter Wemm 			  case MATCHONE:
1178c2aa98e2SPeter Wemm 			  case MATCHANY:
1179c2aa98e2SPeter Wemm 				/* match exactly one token */
118006f25ae9SGregory Neil Shapiro 				mlp->match_pattern = rvp;
118106f25ae9SGregory Neil Shapiro 				mlp->match_first = avp;
118206f25ae9SGregory Neil Shapiro 				mlp->match_last = avp++;
1183c2aa98e2SPeter Wemm 				mlp++;
1184c2aa98e2SPeter Wemm 				break;
1185c2aa98e2SPeter Wemm 
1186c2aa98e2SPeter Wemm 			  case MATCHZANY:
1187c2aa98e2SPeter Wemm 				/* match zero or more tokens */
118806f25ae9SGregory Neil Shapiro 				mlp->match_pattern = rvp;
118906f25ae9SGregory Neil Shapiro 				mlp->match_first = avp;
119006f25ae9SGregory Neil Shapiro 				mlp->match_last = avp - 1;
1191c2aa98e2SPeter Wemm 				mlp++;
1192c2aa98e2SPeter Wemm 				break;
1193c2aa98e2SPeter Wemm 
1194c2aa98e2SPeter Wemm 			  case MATCHZERO:
1195c2aa98e2SPeter Wemm 				/* match zero tokens */
1196c2aa98e2SPeter Wemm 				break;
1197c2aa98e2SPeter Wemm 
1198c2aa98e2SPeter Wemm 			  case MACRODEXPAND:
1199c2aa98e2SPeter Wemm 				/*
1200c2aa98e2SPeter Wemm 				**  Match against run-time macro.
1201c2aa98e2SPeter Wemm 				**  This algorithm is broken for the
1202c2aa98e2SPeter Wemm 				**  general case (no recursive macros,
1203c2aa98e2SPeter Wemm 				**  improper tokenization) but should
1204c2aa98e2SPeter Wemm 				**  work for the usual cases.
1205c2aa98e2SPeter Wemm 				*/
1206c2aa98e2SPeter Wemm 
1207c2aa98e2SPeter Wemm 				ap = macvalue(rp[1], e);
120806f25ae9SGregory Neil Shapiro 				mlp->match_first = avp;
1209c2aa98e2SPeter Wemm 				if (tTd(21, 2))
1210739ac4d4SGregory Neil Shapiro 					sm_dprintf("rewrite: LHS $&{%s} => \"%s\"\n",
1211c2aa98e2SPeter Wemm 						macname(rp[1]),
1212c2aa98e2SPeter Wemm 						ap == NULL ? "(NULL)" : ap);
1213c2aa98e2SPeter Wemm 
1214c2aa98e2SPeter Wemm 				if (ap == NULL)
1215c2aa98e2SPeter Wemm 					break;
1216c2aa98e2SPeter Wemm 				while (*ap != '\0')
1217c2aa98e2SPeter Wemm 				{
1218c2aa98e2SPeter Wemm 					if (*avp == NULL ||
121940266059SGregory Neil Shapiro 					    sm_strncasecmp(ap, *avp,
122040266059SGregory Neil Shapiro 							   strlen(*avp)) != 0)
1221c2aa98e2SPeter Wemm 					{
1222c2aa98e2SPeter Wemm 						/* no match */
122306f25ae9SGregory Neil Shapiro 						avp = mlp->match_first;
1224c2aa98e2SPeter Wemm 						goto backup;
1225c2aa98e2SPeter Wemm 					}
1226c2aa98e2SPeter Wemm 					ap += strlen(*avp++);
1227c2aa98e2SPeter Wemm 				}
1228c2aa98e2SPeter Wemm 
1229c2aa98e2SPeter Wemm 				/* match */
1230c2aa98e2SPeter Wemm 				break;
1231c2aa98e2SPeter Wemm 
1232c2aa98e2SPeter Wemm 			  default:
1233c2aa98e2SPeter Wemm 				/* must have exact match */
1234c2aa98e2SPeter Wemm 				if (sm_strcasecmp(rp, ap))
1235c2aa98e2SPeter Wemm 					goto backup;
1236c2aa98e2SPeter Wemm 				avp++;
1237c2aa98e2SPeter Wemm 				break;
1238c2aa98e2SPeter Wemm 			}
1239c2aa98e2SPeter Wemm 
1240c2aa98e2SPeter Wemm 			/* successful match on this token */
1241c2aa98e2SPeter Wemm 			rvp++;
1242c2aa98e2SPeter Wemm 			continue;
1243c2aa98e2SPeter Wemm 
1244c2aa98e2SPeter Wemm 	  backup:
1245c2aa98e2SPeter Wemm 			/* match failed -- back up */
1246c2aa98e2SPeter Wemm 			while (--mlp >= mlist)
1247c2aa98e2SPeter Wemm 			{
124806f25ae9SGregory Neil Shapiro 				rvp = mlp->match_pattern;
1249c2aa98e2SPeter Wemm 				rp = *rvp;
125006f25ae9SGregory Neil Shapiro 				avp = mlp->match_last + 1;
1251c2aa98e2SPeter Wemm 				ap = *avp;
1252c2aa98e2SPeter Wemm 
1253c2aa98e2SPeter Wemm 				if (tTd(21, 36))
1254c2aa98e2SPeter Wemm 				{
125540266059SGregory Neil Shapiro 					sm_dprintf("BACKUP  rp=");
1256e92d3f3fSGregory Neil Shapiro 					xputs(sm_debug_file(), rp);
125740266059SGregory Neil Shapiro 					sm_dprintf(", ap=");
1258e92d3f3fSGregory Neil Shapiro 					xputs(sm_debug_file(), ap);
125940266059SGregory Neil Shapiro 					sm_dprintf("\n");
1260c2aa98e2SPeter Wemm 				}
1261c2aa98e2SPeter Wemm 
1262c2aa98e2SPeter Wemm 				if (ap == NULL)
1263c2aa98e2SPeter Wemm 				{
1264c2aa98e2SPeter Wemm 					/* run off the end -- back up again */
1265c2aa98e2SPeter Wemm 					continue;
1266c2aa98e2SPeter Wemm 				}
1267d0cef73dSGregory Neil Shapiro 
1268d0cef73dSGregory Neil Shapiro 				if ((rp[0] & 0377) == MATCHANY ||
1269d0cef73dSGregory Neil Shapiro 				    (rp[0] & 0377) == MATCHZANY)
1270c2aa98e2SPeter Wemm 				{
1271c2aa98e2SPeter Wemm 					/* extend binding and continue */
127206f25ae9SGregory Neil Shapiro 					mlp->match_last = avp++;
1273c2aa98e2SPeter Wemm 					rvp++;
1274c2aa98e2SPeter Wemm 					mlp++;
1275c2aa98e2SPeter Wemm 					break;
1276c2aa98e2SPeter Wemm 				}
1277d0cef73dSGregory Neil Shapiro 				if ((rp[0] & 0377) == MATCHCLASS)
1278c2aa98e2SPeter Wemm 				{
1279c2aa98e2SPeter Wemm 					/* extend binding and try again */
128006f25ae9SGregory Neil Shapiro 					mlp->match_last = avp;
1281c2aa98e2SPeter Wemm 					goto extendclass;
1282c2aa98e2SPeter Wemm 				}
1283c2aa98e2SPeter Wemm 			}
1284c2aa98e2SPeter Wemm 
1285c2aa98e2SPeter Wemm 			if (mlp < mlist)
1286c2aa98e2SPeter Wemm 			{
1287c2aa98e2SPeter Wemm 				/* total failure to match */
1288c2aa98e2SPeter Wemm 				break;
1289c2aa98e2SPeter Wemm 			}
1290c2aa98e2SPeter Wemm 		}
1291c2aa98e2SPeter Wemm 
1292c2aa98e2SPeter Wemm 		/*
1293c2aa98e2SPeter Wemm 		**  See if we successfully matched
1294c2aa98e2SPeter Wemm 		*/
1295c2aa98e2SPeter Wemm 
1296c2aa98e2SPeter Wemm 		if (mlp < mlist || *rvp != NULL)
1297c2aa98e2SPeter Wemm 		{
1298c2aa98e2SPeter Wemm 			if (tTd(21, 10))
129940266059SGregory Neil Shapiro 				sm_dprintf("----- rule fails\n");
1300c2aa98e2SPeter Wemm 			rwr = rwr->r_next;
1301c2aa98e2SPeter Wemm 			ruleno++;
1302c2aa98e2SPeter Wemm 			loopcount = 0;
1303c2aa98e2SPeter Wemm 			continue;
1304c2aa98e2SPeter Wemm 		}
1305c2aa98e2SPeter Wemm 
1306c2aa98e2SPeter Wemm 		rvp = rwr->r_rhs;
1307c2aa98e2SPeter Wemm 		if (tTd(21, 12))
1308c2aa98e2SPeter Wemm 		{
130940266059SGregory Neil Shapiro 			sm_dprintf("-----rule matches:");
1310e92d3f3fSGregory Neil Shapiro 			printav(sm_debug_file(), rvp);
1311c2aa98e2SPeter Wemm 		}
1312c2aa98e2SPeter Wemm 
1313c2aa98e2SPeter Wemm 		rp = *rvp;
131406f25ae9SGregory Neil Shapiro 		if (rp != NULL)
131506f25ae9SGregory Neil Shapiro 		{
1316d0cef73dSGregory Neil Shapiro 			if ((rp[0] & 0377) == CANONUSER)
1317c2aa98e2SPeter Wemm 			{
1318c2aa98e2SPeter Wemm 				rvp++;
1319c2aa98e2SPeter Wemm 				rwr = rwr->r_next;
1320c2aa98e2SPeter Wemm 				ruleno++;
1321c2aa98e2SPeter Wemm 				loopcount = 0;
1322c2aa98e2SPeter Wemm 			}
1323d0cef73dSGregory Neil Shapiro 			else if ((rp[0] & 0377) == CANONHOST)
1324c2aa98e2SPeter Wemm 			{
1325c2aa98e2SPeter Wemm 				rvp++;
1326c2aa98e2SPeter Wemm 				rwr = NULL;
1327c2aa98e2SPeter Wemm 			}
132806f25ae9SGregory Neil Shapiro 		}
1329c2aa98e2SPeter Wemm 
1330c2aa98e2SPeter Wemm 		/* substitute */
1331c2aa98e2SPeter Wemm 		for (avp = npvp; *rvp != NULL; rvp++)
1332c2aa98e2SPeter Wemm 		{
1333c2aa98e2SPeter Wemm 			register struct match *m;
1334c2aa98e2SPeter Wemm 			register char **pp;
1335c2aa98e2SPeter Wemm 
1336c2aa98e2SPeter Wemm 			rp = *rvp;
1337d0cef73dSGregory Neil Shapiro 			if ((rp[0] & 0377) == MATCHREPL)
1338c2aa98e2SPeter Wemm 			{
1339c2aa98e2SPeter Wemm 				/* substitute from LHS */
1340c2aa98e2SPeter Wemm 				m = &mlist[rp[1] - '1'];
1341c2aa98e2SPeter Wemm 				if (m < mlist || m >= mlp)
1342c2aa98e2SPeter Wemm 				{
134306f25ae9SGregory Neil Shapiro 					syserr("554 5.3.5 rewrite: ruleset %s: replacement $%c out of bounds",
134406f25ae9SGregory Neil Shapiro 						rulename, rp[1]);
1345c2aa98e2SPeter Wemm 					return EX_CONFIG;
1346c2aa98e2SPeter Wemm 				}
1347c2aa98e2SPeter Wemm 				if (tTd(21, 15))
1348c2aa98e2SPeter Wemm 				{
134940266059SGregory Neil Shapiro 					sm_dprintf("$%c:", rp[1]);
135006f25ae9SGregory Neil Shapiro 					pp = m->match_first;
135106f25ae9SGregory Neil Shapiro 					while (pp <= m->match_last)
1352c2aa98e2SPeter Wemm 					{
135340266059SGregory Neil Shapiro 						sm_dprintf(" %p=\"", *pp);
135440266059SGregory Neil Shapiro 						sm_dflush();
135540266059SGregory Neil Shapiro 						sm_dprintf("%s\"", *pp++);
1356c2aa98e2SPeter Wemm 					}
135740266059SGregory Neil Shapiro 					sm_dprintf("\n");
1358c2aa98e2SPeter Wemm 				}
135906f25ae9SGregory Neil Shapiro 				pp = m->match_first;
136006f25ae9SGregory Neil Shapiro 				while (pp <= m->match_last)
1361c2aa98e2SPeter Wemm 				{
136240266059SGregory Neil Shapiro 					if (avp >= &npvp[maxatom])
1363a7ec597cSGregory Neil Shapiro 						goto toolong;
1364c2aa98e2SPeter Wemm 					*avp++ = *pp++;
1365c2aa98e2SPeter Wemm 				}
1366c2aa98e2SPeter Wemm 			}
1367c2aa98e2SPeter Wemm 			else
1368c2aa98e2SPeter Wemm 			{
1369c2aa98e2SPeter Wemm 				/* some sort of replacement */
137040266059SGregory Neil Shapiro 				if (avp >= &npvp[maxatom])
1371c2aa98e2SPeter Wemm 				{
1372c2aa98e2SPeter Wemm 	toolong:
137306f25ae9SGregory Neil Shapiro 					syserr("554 5.3.0 rewrite: expansion too long");
137440266059SGregory Neil Shapiro 					if (LogLevel > 9)
137540266059SGregory Neil Shapiro 						sm_syslog(LOG_ERR, e->e_id,
137640266059SGregory Neil Shapiro 							"rewrite: expansion too long, ruleset=%s, ruleno=%d",
137740266059SGregory Neil Shapiro 							rulename, ruleno);
1378c2aa98e2SPeter Wemm 					return EX_DATAERR;
1379c2aa98e2SPeter Wemm 				}
1380d0cef73dSGregory Neil Shapiro 				if ((rp[0] & 0377) != MACRODEXPAND)
1381c2aa98e2SPeter Wemm 				{
1382d0cef73dSGregory Neil Shapiro 					/* vanilla replacement from RHS */
1383c2aa98e2SPeter Wemm 					*avp++ = rp;
1384c2aa98e2SPeter Wemm 				}
1385c2aa98e2SPeter Wemm 				else
1386c2aa98e2SPeter Wemm 				{
1387739ac4d4SGregory Neil Shapiro 					/* $&{x} replacement */
1388c2aa98e2SPeter Wemm 					char *mval = macvalue(rp[1], e);
1389c2aa98e2SPeter Wemm 					char **xpvp;
13904e4196cbSGregory Neil Shapiro 					size_t trsize = 0;
1391c2aa98e2SPeter Wemm 					static size_t pvpb1_size = 0;
1392c2aa98e2SPeter Wemm 					static char **pvpb1 = NULL;
1393c2aa98e2SPeter Wemm 					char pvpbuf[PSBUFSIZE];
1394c2aa98e2SPeter Wemm 
1395c2aa98e2SPeter Wemm 					if (tTd(21, 2))
1396739ac4d4SGregory Neil Shapiro 						sm_dprintf("rewrite: RHS $&{%s} => \"%s\"\n",
1397c2aa98e2SPeter Wemm 							macname(rp[1]),
1398c2aa98e2SPeter Wemm 							mval == NULL ? "(NULL)" : mval);
1399c2aa98e2SPeter Wemm 					if (mval == NULL || *mval == '\0')
1400c2aa98e2SPeter Wemm 						continue;
1401c2aa98e2SPeter Wemm 
1402c2aa98e2SPeter Wemm 					/* save the remainder of the input */
1403c2aa98e2SPeter Wemm 					for (xpvp = pvp; *xpvp != NULL; xpvp++)
1404d0cef73dSGregory Neil Shapiro 						trsize += sizeof(*xpvp);
14054e4196cbSGregory Neil Shapiro 					if (trsize > pvpb1_size)
1406c2aa98e2SPeter Wemm 					{
1407c2aa98e2SPeter Wemm 						if (pvpb1 != NULL)
14088774250cSGregory Neil Shapiro 							sm_free(pvpb1);
140940266059SGregory Neil Shapiro 						pvpb1 = (char **)
141040266059SGregory Neil Shapiro 							sm_pmalloc_x(trsize);
1411c2aa98e2SPeter Wemm 						pvpb1_size = trsize;
1412c2aa98e2SPeter Wemm 					}
1413c2aa98e2SPeter Wemm 
141406f25ae9SGregory Neil Shapiro 					memmove((char *) pvpb1,
141506f25ae9SGregory Neil Shapiro 						(char *) pvp,
141606f25ae9SGregory Neil Shapiro 						trsize);
1417c2aa98e2SPeter Wemm 
1418c2aa98e2SPeter Wemm 					/* scan the new replacement */
1419c2aa98e2SPeter Wemm 					xpvp = prescan(mval, '\0', pvpbuf,
1420d0cef73dSGregory Neil Shapiro 						       sizeof(pvpbuf), NULL,
1421e92d3f3fSGregory Neil Shapiro 						       NULL, false);
1422c2aa98e2SPeter Wemm 					if (xpvp == NULL)
1423c2aa98e2SPeter Wemm 					{
1424c2aa98e2SPeter Wemm 						/* prescan pre-printed error */
1425c2aa98e2SPeter Wemm 						return EX_DATAERR;
1426c2aa98e2SPeter Wemm 					}
1427c2aa98e2SPeter Wemm 
1428c2aa98e2SPeter Wemm 					/* insert it into the output stream */
1429c2aa98e2SPeter Wemm 					while (*xpvp != NULL)
1430c2aa98e2SPeter Wemm 					{
1431c2aa98e2SPeter Wemm 						if (tTd(21, 19))
143240266059SGregory Neil Shapiro 							sm_dprintf(" ... %s\n",
143306f25ae9SGregory Neil Shapiro 								*xpvp);
143440266059SGregory Neil Shapiro 						*avp++ = sm_rpool_strdup_x(
143540266059SGregory Neil Shapiro 							e->e_rpool, *xpvp);
143640266059SGregory Neil Shapiro 						if (avp >= &npvp[maxatom])
1437c2aa98e2SPeter Wemm 							goto toolong;
1438c2aa98e2SPeter Wemm 						xpvp++;
1439c2aa98e2SPeter Wemm 					}
1440c2aa98e2SPeter Wemm 					if (tTd(21, 19))
144140266059SGregory Neil Shapiro 						sm_dprintf(" ... DONE\n");
1442c2aa98e2SPeter Wemm 
1443c2aa98e2SPeter Wemm 					/* restore the old trailing input */
144406f25ae9SGregory Neil Shapiro 					memmove((char *) pvp,
144506f25ae9SGregory Neil Shapiro 						(char *) pvpb1,
144606f25ae9SGregory Neil Shapiro 						trsize);
1447c2aa98e2SPeter Wemm 				}
1448c2aa98e2SPeter Wemm 			}
1449c2aa98e2SPeter Wemm 		}
1450c2aa98e2SPeter Wemm 		*avp++ = NULL;
1451c2aa98e2SPeter Wemm 
1452c2aa98e2SPeter Wemm 		/*
1453c2aa98e2SPeter Wemm 		**  Check for any hostname/keyword lookups.
1454c2aa98e2SPeter Wemm 		*/
1455c2aa98e2SPeter Wemm 
1456c2aa98e2SPeter Wemm 		for (rvp = npvp; *rvp != NULL; rvp++)
1457c2aa98e2SPeter Wemm 		{
1458c2aa98e2SPeter Wemm 			char **hbrvp;
1459c2aa98e2SPeter Wemm 			char **xpvp;
14604e4196cbSGregory Neil Shapiro 			size_t trsize;
1461c2aa98e2SPeter Wemm 			char *replac;
1462c2aa98e2SPeter Wemm 			int endtoken;
1463c2aa98e2SPeter Wemm 			STAB *map;
1464c2aa98e2SPeter Wemm 			char *mapname;
1465c2aa98e2SPeter Wemm 			char **key_rvp;
1466c2aa98e2SPeter Wemm 			char **arg_rvp;
1467c2aa98e2SPeter Wemm 			char **default_rvp;
14684e4196cbSGregory Neil Shapiro 			char cbuf[MAXKEY];
1469c2aa98e2SPeter Wemm 			char *pvpb1[MAXATOM + 1];
1470a7ec597cSGregory Neil Shapiro 			char *argvect[MAX_MAP_ARGS];
1471c2aa98e2SPeter Wemm 			char pvpbuf[PSBUFSIZE];
1472c2aa98e2SPeter Wemm 			char *nullpvp[1];
1473c2aa98e2SPeter Wemm 
1474c2aa98e2SPeter Wemm 			hbrvp = rvp;
1475d0cef73dSGregory Neil Shapiro 			if ((rvp[0][0] & 0377) == HOSTBEGIN)
1476c2aa98e2SPeter Wemm 			{
1477c2aa98e2SPeter Wemm 				endtoken = HOSTEND;
1478c2aa98e2SPeter Wemm 				mapname = "host";
1479c2aa98e2SPeter Wemm 			}
1480d0cef73dSGregory Neil Shapiro 			else if ((rvp[0][0] & 0377) == LOOKUPBEGIN)
1481c2aa98e2SPeter Wemm 			{
1482c2aa98e2SPeter Wemm 				endtoken = LOOKUPEND;
1483c2aa98e2SPeter Wemm 				mapname = *++rvp;
1484a7ec597cSGregory Neil Shapiro 				if (mapname == NULL)
1485af9557fdSGregory Neil Shapiro 				{
1486a7ec597cSGregory Neil Shapiro 					syserr("554 5.3.0 rewrite: missing mapname");
1487af9557fdSGregory Neil Shapiro 					/* NOTREACHED */
1488af9557fdSGregory Neil Shapiro 					SM_ASSERT(0);
1489af9557fdSGregory Neil Shapiro 				}
1490c2aa98e2SPeter Wemm 			}
1491d0cef73dSGregory Neil Shapiro 			else
1492d0cef73dSGregory Neil Shapiro 				continue;
1493d0cef73dSGregory Neil Shapiro 
1494d0cef73dSGregory Neil Shapiro 			/*
1495d0cef73dSGregory Neil Shapiro 			**  Got a hostname/keyword lookup.
1496d0cef73dSGregory Neil Shapiro 			**
1497d0cef73dSGregory Neil Shapiro 			**	This could be optimized fairly easily.
1498d0cef73dSGregory Neil Shapiro 			*/
1499d0cef73dSGregory Neil Shapiro 
1500c2aa98e2SPeter Wemm 			map = stab(mapname, ST_MAP, ST_FIND);
1501c2aa98e2SPeter Wemm 			if (map == NULL)
1502a7ec597cSGregory Neil Shapiro 				syserr("554 5.3.0 rewrite: map %s not found",
1503a7ec597cSGregory Neil Shapiro 					mapname);
1504c2aa98e2SPeter Wemm 
1505c2aa98e2SPeter Wemm 			/* extract the match part */
1506c2aa98e2SPeter Wemm 			key_rvp = ++rvp;
1507a7ec597cSGregory Neil Shapiro 			if (key_rvp == NULL)
1508af9557fdSGregory Neil Shapiro 			{
1509a7ec597cSGregory Neil Shapiro 				syserr("554 5.3.0 rewrite: missing key for map %s",
1510a7ec597cSGregory Neil Shapiro 					mapname);
1511af9557fdSGregory Neil Shapiro 				/* NOTREACHED */
1512af9557fdSGregory Neil Shapiro 				SM_ASSERT(0);
1513af9557fdSGregory Neil Shapiro 			}
1514c2aa98e2SPeter Wemm 			default_rvp = NULL;
1515c2aa98e2SPeter Wemm 			arg_rvp = argvect;
1516c2aa98e2SPeter Wemm 			xpvp = NULL;
1517c2aa98e2SPeter Wemm 			replac = pvpbuf;
1518d0cef73dSGregory Neil Shapiro 			while (*rvp != NULL && ((rvp[0][0] & 0377) != endtoken))
1519c2aa98e2SPeter Wemm 			{
1520d0cef73dSGregory Neil Shapiro 				int nodetype = rvp[0][0] & 0377;
1521c2aa98e2SPeter Wemm 
1522a7ec597cSGregory Neil Shapiro 				if (nodetype != CANONHOST &&
1523a7ec597cSGregory Neil Shapiro 				    nodetype != CANONUSER)
1524c2aa98e2SPeter Wemm 				{
1525c2aa98e2SPeter Wemm 					rvp++;
1526c2aa98e2SPeter Wemm 					continue;
1527c2aa98e2SPeter Wemm 				}
1528c2aa98e2SPeter Wemm 
1529c2aa98e2SPeter Wemm 				*rvp++ = NULL;
1530c2aa98e2SPeter Wemm 
1531c2aa98e2SPeter Wemm 				if (xpvp != NULL)
1532c2aa98e2SPeter Wemm 				{
1533c2aa98e2SPeter Wemm 					cataddr(xpvp, NULL, replac,
1534d0cef73dSGregory Neil Shapiro 						&pvpbuf[sizeof(pvpbuf)] - replac,
1535d0cef73dSGregory Neil Shapiro 						'\0', false);
1536a7ec597cSGregory Neil Shapiro 					if (arg_rvp <
1537a7ec597cSGregory Neil Shapiro 					    &argvect[MAX_MAP_ARGS - 1])
1538c2aa98e2SPeter Wemm 						*++arg_rvp = replac;
1539c2aa98e2SPeter Wemm 					replac += strlen(replac) + 1;
1540c2aa98e2SPeter Wemm 					xpvp = NULL;
1541c2aa98e2SPeter Wemm 				}
1542c2aa98e2SPeter Wemm 				switch (nodetype)
1543c2aa98e2SPeter Wemm 				{
1544c2aa98e2SPeter Wemm 				  case CANONHOST:
1545c2aa98e2SPeter Wemm 					xpvp = rvp;
1546c2aa98e2SPeter Wemm 					break;
1547c2aa98e2SPeter Wemm 
1548c2aa98e2SPeter Wemm 				  case CANONUSER:
1549c2aa98e2SPeter Wemm 					default_rvp = rvp;
1550c2aa98e2SPeter Wemm 					break;
1551c2aa98e2SPeter Wemm 				}
1552c2aa98e2SPeter Wemm 			}
1553c2aa98e2SPeter Wemm 			if (*rvp != NULL)
1554c2aa98e2SPeter Wemm 				*rvp++ = NULL;
1555c2aa98e2SPeter Wemm 			if (xpvp != NULL)
1556c2aa98e2SPeter Wemm 			{
1557c2aa98e2SPeter Wemm 				cataddr(xpvp, NULL, replac,
1558d0cef73dSGregory Neil Shapiro 					&pvpbuf[sizeof(pvpbuf)] - replac,
1559d0cef73dSGregory Neil Shapiro 					'\0', false);
1560a7ec597cSGregory Neil Shapiro 				if (arg_rvp < &argvect[MAX_MAP_ARGS - 1])
1561c2aa98e2SPeter Wemm 					*++arg_rvp = replac;
1562c2aa98e2SPeter Wemm 			}
1563a7ec597cSGregory Neil Shapiro 			if (arg_rvp >= &argvect[MAX_MAP_ARGS - 1])
1564a7ec597cSGregory Neil Shapiro 				argvect[MAX_MAP_ARGS - 1] = NULL;
1565a7ec597cSGregory Neil Shapiro 			else
1566c2aa98e2SPeter Wemm 				*++arg_rvp = NULL;
1567c2aa98e2SPeter Wemm 
1568c2aa98e2SPeter Wemm 			/* save the remainder of the input string */
1569d0cef73dSGregory Neil Shapiro 			trsize = (avp - rvp + 1) * sizeof(*rvp);
157006f25ae9SGregory Neil Shapiro 			memmove((char *) pvpb1, (char *) rvp, trsize);
1571c2aa98e2SPeter Wemm 
1572c2aa98e2SPeter Wemm 			/* look it up */
1573d0cef73dSGregory Neil Shapiro 			cataddr(key_rvp, NULL, cbuf, sizeof(cbuf),
1574d0cef73dSGregory Neil Shapiro 				map == NULL ? '\0' : map->s_map.map_spacesub,
1575d0cef73dSGregory Neil Shapiro 				true);
157606f25ae9SGregory Neil Shapiro 			argvect[0] = cbuf;
157706f25ae9SGregory Neil Shapiro 			replac = map_lookup(map, cbuf, argvect, &rstat, e);
1578c2aa98e2SPeter Wemm 
1579c2aa98e2SPeter Wemm 			/* if no replacement, use default */
1580c2aa98e2SPeter Wemm 			if (replac == NULL && default_rvp != NULL)
1581c2aa98e2SPeter Wemm 			{
1582c2aa98e2SPeter Wemm 				/* create the default */
1583d0cef73dSGregory Neil Shapiro 				cataddr(default_rvp, NULL, cbuf, sizeof(cbuf),
1584d0cef73dSGregory Neil Shapiro 					'\0', false);
158506f25ae9SGregory Neil Shapiro 				replac = cbuf;
1586c2aa98e2SPeter Wemm 			}
1587c2aa98e2SPeter Wemm 
1588c2aa98e2SPeter Wemm 			if (replac == NULL)
1589c2aa98e2SPeter Wemm 			{
1590c2aa98e2SPeter Wemm 				xpvp = key_rvp;
1591c2aa98e2SPeter Wemm 			}
1592c2aa98e2SPeter Wemm 			else if (*replac == '\0')
1593c2aa98e2SPeter Wemm 			{
1594c2aa98e2SPeter Wemm 				/* null replacement */
1595c2aa98e2SPeter Wemm 				nullpvp[0] = NULL;
1596c2aa98e2SPeter Wemm 				xpvp = nullpvp;
1597c2aa98e2SPeter Wemm 			}
1598c2aa98e2SPeter Wemm 			else
1599c2aa98e2SPeter Wemm 			{
1600c2aa98e2SPeter Wemm 				/* scan the new replacement */
1601c2aa98e2SPeter Wemm 				xpvp = prescan(replac, '\0', pvpbuf,
1602d0cef73dSGregory Neil Shapiro 					       sizeof(pvpbuf), NULL, NULL,
1603d0cef73dSGregory Neil Shapiro 					       false);
1604c2aa98e2SPeter Wemm 				if (xpvp == NULL)
1605c2aa98e2SPeter Wemm 				{
1606c2aa98e2SPeter Wemm 					/* prescan already printed error */
1607c2aa98e2SPeter Wemm 					return EX_DATAERR;
1608c2aa98e2SPeter Wemm 				}
1609c2aa98e2SPeter Wemm 			}
1610c2aa98e2SPeter Wemm 
1611c2aa98e2SPeter Wemm 			/* append it to the token list */
1612c2aa98e2SPeter Wemm 			for (avp = hbrvp; *xpvp != NULL; xpvp++)
1613c2aa98e2SPeter Wemm 			{
161440266059SGregory Neil Shapiro 				*avp++ = sm_rpool_strdup_x(e->e_rpool, *xpvp);
161540266059SGregory Neil Shapiro 				if (avp >= &npvp[maxatom])
1616c2aa98e2SPeter Wemm 					goto toolong;
1617c2aa98e2SPeter Wemm 			}
1618c2aa98e2SPeter Wemm 
1619c2aa98e2SPeter Wemm 			/* restore the old trailing information */
1620c2aa98e2SPeter Wemm 			rvp = avp - 1;
1621c2aa98e2SPeter Wemm 			for (xpvp = pvpb1; (*avp++ = *xpvp++) != NULL; )
162240266059SGregory Neil Shapiro 				if (avp >= &npvp[maxatom])
1623c2aa98e2SPeter Wemm 					goto toolong;
1624c2aa98e2SPeter Wemm 		}
1625c2aa98e2SPeter Wemm 
1626c2aa98e2SPeter Wemm 		/*
1627c2aa98e2SPeter Wemm 		**  Check for subroutine calls.
1628c2aa98e2SPeter Wemm 		*/
1629c2aa98e2SPeter Wemm 
163006f25ae9SGregory Neil Shapiro 		status = callsubr(npvp, reclevel, e);
163106f25ae9SGregory Neil Shapiro 		if (rstat == EX_OK || status == EX_TEMPFAIL)
163206f25ae9SGregory Neil Shapiro 			rstat = status;
1633c2aa98e2SPeter Wemm 
1634c2aa98e2SPeter Wemm 		/* copy vector back into original space. */
1635c2aa98e2SPeter Wemm 		for (avp = npvp; *avp++ != NULL;)
1636c2aa98e2SPeter Wemm 			continue;
163706f25ae9SGregory Neil Shapiro 		memmove((char *) pvp, (char *) npvp,
1638d0cef73dSGregory Neil Shapiro 		      (int) (avp - npvp) * sizeof(*avp));
1639c2aa98e2SPeter Wemm 
1640c2aa98e2SPeter Wemm 		if (tTd(21, 4))
1641c2aa98e2SPeter Wemm 		{
164240266059SGregory Neil Shapiro 			sm_dprintf("rewritten as:");
1643e92d3f3fSGregory Neil Shapiro 			printav(sm_debug_file(), pvp);
1644c2aa98e2SPeter Wemm 		}
1645c2aa98e2SPeter Wemm 	}
1646c2aa98e2SPeter Wemm 
164706f25ae9SGregory Neil Shapiro 	if (OpMode == MD_TEST)
1648c2aa98e2SPeter Wemm 	{
164940266059SGregory Neil Shapiro 		(void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
165040266059SGregory Neil Shapiro 				     "%s%-16.16s returns:", prefix, rulename);
1651e92d3f3fSGregory Neil Shapiro 		printav(smioout, pvp);
1652c2aa98e2SPeter Wemm 	}
165306f25ae9SGregory Neil Shapiro 	else if (tTd(21, 1))
165406f25ae9SGregory Neil Shapiro 	{
165540266059SGregory Neil Shapiro 		sm_dprintf("%s%-16.16s returns:", prefix, rulename);
1656e92d3f3fSGregory Neil Shapiro 		printav(sm_debug_file(), pvp);
165706f25ae9SGregory Neil Shapiro 	}
1658c2aa98e2SPeter Wemm 	return rstat;
1659c2aa98e2SPeter Wemm }
166040266059SGregory Neil Shapiro /*
1661c2aa98e2SPeter Wemm **  CALLSUBR -- call subroutines in rewrite vector
1662c2aa98e2SPeter Wemm **
1663c2aa98e2SPeter Wemm **	Parameters:
1664c2aa98e2SPeter Wemm **		pvp -- pointer to token vector.
1665c2aa98e2SPeter Wemm **		reclevel -- the current recursion level.
1666c2aa98e2SPeter Wemm **		e -- the current envelope.
1667c2aa98e2SPeter Wemm **
1668c2aa98e2SPeter Wemm **	Returns:
1669c2aa98e2SPeter Wemm **		The status from the subroutine call.
1670c2aa98e2SPeter Wemm **
1671c2aa98e2SPeter Wemm **	Side Effects:
1672c2aa98e2SPeter Wemm **		pvp is modified.
1673c2aa98e2SPeter Wemm */
1674c2aa98e2SPeter Wemm 
167506f25ae9SGregory Neil Shapiro static int
1676c2aa98e2SPeter Wemm callsubr(pvp, reclevel, e)
1677c2aa98e2SPeter Wemm 	char **pvp;
1678c2aa98e2SPeter Wemm 	int reclevel;
1679c2aa98e2SPeter Wemm 	ENVELOPE *e;
1680c2aa98e2SPeter Wemm {
1681c2aa98e2SPeter Wemm 	char **avp;
1682c2aa98e2SPeter Wemm 	register int i;
168340266059SGregory Neil Shapiro 	int subr, j;
168440266059SGregory Neil Shapiro 	int nsubr;
168506f25ae9SGregory Neil Shapiro 	int status;
1686c2aa98e2SPeter Wemm 	int rstat = EX_OK;
168740266059SGregory Neil Shapiro #define MAX_SUBR	16
168840266059SGregory Neil Shapiro 	int subrnumber[MAX_SUBR];
168940266059SGregory Neil Shapiro 	int subrindex[MAX_SUBR];
1690c2aa98e2SPeter Wemm 
169140266059SGregory Neil Shapiro 	nsubr = 0;
169240266059SGregory Neil Shapiro 
169340266059SGregory Neil Shapiro 	/*
169440266059SGregory Neil Shapiro 	**  Look for subroutine calls in pvp, collect them into subr*[]
169540266059SGregory Neil Shapiro 	**  We will perform the calls in the next loop, because we will
169640266059SGregory Neil Shapiro 	**  call the "last" subroutine first to avoid recursive calls
169740266059SGregory Neil Shapiro 	**  and too much copying.
169840266059SGregory Neil Shapiro 	*/
169940266059SGregory Neil Shapiro 
170040266059SGregory Neil Shapiro 	for (avp = pvp, j = 0; *avp != NULL; avp++, j++)
1701c2aa98e2SPeter Wemm 	{
1702d0cef73dSGregory Neil Shapiro 		if ((avp[0][0] & 0377) == CALLSUBR && avp[1] != NULL)
1703c2aa98e2SPeter Wemm 		{
1704c2aa98e2SPeter Wemm 			stripquotes(avp[1]);
1705c2aa98e2SPeter Wemm 			subr = strtorwset(avp[1], NULL, ST_FIND);
1706c2aa98e2SPeter Wemm 			if (subr < 0)
1707c2aa98e2SPeter Wemm 			{
170840266059SGregory Neil Shapiro 				syserr("554 5.3.5 Unknown ruleset %s", avp[1]);
1709c2aa98e2SPeter Wemm 				return EX_CONFIG;
1710c2aa98e2SPeter Wemm 			}
1711c2aa98e2SPeter Wemm 
1712c2aa98e2SPeter Wemm 			/*
171340266059SGregory Neil Shapiro 			**  XXX instead of doing this we could optimize
171440266059SGregory Neil Shapiro 			**  the rules after reading them: just remove
171540266059SGregory Neil Shapiro 			**  calls to empty rulesets
1716c2aa98e2SPeter Wemm 			*/
1717c2aa98e2SPeter Wemm 
171840266059SGregory Neil Shapiro 			/* subroutine is an empty ruleset?  don't call it */
171940266059SGregory Neil Shapiro 			if (RewriteRules[subr] == NULL)
172040266059SGregory Neil Shapiro 			{
172140266059SGregory Neil Shapiro 				if (tTd(21, 3))
172240266059SGregory Neil Shapiro 					sm_dprintf("-----skip subr %s (%d)\n",
172340266059SGregory Neil Shapiro 						avp[1], subr);
1724c2aa98e2SPeter Wemm 				for (i = 2; avp[i] != NULL; i++)
172540266059SGregory Neil Shapiro 					avp[i - 2] = avp[i];
172640266059SGregory Neil Shapiro 				avp[i - 2] = NULL;
172740266059SGregory Neil Shapiro 				continue;
172840266059SGregory Neil Shapiro 			}
172940266059SGregory Neil Shapiro 			if (++nsubr >= MAX_SUBR)
173040266059SGregory Neil Shapiro 			{
173140266059SGregory Neil Shapiro 				syserr("554 5.3.0 Too many subroutine calls (%d max)",
173240266059SGregory Neil Shapiro 					MAX_SUBR);
173340266059SGregory Neil Shapiro 				return EX_CONFIG;
173440266059SGregory Neil Shapiro 			}
173540266059SGregory Neil Shapiro 			subrnumber[nsubr] = subr;
173640266059SGregory Neil Shapiro 			subrindex[nsubr] = j;
173740266059SGregory Neil Shapiro 		}
173840266059SGregory Neil Shapiro 	}
1739c2aa98e2SPeter Wemm 
174040266059SGregory Neil Shapiro 	/*
174140266059SGregory Neil Shapiro 	**  Perform the actual subroutines calls, "last" one first, i.e.,
174240266059SGregory Neil Shapiro 	**  go from the right to the left through all calls,
174340266059SGregory Neil Shapiro 	**  do the rewriting in place.
174440266059SGregory Neil Shapiro 	*/
174540266059SGregory Neil Shapiro 
174640266059SGregory Neil Shapiro 	for (; nsubr > 0; nsubr--)
174740266059SGregory Neil Shapiro 	{
174840266059SGregory Neil Shapiro 		subr = subrnumber[nsubr];
174940266059SGregory Neil Shapiro 		avp = pvp + subrindex[nsubr];
175040266059SGregory Neil Shapiro 
175140266059SGregory Neil Shapiro 		/* remove the subroutine call and name */
175240266059SGregory Neil Shapiro 		for (i = 2; avp[i] != NULL; i++)
175340266059SGregory Neil Shapiro 			avp[i - 2] = avp[i];
175440266059SGregory Neil Shapiro 		avp[i - 2] = NULL;
1755c2aa98e2SPeter Wemm 
1756c2aa98e2SPeter Wemm 		/*
1757c2aa98e2SPeter Wemm 		**  Now we need to call the ruleset specified for
1758a7ec597cSGregory Neil Shapiro 		**  the subroutine. We can do this in place since
175940266059SGregory Neil Shapiro 		**  we call the "last" subroutine first.
1760c2aa98e2SPeter Wemm 		*/
1761c2aa98e2SPeter Wemm 
176240266059SGregory Neil Shapiro 		status = rewrite(avp, subr, reclevel, e,
176340266059SGregory Neil Shapiro 				MAXATOM - subrindex[nsubr]);
176440266059SGregory Neil Shapiro 		if (status != EX_OK && status != EX_TEMPFAIL)
176540266059SGregory Neil Shapiro 			return status;
176606f25ae9SGregory Neil Shapiro 		if (rstat == EX_OK || status == EX_TEMPFAIL)
176706f25ae9SGregory Neil Shapiro 			rstat = status;
1768c2aa98e2SPeter Wemm 	}
1769c2aa98e2SPeter Wemm 	return rstat;
1770c2aa98e2SPeter Wemm }
177140266059SGregory Neil Shapiro /*
1772c2aa98e2SPeter Wemm **  MAP_LOOKUP -- do lookup in map
1773c2aa98e2SPeter Wemm **
1774c2aa98e2SPeter Wemm **	Parameters:
177540266059SGregory Neil Shapiro **		smap -- the map to use for the lookup.
1776c2aa98e2SPeter Wemm **		key -- the key to look up.
1777c2aa98e2SPeter Wemm **		argvect -- arguments to pass to the map lookup.
1778c2aa98e2SPeter Wemm **		pstat -- a pointer to an integer in which to store the
1779c2aa98e2SPeter Wemm **			status from the lookup.
1780c2aa98e2SPeter Wemm **		e -- the current envelope.
1781c2aa98e2SPeter Wemm **
1782c2aa98e2SPeter Wemm **	Returns:
1783c2aa98e2SPeter Wemm **		The result of the lookup.
1784c2aa98e2SPeter Wemm **		NULL -- if there was no data for the given key.
1785c2aa98e2SPeter Wemm */
1786c2aa98e2SPeter Wemm 
178706f25ae9SGregory Neil Shapiro static char *
178806f25ae9SGregory Neil Shapiro map_lookup(smap, key, argvect, pstat, e)
178906f25ae9SGregory Neil Shapiro 	STAB *smap;
1790c2aa98e2SPeter Wemm 	char key[];
1791c2aa98e2SPeter Wemm 	char **argvect;
1792c2aa98e2SPeter Wemm 	int *pstat;
1793c2aa98e2SPeter Wemm 	ENVELOPE *e;
1794c2aa98e2SPeter Wemm {
179506f25ae9SGregory Neil Shapiro 	auto int status = EX_OK;
179606f25ae9SGregory Neil Shapiro 	MAP *map;
1797c2aa98e2SPeter Wemm 	char *replac;
1798c2aa98e2SPeter Wemm 
179906f25ae9SGregory Neil Shapiro 	if (smap == NULL)
180006f25ae9SGregory Neil Shapiro 		return NULL;
180106f25ae9SGregory Neil Shapiro 
180206f25ae9SGregory Neil Shapiro 	map = &smap->s_map;
180306f25ae9SGregory Neil Shapiro 	DYNOPENMAP(map);
180406f25ae9SGregory Neil Shapiro 
180506f25ae9SGregory Neil Shapiro 	if (e->e_sendmode == SM_DEFER &&
180606f25ae9SGregory Neil Shapiro 	    bitset(MF_DEFER, map->map_mflags))
1807c2aa98e2SPeter Wemm 	{
1808c2aa98e2SPeter Wemm 		/* don't do any map lookups */
1809c2aa98e2SPeter Wemm 		if (tTd(60, 1))
181040266059SGregory Neil Shapiro 			sm_dprintf("map_lookup(%s, %s) => DEFERRED\n",
181106f25ae9SGregory Neil Shapiro 				smap->s_name, key);
1812c2aa98e2SPeter Wemm 		*pstat = EX_TEMPFAIL;
1813c2aa98e2SPeter Wemm 		return NULL;
1814c2aa98e2SPeter Wemm 	}
1815c2aa98e2SPeter Wemm 
181606f25ae9SGregory Neil Shapiro 	if (!bitset(MF_KEEPQUOTES, map->map_mflags))
1817c2aa98e2SPeter Wemm 		stripquotes(key);
1818c2aa98e2SPeter Wemm 
1819c2aa98e2SPeter Wemm 	if (tTd(60, 1))
1820065a643dSPeter Wemm 	{
1821d0cef73dSGregory Neil Shapiro 		sm_dprintf("map_lookup(%s, ", smap->s_name);
1822d0cef73dSGregory Neil Shapiro 		xputs(sm_debug_file(), key);
1823065a643dSPeter Wemm 		if (tTd(60, 5))
1824065a643dSPeter Wemm 		{
1825065a643dSPeter Wemm 			int i;
1826065a643dSPeter Wemm 
1827065a643dSPeter Wemm 			for (i = 0; argvect[i] != NULL; i++)
182840266059SGregory Neil Shapiro 				sm_dprintf(", %%%d=%s", i, argvect[i]);
1829065a643dSPeter Wemm 		}
183040266059SGregory Neil Shapiro 		sm_dprintf(") => ");
1831065a643dSPeter Wemm 	}
183206f25ae9SGregory Neil Shapiro 	replac = (*map->map_class->map_lookup)(map, key, argvect, &status);
1833c2aa98e2SPeter Wemm 	if (tTd(60, 1))
183440266059SGregory Neil Shapiro 		sm_dprintf("%s (%d)\n",
1835c2aa98e2SPeter Wemm 			replac != NULL ? replac : "NOT FOUND",
183606f25ae9SGregory Neil Shapiro 			status);
1837c2aa98e2SPeter Wemm 
183806f25ae9SGregory Neil Shapiro 	/* should recover if status == EX_TEMPFAIL */
183906f25ae9SGregory Neil Shapiro 	if (status == EX_TEMPFAIL && !bitset(MF_NODEFER, map->map_mflags))
1840c2aa98e2SPeter Wemm 	{
1841c2aa98e2SPeter Wemm 		*pstat = EX_TEMPFAIL;
1842c2aa98e2SPeter Wemm 		if (tTd(60, 1))
184340266059SGregory Neil Shapiro 			sm_dprintf("map_lookup(%s, %s) tempfail: errno=%d\n",
184406f25ae9SGregory Neil Shapiro 				smap->s_name, key, errno);
1845c2aa98e2SPeter Wemm 		if (e->e_message == NULL)
1846c2aa98e2SPeter Wemm 		{
1847c2aa98e2SPeter Wemm 			char mbuf[320];
1848c2aa98e2SPeter Wemm 
1849d0cef73dSGregory Neil Shapiro 			(void) sm_snprintf(mbuf, sizeof(mbuf),
1850c2aa98e2SPeter Wemm 				"%.80s map: lookup (%s): deferred",
185106f25ae9SGregory Neil Shapiro 				smap->s_name,
1852c2aa98e2SPeter Wemm 				shortenstring(key, MAXSHORTSTR));
185340266059SGregory Neil Shapiro 			e->e_message = sm_rpool_strdup_x(e->e_rpool, mbuf);
1854c2aa98e2SPeter Wemm 		}
1855c2aa98e2SPeter Wemm 	}
185606f25ae9SGregory Neil Shapiro 	if (status == EX_TEMPFAIL && map->map_tapp != NULL)
1857c2aa98e2SPeter Wemm 	{
185806f25ae9SGregory Neil Shapiro 		size_t i = strlen(key) + strlen(map->map_tapp) + 1;
1859c2aa98e2SPeter Wemm 		static char *rwbuf = NULL;
1860c2aa98e2SPeter Wemm 		static size_t rwbuflen = 0;
1861c2aa98e2SPeter Wemm 
1862c2aa98e2SPeter Wemm 		if (i > rwbuflen)
1863c2aa98e2SPeter Wemm 		{
1864c2aa98e2SPeter Wemm 			if (rwbuf != NULL)
18658774250cSGregory Neil Shapiro 				sm_free(rwbuf);
1866c2aa98e2SPeter Wemm 			rwbuflen = i;
186740266059SGregory Neil Shapiro 			rwbuf = (char *) sm_pmalloc_x(rwbuflen);
1868c2aa98e2SPeter Wemm 		}
186940266059SGregory Neil Shapiro 		(void) sm_strlcpyn(rwbuf, rwbuflen, 2, key, map->map_tapp);
1870c2aa98e2SPeter Wemm 		if (tTd(60, 4))
187140266059SGregory Neil Shapiro 			sm_dprintf("map_lookup tempfail: returning \"%s\"\n",
1872c2aa98e2SPeter Wemm 				rwbuf);
1873c2aa98e2SPeter Wemm 		return rwbuf;
1874c2aa98e2SPeter Wemm 	}
1875c2aa98e2SPeter Wemm 	return replac;
1876c2aa98e2SPeter Wemm }
187740266059SGregory Neil Shapiro /*
187806f25ae9SGregory Neil Shapiro **  INITERRMAILERS -- initialize error and discard mailers
187906f25ae9SGregory Neil Shapiro **
188006f25ae9SGregory Neil Shapiro **	Parameters:
188106f25ae9SGregory Neil Shapiro **		none.
188206f25ae9SGregory Neil Shapiro **
188306f25ae9SGregory Neil Shapiro **	Returns:
188406f25ae9SGregory Neil Shapiro **		none.
188506f25ae9SGregory Neil Shapiro **
188606f25ae9SGregory Neil Shapiro **	Side Effects:
188706f25ae9SGregory Neil Shapiro **		initializes error and discard mailers.
188806f25ae9SGregory Neil Shapiro */
188906f25ae9SGregory Neil Shapiro 
189006f25ae9SGregory Neil Shapiro static MAILER discardmailer;
189106f25ae9SGregory Neil Shapiro static MAILER errormailer;
189206f25ae9SGregory Neil Shapiro static char *discardargv[] = { "DISCARD", NULL };
189306f25ae9SGregory Neil Shapiro static char *errorargv[] = { "ERROR", NULL };
189406f25ae9SGregory Neil Shapiro 
189506f25ae9SGregory Neil Shapiro void
189606f25ae9SGregory Neil Shapiro initerrmailers()
189706f25ae9SGregory Neil Shapiro {
189806f25ae9SGregory Neil Shapiro 	if (discardmailer.m_name == NULL)
189906f25ae9SGregory Neil Shapiro 	{
190006f25ae9SGregory Neil Shapiro 		/* initialize the discard mailer */
190106f25ae9SGregory Neil Shapiro 		discardmailer.m_name = "*discard*";
190206f25ae9SGregory Neil Shapiro 		discardmailer.m_mailer = "DISCARD";
190306f25ae9SGregory Neil Shapiro 		discardmailer.m_argv = discardargv;
190406f25ae9SGregory Neil Shapiro 	}
190506f25ae9SGregory Neil Shapiro 	if (errormailer.m_name == NULL)
190606f25ae9SGregory Neil Shapiro 	{
190706f25ae9SGregory Neil Shapiro 		/* initialize the bogus mailer */
190806f25ae9SGregory Neil Shapiro 		errormailer.m_name = "*error*";
190906f25ae9SGregory Neil Shapiro 		errormailer.m_mailer = "ERROR";
191006f25ae9SGregory Neil Shapiro 		errormailer.m_argv = errorargv;
191106f25ae9SGregory Neil Shapiro 	}
191206f25ae9SGregory Neil Shapiro }
191340266059SGregory Neil Shapiro /*
1914c2aa98e2SPeter Wemm **  BUILDADDR -- build address from token vector.
1915c2aa98e2SPeter Wemm **
1916c2aa98e2SPeter Wemm **	Parameters:
1917c2aa98e2SPeter Wemm **		tv -- token vector.
1918c2aa98e2SPeter Wemm **		a -- pointer to address descriptor to fill.
1919c2aa98e2SPeter Wemm **			If NULL, one will be allocated.
1920c2aa98e2SPeter Wemm **		flags -- info regarding whether this is a sender or
1921c2aa98e2SPeter Wemm **			a recipient.
1922c2aa98e2SPeter Wemm **		e -- the current envelope.
1923c2aa98e2SPeter Wemm **
1924c2aa98e2SPeter Wemm **	Returns:
1925c2aa98e2SPeter Wemm **		NULL if there was an error.
1926c2aa98e2SPeter Wemm **		'a' otherwise.
1927c2aa98e2SPeter Wemm **
1928c2aa98e2SPeter Wemm **	Side Effects:
1929c2aa98e2SPeter Wemm **		fills in 'a'
1930c2aa98e2SPeter Wemm */
1931c2aa98e2SPeter Wemm 
193206f25ae9SGregory Neil Shapiro static struct errcodes
1933c2aa98e2SPeter Wemm {
1934c2aa98e2SPeter Wemm 	char	*ec_name;		/* name of error code */
1935c2aa98e2SPeter Wemm 	int	ec_code;		/* numeric code */
1936c2aa98e2SPeter Wemm } ErrorCodes[] =
1937c2aa98e2SPeter Wemm {
1938c2aa98e2SPeter Wemm 	{ "usage",		EX_USAGE	},
1939c2aa98e2SPeter Wemm 	{ "nouser",		EX_NOUSER	},
1940c2aa98e2SPeter Wemm 	{ "nohost",		EX_NOHOST	},
1941c2aa98e2SPeter Wemm 	{ "unavailable",	EX_UNAVAILABLE	},
1942c2aa98e2SPeter Wemm 	{ "software",		EX_SOFTWARE	},
1943c2aa98e2SPeter Wemm 	{ "tempfail",		EX_TEMPFAIL	},
1944c2aa98e2SPeter Wemm 	{ "protocol",		EX_PROTOCOL	},
1945c2aa98e2SPeter Wemm 	{ "config",		EX_CONFIG	},
1946c2aa98e2SPeter Wemm 	{ NULL,			EX_UNAVAILABLE	}
1947c2aa98e2SPeter Wemm };
1948c2aa98e2SPeter Wemm 
194906f25ae9SGregory Neil Shapiro static ADDRESS *
1950c2aa98e2SPeter Wemm buildaddr(tv, a, flags, e)
1951c2aa98e2SPeter Wemm 	register char **tv;
1952c2aa98e2SPeter Wemm 	register ADDRESS *a;
1953c2aa98e2SPeter Wemm 	int flags;
1954c2aa98e2SPeter Wemm 	register ENVELOPE *e;
1955c2aa98e2SPeter Wemm {
1956605302a5SGregory Neil Shapiro 	bool tempfail = false;
1957a7ec597cSGregory Neil Shapiro 	int maxatom;
1958c2aa98e2SPeter Wemm 	struct mailer **mp;
1959c2aa98e2SPeter Wemm 	register struct mailer *m;
1960c2aa98e2SPeter Wemm 	register char *p;
1961c2aa98e2SPeter Wemm 	char *mname;
1962c2aa98e2SPeter Wemm 	char **hostp;
1963c2aa98e2SPeter Wemm 	char hbuf[MAXNAME + 1];
1964065a643dSPeter Wemm 	static char ubuf[MAXNAME + 2];
1965c2aa98e2SPeter Wemm 
1966c2aa98e2SPeter Wemm 	if (tTd(24, 5))
1967c2aa98e2SPeter Wemm 	{
196840266059SGregory Neil Shapiro 		sm_dprintf("buildaddr, flags=%x, tv=", flags);
1969e92d3f3fSGregory Neil Shapiro 		printav(sm_debug_file(), tv);
1970c2aa98e2SPeter Wemm 	}
1971c2aa98e2SPeter Wemm 
1972a7ec597cSGregory Neil Shapiro 	maxatom = MAXATOM;
1973c2aa98e2SPeter Wemm 	if (a == NULL)
1974d0cef73dSGregory Neil Shapiro 		a = (ADDRESS *) sm_rpool_malloc_x(e->e_rpool, sizeof(*a));
1975d0cef73dSGregory Neil Shapiro 	memset((char *) a, '\0', sizeof(*a));
197606f25ae9SGregory Neil Shapiro 	hbuf[0] = '\0';
1977c2aa98e2SPeter Wemm 
1978c2aa98e2SPeter Wemm 	/* set up default error return flags */
1979c2aa98e2SPeter Wemm 	a->q_flags |= DefaultNotify;
1980c2aa98e2SPeter Wemm 
1981c2aa98e2SPeter Wemm 	/* figure out what net/mailer to use */
1982c2aa98e2SPeter Wemm 	if (*tv == NULL || (**tv & 0377) != CANONNET)
1983c2aa98e2SPeter Wemm 	{
198406f25ae9SGregory Neil Shapiro 		syserr("554 5.3.5 buildaddr: no mailer in parsed address");
1985c2aa98e2SPeter Wemm badaddr:
1986605302a5SGregory Neil Shapiro 		/*
1987605302a5SGregory Neil Shapiro 		**  ExitStat may have been set by an earlier map open
1988605302a5SGregory Neil Shapiro 		**  failure (to a permanent error (EX_OSERR) in syserr())
1989605302a5SGregory Neil Shapiro 		**  so we also need to check if this particular $#error
1990605302a5SGregory Neil Shapiro 		**  return wanted a 4XX failure.
1991605302a5SGregory Neil Shapiro 		**
1992605302a5SGregory Neil Shapiro 		**  XXX the real fix is probably to set ExitStat correctly,
1993605302a5SGregory Neil Shapiro 		**  i.e., to EX_TEMPFAIL if the map open is just a temporary
1994605302a5SGregory Neil Shapiro 		**  error.
1995605302a5SGregory Neil Shapiro 		*/
1996605302a5SGregory Neil Shapiro 
1997605302a5SGregory Neil Shapiro 		if (ExitStat == EX_TEMPFAIL || tempfail)
199806f25ae9SGregory Neil Shapiro 			a->q_state = QS_QUEUEUP;
199906f25ae9SGregory Neil Shapiro 		else
2000c2aa98e2SPeter Wemm 		{
200106f25ae9SGregory Neil Shapiro 			a->q_state = QS_BADADDR;
200206f25ae9SGregory Neil Shapiro 			a->q_mailer = &errormailer;
2003c2aa98e2SPeter Wemm 		}
2004c2aa98e2SPeter Wemm 		return a;
2005c2aa98e2SPeter Wemm 	}
2006c2aa98e2SPeter Wemm 	mname = *++tv;
2007a7ec597cSGregory Neil Shapiro 	--maxatom;
2008c2aa98e2SPeter Wemm 
2009c2aa98e2SPeter Wemm 	/* extract host and user portions */
2010c2aa98e2SPeter Wemm 	if (*++tv != NULL && (**tv & 0377) == CANONHOST)
2011a7ec597cSGregory Neil Shapiro 	{
2012c2aa98e2SPeter Wemm 		hostp = ++tv;
2013a7ec597cSGregory Neil Shapiro 		--maxatom;
2014a7ec597cSGregory Neil Shapiro 	}
2015c2aa98e2SPeter Wemm 	else
2016c2aa98e2SPeter Wemm 		hostp = NULL;
2017a7ec597cSGregory Neil Shapiro 	--maxatom;
2018c2aa98e2SPeter Wemm 	while (*tv != NULL && (**tv & 0377) != CANONUSER)
2019a7ec597cSGregory Neil Shapiro 	{
2020c2aa98e2SPeter Wemm 		tv++;
2021a7ec597cSGregory Neil Shapiro 		--maxatom;
2022a7ec597cSGregory Neil Shapiro 	}
2023c2aa98e2SPeter Wemm 	if (*tv == NULL)
2024c2aa98e2SPeter Wemm 	{
202506f25ae9SGregory Neil Shapiro 		syserr("554 5.3.5 buildaddr: no user");
2026c2aa98e2SPeter Wemm 		goto badaddr;
2027c2aa98e2SPeter Wemm 	}
2028c2aa98e2SPeter Wemm 	if (tv == hostp)
2029c2aa98e2SPeter Wemm 		hostp = NULL;
2030c2aa98e2SPeter Wemm 	else if (hostp != NULL)
2031d0cef73dSGregory Neil Shapiro 		cataddr(hostp, tv - 1, hbuf, sizeof(hbuf), '\0', false);
2032d0cef73dSGregory Neil Shapiro 	cataddr(++tv, NULL, ubuf, sizeof(ubuf), ' ', false);
2033a7ec597cSGregory Neil Shapiro 	--maxatom;
2034c2aa98e2SPeter Wemm 
2035c2aa98e2SPeter Wemm 	/* save away the host name */
203640266059SGregory Neil Shapiro 	if (sm_strcasecmp(mname, "error") == 0)
2037c2aa98e2SPeter Wemm 	{
203806f25ae9SGregory Neil Shapiro 		/* Set up triplet for use by -bv */
203906f25ae9SGregory Neil Shapiro 		a->q_mailer = &errormailer;
204040266059SGregory Neil Shapiro 		a->q_user = sm_rpool_strdup_x(e->e_rpool, ubuf);
204140266059SGregory Neil Shapiro 		/* XXX wrong place? */
204206f25ae9SGregory Neil Shapiro 
2043c2aa98e2SPeter Wemm 		if (hostp != NULL)
2044c2aa98e2SPeter Wemm 		{
2045c2aa98e2SPeter Wemm 			register struct errcodes *ep;
2046c2aa98e2SPeter Wemm 
204740266059SGregory Neil Shapiro 			a->q_host = sm_rpool_strdup_x(e->e_rpool, hbuf);
2048c2aa98e2SPeter Wemm 			if (strchr(hbuf, '.') != NULL)
2049c2aa98e2SPeter Wemm 			{
205040266059SGregory Neil Shapiro 				a->q_status = sm_rpool_strdup_x(e->e_rpool,
205140266059SGregory Neil Shapiro 								hbuf);
2052c2aa98e2SPeter Wemm 				setstat(dsntoexitstat(hbuf));
2053c2aa98e2SPeter Wemm 			}
2054c2aa98e2SPeter Wemm 			else if (isascii(hbuf[0]) && isdigit(hbuf[0]))
2055c2aa98e2SPeter Wemm 			{
2056c2aa98e2SPeter Wemm 				setstat(atoi(hbuf));
2057c2aa98e2SPeter Wemm 			}
2058c2aa98e2SPeter Wemm 			else
2059c2aa98e2SPeter Wemm 			{
2060c2aa98e2SPeter Wemm 				for (ep = ErrorCodes; ep->ec_name != NULL; ep++)
206140266059SGregory Neil Shapiro 					if (sm_strcasecmp(ep->ec_name, hbuf) == 0)
2062c2aa98e2SPeter Wemm 						break;
2063c2aa98e2SPeter Wemm 				setstat(ep->ec_code);
2064c2aa98e2SPeter Wemm 			}
2065c2aa98e2SPeter Wemm 		}
2066c2aa98e2SPeter Wemm 		else
206706f25ae9SGregory Neil Shapiro 		{
206806f25ae9SGregory Neil Shapiro 			a->q_host = NULL;
2069c2aa98e2SPeter Wemm 			setstat(EX_UNAVAILABLE);
2070c2aa98e2SPeter Wemm 		}
207106f25ae9SGregory Neil Shapiro 		stripquotes(ubuf);
207206f25ae9SGregory Neil Shapiro 		if (ISSMTPCODE(ubuf) && ubuf[3] == ' ')
207306f25ae9SGregory Neil Shapiro 		{
207406f25ae9SGregory Neil Shapiro 			char fmt[16];
207506f25ae9SGregory Neil Shapiro 			int off;
207606f25ae9SGregory Neil Shapiro 
207706f25ae9SGregory Neil Shapiro 			if ((off = isenhsc(ubuf + 4, ' ')) > 0)
207806f25ae9SGregory Neil Shapiro 			{
207906f25ae9SGregory Neil Shapiro 				ubuf[off + 4] = '\0';
208006f25ae9SGregory Neil Shapiro 				off += 5;
2081c2aa98e2SPeter Wemm 			}
2082c2aa98e2SPeter Wemm 			else
2083c2aa98e2SPeter Wemm 			{
208406f25ae9SGregory Neil Shapiro 				off = 4;
208506f25ae9SGregory Neil Shapiro 				ubuf[3] = '\0';
208606f25ae9SGregory Neil Shapiro 			}
2087d0cef73dSGregory Neil Shapiro 			(void) sm_strlcpyn(fmt, sizeof(fmt), 2, ubuf, " %s");
208806f25ae9SGregory Neil Shapiro 			if (off > 4)
208906f25ae9SGregory Neil Shapiro 				usrerr(fmt, ubuf + off);
209006f25ae9SGregory Neil Shapiro 			else if (isenhsc(hbuf, '\0') > 0)
209106f25ae9SGregory Neil Shapiro 				usrerrenh(hbuf, fmt, ubuf + off);
209206f25ae9SGregory Neil Shapiro 			else
209306f25ae9SGregory Neil Shapiro 				usrerr(fmt, ubuf + off);
209406f25ae9SGregory Neil Shapiro 			/* XXX ubuf[off - 1] = ' '; */
2095605302a5SGregory Neil Shapiro 			if (ubuf[0] == '4')
2096605302a5SGregory Neil Shapiro 				tempfail = true;
209706f25ae9SGregory Neil Shapiro 		}
209806f25ae9SGregory Neil Shapiro 		else
209906f25ae9SGregory Neil Shapiro 		{
210006f25ae9SGregory Neil Shapiro 			usrerr("553 5.3.0 %s", ubuf);
2101c2aa98e2SPeter Wemm 		}
2102c2aa98e2SPeter Wemm 		goto badaddr;
2103c2aa98e2SPeter Wemm 	}
2104c2aa98e2SPeter Wemm 
2105c2aa98e2SPeter Wemm 	for (mp = Mailer; (m = *mp++) != NULL; )
2106c2aa98e2SPeter Wemm 	{
210740266059SGregory Neil Shapiro 		if (sm_strcasecmp(m->m_name, mname) == 0)
2108c2aa98e2SPeter Wemm 			break;
2109c2aa98e2SPeter Wemm 	}
2110c2aa98e2SPeter Wemm 	if (m == NULL)
2111c2aa98e2SPeter Wemm 	{
211206f25ae9SGregory Neil Shapiro 		syserr("554 5.3.5 buildaddr: unknown mailer %s", mname);
2113c2aa98e2SPeter Wemm 		goto badaddr;
2114c2aa98e2SPeter Wemm 	}
2115c2aa98e2SPeter Wemm 	a->q_mailer = m;
2116c2aa98e2SPeter Wemm 
2117c2aa98e2SPeter Wemm 	/* figure out what host (if any) */
2118c2aa98e2SPeter Wemm 	if (hostp == NULL)
2119c2aa98e2SPeter Wemm 	{
2120c2aa98e2SPeter Wemm 		if (!bitnset(M_LOCALMAILER, m->m_flags))
2121c2aa98e2SPeter Wemm 		{
212206f25ae9SGregory Neil Shapiro 			syserr("554 5.3.5 buildaddr: no host");
2123c2aa98e2SPeter Wemm 			goto badaddr;
2124c2aa98e2SPeter Wemm 		}
2125c2aa98e2SPeter Wemm 		a->q_host = NULL;
2126c2aa98e2SPeter Wemm 	}
2127c2aa98e2SPeter Wemm 	else
212840266059SGregory Neil Shapiro 		a->q_host = sm_rpool_strdup_x(e->e_rpool, hbuf);
2129c2aa98e2SPeter Wemm 
2130c2aa98e2SPeter Wemm 	/* figure out the user */
2131c2aa98e2SPeter Wemm 	p = ubuf;
2132c2aa98e2SPeter Wemm 	if (bitnset(M_CHECKUDB, m->m_flags) && *p == '@')
2133c2aa98e2SPeter Wemm 	{
2134c2aa98e2SPeter Wemm 		p++;
2135c2aa98e2SPeter Wemm 		tv++;
2136a7ec597cSGregory Neil Shapiro 		--maxatom;
2137c2aa98e2SPeter Wemm 		a->q_flags |= QNOTREMOTE;
2138c2aa98e2SPeter Wemm 	}
2139c2aa98e2SPeter Wemm 
2140c2aa98e2SPeter Wemm 	/* do special mapping for local mailer */
2141c2aa98e2SPeter Wemm 	if (*p == '"')
2142c2aa98e2SPeter Wemm 		p++;
2143c2aa98e2SPeter Wemm 	if (*p == '|' && bitnset(M_CHECKPROG, m->m_flags))
2144c2aa98e2SPeter Wemm 		a->q_mailer = m = ProgMailer;
2145c2aa98e2SPeter Wemm 	else if (*p == '/' && bitnset(M_CHECKFILE, m->m_flags))
2146c2aa98e2SPeter Wemm 		a->q_mailer = m = FileMailer;
2147c2aa98e2SPeter Wemm 	else if (*p == ':' && bitnset(M_CHECKINCLUDE, m->m_flags))
2148c2aa98e2SPeter Wemm 	{
2149c2aa98e2SPeter Wemm 		/* may be :include: */
2150c2aa98e2SPeter Wemm 		stripquotes(ubuf);
215140266059SGregory Neil Shapiro 		if (sm_strncasecmp(ubuf, ":include:", 9) == 0)
2152c2aa98e2SPeter Wemm 		{
2153c2aa98e2SPeter Wemm 			/* if :include:, don't need further rewriting */
2154c2aa98e2SPeter Wemm 			a->q_mailer = m = InclMailer;
215540266059SGregory Neil Shapiro 			a->q_user = sm_rpool_strdup_x(e->e_rpool, &ubuf[9]);
2156c2aa98e2SPeter Wemm 			return a;
2157c2aa98e2SPeter Wemm 		}
2158c2aa98e2SPeter Wemm 	}
2159c2aa98e2SPeter Wemm 
2160c2aa98e2SPeter Wemm 	/* rewrite according recipient mailer rewriting rules */
216140266059SGregory Neil Shapiro 	macdefine(&e->e_macro, A_PERM, 'h', a->q_host);
216206f25ae9SGregory Neil Shapiro 
216340266059SGregory Neil Shapiro 	if (ConfigLevel >= 10 ||
216406f25ae9SGregory Neil Shapiro 	    !bitset(RF_SENDERADDR|RF_HEADERADDR, flags))
2165c2aa98e2SPeter Wemm 	{
2166c2aa98e2SPeter Wemm 		/* sender addresses done later */
2167a7ec597cSGregory Neil Shapiro 		(void) rewrite(tv, 2, 0, e, maxatom);
2168c2aa98e2SPeter Wemm 		if (m->m_re_rwset > 0)
2169a7ec597cSGregory Neil Shapiro 		       (void) rewrite(tv, m->m_re_rwset, 0, e, maxatom);
2170c2aa98e2SPeter Wemm 	}
2171a7ec597cSGregory Neil Shapiro 	(void) rewrite(tv, 4, 0, e, maxatom);
2172c2aa98e2SPeter Wemm 
2173c2aa98e2SPeter Wemm 	/* save the result for the command line/RCPT argument */
2174d0cef73dSGregory Neil Shapiro 	cataddr(tv, NULL, ubuf, sizeof(ubuf), '\0', true);
217540266059SGregory Neil Shapiro 	a->q_user = sm_rpool_strdup_x(e->e_rpool, ubuf);
2176c2aa98e2SPeter Wemm 
2177c2aa98e2SPeter Wemm 	/*
2178c2aa98e2SPeter Wemm 	**  Do mapping to lower case as requested by mailer
2179c2aa98e2SPeter Wemm 	*/
2180c2aa98e2SPeter Wemm 
2181c2aa98e2SPeter Wemm 	if (a->q_host != NULL && !bitnset(M_HST_UPPER, m->m_flags))
2182c2aa98e2SPeter Wemm 		makelower(a->q_host);
2183c2aa98e2SPeter Wemm 	if (!bitnset(M_USR_UPPER, m->m_flags))
2184c2aa98e2SPeter Wemm 		makelower(a->q_user);
2185c2aa98e2SPeter Wemm 
2186c2aa98e2SPeter Wemm 	if (tTd(24, 6))
2187c2aa98e2SPeter Wemm 	{
218840266059SGregory Neil Shapiro 		sm_dprintf("buildaddr => ");
2189e92d3f3fSGregory Neil Shapiro 		printaddr(sm_debug_file(), a, false);
2190c2aa98e2SPeter Wemm 	}
2191c2aa98e2SPeter Wemm 	return a;
2192c2aa98e2SPeter Wemm }
219313bd1963SGregory Neil Shapiro 
219440266059SGregory Neil Shapiro /*
2195c2aa98e2SPeter Wemm **  CATADDR -- concatenate pieces of addresses (putting in <LWSP> subs)
2196c2aa98e2SPeter Wemm **
2197c2aa98e2SPeter Wemm **	Parameters:
2198c2aa98e2SPeter Wemm **		pvp -- parameter vector to rebuild.
2199c2aa98e2SPeter Wemm **		evp -- last parameter to include.  Can be NULL to
2200c2aa98e2SPeter Wemm **			use entire pvp.
2201c2aa98e2SPeter Wemm **		buf -- buffer to build the string into.
2202c2aa98e2SPeter Wemm **		sz -- size of buf.
220340266059SGregory Neil Shapiro **		spacesub -- the space separator character; if '\0',
2204c2aa98e2SPeter Wemm **			use SpaceSub.
2205d0cef73dSGregory Neil Shapiro **		external -- convert to external form?
2206d0cef73dSGregory Neil Shapiro **			(no metacharacters; METAQUOTEs removed, see below)
2207c2aa98e2SPeter Wemm **
2208c2aa98e2SPeter Wemm **	Returns:
2209c2aa98e2SPeter Wemm **		none.
2210c2aa98e2SPeter Wemm **
2211c2aa98e2SPeter Wemm **	Side Effects:
2212c2aa98e2SPeter Wemm **		Destroys buf.
2213d0cef73dSGregory Neil Shapiro **
2214d0cef73dSGregory Neil Shapiro **	Notes:
2215d0cef73dSGregory Neil Shapiro **	There are two formats for strings: internal and external.
2216d0cef73dSGregory Neil Shapiro **	The external format is just an eight-bit clean string (no
2217d0cef73dSGregory Neil Shapiro **	null bytes, everything else OK).  The internal format can
2218d0cef73dSGregory Neil Shapiro **	include sendmail metacharacters.  The special character
2219d0cef73dSGregory Neil Shapiro **	METAQUOTE essentially quotes the character following, stripping
2220d0cef73dSGregory Neil Shapiro **	it of all special semantics.
2221d0cef73dSGregory Neil Shapiro **
2222d0cef73dSGregory Neil Shapiro **	The cataddr routine needs to be aware of whether it is producing
2223d0cef73dSGregory Neil Shapiro **	an internal or external form as output (it only takes internal
2224d0cef73dSGregory Neil Shapiro **	form as input).
2225d0cef73dSGregory Neil Shapiro **
2226d0cef73dSGregory Neil Shapiro **	The parseaddr routine has a similar issue on input, but that
2227d0cef73dSGregory Neil Shapiro **	is flagged on the basis of which token table is passed in.
2228c2aa98e2SPeter Wemm */
2229c2aa98e2SPeter Wemm 
2230c2aa98e2SPeter Wemm void
2231d0cef73dSGregory Neil Shapiro cataddr(pvp, evp, buf, sz, spacesub, external)
2232c2aa98e2SPeter Wemm 	char **pvp;
2233c2aa98e2SPeter Wemm 	char **evp;
2234c2aa98e2SPeter Wemm 	char *buf;
2235c2aa98e2SPeter Wemm 	register int sz;
2236c2aa98e2SPeter Wemm 	int spacesub;
2237d0cef73dSGregory Neil Shapiro 	bool external;
2238c2aa98e2SPeter Wemm {
2239d0cef73dSGregory Neil Shapiro 	bool oatomtok, natomtok;
2240d0cef73dSGregory Neil Shapiro 	char *p;
2241d0cef73dSGregory Neil Shapiro 
2242d0cef73dSGregory Neil Shapiro 	oatomtok = natomtok = false;
2243d0cef73dSGregory Neil Shapiro 	if (tTd(59, 14))
2244d0cef73dSGregory Neil Shapiro 	{
2245d0cef73dSGregory Neil Shapiro 		sm_dprintf("cataddr(%d) <==", external);
2246d0cef73dSGregory Neil Shapiro 		printav(sm_debug_file(), pvp);
2247d0cef73dSGregory Neil Shapiro 	}
2248c2aa98e2SPeter Wemm 
224906f25ae9SGregory Neil Shapiro 	if (sz <= 0)
225006f25ae9SGregory Neil Shapiro 		return;
225106f25ae9SGregory Neil Shapiro 
2252c2aa98e2SPeter Wemm 	if (spacesub == '\0')
2253c2aa98e2SPeter Wemm 		spacesub = SpaceSub;
2254c2aa98e2SPeter Wemm 
2255c2aa98e2SPeter Wemm 	if (pvp == NULL)
2256c2aa98e2SPeter Wemm 	{
225706f25ae9SGregory Neil Shapiro 		*buf = '\0';
2258c2aa98e2SPeter Wemm 		return;
2259c2aa98e2SPeter Wemm 	}
2260c2aa98e2SPeter Wemm 	p = buf;
2261c2aa98e2SPeter Wemm 	sz -= 2;
226240266059SGregory Neil Shapiro 	while (*pvp != NULL && sz > 0)
2263c2aa98e2SPeter Wemm 	{
2264d0cef73dSGregory Neil Shapiro 		char *q;
2265d0cef73dSGregory Neil Shapiro 
2266d0cef73dSGregory Neil Shapiro 		natomtok = (ExtTokenTab[**pvp & 0xff] == ATM);
2267c2aa98e2SPeter Wemm 		if (oatomtok && natomtok)
226806f25ae9SGregory Neil Shapiro 		{
2269c2aa98e2SPeter Wemm 			*p++ = spacesub;
227040266059SGregory Neil Shapiro 			if (--sz <= 0)
227140266059SGregory Neil Shapiro 				break;
227206f25ae9SGregory Neil Shapiro 		}
2273d0cef73dSGregory Neil Shapiro 		for (q = *pvp; *q != '\0'; )
2274d0cef73dSGregory Neil Shapiro 		{
2275d0cef73dSGregory Neil Shapiro 			int c;
2276d0cef73dSGregory Neil Shapiro 
2277d0cef73dSGregory Neil Shapiro 			if (--sz <= 0)
2278d0cef73dSGregory Neil Shapiro 				break;
2279d0cef73dSGregory Neil Shapiro 			*p++ = c = *q++;
2280d0cef73dSGregory Neil Shapiro 
2281d0cef73dSGregory Neil Shapiro 			/*
2282d0cef73dSGregory Neil Shapiro 			**  If the current character (c) is METAQUOTE and we
2283d0cef73dSGregory Neil Shapiro 			**  want the "external" form and the next character
2284d0cef73dSGregory Neil Shapiro 			**  is not NUL, then overwrite METAQUOTE with that
2285d0cef73dSGregory Neil Shapiro 			**  character (i.e., METAQUOTE ch is changed to
2286d0cef73dSGregory Neil Shapiro 			**  ch).  p[-1] is used because p is advanced (above).
2287d0cef73dSGregory Neil Shapiro 			*/
2288d0cef73dSGregory Neil Shapiro 
2289d0cef73dSGregory Neil Shapiro 			if ((c & 0377) == METAQUOTE && external && *q != '\0')
2290d0cef73dSGregory Neil Shapiro 				p[-1] = *q++;
2291d0cef73dSGregory Neil Shapiro 		}
2292e92d3f3fSGregory Neil Shapiro 		if (sz <= 0)
229340266059SGregory Neil Shapiro 			break;
2294c2aa98e2SPeter Wemm 		oatomtok = natomtok;
2295c2aa98e2SPeter Wemm 		if (pvp++ == evp)
2296c2aa98e2SPeter Wemm 			break;
2297c2aa98e2SPeter Wemm 	}
2298e92d3f3fSGregory Neil Shapiro 
229913d88268SGregory Neil Shapiro #if 0
230013d88268SGregory Neil Shapiro 	/*
230113d88268SGregory Neil Shapiro 	**  Silently truncate long strings: even though this doesn't
230213d88268SGregory Neil Shapiro 	**  seem like a good idea it is necessary because header checks
230313d88268SGregory Neil Shapiro 	**  send the whole header value to rscheck() and hence rewrite().
230413d88268SGregory Neil Shapiro 	**  The latter however sometimes uses a "short" buffer (e.g.,
230513d88268SGregory Neil Shapiro 	**  cbuf[MAXNAME + 1]) to call cataddr() which then triggers this
230613d88268SGregory Neil Shapiro 	**  error function.  One possible fix to the problem is to pass
230713d88268SGregory Neil Shapiro 	**  flags to rscheck() and rewrite() to distinguish the various
230813d88268SGregory Neil Shapiro 	**  calls and only trigger the error if necessary.  For now just
230913d88268SGregory Neil Shapiro 	**  undo the change from 8.13.0.
231013d88268SGregory Neil Shapiro 	*/
231113d88268SGregory Neil Shapiro 
2312e92d3f3fSGregory Neil Shapiro 	if (sz <= 0)
2313b6bacd31SGregory Neil Shapiro 		usrerr("cataddr: string too long");
231413d88268SGregory Neil Shapiro #endif
2315c2aa98e2SPeter Wemm 	*p = '\0';
2316d0cef73dSGregory Neil Shapiro 
2317d0cef73dSGregory Neil Shapiro 	if (tTd(59, 14))
2318d0cef73dSGregory Neil Shapiro 		sm_dprintf("  cataddr => %s\n", str2prt(buf));
2319c2aa98e2SPeter Wemm }
2320d0cef73dSGregory Neil Shapiro 
232140266059SGregory Neil Shapiro /*
2322c2aa98e2SPeter Wemm **  SAMEADDR -- Determine if two addresses are the same
2323c2aa98e2SPeter Wemm **
2324c2aa98e2SPeter Wemm **	This is not just a straight comparison -- if the mailer doesn't
2325c2aa98e2SPeter Wemm **	care about the host we just ignore it, etc.
2326c2aa98e2SPeter Wemm **
2327c2aa98e2SPeter Wemm **	Parameters:
2328c2aa98e2SPeter Wemm **		a, b -- pointers to the internal forms to compare.
2329c2aa98e2SPeter Wemm **
2330c2aa98e2SPeter Wemm **	Returns:
233140266059SGregory Neil Shapiro **		true -- they represent the same mailbox.
233240266059SGregory Neil Shapiro **		false -- they don't.
2333c2aa98e2SPeter Wemm **
2334c2aa98e2SPeter Wemm **	Side Effects:
2335c2aa98e2SPeter Wemm **		none.
2336c2aa98e2SPeter Wemm */
2337c2aa98e2SPeter Wemm 
2338c2aa98e2SPeter Wemm bool
2339c2aa98e2SPeter Wemm sameaddr(a, b)
2340c2aa98e2SPeter Wemm 	register ADDRESS *a;
2341c2aa98e2SPeter Wemm 	register ADDRESS *b;
2342c2aa98e2SPeter Wemm {
2343c2aa98e2SPeter Wemm 	register ADDRESS *ca, *cb;
2344c2aa98e2SPeter Wemm 
2345c2aa98e2SPeter Wemm 	/* if they don't have the same mailer, forget it */
2346c2aa98e2SPeter Wemm 	if (a->q_mailer != b->q_mailer)
234740266059SGregory Neil Shapiro 		return false;
2348c2aa98e2SPeter Wemm 
2349c2aa98e2SPeter Wemm 	/* if the user isn't the same, we can drop out */
2350c2aa98e2SPeter Wemm 	if (strcmp(a->q_user, b->q_user) != 0)
235140266059SGregory Neil Shapiro 		return false;
2352c2aa98e2SPeter Wemm 
2353c2aa98e2SPeter Wemm 	/* if we have good uids for both but they differ, these are different */
2354c2aa98e2SPeter Wemm 	if (a->q_mailer == ProgMailer)
2355c2aa98e2SPeter Wemm 	{
2356c2aa98e2SPeter Wemm 		ca = getctladdr(a);
2357c2aa98e2SPeter Wemm 		cb = getctladdr(b);
2358c2aa98e2SPeter Wemm 		if (ca != NULL && cb != NULL &&
2359c2aa98e2SPeter Wemm 		    bitset(QGOODUID, ca->q_flags & cb->q_flags) &&
2360c2aa98e2SPeter Wemm 		    ca->q_uid != cb->q_uid)
236140266059SGregory Neil Shapiro 			return false;
2362c2aa98e2SPeter Wemm 	}
2363c2aa98e2SPeter Wemm 
2364c2aa98e2SPeter Wemm 	/* otherwise compare hosts (but be careful for NULL ptrs) */
2365c2aa98e2SPeter Wemm 	if (a->q_host == b->q_host)
2366c2aa98e2SPeter Wemm 	{
2367c2aa98e2SPeter Wemm 		/* probably both null pointers */
236840266059SGregory Neil Shapiro 		return true;
2369c2aa98e2SPeter Wemm 	}
2370c2aa98e2SPeter Wemm 	if (a->q_host == NULL || b->q_host == NULL)
2371c2aa98e2SPeter Wemm 	{
2372c2aa98e2SPeter Wemm 		/* only one is a null pointer */
237340266059SGregory Neil Shapiro 		return false;
2374c2aa98e2SPeter Wemm 	}
2375c2aa98e2SPeter Wemm 	if (strcmp(a->q_host, b->q_host) != 0)
237640266059SGregory Neil Shapiro 		return false;
2377c2aa98e2SPeter Wemm 
237840266059SGregory Neil Shapiro 	return true;
2379c2aa98e2SPeter Wemm }
238040266059SGregory Neil Shapiro /*
2381c2aa98e2SPeter Wemm **  PRINTADDR -- print address (for debugging)
2382c2aa98e2SPeter Wemm **
2383c2aa98e2SPeter Wemm **	Parameters:
2384c2aa98e2SPeter Wemm **		a -- the address to print
2385c2aa98e2SPeter Wemm **		follow -- follow the q_next chain.
2386c2aa98e2SPeter Wemm **
2387c2aa98e2SPeter Wemm **	Returns:
2388c2aa98e2SPeter Wemm **		none.
2389c2aa98e2SPeter Wemm **
2390c2aa98e2SPeter Wemm **	Side Effects:
2391c2aa98e2SPeter Wemm **		none.
2392c2aa98e2SPeter Wemm */
2393c2aa98e2SPeter Wemm 
2394c2aa98e2SPeter Wemm struct qflags
2395c2aa98e2SPeter Wemm {
2396c2aa98e2SPeter Wemm 	char		*qf_name;
239740266059SGregory Neil Shapiro 	unsigned long	qf_bit;
2398c2aa98e2SPeter Wemm };
2399c2aa98e2SPeter Wemm 
240006f25ae9SGregory Neil Shapiro static struct qflags	AddressFlags[] =
2401c2aa98e2SPeter Wemm {
2402c2aa98e2SPeter Wemm 	{ "QGOODUID",		QGOODUID	},
2403c2aa98e2SPeter Wemm 	{ "QPRIMARY",		QPRIMARY	},
2404c2aa98e2SPeter Wemm 	{ "QNOTREMOTE",		QNOTREMOTE	},
2405c2aa98e2SPeter Wemm 	{ "QSELFREF",		QSELFREF	},
2406c2aa98e2SPeter Wemm 	{ "QBOGUSSHELL",	QBOGUSSHELL	},
2407c2aa98e2SPeter Wemm 	{ "QUNSAFEADDR",	QUNSAFEADDR	},
2408c2aa98e2SPeter Wemm 	{ "QPINGONSUCCESS",	QPINGONSUCCESS	},
2409c2aa98e2SPeter Wemm 	{ "QPINGONFAILURE",	QPINGONFAILURE	},
2410c2aa98e2SPeter Wemm 	{ "QPINGONDELAY",	QPINGONDELAY	},
2411c2aa98e2SPeter Wemm 	{ "QHASNOTIFY",		QHASNOTIFY	},
2412c2aa98e2SPeter Wemm 	{ "QRELAYED",		QRELAYED	},
2413c2aa98e2SPeter Wemm 	{ "QEXPANDED",		QEXPANDED	},
2414c2aa98e2SPeter Wemm 	{ "QDELIVERED",		QDELIVERED	},
2415c2aa98e2SPeter Wemm 	{ "QDELAYED",		QDELAYED	},
2416c2aa98e2SPeter Wemm 	{ "QTHISPASS",		QTHISPASS	},
2417c2aa98e2SPeter Wemm 	{ "QRCPTOK",		QRCPTOK		},
2418193538b7SGregory Neil Shapiro 	{ NULL,			0		}
2419c2aa98e2SPeter Wemm };
2420c2aa98e2SPeter Wemm 
2421c2aa98e2SPeter Wemm void
2422e92d3f3fSGregory Neil Shapiro printaddr(fp, a, follow)
2423e92d3f3fSGregory Neil Shapiro 	SM_FILE_T *fp;
2424c2aa98e2SPeter Wemm 	register ADDRESS *a;
2425c2aa98e2SPeter Wemm 	bool follow;
2426c2aa98e2SPeter Wemm {
2427c2aa98e2SPeter Wemm 	register MAILER *m;
2428c2aa98e2SPeter Wemm 	MAILER pseudomailer;
2429c2aa98e2SPeter Wemm 	register struct qflags *qfp;
2430c2aa98e2SPeter Wemm 	bool firstone;
2431c2aa98e2SPeter Wemm 
2432c2aa98e2SPeter Wemm 	if (a == NULL)
2433c2aa98e2SPeter Wemm 	{
2434e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "[NULL]\n");
2435c2aa98e2SPeter Wemm 		return;
2436c2aa98e2SPeter Wemm 	}
2437c2aa98e2SPeter Wemm 
2438c2aa98e2SPeter Wemm 	while (a != NULL)
2439c2aa98e2SPeter Wemm 	{
2440e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%p=", a);
2441e92d3f3fSGregory Neil Shapiro 		(void) sm_io_flush(fp, SM_TIME_DEFAULT);
2442c2aa98e2SPeter Wemm 
2443c2aa98e2SPeter Wemm 		/* find the mailer -- carefully */
2444c2aa98e2SPeter Wemm 		m = a->q_mailer;
2445c2aa98e2SPeter Wemm 		if (m == NULL)
2446c2aa98e2SPeter Wemm 		{
2447c2aa98e2SPeter Wemm 			m = &pseudomailer;
2448c2aa98e2SPeter Wemm 			m->m_mno = -1;
2449c2aa98e2SPeter Wemm 			m->m_name = "NULL";
2450c2aa98e2SPeter Wemm 		}
2451c2aa98e2SPeter Wemm 
2452e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
245340266059SGregory Neil Shapiro 				     "%s:\n\tmailer %d (%s), host `%s'\n",
2454c2aa98e2SPeter Wemm 				     a->q_paddr == NULL ? "<null>" : a->q_paddr,
2455c2aa98e2SPeter Wemm 				     m->m_mno, m->m_name,
2456c2aa98e2SPeter Wemm 				     a->q_host == NULL ? "<null>" : a->q_host);
2457e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
245840266059SGregory Neil Shapiro 				     "\tuser `%s', ruser `%s'\n",
2459c2aa98e2SPeter Wemm 				     a->q_user,
2460c2aa98e2SPeter Wemm 				     a->q_ruser == NULL ? "<null>" : a->q_ruser);
2461e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\tstate=");
246206f25ae9SGregory Neil Shapiro 		switch (a->q_state)
246306f25ae9SGregory Neil Shapiro 		{
246406f25ae9SGregory Neil Shapiro 		  case QS_OK:
2465e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "OK");
246606f25ae9SGregory Neil Shapiro 			break;
246706f25ae9SGregory Neil Shapiro 
246806f25ae9SGregory Neil Shapiro 		  case QS_DONTSEND:
2469e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
247040266059SGregory Neil Shapiro 					     "DONTSEND");
247106f25ae9SGregory Neil Shapiro 			break;
247206f25ae9SGregory Neil Shapiro 
247306f25ae9SGregory Neil Shapiro 		  case QS_BADADDR:
2474e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
247540266059SGregory Neil Shapiro 					     "BADADDR");
247606f25ae9SGregory Neil Shapiro 			break;
247706f25ae9SGregory Neil Shapiro 
247806f25ae9SGregory Neil Shapiro 		  case QS_QUEUEUP:
2479e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
248040266059SGregory Neil Shapiro 					     "QUEUEUP");
248140266059SGregory Neil Shapiro 			break;
248240266059SGregory Neil Shapiro 
248340266059SGregory Neil Shapiro 		  case QS_RETRY:
2484e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "RETRY");
248506f25ae9SGregory Neil Shapiro 			break;
248606f25ae9SGregory Neil Shapiro 
248706f25ae9SGregory Neil Shapiro 		  case QS_SENT:
2488e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "SENT");
248906f25ae9SGregory Neil Shapiro 			break;
249006f25ae9SGregory Neil Shapiro 
249106f25ae9SGregory Neil Shapiro 		  case QS_VERIFIED:
2492e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
249340266059SGregory Neil Shapiro 					     "VERIFIED");
249406f25ae9SGregory Neil Shapiro 			break;
249506f25ae9SGregory Neil Shapiro 
249606f25ae9SGregory Neil Shapiro 		  case QS_EXPANDED:
2497e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
249840266059SGregory Neil Shapiro 					     "EXPANDED");
249906f25ae9SGregory Neil Shapiro 			break;
250006f25ae9SGregory Neil Shapiro 
250106f25ae9SGregory Neil Shapiro 		  case QS_SENDER:
2502e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
250340266059SGregory Neil Shapiro 					     "SENDER");
250406f25ae9SGregory Neil Shapiro 			break;
250506f25ae9SGregory Neil Shapiro 
250606f25ae9SGregory Neil Shapiro 		  case QS_CLONED:
2507e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
250840266059SGregory Neil Shapiro 					     "CLONED");
250906f25ae9SGregory Neil Shapiro 			break;
251006f25ae9SGregory Neil Shapiro 
251106f25ae9SGregory Neil Shapiro 		  case QS_DISCARDED:
2512e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
251340266059SGregory Neil Shapiro 					     "DISCARDED");
251406f25ae9SGregory Neil Shapiro 			break;
251506f25ae9SGregory Neil Shapiro 
251606f25ae9SGregory Neil Shapiro 		  case QS_REPLACED:
2517e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
251840266059SGregory Neil Shapiro 					     "REPLACED");
251906f25ae9SGregory Neil Shapiro 			break;
252006f25ae9SGregory Neil Shapiro 
252106f25ae9SGregory Neil Shapiro 		  case QS_REMOVED:
2522e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
252340266059SGregory Neil Shapiro 					     "REMOVED");
252406f25ae9SGregory Neil Shapiro 			break;
252506f25ae9SGregory Neil Shapiro 
252606f25ae9SGregory Neil Shapiro 		  case QS_DUPLICATE:
2527e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
252840266059SGregory Neil Shapiro 					     "DUPLICATE");
252906f25ae9SGregory Neil Shapiro 			break;
253006f25ae9SGregory Neil Shapiro 
253106f25ae9SGregory Neil Shapiro 		  case QS_INCLUDED:
2532e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
253340266059SGregory Neil Shapiro 					     "INCLUDED");
253406f25ae9SGregory Neil Shapiro 			break;
253506f25ae9SGregory Neil Shapiro 
253606f25ae9SGregory Neil Shapiro 		  default:
2537e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
253840266059SGregory Neil Shapiro 					     "%d", a->q_state);
253906f25ae9SGregory Neil Shapiro 			break;
254006f25ae9SGregory Neil Shapiro 		}
2541e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
254240266059SGregory Neil Shapiro 				     ", next=%p, alias %p, uid %d, gid %d\n",
254340266059SGregory Neil Shapiro 				     a->q_next, a->q_alias,
2544c2aa98e2SPeter Wemm 				     (int) a->q_uid, (int) a->q_gid);
2545e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\tflags=%lx<",
254640266059SGregory Neil Shapiro 				     a->q_flags);
254740266059SGregory Neil Shapiro 		firstone = true;
2548c2aa98e2SPeter Wemm 		for (qfp = AddressFlags; qfp->qf_name != NULL; qfp++)
2549c2aa98e2SPeter Wemm 		{
2550c2aa98e2SPeter Wemm 			if (!bitset(qfp->qf_bit, a->q_flags))
2551c2aa98e2SPeter Wemm 				continue;
2552c2aa98e2SPeter Wemm 			if (!firstone)
2553e92d3f3fSGregory Neil Shapiro 				(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
255440266059SGregory Neil Shapiro 						     ",");
255540266059SGregory Neil Shapiro 			firstone = false;
2556e92d3f3fSGregory Neil Shapiro 			(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s",
255740266059SGregory Neil Shapiro 					     qfp->qf_name);
2558c2aa98e2SPeter Wemm 		}
2559e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT, ">\n");
2560e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
256140266059SGregory Neil Shapiro 				     "\towner=%s, home=\"%s\", fullname=\"%s\"\n",
2562c2aa98e2SPeter Wemm 				     a->q_owner == NULL ? "(none)" : a->q_owner,
2563c2aa98e2SPeter Wemm 				     a->q_home == NULL ? "(none)" : a->q_home,
2564c2aa98e2SPeter Wemm 				     a->q_fullname == NULL ? "(none)" : a->q_fullname);
2565e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
256640266059SGregory Neil Shapiro 				     "\torcpt=\"%s\", statmta=%s, status=%s\n",
2567c2aa98e2SPeter Wemm 				     a->q_orcpt == NULL ? "(none)" : a->q_orcpt,
2568c2aa98e2SPeter Wemm 				     a->q_statmta == NULL ? "(none)" : a->q_statmta,
2569c2aa98e2SPeter Wemm 				     a->q_status == NULL ? "(none)" : a->q_status);
2570e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
257140266059SGregory Neil Shapiro 				     "\tfinalrcpt=\"%s\"\n",
257240266059SGregory Neil Shapiro 				     a->q_finalrcpt == NULL ? "(none)" : a->q_finalrcpt);
2573e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
257440266059SGregory Neil Shapiro 				     "\trstatus=\"%s\"\n",
2575c2aa98e2SPeter Wemm 				     a->q_rstatus == NULL ? "(none)" : a->q_rstatus);
2576e92d3f3fSGregory Neil Shapiro 		(void) sm_io_fprintf(fp, SM_TIME_DEFAULT,
257740266059SGregory Neil Shapiro 				     "\tstatdate=%s\n",
257806f25ae9SGregory Neil Shapiro 				     a->q_statdate == 0 ? "(none)" : ctime(&a->q_statdate));
2579c2aa98e2SPeter Wemm 
2580c2aa98e2SPeter Wemm 		if (!follow)
2581c2aa98e2SPeter Wemm 			return;
2582c2aa98e2SPeter Wemm 		a = a->q_next;
2583c2aa98e2SPeter Wemm 	}
2584c2aa98e2SPeter Wemm }
258540266059SGregory Neil Shapiro /*
258640266059SGregory Neil Shapiro **  EMPTYADDR -- return true if this address is empty (``<>'')
2587c2aa98e2SPeter Wemm **
2588c2aa98e2SPeter Wemm **	Parameters:
2589c2aa98e2SPeter Wemm **		a -- pointer to the address
2590c2aa98e2SPeter Wemm **
2591c2aa98e2SPeter Wemm **	Returns:
259240266059SGregory Neil Shapiro **		true -- if this address is "empty" (i.e., no one should
2593c2aa98e2SPeter Wemm **			ever generate replies to it.
259440266059SGregory Neil Shapiro **		false -- if it is a "regular" (read: replyable) address.
2595c2aa98e2SPeter Wemm */
2596c2aa98e2SPeter Wemm 
2597c2aa98e2SPeter Wemm bool
2598c2aa98e2SPeter Wemm emptyaddr(a)
2599c2aa98e2SPeter Wemm 	register ADDRESS *a;
2600c2aa98e2SPeter Wemm {
2601c2aa98e2SPeter Wemm 	return a->q_paddr == NULL || strcmp(a->q_paddr, "<>") == 0 ||
2602c2aa98e2SPeter Wemm 	       a->q_user == NULL || strcmp(a->q_user, "<>") == 0;
2603c2aa98e2SPeter Wemm }
260440266059SGregory Neil Shapiro /*
2605c2aa98e2SPeter Wemm **  REMOTENAME -- return the name relative to the current mailer
2606c2aa98e2SPeter Wemm **
2607c2aa98e2SPeter Wemm **	Parameters:
2608c2aa98e2SPeter Wemm **		name -- the name to translate.
2609a7ec597cSGregory Neil Shapiro **		m -- the mailer that we want to do rewriting relative to.
2610c2aa98e2SPeter Wemm **		flags -- fine tune operations.
2611c2aa98e2SPeter Wemm **		pstat -- pointer to status word.
2612c2aa98e2SPeter Wemm **		e -- the current envelope.
2613c2aa98e2SPeter Wemm **
2614c2aa98e2SPeter Wemm **	Returns:
2615c2aa98e2SPeter Wemm **		the text string representing this address relative to
2616c2aa98e2SPeter Wemm **			the receiving mailer.
2617c2aa98e2SPeter Wemm **
2618c2aa98e2SPeter Wemm **	Side Effects:
2619c2aa98e2SPeter Wemm **		none.
2620c2aa98e2SPeter Wemm **
2621c2aa98e2SPeter Wemm **	Warnings:
2622c2aa98e2SPeter Wemm **		The text string returned is tucked away locally;
2623c2aa98e2SPeter Wemm **			copy it if you intend to save it.
2624c2aa98e2SPeter Wemm */
2625c2aa98e2SPeter Wemm 
2626c2aa98e2SPeter Wemm char *
2627c2aa98e2SPeter Wemm remotename(name, m, flags, pstat, e)
2628c2aa98e2SPeter Wemm 	char *name;
2629c2aa98e2SPeter Wemm 	struct mailer *m;
2630c2aa98e2SPeter Wemm 	int flags;
2631c2aa98e2SPeter Wemm 	int *pstat;
2632c2aa98e2SPeter Wemm 	register ENVELOPE *e;
2633c2aa98e2SPeter Wemm {
2634c2aa98e2SPeter Wemm 	register char **pvp;
263540266059SGregory Neil Shapiro 	char *SM_NONVOLATILE fancy;
263640266059SGregory Neil Shapiro 	char *oldg;
2637c2aa98e2SPeter Wemm 	int rwset;
2638c2aa98e2SPeter Wemm 	static char buf[MAXNAME + 1];
2639c2aa98e2SPeter Wemm 	char lbuf[MAXNAME + 1];
2640c2aa98e2SPeter Wemm 	char pvpbuf[PSBUFSIZE];
264106f25ae9SGregory Neil Shapiro 	char addrtype[4];
2642c2aa98e2SPeter Wemm 
2643c2aa98e2SPeter Wemm 	if (tTd(12, 1))
2644d0cef73dSGregory Neil Shapiro 	{
2645d0cef73dSGregory Neil Shapiro 		sm_dprintf("remotename(");
2646d0cef73dSGregory Neil Shapiro 		xputs(sm_debug_file(), name);
2647d0cef73dSGregory Neil Shapiro 		sm_dprintf(")\n");
2648d0cef73dSGregory Neil Shapiro 	}
2649c2aa98e2SPeter Wemm 
2650c2aa98e2SPeter Wemm 	/* don't do anything if we are tagging it as special */
2651c2aa98e2SPeter Wemm 	if (bitset(RF_SENDERADDR, flags))
265206f25ae9SGregory Neil Shapiro 	{
2653c2aa98e2SPeter Wemm 		rwset = bitset(RF_HEADERADDR, flags) ? m->m_sh_rwset
2654c2aa98e2SPeter Wemm 						     : m->m_se_rwset;
265506f25ae9SGregory Neil Shapiro 		addrtype[2] = 's';
265606f25ae9SGregory Neil Shapiro 	}
2657c2aa98e2SPeter Wemm 	else
265806f25ae9SGregory Neil Shapiro 	{
2659c2aa98e2SPeter Wemm 		rwset = bitset(RF_HEADERADDR, flags) ? m->m_rh_rwset
2660c2aa98e2SPeter Wemm 						     : m->m_re_rwset;
266106f25ae9SGregory Neil Shapiro 		addrtype[2] = 'r';
266206f25ae9SGregory Neil Shapiro 	}
2663c2aa98e2SPeter Wemm 	if (rwset < 0)
266406f25ae9SGregory Neil Shapiro 		return name;
266506f25ae9SGregory Neil Shapiro 	addrtype[1] = ' ';
266606f25ae9SGregory Neil Shapiro 	addrtype[3] = '\0';
266706f25ae9SGregory Neil Shapiro 	addrtype[0] = bitset(RF_HEADERADDR, flags) ? 'h' : 'e';
266840266059SGregory Neil Shapiro 	macdefine(&e->e_macro, A_TEMP, macid("{addr_type}"), addrtype);
2669c2aa98e2SPeter Wemm 
2670c2aa98e2SPeter Wemm 	/*
2671c2aa98e2SPeter Wemm 	**  Do a heuristic crack of this name to extract any comment info.
2672c2aa98e2SPeter Wemm 	**	This will leave the name as a comment and a $g macro.
2673c2aa98e2SPeter Wemm 	*/
2674c2aa98e2SPeter Wemm 
2675c2aa98e2SPeter Wemm 	if (bitset(RF_CANONICAL, flags) || bitnset(M_NOCOMMENT, m->m_flags))
2676c2aa98e2SPeter Wemm 		fancy = "\201g";
2677c2aa98e2SPeter Wemm 	else
2678d9986b26SGregory Neil Shapiro 		fancy = crackaddr(name, e);
2679c2aa98e2SPeter Wemm 
2680c2aa98e2SPeter Wemm 	/*
2681c2aa98e2SPeter Wemm 	**  Turn the name into canonical form.
2682c2aa98e2SPeter Wemm 	**	Normally this will be RFC 822 style, i.e., "user@domain".
2683c2aa98e2SPeter Wemm 	**	If this only resolves to "user", and the "C" flag is
2684c2aa98e2SPeter Wemm 	**	specified in the sending mailer, then the sender's
2685c2aa98e2SPeter Wemm 	**	domain will be appended.
2686c2aa98e2SPeter Wemm 	*/
2687c2aa98e2SPeter Wemm 
2688d0cef73dSGregory Neil Shapiro 	pvp = prescan(name, '\0', pvpbuf, sizeof(pvpbuf), NULL, NULL, false);
2689c2aa98e2SPeter Wemm 	if (pvp == NULL)
269006f25ae9SGregory Neil Shapiro 		return name;
269140266059SGregory Neil Shapiro 	if (REWRITE(pvp, 3, e) == EX_TEMPFAIL)
2692c2aa98e2SPeter Wemm 		*pstat = EX_TEMPFAIL;
2693c2aa98e2SPeter Wemm 	if (bitset(RF_ADDDOMAIN, flags) && e->e_fromdomain != NULL)
2694c2aa98e2SPeter Wemm 	{
2695c2aa98e2SPeter Wemm 		/* append from domain to this address */
2696c2aa98e2SPeter Wemm 		register char **pxp = pvp;
269706f25ae9SGregory Neil Shapiro 		int l = MAXATOM;	/* size of buffer for pvp */
2698c2aa98e2SPeter Wemm 
2699c2aa98e2SPeter Wemm 		/* see if there is an "@domain" in the current name */
2700c2aa98e2SPeter Wemm 		while (*pxp != NULL && strcmp(*pxp, "@") != 0)
270106f25ae9SGregory Neil Shapiro 		{
2702c2aa98e2SPeter Wemm 			pxp++;
270306f25ae9SGregory Neil Shapiro 			--l;
270406f25ae9SGregory Neil Shapiro 		}
2705c2aa98e2SPeter Wemm 		if (*pxp == NULL)
2706c2aa98e2SPeter Wemm 		{
2707c2aa98e2SPeter Wemm 			/* no.... append the "@domain" from the sender */
2708c2aa98e2SPeter Wemm 			register char **qxq = e->e_fromdomain;
2709c2aa98e2SPeter Wemm 
2710c2aa98e2SPeter Wemm 			while ((*pxp++ = *qxq++) != NULL)
271106f25ae9SGregory Neil Shapiro 			{
271206f25ae9SGregory Neil Shapiro 				if (--l <= 0)
271306f25ae9SGregory Neil Shapiro 				{
271406f25ae9SGregory Neil Shapiro 					*--pxp = NULL;
271506f25ae9SGregory Neil Shapiro 					usrerr("553 5.1.0 remotename: too many tokens");
271606f25ae9SGregory Neil Shapiro 					*pstat = EX_UNAVAILABLE;
271706f25ae9SGregory Neil Shapiro 					break;
271806f25ae9SGregory Neil Shapiro 				}
271906f25ae9SGregory Neil Shapiro 			}
272040266059SGregory Neil Shapiro 			if (REWRITE(pvp, 3, e) == EX_TEMPFAIL)
2721c2aa98e2SPeter Wemm 				*pstat = EX_TEMPFAIL;
2722c2aa98e2SPeter Wemm 		}
2723c2aa98e2SPeter Wemm 	}
2724c2aa98e2SPeter Wemm 
2725c2aa98e2SPeter Wemm 	/*
2726c2aa98e2SPeter Wemm 	**  Do more specific rewriting.
2727c2aa98e2SPeter Wemm 	**	Rewrite using ruleset 1 or 2 depending on whether this is
2728c2aa98e2SPeter Wemm 	**		a sender address or not.
2729c2aa98e2SPeter Wemm 	**	Then run it through any receiving-mailer-specific rulesets.
2730c2aa98e2SPeter Wemm 	*/
2731c2aa98e2SPeter Wemm 
2732c2aa98e2SPeter Wemm 	if (bitset(RF_SENDERADDR, flags))
2733c2aa98e2SPeter Wemm 	{
273440266059SGregory Neil Shapiro 		if (REWRITE(pvp, 1, e) == EX_TEMPFAIL)
2735c2aa98e2SPeter Wemm 			*pstat = EX_TEMPFAIL;
2736c2aa98e2SPeter Wemm 	}
2737c2aa98e2SPeter Wemm 	else
2738c2aa98e2SPeter Wemm 	{
273940266059SGregory Neil Shapiro 		if (REWRITE(pvp, 2, e) == EX_TEMPFAIL)
2740c2aa98e2SPeter Wemm 			*pstat = EX_TEMPFAIL;
2741c2aa98e2SPeter Wemm 	}
2742c2aa98e2SPeter Wemm 	if (rwset > 0)
2743c2aa98e2SPeter Wemm 	{
274440266059SGregory Neil Shapiro 		if (REWRITE(pvp, rwset, e) == EX_TEMPFAIL)
2745c2aa98e2SPeter Wemm 			*pstat = EX_TEMPFAIL;
2746c2aa98e2SPeter Wemm 	}
2747c2aa98e2SPeter Wemm 
2748c2aa98e2SPeter Wemm 	/*
2749c2aa98e2SPeter Wemm 	**  Do any final sanitation the address may require.
2750c2aa98e2SPeter Wemm 	**	This will normally be used to turn internal forms
2751c2aa98e2SPeter Wemm 	**	(e.g., user@host.LOCAL) into external form.  This
2752c2aa98e2SPeter Wemm 	**	may be used as a default to the above rules.
2753c2aa98e2SPeter Wemm 	*/
2754c2aa98e2SPeter Wemm 
275540266059SGregory Neil Shapiro 	if (REWRITE(pvp, 4, e) == EX_TEMPFAIL)
2756c2aa98e2SPeter Wemm 		*pstat = EX_TEMPFAIL;
2757c2aa98e2SPeter Wemm 
2758c2aa98e2SPeter Wemm 	/*
2759c2aa98e2SPeter Wemm 	**  Now restore the comment information we had at the beginning.
2760c2aa98e2SPeter Wemm 	*/
2761c2aa98e2SPeter Wemm 
2762d0cef73dSGregory Neil Shapiro 	cataddr(pvp, NULL, lbuf, sizeof(lbuf), '\0', false);
276340266059SGregory Neil Shapiro 	oldg = macget(&e->e_macro, 'g');
276440266059SGregory Neil Shapiro 	macset(&e->e_macro, 'g', lbuf);
2765c2aa98e2SPeter Wemm 
276640266059SGregory Neil Shapiro 	SM_TRY
2767c2aa98e2SPeter Wemm 		/* need to make sure route-addrs have <angle brackets> */
2768c2aa98e2SPeter Wemm 		if (bitset(RF_CANONICAL, flags) && lbuf[0] == '@')
2769d0cef73dSGregory Neil Shapiro 			expand("<\201g>", buf, sizeof(buf), e);
2770c2aa98e2SPeter Wemm 		else
2771d0cef73dSGregory Neil Shapiro 			expand(fancy, buf, sizeof(buf), e);
277240266059SGregory Neil Shapiro 	SM_FINALLY
277340266059SGregory Neil Shapiro 		macset(&e->e_macro, 'g', oldg);
277440266059SGregory Neil Shapiro 	SM_END_TRY
2775c2aa98e2SPeter Wemm 
2776c2aa98e2SPeter Wemm 	if (tTd(12, 1))
2777d0cef73dSGregory Neil Shapiro 	{
2778d0cef73dSGregory Neil Shapiro 		sm_dprintf("remotename => `");
2779d0cef73dSGregory Neil Shapiro 		xputs(sm_debug_file(), buf);
2780d0cef73dSGregory Neil Shapiro 		sm_dprintf("'\n");
2781d0cef73dSGregory Neil Shapiro 	}
278206f25ae9SGregory Neil Shapiro 	return buf;
2783c2aa98e2SPeter Wemm }
278440266059SGregory Neil Shapiro /*
2785c2aa98e2SPeter Wemm **  MAPLOCALUSER -- run local username through ruleset 5 for final redirection
2786c2aa98e2SPeter Wemm **
2787c2aa98e2SPeter Wemm **	Parameters:
2788c2aa98e2SPeter Wemm **		a -- the address to map (but just the user name part).
2789c2aa98e2SPeter Wemm **		sendq -- the sendq in which to install any replacement
2790c2aa98e2SPeter Wemm **			addresses.
2791c2aa98e2SPeter Wemm **		aliaslevel -- the alias nesting depth.
2792c2aa98e2SPeter Wemm **		e -- the envelope.
2793c2aa98e2SPeter Wemm **
2794c2aa98e2SPeter Wemm **	Returns:
2795c2aa98e2SPeter Wemm **		none.
2796c2aa98e2SPeter Wemm */
2797c2aa98e2SPeter Wemm 
2798c2aa98e2SPeter Wemm #define Q_COPYFLAGS	(QPRIMARY|QBOGUSSHELL|QUNSAFEADDR|\
2799c2aa98e2SPeter Wemm 			 Q_PINGFLAGS|QHASNOTIFY|\
280040266059SGregory Neil Shapiro 			 QRELAYED|QEXPANDED|QDELIVERED|QDELAYED|\
280140266059SGregory Neil Shapiro 			 QBYTRACE|QBYNDELAY|QBYNRELAY)
2802c2aa98e2SPeter Wemm 
2803c2aa98e2SPeter Wemm void
2804c2aa98e2SPeter Wemm maplocaluser(a, sendq, aliaslevel, e)
2805c2aa98e2SPeter Wemm 	register ADDRESS *a;
2806c2aa98e2SPeter Wemm 	ADDRESS **sendq;
2807c2aa98e2SPeter Wemm 	int aliaslevel;
2808c2aa98e2SPeter Wemm 	ENVELOPE *e;
2809c2aa98e2SPeter Wemm {
2810c2aa98e2SPeter Wemm 	register char **pvp;
281140266059SGregory Neil Shapiro 	register ADDRESS *SM_NONVOLATILE a1 = NULL;
2812c2aa98e2SPeter Wemm 	char pvpbuf[PSBUFSIZE];
2813c2aa98e2SPeter Wemm 
2814c2aa98e2SPeter Wemm 	if (tTd(29, 1))
2815c2aa98e2SPeter Wemm 	{
281640266059SGregory Neil Shapiro 		sm_dprintf("maplocaluser: ");
2817e92d3f3fSGregory Neil Shapiro 		printaddr(sm_debug_file(), a, false);
2818c2aa98e2SPeter Wemm 	}
2819d0cef73dSGregory Neil Shapiro 	pvp = prescan(a->q_user, '\0', pvpbuf, sizeof(pvpbuf), NULL, NULL,
2820d0cef73dSGregory Neil Shapiro 			false);
2821c2aa98e2SPeter Wemm 	if (pvp == NULL)
2822c2aa98e2SPeter Wemm 	{
2823c2aa98e2SPeter Wemm 		if (tTd(29, 9))
282440266059SGregory Neil Shapiro 			sm_dprintf("maplocaluser: cannot prescan %s\n",
282506f25ae9SGregory Neil Shapiro 				a->q_user);
2826c2aa98e2SPeter Wemm 		return;
2827c2aa98e2SPeter Wemm 	}
2828c2aa98e2SPeter Wemm 
282940266059SGregory Neil Shapiro 	macdefine(&e->e_macro, A_PERM, 'h', a->q_host);
283040266059SGregory Neil Shapiro 	macdefine(&e->e_macro, A_PERM, 'u', a->q_user);
283140266059SGregory Neil Shapiro 	macdefine(&e->e_macro, A_PERM, 'z', a->q_home);
2832c2aa98e2SPeter Wemm 
283340266059SGregory Neil Shapiro 	macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e r");
283440266059SGregory Neil Shapiro 	if (REWRITE(pvp, 5, e) == EX_TEMPFAIL)
2835c2aa98e2SPeter Wemm 	{
2836c2aa98e2SPeter Wemm 		if (tTd(29, 9))
283740266059SGregory Neil Shapiro 			sm_dprintf("maplocaluser: rewrite tempfail\n");
283806f25ae9SGregory Neil Shapiro 		a->q_state = QS_QUEUEUP;
2839c2aa98e2SPeter Wemm 		a->q_status = "4.4.3";
2840c2aa98e2SPeter Wemm 		return;
2841c2aa98e2SPeter Wemm 	}
2842c2aa98e2SPeter Wemm 	if (pvp[0] == NULL || (pvp[0][0] & 0377) != CANONNET)
2843c2aa98e2SPeter Wemm 	{
2844c2aa98e2SPeter Wemm 		if (tTd(29, 9))
284540266059SGregory Neil Shapiro 			sm_dprintf("maplocaluser: doesn't resolve\n");
2846c2aa98e2SPeter Wemm 		return;
2847c2aa98e2SPeter Wemm 	}
2848c2aa98e2SPeter Wemm 
284940266059SGregory Neil Shapiro 	SM_TRY
2850c2aa98e2SPeter Wemm 		a1 = buildaddr(pvp, NULL, 0, e);
285140266059SGregory Neil Shapiro 	SM_EXCEPT(exc, "E:mta.quickabort")
285240266059SGregory Neil Shapiro 
285340266059SGregory Neil Shapiro 		/*
285440266059SGregory Neil Shapiro 		**  mark address as bad, S5 returned an error
285540266059SGregory Neil Shapiro 		**	and we gave that back to the SMTP client.
285640266059SGregory Neil Shapiro 		*/
285740266059SGregory Neil Shapiro 
285840266059SGregory Neil Shapiro 		a->q_state = QS_DONTSEND;
285940266059SGregory Neil Shapiro 		sm_exc_raisenew_x(&EtypeQuickAbort, 2);
286040266059SGregory Neil Shapiro 	SM_END_TRY
286140266059SGregory Neil Shapiro 
286240266059SGregory Neil Shapiro 	/* if non-null, mailer destination specified -- has it changed? */
2863c2aa98e2SPeter Wemm 	if (a1 == NULL || sameaddr(a, a1))
2864c2aa98e2SPeter Wemm 	{
2865c2aa98e2SPeter Wemm 		if (tTd(29, 9))
286640266059SGregory Neil Shapiro 			sm_dprintf("maplocaluser: address unchanged\n");
2867c2aa98e2SPeter Wemm 		return;
2868c2aa98e2SPeter Wemm 	}
2869c2aa98e2SPeter Wemm 
2870c2aa98e2SPeter Wemm 	/* make new address take on flags and print attributes of old */
2871c2aa98e2SPeter Wemm 	a1->q_flags &= ~Q_COPYFLAGS;
2872c2aa98e2SPeter Wemm 	a1->q_flags |= a->q_flags & Q_COPYFLAGS;
287340266059SGregory Neil Shapiro 	a1->q_paddr = sm_rpool_strdup_x(e->e_rpool, a->q_paddr);
287440266059SGregory Neil Shapiro 	a1->q_finalrcpt = a->q_finalrcpt;
287506f25ae9SGregory Neil Shapiro 	a1->q_orcpt = a->q_orcpt;
2876c2aa98e2SPeter Wemm 
2877c2aa98e2SPeter Wemm 	/* mark old address as dead; insert new address */
287806f25ae9SGregory Neil Shapiro 	a->q_state = QS_REPLACED;
2879c2aa98e2SPeter Wemm 	if (tTd(29, 5))
2880c2aa98e2SPeter Wemm 	{
288140266059SGregory Neil Shapiro 		sm_dprintf("maplocaluser: QS_REPLACED ");
2882e92d3f3fSGregory Neil Shapiro 		printaddr(sm_debug_file(), a, false);
2883c2aa98e2SPeter Wemm 	}
2884c2aa98e2SPeter Wemm 	a1->q_alias = a;
288540266059SGregory Neil Shapiro 	allocaddr(a1, RF_COPYALL, sm_rpool_strdup_x(e->e_rpool, a->q_paddr), e);
2886c2aa98e2SPeter Wemm 	(void) recipient(a1, sendq, aliaslevel, e);
2887c2aa98e2SPeter Wemm }
288840266059SGregory Neil Shapiro /*
2889c2aa98e2SPeter Wemm **  DEQUOTE_INIT -- initialize dequote map
2890c2aa98e2SPeter Wemm **
2891c2aa98e2SPeter Wemm **	Parameters:
2892c2aa98e2SPeter Wemm **		map -- the internal map structure.
2893c2aa98e2SPeter Wemm **		args -- arguments.
2894c2aa98e2SPeter Wemm **
2895c2aa98e2SPeter Wemm **	Returns:
289640266059SGregory Neil Shapiro **		true.
2897c2aa98e2SPeter Wemm */
2898c2aa98e2SPeter Wemm 
2899c2aa98e2SPeter Wemm bool
2900c2aa98e2SPeter Wemm dequote_init(map, args)
2901c2aa98e2SPeter Wemm 	MAP *map;
2902c2aa98e2SPeter Wemm 	char *args;
2903c2aa98e2SPeter Wemm {
2904c2aa98e2SPeter Wemm 	register char *p = args;
2905c2aa98e2SPeter Wemm 
290606f25ae9SGregory Neil Shapiro 	/* there is no check whether there is really an argument */
2907c2aa98e2SPeter Wemm 	map->map_mflags |= MF_KEEPQUOTES;
2908c2aa98e2SPeter Wemm 	for (;;)
2909c2aa98e2SPeter Wemm 	{
2910c2aa98e2SPeter Wemm 		while (isascii(*p) && isspace(*p))
2911c2aa98e2SPeter Wemm 			p++;
2912c2aa98e2SPeter Wemm 		if (*p != '-')
2913c2aa98e2SPeter Wemm 			break;
2914c2aa98e2SPeter Wemm 		switch (*++p)
2915c2aa98e2SPeter Wemm 		{
2916c2aa98e2SPeter Wemm 		  case 'a':
2917c2aa98e2SPeter Wemm 			map->map_app = ++p;
2918c2aa98e2SPeter Wemm 			break;
2919c2aa98e2SPeter Wemm 
292006f25ae9SGregory Neil Shapiro 		  case 'D':
292106f25ae9SGregory Neil Shapiro 			map->map_mflags |= MF_DEFER;
292206f25ae9SGregory Neil Shapiro 			break;
292306f25ae9SGregory Neil Shapiro 
292406f25ae9SGregory Neil Shapiro 		  case 'S':
2925c2aa98e2SPeter Wemm 		  case 's':
292606f25ae9SGregory Neil Shapiro 			map->map_spacesub = *++p;
2927c2aa98e2SPeter Wemm 			break;
2928c2aa98e2SPeter Wemm 		}
2929c2aa98e2SPeter Wemm 		while (*p != '\0' && !(isascii(*p) && isspace(*p)))
2930c2aa98e2SPeter Wemm 			p++;
2931c2aa98e2SPeter Wemm 		if (*p != '\0')
2932c2aa98e2SPeter Wemm 			*p = '\0';
2933c2aa98e2SPeter Wemm 	}
2934c2aa98e2SPeter Wemm 	if (map->map_app != NULL)
2935c2aa98e2SPeter Wemm 		map->map_app = newstr(map->map_app);
2936c2aa98e2SPeter Wemm 
293740266059SGregory Neil Shapiro 	return true;
2938c2aa98e2SPeter Wemm }
293940266059SGregory Neil Shapiro /*
2940c2aa98e2SPeter Wemm **  DEQUOTE_MAP -- unquote an address
2941c2aa98e2SPeter Wemm **
2942c2aa98e2SPeter Wemm **	Parameters:
2943c2aa98e2SPeter Wemm **		map -- the internal map structure (ignored).
2944c2aa98e2SPeter Wemm **		name -- the name to dequote.
2945c2aa98e2SPeter Wemm **		av -- arguments (ignored).
2946c2aa98e2SPeter Wemm **		statp -- pointer to status out-parameter.
2947c2aa98e2SPeter Wemm **
2948c2aa98e2SPeter Wemm **	Returns:
2949c2aa98e2SPeter Wemm **		NULL -- if there were no quotes, or if the resulting
2950c2aa98e2SPeter Wemm **			unquoted buffer would not be acceptable to prescan.
2951c2aa98e2SPeter Wemm **		else -- The dequoted buffer.
2952c2aa98e2SPeter Wemm */
2953c2aa98e2SPeter Wemm 
2954c2aa98e2SPeter Wemm /* ARGSUSED2 */
2955c2aa98e2SPeter Wemm char *
2956c2aa98e2SPeter Wemm dequote_map(map, name, av, statp)
2957c2aa98e2SPeter Wemm 	MAP *map;
2958c2aa98e2SPeter Wemm 	char *name;
2959c2aa98e2SPeter Wemm 	char **av;
2960c2aa98e2SPeter Wemm 	int *statp;
2961c2aa98e2SPeter Wemm {
2962c2aa98e2SPeter Wemm 	register char *p;
2963c2aa98e2SPeter Wemm 	register char *q;
2964c2aa98e2SPeter Wemm 	register char c;
2965c2aa98e2SPeter Wemm 	int anglecnt = 0;
2966c2aa98e2SPeter Wemm 	int cmntcnt = 0;
2967c2aa98e2SPeter Wemm 	int quotecnt = 0;
2968c2aa98e2SPeter Wemm 	int spacecnt = 0;
296940266059SGregory Neil Shapiro 	bool quotemode = false;
297040266059SGregory Neil Shapiro 	bool bslashmode = false;
297106f25ae9SGregory Neil Shapiro 	char spacesub = map->map_spacesub;
2972c2aa98e2SPeter Wemm 
2973c2aa98e2SPeter Wemm 	for (p = q = name; (c = *p++) != '\0'; )
2974c2aa98e2SPeter Wemm 	{
2975c2aa98e2SPeter Wemm 		if (bslashmode)
2976c2aa98e2SPeter Wemm 		{
297740266059SGregory Neil Shapiro 			bslashmode = false;
2978c2aa98e2SPeter Wemm 			*q++ = c;
2979c2aa98e2SPeter Wemm 			continue;
2980c2aa98e2SPeter Wemm 		}
2981c2aa98e2SPeter Wemm 
2982c2aa98e2SPeter Wemm 		if (c == ' ' && spacesub != '\0')
2983c2aa98e2SPeter Wemm 			c = spacesub;
2984c2aa98e2SPeter Wemm 
2985c2aa98e2SPeter Wemm 		switch (c)
2986c2aa98e2SPeter Wemm 		{
2987c2aa98e2SPeter Wemm 		  case '\\':
298840266059SGregory Neil Shapiro 			bslashmode = true;
2989c2aa98e2SPeter Wemm 			break;
2990c2aa98e2SPeter Wemm 
2991c2aa98e2SPeter Wemm 		  case '(':
2992c2aa98e2SPeter Wemm 			cmntcnt++;
2993c2aa98e2SPeter Wemm 			break;
2994c2aa98e2SPeter Wemm 
2995c2aa98e2SPeter Wemm 		  case ')':
2996c2aa98e2SPeter Wemm 			if (cmntcnt-- <= 0)
2997c2aa98e2SPeter Wemm 				return NULL;
2998c2aa98e2SPeter Wemm 			break;
2999c2aa98e2SPeter Wemm 
3000c2aa98e2SPeter Wemm 		  case ' ':
300106f25ae9SGregory Neil Shapiro 		  case '\t':
3002c2aa98e2SPeter Wemm 			spacecnt++;
3003c2aa98e2SPeter Wemm 			break;
3004c2aa98e2SPeter Wemm 		}
3005c2aa98e2SPeter Wemm 
3006c2aa98e2SPeter Wemm 		if (cmntcnt > 0)
3007c2aa98e2SPeter Wemm 		{
3008c2aa98e2SPeter Wemm 			*q++ = c;
3009c2aa98e2SPeter Wemm 			continue;
3010c2aa98e2SPeter Wemm 		}
3011c2aa98e2SPeter Wemm 
3012c2aa98e2SPeter Wemm 		switch (c)
3013c2aa98e2SPeter Wemm 		{
3014c2aa98e2SPeter Wemm 		  case '"':
3015c2aa98e2SPeter Wemm 			quotemode = !quotemode;
3016c2aa98e2SPeter Wemm 			quotecnt++;
3017c2aa98e2SPeter Wemm 			continue;
3018c2aa98e2SPeter Wemm 
3019c2aa98e2SPeter Wemm 		  case '<':
3020c2aa98e2SPeter Wemm 			anglecnt++;
3021c2aa98e2SPeter Wemm 			break;
3022c2aa98e2SPeter Wemm 
3023c2aa98e2SPeter Wemm 		  case '>':
3024c2aa98e2SPeter Wemm 			if (anglecnt-- <= 0)
3025c2aa98e2SPeter Wemm 				return NULL;
3026c2aa98e2SPeter Wemm 			break;
3027c2aa98e2SPeter Wemm 		}
3028c2aa98e2SPeter Wemm 		*q++ = c;
3029c2aa98e2SPeter Wemm 	}
3030c2aa98e2SPeter Wemm 
3031c2aa98e2SPeter Wemm 	if (anglecnt != 0 || cmntcnt != 0 || bslashmode ||
3032c2aa98e2SPeter Wemm 	    quotemode || quotecnt <= 0 || spacecnt != 0)
3033c2aa98e2SPeter Wemm 		return NULL;
3034c2aa98e2SPeter Wemm 	*q++ = '\0';
3035c2aa98e2SPeter Wemm 	return map_rewrite(map, name, strlen(name), NULL);
3036c2aa98e2SPeter Wemm }
303740266059SGregory Neil Shapiro /*
3038c2aa98e2SPeter Wemm **  RSCHECK -- check string(s) for validity using rewriting sets
3039c2aa98e2SPeter Wemm **
3040c2aa98e2SPeter Wemm **	Parameters:
3041c2aa98e2SPeter Wemm **		rwset -- the rewriting set to use.
3042c2aa98e2SPeter Wemm **		p1 -- the first string to check.
3043c2aa98e2SPeter Wemm **		p2 -- the second string to check -- may be null.
3044c2aa98e2SPeter Wemm **		e -- the current envelope.
3045959366dcSGregory Neil Shapiro **		flags -- control some behavior, see RSF_ in sendmail.h
304640266059SGregory Neil Shapiro **		logl -- logging level.
3047193538b7SGregory Neil Shapiro **		host -- NULL or relay host.
304840266059SGregory Neil Shapiro **		logid -- id for sm_syslog.
3049d0cef73dSGregory Neil Shapiro **		addr -- if not NULL and ruleset returns $#error:
3050d0cef73dSGregory Neil Shapiro **				store mailer triple here.
3051c2aa98e2SPeter Wemm **
3052c2aa98e2SPeter Wemm **	Returns:
3053c2aa98e2SPeter Wemm **		EX_OK -- if the rwset doesn't resolve to $#error
3054c2aa98e2SPeter Wemm **		else -- the failure status (message printed)
3055c2aa98e2SPeter Wemm */
3056c2aa98e2SPeter Wemm 
3057c2aa98e2SPeter Wemm int
3058d0cef73dSGregory Neil Shapiro rscheck(rwset, p1, p2, e, flags, logl, host, logid, addr)
3059c2aa98e2SPeter Wemm 	char *rwset;
3060c2aa98e2SPeter Wemm 	char *p1;
3061c2aa98e2SPeter Wemm 	char *p2;
3062c2aa98e2SPeter Wemm 	ENVELOPE *e;
3063959366dcSGregory Neil Shapiro 	int flags;
306406f25ae9SGregory Neil Shapiro 	int logl;
3065193538b7SGregory Neil Shapiro 	char *host;
306640266059SGregory Neil Shapiro 	char *logid;
3067d0cef73dSGregory Neil Shapiro 	ADDRESS *addr;
3068c2aa98e2SPeter Wemm {
306940266059SGregory Neil Shapiro 	char *volatile buf;
30704e4196cbSGregory Neil Shapiro 	size_t bufsize;
3071c2aa98e2SPeter Wemm 	int saveexitstat;
307240266059SGregory Neil Shapiro 	int volatile rstat = EX_OK;
3073c2aa98e2SPeter Wemm 	char **pvp;
3074c2aa98e2SPeter Wemm 	int rsno;
307540266059SGregory Neil Shapiro 	bool volatile discard = false;
3076c2aa98e2SPeter Wemm 	bool saveQuickAbort = QuickAbort;
3077c2aa98e2SPeter Wemm 	bool saveSuprErrs = SuprErrs;
307840266059SGregory Neil Shapiro 	bool quarantine = false;
307940266059SGregory Neil Shapiro 	char ubuf[BUFSIZ * 2];
3080c2aa98e2SPeter Wemm 	char buf0[MAXLINE];
3081c2aa98e2SPeter Wemm 	char pvpbuf[PSBUFSIZE];
3082c2aa98e2SPeter Wemm 	extern char MsgBuf[];
3083c2aa98e2SPeter Wemm 
3084c2aa98e2SPeter Wemm 	if (tTd(48, 2))
308540266059SGregory Neil Shapiro 		sm_dprintf("rscheck(%s, %s, %s)\n", rwset, p1,
3086c2aa98e2SPeter Wemm 			p2 == NULL ? "(NULL)" : p2);
3087c2aa98e2SPeter Wemm 
3088c2aa98e2SPeter Wemm 	rsno = strtorwset(rwset, NULL, ST_FIND);
3089c2aa98e2SPeter Wemm 	if (rsno < 0)
3090c2aa98e2SPeter Wemm 		return EX_OK;
3091c2aa98e2SPeter Wemm 
3092c2aa98e2SPeter Wemm 	if (p2 != NULL)
3093c2aa98e2SPeter Wemm 	{
3094c2aa98e2SPeter Wemm 		bufsize = strlen(p1) + strlen(p2) + 2;
3095d0cef73dSGregory Neil Shapiro 		if (bufsize > sizeof(buf0))
309640266059SGregory Neil Shapiro 			buf = sm_malloc_x(bufsize);
3097c2aa98e2SPeter Wemm 		else
3098c2aa98e2SPeter Wemm 		{
3099c2aa98e2SPeter Wemm 			buf = buf0;
3100d0cef73dSGregory Neil Shapiro 			bufsize = sizeof(buf0);
3101c2aa98e2SPeter Wemm 		}
310240266059SGregory Neil Shapiro 		(void) sm_snprintf(buf, bufsize, "%s%c%s", p1, CONDELSE, p2);
3103c2aa98e2SPeter Wemm 	}
3104c2aa98e2SPeter Wemm 	else
3105c2aa98e2SPeter Wemm 	{
3106c2aa98e2SPeter Wemm 		bufsize = strlen(p1) + 1;
3107d0cef73dSGregory Neil Shapiro 		if (bufsize > sizeof(buf0))
310840266059SGregory Neil Shapiro 			buf = sm_malloc_x(bufsize);
3109c2aa98e2SPeter Wemm 		else
3110c2aa98e2SPeter Wemm 		{
3111c2aa98e2SPeter Wemm 			buf = buf0;
3112d0cef73dSGregory Neil Shapiro 			bufsize = sizeof(buf0);
3113c2aa98e2SPeter Wemm 		}
311440266059SGregory Neil Shapiro 		(void) sm_strlcpy(buf, p1, bufsize);
3115c2aa98e2SPeter Wemm 	}
311640266059SGregory Neil Shapiro 	SM_TRY
311740266059SGregory Neil Shapiro 	{
311840266059SGregory Neil Shapiro 		SuprErrs = true;
311940266059SGregory Neil Shapiro 		QuickAbort = false;
3120d0cef73dSGregory Neil Shapiro 		pvp = prescan(buf, '\0', pvpbuf, sizeof(pvpbuf), NULL,
3121d0cef73dSGregory Neil Shapiro 			      bitset(RSF_RMCOMM, flags) ?
3122d0cef73dSGregory Neil Shapiro 					IntTokenTab : TokTypeNoC,
3123e92d3f3fSGregory Neil Shapiro 			      bitset(RSF_RMCOMM, flags) ? false : true);
3124c2aa98e2SPeter Wemm 		SuprErrs = saveSuprErrs;
3125c2aa98e2SPeter Wemm 		if (pvp == NULL)
3126c2aa98e2SPeter Wemm 		{
3127c2aa98e2SPeter Wemm 			if (tTd(48, 2))
312840266059SGregory Neil Shapiro 				sm_dprintf("rscheck: cannot prescan input\n");
3129c2aa98e2SPeter Wemm 	/*
3130c2aa98e2SPeter Wemm 			syserr("rscheck: cannot prescan input: \"%s\"",
3131c2aa98e2SPeter Wemm 				shortenstring(buf, MAXSHORTSTR));
3132c2aa98e2SPeter Wemm 			rstat = EX_DATAERR;
3133c2aa98e2SPeter Wemm 	*/
3134c2aa98e2SPeter Wemm 			goto finis;
3135c2aa98e2SPeter Wemm 		}
3136959366dcSGregory Neil Shapiro 		if (bitset(RSF_UNSTRUCTURED, flags))
3137959366dcSGregory Neil Shapiro 			SuprErrs = true;
313840266059SGregory Neil Shapiro 		(void) REWRITE(pvp, rsno, e);
3139959366dcSGregory Neil Shapiro 		if (bitset(RSF_UNSTRUCTURED, flags))
3140959366dcSGregory Neil Shapiro 			SuprErrs = saveSuprErrs;
3141c2aa98e2SPeter Wemm 		if (pvp[0] == NULL || (pvp[0][0] & 0377) != CANONNET ||
3142c2aa98e2SPeter Wemm 		    pvp[1] == NULL || (strcmp(pvp[1], "error") != 0 &&
3143c2aa98e2SPeter Wemm 				       strcmp(pvp[1], "discard") != 0))
3144c2aa98e2SPeter Wemm 		{
3145c2aa98e2SPeter Wemm 			goto finis;
3146c2aa98e2SPeter Wemm 		}
3147c2aa98e2SPeter Wemm 
3148c2aa98e2SPeter Wemm 		if (strcmp(pvp[1], "discard") == 0)
3149c2aa98e2SPeter Wemm 		{
3150c2aa98e2SPeter Wemm 			if (tTd(48, 2))
315140266059SGregory Neil Shapiro 				sm_dprintf("rscheck: discard mailer selected\n");
3152c2aa98e2SPeter Wemm 			e->e_flags |= EF_DISCARD;
315340266059SGregory Neil Shapiro 			discard = true;
3154c2aa98e2SPeter Wemm 		}
315540266059SGregory Neil Shapiro 		else if (strcmp(pvp[1], "error") == 0 &&
315640266059SGregory Neil Shapiro 			 pvp[2] != NULL && (pvp[2][0] & 0377) == CANONHOST &&
315740266059SGregory Neil Shapiro 			 pvp[3] != NULL && strcmp(pvp[3], "quarantine") == 0)
315840266059SGregory Neil Shapiro 		{
315940266059SGregory Neil Shapiro 			if (pvp[4] == NULL ||
316040266059SGregory Neil Shapiro 			    (pvp[4][0] & 0377) != CANONUSER ||
316140266059SGregory Neil Shapiro 			    pvp[5] == NULL)
316240266059SGregory Neil Shapiro 				e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool,
316340266059SGregory Neil Shapiro 								 rwset);
316440266059SGregory Neil Shapiro 			else
316540266059SGregory Neil Shapiro 			{
316640266059SGregory Neil Shapiro 				cataddr(&(pvp[5]), NULL, ubuf,
3167d0cef73dSGregory Neil Shapiro 					sizeof(ubuf), ' ', true);
316840266059SGregory Neil Shapiro 				e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool,
316940266059SGregory Neil Shapiro 								 ubuf);
317040266059SGregory Neil Shapiro 			}
317140266059SGregory Neil Shapiro 			macdefine(&e->e_macro, A_PERM,
317240266059SGregory Neil Shapiro 				  macid("{quarantine}"), e->e_quarmsg);
317340266059SGregory Neil Shapiro 			quarantine = true;
317440266059SGregory Neil Shapiro 		}
3175c2aa98e2SPeter Wemm 		else
3176c2aa98e2SPeter Wemm 		{
3177d0cef73dSGregory Neil Shapiro 			auto ADDRESS a1;
3178c2aa98e2SPeter Wemm 			int savelogusrerrs = LogUsrErrs;
317940266059SGregory Neil Shapiro 			static bool logged = false;
3180c2aa98e2SPeter Wemm 
3181c2aa98e2SPeter Wemm 			/* got an error -- process it */
3182c2aa98e2SPeter Wemm 			saveexitstat = ExitStat;
318340266059SGregory Neil Shapiro 			LogUsrErrs = false;
3184c2aa98e2SPeter Wemm 			(void) buildaddr(pvp, &a1, 0, e);
3185d0cef73dSGregory Neil Shapiro 			if (addr != NULL)
3186d0cef73dSGregory Neil Shapiro 			{
3187d0cef73dSGregory Neil Shapiro 				addr->q_mailer = a1.q_mailer;
3188d0cef73dSGregory Neil Shapiro 				addr->q_user = a1.q_user;
3189d0cef73dSGregory Neil Shapiro 				addr->q_host = a1.q_host;
3190d0cef73dSGregory Neil Shapiro 			}
3191c2aa98e2SPeter Wemm 			LogUsrErrs = savelogusrerrs;
3192c2aa98e2SPeter Wemm 			rstat = ExitStat;
3193c2aa98e2SPeter Wemm 			ExitStat = saveexitstat;
3194c2aa98e2SPeter Wemm 			if (!logged)
3195c2aa98e2SPeter Wemm 			{
3196959366dcSGregory Neil Shapiro 				if (bitset(RSF_COUNT, flags))
319740266059SGregory Neil Shapiro 					markstats(e, &a1, STATS_REJECT);
319840266059SGregory Neil Shapiro 				logged = true;
3199c2aa98e2SPeter Wemm 			}
3200c2aa98e2SPeter Wemm 		}
3201c2aa98e2SPeter Wemm 
320240266059SGregory Neil Shapiro 		if (LogLevel > logl)
3203c2aa98e2SPeter Wemm 		{
3204c2aa98e2SPeter Wemm 			char *relay;
3205c2aa98e2SPeter Wemm 			char *p;
3206c2aa98e2SPeter Wemm 			char lbuf[MAXLINE];
3207c2aa98e2SPeter Wemm 
3208c2aa98e2SPeter Wemm 			p = lbuf;
3209c2aa98e2SPeter Wemm 			if (p2 != NULL)
3210c2aa98e2SPeter Wemm 			{
321140266059SGregory Neil Shapiro 				(void) sm_snprintf(p, SPACELEFT(lbuf, p),
3212c2aa98e2SPeter Wemm 					", arg2=%s",
3213c2aa98e2SPeter Wemm 					p2);
3214c2aa98e2SPeter Wemm 				p += strlen(p);
3215c2aa98e2SPeter Wemm 			}
3216193538b7SGregory Neil Shapiro 
3217193538b7SGregory Neil Shapiro 			if (host != NULL)
3218193538b7SGregory Neil Shapiro 				relay = host;
3219193538b7SGregory Neil Shapiro 			else
3220193538b7SGregory Neil Shapiro 				relay = macvalue('_', e);
3221193538b7SGregory Neil Shapiro 			if (relay != NULL)
3222c2aa98e2SPeter Wemm 			{
322340266059SGregory Neil Shapiro 				(void) sm_snprintf(p, SPACELEFT(lbuf, p),
3224c2aa98e2SPeter Wemm 					", relay=%s", relay);
3225c2aa98e2SPeter Wemm 				p += strlen(p);
3226c2aa98e2SPeter Wemm 			}
3227c2aa98e2SPeter Wemm 			*p = '\0';
3228c2aa98e2SPeter Wemm 			if (discard)
322940266059SGregory Neil Shapiro 				sm_syslog(LOG_NOTICE, logid,
3230c2aa98e2SPeter Wemm 					  "ruleset=%s, arg1=%s%s, discard",
3231c2aa98e2SPeter Wemm 					  rwset, p1, lbuf);
323240266059SGregory Neil Shapiro 			else if (quarantine)
323340266059SGregory Neil Shapiro 				sm_syslog(LOG_NOTICE, logid,
323440266059SGregory Neil Shapiro 					  "ruleset=%s, arg1=%s%s, quarantine=%s",
323540266059SGregory Neil Shapiro 					  rwset, p1, lbuf, ubuf);
3236c2aa98e2SPeter Wemm 			else
323740266059SGregory Neil Shapiro 				sm_syslog(LOG_NOTICE, logid,
3238c2aa98e2SPeter Wemm 					  "ruleset=%s, arg1=%s%s, reject=%s",
3239c2aa98e2SPeter Wemm 					  rwset, p1, lbuf, MsgBuf);
3240c2aa98e2SPeter Wemm 		}
3241c2aa98e2SPeter Wemm 
324240266059SGregory Neil Shapiro 	 finis: ;
324340266059SGregory Neil Shapiro 	}
324440266059SGregory Neil Shapiro 	SM_FINALLY
324540266059SGregory Neil Shapiro 	{
3246c2aa98e2SPeter Wemm 		/* clean up */
3247c2aa98e2SPeter Wemm 		if (buf != buf0)
32488774250cSGregory Neil Shapiro 			sm_free(buf);
324940266059SGregory Neil Shapiro 		QuickAbort = saveQuickAbort;
325040266059SGregory Neil Shapiro 	}
325140266059SGregory Neil Shapiro 	SM_END_TRY
3252c2aa98e2SPeter Wemm 
325340266059SGregory Neil Shapiro 	setstat(rstat);
325440266059SGregory Neil Shapiro 
325540266059SGregory Neil Shapiro 	/* rulesets don't set errno */
325640266059SGregory Neil Shapiro 	errno = 0;
3257c2aa98e2SPeter Wemm 	if (rstat != EX_OK && QuickAbort)
325840266059SGregory Neil Shapiro 		sm_exc_raisenew_x(&EtypeQuickAbort, 2);
325940266059SGregory Neil Shapiro 	return rstat;
326040266059SGregory Neil Shapiro }
326140266059SGregory Neil Shapiro /*
326240266059SGregory Neil Shapiro **  RSCAP -- call rewriting set to return capabilities
326340266059SGregory Neil Shapiro **
326440266059SGregory Neil Shapiro **	Parameters:
326540266059SGregory Neil Shapiro **		rwset -- the rewriting set to use.
326640266059SGregory Neil Shapiro **		p1 -- the first string to check.
326740266059SGregory Neil Shapiro **		p2 -- the second string to check -- may be null.
326840266059SGregory Neil Shapiro **		e -- the current envelope.
326940266059SGregory Neil Shapiro **		pvp -- pointer to token vector.
327040266059SGregory Neil Shapiro **		pvpbuf -- buffer space.
3271a7ec597cSGregory Neil Shapiro **		size -- size of buffer space.
327240266059SGregory Neil Shapiro **
327340266059SGregory Neil Shapiro **	Returns:
327440266059SGregory Neil Shapiro **		EX_UNAVAILABLE -- ruleset doesn't exist.
327540266059SGregory Neil Shapiro **		EX_DATAERR -- prescan() failed.
327640266059SGregory Neil Shapiro **		EX_OK -- rewrite() was successful.
327740266059SGregory Neil Shapiro **		else -- return status from rewrite().
327840266059SGregory Neil Shapiro */
327940266059SGregory Neil Shapiro 
328040266059SGregory Neil Shapiro int
328140266059SGregory Neil Shapiro rscap(rwset, p1, p2, e, pvp, pvpbuf, size)
328240266059SGregory Neil Shapiro 	char *rwset;
328340266059SGregory Neil Shapiro 	char *p1;
328440266059SGregory Neil Shapiro 	char *p2;
328540266059SGregory Neil Shapiro 	ENVELOPE *e;
328640266059SGregory Neil Shapiro 	char ***pvp;
328740266059SGregory Neil Shapiro 	char *pvpbuf;
328840266059SGregory Neil Shapiro 	int size;
328940266059SGregory Neil Shapiro {
329040266059SGregory Neil Shapiro 	char *volatile buf;
32914e4196cbSGregory Neil Shapiro 	size_t bufsize;
329240266059SGregory Neil Shapiro 	int volatile rstat = EX_OK;
329340266059SGregory Neil Shapiro 	int rsno;
329440266059SGregory Neil Shapiro 	bool saveQuickAbort = QuickAbort;
329540266059SGregory Neil Shapiro 	bool saveSuprErrs = SuprErrs;
329640266059SGregory Neil Shapiro 	char buf0[MAXLINE];
329740266059SGregory Neil Shapiro 	extern char MsgBuf[];
329840266059SGregory Neil Shapiro 
329940266059SGregory Neil Shapiro 	if (tTd(48, 2))
330040266059SGregory Neil Shapiro 		sm_dprintf("rscap(%s, %s, %s)\n", rwset, p1,
330140266059SGregory Neil Shapiro 			p2 == NULL ? "(NULL)" : p2);
330240266059SGregory Neil Shapiro 
3303af9557fdSGregory Neil Shapiro 	SM_REQUIRE(pvp != NULL);
330440266059SGregory Neil Shapiro 	rsno = strtorwset(rwset, NULL, ST_FIND);
330540266059SGregory Neil Shapiro 	if (rsno < 0)
330640266059SGregory Neil Shapiro 		return EX_UNAVAILABLE;
330740266059SGregory Neil Shapiro 
330840266059SGregory Neil Shapiro 	if (p2 != NULL)
330940266059SGregory Neil Shapiro 	{
331040266059SGregory Neil Shapiro 		bufsize = strlen(p1) + strlen(p2) + 2;
3311d0cef73dSGregory Neil Shapiro 		if (bufsize > sizeof(buf0))
331240266059SGregory Neil Shapiro 			buf = sm_malloc_x(bufsize);
331340266059SGregory Neil Shapiro 		else
331440266059SGregory Neil Shapiro 		{
331540266059SGregory Neil Shapiro 			buf = buf0;
3316d0cef73dSGregory Neil Shapiro 			bufsize = sizeof(buf0);
331740266059SGregory Neil Shapiro 		}
331840266059SGregory Neil Shapiro 		(void) sm_snprintf(buf, bufsize, "%s%c%s", p1, CONDELSE, p2);
331940266059SGregory Neil Shapiro 	}
332040266059SGregory Neil Shapiro 	else
332140266059SGregory Neil Shapiro 	{
332240266059SGregory Neil Shapiro 		bufsize = strlen(p1) + 1;
3323d0cef73dSGregory Neil Shapiro 		if (bufsize > sizeof(buf0))
332440266059SGregory Neil Shapiro 			buf = sm_malloc_x(bufsize);
332540266059SGregory Neil Shapiro 		else
332640266059SGregory Neil Shapiro 		{
332740266059SGregory Neil Shapiro 			buf = buf0;
3328d0cef73dSGregory Neil Shapiro 			bufsize = sizeof(buf0);
332940266059SGregory Neil Shapiro 		}
333040266059SGregory Neil Shapiro 		(void) sm_strlcpy(buf, p1, bufsize);
333140266059SGregory Neil Shapiro 	}
333240266059SGregory Neil Shapiro 	SM_TRY
333340266059SGregory Neil Shapiro 	{
333440266059SGregory Neil Shapiro 		SuprErrs = true;
333540266059SGregory Neil Shapiro 		QuickAbort = false;
3336d0cef73dSGregory Neil Shapiro 		*pvp = prescan(buf, '\0', pvpbuf, size, NULL, IntTokenTab,
3337d0cef73dSGregory Neil Shapiro 				false);
333840266059SGregory Neil Shapiro 		if (*pvp != NULL)
3339a7ec597cSGregory Neil Shapiro 			rstat = rewrite(*pvp, rsno, 0, e, size);
334040266059SGregory Neil Shapiro 		else
334140266059SGregory Neil Shapiro 		{
334240266059SGregory Neil Shapiro 			if (tTd(48, 2))
334340266059SGregory Neil Shapiro 				sm_dprintf("rscap: cannot prescan input\n");
334440266059SGregory Neil Shapiro 			rstat = EX_DATAERR;
334540266059SGregory Neil Shapiro 		}
334640266059SGregory Neil Shapiro 	}
334740266059SGregory Neil Shapiro 	SM_FINALLY
334840266059SGregory Neil Shapiro 	{
334940266059SGregory Neil Shapiro 		/* clean up */
335040266059SGregory Neil Shapiro 		if (buf != buf0)
335140266059SGregory Neil Shapiro 			sm_free(buf);
335240266059SGregory Neil Shapiro 		SuprErrs = saveSuprErrs;
335340266059SGregory Neil Shapiro 		QuickAbort = saveQuickAbort;
335440266059SGregory Neil Shapiro 
335540266059SGregory Neil Shapiro 		/* prevent information leak, this may contain rewrite error */
335640266059SGregory Neil Shapiro 		MsgBuf[0] = '\0';
335740266059SGregory Neil Shapiro 	}
335840266059SGregory Neil Shapiro 	SM_END_TRY
3359c2aa98e2SPeter Wemm 	return rstat;
3360c2aa98e2SPeter Wemm }
3361